Digital PDFs

AH-F110C-MC

July 1982

183 pages

Original

91MB

view download

OCR Version

117MB

view download

Document:	CZRLGC0 RL11,RLV11,RL01,RL02 RL11-RLV11-CTLR TS 1 JUL 1982 bw
Order Number:	AH-F110C-MC
Revision:	000
Pages:	183
Original Filename:	CZRLGC0__RL11,RLV11,RL01,RL02__RL11-RLV11-CTLR_TS_1__AH-F110C-MC__JUL_1982_gray.pdf

OCR Text

SE@ 0001

.REM @

IDENTIFICATION

PRODUCT CODE:

AC=F111C-MC

PRODUCT NAME:

CZRLGCO RL11/RLV11 CONTROLLER TEST 1

DATE CREATED:

5-JAN-79

REVISED:

22-FEB-82

MAINTAINER:

DIAGNOSTIC ENGINEERING = COLORADO

AUTHORS:

D. CLAFLIN

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO_ THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN
BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR
geEmé'IJTiECH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?cr;%{mum OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
COPYRIGHT (C) 1979,1982 DIGITAL EQUIPMENT CORPORATION

1
PAGE 2

m&u-n—b;u-n_n-a

GENERAL INFORHATIM
PROGRAM ABSTRACT
STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES

MANINWRNN =

ASSUMPTIONS

]

CGMMAND SYNTAX

EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS
ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS

PERFORMANCE REPORTS
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF CGTHMD VALIDITY

]

TABLE OF CONTENTS

SEQ 0002

PAGE 3

1.0

GENERAL RJFORMTION

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT. IT
RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+,

CAN BE
ACT AND

APT IN ACT MODE (SEE 2.2 ''CHAIN MODE OPERATION'' FOR DETAILS OF CHA-

IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF
INING PROCEDURE).
THE DIAGNOSTIC USER, WHICH AT RUN TIME IS APPENDED TO A COMMON
FRONT=END PIECE OF SUPERVISOR SOF TWARE THROUGH WHICH THE DIAGNOSTIC
USING THE DEFAULT
INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.
VALUES IN THE P TABLES, PROGRAM EXECUTES ONE PASS IN 11 SECONDS.

WHEN THIS DIAGNOSTIC IS STARTED, CONJROL GOES FIRST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN 'HARD CORE'* QUESTIONS ABOUT THE
ENVIRONMENT. THEN IT WILL ENTER COMMAND MODE, INDICATED BY A
PROMPT CHARACTER (DR>). AT COMMAND MODE, THE OPERATOR MAY ENTER ANY
''OPERATING INSTRUCTIONS''.
OF SEVERAL COMMANDS AS DESCRIBED IN 2.0

THE
THE DIAGNOSTIC PROGRAM 1S LOADED IN THE LOWER 8K OF MEMORY.
DIAGNOSTIC SUPERVISOR CODING OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE UPPERMOST
1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC INFORMATION

THE RL11/RLV11 CONTROLLER TEST (PART 1) IS A PDP=11 (LSI-11) BASED
PROGRAM THAT WILL TEST THE COMTROLLER. IT STARTS BY TESTING BASIC
INTERFACE LOGIC, REGISTER MANIPULATION AND FUNCTIONALITY WHICH _IN=T _STATUS, READ HEADERS AND SEEK OPERATIONS. IT IS
CLUDES _NOOP,

AIMED AT FULLY TESTING THE CONTROLLER IN THESE AREAS,
FAULT ALSO EXERCISES THE DRIVE.

1.2

SYSTEM REQUIREMENTS

BUT BY DE-

SEQ 0003

PAGE &

1.2.1

HARDWARE REQUIREMENTS

* PDP=11/LSI=11 PROCESSOR WITH 16K OR MORE OF MEMORY
+ CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
* 1 OR 2 RL11/RLV11 CONTROLLER(S) WITH:

1-8 RL01cggaVE§LHITH RLOTK CARTRIDGES CONTAINING

°'BAD

1-8 RLOZDg&VESngH RLO2K CARTRIDGES CONTAINING

°BAD

* LINE PRINTER (OPTIONAL)

1.2.2

SOF TWARE REQUIREMENTS

CZRLGBO RL11/RLV11 CTLR TST 1
(FORMERLY CZRLAB)

1.3

RELATED DOCUMENTS AND STANDARDS

RLO1 DISK SUBSYSTEM USER'S GUIDE (EK=-RLO1-UG-002)
XXDP+/SUPERVISOR USER'S MANUAL

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES

THE RL0O1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

:
PROGRAMS

CVRLABO
1.5

RUN

THE

FOLLOWING

RLV11 RLO1 DISKLESS TEST (RLV11 ONLY)

ASSUMPTIONS

THE HARDWARE OTHER THAN THE RL01/02 SUBSYSTEM IS ASSUMED TO WORK
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO
PROPERLY.

NOT FUNCTION PROPERLY.

2.0

OPERATING INSTRULTIONS

SEQ 0004

1
PAGE 5

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP+
START THE EXECUTION OF THE XXDP+ MONITOR BY USING THE
PROCEDURES.
APPROPRIATE BOOTSTRAP PROGRAM. THE MONITOR WILL PRINT A MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE ENTERED.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR THE XXDP+ MONITOR.
CHMDKAO XXDP+ DK MONITOR NNK
BOOTED VIA UNIT#: 0
ENTER DATE (DD-MMM-YY):

AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR. THE RESTART AD%EsiSKg; THE MONITOR IS PRINTED. THEN THE FOLLOWING TWO QUESTIONS
50 HZ?

LSI?

N
N

THE DEFAULTS ARE BOTH "NO''.
THE PROGRAM.

TYPE 'R’ AND THE PROGRAM NAME

DO NOT TYPE THE EXTENSION.

RUN

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR:
Ak
Ad

1 »
* STEP

i i 2222443

THE DIAGNOSTIC WILL ISSUE THE PROMPT ‘DR>'‘. FROM THIS POINT UNTIL
THE TIME WHEN YOU RESTART XXDP+, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT XXDP+. WE WILL REFER TO THE PRESENCE OF THIS PROMPT AS

BEING IN DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+ COMMAND MODE.

AT THIS POINT YOU WILL ENTER A *‘STA: T'' COMMAND. THIS IS NOT THE
SAME AS THE XXDP+ “‘START'' COMMAND, wHICH YOU ALREADY ISSUED IN RESCOMMAND CAN TAKE A
PONSE TO THE XXDP+ DOT PROMPT. THIS "'START"'
AND THE DETAILS OF
OPTIONAL)
NUMBER OF SWITCHES AND_ FLAGS (ALL
ANC SYNTAX'',
COMMANDS
OF
°DETAILS
THESE ARE SET FORTH_ IN 2.3
SAY IS SOMETO
NEED
YOU
ALL
WETHIN%E&KE"I"H??DER TO USE THE PROGRAM,
STA/PASS: 1/FLAGS :HOE

SEQ 0005

PAGE 6

THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES YOU DEA PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC
SIRE.

AT THE "DR>'’ LEVEL NEED TO BE TYPED.

AGAINST ALL UNITS BEING TESTED (THIS WILL BE EXPLAINED
SHORTLY). ONE PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY

ANY

FLAGS, BUT THE MAIN USEFUL ONES ARE:

PNT

LOE
HOE
IER

NUMBER

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR
HALT ON ERROR
INHIBIT ERROR PRINTOUT

THE

THE HOE FLAG IS SPECIFIED IN
SHORTLY).

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

i i i 23224l

* STEP 2 *

i i ddddd]

WHEN YOU HAVE TYPED IN A '‘START'' COMMAND, THE DIAGNOSTIC WILL COME
BACK WITH THE QUESTION *# UNITS?'’ TO WHICH YOU SHOULD RESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.
A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE
NUMBER OF DRIVES TO BE TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD BE
THE NUMBER OF CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN
ALWAYS BE DETERMINED BY INSPECTING THE "HEADER'' STATEMENT NEAR THE

BEGINNING OF THE SOURCE CODE.

ONE OF THE OPERANDS OF THIS "‘HEADER

STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
1 i2 2343444

* STEP 3 «

AR
AR

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE DIAGNOSTIC WILL ASK YOU THE ‘HARDWARE QUESTIONS''. THE ANSWERS TO THESE

QUESTIONS ARE USED

I;E;?glfiES .

TO BUILD

TABLES

CORE,

CALLED

‘HARDWARE

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE

SEQ 0006

1
PAGE 7

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

ENGINEERING.
THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC
OR ASSUME
AUTOSIZE
TO
WRITTEN
BE
NOT
WILL
FUTURE
THE
IN
DIAGNOSTICS
FOR ALL
OPERATOR
THE
ASK
WILL
THEY
INSTEAD,
ADDRESSES:
STANDARD
THE INFORMATION THEY NEED TO TEST THE DEVICE.
L ii 2223 ddd]

* STEP 4 «

Rk RAARARL

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR
ALL_ THE UNITS, YOU WILL BE ASKED 'CHANGE SW?"' IF YOU WANT TO BE
ASKED THE SOFTWARE QUESTIONS THAT DETERMINE THE BEMAVIOR OF THIS
PROGRAM, TYPE 'Y''. 1IF YOU WANT TO JAKE ALL THE DEFAULTS TO THESE
YOU WILL BE ASKED THE
‘Y"
QUESTIONS, TYPE 'N'. IF _YOU TYPE
SOF TWARE ~QUESTIONS (SEC 2.6), AND_THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM. THE SERIES OF QUESTIONS WILL BE
ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.
(i3232344

* STEP 5 «

ARARAN

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS,

THE DIAGNOSTIC WILL

BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS

THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START

COMMAND.

CONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL
SIMPLY EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN
TO COMMAND MODE (PROMPT DR>).

IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS
ngfls. DEPENDING ON THE SETTINGS OF THE HOE AND LOE
HOE SET: THE ERROR WILL BE REPORTED ON THE CONSOLE
AND THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.

LOE SET: THE DIAGNOSTIC WILL LOOP ENDLESSLY
BLOCK OF CODE THAT DETECTED THE ERROR.

THE

NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED
ON THE CONSOLE AND NORMAL EXECUTION WILL RESUME AS IF
NO ERROR HAD OCCURRED.

SEQ 0007

PAGE 8

2.1.2

SAMPLE RUN-THROUGH

LET'S SEE_HOW ALL THIS WORKS IN A REAL SITUATION. RECALL THAT WE
ENTERED THE COMMAND ‘‘STA/PASS:1/FLAGS:HOE''. THIS WOULD BE A VERY
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO SRRORS ARE ENCOUNTERED,
;'E‘Elsglllggu REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

AND

THE

ISSUE ANOTHER °'‘START'' COMMAND (THUS GOING THRU ALL
STEPS 1, 2, 3, &4, AND 5 AGAIN).

ISSUE A 'RESTART'' COMMAND (SAME AS START COMMAND
CEPT THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

EX-

ISSUE A '‘CONTINUE'' COMMAND (EXECUTION WILL RESUME AT
THE BEGINNING OF THE PARTICULAR HARDWARE TEST_ (MOST
DIAGNOSTICS CONSIST OF A NUMBER OF THESE) THAT IT WAS
IN WHEN THE ERROR HALT OCCURRED. NO QUESTIONS ASKED.

ISSUE A 'PROCEED'* COMMAND: EXECUTION WILL RESUME AT
THE INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A
SPECIAL COMMAND AND CAN BE ISSUED ONLY AT A HALT

IF AN ERROR IS ENCOUNTERED, THE ERROR

WILL

REPORTED

PROMPT WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THIS
:g{NT THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY:
PRO/FLAGS: IER:LOE :HOE=0 THIS WILL DO THE FOLLOWING:

TURN ON THE IER (INRIBIT ERROR PRINTOUT) FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN
STUDY THE ERROR OR SCOPE IT OR WHATEVER.

SEQ 0008

PAGE 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE
THREE CHOICES:

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNNING THE DIAGNOSTIC.

YOU WOULD TYPE

IER=0:LOE=0
:HOE : LAGS
CON/F

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE

NEXT ERROR OR TO END OF PASS.

”

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC
TWO CHOICES:
1.

START

RESTART

AGAIN,

YOU

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED
TO ANSWER THE

HARDWARE QUESTIONS AGAIN.

SEQ 0009

SEQ 0010

PAGE 10

THE FULL PRINT=OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS
(0=0PERATOR, D=DIAGNOSTIC):

BY
WHOM

ENTERED:

.R CZRLGB

DRS LOADED

DIAG. RUN-TIME SERVICES REV D APR-79
CZRLG-B-0

(=]
=)

000000

OO0
ODOODODUDO

(N=RL02)

DROP ON ERROR LIMIT (L) N ?

CHANGE SW (L) ? Y

BUS ADDRESS (0 174400 ?
?
VECTOR (0) 160
BR LEVEL (0) 5 ?
= RL01 w2y
DRIVE TYPE
DRIVE (0) 0 ?

UNIT 1
Y
RL1T (L)

(N=RL02)

?
VECTOR (0) 160
BR LEVEL (0) 5 ?
= RL01 w vy?
DRIVE TYPE
DRIVE (0) 0 ?

BUS ADDRESS (0) 174400 ?

UNIT 0
RL1T (L) Y ?

# UNITS (D)

000000

RLO2

oa>swmssi/rLAGs:HOE

UNIT IS RLOT,

DODDDDD

CZRLG TESTS CONTROLLER FUNCTIONS,
INTERFACE LOGIC, REGISTER OPERATION

CZRLG HRD ERR 00004 TST 003 SuB 002 PC:004130

ERR HLT

0.0

DR>PRO/FLAGS : IER: LOE : HOE=0
R 2222222222222 2233222322222 322222323322

ddidsids

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE
ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN “C OUT.

TYPING ~C ABORTS THE FUNCTION IN PROGRESS AND

RETURNS THE XXDP+ MONITOR TO COMMAND MODE.

22
dddddisdsd)
2322
2 223322223222
2222
(1228823233322234

1
PAGE 11

2.2

DR>CON/FLAGS :HOE : IER:LOE=0

0,0

CHANGE SW (L) ? N

0.0

E%RLG EOP 1

)

DR>RESTART/PASS: 1

0,0

CHANGE SW (L) ? N

0.0

CHAIN MODE OPERATION

CHAIN MODE OPERATION CONSISTS OF THE SEQUENTIAL EXECUTION OF PROGRAMS WITHOUT OPERATOR INTERVENTION. ONLY PROGRAMS THAT HAVE BEEN
CHAINABLE PROGRAMS
MODIFIED TO RUN IN CHAIN MODE CAN BE CHAINED.
EXTENSION.
BIC
A
BY
DIRECTORY
ARE IDENTIFIED IN THE
TO RUN CHAIN MODE, THE XXDP+ MONITOR USES AN ASCII FILE (KNOWN AS A
CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN. THIS FILE MUST BE ON THE SYSTEM DEVICE.

A CHAIN FILE MAY BE GENERATED BY USE OF THE XTECO TEXT EDITOR. THE
FILE MUST HAVE A CCC EXTENSION. THE CHAIN FILE MAY CONTAIN ANY OF
THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR. THE COMMANDS IN THE
ASCII FILE ARE EXECUTED IN THE ORDER IN WHICH THEY ARE ENCOUNTERED.
COMMENTS MAY BE INCLUDED IN TH® FILE.

TO EXECUTE A CHAIN FILE THE USER TYPES:
C FILNAM <CR> OR
C FILNAM/QV<CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE CHAIN FILE IS
USED BY THE XXDP+ MONITOR TO DETERMINE THE NUMBER OF PASSES TO EXECUTE EACH PROGRAM. IN THE SECOND CASE THE _PASS COUNT IS NOT USED
AND EACH PROGRAM IS EXECUTED ONLY ONCE. THE /QV SWITCH PROVIDES A
SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.

SEQ 0011

PAGE 12

~— WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE SOFTWARE SWITCH REGISTER
SHOULD BE SET TO 000000, THE XXDP+ MONITOR PRINTS EACH COMMAND

TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND. WHEN THE
LAST COMMAND- OTHER THAN ANOTHER C COMMAND HAS BEEN EXECUTED THE
XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT (.). IT IS
READY TO ACCEPT ANOTHER COMMAND FROM THE CONSOLE. IF THE LAST COMMAND IS ANOTHER C COMMAND. THE CMAIN MODE WILL CONTINUE AND THE
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED. IF THE
USER WISHES TO TERMINATE CHAIN MODE BEFORE ITS NORMAL TERINATION HE
MAY DO SO BY TYPING A CNTL=C. HOWEVER, THE MONITOR WILL NOT ABORT
THE CHAIN MODE UNTIL IT RECEIVES PROGRAM CONTROL FROM THE PROGRAM
CURRENTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF COMMAND VALIDITY

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED

LEGAL COMMANDS

1.-

. OPERATOR ENTERED 'RUN DIAG'

START

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
RESTART

OPERATOR INTERRUFPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART

PRINT
DISPLAY

SEQ 0012

PAGE 13

2.3.2

AN _ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET

START
RESTART

COMMAND SYNTAX

' 1222222282223 2 8222222233323 3232323333333 322233223332

dtiidiiiiitdsdd)

STA(RT)/TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS :FLAG=LIST/EOP:EOP-INCR

1222222228288 282222222 3222222233333 3 0333324222233 32 dddididididddsddd)

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
THE MESSAGE '# UNITS?" IS PRINTED. THE START COMMAND
SPECIFIED.
MAY BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING: A) OPERATOR TYPED 'RUN DIAGNOSTICTM 3) DIAGNOSTIC
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D)
~AFTER THE OPERATOR RESPONDS TO H
OPERATOR ENTERED CONTROL/C.
WITS’
THE HARDWARE DIALOGUE IS INITIATED. WHEN IT IS COMPLETED,

QUESTIONS ‘'CHANGE

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,

BECW THE NEW DEFAULTS. THEREFORE IT IS NECESSARY TO
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.

THE

RELOAD

THE SWITCH ARGUMENTS ARE AS FOLLOWS:

“TEST-LIST'* IS A SEQUENCE OF DECIML NUMBERS (1:2 ETC.) OR RANGES
OF DECIMAL NUMBERS (1-5:8=10 ETC.) THAT SPECIFY THE TESTS TO BE EXTHE NUMBERS RANGE
ECUTED. THE NUMBERS ARE SEPARATED BY COLONS.
FROM 1 TO THE LARGEST TEST NUMBER IN THE DIAGNCSTIC. THEY MAY BE

SPECIFIED IN ANY ORDER.

CU?@R%ES%S?;

TESTS WILL BE EXECUTED iN NUMERICAL

THE ORDER OF SPECIFICATION.

mss-cur" IS A DECIMAL NUMBER INDICATING

ORDER

THE DEFAULT IS TO EXE-

THE

DESIRED

NUMBER

PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
PASSES.
(ALL snscreo TESTS) AGAINST ALL UNITS SUBMITTED. THE DEFAULT IS

NON-ENDING TEST EXECUTION.
OF THE FORM <FLAG>, <rus.1>

'rus-usrIS A SEQUENCE OF ELEMENTS
CFLAG=0>,
SEPARATED BY COLONS,

WHERE <FLAG> HAS ONE OF fououxus VALUES:

T ON ERROR, CAUSING COMMAND MODE TO BE ENTERED

WHEN

ERRM IS ENCOUNTERED
LOE Loor m CAUSING TME DIAGNOSTIC T0 II.OOP CONT INUOUSLY
HE SMALLESTDEFINED BLOCK OF C ODING (SEGMENT, SuBWITH
rssr oa rssn CONTAINING THE ERROR

~ sEa 0013

2
PAGE 14

IER INHIBIT ERROR REPORTING
IBE INHIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERROR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE PRINTER
PNT PRINT NUMBER OF TEST BEING EXECUTED
BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS

ISR INHIBIT STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THESE FLAGS REPLACE THE USE OF THE HARDWARE SWITCH REGISTER.
UNDER
THE SUPERVISOR THERE IS NO ACCESS TO THE HARDWARE SWITCH REGISTER.

THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATED
TO 0 ARE
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF THE FLAGS SWITCH IS
NOT GIVEN ALL FLAGS ARE CLEARED.

‘EOP=INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN

(IN

TERMS

PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
DEFAULT IS AT THE END OF EVERY PASS.

THE

.ttt"fi't.t"ttt.Q.ttttlttttttttttifitttltttttt.ttttttt't'tttttttltt.

RES(TART) /TEST:TEST=LIST/PASS :PASS=CNT/FLAGS :FLAG=LIST/EOP:EOP=INCR/
UNITS:UNIT-LIST
AR AR

A AR AR A AR AN RAAARAAAA AR

RRAAAARAAARANR

TR RAAAARANS

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

HOWEVER,

ONES IN CORE ARE USED.

NEW

‘'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

THE QUESTION '‘CHANGE SW?'‘ IS ASKED AND THE ANSWERS GIVEN BECOME THE
NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
E'&T;:SE/CVM A)
DIAGNOSTIC
IS FINISHED B)
HALT ON ERROR ()

SEQ@ 0014

2
PAGE 15

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

°UNIT-LIST'' IS A SEQUENCE OF LOGICAL UNIT NUMBERS
RANGING FROM 1 THRU N (N_= NUMBER OF UNITS BEING TESTED) SPECIFYING WHICH WITS ARE TO BE TESTED.
THE LOGICAL UNIT NUMBER DESIGNATES THE POSITION OF
_THE
P-TABLE IN CORE,

WERE

BUILT.

ACCORDING TO THE ORDER IN WHICH

THE

THEY

WITS SPECIFIED MUST_NOT HAVE BEEN

DROPPED BY THE OPERATOR
D
COMMAND.
THE UNIT-LIST
DEFAULTS TO “ALL THAT HAVE NOT BEEN _DROPPED BY OPERATOR COMMAND''.
THE EFFECT OF THE UNIT=LIST LASTS UNTIL
THE NEXT
START
_(WHERE
IT IS AUTOMATICALLY RESET T0

ALL'") OR THE NEXT RESTART.

LA i

i i

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

adiitiid

itidididiiiididiisiidsdd]

CON(TINUE) /PASS : <PASS=CNT/FLAGS
: <FLAG=LIST>
LA A

i diddidiididiiiidididiidiadiiidys

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT ON_ ERROR OR A
CONTROL/C.
_THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF

THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR_
CONTROL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

i ddd

DEFAULT FOR PASS=CNT IS THE UNSATISFIED PASS=CNT
THE PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

i ddddiddiiiddiiiddlss]

PRO(CEED) /FLAGS : <FLAG-LIST>
LA i

i i

it ddddiiiddiididldd]

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFFECT OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING
H‘;egggm CALL.
NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

L 24 44

EXIT

L 24 4

RETURN TO XXDP+ PROMPT MODE.

SEQ 0015

2
PAGE 16

44]
2233
33 232444243
13333233

DRO(P) /UNITS:UNIT=LIST
1323232332332 d2ddddddd]

THE LNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED
% PgsClE’éDl START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED
ge
THERE IS ALSO A 'DROP'' MACRO_ INTERNAL TO_ THE DIAGNOSTIC. WHICH
PROGRAM
O
GIVES THE FACTLITY OF AUTO-DROPPING. THE DURATION
RESTART.
OR
START
NEXT
THE
UNTIL
ONLY
DROP, HOWEVER, IS
L id

i dd

i dddddddtd

ADD/UNITS:UNIT=LIST
(2222233342342 32224

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CMNOT

BE FOLLOWED BY A PROCEED.

e s 444

PRI(NT)
Ak

kh®

ALL STATISTICS TABLES ACCUMULATED BY THE

DIAGNOSTIC

ARE

THE ISR C(INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

(i d2 222222 d

PRINTED.

i itdddddddddsd

DIS(PLAY)/UNITS:<UNIT-LIST>
L2332 3 3232322222222 ddddddd]

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN
THE_FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED
BY THE CPERATOR ‘DROP'‘ COMMAND ARE SO DESIGNATED.
i 2224

FLA(GS)

4 4]
L2442

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
L2242 2434

ZFL(AGS)

L a2 i 2 ddd]

ALL FLAGS ARE CLEARED.

SEQ 0016

2
PAGE 17

EXTENDED P-TABLE DIALOGUE

2.4

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALED

THE

AS SOON AS THE QUESTION '# UNITS?'' IS ANSWERED (WITH THE NUMBER N)

SPACE IN CORE IS ALLOCATED FOR 'N'' P=TABLES. ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THERE IS A_ ONE-TO-ONE_ CORRESPONDENCE
gE;:EFg ’THE THARDUARE PARAMETER QUESTIONS AND THE SLOTS IN THE
=TABLE

FORMAT.

IN GIVING A STRING OF VALUES,

COMMAS WITHOUT INTERVENING VALUES MAY

BE USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.

IF
A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAHPLE)
TRANRANGE
THE _ VALUES REPRESENT PURE NUHERICAL DATA, THIS SAMPLE

SLATES TO THE STRING 6,7,8,9,10 (AN INCREMENT OF 1).

IF THE VALUES

?fi%a@ggggsggséTHE SAMPLE fiANGE TRANSLATES TO THE STRING 6,8,10 (AN

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A
SET OF P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE P-TABLE,
S HARDWARE QUESTIONS IN THE DIJALOGUE).
FOLLOWING IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM. THIS SYS=
TEM HAS TWO (2) RL11 TYPE CONTROLLERS ALL TO BE SET AT BR LEVEL

THE FIRST & DRIVES ARE RLO1'S AND THE LAST & DRIVES ARE

(ON THE SECOND CONTROLLER):

# UNITS (D) ? 8

0
UNIT

RL1T
(

BUS ADDDRES§660) 174400 ?
(0 57?
L
RLO1 (L) ¥ ?
=
TYPE
DRIVE
DRIVE (0) ? 0-3
UNIT &
Y
RL1T (L)

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 164
BR LEVEL (0) 5 ?
DRIVE TYPE R§01 (L Y?2N
DRIVE (0) ?

RL02'S

SE@ 0017

2
PAGE 18

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE DEFAULT VALUES ARE
USED FOR THE CONTRO m TYPE (QUESTION #1), CSR ADDRESS OF THE CON-

TROLLER (QUESTION #2), THE coumou. a vscrbn ASSIGNMENT= (QUESTION
THE "BR LEVEL'* (QUESTION
#
#3). THE DRIVE TYPE (QUESTION
WAS AS-

FOR QUESTION #6
THE fiu.ovs
UNIT NUMBERS OF
#4). THE ACTUAL FOR
SLOTS.
P-TABLE
&
FIRST
THE
THRU3
0
SIGNED

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT
ON THE SECOND CONTROLLER) THE FIRST QUESTION DEFAULTED TO 'RL11

REFLECT THE

ANSWERED TO
ON WAS
QU
THE SECOND
a 5400) § SECOND
RLOZ CWTROLLER
THE CHANGED
ADDRESSWASFORALSO
CSRVECTOR
CHANGE INR'S
TO 164 IN QUE

TYPE CONTROLLER.

CONTROLLE
RLO2 TEST UNIT NUMBERS WERE ASSIGNED VALUES 0 TO 3 IN OUESTIM 06
AND THE DRIVE TYPE WAS SET FOR RLO2'S FOR THE REMAINING &4 UNITS IN
?gEng‘ST gzgs QUESTION #4 WAS DEFAULTED USING THE 'BR LEVEL'' FROM
2.5

- HARDWARE PARAMETERS

THE
THE FU'.LOWING QUESTIONS WILL BE ASKED ON A START COMMAND.
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RL1T (L) Y?

ANSWER YES(Y) IF YC') HAVE AN RL11 CONTROLLER, NO(N) IF YOU HAVE
RLV1T CONTROLLER.

BUS ADDRESS (0) 174400?
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER.
VECTOR (0) 160?

ANSWER WITH THE INTERRUPT VECTOR OF THE CONIROLLER.
BR LEVEL (0) 5?

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER.
= RLOT (L) ?
DRIVE TYPE

ANSWER NO (N) IF DRIVE IS AN RLO2
DRIVE (0) 0?

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER.

SEQ 0018

2
PAGE 19

SOF TWARE PARAMETERS

2.6

THE FOLLOUING QUESTIONS ARE ASKED IF REQUESTED ON A START,

CONTINUE.

RESTART,

THEY ALLOW FLEXIBILITY IN THE WAY THEPROGRAM BE=

HAVES. THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
WAY IT RUNS. THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,
OR CONTINUE BY ANSWERING (Y)ES TO THE FOLI.OHING QUESTION:
*'CHANGE SwW ?*

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTION,
WITH THE PRESE?T DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK. (THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN
ON A <CR>.

“DROP ON ERROR LIMIT (L) v?*

TO ALLOW THE UNIT TO BE DROPPED ONCE A PREDETERMINED NUMBER OF

RORS ARE ENCOUNTERED.

ER-

ERROR INFORMATION

3.0

THE ERROR INCLUDES
ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE.
ERROR NUMBER, TYPE AND PROGRAM LOCATION. ERRORS INCLUDE REGISTERS
BEFORE AND AT ERROR WITH RELEVENT DATA.

3.1

ERROR REPORTING

ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DEvice. ERROR REPORTS ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT IS:
DZRL?

XXX

ERR

YYYYY

TST

2ZZ

3UB

PPP

PC:

RRRRRR

:
WHERE

IS PROGRAM LETTER
IS SFT = SOFT ERROR
HRD = HARD ERROR
DV FAT = DEVICE FATAL ERROR
SYS FAT = SYSTEM FATAL ERROR
IS THE ERROR NUMBER
YYYYY
IS THE TEST NUMBER
212
PPP
IS THE SUBTEST NUMBER
RRRRRR IS THE PROGRAM LISTING LOCATION

?
XXX

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR
ALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA

SEQ 0019

PAGE 20

EXAMPLE :
O~

ONE LINE DESCRIPTION
OPTIONAL SECOND LINE)
OPTIONAL THIRD LINE)

EFORE COMMAND: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
Tifix(x); ERROR: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX XXXXXX

3.2

ERROR HALTS

ERROR HALTS ARE SUPPORTED PER DESCRIBED
WITH /FLAG:HOE.

THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

SECTION

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.
4.2

PROGRESS REPORTS

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.
DEVICE INFORMATION TABLES

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.

— e ——
—

e
e
P

ey By b

= OPERATION INCOMPLETE
/8 = DRIVE SELECT (0-3)
= CONTROLLER READY
= INTERRUPT ENABLE
= EXTENDED BUS ADDRESS ( IT1
- EXTENDED BUS ADDRESS ( Im1
[ve]v]

(e ]evfecfor)

COMPOSITE ERROR
DRIVE ERROR

I
1
1
1

RLCS = CONTROL AND STATUS REGISTER (XXXXX0)

5.0

REGISTERS

FOR

SEQ 0020

2
PAGE 21

BIT 3-1 = FUNCTION CODE

SEQ 0021

2
PAGE 22

0 = NOP_(PDP=11) MAINT (LSI-11)
1 = WRITE CHECK

% - gsg DRIVE STATUS
& = READ HEADER
5 = WRITE DATA
6 = READ DATA
7 = READ WITHOUT HEADER COMPARE

BIT

0 - DRIVE READY

RLBA = BUS ADDRESS REGISTER (XXXXX2)
BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0

RLDA = DISK ADDRESS REGISTER (XXXXX&)
FOR READ/WRITE FUNCTIONS

BIT 15-7 = CYLINDER ADDRESS FOR TRANSFER
BIT 6 = SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (1-40.)
FOR SEEK FUNCTION

BIT 15-7 - DIFFERENCE TO NEW CYLINDER
= MUST BE ZERO (0)
BIT 6=5
BIT 4 - SURFACE (0=UPPER, 1=LOWER)
BIT 3 - MUST BE ZERO (0)
BIT 2 - SEEK DIRECTION( 1=IN / 0=0UT )
BIT 1 - MUST BE ZERO (0)
BIT 0 - MUST BE ONE (1)
FOR GET STATUS FUNCTION

BIT 15-4 - IGNORED SHOULD BE ZERO (0)
BIT
3 - DRIVE RESET
- MUST BE ZERO (0)
2
BIT
BIT 1 - MUST BE ONE (1)
BIT 0 - MUST BE ONE (1)
RLMP = MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

BIT 15 = 0 = WORD COUNT (TWO'S COMPLIMENT)

SEQ 0022

PAGE 23

FOR READ HEADER FUNCTION

BIT 150 = DISK HEADER OF SECTOR (FIRST READ)
- ZERO WORD (SECOND READ)
= HEADER CRC (THIRD READ)

FOR GET STATUS FUNCTION
HAS DRIVE STATUS

0 0

et Dot Bt Do Bt oy

g B Bt B

D 0o 0o b O T 0o o G GO O

bt B

e e e e e e e e e |

T 15 = WRITE DATA ERROR

14 = CURRENT HEAD ERROR (CHE)
13 = WRITE LOCK STATUS (WL)
12 = SEEK TIME OUT (SKTO)
11 = SPIN ERROR (SPE)
10 - WRITE GATE ERROR (WGE)
9 = VOLUME CHECK (V(C)
8 = DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE 1S RLO2 IF SET
6 = SURFACE (0=UPPPER, 1=LOWER)
5 = COVER OPEN
4 - HEADS HOME
3 = BRUSHES HOME
2-0 =STATE BITS
0 - LOAD STATE
1 - SPIN UP
[« AV, PLV

2 = BRUSH CYCLE
= LOAD HEADS

= SEEK = TRACK COUNTING
= SEEK = LINEAR MODE

= UNLOAD HEADS
7 = SPIN DOWN

TEST SUMMARIES

6.0

TEST 1 = RLCS ADDRESSABILITY

L24444

THIS TEST WILL CHECK THAT THE CONTROL AND STATUS REGISTER
CAN BE ACCESSED. IF THE REGISTER CANNOT BE ACCESSED THE
PROCESSOR WILL TRAP TO LOCATION 4, WHICH IS SET UP TO
HANDLE THE TRAP.

TEST 2 = RLBA ADDRESSABILITY
L22244

THIS TEST WILL CHECK THAT THE BUS ADDRESS REGISTER CAN BE
ACCESSED. IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP.

SEQ 0023

2
PAGE 24

TEST 3 = RLDA ADDRESSABILITY
Ak

THIS TEST WILL CHECK THAT THE DISK ADDRESS REGISTER CAN BE
ACCESSED. IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION &, WHICH IS SET UP TO HANDLE THE TRAP.
TEST & = RLMP ADDRESSABILITY

L i 4231

THIS TEST WILL CHECK THAT THE MULTIPURPOSE REGISTER CAN BE
ACCESSED. IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION &, WHICH IS SET UP TO HANDLE THE TRAP.
TEST 5 = PEAD WRITE OF RLCS
L i i 22l

THIS TEST WILL ATTEMPT TO WRITE RLCS BITS 9=1 AND READ_THEM

BACK.

WALKING AND GROWING 0°'S AND 1°'S ARE USED.

BIT 7 (CON-

TROLLER READY) IS ALWAYS WRITTEN AS A 1 SO NOT TO INITIATE
?H;gNggggfl. BITS 15, 14 AND O ARE TREATED AS DON'T CARE FOR

TEST 6 = READ WRITE OF RLBA
ARk

THIS TEST WILL ATTEMPT TO WRITE RLBA BITS 15-0 AND READ THEM

BACK. WALKING AND GROWING 0°'S AND 1'S ARE USED. BIT 0 ON
A RL11 SHOULD ALWAYS COME BACK AS A 0, WHILE ON AN RLV11
IT IS LOADABLE.

TEST 7 = READ WRITE OF RLDA
d
Rk

THIS TEST WILL ATTEMPT TO WRITE RLDA BITS 15-0 AND READ THEM
BACK. WALKING AND GROWING 0°'S AND 1°'S ARE USED.
TEST 8 - BIS OF RLCS
L24844

THIS TEST WILL USE THE 11 INSTRUCTION ‘BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS. BITS 9-1 ARE
SED, BIT SETTING N WALKING AND GROWING 0'S AND 1°'S. BIT
oofig?fl{:g%%ER READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE

SEQ 0024

PAGE 25

TEST 9 - BIC OF RLCS
L2424
]

THIS TEST WILL USE THE 11 INSTRUCTION 'BIC'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS. BITS 9-1 ARE
USED, BIT CLEARING IN WALKING AND GROWING 0'S AND 1°'S. BIT
7 (CONTROLLER READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE
DON'T CARES.

TEST 10 = BIS OF RLBA
h®
Ak

THIS TEST WILL USE THE 11 INSTRUCTION ‘BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS. BITS 15-0 ARE
BIT SET USING GROWING AND WALKING 0'S AND 1°S. BIT O CANNOT
SET ON A RL11, BUT CAN ON A RLV11.

TEST 1N = BIC OF RLBA
Ak

THIS TEST WILL USE THE 11 INSTRUCTION ‘BIC'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS. BITS 15-0 ARE
BIT CLEARED USING GROWING AND WALKING 0°'S AND 1°S.
TEST 12 = BIS OF RLDA
w
Ak

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLDA WORKS. BITS 15-0 ARE
BIT SET USING GROWING AND WALKING 0°'S AND 1°S.
TEST 13 = BIC OF RLDA
kA

THIS TEST WILL USE THE 11 INSTRUCTION "BIC'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLDA WORKS. BITS 15-0 ARE
BIT CLEARED USING GROWING AND WALKING 0°'S AND 1°S.
TEST 14 - BUS RESET OF
d
Akt

RLCS

THIS TEST WILL VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL

CLEAR ALL BITS OF THE RLCS WITH THE EXCEPTION OF BIT 7 (CONTROLLER READY), BIT O (DRIVE READY) AND BIT 15 (COMPOSITE ERROR)
IF BIT 14 (DRIVE ERROR) IS SET.

SEQ 0025

2
PAGE 26

TEST 15 = BUS RESET OF RLBA

L2 i 434

THIS TEST WILL VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL
CLEAR ALL BI TS OF THE RLBA.

TEST 16 = BUS RESET OF RLDA
L2 i 4243

THIS TEST WILL VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL
CLEAR ALL BITS OF THE RLDA.

TEST 17 = UNIQUENESS OF RLCS
i i 244y

THIS TEST WILL VERIFY THAT WHEN THE RLCS (XXXXX0) IS ADDRESSED
BOTH THE RLBA AND THE RLDA
ONLY THAT REGISTER IS EFFECTED.
ARE SET UP WITH KNOWN DATA, THE RLDA IS WRITTEN, THEN THE RLBA
AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

TEST 18 = UNIQUENESS OF RLBA
thkkkhw

THIS TEST WILL VERIFY THAT WHEN THE RLBA (XXXXX2) lS ADDRESSED
ONLY THAT REGISTER IS EFFECTED. BOTH THE RLCS AND RLDA ARE
WRITTEN WITH KNOWN DATA, THE RLBA IS WRITTEN, THEN THE RLCS

AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

TEST 19 = UNIQUENESS OF RLDA

L444444

THIS TEST WILL VERIFY THAT WHEN THE RLDA (XXXXX4) IS ADDRESSED
ONLY THAT REGISTER IS EFFECTED. BOTH THE RLCS AND RLBA ARE
THE RLDA IS WRITTEN, THEN THE RLCS
WRITTEN with KNOWN DATA,

AND RLBA ARE VERIFIED THAT THEY DID NOT CHANGE.

TEST 20 = UNIQUENESS OF RLMP

L222444

THIS TEST WILL VERIFY THAT WHEN THE RLMP (xxxxw IS ADDRESSED
ONLY THAT REGISTER IS EFFECTED. ms m.CS, RLBA AND RLDA ARE

WRITTEN WiTH KNOWN DATA,

THE RLMPIS WRITTEN, THEN THE RLCS,

RLBA AND RLDA ARE VERIFIED THAT ruev m NOTtr.mce.

SEQ 0026

3
PAGE 27

TEST 21 = NOOP FUNCTION
L2322l

THIS TEST WILL VERIFY THE OPERATION OF THE NOOP (0) FUNCTION

ON PDP=11"S ONLY,

FUNCTION.

SINCE ON AN LSI=11 IT IS A MAINTENANCE

"THE ABILITY OF CONTROLLER READY TO RESET AND NO

ERRORS ARE CHECKED.

TEST 22 = TEST NOOP DOES NOTHING
L i 2 dddds

THIS TEST WILL CHECK THAT THE NOOP FUNCTION WILL NOT DISTRUB
ANY REGISTERS OF THE CONTROLLER.

TEST 23 = TEST OF INTERRUPT

Lidd

THIS TEST WILL CAUSE AN INTERRUPT FROM THE CONTROLLER USING

NOOP (RL11 ONLY) TO CHECK THE INTERRUPT LOGIC AND VECTOR.
TEST 24 = TEST PRIORITY BR LEVEL

L2 2 4423

THIS TEST WILL CHECK THAT THE PROPER PRICRITY IS ON THE BOARD.
WE VERIFY THAT ABOVE THE LEVEL THE BOARD WILL NOT INTERRUPT
AND BELOW IT, IT WILL.

TEST 25

il s

- GET STATUS FUNCTION
THIS TEST WILL VERIFY THAT THE GET STATUS FUNCTION (2) WILL
COMPLETE CORRECTLY.
THE RLDA IS SET UP AND GET STATUS IS
ISSUED.
CONTROLLER READY IS CHECKED AS WELL AS ERROR BITS.
(FIRST TEST A DRIVE MUST BE PRESENT.)

TEST 26 = GET STATUS FUNCTION INTERRUPT
LA d

2 dd]

THIS TEST WILL VERIFY THAT THE GET STATUS FUNCTION WILL GEN-

ERATE AN INTERRUPT ON COMPLETION.

TEST 27 = GET STATUS FUNCTION GENERATES OPI
L224414

THIS TEST WILL PROVE THE ABILITY FOR OPI

(OPERATION INCOMPLETE) TO

SET AND THAT THE DRIVE COMMAND IS BEING_TRANSMITTED CORRECTLY.
THE COMMAND WORD (RLDA)
IS SET UP WITH THE MARKER BIT ONLY.
AN
OPI IS EXPECTED TO RESULT, THIS IS CHECKED.

SEQ 0027

(7]

c3
PAGE 28

TEST 28
- OF1 UNDER INTERRUPT
i

i il

THIS TEST WILL CHECK THE ABILITY OF AN OPI TO CAUSE
AN INTERRUPT
TO OCCUR.,
WE SEND ONLY THE MARKER BIT WITH THE GET STATUS
COMMAND AND EXPECT AN OPI ERROR.

TEST 30 = READ HEADER FUNCTION INTERRUPT
LA s

i il d]

THIS TEST WILL CHECK THE ABILITY OF THE READ HEADER FUNCTION
TO INTERRUPT ON COMPLETION.

TEST 31 = REPEATED RD HDRS YIELD SAME CYL AND HD
Lidddddd

THIS TEST WILL CHECK THAT ON REPEATED READ HEADERS THE CYLINDER
AND HEAD BITS OF THE HEADER WORD (RLMP) ARE ALWAYS THE SAME.

TEST 32 = CHECK OF HEADER CRC
i dddddd

THIS TEST WILL VERIFY THE HEADER CRC THAT FOLLOWS THE TWO
HEADER WORDS IS ACTUALLY THE CORRECT CRC=16 CALCULATION OF
THE TWO HEADER WORDS.

TEST 33 = CHECK CONSECUTIVE HEADERS
LA i

THIS TEST WILL CHECK THAT HEADERS ARE CONSECUTIVE.

TEST 34 = SEEK FUNCTION

L a2 244l

THIS TEST WILL CHECK THE SEEK FUNCTION (3) TO RESET CONTROLLER
READY AND POST NO ERRORS.
COMMAND WORD IS LOADED WITH A ONE
CYLINDER FORWARD SEEK.

TEST 35 = CHECK DRIVE READY ON SEEK
L i422414

THIS TEST WILL CHECK THAT DRIVE READY CLEARS AND RESETS ON
ISSUANCE OF A SEEK COMMAND.

SEQ 0028

3
PAGE 29

TEST 36 - SEEK FUNCTION INTERRUPT
)
LA s ddd

THIS TEST WILL CHECK THE ABILITY OF e ;EEK COMMAND TO GENERATE
AN INTERRUPT ON CONTROLLER READY RES TTING AND NOT ONE ON DRIVE
READY RESETTING.

TEST 37 - TEST DIFFERENCE WORD TRANSMISSION
whkhkdd

THIS TEST WILL TRY TO VERIFY THAT BITS 14-7, 6,

COMMAND WORD GET TRANSMITTED CORRECTLY. WE ISSUE SEEKS FROM

TRACK O WITH COMMAND WORDS OF WALKING AND GROWING 0°'S AND 1°S.
ALL SEEKS ARE VERIFIED WITH A READ HEADER AND RETURN TO TRACK
0 BEFORE NEXT PATTERN IS ISSUED.

TEST 38 = VERIFY HEAD SELECT O VIA RD HEADER
kA

THIS TEST WILL VERIFY THAT HEAD O CAN BE SELECTED AND READ VIA
READ HEADER.

TEST 39 - VERIFY HEAD SELECT 1 VIA RD HEADER
A2 43
Lia

THIS TEST WILL VERIFY THAT HEAD 1 CAN BE SELECTED AND READ VIA

READ HEADER.

TEST 40 = VERIFY HEAD SELECT 0 VIA GET STATUS
L2422 133]

THIS TEST WILL VERIFY THE WORD RETURNED TO THE RLMP BY A GET
STATUS CONTAINS THE RIGHT HEAD SELECT.
TEST 41 = VERIFY HEAD SELECT 1 VIA GET STATUS

L i 44444

THIS TEST WILL VERIFY THE WORD RETURNED TO THE RLMP BY A GET
STATUS CONTAINS THE RIGHT HEAD SELECT.

TEST 42 = TEST TIME AT WHICH DP WD GETS

i244444

THIS TEST WILL CHECK THAT THE DIFFERENCE WORD (RLDA) ACTUALLY
DOES GET TRANSMITTED PRIOR TO CONTROLLER READY RESETTII‘G.
THIS IS DONE BY ISSUING A SEEK, WAITING FOR CONTROLLER READY
THE SEEK IS THEN VERIFIED TO SEE IF
??Dlgfzbgagé¥6 THE RLDA.

SEQ 0029

3
PAGE 30

TEST 43 - EXTENSIVE CHECK OF CRC

LA 2 ddd

THIS TEST WILL MORE EXTENSIVELY CHECK THE CRC LOGIC BY POSITIONING AT DIFFERENT POINTS ON THE PACK AND CHECKING THAT THE
HEADER CRC RECEIVED IS CORRECT.

TEST 44 = VERIFY GET STATUS WHILE DRDY IS LOW
LA s i ddd]

THIS TEST WILL CHECK THE ABILITY TO PERFORM A GET STATUS WHILE
THE DRIVE IS SEEKING.

SEQ 0030

CZRLGCO RL11/RLV;1 CTLR TST 1

TABLE OF CONTENT

- 76
- 207
2

5= 107
6~
2
6~ 24
6~ 104
6~ 206
[
- 26
- S2
- 77
7= 102
7= 144
8- 1N
8- &4
8- 82
8- 118
8- 153
8- 185
8- 216
8- 248
8- 284
8- 310
8- 333

8- 375
8- 417
8- 461
8- 514
8- 543
8- 597
8- 634
8- 685
8- 710
8- 743
8- 773
8- 807
8- 823
8- 849
8- 897
8- 940
8-1014
8-1038
8-1068
8-1114
8-1237
8-1285
8-1332
8-1379
8-1427
8-1526
8-1661

MACRO V04.00

30-NOV-81 13:58:41

GLOBAL DAT
PATTERNS FOR DIFFERENCE WORD
GLOBAL TEXT

GLOBAL ERRORS

LOAD PROTECTION TABLE
INITIALIZATION CODE

AUTO DROP SECTION
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS
LOAD RLCS
ROUTINE TO CALCULATE CRC
**TEST 1++ = RLCS ADDRESSABILITY
«+TEST g-t = RLBA ADDRESSABILITY
**TEST 3+« -« RLDA ADDRESSABILITY
«*TEST 4+ = RLMP ADDRESSABILITY
**TEST S+« = READ WRITE OF RLCS
*«TEST 6** - READ WRITE OF RLBA
*«TEST 7+« = READ WRITE OF RLDA

*+TEST 8+ = BIS OF RLCS
*+TEST 9*+ « BIC OF RLCS
«+*TEST 10*+ - BIS OF RLBA
**TEST 11+« = BIC OF RLBA
«*TEST 12+« = BIS OF RLDA
*+TEST 13+« - BIC OF RLDA
**TEST 14*+ - BUS RESET OF RLCS
*+TEST 15+« = BUS RESET OF RLBA
«*TEST 16** = BUS RESET OF RLDA
*«TEST 17+*+ - UNIQUENESS OF RLCS
*«TEST 18+«+ - UNIQUENESS OF RLBA
*+TEST 19+« - UNIQUENESS OF RLDA
*+TEST 20*+ = UNIQUENESS OF RLMP
**TEST 21*+ = NOOP FUNCTIONCRL11 ONLY)
*«TEST 22+*+ = TEST NOOP DOES NOTHING (RL11 ONLY)
*«TEST 23+«+ « TEST OF INTERRUPT (RL11 ONLY)
**TEST 24*+ - TEST PRIORITY BR LEVEL
**TEST 25+« = GET STATUS FUNCTION
*«TEST 26+ = GET STATUS FUNCTION INTERRUPT
**TEST 27+« = GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
**TEST 28+* = OPI UNDER INTERRUPT
*xTEST §9t' = READ HEADER FUNCTION
«*TEST 30** - READ HEADER FUNCTION INTERRUPT
**TEST 31+« = REPEATED RD HDRS YIELD SAME CYL AND HD
*+TEST i" = CHECKX OF HEADER CRC
**TEST
33+« - CHECK CONSECUTIVE HEADERS
*+TEST
34+« - SEEK FUNCTION
**TEST 35+¢« -« CHECK DRIVE READY ON SEEK
*+TEST
36*+ = SEEK FUNCTION INTERRUPT
**TEST 37+« = TEST DIFFERENCE WORD TRANSMISSION
*«TEST
38+« - VERIFY HEAD SELECT O VIA RD HDR
**TEST 39+« = VERIFY HEAD SELECT 1 VIA RD HDR
«*TEST 40+~ = VERIFY HEAD SELECT O VIA GET STATUS

**TEST 41++ - VERIFY HEAD SELECT 1 VIA GET STATUS
*«TEST 42+« ~ TEST TIME AT WHICH DIF WD GETS TRANSMITTED
**TEST 43+« - EXTENSIVE CHECK OF HEADER CRC
«*TEST 44+x - VERIFY GET STATUS WHILE DRDY IS LOW

SEQ 0031

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1

.TITLE SVC.MLB SOURCE FILE
“MACRO _MSMC HIGH
BGNCI.N
«MCALL BCOMPL ,BERROR,BGNAU, BGNAUTO

SEQ 0032

GNDU.BGNHRD BGNHW,BGNINI ,BGNMOD ,BGNMSG , BGNPROT ,BG

VAWV
S S BB

8BS

WWWWNWWWWNWNW

NININININININININ)
= b b be e b b b

CLRVEC, COMME
BN
.aam.éaessrchoopcn.ocx.cwse ENDHW
<MCALL BGNSRV.BGNSUB,BGNSW,BGNTST
,ENDINI,
ENDHRD,
ENDDU,
L
E
ENDCLN,
mro
enfim.eno
oom
CLN
DODU
MCALL DISPAT,DISPLA,DO
.enioaenas
ERRHRD
enfior
sr
sowu.s
ésu.fnof
euoswisu
ENDSRV
END
f
§5&
ENDSE
i
"MCALL ENDRPT.ENDSEG.E
HEADER, IN
,GPRMD,
D,GMANIA, GMANID ,GMANIL GPHARD,
"MCALL FEQUAL.GETBYT E.GETPR
T
,RFLAGS,SE
EADEF
,READBU,R
X
NTS,PRINT
MEMORY
.opeu.mme.mmra
PRINTF
,PRI
"MCALL LASTAD ,MANUAL

xrém
"MCALL xrea.xfim
MSMCHIGH
"MACRO
-ENDM

"ENDM
"MACRO

MSMCHIGH
BCOMPLETE
INS

LABEL

LABEL)
OMPLETE
"MACRO BERROR LABEL
MSGNINS
"MCALL
LABEL>
MSGNINS <BCS
BERRM
-ENDM
GNAU
«MACRO

+MCALL

HSPUSH MSINCR,MSGNGBL

MSPUSH

TSNS TSNESTLEV, FSAU

MSINCR

TSTAGM.H

"MACRO

BCN

1$AU=F $BGN

TSSAU=TSTA

MSGNGBL LSAU
-ENDM
GNAUTO
-MACRO
<MCALL HSPUSH +MBINCR,MSGNGBL
1SAUTO=F $BGN
MSPUSH TSNS, TSNESTLEV,F $SAUTO
TSSAUTO=TSTAGNUM
MSINCR TSTAGNUM

+MCALL

HSPUSH MSINCR,MSGNGBL

ISCLN=F$BGN

MSPUSH

TSNS,TSNESTLEV, FSCLEAN

TSSCLEAN=TSTAGNUM

MSINCR TSTAGNUM
-MACRO

MCALL

HSPUSH MSINCR,MSGNGBL

MSPUSH

TSNS ISNESTLEV F$DU

1$DU=F $5GN

T$SDU=TSTAGNUM
HSINCR TSTAGM
MSGNGBL LS$DU
-MACRO

<MCALL

BGNHRD

HSGzUSH+MSINCR,MSGNINS ,MSGNGBL

1$HRD=F $8
MSPUSH TSNS, TSNESTI.EV FSHARD
TSSHARD=TSTA

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-1
MSINCR
IRP

58
§9

TSTAGNUM
TAG,<\TSSHARD>

nsgg'x‘us <.WORD L'TAG'=LSHARD/2>

e%
6

MSGNGBL LSHARD
BGNHRD
.ENDM

€6

MSPUSH TSNS, TENESTLEV, FSHW

MSGNINS <.WORD

7
7

74
75

MSGNGBL LSHW
MSGNGBL LABEL
asmu
.ENDM
"MACRO BGNINI

ISINIT=FSBGN

"MACRO BGNHW - LABEL

"MCALL

TSSHW=TSTAGNUM
nsmcn TSTAGNUM
RPN, <\TSSHW>

67
£
69

.ENDM

76
78

MSPUSH,MSINCR,MSGNINS ,MSGNGBL

MCALL

MSPUSH, muca MSGNGBL

MSPUSH

TSNS, TSNESTLEV,FSINIT

TSSINIT=TSTAGNUM

80
81
82
83

MSINCR TSTAGNUM
MSGNGBL LSINIT
BGNINIT
LENDM
"MACRO BGNMOD

ngemcisl. ARG

84
85
86
87
£8
89
90

L'N-LSHW/2>

ARG

"MCALL MSGNGBL ,MSPUSH
-IF NE r.seno-xip.oo
;'BGNMOD'’ IN MOD
"ERROR
CMEXIT
IFF
1$MOD=F $BGN
.ENDC
.IF NB ARG

MSPUSH TSNS, TSNESTLEV,FSMOD

98
99
100

1SMSG=F SBGN
nspusn TSNS, TSNESTLEV, FSMSG
T$SMSG=TSTAGNUM

95
96
97

.ENDM aemoo
ARG
"MACRO
MCALL nsmsu MSINCR,MSGNGBL

101
102

MSINCR TSTAGNUM
MSGNGBL ARG

104
105
106
107
108

"MACRO BGNPR
MCALL MSPUSH, mnca MSGNGBL
I$SPROT=F $BGN
MSPUSH TSNS,TSNESTLEV,FSPROT
TSSPROT=TSTAGNUM

103

109
110
m
11;
1
1%

.ENDM

semss

MSINCR tsnm
MSGNGBL LSPROT
.ENDM smor
"MACRO BGNPTAB
HCAI.L MSINCR nsoscn MSWORD ,MSGNINS ,MSGNTAG
NE FSBGN-1$S

SEQ 0033

.ERROR

; MISSING 'BGNSETUP''

-MEXIT
-ENDC
.IF_NE FSEND-ISPTAB

WISSING

ERROR '

"ENDPTAB

b cnd -

b b -

b -

b ) b b b )

ININININININININININ)
= bbbb

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-2

TSPCNT
MSDECR
.IF LE TSPCNT
MSWORD <0>

IFF
’.&ap N,<\TSPTAB>

GNINS <.WORD L°N>

b b b o

.ENDM
-ENDC

N,<\TSSDAT>
« IRP
MSGNINS <.WORD L°N-./2-1>
.ENDM

MSGNTAG L ,TSSPTAB

TSSPTAB=T$PTAB
«MACRO

TSSRPT=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL LSRPT
BGNRPT
.ENDM_
-MACRO BGNSEG
.MCALL MSPUSH,MSINCR,MS$SVC
1$SEG=F $BGN
MSPUSH TSNS, TSNESTLEV,FSSEG
TSSSEG=SSLSYM
MSPUSH TSSEK,TSSEGLEV,T$SSEG
MSINCR SSLSYM
MSSVC
CSBSEG
ENDM
ARG
.MACRO BGNSETUP
MSINCR
.JF NE FSEND - ISSETUP

€

.ERROR

-ERROR

; ONLY 1 SETUP!
TSLAST=1

;

"LASTAD' MUST PRECEDE ‘BGNSETUP'’

BGNRPT

<MCALL MSPUSH,MSINCR,MSGNGBL
ISRPT=F $8GN
MSPUSH TSNS, TSNESTLEV,FSRPT

JITEIRTRARZE

— e e e e o e

i e

e e e e o o o

) o

s e

W
I I T N
Y AV LV IV LY L T bt
it A2 S
VNS W= OVONOWVSWNN=OO

b —d et e

TSSDAT=TSTAGNUM
TSTAGNUM
MSINCR

MSINCR

TSTAGNUM

SEQ 0034

NN
-

b e e e o e o o md b

I=1=1=1=1=]

— e

b cnd

) b

b e

b b

D ad

D ) b

D b

D -

) b

B VRN A0 BB IC AR SS SRR REC 28 BEIR A RIS IRIF AN

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-3

.JF NB ARG

TSPCNT=ARG
T$SPC=ARG
.IFF

.ERROR ; MISSING # OF PTABLES
.
TSPCNT=1
.ENDC

.ENDM

-MACRO

acussrur

BGNSFT

"MCALL MSPUSH,MSINCR,MSGNINS,MSGNGBL
ISSFT=FSBGN
MSPUSH TSNS, TSNESTLEV,FSSOFT

TSSSOF T=TSTAGNUM

TSTAGNUM
MSINCR
'TAG,<\TS$SOFT>
IRP
ngeums <.WORD L'TA G' LSSOF 172>
MSGNGBL LSSOFT
BGNSFT
LENDM
"MACRO BGNSRV ARG
"MCALL MSPUSH,MSINCR,MSGNGBL
1$Skv=F $BGN
MSPUSH TSNS,TSNESTLEV,FSSRV
TSSSRV=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL ARG
BGNSRV
.ENDM
BGNSUB
MCALL MSINCR,MSGNSUB,MSPUSH,MSSVC

IF NE FSEND-ISSEG

IN SEG

-ERROR

;'BGNSUBTM

.JF NE
.ERROR

FSEND-ISSUB
;'BGNSUB"* IN SUB

.IF NE
.ERRO?

FSBGN-ISTST
:'BGNSUB'* NOT IN TST

+ENDC

1$SUB=F$BGN
wafl T$SUBNUM

MSGNSUB \TSTESTNUM,\T$SSUBNUM
<RADIX

HSPUSH

TSNS TSNESTLEV,F$SUB
TAGNUM

DM
"MACRO

BGNSUB
BGNSW

"MCALL

MSPUSH.MSINCR,MSGNINS,MSGNGBL

TSNS, rinesn.ev FSSW
MSPUSH
T$$SW=TSTAGNUM

MSINCR

RPN,

TSTAGNUM

<\TSSSW>

SEQ 0035

N NNV
&~
[T =ocv

&
sS5uyLERLURZET

SVC.MLB SOURCE fILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-4
MSGNINS <.WORD
.END M

L°N-L$SW/2>

MSGNGBL LSSV
MSGNGBL LABEL
.ENDM ~ BGNSW
.MACRO BGNTST

MCALL

_NUM
MSINCR,MSGNTEST ,MSPUSH,MSINCR

-ERROR

;*BGNTST''

.JF NE
.ERRO’;

FSEND=ISSEG
:"BGNTST'" IN SEG

JF NE
.ERROR

FSEND=ISTST
;'BGNTST'' IN TST

.IF NE FSEND-ISSUB

MEXIT

IN SUB

.IFF

ISTST=F$BGN
+ENDC

JIF B
MSINCR

NUM
TSTESTNUM

MSGNTEST

\TSTESTNUM

X 8
.
MSPUSH TSNS, TSNESTLEV,FSTEST
TSSTEST=TSTAGNUM
MSINCR TSTAGNUM
TSTSTSEQ=1
BGNTST
.ENDM
LABEL
.MACRO BNCOMPLETE
MSGNINS
-MCALL
LABEL>
MSGNINS <BCC
BNCOMPLETE
NDM
.MACRO BNERROR LABEL
-MCALL MSGNINS
LABEL>
MSGNINS <BCC
BNE RROR
.ENDM
.MACRO BREAK
+MCALL MS$SV(C
MSSVC
CSBRK
.ENDM
BRE
«MACRO BRESET
.MCALL MSSV
CSRESET
MSSVC
BRESET
.ENDM

07K ARG1,ARG2
-MACRO
-MCALL MSLDRO,M$SVC,MSRNRO

SEQ 0036

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-5
286

MSLDRO c"ARG1 CLOCK

290
291
292
293
29%
295

-MACRO
JMCALL
MSSVC
.ENDM
"MACRO
"MCALL

287

288
289

296
297

298
299
300
301
302

MS$SVC CSCLC

CLOCK
ARGZ
MSRNRO
CLO
.ENDM

CLOSE
MSSVC
CSCLOS
CLOSE
CLRVEC ARG
MSLDRO,MS$SVC

MSLDRO ARG, CLRVEC
MSSVC CSCVEC

CLRVEC
.ENDM
NUM
COMMENT
"MACRO
NUM
B
JF
TSTEMP=1
IFF

303
304

rsrenp-nun
.ENDC

306
ggg

TSTEMP
JREPT
'{;sGE SVCTAG

305

"1IF GE SVCTAG,.NLIST

SEQ,LOC,.BIN

310

\:/t\:/t\:/*\:/t\:/t\:/t\:/t\:/t\:/fi\:/t\:/t\:/t\:
;;/t\:/t\:/*\:/t\:/*
NLIST

313

JIIF GE SVCTAG..LIST

3209
311
312

314
315
316

317

318
319
320
321
322

§%z
325
326

ENDC
-END

.ENDM
.MACRO
"MCALL

COMMENT
DESCRIPT
MSDATA,MSGNINS

SEQ,LOC,BIN
STRING

MSDATA LSDESC..ASCIZ,</STRING/>

MSGNINS .EVEN
DESCRIPT
.ENDM
ARG
"MACRO DELAY
"MEALL nssulns
- .IF LT GSDELM=-ARG

Egg?k;ARGUMENT TO 'DELAY'' MUST NOT BE GREATER THAN 250
-ENDC
.IF B ARG

327

MSGNINS <MOV

£°,(PC)+>

329

MSGNINS <MOV

#'ARG',(PC)+>

331
332
333
334
335
336
337

MSGNINS <.WORD
MSGNINS <MOV
MSGNINS <.WORD
MSGNINS <DEC
MSGNINS <BNE
MSGNINS <DEC
MSGNINS <BNE

0>
LSDLY,(PC)+>
0>
=6(PC)>
.=4>
=22(PC)>
.=20>

340

srnluc
"MCALL MSDATA,MSGNIN

328

330

338
339

341

342

IFF

.ENDC

LENDM
-MACRO

DELAY
oevrvr

MSDATA Lsovrvfi..Asc11.</srn1uc/>
MSGNINS .EVEN

SEQ 0037

SEQ 0038

SVC.MLB SOURCE FILE MACRO V04.00 30-NOv-81 13:58:41 PAGE 1-6
y

.ENDM

DEVTYP

.MACRO
«MCALL

347
348
349
350
351

MSWORD \NUM
MSGNGBL LSDISPATCH
TSTEMP=1
NUM
+REPT
N <\TSTEMP>
« IRP

.RADIX

346

357

358
359
360

361
362
363
364
365
366
367
368
369

.IF NE ISSFT-FSBGN
"ERROR :'DISPLAY'' MUST BE IN H.W. OR S.W. QUES.
CMEXIT
ENDC

-ENDC

.IF B ARG
:
I
;MISSING '‘DISPLAY'* ARG.
CMEXIT
-ENDC

"ERROR

T$CODE=GSDISP
MSWORD <TSCODE>
MSWORD <ARG>
LENDM
DISPLAY
"MACRO DOCLN
"MCALL MSSVC
MSSVC
CSDCLN
.ENDM
DOCLN
"MACRO
DODU
ARG
"MCALL MSLDRO,MS$SVC
MSLDRO ARG,DODU
MSSVC
CSDODU

370
371
372

373
374
375

376

377
378
9

380

3
387

MSWORD T'N
+ ENDM
TSTEMP=TSTEMP + 1
.ENDR
.RADIX 8
DISPATCH
.ENDM
"MACRO DISPLAY ARG
"MCALL MSWORD
.IF NE ISHRD=-F$BGN

352
353
354
%gg

382
383
384
385

NUM

DISPATCH
MSWORD ,MSGNGBL

gzlo
5

.ENDM
"MACRO
-MCALL
MSSVC

.ENDM
"MACRO

DODU
DORPT
MSSVC
CSDRPT
DORPT
ENDAU

388
389
390

"MCALL MSPOP,MSGNTAG,M$SVC ,MSENDERR
MSPOP TSNS, TSNESTLEV, TSTEMP
.IF EQ FSAU-TSTEMP

9%
96

1$AU=F SEND
IFF
MSENDERR ENDAU, TSTEMP

391
392
§93
395

97
98

MSGNTAG L, T$SAU
SSLSYM=TSLSYM
MSSVC
CSAU

.ENDC
"ENDM

ENDAU

-MACRO ENDAUTO

SEQ 0039

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-7
LMCALL MSPOP,MSGNTAG,MSSVC,MSENDERR

MSPOP TSNS, TENESTLEV. TSTEMP

401

.IF EQ FSAUTO-TSTEMP
MSGNTAG L, T$SAUTO

40
40

SSLSYM=TSLSYM
ISAUTO=F SEND
IFF
" MSENDERR
:
.ENDC

404
405
406
407
408
409

MSSVC CSAUTO

ENDAUTO, TSTEMP

-ENDM
"MACRO

ENDAUTO
ENDCLN

413

MSPOP

TSNS, TSNESTLEV,TSTEMP

416

SSLSYM=TSLSYM

410
411

"MCALL

412

.IF EQ FSCLEAN-TSTEMP
MSGNTAG L, TSSCLEAN

414
415

MSSVC

417
419

420
421

422

424
425
. 426
427
428

439

ENDCLN

"IFB
TSTEMP=1

NUM

ENDCOMMENT

"IIF GE SVCTAG,.NLIST

"REPT

430

440

LENDC

"ENDM

ENDCLN, TSTEMP

JFF
TSTEMP=NUM
LENDC

429

43%
435
436
437
438

IFF

MSENDERR
"MACRO

423

433

CSCLEAN

ISCLN=F SEND

418

431
432

MSPOP,MSGNTAG,M$SVC ,MSENDERR

TSTEMP

NUM

SEQ,LOC,BIN

.IF GE SVCTAG
LIST

::/t\zlt\:/t\:/*\:/t\:It\:/t\:/t\:/t\:/t\:I*\:/*\:/t\:lfi\:/t\:/t\:/t\:

NLIST

.ENDC

-ENDR
"IIF GE SVCTAG,.LIST
"ENDM ENDCOMMENT
.MACRO

"MCALL

SEQ,LOC,BIN

ENDDU

MSPOP,MSGNTAG,MSSVC,MSENDERR

441
442

MSPOP TSNS, TSNESTLEV, TSTEMP
.IF EQ F$DU-TSTEMP

44k
445
446
447
448
449
450
451

SSLSYM=TSLSYM
MSSVC
CSDU
1$DU=FSEND
JIFF
MSENDERR ENDDU, TSTEMP
JENDC
"ENDM
ENDDU
.MACRO ENDHRD

443

l.sg

MSGNTAG L, T$SDU

"MCALL

MSPOP,MSGNINS ,MSGNTAG,MSENDERR

TSNS, TSNESTLEV, TSTEMP

MSPOP

455

MSGNINS .EVEN

45%

456

.IF EQ FSHARD-TSTEMP

MSGNTAG L,TSSHARD

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-8

SSLSYM=TSLSYM
x}ggo=rss~o

ENDHRD, TSTEMP

MSENDERR
.ENDC

"ENDM
"MACRO

"MCALL

MSPOP

ENDHRD
ENDHW

MSPOP,MSGNTAG,MSENDERR

TSNS, TSNESTLEV,TSTEMP

JIF EQ FSHW=TSTEMP
MSGNTAG L, TSSHW
sgkgvn=rsstn

ENDHW, TSTEMP

fissggsnn
.E

"ENDM
"MACRO

"MCALL
MSPOP

ENDHW
ENDINIT

MSPOP,MSGNTAG,MSSVC ,MSENDERR
TSNS, TSNESTLEV, TSTEMP

.IF EQ FSINIT-TSTEMP

MSGNTAG L,TSSINIT
SSLSYM=TSLSYM
CSINIT
MSSVC
FSEND
ISINIT=
. IFF

ENDINIT,TSTEMP

MSENDERR
+ENDC

.ENDM
«MACRO
.MCALL
.

ENDINIT
ENDMOD
MSPOP,MSENDERR
1$MOD

MEXIT

ENDC

TSNS, TSNESTLEV,TSTEMP
MSPOP
.IF NE FSMOD-TSTEMP

, TSTEMP
ENDMOD

MSFNDERR
.ENDC

"ENDM
"MACRO

"MCALL

MSPOP

ENDMOD
ENDMSG

MSPOP,MSGNTAG,MSSVC ,MSENDERR

TSNS, TSNESTLEV, TSTEMP

.IF EQ FSMSG-TSTEMP

MSGNTAG L,TSSMSG
SSLSYM=TSLSYM
MSSVC
CSMSG
1$MSG=F SEND
. IFF

MSENDERR
+ENDC

ENDMSG, TSTEMP

ENDMSG
.ENDM
.MACRO "ggDPROT
MSPOP
-MCALL
MSPOP TSNS, TSNESTLEV, TSTEMP

.IF NE FSPROT-TSTEMP

SEQ 0040

—

N
A Y St
ININOINI NI NI NININININ)
= e cd
b ok
AT IRTN1t
v S WA= 3 VOO NO"VISNMIAN
= O VO NON NI

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-9

544
545
546
547
548
549

550

551
ss§
55
554
555
556
557
558
559
ggg

sog
55

564
565
S48
567
568

569
570

+ERROR
«MEXIT

;MISSING BGNPROT

—

ENDPROT
-ENDM_
-MACRO ENDPTAB
.MCALL MSGNTAG
JIF NE FSBGN = ISPTAB
ERROR
; MISSING 'BGNPTAB"
<ENDC
ISPTAB=F $END
MSGNTAG L, TSSDAT
.ENDM
ENDPTAB
«MACRO
+MCALL

ENDRPT
MSPOP_,MSGNTAG,M$SVC ,MSENDERR

MSPOP
TSNS, TSNESTLEV, TSTEMP
.IF EQ FSRPT-TSTEMP

MSGNTAG L, TSSRPT

SSLSYM=TSLSYM

MSSVC

_CSRPT
I$RPT
FSEND
IFF
ngsggsna
-ENDM
.MACRO

MCALL

ENDRPT, TSTEMP

ENDRPT
ENDSEG

MSPOP,MSGNLS,MSSVC,MSENDERR

MSPOP
TSNS, fsuesn.ev. TSTEMP
.IF EQ FSSEG-TSTEMP

M$POP

rgggérssectsv.msec

MSGNLS
MSSVC
CSESEG
.IF EQ TSSEGLEV+1
I$SEG=F SEND
.ENDC
IFF

MSENDERR

ENDSEG, TSTEMP

.ENDC
-ENDM
ENDSEG
.MACRO ENDSETUP
-IF NE FSBGN = ISSET
p:
.ERROR ; MISSING acnssrup
.nsxn
-END
xsserupFSEND
IF NE TSSPC - TSPTN
.Ezgoa: PTABLE COUNT INCORRECT

TSFREE=.
T$SI1ZE=.=LSLAST / 2

TSPTHV=TSPTNUM
.ENDM
ENDSETUP
-MACRO ENDSFT
.MCALL MSPOP,MSGNINS ,MSGNTAG,MSENDERR
MSPOP TSNS, TSNESTLEV, TSTEMP

.IF EQ FSSOF f=TSTEMP
MSGNINS .EVEN

SEQ 0041

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV 81 13:58:41 PAGE 1-10
57

MSGNTAG L,TSSSOFT

5§75

MSENDERR

578

"MACRO

§7.
57
5§74
576
577

579
580
581
582
583
584
585

586
587

SSLSYM=TSLSYM
T=F SEND
1$SF
IFF
.ENDC
"ENDM

ENDSFT
ENDSRV

ENDSFT, TSTEMP
ARG

'MCALL MSPOP,MSGNTAG,MSGNINS,MSENDERR
MSPOP TSNS, TSNESTLEV, TSTEMP
.IF EQ FSSRV-TSTEMP
MSGNTAG L,TSSSRV
SSLSYM=TSLSYM
.IF NB ARG
MSGNINS <BICB

MSGNINS <BISB
.ENDC

#340,2(SP)>

ARG,2(SP)>

588
589
590

MSGNINS RTI
1$SRV=F SEND
IFF

592
593

.ENDC
"ENDM

ENDSRV

"MCALL

MSPOP,MSGNTAG,M$SVC ,MSENDERR

591

594
595
59

MSENDERR

ENDSRV, TSTEMP

.MACRO ENDSUB

"IF EQ FS$BGN-I$SUB

597
598

1$SUB=F SEND
IFF

600
601
602
603
604
605
606

CMEXIT
-ENDC
MSPOP TSNS, TSNESTLEV,TSTEMP
.IF EQ FSSUB=TSTEMP
MSGNTAG L,TS$SUB
SSLSYM=TSLSYM
MSSVC CSESUB

599

ggg
ggg

"ERROR

;MISSING 'BGNSUB''

1ssuaFSEND
nsmctsaa

ENDSUB, TSTEMP

611
612

"ENDM
.MACRO

61%
615

MSPOP TSNS, TSNESTLEV, TSTEMP
JIF EQ FSSW=-TSTEMP

613

616

g};
619
620

621
622
623
624

"MCALL

ENDSUB
ENDSW

MSPOP,MSGNTAG,MSENDERR

MSGNTAG L,T$SSW

sgu.sm-rsl.sm
MSENDERR
.ENDC

ENDSW, TSTEMP

ENDM snosu
"MACRO ENDTST
m:Au. MSPOP, nssnm M$SVC,MSENDERR
F EQ FSBGN-ISTS

625

msr- SEND

627

"ERROR ;MISSING ‘BGNTST

626

IFF

SEQ 0042

SEQ 0043

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-11
628

JMEXIT

MSPOP

-ENDC

€31

632
633
634
635
€36

637

638
639
640
641
642

TSNS, TSNESTLEV,TSTEMP

.IF EQ FSTEST=TSTEMP

MSGNTAG L,TSSTEST
SSLSYM=TSLSYM
CSETST
MSSVC
1$TST=FSEND
LIFF

ENDTST,TSTEMP

MSENDERR
.ENDC
"ENDM
"MACRO
LIST

ENDTST
EQUALS

222

: BIT DIFINITIONS

645
646
647
648
649
650
651
652
653
654
655
656
657

BIT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11== 4000
BIT10== 2000
BIT09== 1000
BIT08== 400
BIT07== 200
BIT06== 100
BIT0S== 40
BIT04== 20
BIT03== 10

666
667
668
9
670
2;1

BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

658
659
660
661
662
663
664
665

BIT02== 4
BITO1== 2
BIT00== 1
:
BIT9== BIT09
BIT8== BITO8
BIT7== BITO07
BITé== BIT06

BITOS
BIT04
BITO3
BIT02
BITO1
BIT00

* EVENT FLAG DEFINITIONS

676

EF.START==

682

;

g;g
677
678
679
ggg

232

* " EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .RESTART==
EF.CONTINUE==
EF .NEU==
EF .PWR==

1.
30.
59.
8.

* PRIORITY LEVEL DEFINITIONS

: START COMMAND WAS ISSUED

* RESTART COMMAND WAS ISSUED
* CONTINUE COMMAND WAS 1SSUED
* A NEW PASS HAS BEEN STARTED
* A POWER-FAIL/POWER-UP OCCURRED

PR107==

PRI06==

(1]
n

ol
0

PRI0S==

-t = NINI NN
COHOHhON
OO0O0O00O

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-12

PRIO1== &
PRI0O== 0

LOT==

ADR==

IDU==

ISR==
UAM==
BOE==
PNT==

PR]l==

1
2
4

EvL==

OO0 o=
[=l=l=1=]<] ocoocoos~

*OPERATOR FLAG BITS

IXE==
IBE==
1ER==

40
100
20000

NDM

EQUALS

.ENDM

ERRDF

+MCALL

MSERRINS

ENDM
«MACRO
+MCALL
MSSVC
.ENDM

ERRHRD
ERROR
MSSV(C
CSERROR
ERROR

-MCALL

MSERRINS

.ENDM
.MACRO
+MCALL

ERRSF
ERRSOFT NUM,MSGADR,PNTR
MSERRINS

NUM,MSGADR,PNTR
.MACRO SI;RDF
ERRINS
<MCALL
NUM_,MSGADR,PNTR, CSERDF
MSERRINS

.MACRO

ERRHRD

MSERRINS

.MACRO

ERRSF

MSERRINS

NUM,MSGADR,PNTR

NUM,MSGADR ,PNTR, CSERHRD

NUM_MSGADR,PNTR

NUM,MSGADR,PNTR, CSERSF

NUM,MSGADR ,PNTR,CSERSOF T

ERRINS

ERRSOFT
+ENDM_
«MACRO ERRTBL
+MCALL MSGNGBL
MSGNGBL LSERRTBL

LENDM

T UNLIST
ERRTBL

SEQ 0044

SEQ 0045

SVC.MLB SOURCE FILE MACRO V04.00 30-NOv-81 13:58:41 PAGE 1-13
74

764

JMACRO

‘MCALL

NAME

ESCAPE

MSSVC ,MSGETTOP,MSESCAPE ,MSESCSEG

T$FLAG=FSEND

745

if IDN <T$T> <NAME>

7%
748

749

rsrussmsr
JENDC
"IF IDN ,<NAME>

751

TSFLAG=1$SUB

75
754
755

"IF IDN <SEG>,<NAME>
TSTEMP=TSSSEG
TSFLAG=1$SEG

757
758
759

"IF EQ TSFLAG-FSBGN
CSESCAPE
MSSVC
JIF IDN <SEG>,<NAME>

750
75

756

TEMP=TSSTEST

TSTEMP=TSSSUB"
.ENDC
.ENDC

760
761
762
763

MSGETTOP rsssx.rssesl.sv TSTEMP
\TSTEMP
MSESCSEG
IFF
\TSTEMP
MSESCAPE

767

"ERROR

764
765
766

768

769

770
7
772
773
77%

775

776
777
778
779
780
781
;gg
784
785
786
787
788

789

790
791
79
79
79
795
796
797
798

.ENDC
JMEXIT
-ENDC

:ILL.

-ENDM

Escv

MSWORD

JSJMP

"MACRO

"ESCAPE NAME''

EXIT

STMT.

NAME

,XFER
"MCALL MSSVC.MSEXIT,MSEXSEG,MSEXTJ,MSGETTOP,MSCHECK,MSWORD
SEND
TSFLAG=F
MSCHECK NAME,TSTEMP,TSFLAG
.IF EQ TSFLAG-FSJMP

MSEXTJ \mem

CMEXIT
-ENDC
"IF EQ TSFLAG-FSBGN
MSSVC CSEXIT
.IF IDN <SEG>,<NAME>
MSGETTOP TSSEK,TSSEGLEV,TSTEMP
nssxses \TSTEMP
nsexn \TSTEMP
ENDC
.nexn
-ENDC
-IF _IDN <HRD>,<NAME>
TSNS, TSNESTLEV, TSTEMP
MSGETTOP
IF EQ FSHARD-TSTEMP
N,<\TSSHARD>
.IRP
XFER - L'N
.ENDM
JMEXIT
“ENDC
-ENDC
IDN <SFT>,<NAME>
4
TSNS, TSNESTLEV, TSTEMP
MSGETTOP

SEQ 0046

& 882222333223§§§§§§§§§§§

SVC.MLB SOURCE FILE MACRO V04.00 20-NOV-81 13:58:41 PAGE 1-14
.IF EO
« IRP

XFER

+ERROR

JENDM

FSSOFT-TSTEMP
N'<\TSSSOF TM
L'N

;ILL. "EXIT NAME'' STMT,

EXIT

.mglrao FEQUAL

Q.JOFN==

5
6
7
3
9

Q. JOEF==
Q.10SB8==
Q.10AE==
Q.10PL==
1S.SUC==

‘
10
12
14
1

]‘,

0
1

822

824
82
826
827
828

* FUNCTION-LEVEL 170 DEFINITIONS

NLIST
"ENDM

FEQUAL

"MCALL

MSSVC,

"MCALL

MSSVC.MSRNRO

"MACRO

MSSVC

.ENDM
"MACRO
"MCALL

835

MSRNRO

836
837
838
839
840
841
84
84
844
845
846
847
848
849
850
851
asg
&5
854
855

* DIRECTIVE LOG UNIT NO.

: DIRECTIVE EVENT FLAG
: DIRECTIVE STATUS BLOCK
* DIRECTIVE AST ENTRY
: DIRECTIVE PARAMETER LIST
* REQUEST WAS SUCCESSFUL

GETBYTE AXG

CSGETB
0 ARG,GETBYTE
.ENDM GETBYT
"MACRO GETWORD ARG

MSSVC

831
832
833

834

Q. JOLN==

: DIRECTIVE FUNCTION

SVC

CSGETW
ARG,GETWORD

GETWORD
GETPRI ARG
MSSVC

CSGPR

ARG,GETPRI

- .ENDM GETPRI
"MACRO GMANIA SMSGADR,SDATADR,SRADIX,SLOLIM,SHILIM,SDFLT
RD
. MSINCR, GPRMA
R,MSWO
,MSGNLS
"MCALL MSSVC.MSGENS
CSGMAN
MSSVC
MSGENBR BR,\SSLSYM.$
:
MSWORD SDATADR
GPRMA SMSGADR,0,SRADIX,<SLOLIM>,<SHILIM>,SDFLT
MSGNLS
MSINCR SSLSYM
LENDM GMANIA
"MACRO GMANID SMSGADR,SDATADR,SRADIX,SMASK,SLOLIM,SHILIM,SDFLT
RD
,MS INCR, GPRMD
R,MSWO
,MSGNLS
"MCALL MSSVC.MSGENB
TSGMANID=1
MSSVC CSGMAN
BR,\SSLSYM,$
MSGENBR
MSWORD SDATADR
GPRMD SMSGADR,0,SRADIX,SMASK,<SLOLIM> ,<SHILIM>,SDFLT

MSGNLS
MSINCR SSLSYM
TSGMANID=0

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-15

856

LENDM

GMANID

GMANIL

859

MSSVC

CSGMAN

870

MSRNRO

ARG2, GPHARD

"MACRO

GPRMA

860
861
es;
86
864
865
806
867
868
869
871

872

873
874

MCALL MSSVC,.MSGENBR,MSWORD ,MSGNLS ,MSINCR, GPRML

MSGENBR BR,\SSLSYM,$
MSWORD SDATADR
$MSGADR, 0, SMASK ,SDFLT
MSGNLS
MSINCR SSLSYM
LENDM GMANIL
"MACRO GPHARD ARG1,ARG2
"MCALL MSLDRO,MSSVC.MSRNRO
MSLDRO ARG1,GPHARD
MSSVC CSGPHRD
.ENDM

GPHARD

SMSGADR,SOFFSET,SRADIX,SLOLIM,SHILIM,SDFLT,SCOUNT

"MCALL MSRADIX,MSDEFAULT,MSEXCP,MSWORD ,MSCNTOP
.IF IDN
A,SRADIX

875
876
877

.eanon : INVALID RADIX
-ENDC
rsrem=sorrsem

79
880
881

-ERROR .ooo orrssr
“ENDC
"IF LT GSOFSIZE-SOFFSET

878

SMSGADR,SDATADR,SMASK,$DFLT

857

'MACRO

858

JF NE

.Eanccm:OFFSET TO0O BIG

884
855
886
887
888
889
890
891
892
893
89%
895
896

T$CODE=csrm + <SOFFSET * GSOFFSET>
MSRADIX SRADIX,TSTEMP
rscoos rscoos TSTEMP
SDFLT,TSTEMP
MSDEFAULT
TSCODE=TSCODE ! TSTEMP
TSEXCP=0
MSEXCP TSCODE,TSEXCP,GSLOLIM,TSLOLIM,SLOLIM
MSEXCP TSCODE rsexcp*GSHILIM.TSHILIM.SHILIM
MSCNTOP <scouuf> <T$CODE>
MSWORD <TSCODE,$MSGADR, TSLOLIM, TSHILIM>
.IF NE TSEXCP
MSWORD TSEXCP
JENDC

899
900
901
902
903
904
905
906
907
908
909

.ENDC
"ENDM GPRMA
‘MACRO GPRMD SMSGADR,SOFFSET,SRADIX,SMASK,SLOLIM,SHILIM,SDFLT,SCOUNT
"MCALL MSRADIX,MSDEFAULT,MSEXCP,MSWORD ,MSCNTOP
-IF IDN A,SRADIX
"IF EQ TSGMANID
a
"ERROR :;ASCII RADIX VALID ONLY ON ‘‘GMANID
ENoc
;
TSTEMP=SOFF SETR1
JJF NE TSTEMP & 1

897
898

910
911
912

-IF N8 SCOUNT
MSWORD <SCOUNT/2>

-ERROR
-ENDC
JIF LT

;ODD OFFSET

GSOFSIZE-SOFFSET

SEQ 0047

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-16
;OFFSET TOO BIG

.ERROR
-ENDC

TSCODE=GSPRMD + <SOFFSET * GSOFFSET>

MSRADIX SRADIX ‘TSTEMP

rscoos-rscoos
MSDEFAULT

TSTEMP

$DFLTT,TSTEMP

TSCODE=TSCODE! TSTEMP
TSEXCP=0

MSEXCP

TSCODE,TSEXCP,GSLOLIM,TSLOLIM,SLOLIM

MSEXCP TSCODE . TSEXCP.GSHILIM,TSHILIM,SHILIM
MSCNTOP <SCOUNT>,<TSCODE>

a SMASK, TSLOLIM, TSHILIM>
MSWORD <rscoos.§nscAo
TSEXCP
JIF NE
MSWORD TSEXCP
.ENDC
"IF N8 SCOUNT
MSWORD <SCOUNT/2>
GPRMD

"MACRO
MCALL

SMSGADR,SOF>SET,SMASK, som $COUNT
GPRML
MSRADIX ,MSDEFAULT,MSWORD ,MSCNTOP

F NE
-ERROR

TSTEMP

JF LT

GSOFSIZE-SOFFSET

rsrsnp=sorrseri

.ERROR
.ENDC

;0DD orrssr
;OFFSET TOO BIG

T$CODE=GSPRML Om<SOFFSET * GSOFFSET>

L,TSTE
MSRADIX
TSCODE=TSCODE ! TSTEMP
MSDEFAULT
SDFLT,TSTEMP

TSCODE=TSCODE ! TSTEMP
R,
SMASK>
MSWORD <TSCODE,$MSGAD
MSCNTOP <SCOUNT>,<TSCODE>
.IF N8 SCOUNT
MSWORD <SCOUNT/2>

"MACRO
L
S$HAPT

.ERROR

GPRML

HEADER

FILNAM,REVLEV,DEPO,LONGST,DIAGTYPE
,DIAGPRIO

T ,MSHNAP
FILNAM,REVLEV,DEPO,LONGST,DIAGTYPE ,DIAGPRIO

OSPOINTER

;'POINTER'* MUST PRECEDE °‘HEADER'

NLOOP

-MACRO wssrup FUNC ’JGICAL EVENT, IOSTAT., I0AST, PARAMS

,:,'}5"" MS$BYT
nsuoab M$10SE
<1,
12

MSWORD :rung.n.osxcm

MSWORD <IOSTAT,IO0AST>

SEQ 0048

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-17
970
971
97

MSIOSET PARAMS
IOSETUP
.ENDM
.MACRO IOSTART ADR,ERR

975
976
977

C$QIO0
MSSVC_
.JF N8_ ERR
MSSTART ERR

97
974

$838 8882222 RBERRIET

978

.MCALL MSGNINS ,MSSVC MSSTART
ADR,=(SP)>
MSGNINS <MOV
-ENDC

.ENDM

IOSTART

E
, SUP,USE
DPAG

MACRO

KT11

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

.LIST

s*KT11 VECTOR ADDRESS
MMVEC=

250

s*KT11 STATUS REGISTER ADDRESSES
177572
SRO=
177574
SR1=
177576
SR2=
172516
SR3=
.IF NB USE

s*USER "'I'' PAGE DESCRIPTOR REGISTERS

999
1000
1001
1002
1003
1004
1005
}889

UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDR4= 177610
UIPDRS= 177612
UIPDR6= 177614
UIPDR7= 177616
.IF NB DPAGE

}883

;*USER ‘D'’ PAGE DESCRIPTOR REGISTORS

1010
1011
1012
1013
1014
1015
1016
1017

UDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDR3= 177658
UDPDR4= 1776
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636

}8%?

s*USER '‘I'' PAGE ADDRESS REGISTERS

102%
102
1024
1025 .
1026

UIPARO= 177640
UIPAR1= 177642
UIPAR2= 177644
UIPAR3= 17764
UIPAR4= 17765

1019

SEQ 0049

.IF NB DPAGE

OOOOO%OOO
CO0D0ONNNN
W= O VN
$353538332523388
HNNN=O0O V0N
aN-‘OBDNOM

~
~
O~
o~

177660
-

v
>

o
"

s*USER “D’'* PAGE ADDRESS REGISTERS

s*SUPERVISOR *‘I'* PAGE DESCRIPTOR REGISTERS

SIPDRO=
SIPDR1= 1
SIPDR2= 1
SIPDR3= 1
SIPDR4= }
SIPDRS=
SIPDR6= 1
SIPDR7= 1722
.IF N8 DPAGE

NS NOONS N

VNN NN =O VRN

VNS W00

D D D b— e o
e e e o
d D o o o
e e

e o

o elelelelelelelel]
v

b— e e
b

SEQ 0050

s*SUPERVISOR 'D'* PAGE DESCRIPTOR REGISTERS
SDPDRO= 172220
SDPDR1=

0
o~
]

[7]

wm
—

]

m
w
wm

=4
o
el

[2]

e
and
s

b o

d e} )
D
b o= e omnd md el

o
<

$
b4

) b cd cd

b e

UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656

b e

W
R RRRRRRRRE W SIS
GRURS

e o

O0O0O0C OO (=l=lelelel=] o

NN
oo~

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-18

.IF N8 DPAGE

s*SUPERVISOR ‘D' PAGE ADDRESS REGISTERS

SVC.MLB SOURCE FILE MACRO V04.00 30-NOvV-81 13:58:41 PAGE 1-19

mé

1084
1085
1086
1087
1088
1089
1090
1091

SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264
SDPAR3= 172298
SDPAR4= 1722
SDPARS= 172272
SDPARG= 172274
SDPAR7= 172276

}832

s*KERNEL ‘'I'* PAGE DESCRIPTOR REGISTERS

1097
1098
1099
1100
1101
1102
1103
1104

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172308
KIPDR4= 17231
KIPDRS= 172312
KIPDR6= ]72314
KIPDR7= 172316

ugg

s*KERNEL ‘D'’ PAGE DESCRIPTOR REGISTERS

1109
1110
1111
1112
1113
1114
1115
1116

KDPDRO= 172320
KDPDR1= 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDR4= 172330
KDPDRS= 172332
KDPDRé= 172334
KDPDR7= 172336

}}}g

s*KERNEL ‘'I'* PAGE ADDRESS REGISTERS

1121
1122
1123
1124
1125
1126
1127
1128
}}%3

KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
.IF NB DPAGE

}}gl

s*KERNEL ‘D’'' PAGE ADDRESS REGISTERS

1092
}832

}}82

}}}g

113§

1134
1135
1136
1137
1138
1139
1140

+ENDC
-ENDC

.IF NB DPAGE

-ENDC

KDPARQ= 175360

KDPAR1= 172362
KDPAR2= 172364
KDPAR3= 17236
KDPAR4= 17237
KDPARS= 17237
KDPARG= 172374
KDPAR7= 172376

SEQ 0051

SVC.MLB SOURCE FILE MACRO Vv04.00 30-NOV-81 13:58:41 PAGE 1-20
1141
1142
114
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163

.ENDC
KT11
MACRO LASTAD
-MCALL MSGNINS ,MSGNGBL
MSGNINS .EVEN
TSLAST=1
.IF _EQ OSSETUP
MSWORD <0>
MSWORD <0>
IFF
MSGNINS <.WORD TSFREE>
MSGNINS <.WORD T$SIZE>
.ENDC
$VCGBL=0
MSGNGBL LSLAST
TSLINO=TSTESTNUM
.ENDM
LASTAD
“MACRO MANUAL
-MCALL MSSVC
MSSVC
CSMANI
.ENDM
MANUAL

1169
1170
171
1172
1173
1174
1175
1176

-MACRO OPEN _ ARG
MCALL MSLDRO,MSSVC
MSLDRO ARG,OPEN
MSSVC
CSOPEN
.ENDM
OPEN
-MACRO POINTER P1,P2,P3,P4,P5,P6,P7,P8,P9
-IRP PX,<P1,P2,P3,P4,P5,P6,P7.P8,P9>
IF _IDN’<ALL>,<PX>

NLIST
ENDM

1164
1165
1166
1167
1168

"MACRO MEMORY ARG
MCALL MSSVC,MSRNRO
MSSVC CSMEM
MSRNRO ARG, MEMORY
.ENDM_ MEMORY

1177
1178
1179

1180
1181
1182
1183

1184
1185
1186
1187
1188
1189
1190
1191
1192

119

119%

1195
119
119

OSBGNSF T=1
0SBGNRPT=1
OSGNSW=1
:

0SAPTS=1
0$AU=1
0$DU=1
OSERRTBL=1

SETUP=1
MEXIT
-ENDC
-IF_IDN <NONE>,<PX>
0SBGNSF T=
0SBGNRPT=
OSPOINTER=1

OSGNS
0SAPT

0SAU=

0$DU=

OSERRTBL=0
0$SE TUP=0
0SPOINTER=1

SEQ 0052

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV=-81 13:58:41 PAGE 1-21
MEXIT
.ENDC

.JF IDN <BGNSFT>,<PX>
0$BGNSFT=1
OSPOINTER=1

2
2
2
2

.JF IDN <BGNRPT>,<PX>
0$BGNRPT=1
OSPOINTER=1

238
239
240
241
242

.MCALL
.JF B
.ERROR
LMEXIT
-ENDC

.ENDC

.JF IDN <BGNSW>,<PX>
OSGNSW=1
OSPOINTER=1
.ENDC
.JF IDN <APTSTAT>,<PX>
0SAPTS=1
OSPOINTER=1
+ENDC
.JF IDN <BGNAU>,<PX>
0$AU=1
OSPOINTER=1
.ENDC
.JF IDN <BGNDU>,<PX>
0s$DU=1
OSPOINTER=1
+ENDC
.JF IDN <ERRTBL>,<PX>
OSERRTBL=1
OSPOINTER=1
.ENDC

.JF IDN <BGNSETUP>,<PX>
0SSETUP=1
OSPOINTER=1
.ENDC
-ENDM
.JF _EQ OSPOINTER

Pd
o

.ERROR

WWWNWWWNNI

N NN NI NI NI NN N = b cad e ccd and o od od b

W
~

e e i e e i e e i

o s e

D e e i e e D o

D D i o e D D e D e e D b e D e o D e D b D D

200
201
%og

NQNNNNNNNNNNNNNNNNNNNNNNNNNNMN KGR

D b

198
199

;ILL. ARGS. ON "‘POINTER'

POINTER

PRINTB

MSPRINT

FORM,P1,P2,P3,P4,P5,P6,P7,P8

FORM
;MISSING FORMAT

<PI>
IFB
MSPRINT CSPNTB,FORM
LMEXIT
.ENDC
<P2>
JF B
MSPRINT CSPNTB,FORM,<P1>

251
25§

,<P2>

i e e s e i e e

243
244
245
246
247
248

249
250

25
254

LMEXIT
ENDC

LMEXIT
.ENDC

SEQ 0053

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-22
1255

JF B

125
1258

LMEXIT
ENDC

<P&>

INT CSPNTB,FORM,<P1>,<P2>,<P3>

1%59

JF B

1%59

<P5>

1260

MSPRINT CSPNTB,FORM,<P1>,<P2>,<P3>,<P&>

1264

MSPRINT CSPNTB,FORM,<P1>,<P2>,<P3>,<P4>,<P5>

126
1268

,<P5><P4>
MSPRINT CSPNTB,FORM,<P1>,<P2>,<P3>,

LMEXIT
ENDC

1261
126§
126

JF B

1265
1269

1269
1270

1271

127%
127
1274

<P6>

MEXIT
ENDC

LMEXIT
.ENDC

UF B

<P8>

>
,<P5>,<P6> ,<P7>
MSPRINT CSPNTB,FORM,<P1>,<P2>,<P3>,<P4
LMEXIT
.ENDC

1275

MSPRINT CSPNTB,FORM,<P1>,<P2>,<P3>,<P4> ,<P5>,<P6>,<P7>,<P8>

1277

.MACRC

1276

.ENDM

PRINTB

1278
1279
1280
1281

.MCALL
.JF B
.ERROR
LMEXIT

MSPRINT
FORM
;MISSING FORMAT

1283
1284
1285
1286
1287
1288
1289

<PD>
JF B
MSPRINT CSPNTF ,FORM

1291
1292

1296

MSPRINT CSPNTF ,FORM,<P1>,<P2>,<P3>

1282

1290
1293
1294
1295

1297
1298

1299

1300

1301
130%
. 130

PRINTF

FORM,P1,P2,P3.P4,P5,P6,P7,.P8

.ENDC

LMEXIT
.ENDC

MEXIT
ENDC
JF B

LMEXIT
.ENDC
AF B

<P&>

LMEXIT
.ENDC
JF B

<P5>

LMEXIT
ENDC
JF B

<P&>

LMEXIT
ENDC
AF B

<P?>

LMEXIT
.ENDC
JF B

<PB>

MSPRINT CSPNTF,FORM,<P1>,<P2>,<P3>,<P4>

1304

,<P5>
MSPRINT CSPNTF ,FORM,<P1>,<P2>,<P3>,<P4>

1308

MSPRINT CSPNTF,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>

1305
1306
1307
1309
1310

131

SEQ 0054

5
6
7
8
o
0

d
—

H%:ggrt g:;z;;.FORH.<P1>,<P2>.<P3>,<P4>.<P5>,<P6>,<P7>.<P8>

"MACRO PRINTS FORM,P1,.P2,i-3,P4,.PS5,P6,P7,P8

.NEA%L MSPRINT
FORM

;MISSING FORMAT

4
5
6
27

MSPRINT CSPNTS,FORM
LMEXIT
ENDC
<P
JF B

1329
1330

1331

)

HfiP;{#T CSPNTF ,FORM,<P1>,<P2>,<P3>,<P4> ,<P5> ,<P6> ,<P7>

.ERROR
LMEXIT

b o

D d e

) D

=D D d

A N A A AN )

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-23

ENDC

UF B

<P1>

MSPRINT CSPNTS,FORM,<P1>
MEXIT
.ENDC

AUF B

1332

MSPRINT CSPNTS,FORM,<P1>,<P2>

1335

MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>

1333
1334

1336

- 1337
1338

1339

LMEXIT
.ENDC

JF B

LMEXIT
.ENDC

<P&>

JF B

LMEXIT
.ENDC
AUF B

<P6&>

1340

MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>,<P4>

1344

MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>,<P4>,<"'5>

1348

MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>,<P3>,<P5>,<P6>

1351

1352

,<P7>
MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>

1355

MSPRINT CSPNTS,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>,<P8>

1357

.MACRO

1341
1342
1343
1345
1346
1347

1349
1350
1353
1354

1356

1358
1359

1360
1361
‘ 136§

136

1364
1365
1366
1367
1368

MEXIT
.ENDC

AF B

LMEXIT
.ENDC

UF B

<P?>

<PB>

MEXIT
.ENDC

.ENDM

PRINTS

.MCALL
.JF B
.ERROR
LMEXIT
ENDC

MSPRINT
FORM
;MISSING FORMAT

AUF B

PRINTX

<P1>

FORM.P1,P2,P3,P4,P5,P6,P7,P8

MSPRINT CSPNTX,FORM
LMEXIT
.ENDC
<P2>
AF B
MSPRINT CSPNTX,FORM,<P1>

SEQ 005°

SVC.MLB SOURCE FILE MACRO Vv04.00 30-NOV-81 13:58:41 PAGE 1-24
1369
1370

LMEXIT
ENDC

1371
1 7;

,<P2>

1379

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>

1379

1380

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<P4>

138

1384

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<P4>,<P5>

1388

P4>>
,<P5>,<P6
MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<

1392

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>

1395

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>,<P8>

137
1374
1375

137
1378

1381
138%

1385
1386
1387

1389
1390
1391

1393
1394

1396
1397
1398

1399
1400
1401
1402
1403

1404

1405
1406
1407
1408
1409
1410
1411
141§

141

1414
1415

1416
14617

1418
1419
1420

14621
u;
14
1424
1425

MEXIT
ENDC
JUF B

MEXIT
ENDC

UF B

LMEXIT
ENDC

JF B

MEXIT
.ENDC

<P&>

<P5

<P6>

JUF B

LMEXIT
ENDC
JF B

<PB>

LMEXIT
.ENDC

.ENDM
.MACRO
.MCALL
MSSVC
.ENDM
.MACRO

PRINTX
RE
MSSV(C

CSRDBU
READBUS
READEF EFN

.MCALL
MSLDRO

MSLDRO.MSSVC
EFN,READEF

.MACRO
.MCALL
MSSVC
NRO
.ENDM
.MACRO
.MCALL

READEF
RFLAGS ARG
MSSVC,MSRNRO
CSRFLA
ARG,RFLAGS
RFLAGS
ARG
SETPRI
MSLDRO MSSVC

MSSVC
.ENDM

C$
SETPRI

MSSVC

MSLDRO

CSREFG

ARG, SETPRI

.MACRO SETVEC ARGI,ARG2,ARG3
+MCALL ngpur M$SVC HSGN&NS

T
MSSVC

#3,ARG1,ARGS,ARG
CSSVEC

MSGNINS <ADD

.ENDM
SETVEC
.MACRO SLASH
.;F B8 NUM
TSTEMP=1
IFF

#10.5P>

SEQ 0056

SEQ 0057

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-25
142

TSTEMP=NUM

1428
}2

TSTEMP
.REPT
SVCTAG
.{55?5

.ENDC

)‘2 1

:://///////////////{{4///////////////////////////////////////////

143
1‘0%‘0
1435

.ENDC
ENDR
.ENDM

1436
1437
14
1439
1440
1441

144

144
1644

1“5

1446

1447
1448
1449
1450

SLASH
.MACRO STARS
.JF B NUM
TSTEMP=1

"..........'........."..'.....'....'.....*'........'..'..'.'.

.ENDC
.ENDR
.ENDM
.MACRO

«NLIST

STARS
SVC

CSREVISION=3

145
1454
1455
1456
1457
1458
1459
1460

SVCINS==1
SVCTST==1
SV(SuB=~1
SV(GBL=~1
SVCTAG=~1
-RADIX
CSRESERV=0
CSETST=1

146%

CSESUB=

1499

CSCLEAN=10

1461

146
1464
1465
16466
1467
1468
1470
1471

1‘;;

14
1474
1475
1476

1477
1478

1479
1480
1481
1482

NUM

.IFF
TSTEMP=NUM
-ENDC
TSTEMP
"REPT
"IF GE SVCTAG
LSt

1451

1’05%

CSEDIT=

SUB=

SEG=4
CSESEG=5
CSCLP1=
CSR
CSESCAPE=8
CSINIT=
CSTPRI=
CSPNTB=

CSPNTX=1

CSPNTS=14
CSPNTF=
CSINLP=1
CSRFLA=1
C$BRK=
CSMSG=

C‘DRPT' 0
$RPT=2
C 355 75355
CSGETW=

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-26
1483
1484
1485
1689

148
1488
1489
1490
1491
149;
149
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
151

1S1§
151
1514
1515
1516
1517
1518

1519
1520
1521
152§
152
1524
1525
1526
1527
1528
1529
1530
1531
153§
153
1534
1535
1536
1537
1538
1539

CSGPLO=24
CSMEM=2
CSEXIT=2
CSRESET=27

CSOPEN=
CSCLOS=
CSCVEC=30
C$SVEC=31
CSGPRI=
C$SPRI=
CSGPHRD=.
CSGMAN=
CSDCLN=
CSCEFG=
CSSEFG= g
CSREFG=
CSMANI=4
C$DODU=41
CiAU=4§
3DU=4
CSERSF=44
CSERDF =45
CSERHRD=46
CSERSOF T=47
CSERROR=48
CSAUTO=49
CSCLCK=50
C$Q10=255
+RADIX

ESLOAD=35
ESEND=2100
TSTESTNUM=0
TSSUBNUM=0
TSERRNUM=(
TSTAGNUM=10000
TSLSYM=10000
TSTAGLEV=-1
TSNESTLEV==1
TSSAVLEV=-1
TSSEGLEV=-1
TSTSTMAC==1
TSTSTSEQ=0
TSPTNUM=0
TSLAST=0
TSGMANID=0
F $MOD=
FSTEST=1
FSSUB=§
F$SEG=
F $HARD=4
F$SOFT=5
FSINIT=6
FSCLEAN=7
F$SRV=10
FSMSG=11
FSRPT=12
1
F

SEQ 0058

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-27

1540

FSSW=14

1541
134
154
1544
1545

FSAU=15
FSDU=1
FSPWR=17
FSAUT0=20
FSPROT=21

1547
1548
1549
1550
1551
135¢
155
1554
1555
1556
1557
1558
1559

FSEND=41
F$JMP=50
1$MOD=F SEND
ISTST=F SEND
1$5UB=F SEND
I$SEG=F SEND
ISINIT=FSEND
ISCLN=F SEND
I$SRV=F SEND
1$MSG=F SEND
ISRPT=F SEND
1$AU=F SEND
1$DU=F SEND

1546

1560
1561
1562
1563
1564
1565
1566

1567
1568
1569
1570
1571
1572

1573

1576
1575
1576

1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1392
159
159
1595

1596

FSBGN=4

I$PWR=F SEND
1SPTAB=F SEND
1SAUTO=F SEND
ISPROT=F SEND
GSPRML=0
GSPRMA=1

I1$SETUP=F SEND

GSPRAD=2
GSDISP=
GSXFER=4
GSNO=0#D
GSYES=1#4D8
GSRADB=0#+D16

GSRADO=1+*D16

G3RADD=2+"D16
GSRADL=5+D16
GSRADA=6+D1

GS0F S17€=-D254
GSDELM=*D25
GSOFFSET=1#D256
XSOFF SET=1%4D256
GSCNTOP=1#4D128
GSEXCP=1#4D256
GSLOLIM=1
GSHILIM=2
XSALWAYS=0#4D16
XSTRUE=1+4D16
XSFALSE=2+4D16
0SBGNSF T=0
0$SBGNRPT=0
OSGNSU=0
0SAPTS=
0$AU=
0$DU=
OSERRTBL=0
0$SETUP=0

OSPOINTER=0

SEQ 0059

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-28

SEQ 0060

1597
1598

SSLSYM=TSLSYM
JSJMP=167

1601
1602
1603
1604

.JF EQ DIAGMCALLS
+MCALL MSMCHIGH
MSMCHIGH
+ENDC

1607
1608
1609

MSMCLOW
+ENDC
SVC
.ENDM

1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622

+MCALL
MSXFER
.ENDM
.MACRO
+MCALL
MSXFER
.ENDM
.MACRO
<MCALL
MSXFER
.ENDM
«MACRO

1625

+MCALL MSEXSE,MSINCR,MSDECR,MSSETS ,MSGETS ,MSGEN,MSGNIN,MSCOUN
,MSENDE ,MSRADI ,MSEXCP ,MSCHEC ,M$

1599
- 1600

1605
1606
1610

1623

1624

1626

.JIF NDF ASSEMBLY,
.JIF _NDF DIAGMCALLS,

ASSEMBLY=10
DIAGMCALLS=0

.IF EQ ASSEMBLY-10
+MCALL MSMCLOW
+MACRO

XFER

$TAG

MSXFER
XSALWAYS,STAG
XFER
XFERF
STAG
MSXFER
XSFALSE,STAG
XFERF
XFERT
S$TAG
MSXFER
XSTRUE,STAG
XFERT
MSMCLOW

+MCALL MSPUSH,MSPRIN,MSERR]I,MSMASK ,MSMSK1 ,MSXFER MS$IOSE MSSTAR, MSHAPT ,MSHNAP ,MSDATA MSGETT
M

.MCALL MSGNGB,MSGNLS,MSTSTL ,MSTLAB MSSVC,MSGENS,MSLDRO,MSRBRO ,MSRNRO,MSPUT ,MSPUT1 . MSWORD ,M$B
«MACRO

MSMCLOW

1628
1629
1630
1631
1632
633

.ENDM
.MACRO
-MCALL
MSINCR
MSSETS
.ENDM

MSMCLOW
MSPUSH STACK,LEVEL,VALUE
MSINCR,MSSETS
LEVEL
STACK,\LEVEL,VALUE
MSPUSH

235

.MCALL MSCOUNT ,MSPUT ,MSGNINS ,M$SV(
TSARGCNT=1

1627

D e

PANARRR FRRRXXR BEIE o

WN=O O

W=V~ NN

— e

e o

e e

e o o o

e o

.EN

.MACRO

MSPRINT CODE,FORMAT,P1,P2.P3,P4,P5,P6,P7,P8

MSCOUNT TSARGCNT,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>,<P8>
.JRP

MSPUT

.ENDM

N,<\TSARGCNT>

,<P8>
#N,FORMAT,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>

MSGNINS <MOV
MSSVC

CODE

SP,RO>

JRP

N,<\TSARGCNT*2+2>

"ENDM
"MACRO

MSPRINT
MSERRINS

HSGNINS <ADD

~#N,SP>

NUMBER,ADDRESS ,POINTER, CODE

"MCALL MSGNINS,MSWORD ,MSTSTLAB

MSSVC
CODE
.RADIX
.IF NB NUMBER
T}E?RMHMER

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-29
1654

1655
1656
1657
1658
1659

1660
1661
1662
166
1664
1665
1666
1667
1668
1669

1670

1671

1672
1673

.ERROR

;MISSING ERROR=NR

-ENDC
MSWORD \TSERRNUM
.RADIX 8
.IF NB ADDRESS
MSWORD ~ADDRESS

IFF
MSWORD 0
.ENDC
.IF NB POINTER
MSWORD POINTER
IFF

MSWORD 0
.ENDC
.ENDM MSERRINS
-MACRO MSMASK P1,P2,P3,P4,P5
-MCALL

MSWORD

.IRP NR,<P1,P2,P3,P4,P5>

1674

MSWORD NR
.ENDM
.ENDM _ MSMASK

1676
1677
1678

.MCALL
-NARG
MSWORD

1682

MSGETT

1684
1685
1686
1687
1688
1689
1690

.IF NE FSSOFT - TSCODE
-ERROR ;'’XFER'S'* MUST BE IN GPRM CODING.
-MEXIT
-ENDC
-ENDC
T$CODE=SADDRESS - .
.IF GT TSCODE-376

1675

1679
1680
1681

1683

1691
1692
1693

169
1695

-MACRO

MSMSK1 P1,P2,P3,P4,P5
MSWORD

.ENDM_ MSMSK1
-MACRO MSXFER SXFER,S$ADDRESS
-MCALL _MSGETTOP,MSWORD

TSNS, TSNESTLEV, TSCODE

.IF NE FSHARD - TSCODE

-ERROR
MEXIT
-ENDC

;"XFERTM' RANGE T00 BIG
°

T$CODE=TSCODE * XSOFFSET
TSCODE=TSCODE + GSXFER + SXFER

1696

MSWORD TSCODE

1698

"MACRO

1704
1705
1706

1707

1708
)

1709

WORD

IFF
MSWORD

P1
0

.ENDC
.IF N8 P2
MSWORD P2
IFF

MSWORD

0
°
L)

1702
1703

MSIOSET P1,P2,P3,P4,PS,P6

1701

MSXFER

.MCALL MSWORD
_IF N8 P

.ENDC
el

1699
1700

.ENDM

1697

SEQ 0061

SRR oaasu

)
o

t—

HSUgRD

.EN

.ENDM
.MACRO
+MCALL

MSIOSET
MSSTART ERR,?TAG
MSGNINS ,MSGNTAG,BNERROR
PC.ERR>

MSHAPT
TM

BNERROR TAG
MSGNINS ;:gfl

FILNAM,REVLEV,DEPO,LONGST,DIAGTYPE ,DIAGPRO

MSGNGBL ,MSGNINS ,MSBYTE ,MSDATA
FILNAM

: MISSING DIAG. NAME

—

MSGNGBL LSNAME,<<;DIAGNOSTIC NAME>>
TSARGCNT=D7
R,
<F ILNAM>
CHA
. IRPC
/CHAR/>
<.ASCII
MSGNINS
TSARGCNT=TSARGCNT=1
<JF LT TSARGCNT
.ERROR sPROG NAME TOO BIG
MEXIT
.ENDC
©

NNNIAN 3! \flguN—‘OOONOWbWNHOOONOM&W-‘

i e e D
D b ) D ad ) wd D b - b D b b b b b D ) - b - b
e i
e cd
b e b - D cnd b e b b e b wd b = b b —d i
NNNN NNNNNNNNNNNNNNNNNNNNNNY
SNNNY
NNNNNNNNNNNYN
-~
~ NNN ~
WWIN
W WWWNN NN NI NI NI NINININ) = b b b ed e b b b
S
S
bl Vi WIS
O
V0O~o wv Swn - OV~
W
RSO CONOWVSWN=O
~

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-30

+IF N8 R VLEV
DATA LSREV,.ASCII,</REVLEV/>,<<;REVISION LEVEL>>
.IFF

- ERROR
HSDAZA

; MISSING REV. LEVEL
LSREV, .ASCI1,</?/>,<<;REVISION LEVEL>>

.IF NB DEPO
MSDATA LSDEPO, .ASCII,</DEPO/>,<<;DEP0>>
JFF
.ERROR ;s MISSING DEPO.
MSDATA LSDEPO, .ASCI1,</2/>,<<;DEPO>>

SEQ 0062

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-31
1768

1769

};;?

JENDC

-IF EQ OS$SETUP

H???TA

LSUNIT, .WORD,0,<<;NUMBER OF UNITS>>

};;
1774

figzszA LSUNIT, .WORD, TSPTHV,<<:NUMBER OF UNITS>>
JIF B LONGST

};;g

H?géTA

1775

"ERROR

; LONGEST TEST TIME MISSING

LSTIML,.WORD,0,<<;LONGEST TEST TIME>>

};;g
1780
1781

figzezn LSTIML, .WORD,LONGST,<<:LONGEST TEST TIME>>
MSDATA LSHPCP, .WORD,LSHARD ,<<;POINTER TO H.W. QUES.>>
.IF EQ OSBGNSFT

};%g
1786

figzszA LSSPCP, .WORD,L$SOF T,<<;POINTER TO S.W. QUES.>>
MSDATA LSHPTP,.WORD,LSHW,<<:PTR. TO DEF. H.W. PTABLE>>

};gg

nfgéra

};3?
1792

figzszA LSSPTP, .WORD,L$SW,<<;PTR. TO S.W. PTABLE>>
MSDATA LSLADP, .WORD,LSLAST,<<:DIAG. END ADDRESS>>

};gg

nfg:rA

1796

MSDATA LS$STA,.WORD,0,<<:RESERVED FOR APT STATS>>

}797

1 799
1 800
1 gg;
1
1 803
1

LSSPTP, .WORD,0,<<;PTR. TO S.W. PTABLE>>

.IF EQ OSAPTS

.ENDC

1793

L$SPCP, .WORD,0,<<;POINTER TO S.W. QUES.>>

.IF EQ OSGNSW

1787

H?géTA

};gg

.IF B

"ERROR
nfggra

LSSTA, .WORD,0,<<:RESERVED FOR APT STATS>>

L$CO,.WORD,0

DIAGTYPE

; MISSING DIAG. TYPE
LSDTYP, .WORD,0,<<;DIAGNOSTIC TYPE>>

-IF IDN 0,DIAGTYPE

1ggg

H§g¢TA LEDTYP, .WORD, DIAGTYPE ,<<;DIAGNOSTIC TYPE>>

1806
}ggg
1809

.IF IDN 1,DIAGTYPE
H?géTA L$DTYP, .WORD ,DIAGTYPE,<<;:DIAGNOSTIC TYPE>>
MSDATA LSDTYP,.WORD,0,<<;DIAGNOSTIC TYPE>>

1811
1812
1813

"ENDC
"ENDC
ENDC

1810

1814

1815

1816

}g}g

LERROR

; INVALID DIAG. TYPE (0=DIAG, 1=EXERCISER)

MSDATA

LSAPT,.WORD,0,<<;APT EXPANSION>>

MSDATA LSDTP..WORD.L$DISPATCH,<<;PTR. TO DISPATCH TABLE>>
.IF B DIAGPRIO

H%??TA

LSPRIO, .WORD,0,<<;DIAGNOSTIC RUN PRIORITY>>

}3}3

fizzszA LSPRIO, .WORD ,DIAGPRIO, <<;DIAGNOSTIC RUN PRIORITY>>

1821

"ENDM

182%

182
1824

-MACRO
JMCALL
MSDATA

MSHAPT

MSHNAP

MSDATA,MSWORD AMSGNINS
LSENVI,.WORD,0,<<;FLAGS DESCRIBE HOW IT WAS SETUP>>

SEQ 0063

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-32
1825

1826
1827

1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840

1841
184%
184
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868

1869
1870

1871
187§
187
1874
1875
1879

187
1878
1879
1880
1881

MSDATA

LSEXP1,.WORD,0,<<;EXPANSION WORD>>

MSDATA LSMREV..BYTE.CSREVISION,<<;SVC REV AND EDIT #>>

MSGNINS <isvr£ csegxr>
EF,.WORD,
.<<;DIAG. EVENT FLAGS>>
MSDATA
M$WORD
MSDATA L$SPC, .WORD,0
.<<; POINTER TO DEVICE TYPE LIST>>
MSDATA LSvagf.UORD.L$DVTYP
.IF EQ 0$BGNR
MSDATA LSREPP, .WORD,0,<<;PTR. TO REPORT CODE>>
. IFF
. TO REPORT CODE>>
,
,<<;PTR
PP
,LSRPT
RE
MSDATA LS.WORD
.ENDC
MSDATA LSEXP4, .WORD,0
MSDATA LSEXP5,.JORD,0
.IF EQ 0SAU
MSDATA LSAUT, .WORD,0,<<;PTR. TO ADD UNIT CODE>>
. IFF
MSDATA LSAUT, .WORD,L$AU,<<;PTR. TO ADD UNIT CODE>>
.ENDC
.IF EQ 0$DU
MSDATA LSDUT, .WORD,0,<<;PTR. TO DROP UNIT CODE>>
. IFF
MSDATA L$DUT, .WORD,L$DU,<<;PTR. TO DROP UNIT CODE>>
.ENDC
+<<;LUN FOR EXERCISERS TO FILL>>
MSDATA LSLUN, .WORD,0
+<<;POINTER TO DIAG. DESCRIPTION>>
,LSDESC
MSDATA LSDESP, .WORD
.<<;GENERATE SPECIAL AUTOLOAD EMT>>
MSDATA oggkg?g[E"T'E‘LOAD
.IF EQ
MSDATA LSETP,.WORD,0,<<;POINTER TO ERRTBL>>
. IFF
MSDATA LSETP, .WORD ,LSERRTBL ,<<;POINTER TO ERRTBL>>
. ENDC
MSDATA LSICP, .WORD,LSINIT,<<;PTR. TO INIT CODE>>
MSDATA LSCCP. -WORD .LSCLEAN,<<;PTR. TO CLEAN=UP CODE>>
MSDATA LSACP. .WORD .LSAUTO,<<;PTR. TO AUTO CODE>>
MSDATA LSPRT . .WORD .LSPROT .<<:PTR. TO PROTECT TABLE>>
MSDATA LSTEST..WORD,0,<<; TEST NUMBER>>
MSDATA LSDLY, -WORD,0,<<:DELAY COUNT>>
MSDATA h;z&afi..uoao.b.<<:rrn. TO HIGH MEM>>
.ENDM
.MACRO MSDATA LABEL ,DTYPE ,DATA, COMMENT
+MCALL MSGNGBL ,MSGNINS
.IF NB COMMEN T
MSGNGBL LABEL ,<COMMENT>
.ENDC
.JF B COMMENT
MSGNGBL LABEL
.ENDC
MSGNINS <DTYPE DATA>
MSDATA
.E NDM
EL
, VALUE
STACK,LEV
-MACRO MSGETTOP
MSGETS
+MCALL
, VALUE
MSGETS STACK, \LEVEL
MSGETTOP
.ENDM
STACK,LEVEL,VALUE
.MACRO MSPOP
MSGETS
,MSDECR
«MCALL
JF LT LEVEL

SEQ 0064

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-87 13:58:41 PAGE 1-33
m;

.ERROR

LEVEL

; MACRO STACK UNDERFLOW

188
1884
1885
1886
1887
1888
1889
1890

JMEXIT
“ENDC
MSGETS
MSDECR
.ENDM
\MACRO
JMCALL
MSGEN

STACK,\LEVEL,VALUE
LEVEL
MSPOP
MSGNTAG $P,ST
MSGEN
SP,\ST,SVCTAG

189
189

.MACRO
-MCALL

MSGNTEST STN
MSGEN

1891

.ENDM

MSGNTAG

189%
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909

MSGEN T,'STN':,SVCTST
.ENDM nicmssr
.MACRO MSGNSUB $TN,S$SN
JMCALL MSGEN
MSGEN T'STN'.,°'$SN',SVCSUB
.ENDM MSGNSUB
.MACRO MSGNGBL TAG,COMMENT
"MCALL MSGEN
.
.IF NB,TAG
.IF NB.COMMENT
MSGEN TAG,:,SVCGBL,COMMENT
.ENDC
.IF B,COMMENT
MSGEN TAG,:,SVCGBL.< >
.ENDC
"ENDC

}3}‘5

qsen

wc.s.svms

1916
1917
1913
19

MSGEN
.ENDC
JENDM
.MACRO

\SSLSYM.$,SVCTAG

1910
1911
1912
1913

1920
1921

19;

"ENDM
MSGNGBL
.MACRO MSGNLS ARG
MCALL nsceu
.IF NB AR

JIIF LT TSTSTMAC. .MEXIT

JRADIX

.RADIX
MSINCR
LENDM
JMACRO

8
TSTSTSEQ
MSTSTLAB
MSTLABEL

LENDM

MSTLABEL

19
19

JMCALL
EN

1931

MSGNLS
MSTSTLAB

JMCALL MSTLABEL .MSINCR

1924
1925
193
19

\TSTESTNUN,\TSTSTSEQ
TST,SEQ

MSGEN
S'TST,$°'SEQ,SVCTAG

JMALRO MSSVC

CODE

19
19
19
1935
19

JMCALL MSGNINS,MSTSTLAB
MSTSTLAS
MSGNINS <TRAP
CODE>
LENDM
MSSVC
JMACRO MSGENBR $SBR,S$SSYM,S$STAG

MSGNINS <

-MCALL

nggx‘ns

$SSYM'SSTAG>

SEQ 0065

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-34
1939

1940
1941
194.;
194
1944
1945
1946
1947
1948
1949
1950
1951

1952
1953

1954

1955
1956

1957

1958

1959

.ENDM

SEQ 0066

MSGENBR

"MACRO MSLDRO ARG,NAME
"MCALL MSGNINS
JIF NB mg
"IF DIF RO,ARG
ARG,RO>
MSGNINS <MOV
LENDC

S
IFF
"ERROR ;MISSING ARG. ON ''NAME
"ENDC
"ENDM MSLDRO

"MACRO MSRBRO ARG,NAME
"MCALL MSGNINS
.IF NB ARG
- IF DIF RO,ARG
RO,ARG>
MSGNINS <MOVB
.ENDC
JIFF

"ERROR

;MISSING ARG. ON 'NAME'

"ENDM

MSRBRO

ENDC

1960
1961
1962
1963
1964
1965
1966
1967
1968
1969

"MACRO MSRNRO ARG,NAME
"MCALL MSGNINS
.IF NB ARG
1F DIF RO,ARG
RO,ARG>
MSGNINS <MOV
.ENDC
A
IFF
‘‘NAME
ON
ARG.
"ERROR ;MISSING
-ENDC
"ENDM MSRNRO

1971
1972

"MCALL
IF

1970

"MACRO MSPUT

MSPUT1
<P1>

PO.P1,P2,.P3.P4,.PS.P6,P7,P8,P9

1973

MSPUT <P1>,<P2>,<P3>,<P4> ,<P5>,<P6>,<P7> ,<P8>,<P9>

1975
1976

.IF NB
MSPUT1

<PO>
PO

1978

"ENDM

MSPUT

1974

1977

1979
1980

1981
198
198

1984
1985
1986
1987
1988
1989
1990
1991
199;
199
199%
1995

.ENDC
.ENDC

"MACRO MSPUT1 ARG1,ARG2
"MCALL MSGNINS

ARG
IF B
MSGNINS <MOV
IFF

ARG1,=(SP)>

.IF DIF B,<ARG1>
"ERROR :ILL. ARG. "‘ARG1'* ONLY 'B'’ IS ALLOWED.
CMEXIT
-ENDC
=(SP)>
MSGNINS <CLR

MSGNINS <BISB ARG2, (SP)>

.ENDC
"ENDM

"MACRO

MSPUT1

MSWORD

ARG

"MCALL MSGNINS
N,<ARG>
“IRP
MSGNINS <.WORD N>

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-35
1996
1997
1998
1999
2000
%001
00%

200
SOO‘
005
2006
2007
2008
2009
2010
2011

MSBYTE
.
.MACRO MSESCAPE TAG!
+MCALL MSGNINS
MSGNINS <.WORD L°'TAG1=-.>
MSESCAPE
.ENDM
TAG1
«MACRO MSESCSEG
MSGNINS
+MCALL
MSGNINS <.WORD TAG1'S$S-.>
«ENDM

=§ESCSEG

+ENDM

MSEXIT

<MCALL

MSGNINS

EXIT TAG1
«MACRO
+MCALL MSGNINS
MSGNINS <.WORD L°'TAG1-.>

2016
2017
2018
2019
2020

.MACRO MSEXTJ TAAN1
+MCALL MSGNINS
MSGNINS <.WORD L‘'TAG1-2-.>
.ENDM
MSEXTJ
«MACRO HSEXSEG TAG1

2022
2023

MSGNINS <.WORD TAG1'S$-.>
.ENDM
MSEXSEG

2021

AININIAY

e
v
288

2024
2025
2026

2034
2035
2036
2037
2038
2039
3820

+MACRO MSINCR
VAL=VAL+1
MSINCR
.ENDM

VAL

.MACRO

SSTACK,SLEVEL,SVALUE

MACRO MSDECR
VAL=VAL=-1
MSDECR
.ENDM

MSSETS

VAL

$STACK *SLEVEL=SVALUE

NSSETS
MSGETS SSTACK SLEVEL ,SVALUE
SVALUE=SSTACK ‘'SLEVE
.ENDM
MSGETS
.ENDM
.MACRO

«MACRO

MSGEN _ $SP,$ST,LSTCNTRL,COMMENT

1
204§
204

JIF LE_ LSTCNTRL
11F EQ LSTCNTRL,.LIST
COMMENT
$SP'SST:
.JIF EQ LSTCNTRL,.NLIST
MEXIT
+ENDC
LIST

5
6
047
8
9
050
2051

<NLIST
.ENDM
MSGEN
.MACRO MSGNINS INSTR
<JF LT SVCINS
INSTR
+MEXIT
+ENDC

2044

2052

SEQ 0067

.ENDM
MSWORD
.ENDM_
.MACRO MSBYTE ARG
«MCALL MSGNINS
N.<ARG>
«IRP
MSGNINS <.BYTE N>
+ENDM

2012
2013
2014
2015

.IF EQ SVCINS

$SP'SST:

53
054

LIST

INSTR

55
59
205
2058
2059

JMEXITY
+ENDC
.JF _GT SVCINS
LIST

%061

ENoC

2060

282;

%‘%

«NLIST

INSTR

«NLIST

MSGNINS
.ENDM
#cg n?couur COUNT,PO,P1,P2,P3,P4,P5,P6,P7,P8

2066

MSCOUNT COUNT,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>,<P8>

2069

COUNT=COUNT+1

2067
2068

2070

2071

2072

2073
2074

2075
2076
2077

+ENDC
JF

.ENDC

-ENDM

nscomr

-MACRO MSENDERR

SNAME, SFLAG

'SNAHE STMT OUT OF SEQUENCE.
-ERROR
"ENDM MSENDER

-MACRO nsRApxx sxn.sour
.IF IDN B,SIN
$OUT=GSRADB

2080
2081
2082

JMEXIT
-ENDC
.IF IDN 0,SIN
$OUT=GSRADO
MEXIT

208%
2085

-IF IDN D,SIN
$OUT=GSRADD

583‘
2089
2090
5835
2093

'f?’fp L,SIN
$0UT=G6sanbL
JMEXIT
'f?bfon A,SIN

509
2098

ILL. RADIX "‘SIN"
’2‘,{,’,3,',’
"ENDM MSRADIX

2078
2079

2083
2086

2094
2095

SRINZRIR2S

—

b e

2099

-ENDC

JMEXIT

$0UT=GSRADA
JMEXIT
.ENDC

MI,
.nacno MSEXCP WORD1,EXWD,EXCD,LIMIT,LILIM2
"IF IDN <a@>,<LIM1>

“IF LT GSOFSIZE-LIM2
ER;??

:INDIRECT PAR. TOO BIG

.ENDC

LIMIT=L1M2/2
D1'UORM ! GSEXCP
EXUD=EXUD EXCD
«IFF

JIF B,LIM2

oTM

SEQ 0068

SVC.MLB SOURCE FILE MACRO V04.00 30-NOv-81 13:58:41 PAGE 1-36

110

LIMIT=LIM

11§

.ERROR

13}

1
114

115
119
1
118

JFF

ENDC
.ENDC
.ENDM

;ILL. DEFERRED MODE

MSEXCP
.MACRO MSCHECK NAME,TAG,.FLAG
JIF IDN <TST>,<NAME>
TAG=TSSTEST

2119
2120

FLAG=1ISTST
MEXIT

21 %
212
21%4

.JF IDN ,<NAME>
TAG=T$$SUB
FLAG=]$SUB

2128

TAG=TS$SSEG

21%1

2125
2126
2127

2129

2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142

2143

.ENDC

MEXIT
ENDC
.JF IDN <SEG>,<NAME>

FLAG=]$SEG

MEXIT
.ENDC
.JF IDN <INIT>,<NAME>
TAG=TSSINIT
FLAG=ISINIT
LMEXIT
.ENDC
.JF IDN <CLN>,<NAME>
TAG=TSSCLEAN
FLAG=ISCLN
MEXIT
.ENDC
.JF IDN <SRV>,<NAME>

TAG=TS$SSRV

2144
2145
2146
2147
2148
2149
2150
2151
2152

FLAG=1$SRV
LMEXIT
.ENDC
.JF IDN <MSG>,<NAME>
TAG=TS$SMSG
FLAG=FSJMP
LMEXIT
.ENDC
.JF IDN <RPT>,<NAME>

154
2155
2156
2157
2158

FLAG=F $SJNP
LMEXIT
ENDC
.JF IDN <DU>,<NAME>
TAG=T$$DU

160
2161
%16;
16
2164
2165
2166

LMEXIT
.ENDC
.IF IDN <AU>,<NAME>
TAG=T$SAU
FLAG=F$JMP
MEXIT
ENDC

5153

51 59

TAG=TSSRPT

FLAG=FSJMP

SEQ 0069

o
|

SVC.MLB SOURCE FILE MACRO V04.00 30-NOv-81 13:58:41 PAGE 1=37

RS RRRERRBIIINANANIITES

NONIN NN

e o

D e

N NN

SVC.MLB SOURCE FILE MACRO V04.00 30-NOv-81 13:58:41 PAGE 1-38
.ENDM

«MACRO

MSCHECK

$IN, SOUT

MSDEFAULT

.IF IDN YES,$SIN
S$OUT=GSYES
JMEXIT
ENDC

IDN O.SIN
iIF
HEXIT
-ENDC

(]
"
[]
’wT=-1
.ERROR omuu L4 SIN''" MUST BE '‘YES'' OR 'NO'’
"ENDM MSDEFA
"MACRO nscmop sm WORD1
JIF N8
JIF NE

SIN
ISSFT = F$SBGN

.522%:

"COUNT**

+ENDC

OPTION VALID ONLY IN S.W. QUES.

WORD1=WORD1 ! GSCNTOP
+ENDC

.ENDM

MSCNTOP

SEQ 0070

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE g

.TITLE CZRLGCO RL11/RLVIT1 CTLR TST 1
NABLE AMA
-ENABLE ABS
«NLIST ME ,CND,MD
<MCALL svC

; 000000

5
]
7 000000

8
9
10
1

000000
000000
002000

}‘ 002000
i$
15 002000
16
17 002

002000
002001
00200,
00200
002004
002005
002006
002007
002010

002011
002012
002014
002016
002020

svC
SVCINS=0

SVCTAG=0
=2000
POINTER BGNSFT,BGNSW,BGNDU,BGNAU
MDHEDR

103
132
122
114
107
000
000
000
103

024426
024

HEADER
.ASC1l
LASCII
+ASCI1
LASCII

CZRLG,C,0,7.0

/¢/

72/
/R/
/L/
LASCII /6/
0
.BYTE
.BYTE
0
.BYTE
0
LASCII /C/
LASCII 0/
WORD
0
7
WORD
LSHARD
.WORD
LSSOFT
+WORD
LSHW
.WORD
LS$SW
+WORD
LSLAST
.WORD
0
WORD
WORD
O
WORD
0
WORD
O
LSDISPATCH
.WORD
WORD
0
WORD
0
WORD
0
CSREVISION
.BYTE
SSEDIT
.BYTS
-WOR
.WORD
0
.WORD
O
LSDVTYP
.WORD
.WORD
O
WORD
0
WORD
0
.WORD
LSAU
«WORD
bSDU
-WORD
.WORD
LSDESC
EMT
SSLOAD

SEQ 0071

CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 2-1
g1oa
00 108
002110

JMORD
‘WORD
"WORD

011772
015756
012534

002112 011764
002114 000000
002116 000000
- 002120 0

-WORD
WORD
-WORD
-WORD

%3 002122

ENDMOD

21 00212
00212

00212
002130
002133

002136
002141
002144
002147
00215
00215
002160

002163

002166
002171
002174
002177
002202
002205
002210
002213
002216
002221
002224
002227

- 33%333
002233
o

002236
002241

103

132

122

5:»01
8

DESCRIPT <CZRLG TESTS CONTROLLER FUNCTIONS, INTERFACE LOGIC REGISTER OPERATION>
LASCIZ /CIRLG TESTS CONTROLLER FUNCTIONS, INTERFAC £ LOGIC, REGISTER OPERATION/

103
124
114
122
125
124
116

117
122
114
040
116
11
123

124
106
105
117
103
122
i
105
117
122
M
000

105
101
040
107
054
105
123
122
120
101
117

122
103
114
M
040
107
124
040
105
124
116

114

060
e ‘252}1“L9§{o, RLO2/
122

040

122

061
114
000

107
105
123

054
060

116

062

.EVEN
BGNMOD

gg 002242
26 002242

GLBEQAT
EQUALS

* BIT DIFINITIONS

100000

8IT15== 100000

000400

81T08== 400

040000
020000
010000
004000

SEQ 0072

LSINIT
LSCLEAN
LSAUTO

040
123
040
119
1
105
106
103
117
054

114
124
124

BIT14== 400
8IT13== 20000
8IT12== 10000
BIT11== 4000

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-2
000200
ooo1og
00004
000020
000010
000004
000002
000001

BITO7== 200
axrog== 100
BIT0S== 40
BIT04== 20
BIT03== 10
BIT02== &
BITO1== 2
8IT00== 1

001000

8I1T9== BIT09

000002

BIT1== BITO1

000400
000200
000100
000040
20
000010
000004
1

BIT8==
BIT7==
BITé==
BITS==
BIT4==
BIT3==
BIT2==

BITO
BITO
BIT06
BITOS
BIT04
BITO3
BIT02

BIT0==

BIT00

SEQ 0073

* EVENT FLAG DEFINITIONS

000040

000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==

32.

EF.RESTART==
EF.CONTINUE==
EF .NEW==
-PWR==

31,
30.
29.
28.

* PRIORITY LEVEL DEFINITIONS

000340
000300

240
00
000140
100
000040

PRIO7== 340
PRIO6== 300

PRIOS==
240
PRIO4== 200
PRIO3== 140
PRI02== 100
PRIOT== 40

PRI00== 0

*OPERATOR FLAG BITS

000004

EvL==

IDU=

000010
000020

LOT==
ADR==

000100
000200
000400
001000
002000
004000

eos=PNT==
PRI=
IXE

020000
040000
100000

IER
LOE==
HOE

010000

ISR==

I1BE

10
20

100
200
400
1000
2000
4000

10000

20000
&8008
10000

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 5'3

000001

28
29
30
31

000100
100000
040000
002000

40
41

000000
000016

3%
3
34
35
36
37
38
39
42
43
&4
45
46
4“7
48
49
50
51
52
53
54
gg

INTEN=BIT6
ERR=BIT15
DERR=BIT14
OPI=BIT1

: INTERRUPT ENABLE (RLCS)
:RL1T ERROR (RL
:RLO1 DRIVE ERROR (RLCS)
;OPERAT ION INCWLETE (RLCS)

NOOPO=0
NOOP7=BIT1!BIT2!BIT3

: FUNCTION=NOOP(0)
: FUNCTION=NOOP (7)

CRDY=BIT
BA17=BIT5
BA16=BIT4
NXM=BIT13
DS0=0
DS1=BIT8
DS§=BIT9
DS3=BIT8!BITY

000002
000004
000006
000010
000012
000014
000202
000010
000002
000001
000004
0001C0
000100
000020

WRCHK=BIT1
GSTAT=BIT2
SEEK=BIT2!BIT1
RDHDR=BIT3
WRITE=BIT3!BIT1
READ=BIT3!BIT2
GODRVR=BIT1!BIT7
DRST=BIT
GSBIT=BIT1
MK=BITO
SIGN=BIT2
RHHS=BIT6
STHS=BIT6
DAHS=BIT4

000000
000002
000004
000006
000010
000012

:WRITE CHECK FUNCTION
sGET STATUS FUNCTION
:SEEK FUNCTION
:READ HEADER FUNCTION
;WRITE DATA FUNCTION
:READ DATA FUNCTION
:CRDY AND DRDY
:DRIVE RESET (RLDA)
;GET STATUS BIT (RLDA)
:MARKER BIT (RLDA)
:SIGN BIT (RLDA)
;HEAD SELECT IN READ HEADER
:HEAD SELECT IN STATUS BACK
:HEAD SELECT IN SEEK

CSR=0
VECT=2
PRIOR=4
TYPDR=6
DRBT=10
CNT=12

;OFFSET FOR SOFTWARE P-TABLE
000000
000002
000004

DLT=0
ELT=2
SIZE=4

ENDMOD

;% 002242
;g 002242

BGNMOD

GLBDAT

.SBTTL

GLOBAL DATA

78 002242
79 002244

;CONTROLLER READY (RLCS)
:EXTENDED ADDRESS BIT 17 (RLCS)
:EXTENDED ADDRESS BIT 16 (RLCS)
;NON-EXISTANT MEMORY (RLCS)
:DRIVE SELECT 0 (RLCS)
:DRIVE SELECT 1 (RLCS)
:DRIVE SELECT 2 (RLCS)
:DRIVE SELECT 3 (RLCS)

sOFFSET FOR HARDWARE P-TABLE

29
68
69
;(1)

;DRIVE READY (RLCS)

DRDY=BITO

000200
000040
000020
020000
000000
000400
001000
001400

g;
59
60
61
62
63
gls-

SEQ 0074

000000
000000

80 00%246 000000
81 002250 000000

82 002252 000000
83 002254 000000

PWRFLG: .WORD
UurT:
.WORD
UNITST: .WORD

0
0

.WORD
.WORD

RLCS:

RLBA:
RLDA:

.WORD

;LOGICAL ADDRESS OF CS

:LOGICAL ADDRESS OF BA
;LOGICAL ADDRESS OF DA

RL11/RLV1I1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 2-4
%ERLGCO

o
& é
i

87 0022
88 002%
89 002270
90 005272
91 002274
9% 002276
93 002300
94 002302
95 002304
96 002306
97 002310
98 002312
99 002314
100 002316
101 002320
102 002322
103 002324
104 002326
105 002330
106 002332
107 002334
108 002336
109 002340
110 002342
111 002344
112 002346
113 002350
114 002352
115 002354
116 002356
117 002360
118 002362
119 002364
120 002366
121 002370
122 002372
123 002374
124 002376
125 002400
126 002402
127 002404
128
129 002406
130 002410
131 002412
132 002414
133
134
135
136
137 002416
138 002420
139 002422
140 002424

.WORD

BCSR:
.WORD
BPRIOR: .WORD
BVEC:
.WORD

O
O
0

RLMP:

RLBE:

.WORD

SEQ 0075

;LOGICAL ADDRESS OF MP

:LOGICAL ADDRESS OF BE

DRIVE:

.WORD

;DRIVE UNDER TEST

B.BA:
B.DA:
B.MP:

.WORD
.WORD
.WORD

0
O
0

- BEFORE OPERATION
:BA
DA BEFORE OPERATION
- BEFORE OPERATION

B.CS:

B.BE:

DERFLG:

E.CS:
E.BA:
E.DA:

E.MP:

E.MP1:

E.MP2:
E.BE:
PFLG:

.WORD

O
0
0

.WORD

.WORD
.WORD
.WORD

TRPFLG: .WORD

INTFLG: .WORD

B - BEFORE OPERATION

.WORD
.WORD
.WORD

.WORD

:CS = BEFORE OPERATION

:CS = AT OCCURANCE OF ERROR
:BA = AT OCCRUANCE OF ERROR
:DA = AT OCCURANCE OF ERROR

:MP - AT OCCURANCE OF ERROR

0
0
0

:MP - AT OCCURANCE OF ERROR READ_HEADER
:BE = AT OCCURANCE OF ERROR RLV12 ONLY
:PROCESSOR TYPE, 0=UNIBUS, 1=G-BUS

; INTERRUPT OCCURRENCE FLAG

LDCSR: .WORD
SECMSK: .WORD
XPOLY: .WORD

O
77
120001

BCCFBK: .WORD
CALBCC: .WORD

O
0

;LOCATION USED BY *‘SIMBCC':
:LOCATION USED BY ‘‘SIMBCC':
:LOCATION USED BY '‘SIMBCC':
:LOCATION USED BY *‘SIMBCC

ERRVEC: .WORD

TEMP2:

.WORD

:LOCATION TO FORM RLCS
:MASK OUT SECTOR
:POLYNOMIAL FOR CRC 16

:LOCATION USED BY ‘‘SIMBCC':

TEMP3:
TEMP4:

.WORD
.WORD

0
0

FIRST:

.WORD

sFIRST SECTOR READ

MXSEC1: .WORD
MAXSEC: .WORD

40.
39.

:MAX SECTOR ADDRESS
+1
:MAX SECTOR ADDRESS

MAXCYL: .WORD

177600

TMPQ:
TMP1:
TMP2:
GDDAT:
BDDAT:

.WORD
(WORD
.WORD
.WORD
.WORD

CYLMSK: .WORD

DWORD: .WORD
SVHD: ~ .WORD
WHY:
.WORD

0
0
0
0
0

177700

:MASK_CYLINDER AND HEAD SELECT

oxrrsasnce WORD (SEEK)
MAXIMUM CYLINDER ADDRESS
:SAVE CURRENT HEAD SELECT
:REASON FOR DROP UNIT

0
O

T.DRIVE:

.WORD

TMPENC :

.WORD

T.CNTLR:

.WORD

WORD

DLYCNT:

0
0

:DRIVE TYPE

:CONTOLLER TYPE
:DELAY COUNTER

;PATTERNS USED FOR LOADING/READING REGISTERS
BEGPAT: ?
3
4

sGROWING 1

b b d o

b D b b ) b b b b b b b b b b b — e e e cd d b d e e

e e

b e e

D e

e e o

e o

VIV WAV
S &S 8

b— e

e o

BRSNS
[V NVAN

(=1

= SN

NN ~ NN wVioN NNNN
NN ~ NN NN WONN o

ONNN\I:NVNNV
NN NN
N NN
8°°°°°°
i=l=1=]

i=i=l=l=lelel=l=lel]

NNNNNNNNNNNOOOOOOOO0O0O000O

b SN =3 SN

000000
000001
000002

e i e e e e e e e e s wed SN\ wd SN

SORSC2SITIRTRER EIFIIANINIITREER W) = 3% ONO\A&W—'OOON&
o
o
o
2888833388
2822228
o
N sgsssssssss
g2
NN RN
NN
N N AORNNNNLNININNINLNIN
&»H
O
w
\\I:U!Ul
vy
a
v
o
o
i
N 83

—

GLOBAL DATA

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-56
SEQ 0076

002426
4

;GROWING 0

100000

sWALKING 1

sWALKING 0

SEQ 0077

CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 2-6

GLOBAL DATA

198 002606
199 002610
200 002612
201 002614

175777
173777
167777
157777

204 002622
%82 002624

177777
000000

175777
173777
167777

157777

177777
ENDPAT: 000000

%07

.SBTTL

PATTERNS FOR DIFFERENCE WORD

209 002626 000200
210 002630 000400
211 002632 001000
212 002634 002000

SKLST:

.WORD
.WORD
.WORD
.WORD

BIT?
BITS
BITY9
BIT10

.WORD
.WORD

213 002636

004000

216 002644

040000

.WORD

BITII

218 002050
219 002652
002654
220
221 002656
222 002660
223 002662
002664
224
002666
225

077400
076600
075600
073600
067600
057600
037600
077600

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BIT12
BIT13
BIT14
77600
77400
76600
75600
73600
67600
57600
37600
77600

2672

000600

.WORD

600

.WORD

77400

214 002640
215 002642

010000
020000

.WORD

217 002646 077600

226 002670

228 002674
229 002676
230 002700
231 002702
232 002704
233 002706

234

001600
003600
007600
017600
037600
077600

002710 077400

235 002712

.WORD

074000
070000

.WORD
.WORD
.WORD
.WORD

076000

41 002726
242 002730

002732
002734

040000
000000
100000
037600
600

2736

177600

243

247 002740
248 002742
249 002744
250 002746
251 002750
25§ 002752
253 002754
254 002756

.WORD
.WORD
.WORD
QUAMAX: .WORD
HALMAX: .WORD
.WORD

077000

2714

237 002716
38 002720
239 002722
40 002724

WORD

000200

177400
176600
173600
127600
157600
137600
177000
176000

.WORD

SKEND:
RLZ:
QMAX:
HMAX:

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

sSHIFTING 1

1600
3600
7600
17600
37600
77600

77000
76000

74000
70000
60000
40000
0000
BIT1
37600
77600
177600

177400
176600
173600
167600
157600
137600
177000
176000

sSHIFTING 0

‘

:GROWING 1

;GROWING 0

N_6
CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 2-7

SEQ 0078

PATTERNS FOR DIFFERENCE WORD

255 0027

174000

.WORD

174000

256 002762
257 002764
258 002766
223 002770

170000
060000
040000
000000

.WORD
.WORD
.WORD
SKEEND: .WORD

264 002774
265 002776
269 003000
267 003002
268 003004
69 00
270 003010
271 003012
003014
273 003016
274 003020
5 003022
276 003024
277 003026
278 003030
279 003032
280 003034
281 003036

000002
000004
000010
000020
000040
000100
000400
001000
001576
001574
001570
001560
001540
001500
001400
001576
001574
001566

«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
+WORD
.WORD
«WORD
+WORD
+WORD
+WORD
«WORD
.WORD

BIT]
BIT
BIT
BITé
BITS
BIT6
BIT8
BIT9
1576
1574
1570
1560
1540
1500
1400
1576
1574
1566

283 003042
284 003044
285 003046
286 003050
287 003052
288
003054
289 003056

001536
001436
001136
000076

.WORD
WORD
.WORD
«WORD
WORD
+WORD
- WORD

1536
1436
1136
76
6
16
;6

%g‘l
§6§ 002772 000000

282 OOSOlog

oogggg
1 88
29§
3064
293 00
294 0030

598 003078

297 003274
298 003774
299

sPATTERNS FOR TEST OF RLCS
CSPAT: .WORD 0

001556

.WORD

000016
0000

000076
00017
000576
001576

170000
60000
40000
000000

76
176
579
1576
8

HDRBUF: .BLKW

160.

ERCOUNT :BLKU 4
ENDMOD

sGROWING 0

sSHIFT 0

1556

WORD
WORD
.WORD
.WORD
.WORD

CSEND:

sSHIFTING 1

sGROWING 1

7
g
PAGE
£ZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41

PATTERNS FOR DIFFERENCE WORD

BGNMOD
.SBTTL

1 003774
;

003774
8 004001
G 00600?
10 0v401
11 004021
1; 0040 g
13 0040
14 004040
15 004043
16 004045

17 004053

18 004126
19 004157

20 004211
21 004251
22 004312
23 00635%

24 00441
25 004444
26 004476
27 004535
28 004574

040
040
040
040
040
040
040
015
015
040

106

116
116

127
127
122
122

123
123
107
107
103

29 004601
30 004607
31 004615
32 004623
33 004644
34 004665

040
040
040

40 005064

122

3. 004712
36 004740
37 004765
38 005012
39 005037

102
124
103
104
103
103
103
103

41 005135
42 005163
43 005211
005252
005
46 005332
005360
48 005406
49 005441
50 0055
51 005540
52 005574
53 005641
54 005716
55 005756
56 006047
57 006105
58 006204
59 006237
60 006272

122
122
117
116
116
116
116
11
107
107
122
117
117
122
102
102
123
127
127
127

104
119
1"
110
110
104
104
012
000
103

117

117
117

122
122
105
105

DEMES: .ASCIZ
NXMMES: .ASCIZ
OPIMES: .ASCIZ
HCRCMES:.ASCIZ
HNFMES: .ASCIZ
DCKMES: .ASCIZ
DLTMES: .ASCIZ
MSCRLF: .ASCIZ
ASCIZ
:
LASCIZ
COMP:
117

153
1
122
103
11g
103
114
000

12; OPIERR: .ASCIZ
117
117

111
111
101
101

105
105
105
105
123

105
105
126
126
072

122
101
101
101
101

111
116
116
116
116

102
104
115
105
M
117

114

114
114
120
117
117
117
117
116
105
105
114
120
120
105
101
101
105
1 5
1
122

GLBTXT
GLOBAL TEXT

101
101
120
106
115
116

NOPMES: .ASCIZ
NOPINT: .ASCIZ

/FORCED OPI(GET STATUS) CAUSED OTHER ERRORS/
/NOOP OPERATION=-FLAG MODE/
/NOOP OPERATION=INTR. MODE/

WCKMES: .ASCIZ /WRITE CHECK OPERATION-FLAG MODE/
WCKINT: .ASCIZ /WRITE CHECK OPERATION=INTR. MODE/
RHDMES: .ASCIZ /READ HEADER OPERATION-FLAG MODE/
RHDINT: .ASCIZ /READ HEADER OPERATION-INTR. MODE/
SEKMES: .ASCIZ /SEEK OPERATION-FLAG MODE/
SEKINT: .ASCIZ /SEEK OPERATION-INTR. MODE/
GSTMES: .ASCIZ /GET STATUS OPERATION-FLAG MODE/
GSTINT: .ASCIZ /GET STATUS OPERATION=INTR MODE/
ARLCS:
ARLBA:
ARLDA:
ARLMP:
BEREG:
AFREG:
CRTIM:

DRTIM:
EM1:
EM2:
EM3:
EMé4:

103 EMS:

102
104
111
040
117
117
117
126
126
126
115
111
111
101
106
106
103
111
111
111

/ DRV/
/ NXM/
/ OPl/
7/ HCRC/
/ HNF/
/ DCK/
7/ DLT/
<15><12>
<15
7/ COMP/

EM6:
EM7:
EMI1:
EM13:
EM14:
EM1S:
EM16:
EM17:
EM30:
EM30A:
EHS%:
EM33:
EM34:
EM37:
EM&1:
EM42:
EM43:
EM&4:
EM4S:
EM46:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

JASCIZ

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CS: /
/ BA: /
7/ DA: /
7/ I'P: /
/BEFORE COMMAND: /
/TIME OF ERROR: /
/CONTROLLER TIMED OUT/

/DRIVE READY TIMED OUT/
/CAN NOT ADDRESS RLCS/
/CAN NOT ADDRESS RLBA/
/CAN NOT ADDRESS RLDA/
/CAN NOT ADDRESS RLMP/

XRLCS READ/WRITE ERROR (BIT O DON'T CARE)X

ZXRLBA READ/WRITE ERRORZX
ZXRLDA READ/WRITE ERRORZX
/0PI WOULD NOT GENERATE INTERRUPT/
/NO INTERRUPT FROM NOOP(0)/
/NOOP(Q) MODIFIED RLMP/
/NOOP(0) MODIFIED RLBA/
/NOOP(0) MODIFIED RLDA/
/INTERRUPT PRIORITY FAILURE/
/GET STATUS WOULD NOT INTERRUPT/
/GET STATUS SHOULD NOT INTERRUPT/
/RLMP CONTAINED WRONG STATUS/
/0PI DID NOT SET-GSTAT WITHOUT GS BIT/
/0PI DID NOT SET=-GSTAT WITHOUT GS AND MK BITS/
/READ HEADER WOULD NOT INTERRUPT/
/BAD CYLINDER OR HEAD SELECT IN REPEATED READ HEADER TEST/
/BAD HEADER CRC ON READ HEADER/
/SECTOR ..DDRESS OUT OF SEQUENCE DURING CONSECUTIVE READ HEADERS/
/WRITING RLMP MODIFIED RLCS/
/WRITING RLMP MODIFIED RLBA/
/WRITING RLMP MODIFIED RLDA/

SEQ 0079

CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE §-1
RL11/RLVI1
CZRLGCO
TEXT
GLOBAL
61 006325
6§ 006356
63 00642
64 00646
65 0065%0

182
1
10
10
10

105
122
101
101
101

67 006630

104

122

70 007024
71 00710
007170
007251
74 0073
75 007371
76 00742
77 00746
78 007516
79 007551
80 00760
81 007635
82 00767
83 007723
gg 0077

102
102
10%
10
102
102
10;
12
127
127
127
127
127

111
1m
m
m
125
125
125
122
1%2
122
122
122
122
114

66 006557
68 006660
69 006741

114

102
102

122

117
11
111

105
111
106
106
106

101
11

1%4
124

156
126
126
126
153
123
123
111
111
111
111
111
111
103

EM47:
EMS2:
EMS4:
EMS5:
EMS6:

EM57:
EM61:
EM62:

EM63:
EM64:
EM65:
EM66:
M67:
EM70:
EM?71:
EM72:
EM73:
EM74:
EM75:
EM76:
EM77:
EM101:
EM102:

.EVEN

3} 010160

ENDMOD

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/SEEK WOULD NOT INTERRUPT/
/DRIVE READY CAUSED EXTRANEOUS INTERRUPT/
/BAD SEEK-TEST OF DIFFENCE WOR D/
/BAD HEAD SELECT VIA RD_HDR/
/BAD HEAD SELECT VIA GET STATUS/

.ASCIZ

/DRIVE READY DID NOT SET/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.BLkB

/BIT SET INSTRUCTION ON RLBA YIELDED WRONG RESULT/
RLBA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION
/BIT SET INSTRUCTION ON LDA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON R%g? YIELDED WRONG RESULT/
/BUS RESET DID NOT CL
R
/BUS RESET DID NOT CLE
/BUS RESET DID NOT CLEAR RLDA/
/WRITING RLCS MODIFIED
/WRITING RLCS MODIFIED RLDA/
/WRITING RLBA MODIFED
/WRITING RLBA MODIFED
/WRITING RLDA MODIFIED RLCS/
/WRITING RLDA MODIFIED RLBA/
/RLCS CONTAINED FOLLOWING ERROR(S): /
120.

.ASCII

LASCIZ
.ASCIZ

/LOADING RLDA SEFORE DRIVE READY ON SEEK/<15><12>
/BIT SET INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLCS YIELDED WRONG RESULT/

SEQ 0080

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 4

SEQ 0081

GLOBAL ERRORS

g 010160

.SBTTL

GLOBAL ERRORS

BGNMOD

GLBERR

5 010160

BGNMSG

ERRO

010504
9 010160 004737
37
s 010164

0047

010540

10 010170
11 010174
010174
. 010174

004537

013034

}g 010176
15 010176

L10000:

104423

BGNMSG

004737

010504

¢
17 010202 004537 013034
18 010206
010206

L10001:

%? 010210

BGNMSG

19 010206

22 010210
23 010214
010214
010220
010224
010230
010234
010236
010240
24
25 010244
26 010250
010250
010250
27
28 010252

gg 010252

PC.LINET
PC,LINE2

JSR

R5,CKERLT

TRAP

CSMSG

ENDMSG

sCHECK ERROR LIMIT

ERR1

JSR

PC,LINET

JSR

R5,CKERLT

TRAP

CSMSG

ENDMSG

sCHECK ERROR LIMIT

ERR2

JSR
PRINTB
MoV

PC,LINE1
#FRMT4,GDDAT ,BDDAT
BDDAT ,=(SP)

000010

MoV
TRAP
ADD

SP,RO
CSPNTB
#10,SP

013034

JSR

R5,CKERLT

TRAP

CSMSG

JSR
JSR

PC,LINE]
PC.LINE2

010504
002364
)
002362
011137
000003

MOV
MOV
MOV

L10002:

GDDAT .=(SP)
#FRMTS = (SP)
#3,-(SP)

sCHECK ERROR LIMIT

BGNMSG

010504
010540

sgyare orkms.mm)).aoon.soon

002362
002364
002354
0i1175
000004

(oS

JSR
JSR

MOV
MOV
MOV
MOV
TRAP

ADD

000012

GDDAT,=(SP

BDDAT ,=(SP)
TMPO, = (SP)
#FRMTS,=(SP)
g: '56”)
CSPNTB

#12,5P
RS, CKERLY

013034
L10003:

sCHECK ERROR LIMIT

V04.00 30-NOV-81 13:58:41 PAGE 5-1
MACRO
1
TST
CTLR
1
RL11/RLVI
CZRLGCO
GLOBAL ERRORS
010322

TRAP

104423
BGNMSG

7 010324

SEQ 0082

CSMSG

ERRé

0047%7
004737

PC,LINE]
PC.LINE2

013746
013746

BDDAT,=(SP)
GDDAT .=(SP)

AFRMT4,GDDAT ,BDDAT

#FRMTS = (SP)

Boash
CSPNTB

#10,SP

L10004:
&5
46 010372
47
43 010372

BGNMSG

50 010376
51 010402
010402
010402
52
53 010404

L10005:
BGNMSG

54
55 010404

g
0104
01047
010472

1$:

RS5,CKERLT

TRAP

CSMSG

sCHECK ERROR LIMIT

ERRS
JSR

PC.LINET

JSR
ENDMSG

R5,CKERLT

TRAP

CSMSG

sCHECK ERROR LIMIT

ERRG
JSR
JSR
JSR

PC,LINE]
PC.LINE3
PC.LINE2

PRINTB
Vv

#FRMT99
#FRMT99,=(SP)

#1,-(SPS
SP.RO
CSPNTB

56 010410
57 010414
58
59
60 010420
010420
010424
010430
010432
010434
61 010440
62 010444
010444
010444
63
64 010446
65
69 010446
6 01045%
01045

JSR
ENDMSG

#4,SP

R5,CKERLT

L10006:

010504

002364
011246
000002
000006

CSMSG

PC,LINE1

#FRMT6,BDDAT

sCHECK ERROR LIMIT

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOvV-81 13:58:41 PAGE 4~2

SEQ 0083

o
oo

2
v

[=l=]=}

P
OO0

LINE2:

ENDMSG
TRAP

CSMSG

PRINTB
LR

#FRMT1,RLCS ,<B,DRIVE+1>
(SP)

DRIVE+1, (SP)

RLCS,=(SP)
#FERMT1,=(SP)
#3,=(SP)
RO

)

=O00000000

#ARLBA
= (SP)

SP.RO

CSPNTB

#16,SP
OFRHTZA.g?RLDA.B.DA.#ARLHP.B.HP

=000 0000

28
&=

#6,-(SP)

B.DA,~(SP)

SP.RO

CSPNTB

&
e ¥
e

#14,SP
ornnrz.c;;aec.»AnLcs.s.cs.pAaLaA.s.aA

b m® md mnd cmd

=O0000000

b el

&
Ng
N
NNNNNN‘#
&~ S SNES
& =~
O\O\O\O OO0

#ARLDA, = (SP)
#FRMT2A,=(SP)
#5,-(SP}

OOO0O00O

bObegFeRRasEe
P RSRSSRR8NSFEsEErEs
DAY

OO0O0O0O00000O

OFRHTZ.'gEREG.IARLCS.B.CS.#ARLBA.B.BA
B8.BA,=(S
B.CS.~(SP)
#ARL(S.=(SP)
= (SP)
#BEREG,
#FRMT2.=(SP)

~On

wvines

—

=) 0000

egg29222
OOOOOOOOOOOOOOS
o
29922
— e
b d o e e o e
e o
i e b

R5,CKERLT

OO0O0O0O0O0O0O0O0O0

N = RNERR

010600

L10007:

wvivvuivwvaiuaiananawi

104423

JSR

013034

— b D b b D D d D D
O00O0O0O0O0O0O0O0

OO0

004537

LINE1:

) d o =D
== 1= O

~N~N

(V]
8]

332

GLOBAL ERRORS

#5,-(SP}

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 4~3

SEQ 0084

007723
011132
000002

RTS

LINE3:

#FRMT3, #EM102
#EM102.=(SP)
#FRMT3 . =(SP)

007770
011132
000002

#2,-(SP)
SP,RO
CSPNTB

e B

g bty B

)B B

wn
L7
(alalzlzlzslzliaslislislialialalsliyl

b e

— e b e ) e i e b e NI ) =2 O
ONONONON=OOONONON
SO

Bt Bt

ANINNPINNNN-NNNNN

g
&

#6,SP
PC

g b by B

/XACONTROLLER: X06%A
/INXTXTX062TX06/

DRIVE: %01/

/XT306X7X06/
/g;!gblllflé!/
/INRT/
/}“!AEXP'D: %06%A REC'D: %06/
/IN/

/INZALAST: X06XA PRES: X06XA EXP'D: X06IN/
/INZAAT PROCESSOR LEVEL Z06IN/
/%AERROR LIMIT EXCEEDED-DROPPEDIN/
/INZADRIVE DID NOT RECOVER FROM POWER FAILURZIN/
/INXTXA = WILL NOT TESTIN/
/INZADRIVE DROPPED = NO CONTROLLERZN/

118 011604

BGNHW

)

/INJADRIVE DROPPED = DID NOT RESPOND WITH ‘READY'IN/

ENDMOD

BGNMOD

121 011612
12§ 011614
123 011616
124 011620
125
126 011622

#ERMT3

#6,SP

114 011604
115
119 011604

o SHEK
120 0112?8

000006

i
11§
1

PRINTB

5
822
CSPNTB

e e e

122323121222

000014

) e

ooTM

S=SssS &=

MoV
TRAP
ADD

— e e

2852
RY~S
P
e )

-=0000

RNEONN
NSO
NNY
o
sOo0
00
~

011006
011012
011014
011016
84 011022
85
89
90 011024
91 011064
92 011103
93 011116
9 011132
95 011137
96 011172
97 011175
98 011246
99 011303
100 011344
101 011423
102 011454
103 011520
104
105
106
107

82 010755
01075
010752
01076
010766
010770
010772
83 010776
010776
011002

—0000

01074
01074
010744
g? 010750

sag?:xzcs SRS

GLOBAL ERRORS

HPTCODE

L10010-LSHW/2

174400
160
%40

:DEFAULT HARDWARE TABLE
:CSR
*VECTOR
*PRIORITY

:RLOT = 1
*DRIVE (BITS 8,9.10)

RL1T =1, RLViT =0

w [=] “w — 3£ — 3 w
)—
‘e [~ w [, < =1P

5 S§F 888 535 8§8558588855885595555555559353353555S

wv w o

- - P e T peeere e e T 0 O O 0 0 0 g g g g g g e g g g g g g g g g g g e -

4 [=] >o ~
a — w . — =[-

CmRAMeAOTMdIeMsA

-l

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 1-5
CZRLGCOERRORS

GLOBAL

8117‘2
1174

8 1614
1540

JMORD
WORD

T 9
T

011762

024132

LWORD

Té&é

011746
01175
011752
011754
011756
011760
011764

022156
0% 3
02245
02 91
022764
023412

.WORD
.WORD
.WORD
WORD
.WORD
.WORD

ENDMOD

138
T39
T40
T4
T4
T4

SEQ 0086

[«lelell-]

.SBTTL LOAD PROTECTION TABLE
BGNPROT
0
-WORD
«WORD
10.
WORD

—

ENDPROT

.SBTTL
BGNMOD

SEQ 0087

;P=TABLE OFFSET OF CSR

sNOT A MASS-BUS DRIVE

sP=TABLE OFFSET OF DRIVE

INITIALIZATION CODE

0000000000000 —
O00O0O0O0O000000
e d i ed e D e
D o

INITCODE

BRESET
CSRESET
TRAP
READEF #EF.PWR
#EF .PWR,RO
MOV
TRAP
CSREFG
NOPWR
E?EOHPLETE

sNO,BRANCH

MOV

;YES, SET POWER FLAG

000034

SO
g NN

002242

000037

TRAP

BCC

START1: MOV

003074
000100

18:

—

MOV
CLR
DEC

000036

CONT INUE

#64. .R1
(RO)+
R1

BCS

CONT

START:

TST
BNE
MOV
MOV
MOV

wuTt
XXX
#-1,UNITST
LSUNIT,UUT
#ERCOUNT=2,ERPOINT

XXX:

INC

UNITST

TRAP

uuf
UNITST,RO
UNITST.RO
CSGPHRD

NXT:

002244
002244
003072

003072

REST:

ADD
DEC
cpcmo
MO

:START?2?

T
RO
#ERCOUN

1$
BNE
START
BR
READEF #EF.CONTINUE
CONTINUE :
,RO
#EF . CONTINUE
MOV
TRAP
CSREFG
CONT
BCOMPLETE

OO (=11

CSREFG

MOV
#EF .START,RO
TRAP
CSREFG
CONTINUE
BNCOMPLETE

b
d d

O0O0O0O0

LSUNIT,PWRFLG

;GO TO CONTINUE POINT
BR
C ONT
;RESTART?
NOPWR: READEF W#EF .RESTART
MOV
#EF .RESTART
RO

000040

177777

NOPWR

BCOMPLETE START1
START1
BCS
READEF #EF.START

—_

NN
0000

=
be

002012

b
h o
d
— e

RISTEIERRUR =2

OOO00OO0O0

—

BGNINIT

EYRNRONY N

—

b =

d e

SN =00V~
NS W=

1 MACRO V04.00 30-NOV-81 13:58:41 PAGE g
TST
CTLR
RL11/RLV11
CZRLGCO
GLOBAL ERRORS

#2,ERPOINT

;CONTINUE?22?

:DONE ALL UUT'S
*NO

CZRLGCO RL11 /RLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-1

SEQ 0088

SO
33883
VN = NN

002242
1$:

d
d
b
b
o
d

022737
004

002410
000002
002260
1$:

002242

69 012266
70 012272

71
72
73
7%
75 012274
76 012300
77 012
78 012314
79 012322

TST
BEQ
DEC
BR

PWRFLG
NXT
PWRFLG
NXT

MoV
MOV
MoV
MOV
Mov
MoV

(RO)+,BCSR
(RO)+,BVEC
(RO)+,BPRIOR
(RO)+,T.DRIVE
(RO)+,DRIVE
(RO)+,T.CNTLR

MoV
MoV
ADD
MOV
ADD
MoV
ADD
MoV
CMP
BNE
ADD
MoV

BCSR,RO
RO,RLCS
#2,R0
RO,RLBA
#2,R0
RO,RLDA
#2,R0
RO,RLMP
#2,T.CNTLR
1$
#2,R0
RO,RLBE

TST
BEQ

PWRFLG
END

;POWER FLAG T0 0
:YES, DONT DEC IT
sGET NEXT ONE

;GET CONTROLLER TYPE

sBUILD LOGICAL ADDRESSES OF REGISTERS

sIF THIS | S AN RLV12, BUILD LOGICAL
sADDRES S FOR 8BUS ADDRESS EXTENSION.

:zSCENT POWER FAILURE?

;THERE WAS A RECENT POWER FAILURE, THEREFORE WE WILL WAIT
;FOR THE DRIVE TO COME READY

000170

000001

167742
167734
167726

000050

002414

MOV
MOV
8l

DRVRDY: BIT
BN
WAITO:

MO
DELAY

#120. .R1
#200,3RLCS

DRIVE,aRLCS
#DRDY .3RLCS

BGNTST

q4o..ochn1

61.(PC)+

000001
002116

bSDLY.(PC)*

177772

-62PC)

177756

=22(PC)

012727

2222 88888888
5g- ) b ) b ) =2 Y S
N
SSNN
NESRUSES
~
SOOON
O==NNNWIIN

80 012324
81 012332
012332
012336
012340
012344
012346
012352
012354
012360
82 012362
83 012366
84 012370
85 012372
86 012374
012374
012400
012404
12406

002242

56 012206
57 012212
58 012216
59 012222
60 012226
61 012232
62 012236
63 012242
64 012246
65 012254
66 012256
67 012262

BCOMPLETE
1$
BCS

002262

SRS
38 ISVSY
WO
W
8% S¥8%

43 012140
012140
44 012142
45 012146
46 01215
47 012154
48
49 012156
50 012162
51 012166
52 012172
53 012176
3 012202

SIWNNE
SNEND
WO O

INITIALIZATION CODE

002414

.~20
DLYCNT
WAITO
R1
DRVRDY
mnn%
#FRMT12,=(SP)

#1,-(SPS
SP.RO

CSPNTB

;INITIALIZE WAIT COUNT
*SET CRDY

“SET IN DRIVE SELECT
*DRIVE READY???
*YES, THEN START TEST

*INITIALIZE DELAY COUNT

* IMPLEMENT 100-USEC DELAY

sDECREMENT DELAY COUNT
sBRANCH IF TIME DELAY NOT EXPIRED
sSIXTY SECONDS GONE BY
:NO, GO BACK
sDROPPING DRIVE = DRIVE DID NOT RECOVER

CZRLGCO RL11IRLV1;ECTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE %-2

SEQ 0089

INITIALIZATION CO
7

012410

062706

000004
6$:

010504

002246

ADD

#4,SP

JSR

PC,LINE1

MOV

UNITST,RO

DODU
TRAP

DOCLN

4S:

#200,aRLCS
ogoo@RLCS

END:

SETVEC
MOV

avec #INTSRV, #340
#340 - (SP)

MOV

#3,-(SP)

000340

014212
002266

BIS

104411

PSS

002326

&2
33

N
23

(CS$DC

:GS FUNC

DRIVE ,aRLCS

:SELECT DRIVE
ISSUE IT
:WAIT FOR READY

(sp>
axursnv.BVEC,=(SP)
CSSVEC

#10,SP
PFLG

AP
CSRDBU
BNCOMPLETE
1$
BCC

INC

SETUP DR RST

;CLR PROCESSOR FLAG
; Q-BUS

PFLG

:NO, Q-BUS THEN

ENDINIT

TRAP

CSINIT

ENDMOD

RNV

SNNONNVO

vivvuiuaiuniiniuniuniunvaiviwn

WWWWNOININININ)
= =3 =

READBUS

L10013:

oo~

ADD
CLR

000010
002324

002324

MOV
MOV

TRAP

104407

oo
n

b el ok 2 e

) o

PPN e b = b b b b
—0 OV
~NION IS W

167570
167562

000003

—

OO0O0O0O0O0O0O0O0O000O0
D et e cd o d md e} d =S s ok
O0O000
b d e =d

NoSoIBIRAR

—

D e

D ed e

ind

d o

[elelelelelelelele
(=]l

0
GR2 8 83

—

[=]=l=]

b cd =D cnd b d
— cd

614

;FORCE AN ABORT

BIC
3%5

000200
000200

103002
005237

CSDODU

aaLoA
013
#204,3RLCS

002270 167576

005037

UNITST

167616 BGNTST: MOV
000013
MOV
000204 167604

TRAP

012504

:/FROM POWER FAILURE

:GIVE DRIVE INFO
:TELL SUPERVISOR TO DROP IT

005777

.SBTTL AUTO DROP SECTION
BGNAUTO

CLR

TRPFLG

SETVEC ERRVEC.#TRPHAN #3540

000340
014204
002340
000003

MOV
MOV
MOV
MOV

#340,=(SP)
,
= (SP)
#TRPHAN
ERRVEC,=(SP)
#3,-(SP)

000010

ADD

bt
000003

MOV

#10,SP

#340,-(sP)

MOV

#3,-(SP)

000010

ADD

#10,SP

000340

ekt
002340

;CLEAR _TRAP FLAG

:SET UP VECTOR TO DETECT NON-EXISTENT
:/CONTROLLER

TRAP

oY
EMT

CSSVEC

LLRVEC ERRVEC
ERRVEC,RO
MOV
TRAP

CSCVEC

sACCESS CONTROLLER

:RELEASE VECTOR

SEQ 0090

CZRLGCO RL11/RLV1T CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-3
AUTO DROP SECTION

ERRVEC,RO
CSCVEC

002340

TRPFLG
1$
#FRMT14
#FRMT14 ,=(SP)

002326
b
p

122 01 6%6
1%3 012632
1264 012634
125 012640
126 012642
012642
012646
012652
012654
012656
127 012662
128 012
012
012672
129 012674
130
131 012676
132 012704
133 012712
134 012720
135
136
137 012722
012722
012726
012732
012734
012736
138 012742
139 012746
012746
012752
140 012754
141 012754
012754
012754
142
143 012756

011454
000001

;ELSE, PRINT MSG. 'DRIVE DROPPED = NO CONTROLLER'

#1,-(SPJ

000004
010504

;PROVIDE DRIVE INFORMATION
;D0 DROP UNIT ON DRIVE

002246

SEXIT
000200
002270
000001

MoV

BIT

BNE

011520
000001
000004
010504

013700
1044351

002246

2$:
ENDAUTO
L10014:

104461

BGNMOD

144

#200,3RLCS
DRIVE ,aRLCS

g;.iRLCS

PRINTB
MoV
MOV
MoV
TRAP
ADD
JSR
DODU
MOV
TRAP

#FRMT15

TRAP

CSAUTO

;SET_CONTROLLER READY
:SELECT DRIVE
:1S DRIVE READY?
.
:YES = EXIT

:ELSE, PRINT MSG. 'DRIVE DROPPED = DID NOT
:/RESPOND WITH 'READY

sPROVIDE DRIVE INFORMATION
;D0 DROP UNIT ON DRIVE
C$DODU

CLNCODE
BGNCLN

145 012756
146

147 012756
012756
012762
148
149 012764
150 012772
151
152 012774
153
154 013002
013002
13006
155
156
157
158 013010

:DID IT TRAP?
sNO = CHECK ITS DRIVE

012700
104441

00034C

032777
001774

000200

167256

042777

000100

167246

1$:

MoV
TRAP

SETPRI

#PRI07
#PR107 ,RO
C$SPRI

BIT
BEQ

#CRDY ,3RLCS
1$

BIC

#INTEN,QRLCS

BVEC
BVEC,RO

PWRFLG

013700
104436

002266

CLRVEC
Mov
TRAP

005737

002242

TST

CSCVEC

s TREAT POWER FAILURE

N 7

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-4
AUTO DROP SECTION

002242

104412

L10015:

013024

BGNMOD

013024
013024

DEC

PWRFLG

ENDCLN
TRAP

CSCLEAN

ENDMOD

013024

6 013026
013026
013026

DRPCODE
BGNDU

000240

104453

NOP

L10016:

ENDDU
TRAP

csbu

013030
ADDCODE

BGNAU

000240

104452

NOP

L10017:

ENDAU
TRAP

CSAU

ENDMOD

—-

SRRAN2BI=N

I
DT
R R ey

NONISTEIES

b abd ab b ab ab ab b ab ab ab =b

2$:

BEQ

SEQ@ 0091

SEQ 0092

CZRLGCO RL11/RLV1T CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 6
AUTO DROP SECTION
1

GLOBAL SUBROUTINES

.SBTTL

gm 3034

BGNMOD GLBSUB

7 013034

013034
8 013035
013036

9 013040

CKERLT: INLOOP

TRAP

104420

103427

005737

BCS

011624

10 013044
11 013046

001424
005277

}z 013060

002416

15 013062
013062

012746

011303

013074
013076
16 013102

104417
062706
004737

000004
010504

013106
013112

013700
104451

002246

170020

18 013114
013114
19 013116

g? 013116

104444

BLT

PRINTF
MOV

WFRMT11
#FRMT11,=(SP)

TRAP
ADD
JSR

CSPNTF
#4,SP
PC,LINE1

SERPOINT ,MERLMT

#1,=(SP}
SP.RO
UNITST

DODU

UNITST,RO
CSDODU

MOV
TRAP
998
:

000205

DROP

99
SERPOINT

MOV
MOV

013066 012746 000001
013072 010600

998

BEQ
INC

CMP

12 013052 027737 170014 011626

17 013106

CSINLP
LETE
99

DOCLN
TRAP

:DROP THE UNIT

CSDCLN

RTS

ROUTINE TO CHECK FOR CONTROLLER ERRORS

:5!;

.SBTTL

27
28

*#THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
*«ACCORDINGLY. IT WILL MERGE THE ERROR PRINTOUT WITH THE TEST

S#EXAMPLE:

:':ROUTINE USES RO,R1 AND PICKS HEADER FROM R3

;ttttttttttttttttttttttt'ttt*t.ttt.ttttt.lttttttttttttttttttttttt

gg_

;*ERROR MESSAGE.

32
;2

i
;e

40
41

4% 013120

%
i

005037

47 013134 000205

002304

CHERR:

RLCS CONTAINED FOLLOWING ERROR(S):
DRV
OPI
HCRC
SEEK UNDER INTERRUPT

HNF

RS, CHERR

CALL

JSR

CLR

DERFLG

;CLEAR OUT DRIVE ERROR FLAG

RTS

:NO, EXIT

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 6-1

SEQ 0093

ROUTINE TO CHECK FOR CONTROLLER ERRORS

. kg 13136 853727
013144
49
50 01 168

401
14

002412

000004

199$:

000002

98$:

1 013150

023727

002412

53 013160
56 01 194
35 0131 0
56 013174
gg 013176

013700
042700
022700
001001
000205

0023
00177
140000

59 013200
60 013204
61 013210
62 013212
63 013216
64 013220
65 013226
66 013230
67 013234
68 013240
69 013242
70 013250
71 013252
72 013256
73 013260

01%701
005737
1000g3
004537
004045
032737
001405
005237
004537
003774
032737
001403
004537
004001
032{37

007770
002306

75 013270

004537
00400
832737

013664

004537
00401
032737
0014
004537
004021

013664

uwucmwouo~

:GET START OF STRING
:1S COMPOSITE ERROR SET?(BETTER BE)
:1T'S NOT SOMETHING IS WRONG
:YES, PUT “'COMP'" IN STRING

99%:

#DERR,E.CS

:DRIVE ERROR SET?
:NO, CONTINUE

002306

3s:

002000

004000
010000

002306

4$:

002306
002306

58:

013664

004000

38
DERFLG
R5,FIX

#NXM,E.CS
43

R5,FIX

013664

—

WNONNWN
NONWN

#EM102,R1
E.CS
99%
R5.FIX

002304
013664

020000

002306

6$:

01366¢

#0P1,E.CS

63
R5,FIX

RESTMS:

2%
#BIT11,E.CS
78
RS.FIX

RS.FIX
0
(R1)

Sseafir

2
b

“NON-EXISTENT MEMORY ERROR?
:NO,

CONTINUE

:yfiifi,pur "NXM'* INTO STRING
:1S OPI SET?
:NO, 6O CHECK BITS 11 & 12
:PUT "OPI'* INTO STRING

:HEADER NOT FOUND?

RS,FIX

073664

. DRV INTO STRING
PUT
:YES

#8IT12,E.CS
8s
R5,FIX

013664

7%:

:SET DRV_ERROR, FLAG

*HEADERCRC ERROR?

013664

002306

*NO, GO SERVICE
*YES, EXIT

#BIT11,E.CS
5%
R5.FIX

#8IT12,E.CS
8$
RS,FIX

010000

;GET E.CS

1$:

1$
R5

300.,LF,ERRG
oo

b d od

002306

sYES SERVICE ERROR

*DRIVE ERROR ALONE?

013664

040000

S.RO

gs Ro
§i1535

sFUNCTION=NOP, RESET, GETSTATUS
sYES, GO CHECK IF ONLY DRIVE ERROR

#140000,R0
. 2%:

§ug
2

d
b
e
e
o

(WYY

e
e
D e o
D d i o
D
e
o

d md

OO0O00

S8R e R8eSBRITRRER2E

O0000OOOO0OO0O0O0O0O0O0O0O0O

79 013306

VIOoOWnS NO WS

WWWWWWNW
RRERR R
ugumwuwwuuu
NARSRRARER
SIEEETRE
~oS& RRoad

77 013276

001410

2 S aoReySfiié;

013156

TMPFNC ,#GSTAT
98%
1$
, #WRCHK
TMPFNC

ERR6

*NO, GO CHECK HEADER NOT FOUND
:ggcgtc:,r, "HCRC"' IN STRING

:NO,

GO PUT *'CRLF’* IN STRING

:guz,}nw

IN STRING

:PUT "'CRLF** IN STRING

:DATA CRC ERROR?
:NO, GO CHECK DATA LATE

:?uz "DCK'* IN STRING
:DATA LATE ERROR?
:NO, GO PUT IN ‘‘CRLF

:ggtr,er IN STRING
sHEADER FROM TEST

sPUT TERMINATOR IN

SEQ 0094

ROUTINE TO CHECK FOR CONTROLLER ERROR

155 013652
156 013654
157 013656

RTS

.SBTTL
I¥322222

sEXIT ROUTINE

LOAD RLCS

8222222122222 23 3232123322232 2332322222222 2 33

diidiidddl)

;BITS TO BE LOADED, FUNCTION
sAND INTR ENABLE ONLY

LDFUNC: MOV

002332
002304
002272
000013
004

3> %%

LA
TR TR TR TR

;* ROUTIN E TO LOAD RLCS WITH FUNCTION TO BE PERFORMED
JSR
R5,LDFUNC
CALL :

(R5)+,LDCSR

DERFL

;GET BITS TO LOAD

166610

99%:

~
~
~

8§SS

[=lelelelelelo]

(=]

R2R28
N = b )= b b
- NN WNRONW 882

N~ ~ S~y
WS NWNW
HNN
NNNOSN

101
102 013416 000205
10
104
105
106
107
108
109
110
11
11§
113 013420
114 013424
115 013430
116 013432
117 013436
118 013444
119 013452
120 013460
121 013466
122 013472
123 013500
124 013502
125 013504
126 013512
127 013520
128 013526
1%8 013534
013540
130
131 013544
132 013546
133 013550
134 013554
135 013556
136 013564
137 013566
138 013570
139 013572
140 013576
141 013604
14§ 013618
143 01362
144 0136%4
603
145 013632
149 013634 000205
14
148 013636
149
150 013640
151 013642
15; 013644
15 013648
154 01365

sSAVE R3
sCLEAR ALL BUT FUNC & INTR EN

98$%:

FNDFNC , TMPFNC

#HDRLST,R3

FNDFNC

013636

013636
000100

013402
002270
000200
00% 32
013676
000200

002332

sSAVE FUNCTION
sONLY FUNCTION

sGET HEADER LIST
sALIGN TO RIGHT

1¢:

2%
(R2)+ (R3)+

:%UHP R3 BY &

2%:

#INTEN,LDCSR

*YES.DO WE WANT FLAG OR INTR
:FLAG BRANCH

;gDFNC

3s
(R3)+
(R3) ,R3
R3,RESTMS
onéve.Locsn
#200,(DCSR

3s:
4$:

LDCSR,aRLCS
RS ,BEFORE
pzbo.aagcs

(SP)+,R
RS

FNDFNC:

HDRLST:

OKHDR:

SEKINT

SFOUND IT
*NO,KEEP LOOKING

*INTR POINT TO THAT ONE
*SET HEADER
:SET UP HEADER
*SELECT DRIVE
*CONTROLLER READY

;RESTORE R3
SEXIT

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V 26.00 30-NOV~-81 13:58:41 PAGE 6-2

E . 8

E%:kGC8C§L1IIRLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 6-3

RHDMES
RHDINT

00435

:fifit'ttit.ttttt*tlttttttt't'tttttttlfittttfi.tttttttttttfittititttt

) D

ooV
JFUNANIIBEIE
SRR S
2E I NNSNNN
8RLRAR SO 2SRRI

SEQ 0095

s*ROUTINE TO MOVE ASCII STRINGS

;*USES REGISTERS R1 = WHERE STRING IS BEING BUILT

)

JSR

FIX:
1$:

MOV
MOVB

(RS)+,R0
(RO)+.(R1)+

:GET ADDRESS AND MOVE RETURN
*GET BYTE AND UPDATE

=(R1)
RS

*BACK UP OVER ZERO BYTE
SEXIT

BNE

00000

TSTB
RTS

D
o
D
e
D D cnd e

b b d b — cd o
D D o

CALL

. WORD

:ADDRESS OF STRING TO MOVE

*WATCH O BYTE TERMINATOR

;LOAD REGISTERS BEFORE OPERATION
RS ,BEF ORE
SCALL: JSR
166346

002272

BEFORE: MOV
MOV
MOV

aRLCS.B.CS
aRLBA.B.BA
aRLDA.B.DA

;READ CS
*READ BA
*READ DA

CMP

#2.7.CNTLR

*IF THE CONTOLLER IS AN RLV12

MOV

002410

BNE

002302

1$:

aRLMP,B.MP

*READ MP

MOV

aRLBE ,B.BE

RTS

READ BE

:LOAD REGISTERS AT ERROR
RS,AFTER
SCALL: JSR
AFTER:

b b

D b b b D d =

RS,FIX

MOV

MOV
MOV
MOV

b o o

MOV
MOV

—

CMP

1$:

BNE
mov

RTS

aRLCS,E.CS

aRLBA.E .BA
aRLDA .E .DA
aRLMP.E .MP

aRLMP . E . MP1
aRLMP . E . MP2

#2.7.CNTLR
1$
,E .BE
aRLBE

:READ CS

*READ BA
*READ MP

*READ DA

*READ MP SECOND WORD IN SILO
*READ MP THIRD WORD IN SILO

*IF THE CONTROLLER IS AN RLV12
*READ BE

SWN=O

NN NN

.SBTTL ROUTINE TO CALCULATE CRC
sROUTINE WILL CALCULATE A CRC-16 CRC ON A WORD OF

:1=16 BITS IN LENGTH, RESULT IS RETURNED IN ‘‘CALBCC"
CALL:

JSR

«WORD
.WORD

.WORD

R5,SIMBCC

sNUMBER OF BITS (1-16)
:DATA FOR CRC CALCULATION
sPREVIOUS OR STARTING CRC

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 6-4

SEQ 0096

18:

OO0

SIMBCC: MoV

MOV

Mov

& RESRERSERERTFRSREINS

DO O

- d e

2%:

;337
~

002352

—_

&»H

A V) S

(R3)+,TEMP
(R5)+,TEMP
(R5)+,TEMP4

;GET NUMBER OF BITS
sGET DATA FOR CRC CALCULATION
sGET STARTING CRC

:GET PREVIOUS CRC
sROTATE NEW DATA
sMERGE NEW WITH OLD
sBIT 0 SET
:IF NOT CONTINUE

*GET CRC POLYNOMIAL (CRC=16)
*COMPLIMENT POLYNOMIAL
;CLEAR CARRY

BCCFBK,RO
TEMP4 ,R1
R1.R2
R1,RO
BCCFBK.RZ
R2,.R
XPOLY, TEMP4

002352

22 3388

—_— B

:SAVE RO
:SAVE R1
:SAVE R2

TEMP4

002346

(SHOULD BE ZEROED FOR START)

RO,=(SP)
R1,=(SP)
R2,=(SP)

BCCFBK
TEMP4 RO
TEMP3
RO
#1,R0
2$
BCCFBK
XSOLV.RO
R
RO,BCCFBK

o
o

e =

NWWO
W
~

000

o Qo Gy

[=1=l=]

OO0
d
h md

060

D d D e emd b b D
BERREREDEDDEDDDDDEES

o
oo 0000000000000
00O

4054

52 014200

NINON NNNINNININ
wvivawviwvianawnaw
o

- b -o_ng

ROUTINE USES RO,R1,R2

©o

NN
S
(VS B o

NINININNININININI
N NN NN NN

= b b b b
N NN NINININININ)
¥ AT WWWWNN
SIS MN—‘SOQNOU!J‘WN—'OOO%W

ROUTINE TO CALCULATE CRC

RO, TEMP4
TEMP2
1$
TEMP4, CALBCC

002344

012600

(SP)+,R2
(SP)+,R1
(SP)+,R0

sRESTORE REGISTERS FROM STACK

sRETURN

sROUTINE TO SET FLAG_ I F TRAP OCCURRED
:"'TRPHAN'' IS IN LOCATION 4.

262 014204
263 014210
564

005237
000002

002326

014216
589 014216
014216

TRPFLG

s INDICATE TRAP
sRETURN

INTFLG

sINDICATE INTERRUPT

BGNSRV

222 014212

22; 014212

TRPHAN: INC
RTI

005237

002330

INTSRV: INC
ENDSRYV

000002

L10020:

RTI

CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 6-5

SEQ 0097

NONON)
= =

NN NN

BEDDDEDDEDEDDNS

166014

18:

002116

177772
177756

N = =2\

28:

e
d

\L L

#,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
=4
=22(PC)
=20
R1
1$

;CHECK IF TIME UP
*NO, GO CHECK DRIVE READY

#2000, ,R1
#DRDY ,SRLCS
28
1

*TIME OUT OF 200 MILLISECONDS
*DRIVE READY?
*YES, EXIT
SWAIT A WHILE

.WORD
"WORD
.WORD

200
DRTIM
ERRS

MOV
RTS

(SP)+,R1
RS

CSERDF

:RESTORE
SEXIT

:ROUTINE TO WAIT FOR CONTROLLER READY

017500
000200

165726

18:

R1,=(SP)

:SAVE R1

#CRDY ,SRLCS
28

*CONTROLLER READY
*YES, EXIT

MOV
WORD
MOV
WORD
DEC
BNE
DEC
BNE
DEC

#1,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
e
=22(PC)
.~20
R1

:CHECK IF TIME UP

JSR

RS,AFTER

ERRDF

100.,CRTIM,ERR6 :;CONTROLLER TIMED OUT

.WORD
"WORD
.WORD

100
CRTIM
ERR6

JEXIT

JSR

RS.AFTER

:GET REGISTERS

RTS

JEXIT

MOV
BIT
BNE

DELAY

000001

002116
177772
177756

BNE

[vX]

—

:SAVE R1

200..DRTIM,ERRS ;DRIVE READY DID NOT SET

WTCRDY: MOV

013746

b =
b

TRAP

—

o000
©

RESRY

R1,=(SP)

ERRDF
TRAP

o000

4360

MOV
BIT
BNE
DELAY
MOV
LWORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE

000001

N
O

BEERE

NN NN

003720
G00001

WTDRDY: MOV

b cmded mmd cud cd

0000000000000
00

;ROUTINE TO WAIT ;OR DRIVE READY

JANN 3
JFFEINE FROSSRoNNO
&

BSOS BEBEEDE DS

O00O0O0O0O0O0O0O0O0O0O0O0O
R
- e sY R
O00O0O0
P N e L]
00
R

PoRRIRRS

NN
©" 00 0o Co 00 Qo Co
Co0 0o

333

ROUTINE TO CALCULATE CRC

14374

013746

gs:

MOV

#8000, ,R1
1

*WAIT 800 MILLISECONDS

SWAIT A WHILE

*NO GO BACK

:GET REGISTERS

CSERDF

(gfi)o.n1

CZRLGCo RL11/RLVIN STERCTST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 6-6'
T
H

VIS

ROU T INE TO CALCULA

306

014406

£2
&&

X 32233322222222222232232333233231333331123233331383333333333333333332443}

gygagupa.a-a
OO 2

005037

002326

012746

000340
014204
002340
000003

D
o wd

A A

::ti*ittttfittttttt.t.ttttt'tfit.ttttittttttttttttttttttt'tl.tttttt

b o

cd d wd

OO000OO0OO0

000

—

[«
AV,
F

MM
= —b =2
-0V~

s#xaxSTART OF TEST##nw

?esr T0 SEE IF WE CAN ADDRESS THE CONTROL
SAND STATUS REGISTER. IF WE TRAP WE WILL REPORT
STHE ERROR AND ABORT. AFTER THIS TEST WE ONLY KNOW
s¥23§ WE CAN ADDRESS THE REGISTER.

013737

18:

2s:

gS;VEC E§RVEC.J;§PHAN.034O sSET TO CATCH TRAP
CLR

TRPFLG

MOV

#3,-

ADD

CSSVEC
#10,SP

165604

TST

aRLCS

002340

Mov

ERRVEC,RO

002326

TST
BEQ

TRPFLG
3s

TRAP OCCURRED?2?
IKAY PROCEED

ERRSF

g.tffll.ERR1

;BUS TIMEOUT IN ADDRESSING RLCS

002250

TRAP

LEAR TRAP OCCURANCE

000010

TRAP

MOV

002362

TRAP

000000
004740
010176

.WORD

3s:
ENDTST
L10021:

104401

sADDRESS RLCS

CLRVEC ERRVEC

104454

104406

+SBTTL

CSCVEC

RLCS,GDDAT

.WORD
.WORD
CKLOOP
TRAP

EH1
ERR1

TRAP

CSETST

STARS

:RELEASE TRAP VECTOR

sef UP ERROR DATA

:CHECK IF /FL:LOE IS SET

CSCLP1

JaxxxEND OF TESTwwwx

#«TEST 2%+ - RLBA ADDRESSABILITY

:axxaSTART OF TESTw#an

BGNTST

SRR

RR RN

ANR AR

ARRANRAAR

fEST TO SEE IF WE CAN ADDRESS THE BUS ADDRESS

32
33
Sg

ARRRARRARRS

;RECISTER, IF WE TRAP WE WILL REPORT THE ERROR
‘ND ABORT. “AFTER THIS TEST WE ONLY KNOW THAT

SUE gAN ADDRESS THE REGISTER.

56 014502
37
38 014502

SEQ 0099

#+TEST 1%+ = RLCS ADDRESSABILITY

ggg;gr

S
e

CDC)

O0O0O0O0O0O0O
— e
e
h b

VONOWM
—_—

WN=O

«SBTTL

13:58:41 PAGE ’
30-NOV=81
V04.00
MACRO
1
TST
CTLR
RLI1/RLVI1
CZRLGCO
*++TEST 1++ ~ RLCS ADDRESSABILITY

tttttt.tt.tttt.ttttttt.ttttt.tt..tltttttttt".ltttlttttt!tttttt

005037

002326

13:

CLR

TRPFLG

sCLEAR TRAP OCCURANCE

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE ’-1
CZRLGCO
++TEST 2%+ ~ RLBA ADDRESSABILITY
39 014506
014503
01431
014513
01452
0145%8

2s:

000340
016;04
2 4g

SETVEC

MoV

#340,-(SP)
= (SP)
#TRPHAN,
ERRVEC,=(SP)
#10,SP

41 014534
42 014540
014540
014544
43 014546
44 014552
45 014554

165512

aRLBA

46
47 014562
014562
014564
014566
014570
48 014572
014572
49 014574
014574
014574
50
51
52
53
54 014576
55 014576

CSCVEC

002326

1. ,EM2,ERR1

;BUS TIMEOUT IN ADDRESSING RLBA

EM2
ERR1

3s:

104406

CSCLP1

ENDTST

L10022:

104401

.SBTTL

TRAP

*RELEASE TRAP VECTOR
;TRAP OCCURRED??2?
*NO, CONTINUE

RLBA,GDDAT

002362

;ADDRESS RLBA

TRPFLG
3s

%SERSF

104454
000001
004765
010176

:SETUP ERROR DATA

;CHECK IF /FL:LOE IS SET
st aEND OF TESTwwxs

CSETST

««TEST 3+« -~ RLDA ADDRESSABILITY
sanxxSTART OF TESTawnx

STARS
32 1232222332322 22 8222222222333 33333333333 3332322222333 d 32 ddittidlsd)

:TEST TO SEE IF WE CAN ADDRESS THE DISK ADDRESS

56
57
58
59
60 014576
61
62
63 014576
64 014602
014602
014606
014612
014616
014622
014624
65
66 014630
67 014634
014634
014640
68 014642
93 014646

ERRVEC
ERRVEC RO

002340

002252

;SET TO CATCH TRAP

#3,-(SP)
CSSVEC

000010

001407
013737

SEQ 0100

ERRVEC ,#TRPHAN,#340

0145

sREGISTER IF WE TRAP WE WILL REPORT THE ERROR
;AND ABORT.

AFTER THIS TEST WE ONLY KNOW THAT

WE CAN ADDRESS THE REGISTER.

STAR

23 I 1228333332222 2222222223332 3232333333333 3233333222233 dddddiiidtl

1$:
2$:

005037
01?7‘6

TRPFLG

:CLEAR TRAP OCCURANCE

ERRVEC ,#TRPHAN,#340 ;SET TO CATCH TRAP

#340,-(SP)

= (SP)
#TRPHAN,
ERRVEC,=(SP)

#3,-(SP)
CSSVEC

000010

#10,5P

165420

aRLDA

;ADDRESS RLDA

002340

ERRVEC RO
CSCVEC
TRPFLG
$

:TRAP OCCURRED??2?
*NO, CONTINUE

002326

ERRVEC

*RELEASE TRAP VECTOR

CZRLGCO_RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 7-2
*+TEST 3*+ -~ RLDA ADDRESSABILITY

71 014650 0313737 002254 002362
72 014656
014656 1044564
014660

014662
014664

73 014666

014666
74 014670

014670
- 014670

38:

104406

ENDTST

L10023:

104401

SBTTL

aLoA.goon
2. ,EM3,ERR1
Sstasr

"WORD
"WORD

EM3
ERR1

TRAP

CSCLP1

TRAP

CSETST

.WORD

000002

005012
010176

MOV
ERRSF
TRAP

CKLOOP

*REGISTER. IF WE TRAP WE WILL REPORT THE ERROR AND
*ABORT. AFTER THIS TEST WE ONLY KNOW THAT WE CAN

*ADDRESS THE REGISTER.
STARS

85 014672
86
87

88 014672

89 014676
014676
014702
014706
014712
014716
. 014720
91 014724

92 014730

014730
014734

93 014736
94 014742

;:ttttttttttttttttt.tttttt"tttttttttttt\ 1232224223333 3333333331

005037

002326

012746

000340

012746
013746
012746
104437
062706
005777
013700
104436
005737
001407

18:

28:

014204
002340
000003
000010
165326

CLR

002326

ERRSF

8 =
GR28

014756
014760

014762

000003

005037
010176

014762
014764

104406

014764

104401

014764

ENDTST

L10024:
.SBTTL

RLMP,GDDAT
3. ,EM&,ERR1

TRAP

gsénsr

"WORD
‘WORD

EM4
ERR1

TRAP

CSCLP1

TRAP

CSETST

.WORD

3$:

*RELEASE TRAP VECTOR

ERRVEC,RO
CSCVEC
TRPFLG
3s

97 014752
014754

ERRVEC

MOV
TRAP
ST
BEQ

MOV

014752 104456

:CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN,#340 ;SET UP TO CATCH TRAP
#340,-(SP)
,
= (SP)
#TRPHAN
ERRVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP
:ADDRESS RLMP
aRLMP

CLRVEC

002340

TRPFLG

SETVEC
MOV
MOV
MOV
MOV
TRAP
ADD
ST

32 014744 013737 002256 002362

)

saaaEND OF TESTwwsw

*TEST TO SEE IF WE CAN ADDRESS THE MULTIPURPOSE

82
83

;CHECK IF /FL:LOE IS SET

: °ttttttttttttttttttttttttttttttttttttttttlttttttttttttttt'tttttt

:SETUP ERROR INFO

:BUS TIMEOUT IN ADDRESSING RLDA

;#a%aSTART OF TEST#wws

STARS

80 014672

SEQ 0101

+*TEST 4%% = RLMP ADDRESSABILITY

BGNTST

79 014672

CKLOOP

;TRAP OCCURRED??2?
*NO, CONTINUE

:SET UP ERROR INFO
:BUS TIMEOUT IN ADDRESSING RLMP

:CHECK IF /FL:LOE IS SET
sanaxEND OF TESTwnnn

#+TEST 5+« - READ WRITE OF RLCS

MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-:
1
TST
CTLR
1
RL11/RLVI
CZRLGCO
+*TEST S+« = READ WRITE OF RLCS
106
107

STARS

108 014766

: sk tttttttttttttttltt'ttttttttttt.tttttttitfiitt"tt.tttttttt.tt

*TEST THAT WE CAN WRITE/READ BITS 8,9 AND BITS 6~1

109

OF THE CONTROL AND STATUS REGISTER. BITS_15-10 AND 0
*ARE DON'T CARE BITS AT THIS TIME AND BIT 7

110
11
.1§

113

SEQ 0102

suaaaSTART OF TEST#wee

BGNTST

}gg 014766

“ (CONTROLLER READY) IS ALWAYS WRITTEN TO A ONE.

STARS

014766

;:ttttfitttttt*ttttt*tt'ttttttttttttttttttttttttttttttttttttttttt*

114
115

MOV

}}9 014766 012703 002772
118 014772

- 014772

BGNSEG

104404

120 014774

CSTEST:

121 014774 011337
122 015000 052737

002362
000200

002362

032777
001403
052737
017737
042737
023737
001404

040000

165226

123 015006 013777 002362
124 015014
125 015022
126 015024
127 015032
128 015040
129 015046
}gg 015054
132 015056

015056
015060
015062
015064

104455
000004
005064
010210

015066
e 015070

104410
000012

133 015066
135

136 015072
137 015074

}gg 015100

005723
020327

001335

143

002362
002364
002364
002364

99$:

1$:

104405
104401

ENDTST

L10025:

}2§

JSBTTL

}29 015106

BGNTST

:GET PATTERN INTO GDDAT
*INSURE GO IS SET

BIT
BEQ
BIS
MOV
BIC
CMP
BEQ

*IF DRIVE ERROR PRESENT
#DERR,SRLCS
“THEN EXPECT DRIVE AND
99
#ERR!DERR,GDDAT :COMPOSITE ERROR
*READ RLCS BACK
aRLCS,BDDAT
*IGNORE DRIVE READY
#DRDY ,BDDAT
:DID WE READ WHAT WE LOADED
GDDAT ,BDDAT
*YES, THEN BRANCH
18

GDDAT,@RLCS

*LOAD RLCS (CONTROL AND STATUS)

ERRDF

4. ,EMS,ERR2

:WRONG DATA IN RLCS

ESCAPE

SEG

:IF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+
R3,#CSEND

:BUMP FOR NEXT PATTERN
*CHECK FOR END

TRAP
JMWORD
"WORD
"WORD

TRAP
.WORD

BNE
100008:

;##x*START OF SEGMENT*#%#

(R3) ,GDDAT
#200, GDDAT

ST
CMP

003070

:SET UP TABLE POINTER OF PATTERNS

MOV
BIS

CSERDF
&
EMS
ERR2

CSESCAPE
100008~-.

CSTEST

*NOT END, LOAD NEXT PATTERN

;axxxEND OF SEGMENT#xw#

ENDSEG

140 015102

015102
015102
141 015104
015104
i 015104

140000
165212
000001
002362

C$BSEG

MOV

165234

#CSPAT,R3

TRAP

CSESEG

TRAP

CSETST

;axasEND OF TESTawws

+*TEST 6*+ = READ WRITE OF RLBA
;axxSTART OF TESTa#ws

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 7<4

SEQ 0103

++TEST 6*+ = READ WRITE OF RLBA

TARS
ttttttttttttt'tttttttttttttttttttttttttttttttt.tttttt
?-tttttttttt

:BUS ADDRESS REGISTER.

FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,

sGROWING O AND SHIFTING O.

STARS

NVO% N N ONJ\OOOObbNNg
bl‘?)NOO

012703

002416

BGNSEG

104404

011337

002362
000001
000001
002362
165102
002362

BATEST:

002410

002362

28:

002364

o e

b e

e nd

OOV WWWNIN)
= b =3 2

33 1223323332222 222223 3322232222323

D —d

Vil

1$:

3322233822333

idididdidddl]

sGET START OF PATTERN LIST
s*#xxSTART OF SEGMENT#*%#+

Mov

#BEGPAT ,R3

TRAP

C$BSEG

MOV
CMP

(R3) ,GDDAT
g}.T.CNTLR

sGET PATTERN TO SEND
:RL112?

BIC
MoV
MoV
CMP
BEQ

#81T0,GDDAT
GDDAT ,3RLBA
aRLBA ,BDDAT
GDDAT ,BDDAT
1%

:KEEP RLBA EVEN (UNIBUS)
:LOAD PATTERN TO BUS ADDRESS

ERRDF

5.,EM6,ERR2

WORD
.WORD
.WORD

5
EM6
ERR2

TRAP

CSESCAP

TRAP

e
b
d
—b

— b ed cmd D d ed D D cd e

siniununivuiauniaainaunu

O00O0O0O0O0O00O0O0O

D b D b b 3

BIT 0 IS ALSO LOADED BUT

: SHOULD ALWAYS COME BACK AS 0

015106

— e

oMWV

:TEST THAT WE CAN WRITE/READ BITS 15=1 OF THE

OCOO0000O00

o
0

- e e d de

D b nd D D

GFMSRJghdhhflg; V00

— et )

wvivivagoay

—_— b b

v=
WN=O ©

148 015106

ESCAPE
.WORD

CSERDF

SEG

100008-.

:NO,

sREAD IT BACK
sIS IT CORRECT?
:IF SO, BRANCH

;DATA WRONG IN RLBA

:IF /FL:LOE SET LOOP, ELSE EXIT SEG

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8

SEQ 0104

KL RS

ENDSEG
100008:

ENDTST
L10026:

[a¥)

pord

BATEST

*NOT END, BRANCH FOR NEXT
suxe*END OF SEGMENTxnnx

TRAP

CSESEG

TRAP

CSETST

s#aa2END OF TEST#w#w

#«TEST 7+ - READ WRITE OF RLDA
;#axxSTART OF TESTw#aw

STARS

AR AR

RN AR

AR AR

RRRRRAR

;TEST THAT WE CAN WRITE/READ THE DISK ADDRESS REGISYER

s?:gglNG 1, SHIFTING 1, GROWING O AND SHIFTING 0

—

¥}

:ALL BIT POSITIONS ARE WRITTEN USING FOURPATTERNS:

Y (VI IV IV Y
NN
~N

OO0O0OO0O0
— b b e D =D

e AR

002362
002362

v
165022

165016
002362

002364
002364

DATEST:

18:

002624

#BEGPAT ,R3

TRAP

($BSEG

MOV

:SET UP POINTER TO PATTERN LIST
saxxxSTART OF SEGMENT®%xx

MOV

GDDAT,aRLDA

(R3) ,GDDAT

sGET PATTERN
sLOAD PATTERN IN DA

MoV

@RLDA ,BDDAT

sREAD PATTERN BACK

BEQ

*BRANCH IF CORRECT

ERRDF

6. ,EM7,ERR2

:WRONG DATA IN RLDA

WORD
.WORD
.WORD
ESCAPE
TRAP
.WORD

6
EM?
ERR2
SEG
CSESCAPE
100008~-.

;1F /FL:LOE SET LOOP, ELSE EXIT SEG

ST
cMP

(R3) +
R3,#ENDPAT

:BUMP POINTER
A END OF PATTERNS?

8NE

NDSEG
500088:
ENDTST .

L10027

AR AR RN ARAAARARAAARAARAR
AR
AR
RRAS

MoV

TRAP

flf“fl”“fli
N
RN J&R

AR R AR AR AR

CMP

wvivvunwnawg

A
I
L
R
NNONNNON

pur T PSS

BGNSEG

NOO

LV LV
NN

OO0
—d =D

002416

el L

OCOO0O0O0O0O0O0
B
e e e

wvwwh
A
WVIAWIWAW

OO0

STEYSNR

;BUMP FOR NEXT PATTERN
:CHECK FOR END

BGNTST

15212

O0000

(R3) +
ns ENDPAT

BNE

ot
D

e
d
d
e
e
b

bbb cdeded

VS WN=OV

S dadad

VONO

TST
CMP

«SBTTL

kruzgxhfl“&flufl)
NNV
ONOWVIS
WN=O

DN =

wvinhwwn
Vil

00O
coocooo

NOWVIS
W -

**TEST 6+~ = READ WRITE OF RLBA

GDDAT ,BDDAT
CSERDF

DATEST

:IS IT CORRECT?

. BRANCH BACK

:""END OF SEGMENTeewe

chasee

seaefND OF TESTenns

€2
'

SEQ 0105

*+TEST 7++ = READ WRITE OF RLDA

015276

TRAP

104401

.SBTTL

CSETST

#+TEST 8+« ~ BIS OF RL(CS

;##2START OF TEST#wes

BENTST

:'itfiitfit'fi'ttttt.tfitt't'tit'i.ttt.tttttfitttitttt."'.tfitttt't..t

TEST THAT WE CAN USE THE 'BIS'' INSTRUCTION ON THE CONTROL

:AND STATUS REGISTER. BITS 8,9 AND 6-1 ARE TESTED TO
SET INDIVIDUALLY AS WELL AS COLLECTIVELY WITHOUT DESTROYING

{ANY PREVIOUS DATA PATTERN

BGNSEG
-

000200

164734

o
o
o
o

164710

—
3

011337 002562 002362

012777

002362
802364
02364
002362

N
R

NSOONONNORO
S

002772

104404

SRR2A8

NRAAR 2”“&#"“““
R LSS

012703

MOV

#CSPAT ,R3

TRAP

(CS$BSEG

MoV
MOV
BIS

#CRDY,aRLCS
(R3) ,GDDAT
#CRDY ,GDDAT

99$:

BIC

CMP
BEQ

#DRDY .BDDAT

BDDAT . GDDAT
28

*CLEAR OUT DRIVE READY

ERRDF

7..EM61,ERR2

;WRONG DATA IN RLCS

MOV

.WORD

aRLCS,BDDAT

CSERDF

.WORD
"WORD

EM61
ERR2

TRAP

CSESCAP

ESCAPE
.WORD

ST
CMP
BNE

003070

sxxnxSTART OF SEGMENT##aw

BIS

TRAP

28:

:GET BEGINNING OF LIST

sINSURE GO IS THERE
sSET UP EXPECTED RLCS
:
_GDDAT
:IN
:BIT_SCT PATTERN_IN RLCS
(R3),8RLCS
:IF_ERROR BIT SET THEN
#DERR,@RLCS
:EXPECT IT ON THE READ
998
e
WERR!DERR,GDDAT :BACK

BIS
BIT
BEQ

W
&S
o
N

b D e

D e

d d

Vi | i

4
&~

- ed
D
—3

o 0000

oo
WYY
v
<><fi;9=85nghufic-agiocl~i
E¢~n

0000000000000
O

::ttQtttttttfititt.tttttttiitt.ttit'ttttttttttt.tt*l.lttttttfitttti

:READ RLCS TO CHECK 'BIS

SEG

100008~

(R3)+
#CSEND,R3
1$

ENDTST

L10030:

LSBTTL
84 015424

BGNTST

:1F /FL:LOE SET LOOP, ELSE EXIT SEG
:BIT OR CLEARED OTHER BIT
;GET NEXT PATTERN
AT END OF LIST
*NO GO BACK FOR TEST OF
*NEXT PATTERN

taataEND OF SEGMENT*#x#

ENDSEG

100008:

:DID BIS WORK?
*BRANCH IF OKAY

TRAP

CSESEG

TRAP

CSETST

seaasEND OF TESTwens

+#TEST 9#+ = BIC OF RLCS

;wxasSTART OF TESTaxas

9
g-1
CZRLGCO_RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE

85
86 015424

» TM

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE S-Z
CZRLGCO
*++TEST 9+« « BIC OF RLCS

SEQ 0106

STARS

B2 2222222222332 3228312283233 3 0821222222223

i ididdtiditiddiddd

STEST THAT THE "BIC'* INSTRUCTION WILL WORK ON THE

87
88
89
9C 015424

*CONTROL AND STATUS REGISTER.
TESTED.

BITS 8-9 AND 6=1 ARE

STARS

::Qtttttt'tttttttit'tttQttttt.ttt.ttttttifiti*t'tttt.ittt!.tttttt.

SIKGRAT28ERLRE RGN

002772

W CEERINRS

IS NNN ~N &SN
WO
NNW
SNWNNN

geRegseeR
-tAN N = \) =D b

002362
002364
002364
002362

99%:

#CSPAT ,R3

TRAP

C$SSEG

MOV
MOV
BIC

#1776,8RLCS
#1776 ,GDDAT
(R3) , GDDAT

:SET ALL SETTABLE BITS
:SET UP EXPECT DATA IN
: GDDAT

BIT
BEQ
BIS
MOV
BIC
CMP
BEQ

#DERR,3RLCS
99$
'
#ERR'!DERR,GDDAT
aRLCS ,BDDAT
#DRDY ,BDDAY
BDDAT ,GDDAT
2$

sIF DRIVE ERROR BIT SET
JEXPECT IT SET WHEN WE
;READ IT BACK
JMOVE RLCS TO BDDAT FOR COMPARE
sCLEAR DRIVE READY
:DID 'BIC’' WORK PROPERLY
;BRANCH IF OKAY

ERRDF

8. .EM62,ERR2

:WRONG DATA IN RUCS -

.WORD
.WORD
.WORD

8
EM62
ERRZ

TRAP

CSESCAPE

TRAP

2$:

ESCAPE
.WORD

003070

ENDSEG

:
100008

ENDTST
L10031:

LSBTTL

(R3) ,aRLCS

CSERDF
SEG

:CLEAR BITS IN RLCS VIA 'BIC

e o
‘W

:IF /FL:LOE SET LOOP, ELSE EXIT SEG

100008-.

TST
CMP

BNE

(R3)+
R3,#CSEND
18

TRAP

CSESEG

TRAP

CSETST

:GET NEXT PATTERN
;AT END OF LIST
JNO, GO BACK WITH NEXT PATTERN
sxxtxEND OF SEGMENT*##«

saxxxEND OF TESTwwnn

#«TEST 10++ - BIS OF RLBA

saxxxSTART OF TESTenan

BGNTST
STARS
T

sGET BEGINNING OF PATTERNS
sxxxxSTART OF SEGMENT*x#+

MoV

BIC

164564

vtviiv)

v
vviivy vviiviiviv
PSS &~ a9
oo = SN

OO0O0000O0
— d b D —d b d =D

oon

b O

s
oy
o

o]
O00O0 [=lelelelelellele
e
—
b
b ) D e

BGNSEG

001776

COOO0OOO0
e emd =D b ced emd D md =D

— b wd b b
— cd ) b b

SWN=O

—

el ed

D e

b e

93 015424
154

RRRRRR AR AR

AR R RRRAR

AR RRRRARRRRRRRRARRRRRR

;TEST THAT THE 'BIS'* INSTRUCTION WILL WORK ON THE BUS

sADDRESS REGISTER.

BITS 15-0 ARE LOADED,

ONLY BITS 15-1

ARE EXPECTED BACK. FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,
*GROWING 0, AND SHIFTING 0.

STARS

:;..ttttt*tttt.tt'ttt"'itiQtt.t't.tlt.'t'.i't..t"..'t..."i.'t'

1%3 015550 012703 002416
128

131 0155564

132

015554

015556

BGNSEG

104404

18:

124 015523 005077 w.l.rg

134 015562
1;2 015566
136 015574
137 015576
138 015604
139 015610
140 015616
}21 015624

u.§ 015626

011337
022737
oogt.o;
8" 7;
051377
017737
023737
001404

00236

1 002410

000001

002362

38:
164442
164436 002364
002364 002362

015630
015632
15634

000011
007024
010210

- 015640

104410
000012

146 015642

005723

144 015636
15636

28:

104405
104401

152

ENDSEG
100008:
ENDTST
L10032:

_SBTTL

}ss»;:

CLR

ansu

TRAP

(SBSEG

:GET START OF

LIST

suawaSTART OF SEGMENT##«#

;CLEAR 'BA"

MOV
CMP
BLT
BIC
BIS
MOV
CMP

(R3) ,GDDAT
#1,T.CNTLR
3s
#1,GDDAT
(RS) ,aRLBA
@RLBA,BDDAT
BDDAT ,GDDAT

*SET EXPECTED
:RLT1
:
:BIT 0 CAN'T SET IN RLBA (UNIBUS)
:BIS RLBA, WITH PATTERN
*READ
:DID RLBA LOAD PROPERLY?

ERRDF

9. ,EM63,ERR2

;WRONG DATA IN RLBA

WORD
.WORD
.WORD

9
EM63
ERR2

.WORD

100008~-.

BEQ

ESCAPE
TRAP

TST

147 015644 020327 002624
148 015650 00134
149 015652
015652
015652
150 015654
015654
. 015654

#BEGPAT ,R3

TRAP

015626 104455

MOV

CMP
BNE

CSERDF

SEG
CSESCAPE

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+

;GET NEXT PATTERN
:DID WE COMPLETE LIST
NO, GO BACK FOR NEXT.

R3,#ENDPAT
13

— —— _TRAP . _(CSESEG
TRAP

:BRANCH IF YES

Swaw%END OF SEGMENT*###

OF TEST#was
;eaasEND

CSETST

#+TEST 11%#* - BIC OF RLBA

}gg 015656

BGNTST

157 015656

STARS

158
159
160

*ADDRESS REGISTER.

sanxaSTART OF TESTwwew

:'tttttttttttttttttttttttltttttttttttttttltttttttttttttt..ttttttt

*TEST THAT THE 'BIC" msmgmon WILL WORK ON THE BUS
BITS 15-1 AR TESTED WITH & PATTERNS
“GROWING 1, SHIFTING 1, GROWING AND SHIFTING 0.

STARS

161 015656

::ttttttttttttttttttttttt'tttttttttlttttttttttttttttttttittt't.tt

163

164 015656 012703 002416
165 015662
015662

166 015664

104404

167 015664 012777 177776 164360
168 o15972 012737 177773 002362
169 015700 041337 00236

BGNSEG

18:

MOV

#BEGPAT ,R3

TRAP

(SBSEG

MOV
MOV
BIC

#-2,3RLBA
#-2.GDDAT
(R3S, GDDAT

sGET START OF LIST
saxaaSTART OF SEGMENT*%=+
s SET RLBA TO ALL 1'S (BIT 0=0)

i?fiT UP EXPECTED RESULTS

GDDAT

)

SEQ 0107

F' Y

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 2-3
CZRLGCO
++TEST 10*+ ~ BIS OF RLBA

170 015704

04.1;77

BIC

164342

171 015710 017737 164336 ooz§g4
002362
17§ 015716 023737 002
};‘ 015724 001404

MOV
CMP
BEQ

175 015726

ERRDF

RAP

015726 104455

0157
015732
01573¢

ooomg
00710
010210

015736
- 015740

104410
000012

178 015742

005723

176 015736

179 015744 020327 002624
180 015750 001345
181 015752

015752

015752
182 015754
015754
. 015754

100008:

104405

ENDTST
L10033:

104401

184

JSBTTL

}gg

}g; 015756

BGNTST

189 015756

STARS

191

TRAP
.WORD

CSESCAP
10000$~-.

(R3)+

R3,#ENDPAT
13

TRAP

CSESEG

TRAP

CSETST

:IF /FL:LOE SET LOOP, ELSE EXIT SEG
;GET NEXT PATTERN

*HAVE WE COMPLETED LIST
:NO, GO BACK FOR NEXT

Saxa2END OF SEGMENTx#ws
;#aasEND OF TESTwaws

##TEST 12+#% = BIS OF RLDA

s#aasSTART OF TESTwaws

BITS 15-0 ARE TESTED WITH & PATTERNS, GROWING 1,

$TARS
%F % 13333
333
3333333233423
23 323332332222 32333332223232233333333331333332

1
195

196 015756 012703 002416
197 015762

BGNSEG

198 015764

18:

104404

199 015764 005077
200 015770 011337
201 0157764 051377

164264
002 gz
164254

CLR
MOV
BIS

ERRDF

206 016016

016018 104455
000013
016020
ouogz 007170

omogs 104410
000012
016030

TRAP

BEQ

001404

010210

#BEGPAT ,R3

MOV

MOV
CMP

zog 016000 017737 164250 002364
002362
203 016006 023737 002

016026

SEG

CMP
BNE

‘REGISTER.

8160 6

;WRONG DATA IN RLBA

*SHIFTING 1, GROWING 0, AND SHIFTING 0.

193 015756
9‘

207

10.,EM64,ERR2

CSERDF

*TEST THAT THE 'BIS'* INSTRUCTION WILL WORK ON THE DISK ADDRESS

192

2zgg 016014

*READ RLBA
*BIC WORK OKAY?
:IF YES BRANCH

; -ttttttttittttttttttttttttttttttfittttttt*tttttttttttttttttiltttt

190

015762

(R3) ,8RLBA

10
EM64
ERR2

ENDSEG

;:BIC RLBA

aRLBA,BDDAT
BDDAT,GDDAT
b1 3

WORD
.WORD
.WORD

ESCAPE

28:

SEQ 0108

2s:

($BSEG

aRLDA
(R3) ,GDDAT
(R3) ,@RLDA

;CLEAR ‘DA"
*SET EXPECTED
*BIS RLDA

:IF OKAY BRANCH

aRLDA,BDDAT
BDDAT ,GDDAT
11.,EM65,ERR2

TRAP
WORD
"WORD

CSERDF
11
EM6S

ESCAPE

SEG

"WORD

TRAP
.WORD

:GET START OF LIST
taxaxSTART OF SEGMENT#%#+

ERR2

%scm
00$-.

*READ RLDA
*1S RLDA CORRECT
;WRONG DATA IN RLDA

:IF /FL:LOE SET LOOP, ELSE EXIT SEG

'Y)

13:58:41 PAGE s-‘
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
«+TEST 11+« = BIC OF RLBA

SEQ 0109

*++TEST 12++ « BIS OF RLD

08
09 016032
10 016034
11 016040
212 01604
01604
01604
213 016044
016044
016044
214

0057 ;

002624
020;%
001351

ENDSEG
100008:

104405

ENDTST
L10034:

104401

.SBTTL

N
&H

CSESEG

TRAP

CSETST

s**a%END OF SEGMENT##%+
sexatEND OF TESTwwww

#+TEST 13++ = BIC OF RLDA
sanxxSTART OF TESTwww«

33232222222 222222222333 2232323333333 8083233233

*TEST THAT THE 'BIC'* INSTRUCTION WORKS ON THE DISK
sADDRESS REGISTER.

didiitiiddl)

ALL BITS ARE TESTED WITH FOUR

:PATTERNS: GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0

STARS

::tt.tttttttttttlttttt'tittt'.fitttttiltl.ttitt.tififittt'itttttt*tt

225
226
227 016046

TRAP

sGET NEXT PATTERN
sHAVE WE FINISHED?
sNO GO BACK

STARS

221
222
223
224 016046

01614
81614
245 016144
016144
016144

(R3)+
R3,#ENDPAT
1%

BGNTST

218 016046
219
220 016046

002416

BGNSEG

164172
002362

1$:

Mov

#BEGPAT ,R3
C$BSEG
#-1,3RLDA
#-1.GDDAT

(R35,GDDAT

(R3) ,@RLDA
@RLDA ,BDDAT
ggDAT.BDDAT

002364
002364

2$:

002624
ENDSE
10000

ENDTS

L1003

sGET START OF LIST
s*%xxSTART OF SEGMENT*%%«

:SET RLDA TO ALL 1'S
:SET EXPECTED DATA
:SET EXPECTED DATA
:'BICTM RLDA
:READ RLDA
:DID *BIC' WORK?
:IF 1T DID BRANCH

12. ,EM66,ERR2

;WRONG DATA IN RLDA

12
EM66
ERR2
SEG
CSESCAPE
100008~-.

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

CSERDF

&»

(=]
N
oS

—

177777
177777
002362
164154
164150
002362

228 016052
016052
016054
229
230 016054
231 016062
232 016070
233 016074
234 016100
235 016106
236 016114
237
238 016116
016116
016120
016122
016124
239 016126
016126
016130
240
241 016132
242 016134
243 016140
244 01614

TST
CMP
BNE

(R3)+
R3,#ENDPAT
1%

CSESEG
CSETST

;GET NEXT PATTERN
*DONE?

O
GO BACK
*N
iaxxsEND OF SEGMENT#ww®
sanatEND OF TESTwwxe

' Yo]

CZRLGCO RL11/RLV1IT CTLR IST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-5

.SBTTL

248

2%0 016146
%SZ 016146
249

CRRRARREAARRR AR AR

274 016220
275 016226
276 016234
277 016242

278
279 016244
016244
016246
016250
016252
280 016254
281 016254
016254
016254
2

28
284
285
<86 016256
- 287
288 016256

289
290

533 016256

RANRR AR

R AN

fEST THAT A BUS RESET WILL CLEAR THE PROPER BITS
:OF THE CONTROLAND SYAT S REGISTER. THOSE BITS AR‘
BIT 15 WILL CLEAR ON
:BITS

sm\n\nv‘mmu
VoO~NONWVSW

271 01621
016212
272 016216
273 016216

;#*«START OF TESTewwe

STARS

265 016154
266 016162
267 016170
268 016176
269 016200
270 016203

##TEST 14%* - BUS RESET OF RLCS

BGNTST

RRRRRRRAERS

READV)
(DRIVE
0
BIT
SET).
NOT
1§
eknon
vé
k
l
B
:IF
BIT
T THE START UP ruxs TEST
18 A o CAR .

214 <.n1vs §RROR) 1s ssr WE WILL INSIST IF IS THERE AFTER
ALONG WITH BIT 15 (COMPOSITE ERROR). BITS
*THE "RESETTM

g}{,}? ARE nor WRITEABLE.

261 016146
262
263
264 016146
016143
016152

SEQ 0110

:;ttttttttttt'ttt..ttttt'ttttlfittttlt.tttttttttttl'tttt.t.t'ttttt

012700
104441
012777
012737
032777
001403
052737
012700
10443
005300
001376

017737
04%737
023737
0014
104455
000015
007334
010210

000340

000377
000200
040000

164066
002362
164052

140000
000100

002362

arnxo7
o7 RO

:PRIORITY TO SEVEN

MOV

0377.aaLcs

:LOAD ALL RLCS LOADABLE BITS

#DERR,3RLCS

:DRIVE ERR SET?

TRAP

MOV

BIT

18:
28:

164024
000001

SETPRI
MOV

002364
002364
002362

BEQ
BIS

#CRDY, GDDAT

TRAP

CSRESET

:WAIT IN CASE OF DRIVE ERROR

MOV

aRLCS,BDDAT

*READ RLCS

BDDAT . GDDAT
3s

:DID INIT WORK
*YES, BRANCH

ERRDF

TRAP

WORD
"WORD
‘WORD

#DRDY ,BDDAT

13.,.EM67,.ERR2

CSERDF

.SBTTL

BGNTST

*CLEAR OUT DRDY = DON'T CARE
;WRONG DATA IN RLCS

13
EM67
ERR2

saewsEND OF TESTwewns

ENDTST
104401

:SET UP A WAIT LOOP
*BUS RESET

gsg

CMP
BEQ

L10036:

*SETUP EXPECTED

:IF_NOT DON'T EXPECT IT
1$
#DERR'ERR,GDDAT “;IT'S SET, INIT BETTER NOT CLR

MOV
#100,R0
BRESET

BIC

sPRI

TRAP

CSETST

+#TEST 15%* = BUS RESET OF RLBA

;#%aaSTART OF TESTweas

STARS

3
iddidiitdd
3233
it
3
123323323222322222233

fssr THAT A BUS RESET WILL CLEAR THE ENTIRE
*BUS ADDRESS REGISTER. THE BUS ADDRESS IS LOADED WITH 177776
“AND IS EXPECTED TO BE ZERO AFTER THE RESET
STARS

V04.00 30-NOv-81 13:58:41 PAGE g-b
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
RLCS
OF
RESET
BUS
14*+
'*TEST

SEQ@ 011

*+2TEST 15+« = BUS RESET OF RL

::tttt.tt.tlttttttttt"'ttt'ttt.Q.fi.tittltt.t.tt..t.t'.ttt.t'.fii.

%gg 016256 013777 177776 16376
016264 022737 000001 00241
%37 016272
8 016274

533 016302

016306

005403
052777

005037

016306

104433

3o§ 016316

001404

000001

002362

163750

MOV
CMP

#-2,3RLBA
#1,7.CNTLR

CLR

GDDAT

BLT
BIS

28:

BRESET
TRAP

28
#1,3RLBA

;SET BA TO ALL 1'S
:RL117?2
:

;CLEAR EXPECTED DATA

*ISSUE BUS INIT

CSRESET

§81 016310 017737 163736 002364

MOV

SRLBA,BDDAT

;READ RLBA

304 016320

ERRDF

CSERDF

14.,EM70,ERR2

;WRONG DATA IN RLBA

BEQ

TRAP

016320 104455

016322
016324
016326

% 016330

307 016330
016330
308 016330

000016
007371
010210

104401

WORD
"WORD
"WORD

18:

ENDTST
L10037:

:IF CLEAR BRANCH

14
EM70
ERR2

saeasEND OF TESTwewns
TRAP

CSETST

m
§}’3 016332

309

JSBTTL +**TEST 16*% = BUS RESET OF RLDA
;#aaSTART OF TEST##ws
BGNTST

314 016332

STARS

:'ttttttttttt.tttttttttttttttttttttttttttttttttttttt.tttttttt'ttl

315

*TEST THAT A BUS RESET WILL CLEAR THE ENTIRE

316

*DISK ADDRESS REGISTER.

318 016332

STARS

317

THE DISK ADDRESS IS LOADED WITH 177777

SAND IS EXPECTED TO BE ZERO AFTER THE RESET.

::t.tttttttttttt'ttittttt"tttttttttttttttfitttttttttttttttttttttt

31
320

321 016332 012777 177777 163714
32; 016340 005037 002362
323 016344
016344 104433
324 016346 017737 163702 002364

MOV
#-1,3RLDA
CLR
GPMAT
BRESET
TRAP
CSRESET
MOV
SRLDA,BDDAT

37 016356
016356 104455

ERRDF
TRAP

szg 016354

016360

ézg 016366
016366
016366
32

016366

001404

BEQ

000017

104401

WORD

18:
ENDTST
L10040:

:SET DA TO ALL 1°S
*CLEAR EXPECTED
:ISSUE BUS INIT
:READ RLDA
*IF CLEAR BRANCH

15.,EM71,ERR2 ;WRONG DATA IN RLDA

CSERDF
15

;aaasEND OF TESTwews
TRAP

CSETST

[ X

H.9

CZRLGCO RL11/RLVI1 CTLR TST 1 BRACRO v04.00 30-NOV-81 13:58:41 PAGE 8-7

SEQ 0112

13:58:41 PAGE ‘-8
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLV11
CZRLGCO
«+TEST 17+« ~ UNIQUENESS OF RLCS

JSBTTL

35 016370

BGNTST

#+TEST 17+** - UNIQUENESS OF RLCS

sexxxSTART OF TESTawan

STARS

3%9 016370

:'tttttttttttt'ttttttt"t'tttttttlttt'tttttttttt'ttt.tttt.tittttt

*TEST THE UNIQUENESS OF THE CONTROL AND STATUS

338

339
340

:R;G;;tfik. m; R&BA AND RLDA ARE PRELOADED WITH
2177776 AND 177777 RESPECTIVELY. THE RLCS IS THEN

343 016370

STARS

:LOADED TO INSURE THAT NEITHER THE RLBA OR RLDA
*ARE MODIFIED BY THE WRITING OF THE RLCS.

&1
g

344
345

346 016370
347 016376
348 016406
ggg 016412

::tttitttfittttfitttttt"t'tt.l'ttttttttttfi'ttttt'.tttt'...t..'.fit'

012737
(12777
012777
013777

ooo;m
177776
177777
002332

MOV
MOV
MOV
MOV

005332
163646
163642
163630

:SET DRIVE AND CONTROLLER READY
*SET RLBA TO ALL 1°S
*SET RLDA TO ALL 1'S
*WRITE RLCS

#DRDY ! CRDY,LDCSR
#-2 ,3RLBA
#-1,3RLDA
LDCSR,@RLCS

;CHECK THAT RLBA REMAINS UNAFFECTED

gg}

CMP

#-2,3RLBA

sRLBA OKAY?

356 016430 012737 177776 002362
ggg 016436 017737 163610 002364

MOV
MOV

#-2,GDDAT
@RLBA,BDDAT

:SET UP EXPECTED
*READ RLBA

359 016444

ERRDF

16.,EM72,ERR2

:CS MODIFIED BA

MORD
"WORD
.WORD

16
EM72
ERR2

TRAP

CSCLPY

CMP

#-1,3RLDA
28

*YES, CONTINUE

365 016466 012737 177777 002362
3329 016474 017737 163554 002364

MOV
MOV

#-1,GDDAT
@RLDA,BDDAT

:SET UP EXPECTED
*READ DA

368 016502

ERRDF

17..EM73,ERR2

;CS MODIFIED DA

353 016420 022777 177776 163624
ggg 016426

BEQ

001412

TRAP

016444 104455
016446
016450
016452

000020
007463
010210

- 016454

104406

;gz 016464

001412

360 016454

18:

362 016456 022777 177777 163570

BEQ

TRAP
MORD
"WORD

016502 104455
000021
016508 007516
016504

016510
369 016512

010210

2s:

£
572 016512

016515
. 016512

CKLOOP

ENDTST
L10041:

104401

LSBTTL

.WORD

CSERDF

CSERDF
17
EM73

*YES, GO CHECK DA

:CHECK IF /FL:LOE IS SET

:RLDA OKAY?

ERR2

saextEND OF TESTwwes
TRAP

CSETST

#+TEST 18%* = UNIQUENESS OF RLBA

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 5-9
CZRLGCO
++TEST 18++ - UNIQUENESS OF RLBA

;axxxSTART OF TEST#wwe

BENTST

77 016514
78 016514

SEQ 0113

:'t't.tt.tttt'tttttttt!Qtt"tttittt.fi"tl.i.ttt.t.t"fitt.t...'.t.

]

TEST THE UNIQUENESS OF THE BUS ADDRESS REGISTER.
*RLCS AND RLDA ARE LOADED WITH XXX20X AND 177777

£eEg

THE

RESPECTIVELY. THE RLBA IS THEN WRITTEN TO INSURE
THAT NEITHER THE RLCS OR RLDA ARE MODIFIED

381

{8Y WRITING THE RLBA.

384 016514

:;ttt!tttttttltit...t'tI"t'tttfiltttitt.ttttt..tt.tttt*t't.ttt.tt

012737
032777
001403
052737
013777
012777
005077

397 016560
566
398

017737
7

NN
N NN
O

£88egEEEE

385

000200
040000

002362
163520

140000
00236
17777
163472

002362

163502
163500

998:

MOV
BIT

#CRDY, GDDAT
#DERR.SRLCS

:CONTROLLER READY
:IF DRIVE ERROR IS

MOV
MOV
CLR

GDDAT,@RLCS
#-1,3RLDA
aRLBA

:LOAD RLCS
*LOAD RLDA
*CLEAR RLBA

BEO
BIS

;CHECK IF RLCS IS OKAY
163464

002364
002364
002362

MoV
BIC
CMP
BEQ

aRLCS,BDDAT
#DRDY ,BDDAT
BDDAT , GDDAT
1$

;READ RLCS
*1GNORE DRIVE READY
?
:
*YES, GO CHECK DA

ERRDF

18.,EM74,ERR2

;BA MODIFIED CS

WORD
"WORD
"WORD
CKLOOP
TRAP

18
EM74
ERR2

CMP

#=1,3RLDA

;1S RLDA OKAY?

BEQ

:IF OKAY BRANCH

TRAP

1$:
4

405 016616
408

409 016626
z}? 016634
412 01664%
016642
016644
016646
016650
413 016655
414 01665
016652
016652

418

417
418
419 016654
420

*SET THEN EXPECT IT
99$
#ERR!DERR,GDDAT :SET WHEN WE READ IT.

022777

012737
017737
104455
000023
007603
010210

177777

177777
163414

163430

MOV

002362
002364

MOV

ERRDF

TRAP

JWORD
"WORD
.WORD

CSERDF

CSCLP1

#-1,GDDAT

104401

LSBTTL

BGNTST

:SET UP EXPECTED

aRLDA,BDDAT

*READ RLDA

19.'EM7S.ERR2

:BA MODIFIED DA

CSERDF

19
EM7S
ERR2

;enasEND OF TESTawws

ENDTST

L10042:

:CHECK IF /FL:LOE IS SET

TRAP

CSETST

#«TEST 19+« - UNIQUENESS OF RLDA

sexaaSTART OF TESTwwnx

CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOV=81 13:58:41 PAGE 8-10

SEQ@ 0114

*+TEST 19*+ = UNIQUENESS OF RLDA

621
422 016654

STARS

CARRRAARRARR AR

TR RNRRRRR RN

RRR AN

IEST THE UNIQUENESS OF THE DISK ADDRES
AND RLBA ARE LOADED WITH XXX20X

RRRRARRARE AR

ARRARS

THE RLCS

RESPECTIVELY. THE RLDA IS THEN URITTEN TO INSURE
:THAT NEITHER THE RLCS OR THE RLBA ARE MODIFIED

SBY gRITING THE RLDA.

428 016654

429
430

tttttttttttttttttttt'tttttttttttttttttfi.ttt.t..tttttttt*ltfi.'tt

431 016654
432 016662

012737
032777

000200
040000

002362
163360

434 016672
435 016700
436 016706
23; 016714

052737
013777
012777
005077

140000
002362
177776
163334

002362
163342
163336

0014

MOV
998 :

#CRDY .GDDAT

BIT
BEQ

#DERR,ARLCS
998

MOV

#-2,3RLBA

BIS
Mov

CLR

:CONTROLLER READY

:IF DRIVE ERROR SET
:THEN EXPECT IT LATER

#ERR!DERR,GDDAT
GDDAT ,@RLCS
sLOAD CS

aRLDA

:LOAD BA HITH ALL 1'S

:CLEAR RLDA

sCHECK IF RLCS IS OKAY

439
440

441 016720
442 016726
443 016734
22; 016742
446 016744
016744

016750
016752
447 016754
016754
448

017737
042737
023737
001404

163324
000001
002362

002364
002364
002364

104455
000024
007635
010210

MoV
BIC
CMP

aRLCS ,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT

YES. THEN BRANCH

ERRDF

20.,EM76,ERR2

;DA MODIFIED CS

.WORD
.WORD
CKLOOP
TRAP

EM76
ERR2

BEQ

TRAP
«WORD

1$:

104406

CSERDF

CSCLP1

sREAD RLCS
IGNORE DRIVE READY
LCS OKAY?

sCHECK IF /FL:LOE IS SET

449 016756
450 016764

022777
001412

177776

163266

CMP
BEQ

#-2,3RLBA
2$

;1S RLBA OKAY?
:BRANCH IF OKAY

452 016766
zgz 016774

012737
017737

177776
163252

002362
002364

MoV
MOV

#-2,GDDAT
@RLBA,BDDAT

sSET UP EXPECTED
*READ RLBA

ERRDF

21.,EM77.ERR2

;DA MODIFIED BA

.WORD
LWORD
.WORD

21
EM77
ERR2

431

455 017002
017002
017004

017006
017010
01

104455
000025
007670
010210

104401

TRAP

2%:

ENDTST
L10043:
LSBTTL

BGNTST

CSERDF

saantEND OF TESTwnns
TRAP

CSETST

*«TEST 20+* - UNIQUENESS OF RLMP

;#axaSTART OF TESTwwxs

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 5-11
CZRLGCO
*+TEST 20** = UNIQUENESS OF RLMP

465
466 017014

SEQ 0115

TARS

?-ttttttttttttttttttttttttttttttttttttttitttt.ttttttttttttttttttt
:TEST THE UNIQUENESS OF THE MULTI-PURPOSE REGISTER
;WE WILL WRITE THE RLCS,

474 017014
475 017022
476 017030
477 017032
478 017040
479 017066
480 017054
481 017062
482
483
484

485 017066
486 017074
487 017102
488 017110

489
490 017112
017112
017114
017116
017120
491 017122

AND THE RLDA, THEN THE

:OF gHE RLCS, RLBA, RLDA.

STAR

471 017014
472
473

RLBA,

:RLMP IS WRITTEN. WE THEN GO BACK AN VERIFY THE CONTENTS
33 (1222222232233 3222222322232 2 3323222

012737
032777
001403
052737
013777
012777
012777
005077

000200
040000

00%362
163220

140000
002362
177776
177777
163170

002362
163202
163176
163172

ddiiidiididdiididdd)

#CRDY ,GDDAT
#DERR,3RLCS
99%

sCONTROLLER READY
:IF DRIVE ERROR SET
sTHE EXPECT IT LATER

GDDAT,aRL(S
#-2,aRLBA

;LOAD CS

arRLMP

‘WRITE RLMP

#ERR!DERR, GDDAT

99$%:

#-1.3RLDA

*LOAD BA WITH ALL 1°'S
:LOAD RLDA

sCHECK IF RLCS IS OKAY
0177%7
042737
023737
001404

163156
000001
002362

002364
002364
002364

104455
000311
006204
010210

Mov

BIC
CMP
BEQ

aRLCS ,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT
1$

sREAD RLCS
s IGNORE DRIVE READY
sRLCS OKAY?
sYES, THEN BRANCH

ERRDF

201. ,EM44 ERR2

;MP MODIFIED CS

TRAP

.WORD

18:

EM44
ERR2
CSCLPT

sCHECK IF /FL:LOE IS SET

1op 017122

104406

493 017124
4% 017132

022777
001412

177776

163120

#-2,3RLBA

sBRANCH IF OKAY

496 017134
497 017132

012737
017737

177776
163104

002362
002364

#-2,GDDAT

@RLBA,BDDAT

sSET UP EXPECTED
sREAD RLBA

211. ,EM45,ERR2

;MP MODIFIED BA

499 017150

017150
017152
017154
017156
500 017160
017160
501 017162
302 017170

104455
000323
006237
010210

022777
001412

177777

163064

CSCLP1
#-1,3RLDA

504 017172
305 017200

017737
012737

163056
177777

002364
002362

#-1,GDDAT

507 017206
017206
017210

104455
00032

104406

CSERDF

2$:

EM4
ERR2

;1S RLBA OKAY?

:CHECK IF /FL:LOE IS SET
:DISK ADDRESS OKAY

*YES, CONTINUE

aRLDA,BDDAT

:SET UP BAD

212. ,EM46,ERR2

:MP MODIFIED DA

cssafir

:SET UP EXPECTED

SEQ 0116

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 8-12
*+TEST 20*+ = UNIQUENESS OF RLMP

017212
et 017214

JMORD
‘WORD

006272
010210

509 017216

38:

512 017216

ENDTST

017216

o 017216

L10044:

104401

gxg

LSBTTL

ggg 017220

BGNTST

518
519

EM46
ERR2

suxx*END OF TESTwwen
TRAP

CSETST

*#TEST 21%% = NOOP FUNCTIONCRLi1 ONLY)
s#xwaSTART OF TEST#wns

520 017220

STARS

521
522
523
524

*TEST THAT NOOP WILL FUNCTION. WE WILL ISSUE THE
*NOOP AND WAIT FOR CONTROLLER READY TO SET. A
*TIMEOUT OF 200 MILLISECS IS ALLOWED. DRIVE 0 IS ALWAYS
*SELECTED SINCE THE DRIVE IS NOT NECESSARY.

H :tttttttttttttltttttttttttttittttttttttttfittttttttitttt.tttttttt

STARS

525 017220
526

527

528 017220

33 ' 2223222323232 38222322322223233333333333333333333333333333333333233233]

022737

000001

5§32 017230
533 017234
534 017236
535 017242

004537
000000
004537

013420

- 017242

104406

gg; 017244

004537

ggg 017226 001010

531

539 017250
540 017250
017250
51 017250

002410

014306

28:

013120
998:
ENDTST
L10045:

104401

542

gzz

.SBTTL

gzs 017252

BGNTST

547 017252

STARS

99$

*YES SKIP TEST

JSR
NOOPO
JSR
CKLOOP

RS, LDFUNC

TRAP

CSCLP1

:ISSUE FUNCTION OF FOLLOWING WORD
*NOOP(0) FUNCTION
*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET

~JSR

RS, CHERR

RS, WTCRDY

;RLV11, OR RLV12?

:CHECK CONTROLLER FOR ERRORS
saxasEND OF TESTaans

TRAP

CSETST

**TEST 22++ - TEST NOOP DOES NOTHING (RL11 ONLY)
;#xxxSTART OF TESTaxws

*TEST THAT ISSUING A NOOP FUNCTION DOES NOTHING.

THIS IS DONE BY WRITING

é%flSSRLBA' AND RLDA, READING THE RLMP AND MAKING SURE NOTHING CHANGES.

549
550 017252

551

#1,T.CNTLR

;:ttttttttttttttttttttttttQ'tfittlt.tltlttttttlttttttttttl'.tttttt

548

552 017252
553 017260

rMp

BNE

022737
001076

000001

002410

32 ARRRAARRAAAARARRRAANRRAARARAARRARAARAAAAARRAAAAAAAARAAAAAAAARSARES

CMP
BNE

#1,T.CNTLR
3s

sRLV11, OR RLV12?
:YES SKIP TEST.

CZRLGCO_RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE N8-1§

SEQ 0117

*+TEST 22++ = TEST NOOP DOES NOTHING (RL11 ONLY)

554

§55 017265 015777 000001 162726
ssg 017270 012777 000002 162754
§57 017276 005077 162754
ggs 017302 017737 162750 002362

MOV
MOV
CLR
MOV

#1,3RLDA
#2,3RLBA
aRLMP
@RLMP, GDDAT

:LOAD DISK ADDRESS
*LOAD BUS ADDRESS
:READ RLMP

560 017310
561 017314
565 017316

004537
oooogg
004537

JSR
NOOPO
JSR

RS,LDFUNC

;1SSUE FUNCTION OF FOLLOWING WORD

RS,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

- 017322

104406

TRAP

CSCLP1

565 017324

004537

JSR

RS, CHERR

017330
’ 017332

104410
000124

TRAP
WORD

CSESCAPE
L10046~.

568 017334 017737 382716 002364
569 017342 023737
002362 002364
g;g 017350

001404

MOV
CMP

@RLMP,BDDAT
GDDAT .BDDAT

5§72 017352
017352
017356
017356
s 017360

104455
000312
005304
010210

ERRDF
TRAP
.WORD
.WORD
.WORD

202.,EM14,ERR2
(SERDF

563 01732

566 017330

574 017362

i 017362

013420
014306

CKLOOP

013120

BEQ

18:

CKLOOP

TST

CSCLP1

576 01
012737 000002 002362
577 017372 017737 162654 002364
578 017400
023737 002362 002364

MOV
MOV
CMP

#2,GDDAT
aRLBA,BDDAT
GDDAT ,BDDAT

581 017410

ERRDF

203.,EM15,ERR2

.WORD
.W0RD
WOrD

203
EM1S
ERR2

017410

017412
017414
R 01741¢

583 017420

. 017420

001404

BEQ

104455

TRAP

000313
005332
010210

2s:

CKLOOP

CSCLPY

585 017422 012737
1 80 62
sag 017430
017737 16 ggg 02364
587 017436
023737 002
4
ggg 017444
001404

MOV
MOV
CMP
BEQ

#1,GDDAT
aRLDA,BDDAT
gow.aoon
s

590 017446

ERRDF

204.,EM16,ERR2

WORD

EM1

1745

17245

17456

104455
1%

01021

TRAP

.WORD

:IF /FL:LOE SET LOOP, ELSE EXIT TST

;READ RLMP
*RLMP 0K?

;CHECK IF /FL:LOE IS SET
:SET UP EXP'D BA
*READ BA
*BA 0K?

SYES

CSERDF

TRAP

17446

104406

:CHECK CONTROLLER FOR ERRORS

EM14
ERR2

TRAP

g;g 017406

104406

ESCAPE

*CHECK IF /FL:LOE IS SET

SERDF

204

ERR

;CHECK IF /FL:LOE IS SET

:SET UP EXP'D DA
*READ DA
DA OKAY

C
*

10
5-16
PAGE
13:58:41
30-NOV-81
CZRLGCO_RL11/RLV11 CTLR TST 1 MACRO VO04. 00 ONLY)

SEQ 0118

++TEST 22¢+ = TEST NOOP DOES NOTHING (RL11
594 017456
01745)
017456
595
596
397
598
599 017460
600
601 017460

suex%END OF TESTwwwn

ENDTST

L10046:

104401

SBTTL

CSETST

TRAP

#«TEST 23*« = TEST OF INTERRUPT (RL11 ONLY)
:aaxxSTART OF TEST#nnw

BGNTST
STARS

ttttttttttt.tttttttttt't'tttttt.ttt"ttttttttttfitttttttttfitt.tt

*CHECK THE INTERRUPT WITH A NOOP. WE WILL SET UP THE
xursnaupr VECTOR, LOWER THE PSW TO ZERO AND xssue

602
603
604
605
606
607
608
609
610
611 017460

A NOOP.

THE INTERRUPT SERVICE ROUTINE WILL SET
WE WAIT zoo MILLISECONDS
IT
CALLING
BEFORE
SET
BE
TO
FLAG
.LOOKING FOR THAT
FLAG UPON INTERRUPT AND RETURNIN LINE.
AN ERROR.

IF THE INTERRUPT SENDS US TO ANOTHER

vecron ADDRESS THEN THE ERROR HANDLER WILL REPORT
““TRAP TO XXXX FRGM YYYY'' AND RETURN

TO DIAG SUP MONITOR.

sx:;gnnupr GOES TO ABOVE 1000 WHO KNOWS WHAT WILL HAPPEN.

IF THE

ttttttttttttttttttttttt'tttttttti.ii.tfitttt.iittttttttttttttit.

612

613
614 017460
615 017466
616
617 017470
618 017474
017474
017500
619 017502
620 017506
621 017510
622 017514
623 017520
624 017522
017522
017524
017526
017530
625 017532
626 017536
017536
627 017540
628
629
30 01754
631 017544
01754
017544
63%
63
634
635
636 017546
637

000001

002410

CMP

#1,T.CNTLR

99$

*YES SKIP TEST.

CLR
SETPRI

INTFLG
#PRI00

:CLEAR INTERRUPT OCCURRENCE FLAG
*SET PSW TO 0

BNE

002330

MOV
#PRI00,RO
TRAP
CS$SPRI
JSR
RS,LDFUNC
NOOPO! INTEN

000000
013420

JSR
ST

014306
002330

BNE
ERRDF

TRAP

002330

2s:

013120

104401

WORD
.WORD
-WORD
CLR
CKLOOP
TRAP
JSR

99%:
ENDTST
L10047:
:
TRAP

SBTTL

BGNTST

RS,WTCRDY
INTFLG

2$
22.,EM13,ERRO

sRLV11 OR RLVI2?

:1SSUE FUNCTION OF FOLLOWING WORD
*NOOP AND INTERRUPT ENABLE

*WAIT FOR CONTROLLER READY HIGH
*DID INTERRUPT OCCUR
:IF SO BRANCH

CSERDF

22
EM13
ERRD
INTFLG
CSCLP1

RS, CHERR

:CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS

saaxxEND OF TESTwwex
CSETST

#«TEST 24*+ - TEST PRIORITY BR LEVEL

sxxx2START OF TESTanns

STARS

638 017546

3333)]
3333232 3423423444
3223233333
3333333334
R T22322232222222232223232233223

'resr THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF CONTROLLER. WEKNOW
*THE BOARD WILL INTERRUPT. WE WILL START TRYING TO INTERRUPT AT 7
*AND WORK DOWN TIL IT DOES INTERRUPT.:
sms
tttttttttttttt!ttt.t'ttt.t.

639
640
641
642 017546

ttlttt.ttttttttlttttttt'tttttttttttt

6‘3

CMP

644 017546 022737 000001 002410

222 017554 002456

BLT

" 017572

104404

TRAP

C$BSEG

65§ 017574

005037 002330

MOV
647 017556 015737 000340 002364
MOV
228 017564 013737 002264 002362
BGNSEG
650 017572
653

017600

58:

CLR

#340,BDDAT
BPRIOR,GDDAT

RLV1122
TEST
:YES, sxiP

:SET UP INITIAL OF 7
:GET GIVEN PRIORITY
;#axxSTART OF SEGMENT##ws
:CLEAR INTERRUPT OCCURRENCE

INTFLG

SETPRI

BDDAT

:SET PRIORITY

- 017604 104441

MOV

gg; 017612 000100

17600 013700 002364

TRAP

BDDAT,R

(Sspni

655 017606

004537 013420

noopo'mrsn

JSR

RS, LDFUNC

;I1SSUE FUNCTION OF FOLLOWING WORD

658 017614

004537 014306

JSR

RS,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

TRAP
.WORD

CSESCAPE
L10050~-.

JSR

RS, CHERR

659 017620

#1,T.CNTLR

017620
- 017622

104410
000070

661 Q12624

004537 013120

662 017630

017630

o 017632

104410-

“® @ e.704P.. [SESCAPE

JWORD LR0DSO=. -

000060

*NO, BRANCH

INTFLG

:DID INTERRUPT OCCUR

667 017644

005737 002330

TST

017654
017656
st 017660

672 omas

104455

000314
005406
010446

017662
017664

104410
000014

674 017670
675 017674

005737
oo177§

017666 000405

2
002330

18:

grs 017676 00076

678 017700

017700

ENDSEG

100008

;SHOULD IT INTERRUPT ~° = = e« ..

002012

38:

BDDAT ,GDDATY

&5 017642

gg 017450 001004

.
. el

CMP

BGE

017652

:CHECK CONTROLLER FOR ERRORS

*IF /FL:LOE SET LOOP, ELSE EXIT TST

eswe st

664 017634 023737 002364 002362

670 01765

“IF /FL:L.OE SET LOOP, ELSE EXIT TST

escm st

BNE

ERRDF

204..EM17,ERR?

LWORD
"WORD
"WORD

204
EM17
ERR?

ESCAPE

SEG

TRAP

TRAP
.WORD

ST
BEQ

YES,

CSERDF

CSESCAPE
10000$-.

INTFLG
$

;IF /FL:LOE SET LOOP, ELSE EXIT SEG
:DID INTERRUPT OCCUR
:NO, OK

:YES, ERROR

saax2END OF SEGMENT#%ws#

@
‘e'®

SEQ 0119

0 v04.00 30-NOv-81 13:58:41 PAGE S-12
1 MACR
%ga}sT BR
LEVE

CZRLGCO_RL11/RLV11 CT
«+TEST 24*+ = TEST PR

81
679 01770
680 017710
681

682 01771
683 01771
01771
017712
684
685
686
687 017714

;
1044
18%
100331

16
V04.00 30-NOV-81 13:58:41 PAGE g
1 MACRO
TST
LEVEL
Ity
000040

002364

L10050:

104401

LSBTTL

706
707 017742
017742
017742

#«TEST 25+~ -~ GET STATUS FUNCTION

sanaaSTART OF TESTwwnw

N
RRRRRNRACRNS
ARRA
ANR AR AR ANRARRANANEA
RARR
AR AR RR AR
CRARARRA

fEST GET STATUS FUNCTION. THE GET STATUS FUNCTION WILL
:WORK IF DRIVE IS LOADED AND READY OR NOT. THERLDA
:1S LOADED WITH THE GET STATUS AND MARKER BITS (BITS 1.0)

:AND THE FUNCTION IS ISSUED. WE WAIT 200 MILLISECONDS

S;ORSCONTROLLER READY.

VERIFY THAT NO ERRORS OCCUR.

33 ' 3323222222222 2223322222222 3222

012777
004537

000004
004537

000013
013420
014306

2s:

104406
004537

MoV

162332

JSR

CSCLPY

RS,CHERR

L10051:

.SBTTL

ittt dd

FUNCTION OF FOLLOWING WORD
*WAIT FOR CONTROLLER READY HIGH
*CHECK IF /FL:LOE IS SET
:GET STATUS

" ;CHECK CONTROLLER FOR ERRORS
saaasEND OF TESTwwes

ENDTST

104401

lGSBIT'HK'DRST.iR%gAUE sSET GET STATUS AND MARKER BIT

RS,LDFUNC
JSR
GSTAT
RS,WTCRDY
JSR
CKLOOP

~ TRAP

013120

TRAP

CSETST

#«TEST 26%** - GET STATUS FUNCTION INTERRUPT
saaaaSTART OF TESTw#ws

BGNTST

71% 017744

716 017744
717 017750
017750
017754
718 017756
719 017796
720 017770
721 017772
722 017776
017776
020002
723 020004

CSETST

STARS

709
710
711

71
714
715

TRAP

BGNTST

N
692
693
694
695
696 017714

701 017726
702 017730
703 017734
017
704
705 017736

,
sNEXT LEVEL

sanexEND OF TEST#www

ENDTST

690 017714

699 017714
700 017722

BPL

CSESEG
#40,B8DDAT
5%

6$:

688

697
698

TRAP
Sus

&S$:

SEQ 0120

:CHECK GET STATUS UNDER INTERRUPT

CLR
SETPRI

005037

002330

012700
104441
012777
004537
000104
004537

000000

012700
104441
005737

000340

MOV

002330

TST

000003
013420

014306

162270

INTFLG
#PRI00

:CLEAR INTERRUPT OCCURANCE
*PSW TO LEVEL 0

MOV

#PR100,RO

MOV

lGSBIT'HK,ORLDA:SET UP DA

TRAP

JSR

CSSPRI

RS,LDF

ssrArsxnr N

WICRDY
JSR
SETPRI kxg
TRAP

7.R0

C$SPRI

INTFLG

+1SSUE runcrxon OF FOLLOWING WORD

ENABLE

.GET STATUS
FOR CfiNTROLLER READY HIGH
*WAIT
:

:DID INTERRUPT OCCUR

CZRLGCO_RL11/RLV11 CTL
*+TEST 24+ ~ TEST PRI

S WSUIES JUS =Y

28:
0131%0
0023

B8R a&%

000000
3
013420

LMORD
.WORD
.WORD

28
EM30
ERRO

TRAP

CSCLP1

CKLOOP

014306

000340

;CHECK CONTROLLER FOR ERRORS

SETPRI
MOV

#PRI oo
apnxoo RO

:PSW TO LEVEL 0

MOV
JSR
GSTAT
SR
SETPRI

cssan-nx aRLDA :SET UP DA FOR GET STATUS CMD
*ISSUE FUNCTION OF FOLLOWING WORD
RS,LDF
:GET STATUS = SHOULD NOT CAUSE AN INTERRUPT

INTFLG

RS,WTCRDY
#PR107

281 . ,EM30A,ERRO

.WORD
JWORD
.WORD

281
EM30A
ERRO

TRAP

csC LP1

ENDTST

L10052:

LSBTTL
BGNTST

745 020116
746
747 020116

CKLOOP

:CLEAR INTERRUPT OCCURANCE

(SSPRI

ERRDF

TRAP

013120

;CHECK IF /FL:LOE IS SET

RS, CHERR

BEQ

: YES=BRANCH

CSERDF

CSSPRI

002330

SEQ 0121

JSR

TRAP

162204

WVids

5
28, ,EM30,ERRO

CLR

E
ERRDF

TRAP

—=\n

43 289%

724 02001
725 8 001

8: 5523 sEeses %5 23 8

PAGE 5-19
13:58:41
30-NOV-81
V04.00
MACRO
1
TST
CTLR
1
RL11/RLVI
ClRLGCO
*+TEST 26*+ = GET STATUS FUNCTION INTERRUPT

*WAIT FOR CONTROLLER READY HIGH

:DID INTERRUPT OCCUR (SHOULD NOT)
:NO = BRANCH (0K)

CSERDF

JSR

RS CHERR

TRAP

CSETST

:CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS

ttttEND OF TESTwxx#

#«TEST 27+« = GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
saxaxSTART OF TESTwwnn

STARS

RS
RRRER
NARRRRRARNRR
ARRRE
RRRRRRRRRRRR
RRRAR
A ARRRRRAARARR
IRRRRRRRRE

:VERIFY THAT GET STATUS FUNCTION WILL NOT COMPLETE
:WITHOUT SENDING OUT THE GET STATUS BIT IN THE RLDA.
:WE SET MARKER BUT NO GET STATUS BIT IN THE RLDA AND
:ISSUE A GET STATUS WE SHOULD RECIEVE AN OPI ERROR.
§¥§S§FY THAT CONTROLLER READY SETS AND OPI SETS
23 IY3322222322 2322222232323 2233233333823

012777
004537
537
032737
1405
12737

00%201
20

sSET ONLY MARKER BIT!

162130

874000 002306

GSTAT
RS ,WTCRDY
JSR
géT l?‘O?gE.CS

004053

MOV

013402

33 302223223 ittt iddddd)

#OPIERR,RESTMS

: ISSUE FUNCTION OF FOLLOU!NG WORD
;GET_STATUS

:WAIT FOR CONTROLLER READY HIGH

13858 41 PAGE 8-18
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
GS
W/0
OPI
GENERATES
FUNCTION
STATUS
+TEST 27%+ = GET
F1

763 020154

764

004537

013120

035757 002000 002306
1044

1$:

001004

020200
768 020202
769
770 020202
020202
020202

44
772
773
74
775 020204
776 020204

104455
000035
005574
010160

2$:
ENDTST
L10053:

104401

.SBTTL

CSCLP1
OgPI.E.CS
9. ,EM33,ERRO

;1S OPI SET?

: YES-BRANCH NO=-CHECK TIMEOUT

CSERDF

29
EM33
ERRO

senxtEND OF TESTawww
TRAP

CSETST

#«TEST 28++ - OPI UNDER INTERRUPT
sanaaSTART OF TESTwnww

2222232222228 232 2223233332333 2333333 0333322222

33 ddddiditiddddd)

?ORCE AN OP]I ERROR UNDER INTERRUPT TO VERIFY THAT
;AN INTERRUPT WILL OCCUR FROM OPI. THE OPI IS FORCED

;USINGA GET STATUS WITHOUT THE GET STATUS BIT SET
s IN RLDA.

STARS

781 020204

:;ttttitttttt..tttt.t.i"t"fit.tti...t...ttttttfitttttttt.ttt.tit'

012700

000000

005037
012777
004537
000104
004537

002330
000001
013420

012700

000340

005737
001004

002330

104441

SETPRI

TRAP
Efi}

ERRDF

TRAP

032737

004053
013120

002000

2s:

CSSPRI
INTFLG

#MK, SRLDA

18:

TRAP

CKLOOP
TRAP

BIT

: INTERRUPT OCCUR

30.,EM11,ERRO

c;c531

JSR

+ISSUE runcrxon OF FOLLOUING WORD
*GET STATUS
SWAIT FOR CONTROLLER READY HIGH

gssfior

30
EM11
ERRO

CKLOOP

:SET ONLY MARKER BIT!

107,R0

(SSPRI
igrrls

.WORD
"WORD
.WORD

BIT
BEQ
MOV

013402

002306

#PRI00
#PR100,
100,R0

RS, LDFUNC
JSR
GSTAT! INTEN
RS,WTCRDY
JSR
SETPRI #PRI07

MOV

1044

104406

MOV

014306

8%%{%2 074000 002306
012737
004537

TRAP
CLR

162030

104455
000036
005211
010160

R5,CHERR

BGNTST
STARS

777
778
779
780

783
784 020204
020204
020210
785 020212
786 020216
787 020224
788 0
30
789 020232
790 020236

JSR
CKLOOP
TRAP
BIT
BNE
ERRDF
TRAP
.WORD
.WORD
.WORD

SEQ 0122

;CHECK IF /FL:LOE IS SET

#76000,E.CS
18
#OPIERR ,RESTMS

RS, CHERR
CSCLP1

#0PI E.CS

;1S OP1 SET?

BNE

8 001004

801

802 o 032

ogo

020322
020324
020326
ggz 0203

ERRDF

TRAP

104455

oooo;r
005574
010160

38:

L10054:

020330
-y 020330 104401

_SBTTL

gg;

104406

004537

2s:

RS,LDFUNC
JSR
RDHDR
RS,WTCRDY
JSR
CKLOOP
TRAP

JSR

013120

CSCLP1

RS, CHERR

104401

L10055:

JSBTTL

gg‘,z

gg 020354

BGNTST

827 020354

STARS

:1SSUE FUNCTION OF FOLLOWING WORD
*WAIT FOR CONTROLLER READY HIGH READY
:CHECK IF /FL:LOE IS SET
*READHEADER

:CHECKCONTROLLER FOR ERRORS
suasaEND OF TESTwwns

ENDTST

821 020352

TRAP

CSETST

#+TEST 30%% = READ HEADER FUNCTION INTERRUPT

suaxsSTART OF TESTwaws

tttitttt.fittttt'tttt't"tt.ttttt.ttttttttt.ttttttttt!ttttt'ttt.

*CHMECK THAT READ HEADER WILL GENERATE AN INTERRRUPT
“UPON COMPLETJON WITHOUT ANY ERRORS SETTING
STARS
tt.lttfit.ttt.tt'tttt'tttttttl'ttttt

828
829
830 020354

3 : ttttttt.ttt'ttttttttt'ttt!ti

8
83

33§ 020354

020354 012700 000000
104441
0

005037 002330

004537 013420
000119
004537 014306
012700 000340

801.04 104441

840 02041

s#aaaSTART OF TEST#w#s

tttt.tttttttt.tttt.tt.'ttttQttttttfitt.tfi.t.tt'

814

ows

#+TEST 29%+ = READ HEADER FUNCTION

*IT. GET READY BACK WITHOUT ANY ERRORS SETTING.
§TARS
t'ttttt.ttttttttt

815 020332 004537 013420
816 020336 000010
817 020340 004537 014306
818 020344

839

CSETST

“CHECK THAT READ HEADER WORKS, THAT WE CAN ISSUE

812
813 020332

835 0 oseg
339 020372
83 820374
838 020400
020400

TRAP

lttt.ttt't..tttittttt't*t'ttQfittttlttt.ttfit'ttttttttt.'tttt'ttt

811

834 020

suaasEND OF TEST#wes

STARS

810 020332

020
. 020352

31
EM33
ERRD

BGNTST

809 020332

gg 020346

1. ,EM33,ERRO

s YES-BRANCH NO-CHECK TIMEOUT

gsekor

ENDTST

805 020330

020344

MORD
.WORD
.WORD

5737 002330

1004

SETPRI #PRI0O

MOV
#PRI00,
CS$SPRI
TRAP
INTFLG
CLR
RS, LDFUNC
JSR
RDHDR! IN rg
R ursaov
JSR
SETPRI #PRIO
#PRI07,RO
MOV
TRAP

BNE

($SPRI

yamc

:PSW T0 0
:CLEAR INTERRUPT OCCURENCE

SISSUE FUNCTION or FOLLOWING WORD
*READ HEADER, INTR. ENA
*WAIT FOR CONTROLLER READY HIGH
: INTERRUPT HAPPEN

*YES=CONT INUE

SEQ 0123

a»

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE g-lg
CZRLGCO
*+TEST 28+ = OPI UNDER INTERRUPT

ERRDF

841 020414

TRAP

020414 104455
0 04.18

020420

020422

842 0504 4

WORD

"WORD

005716
010160

a3 020424

104406

%’4’.’5’. 020426

004537

28:
013120

020432

35.,EM37,ERRO

gseknr
35

EM37

CKLOOP

ERRO

TRAP

CSCLP1

JSR

RS, CHERR

L10056:

104401

848

;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sueasEND OF

ENDTST

846 020432

- 020432

"WORD

SEQ 0124

TRAP

CSETST

#*TEST 31#% - REPEATED RD HDRS YIELD SAME CYL AND HD

ggg

.SBTTL

ggj‘, 020434

BGNTST

853
854 020434

STARS

855
856
857
858 020434

“CHECK THAT READ HEADERS WILL RELIABLY READ THE SAME
*CYLINDER AND HEAD SELECT. WE WILL READ HEADERS VERIFYING
*THAT WE ALWAYS READ THE SAME CYLINDER AND HEAD SELECT.
STARS

ttttt.ltttttltttfitit'tit'.tttIlt.it'ttltt.'tittttttt.'ttt.titlt

: 2 1 2222323223233 2283223232322383232333332332333333333333333333333333333]

859
860

861 020434 012701 000144
aeg 020440 004537 013420
863 020444 000010
864 020446 004537 014306
865 020452
020452
- 020454

104410
000122

867 020456

004537

- 020464

000112

868 020462
020462 104410

020502
873 020504

104404

875 ozos1g

000019

874 020504 004537 013420
004537

020516

104410

879 020522

004537

020526

104410

014306

. 020520 00005
880 020526

998:

013120

870 020466 013737 002314 00236
871 020474 043737 002334 00236
872 020502
8;9 020512
877
020516

s%axaSTART OF TEST#wes

013120

MOV
JSR
RDHDR
JSR
ESCAPE

#100. .R1
RS, LDFUNC
RS, WTCRDY
Tsf

:SET UP TO DO 100 RD HDR'S
*ISSUE FUNCTION OF FOLLOWING WORD
*READ HEADER
*WAIT FOR CONTROLLER READY HIGH
SIF /FL:LOE SET LOOP, ELSE EXIT TST

JSR

RS, CHERR

:CHECK CONTROLLER FOR ERRORS

.WORD

L10057-.

MOV

E.MP,GDDAT

TRAP

($BSEG

JSR

RS, LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

JSR
ssws

RS,WTCRDY
SEG

:WAIT FOR CONTROLLER READY HIGH
*IF /FL:LOE SET LOOP, ELSE EXIT SEG

.uoao

10000$-.

TRAP
WORD

CSESCAPE
L10057-.

ESCAPE TSt
TRAP
cssswe

BGNSEG
2s:

BIC

RDHDR

978 :

SECMSK,GDDAT

CSESCAPE

JSR

RS, CHERR

TRAP ~

CSESCAPE

ESCAPE SEG

SIF /FL:LOE SET LOOP, ELSE EXIT TST

:READ FIRST HEADER (ASSUME GOOD)
:MASK AWAY SECTOR BITS
SaxaxSTART OF SEGMENT#xex

:CHECK CONTROLLER FOR ERRORS

“IF /FL:LOE SET LOOP, ELSE EXIT SEG

CZRLGCO_RL11/RLVI1
CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-28
++TEST 30%+ = READ HEADER FUNCTION INTERRUPT

11/RLV11 CTLR TST 1 MACRO Vv04.00 30°NOV-81 13:58:41 PAGE ‘51
CZRLGCO_RL
+TEST 31+ = REPEATED RD WDRS YIELD SAME CYL AND
: 020530 000044
002364

LWORD

100008~-.

MOV

E.MP,BDDAT

BDDAT
sscn§x
GDDAT,BDDAT

020540 043737 oozigk 002364
883
884 020546 023737 002362 002364

BIC
CMP
BEQ

113

887 020556

ERRDF

36.,EM41,ERRG

WORD
"WORD
"WORD

36
EM41
ERRé&

aag 020532

013737

00224

ggg 0205564 001404

TRAP

020556 104455

peg

020560
020562
020564

889 020566

020566

000044
005756
010324
104406

891 020570 005301
892 020572 001344

893 020574

020574
020574

104405

020576
et 020576

104401

894 020576

CKLOOP

48:

TRAP

DEC
BNE

ENDSEG

100008:

ENDTST

L10057:

896

SEQ 0125

;READ HEADER

AWAY SECTOR BITS
:MASK
*1S HEADER CORRECT

CSERDF

CSCLP1

R1
28

TRAP

CSESEG

TRAP

CSETST

:CONSTANT CYL & HS

“CHECK IF /FL:LOE IS SET
:PERFORM ALL READ HDR'S
*IF NOT GO BACK AND DO ANOTHER

SaxasEND OF SEGMENT##ws#
sanaxEND OF TESTwann

##TEST 32#% = CHECK OF HEADER CRC

gg;

JSBTTL

333 020600

BGNTST

901 020600

STARS

902

“CHECK THAT WE CAN READ THE HDCRC AFTER A

tttfittttttttttttttttttt'tt'ttQttttttttttttttt.ttitttttttttttttt

*READ HEADER AND THAT IT IS THE CORRECT CRC
STARS

903
904
905 020600

*FOR THE HEADER.

1 (2222223223282 222232 2222322323333 3333333333223

7
7
0
7

913

020650
013420

013737

002314

919 020640
920 050664
921 020646

004537

014032

000000

020646

28:

sISSUE FUNCTION OF FOLLOWING WORD

;READ HEADER

:WAIT FOR CONTROLLER READY HIGH

.WORD

JSR
ESCAPE
TRAP
.WORD

RS, CHERR
st
S
CSESCAPE
L10060~-.

sCHECK CONTROLLER FOR ERRORS

MoV

E.MP.2S

sREAD HEADER WORD CONTAINS SEC, HD, CYL

JSR

R5,SIMBCC

260 CALCULATE CRC

.WORD

TRAP

g}; 020632

38
R5.,LDFUNC

dddiiiiidll)

RSfHTCRDY
TS
CSESCAPE
L10060~-.

ESCAPE

0
El

013120

916

CLR
JSR
RDHDR
JSR

014306

004537

91§ 020622

saxasSTART OF TESTw#ws

:1F /FL:LOE SET LOOP, ELSE EXIT TST

;IF /FL:LOE SET LOOP, ELSE EXIT TST

:16 BITS
;HEADER GOES HERE

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE ‘-22
++TEST 32++ = CHECK OF HEADER CRC
1

9 ; osoes

2344 020676
923 020652 01
013737 002316 020674
924 02
925 ogoeoe 004537 014032
000020
000000

926 020672
927 020674
928 020676

o%oroo 013737

002344 002362

3s:

48
5$:

934 020724

ggg 020734

020734

MOV

006047
010324

68:

CALBCC,SS
E.MP1,48
R5,SIMBCC
O
O

CALBCC,GDDAT

MOV
CMP
BEQ

E.MP2,BDDAT
GDDAT ,BDDAT
6%

ERRDF

37.,EM42,ERRG

.WORD

000045

‘WORD
"WORD

L10060:

104401

939

g:?

SBTTL

g:% 020736

BGNTST

944

;START WITH 0 CRC

:GET SECOND WORD IN SILO, CONTAINS 0°'S
;STORE CALCULATED CRC AS GOOD

sTHIRD READ OF MP SILO GETS CRC
:1S CRC CORRECT?
:IF SO CONTINUE

$ERDF

EM&2
ERRé4

saxxxEND OF TEST#wwx

ENDTST

937 020734

938 020734

16.
WORD
"WORD

TRAP

ogom 104455
020730
020732

MOV
MOV
JSR

930 020706 013737 002320 002364
931 020714 023737 002362 002364
3§§ 020722 001404
020726

JWORD

SEQ 0126

TRAP

CSETST

*+TEST 33%% = CHECK CONSECUTIVE HEADERS

sxxxxSTART OF TESTwwnx

945 020736

STARS

946
947
948

:CHECK THAT THE HEADERS ARE CONSECUTIVE. WE WILL DO
:40 (FORTY) READ HEADERS AND STORE EACH. AFTER WE HAVE
:READ THE FORTIETH HEADER WE WILL VERIFY THAT

949

950

: 2 ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt'ttt

*THEY CAME IN SEQUENTIAL, THAT O FOLLOWS 39,

:THAT THERE WERE NO ERRORS.

STARS

951 020736

:: tttttttttttttt.tttttt'ttttttttttttttttlttttttt'tQttttttt'tttttt

952

953

954 020736

005037

002366

960 020774

042777

000200

955 020742 012703 003274
012701 000050
956 020746
957 02075 o1§ 7 000210 002575
958 020760
053737 002270 00227
959 020766 3137" 002272 161554

161246

CLR

2%:

961 8 }3?§ osg;;z 000200 161240 18:

161232
§?7753
02101
325
161234
mg
021016
964

965 021022
966 o;w;o
967 021032
968 021034
969 051036
970 021042

omg
017723
005301
001357
015703
012701

161230
161224

003274
000050

FIRST

:CLEAR FIRST READ DONE FLAG

MOV
MoV
MOV
BIS
MOV

*STORE HEADERS
#HDRBUF ,R3
2FORTY HEADERS
#40. .R1
! CRDY,B.CS
#RDHDR
DRIVE,B.CS
B.CS.8RLCS

MOV
MOV

(R3)+
SRLCS,
aRLMP, (R3)+

BIC

Sé;

MOV
MOV
DEC
BNE
MOV
MOV

#200.3RLCS

goo.mcs

:DONE?

aRLMP, (R3)+
aRLMP, (R3)+
R1
28
#HDRBUF ,R3
#40. R

:HAVE WE READ FORTY HEADERS

160 BACK UNTIL FOURTY DONE
*GET LIST OF HEADERS
*CHECK FORTY OF THEM

*+TEST 33++ ~ CHECK CONSECUTIVE HEADERS

SEQ 0127

MOV
ST
BPL
MOV
ST
MOV
MOV
MOV
JSR
JMP

(R3) ,E.CS
.CS
9
#RHDMES ,RESTMS
(R3)+
(R3)+,E.MP
(R3)+,E.MP1
(R3)+.E.MP2
:CHECK CONTROLLER FOR ERRORS
RS, CHERR
78

ST
BNE
MOV
MOV
BR
INC
CMP

IRsT
48
#1,FIRST
BDDAT,GDDA?
6%
GDDAT
BDDAT,GDDAT

:IS THIS FIRST READ?
*NO, BRANCH
*SET FIRST READ DONE FLAG
*SET UP NEXT READ EXPECTED
:GO SEE IF TEST IS DONE
* INCREMENT EXP'D HEADER
:1S NEW HEADER SEQUENTIAL?

992 021170 001015
993 021172 013737 002362 002346
994 021200 043737 002370 002346
995 021206 023737 002372 002346

BNE
MOV
BIC
CMP

5$
GDDAT, TEMP2
CYLMSK,TEMS2
MXSEC1.TEMPZ

*NO, THEN ERROR GO REPORT IT

gr 021216

BIC

SECMSK,GDDAT

971 0 1843
97; 8 105
021056
973
974 021060
975 021066
976 051070
077 021074
978 021100
979 021106
980 021110
981 021114
93; o%mg

983 021122
984 oz11§3
985 ogn
986 021136
987 021144
988 ozmg
989 021152

990 021160
991 021162

996 021214

%uy
5737
1 19
012737
00 7;;
012337
012337
212337
004537
000137

005723
011337

005737
001007
o1§737
013737
000435
005237
023737
001766
033737

001750

043737

002306
002306

004312 013402
002314
002316
oogsso
013120
021252
002364

998:

002366
000001 002366
002364 002362 38:
002362

002364 002362
002334

002334

1999 021224

188? 021224 005037 002366

TST
MOV

4S:

BEQ
BIT

002364

}88§

1004 021230
021230
021232
021234
021236

104455
000046
006105
010210

i 021240

104406

1005 021240

1007 021242 062703 000006
1008 021246 005301
001321
1009 021250
1010 021252

1018

1016 021254

1017 021254

1018
1019

78:

104401

L10061:

JSBTTL

BGNTST
STARS

*YES THEN BRANCH
:IS NEW HEADER ZERO?

sYES, CHECK IF LAST HEADER WAS

CLR

FIRST

US MISS
;ERROR WILL MAKE
SEQUENTIALLY

ERRDF
TRAP
.WORD
JWORD
.WORD

38.,EM43,ERR2
CSERDF
38
EM43
ERR2

TRAP

CSCLP1

ADD
DEC
BNE

#6,R3
R1
998

CKLOOP

:STORE NEW DATA AS OLD

*NEXT SECTOR

sSTART OVER; CLEAR FIRST FLAG

:CHECK IF /FL:LOE IS SET
:HAVE WE DONE THIS ENOUGH

*NO, GO BACK DO IT AGAIN

sanxtEND OF TESTwwnx

ENDTST

1011 021252

021252
021252

6$:

3s
SECMSK,BDDAT

;GET HEADER

:sMAX ADDRESS, IF SO BRANCH
*AND PERFORM NEW RD HDR
:EXPECTING ZERO SECTOR

BEQ

002362

(R3)+
(R3) ,BDDAT

TRAP

CSETST

#+1EST 34*% = SEEK FUNCTION

;axaaSTART OF TESTwwwe

22 Y2333 2222222222123222222232233232333133133333333333 333333333 2233234}

*CHECK THE SEEK FUNCTION RETURNS CONTROLLER READY
*WITH NO ERRORS. WE ISSUE A ONE TRACK IN WORD SEEK.

Y
o

CZRLGCO_RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-%2

10
5-24
CZRLGCO_RL11/RLV1I1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE

SEQ 0128

*++TEST 34*+ - SEEK FUNCTION

'?E DO NOT CHECK THE RESULT FOR POSITION

—

STARS

D d d b b b

::.t.tiittttt..'l.ti.t.'t'Qttt.ttQ.ttittt.ttit'tfittttt.ttt.titt.'

— e

012777
004537
00000
00453
012737

002414

012727
000000
013727
000000

=20

—_

IMPLEMENT TIME DELAY

-6£PC)

ENDTST
L10062:

104401

.SBTTL

WNN=OV o~

oo
v\n
SR
FOAARARR
RERR
=0V NOWVS
CONON
S W
0

SINITIALIZE DELAY COUNT

bSDLY.(PC)f

2%:

oo o

W
N

OO0

250
szso..«rc)+

CKLOOP

013120

DLYCNT
WAIT1

CSCLP1
R5,CHERR

sDECREMENT DELAY COUNT
sBRANCH IF DELAY NOT EXPIRED
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sxxxxEND OF TESTwwnx

CSETST

TRAP

#«TEST 35+« - CHECK DRIVE READY ON SEEK
saxx«START OF TEST#wx«

BGNTST

STARS

021350

':ttttfitttfitttl.tfitttt'tttttitttttlititfittttttltittttttttt.ttt.tt

:CHECK THE SEEK FUNCTION RETURNS DRIVE READY WITH
sNO_ERRORS.

WE ISSUE A ONE TRACK INWARD SEEK.

:NOT CHECK THE RESULT FOR POSITION

WE DO

STARS

;:ttttttt.ttttlttttttttt't't'tti'tfittttlttttfitttttttlttttttttt.tt

—

o~
—d
<
o

D md

v k)

WAIT1:

002414

021350
2 021356
362

—_—

lg..DLYCNT

=22(PC)

35 021346
021346
021346

#BIT7!MK!SIGN,3RLDA ;SET UP DA=DIFF=1,MARKER, TOWARDS
R5,LDFUNC
;ISSUE FUNCTION OF FOLLOWING WORD
s SEEK
;WAIT FOR_CONTROLLER READY HIGH
R5,WTCRDY

012777
37

000201
013420
0714306

013120

014220

160676

MOV
JSR

SEEK
JSR
CKLOOP
TRAP

MARKER, DIFF=1,

#BIT7!MK,3RLDA
R5,LDFUNC

:SET DA,

R5.,WTCRDY

sWAIT FOR CONTROLLER READY HIGH
IS SET
sCHECK IF /FL:LOE

cscLP1

JSR
CKLOOP
TRAP

R5.,CHERR

JSR

R5,WTDRDY

CSCLP1

*ISSUE FUNCTION OF FOLLOWING WORD

s SEEK

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
sWAIT FOR DRIVE READY

1061 021404
021404

104406

06% 021406 004537 013120
065 021412
021412
021412

ENDTST
L10063:

104401

.SBTTL

CKLOOP
TRAP

CSCLP1

JSR

R5,CHERR

SEQ 0129

sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sannsEND OF TESTwwnw

TRAP

CSETST

#*TEST 36%% -~ SEEK FUNCTION INTERRUPT
saxxxSTART OF TEST#www

BGNTST
STARS

tttfitttttt*ttt'tttttt*t'titfiifi.tttt.ttttttttttttttt'ittti'ttttt

:CHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK IS
:INITIATED CAUSES AN INTERRUPT BUT DRIVE READY WILL
:NOT. WE ALSO MONITOR FOR ANY ERROR BITS SETTING.
STARS

005037

002330

012700

000000

1 084 021426
1 085 021434

012777
004537

000205
013420

}83; 021442

004537

014306

1089 021450
} 90

005737
001004

002330

021456
021460
021462
021464
1092 021466
021466

104455
000050
006325
010160

004537

21474

104406

23 ' 2221222222222 2222221232222 3338333323333 2222222230333 dddiitdddl)

005037

002330

gg%

004537

014220

506

104406

082 021414
021424

— D

=
~

—
et

— b e = b ...-A-on-.

3
8
IS333T
$3R3

00106

CLR

SETPRI

MOV
TRAP
nov

160620

18:

013120

BNE
ERRDF
TRAP

WORD
"WORD
"WORD

CKLOOP

INTFLG

2
40.,EM47,ERRO
CSERDF
40
EM47
ERRO

ISSUE FUNCTION OF FOLLOWING WORD
sesx AND INTR. ENA
UAIT FOR CONTROLLER READY HIGH
iDID INTERRUPT OCCUR

*YES, GO CHECK DRDY

:CHECK IF /FL:LOE IS SET

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

CLR

INTFLG

:CLEAR INTERRUPT OCCURANCE

RS,WTDRDY

:WAIT FOR DRIVE READY

CKLOOP

5$:

:SET PSW TO 0

cpnxoo RO
CSSPRI
#BIT7IMK!SIGN,3RLDA_:SET UP RLDA

RS, LDFUNC
sesx'xu EN
RS,WTCRDY
ng

2%:

104406

INTFLG

#PRI00

CKLOOP e

:CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE IS SET

*CHECK IF /FL:LOE IS SET

1/RLV11 CTLR TST 1 MACRO VO‘ 00 30-NOV-81 13:58:41 PAGE 8-22
CZRLGCO_RL1
*+TEST 35+« - CHECK DRIVE READY ON SEEK

SEQ 0130

*+TEST 36*+ - SEEK FUNCTION INTERRUPT
1

151

" BHE e oo
”8‘7’ 051523 001404

1105 021516

005737

021554. 104455

BEQ
ST

ERRDF

42.,EMS52,ERRO

000052

MWORD

i o%1s§2 104406

6$:

CKLOOP

CSCLP1

111 85}?32

E%m.

;CHECK IF /FL:LOE IS SET
sunasEND OF TESTwws

" TRAP

:DID DRIVE READY CAUSE INTERRUPT

CSERDF

TRAP

104401

:NO, CONTINUE

INTFLG

TRAP

1109 0215

i 021536

#PRI0?

002330

1108 021524

021526

SETPRI

CSETST

.SBTTL ##TEST 37%% = TEST DIFFERENCE WORD TRANSMISSION

}}}9 021540

1118

BGNTST

saxxxSTART OF TESTaxnx

1119

H%? 021540

STARS

1122
1123
1124
1125
1126
1127
1128

:VERIFY THAT THE DIFFERENCE WORD LOADS AND IS
4
:TRANSMITTED CORRECTLY.
WE WILL ISSUE SEEKS WITH THE
:DIFFERENCE WORD CONTAINING ALL OF THE BIT PATTERNS FLOATING 1.
:GROWING 1, GROWING O AND SHITING 0.
THE SEEK WILL
:START FROM TRACK O EACH TIME AND WILL RETURN THERE
:EACH, THUS BOTH DIRECTIONS FOR PATTERNS WILL BE CHECKED.
*READ 'HEADERS ARE USED TO VERIFY THE SEEK CORRECTNESS.

23 L2

1129

32 L 32333323 123331133 2

1133 021540 012703 002626
1134 021544

BGNSEG

e 823222 104404

}39 8%1?5 oms:;r 013420
1138 021554 ool.n
”5”39 014306
537

988:

0131

s 021566

104406

1144

1;7;7 oogu

1146 §§1w2 §3usz
02157

)

104406

%%‘:.} 3??& i
021570

STARS

1131
113

1145

ittt

RT3 323223232323223222322322322221

*ERRORS ARE MONITORED AND REPORTED.

1130 021540

1139 021560
o 021560

i 222 i3

737

002334

8332‘4

23223

MOV

#SKLST,R3

TRAP

($BSEG

CKLOOP
TRAP

CSCLPY

flgfim RS, LDFUNC
JSR
RS,WTCRDY
'c'ifoop

RS,CHERR

TRAP

CSCLP1

Mov

E.MP,BDDAT

BEQ
BIC

353

MSK,BDDAT

2222222232820 22323223232222222223

:GET LIST OF DIFFERENCE WORDS
;exaxSTART OF SEGMENT##a#

.-ggibue“%gm OF FOLLOWING WORD
*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET

SCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS

:READ HEADER

:IF ON TRACK ZERO, M.S. 2ERO, OK
:CLEAR OUT SECTOR

CZRLGCO_RL11/RLVIT CTLR_TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-5610

SEQ 0131

1
g-b
1/RLVI1 CTLR TST 1 MACRO_V04.00 30-NOV-81 13:58:41 PAGE
CZRLGCO_RL1
S+TEST 37++ = TEST DIFFERENCE WORD TRANSMISSION

1147

:NOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK

1148

:ON

Hgg

ZERO.

#RHHS ,BDDAT
BDDAT aRLDA

1151 021606 0457;7 000100 oozsg&
11s§ 021614 013777 002364

BIC
MOV

ooooog
1155 0216
1156 02163% 004537 014306
1157 02164

SEEK
RS,WTCRDY
JSR
CKLOOP

1153 021
1154 021630

BIS
JSR

oog201 160424
052777
004537

rined 021642 104406
1159 021644

004537

e 021650

104406

1162 021652

004537

1160 021650

1163 021656

¥ 021656

104406

1165 021660

004537

N 021664

104406

1168 021666
1169 021672

004537
000010

1166 021664

013120

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

JSR

RS, WTDRDY

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

JSR
RDHDR

RS, LDFUNC

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

CKLOOP

014220

89%:

013120

CKLOOP
CKLOUP

013420

1170 021674 004537 014306
1171 021700

96$:

aRLDA
as LDFUNC

RS,WTCRDY
JSR
CKLOOP

e 021700

104406

1173 021702

004537

.5 021706

104406

1176 021710

005037

013737 002364 002376
013737 002314 002364
043737 002334 002364
001404

MOV
MOV
BIC
BEQ

BDDAT , DWORD
E.MP,BDDAT
SECMSK,BDDAT
5$

1182 021740
021740
021742
021744
021746
1183 021750
iy 021750

104455
000053
006426
010252

ERRDF
TRAP
JWORD
"WORD
"WORD
CKLOOP
TRAP

43.,EM54,ERR3
CSERDF
4
EMS4
ERR3

1185 021752

011377

MOV

(R3) ,aRLDA

1174 021706

1177 021714
1178 021722
1179 021730
}}gg 021736

013120

CKLOOP

104406

160276

1186 021756 052777 oogoos 160270
1187 021764 004537 013420
021770

1188
021772 335&39 014306
1189
1190 021776

- 021776

104406

CLR

002362

58:
998:

GDDAT

CSCLP1

:CLEAR OUT HEAD SELECT
.Pur CYLINDER AS DIFFERENCE WORD

MARKER BIT
*SET
*ISSUE FUNCTION OF FOLLOWING WORD
: SEEK
*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

*CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET

:1SSUE FUNCTION OF FOLLOWING WORD
*READ HEADER

*WAIT FOR CONTRO.LER READY HIGH
*CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET
:CLEAR EXPECTED

*SAVE DIFFERENCE WORD
*READ HEADER
:MASK OUT SECTOR BITS
*BRANCH IF ON ZERO TRACK

:CHECK IF /FL:LOE IS SET
;GET DIFFERENCE WORD

BIS
JSR

#SIGN'MK,.SRLDA -SET SIGN (TOWARDS SPINDLE) AND MARKER
*ISSUE FUNCTION OF FOLLOWING WORD
RS, LDFUNC

TRAP

CSCLP1

SEEK
RS, WTCRDY
JSR
CKLOOP

+ SEEK

HIGH
READY
CONTROLLER
FOR
*WAIT
SET
IS
*CHECK IF /FL:LOE

*+TEST 37+« « TEST DIFFERENCE WORD TRANSMI
0%2000
022004
022004

104406

014220

87%:

=1
Y
o

(=1=]
NN
N

g 37

0220
022026

NN
NN

004537

013120

104406

JSR
CKLOOP
TRAP

R5,CHERR

JSR
CKLOOP
TRAP

R5,WTDRDY

JSR
CKLOOP
TRAP

R5,CHERR

sISSUE FUNCTION OF FOLLOWING WORD

004537

014306

JSR
CKLOOP
TRAP

R5,WTCRDY

sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

JSR
ESCAPE

R5,CHERR
SEG
CSESCAP
100008-.

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3) ,GDDAT
(R3) ,DWORD
E.MP,BDDAT
SECMSK ,BDDAT
ggDAT.BDDAT

sGET EXPECTED CYLINDER
sSET UP DIFFERENCE FOR SEEK

104406

004537

013120

o
~
N

002364

PRRNZE IZSZRRR 8

N
N

NNSNSRARES
88“*‘0\”50“\)—'00

EM54
ERR3

9$:

cscLP

002726

(R3)+
.M
T.DRIVE
28
R3, #SKEND

021546

002406 1000001

\'y

sTRACK, IF SO, GO GET NEXT

sCHECK IF /FL:LOE IS SET
:BUMP PATTERN

C'® W eENILO e .. VOO @ 0v- oo

108

2$:

R3,#SKEEND

108
1$

108:

1 022152
OO0O
NN
LYY,V

sREAD HEADER FROM RLMP
sCLEAR OUT SECTOR BITS
:DID SEEK GO TO THE RIGHT

Ezsfior

021546

CSCLP1

sREAD HEADER

4. ,EM54 ,ERR3

d
b

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

R5,LDFUNC

3
b
e
b o

b
b
b d e e

CSCLP1

sWAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

JSR
RDHDR

NOWVSWN=O

b =D b

b
b =D
b
b
d =D d b
b

e e

NN
NN
wn

CSCLP1

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

013420

002770

02215
215

CSCLP1

SEQ 0132

0045?7
000010

& &

013120

104406

=4
[=l=1=]

cdedad

bbb
bl
N NNV

et
NN
o
~

004537
004537

—

adedad

RER28 82% &R SR &

cded

30-NOV=-81 13:58:41 PAGE S-EB
SSION

CZRLGCO_RL11/RLV11 CTLR TST 1 MACRO_V04.00

104405

ENDSEG
100008:

ENDTST
L10065:

senexEND OF SEGMENT##ww
TRAP

CSESEG

saxtxEND OF TESTwwaw

COVese
v . =
q

V04.00 30-NOV-81 13:58:41 PAGE 8-}9
MACRO
1
TST
CTLR
_RL11/RLV11
CZRLGCO
TRANSMISSION
WORD
DIFFERENCE
TEST
=
37+
++TEST
022154

TRAP

104401

\mfi
J‘J\

bbb
bbbt bbbl

012777
005037

000001
002362

004537
000006
004537

013420

—

RN
NN

[el=1=]
NN

p=Y

[*N Chg;

cdeded

NN
N
N NN

160070

99%:

2$:

014306

013120

66 022226
67 022232
022234
69 022240
022240

004537
000010
004537

1 022242
82 46

004537

o
NMU
~N NN
&%
N=O

022

014220

89%:

104406

3 022220
64 022224
022224
v

-l —bed

s*aaaSTART OF TEST#wws

104406

NN
o

b D amd =D

BGNTST

::tttttttfitl.tt.lttttttttt!'tltt*ttt.t'Qtt‘t'fittit'.tttttttttttlt

004537

— be

#«TEST 38+~ - VERIFY HEAD SELECT 0 VIA RD HDR

*CHECK THAT WE CAN SELECT HEAD SELECT ZERO. ISSUE
:SEEK TO HEAD SELECT O AND VERIFY WITH READ HEADER.
STARS

004537

022276

CSETST

.SBTTL

104406

75 0%2260
0 22?6
7 022274

SEQ 0133

tt.tt.t.t.ttttl'fi.tt"'i.ttt.ttttfltiitttttt.tttit.tl.ltt.t.ttt.

46 022156

273
274 022252

STARS

022156

DN N

—

WN=O

d D d e o

D md

-'x':u~m<fi=~u v

013120

#MK
, aRLDA
GDDAT

sSET MARKER IN RLDA

JSR
SEEK
JSR
CKLOOP
TRAP

RS, LDFUNC

ggggfi FUNCTION OF FOLLOWING WORD

RS,WTCRDY

:WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

JSR
CKLOOP
TRAP

RS, CHERR

JSR

RS,WTDRDY

TRAP

CS$CLPI

JSR

RS, CHERR

TRAP

CS$CLPI

JSR
RDHDR
JSR

RS, LDFUNC

TRAP

C$CLPI

JSR
ESCAPE
TRAP
.WORD

RS, CHERR
15t
S
CSESCAPE
L10066~.

MOV

5i?§699féfionr

CKLOOP

104406

013420
014306

96$%:

104406

013120

104410
000036

09;316
177677
002362

MOV
CLR

002364
002364
002364

CKLOOP

BEQ
ERRDF
TRAP
.WORD

CS$CLPI

CS$CLP1

RS,WTCRDY

GDDAT ,BDDAT
b1

EM55 ERRG

2§ékor

;SET EXPECTED

sLOAD HS=0 INTO RLDA

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE 1S SET
sWAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS

:CHECK IF /FL:LOE IS SET

sISSUE FUNCTION OF FOLLOWING WORD

:READ HEADER
;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS

;IF /FL:LOE SET LOOP, ELSE EXIT TST

.IF EQUAL CONTINUE

SELECT

13:58:41 PAGE 5§0
SO-NOV-BI
V04.00
MACRO
1
TST
CTLR
11/RLV11
CZRLGCO_RL
HDR
RD
VIA
O
SELECT
HEAD
*+TEST 38++ « VERIFY
02%
}%g? 022306

010324

1282 022306

022306

104401

58:
L10066:

N
N
W

N
N
e

b d =
b e

STARS

129
1295

1296 022310

012777

- 022336

104406

1303 022340

004537

o 022344

104406

022346

004537

1308 022352

104406

1309 022354

004537

1297 022316
1298 022324
1299 022330
1300 022332
1301 022336

1304 022344

1306

1307 022352

1310 022

ks 022360

000001

157736

052777 000020 157730
004537 013420
000006
004537 014306

014220

013120

104406

1314 022370 004537
1315 022374
022374

014306

104406

1319 022376 004537 073120

1318 02240
022402 104410
oot 022404
364
13737 002314
1320 0224
737 17;677 83 364
1321 022414 34
01 7;7 ooows 002362
132; 022422
023737 002362 002364
1323 022430

EM55
ERRé

sanaxEND OF TEST#wwx
TRAP

CSETST

*+TEST 39+« -~ VERIFY HEAD SELECT 1 VIA RD HDR
sanaaSTART OF TESTwnww

.ttttltt.ltttttttt.'Q't't"ttttt.ttttt.tttttttl.tt'tt"ttt.tfitt

:CHECK THAT WE CAN SELECT HEAD SELECT ONE. ISSUE
:SEEK TO HEAD SELECT 1 AND VERIFY WITH READ HEADER.
it

STt

Qtttttfi'fi'tQttltttt.it"tittfil.'tttii'tl..'fi'.ttt'ittt..t.tt.tt

99%:

013120

1312 022362 004537 013420
|
1313 022366 000219
.

JSBTTL
BGNTST

.WORD

ENDTST

3 E§2=hos=haagha
SRIRHR

[+
W

022306

.WORD

006465

022302

SEQ 0134

MOV

#MK, BRLDA

CSCLP1

JSR

RS.CHERR

CSCLP1

JSR

RS,WTDRDY

TRAP

CSCLP1

JSR

RS,CHERR

TRAP

CSCLPY

JSR
RDHDR

RS, LDFUNC

TRAP

CSCLP1

#DANS,SRLDA
BIS
JSR
RS, LDFUNC
SEEK
RS ,WTCRDY
JSR
CKLOOP

CKLOOP

898:

CKLOOP

RS, WTCRDY
JSR
CKLOOP

JSR

as cnm

ESCAPE
TRAP
cssswe
L10067LWORD
DA
MOV
BDDAT
1177699
BIC
#RHHS,GDDAT
MOV
GDDAT.BDDAT
CMP

;SET MARKER IN nm

*LOAD HS=1 INTO RLDA
ISSUE FUNCTION OF FOLLOWING WORD
+SEEK
UAIT FOR CONTROLLER READY HIGH
CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE CLEAR

*CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

CHECK IF /FL:LOE IS SET

:I1SSUE FUNCTION OF FOLLOWING WORD
HEADER
*READ

*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET

FOR ERRORS
:CHECK CONTROLLERLOOP,
ELSE EXIT TST
IF /FL:LOE SET

:READ HEADER
:MASK FOR H.S.
*SET EXPECTED
*CORRECT HEAD

BEQ

1326 0 su.o

ERRDF

46.,EMSS,ERRG

WORD

"WORD

ERR%

022440

02244

og 44k

022446
}g,‘z,; 022450

TRAP

oooosg

"WORD

oou.g

010324

58:

CSERDF

EMSS
senaxEND OF TESTwnnx

ENDTST

1329 022450

022450
022450

:YES, TONTINUE

}gg 022436 001404

104455

L10067:

104401

JSBTTL

11333.%

}gsg 022452

TRAP

CSETST

*#TEST 40%* - VERIFY HEAD SELECT O VIA GET STATUS

BGNTST

;#%aaSTART OF TESTw#ws

1336 022452

STARS

1337

SCHECK THAT WE CAN READ BACK HEAD SELECT 0 WITH

32 tttttttttttt'ttttttttttttttttttttitttttttt.tttttttt'ttttt.ttttt

A GET STATUS FUNCTION. SELECT H.S. O WITH A SEEK
“VERIFY WITH GET STATUS
STARS
ttittttt'tttttttttltttttttttttttttt

1338
1339
1340 022452

33 t.tttttttttttttt*ttttitttttt

1341

1342 022452 012777 000001 157574
1343

1344 022460
1345 022464

005037
004537

002362
013420

1347 022472

004537

014306

oo 022476

104406

1350 022500

004537

s 022504

104406

1353 022506

004537

- 022512

104406

1359 022514

004537

Bl 022520

104406

1346 022470

1348 022476

1351 022504
1354 02251

1357 022520

1359 022522
1360 8225

1361 022534
uog 0225

1363 02254

000006

013120
014220

013120

012777 ooggos 157524
004537 073420
882094
537

014306

- 022542

104406

1365 022544

004537 013120

1366 022550

022550

SEQ 0135

13:58:41 PAGE 8-}1
30-NOV-81
V04.00
MACRO
1
TST
CTLR
11/RLVI1
CZRLGCO_RL
HDR
RD
VIA
1
SELECT
HEAD
*+TEST 39++ « VERIFY

104410

28:
38:

MOV

#MK , BRLDA

CLR
JSR

GDDAT
RS,LDFUNC

JSR

RS,WTCRDY

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

JSR

RS,WTDRDY

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

SEEK

CKLOOP

CKLOOP
CKLOOP

CKLOOP

MOV
JSR

GSTAT
JSR

CKLOOP

;SET MARKER IN RLDA

*LOAD HS=0 INTO RLDA

*SET UP EXP'D
*ISSUE FUNCTION OF FOLLOWING WORD
*SEEK

*WAIT FOR CONTROLLER READY HIGH

SCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY

SCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE IS SET

#GSBIT'MK,3RLDA :SET UP FOR GET STATUS IN DA
SISSUE FUNCTION OF FOLLOWING WORD
RS,LDFUNC
RS, WTCRDY

TRAP ~

CSCLP1

JSR

RS, CHERR

EscaP: TSt

TRAP -~ CSESCAPE

SGET STATUS
*WAIT FOR CONTROLLER READY HIGH

SCHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS

*IF /FL:LOE SET LOOP, ELSE EXIT TST

137% 022600

CSERDF

ENDTST
L10070:

EMS6
ERRG
sanetEND OF TESTwwww

TRAP

CSETST

aad

104401

6$:

.SBTTL

#«TEST 41%% = VERIFY HEAD SELECT 1 VIA GET STATUS

022612

BGNTST

022612

STARS

saxxxSTART OF TESTawnww

ttttttttttt*ttl'tttttttt.tt'.tt.ttt.l.fittltt.t.ttt.tttitti.t'.t

:CHECK THAT WE CAN READ BACK HEAD SELECT 1 WITH A G

:STATUS FUNCTION.
:GET STATUS

SELECT H.S. 1 WITH A SESK AND VERIFIY WITH

STARS

::tttttttttttttttttitttt"tt'tfii.ll.tt.t.'tttt'tfit.i..t'tfi'.'..tt

157434
157426
002362

SEEK
JSR
CKLOOP
TRAP

014306

JSR

013120

004537

. CKLOOP
TRAP

014220

104406

004537

013120

104406

ez 013420
004 537

014306

MoV
BIS
MOV
JSR

157354

#MK ,SRLDA

sSET MARKER IN RLDA

#STHS ,GDDAT

RS, LDFUNC

:LOAD HS=1 INTO RLDA
:SET UP EXP'D
gSSUE FUNCTION OF FOLLOWING WORD

R5,WTCRDY

WAIT FOR CONTROLLER READY HIGH

#DAHS,aRLDA

CsSCLP
R5,CHERR

CSCLP1

EEK

CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE 1S SET
;WAIT FOR DRIVE READY

JSR
CKLOOP
TRAP

R5 ,WTDRDY

JSR
CKLOOP
TRAP

R5,CHERR

MOV
JSR
GSTAT
JSR

#GSBIT!MK,aRLDA
; E T UP FOR GET STATUS IN DA
;1S ?UE
FUNCTION OF FOLLOWING WORD
R5,LDFUNC
: GE STATUS

CSCLP1

cscLP1

:CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS

:CHECK IF /FL:LOE IS SET
Ghfi-Ul

000001
000020
000100

RS ,WTCRDY

| T FOR CONTROLLER READY HIGH

N =

)
b
— e

e EEs g

:YES, CONTINUE

:IS HEAD SELECT CORRECT?

;LEAVE ONLY H.S. BIT

47, EM56 ,ERRG

&3:0‘ £333

022600
022602
022604
025606
1374 022610
1375
1376 022610
022610
022610

GDDAT ,BDDAT
63

n177697.sooAr

1371 022576

sREAD STATUS FOR HEAD SELECT BIT

362

E.MP,BDDAT

R TR

09;677

005366
002364
002364

pun—

19%
g0 0225

L10070-.

000036

022552

SEQ 0136

-NOV-81 13:58:41 PAGE gig
RL11/RLVI1 CTLR TST 1 MACROV04.00 30
CZRLGCO
"TEST 40*+ = VERIFY HEAD SELECT O VIA GET STATUS

11N o%%ns
022712 104410

ESCAPE
TRAP csssgm

:1F /FL:LOE SET LOOP, ELSE EXIT TST

14.15 os 716 004537 013120

RS, CHERR
JSR
ESCAPE TS

SIF /FL:LOE SET LOOP, ELSE EXIT TST

14614 0 755

022722

‘e 022724

WORD

000046

TRAP

104410

LWORD

000036

MOV

1416 0227§2 013737 002314 002364

1417 0227

BIC
CMP

2737 177677 002364

1418 oszus 023737 002362 002364
1404
mg 02275

1621 022752

022754
022756
022760

}gg 022762

000060
006520
010324

68:
L10071:

104401

1125;

LSBTTL

}2233 022764

BGNTST

1431

:CHECK CONTROLLER FOR ERRORS

FOR HEAD SELECT BIT

:READ smus
BIT
H.S. CORRECT?
ONLY
‘LEAVE
BDDAT
7
mr&
SELECT
HEAD
*IS
,BDDAT
GDDAT
9

*YES, CONTINUE

ERRDF

48.,EMS56,ERR4

WORD
"WORD
"WORD

48
EMS6
ERR4&

CSERDF

;#anaEND OF TESTwens

ENDTST

1424 022762

022762
022762

csescm

L10071~-.

BEQ

TRAP

022752 104455

L10071-

TRAP

CSETST

#+TEST 42+% = TEST TIME AT WHICH DIF WD GETS TRANSMITTED
axx2START OF TESTawne

1432 022764

STARS

1433
1434
1435
1436

*VERIFY THAT THE DIFFERENCE WORD ON A SEEK IS
*TRANSMITTED PRIOR TO CONTROLLER READY SETTING. THIS
1S DONE BY SETTING A KNOWN DIFFERENCE WORD IN
“THE RLDA ISSUING A A SEEK, WAITING FOR CONTROLLER READY

1439
1440 022764

“OF THE FIRST RLDA ONLY.
s TARS

tttt!tttttttttttttttttttttttttt.t!t!ttttt.ttltttitttttttttttttt

*(BUT NOT DRIVE READY), WRITING A DIFFERENT RLDA AND wm«;
*FOR DRIVE READY. THE RESULTANT POSITION SHOULD BE THA

1437
1438

tltttttttttttttttttttttt'ttttttt!ttttlttttttttttttttttl'ttttt.t

1441
144

w.i ozz;gl. 004537 013420

1444 ozg g 000010
1445 022772 004537 014306
1446 ozsm
e 022776

104406

1448 023000

004537

- 023004

104406

1449 023004

013120

1451 ozsooo 013737 oogu 00 gos
36 00236
023014 84 001
145;
157224
1453 023022 012777

998:

JSR

RS,LDFUNC

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

MOV
BIC
MOV

sscn&x.soon
#MK, 3RLDA

RDHDR
RS,WTCRDY
JSR
CKLOOP

CKLOOP

. Y.l

022714

" N

SEQ 0137

Y. ..., s """ "“"““Y“ "TM

8-;}
PAGE
13:58:41
gO-NOV-fl
v04.00
HACRO
1
TST
CTLR
RL11/RLV11
CZRLGCO
++TEST 41%+ = VERIFY HEAD SELECT1 VIA GET

GDDAT

:1SSUE FUNCTION OF FOLLOWING WORD
*READ HEADER
*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE 1S SET
:READ HEADER
*CLEAR SECTOR BITS
*SET MARKER IN RLDA

s:.

28:
0 2 og 002
13737
002354
737 000100

23727
0010
1460 0
1«.; 023100 101007
146 og 108 osgm
1464 023110 063737
1465 og 1 oogl.gs
163737
1466 023120
1467 023126 053777
012737
1468 023134
1469 023142 032777
1470 023150 001037
1471 023125 052737
33
1472 0231
023737
1473 023162
1474 023170 101007
1475 023172 osgm
737
1476 023200

002406 000001

1461 02 7 0537 7 002354 002704

1477 0232

1478 023210
1479 023216

1480 023224
1481 023232
1482 023240
1483 023242
1484 023250
1485 023254
1486 023256
1487 023262

163737
053777

012737
032777
001003
052737
537
000006
004537

023262

104406

1490 023264

004537

o 023270

104406

R 023304

104406

1491 023270

157144

002702 002362
002702 002362 3$:
002702 157120 &$:
000001 002356
000020

157194

000020

002356

002354

002734

000004

157054

002732
002732

002362
157030

128:

002732 002362

000001 002356

13$:
14$:

000020 157014
000020

013420
014306

002356

58:

013120

1498 02331

i 023312

104406

1500 023314

004537

023320

104406

1501 023320

1308

1504 023322 004537 013120
1505023326

TMPO, HALMAX

SUB
BIS

QMAX, GDDAT
QMAX 3RLDA

CMP

B8R

MOV
BIT
BNE
BIS
JSR
SEEK
JSR
CKLOOP

MK, TMPT
mus aRLDA
3
#DAHS , TMP1
RS,LDFUNC
RS, WTCRDY

TRAP

CSCLP1

JSR

- RS,CHERR

TRAP

CSCLP1

TMP1,3RLDA
MOV
RS,WTCRDY
JSR
CKLOOP

013120
014220

CMP
BNE
BHI
BIS
ADD
BR
su8
BIS
MOV
BIT
BNE
BIS
BR
(MP
BHI
BIS
ADD

#DAHS,BRLDA
GDDAT. TMPQ
#RHHS. TMPO
M
T.DRIVE,
128
3s
#SIGN,3RLDA
, GDDAT
QUAMAX
4$
X
, GDDAT
QUAMA
QUAMAX . SRLDA
MK, TMP1
, aRLDA
#DAHS
58
, THP1
#DAHS
13
, HMAX
TMPO
13$
#SIGN,aRLDA
QMAX, GDDAT

BIS
MOV
BIC

CKLOOP

1493 023272 013777 002356 156754
1494 023300 004537 014306
1495 023304
1497 ozssog 004537

#RHHS,GDDAT

RAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

JSR

RS, WTDRDY

TRAP

CSCLP1

CKLOOP

8s:

CKLOOP

JSR
RS, CHERR
CKLOOP

sTEST H.S.
CONT INUE
zeno
134
SET so WE WILL REMAIN THERE

SONE,
.srofis
*CLEAR n s. rnon STORED WORD

145

1458 0
1459 0

BEQ

0 oou.g;
1455
ggog%o 157 go
sgr
1:.59

BIT

1456 og 032737 000100 002362

NNV
o VVIYYDD DD

SEQ 0138

;4
‘
PAGE
13:58:41
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
TRANSMITTED
GETS
WD
*+TEST 42++ = TEST TIME AT WHICH DIF

;ISSUE FUNCTION OF FOLLOWING WORD
+SEEK
*WAIT FOR CONTROLLER READY HIGH
:CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET

;SEND IN NEW DIFFERENCE WORD
WAIT FOR CONTROLLER READY HIGH
CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY

SCHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS
SCHECK IF /FL:LCE IS SET

' $EQ 0139

104406

004537

013120

JSR
RDHDR
JSR
CKLOOP
TRAP

RS, LPFUNC

gESUE FUNCTION OF FOLLOWING WORD

RS,WTCRDY

:WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

CSCLP1

JSR
ESCAPE
TRAP
-WORD

RS, CHERR

MOV

E.MP,BDDAT
SECMSK ,BDDAT
?ggAT.BDDAT

CSESCAPE

:IF /FL:LOE SET LOOP, ELSE EXIT TST

50. ,EM57 ,ERR4
RDF

suxxtEND OF TESTwxnx
TRAP

CSETST

##TEST 43+« - EXTENSIVE CHECK OF HEADER CRC
saxxaSTART OF TESTwwxw

BGNTST
STARS

tt.ttttttttt.tIQlt't'tt..'tlt.tt.tt.t..ltt.'.tttt.ttt.ttt.tt't.

:MORE EXTENSIVE CHECK OF HEADER CRC.

WE WILL SEEK

:AND READ HEADERS VERIFYING HDR CRC ACROSS THE
:PLATTER USING THE GROWING O, GROWING 1, SHIFTING O AND

TAgUING 0 PATTERNS FOR TRACK ADDRESSES.

tttttttttttt.t.ttit.t'tttttt.tttt.l'tt.tl'.t.tt't..ttt't.ltt't.

002626

104404

004537
000010
004537

013420
014306

104406

004537
104406

013120

BGNSEG
13:

98s$:

MOV

#SKLST RS

TRAP

C$BSEG

JSR
RDHDR
JSR

R5,LDFUNC

TRAP

cscLP1

JSR
CKLOOP
TRAP

R5,CHERR

CKLOOP

RS ,WTCRDY

CSCLP

sGET LIST OF DIFFERENCE WORDS

;##asSTART OF SEGMENT*#w+

012703

RyRNy
VY Y
Y vVvVY TYYTS

;IS HEADER CORRECT?

.SBTTL

:1F SO BRANCH

sISSUE FUNCTION OF FOLLOWING WORD

READHEADER

WAIT FOR CONTROLLER READY HIGH

CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET

ERRDF
TRAP
.WORD
-WORD
.WORD

sREAD HEADER

:CLEAR SECTOR ADDRESS

8IC
CMP
BEQ

002364
002364
002364

L10072:

104401

S
&

N &»H
Ovwn
FO
~N

GRISY BRNEN RURZE BaNonR

— Vil
D d D d D
B
—d =D cmd ad
— d cmd ==b b
— b b

W \YJ

sCHECK CONTROLLER FOR ERRORS

L10072~.

ENDTST

AD HEADER

o
NN
N

002314
002334
002362

108:

ooy

CSCLP1

104410
000036

d d

OV~

vivawviuvainaawn
M) b b cd cd e ok

013420

600210
033352
023336 004537 014306

— b —ed

— b cd D

004537

TRAP

Tl lalalalalala

104406

023326

V..)

TST 1 MACRO V04.00 30-NOV-81 13 58:41 PAGE ‘}}

CZRLGCO RL11/RLVIN CTLR
2 TEST 42++ = TEST TIME AT WHICH DIF WD GETS TRANSMITTE

K 11

SEQ@ 0140

CZRLGCN RL11/RLVIT1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-36
«2TEST 43+~ - EXTENSIVE CHECK OF HEADER CRC

013737
043737
001461

002314
002334

002364
002364

MOV

BIC
BEQ

o
0000
o

2737
013777
000006
004537

004537

000100
002364

SECMSK,BDDAT
5%

Ddedad
Vi
o
Dbedad

013420

004537

014306

wWedaddaded
wbdoded
dedededadedodod

RS, CHERR
CSCLP1

004537

580

RS,WTCRDY

013120

73 023540
5
5 75 023546

581 023562
582
023566
583 023574
84
023602

014220

RS,WTDRDY

89$:

CSCLP1

RS, CHERR

013120

CSCLP1

104406

004537

RS, LDFUNC
RS,WTCRDY

96$:

CSCLP1

RS, CHERR

013120

CSCLP1

005037
013737
013737
043Z3Z

002362
002364
002314
002334

y
002376
002364
002304

BEQ

GDDAT
BDDAT , DWORD
E.MP,BDDAT
SECMSK,BDDAT
13

ERRDF

51. .EMS4,ERR3

-WORD

51
EMS4
ERR3

CLR

TRAP

023620
1588 023622
023622

1590 023624
1591 023630
1592 023636

#RHHS ,BDDAT

BDDAT ,aRLDA
#MK ,3RLDA

_CSCLPY

004537

5 78 023554
5 79 023;28

BIC
MOV

014306

569 023532
023536
023536

576 023552
023552
5

002364
156560

RS, LDFUNC

004537

66 023524
567 023530

1589

E.MP,BDDAT

:READ HMEADER

:CLEAR OUT SECTOR

$IF ON TRACK ZERO, H.S. ZERO, OK

:ggnggoTRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK

— =D b

oW Vi
o

— b d b e o =D D ) D od D b

wviviviwvuaiuaviviavainwn I
ViVl

1548 023442
49 023450
50 023456

58:
011377
052777
88333;

156424
000005
013420

156416

w0
. WORD
CKLOOP
TRAP

MoV
8IS

SEEK

sCLEAR OUT HEAD SELECT
sPUT CYLINDER AS DIFFERENCE WORD
sSET MARKER BIT

:ggggs FUNCTION OF FOLLOWING WORD
*WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY

*CHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS
*CHECK IF /FL:LOE IS SET

;ISSUE FUNCTION OF FOLLOWING WORD
*READ HEADER
*WAIT FOR CONTROLLER READY HIGH
*CHECK IF /FL:LGE IS SET
:CHECK CONTROLLER FOR ERRORS

SCHECK IF /FL:LOE IS SET

:CLEAR EXPECTED
*SAVE DIFFERENCE WORD
*READ HEADER
:MASK OUT SECTOR BITS
*BRANCH IF ON ZERO TRACK

CSERDF

CSCLP1
(R3) ,@RLDA
#SIGN'MK,3RLDA
RS, LDFUNC

:CHECK IF /FL:LOE IS SET
:GET DIFFERENCE WORD
:SET SIGN (TOWARDS SPINDLE) AND MARKER
:ggggs FUNCTION OF FOLLOWING WORD

SEQ 0141

5-37
PAGE
13:58:41
30-NOV-81
00
VO04.
MACRO
1
TST
CTLR
RL11/RLV1I1
CZRLGCO
C
*+TEST 43+ - EXTENSIVE CHECK OF HEADER
JSR

RS,WTCRDY

o 023650

104406

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

JSR

RS.,WTDRDY

TRAP

CSCLP1

JSR

RS,CHERR

TRAP

CSCLP1

1595 023650

CKLOOP

1597 023652 004537 013120

1598 023656

- 023656

CKLOOP

104406

1600 023660 004537 014220

1601 023664

1603

023664

CKLOOP

104406

1604 023666 004537 013120

1605 023672

- CKLOOP

;WAIT FOR CONTROLLER READY HIGH

*CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS

CHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY

*CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

CHECK IF /FL:LOE IS SET

e 023672

104406

1607 023674

004537 013420

JSR

RS.LDFUNC

1611 023706

104406

TRAP

CSCLP

JSR
CKLOOP
TRAP

RS,CHERR

1616 023716 011337 002362
8$:
1617 023722 011337 002376
002364
002314
013737
1618 023726

MOV
MOV
MOV

(R3) ,GDDAT
(R3),DHORD
E.MP.BDDAT

:GET EXPECTED CYLINDER
SET UP DIFFERENCE FOR SEEK
*READ HEADER FROM RLMP

}gg} 023750 001404

BEQ

TRACK. IF SO, GO GET NEXT

RDHDR
RS,WTCRDY
JSR
CKLOOP

1608 023700 000010
1609 023702 004537 014306
1610 023706

1612

1613 023710
1614 023714
.t 023714

004537

1619 023734
1620 023742

043737
023737

1623 023752

023752
023754
023756
023760

1624 023762
- 023762

104406

002364
002364

1634 024024
1635 024026
1636 024030

000020
0
ooooog

004537

013737

BIC
CMP

ERRDF

104406

013737
004537
000020
OOOOgO
3137 7
013737

1637 024032

002334
002362

104455
000064
006426
010252

1626 023764
1627 023772
1628 023776
1629 024000
1630 024002
1631 024004
1632 024012
1633 024020

013120

9$%:

CKLOOP
TRAP

108:

MOV
JSR
16.
.WORD
WORD
MOV
MOV

002314 024000
014032

002344 024030
002316 024026
014032

002344

002362

1638 024040 013737 002320 002364
1639 024046 023737 002362 002364

TRAP
MORD
"WORD
"WORD

_.
51:
0s

JSR
)

»
-WORD

MOV

MOV
CMP

CSCLP1

SECHSK.BDDAT
GDDAT ,BDDAT

:ISSUE FUNCTION OF FOLLOWING WORD

amHEADER
WAIT FOR CONTROLLER READY HIGH
iCHECK IF /JFL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS
CHECK IF /FL:LOE IS SET

:CLEAR OUT SECTOR BITS
DID SEEK GO TO THE RIGHT

52.,EMS54,ERR3

CSERDF
52
EMS&
ERR3

CSCLP1

E.MP, 108

RS SIHBCC
O
O

CALBCC,208
E.MP1,21$

:CHECK IF /FL:LOE IS SET

:GET HEADERWORD
GO CALCULATE HEADER CRC
216 BITS
*HEADER GOES HERE
STARI WITH ZERO CRC

R5,SIMBCC

CALBCC,GDDAT

E.MP2,BDDAT
GDDAT.BDDAT

;MOVE CALcuquo CRC TO GDDAT

*GET HEADER CRC FROM RLMP
*1S CRC CORRECT?

MIFmMAMMmMAMMMmMmMmmMmmMmmr

004537 014306

- e wn e FRIFTIFTIARATIOY

1596 023644

SEQ 0142

CZRLGCO RL11/RLV1T1 CTLR TST 1 MACRO V04. 00 30-NOV-81 13:58:41 PAGE 8-38
(
*+TEST 43++ - EXTENSIVE CHECK OF HEADER
001404

118

104455
000065
006047
010324

CSERDF
]
EM42
ERRG

118:

104406

002726

ENDSEG
100008:

104405

ENDTST
L10073:

104401

.SBTTL

BGNTST

24132

STARS

24132

#
saxxxEND OF SEGMENT#%«
TRAP

CSESEG

TRAP

CSETST

sanxxEND OF TEST#nwx

#«TEST 44** - VERIFY GET STATUS WHILE DRDY IS LOW
s*xxaSTART OF TESTw#xx

ttttttfittttttttttfittttt't*ttttttttttttttttt!'ttttt.itttttttttlt

:;t.tl.tfittttttttttttttttttttti.ttlfitttit.fi*ttttttttttittttttQtti

W
N

rS
~

[=1=]
o
C%“ o
NN
N

CDCfia

NN
Y
T

\¥ ]

gaEEs

~
~

1$:

013420

014306

CKLOOP
TRAP

013120

002314
00225«

J
RDHDR

002364
002364

R5,LDFUNC

FUNCTION OF FOLLOWING WORD
Igigf

R5,WTCRDY

;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

CSCLP

JSR
CKLOOP

R5,CHERR

TRAP

CSCLP1

MoV

E.MP,BDDAT
gECHSK.BDDAT

BEQ

HEADER

sCHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET
sREAD HEADER

;CLEAR OUT SECTOR
:IF ON TRACK ZERO, H.S. ZERO, OK

:VERIFY THAT WE CAN ISSUE GET STATUS AND RECIEVE
s}:SSSTATUS WORD WHILE THE DRIVE IS IN NOTION SEEKING

NNNN NN

b e
e

—2
= e
e
P

-1 YT
VY -

12%:

12§

VMY TM

238 2887285

18
R3,#SKEEND

2$:

023420

$
SWNN=0Y
3BE= oONONONONON

;BUMP PATTERN

12§

023420
002770

4126
1658 024130
024130
024130

(R3)+
. #1
T.DRIVE
28
R3,#SKEND

000001

002406

sCHECK IF /FL:LOE IS SET

=T o

00 %3
023727
00100

CSCLP1

:IF SO CONTINUE

1640 024054
1641
1642 024056

CZRLGCO RL11/RLVI1 CTLR_TST 1 MACRO V04.00 30*8&-81 13:58:41 PAGE 8-%9

SEQ 0143

**TEST &4+ - VERIFY GET STATUS WHILE DRDY IS

1684

:NOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK
:ON ZERO.
000100

1691 024220
1692 024222
1693 024226
226

000006
004537 014306

1695 024230

004537

oy 024236

104406

1698 024236

004537

e 0246242

104406

1701 024244
1702 024250
024250

004537

1705 024252
1706 024256
1707 024260
1708 024264
- 024264

004537
000010
004537

1710 0 :.zsg
1711
02427

004537

002364

BIC

1696 024234

1699 024245

024272

MOV
BIS
JSR

SEEK
JSR
CKLOOP
TRAP

104406
©13120

104406
013420
014306

104406
013120

104406

TRAP

CSCLP1

JSR

RS,WTDRDY

TRAP

CSCLP1

JSR
CKLOOP
TRAP

RS, CHERR

JSR
RDHDR
JSR
CKLOOP
TRAP

RS, LDFUNC

JSR
CKLOOP

RS.CHERR

TRAP

171§ 024276 005037 002362

CLR

171% 024
013737 002364 002376
1715 024306 013737 002314 002364

MOV
MOV

mz 024322

BEQ

1716 024314
1719 024324

024324

024326
0243
3 "§
1720
024
- 024334

1722

1725

179
17

1728

001404

024

002364

BIC

102

TRAP

58:

104406

ssm
537

077601

155710

S 155702

013420

014306

104406

CSCLP1

RS, WTCRDY

CSCLP1

CSCLPY

sCLEAR OUT HEAD SELECT
sPUT CYLINDER AS DIFFERENCE WORD
sSET MARKER BIT
sISSUE FUNCTION OF FOLLOWING WORD
s SEEK
sWAIT FOR CONTROLLER READY HIGH
¢CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
sWAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

ISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER

:WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

GDDAT

sCLEAR EXPECTED

gecn&x.aow

:MASK OUT SECTOR BITS

BDDAT, DWORD
E.MP,BDDAT

SAVE DIFFERENCE WORD
;READ HEADER

:BRANCH IF ON ZERO TRACK

ERRDF . S54.,EMS4,ERR3

002334

104455

024336 012777

17, § 024
1724

043737

CSCLP1
RS, CHERR

CKLOOP

013120

RS,WTCRDY

JSR

CKLOOP

014220

#RHHS ,BDDAT

aom - SRLDA
aRLDA
as LDFUNC

gseknr

MORD
"WORD
.WORD
CKLOOP
TRAP

ERR3

MOV

#77601,3RLDA

JSR

LDFUNE

BIS

SEEK

CKLOOP

54
EMS4

CSCLPY

0§xwh SRLDA
RS, WTCRDY

CSCLPY

sCHECK IF /FL:LOE IS SET
DIFFERENCE WORD
SIGN (TOWARDS SPINDLE) AND MARKER

UE FUNCTION OF FOLLOWING WORD

CONTROLLER READV HIGH

F /FL:LOE IS SET

I IEIIITITOOONQNONONGD

042737

1688 ozasoo 713777 002364 156046
1689 024206 052727 000001 156040
1690 ozasu 004537 013420

1687 024172

}232

CZRLGCO RL11/RLV1IT1 CTLR TST 1 MACRO V
*+TEST 44*+ « VERIFY GET STATUS WHILE

o
1%%%
0 4402 80%537 01g420
004537

106699
12777

RS.CHERR

013120

000003

CSCLPY

#MK'GSBIT,aRLDA

155652

RS, LDFUNC

024

004537 014306
1735 0244?8
4614
82
17

.-.

1737 0 4416

173902442%
02442
024422
1740
1741 024424
1742
1743 024424
024424
1744
1745

104406

004537

RS.WTCRDY

013120

SEQ 0144

sCHECK CONTROLLER FOR ERRORS

CHECK IF /FL:LOE 1S SET

sISSUE FUNCTION OF FOLLOWING WORD
:WAIT FOR CONTROLLER READY HIGH

CHECK IF /FL:LOE IS SET

RS, CHERR

:CHECK CONTROLLER FOR ERRORS
saaaEND OF TEST##ws

104401

TRAP

CSETST

HRDPRM

BGNHRD

.WORD L10075-LS$HARD/2

GPRMD
.WORD
«WORD
.WORD
«WORD
«WORD

000031
024512
160000
177776

CNTMSG,CNT,0,3,1,3,YES

;WHAT TYPE OF CONTROLLER

:RL11=1, RLV11=2, RLV12=3

TSCODE
gNTHSG

TSLOLIM
TSHILIM

CSRMSG,CSR,0,160000,177776,YES
TSCODE
CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES
TS$CODE
VECMSG
TSLOLIM
TSHILIM

DRMSG,DRET,0,03400,0,7,YES

e Pt et g

13:58:41 PAGE g-‘s
0389 ?0°NOV-81
SL

;CONTOLLER BUS ADDRESS

s INTERRUPT VECTOR

:DRIVE NUMBER

DRTYPE, TYPDR,1,YES

;DRIVE TYPE

T$CODE
?RTYPE

02433

000340

BRMSG,PRIOR,0,340,0,7,YES
T$CODE

92886

1753
1754 024475
02447,
024474
024476
1755
1756 024500
024500
024502
024504

ST e
Ty

T$CODE

DRMSG
03400
TSLOLIM
TSHILIM

sBREAK LEVEL

13:58:41 PAGE S-‘%
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
**TEST 44v+ = VERIFY GET STATUS WHILE DRDY I
1

SEQ 0145

TSLOLIM
TSHILIM

ENDHRD
.EVEN

L10075:

BRMSG:

VECMSG: LASCIZ

/VECTOR/

DRTYPE: +ASCIZ

/DRIVE TYPE = RLO1/

NCOCONS

COON

=OWnsHW

/RL11/

NWOOO

CNTMSG: +ASCIZ

O=ONMVIOO=

VIN=NO=WVIN)

/BUS ADDRESS/

CSRMSG: +ASCIZ

O=O=NNH=

D e e

) e b b e

=O=20NO—=NNON
NVNHWMINNO W=

—d e

' W ON)
- b O =
oo

— —

4536
4541
1763 024544
4547

— b c—

1762 026g§§

ddddofl—.ddd

1761 0 2526

N RSN SNNS SRS RS

—

024512

DRMSG:

+ASCIZ

.ASCIZ

/BR LEVEL/

A e e e st aad el sud e aud el e el

1758 024512

/DRIVE/

.EVEN

ENDMOD

BGNMOD

}77% 024604

1774 024604
024604
1775 024606
024606
024610
024615
1776 Q2461
024614
1777 024616
024616
024

1778 034650

T$CODE
DMSG

000130
024630
000001

1$
T$CODE

006044

E:gofie

177977

177

1$:

TSLOLIM
TSHILIM

L10076:
b
ook

N)=—>
N

FIRSY

s
-

7
,VES
EMSG,ELT,.0,177777.,0,17777

024630
024630
024654

.WORD L10076-L$SOFT/2
DMSG,DLT,1,YES

000011

oes
024§§g 1;7 77
024624

SFTPRM

DMsSG:
EMSG:

/DROP ON ERROR LIMIT/
/ERROR LIMIT/

R ———————
T

g i

-WORD
-WORD

RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 3—45
CZRLGCO
*+TEST 44w+ « VERIFY GET STATUS WHILE DRDY IS LOW
1

000001

LSLAST::
.END

- -

-WORD

- - - - g ==

000000

- (- (- (-

1795
1796

-WORD

000000

024670

054672
024674

ENDMOD
EVEN

o - o (- (o (o (- (o

LASTAD

o —

1793 024670
1794 024670

.EVEN

rng

— o

1790

179

SEQ 0146

SEQ 0147

RL11/RLVIT CTLR TST 1 MACRO VO04.00 30-NOV-81 13:58:41 PAGE S-l.i
CZRLGCO
SYMBOL TABLE
1

gamte
e
4
AFREG
013746
004601

AFTER
ARLBA

006607
ARLOA
ARLMP 004615

ASSEMB= 000010
BATEST 015114
0000.

gpse
g
452
CNTMSG
OMP
CONT

015 06

= 000200
ERDY
CRTIM 00466
CSEND
CSPAT
R

003070
002772

LMSK

cowsen

ol
EM34

M
059‘1

000048
E3SEre=
CSSPRI= 000041

Eni
EMe3

§8202$
006105

DBU=

CSRESE= 000033
CSREVI= 00803
CSRFLA= 000 %1

CS$SVEC= 000037
CSTPRI= 000013
DAHS = 000020

EM37
EMé4

EMé
EMé4
EMé

5540

805 19
0593

006226
006§ 7
00627

E;AU = 8005(3)5(2,

002304

EM54

BEREG 0046%3
BGNTST 0124
BITO = 000001 G
BITO0 = 000001 G

C$BSEG= 000004
Sus= 000002
CSCEFG= 000045
06%
CSCLCK=

DLT = 00000
DLTMES 00403
DLYCNT 002414
024630
DMSG

EM57
EM61
EM6

006557
005135
006660
006741

DRBT = 000010

FRMT13 011423
FRMT14 011454
FRMT15 011520
011116
8}”%;

011246
FRMT6
011172
FRMT
FSAU_ = 000015
FSAUTO= 000020

ggg:f %g%“

006356
00642

= 00001

FRATI1 011503
011344

FRMTI2

FRMT2B
FRMT

EM52

= 00000

‘%3
FIX
¢
0"8
FNDF'{C

3774

DEMES

DERFLG

00231
Mo
el
02366
FIRST
E.MP1

EM6

007024

FSBGN = 000040
=

B$DODU= 000051 S
R
gfroo = 000100 G

DRPCOD 013024 6

EM?

005163

FSHW = 000013

CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
CSERSO= 00005
$ESCA= 000010

DRTYPE 02455
DRVRDY 012314
DSPCOD 011632 6
= 000000
pDSO
= 000400
DS1
§ = 001000
= 001400
DS3

EM?
EM?7
EM74
EM?5
EM76
EM?77
ND

007463
007516
007551
007603
007635
007670
012470

FSMOD = 000000
FSMSG_= 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 8%8‘1,%
FSSEG =
F$SOFT= 000005

BIT09 = 001000 G
BIT1 = 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
=

Hlmis
i CmORE
= 00004
BIT8 =

000400 &

gEcRus
R
000026
=
CSGPHR=

000042

Bes BEC.
pEEEe
EF .RES= 000037 6
04
805
05335

G
= 000004
EVL
1%2
ESEND =

GSTMES

S
W
EM30A 005500

oK
PR
00231
E.MP

GSLOLI=

002274
002 s

= %31
CSMEM
i{
CSMSG =

EM14
EM15

Boh
oo
CKERLT 013034

cmmRm
C$QI0 = 000377

B.bA
y

002376

000014
ESouTa=
CSPNTE §§8g17

GLBERR 010160 6

ERRZ

1
EM101
EM102

B.BA
B.BE

010210 &

o
002
GDDAT

024654

30
CSGPLO=
CSGPRI= 000040
CSINIT= 888811

BIT9 = 001000 G
BOE = 000400 6
BPRIOR 0022?4

M Mg
mwemg
ERRVEC 00234

EN1
E

04740
077;3
007770

§8§23§
476

ERR
ERRé
ERR5

10252 6
818 ;lo 6
10372 6

- §o0023102
EBa
E.BE

GLesus 01 ;lo G
GLBTXT 003774 G
000202
GODRVR=

GSTINT

GSDELA=
GSDISP=

476

C
o

nNO

WORNN fldfldddflddedddddd
(217)

024424

010000
OAOOHOHOHONHOD

OONSO

GSOFFS=

= 000010
80 11
LSACP
0
LSAPT

a2 2

2 2

21 0 2 1 e I e R

it e —

D e

b b ed b b b b cnd b b b b -

b b b b b b b w=d b b —b d mmd b e

o T o T Ta T TaTa T Ta Lo 1o To 1o

e
e eb ed eD e
e e ee e e eee
b wd D
e wed wd b d D D D D D

b ed wmd

I I T T

18
TSHILI= 1

TSLAST=

TSLOLI=
TSLSYM=

TSSUBN=

010000

TSTAGL= 1777
TSTAGN= 010077
TSTEMP=
TSTEST=
;4
7
TSTSTM= 1
T$T5TS= 000001

Y TYT YT

SIGN

Y P Yy Y Y Y YT YT

tMh

oM
Oe

00
0$APTS= 000000
0SAU = 000001

SHONNN

= NN
S = O O NN
= \WNO
W— b O NS>

5858883

S22IR20000000
NNNNNNNOOO.
NS WA =2 N
NWWS
O OV

-ao«-\ong\n
SOV

WWAWVWNON\NO

Aol
O

NS =2 SN0
S =NS

S SLNPONONNON

OO0O0O0OOOOOO0O0O0O00O OO0 00000000000OOO00O0000O00OOO0OO0O0O0O0O0O0O0COO0O00O
— —2 —3 —b =3 —b —2 —2 —b — e b e e e e o b b b e e e b b b b b b b b b - b b b b b
AONALININLNLNLNLNINONLNONOND POPRIRIRINOND
S8 NWNWWNIN
=2 =2 O000

OOO0O0O0O0O0O0OOO0O0O0O0O0O0OOOO
OOOgOOOOOOOOOOOOOOOOOOOOO
gssss OOOOOOOOOgOQOOOOOO
= =
NN NNINININININNSNY
S
= O N -.n_.-.-a-.coog
NS W= O NN W
-0~ NS LN N
AVS2328 NOWVSWN=ONO
VS W =O NS
VIS WN=O

s el cmad

NSO
S

R a R LR L R R R

2FISISISSVINNES
S ot

BOSHO0

o o 1 1 =1 1 = =1 = = 1 0 =1 0 0 =1 1 1 1 1 0 0 0

A4 SN

00O
=4
288888ese
8288838828388
282888838
28883888
2222883238888
s NN NINOND RN
COOONNN
=NN oo NNV SN =N =PONIN SN NINININININWWNNINN
O=OON—=\N (=l=1=}
RN
— OO=OOOOOND
NN
= NN
OdchOOOOdO
SO
WVIWNNNIWES
=
v
~ — b == P\ LNINO N N
OO
=2 NOON QR38R

:
=

Tl‘ll "Tl.ll 1} “fi” !

IBE

o
- b

I1$AU

S3dzeee
=

“mm

vwwbg

s % s it -t =4 G) =4
nounnnun i han

LEES
o
sl 3 gfl“fl““

GSOFSI= 000376
GSPrRMA= 000001
GSPRMD= 00000

GSPRML=
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020

GSXFER= 000004
GSYES = 000010
HALMAX 002704
HCRCME 004013
HDRBUF 003274
HDRLST
013640
HMAX
002734
HNFMES 004021
HOE
= 100000
HPTCOD 011604

HRDPRM

°°°§
S22 b S8

V04.00 30-NOV-81 13:58:41 PAGE 8‘62
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
SYMBOL TABLE
SEQ 0148

SECMSK 002334
SEEK = 000006
004444
SEKINT
004413
S EKMES
(024604 G
SFTPRM
SIMBCC 014032
SIZE = 000004
SKEEND 002770
SKEND
002726
002626
SKLST
SPTCOD 0116; G
0120
START
START1 012034
STHS = 000100
svceaL= 000000
SVCINS= 000000
SvCsuB= 177777
SVCTAG= 000000
SVCTIST= 177777
SVHD
002402

V04.00 30-NOV-81 13:58:41 PAGE 3-42
MACRO
1
TST
CTLR
RL11/RLV11
CZRLGCO
SYMBOL TABLE

024674

000000
ERRORS DETECTED:

000
001

VIRTUAL MEMORY USED: 29184 WORDS ( 114 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES
A:CZRLGC.BIN,CZRLGC/C=SVC 33.SRC,A:CZRLGC.MAC

uur
VECMSG

RO
NONOND

0
024544

b —d b b

WVMWMIWNIE
S NN
—

onNO =
—rm
OO
a«»caa&:nfigouuafl:

SEQ 0149

oMM

NN PONININD —=RININ) —> —b —

0000000000000
0O

nmMmHLMHOHOHOHOHOO

= O W= NN
OV

d
—

d D cd e

D d

D e

0
0
0
0
0
0
0
0
0
0

D
D
D e
b

e
114

NNN o
HNONO

0
8

115
719
1§
T18
119
12
120
121
122
123

TSSTES= 010074
T.CNTL 002410
T.DRIV 002406
T.SIZE 011630

. ABS.

n
110

VNONSOOOOOOMMM&
IR ° -‘2

X$TRUE= 000020

H12

SEQ 0150

CZRLGCO RL11/RLVIT CTLR TST 1 MA CRO V04.00 30-NOV-81 13:58:41 PAGE S-1
CROSS REFERENC E TABLE (CREF v04.00 )

6-121«

8-164

8-196

4 wo

- 5 O N NN

.qus.......-.lfi!.aq.-..uslfi !.J!.J..JJ

woN N

8-227

~N
~N

8-130

6-178+

4
elb

8-957«

8-958+

8-959

C
C

i [

§ 00 U b

.o. [ OLTO e NeO 4 OULIMO OUL O\UL

]

Bw B BXRTT T T WRTITATINEG TUTLLL U den a1 1y I

b
o

)
[=]

V04.00 30-NOV-81 13:58:41 PAGE S-i
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
)
V04.00
(CREF
TABLE
CROSS REFERENCE
J

-74

-78
-7#
-74
-7#
-78
2=

5-15
=74
2=1

-7‘

5=147

597

=111

44k

8-914
8-<63
8-204
8-A37
-10
S=143#

2=-64#

4=78

4=79

4-82

4-83

5-86

8-734

8-784

8-790

8-833

8-838

8-:83

-867
8-<07

8-879
8-<57

8-323

8-798
8-:73
8
8-a77

8=>90
8-A10

8->97
8-

§-A46

-294#
-2634
-504
-A48
-1204
-121#

7-13
7-116
8-A48
;-A600
-1
8-

-74
5—950
-304

6-68
644>

8-475

4=77

4=17

5-149

-7
g-sac
-134

4=76

8-979
8-<71
8-212

§-320

-55#4
-24#
-12#

4=73

6-248*

8-A61#
6-63
5=-31

-344

4-67

8-537

8-A46
3-16#
5-18

§5=22

4-60

2=7h

8-:04

CKERLT
CLNCOD
CNT
CNTMSG
CoMP
CONT
CONTIN
CRDY

5-137

6-15

4=41

SEQ 0152

-3

-2

g-<97
-38
6-89

8=477

-7
-A7S
g-93
-80*

8-60

8-266

8-346

8-387

8->69

8->71

8->81

8->83

8-62

8-64

8-100

8-102

87185

8-275
6-119

8-346
6-140

8-431

8-474

8-957

8-267

8-269

8-388

8-442

8-486

8-390

8-432

8-434

-f o

-136

-7
-74
-7#
-78

4=32

8-:30+

CZRLGCO RL11/RLVI1 CTLR TST 1

K 12

SEQ 0153

MACRO V04.00 30-NOV-81 13:58:41 PAGE S-4

CROSS REFERENCE TABLE (CRE F v04.00 )

DRTIM

-35#

DRVRDY
DSO
DS1
DS%
DS
DSPCOD

5-784
-374
-394
&4=142#

ESEND

-74

8-699
6-280
-

=124#

B=;77+

B8-<11*

%—970

4-78

6=193+

%-99#

4-79

&=-195+

EF.CON
EF .NEW
EF .PWR
EF.RES

2-26#
2-26#
2-264
2-26#

5-30

Eh{

2-694

8-A77

3-374
3-38¢
3-49%
3-504#
3=51#
3-52#
§-53l
=544
-394
-554

7=4
7-72
8-725
8-737

DWORD
E.BA

B8-782%

B8-317+

B-Alér

6-64

6-69

6-73

6=77

6-81

6-86

6-90

6-192+ 8-760

E.DA

6-60
53
6-45
")y 2-;30'
8-972
8-971*
8-800
8-795
%-765
6-194*
4-79
2-98%

8-917
8-226

8-976+

8-;44

8-;78

8-<12

8-<74

8-=20

8-=68

E.MP1
E.MP2

->51
2-100#
2=101#

8-88

8-a23

&-A19

E'%g

M3
EM30
EM30A
EM32
EM33
EM34
EM37
EM4
EM41
EM42
EM43
ENGé
EM4S
EM46
EM47
EM5

EM52

EM54

8-215
6-196+
6-197+

8-767

-614
=408

3-63#

8-:82

-62#

8-148
3-924
-930

8-283
8-977+«
8-978+«

8-A77

8-al
8-a32
8-a38

5-15
5-19

8-841
7=9
8-887
3-934
-:04
8-490
8-499
=507
-:91
-132

=564
-S7H
3-58¢
§-59l

8-870

8-:08

8-802

8-a42

8-<17

8-287

8-380

8-A15

8->16

& —OMON INTON o~ & T T M COT N =0 0 "

] 0 Lh 0 ] P0 0 b )

Me0~
£3
-—

QO L A A A A L L A A A L A A A A A W W A AW W W W WA W W W W W W W e e

AR AN SNy
R R AR RN B A AR WA R R AN

73 w

—_
S
oo

o Ay
(=)
> -—

Mm12

SEQ 0155

CZRLGCO RL11/RLV1I1 TTLR TST 1 msso)vo&.oo 30-NOV=-81 13:58:41 PAGE S-6
CROSS REFERENCE TABLE (CREF V 04

€z

)
T

«=

®*

N 12
CZRLGCO RL11/RLVIT1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE S~7
CROSS REFERENCE TABLE (CREF V04.00 )
FRMT2A

4-9%0

SEQ@ 0156

4=924

4-83
4=41
4=97%
4=98#
4=96#

4=94n
=954

5-81

6-276

6-290

8-A50
8-A50

8-:29

8-A54
8-A54

8-A75
8-A75

8-A77
8-A77

8-788

8-=61

8-A56

8-718
6-118

8-969

8->09

8-A34

€z
CR

MACRO ) V04.00 30-NOV-81 13:58:41 PAGE S-l

8-<08

8-825
8-<33#

8-<39

N”M—O 2S3,
—

8-84
8-207
8-545
8-877
8-=34

8-944
8-212#
8-599
8-880
8-=81

-w

[=]=]

C.
Cl

o PawSe

OAsallo%12345%738Ns—F

RGGR 4

8-7
8-; 34

8-:70

8-197#
8-516
8-872#
8-<87

SEQ 0157

P o P P s o o e o= o o e e B = D D OSSO BB I I I3 33

N Ne—v—v—

b
3

= M333EAD

CZRLGCO RL11/RLV1IT CTLR TST 1
CROSS REFERENCE TABLE (CR EF VO0&4.

=«&

*®

LSAPT
LSAU
LSAUT
LSAUTO
LSCCP

=174
- 17
174
=17
-174

L$CO
LSDEPO
LSDESC
LSDESP

174
=174
=17
=174

2=21#4

-17

4=144n

LSHIME
LSHPCP
LSHPTP
LSHW

2-17#
s-170
=174
2-17

8-A43

8-AL3H

4-118

4=118#

5=12#4

LSLAST

2-17

8-A94#

LSLUN
LSMREV
LSNAME
-SPRIO
LSPROT
LSPRT
LSREPP
LSREV

2=17#
=174
=174
=174
-17
=174
=174
=174

5=34

LSSTA

=174

LSSW
LSTEST
LSTIML
LSUNIT

=17
=174
=174
=174

8-:29

2=22#

2-17

-17

6-290

S5=172#

LSINIT

LSSOFT

6=276

~thomm

2-17

5-81

e Ve Yo Nl

LSHARD

5=145#

8-A74

8-A744

4-132

4=1324

5=17

5-36

=174
=174
2=17
2=17#
2-17
5-17#
=174
=174

5-108#

et et e Yool e N

LSDTP
LSDTYP
L$DU
LSDUT
LSOVTY
LSEF
LSENVI
LSETP

5-182#

b e

=174

SEQ 0158

LSDISP

LSDLY

=17

GE $<9S-

LSCLEA

¢ 13

(alal

CROSS REFERENCE TABLE (CREF V04.00 )

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE

MACRO ) V04.00 30-NOV-81 13:58:41 PAGE 5-15
1
TST
CTLR
RL11/RLVI1
CZRLGCO
V04.00
(CREF
TABLE
REFERENCE
CROSS
D1

L10010

4-118

4-1

L10014
L10015
L10016
L10017
L10050
110021
L1002§
L1002
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10035
L10034
L10035
L10036
L10037
L10040
L10041
L1004
L1004
L10044
L10045
L10046

=144
=1644
5-176#
5-186#
9-5690
=234
=454
=740
7~
7-141#
88-41#
88-115#
8-150#
8-182#
8-21
8-245#
8-281#
8-307#
8-330#
8-372#
8-4144
8-45
8-512#
8-54 on
8-566

8-594¥

L10050

8-659

8-662

8-683#

L10052
L10053
L10054
L10055
0056
L10057
(10060

8-7404
8-770#
8-805#

8-868
8-915

8-894H
8-9374

8-8,5
8-912

8-:35
8-:85¢
8-;114

L1006
L10065
L10066
(10067
L10070

B8-<34#
B8-<72
8-=1
8-=66

10075
(1007
(10075

B8-asas
B8-A39¥
8-A43

£10071
L0072

8->11
8213

fTIMTYMYITYIMTYMY

TEE g g gE g gm g, g gme g gte ses aee

L100623
11006

8-821#4
8-8/3

4-1;3:

TR A A A

4-13
L10011
5-10
L10013

8-<824
=208
8-=764
8->14
8-723#

8-ASS#

8->24#

ED ED TED S

&4=514

L10005

SEQ 0159

CZRLGCO RL11/R LVI1 CTLR R T TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE

CROSS REFERENCE TABLE

(CREF V0&. 80 )
(CRE

E 13

SEQ 0160

S~ n

-815

MDHEDR
MERLMT
h

MSCRLF

MXSEC1

2-1
4&~135#
2=514
=-=59
144
-1224

3-ior

6-12
8-699
8-=90
6-95
8-995
8-533

8-874
8-=45
8-A05

8-835

:8-a07

g-<98

-a72

4=30
4=57

4-39
4=764

4=48

4=55

4=-66

4=734

5-88

5-127

5-138

6-16

8-718
8->07

8-730
8->53

8-756
8->68

8-786
3->80

8-:24
8-257

8-:51
8-291

8-:84
8-a89

8-;53
8-A23

:86

8-<48

8-<96

8-561

8-620

8-656

2=-13#4

2=-134

2-134

2-17

8-729

8-784

8-833

8-:83

8-790

8-838

5-158

5=161+

8-717

8-;04

8-A32

8-=42

CZRLGCO RL11/RLVIT CTLR TST 1 MA
CROSS REFERENC E TABLE (CREF V04

4-114

S-186#
8-23
8-131#

SECMSK

4-184
6-269#
8-23
8-150#

3074
-7408

2-107#
8-A16

6-218#
3-700
=-2594
=244

8-:24
8-919

8-:84
8-925

-<27

8-a52
8-a49
8-237

3
3

RO ) V04.00 30-NOV-81 13:58:41 PAGE 5-13
F1

8-875
8-A06

8-910

8-957

8->58

8-755

8-a87

4=4i4N
7=740

4=514
7=-994

SEQ 0161

8-997

8=;45

8-:79

8-<13

8-:86

8-;55

8-:88

8-<53

8-<99

8-:86

8->63
8-a33

8=>75

8-7291

8-A23

8-827

8->44

8-208

8-964

8-965

8-650
8-:11#
8-238

:
8-? 384

8-8724
B->24N

8-2134
8-6314
8-894#
8-223#

8->52

8-216

8-249

8-784

8-a319

8-a81

B==46

8-=94

8->85

8-759

8-293

8-aNn

8-=294

8-=13

5-103#
7=157
8-944
8-228
8-650
8-937#
8-738

8-872
B8-=764

8-805#
8=-:34

8-182#
B-45%%
B8-8464
8-<B2#

8-<67

4-138#4

4=714
7-118

8-56

8-<02

4=126#4

4=624
7-118
8-564
8-197
8-512#
8-872

8-56 _
8-1654
8-4144
14
8=< 4

8-1 65
8-3304
8-7704

8-:69

8-;37

[VTNoQI)W oIy

7-118#
8-94
8-197#
8-5944

7=14614
8-94

N [QNVTo)VINf00F0

G1
5-13
PAGE
13:58:41
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/R%V11
CZRLGCO
)
VO‘.SO
CROSS REFERENCE TABLE (CREF

SEQ 0162

H13

SEQ 0163

CZRLGCO RL11/RLV] 1 CTLR TST 1 HACRO)VO‘.OO 30-NOV-81 13:58:41 PAGE S-14
CROSS REFERENCE T

E (CREF VO0&4.

C.
Cl

.
O 0NN O\ COM O O\N O U ON A M UM OUR A 1A 7OMA "GO~T O

b
]

TUN AN BRI EETTT T TV T T T VT TRT Y IST TV R e
R R R R R R R s R R DR A N AN eR S A S o e e o N
HH ARe B T T TTT TVTTT VR TYPTRR v i eT TV ey

R AR N A R e e e R SO S RN e RN

R SO R P AN e e e N
R R R R R N R R N A RO
R R R SR
A
A RRRRSS RR

LI LY P Te v
. 1IN ATTTTTITTTTTTTT T % v vy PO

]7Y] (7

—

vbS

o M

508

8-4
-6704

: 9;:

TSEXCP
TSFLAG

TSHILI

TSGMAN

B-Akg
7-13
8-1094
8-566#

8-144
3-5660

-9154

8-<08

8->11#
g->11l
-74
S-Abb 8-A46H¥

8-1444
8-659
8-868#
-<08#

B8-ALB

:7"

7
g'?
-o?;:

-=184

8-=1

-6

il ¢

-8804

->14

8-A48¥

B-AS0

8-A50#

8-A52

Ci
C

J 13

S >3 2

I3 o

o [ T OV MO O=M AMAINONGO MNOTWAN CO M

—

8-A52#

8-A56

=714

=499
-7

8-91

&
&7
-9 #

3-2390
-865
8-912#

8-ASGH

B8-A77

8=-A77#

-=66

8 109

8-109#

o b
3-9150

8-915
8-=664

=->11

30-NOV-81 13:58:41 PAGE 5-1;
.00
580)V04
E (CREF V04
K1

CZRLGCO RL11/RLVIT CTLR TST 1 MA
CROSS REFERENCE TABL

AGOH

8-740
8-=76

8-A48
-1

8->24

8-AL8¥

8805
8393

8- g0

7-§
07
8-891
8-a58

8-A50#
4-35
7=-49
8-330
-84
=A3

-19
g93

4~
&~

4=53
4=114
4=12

TSNSO

8-A52
b-u4
7=74
8-372

SEQ 0166

8-A564

8-A77
4-126
=41

=540
8-:65
24N

-14

L1
§ - 1%
PAGE
13:58:41
Ov-81

L CREF VO 00 )
CROSS REFERENCE TABL

SEQ 0167

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41

8-2184
8-4634
8-74 54

8-8
8-245
8-512
8-770

8->24

7-146"

TSPTNU

TS$SAVL
TSSEGL

8-78
8-893

8-=76

8-=81#

4=46N
S5=172#
8-944

4=-51
5=176
8-114
8-<33

4=-534
S=182#
8-131#
8-238¢

8-880
§=-<33#

8-238

8-78
8-239

8-94#
8-244

8-109
8-650#

8-155#
8-6874
8-<87#

8-187#
8-712#4
8-=34#

8-218#4
8-7454
8-=81#

34¢

TSTAGL
TSTAGN

TSTEMP

4-62
5-186
8-149
8-a57

2-7#4
=74
=74
8-7
8-56

8-71
8-228#

TSSUBN

8- :35

8-:11

8-=34#

8-564
8-8 72#

164

8-942¢

2-7#
8-250#
8=775#
8->294
=74
=74
4=37

8-312
8-516
8-687#
8-825
8-:40
8-<87#
8-a63
2-19
4-35
4-128
4=144
4=144
4=144
4=144
4-144
4=144
4=144N
L=1440

8-804
8-228#4

8-3124
8-8254
8-a63#

8-5994

8-335#
8-851#

4-53
5-12
5-182¢
8-46
8-218
8-3354

5-12
6-26 5
=794

8-<87

8-<39

8-228#
4-18#
4-1144

4=-144n

4=26
4-126

8-a63

SEQ 0168

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE $-19
CROSS REFERENCE TABL F (CREF V04

4=144k
5=1414
2694

8-912#
8=-:214

8-915
:35
8~: 21
< o8
8-=364

8-8804
89374
8-:434
: S04

8-<82

B-<

8-=40

4=144N
5164

6-304
7=55
7-113

8-75
8-821#
8-8684
8-905#
8=:17#
8=:778#

8-945
8-:47
8-<08
8-<82#4
8-=664

7-3

TSTSTM

8-942
8-<39
8=->29%
=74
4=73
5-89

8-463
8-687
8-8094
8-? 28

8-82 5

164

7
3

8-=344¢

8-8514
8-:70
8-=81

8-899
704

Xebcbcbcbchebid

8-827
8-877
8-912
8-: 21
8-; n
8-<43#4
8-=29#

238230y3e

(2
CR

10N%N(—90ABZ.%4”O‘6h%I[a1]%:sJ4\ao1nV1eo-—
VO%[.ce}]B.C“«1C}D0O.—GsWG1«OODooW1CNV\OQCBNOo3MDAC.-lO-Co0oA1]COo.81CoA.(MOo116.C@.oO1.4Co.IVl1O0.2]osNF.1I.OoeV3C1~l.0oe“olCl0L(0NO)GoeN[l0l+om”
O«~M—O©U4@OONBOrPbbbLAoArTa0~=OM~CTAnWOWBNNNOIAOONNNVOOBNNMMW—ONNO—NTM0OOMDONINCNWr0OOVaOeOM0NVN—MHTVR00NOIQM0VNNNQeNs—Oe [oOoSw.]=o[]+
|G~NgON eGN0DWOGOCOOV§WOD —NASGe0OFCC-OOM=CGMMDN—ECOMOO=CN~IOO—NCo0OOWNOEV0WDI\Ce[OOOYPCONNwDN
O GCOO—ODG0O GG00CCOOOCGDDCCIOOCCOOCSCOOGODUEDDEEDD
U | 100 P0 o
eO) GMeUDv=OiTCLgNOF°C°*O Q@ANO0MC0O—CD@CO~DCII—OCse0aOaWENVV0O*eDO0Q§eD Lwal=]

WOA[[0«— GWO0x¥RN
0RNy
DwWm0wC¥i0NMOeTCDODGDCOOACWOSNCOMCsOOCNVOCDOQONO ooo=>~

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V
CROSS REFERENCE TABLE (CREF v04.00 )

00N GPDO0DGD a—00OeNoWaON0oO—MNE0OoNGaTd
O GPO000§i C((DCOGDCLRLROCOCOCOEDED
& WLNW]NN N)ONN=OO=0OUWNN

ON3BMRNOT LCN0CDCOCaDCOGDEOCOCO]GO.C0C0

w[V

-3

A
=
I
s
C
V
N
B
“
O
A
o
w
T
5
~
1
9752N-12V”

’.

¥R

SEQ 0170

RL11/RLV1IT1 CTLR TST 1 MAC 0) v04.00 30-NOV-81 13:58:41 PAGE S°}1
CZRLGCO
CROSS REFERENCE TABLE (CREF V04.00
15
T
T
18
19

4=144
4=144
4=144
4=144
=144

2-1
7=1464
3-1
-46N
8-84#

TEMP

-11

6-223*

TEMP

-112¢#

TEMPS
TMPO

=1144
-1154

TMP2

=117#

TMP1

TMPFNC

TRPFLG

-11

-1314

6= 48*

8-993+

8-99%4+

8-995

6-224+
&4~

3-2 [4
->57%

6=237*
8->58+

6239
8->61

6-244*
8->73

6-245+

6-248

g-k

2-51

7-17

7-38+

7=43

8->68+

8->93

763

7-68

7-88+

7-93

8-733
8-;89

8-759
8-<04

8-789
B8-<54

8-?75

8-817
B8-<68
8-794

8-837
8-=00

8-864
8-=14

8-=53

8->01

8-200

8-266

8-a00

8-a98

7-584

5-35

5=39+

5-42

5-89

5-128

5-139

6-17

8-A50

3-21#
3-20#

6-153
6-152

8-621
8-:87
8->45

8-658
8-;38
8-386

8-702
8-;56

8->%

8-721
8-;70
8-209

8-;62

8-:95

8-<60

8-=06

-804

=231
8-:3

g
oo
6-286# 8-534
8-911

8-:27

8-=95

8-562
8-:54
8->10

6-c72#

8-:60

8-:01

8-=62

XSALWA
XSFALS
XSOFFS
XSTRUE
XPOLY
XA

6-128+

8->83+
7-39

=814
8-:29

WIDRDY

8->80*

7=12%

=109+

WAITO
WAIT1

WTCRDY

8->71*

9-262*

UAM

WCKINT
UCKHES

6-228*

=124

=104#

85%757
VECT

6~ Zgi

2-7#
2-7#4
2=7#
2-7#4
2-108¢
5-34

8-A76
8-A76

6-233
5=3#

6-244

=13

7-89

8-242

8-760

8-a09

8-a76

8-876
8-=47

8-a%2

C 14

SEQ 0171

CZRLGCO RL11/RLVIT CTLR TST 1 MA RO V04.00 30-NOV-81 13:58:41 PAGE M-1
CROSS REFERENCE TABL E (CREF V04

7-16

7-42

6-290

8-:29

5-139

6-17

-0V

5-15¢4

nOe

NON

- 0

-"01V7 L]Y —[ e

—

7-67

7-92

MACRO ) V04.00 30-NOV-81 13:58:41 PAGE n-5
D

CZRLGCO RL11/RLV1IT1 CTLR 1ST ST 1
CROSS REFERENCE TABLE (CREF EF VO04.

SEQ 0172

1
]
0 & ) [
UL

3 100

E
H-}
PAGE
13:58:41
30-NOV-81
V04.00
MACRO
1
TST
CTLR
RL11/RLVI1
CZRLGCO
CROSS & ERENCE TABLE (CREF v04.00 )

N NN
—OONMMNEN RNO——O

8-78
8-14%9%

SEQ 0173

-181#

8-150

®»

8-865#

8ASr BAPY

4-18#
4=1144
5=103#
5-186#
7=994
8-40
8-114#4
8-182#4
8-281#4

8-307#
8-805¢

8-330#
8-821#
8->244

768

8-4904
8-6704

8-714

4-18
4-114
5-103
9-186
7-99
8-40
8=114#
8-182

8-109#
8-868

8-71
8-6624
8-=18#
8-A50

8-=66#
8-A50

8=->114
8-A50#

8->14#
8-A52

8-499
8-725

SEQ 0174

CZRLGCO RL11/RLVIT CTLR TST 1 MA880)V04.00 30-NOV-81 13:58:41 PAGE M-4
CROSS REFERENCE TABLE (CREF V04

204
720
5164

8=7704
8-8?1#

8-as7a
8=A724

8-a58
8-A74

<3
8=-=764
8-as8s
8-A748

2=17

e N =eOT=NOAUMMINNON- NNANNANeEeMe NN S

ON GO *o ) &
=M=
=
=FNANN

MSGENB
MSGETS

MSGETT

MSGNGB

MSGNIN

8-A78

8-a6
8-A78#

fad

8-A9%

-—w

CZRLGCO RL11/RLVIT C

CROSS REFERENCE TABL

TTN PP R e N R O T T T T T T T L TV R T I T o

hore = b
i
T
LT
D e L LRURUS
O e e e e R BUSIRU
TNSRSe SURCR
P Y-IP)
LRURU
P P PRe PP
PPT
SRS SLRUR
WSS
A eW RBLW WLURURU
BT
e
i
e e e I U D e P e P e B D e e L L 1 R I T TR
e e I o o O e e e e e T T T 1 3L I ~ TS T T NSTOep-. 0
wwwnwmass«ernrrm«wa««m«mm««mmawmqqqmqqqqqqq+ N R S
N 333

L - 9%

SwwwwwmassnunSmrrNnRmmfi«m«meSem-«wme¢meqSned4 4 4& 4 4e4. 4i4"o4 4s4-8
R R e e I
4
3

e e e e N DD P e e e e D e e T L T R I T LI T TP T

e R P e T T T r r R T T T T T T T PR T T e

1111111234%%7744444444444 4 4.flflfld d fl. S I IS T

o e TP TT T eNeT
1111112484% NN AR A A RN
B B B R e e ey T P T PR T T T PP T P PR T TLT

3 &

SEQ 0175

v04.00 30-NOV-81 13:58:41 PAGE H-;

SEQ 0176

CZRLGCO RL11/RLVIT CTLR TST 1 MA RO V04.00 30-NOV-81 13:58:41 PAGE M-6
)
CROSS REFERENC E TABLE (CREF V04

H 16

33 nedRaetcRnB g e3aTnESy
Ss3nnellneRana B Ann e oB3y
o33=2R 3 on I o S s AN I A= A3 N I I BN R 32 g3 03T

sgaaabasas88‘88’88888888‘8’8888338‘83"8‘"

CZRLGCO RL11/RLVIT CTLR TST 1 MA RO V04.00 30-NOV-81 13:58:41 PAGE ‘-;
)

SEQ 0177

CROSS REFERENCE TABLE (CREF V04

~943
-399
~A194
~A4 38

8-a43#

-39

8-2454
8=512#
8=7704
8-:35#
8=>244
8-46

=34
8-464

8=:70#4
8-228#
I
MSINCR

1-D24#
4=54
4-28
4=46H
4=714
4-130
5-12
5-994

5=1434

8-678

8-404
8-6784

8-78
8- 893

-358
~A08
=A20#
=A4

3
5

-3584
=AQ
=-A2
g-Ak
=AS
8-A5
8-A77

8
8-A778

8-A78

8-78#
8-893#

8-114
8-<33.

8-1144
8-<33#

8-149
8-a57

8-1494
8-as57#

4=4in

8-150#
8-372#¢
8-6834
8-894#
8-<82#

4-51
5-164
7=-99
8-182
8-414
8-707
8-937
8-=29

8-942#
8-=34#

8-:16
8-=81

4-34
4&=204
4=4in

4=5
=234
4=46
4=648
4-118¢

8-28
8-540
8-805
8-:
8-223
7-28
8-84
8-312
:16
3

8-82 S#
8-;164
8-ab63#

8-851
8-<39

8-851#
8-<394

=375
i
-A11
:
H
1
A27
=A4
il
:=A5

8-as7#
-AOSI
=A2
O-Abg
8-A5
8-A59
8-A7

S 8

-AQ
=A1

=AS0#

=A50

8=244H

8-a57

8-<87

3-14
0

4370

4=64
4-1164

4=3
4=204
4=414
4~64
4-118
53¢

4=5
4=264
4=46
4674
4-118#

MACRO V04.00 30-NOV-81 13:58:41 PAGE ‘-

CZRLGCO RL11/RLVIT CTLR T ST 1
CROSS REFERENCE TABLE (CR EF v 04.0

14
8

SEQ 0178
8=3774
4478
-5124
5454
-5994
-65C4
68/

8-7/08
8-£09
8-334
72

8=3774
=4554

8-6504
g~687l

-7

8-7
8-809
8-838#

3-3773

=4024

=454 3-663

8-403#
8-463

" 8 %03 87
P5ir §-7374 8-7 8#

a-ugo

-46
164

8-775
8-809#
8-842#
8-8724
8-899#

8=7754
8-809#
8-8464
8-872#
8-912#

8=7754
8-809#
8-851
8-872#
8-91

8-<87#

8-«874

B8-<87#
344

8- =014
8-=4 84

5=-1544
8-6184#
8-790#

6-17
8-65
8-833

6-174
8-6534
8-833#

7-16

8=775
8-809
8-8414
S-5ich

138y

8-4144
~4634
=-516#

8-.

8->02#
8->874

8-=734
8->214
8-2014
8-238
8-288#
8-a63
8-A20#
8-A74

8->05#
8->91#

8-7224
8-:834

5-15
5-128
7=-67
8-729
8- H

2=74
=74

=245
=512
-707#

764
8=>244
8-? 054
8-238#4
8-295#
8-263
8-A27#4
8-A748

8-=81
8->29
8-2104
8-238#
8-298#
8-ab3#
8-A31¥
B-A74H

S=194
5=139#
7=-924
8-7344

5-21
5-147
8-264
8-784

8-21

8-2384

8-a0ix#
8-a634
8-A364

8-784#

8-=04#
8-=514

8-238#

8-a05#
8-abés
8-A3%

8-790

5-89

8-717
8-838

2-7#
2=74

8-740

4=324
4-784

4=41
4=79

4=41
4794

<8
4=6

4-604
4-82#

4=67
4-83

4-674
4-83#

a-A;8¢

?
8-A93

4-73
5-86

4&=734
5-86#

K 14

CZRLGCO RL11/RLVIT1 CTLR Tg; 1 °2A880)V04.00 30-NOV=-81 13:58:41 PAGE M-9
CROSS REFERENCE TABLE (CR

SEQ 0179

< I l ** =MO00 = M

MO =r=N =MD**AT

3SERLTRTNE

5483‘61651‘963

8-A758
MSRNRO
MSSETS

1-C604
1-D30#
4-13
4-116

8-A46
8-A77

7-894
g-A46l
=A77#

8-A48

M~0GDN3OF\ “2N0WN”OO7TM

8-A48#

8-AS0

8-A50#

8-A52

8-A52#

8-A54

)
NOOWO— w8701“92

8-A54#

8-A56

2-7#
2=74
&-134

8-2384

-<394

8-238#

-<87

8-363

3
2

8->294

8-A72¢

8-A74

®»

8-A56#

L1 4

CZRLGCO RL11/RLVIT CTLR TST 1 HAS%O)VO‘.OO 30-NOV-81 13:58:41 PAGE M-10
CROSS REFERENCE TABLE (C REF V04

MSSTAR
MSSVC

1=-A314

2-7#

SEQ 0180

M 14

SEQ 0181

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-31 13:58:41 PAGE M- n
CROSS REFERENCE TABLE (CREF V04 .00 )

00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00 00N LAY ONOLOLENOLOEOLYE DAL LOLOLOELOLOLOLLY

«u

~vVN[vV—M10OD-[ON=(aMl*NoOUm07aG®l%OMMN4P~=g~L-2l~M00-il0VSL0.V‘NL38C87e.Ai15]|“L57‘e.0*M¢9=1757O2-.141U“.9M‘‘1F.7“T9.931W‘.N771&I.280.N177“2C‘.0D3166O“5.41030%.T29719.3~837-B014A.N03o0AI8CL1W-‘7rM75&O8D2%geC‘S‘7O.t778N
W[ 0P0s 5&w 5§] )2 GONWGN00DSGOG0OGO0GNOGO0GO=GsOG0BDG06S0O0GOFMNO~bF00~F000OC0®D0C¥0BD0-0C30OY

32.N-<GO4NA4Vv‘)'TP10[iv.A-]U-O50.o0oN]1Cl1CTGD.01RDs3DPO.C1«.CDVoO%U)1GDDLnOI.9“ND.0GMiGY]oC[L38-EwT0-NDYONAyMSNN--I0i~l-<]aQ~~@[.a@-NN]n)[9l0vW[0[oW"W-8T§8MNAS<~~04~4~PL5~~I§]§lLN4LO*GIsNO-GNL0V=BGOo]GOO[GYGwT1L*0GG80»OOONAG3GGGO0N0BOOOOI|GiG1G.TsMeGOlOOMNCORalGNGCGG5GO0VOOOOLNsGGB¢G0GOOIOOL1~N%AGSGNGVRG“OOOrO0OMTGNM0GRGPWGONAOMOOF1—OM®GGAN3U¢1PGFTOO0D‘OVOOrMWGGITeNGGNtdIOO0ONM‘NGOG=3GPGGIdTODOOO1'F=NGGGG6OdTOONRODOM31N0aeNGGGCN~0OdOOO02MO6GR0LGNGN0D0O0O—30D0GOGOGI2=D00‘N0\BOBIIOO.0\T\I4T\M\O0IONO0BMN\~NN.O5~~I00FF¥3N%3—IA~~~7(003F3F¥T~~TVA~R~~2N0I0FFF8I(~N~~¥~0F60IFFF"NSGC0GWLP004OOOGTBMGCGNOG0DODO90NOOC—MBGGCGM0DO0iNO1~RTCABCBnGGDGI0ODOR02TCACeG<GCG00ODIOCO2SeEE3GGG0Ooe0D0T.5TGAb—CG000GA3DD0D0
S S

][T

[P0 0 81 8[U LB)'Ie US.BN.L DN0w0RI000U0L0

<2])[ 0TyAO0TG000 \N 1 14
CZRLGCO RL11/RLVIT CTLR TST 1 MA880)V04.00 30-NOV-81 13:58:41 PAGE M-12
CROSS REFERENCE TABLE (CREF V04.

SEQ 0182

=267

8-295#
8-a24
8-a78#
8-A19#

4=-144
4=144
4=144
6-280
7=47h
7-168

8-108#
8-238
8-327#
8-412
8-4704
8-581
8-670#
8-793
8-887#

8-220
8-a42#
8=-AS54#

-<794

4-83

8-838

)