Digital PDFs

AH-F110C-MC

July 1982

183 pages

Original

9.2MB

view download

OCR Version

7.9MB

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_bw.pdf

OCR Text

SEQ 0001

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC-F111(-MC

PRODUCT NAME:

CZRLGCO RL11/RLV11 CONTROLLER TEST 1

CATE 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 CORPORATICN ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMFNT 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
ggfolé?IiECH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING

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

1
FAGE 2

TABLE OF CONTENTS

1.0
1.1
1.1.1
1.1.2
1.2
1.2.1

1.2.2

1.3
1.‘
1.5

CIAGNOSTIC HIERARCHY PREREQUISITES

[a%]

.
D)

[a%] p—y

)

o O O v:»uo RN
NN
NN WA
=
Nd
N)L)—

e
Y

ASSUMPTIONS

2.0
2.

[« SRV]
L]

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

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 COMMAND VALIDITY
CGMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMEIERS
SOF TWARE PARAMETERS
ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

SEQ 0002

—

1.0

GENERAL lyigRHATION

1.1

PROGRAM ABSTRéEI

1.1

STRUCTURE OF PROGRAM

PAGE 3

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT. Ii CAN BE
RUN STANDALONE UNDER XXDP+, AND C/M BE CHAINED UNDER XXDP+, ACT AND
APT IN ACT MODE (SEE 2.2 ‘‘CHAIN MODE OPERATION'' FOR DETAILS OF CHAIT 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 THROUuH 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 TH1S DIAGNOSTIC IS STARTED, CONTROL 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
OF SEVERAL COMMANDS AS DESCRIBED IN 2.0 "OPERATING INSTRUCTIONS''.

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 _INCLUDES NOOP, GET STATUS, READ HEADERS AND SEEK OPERATIONS. IT IS
AIMED AT FULLY TESTING THE CONTROLLER IN THESE AREAS, BUT BY DEFAULT ALSO EXERCISES THE DRIVE.

1.2

SYSTEM REQUIREMENTS

SEQ 0003

PAGE 4

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 RLOT DRIVES WITH RLOTK CARTRIDGES CONTAINING

°'BAD

1 - 8 RLOZ DRIVES WITH RLO2K CARTRIDGES CONTAINING

‘BAD

SECTOR FILE'®

SECTOR FILE'

+ LINE PRINTER (OPTIONAL)
1.2.2

SOFTUARE REQUIREMENTS

CZRLGBO RL11/RLV1I1 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 RLOT DISKLESS TEST (RLV11 ONLY)

ASSUMPTIONS

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

NOT FUNCTION PROPERLY.

2.0

OPEATING INSTRU’!IONS

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 ADRgESiSKgs 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 THJS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR:
AR

ARAEN

* STEP 1 »

1222224444

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''. FROM THIS POINT UNTIL
THE __TIME WHEN YOU RESTART XXDP+, YOU WILL BE TALKING TO THE DIAG=
NOSTIC, 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 RESPONSE TO THE XXDP+ DOT PROMPT. THIS ‘‘START'' COMMAND CAN TAKE A
NUMBER OF SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH IN 2.3 °‘DETAILS OF COMMANDS ANL SYNTAX''
?B?SgEEiKEI¥H?§DER TO USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMESTA/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.
AGAINST ALL UNITS BEING TESTED (THIS WILL BE EXPLAINED
SHORTLY). ONE PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE "FLAGS'' SWITCH MAY SPECIFY

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

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

13322824448

* STEP 2 *
RANRARAREY

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.
1233284442

* STEP 3 «

ARRRARNAREN

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

ggg?gkfs .

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
S
DIAGNOSTIC
STANDARD ADDRESSES: INSTEAD, THEY WILL ASK THE OPERATOR FOR ALL
THE INFORMATION THEY NEED TO TEST THE DEVICE.
AARRAARAEY

* STEP 4 *

1242228848/

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 BEHAVIOR OF THIS
PROGRAM, TYPE 'Y''. IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
YOU WILL BE ASKED THE
QUESTIONS, TYPE 'N''. IF _YOU TYPE_ °Y'"
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. REGARDLES3 OF THE NUMBER OF UNITS TO BE TESTED.
12223282244

v STEP 5 »

ARARTRANRY

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 1S ENCOUNTERED, THEN THE DIAGNOSTIC WILL
SIMPLY EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN
TO COMMAND MODE (PROMPT DR>).

IF AN ERKOR IS ENCOUNTERED, THEN ONE OF

?C:ZENS.

THREE

THINGS

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 DJAGNOSTIC 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,
;gfilsgbggLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

IF AN ERROR IS ENCOUNTERED, THE ERROR_ WILL BE REPORTED AND THE
PROMPT WILL BE REICSUED (BECAUSE THE HOE FLAG IS SET). AT THIS
:8£?£ THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING
1.

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

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: 1ER: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:
1.

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
QUNNING 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:

START

RESTART

AGAIN,

YOU

HAVE

“UU Wu'.D CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE

HARDWARE QUESTIONS AGAIN.

SEQ 0009

PAGE 10

MIGHT

THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE

RL1T

(L) Y ?

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?
DRIVE TYPE = RLOT (L) Y 2
DRIVE (0) 0 ?
UNIT 1
RL1T (L) YV ?

BUS ADDRESS (0> 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 2
= R 01 (L) 2 v
DRIVE TYPE

CHANGE SW (L) ? Y

DROP ON ERKJR LIMIT (L) N ?

DRIVE (0) 0 ?

UNIT 0

000000

# UNITS (D) 2 2

0O00000O

RLO2

DR>STA/PASS: 1 /F LAGS:HOE

UNIT IS RLOT,

COOCv

CZRLG TESTS CONTROLLER FUNCTIONS,
INTERFACE LOGIC, REGISTER OPERATION

CZRLG-B-0

OVDUOODUVOU

DIAG. RUN-TIME SERVICES REV D APR-79

ODODOUVDUDUD

R C2NLGB

DRS LOADED

U000

(O=OPERATOR, D=DIAGNOSTIC):

(N=RL02)

(N=RLO2)

CZRLG HRD ERR 00004 TST 003 suB 002 PC:004130

ERR HLT

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

LOOK

0.0

222222322232 232 423212132332 22 3223434232 3d828822322¢%3;

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.

3
238200R 24242}
3233
2232 0222202232328
2823
383332232220
2322

THIS

SEQ@ 0010

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

D.O

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.
ARE IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.

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 THTM 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 FROGRAMS 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 EXtECUTES 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 (OMMAND IS ANOTHER C COMMAND. THE C'!AIN 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 CONTRLL 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 DJAGNOSTIC COMM’ND MODE, AND DIFFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED
1.

OPERATOR ENTERED 'KUN DIAG'

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

LEGAL COMMANDS

START

PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

START

RESTART

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

OPERATOR INTERRUFTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART

CONT INUE
PRINT

SEQ 0012

PAGE 13

AN _ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET

START
RESTART

CONTINUE

PROCEED
PRINT

2.3.2

COMMAND SYNTAX

)
2
adiaddiiiitdidds
dd Rt223
222
2 3222222222
' 222222

ASS
OP:EOP-INCR
IST/P
GS :FLAG=LIST/E
EST-L
:PASS~CNT/FLA
STACRT)/TESTS:T

1322232282220 28233 3223222332283 2332333328343 0233 3¢t daddiidiiddtldlsd)

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
THE MESSAGE '# UNITS?* IS PRINTED. THE START COMMAND
SPECIFIED.
MAY BE ISSUED WHEN DJAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE
OF THE FOLLOWING: A) OPERATOR TYPED ‘RUN DIAGNOSTIC'* 3) DIAGNOSTIC
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D)
AFTER THE OPERATOR RESPONDS TO ‘¥
OPERATOR ENTERED CONTROL/C.
UNITS?'’, THE HARDWARE DIALOGUE IS INITIATED. WHEN IT 1S COMPLETED,
THE QUESTIONS ‘'‘CHANGE SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
BECOME THE NEW DEFAULTS. THEREFORE IT IS NECESSARY TO RELOAD THE
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.
THE SWITCH ARGUMENTS ARE AS FOLLOWS:

“TEST=LIST'* IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES
OF DECIMAL NUMBERS (1-5:5=-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 DIACNCSTIC. THEY MAY BE
SPECIFIED IN ANY ORDER. TESTS WILL BE EXECUTED iN NUMERICAL ORDER
55?2R2t55§es?§ THE ORDER OF SPECIFICATION. THE DEFAULT IS TO EXE-

*PASS=CNT** IS A DECIMAL NUMBER INDICATING THE DcSIRED NUMBER OF
PAS.ES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(AL. SELECTED TESTS) AGAINST ALL UNITS SUBMITTED. THE DEFAULT 1S
‘FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
NON -UNDING TEST EXECUTION.
OF THE FORM <FLAG>, <FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS,
WHEF <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERFD
ERROR IS ENCOUNTERED

-OE LOOP ON ERROR, CAUSING THME DIAGNOSTIC TO LOOP
WITHIN

WHEN

CONTiNUOUSLY

THE SMALLEST DEFINED BLOCK OF CODING (SEGMEN), SUB-

TEST, OR TEST) CONTAINING THE ERROR

SEQ 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

B0E BELL ON ERROR
UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL

INTERVENTION TESTS

ISR INHIBIT STATISTICAL REPORTS

IDJU 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 VHERL IS NO ACCESS TO THE HARDWARE SWITCH REGISTER.

THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATED
TO O 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 4OW OFTEN

(IN

TERMS

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

bbbt

THE

55?;gAfiLi4TE?;;TEST~LIST/PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR/
LAAS A2 A2 2R dddddddadai

it iials

il ddadidsadsititstsliiisatiitizeseyasyy

THE DIAGNOSTIC IN CORE IS EXECUTeD IN ACCORDANCE WITH THE

SPECIFIED.
HOWEVER,
NEW
ONES IN CORE ARE USED.

‘P-TABLES'®' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

THE QUESTION °'‘CHANGE SW?'' IS ASKED AND THE ANSWERS GIVEN BECOME THE

NEW DFFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
Eg£$ESE/CVIA 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
RANGING FROM 1

SEQUENCE

LOGICAL

UNIT

NUMBERS

THRU N (N _= NUMBER OF UNITS BEING TEST-

ED) SPECIFYING WHICH UNITS ARE TO BE TESTED.
THE LOGJCAL UNIT NUMBER DESIGNATES
THE POSITION OF
THE

P-TABLE IN CORE, ACCORDING TO THE ORDER IN WHICH
THEY
WERE
BUILT.
THE
UNITS SPECIFIED MUST NOT HAVE BEEN
DROPPED BY THE OPERATOR DROP 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 TO

“ALL'") OR THE NEXT RESTART,

LA 222

RSRR

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

0d0R R

ds0222

222

dddd ]

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

L a8 SRRRdR

2000322222222

4202223222323333233321]]

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:

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

UNSPFCIFIED FLAG SETTINGS ARE UNCHANGED

FROM

AERAARARRRR
AN RN
ANRANANY

PRO(CEED)
/FLAGS :<FLAG-LIST>
ARRARANR
AN AR ANANNOANES

COMMAND MODE MUSY HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE
EFFECT OF THE COMMMND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING
;E;ESESOR CALL.
NEITHER HARDWARE NOR SOF TWARE
PARAMETERS MAY
BE
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

1 2 43

EXIT

1 2 2 4 ]

RETURN TO XXDP+ PROMPT MODE.

SEQ 0015_l

2
PAGE 16

1 3121431231812 323128]7]

DRO(P) /UNITS:UNIT=LIST
1223211332232
233 441713

THE UNITS SPEC]FIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED
g¢C§ PROCEEDxL START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED
THERE IS ALSO A 'DROP'* MACRO INTERNAL TO_THE DIAGNOSTIC, WHICH
GIVES THE FACTLITY OF _AUTO-DROPPING. THE DURATION OF A PROGRAM
DROP, HOWCVER, IS ONLY UNTIL THE NEXT START OR RESTART.
1 333322322222 22040224

ADD/UNITS:UNIT=LIST
1234822223222

042224024/

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY
DROPPED 8Y THE DROP COMMANN) TO THE TEST SEQUENCE. AN ADD CANNOT

BE FOLLOWED BY
A PROCEED.
AARANNR

PRI(NT)

AERARRE

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE
THE ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

4442 2232820203242
A283330322222

DIS(PLAY)/UNITS :<UNIT-LIST>
1323223222328 2822220228

2¢t2ddddq

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.
123248224

FLA(GS)

1444 2444

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
12248282

ZFL (AGS)

TRARRARY

ALL FLAGS ARE CLEARED.

SF@ 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}ngz FBSEATHARDUARE PARAMETER QUESTIONS AND THE SLOTS IN THE
~TABL

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 EXAMPLE).
TRANRANGE
THE VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE
SLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF 1). IF THE VALUES
?fi%neggzgsggsé)THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 (AN
NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO

CONSTRUCT

ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
SET OF P-TABLES.
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE P-TABLE,
S HARDWARE QUESTIONS IN THE DJALOGUE).

FOLLOWING IS THE DIALOGUE FOR [HIS 8 RLOX DRIVE SYSTEM. THIS SYSTEM 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

UNIT 0
RL1T

(L) Y ?

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
B8R LEVEL (0) 5 ?
DRIVE TYPE = RLO1 (L) Y ?
DRIVE (0) ? 0-3
UNIT 4
RL11

(L) vV ?

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
BR LEVEL (0) 5 ?
DRIVE TYPE = RLO1 (L) Y 2 N
DRIVE (0) ? 0-3

RL02'S

SEQ 0017

2
PAGE 18

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE DEFAULT VALUES ARE
USED FOR THE CONTROLLE. TYPE (QUESTION #1), CSR ADDRESS OF THE CONTROLLER (QUESTION #2), THE CONTROLLER VECTOR ASSIGNMENT ~(QUESTION
#3), THE DRIVE TYPE (QUESTION #5), AND THE 'BR LEVEL'' (QUESTION
#4). THE ACTUAL UNIT NUMBERS OF THE RLO1°S FOR QUESTION #6 WAS ASSIGNED O THRU 3 FOR THE FIRST & P-TABLE SLOTS.

THE SECOND 1IME THRU THE P~TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT
ON THE SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO 'RL11'’
TYPE CONTROLLER. THE SECOND QUESTION WAS ANSWERED TO REFLECT THE
CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400). THE SECOND

THE
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
RLO2 TEST UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #6
AND THE DRIVE TYPE WAS SET FOR RL0O2'S FOR THE REMAINING & UNITS IN
QUESTION #4 WAS DEFAULTED USING THE ‘BR LEVEL'' FROM
QUESTION #5.
THE FIRST PASS.

HARDWARE PARAMETERS

2.5

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

RL1T

(L) ¥?

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

BUS ADDRESS (0) 1744007

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 CCNTROLLER.
CRIVE TYPE = RLOT

(L) ?

ANSWER NO (N) IF DLRIVE IS AN RLOZ2
DRIVE (0) 0?

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

SEQ 0018

2
PAGE 19

SOF TWARE PARAMETERS

2.6

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,
THEY ALLOW FLEXIBILITY IN THF WAY THE PROGRAM BEOR CONTINUE.
PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
SOFTWARE
THE
HAVES.
WAY IT RUNS. THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,
OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:
"'CHANGE Sw ?*’

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTION,
WITH THE PRESENT 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) Y?*

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 (ONSOLE DEVICE.
ERROR NUMBER, TYPE AND PROGRAM LOCATION. ERRORS INCLUDE REGISTERS
BEFORE AND AT ERROR WITH RELEVENT DATA.
ERROR REPORTING

3.1

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

DZRL?

YYYYY

TST

227

XXX

ERR

?
XXX

IS PROGRAM LETTER
IS SFT = SOFT ERROR

PPP

PC:

RRRRRR

WHERE:

HRD = HARD ERROR
DV FAT - DEVICE FATAL ERROR

SYS
IS
1S
212
PPP
IS
RRRRRR IS
YYYYY

FAT
THE
THE
THE
THE

- SYSTEM FATAL ERROR
ERROR NUMBER
TEST NUMBER
SUBTEST NUMBEK
PROGRAM LISTING LOCATION

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

SEQ 0019

PAGE 20

:
EXAMPLE

ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)

BEFORE COMMAND: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
Tigixgi ERROR: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX XXXXXX

3.2

ERROR HALTS

ERROR HALTS ARE SUPPORTED PER DESCRIBED

THERE ARE NO OTHER HALTS.

WITH /FLAG:HOE.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

SECTION

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.
4.2

PROGRESS REPORTS
TOGEeGaaa

Wmoe -

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

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

000D
0008
¢
10

Gmug Bug iy
S

ODOODDD

e
et e g =

-l

b e amd b

J\MON\QO - NN

RLCS = CONTROL AND STATUS REGISTER (XXXXX0)

Somg G

5.0

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERRCR

HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
- DRIVE SELECT (0-3)
CONTROLLER READY
INTERRUPT ENABLE

EXTENDED BUS ADDRESS (BIT 17)
EXTENDED BUS ADDRESS (BIT 16)

REGISTERS

FOR

SEQ 0020

2
PAGE 21

BIT 3-1 - FUNCTION CODE

SEQ 0021

NOWVIS W= O

PAGE 22

BIT

NOP (PDP=11) MAINT (LSI-11)

WRITE CHECK

GET DRIVE STATUS
SEEK
READ HEADER

WRITE DATA
READ DATA

READ WITHOUT HEADER COMPARE

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 (XXXXYQ)
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
BIT 6-5 -~ MUST BE ZERO (0)
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
BIT 2 - MUST BE ZERO (0)
BIT 1 - MUST BE ONE (1)
BIT 0 - MUST BE ONE (1)
RLMP - HULTIPURPOSE REGISTER
FOR READ/URITE FUNCTION

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

SEQ 0022

PAGE 23

FOR READ HEADER FUNCTION

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ)
- ZERO WORD (SECOND READ)
~ HEADER CRC (THIRD READ)

FOR GET STATUS FUNCTION
HAS DRIVE STATUS

BIT 15 - WRITE DATA ERROR

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

2 = BRUSH CYCLE
3 - LOAD HEADS
4 - SEEK - TRACK COUNTING
5 = SEEK = LINEAR MODE
6 = UNLOAD HEADS
7 = SPIN DOWN

TEST SUMMARIES

6.0

TEST 1 - RLCS ADDRESSABILITY
REARER

THIS TEST WILL CHECK THAT THE CONTRCL AND STATUS 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 2 - RLBA ADDRESSABILITY

123244

THIS TEST WILL CHECK THAT THE BUS 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.

SEQ@ 002

2
PAGE 24

TEST 3 - RLDA ADDRESSABILITY
1242224

THIS TEST WILL CHECK THAT THE DISK ADDRESS REGISTER (AN 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

122283

THIS TEST WILL CHECK THAT THE MULTIPURPOSE REGISTER CAN BE
ACCESSED. IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION 4, WHICH 1S SET UP TG HANDLE THE TRAP.
TEST 5 -~ PEAD WRITE OF RLCS
L2 8

2 2 2]

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 (CONTROLLER READY) 1S ALWAYS WRITTEN AS A 1 SO NOT TO INITIATE
?HsgNggggN. BITS 15, 14 AND O ARE TREATED AS DON'T CARE FOR
TEST 6 - READ WRITE OF RLBA

2]
12422

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
1248444

THIS TEST WILL AITEMPT 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
AAARER

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'' TO SHOW THAT A
READ-MODIFY-WRITE <EQUENCE OF THE RLCS WORKS. BITS 9-1 ARE
USED, BIT SETTING N WALKING AND GROWING 0°'S AND 1°'S. BIT
goég?NzggkgER READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE

SEQ 0024

2
PAGE 25

TEST 9 - BIC OF RLCS
RN

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
EO§§?N€22%§ER READY) IS ALWAYS SET. BITS 15, 14 AND 1 ARE
TEST 10 - BIS OF RLBA
1228822

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 0 CANNOT
SET ON A RL11, BUT CAN ON A RLV11.

TEST 11 - BIC OF RLBA

L322 2444

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
13222224

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
ARARRRY

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 RLCS
12282244

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
LA A AL

TR1S TEST W ILL L
CLEAR ALL B 17S S

VERIFY THAT THE BUS RESET OF THE PROCESSOR WILL
OF THE RLBA.

TEST 16 = BUS RESET OF RLDA
AREARAR

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

TEST 17 - UNIQUENESS OF RLCS
1222822

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

TEST 18 - UNJQUENESS OF RLBA
RN

THIS TEST WILL VERIFY THAT WHEN THE RLBA (XXXXX2) IS 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 KLDA
124824444

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

TEST 20 - UNIQUENESS OF RLMP
12222244

THIS TEST WILL VERIFY THAT WHEN THE RLMP (XXXXX6) IS ADDRESSED
ONLY THA" REGISTER IS EFFECTED. THE RLCS, RLBA_AND RLDA ARE

WRITTEN WiTH KNOWN DATA,

THE RLMP IS WRITTEN, TH:N THE RLCS,

RLBA AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

SEQ@ 0026

SEQ@ 0027

PAGE 27

TEST 21 = NOOP FUNCTION
1224 42224

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

ON PDP=11°'S ONLY, SINCE ON AN LSI=11 IT IS A MAINTENANCE

FUNCTION.
THE ABILITY OF CONTROLLER READY TO RESET AND NO
ERRORS ARE CHECKED.

TEST 22 =~ TEST NOOP DOES NOTHING

b 222

224

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

TEST 23 - TEST OF INTERRUPT

L3224224

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
422420]

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 = GET STATUS FUNCTION
AARAARS

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
L2288
2 2]

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

ERATE AN INTERRUPT ON COMPLETION.

TEST 27 - GET STATUS FUNCTION GENERATES OPI
1238
88 2]

THIS TEST WILL PROVE THE ABILITY FOR OPI

(OPERATION INCOMPLETE)

SET AND THAT THE DRIVE COMMAND IS BEING TRANSMITTED CORRECTLY.
THE COMMAND WORD (RLDA)

IS SET UP WITH THE MARKER BIT ONLY.

OPI 1S EXPECTED TO RESULT, THIS IS CHECKED.

3
PAGE 28

TEST 28 = OF1 UNDER INTERRUPT
AR RAN

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 EYPECT AN OPI ERROR.

TEST 30 = READ HEADER FUNCTION INTERRUPT

1422424

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

THE READ HEADER FUNCTION

TEST 31 = REPEATED RD HDRS YIELD SAME CYL AND HD
KRR
R

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
REARARY

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 HEADER3
RRARANN

THIS TEST WILL CHECK THAT HEADERS ARE CONSECUTIVE.

TEST 34 - SEEK FUNCTION

1222422

TH1S 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
12282224

THIS TEST UILL CHECK THAT DRIVE READY CLEARS AND RESETS ON

ISSUANCE OF
A SEEK COMMAND.

SEQ 0028

3
PAGE 29

TEST 36 - SEEK FUNCTION INTERRUPT

L823222

THIS TEST WILL CHECK THE ABILITY OF A _SE 3 K COMMAND TO GENERATE
AN INTERRUPT ON CONTROLLER READY RESETTI NG 0 AND NOT ONE ON DRIVE
READY RESETTING.

TEST 37 - TEST DIFFERENCE WORD TRANSMISSION
R
whkhkAA

THIS TEST WILL TRY TO VERIFY THAT BITS 14-7, 6, 2, 0 OF THE
COMMAND WORD GET TRANSMITTED CORRECTLY. WE ISSUE SEEKS FROM
TRACK 0 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
N
AR

THIS TEST WILL VERIFY THAT HEAD O CAN BE SELECTED AND READ V.A

READ HEADER.

TEST 39 1382324

VERIFY HEAD SELECT 1 VIA RD HEADER

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

READ HEADER.

TEST 40 - VERIFY HEAD SELECT O VIA GET STATUS
12232244

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

TEST 41 - VERIFY HEAD SELECT 1 VIA GET STATUS

1L43222424

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

12424843

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

SEQ 0029

3
PAGE 30

TEST 43 - EXTENSIVE CHECK OF CRC
12322221

THIS TEST WILL MORE EXTENSIVELY CHECK THE CRC LOGIC 8Y POSITIONING AT DIFFERENT POINTS ON THE PACK AND CHE CKING THAT THE
HEADER CRC RECEIVED IS CORRECT.

TEST 44 - VERIFY GET STATUS WHILE DRDY IS LOW
122844221

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

SEQ 0030

CZRLGCO RL11/RLVI1 CTLR TST 1

TABLE OF CONTENTS

2= 76
2= 207
3=
2

5
2
- . 9
5- 107
6~
2
€~ 264
6= 104

MACRO V04.00

30-NOV-81 13:58:41

GLOBAL DATA
PATTERNS FOR DIFFERENCE WORD
GLOBAL TEXT

GLOBAL ERRORS

LOAD PROTECTION TABLE
INITIALIZATION CODE
AUTO DRGP SECTION
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS
LOAD RLCS

6~ 206

ROUTINE TO CALCULATE CRC

888-

*+TEST 7+* «~ READ WRITE OF RLDA
*+TEST 8+« - BIS OF RLCS
*+TEST 92+ ~ BIC OF RLCS

1
7- 26
7= 52
- 77
7= 102
7= 144

N
44
82

8- 118
8- 153

**TEST
**TEST
*#TEST
t«TEST
*#TEST
*+TEST

1+x
2#v
3+«
4*+
5+«
6*+

-~
~
-~
-~
-~

RLCS
RLBA
RLDA
RLMP
READ
READ

ADDRESSABILITY
ADDRESSABILITY
ADDRESSABILITY
ADDRESSABILITY
WRITE OF RLCS
WRITE OF RLBA

*«TEST 10*+ - BIS OF RLBA
*+TEST 11+« - BIC OF RLBA

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

*#TEST
*#TEST
*+TEST
*#TEST
*+TEST
*«TEST
*«TEST
*+TEST
*«TEST
**TEST
*#«TEST
««TEST
*#TEST
*«TEST
*«TEST
*#TEST
*2TEST
*«TEST
*+TEST
*«TEST
*«TEST

12«+
13+«
14*+
15+«
16*+
17%+
18++
19+«
20++
21%+
22%+
23«+
24+«
25*x
26*+
27+«
28+«
29+
30«+
31+«
32#+

- BIS OF RLDA
-~ BIC OF RLDA
- BUS RESET OF RLCS
- BUS RESET OF RLBA
~ BUS RESET OF RLDA
- UNIQUENESS OF RLCS
-~ UNIQUENESS OF RLBA
- UNIQUENESS OF RLDA
- UNIQUENESS OF RLMP
-~ NOOP FUNCTION(RL11 ONLY)
= TEST NOOP DOES NOTHING (RL11 ONLY)
~ TEST OF INTERRUPT (RL11 ONLY)
~ TEST PRIORITY BR LEVEL
= GET STATUS FUNCTION
= GET STATUS FUNCTION INTERRUPT
- GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
-~ OP] UNDER INTERRUPT
-~ READ HEADER FUNCTION
-~ READ HEADER FUNCTION INTERRUPT
-~ REPEATED RD HDRS YIELD SAME CYL AND HD
-~ CHECX OF HEADER CRC

8-1014
8-1038
8-1068
8-1114
8-1237
8-1285
8-1332

*+TEST
*+TEST
*«TEST
*+TEST
*«TEST
*+TEST
*«TEST

342«
35+«
36«+
37s«
38+«
39+«
40+«

~
=~
~
-~

8- 940

8-1379
8-1427
8-1526
8-1661

*«TEST 334« -~ CHECK CONSECUTIVE HEADERS

SEEK FUNCTION
CHECK DRIVE READY ON SEEK
SEEK FUNCTION INTERRUPT
TEST DIFFERENCE WORD TRANSMISSION
VERIFY HEAD SELECT 0 VIA RD HDR
VERIFY HEAD SELECT 1 VIA RD HDR
VERIFY HEAD SELECT O VIA GET STATUS

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

SEQ 0031

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

2
3

.TITLE
.MACRO

SEQ C032

SVC.MLB SOURCE FILE
MSMCHIGH

PROT ,B6
GNHRD
,BGNMSG,BGN
GNDU,B
NI ,BGNMOD
NCLN,B
,BGNHW,BGNI
-MCALL BCOMPL ,BERROR,BGNAU,BGNAUTO,BG
, COMME
ST
CLRVEC
,
GNT
CLOSE
CLOCK,
W.B
CKLOOP,
GNS
,BRESET,
B.B
RRO,BREAK
NSU
,BNCOMP,BNE
.BG
"MCALL BGNSRV
,
ENDINI
,ENDHW,
U,ENDHRD
ENDCOM,ENDD
UTO,ENDCLN,
,ENDAU,ENDA
CLN,DODU,DORPT
-MCALL DISPAT,DISPLA,DO

ENDSW,ENDTST EQUALS ,ERRDF ,ERRHRD , ERROR ERRS
"MCALL ENDRPT.ENDSEGENDSET,ENDSFT,ENDSRV,ENDSUB,
IN
, HEADER,,
MANIA
GPRMD, GPRML
ORD,G
, GPHARD ,GPRMA,
,GETW
GMANIL
GMANID,
GETPR
BYTE,
L.GET
"MCALL FEQUA
, SET
,RFLAGSADEF
PRINTX,READBU,RE
"MCALL LASTAD ;MANUAL ,MEMORY ,OPEN,POINTE ,PRINTB,PRINTF ,PRINTS,

-ENDM

6
7

9
10

12
13
14
15
16
17
18
19
20
21

.MCALL XFER,XFERF XFERT
-MACRO MSMCHIGH

MSMCHIGH
"ENDM_
.MACRO BCOMPLETE
.MCALL MSGNINS
LABEL>
MSGNINS <BCS
BCOMPLETE
~
.ENDM
MACRO BERROR LABEL
.MCALL MSGNINS
LABEL>
MSGNINS <BCS
BERROR
.ENDM_
MACRO

.MCALL

LABEL

BGNAU

_MSPUSH,MSINCR,MSGNGBL

1$AU=F$BGN

TSNS, TSNESTLEV,FSAU

MSPUSH

MSPUSH TSNS, TSNESTLEV,FSAUTO

25
26
27
28
29
30
31

33
34
35
36

38
39
40
41

42
43
44
45

49
50
51
52
53

TSSAU=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL LSAU
BGNAU
.ENDM_
.MACRO BGNAIJTO
:MCALL MSPUSH,MSINCR,MSGNGBL
1SAUTO=F $BGN

TSSAUTO=TSTAGNUM
MSINCR 13 TAGNUM
MSGNGBL LSAUTO
BGNAUTO
.ENDM_
MACRO BCNCLN

.MCALL _MSPUSH,MSINCR,MSGNGBL
1SCLN=F $BGN
MSPUSH TSNS, TSNESTLEV,FSCLEAN
TSSCLEAN=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL LSCLEAN
.ENDM _ BGNCLN
MACRO BGNDU

-MCALL

_MSPUSH,MSINCR,MSGNGBL

MSPUSH

TSNS, YSNESTLEV,FSDU

-MCALL

S
,MSGNGBL
MSPUSH,MSINCR,MSGNIN

M$SUSH

TSNS, TSNESTLEV, FSHARD

iSDU=FSBGN

TSSDU=TSTAGNUM
MSINCR TSTAGAUM
MSGNGBL L$DU
BGNIU
.ENDM_
.MACRO BGNHRD

1$HRD=F $BGN

TSSHARD=TS TAGNUM

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

58
§9
gg

TSTAGNUM
MSINCR
IRP "~ TAG,<\TSSHARD>
ngsggus <.WORD L'TAG'=LSHARD/2>

62
63

MSGNGBL LSHARD
BGNHRD
.ENDM

"MCALL

66
67
68
69

"MACRO BGNHW

MSPUSH TSNS, TSNESTLEV,FSHW
T$SHW=TSTAGNUM
MS$INCR TSTAGNUH
RPN, <\TSSHW

MSGNINS <.WORD

72
73
74
75

MSGNGBL LSHW
MSGNGBL LABEL
BGNHW
.ENDM
.MACRO BGNINIT

ISINIT=FSBGN

LABEL

MSPUSH,MSINCR,MSGNINS ,MSGNGBL

.ENDM

L N-LSHU/2>

"MCALL

MSPUSH,MSINCR,MSGNGBL

MSPUSH

TSNS,TSNESTLEV,FSINIT

80
81
82
83
8%

MSINCR TSTAGNUM
MSGNGBL LSINIT
BGNINIT
.ENDM
"MACRO BGNMOD ARG
"MCALL MSGNGBL ,MSPUSH

"ERROR

87
88

TSSINIT=TSTAGNUM

“IF NE FSEND-I$MOD
CMEXIT
IFF

;'BGNMOD'' IN MOD

1$MOD=F $BGN

90
91
92
93

.ENDC
.IF NB ARG
MSGNGBL ARG
.ENDC

104

-MACRO

9%
95
9%
97
98
99
100
101
102
103

MSPUSH TSNS, TSNESTLEV,FSMOD
BGNMOD
.ENDM
-MACRO BGNMSG
.MCALL MSPUSH, nsxuca MSGNGBL
1$MSG=F SBGN
MSPUSH TSNS, TSNESTLEV,FSMSG
TSSMSG=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL ARG
ecnnsc
.ENDM
BGNPRO

105
106
107
108
109
110
11

“MCALL nsPusu nsxnca MSGNGBL
I$SPROT=F $8GN
MSPUSH TSNS, TSNESTLEV,FSPROT
TSSPROT=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL LSPROT
.ENDM
BGNPROT

113

"MCALL MSINCR.MSDECR,MSWORD ,MS$GNINS ,MSGNTAG

112

114

-MACRO BGNPTAB

“IF NE F$BGN-ISSETUP

SEQ 0033

NNOONON

d-fldd-‘-flddddd—ld—l—l—.—l-fi—.-fl—ld—l—l—b.—l—l—l—l-l—h—l—l—l-l—l—.—l—d—l—l—l—l—d—l-fl-l—d-—l—l—.-l—l—b—._._‘

O‘OOOO*OM\I!U’!U\U\U!U\V!U\MJ\‘\J\bbb&*J\J\bMWWWWWWWWWNNNNNNNNNN—'—'d—l-J

—'OOWN&\hl\wN—‘OOQ\JO\hl\WN—'OOONOU!J\WN—‘OOWNO\AJ\WNJOOQVOM&MN—'OO“\IOU‘!

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

JMEXIT
.ENDC

; MISSING 'BGNSETUP'’

.IF NE FSEND-1SPTAB

.ERROR

JMEXIT
LENDC

; MISSINC "‘ENDPTAB''

ISPTAB=F $BGN
TSPTAB=T$TAGNUM
TSTAGNUM
MSINCR
MSDECR _ TSPCNT
.IF LE TSPCNT
MSWORD <0>
.IFF

.JRP N,<\TSPTAB>
MSGNINS <.WORD L°'N>
.ENDM
-ENDC

T$SDAT=TSTAGNUM
TSTAGNUM
MSINCR

N,<\TSSDAT>
JIRP
MSGNINS <.WORD L°'N-./2-1>
.ENDM
MSGNTAG L,TSSPTAB

TSSPTAB=T$PTAB

MSINCR TSPTNUM
BGNPTAB
.ENDM
"MACRO BGNRPT
.MCALL MSPUSH,MSINCR,MS$GNGBL
1SRPT=F $8GN
MSPUSH TSNS, TSNESTLEV,FSRPT
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.TS$$SEG
MSINCR SSLSYM
MSSVC
CSBSEG
BGNSEG
.ENDM
ARG
-MACRO BGNSETUP
MSINCR
CMCALL
"IF NE FSEND - ISSETUP
"ERROR ; ONLY 1 SETUP!

IF NE

.§2§?¥

TSLAST=1

: "'LASTAD'® MUST PRECEDE 'BGNSETUP''

-ENDC

I1SSETUP=F $BGN

TSSPTAB=TSTAGNUM
MSINCR
TSTAGNUM

SEQ 0034

—

b b

b e

d e

b e

d e e

d D e

O CONO VIS WWN = O 000 ~NOA NS WY
O NN
=
3-0ooooogmmmmwmmmmmwwwwwwww

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

198

.JF N8B ARG

TSPCNT=ARG

T$$PC=ARG
.IFF

.ERROR

TSPCNT=1
.ENDC

BGNSETUP
.ENDM
.MACRO BONSFT
.MCALL MSPUSH,MSINCR,MSGNINS ,MSGNGBL
]$SFT=F $8GN
MSPUSH TSNS, TSNESTLEV,FS$SOFT
T$SSOF T=TSTAGNUM
MSINCR TSTAGNUM
TAG,<\T$SSOFT>
. IRP
MSGNINS <.WORD L°'TAG'~L$SOFT/2>
. ENDM
WSGNGBL LSSOFT
BGNSFT
.ENDM
.PACRO BGNSRV

ARG
.MCALL _MSPUSH,MSINCR,MSGNGBL
i$SKy=F $BGN
MSPUSH TSNS, TSNESTLEV,FSSRV
T$SSRV=TSTAGNUM
MSINCR TSTAGNUM
MSGNGBL ARG
BGNSRV
.ENDM_
-MACRO BGNSUB

.MCALL
IF NE
.ERROR

MSINCR,MSGNSUB,MSPUSH,MSSVC
FSEND-ISSEG
;'BGNSUBTM" IN SEG

.IF NE
.ERROR

FSEND-ISSUB
;'BGNSUBTM IN SUB

.IF NE
-ERROR

F$BGN-ISTST
;'BGNSUB'" NOT IN TST

-MEXIT
-ENDC

=2 OO 00 NN
NN -

NN
=b oed b b cncd wmd b b wnd b

-MEXIT
JENDC
AIRIAINIALNINININININD

; MISSING # OF PTABLES

SREXIT
.ENDC

]1$SUB=F $BGN
T$SUBNUM
.RADIX 10
MSGNSUB \TSTESTNUM,\TSSUBNUM
.RADIX 8
MSPUSH TSNS, TSNESTLEV,F$SUB
T$S$SUB=TSTAGNUM
MSINCR TSTAGNUM
M$SVC
(C$BSuUB
BGNSUB
.ENDM
.MACRO BGNSW
LABEL
"MCALL MSPUSH,MSINCR,MSGNINS ,MSGNGBL
MSINCR

MSPUSH

TSNS, TSNESTLEV,FSSW

JRP

NL<\TSSSW>

T$S$SW=TSTAGNUM
MSINCR TSTAGNUM

SCQ 0035

MAININININININIAD
NN NN NNINND
NS W =00

MSGNINS <.WORD

L°N-L$SW/2>

MSGNGBL LSSW
MSGNGBL LABEL
BGNSW
.ENDM_
MACRO BGNTST

NUM

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

'MCALL

MSINCR,MSGNTEST ,MSPUSH,MSINCR

-ERROR

;'BGNTSTTM'

.IF NE

FSEND-i$SUB

IN SUB

IF NE
-ERROR

FSEND=1$SEG
;'BGNTST'' IN SEG

.ERROR

FSEND=ISIST
;'BGNTST'"IN TST

H?é?CR

TSTESTNUM

-MEXIT
-ENDC
IF NE

-MEXIT
JIFF
ISTST=F$BGN
.ENDC
NUM
JIF B8

TSTESTNUM=NUM
ENDC

TSSUBNUM=0
RADIX 10
\TSTESTNUM
MSGNTEST
.RADIX 8
MSPUSH TSNS, TSNESTLEV,FSTEST
TSSTEST=TSTAGNUM
MSINCR TSTAGNUM
TSTSTSEQ=1
BGNTST
.ENDM
LABEL
.MACRO BNCOMPLETE

.MACRO BNERROR LABEL
-MCALL MSGNINS
LABEL>
MSGNINS <BCC
BNERROR
.MACRO BREAK
+LMCALL M$SV(C
CSBRK
MSSVC
BREAK
.ENDM
.MACRO BRESET
+MCALL MSSVC
CSRESET
MSSVC
BRESET
.ENDM
.MACRO CKLOOP
+MCALL MSSVC
CSCLP1
MSSVC
CKLOOP
.ENDM

MACRO CLO"K ARG1,ARG?
"MCALL MSLDRO,MSSVC,MSRNRO

SEQ 0036

SEQ 0037

SVC.MLB SOURCE FILE MACRD V04.00 30-NOV-81 13:58:41 PAGE 1-5
MSLDRO #°'ARG1,CLOCK
MSSVC CSCLCK
MSRN;O AREZCCLOCK
.MACRO
.MCALL
MSSVC

CLOSE
MSSV(C
CSCLOS

.MACRO CLRVEC ARG
.MCALL MSLDRO,M$SV(
MSLDRO ARG, CLRVEC
CSCVEC
MSSVC
CLRVEC
.ENDM
.MACRO COMMENT NUM
NUM
JIF B
TSTEMP=1
IFF
TTENP=NUN

.IIF GE SVCTAG,.NLIST

TSTEMP
REPT_
.IF GE SVCTAG
LLIST

SEQ,LOC,BIN

N ) =D d b

b wd b b

b b

— OV~ SN

AN NN NN N AN N N NN

;;/t\:/t\:/*\:/*\&{;é;/'\:/'\:/*\:/*\:/*\:/'\:/*\:/t\:/t\:/*\:/t\:/t\:

)

.ENDC

-ENDR

.IIF GE SVCTAG,.LIST
.ENDM
.MACRO
.MCALL

COMMENT
DESCRIPT
MSDATA,MSGNINS

SEQ,LOC,BIN
STRING

MSDATA LSDESC,.ASCIZ,</STRING/>
MSGNINS .EVEN
.ENDM " DESCRIPT
-MACRO DELAY = ARG
M. ALL MSGNINS

SIF LT GSDELM=ARG

LERRCR;ARGUMENT TO "DELAY'* MUST NOT BE GREATER THAN 250
-ENDC
.IF 8 ARG

MSGNINS <MOV

£, (PC)+>

MSGNINS <MOV

#'ARG', (PC)+>

MSGNINS <.WORD 0>
LSDLY, (PC)+>
MSGNINS <MOV
MSGNINS <.WORD 0>
~6(PC)>
MSGNINS <DEC
=4>
MSGNINS <BNE
=22(PC)>
MSGNINS <DEC
.=20>
MSGNINS <BNE
DELAY
.ENDM
.MACRO DEVTYP STRING
.MCALL MSDATA MSGNINS

MSDATA LSDVIYP,.ASCIZ,</STRING/>
MSGNINS .EVEN

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-6
343
344
345
366
367
348
349

DEVTYP
.ENDM
-MACRO DISPATCH
-MCALL MSWORD ,MSGNGBL
.RADIX 10
MSWORD \NUM
MSGNGBL LSDISPATCH
TSTEMP=1

351

IRP.

.REPT

NUM

352

MSWORD

T*N

354

TSTEMP=TSTEMP + 1

356
357
358
359
360
361
362

.RADIX 8
DISPAT(n
.ENDM
.MACRO DISPLAY ARG
-MCALL MSWORD
-IF NE ISHRD-FS$BGN
.IF NE ISSFT=-F$BGN

350

353
355

363
364
365
366

367

368
369

. ENDM

NUM

N <\TSTEMP>

-ENDR

.ERROR

;'DISPLAY'* MUST BE IN H.W. OR S.W. QUES.

.ERROR

;MISSING 'DISPLAY'' ARG.

-MEXIT
-ENDC
-ENDC
.IF B ARG
MEXIT
.ENDC

370
3N
372

TSCODE=6SDISP
MSWORD <TSCODE>
MSWORD <ARG>

376

MSSVC

378
379
380
381
382
383
384
385
386
387

-MACRO
.MCALL
MSLDRO
MSSVC
.ENDS_
-MACRO
MCALL
MSSVC
.ENDM
MACRO

389
390

MSPOP TSNS, TSNESTLEV, TSTEAP
.IF EQ FSAU-TSTEMP

23
374
375

377

388

391
392
393
394
395
396
397
398
399

.ENDM_
-MACRO
MCALL

DISPLAY
DOCLN
MSSVC

.ENDM

DOCLN

.MCALL

CSDCLN

DODU
ARG
MSLDRO,MSSVC
ARG,DODU
CSDODU
DODU
DORPT
MSSVC
CSDRPT
DORPT
ENDAU

MSPOP MSGNTAG.MS$SVC MSENDERR

MSGNTAG L, TSSAU
SSLSYA=TSLSYM
MSSVC
CSAU
I$AU=F SEND
IFF
MSENDERR ENDAU, TSTEMP
.ENDC
.ENDM
ENDAU
+MACRO ENDAUTO

SEQ@ 0038

SEQ 0039

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

LMCALL MSPOP ,MSGNTAG,M$SVC,MSENDERR

401

MSPOP TSNS, TSNESTLEV.TSTEMP

405
406

MSSVC CSAUTO
I$SAUTO=F SEND

402
403
404

407

408

OOV

M) =

b od b cd aud end e

EWN

409
410
L1

41
422
423
424
425

426

.IF EQ FSAUTO-TSTEMP
MSGNTAG L, TSSAUTO
SSLSYM=TSLSYM
FF

ENDAUTO, TSTEMP

MSENDERR
.ENDC
"ENDM
-MACRO
.MCALL

ENDAUTO
ENDCLN
C
, MSENDERR
MS$POP MSGNTAG,MSSV

TSNS, TSNESTLEV,TSTEMP
MSPOP
.IF EQ FSCLEAN-TSTEMP
MSGNTAG L, TSSCLEAN
SSLSYM=TSLSYM
CSCLEAN
MSSVC
ISCLN=FSEND
IFF

MSENDERR
.ENDC
ENDCLN
"ENDM

"MACRO

ENDCLN, TSTEMP

ENDCOMMENT

IF B
NUM
TSTEMP=1
IFF

4o7
428
429
430
431
432

TSTEMP=NUM
JENDC
"IIF GE SVCTAG,.NLIST
TSTEMP
"REPT
.IF GE SVCTAG
LIST

434

NLIST

433

435
436

Y A

.ENDC
-ENDR

.IIF GE SVCTAG,.LIST

440
441

"MCALL
MSPOP

443
444
445
446

MSGNTAG L,T$SDU
SSLSYM=TSLSYM
M$S/C
CSDU
1$DU=FSEND

448

MSEAMDERR ENDDU, TSTEMP

442

447

449
450
451

452

453
454
455
456

"ENDM
"MACRO

SEQ,LOC,BIN

N S AN N A

437

438
439

NUM

ENDCOMMENT
ENDDU

N A

SEQ,LOC,BIN

SVC
. MSENDERR
MSPOP,MSGNTAG,MS
TSNS, TSNESTLEV,TSTEMP

.IF EQ FSDU-TSTEMP

JF7

.ENDC
"ENDM
"MACR?

"MCALL

MSPOP

ENDDU
ENDHRD

MSPOP,MSGNINS ,MSGNTAG,MSENDERR

TSNS, TSNESTLEV, TSTEMP

.IF EQ FSHARD-TSTEMP
MSGNINS .EVEN
MSGNTAG L.,TSSHARD

O AL

SV SV ANV E

—

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

SSLSYM=TSLSYM
1§?§o=rss~o

RD
, TSTEMP
ENDH

MSENDERR
.ENDC

"ENDM
"MACRO

MCALL
MSPOP
.IF EQ

ENDHRD
ENDHW

MSPOP ,MSGNTAG,MSENDERR
TSNS, TSNESTLEV,TSTEMP
FSHW-TSTEMP

MSGNTAG L,TSSHW
S?%gYH=T$LSYH

ENDHW, TSTEMP

MSENDERR
.ENDC

.ENDM
.MACRO

ENDHW
ENDINIT

.MCALL MSPOP ,MSGNTAG,MSSVC ,MSENDERR
TSNS, TSNESTLEV,TSTEMP
MSPOP
TSTEMP
FSINITIF EQ
MSGNTAG L,TSSINIT
SSLSYM=TSLSYM
CSINIT
=F$END
I?g?IT

MSSVC

ENDINIT,TSTEMP

Hgfig%ERR

ENDINIT
.ENDM
D
ENDMO
«MACRO
.MCALL MSPOP ,MSENDERR
.IF EQ_ F$SBGN-I1$MOD
ISMOD=F SEND
.IFF

; MISSING 'BGNMOD''

.ERROR

MEXIT
.ENDC

TSNS, TSNESTLEV,TSTEMP
MSPOP
.1F NE FSMOD-TSTEMP
D
, TSTEMP
ENDMO
MSFNDERR
-ENDC

.ENDM
.MACRO

ENDMOD
ENDMSG

.MCALL MSPOP ,MSGNTAG,MSSVC ,MSENDERR
TSNS, TSNESTLEV,TSTEMP
MSPOP
.JF EQ FSMSG-TSTEMP
MSGNTAG L,TSSMSG
SSLSYM=TSLSYM
MSSVC
CSMSG
ISMSG=F SEND
.IFF

MSENDERR
-ENDC
.ENDM

ENDMSG, TSTEMP

ENDMSG
.MACRO ENDPROT
.MCALL MSPOP
MS$POI> TSNS, TSNESTLEV,TSTEMP
.JF NE FSPROT-TSTEMP

SEQ 0040

—

WALV

NN N AN NN

A WA N AMTIWA WA

AN NI NI N NN PO PINININ) =

b b b s

CONOWVISWWN
= O VOO NOWNSMIAN -2 OO0 NO NS

WA WIWVIAIVIVAVWWAVIWALA

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

539
540
41

CONONWN

iAW
wviwvauviuvauviuaw

142
543
544
545
546
547
548
549
550
551

559
560
561
562
£83
564
565
566

567
568
569
570

.ERROR
MEXIT
-ENDC
.ENDM
.MACRO
MCALL
.JF NE

.ERROR
MEXIT
ENDC

SEQ 0041

;MISSING BGNPROT
ENDPROT
ENDPTAB

MSGNTAG
F$BGN -~ [SPTAB
; MISSING 'BGNPTAB’

ISPTAB=F SEND

MSGNTAG L,TSSDAT
.ENDM
ENDPTAB
-MACRO ENDRPT
+MCALL MSFOP ,MSGNTAG,M$SVC ,MSENDERR
MSPOP
TSNS,TSNESTLEV,TSTEMP
.IF EQ FSRPT=TSTEMP
MSGNTAG L,TSSRPT
SSLSYM=TSLSYM
MSSVC
CSnPT

ISRPT=FSEND
.IFF

MSENDERR
ENDRPT, TSTEMP
-ENDC
.ENDM
ENDRPT
«MACRO ENDSEG
MCALL MSPOP_ MSGNLS,MSSVC ,MSENDERR
MSPOP

TSNS,TSNESTLEV,TSTEMP

.MACRO
.IF NE

ENDSETUP
F$BGN - ISSETUP

.JF EQ FSSEG-TSTEMP
MSPOP
TSSEK,TSSEGLEV,T$SSEG
MSGNLS
TS$S$SEG
MSSVC
CSESEG
.IF EQ TSSEGLEV+1
ISSEG=FSEND
ENDC
IFF
MSENDERR
ENDSEG, TSTEMP
-ENDC
.ENDM
ENDSEG

.ERROR
MEXIT
ENDC

; MISSING

°BGNSETUP''

ISSETUP=F SEND
.JF NE
TSSPC -~ TSPTNUM
.ERROR
; PTABLE COUNT INCORRECT
.ENDC
T$FREE=.
T$SIZE=.=LSLAST / 2
TSPTHV=TSPTNUM
.ENDM
ENDSETUP
+MACRO ENDSFT
<MCALL MSPOP,MSGNINS ,MSGNTAG,MSENDERR
MSPOP
TSNS, TSNESTLEV,TSTEMP
.JF EQ FSSOFT-TSTEMP
MSGNINS .EVEN

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV o1 13:58:41 PAGE 1-10
MSGNTAG L,TSSSOFT
SSLSYM=TSLSYM
1§§;r=r35~o

ENDSFT,TSTEMP

MSENDERR
.ENDC

"ENDM
"MACRO

IMCALL
MSPOP

ENDSFT
ENDSRV

ARG

MSPOP.MSGNTAG,MSGNINS.MSENDERR
TSNS, TSNESTLEV, TSTEMP

_IF EQ FSSRV-TSTEMP
SSLSYM=TSLSYM

MSGNTAG L, TSSSRV
LIF NB ARG

MSGNINS <BICB

MSGNINS <BISB
.ENDC
MSGNINS RTI

#340,2(SP)>

ARG,2(SP)>

1§§§v=rssno

ENDSRV, TSTEMP

HSEN%ERR
D

.ENDM
.MACRO

ENDSRV
ENDSUB

.MCALL MSPOP ,MSGNTAG,M$SVC ,MSENDERR
.IF EQ FSBGN-I$SUB
1$5UB=F$END
.IFF

;MISSING 'BGNSUB''

.ERROR
JMEXIT
ENDC

TSNS, TSNESTLEV,TSTEMP
MSPOP
.IF EQ F$SUB-TSTEMP
MSGNTAG L,T$SSUB

SSLSYM=TSLSYM
MSSVC
(SESUB
I§298=FSEND

TS TEMP
ENDSUB,

b
b
b
b e
emd
b o

el LNTo NV P

oooooorOrONONON

JV )N

MSENDERR

620

-ENDC
.ENDM
-MACRO

.MCALL

MSPOP
.IF EQ

ENDSUB
ENDSW

MSPOP ,MSGNTAG,MSENDERR

TSNS, TSNESTLEV, TSTEMP
FSSW-TSTEMP

MSGNTAG L,T$SSW

SSLSYM=TS{SYM
.IFF

ENDSW, TSTEMP

"gfigDERR
.ENDM
.MACRO

ENDSW
ENDTST

.MCALL MSPOP,MSGNTAG,MSSVC MSENDERR
.IF EQ FSBGN-ISTST
ISTST‘FSEND
.IFF

.ERROR

;MISSING 'BGNTST''

SEQ 0042

SEQ 0043

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

630

JAEXIT
-ENDC

MSPOP

TSNS, TSNESTLEV,TSTEMP

€31
63
633
634
635

.IF EQ FSTEST-TSTEMP
MSGNTAG L,TSSTEST
SSLSYM=TSLSYM
CSETST
MSSVC
ISTST=FSEND

637

MSENDERR

63
640

-ENDM
-MACRO
LLIST

636

638

641

642

IFF

.ENDC

ENDTST,TSTEMP
ENDTST
EQUALS

222

: BIT DIFINITIONS

645
646
647
648
649
650
651
652
653
654

8IT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10CV0
BIT11== 4000
8IT10== 2000
8IT09== 1000
81T08== 400
8IT07== 200
BIT06== 100

655
656
657
658
659
660
661

BIT05== 40
BI704== 20
BIT03== 10
BIT02== 4
BIT01== 2
BIT00== 1
:

BIT09
BITO8
BIT07
BIT06
BITOS
BIT04
B8IT03
BIT02
B8IT01
B8IT00

662
663
664
665
666
667
668
669
670
2;}

B8IT9==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
BIT2==
BIT1==
BIT0==

673

: EVENT FLAG DEFINITIONS

676
677
678
679
gg?

EF.START==
EF.RESTART==
EF.CONTINUE==
EF .NEJ==
EF .PWR==

682

;

g;g

* " EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
32.
31,
30.
29
28.

; PRIORITY LEVEL DEFINITIONS

:
:
:
:
:

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

SEQ (044

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

PRI0O7== 340
PR]06== 300

692

PRI00== 0

7
688
689
690
691

693

PRI0S== 240
PRI04== 200
PRI03== 140
PRI02== 100
PRIO1== 40
:

gglg

:OPERATOR FLAG BITS

696
697
698
699
700
701
702
703
704
705
706
707
708
709

EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==
PR]l==
IXE==
I18E==
1ER==
LOE==
HOE==

20000
40000
100000

712
713

.MACRO
.MCALL

NUM_MSGADR,PNTR
ERRDF
MSERRINS

.ENDM

ERRDF

.ENDM
.MACRO
.MCALL

ERRHRD
ERROR
MSSV(C

710
711

4
10
20
40
100
200
400
1000
2000
4000
10000

.NLIST
.ENDM

EQUALS

NUM,MSGADR,PNTR, CSERDF

714

MSERRINS

716
717
718

.MACRO ERRHRD NUM,MSGADR,PNTR
.MCALL MSERRINS
NUM_MSGADR ,PNTR, CSERHRD
MSERRINS

722
723
724
725

MSSVC
.ENDM
.MACRO
.MCALL

727

.ENDM

ERRSF

.MCALL

MSERRINS

715

719
720
721

726

728

729

MSERRINS

CSERROR
ERROR
NUM,MSGADR,PNTR
ERRSF
MSERRINS

ERRSOFT NUM,MSGADR,PNTR

.MACRO

730

MSERRINS

736
737
738
739

ERRTYP::
ERRNBR: :
ERRMSG: :
ERRBLK::

731
732
733
734
735

740
741

ERRSOFT
.ENDM
.MACRO ERRTBL
.MCALL MSGNGBL
MSGNGBL LSERRTBL
LIST

.ENDM

NUM,MSGADR,PNTR,CSERSF

" UNLIST
ERRTBL

NUM_,MSGADR,PNTR,CSERSOF T

MORD
WORD
MORD
.WORD

O
O
O
O

SEQ 0045

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

NAME

742

LMACRO

744
745

TSFLAG=F SEND
JIF IDN <TST>,<NAME>

743

"MCALL

MS$SVC,MSGETTOP,MSESCAPE ,MSESCSEG

746

TSTEMP=TSSTEST

756

.ENDC

747
748
749
750
751
752
753
754
755

757

TSFLAG=ISTST
.ENDC
"IF IDN ,<NAME>
TSTEMP=T$$5UB
TSFLAG=]1$SUB
.ENDC
"IF ION <SEG>,<NAME>
TSTEMP=T$$SEG
TSFLAG=IS$SEG

"IF EQ

TSFLAG-F$8GN

758
759

CSESCAPE
MSSVC
.IF IDN <SEG>,<NAME>

761

MSESCSEG

\TSTEMP

763

MS$ESCAPE

\TSTEMP

767

"ERROR

:ILL. "ESCAPE NAME'' STMT.

760
762

764
765
766

768

769

770
771

MSGETTOP TSSEK, TSSEGLEV TSTEMP
IFF

.ENDC
CMEXIT
-ENDC

.ENDM

CMACRO

"MCALL

ESCAPE

EXIT

NAME

MSSVC,MSEXIT ,MSEXSEG,MSEXTJ ,MSGETTOP,MSCHECK,MSWORD ,XFER

TSFLAG=FSEND

772
773
77%

MSCHECK NAME,TSTEMP,TSFLAG
.IF EQ TSFLAG-FSJMP
MSWORD JSJMP

777

-ENDC

775
776

MSEXT)
MEXIT

\TSTEMP

778
779
780
781

IF EQ TSFLAG-F$BGN
CSEXIT
nssvc
JIF IDN <SEGD>,<NAME>
MSGETTOP TS$SEK,TSSEGLEV,TSTEMP

784

nssxxr

789

MS$GETTOP

792

XFER

;g§
785
786
787
788

790
791
793
794
795
796

797

798

nssxsec \TSTEMP
\TSTEMP

.ENDC
JMEXIT
JENDC
“IF IDN <HRD>, <NAME>

.IF EQ
IRP

.ENDM
CMEXIT
-ENDC
.ENDC

TSNS, TSNESTLEV, TSTEMP

FSHARD-TSTEMP
N <\TSSHARD>

.IF IDN <SFT>,<NAME>

M$GETTOP

TSNS, TSNESTLEV, TSTEMP

SEQ 0046

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

.IRP

XFER
.ENDM
JMEXIT

oNLIST

FSSOFT-TSTEMP

N, <\TS$SOFT>

L'N

DIRECTIVE FUNCTION
DIRECTIVE LOG UNIT NO.
DIRECTIVE EVENT FLAG
DIRECTIVE STATUS BLOCK
DIRECTIVE AST ENTRY
DIRECTIVE PARAMETER LIST
REQUEST WAS SUCCESSFUL
FEQUAL

GETBYT E ArG
MSSVC, MSRBRO
CSGETB
ARG, GE TBYTE
GETBYT 3

GETWORL ARG

MSSVC MSRNRO

CSGETW

ARG, GE TWORD
GE TWOR D
ARG
GETPRI

MSSVC

MSRNRO
.ENDM
-MACRO

MSSVC, MSRNRO
CSGPRI
ARG, GE TPRI
GETPRI

GMANIA

M,
SHILIM, SDFLY
SMSGADR,SDATADR,SRADIX,SLOLI

-MCALL
MSSVC

?gsvc.HSGENBR.HSUORD.HSGNLS.HSINCR.GPRHA

GPRMA
MSGNLS
MSINCR

SDFLT
,<SHILIM>LIM>
$MSGADR,0,SRADIX,<$LO

MSGENBR BR,\SSLSYM,$
$DATADR
MSWORD

SSLSYM
GMANIA

GMANID

SDFLT
SHILIM, LIM,
SMSGADR,SDATADR,SRADIX,SMASK,SLO

Q?SVC.HSGENBR.H‘UORD.HSGNLS.HSINCR.GPRHD
CSGMAN
MSGENBR BR,\SSLSYM,$
MSWOKD SDATADR
GPRMD
MSGNLS

SMSGADR, 0, SRADIX , SMASK ,<SLOL1M> ,<SHILIM> $DFLT

MSINCR SSLSYM
TSGMANID=0

SEQ 0047

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

858

859

860

861

862

.ENDM
MACRO

GMANID
GMANIL

MSSVC

CSGMAN

MSGENBR BR.\SSLSYM,$

MSWORD SDATADR
GPRML

863
864
865

MSGNLS
MSINCR
.ENDM

868
869
870
871

MSLDRO
MSSVC
MSRNRO
.ENDM

873

.MCALL

866
8€7

872

874
875
876

877
878

879
880
881
882
883

884

_SMSGADR,SDATADR,SMASK SDFLT

.MCALL MSSVC MSGENBR,M$WORD ,MSGNLS M INCR, GPRML

MACRO
.MCALL

"MACRO

$MSGADR,0,SMASK,SDFLT
SSLSYM

GMANIL

GPHARD ARG1,ARG2
MSLDRO,M$SVC ,MSRNRO
ARG1,GPHARD
CSGPHRD
, GPHARD
ARG2
GPHARD

GPRMA

X
,SCOUNT
T,SRADI
SLOLIM, SHILIM,SDFLT
SMSGADR,SOFFSE

RD
,MSCNTOP
MSRADIX MSDEFAULT,MSEXCP,M$SWO

-IF_IDN A,SRADIX
-ERROR ;INVALID RADIX
-ENDC

TSTEMP=SOFFSETE1
IF NE TSTEMP § 1
.ERROR
-ENDC
JIF LT
.ERROR
ENDC

;0DD OFFSET

GSOFSIZE-SOFFSET
;OFFSET T00 BIG

TSCODE=GSPRMA + CSOFFSET + GSOFFSET>

885
886
887
888
889
890
891
892
893

MSRADIX SRADIX,TSTEMP
TSCODE=TSCODE | TSTEMP
SDFLT, TSTEMP
MSDEFAULT
TSCODE=TSCODE ! TSTEMP
TSEXCP=0
MSEXCP TSCODE,TSEXCP,GSLOLIM, TSLOLIM,SLOLIM
MSEXCP TSCODE, TSEXCP,GSHILIM, TSHILIM SHILIM
MSCNTOP <$COUNT>, <TSCODE>
MSWORD <TSCODE, $MSGADR, TSLOLIM, TSHILIM>

898

MSWORD <SCOUNT/2>

894
895
896
897

899
900

901
902

903

_IF NE TSEXCP
MSWORD TSEXCP
-ENDC
.IF N8B SCOUNT
-ENDC
.ENDM

"MACRO
.MCALL

GPRMA

GPRMD
SMSGADR,SOFFSET,SRADIX,SMASK,SLOLIM,SHILIM,SDFLT,SCOUNT
MSRADIX MSDEFAULT MSEXCP,MSWORD ,MSCNTOP

.IF IDN_A,SRADIX

904

IF EQ TSGMANID

906
907

-ENDC
-ENDC

905

-ERROR

;ASCII RADIX VALID ONLY ON “‘GMANID

908
909
910

TSTEMP=SOF
F SETR)
IF NE TSTEMP § 1
-ERROR ;0DD OFFSET

912

JF LT

911

-ENDC

GSOFSIZE-SOFFSET

SEQ 0048

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

;OFFSET TOO BIG

TSCODE=GSPRMD + <SOFFSET * GSOFFSET>
MSRADIX SRADIX,TSTEMP

TSCODE=TSCODE | TSTEMP

SDFLT,TSTEMP
MEDEFAULT
TSCODE=T$CODE ! TSTEMP
TSEXCP=0

MSEXCP
MSEXCP

TSCODE,TSEXCP,GSLOLIM,TSLOLIM,SLOLIM
TSCODE, TSEXCP,GSHILIM,TSHILIM,SHILIM

MSCNTOP <SCOUN’>,<TSCODE>
MSWORD <TSCODE,$MSGADR,SMASK,TSLOLIM, TSHILIM>
.IF NE

MSWORD
JENDC

TSEXCP

"IF N8 SCOUNT
MSWORD <SCOUNT/2>
.ENDC
"ENDM

GPRMD

'MACRO
"MCALL

$MSGADR,SOF “SET,SMASK,SDFLT.SCOUNT
GPRML
MSWORD ,MSCNTOP
MSDEFAULT,
MSRADIX

JF NE
"ERROR

TSTEMP § 1
:;0DD OFFSET

JF LT
.ERROR

GSOFSIZE-SOFFSET
;OFFSET T0O BIG

TSTEMP=$OFF SETR1
-ENDC
LENDC

TSCODE=GSPRML + <SOFFSET = GSOFFSET>

MSRADIX L,TSTEMP
TSCODE=TSCODE ! TSTEMP

SOFLT,TSTEMP
MSDEFAULT
TSCODE=TSCODE ! TSTEMP
MSCNTOP <SCOUNT>,<TSCODE>

MSWORD

<TSCODE, SHSGADR.SHASK)

.JF N8B SCOUNT
MSWORD <$SCOUNT/2>
<ENDC
.ENDM
GPRML

.MACRO
.MCALL

MSHAPT

MSHNAP

HEADER

FJILNAM,REVLEV,DEPO,LONGST,DIAGTYPE,DIAGPRIO

MSHAPT MSHNAP

FILNAM,_REVLEV,DEPO,LONGST ,DIAGTYPE ,DIAGPRIO

IF EQ os?oxur .,

.ESggR POINTER'®

MUST PRECEDE '‘HEADER

.ENDM
.MACRO
.MCALL

HEADER
INLOOP
MSSV(C

MSWORD
MSBYTE

MS$SVC
.ENDM
.MACRO
.MCALL
MSBYTE

MSWORD

CSINLP
INLOOP
JOSETUP FUNC,LOGICAL ,EVENT,JOSTAT,I0AST ,PARAMS
MS8YTE, HSHORD MSIOSET
<1,12.>

<IOSTAT.IOA;T>

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

MSIOSET PARAMS
JOSETUP
.ENDM
.MACRO IOSTART ADR,ERR

975
976
977
978
979

($QIO
MSSVC
.JF NB_ERR
MSSTART ERR
-ENDC
IOSTART
.ENDM

973
974

980
981

3%%

S
MSSTART
NIN
,MSSVC
.MCALL MSG
ADR,=(SP)>
MSGNINS <MOV

, SUP,USE
DPAGE

.MACRO

KT11

.SBTTL

MEMORY MANAGEMENT DEFINITIONS

.LIST

ggg

;*KT11 VECTOR ADDRESS

ggg

MMVEC=

ggg

:*KT11 STATUS REGISTER ADDRESSES

990
991
992
993
33?

177572
SRO=
177574
SR1=
177576
SR2=
172516
SR3=
.JF NB USE

339

;*USER 'I'* PAGE DESCRIPTOR REGISTERS

998
999
1000
1001
1002
1003
1004
1005
}889

UIPDRO= 177600
UIPDR1= 177602
UIPDR2= 177604
UIPDR3= 177606
UIPDRé4= 177610
UIPDRS= 177612
UIPDRé= 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= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636

;83?

s*USER '‘!"* PAGE ADDRESS REGISTERS

1022
1023
1024
1025
1026

UIPARQ= 177640
UIPAR1= 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4= 177650

}8}3

250

.ENDC

SEQ 0049

042
043

.ENDC
“ENDC

) ol e
) i
D
) b b cd b wnd b ed b b b

CONONWNES
NN = OV~

UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656
.IF NB DPAGE

D d

8OC—OOOOOOOOO
NN
NN NN
NN

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

039
040
041

UDPARO= 177660
UDPAR1= 177662
UDPAR2= 177664
UDPAR3= 177666
UDPAR4= 177670

UDPARS= 177672
UDPARG= 177674
UDPAR7= 177676
"IF N8 SUP

046

;*SUPERVISOR *'I'* PAGE DESCRIPTOR REGISTERS

048
049
1050
1051
1052
1053
1054
1055

SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDRG= 172214
SIPDR7= 172216

1058

;*SUPERVISOR 'D'* PAGE DESCRIPTOR REGISTERS

1060
1061
1062
1063
1064
1065
1066
1067

SDPDRO= 172220
SDPDR1= 172222
SDPDP?= 172224
SDPDR3= 172226
SDPDR4= 172230
SDPDRS= 172232
SDPDR6= 172234
SDPDR7= 172236

1070

;*SUPERVISOR "'I'* PAGE ADDRESS REGISTERS

1072
1073
1074
1075
1076
1077
1078
1079
1080

SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPARG= 172250
SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256
.IF N8 DPAGE

1082

;*SUPERVISOR ''* PAGE ADDRESS REGISTERS

e e

) o

044

;*USER ‘D'’ PAGE ADDRESS REGISTERS

1056

1068

.IF NB DPAGE

.ENDC

SEQ 0050

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-19
1084
1085
1086
1087
1088
1089
1090
1091

SDPARO= 172260
SDPAR1= 172262
SDPARZ= 172264
SDPAR3= 172266
SDPAR4= 172270
SDPARS= 172272
SDPARG= 172274
SDPAR7= 172276

}832

;*KERNEL ''1'* PAGE DESCRIPTOR REGISTERS

1097
1098
1099
1100
1101
1102
1103
1104
}}82

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172326
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR?= 172316
.IF NB DPAGE

}}8;

s*KERNEL 'D‘'' PAGE DESCRIPTOR REGISTERS

1109
1110
1M
1112
1113
1114
1115
1116

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

}}58

s*KERNEL ''I'' PAGE ADDRESS REGISTERS

1121
1122
1123
1124
1125
1126
1127
1128

KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPAR6= 1723564
KIPAR7= 172356

}}g}

s*KERNEL 'D'* PAGE ADDRESS REGISTERS

1133
1134
1135
1136
1137
1138
1139
1140

KDPARO= 172360
KDPAR1= 172362
KDPAR2= 172364
KDPAR3= 172366
KDPAR4= 172370
KDPARS= 172372
KDPARG= 172374
KDPAR7= 172376

1092
}832

}}}g

}}gg

.ENDC
.ENDC

.ENDC

.IF NB DPAGE

SEQ 0051

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

11461

.ENDC

1142
1143

NLIST
LENDM
KT11
.MACRO LASTAD
.MCALL
MSGNINS
, MSGNGBL
MSGNINS .EVCN
TSLAST=1
.IJF EQ OSSETUP
MSWORD <0>
MSWORD <0>
.IFF
MSGNINS <.WORD TSFREE>
MSGNINS <.WORD TS$SIZE>
.ENDC
SVCGBL=0
MSGNGBL LSLAST
TSLTNO=TSTESTNUM
.ENDM
LASTAD
.MACRO MANUAL
.MCALL MSSV(C

1144
1145
1146
1147

1148
1149

1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163

MSSVC
.ENDM

1164

1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190

1191
1192
1193
1194
1195
1196
1197

.MACRO

CSMAN]
MANUAL

MEMORY

ARG

+MCALL MSSVC MSRNRO
MSSVC
CSMEM
MSRNRO ARG,MEMORY
.ENDM
MEMORY
.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>
.JF IDN <ALL>,<PX>
OSBGNSFT=1
0$BGNRPT=1
OSGNSW=1
0SAPTS=1
0SAU-1
0s$hU=1
OSERRTBL=1
0$SETUP=1
OSPOINTER=1
MEXIT
.ENDC
.JF IDN <NONE>,<PX>
O$BGNSFT=0
0S$BGNRPT=0

OSGNSW=0
0SAPTS=0
0$AU=0
os$buU=0
OSERRTBL=0
0$SETUP=0
OSPOINTER=1

SEQ 0052

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

120
120

120

AANN = O V00NN S NN = O VOO NS LN =2 O 00 NN S NN — OO0 00

119
119

120
120
120

12
12
12

NN
S NN OOV0ONO
NS NN —OO0

d cad e e

i eed e

b e nd od d e

D ed d

b e

b e e

b d e v

e cnd

b b b b

MNIRLALNLAINLALNINI
NI NVNINLNLNLNLALNININININININININININL LNV NININ)
S W N N NN N N WA AN N NI N PO NI NI NI NN
VIV
BB B BB

12
12
12
12
12
12

b b e ad b d B b =

120
12
12

JMEXIT
LENDC

.IF IDN <BGNSFT>,<PX>
0$8GNSFT=1

OS$POINTER=1
JENDC

.IF IDN <BGNRPT>,<PX>

0$BGNRPT=1
OSPOINTER=1
.ENDC

.IF IDN <BGNSW>,<PX>
OSGNSW=1
OSPOINTER=1
.ENDC

.IF IDN <APTSTAT>,<PX>
OSAPTS=1
OSPOINTER=1
.ENDC
IF IDN <BGNAU>,<PX>
0SAU=
OSPOINTER=1
LENDC
.IF IDN <BGNDU>,<PX>
0$bU=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

.EzggR

sILL. ARGS. ON ‘'POINTER'

.ENDM

POINTER

+MCALL
.JF B
+ERROR

MSPRINT
FORM
;MISSING FORMAT

.MACRO

MEXIT
+ENDC

PRINTB

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

<P1>
JUF B
MSPRINT CSPNTB,FORM
JMEXIT
-ENDC

JF B
MSPRINT
MEXIT
-ENDC
JF B
MSPRINT
LMEXIT
.ENDC

,<P2>

SEQ 0053

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

JUF B

1256

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

1259
1260

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

1257
1258

1261
1262

1263

1264

1265
1266

1267

1268

1269
1270

1271

LMEXIT
JENDC

JMEXIT
.ENDC

JF B

<P6&>

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

JF B

3>
,<P4>,<P5> ,<P6>
MS$PRINT CSPNTB,FORM,<P1>,<P2>,<P
JMEXIT
ENDC

JF B

<P8

1272

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

1275

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

1277

.MACRO

1273
1274

1276

1278
1279
1280
1281
1282

MEXIT
.ENDC

.ENDM

PRINTB

.MCALL
JF B
.ERROR
LMEXIT

MSPRINT
FORM
:MISSING FORMAT

PRINTF

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

.ENDC

1283
1284

<P
JF B
MSPRINT CSPNTF ,FORM

1287
1288

1285
1286

1289

1290

1291
1292

1293
1294

1295

LMEXIT
LENDC

LMEXIT
.ENDC
JF B

MEXIT
.ENDC
AF B

<P&>

1296

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

1299

JJF B

MEXIT
ENDC
JF B

<P6&>

1297
1298

MEXIT
.ENDC

1300

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

1304

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

1301
1302
. 1303

1305
1306

1307

1308

1309
1310
13N

JMEXIT
.ENDC

AF B

<P?>

LMEXIT
.ENDC
JAF B8

<PB

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

SEQ OOS;—W

—_—

PRINTF

PRINTS

MSPRINT

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

FORM

:MISSING FORMAT

<P1>

WirL
WA= O V00NN

CSPNTS,FORM

<P2>

CSPNTS,FORM,<P1>

<P3>

CSPNTS ,FORM,<P1>,<P2>

<P4>

W= O VNN

A\uTviwvaviviuauiiwiwvi
VOO ~NOMNN S
W=
OO0 0D~ HWN=O
OO ~NONN

>
6> ,<P7>
,<P4&
,<P5>,,<P2>,<P3>
,<P8>
CSPNTF ,FORM,<P1>,<P2>,<P3>,<P4>,<P5>,<P6>,<P7>

WN =00 00NN

WWNWW NN WWNANRNI N NI NI NI NN NININ) b b b d b b b b

HSPRI?T

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

<P5>

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

W N N LN U U U
& 8B
a2l
N

b oocd e b e e cacd e oo e b i emd b ced e e e e md b d e b e e e sind b b end b b e

b o i md b b b b b b e b b d e b D s D b

N N A U N N U N U NN N N N N NN NN N N N N N NN NN

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

<P6>

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

<P?7>

>
5> ,<P6>
>,<P3
,<P4>,,<P2
<P8>

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

gg?z;g.FORn.<P1>,<P2>.<P3>.<P4>,<PS>,<P6>,<P7>,<P8>
PRINTX

MSPRINT

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

FORM

sMISSING FORMAT

.ENDC
IF 8
MSPRINT
MEXIT
+ENDC
.IF B
MSPRINT

<P1>

CSPNTX,FORM
<P2>

CSPNTX ,FORM,<P1>

SEQ 005"

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

1371

LMEXIT
LERDC

AF B

MEXIT
LENDC
JF B

1372

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

1376

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

1373
1374
1375

1377
1378

1379

1380
1381

1382

1383

MEXIT
.ENDC

JF B

<P5

MSPRINT CSPNTX,FORM,<P1>,<P2>,<P3>,<P4>
LMEXIT
.ENDC

JF B

<P6>

1384

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

1387

1388

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

1392

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

1395

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

1407
1408
1409
1412

.MCALL
MSSV(
MSRNRO
.ENDM
.MACRO
.MCALL

1614

MSSV(C

CS$SPRI1

1416

.MACRO

SETVEC

1418

MSPUT

1420

MSGNINS <ADD

1385
1386

1389
1390
1391
1393
1394

1396
1397
1398
1399
1400
1401
1602
1403
1404
1405
16406

1410
1411

1413
1415

1617
1419

1421
1422
1423
1424
1425

LMEXIT
.END(

JAF B

MEXIT
.ENDC
JF B

<PB>

MEXIT
LENDC

.ENDM
.MACRO
.MCALL
MSSV(
.END®
.MACRO
.MCALL
MSLDRO
MSSV(
.ENDM
.MACRO

PRINTX
READBUS
MS$SV(C
CSRDBU
READBUS
READEF EFN
MSLDRO M$SVC
EFN,READEF
CSREFG
READEF
RFLAGS ARG

MSSVC ,MSRNRO
CSRFLA
ARG,RFLAGS
RFLAGS
SETPR]I

ARG

MSLDRO MSSVC

MSLDRO ARG, SEfPRI
.ENDM

SETPRI

ARui,ARG2,ARG3

.MCALL

M3~PUT MSSVC _MSGNINS

MSSV(

CSSVEC

#3,ARG1,ARGZ,ARG3

.ENDM
SETVEC
.MACRO SLASH
.JF B NUM
TSTEMP=
.JFF

M0.sp>
NUM

SEQ@ 0056

b b

b b e

WA =O OO NOWVNH I~ OV~
=20 VBNV

T
Y Y Y
o VAN

OVBNO VB W

b b e b e

b d b b e e

b e e e e

b e e D e

e b e

N
N N S
N N N
N
Y ¥ N
S B I 38 5 8 5 5 5 B WWNWW NN N NN NN NN

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

4
4
1461
1462
1463
1464
1465
1465
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482

TSTEMP=NUM
.ENDC

TSTEMP
LREPT_
.JF GE SVCTAG

LLIST

;:///////////////‘{144///////////////////////////////////////////
«NLIS

ENDP

.ENDM
.MACRO

SLASH
STARS

NUM

.EN
.REPT_

TSTEMP
.JF GE SVCiAG
LIST

R AR RARNRARRRA TR AR AR AAAANAAR
N
E AR RN
R

-ENDC
.ENDR
.ENDM
.MACRO

.NLIST

STARS
SVC

CSREVISION=3
CSEDIT=3
SVCINS==1
SVCTST=-1
Sv(suB=-1
Sv(GBL=~1
SVCTAG=-1

.RADIX

CSRESERV=0
CSETST=1
€$8s5UB=2
C$ESUB=3
C$BSEG=4
CSESEG=5
C$CLP1=
CSRDBU=7
CSESCAPE=8
CSINIT=9
CSCLEAN=10
CS$TPRI=11
CSPNTB=12
CSPNTX=13
CSPNTS=14
CSPNTF=15
C$INLP=16
CSRFLA=17
C$BRK=18
CSMSG=19
CSDRPT=20
CSRPT=21
CSGETB=2§
CSGETW=2

SEQ 0057

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-26
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510

C$GPLO=26
CSMEM=25
CSEXIT=26
(SRESET=27
CSOPEN=28
($CLOS=29
CSCVEC=30
C$SVEC=31
C$GPRI=32
C$SPR]=33
C$GPHRD=34
=35
cs
CSDCLN=36
CSCEFG=37
CSSEFG=38
CSREFG=39
CSMANI=40
C$DODU=41
C$AU=42
C3DU=43
CSERSF=44
CSERDF=45
CSERHRD=46
CSERSOFT=47
CSERROR=48
CSAUTO=49
C$CLCK=50
€$Q10=255

1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527

<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
TSGMAN]D=0

1530
1531
1532
1533

F$SUB=2
F$SEG=
F $SHARD=
FS$SOF T=5

1511
1512

1528
1529

1534

1535
1536
1537
1538
1539

F$MOD=
FSTEST=1

FSINIT=

FSCLEAN=7
T$SRV=10
FSMSG=11
FSRPT=12
FSHW=13

SEQ 0058

NO NS WN=2OVR NS WO

O OO YO O OO 00 0o O
NN
WIN) — OV~

SNJISEIG
LR W= OV
VSN
=200
W
gmgmmmmwwwwww

OO\ O\ O WAV
WA PRIl

—d e b b b b s b o o o o b e b b ed e d e e b e o b e e b d e e e b b e e b b cad b b b D D b d e e b e e b D D b D
Vi avaauiviaiuaviaivavi
i
viaaiaaiwauawg wvavawviwawuawnunaua IC IV IV IV IV IV IV [V 1V IV [V IV, IV, IV, I

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:°8:41 PAGE 1-27
FSSW=14
F$AU=15

1$MOD=F SEND
ISTST=FSEND
1$5UB=F SEND
I$SEG=F SEND
ISINIT=FSEND
ISCLN=F SEND
I$SRV=F SEND
I$MSG=F SEND
ISRPT=F $END
ISAU=F SEND
1$DU=F SEND
I1$PWR=F SEND
ISSETUP=F SEND
1SPTAB=F SEND
I1SAUTO=F SEND
I1SPROT=F $END
GSPRML=0
GSPRMA=1
GSPRMD=2
GSDISP=3
GSXFER=4
GSNO=0+4D8
GSYES=1+4D8
GSRADB=0+*D16
GSRADO=1+D1¢
GSRADD=2+4D16
GSRADL=5+*D16
GSRADA=6#D16
GSOF SIZE=~D254
GSDELM=4D250
GSOFF SET=1%4D256
X$OFF SET=1+4D256
GSCNTOP=144D128
GSEXCP=1%4D256

XSTRUE=124D16
XSFALSE=2¢*D16
0$BGNSF T1=0
0SBGNRPT=0
O$GNSW=0
0$APTS=0
0$AU=0

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
1597
1598

SSLSYM=TSLSYM
JSJMP=167

1601
1602
1603

.JF EQ DIAGMCALLS
.MCALL MSMCHIGH
MSMCHIGH

1605

.IJF EQ ASSEMBLY-10

1599
1600
1604

.JIF NDF ASSEMBLY,
.J1F NDF DIAGMCALLS,

LMCALL MSMCLOW
MSMCLOW

1610
1611
1612

.MACRO
MCALL
MSXFER

1613
1614
1615

1616

1617
1618
1619

ASSEMBLY=10
DIAGMCALLS=0

.ENDC

1606
1607

1608
1609

.ENDC
.ENDM

SV(

$TAG
XFER
MSXFER
XSALWAYS,STAG

.ENDM
.MACRO
.MCALL

XFER
XFERF
MSXFER

STAG

.ENDM
.MACRO
.MCALL

XFERF
XFERT
MSXFER

S$TAG

MSXFER

XSFALSE.,S$TAG

1620
1621
1622

MSXFER
.ENDM
.MACRO

1626

.MACRO

MSMCLOW

1628
1629
1630
1631
1632
1633

.ENDM
.MACRO
.MCALL
MSINCR
MSSETS
.ENDM

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

1635
1636

.MCALL MSCOUNT
,MSPUT ,MSGNINS MSSV(C
TSARGCNT=1

1623
1624
1625

1627

1634

XSTRUE,STAG
XFERT
MSMCLOW

.MCALL MSPUSH,MSPRIN,MSERRI ,MSMASK ,MSMSK1 ,MSXFER ,MSIOSE ,MSSTAR, , MSHAPT ,MSHNAP ,MSDATA MSGETT M
JMCALL MSGNGB,MSGNLS
MSTSTL ,MSTLAB,MSSVC(C ,MSGENB ,MSLDRO,MSRBRO
,MSRNRO ,MSPUT ,MSPUT1 ,MSWORD ,M$8
JMCALL MSEXSE ,MSINCR,MSDECR,MSSETS ,MSGETS ,MSGEN ,MSGNIN,MSCOUN ,MSENDE ,MSRAD] ,MSEXCP ,MSCHEC ,M$
.ENDM

JMACRO

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

1637

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

}gzg

ngzg;

1641
1642
1643
1644

SP,RO>
MSGNINS <MOV
MSSVC
CODt
N.<\TSARGCNT%2+2>
.JRP
#N,SP>
MSGNINS <ADD

1646
1647
1648

.ENDM
.MACRO
.MCALL

MSPRINT
MSERRINS
NUMBER,ADDRESS ,POINTER,CODE
MSGNINS,MSWORD ,MSTSTLAB

RADIX

1638

1645

.JRP

.ENDM

N,<\TSARGCNT>

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

1649

M$SVC

1651
1652
1653

.JF NB NUMBER
TSERRNUM=NUMBER
IFF

1650

SEQ 0060

CODE

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-29
1654
1655
1656
1657
1658
1659
1660
1661

.ERROR ;MISSING ERROR-NR
-ENDC
MSWORD \TSERRNUM
.RADIX 8
.IF_NB ADDRESS
MSWORD ~ ADDRESS
.IFF
MSWORD 0

1663
1664
1665
1666
1667
1668

.IF_NB POINTER
MSWORD POINTER
.IFF
MSWORD 0
.ENDC
.ENDM
MSERRINS

1662

1669
1670

1673

(MACRO
LMCALL

MSNASK' P1,P2,P3,P4.P5
MSWO

YRP-KR, <P} P2.P3.P4.P5>

MSWORD NR
. ENDM
.ENDM
MSMASK

1676
1677
1678
1679

.MCALL
-NARG
MSWORD
.ENDM

1682

MSGET TOP

1686
1687
1688
1689

MEXIT
-ENDC
-ENDC
T$CODE=SADDRESS <

1692
1693

-MEXIT
-ENDC

1680
1681
1683
1684
1685

1690
1691

.ENDC

1672
1673
1674

1675

-MACRO

M$SMSK1 P1,P2,P3,P4,P5

.MACRO
_MCALL

MSXFER _SXFER,SADDRESS
MSGETTOP,MSWORD

MSWORD
NR
\NR
MSMSK1

TNS. TSNESTLEV, TSCODE

.IF NE FSHARD - TSCODE
-IF NE FSSOFT - T$CODE
.ERROR ;' XFER'S'* MUST BE IN GPRM CODING.

.IF GT TSCODE-376
.ERROR ;"XFERTM* RANGE T0O BIG

1694
1695
1696
1697
1698
1699
1700
1701

T$CODE=TSCODE * XSOFFSET
TSCODE=TSCODE + GSXFER + SXFER
MSWORD TSCODE
.ENDM
MSXFER
-MACRO MSIOSET P1,P2,P3,P4,PS,P6
.MCALL MSWORD
IF N8 P
HSUORD | P1

1703

MSWORD

1705
1706

_IF NB P2
MSWORD ~ P2

1708

MSWORD

1770

.IF N8 P3

1702
1704

1707
1709

IFF

-ENDC
IFF

.ENDC

SEQ 0061

MSWORD

.IFF

P4
P4

NS W= O 00NN

N N NN NN NN AN N NN NI NI NI NO NI N =2 =5 = b b —b =5 —b

0
P5
P5

OO ORO\ONON ON VAV VAV
NOW BRI~ O 000 N
NE

VIV

R = OO0 NN

S 85 S5 35 85 88 8N 35 S 85

AN = OV

NONE NN = OO0 N

P6
Pé

0
MSIOSET
MSSTART ERR,?TAG

?:gNINS.HSGNTAG.BNERROR
<JSR
TAB

PC,ERR>

~
-~

MSSTART
[

o ad b e cnd coh b e b aed b B e b e o md 2 i md b e b b b e e b b D D e D b b b D
o b e b b D e b od D b d e e
D b
NN
NN NN N NN N NN NN N NN NN SN SNNSNNNNNNSNNSNN NN NN NN NN N NN NNNNNNNNNNNSNSNSN

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

MSHAPT FILNAM,REVLEV,DEPO,LONGST
,DIAGTYPE ,DIAGPRO
NS
,MSBYTE ,MSDATA
MSGNGBL ,MSGNI
FILNAM

s MISSING DIAG. NAME

MSGNGBL TLfg?flEK(:DIAGNOSTIC NAME>>
TSARGCN
>
,
<F ILNAM
CHAR
«IRPC
MSGNINS <.ASCII /CHAR/>
TSARGCN T=TSARGCNT-1
JF LT TSARGCNT
-ERROR
:PROG NAME TOO BIG
MEXIT
.ENDC
.ENDM
TSARGCNT
.REPT
MSBYTE
0
.ENDR
MSBYTE
0
REVLEV

LSREV, .ASCI],</REVLEV/>,<<;REVISION LEVEL>>

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

LSDEPO,.ASCI] ,</DEPO/>,<<;DEPO>>

. ERROR
MSDATA

; MISSING DEPO.
LSDEPO, .ASCII,</2/>,<<;DEPO>>

SEQ 0062

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

LENDC
"IF EQ O$SETUP

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

};;?

H?QQTA

1772

MSDATA LSUNIT,.WORD,TSPTHV,<<;NUMBER OF UNITS>>

1773
1774
1775
};;9

JENDC
IF B
"ERROR
Mf?éTA

LONGST
; LONGEST TEST TIME MISSING
(STIML,.WORD,0,<<;LONGEST TEST TIME>>

1780

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

};gg

M??éTA

};gg

1786

figggEA LSSPCP, .WORD,L$SO T,<<;POINTER TO S.W. QUES.>>
MSDATA LSHPTP,.WORD,L$HW,<~;PTR. TO DEF. H.W. PTABLE>>

};gg

H?g?TA

};3?
1792

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

};32

M?2¢TA

1796

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

1798
1799
1800
1385

MSDATA
.IF 8
"ERROR
H??éTA

};;g
1781

1787

1793

1797

.IF EQ O$BGNSFT

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

.IF EQ OSGNSW

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

.IF EQ OSAPTS

.ENDC

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

L$CO,.WORD,0
DIAGTYPE
; MISSING DIAG. TYPE
($DTYP, .WORD,0.<<:DIAGNOSTIC TYPE>>

1803

}ggg

M??éTA LEDTYP, .WORD ,DIAGTYPE , <<;DIAGNOSTIC TYPE>>

1806
}ggg
1809

“1F 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

.IF IDN 0,DIAGTYPE

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

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

}g};

H?E?TA

}g}g

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

1821

"ENDM

1824

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

1822
1823

"MACRO
"MCALL

MSHAPT

MSHNAP
MSDATA,MSWORD ,MSGNINS

SEQ 0063

SEQ 0064

182
182
182
182
182

183

SNV
= O VOO N

SVC.MLB SOURCE FILE MACRO V0&4.00 30-'10v-81 13:58:41 PAGE 1-32
MSDATA

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

MSDATA LSMREV..BYTE.C$ REVISION,<<;SVC REV AND EDIT #>>
MSGNINS <.BYTE CSEDIT>
,<<;DIAG. EVENT FLAGS>>
MSDATA LSEF..WORD,0
MSWORD

MSDATA

L$SPC,.WORD,0

,<<; POINTER TO DEVICE TYPE LIST>>

MSDATA

LSDEVP,.WORD,LSDVTYP

}g%

H?géTA

LSREPP, .WORD,0,<<;PTR. TO REPORT CODE>>

1835

MSDATA

LSREPP,.WORD,LSRPT,<<;PTR. TO REPORT CODE>>

1837
1838

MSDATA
MSDATA

LSEXP4,.WORD,0
LSEXP5,..'0RD,0

1840

MSDATA LSAUT,.WORD,0,<<;PTR. TO ADD UNIT CODE>>

1842

MSDATA LSAUT, .WORD ,L$AU,<<;PTR.

844
gzg

.IF EQ 0$DU
M?géTA LSDUT, .WORD,0,<<;PTR. TO DROP UNIT CODE>>

847
848
849

MSDATA LSDUT, .WORD,L$DU,<<;PTR. TO DROP UNIT CODE>>
LENDC
,<<;LUN FOR EXERCISERS TO FILL>>
MSDATA LSLUN, .WORD,0

851

MSDATA LSLOAD.EMT,ESLOAD

183

1836

1839
1841

b and cd b

©o

b b e

b oud a=d cud

1843

852

.IF EQ O$BGNRPT

.ENDC

.IF EQ O0SAU
.IFF

-ENDC

MSDATA

TO ADD UNIT CODE>>

LSDESP..WORD,LSDESC

.IF EQ OSERRTBL

*<<:POINTER TO DIAC. DESCRIPTION>>

" <<>GENERATE SPECIAL AUTOLOAD EMT>>

ggz

H?géTA

LSETP, .WORD,0,<<:POINTER TO ERRTBL>>

1332

nggeEA

LSETP, .WORD,LSERRTBL,<<;POINTER TO ERRTBL>>

1857
1858
1859
1860
1861

MSDATA
MSDATA
MSDATA
MSDATA
MSDATA

LSICP,.WORD,LSINIT,<<;PTR. TO INIT CODE>>
LSCCP..WORD.LSCLEAN,<<:PTR. TO CLEAN-UP CODE>>
LSACP..WORD_LSAUTO,<<;PTR. TO AUTO CODE>>
LSPRT..WORD.LSPROT.<<:PTR. TO PROTECT TABLE>>
LSTEST..WORD,0,<<;:TEST NUMBER>>

1864
1865
1866
1867
1868

MSHNAP
MSDATA LABEL,DTYPE,DATA, COMMENT
MSGNGBL ,MSGNINS
“IF NB COMMENT
MSGNGBL LABEL ,<COMMENT>

1862
1863

1869
1870
1871
1872

MSDATA LS$DLY..WORD,0,<<;DELAY COUNT>>
MSDATA LSHIME,.WORD,0,<<;PTR. TO HIGH MEM>>
LFNDM
"MACRO
"MCALL

JENDC
“IF B COMMENT
MS$GNGBL LABEL
.ENDC

1873
1874

MSGNINS <DTYPE
.ENDM
MSDATA

1876
1877
1878
1879
1880
1881

"MCALL
M$GETS
LENDM
"MACRO
"MCALL
“UF LT

1875

"MACRO

MSGETTOP

DAIA>

STACK ,LEVEL , VALUE

MSGETS
STACK,\LEVEL,VALUE
MSGETTOP
MSPOP
STACK,LEVEL.VALUE
MSGETS,MSDECR
LEVEL

>VC.MLB SOURCE FILE MACRO V04.00 30-NOV-87

13:58:41 PAGE 1-33

.ERROR

MSGETS
.ENDM
-MACRO
MSGEN

-MACRO
-MCALL

M$GEN

LEVEL

; MACRO STACK UNDERFLOW

STACK,\LEVEL,VALUE

LEVEL
MSPOP
HiGgTAG $P,ST
M$GEN

$P,\ST,SVCTAG
MSGNTAG
MSGNTEST $TN
MSGEN

'sru' LSVCTST

.ENDM ni

-MACRO
.MCALL
MSGEN
.ENDM_
.MACRO

N ALALNOLALPOINIPINI
N b b b b b b b wd b b QOO

) wod

)

b o

)

) —ad e

b i

b ad aud

V0OV OOOOOOOVOOVOOVOVOVOOVOOO 0000V
OO OO0

3o dvd el bt

) e

) sl

)

OO NO NS NN = O OVBDNO NS NN =2 OO ~

1906

nscusue srn.ssn
MSGEN
T'STN'.,°*$SN',SVCSUB

MSGNSUB
MSGNGBL TAG,COMMENT
MSGEN

.IF NB,TAG
.1F _NB.COMMENT
MSGEN
TAG,:,SVCGBL,COMMENT
-ENDC
.1F 8,COMMENT
MS$GEN
TAG,:,SV(GBL.< >
ENDC
-ENDC

.ENDM

MSGNGBL

.MACRO MSGNLS
ARG
.MCALL
MSGEN
.IF NB ARG
MSGEN
\ARG,$,SVCTAG
.IFF

MSGEN
-ENDC
.ENDM
.MACRC
.MCALL
JJIF LT
RADIX

MSTLABEL

LRADIX
MSINCR
LENDM
MACKO
-MCALL
MSGIN
. ENDN
MARO
JMCALL

MSTSTLAB

\SSLSYM,$,SVCTAG

MSGNLS
MSTSTLAB
MSTLABEL .MSINCR
TSTSTMAC, .MEXIT
10

\TSTESTNUN \TSTSTSEQ

8
TSTSTSEQ
MSTSTLAB
MSTLABEL
TST,SEQ
MSGEN
S°'TST,$°SEQ,SVCTAG
HST ABEL
MSSVC
COOE
MSGNINS ,MSTSTLAB

MSGNINS <TRAP
(ODE>
LENDM
RESVC
.MACRO
HSGENBR $$8R.$3SYM $STAG
.MCALL

M$GN

MSGNINS <$SBR

$SSYM'SSTAG>

SEQ 0065

(04

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

SEQ 0066

MSGENBR
MSLDRO ARG,NAME
MSGNINS
.JF NB ARG
.IF DIF RO,ARG

1939
1940
1941

.ENDM
.MACRO
.MCALL

1944

MSGNINS <MOV

1947

LERROR

:MISSING ARG. ON ''NAME

1949
1950
1951

.ENDM
.MACRO
.MCALL

MSLDRO
MSRBRO ARG,NAME
MSGNINS

1954

MSGNINS <MOVB

1942
1943

1945
1946

1948

1952
1953
1955
1956

LENDLC
JFF

ENDC

.IF NB ARG
.IF DIF RO,ARG
LENDC
JIFF

ARG,RO>

RO,ARG>

.ERROR

;MISSING ARG. ON ‘‘NAME

1959
1960
1961

.ENDM
.MACRO
-MCALL

MSRBRO
MSRNRO ARG,NAME
HSGNINS

1963
1964

.JF DIF RO.ARG
MSGNINS <MOV

1957

1958

1962

1965
1966

1967

1968

1969

LENDC

.JF N8
.ENDC
JAFF

.ERROR
.ENDC

.ENDM

RO,ARG>

:MISSING ARG. ON ''NAME
MSRNRO

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

.MACRO

MS$SPUT

1973

MSPUT

1975
1976

JF NB
MSPUT1

1970

1971
1972

1974

1977
1978

1979

1980
1981
1982

1983

1984

.MCALL
JF NB
.ENDC

.ENDC
.ENDM

.MACRO

MSPUT1
<PD>
<P0>
PO
MSPUT

MSPUT1

.IFF

ILL ARG. 'ARG1'° ONLY °'B'’ IS ALLOWED.

1985

1988
1989

MSGNINS <CLR
MSGNINS <BISB

1991
1992
1993

.ENDM
.MACRO
.HCALL

1990

1994
1995

.IJF DIF B,<ARG1>

.ERROR

1986
1987

ARG1,ARG?

.MCALL MSGNINS
ARG2
.JF B
ARG1,-(SP)>
MSGNINS <MOV

MEXIT
.ENDC
.ENDC

-(SP)>
ARGZ2,(SP)>

MSPUTI
MSWORD ARG
MSGNINS

N,<ARG>
HSGNINS <.WORD N>

SEQ 0067

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

.ENDM
.MACRO
«MCALL
.IRP

MSWORD
MSBYTE ARG
MSGNINS
N,<ARG>

MSGNINS <.BYTE

MSBYTE
.ENDM
TAG1
MSESCAPE
.MACRO
MSGNINS
.MCALL
MSGNINS <.WORD L°TAG1-.>
MSESCAPE
.ENDM
TAG1
.MACRO MSESCSEG
+MCALL MSGNINS
MSGNINS <.WORD TAG1°'S-.>
MSESCSEG
.ENDM
.MACRO MSEXIT TAG1
+MCALL MSGNINS
MSGNINS <.WORD L'‘'TAGl1-.>
MACRO MSEXTJ TAA1
+MCALL MSGNINS
MSGNINS <.WORD L°'TAG1-2-.>
MSEXTJ
LENDM
.MACRO MSEXSEG TAG1
+MCALL MSGNINS
MSGNINS <.WORD TAG1'S-.>
MSEXSEG
.ENDM
+MACRO

MSINCR

VAL

VAL=VAL+1
MSINCR
.ENDM
.MACRO MSDECR VAL
VAL=VAL-1
MSDECR
.ENDM
MACRO MSSETS SSTACK,SLEVEL,SVALUE
$STACK'SLEVEL=SVALUE
MSSETS
.ENDM
.MACRO MSGETS SSTACK,SLEVEL,SVALUE
SVALUE=$STACK ‘'SLEVEL
.ENDM
MSGETS
$SP,SST,LSTCNTRL,COMMENT
MACRO MSGEN
JIF LE LSTCNIRL
silF Eg LSTCNTRL,.LIST
COMMENT
P'S$
<JIF EQ LSTCNTRL,.NLIST
MEXIT
.ENDC
LIST

JNLIST

MSGEN
.ENDM
.MACRO MSGNINS INSTR
JJF LT SVCINS
INSTR
LMEXIT
ENDC

.IF EQ SVCINS

$SP*SST:

SEQ 0068

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-36
2053
2054
2055
2056
2057
2058
2059

2060
2061

2062

2063

LIST

INSTR

LMEXIY
JENDC
.IF GT SVCINS
LIST
+ENDC

LENDM

«NLIST

.NLIST
MSGNINS

2066

.MACRO MSCOUNT COUNT,PO,P1,P2,P3,P4,P5,P6,P7,P8
JF NB <PD>
,<P4>>
> ,<P7>,<P8
,<P3>
,<P5>,<P6
MSCOUNT COUNT,<P1>,<P2>

2068
2069

.JF NB <P0>
+1
COUNT=COUNT

2071

LENDM

2064

2065

2067

2070

2072
2073

ENDC

.MACRO
.ERROR

MSCOUNT

SNAME ,SFLAG
MSENDERR
;''*SNAME'’ STMT OUT OF SEQUENCE.

2074
2075
2076
2077

MSENDERR
.ENDM
.MACRO MSRADIX SIN,SOUT
.IF IDN B,SIN
$OUT=GSRADB

2097

.ERROR

2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096

2098

2099

2100
2101
2102
2103
2104

LMEXIT
LENDC
.IF IDN O0,SIN
$OUT=GSRADO
LMEXIT
.ENDC
.IF IDN D,SIN
$OUT=GSRADD
JMEXIT
ENDC
.IF IDN L,SIN
$SOUT=GSRADL
MEXIT
ENDC
.IF IDN A,SIN
$OUT=GSRADA
JMEXIT
.ENDC
$0UT=-1

.ENDM

.MACRO

;ILL. RADIX °'‘SIN"

MSRADIX

MSEXCP

MI,
WORD1,EXWD,EXCD,LIMIT,LILIM2

JF IDN <@>,<LIM1>
JF LT GSOFSIZE-LIM?
.ERROR ;INDIRECT PAR. TOO BIG
LMEXIT
LENDC

2105
2106

LIMIT=LIM2/2
WORD1=WORD1 ! GSEXCP

2109

.JF B,LIM2

2107
2108

EXWD=EXWD ! EXCD
.IFF

INSTR

1
1
1
1
1
1
1
1
1
21
21

21
21

21
21
21
21

21
21

21
21
21
21
21
21

OO O NS
S BB DN B B

N N NN N WA NN NI PO N N PO NI NI NI NI

b b b b cd b b b d b

OU’!“WN-‘OOQNOU\J\WN"OONNO\hwa—'OOONO\hJ\WN—'OOQ\JOV!J“WN—'OOQ NOWNES NN =O

RNIAINLNALIN —l—l—l-—.—l—l—l—l_&d—l—l-fl-fl—l—)d—l—‘—l.—l-—l—l—l—l-fi—.a-fl—b-—l_‘
A NN NI NN NI AN NI NIAINI NI NI NI NN NN N AN AN NI NI NI NN NI

SVC.MLB SOURCE FILE MACRO V04.00 30-NOV-81 13:58:41 PAGE 1-37
LIH2T=LIH1
.IF

.ERROR
.ENDC
.ENDC

;ILL. DEFERRED MODE

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

FLAG=]STST
MEXIT
.ENDC

.JF IDN ,<NAME>

TAG=T$$SUB
FLAG=]$SUB
LMEXIT
.ENDC

.JF IDN <SEG>,<NAME>

TAG=TSSSEG
FLAG=IS$SEG
LMEXIT
.ENDC
.IF IDN <INIT>,<MAME>
TAG=TSSINIT
FLAG=ISINIT
MEXIT
.ENDC
.JF IDN <CLN>,<NAME>
TAG=TSSCLEAN
FLAG=ISCLN
MEXIT
<ENDC

.IF IDN <SRV>,<NAME>
TAG=T$$SRV
FLAG=ISSRV

MEXIT
.ENDC
.IF IDN <MSG>,<NAME>
TAG=TSSMSG
FLAG=FSJMP
MEXIT
ENDC

.JF IDN <RPT>,<NAME>
TAG=T$SRPT
FLAG=F $JNP
LMEXIT
+ENDC
.IF IDN <DU>,<NAME>
TAG=T$$DU

FLAG=F$JMP
JMEXIT

.ENDC
.IF IDN <AU>,<NAME>
TAG=TS$SAU

FLAG=F$JMP
MEXIT
+ENDC

SEQ 0069

SE@ 0070

b wmd ad od e

b e

MSCHECK
.ENDM
.MACRO MSDEFAULT
.IF IDN YES,SIN

$IN,SOUT

p.-]
Po
o

$OUT=GSYES
MEXIT
+ENDC
.JF _IDN NO,SIN
$OUT=GSNO
MEXIT
m

nh D oD

b ot D e

b e md o

000000 000000000000~ NNNNNNNNNOOON
GO NO VN AWNN 2 OV
NOWNSWLIN =20 V00~

MNIAININ AN ALALAI AL NI NI NN PPN RPN PO

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

.ENDM

«MACRO
CIF NE
"ERROR

OR 'NO"'
:DEFAULT “‘SIN'' MUST BE ‘'YES''

M3SDEFAULT

MSCNTOP $IN,WORD?
SIN

ISSFT = F$BGN
; ''CPUNT'‘ OPTION VALID ONLY IN S.W. QUES.

-MEXIT
-ENDC
WORDT=WORD1 ! GSCNTOP
-ENDC
MSCNTOP
.ENDM

LTITLE

(=)

(=4

(=]

000000
000000
002000

sv(C
SVCINS=0
SVCTAG=0
.=2000

b ol

CZRLGCO RL11/RLVIT CTLR TST 1

.ENABLE AMA
.ENABLE ABS
.NLIST ME,CND,MD
+MCALL SVC

000000

MDHEDR

002102

000000

.WORD
.WORD
.WORD
.WORD
EMT
JWORD

/2/
/R/
/L/
/G6/

0
0
0

/C/

.0/
O
7
LSHARD
LSSOFT
LSHW
LS$SW
LSLAST
O
O
0
O
LSDISPATCH
0
0
0
CSREVISION
CSEDIT

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

C(CZRLG,C,0,7,0

/¢/

HEADER
.ASCI1l
LASCII
.ASCI1
.ASCII
JASCII
BYTE
.BYTE
BYTE
LASCII
LASCII
WORD
WORD
.WORD
.WORD
WORD
+WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
.BYTE
.BYTE

NOWN

BGNMOD

<
<

—t ed eud and

POINTER BGNSFT,BGNSW,BGNDU,BGNAU

OOOMrOoOO00O
had

NN = O VOO NO NS NN —

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

LSAU
L$DU
0
LSDESC
ESLOAD
O

SEQ 0071

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

SEQ 0072

LSINIT
LSCLEAN
LSAUTO
LSPROT
0
0
O

o
OO
NNO

b b b () nd b () b cmd e ed ) = d wd b b e D b O =D
- N OHNOHN - =ON=N=OOO==0MNSN)
OB VIO
NO =S WNON S NWOAWNINO OWON

b ok b amb () b O

b b b cd b b O

b md b

b ) b

OO =N = = B = N=NOOW
o NONNLIOWVIOSH
N=OMNIANWNHENO
=2 WN= W= 0O NNINWWNINN
HH

—d

—d e

Nn—

002241

060

062

O =

22 002230

O=O—
O—=0N
Q=N

002227

o b b b b b e b b b b b () b b o i e b b b D d b
Qo S N)=O=NIO=OONH =NININ=NONN=O
OO SNV
WSS W
O=NINWN=) WNNORBH

ENDMOD

DESCRIPT <CZRLG TESTS CONTROLLER FUNCTIONS, INTERFACE LOGIC, REGISTER OPERATION>
.ASCIZ /CZRLG TESTS CONTROLLER FUNCTIONS, INTERFACE LOGIC, REGISTER OPERATION/

DEVTYP

.EVEN
<RLO1,RL 02>

LASCIZ

/RLO1.RLO2/

.EVEN

23
Sg 002242

BGNMOD

GLBEQAT

26 002242

EQUALS

g BIT DIFINITIONS
100000

000400

81T15== 100000
BIT14== 40000
81T13== 20000
81T12== 10000
BIT11== 4000
81T10== 2000
81T09== 1000
81T08== 400

SEQ 0073

=SSN
(elelelels

(%,

OO0
O =NIHNS O
waunugunien
nononnn

@
—

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

D
N N

000001

O =PI NS VIO
00O
nHaunnunouwnwnnh
Hunonnwunnnwoan

000200

MO@®mODODOO®®O:- o closkoodoolocdoefesfos]
ey Govng P P St $oip $umg g S Pt
[T Y Y
T Y
]

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

BIT00

e &4

; EVENT FLAG_DEFINITIONS

000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PWR==

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS
000340

000000

PRI07==
PRI06==
PRIOS==
PRIO4==
PRIO3==
PR102==
PRIO1==
PR100==

340
300
240
200
140
100
40
0

;OPERATOR FLAG BITS
000094

EVi==

LOT==
ADR==
IDY==
ISR==
UAM==
B0E==

PNT==
PR]==

100000

IXE==
18E==
IER==
LOE==
HOE==

4
10
20
40
100
200
400

1000
2000

4000
10000
20000
40000
100000

;
:
;
:
:

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 2-3
000001
000100
100000

SEQ 0074

;:DRIVE READY (RLCS)

DRDY=BITQ
INTEN=BIT6
ERR=BIT15
DERR=BIT14

: INTERRUPT ENABLE (RLCS)
:RL11 ERROR (RLCS)
:RLO1 DRIVE ERROR (RLCS)
;OPERATION INCOMPLETE (RLCS)
: CONTROLLER READY (RLCS)

:EXTENDED ADDRESS BIT 17 (RLCS)

:EXTENDED ADDRESS BIT 16 (RLCS)
:NON-EXISTANT MEMORY (RLCS)
;DRIVE SELECT 0 (RLCS)
19
D
DS3=B1T8!BIT9
NOOP0=0
NOOP7=BIT1!81T2!BIT3
WRCHK=B1T1
GSTAT=B]T2
SEEK=BIT2!BIT1
RDHDR=BI
T3
WRITE=BIT3!B1T1
READ=BIT31BIT2
GODRVR=B1T1!8IT7
DRST=BIT3
GSBIT=BIT
MK=BITO

SIGN=EIT2

RHHS=81T6

000020

STHS=BIT6
DAHS=BIT4

:DRIVE SELECT 1 (RLCS)
:DRIVE SELECT 2 (RLCS)
:DRIVE SELECT 3 (RLCS)

(0)
: FUNCTION-NOOP
:FU JCTION=NOOP(7)
:WRITE CHECK FUNCTION

:GET 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

;OFFSET FOR HARDWARE P-TABLE
000000

CSR=0
VECT=?
PRIOR=4

TYPDR=6

000012

DRBT=10
CNT=12

;OFFSET FOR SOF TWARE P-TABLE
000000
000002
000004

DLT=0
ELT=2
SIZE=4
ENDMOD

72 002242
74 002242

78 002242
79 002244

83 002254

000000

BGNMOD

GLBDAT

.SBTTL

GLOBAL DATA

PWRFLG:
UuT:
UNITST:
RLCS:
RLBA:
RLDA:

.WORD
WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
O
0
0

;LOGICAL ADDRESS OF (S
:LOGICAL. ADDRESS OF BA
:LOGICAL ADDRESS OF DA

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

SEQ 0075

RLMP:
RLBE:

BCSR:
BPRIOR:
BVEC:

.WORD
.WORD
.WORD

DERFLG:

.WORD

DRIVE:
8.CS:
B.BA:
B.DA:
8.MP:
B.BE:
€E.CS:
E.BA:
E.DA:
E.MP:

E.MP1:

E.MP2:
E.BE:
PFLG:

TRPFLG:

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

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

INTFLG:
LDCSR:
SECMSK:
XPOLY:
ERRVEC:
BCCFBK:

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

TEMP2:
TEMP3:
TEMP4:

.WORD
.WORD
.WORD

CALBCC:

TMPQ:
TMP1:
TMP2:
GDDAT:
BDDAT:

002406
002410
002412
002414

,WORD
.WORD

000000

FIRST:
CYLMSK:
MXSEC1:
MAXSEC:
DWORD:
MAXCYL:
SVHD:
WHY:

000000
000000
000000
000000

T.DRIVE:
T.CNTLR:
TMPFNC:
DLYCNT:

.WORD

.WORD
-WORD
-WORD
.WORD
.WORD

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

OO0O0O0O0O0O0O000O0

000000

sLOGICAL ADDRESS OF MP
sLOGICAL ADDRESS OF BE

:CS = AT OCCURANCE OF
:BA = AT OCCRUANCE OF
sDA = AT OCCURANCE OF
sMP = AT OCCURANCE OF

;DRIVE UNDER TEST
:CS = BEFORE OPERATION
:BA - BEFORE OPERATION
;DA - BEFORE OPERATION
:MP - BEFORE OPERATION
;BE - BEFORE OPERATION

s INTERRUPT OCCURRENCE FLAG
sLOCATION TO FORM RLCS
sMASK OUT SECTOR
;POLYNOMIAL FOR CRC 16

0001

;LOCATION USED BY ‘'SIMBCC''
;LOCATION USED BY '‘SIMBCC'
;LOCATION USED BY ‘'SIMBCC'
JLOCATION USED BY 'SIMBCCJ
:LOCATION USED BY ‘'SIMBCC''

sFIRST SECTOR READ
sMASK CYLINDER AND HEAD SELECT
sMAX SECTOR ADDRESS +1
sMAX SECTOR ADDRESS
sDIFFERENCE WORD (SEEK)
sMAXIMUM CYLINDER ADDRESS
:SAVE CURRENT HEAD SELECT
sREASON FOR DROP UNIT

77700
0.
9.
77600

WORD
WORD
.WORD
WORD

0
0
0
0

:DRIVE TYPE
:CONTOLLER TYPE

sDELAY COUNTER

;PATTERNS USED FOR LOADING/READING REGISTERS
7 002416

8 002420
9 002422
0 002424

000000

BEGPAT : ?

000007

3
I4

ERROR
ERROR
ERROR
ERROR

;MP - AT OCCURANCE OF ERROR READ HEADER
:BE = AT OCCURANCE OF ERROR RLV12 ONLY
;PROCESSOR TYPE, 0=UNIBUS, 1=Q-BUS

84 002256
85 002260
86 002262
87 002264
88 002266
89 002270
90 002272
91 002274

OO=OWL =000 0O0COOOOON=NOOOOOOO0O0O0O0O

GLOBAL DATA

;GROWING 1

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

SEQ 0076

GLOBAL DATA

000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

17
37
77
177
377
77
1777
3777
777
17777
37777
7777
177777

155 002462
156 002464
157 002466
158 002470
159 002472
160 002474
161 002476
162 002500
163 002502
164 002504
165 002506
166 002510
167 002512
}gg 002514

177774
177770
177760
177740
177700
177600
177400
1770C0
176000
174000
170000
160000
140000
100000

177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000

170 002516

000000

172 002522
173 002524
174 002526
175 002530
176 002532
177 002534
178 902536
179 002540

000002
000004
000010
000020
000040
000100
000200
000400

4
4
10
20
40
100
200
400

141 002426
142 002430
143 002432
144 002434
145 002436
146 002440
147 002442
148 002444
149 002446
150 002450
151 002452
152 002454
153 002456

154 002460

171 002520

180 002542
181 002544
182 002546
183 002550
184 002552
185 002554
186 002556

187 002560

188 002562
189 002564

190 002566

191 002570
192 002572
193 002574
194 002576
195 002600
196 002602
197 002604

177776

000001

001000
002000
004000
010000
020000
040000
100000

177777

177776

1000
2000
4000
10000
20000
40000
100000

127777

177776
177775

177767
177757
177737
177677
177577
177377
176777

177767
127757
127737
177677
177577
177377
176777

177773

;GROWING 0

sWALKING 1

sWALKING 0

né

SEQ 0077

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

GLOBAL DATA

198 002606

(- 3

02630
2

.SBTTL

PATTERNS FOR DIFFERENCE WORD

SKLST:

.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

SKEND:
RLZ:

077600
177600

176000

QMAX:
HMAX :

.WORD
.WORD
.WORD
.WORD
.WORD

:GROWING 1

.WORD
.WORD

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

;GROWING 0

.WORD
.WORD

JNDO
SO
NN
OO0
O

QUAMAX:
HALMAX:

245
246 002736

sSHIFTING 0

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

2
20 002654
221 002656
222 002660
223 002662

244 002734

sSHIFTING 1

.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
.WORD
.WORD
-WORD

b o o e wd e
ek b
NNWVONNINNN
WNOANN
OO ON
[=l=lolelalelel=d"
OLOOOO0O0OO

QO
Q

NN
O

ENDPAT: 000000

.WORD
.WORD
.WORD

N_6
CZRLGCO RL1I1/RLVIT CTLR TST 1 MACRO v04.00 30-NOV-81 13:58:41 PAGE 2-7

SE@ 0078

PATTERNS FOR DIFFERENCE WORD

297 003274
298 003774
299

174000
170000
60000
40000
000000

sPATTERNS FOR TEST OF RLCS

-WORD
+WORD
-WORD
- WORD
CSEND:
-WORD
tRPOINT: .WORD
ERCOUNT: .BLKW
HDRBUF
: .BLKW
ENDMOD

WNNWVONNNOO
S ONNN . =4
OO
OOOOO
N0

;GROWING 0

JSHIFT 0

Ov =5\

b b b b b s cmd i nd b e

NIWNWNWNAIALS e

b b b () (D)

8IT6

.WORD

JSHIFTING 1

== O N

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

=d A\ Sy ed Y

000006
000016

CSPAT:

WVINSNOVONON
NONO

000000
000002
000004
000010
000020
000040
000100
000400
001000
001576
001574

286 00
287 003052
288 003054

SKEEND:

.WORD
.WORD
.WORD
.WORD
.WORD

2
263 002772
264 002774
265 002776
266 003000
267 003002
268 003004
269 003006
270 003010
271 003012
272 003014
2735 003016

174000
170000
960000
040000
000000

O
e

255 002760
256 002762
257 002764
258 002766
559 002770

:GROWING 1

€2

} *ZRLGCO RL11/RLV11 CTLR TST 1 MACRO VO04.00 30-NOV-81 13:58:41 PAGE 3

PATTERNS FOR DIFFERENCE WORD

BGNMOD
.SBTTL

1 003774
%

7 003774
8 004001
9 004006
10 Qu4013
11 004021
12 0046026
13 004033
14 0046040
15 004043
16 004045

17 004053

18 004126
19 004157

20 004211
21 004251
22 004312
23 004352

24 004413
25 004444
26 004476
27 004535
28 004574
29 004601

30 004607
31 004615
32 004623

33 004644
34 00466
3. 004712
36 004740
37 004765
38 005012
39 005037

40 005064
41 005135

42 005163
43 005211
44 005252
45 005304
46 005332
47 005360
48 005406
49 005441
50 005500
51 005540
52 005574
53 005641
54 005716
5 005756
56 006047
57 006105
53 006204
59 006237
60 006272

040
040
040
040
040
040
040
015
01
040

106

116
116

127
127
122
122

123
123
107
107
103
040

040
040
102

124
103
104
103
103
103
103

122
122

122
117
116
116
116
116
m
107
107
122
117
117
122
102
102
123
127
127
127

117

DEMES: .ASCIZ
NXMMES: .ASCIZ
OPIMES: .ASCIZ
HCRCMES:.ASCIZ
HNFMES: .ASCIZ
DCKMES: .ASCIZ
DLTMES: .ASCIZ
MSCRLF: .ASCIZ
ASCIZ
LF:
_ASCIZ
COMP:

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

117
117

NOPMES: .ASCIZ
NOPINT: .ASCIZ

/NOOP OPERATION-FLAG MODE/
/NOOP OPERATION=INTR. MODE/

104
116
117
110
110
104
104
012
000
103

122
130
120
103
116
103
114
000

117
117

117

122

122
122
105
105

111
111
101
101

105
105
105
105
123
102
104
115
105

M
117
122
101
101
101
101

114
114

114
120
117
117
117
117
116
105
105
114
120
120
105
101
101
105
122
122
122

GLBTXT
GLOBAL TEXT

105
105
124
124
072
101

101
120
106

115
116
111
116
116
116
116

103
102

OPIERR: .ASCIZ

WCKMES:
WCKINT:
RHDMES:
RHDINT:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

ARLDA:
ARLMP:
BEREG:

.ASCIZ
_ASCIZ
.ASCIZ

SEKMES:
SEKINT:
GSTMES:
GSTINT:
ARLCS:
ARLBA:

AFREG:
CRTIM:
DORTIM:
EM1:
EM2:
EM3:
EMé4:

EM5:
EM6:

106 EM7:
111 EM11:
040 EM13:
117 EM14:
117 EMIS:
117 EM16:
124 EM17:
126 EM30:
1264 EM30A:
115 EM32:
111 EM33:
111 EM34:
101 EM37:
104 EM41:
104 EM42:
103 EM43:
111 EM44:
111 EM4S:
111 EM46:

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

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

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/FORCED OPI1(GET STATUS) CAUSED OTHER ERRORS/

/WRITE CHECK OPERATION-FLAG MODE/
/WRITE CHECK OPERATION-INTR. MODE/
/READ HEADER OPERATION-FLAG MODE/
/READ HEADER OPERATION-INTR. MODE/
/SEEK OPERATION-FLAG MODE/
/SEEK OPERATION-INTR. MODE/
/GET STATUS OPERATION~FLAG MODE/
/GET STATUS OPERATION-INTR MODE/
/CS: /
/ BA: /
/ DA: /
/ IP: /
/BEFORE COMMAND: /

/TIME OF ERROR: /
/CONTROLLER TIMED QUT/
/DRIVE READY TIMED QUT/
/CAN NOT ADDRESS RL(CS/
/CAN NOT ADDRESS RLBA/
/CAN NOT ADDRESS RLDA/
/CAN NOT ADDRESS RLMP/

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

ZXRLDA READ/WRITE ERRORX
/0PI WOULD NOT GENERATE INTERRUPT/
/NO INTERRUPT FROM NOOP(0)/
/NOOP(Q) MODIFIED RLMP/
/NOOP(Q) 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

84 007770

85
86
87
91 010160
92

Bumg Svg B

s N NN N N

g $mp S Pumng Bumg P
g

g P

NN N RN NN R N N NN N N N PN N N

2N mnn:;m(7. X7 17,17, 17.17,.17,]

Srmg umg
g $umg Sumng Buneg P

w w won wmwunn

8
6
o
o
¢
6
o

o
o
o
e
.

gy Samg

o
8

3> 2> 3 3o 3o 2o 3>
»>>
> » 32235

b
b and emd end cnd cmd cnd
b e
el
o
—d o

« < EIIICICIIICICICICIIOIOICIOIOIOIOHIOOD

b wub ab
b
b wmd cod

b wmd

2 2 =2 FONINININI NN = O O OO = O
=] b
0 G
uryr <
Ny
(N = b b b b = ()Y 9 9/ ' 9

b
b
b

b e

b et

b e

b o

b e

=2 PININININININININ)
= b b b d
) =2 O O ONO
SSAIPININI NI NN NN b b cd b b b ) N = =2 2 NN

b
e
v

b e

D e

ad i

D o

b e

61 006325

(SLUSLUSUSIST N S elolelelelelololole
b dololelal S
MO N NNN N NN
NINNININ S SN
SN

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58.41 PAGE §-1
GLOBAL TEXT

.BLKB

ENDMOD

SEQ 0080

/SEEK _WOULD NOT INTERRUPT/
/DRIVE READY CAUSED EXTRANEOUS INTERRUPT/
/BAD SEEK-TEST OF DIFFENCE WORD/
/BAD HEAD SELECT VIA RD HDR/
/BAD HEAD SELECT VIA GET STATUS/

/LOADING RLDA JEFORE DRIVE READY ON SEEK/<15><12>

/DRIVE READY DID NOT SET/

/BIT SET INSTRUCTION ON RLCS YIELDED WRPNG RESULT/
/BIT CLEAR INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/BIT SET INSTRUCTION ON RLBA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLBA YIELDED WRONG RESULT/
/BIT SET INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/BUS RESET DID NOT CLEAR RLCS/

/8US RESET DID NOT CLEAR RLBA/
/BUS RESET DID NOT CLEAR RLDA/
/WRITING RLCS MODIFIED RLBA/
/WRITING RLCS MODIFIED RLDA/
/WRITING RLBA MODIFED RLCS/
/WRITING RLBA MODIFED RLDA/
/WRITING RLDA MODIFIED RLCS/
/WRITING RLDA MODIFIED RLBA/
435CS CONTAINED FOLLOWING ERROR(S):

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

SEQ 0081

.SBTTL

GLOBAL ERRORS

BGNMOD

GLBERR

BGNMSG

ERRO

OO0

004737
004737

010504
010540

JSR
JSR

PC,LINE]
PC,LINE2

OO000

10160

004537

01303¢

JSR
ENDMSG

R5,CKER.T

TRAP

CSMSG

BGNMSG

10176

b
b
b
b
—d

L10000:

104423

CONONNESS
N

b OO 00 NO NS

N =

GLOBAL ERRORS

004737

010504

JSR

PC,LINEY

010202
01

004537

013034

JSR
ENDMSG

R5,CKERLT

TRAP

C$MSG

20 010210
21
22 010210
23 010214

L10001:
BGNMSG

004737

010504

013746

002364
002362
011137
000003

010240

062706

000010

25 010244

004537

013034

010250

104423

[ 3

N
~N

OO0O00O0

b
b nd

OO0

PC.LINE1
#FRMT4 ,GODAT ,BDDAT

MOV

#FRMTS = (SP)

BDDAT, = (SP)

GDDAT .- (SP)

TRAP
ADD

BGNMSG

JSR
ENDMSG

RS,CKERLT

TRAP

CSMSG

sCHECK ERROR LIMIT

ERR3

010504
010540

PC,LINE]
PC,LINE2

002362

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

#FRHTS TMPO,BDDAT ,GDDAT

TMPO, = (SP)
NFRMTS,;(SP)

000004

000012

CSPNTB
#2,SP

013034

R5,CKERLY

b
b

JSR
PRINTB

MOV
MOV

OO0O000O0

OO0

sCHECK ERROR LIMIT

ERR?

MOV
MoV

L10002:

28 010252

WA
(%2 V]

ERR1

104423

sCHECK ERROR LIMIT

L10003:

sCHECK ERROR LIMIT

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

SEQ 0082

GLOBAL ERRORS

010322

36
37 01032¢
38
39 010324
40 010330
41 010334

BGNMSG

JSR
JSR

PC.LINEY
PC.LINE2

MOV
MOV
Mov
MOV
MOV
TRAP

= (SP)
BDDAT,
GDDA) . =(SP)

JSR

R5,CKERLT

TRAP

CSMSG

AFRMT4,GDDAT ,BDDAT

crnnri.;(sp)

ADD

000010
013034
L10004:

104423

CSMSG

ERR4

PRINTB

42
43 010364
44 010370

010370
45
46 010372
47

TRAP

104423

BGNMSG

ENDMSG

ERRS

4«8 010372

004737

010504

JSR

PC,LINE?

50 010376
51 010402
010402
010402

004537

013034

JSR
ENDMSG

R5,CKERLT

TRAP

CSMSG

L10005:

104423

BGNMSG

53 010404

004737

18:

JSR
JSR

PC.LINE1

PRINT8B

#FRMT99
#FRMT99,=-(SP)

MOV
MOV
MOV

PC,LINE3
PC,LINE2

#1,-(SP}
SP,R0

#4,SP

000004
013034

R5,CKERLT

L10006:

;CHECK ERROR LIMIT

ERR6

JSR

011172
000001

sCHECK ERROR LIMIT

CSMSG

BGNMSG

004737

010504

PC,LINE1

013746

002364
011245
000002

BDDAT,~(SP)
#FRNTé.;(SP)

062706

000006

#FRMT6 ,BDDAT

sCHECK ERROR LIMIT

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

GLOBAL ERRORS

68
69 010476
70

004537

013034

71 010502

JSR

L10007:

002271

ENDMSG
TRAP

CSMSG

PRINTB

#FRMT1,RLCS,<B,DRIVE+1>

CLR
BIS8

000010

746

002274

746

000006

706

000016

746

002300

12746

000005

62706

000014

13746

002310

I4
246

00000€

b ad

b b e

b e

omh e

(elelelelelelelelelelolele
)

000003

062706

706

000016

746
746
46

002314
004615
002312

000005

—

elelelelal)

—d ol

b ed and cd

R5,CKERLT

PRINTB
MoV
MoV
MOV
MoV
MoV
MoV
MOV
MOV
TRAP
ADD

PRINTB

MOV
MoV
MOV
MOV
MOV
MoV
MoV
TRAP
ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MoV
MoV

=(SP)

DRIVE+1,(SP)
RLCS,=(SP)
#FRHT1,;(SP)

#16,SP

,B.MP
B.DA,
#ARLMP
#FRMT2A ,#ARLDA,
~(SP)
B.MP,
= (SP)
#ARLMP
(SP)
B8.DA,~
A,
= (SP)
#ARLD
SFERMT2A

#5,-(SP$
SP.RO
CSPNTB

#14,SP
OFRHTZ.gsEREG.#ARLCS.E.CS.lARLBA.E.BA

#16,SP
AFRMT2B,#ARLDA,E.DA, #ARLMP,E .MP

E.MP.~($P)

= (SP)
SARLMP,
E.DA,=~(SP)

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

SEQ@ 0083

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

SEQ 0084

GLOBAL ERRORS

000014

000006

MOV
MoV
MoV
MOV

g Brng Py S

g fug ung Brneg $mg B

g B

MNIRNINNP INNNN
N NN NN

-AS

FRMTZ2:
FRMT2A:
FRMT2B:
FRMT3:
:
FRMTG
FRMT99:
FRMTS:
FRMT6:
FRMT11:
FRMT12:
FRMT13:
FRMT14:
FRMT1S:

wmunn w

FRMT1:

(7]

e e Y e
e
s
e
N
T

#6,SP
#FRMT3 ,#EM102
#EM102,-(SP)
#FRMT3,=(SP)
#2,-(SP)

TRAP
ADD
RTS
EIICICIOIOICIOICICIMIOIOO

b b amd b () wd
b e b NI ) = O
(o No Neo Yo RorTe Yo Yo Yo Yo b of Yo

OB
WO WININNONWNS S

mbgsuurg_fi_fi-fl-fi-fi_‘oo

NV
SO
NN WW=0O0N

o el e b cnd e b and b
—d amd and cmd ad and o ad b

b b
b b

b wd b
b b b

[=lolelelelelele
o) o000

007770
011132
000002

#FRMT3 ,#EM101
#EM101,-(SP)

#FRMT3,-(SP)

PRINTB

000006

/XACONTROLLER: X06%A
/XNXTXTX06XT206/
/XTX06X7%06/
/XTX06XTX06%/
/AINXT/

DRIVE: %01/

IZN}AEXP'D: X06%A REC'D: %06/
/IN

/INXALAST: XO6XA PRES: X06XA EXP'D: X06IN/
/INXAAT PROCESSOR LEVEL XO06IN/
/YAERROR LIMIT EXCEEDED-DROPPEDXN/
/INXADRIVE DID NOT RECOVER FROM POWER FAILUPCZIN/
/INXTXA = WILL NOT TESTXIN/
/XNXADRIVE DROPPED - NO CONTROLLERIN/

/INYADRIVE DROPPED - DID NOT RESPOND WITH "READY'IN/

o
(=]

ENDMOD

BGNMOD

o
(=]
&~

purd

OO0O0NO0OO

OONOWVMSWN=N

012746

PRINT8B

.EVEN

b o

b wmd amd o

NINNININLIN N wd
[« QT FVI,V OV

D b o e o

b b b

b cd b cd b b b b =lole]

b b b o =lele)
o e bb

0 ©0O 00’008
S W=

-l amd cad cond wmd and

83 010776

#14,SP

MOV
MoV
MOV
MOV
TRAP
ADD

007723
011132
000002

LINE3:

>»>
>>

82 01075%

g? 010750

SP,R0
C$SPNTB

MoV
TRAP
ADD
RTS

€10600

010740

000006

BGNHW

HPTCODE

.WORD
-WORD

.WORD
-WORD
.WORD

.WORD
.WORD

000001
ENDHW

10010
74400

60
40

;DEFAULT HARDWARE TABLE
;CSR

*VECTOR
*PRIORITY
:RLOT1 = 1

‘DRIVE (BITS 8,9.10)

RL1T = 1, RLVi1=0

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

SEQ 0085

GLOBAL ERRORS

L10010:

011622

ENDMOD
BGNMOD

011622

D
b nd

000003

b nd

000000
000012
000000

BGNSW
DROP:
MERLMT:
T.S1Z2::

SPTCODE
.WORD

L10011-L$SW/2

.WORD
.WORD
-WORD

0
10.
0

ENDSW

b
d ) b d

L10011:
ENDMOD

—

b e
b =D nd e
b
d
i
&H
o

b b e
o
(=]
b
b ed b e
e e
b o e cd e e

b ced

b wmd

b cmb emd

b b

b wmd

SNNNNNNNNNNNSNYN
S WNNWNNINININ)
=b b —b b
OORHNIORRSNOONSTNO

b b wnd b and

b b wd b b b

b b

VIS HH
NVVNOOOO&O
QOO
NNNY
SO
NNOON g NOONSNOONSN

oo o

021350

DISPATCH

DSPCODE
WORD
. 40RD
-WORD
-WORD
.WORD
-WORD
-WORD
-WORD
.WORD
+WORD
.WORD
+WORD
+WORD
.WORD
-WORD
.WORD
-WORD
-WORD
.WORD
-WORD
.WORD
-WORD
-WORD
.WORD
.WORD
-WORD
-WORD
.WORD
-WORD
-WORD
-WORD
«WORD
-WORD
.WORD
+WORD
-WORD

NN
=2 OO0 NN
NN =2 O

0054

b O

OO0 OOOOOOOOOOO0OOOOOO0O0O00O0O

BGNMOD

e e e e
e e e
L e
PONINININ)
b od wd b b b cnd b = b

SN
WWWW%W
WINLNND
=00
SUNWN=200
oOo~NONW

27
28 011622

sDEFAULT SOFTWARE TABLE

€z

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

GLOBAL ERRORS

FaZ
ol ok 2
(¢ . aNTo
JV, ]

—_ b

011742
011744
011746
011750
011752
011754
011756
011760
011762

011764

021414
021540
022156
022310
022452
022612
022764
023412

024132

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

.WORD
.WORD
.WORD

ENDMOD

136
737
738
T39
T40
T41
T42
T43
T&é

SEQ 0086

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

SEQ 0087

GLOBAL ERRORS
1

3 011764

4 011764
S 011766
6 011770
g 011772

.SBTTL

LOAD PROTECTION TABLE

.WORD
.WORD
.WORD

0
=1
10.

.SBTTL
BGNMOD

INITIALIZATION CODE
INITCODE

BGNPROT

000000
177777
000012

ENDPROT

9
}? 011772

BGNINIT

}% 011772
14 011772

011772
15 011774
011774

012000
16 012002
012002

BRESET

012700
104447
133004

000034

013737
000475

002012

012014
012020
20 012022
012022
21 012024
012024

012700
104447

000037

23 012034
24 012040
25 012044
26 012046
27 012050
gg 012052

012700
012701
005020
005301
001375
000407

012030
22 012032
012032

30 012054
012054

012060
31 012062
3 012062

33 012064

34 012070
35 012072
36 012100

TRAP
READEF
MoV

104433

17 012004
18 012012

19 012014

002242

103010

012700
104447

RO
#EF .RESTART
MOV
CSREFG
TRAP
BCOMPLETE START1
START1
BCS
READEF #EF.START
RO
NEF . START
Mov

000040

001011
012737
013737

003074
000100

CONTINUE:
Mov

000036

005237
062737
005337

002246
000002
002244

013700
104442

002246

sNO,BRANCH

sYES, SET POWER FLAG
16O TO CONTINUE POINT

;RESTART?

READEF #EF .CONTINUE
RO
#EF . CONTINUE

CSREFG
TRAP
BCOMPLETE
CONT
8CS

NXT:

00224¢
177777
002012

;POWER UP2222?

sSTART?2?

CSREFG
TRAP
CONTINUE
BNCOMPLETE
CONTINUE
BCC
RO
#ERCOUNT
START1: MOV
#64. ,R1
MoV
(RO)+
CLR
1$:
R1
DEC
1$
BNE
START
BR

103451

005737

CONT

NOPWR: READEF W#EF .RESTART

103404

012700
104447

CSRESEY
#EF .PWR
#EF .PWR,RO

CSREFG
TRAP
NOPWR
BNCOMPLETE
NOPWR
BCC
LSUNIT,PWRFLG
MoV

002246
002244

START:

gg 012106 012737 003072 003072
39 012114
40 012120
41 012126
42 012132
012132
012136

;P-TABLE OFFSET OF CSR
:NOT A MASS-BUS DRIVE
;P-TABLE OFFSET OF DRIVE

003072

XXX:

REST:

CONT

uur

MoV

#ERCOUNT-Z ERPOINT

BNE
MOV
MoV

INC
ADD
DEC
GPHARD
Mov
TRAP

s CONTINUE?22?

XXX
-1, UNITST
LSUNIT,U

TST
l? ERPOINT
uut
UNITST,RO
UNITST RO
CSGPHRD

;DONE ALL UUT'S

:NO

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

SEQ 0088

INITIALIZATION CODE

43 012140
012140

44 012142
45 012146

103406

005737
001746

BCOMPLETE
1$
BCS

002242

2; 01215¢

000743

002242

49 012156
50 012162
51 012166
52 012172
53 012176

012037
012037
012037
012037
012037

002262
002266
002264
002406
002270

1$:

56 012206

013700

002262

CONT:

§§ 012202

012037

010037
062700
010037
062700
010037
062700
010037

002250
000002
002252
000002
002254
000002
002256

66 012256
gg 012262

062700
010037

000002
002260

69 012266

005737

002242

64 012246 022737 000002
65 012254 001004

;? 012272

001476

PWRFLG
NXT

:POWER FLAG T0 0
*YES, DONT DEC IT

NXT

sGET NEXT ONE

002410

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

(RO)+.T.CNTLR

;GET CONTROLLER TYPE

MOV

BCSR,RO

:BUILD LOGICAL ADDRESSES OF REGISTERS

CMP
BNE

#2.T.CNTLR
1$

;IF THIS IS AN RLV12, BUILD LOGICAL
*ADDRESS FOR BUS ADDRESS EXTENSION.

PWRFLG

sRECENT POWER FAILURE?

MOV
ADD
MOV
ADD
MOV
ADD
MOV

ADD
MOV

1$:

PWRFLG

MOV
MOV
MOV
MOV
MOV

MOV

002410

57 012212
58 012216
59 012222
60 012226
61 012232
62 012236
63 012242

TST
BEQ
DEC

005337

46 01215C

BEQ

RO,RLCS
#2,R0
RO.RLBA
#2.R0
RO.RLDA
#2.R0
RO,RLMP
#2.R0O
RO.RLBE

END

*NO

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

72
;2

75 012274 012701 000170
76 012300
77 012306
78 012314
79 012322

012777
053777
032777
001042

000200
002270
000001

167742
167734
167726

012737

000050

002414

012332
012336
012340
012344
012346
012352
012354
012360

012727
000000
013727
000000
005367
001375
005367
001367

000001

85 012372

001350

012374

012746

012404
012406

010600
104414

80 012324
81 012332

82 012362 005337
83 012366 001361
84 012370 005301
86 012374

002116
177772

177756

002414

MoV

#120. ,R1

:INITIALIZE WAIT COUNT

MOV
DELAY

#40. ,DLYCNT
1

*INITIALIZE DELAY COUNT
: IMPLEMENT 100-USEC DELAY

MOV
BIS
DRVRDY: BIT
BNE

WAITO:

MOV
WORD
MOV
WORD
DEC
BNE
DEC
BNE

DEC
BNE
DEC
BNE

011344

012400 012746 000001

PRINTB

#200,8RLCS
DRIVE,aRLCS
#ORDY ,aRLCS
BGNTST

#1,(PC)+
O
LSDLY, (PC)+
O
-6(PC)
.<22(PC)
.=20

DLYCNT
WAITO
R1

;DECREMENT DELAY COUNT
*BRANCH IF TIME DELAY NOT EXPIRED
*SIXTY SECONDS GONE BY

#FRMT12

*DROPPING DRIVE - DRIVE DID NOT RECOVER

DRVRDY

MOV

NFRMT12,=(SP)

MOV
TRAP

SP,RO
CSPNTB

MOV

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

M ,-(SPS

:NO, GO BACK

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

SEQ 0089

INITIALIZATION CODE

012410

87
88 012414
89 012420

012426
91 012430
92 012436
93 012444
94 012452

062706

000004

004737

010504

013700
104451
104444

S
o HENNOONNNO

N NN
=2 = O

)

Pver Guur Prur P
PourPuur-gours
- Jaur Qo

N NINNINININININD

o (elelelelalelelels)

83
-

012746
012746
013746
012746
104437
062706
005037

UNITST,RO

DODU

TRAP

UNITST

(C$DODU

sFORCE AN ABORT

CSDCLN

;SETUP DR RST
:GS FUNC
sSELECT DRIVE
sISSUE IT
SWAIT FOR READY

#13,3RLDA

167616

BGNTST: MOV

002270
000200
000200

167576
167570
167562

BIS
BIC
gég

DRIVE,aRLCS
#200,3RLCS
ngO.aRLCS

SETVEC
MOV
MOV
MOV
MOV

BVEC.#INTSRV,#340
#340,-(SP)
#INTSRV,=(SP)
BVEC,~(SP)
#3,-(SP)

ADD
CLR

#10,SP
PFLG

000340
014212
002266
000003

MOV

4$:
END:

TRAP

000010
002324

002324

READBUS

s
L10013:

,
002326

nonuNurNsNRINININNNON

b
—

MOV

;/FROM POWER FAILURE
:GIVE DRIVE INFO
sTELL SUPERVISOR TO DROP IT

#204,aRLCS

CSSVEC

TRAP
CSRDBU
BNCOMPLETE
18
BCC

INC

sCLR PROCESSOR FLAG
;. Q-BUS

PFLG

;NO, Q-BUS THEN

ENDINIT
TRAP

CSINIT

ENDMOD

(=]

PC,LINE1

000013

104411

.SBTTL AUTO DROP SECTION
BGNAUTO
TRPFLG
CLR

SETVEC

000010

ADD

#10,SP

MOV
MOV
MOV

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

000010

ADD

#10,SP

005777

167430

013700
104436

002340

ST
CLRVEC

aRLCS
ERRVEC

TRAP

CSCVEC

erd wd

D e

#340,=(SP)
,
= (SP)
NTRPHAN
ERRVEC,=(SP)
#3,~(SP)

000340

e e

014204
002340
000003

MOV
EMT

MOV

;SET UF VECTOR TO DETECT NON-EXISTENT

ERRVEC,#TRPHAN,#340

MOV
MOV
MOV
MOV

TRAP

:CLEAR TRAP FLAG
:/CONTROLLER

000340
014204
002340
000003

e e
— od wed

([eteleleBN

VPV
- OO0[+ BNTe

b
b

b b b b vd b

b od cd wnd v
—d

nM) =

JSR

TRAP

104407
103002
005237

#4,SP

DOCLN

012534

elelelelelelelelelelelele]

e e

=200V~

-t = OOOOOO

b cacd

102 012532
103 012532
012532
012532

002246

000204 167604

001774

100

6$:

ADD

CSSVEC

- (SP)
#3460,
(SSVEC

ERRVEC,RO

sACCESS CONTROLLER
sRELEASE VECTOR

SEQ 0090

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

122 012626

013700

125 012640

001416

002326

012642

012746

011456

012654
012656

104414
062706

0064737

000004

010504

012672

013700
104451

002246

131 012676
132 012704
133 012712
134 012720

012777
053777
032777
001015

000200
002270
000001

137 012722
012722

012746

012732
012734
012736

012746

126 012642

MOV

002340

104036
005737

123 012632
124 012634

EMT
TST

BEQ

012752
140 012754
141 012756
012754
142 012754

NFRMT14,=(SP)

#1,-(SPS
SP.RO

JSR
DODU
MOV

PC.LINE1
UNITST
UNITST,ROC

CSPNTB
#4,SP

‘ELSE, PRINT MSG. '‘DRIVE DROPPED - NO CONTROLLER

:PROVIDE DRIVE INFORMATION
‘DO DROP UNIT ON DRIVE

b1 3

(C$DODU

SEXIT

MOV
BIS
BIT
BNE

#200,3RLCS
DRIVE,3RLCS
#1,3RLCS
28

:SET CONTROLLER READY
*SELECT DRIVE
‘1S DRIVE READY?
SYES = EXIT

011520

PRINTB
MOV

#FRMT1S5
AFRMT15,~(SP)

010600
104414
062706

000004

MOV
TRAP
ADD

013700

002246

MOV

TRAP

167344
167336
167330

004737

18:

10441

010504

28:
ENDAUTO
£10014:

104461

BGNMOD

}22 012756

MOV

#1,-(SP)

JSR
DODU

PC.LINE1
UNITST

TRAP
TRAP

SP.RO
[$ANTR
#4,SP

UNITST,RO

:PROVIDE DRIVE INFORMATION
‘DO DROF UNIT ON DRIVE

CSAUTO

CLNCODE
BGNCLN

147 012756
012756
148 012762

012700
104441

00034C

SETPRI
MOV
TRAP

#PRIO?
#PRI07,RO
($SPRI

149 012764
}gg 012772

032777
001774

000200

167256

BIT
BEQ

#CRDY,aRLCS
1$

}gg 012774

042777

000100

167246

BIC

#INTEN,3RLCS

013002
155 013006

013700
104436

002266

MOV
TRAP

BVEC RO
C$CVEC

158 013010

005737

002242

PWRFLG

18:

:ELSE, PRINT MSG. 'DRIVE DROPPED - DID NOT
*/RESPOND WITH ‘READY''

C$DODU

}22 012756

154 013002

:DID 1T TRAP?
;NO = CHECK ITS DRIVE

012726 012746 000001

138 012742
139 012746

MOV
MOV

TRAP
ADD

}gg 012676 000427

135
136

CSCVEC
TRPFLG

PRINTB A#FRMT14

MOV

012646 012746 000001
012652 010600
127 012662
128 012666
012666

ERRVEC.RO

CLRVEC

BVEC

:TREAT POWER FAILURE

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

OMJ‘WN—‘OO@N&U\

oo
O
SO

005337

28382

b
ed md
o
b e
b
ed

1 013016

~ SNNNNNNOONO

b ad e
b
b wd
b
b
e
b e
el

001402

3-a-b—h.a
00000

—

59 013014

G0 0000 0D CO00Q0
N N~
OV
NN = O 000~

e
b omd mad b

AUTO DROP SECTION

2s:

013022

002242

104412

L10015:

013024

BGNMOD

013024

013026
013026
013026

000240

104453

L10016:

013030

BGNMOD

013030

013034

PWRFLG

ENDCLN
TRAP

CSCLEAN

DRPCODE

NOP

ENDMOD

013032
013032
013032

DEC

BGNDU

013030

ENDMOD

013024

8tQ

ENDDU
TRAP

cspu

ADDCODE

BGNAU

000240

104452

NOP

L10017:
ENDMOD

ENDAU
TRAP

CSAU

SEQ 0091

€2

SEQ@ 0092

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 6
AUTO CROP SECTION

2
3
g 013034
6

7 013034

013034

8 013035

013036

9 013040

10 013044
11 013046
12 013052
}z 013060
15 013062
013062
013066

013072
013074
013076
16 013102
17 013106
013106
013112
18 013114
013114
19 013116

%? 013116

104420

103427

005737

001424
(05277
027737
002416

011624
170020
170014

012746
012746
010600
104417
062706
004737

011303
000001

013700
104451

002246

011626

44 013120
45 013126
46 013132
47 013134

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

CKERLT: INLOOP
CSINLP
TRAP
99%
BCOMPLETE
99%
BCS
DROP
TST
99$
8EQ
9ERPOINT
INC
gsgPOINT.MERLHT
CMP

WFRMT11
#FRMT11,=(SP)

PIINTF
MOV

#1,-(SPS
SP.R0

MOV
MOV

CSPNTF

TRAP

000004
010504

ADD
JSR
DODU
MOV
TRAP

#4,SP
PC,LINEY
UNITST
UNITST,RO
C$DODU

TRAP

CSDCLN

RTS

DOCLN

104444

99%:

000205

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

.SBTTL

;DROP THE UNIT

ROUTINE TO CHECK FOR CONTROLLER ERRORS

CARRRARRARR AR

R AR

RN AR

ARRARNR AR AANRARRAARARRNRATRRNRER

:*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
s*ACCORDINGLY.
IT WILL MERGE THE ERROR PRINTOUT WITH THE TEST
tERROR MESSAGE.

*EXAMPLE

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

HNF

I
%

:*ROUTINE USES RO,R1 AND PICKS HEADER FROM R3
<%

o¥

< W

RS,CHERR

CALL

JSR

(LR
BIT
BNE

#176000,E.CS
1998

e
13

005037
032737
001001
000205

002304

176000

002306

CHERR:

RTS

DERFLG

;sCLEAR OUT DRIVE ERROR FLAG
;ANY ERRORS SET
:IF YES, INVESTIGATE

:NO, EXIT

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

SEQ 0093

012701

002412

002306
001777
140000

—d amd

b cd

002412

b amd

OO00O0O0O0OOO0C

023727

OO0OL.O

OV WVVIAIVIWIWNG -8
OV NS
W= OO0

ROUTINE TO CHECK FOR CONTROLLER ERRORS

000004
000002

199%:
98$:

2$:

000205

1$:

007770
002306

MoV
TST
BPL

JSR

0136¢€4

040000

CMP
BLT
BR
CMP
BEQ
MOV
8IC
CMP
BNE
RTS

002000

elolelaleBNolelalelelalelelele]

b
b
b and
b
b

013664

<
O

013664

b
b md
b oD
b d e

CONOWVISS
NN =
-t

013664

105011

#EM102,R1

4$:

002306

*NON-EXISTENT MEMORY ERROR?

#OPI,E.CS

11S OPI SET?

RS,FIX

:gg; "OPI'* INTO STRING

‘Y.E,i,:,.-"m "NXM'* INTO STRING

*NO, GO CHECK BITS 11 & 12

#BIT11,E.CS

*HEADERCRC ERROR?

#81T12,E.CS

*HEADER NOT FOUND?

002306

6$:

¥BITi1,E.CS
7%
R5,FIX

002306

7%:

#81T12,E.CS
8$

RS,FIX

RESTMS:

*NO, CONTINUE
*SET DRV ERROR FLAG
:x%gv.pur "DRV'' INTO STRING
*NO, CONTINUE

gg 1Ix

8s:

*1T'S NOT SOMETHING IS WRONG
;1ggfipgpr YICOMP'* IN STRING

5%
RS, FIX

5%:

;GET START OF STRING

*DRIVE ERROR SET?

99§
RS,FIX

002306

*NO, GO SERVICE
SYES, EXIT

E.CS

RS,FIX

002306

:
‘DRIVE ERROR ALONE?

1S COMPOSITE ERROR SET?(BETTER BE)

#NXM,E.CS

INO, GO CHECK HEADER NOT FOUND
.-.G.gcgtcj.r. "HCRC'* IN STRING

INO, GO PUT ‘‘CRLF'* IN STRING
:PUT "HNFTM IN STRING
: HNF*®

sPUT ''CRLF'' IN STRING
;DATA CRC ERROR?
:NO, GO CHECK DATA LATE
:fig{K.PCK IN STRING

*DATA LATE ERROR?

‘NO.

GO PUT IN ‘‘CRLF'*

IN STRING
‘PUf "DLTTM

:.DLT..

RS.FIX
RS.FIX
C

0
(R1)

300.,LF.ERR6
CSERDF

104455

010404

1$
RS

3s:

01366¢

010000

#1777 RO
#140000,R0

002306

013664

004000

;GET E.CS

3s
DERFLG
RS, FIX

013664

010000

E.CS,RO

#DERR,E.CS

013664

004000

*YES SERVICE ERROR

{gpruc.#uncux

99$:

013664

;FUNCTION-NOP, RESET, GETSTATUS
*YES, GO CHECK IF ONLY DRIVE ERROR

002306

002304
013664

020000

TMPFNC,#GSTAT
98$

-WORD

ERR6

:HEADER FROM TEST
‘PUT TERMINATOR IN

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

SEQ 0094

ROUTINE TO CHECK FOR CONTROLLER ERRORS

RTS

000205

.SBTTL

;* ROUTINE TO LOAD RLCS WITH F'NCTION TO BE PERFORMED
RS5,LDFUNC
JSR
CALL:
*
.WORD
:BITS TO BE LOADED, FUNCTION

el
OO (eYeololelolelelelalalalalolelalelalelelel=talalalal—
oo QG Guur G Ghour Guur Gaer Gour Porar P Gour Puur P Prur Paur Paur Pouur G- Pory

013420
013424
013430
013432

002332
002304

LDFUNC: MOV

002272
000013

MoV
MOV
MOV

TST
BEQ

8IS

(=4
o

012637

99%:

000200
177661

002332
013636
013636
002412

98$%:

MoV
MOV

BIT
BEQ
MOV

8IC

MOV

BIC

MOV
MOV

ASR

013636

"
-t

b e

013636

002332

2$:

DEC
BNE

b e

000100

~
N

013402

b e

(R5)+,LDCSR

DERFLG

13632

000200

3s:

002332
002332
166430

4$:

166416

5%:

#GSTAT,B.CS
DRIVE.B.CS

B.CS,aRLCS
(SP)+,B.CS

#200,aRLCS
998
R3,~(SP)

#177661,LDCSR
LDCSR, FNDFNC
#INTEN, FNDFNC
FNDFNC, TMPFNC
#HDRLST.R3
FNDFNC
NIV

ngFNC

#INTEN,LDCSR

.WORD

000000

FNDFNC:

004126

HDRLST: NOPMES
NOPINT
WCKMES
WCKINT
OKHDR:
gSTHES

004444

SEKINT

:SAVE R3
sCLEAR ALL BUT FUNC & INTR EN
sSAVE FUNCTION
sONLY FUNCTION
:GET HEADER LIST
sALIGN TO RIGHT

:RIMP R RY 4

JFOUND IT
:NO,KEEP LOOKING

:YES,DO WE WANT FLAG OR INTR

38
(R3)+
(R3) ,R3
R3,RESTMS
DRIVE ,LDCSR
#200,LDCSR
LDCSR,aRLCS
RS ,BEFORE

JFLAG BRANCH
:INTR POINT TO THAT ONE
JSET HEADER
JSET UP HEADER
JSELECT DRIVE
;CONTROLLER READY

(SP)+,R3
RS

;RESTORE R3

#200.,3RLCS

000205

;GET BITS TO LOAD

98$
B.CS,~(SP)
#13,3kLDA

-]
(o

15
16

sAND INTR ENABLE ONLY

OOODOOOO0O0

LOAD RLCS

Y 2222222222222 332223 2222322332222 2232222203322 dttddtdildds)

1
1

sEXIT ROUTINE

102 013416
103
104
105
106
0
0
0

% »

101

EXIT

SEQ 0095

LOAD RLCS

RHDMES
RHDINT

D D

OO0 00 \0 OO O 00 00 0o 00 00 0o 00 00 OO 00 ~ NNNNNNNNNOCCOROROCONNON
WO
b o~ OWVNEWN =20 VBN NS WA= O V00NN S NN=OVONOVNS

158 013660
9 013662

;ttttttttfi*t*ttt*fit*tttitttttittfitttttttttitttttittttttttit't.t'

b o

:*ROUTINE TO MOVE ASCII STRINGS

:*USES REGISTERS R1 - WHERE STRING IS BEING BUILT

013664
013666
013670
013672
013674

JSR

FIX:
18:

Mov
Movs
BNE

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

.WORD

=(R1)
RS

;ADDRESS OF STRING TO MOVE
;GET ADDRESS AND MOVE RETURN
:GET BYTE AND UPDATE
sWATCH 0 BYTE TERMINATOR

:BACK UP OVER ZERO BYTE
SEXIT

;1.LOAD REGISTERS BEFORE OPERATION
R5 ,BEFORE
sCALL: JSR
017737
017737
017737
017737
022737
001003
017737
013744

166346

000002
166316

002272
002274
002276
002300
002410

BEFORE: MOV

aRLCS,B.CS

;READ CS

CMP

#2,T.CNTLR

;IF THE CONTOLLER IS AN RLV12

002302

Mov

aRLBE,B.BE

RTS

MoV
MoV
MOV

BNE
1$:

000205

SRLBA ,B.BA
aRLDA,B.DA
SRLMP,B.MP

sREAD BA
sREAD DA
sREAD MP

;READ BE

;LOAD REGISTERS AT ERROR
R5 ,AFTER
sCALL: JSR

e be

b b caed b o i md b e ed b D e e

CALL

TST8
FTS

AFTER:

e o

166276
166272
166266
166262
166254
166246

166232

%00 014022

202 014030

000205

MOV
MOV
MoV

aRLCS,E.CS
aRLBA,E.BA
aRLDA ,E.DA

sREAD CS
sREAD BA
sREAD DA

MOV
MOV

SRLMP E .MP1
SRLMP E .MP2

JREAD MP SECOND WORD IN SILO
sREAD MP THIRD WORD IN SILO

MOV

aRLMP E . M2

CMP

#2,T.CNTLR

1$:

RTS

.SBTTL

ROUTINE TO CALCULATE CRC

000002

£
o
N
(=

purd

b b d e
1

RS, FIX

b d

d b

d b =D e

002322

BNE
MoV

1$
aRLBE ,E.BE

sREAD MP

sIF THE CONTROLLER IS AN RLV12
cREAD BE

sROUTINE WILL CALCULATE A CRC-16 CRC ON A WORD 0 F

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

JSR

WORD

~WORD

RS5,SIMBCC

:NUMBER OF BITS (1-16)

sDATA FOR CRC CALCULATION

sPREVIOUS OR STARTING CRC

[ Xenl

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

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

SEQ 0096

:SAVE RO
: SAVE R1

——
) o

MOV
MOV
MoV

(R5)+,TEMP?
(RS)+,TEMP3
(R5)+,TEMPS

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

CLR

BCCFBK

ol o

N
o

S
o

(olele)

RO,=(SP)
R1,~(SP)

SIMBCC: MOV

18:

BEQ

cand

002342
002336

b s

MOV
ROR
ADC

BIT

000001

2s:

MOV

013737

R2.-(SP)

TEMP4 RO
TEMP3
RO
#1.RO
2$
B8CCFBK
XSOLY.RO
R

RO,BCCFBK

002342

0
247
248 014166
249
250 014174
251 014176
252 014200
253
254 014202
255
256
257
258
259
260
261
262 014204
263 0146210
264
265 014212
266
267 014212
268

(SHOULD BE ZEROED FOR START)

MOV
MOV

CONONNES
NN — OV

ROUTINE USES RO,R1,R2

NN =2O VO~

NN AININI NN NINININININI
N NINI NI AN NI N
== == b ok b
NN
N NN NNAR NINN NININ

ROUTINE TO CALCULATE CRC

TEMP4

002352
002342
002352

BCCFBK.?O

002342

BSCF%KR2

002336
002352
002346

002352

002344

:SAVE R2

*GET PREVIOUS CRC

sROTATE NEW DATA
MERGS NEW WITH OLD
:BIT 0 SET
IF NOT CONTINUE

.GET CRC POLYNOMIAL (CRC-16)
s COMPLIMENT POLYNOMIAL
;CLEAR CARRY

XPOLY.TEHP4

RO, TEMPS
TEMP2
18
TEMP4,CALBCC

012602
012601
012600

(SP)+,R2
(SP)+,R1
(SP)+,R0O

sRESTORE REGISTERS FROM STACK

000205

sRETURN

sROUTINE TO SET FLAG IF TRAP OCCURRED

:"'TRPHAN'"' IS IN LOCATION &.
005237
000002

002326

INC
RTI

TRPFLG

s INDICATE TRAP
sRETURN

INTSRV: INC

INTFLG

sINDICATE INTERRUPT

TRPHAN:

BGNSRV

005237

269 814216

002330

ENDSRYV

000002

L10020:

RTI

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

SEQ 0097

ROUTINE TO CALCULATE CRC
270

:ROUTINE TO UAIT ron ORIVE READY

WTDRDY: MOV

272 014220 010146

014222 012701 003720
273
274 014226 022777 G00001 166014 18:
275 014234
276 014236
014236
014242
014244
014250
014252

014256
014260
014264

277 014266
%;g 014270
280 014272

007022

012727
000000
013727
000000
005367
001375
005367
001367
005301
001356

014272
014274
014276
281 014300

104455
000310
004712
010372

282 014302
%gz 014304

012601
000205

285
286 014306

010146

000001

002116
177772
177756

017500

014330
014332
014336
014340
014344
014346
014352
291 014354
ggg 014356

012727
000000
013727
000000
005367
001375
005367
001367
005301
001356

000001

%3§ 014360

004537

013746

296 014364

032777
001025

0146364
014366
014370
297 014372

104455
000144
004665
010404

533 014374

000402

300 014376
301 014402
302 014404

004537
012601
000205

LR
czboo
#DRDY .3RLCS

BNE
DEC
BNE

=4
222(PC)
.=20
R1

BNE
DELAY
MOV
WORD
MOV
.WORD
DEC

ERRDF

287 014310 012701
288 014314
269 014322
290 014324
014324

MOV
BIT

DEC
BNE

2%:

000200

28
1
#,(PC)+
O
LSDLY, (PC)+
0
-6(PC)

:SAVE R1

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

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

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

TRAP
.WORD
.WORD
"WORD

CSERDF
200

MOV
RTS

(SP)+,R1
RS

DRTIM

ERRS

;RESTORE
CEXIT

:ROUTINE TO WAIT FOR CONTROLLER READY
WTCRDY: MOV
R1,=-(SP)
;SAVE
R

165726

1S:

002116
177772

MOV

#8000. ,R1

WORD
MOV
LWORD
DEC

O
LSDLY, (PC)+
O
-6(PC)

8IT
BNE
DELAY
MOV

BNE
DEC

177756

013746

(SP)

28:
38:

#CRDY ,3RLCS
28
1
M, (PC)+

SWAIT soo MILLISECONCS
*CONTROLLER READY
SYES, EXIT
JWAIT A WHILE

BNE
DEC
BNE

=4
222(PC)
.20
R1
18

SCHECK IF TIME UP
'NO GO BACK

JSR

RS,AFTER

:GET REGISTERS

ERRDF

100.,CRTIM,ERR6 ;CONTROLLER TIMED OUT

TRAP
.WORD
.WORD
.WORD

CSERDF
100
CRTIM
ERRG

SEXIT

JSR
MOV
RTS

RS,AFTER
(SP)+,R1
R5

;GET REGISTERS

SEXIT

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

ROUTINE TO CALCULATE CRC
303

304 014406
305
306

ENDMOD

SEQ 0098

g?g;gf

014406
014406

SEQ@ 0099

#«TEST 1#+ - RLCS ADDRESSABILITY

JSBTTL

savaxSTART OF TESTeane

IERERRRRNRRRAR AR

AT NARARNAR AR AR A E AR

:TEST 10 SEE IF WE CAN ADDRESS THE CONTROL

VO~NOWN

13:58:41 PAGE ;
30-NOV-81
V04.00
MACRO
1
TST
CTLR
KL31/RLVIT
CZRLGCO
2 TEST 1++ = RLCS ADDRESSABILITY

:AND SIATUS REGISTER.
;THE ERROR AND ABORT.

IF WE TRAP WE WILL REPORT
AFTER THIS TEST WE ONLY KNOW

P IRAR

ARARARAN

5;23; WE CAN ADDRESS THE REGISTER.

AANR AR

R AR RRRARARRAA RN TRER AR NS

WN=O

R RRNRRNAAA AR

1$:

CLR

TRPFLG

CLEAR TRAP OCCURANCE

005037

002326

412
416

012746
012746

000340
014204

014426

012746

000003

MoV
MOV

1 014434

062706

000010

ADD

#10,SP

}g 014440

005777

165604

TST

aRLCS

14444
4450
1 4452
14456
14460

013700
104436
005737
001407
013737

002340

MOV

ERRVEC RO

002326

TST
BEQ
MOV

TRPFLG
3s
RLCS,GDDAT

;TRAP OCCURRED???
:NO, IKAY PROCEED
:SET UP ERROR DATA

0146466
014470
014472
0144746
22 014476
014476
23 014500
014500
014500
24
25
26
27
28 014502
29
30
31 014502

104454
000000
004740
010176

ERRSF

0.,EM1,ERR1

:BUS TIMEOUT IN ADDRESSING RLCS

.WORD
.WORD
.WORD
CKLOOP

0
EM1
ERR1

—d

406

002250

MOV

TRAP

ENDTST

L10021:

104401

.SBTTL

;ADDRESS RLCS

JRELEASE TRAP VECTOR

ERRVEC
CSCVEC

CSERSF

TRAP

CSCLP1

TRAP

CSETST

JCHECK IF /FL:LOE IS SET
JxxxxEND OF TESTxnne

«*TEST 2%+ - RLBA ADDRESSABILITY

;axaaSTART OF TESTxwxs

BGNTST
STARS

SRR

JSET TO CATCH TRAP

CSSVEC

CLRVEC

3s:

104406

#340, °(SP

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

TRAP

002362

ERRVEC,#TRPHAN, 5340

QTRPHAN.°(SP)

Mov

TRAP

RN RN

RRE

A AR

AR AR

:TEST TO SEE IF WE CAN ADDRESS THE BUS ADDRESS

32
33
34
35
36 014502

38 014502

SETVEC

2s:

:RECISTER.

:\ND ABORT.

TEANRE AR

ARRCRRNE

IF WE TRAP WE WILL REPORT THE ERROR
AFTER THIS TEST WE ONLY KNOW THAT

SUE gAN ADDRESS THE REGISTER.

ttttttttttttfittttttfitt'ttttttttttttttttttfittttttitttttttti..'tt

005037

002326

18:

CLR

TRPFLG

;CLEAR TRAP OCCURANCE

RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE ’-1
CZRLGCO
++TEST 2++ - RLBA ADDRESSABILITY
oo

39 014506

000340

4534

165512

000010

Al
(1)

013700
104436
005737
001407
013737

002340

002252

50
51
52

002362

004765
010176

38:

104406

ENDTST
L10022:

104401

.SBTTL

SEQ@ 0100

,
#340
ERRVEC,#TRPHAN

SET TO CATCH TRAP

MOV
MOV
MOV
MOV
TRAP
ADD

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

18T
CLRVEC
MOV

aRLBA
ERRVEC
ERRVEC,RO

sADDRESS RLBA
;RELEASE TRAP VECTOR

TST
BEQ
MoV

TRPFLG
3$
RLBA,GDDAT

s TRAP OCCURRED???
:NO, CONTINUE
;SETUP ERROR DATA

ERRSF

1.,EM2,ERR1

;BUS TIMEOUT IN ADDRESSING RLBA

TRAP
.WORD

104454
000001

53
54 014576
55 014576

CSCVEC

C3ERSF
1

WORD
.WORD

EM2
ERR1

TRAP

CSCLP

TRAP

CSETST

CKLOOP

sCHECK IF /FL:LOE IS SET
saaaxEND OF TESTwwrex

««TEST 3+« - RLDA ADDRESSABILITY

;##%*START OF TESTewwe

g%r‘gr

ttttttttittttttttttttttttttt*titit.ttttttlt*tttttt.itt.tttt'ttt

*TEST T0 SEE IF WE CAN ADDRESS THE DISK ADDRESS
‘REGISTER IF WE TRAP WE WILL REPORT THE ERROR
SAND ABORT. AFTER THIS TEST WE ONLY KNOW THAT

s#ia CAN ADDRESS THE REGISTER.

60 014576
61
62
63 014576
64 014602

SETVEC

TRAP

002326

D
o
D e
b d oh d

)

o0
o

000003

oD e e
&H

i nd v

D o

S
NOM\WNES
W

SES
nN=O

b d e

olalelolelalelolele BlololeleleloloiNeleleleslelo

4 50
4 91
4 51
4 52
4 52
4 53

2s:

:;tttt*tt*ttttttt*!ttttttt*tttittfittttittt*ttittttlttttttttttili.

CLR

TRPFLG

MoV

#340,-(SP)

000003

MOV
MoV

ERRV%gfi;(SP)
#3,-

062706

000010

ADD

#10,SP

005777

165420

013700

002340

TST
CLRVEC

SRLDA
ERRVEC
ERRVEC,RO

sADDRESS RLDA
:RELEASE TRAP VECTOR

TRPFLG
3s

:TRAP OCCURRED???
:NO, CONTINUE

005037

002326

012746

000340

001407

002326

18:

2s:

CLEAR TRAP OCCURANCE

SETVEC ERRVEC,#TRPHAN, #340 sSET TO CATCH TRAP

MOV

TRAP

Mov
TRAP
TST

8EQ

= (SP)
#TRPHAN,
CSSVEC

CSCVEC

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

SEQ 0101

*++TEST 3ev ~ RLDA ADDRESSABILITY

71 014650

72 014656
014656
014660
014662
014664
73 014666
014666
74 0146;8

014670

0313737

002254

002362

104454
000002
005012
010176

MOV

38:

104406

ENDTST

L10023:

104401

.SBTTL

ERRSF
TRAP
.WORD
.WORD
.WORD
CKLOOP

2. ,EM3,ERR1

SSERSF

EM3
ERR1

TRAP

CsCLPT

TRAP

CSETST

80 014672

sSETUP ERROR INFO
sBUS TIMEOUT IN ADDRESSING RLDA

;CHECK IF /FL:LOE IS SET
;axwaEND OF TESTxaxs

*«TEST 4x+ - RLMP ADDRESSABILITY
sxnaxSTART OF TESTwaxe

BGNTST
STARS

79 014672

Y 2122223322222 2233223333233 2323338333232 3 403222232 dRddiadiddddddd

;TEST TO SEE IF WE CAN ADDRESS THE MULTIPURPOSE
;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

;:ttttttttttt*ttttttttttitttttttttitttttx4ttttttt*ttittt*ttkttttt

CLR

88 014672

005037

002326

014676
014702
014706
014712
014716
014720

012746
012746
013746
012746
104437
062706

000340
014204
002340
000003
000010

ADD

91 014724

005777

165326

TST

014730
014734
93 014736
94 014742
gg 014744

013700
104436
005737
001407
013737

002340

MOV
TRAP
TST

89 014676

RLDA,GDDAT

92 014730

97 014752
014752
014754
014756
014760
98 014762
014762
99 014764
014764
014764
100
101
102
103

104454
000003
005037
010176
104406

104401

18:

2s:

MOV
MOV
Mov
MoV

TRAP

CLRVEC

002326

002256

SETVEC

002362

ENDTST

L1002¢4:

.SBTTL

:CLEAR TRAP OCCURANCE

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

;SET UP TO CATCH TRAP

aRLMP
ERRVEC

;ADDRESS RLMP
;RELEASE TRAP VECTOR

ERRVEC,RO
CSCVEC

BEQ

3s
RLMP,GDDAT

TRPFLG

sTRAP OCCURK.D?22?

ERRSF
TRAP
.WORD
.WORD
.WORD

3. ,EM4 ,ERRY
gSERSF

:BUS TIMEOUT IN ADDRESSING RLMP

TRAP

CSCLP

TRAP

CSETST

MOV

3s:

TRPFLG

ERRVEC,#TRPHAN,#340

CKLOOP

EMé
ERR1

sNO, CONT!INUE
:SET UP ERROR INFO

sCHECK IF /FL:LOE IS SET
sanaasEND OF TESTwwew

««TEST S5+« - READ WRITE OF RLCS

CZRLGCO RL11/RLVIT1 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 7-.

SEQ 0102

*+TEST 5++ - READ WRITE OF RLCS

sanawaSTART OF TESTante

BGNTST

182 014766
106

107

108 014766

STARS

109
110
11

:TEST THAT WE CAN WRITE/READ BITS 8,9 AND BITS 6-1
;OF THE CONTROL AND STATUS REGISTER. BITS_15-10 AND 0
;ARE DON'T CARE BITS AT THIS TIME AND 81T 7

113 014766

STARS

3
2320232 ddddddddsl)
a2 i 2338
I R332 2222222222 22222232

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

114
115

}}9 014766
118 014772

119 014772

120 014774

AAAS
ANA
RRARAAANNARA
RRAN
N
RRRA
AN
S IRRRRERR

012703

MoV

002772
BGNSEG

104404

CSTEST:

121 014774
122 015000

011337
052737

002362
000200

002362

124 015014
125 015022
126 015024

032777
001403
052737

040000

165226

123 015006
127 015032
128 0150640

129 015046
}g? 015054
132 015056

015056
015060
015062
015064

133 015066

015066

134 015070
135

136 015072
137 015074
}gg 015100

013777

017737
062737

023737
001404

0151C2

143

140000
165212
000001
002362

104455
000004
(05064
010210

002362
002364
002364
002364

998:

005723
020327
001335

:IF DRIVE ERROR PRESENT
#DERR,3RLCS
sTHEN EXPECT DRIVE AND
998
ERROR
;COMPOSITE
DAT
#ERR!DERR,GD

GDDAT,aRLCS

104401

ENDTST

L10025:

;2?

.SBTTL

}29 015106

BGNTST

sLOAD RLCS (CONTROL AND STATUS)

aRLCS ,BDDAT
#DRDY ,BDDAT

cREAD RLCS BACK
2 IGNORE DRIVE READY

ERRDF

4. ,EM5,ERR2

;WRONG DATA IN RLCS

ESCAPE

SEG

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

MOV
8IC

TRAP
.WORD
.WORD
.WORD

TRAP

GDDAT ,BDDAT
1%
CSERDF
4
EM5
ERR2

CSESCAPE

:DID WE READ WHAT WE LOADED
sYES, THEN BRANCH

10000%-.

(R3)+
R3,#CSEND

CSTEST

;BUMP FOR NEXT PATTERN
:CHECK FOR END
sNOT END, LOAD NEXT PATTERN
sxxxxEND OF SEGMENTwex«

ENDSEG
104405

;GEY PATTERN INTO GDDAT
s INSURE GO IS SET

BIT
BEQ
BIS

TST
CMP
BNE
100008:

sxa%aSTART OF SEGMENTwaw«

(R3) ,GDDAT
#200,GDDAT

.WORD

00307C

sSET UP TABLE POINTER OF PATTERNS

MoV
8IS

CMP
BEQ

18:

104410

C$BSEG

MoV

165234

000012

140 015102

015102
141 015104
015104
142 015104

002362

#CSPAT ,R3

TRAP

CSESEG

TRAP

CSETST

sanxxsEND OF TESTwwex

*«TEST 6*+ - READ WRITE OF RLBA

sanxaSTART OF TESTawxew

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

SEQ 0103

*++TEST 6*+ - READ WRITE OF RLBA

148 015106

STARS

149

151

“TEST THAT WE CAN WRITE/READ BITS 15=1 OF THE
*BUS ADDRESS REGISTER. FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,
:GROWING O AND SHIFTING 0. BIT 0 IS ALSO LOADED BUT

153 015106

STARS

tttttttttttttt*ttttttttttttttttttttttttfi*ttttttttt*tttttttt'ttt

150

:SHOULD ALWAYS COME BACK AS 0

152

154
155

156 015106
157 015112

012703

002416

BGNSEG

015112

106404

159 015114
160 015120

011337
022737

002362
000001

002410

162 015130
163 015136

042737
013777

000001
002362

002362
165106

158 015114

161 015126

164 015144
165 015152
}29 015160

168 015162

015162
015164
015166
015170

169 015172

015172
015174

002403

017737
023737
001404
104455
000005
005135
010210

104410
000012

165102
002362

RRRRRRARRARN AN AR AR

BATEST:

002364
002364

C
AN AS
R AR RN AR RRRRRRRANRNNNNNNANNA

;GET START OF PATTERN LIST
sxewaSTART OF SEGMENT %%«

#BEGPAT ,R3

TRAP

C$BSEG

Mov
CMP

(R3) ,GDDAT
#1,T.CNTLR

sGET PATTERN TO SEND
:RL112?

BIC
MoV

#81T0,GDDAT
GDDAT ,3RLBA

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

ERRDF

§S. EM6 ERR2

;DATA WRONG IN RLBA

.WORD

ERR2

TRAP
.WORD

CSESCAPE
100008-.

MoV
cMp
BEQ
TRAP
WORD
.WORD

1$:

Mov

BLT

2S$:

ESCAPE

aRLBA,BDDAT
GDDAT ,BDDAT
13
C$ER
5
EM6

SEG

:READ IT BACK
;1S 1T CORRECT?
:IF SO, BRANCH

: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

SEQ 0104

Sededed
YVONOT

CS$ESEG

104401

TRAP

CSETST

.SBTTL

:BUMP FOR NEXT PATTERN
:CHECK FOR END
sNOT END, BRANCH FOR NEXT

sexasEND OF TESTwwnn

*«TEST 7+ - READ WRITE OF RLDA

BGNTST

s*x*xSTART OF

STARS

R A AN R AN AR NI TR

TESTwnwx

RA AN AN RANRRRAANRARRRRANRAAARRNCRRA
AR

:TEST THAT WE_CAN WRITE/READ THE DISK ADDRESS REGISTER
:ALL BIT POSITIONS ARE WRITTEN USING FOUR PATTERNS:

:GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0

015212

STARS

SHOOONONN

011337
013777

002362
002362

017737
023737
0014064

002362

S NNOO

WAVAWVIWVAWYL.

NONRS
B
~o
»
(s X
¥ ¥ ¥ =

N
O
~N

d
b edd od ed md

wZWaha
A

OO0
—d
b b
QOO0O0O0
—d cad il ) b

012703

ONON)

VAAVIVA
NINONININLND
IV xpnu~
[L¥],¥]
v
AN
AN LIS LS 18 )
VIV
SN
NININ)
b d b

b
md b

wmd

b ad o

=leleleleleleleieleleliNelelelelele]

POV
WN=O

~NOWNS

NI A NN
WA

=200V

N
W

SWA
NN
OOV
NO WV

(nn1+

TRAP

e R

NDPAT

104405

SRR ARA R AR

DO~
> WD
Y
ul 2>

b
b b

OO0

d
b
ond e

1ST
CMP
BNE

002624

s*x%*END OF SEGMENTwxw«

ded
b bbb
VS WN—~OY

005723
020327
001343

wvivaviviuawve.

OO00O00O0

NOWV SN -

*+TEST 6v+ -~ READ WRITE OF RLBA

002416

BGNSEG

104404

165016

DATEST:

165022
002364
002364

TRAP

C$8SEG

MOV
MOV

GPDAT,3RLDA

MoV
CMP
8EQ

18:

002624

R AN TN AR ARNARARARARAN RN RN RRRNARNRAANNRR

#BEGPAT ,R3

(R3) ,GDDAT

adRLDA ,BDDAT
?gDAT.BDDAT

6. ,EM7 ,ERR2

TRAP

gSERDF

+WORD
. WORD

EM7
ERR?
SEG
CSESCAPE

.WORD

104410
000012

AR AR AR

MOV

ERRDF

104455
000006
005163
010210

005723
020327
001352

RRR A AR

ESCAPE
TRAP
.WORD

TST
cMp

BNE

¢SET UP POINTER TO PATTERN LIST
s*xxx*START OF SEGMENTwwax

sGET PATTERN
sLOAD PATTERN IN DA
sREAD PATTERN BACK

s1S 1T CORRECT?
sBRANCH IF CORRECT

;WRONG DATA IN RLDA

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

100008-.

(R3)+
R3,#ENDPAT
DATEST

;BUMP POINTER

;AT END OF PATTERNS?

sNO, BRANCH BACK

seansEND OF SEGMENTeeen
106405

TRAP

CSESEG

JeensEND

TESTrane

€2
e

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

SEQ 0105

e TEST 7e» ~ READ WRITE OF RLDA

015276

TRAP

104401

.SBTTL

CSETST

*+TEST 8»+ ~ BIS OF RLCS

santaSTART OF TESTwenw

BGNTST
STARS

ttttttttttttttttttttt‘ttttttttttttii*ttttt'ttt*t'tttt*ttittttt'

*TEST THAT WE CAN USE THE ‘BIS'' INSTRUCTION ON 1Ht LONTROL
:AND STATUS REGISTER.

BITS 8,9 AND 6~1 ARE TESTED T0

sSET INDIVICUALLY AS WELL AS COLLECTIVELY WITHOUT DESTROYING

;ANY PREVIOUS DATA PATTERN
STARS

52 015300

012703

b —d

(=] (elalelelelalalelele
]

-—h

012777

b e

amd ad ol amd

002772

BGNSEG

104404

66 015356
67 015364
68 015372
)

70 015374

000200
002362
000200
164716
040000
140000
164674
000001

[=]

-b b amd
i

v,]

ogoo«oo\nmm
1V,]
WN=OVoO~N (V.Y
OWNESW

::tittttttttt*ifittttttttttttt*tttfittttttttittitttttfitttttttttttti

001404

002364

164734

C$BSEG

1$:

#CRDY ,aRLCS
(R3) ,GDDAT
#CRDY ,GDDAT
(R3) ,aRLCS
#DERR,aRLCS
99$

002362
164710

002362

#CSPAT ,R3

:WRONG DATA IN RLCS

104401

SEG

2$:

CSESCAPE
100008-.

TST
CMP

(R3)+
#CSEND ,R3

TRAP

CSESEG

TRAP

CSETST

BNE

ENDTST

L10030:

.SBTTL

BGNTST

BIT SCT PATTERN IN RLCS
1F ERROR BIT SET THEN
EXPECI IT ON THE READ

7..EM61,ERR2

010c10

104405

.4N GDDAT

:READ RLCS TO CHECK 'BIS''

EM61
ERR2

ENDSEG
100008:

:INSURE GO IS THERE
SET UP EXPECTED RLCS

#DRDY ,BDDAT
BDDAT,GDDAT
23

002362

003070

ttt*START OF SEGMENTsanx

aRLCS ,BDDAT

104455

005723
022703
001333

:GET BEGINNING OF LIST

#ERR'DERR,GDDAT BAC

99%:

$SERDF

104410
000012

84 015424

MoV

:CLEAR OUT DRIVE READY
:DID BIS WORK?
:BRANCH IF OKAY

;IF /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
saxxxEND OF SEGMENTwanx
sanxxfEND OF TESTwwnx

*«TEST 9x+ - BIC OF RLCS

saexxSTART OF TESTwewe

[Xl

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

SEQ 0106

«*TEST 9++ - BIC OF RLCS

85
86 015424

STARS

ttt*ttt'ttttttttittttttttttltttt'*ttttttttttttfitlttttttttittttt

:TEST THAT THE 'BIC'' INSTRUCTION WILL WORK ON THE

87
88
89
9C 015424

:CONTROL AND STATUS REGISTER.

:TESTED.
STARS

BITS 8-9 AND 6-1 ARE

;:ttttt*ttttttttttttttfittttttttttttti*tttttttttttttttttttt*tttiit

‘22
93 015424
94 015430

012703

ooRe]

OSSO

Vi
ViAW Vil
BB WW

NOOONSNO o

Liiaoaavivaaiuvianawve
i
WWWNINONNIN)

vv
vianss S
== oONO

OO0O0O0O0O o
purd

Ghinr- S
Q- Guuar Q-

QOO0 OVOO00

pror Qo

SUNNN—=O
1%,

G- Gurhmr g P

OOO0O0O0O0O00

wd
b
e
b
b
b
b ch

OCOO0O0O00O
ONOWNS WO
o
0

b
b
b
b
b
b
b
b
b
—b
-

C$SSEG

18:

001776
001776
002362
164572
040000
140000
164550
000001
002364

#CSPAT ,R3

BGNSEG

104404

012777

002772

#1776,aRLCS

#1776, GDDAT

:GDDAT

#DERR ,3RLCS

:IF DRIVE_ERROR BIT SET

#ERR!DERR,GDDAT
@RLCS,BDDAT
#DRDY ,BDDAT
ggDAT.GDDAT

:READ IT BACK

99%

002362

8. EM62 ERR2

2$:

-WORD
.WORD
.WORD
ESCAPE

C$ER

CSESEG

104401

TRAP

CSETST

BGNTST

015550

STARS

:BRANCH IF OKAY

-WRONG DATA IN RUCS -

sGET _NEXT PATTERN
;AT END OF LIST
:NO, GO BACK WITH NEXT PATTERN
;x*4xEND OF SEGMENT#*w+»

TRAP

015550

:DID *'BIC'* WORK PROPERLY

(R3)+

104405

.SBTTL

¢MOVE RLCS TO BDDAT FOR COMPARE
sCLEAR DRIVE READY

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

R3,#CSEND
1$

003070

ZEXPECT IT SET WHEN WE

SEG

TST
CMP
BNE

005723
020327
001333

-5

EM62
ERR2

.WORD

000012

TRAP

:CLEAR BITS IN RLCS VIA 'BIC

CSESCAPE
100008-.

104410

'SET ALL SETTABLE BITS
:SET UP EXPECT DATA IN

(R3), GDDAT

(R3) .aRLCS

99%:

;GET BEGINNING OF PATTERNS
*tt*START OF SEGMENTanwx

suaasEND OF TESTewex

x2TEST 10«+ - BIS OF RLBA

saxxaSTART OF TESTewes

ttttttttttttt'tti*ttttttt"ttttttttt'ttttittfittt.fitttttttttt.tt

:TEST THAT THE 'BIS'* INSTRUCTION WILL WORK ON THE BUS
;ADDRESS REGISTER,
;ARE EXPECTED BACK.

BITS 15~0 ARE LOADED, ONLY BITS 15-1

FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,
;GROWING O, AND SHIFTING 0.

STARS

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

SEQ 0107

*+2TEST 10+« ~ BIS OF RLBA

:;titttttfittttttttttttt'tttt'ttttttitttt.ttttttfit'ttti".itti.it'

128
129

130 015550
131 015554

015554

132 015556

133 015556
134 015562
135 015566

012703

002416

005077
011337
022737

164470
002362
000001

136 015574 002403
137 015576 042737 000001
138 015604 051377 164442
139 015610
140 015616
}25 015624

143 015626

015626

015630

015632
015634

144 015636

017737
023737
001404

005723
020327
001342

018452

104405

002362
002364
002362

38:

#BEGPAT,R3

TRAP

(S$BSEG

CLR
MOV
CMP

aRLBA
(R3),GDDAT
#1,T.CNTLR

BLT
BIC
BIS

aRLBA,BDDAT
BDDAT, GDDAT
2

ERRDF

9. .EM63,ERR2

.WORD

28:

002624
ENDSEG

100008:

ENDTST

£10032:

104401

38
(R$),aRLBA

#1,GDDAT

MOV
CMP
BEQ
TRAP

007024
010210

146 015642
147 015644
148 015650
149 015652
015654
015654

002410

104455

104410
000012

150 015654

164436
002364

18:

000011

015636
145 015640

015652

BGNSEG

104404

MOV

CSERDF

"WORD
"WORD

EM63
ERR2

TRAP
.WORD

CSESCAPE
100008~.

;GET START OF LIST
taxweSTART OF SEGMENT*ews#
.

:CLEAR ‘BA
*SET EXPECTED
SRL11

:NO
‘BIT 0 CAN'T SET IN RLBA (UNIBUS)
‘BIS RLBA WITH PATTERN
*READ 'BA'
*DID RLBA LOAD PROPERLY?
‘BRANCH IF YES
;WRONG DATA IN RLBA

SEG

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

ST
CMP
BNE

(R3)+
R3,NENDPAT
18

:GET NEXT PATTERN
‘DID WE COMPLETE LIST
:NO, GO BACK FOR NEXT.
Sexa*END OF SEGMENT#xwe

TRAP

rSFSER

TRAP

CSETST

ESCAPE

;aneeEND OF TESTwawnan

#*TEST 11%* - BIC OF RLBA

}gz

LSBTTL

}gg 015656

BGNTST

157 015656

STARS

158
159
160

*TEST THAT THE 'BIC'' INSTRUCTION WILL WORK ON THE BUS
*ADDRESS REGISTER. BITS 15-1 ARE TESTED WITH & PATTERNS
"GROWING 1, SHIFTING 1, GROWING O AND SHIFTING O.

;;tttttttttttttttttttttttttttttttittttttttfittttttttttttt.tttttttt

STARS

161 015656
162
163

164 015656
165 015662

015662
166 015664

167 015664
168 015672

;anxaSTART OF TESTawas

::ttttttttttttttttttttttttttt*ttttttttttlittttttttttttttttttttttt

012703

002416

BGNSEG

104404

012777
012737

177776
177776

169 015700 041337 002362

164360
002362

18:

MOV

#BEGPAT ,R3

TRAP

(S$BSEG

MOV
MOV

#-2,3RLBA
#-2.GDDAT

BIC

(R35 ,GDDAT

;GET START OF LIST
texaaSIART OF SEGMENT#wws

:SET RLBA TO ALL 1°'S (BIT 0=0)
*SET UP EXPECTED RESULTS

:IN GDDAT

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

SEQ 0108 1

+«TEST 11+ -~ BIC OF RLBA

015730
015732
015734
176 015736
015736
015740
177
178 015742
179 015744

180 015750
181 015752
015752
015752
182 015754
015754
015754
183
184
185
186
187 015756
188
189 015756

001345

015762
198 015764
199 015764
200 015770
201 015774
202 016000
203 016006
204 016014
205
206 016016
016016
016020
016022
016024
207 016026
016026
016030

aRLBA,BDDAT

MOV

(MpP
8EQ

BDD/T,GDDAT
2$

ERRDF

10, ,EM64 ,ERR2
CSERDF

TRAP

.WORD
.WORD
.WORD

ESCAPE

2$:

TRAP
.WORD

002624
ENDSEG
:
100008

1046405

ENDTST

L10033:

104401

LSBTTL

EM64
ERR2
SEG
CSESCAPE
100008-.

TST
cMp
BNE

(R3)+
R3,#ENDPAT

TRAP

C$ESEG

TRAP

CSETST

:BIC RLBA
¢READ RLBA
:B81C WORK OKAY?
:IF YES BRANCH
;WRONG DATA [N RLBA

sIF /FL:LOE SET LOOP, ELSE EXIT SEG
;GET _NEXT PATTERN
sHAVE WE COMPLETED LIST
:NO, GO BACK FOR NEXT
saxxxEND OF SEGMENTweew

santEND OF TEST®wxe

«xTEST 12+« - BIS OF RLDA

;###xSTART OF TESTwaww

BGNTST

STARS
Y

1122232332222 222232323222 3333323322382 3223322230

it iiaddiidsd

*TEST THAT THE 'BIS'* INSTRUCTION WILL WORK ON THE DISK ADDRESS

190
191
192
193 015756
194
195
196 015736
197 015762

(R3) ,aRLBA

BIC

002364
002362

oOwnow

175 015726
015726

164342
164336
002364

174

061377
017737
88?{37

170 015704
171 015710
172 015716
173 015724

sREGISTER,

BITS 15-0 ARE TESTED WITH & PATTERNS, GROWING 1,

;SHIFTING 1, GROWING O, AND SHIFTING 0.

STARS

:;tttttitttttttttttttttttttttittttttttttttttttttttttfitttttttatttt

012703

002416

BGNSEG

104404

MOV

#BEGPAT ,R3
C$BSEG

18:

aRLDA

:CLEAR ‘DA’
;SET EXPECTED
;BIS RLDA
JREAD RLDA
:1S RLDA CORRECT
:IF OKAY BRANCH

11. ,EM65,ERR2
CSERDF
11
EM65
ERR?2
SEG
CSESCAP
100008-.

;WRONG DATA IN RLDA

(R3) ,GDDAT
(R3) ,8RLDA
SRLDA,BDDAT
ggDAT.GDDAT

002364
002362

28:

ESCAPE

sGET START OF LIST
sxxxaSTART OF SEGMENTswex

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

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

SEQ 0109

*+TEST 12++ - BIS OF RLDA

208

209 016032
210 016034

211 016040
212 016042

016049
016042

213 016044

016044

yqq 016044

005723
020397
001351

002624
ENDSEG

100008:

104405

ENDTST

L10034:

104401

IST
(MP

BNE

(R3¢
R3,NENDPAT
18

TRAP

(SESEG

TRAP

CSETST

:GET_NEXT PATTERN
sHAVE WE FINISHED?
:NO GO BACK
;#eesEND OF SEGMENT#ex+
;#%**END OF TESTwwxs

.SBTTL ##TEST 13%x - BIC OF RLDA

215

513
218 016046

BGNTST

220 016046

STARS

221
222

:TEST THAT THE 'BIC'* INSTRUCTION WORKS ON THE DISK
:ADDRESS REGISTER. ALL BITS ARE TESTED WITH FOUR

224 016046

STARS

2R00¢ddddl)
3232282
2 3422382
tttttttttttt*ttttltt*t*ttttttfit*t\ (813332

:PATTERNS: GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0

223

225
226

227 016046
228 016052

016052
229 016054

230 016054

231 016062

e ' 2222323222233 2233337222 2233323232833 2322382232202

012703

002416

238 016116

012777

177777

012737

177777

041377
017737
023737
001404

164154
164150
002362

016116
016120
016122
016124

104455
000014
007251
010210

016126
20 016130

104410
000012

241 016132
24¢ 016134

005723
020327

239 016126

243 016140

244 016142

001345

016142
016142

104405

016144
2 016144

104401

245 016144

BGNSEG

104404

232 016070 041337 002362
233 016076
234 016100
235 016106
236 016114

;###*START OF TESTwexs

164172

18:

MOV

#BEGPAT,R3

TRAP

($BSEG

MOV

#-1,3RLDA

BIC

(R35,GDDAT

#-1/GDDAT

R022

3022t dtsd

;GET START OF LIST
;#**xSTART OF SEGMENT#%x«

:SET RLDA TO ALL 1'S

:SET EXPECTED DATA

002362

MOV

002364

BIC
MOV
(MP
BEQ

(R3).3RLDA
@RLDA.BDDAT
GDDAT,BDDAT
o8

ERRDF

12.,EM66,ERR2

;WRONG DATA IN RLDA

SEG

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

IST
CMP

(R})+
R3,NENDPAT

;GET NEXT PATTERN
2DONE?

TRAP

(SESEG

TRAP

CSETST

002364

2s:

002624

ENDSEG

100008:

ENDTST

L10035:

TRAP
.WORD
.WORD
.WORD

CSERDF
12
EM66
ERR2

TRAP ~
.WORD

CSESCAPE
100008-.

ESCAPE

BNE

:SET_EXPECTED DATA

:"BICTM RLDA
:READ RLDA

:DID 'BIC''

WORK?

:IF 1T DID BRANCH

:NO GO BACK

;#xaeEND OF SEGMENT#%¢s
;#**sEND OF TESTenxs

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

SEQ 0110

++TEST 14++ ~ BUS RESET OF RLCS

LSBTTL

;a2 aSTART OF TESTawan

STARS

AL L LLL L L L

ittt

+TEST THAT A BUS RESET WILL CLEAR THE PROPER BITS

~NOWNS N

:OF THE uONTROL AND STATUS REGISTER, THOSE BITS ARF
:BITS 6-1,8,9,10,11,12,13,15. BIT i5 WILL CLEAR ONLY

:IF BIT 1‘ (DRIVE ERROR 1S NOT SET).”
;1S A DON'T

CARE,

BIT O (DRIVE READY)

IF AT THE START UP THIS TEST BIT

:14 (DRIVE FRROR) IS SET WE WILL INSIST IF 1S THERE AFTER

;THE "RESET'® ALONG WITH BIT 15 (CGMPOSITE ERROR).

ST N
ST ST NT ST ST S TS

#+TEST 14r+ - BUS RESET OF RLCS

BGNTST

VAl
I
o\ Al

248
249
250 016146
231

g}ZR;O ARE NOT WRITEABLE.

261 016146

'.tttttt*tttttttt'ittttttitttt*ittttfitfittttfittttttttittttttttttt'

012700
104441

012700

b ad

2
<86 016256
287
288 016256

289
290
291
292 016256

000340
000377
000200
040000

002362
164052

140000

002362

000100

001404
104455
000015
007334
010210

1$:

28:
164024
000001
002364

SETPRI
MOV

#PRIO?
#PR107 ,RO

sPRIORITY TO SEVEN

MOV
MOV
BIT
BEQ
BIS
MOV
BRESET

#377,3RLCS
#CRDY,GDDAT
#DERRARLCS
1$
#DERR'ERR,GDDAT
#100,R0

:LOAD ALL RLCS LOADABLE BITS
*SETUP EXPECTED
:DRIVE ERR SET?
:IF_NOT DON'T EXPECT IT

gsg

MOV

aRLCS,BDDAT

CMP
BEQ

BDDAT . GDDAT
3s

*DID INIT WORK
*YES, BRANCH

ERRDF

13 LEM67.ERR2

:WRONG DATA IN RLCS

.WORD
"WORD
"WORD

1
EM67
ERR2

TRAP

164066

104433

002364
002364
002362

TRAP

BIC

TRAP

CS$SPRI

CSRESET

#DRDY ,BDDAT

ERDF

104401

L10036:

_SBTTL

BGNTST

";IT'S SET, INIT BETTER NOT CLR
;SET UP A WAIT LOOP
*BUS RESET
sWAIT IN CASE OF DRIVE ERROR
*READ RLCS

*CLEAR OUT DRDY = DON'T CARE

;ataaEND OF TESTwess

ENDTST

b mcd

[elelelelelele)

262
263
264 016146
016146
016152
265 016154
266 016162
267 016170
268 016176
269 016200
270 016206
271 016212
016212
272 016214
273 016216
274 016220
275 016226
276 016234
277 016242
278
279 016244
016244

BITS

TRAP

CSETST

+#TEST 15%* - BUS RESET OF RLBA

;uexaSTART OF TESTawas

STARS

tttttttttttitttfittttttttttttItttttttttttt'itttittttt.ttttttittt

:TEST THAT A BUS RESET WILL CLEAR THE ENTIRE

THE BUS ADDRESS IS LOADED WITH 177776
:BUS ADDRESS REGISTER.
SAND IS EXPECTED TO BE ZERO AFTER THE RESET
STARS

SEQ 0111

*+TEST 15+ -~ BUS RESET OF RLBA

::tttttfitt*tttttttttttttttttttt.tttttfittttttttttitttttttt'tttttit

%93

295 016256
296 016264
297 016272
298 016274
299 016302

300 016306
016306
301 016310
302 016316
303
304 016320

104433
017737
001404

177776
000001

163766
002410

000001
002362

163750

163736

2s:

18:

GDDAT

sCLEAR EXPECTED DATA

BLT
8IS

23
#1,3RLBA

CLR

BRESET

;ISSUE BUS INIT

CSRESET

aRLBA,BDDAT
18

;READ RLBA
JIF CLEAR BRANCH

ERRDF

14.,EM70,ERR2

;WRONG DATA IN RLBA

.WORD
.WORD

EM70
ERR2

CSERDF
14

JannexEND OF TESTwwnn

ENDTST

L10037:

104401

BGNTST

16332

STARS

16332

:NO

MOV
BEOQ

TRAP
WORD

010210

sSET BA TO ALL 1°S
:RL112?

#-2,3RLBA

TRAP

002364

#1,T.CNTLR

MOV

CMP

SBTTL

TRAP

CSETST

«+TEST 16+~ -~ BUS RESET OF RLDA

:xea«START OF TESTawan
L

L L

*TEST THAT A BUS RESET WILL CLEAR THE ENTIRE

:DISK ADDRESS REGISTER.

OWw

321 016332
322 016340
323 016344
016 344
324 016346
325 016354
326
327 016356
0163
36
016364

6366

R e

T T

THE DISK ADDRESS IS LOADED WITH 177777

s?figsls EXPECTED TO BE 2ERO AFTER THE RESET.

016332

W
N
b

NN
b cmd ecd ok

Oo~yOWn

N NN NN

—d cad ed ek = OO

S W=000

016326
305 016330
306
307 016330
016330
016330

012777
022737
002403
052777
005037

:;tttttttttttttttttittttttttittttttllttttttfiifittttttt'ttttit!tttt

012777
005037
104433
017737
001404

177777
002362

163702

163714

104401

MOV

8RLDA ,BDDAT

:READ RLDA
:1F CLEAR BRANCH

ERRDF

15..EM71,ERR2

;WRONG DATA IN RLDA

.WORD
.WORD
.WORD

15
EM71
ERRZ2

BEQ

104455

010210

#-1,3RLDA
GrhaAT

TRAP

002364

TRAP

1$:

ENDTST
L10040:

:SET DA TO ALL 1'S
CLEAR EXPECTED

MOV
CLR
BRESET

CSRESET

CSERDF

+ISSUE BUS INIT

saxetEND OF TESTwwwe
TRAP

CSETST

[
X)

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

SEQ@ 0112

«+TEST 17+« = UNIQUENESS OF RLCS

.SBTTL

333
334
335 016370
336
337 016370

346 016370
347 016376
348 016404
349 016412
350
351
352

ettt START OF TESTenae

BGNTST

STARS

:'ttttttfittttttttfitittttttt*ittttttfitttttittttttf....tfi't".l.tl'

*TEST THE UNIQUENESS OF THE CONTROL AND STATUS

338
339
340
36
342
343 016370
344
345

««TEST 17+x - UNIQUENESS OF RLCS

sREGISTER.

THE RLBA AND RLDA ARE PRELOADED WITH

2177776 AND 177777 RESPECTIVELY. THE RLCS IS THEN
:LOADED TO INSURE THAT NEITHER THE RLBA OR RLDA
sARE MCNIFIED BY THE WRITING OF THE RLCS.

STARS

::ttinltfitt*tttttfii**Qt'ttt'ifiti'fitfi.Qfit*.fifi'*ttfi'.'.t.tt.i'.t*..

012737
12777
012777
013777

000201
177776
177777
002332

MOV
MOV
MOV
MOV

002332

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,aRLCS

:CHECK THAT RLBA REMAINS UNAFFECTED

353 016420
%gg 016426

022777
001412

177776

163624

CMP
BEQ

#-2,8RLBA
18

:RLBA OKAY?
:YES, GO CHECK DA

356 016430
%gg 016436

012737
017737

177776
163610

002362
002364

MOV
MOV

#-2,GDDAT
SRLBA ,BDDAT

:SET UP EXPECTED
;READ RLBA

16..EM72,ERR2

;CS MODIFIED BA

ERRDF

359 016444

016452
360 016454
016454
361

010210

18:

104406

TRAP
.WORD
.WORD
.WORD

CSERDF
16
EM72
ERRZ

TRAP

CSCLP?

CKLOOP

;CHECK IF /FL:LOE IS SET

362 016456
362 016464

022777
001412

177777

163570

CMP
8EQ

#-1,3RLDA
2%

:RLDA OKAY?
:YES, CONTINUE

365 016466
gg? 016474

012737
017737

177777
163554

002362
002364

MOV
MOV

#-1,GDDAT
SRLDA,BDDAT

:SET UP EXPECTED
:READ DA

ERRDF

17..EM73,ERR2

;CS MODIFIED DA

.WORD
LWORD
.WORD

17
EM73
ERR2

368 016502
016502
016504
016506
016510
369 016512

104455
000021
007516
010210

370

371
372 016512
016512
016512
373
374

375

TRAP

2s:

CSERDF

saexxEND OF TESTawan

ENDTST
104401

L10041:

.SBTTL

TRAP

CSETST

««TEST 18+* ~ UNIQUENESS OF RLBA

[Xanl

[

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

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

SEQ 0113

++TEST 18++ - UNIQUENESS OF RLBA

saxnsSTART OF TESTeewe

BGNTST
STARS

377 016 514
378 016514

tttttttt*fitttttitttttttttttt*lttttt'fittttt.fitttt'tt.tti'ttt"t.

:TEST THE UNIQUENESS OF THE BUS ADDRESS REGISTER.
:RLCS AND RLDA ARE LOADED WITH XXX20X AND 177777

THE

SRESPECTIVELY.

THE RLBA IS THEN WRITTEN TO INSURE
;THAT NEITHER THE RLCS OR RLDA ARE MODIFIED
;BY WRITING THE RLBA.

STARS

::tttt*ttttttttttttttttttttttttttttittttii*ttttttlitttti'ttt.'i.t

012737
032777
001403
052737
0137/7
012777
005077
3
397 016560
398 016566
399 016574
20? 016602
0
402 016604
016604
016606
016610
016612
403 016614
016614
404
405 016616
406

#gERR.aRLCS

99%

017737
042737
023737
001404

163464
000001
002364

002364
002364
00236¢

;SET THEN EXPECT IT

#ERR!DERR,GDDAT ;SET WHEN WE READ IT.

GDDAT ,aRLCS
#-1,3RLDA
SRLBA

ERRDF

18 EH74 ERR2
CSERDF
18
EM74
ERR2

-WORD

1$:

104406
177777

177777
163414

CKLOOP

:LOAD RLCS
*LOAD RLDA
JCLEAR RLBA

002362
002364

010210

;BA MODIFIED CS

sCHECK IF /FL:LOE IS SET
:IS RLDA OKAY?

BEQ

s IF OKAY BRANCH

MOV
MOV

#-1,GDDAT
SRLDA,BDDAT

;SET UP EXPECTED
sREAD RLDA

19. .EH?S ERR2

:BA MODIFIED DA

ERRDF
TRAP
.WORD
.WORD
.WORD

104455

CSCLPI

sREAD RLCS

: IGNORE DRIVE READY
:CS OK?
:YES, GO CHECK DA

#-1,3RLDA

163430

001412
012737
017737

@RLCS ,BDDAT
#DRDY ,BDDAT
?gDAT.GDDAT

TRAP

104455
000022
007551
010210

022777

MoV
8IC

CMP
BEQ

CSERDF
19

EM?75
ERR2

saextEND OF TESTanwe

" TRAP

104401

.SBTTL
016654

sCONTROLLER READY
:IF DRIVE ERROR IS

sCHECK IF RLCS IS OKAY

d
b

000 ~NOWN

MoV

#CRDY,GDDAT

h e

—

b
= =

b b

BIT
8E0
BlS
MOV

CLR

&H
N

pery

99% :

177777
163472

o
O

140000
002362

N) =2

407 016624
408
409 016626
410 016634

MOV

000200
040000

BGNTST

CSETST

#«TEST 19+* - UNIQUENESS OF RLDA
;aeaaSTART OF TESTenex

SEQ 0114

CZRLGCO RL11/RLV1IT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-10
v+TEST 19++ ~ UNIQUENESS OF RLDA

421
422 016654

STARS

*tttttttt*ttttt*tt*ttt'tttttt.tfittQtttttt*ttttttt'ttttttttttttt

*TEST THE UNIQUENESS OF THE DISK ADDRESS REGISTER.
;AND RLBA ARE LOADED WITH XXX20X AND 177776

THE RLCS

;RESPECTIVELY.

THE RLDA IS THEN WRITTEN TO INSURE
sTHAT NEITHER THE RLCS OR THE RLBA ARE MODIFIED
:BY WRITING THE RLDA.

STARS

428 016654
429
430
431 016654
432 016662
433 016670
434 016672
435 016700
436 016706
437 016714
438
439
440
441 016720
442 016726
443 016734
444 016742
445
446 016744
016744
016746
016750
016752
447 016754

016754

448
449 016756
450 016764
451
452 016766
453 016774
454
455 017002

::tttttttttttttttttt*t'tt*tttttt*ttttttttttttitttttttttit*ttttt*t

012737

005077

000200
040000

002362
163360

140000
002362
177776
163334

002362
163342

163336

#CRDY .GDDAT
sCONTROLLER READY
lngR.aRLCS
:1F DRIVE ERROR SET
sTHEN EXPECT IT LATER
99%
#ERR!DERR, GODAT

99s:
CLR

GDDAT ,aRLCS
#-2,3RLBA
SRLDA

sLOAD CS

;LOAD BA WITH ALL 1°'S
;CLEAR RLDA

sCHECK IF RLCS IS OKAY
017737
042737
023737
00140«

163324
000001
002362

002364
002364
002364

MOV
BIC

CMP
8eQ

ERRDF

104455
000024
007635
010210

TRAP

.WORD

1$%:

104406

.WORD
.WORD
CKLOOP
TRAP

aRLCS ,BDDAT

sRcAD RLCS

#DRDY ,BDDAT

- IGNORE DRIVE READY

20. ,EM76,ERR?
CSERDF
20
EM76
ERR2

;DA MODIFIED CS

?gDAT.BDDAT

CS$CLP

:RLCS OKAY?
:YES, THEN BRANCH

sCHECK IF /FL:LOE IS SET

022777
001412

177776

163266

CMP
BEQ

#-2,3RLBA

;1S RLBA OKAY?
:BRANCH IF OKAY

012737
017737

177776
163252

002362
002364

MOV
MOV

#-2,GDDAT

dRLBA ,BDDAT

sSET UP EXPECTED
sREAD RLBA

ERRDF
TRAP
-WORD
-WORD
.WORD

21. ,EM?77 ,ERRZ
CSERDF
21
EM77
ERR?

:DA MODIFIED BA

104455
000025
007670
010210

;aexaEND OF TESTwwws

" TRAP

104401
.SBTTL

463 017014
464

BGNTST

CSETST

xTEST 20%* - UNIQUENESS OF RLMP
saaxxSTART OF TESTwewe

SEQ 0115

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO Vv04.00 30-NOV-81 13:58:41 PAGE 8-11
*2TEST 20%+ = UNIQUENESS OF RLMP
465
466 017014

STARS

L67

;TEST THE UNIQUENESS OF THE MULTI-PURPOSE REGISTER

471 017014

STARS

3222232232323 23383822832 32132 2323323223222 82023 222200800220 2dddd)s

;WE WILL WRITE THE RLCS, RLBA, AND THE RLDA, THEN THE
*RLMP IS WRITTEN. WE THEN GO BACK AN VERIFY THE CONTENTS
:0F THE RLCS, RLBA, RLDA.

468
469
470
472
473

474 017016
475 017022
476 017030
477 017032
478 017040
479 017046
4«80 017054
481 017062

;;ttttt*ti*tttt*ttttt*ttttttttttfittt*tttttttttttttttt*itttt.ttttt

012737
032777
001403
052737
013777
012777
012777
005077

000200
040000

002362
163220

#CRDY,GDDAT

140000
002362
177776
177777
163170

002362
163202
163176
163172

#ERR!DERR,GDDAT

#DERR,aRLCS
99%

99$:
CLR

sCONTROLLER READY

:IF DRIVE ERROR SET
;THE EXPECT 1T LATER

GDDAT,aRLCS
#-2,3RLBA

sLOAD CS
:LOAD BA WITH ALL 1'S

aRLMP

:WRITE RLMP

#=1,3RLDA

:LOAD RLDA

sCHECK IF RLCS IS OKAY

485 017066
486 017074
488 017110
489
490 017112

017737
042737
001404

163156
000001
002362

002364
002364
002364

MOV

BIC
CMP
BEQ

ERRDF

aRLCS,BDDAT
#DRDY ,BDDAT

sREAD RLCS
: IGNORE DRIVE READY

:YES, THEN BRANCH

GDDAT ,BDDAT
201, ,EM44 ERR2
CSERDF
201

sRLCS OKAY?

;MP MODIFIED (S

017112
017114
017116
017120
491 017122
492 017122

104455
000311
006204
010210

493 017126
23§ 017132

022777
001412

177776

163120

CMP
8EQ

#-2,3RLBA

:1S RLBA OKAY?
¢BRANCH IF OKAY

496 017134
235 017142

012737
017737

177776
163104

002362
002364

MOV
MOV

#-2,GDDAT
SRLBA ,BDDAT

sSET UP EXPECTED
sREAD RLBA

ERRDF

211. ,EM45,ERR2
CSERDF
211
EM45
ERR2

;MP MODIFIED BA

499 017150

TRAP

1$:

104406

017150
017152
017154
017156
500 017160
017160
501 017162
ggg 017170

104455
000323
006237
010210
104406
022777
001412

177777

163064

504 017172
ggg 017200

017737
012737

162056
177777

002364
002362

507 017206
017206
017210

104455
000324

2$:

-WORD
+WORD
.WORD
CKLOOP
TRAP

TRAP
«WORD
-WORD
.WORD
CKLOOP
TRAP
CMP
8EQ

EM44
ERRZ

C$LPY

CSCLP1
#-1,3RLDA
3s

aRLDA,BDDAT

sCHECK IF /FL:LOE IS SET

sCHECK IF /FL:LOE 1S SET
:DISK ADDRESS OKAY

:YES, CONTINUE
sSET UP BAD

MoV
MoV

#-1,GDDAT

sSET UP EXPECTED

ERRDF

212.,EM46,ERR2

;MP MODIFIED DA

TRAP

.WORD

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

SEQ@ 0116

*2TEST 20++ - UNIQUENESS OF RLMP

017212
s08 017214

LWORD
.WORD

006272
010210
3$:

509 017216

OVO~NOMWNSW

TV
WIW
NVetd bbb

WVHWN—=

Viaivaivaue
PO

WVHWN=OVONO

AWMLV
WWWNONININ

L10064:

104401

JSBTTL

017220

BGNTST

017220

STARS

sxaxxaSTART OF TESTwwen

WE WILL ISSUE THE

;TIMEOUT OF 200 MILLISECS IS ALLOWED.

sSELECTED SINCE THE DRIVE IS NOT NECESSARY.

017220

;:tttttttttttttttttttt.Ittttttfitttttttttitttttttt.tttittttttttttt

004537
000000
004537

013420

017242

104406

017244

004537

017250

017226 001010

017250
017250
017250

DRIVE O IS ALWAYS

STARS

017230
017234
017236
017242

OVONOE

*+TEST 21%+ = NOOP FUNCTION(RL11 ONLY)

;NOOP AND WAIT FOR CONTROLLER READY TO SET.

000001

VIOV

CSETST

sTEST THAT NOOP WILL FUNCTION.

022737

TRAP

L
T
L e R A L LT L L TR
L L

017220

33
3%
35
X

suxxtEND OF TESTewwn

ENDTST

512 017216

017216
017216

EM4L6
ERRZ2

002410

014306

)

#1,T.CNTLR

;RLV11, OR RLV12?

JSR
NOOPO
JSR
CKLOOP
TRAP

RS,LDFUNC

:ISSUE FUNCTION OF FOLLOWING WORD
*NOOP(0) FUNCTION
*WAIT FOR CONTROLLER READY HIGH
TCHECK IF /FL:LOE IS SET

JSR

RS, CHERR

BNE

28:

013120

99§

RS,WTCRDY
CSCLP1

998:

ENDTST
L10045:

104401

*YES SKIP TEST

;CHECK CONTROLLER FOR ERRORS
;exesEND OF TESTaans

TRAP

CSETST

#*TEST 22%* - TEST NOOP DOES NOTHING (RL11 ONLY)

gzz

LSBTTL

gzg 017252

BGNTST

547 017252

STARS

548
549

*TEST THAT ISSUING A NOOP FUNCTION DOES NOTHING. THIS IS DONE BY WRITING
“THE RLBA, AND RLDA, READING THE RLMP AND MAKING SURE NOTHING CHANGES.

;:ttttttttttt*ttttttttttttttttttttttttttttttttttttttttttttttttttt

$TARS

550 017252
551

§52 017252

553 017260

;#axxSTART OF TESTwews

::*ttttttttt*tttttttttttttttttttttttttttttltttttttttttttttttttttt

022737
001076

0C0001

002410

CMP

BNE

#1,T.CNTLR
3

:RLV11, OR RLV12?
*YES SKIP TEST.

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

SE@ 0117

*«TEST 22%+ - TEST NOOP DOES NOTHING (RL11 ONLY)

554
555 017262
556 017270
557 017276

012777
012777
0050

000001
000002
162754

560 017310
561 017314
362 017316
563 017322
564 017322

004537
000000
004537

013420

R5,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

014306

RS,WTCRDY

sWAIT FOR CONTROLLER READY HIGH

565 017324
566 017330
017330
017332
567
568 017334
569 017342
;;? 017350

004537

017737

017737
023737
001404

574 017362
575 017362

104406

576 017364
577 017372
578 017400
579 017406

012737
017737
023737
001406

585 017422
586 017430
587 017436
588 017444
589
590 017446
017446
017450
017452

591 017454

592 017456
593

CSCLP1
013120

104410
000124

104455
000312
005304
010210

581 017410
017410
017412
0176414
01741¢
582
583 017420
- 017420

aRLMP
SRLMP,GDDAT

0v2362

104406

572 017352
017352
017354
017356
017360
573

162750

#1,3RLDA
#2,aRLBA

+READ RLMP

sCHECK [F /FL:LOE 1S SET

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT TST

aRLMP,BDDAT
?gDAT.BDDAT

+READ RLMP
¢RLMP 0K?

L10046~.

162716
002362

002364
002364

202. ,EM14 ERR?
CSERDF
202
EM14
ERR2
18:
000002
162654
002362

002362
002364
002364

CMP
BEQ

2s:

104406
000001
162620
002362

CKLOOP
TRAP
MoV
MOV

104455
000313
005332
010210

012737
017737
023737
001404

sLOAD DISK ADDRESS
sLOAD BUS ADDRESS

R5,CHERR
ST
CSESCAP
-

ggg 017302

162764
162754

002362
002364
002364

38:

aRLBA ,BDDAT
GDDAT ,BDDAT

203, ,EM15,ERR?2
CSERDF
203
EM15
ERR?

cKLOOP
TRAP

C$CLP

Mov
MOV

#1,GDDAT
aRLDA,BDDAT
ggDAT.BDDAT

ERRDF

204. ,EM16,ERR2
CSERDF

TRAP
.WOrD
+WORD
.WORD

010210

#2,GDDAT

ERRDF
TRAP
.WORD
.WonD
.W0i
D

CMP
BEQ

104455
000314
005360

C$CLP1

sCHECK IF /FL:LOE IS SET

;SET UP EXP'D BA
;READ BA

‘BA NK?

:YES

sCHECK IF /FL:LOE IS SET

JSET UP EXP'D DA

JREAD DA

;DA OKAY

€2
*t

B 10

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

SEQ 0118

++TEST 22+« - TEST NOOP DOES NOTHING (RL11 ONLY)
594 017456
017456
s 017456

suentfEND OF TESTeewe

" TRAP

104401

596
597
598

CSETST

««TEST 23+« ~ TES) OF INTERRUPT (RL11 ONLY)

JSBTTL

;#*xaSTART OF TESTwxes

BGNTST

599 017460
600
601 017460

STARS
IR

R R AR R AR

:CHECK THE INTERRUPT WITH A NOOP.

R AR

AARRARARRR RN

WE WILL SET JP THE

ENNRCRAN

: INTERRUPT VECTOR, LOWER THE PSW TO ZERO AND ISSUE

:A NOOP. THE INTERRUPT SERVICE ROUINE WILL SET
:FLAG UPON INTERRUPT AND RETURN N LINE. WE WAIT 200 MILLISECONDS
;LOOKING FOR THAT FLAG TO BE SET BEFORE CALLING IT
;AN ERROR.
IF THE INTERRUPT SENDS US TO ANOTHER
VECTOR ADDRESS THEN THE ERROR HANDLER WILL REPORT
IF THE
:;"'TRAP TO XXXX FRGM YYYY'' AND RETURN TO DIAG SUP MONITOR.

s%g;gRRUPT GOES TO ABOVE 1000 WHO KNOWS WHAT WILL HAPPEN.

0
611 017460

000001

617 017470

005037

002330

012700

000000

004537

013420

022737
001026

(elelelelalelelalelalel

N :ttttttttttttttttttttttitttttttttttttfitfitttttttttttttttttttitttt

612
613
614 017460
215 017466

b
b
b
b

017530
625 017532
626 017536
017536
627 017540

104455
0000%6
005252
010160
005037
104406

004537

~
L%
o~
&

-—b

QOO0

636 017546
637

:RLV11 OR RLV12?

CLR
SETPRI

INTFLG
#PRI00

;CLEAR INTERRUPT OCCURRENCE FLAG
SSET PSW T0 0

#PR100,RO
(S$SPRI

RS, LDFUNC
JSR
NOOPO! INTEN
JSR
RS,WTCRDY

014306
002330

ST
BNE
ERRDF
TRAP

002330

99§

28:

013120

.WORD
"WORD
.WORD
CLR
CKLOOP
TRAP
JSR

INTFLG
2s
22..EM13,ERRO

CSERDF
22
EM13
ERRD
INTFLG

CSCLP1

RS, CHERR

99%:

17544

#1,T.CNTLR

MOV
TRAP

N
(v

001004

CMP

BNE

104441

002410

104401

ENDTST
L10047:

.SBTTL

BGNTST

*YES SKIP TEST.

:ISSUE FUNCTION OF FOLLOWING WORD
*NOOP AND INTERRUPT ENABLE
‘WAIT FOR COMTROLLER READY HIGH
‘DID INTERRUPT OCCUR
*IF SO BRANCH

:CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS

;eaaxEND OF TESTews
TRAP

CSETST

#+TEST 24%* - TEST PRIORITY BR LEVEL

;aaaaSTART OF TESTawes

STARS

638 017546

658 017614
659 017620

* 9

:THE BOARD WILL INTERRUPT.

WE KNOW

WE WILL START TRYING TO INTERRUPT AT 7

s?figSUORK DOWN TIL IT DOES INTERRUPT.

:;tttttttttttttttttfitQittttttttttttitt*fitttittfittttttttttt*tttttt

022737
002456

000001

002410

CMP
BLT

#1,T.CNTLR
6$

:RLV112?
;YES, SKIP TEST

012737
013737

000340
002264

002364
002362

MOV

#340,BDDAT

sSET UP INITIAL OF 7

MOV

BGNSEG

104406

005037

002330

013700
104441

002364

004537
000100

013420

004537

014306

BDDAT

TRAP

C$SPRI

BDDAT RO

:GET GIVEN PRIORITY

sava2START OF SEGMENTwxx#
:CLEAR INTERRUPT OCCURRENCE
sSET PRIORITY

JSR

R5,LDFUNC

s ISSUE FUNCTiON OF FOLLOWING WORD

JSR

RS, UTCRDY

sWAIT FOR CONTROLLER READY HIGH

.WORD

L10050-.

JSR
ESCAPE

R5,CHERR
T

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT TST

0,
BGE

BDDAT,GDDAT
18

:SHOULD IT INTERRUPT
2NO, BRANCH

ST
BNE

INTFLG
23

:DID INTERRUPT OCCUR
;JYES, 0K

38:

ERRDF

20%.,EM17,ERR?

28:

ESCAPE

SEG

.WORD
BR

100008-.
4$

BEQ

NOOPO! INTEN

ESCAPE
TRAP

.. fmp

002362

002330

INTFLG

SETPRI

MOV

013120

002364

BPRIOR,GDDAT
C$BSEG

CLR

5%:

104410
000070

660
661 Q17624 004537
662 017630
017630 104410
017632 000060
663
664 017634 023737
665 017642 002012
666
667 017644 005737
668 017450 001004
669
670 017652
017652 104455
017654
017656
017660 010446
671
672 017662
017662 104410
017664
673 017666
674 017670
675 017674
6;9 017676 000765

678 017700
017700

AR R OO
ARNANRNR
AT ERRRRRRRRARAARRRRAAR

1$:

TRAP
.WORD
.WORD
.WORD
TRAP

TST

ENDSEG

:
100008

TST
CSESCAPE

*TEST THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF CONTROLLER.

639
640
641
642 017546
643
644 017546
645 017554
646
647 017556
648 017564
649
650 017572
017572
651
652 017574
653 017600
017600
017604
654
655 017606
629 017612

AR AR RA AN

SEQ@ 0119

CSESCAPE

sIF /FL:1OE SET LOOP, ELSE EXIT TST

e @e .

CSERDF
204
EM17
ERR7

CSESCAPE

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

INTFLG

DID INTERRUPT OCCUR

*YES, ERROR

;NO, OK

:aextEND OF SEGMENTewxw

‘e @ @

c10
CZRLGCO _RL11/RLVI1 CTLR TSTT 1 MACRO V04.00 30-NOV~81 13:58:41 PAGE 8-15
**TEST 24++ = TEST PRIORITY BR LEVEL

han

D10

*oTEST 24r+ = TEST PRIO

017700
679 017702
680 017710
682 017712
683 017712
017712
017712
684
685

SEQ 0120

chLV04.00 30-NOV-81 13:58:41 PAGE 8-16

CZRLGCO_RL11/RLV1T1 CTLR

104405
162737
100331

4%:

TRAP
SuB
BPL

CSESEG
#60,80DAT
5%

6$:

suxetEND OF TESTawwe

ENDTST

L10050:

104401

LSBTTL

686

JNEXT LEVEL

TRAP

CSETST

«#TEST 25+« - GET STATUS FUNCTION

sxnaxSTART OF TEST#nne

687 017714
688

BGNTST

690 017714

STARS

691
692
693
694
695
696 017714

*TEST GET STATUS FUNCTION. THE GET STATUS FUNCTION WILL
*WORK IF DRIVE IS LOADED AND READY OR NOT. THE RLDA

689

697
698
699 017714
700 017722
701 017726
702 017730
703 017734

*AND THE FUNCTION IS ISSUED. WE WAIT 200 MILLISECONDS

S;RESCONTROLLER READY.

012777
004537
000004
004537

705 017736
706
707 017742
017742
017742

004537

000013
013420

162332

2s:

013120

716 017744
717 017750
017750
017754
718 017756
719 017764
720 017770
721 017772
722 017776
017776
020002
723 020004

sSET GET STATUS AND MARKER BIT
#GSBIT!MK!DRST,SRLDA
ION OF FOLLOWING WORD
;ISSUE_FUNCT
R5,LDFUNC

JSR
CKLOOP

RS ,WTCRDY

TRAP

C$CLPT

JSR

R5.,CHERR

L10051:

.SBTTL

:GET_STATUS

:WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sanaxEND OF TESTwwwe

ENDTST

104401

iddilidlds

MoV
JSR

GSTAT

014306

TRAP

CSETST

**xTEST 26%% - GET STATUS FUNCTION INTERRUPY
;aneaSTART OF TESTwwer

BGNTST

712 017744
713
714
715

VERIFY THAT NO ERRORS OCCUR.

. e 2222232232223 232323232 2323332322382 23 3032022222232 0 2d 20

104406

708
709
710
1

RS
LA RARAAANRNRRRR AR RERRRANNRNNNAAARRAE

*1S LOADED WITH THE GET STATUS AND MARKER BITS (BITS 1,0)

017734

704

ARR TR

sCHECK GET STATUS UNDER INTERRUPT
005037

002330

012700
104441
012777
004537
000104
004537

000000

012700
104441
005737

000340

000003
013420
014306

002330

CLR
SETPRI

162270

MOV
TRAP
MOV

JSR

INTFLG
#PRIOO

sCLEAR INTERRUPT OCCURANCE
:PSW TO LEVEL 0

#PRIOO.RO
C$SPRI
#GSBIT!MK,3RLDA ;SET UP DA

R5,LDFUNC

s1SSUE FUNCTION OF FOLLOWING WORD

JSR

RS ,WICRDY

;GET STATUS, INT ENABLE
*WAIT FOR CONTROLLER READY HIGH

MOV
TRAP
TST

#PRI07,RO
C$SPRI
INTFLG

;DID INTERRUP?Y OCCUR

GSTAT'INTEN
SETPRI

#PRIO7

E 10

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

SEQ 0121

++TEST 26%+ = GET STATUS FUNCTION INTERRUPT
001004
104455
000034
005441
010160

729 020034

020034
020040
730 020042
731 020050
732 0200:4

733 020056
734 020062
020062
020066
735 020070
736 020074
737 020076
020076

2$:

104406
004537
005037

013120
002330

012700

000000

000003
013420
004537

014306

012700

000340

005737
001404

002330

104441

162204

SETPRI
MOV
TRAP
TST

BEQ
ERRDF
TRAP

° J4455
010160
104406

004537

BNE
ERRDF
TRAP
.WORD
.WORD
.WORD
CKLOOP
TRAP
JSR
CLR
SETPRI
MOV
TRAP
MOV
JSR

3s:

013120

ENDTST

L10052:

104401

.SBTTL

745 020116

BGNTST

747 020116

STARS

746

23
28.,EM30,ERRO
CSERDF
28
EM30
ERRO

sCHECK IF /FL:LOE IS SET

CSCLP1
R5,CHERR
INTFLG

sCHECK CONTROLLER FOR ERRORS
:CLEAR INTERRUPT OCCURANCE
:PSW TO LEVEL 0

#PRIOO
#PRIOO RO
CS$SPR]
#GSBJT!MK,3RLDA sSET UP DA FOR GET STATUS CMD
:ISSUE FUNCTION OF FOLLOWING WORD
RS ,LDFUNC

:GET STATUS = SHOULD NOT CAUSE AN INTERRUPT

RS ,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

CSSPRI
INTFLG
3s

;DID INTERRUPT OCCUR (SHOULD NOT)
:NO - BRANCH (OK)

#PRIO7
#PR107
RO

281.,EM30A,ERRO

.WORD
.WORD
.WORD

CSERD
281
EM30A
ERRO

TRAP

C$CLP

CKLOOP

: YES-BRANCH

JSR

R5,CHERR

TRAP

CSETST

sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS

sanasEND OF TESTwwwax

*«TEST 27%% - GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
saxtaSTART OF TESTewes

S AANAARARNRARARRAARNRAAEY

ARARRARNRAAARARRNRARNAARANAARRANRARAARAEY

SVERIFY 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
sISSUE A GET STATUS WE SHOULD RECIEVE AN OPI ERROR.
:VERIFY THAT CONTROLLER READY SETS AND OP] SETS

14
753 020116

754
755
756 020116

761 020144
762 020146

STAR

tttttttttittttttfitttttttttttttttttlfiitttttt*tttttttittit.tttttl

012777

001405
012737

000001
013420

162130

MOV

JSR

GSTAT

JSR

#MK ,SRLDA

R5,LDFUNC

RS ,WTCRDY

014306
074000

002306

gIT l74000 E.CS

004053

013402

Mov

lOPIERR RESTMS

sSET ONLY MARKER BIT!!

$ISSUE FUNCTION OF FOLLOWING WORD
:GET_STATUS

;WAIT FOR CONTROLLER READY HIGH

F 10

SEQ 0122

CZRLGCO RLI1/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13: 58 41 PAGE 8-18

+TEST 27+ - GET STATUS FUNCTION GENERATES OPI W/0 GS 817

763 020154

004537

013120

020160
765 020162

104406
032737

002000

767 020172
020172
020174
020176
020200

104455
000035
005574
010160

764 020160

76G 020170

;28 020202

001004

1$:

002306

R5,CHERR

TRAP
8IT

CSCLPY
#0PI,E.CS

ERRDF
TRAP
.WORD
.WORD
.WORD

29.,EM33,ERRO
CSERDF
29
EM33
ERRO

CKLOOP

BNE

2s:

L10053:

104401

;;z

JSBTTL

775 020204

BGNTST

TRAP

CSETST

#«TEST 28++ - OPI UNDER INTERRUPT
saeaaSTART OF TESTwwzx

STARS

776 020204

;1S OP] SET?

: YES-BRANCH NO-CHECK TIMEOUT

sanatEND OF TESTwene

ENDTST

770 020202

020202
020202

JSR

b L LA L AL L
T bbb

777

FORCE AN OP] ERROR UNDER INTERRUPT TO VERIFY THAT

780
781 020204

:IN RLDA.
STARS

AN INTERRUPT WILL OCCUR FROM OPI. THE OPI IS FORCED
USING A GET STATUS WITHOUT THE GET STATUS BIT SET

778
779

A AR
ANN
ARAANNCANCNA
ARNA
RRRRERRRRRA
AR AR
AR AR ARANR
I RRRRRRRR

782
783

784 020204
020204
020210
785 020212
786 020216

787 020224
788 020230
789 020232

790 020236

020236
020242
791 020244

792 020250

793 020252

020252
020254
020256
020260

794 020262

012700
104441

000000

012777
004537
000104

000001
013420

005037

002330

004537

014306

012700
104441
005737

000340

001004

104406
032737
001405
012737
004537

020306

104406

800 020310

032737

CLR

162030

INTFLG

MOV
#MK, 3RI_DA
RS, LDFUNC
JSR
GSTAT'INTEN

002330

JSR

RS ,WTCRDY

sSET ONLY MARKER BIT
:1SSUE_FUNCTION OF FOLLOUING WORD
;GET STATUS
:WAIT FOR CONTROLLER READY HIGH

MOV
TRAP
TST

RO
#PR107
C$SPRI
INTFLG

s INTERRUPT OCCUR

ERRDF

30.,EM11,ERRO

BNE

2$:
074000

002306

004053
013120

013402

002000

#PRIOO
#PRI00,RO
CSSPRI

SETPRI 0PRIO7

104455
000036
005211
010160

020262
795 020264
796 020272
797 020274
762 20302

799 020306

SETPRI
MoV
TRAP

1$:

002306

TRAP
.WORD
WORD
.WORD

CKLOOP

TRAP
BIT
BEQ
MoV
JSR
CKLOOP
TRAP

BIT

CSERDF
30
EM11
ERRO

C$CLP1
#74000,E.CS
18
#OPIERR ,RESTMS
R5,CHERR

CSCLP1

#0P1,E.CS

sCHECK IF /FL:LOE IS SET

;1S OPI SET?

G 10

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

SEQ 0123

++TEST 28+* ~ OP] UNDER INTERRUPT

BNE
ERRDF

001004

801 0203
802 0203

TRAP

104455

3
0
803 020330

010160

3$:

804

L10054:

104401

.SBTTL

:YES=BRANCH NO-CHECK TIMEOUT

CSERD
n
EM33
ERRO

sanxaEND OF TESTwrann

ENDTST

805 020330

.WORD
.WORD
.WORD

3$
31..EM33,ERROD

TRAP

CSETST

««TEST 29+« - READ HEADER FUNCTION

saxnxSTART OF TESTwnne

809 020332
810 020332

BGNTST

8N
812

:CHECK THAT READ HEADER WORKS, THAT WE CAN_ISSUE
:IT, GET READY BACK WITHOUT ANY ERRORS SETTING.

STARS

ttttfittttttt.ttttttttt'ttttttttfiltttfit*tttttiitttt.tttt'ttttttt

$TARS

813 020332

::tttt*ttttttltttttfittttttttttttt*ttttttttfittt*tfi'tttitittt*'t'fit

004537
000010
004537
104406

821 020352
020352
020352

822
823
824
825 020354
826
827 020354

004537

013420
014306

013120

834 020362
835 020366
836 020372
837 020374
838 020400
020400
020404
839 020406
840 020412

R5,LDFUNC

R5,WTCRDY
C$CLP1
R5,CHERR

L10055:

104401

.SBTTL

;ISSUE FUNCTION OF FOLLOWING WORD

;READ HEADER

:WAIT FOR CONTROLLER READY HIGH READY
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS

;#aasEND OF TESTwas

ENDTST

TRAP

CSETST

#«TEST 30*+ -~ READ HEADER FUNCTION INTERRUPT
sanxaSTART OF TESTwwax

BGNTST
STARS

tttttttttttttttttttttttttttttitttttttttt*tttttitttttttttitttttt

:CHECK THAT READ HEADER WILL GENERATE AN INTERRRUPT
:UPON COMPLETJON WITHOUT ANY ERRORS SETTING

828
829
830 020354
831
832
833 020354
020354
020360

2%:

JSR
RDHDR
JSR
CKLOOP
TRAP
JSR

STARS

;;titt*ttttfitttttfitttttltttt.ttfittttt.t'tttttt'ttttttttttttfittttt

012700

000000
002330
013420

004537

014306

012700

000340

001004

002330

SETPRI

#PRI0O

MoV
TRAP

#PR100,RO
C$SPR]

JSR

RS ,LDFUNC

JSR
SETPRI

RS ,WTCRDY
#PRIO7

BNE

CLR

INTFLG

RDHDR! INTEN
MOV
TRAP
TST

#PR107,RO
C$SPRI
INTFLG

:PSW T0 0
sCLEAR INTERRUPT OCCURENCE

:ISSUE FUNCTION OF FOLLOWING WORD
:READ HEADER, INTR. ENA
IWAIT FOR CONTROLLER READY HIGH
s INTERRUPT HAPPEN

: YES-CONT INUE

H1 0

SEQ 0124

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8 2 0
*+TEST 30** ~ READ HEADER FUNCTION INTERRUPT

841 020414

020414
020416
020420
020422

842 020424
843 020424
gzg 020426

846 020432
020432
020432

ERRDF

104455
000043
005716
010160

2s:

104406

004537

013120

I RAP
.WORD
.WORD
.WORD

CKLOOP
TRAP
JSR

ENDTST
L10056:

104401

ggg

CSBTTL

gg} 020434

BGNTST

853

35.,EM37,ERRO

CSERDF
35
EM37
ERRO

CSCLP

R5,CHERR

;CHECK IF /FL:LOE IS SET
sCHECK CONTROL!
ER FOR ERRORS
sxx«*END OF

TRAP

CSETST

««TEST 31x+ - REPEATED RD HDRS YIELD SAME CYL AND HD
sanxaSTART OF TESTwawe

854 020634

STARS

855
856

;CHECK THAT READ HEADERS WILL RELIABLY READ THE SAME
:CYLINDER AND HEAD SELECT. WE WILL READ HEADERS VERIFYING

tttttttttttttttttttttitttttfittttttttl*ttttttttttttttfittttt*tttt

:THAT WE ALWAYS READ THE SAME CYLINDER AND HEAD SELECT.
STARS

857

858 020434
859
860

::tttt**tttttttttt*ttt*tttttittttttttitttfittfilttttttlfittttttttfi*t

861 020434
862 020440
863 020444
864 020446
865 020452
020452
020454

012701
004537
000010
004537

867 020456
868 020462
020462
020464

004537

870 020466
871 020474

013737
043737

020502
873 020504
874 020506
875 020510
876 020512

104404
)
004537
000010
004537

020516
020520

104410
000054

879 020522
880 020526
020526

004537

866

869

877 020516

878

000144
013420
014306

998:

104410
000122

#100. ,R?
R5.,LDFUNC

;SET UP TO DO 100 RD HDR'S

RS UTCRDV

;WAIT FOR CONTROLLER READY HIGH

TRAP

CSESCAPE
L10057~.

JSR
ESCAPE
TRAP
.WORD

R5,CHERR

MOV

BIC

E.MP,GDDAT
SECMSK,GDDAT

TRAP

C$8SEG

JSR

R5,LDFUNC

sISSUE FUNCTION OF FOLLOWING WORD

R5 ,WTCRDY
SEG
CSESCAPE

;WAIT FOR CONTROLLER READY HIGH

R5,CHERR

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT SEG

ESCAPE
+WORD

013120

104410
000112

104410

MOV
JSR
RDHDR
JSR

002314
002334

013420
014306

002362
002362

BGNSEG

28:

RDHDR

978:

1ST

CSESCAPE
L100

;ISSUE FUNCTION OF FOLLOWING WORD
:READ HEADER

sIF /FL:LOE SET LOOP, ELSE EXIT TST

sCHECK CONTROLLER FOR ERRORS
:IF /FL:LOE SET LOOP, ELSE EXIT TST

;READ FIRST HEADER (ASSUME GOOD)
*MASK AWAY SECTOR BITS
txeaaSTART OF SEGMENT*wee

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

100008-.

013120

SEG

CSESCAPE

110

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

SEQ 0125

«+TEST 31+ - REPEATED RD HDRS YIELD SAME CYL AND HD

881 020530

000044

882 020532

013737

ggg 020554

001404

883 020540
884 020546

887 020556
020556
020560
020562
020564
888
889 020566
890 020566

891 020570
892 020572
893 020574

002234
002362

002364

005301
001344

020576
020576

104401

MoV

E.MP,BDDAT

BEQ

SECMSK ,BDDAT
GDDAT ,BDDAT

ERRDF
TRAP
.WORD
WORD
.WORD

104406

104405

10000$~-.

8IC
CMP

002364
002364

104455
000044
005756
010324

020574
020574

894 020576

898

043737
023737

0027 4

.WORD

ENDScG

100008:

ENDTST

L10057:

CKLOOP

36.,EM41,ERRS
CSERDF
36
EM41
ERR4

TRAP

CSCLPT

DEC
BNE

R1
2s

TRAP

CSESEG

TRAP

CSETST

sREAD HEADER

:MASK_AWAY SECTOR BITS
:1S HEADER CORRECT

sCONSTANT CYL & HS
:CHECK IF /FL:LOE IS SET

sPERFORM ALL READ HDR'S
:1F NOT GO BACK AND DO ANOTHER
;#ax2END OF SEGMENT##w«
saeaaEND OF TESTwwex

#«TEST 32+« - CHECK OF HEADER CRC

%35

LSBTTL

333 020600

BGNTST

901 020600

STARS

902
903

:CHECK THAT WE CAN READ THE HDCRC AFTER A
:READ HEADER AND THAT IT IS THE CORRECT CRC

R AR AR RNRNNNRANAANE RS
N
R ARARAARAARRR
R

:FOR THE HEADER.
STARS

904
905 020600
906
907

908 020600

saaaxSTART OF TESTew#x

005037

CLR

020650

AR AR

AR RRRRRAR R RN

s1SSUE FUNCTION OF FOLLOWING WORD

013420

JSR

R5.LDFUNC

911 020612 004537 014306

JSR

RS, UTCRDY

TRAP
.WORD

CSESCAPE
L10060-.

JSR
ESCAPE

R5,CHERR
TST

;CHECK CONTROLLER FOR ERRURS
sIF /FL:LOE SET LOOP, ELSE EXIT TST

MOV

E.MP.2%

sREAD HEADER WORD CONTAINS SEC, HD, CYL

JSR

R5,SIMBCC

;GO CALCULATE CRC

909 020604

910 020610

912 020616

004537
000010

020616
913 020620

104410
000114

914 020622
915 020626

004537

020626
916 020630

104410
000104

g%g 020632

013737

002314

919 020640

004537

014032

920 020644 000020
921 020646 000000

RDHDR

ESCAPE

013120

TRAP
.WORD

020646

28:

16.
.WORD

TST

CSESCAPE
L10060-.

:READ HEADER

:WAIT FOR CONTROLLER READY HIGH

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

:16 BITS
;HEADER GOES HERE

J 10

SEQ 0126

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8 22
++TEST 32++ - CHECK OF HEADER CRC

922 020650
923 020652

000000

013737

002344

004537

014032

020676

3s:

924 020660 013737 002316 020674
925 020666

926 020672
927 020674
928 020676

929 020700
930 020706
931 020714
3%% 020722
934 020724
020724
020726
020730
020732
3%2 020734

000020
000000
000000

013737
013737
023737
001404

002362
002364
002364

104455
000045
006047
010324

020734

339

5$:

6$:

MOV

E.MP1,48

MOV

16.
.WORD
.WORD

CALBCC,S$

R5,SIMBCC
0

MOV
MOV
CMP
BEQ

CALBCC,GDDAT
E.MP2,BDDAT
GDDAT ,BDDAT
6$

ERRDF
TRAP
.WORD
"WORD

37.,EM42,ERR4
CSERDF
37
EM&42

.WORD

L10060:

104401

32?

.SBTTL

32; 020736

BGNTST

964

;START WITH 0 CRC

;GET SECOND WORD IN SILO, CONTAINS 0°S
;STORE CALCULATED CRC AS GOOD
*THIRD READ OF MP SILO GETS CRC
1S CRC CORRECT?
:IF SO CONTINUE

ERRé

;%#xxEND OF TESTwaew

ENDTST

937 020734

020734

JSR

4$:

002344
002320
002362

.WORD

TRAP

CSETST

**TEST 33%% - CHECK CONSECUTIVE HEADERS

;#%«2START OF TESTawes

945 020736

STARS

9%6

*CHECK THAT THE HEADERS ARE CONSECUTIVE.

98
949

‘READ THE FORTIETH HEADER WE WILL VERIFY THAT
STHEY CAME IN SEQUENTIAL, THAT O FOLLOWS 39,

951 020736

$TARS

*tttttttttt*ttttfitttttttttittttt'ttt*ttitttt*tfittttt..tfittfiitii

140 (FORTY) READ HEADERS AND STORE EACH.

.e AARRRRARNRANRNRNNRRARRR RN RN RRAARNARARANARARARANRNRRENARRARRARARRAAARAAN

954 020736
955 020742

005037
012703

002366
003274

958 020760
959 020766

960 020776
961 021002

053737
013777
042777
032777

002270
002272

963 021012
964 021016
965 021022
966 021026
967 021032

017723
017723
017723
01
005301

161232
161234
161230
161224

CLR
MOV

968 021034

001774

000200
000200

001357

969 021036 012703 003274
970 021042

012701

000050

002272
161254

161246
161240

FIRST
NHDRBUF ,R3

;CLEAR FIRST READ DONE FLAG
*STORE HEADERS

BIC
BIT

DRIVE,B.(
8.CS.aRL(S
#200.8RLCS
0200 aRLCS

;DONE?

MOV
MOV
MOV
MOV
DEC

aRLCS.(R3)+
aRLMP, (R3) +
SRLMP, (R3) ¢
SRLMP, (R3)+
R

MOV

NHDRBUF ,R3

MOV
MOV

956 020746 012701 000050
957 020752 012737 000210 002272
962 021010

AFTER WE HAVE

*THAT THERE WERE NO ERRORS.

950

952
953

WE WILL DO

28%:
1$:

BIS
MOV
BEQ

BNE

MOV

*FORTY HEADERS
#60. R
#RDHDR
! CRDY,B.CS’

;HAVE WE READ FORTY HEADERS
160 BACK UNTIL FOURTY DONE

#40. ,R1

*CHECK FORTY OF THEM

*GET LIST OF HEADERS

SEQ 0127

*+TEST 33+ - CHECK CONSECUTIVE HEADERS

971 021046
972 021052
973 021056
974 021060
975 021066
976 021070
o077 021074
978 021100
979 021104
980 021110
981 021114
982 021116
983 021122
984 021126
985 021130
986 021136
987 021144
988 021146
989 021152
990 021160
991 021162
992 021170
993 021172
994 021200
995 021206
996 021214
997 021216

011337
005737
100016
012737
005723
012337
012337
212337
004537
000137
005723
011337
005737
001007
012737
013737
000435
005237
023737
001766
033737
001015
013737
043737
023737
001750
043737

004312

005037

021230
021232
021234

104455
000046
006105
010210

002364
002366

000001
002364

002366
002362

002362
002364

002362

002334

(02364

002362
002370
002372

002346
002346
002346

002334

002362

062703
005301
001321

104401

BNE

3s:
4$:

=4
N

MOV
MOV

8R
INC
CMP
BEQ
BIT
BNE

MOV

BIC
CMP
BEQ
BIC

#RHDMES ,RESTMS

(R3)+
(R3)+ ,E.MP
(R3)+,E.MP1
(R3)+ ,E.MP2

RS.CHERR
7%
(R3)+

(R3) ,BDDAT

FIRST

48
#1,FIRST
BDDAT,GDDAY
63
GDDAT
BgDAT.GDDAT

3
ggCHSK.BODAT

GDDAT, TEMP2
CYLMSK, TEM52
MXSECT,TEMP2
38
SECMSK ,GCDAT

FIRST

38. ,EM43,ERR2

;CHECK CONTROLLER FOR ERRORS
_HEADER
:GET

:1S THIS FIRST READ?
:NO, BRANCH

:SET FIRST READ DONE FLAG
:SET UP NEXT READ EXPECTED
:GO SEE IF TEST 1S _DONE

: INCREMENT EXP*D HEADER

;1S NEW HEADER SEQUENTIAL?

;YES THEN BPANCH

:1S NEW HEADER ZERO?
:NO, THEN ERROR GO REPORT IT
SYES, CHECK IF LAST HEADER WAS
:MAX ADDRESS, IF SO BRANCH
:STORE NEW DATA AS OLD

:AND PERFORM NEW RD HDR
SEXPECTING ZERO SECTOR

;ERROR WILL MAKE US MISS
;NEXT SECTOR SEQUENTIALLY
:START OVER; CLEAR FIRST FLAG

CgERDF

EM4L3
ERRZ

6$:

CSCLPY
06 R3

000006
7%:
ENDTST
L10061:

.SBTTL
eY

TST
MOV
TST

002366

104406

228888
-2 OOV ~NO
~NOWnH NN
V0

—d b
OO

T pery

—d b and b b b

b
b b b b
OO0000O0

1
1

01 021226

-—
1

99%:

JSR
JMP

(R3) ,E.CS
E.CS
99%

5%:

013402

002314
002316
002320
013120
021252

999 021224

MOV
TST
BPL
Mov
TST
MOV
MOV
MOV

002306
002306

BGNTST
STARS

995

;CHECK IF /FL:LOE IS SET

;HAVE WE DONE THIS ENOUGH
:NO, GO BACK DO IT AGAIN
saaaxEND OF TESTwwen

TRAP

CSETST

*%)EST 34+ - SEEK FUNCTION

sxnaaSTART OF TESTewer

*ittttttttttttttttttttttttttltttttttfit'ttttttt*iitttttttttttttt

;CHECK THE SEEK FUNCTION RETURNS CONTROLLER READY
;WITH NO ERRORS.
WE ISSUE A ONE TRACK IN WORD SEEK.

K 10

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOv-87 13:58:41 PAGE 8 2 3

L 10

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

SEQ 0128

o
NN
-0

*2TEST 34++ - SEEK FUNCTION

NNV

—h e D d ) D e

[ololelololelels)

;WE DO NOT CHECK THE RESULT FOR POSITION

STARS

021254

VOO ~NOAWN
S WD

::tfi.tttttfitttitttttttttt'ttttttt*tttitttttttttttt.tt.tt.ttttt*tt

012777

012737

MOV

#BIT7'MK!SIGN,8RLDA

R5,LDFUNC

:ggggé FUNCTION OF FOLLOWING WORD

002414

JSR
MOV
DELAY

R5,WTCRDY
#8. ,DLYCNT
250.

sWAIT FOR _CONTROLLER READY HIGH
sINITIALIZE DELAY COUNT
s IMPLEMENT TIME DELAY

012727

gggx

WAIT1:

002116

177772
177756

001361

3
3

33 021342
34
35 021346
021346
021346

104406

004537

;SET UP DA-DIFF=1,MARKER, TOWARDS

160772

002414

28:

MOV
WORD
MOV
WORD
DEC
BNE
DEC
BNE
DEC
BNE

CKLOOP
TRAP

C$CLP

R5,CHERR

JSR

013120

#250.,(PC)+
0
LSDLY,(PC)+
O
-6(PC)
=4
=22(PC)
.~20
DLYCNT
WAIT1

104401

.SBTTL
021350

BGNTST

021350

STARS

;CHECK CONTROLLER FOR ERRORS
sanxxEND OF TEST#wex

ENDTST

L10062:

;DECREMENT DELAY COUNT
sBRANCH IF DELAY NOT EXPIRED
sCHECK IF /FL:LOE IS SET

CSETST

TRAP

#«TEST 35+ -~ CHECK DRIVE READY ON SEEK
suaxxxSTART OF TEST#xex

Y 232822222322222 3333233323322 2332323802232 22 220020332202

:CHECK THE SEEK FUNCTION RETURNS DRIVE READY WITH
sNO ERRORS.

021350

WE DO

::tttttttttt*tttttttttttttttttttfittttitttt*tttttttttttttttttttitt

012777

000201
013420

004537

0714306

104406

021372
021376
021376

WE ISSUE A ONE TRACK INWARD SEEK.

§¥2;SCHECK THE RESULT FOR POSITION

ditdds

004537

013120

104406

004537

014220

160676

MoV
JSR

#BIT7!MK,3RLDA
R5.LDFUNC

;SET DA, MARKER, DIFF=1,
sISSUE FUNCTION OF FOLLOWING WORD

JSR
cKLooP

R5,WTCRDY

TRAP

CSCLPY

sWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

JSR

R5,CHERR

TRAP

C$CLPY

JSR

RS ,WTDRDY

SEEK

CKLOOP

s SEEK

sCHECK CONTROLLER FOR ERRORS

sCHECK IF /FL:LOE IS SET

JWAIT FOR DRIVE READY

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

SEQ 0129

«+TEST 35+« - CHECK DRIVE READY ON SEEK

1061 021404
1062 021404

1046406

1822 021406

004537

013120

1067

C$CLPT

JSR

R5,CHERR

:CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sana%END OF TESTwwne

ENDTST

1065 021412

021412
021412

CKLOOP
TRAP

L10063:

104401

1823

.SBTTL

}8;? 021414

BGNTST

1072

TRAP

CSETST

«TEST 36%+* - SEEK FUNCTION INTERRUPT

s*xxaSTART OF TESTwwax

1073 021414

STARS

1074

*CHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK IS

1076

:NOT.

TENRARER AR

A RNRRARRRARRAERR AR

RRANRAREEARAR

+INITIATED CAUSES AN INTERRUPT BUT DRIVE READY WILL

1075

STARS

1077 021414
1078
1079
1080
1081

1082 021414

1083 021420
021420
0216424
1084 021426

1085 021434
1086 021440
1087 021442

1088 021446

1089 021450
1090 021454
1091 021456
021456
021460

021462
021464
1092 021466
021466

10%

005037

002330

012700
104441
012777
004537
000106
004537

000000

000240

005737
001004

000205
013420

CLR

002330

IST
BNE
ERRDF
TRAP

INTFLG
2%
40.,EM47,ERRO
CSERDF

.DID INTERRUPT OCCUR
:YES, GO CHECK DRDY

.WORD
.WORD
CKLOOP
TRAP

EM47
ERRO

CSSPRI
#BIT7!MK!SIGN,aRLDA ;SET UP RLDA
;ISSUE FUNCTION OF FOLLOWING WORD
R5,LDFUNC
SEEK'INTEN
;SEEK AND INTR. ENA
UAIT FOR CONTROLLER READY HIGH
R5,WTCRDY

160620

1$:

NOP

.WORD

28:

104406

013120

}83% 021476

005037

002330

004537

014220

104406

;SET PSW T0 0

TRAP
MOV

104455
000050

006325
010160

INTFLG

#PRI00
#PRIOO RO

SETPR]I
MoV

014306

004537

1101 021502
1102 021506
021506

WE ALSO MONITOR FOR ANY ERROR BITS SETTING.

.','*tt*tt*ittl’tttttt*ti*tttfit*tttti*ittttt*tt'ttttfi*tttt*tiitttttt

1095 021470
1096 021474
1097 021474
1100

5$:

CSCLPT

sCHECK IF /FL:LOE IS SET

JSR
cxLooP
TRAP

RS, CHERR

CLR

INTFLG

sCLEAR INTERRUPT OCCURANCE

JSR
CKLOOP
TRAP

R5,WTDRDY

:WAIT FOR DRIVE READY
;CHECK IF /FL:LOE IS SET

csCLP1

CSCLPT

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

021510
021514

1105 021516
1106 021522
1107
1108 021524

021524
021526
021530
021532
1109 021534
021534

VNV
b
=t
=OVD~
NN NN

1110
1111 021536
021536
021536

012700

000340

005737

002330

104441

001404

SETPRI
MoV
TRAP
TST

#PRIO7
#PR107,RO

ERRDF

42. ,EM52 ,ERRO
SERDF

BEQ

104455

TRAP

010160

6$:

104406

ENDTST
L10064:

104401

.SBTTL

-WORD
.WORD
.WORD
CKLOOP
TRAP

CSSPR]
INTFLG
6$

:DID DRIVE READY CAUSE INTERRUPT
:NO, CONTINUE

Hey
N

1104 021510

EM52

ERRO

CSCLP

sCHECK IF /FL:LOE IS SET
cHxa%END OF TESTwanwx

TRAP

CSETST

**TEST 37%% ~ TEST OUIFFERENCE WORD TRANSMISSION

BGNTST

sxxx%2START OF TESTwxax

STARS

WNNNONONININND
OV NOWVISWLIN

S RARARARARAARARRNARAA
R RV A AR AR RAARNNARRRRAANRA RN RN RARR NN
ARR

¢VERIFY THAT THE DIFFERENCE WORD LOADS AND IS
sTRANSMITTED CORRECTLY. WE WILL ISSUE SEEKS WITH THE
sDIFFERENCE WORD CONTAINING ALL OF THE BIT PATTERNS FLOATING 1,
:GROWING 1, GROWING O AND SHITING 0. THE SEEK WILL
sSTART FROM TRACK O EACH TIME AND WILL RETURN THERE
sEACH, THUS BOTH DIRECTIONS FOR PATTERNS WILL BE CAECKED.
cREAD HEADERS ARE USED TO VERIFY THE SEEK CORRECTNESS.

g;fiSgRS ARE MONITORED AND REPORTED.

lalanak
2l
X o¥ o
oSN
N—O

WWNWNWWNNL
WVONOWV

WA
SN

S o RRAARRANAARAAARNAARAARRCNIRRARNRARARNRARANRARARACRRAARRRANCRRNNEY

012703

002626

BGNSEG

104404

004537

18:

013420

304337 014306

98$:

104406

004537

013120

104406

013737
043737
001462

002314

002334

002364

Mov

#SKLST,R3

TRAP

C$BSEG

JSR
RDHDR
JSR
CKLOOP
TRAP

R5,LDFUNC

JSR
CKLOOP
TRAP

R5.CHERR

Mov

E.MP BDDAY
SECMSK ,BODAT
99¢

Bi(
BtQ

RS ,WTCRDY
CSCLP1

C$CLPT

2GET LIST OF DIFFERENCE WORDS
JunnaSTART OF SEGMENTawen
sISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER
sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

sREAD HEADER
sCLEAR QUT SECTOR
cIF ON TRACK 2ERO, H.S. ZERO, OK

SEQ 0130

N 10
CZRLGCO_RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-26
*+TEST 36++ ~ SEEK FUNCTION INTERRUPT

B 1N

SEQ 0131

CZRL.CO RL11/RLVIT C TLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-27

062737

004537

AV
OV

002364
160432
160424

021660
021664
021664

004537

021666
021672
021674
021700

004537
000010
004537

021700

104406

004537

~
(=]

004537

R5.CHERR

013120

CSCLPT

014220

89%:

CSCLPY

CS$CLPT
R5,LDFUNC

013420

014306

96$:

R5,WTCRDY

CSCLPT
R5,CHERR

013120

C$CLP
002362
002364
002314
002334

GDDAT
BDDAT,DWORD
E.MP,BDDAT
SECMSK,BDDAT
5%

002376
002364
002364

010252

5%:

104406

RS ,WTDRDY

R5,CHERR

013120

1046455

004537

sSET MARKER BIT
sISSUE FUNCTION OF FOLLOWING WORD
¢ SEEK
:WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

CS$CLPT

104406

011377

#MK ,aRLDA

R5,WTCRDY

014306

104406

005037
013737
013737
063737
001404

sCLEAR OUT HEAD SELECT

R5,LDFUNC

104406

021710

#RHHS ,BDDAT

BDDAT ,aRLDA

104406

021652
021656
021656

[=]

YN
NNN
O000QONNNNN

004537

~nN

021650
021650

N=OYONOWV SN 20V
N g VIS

oal’

OONON
W=

b
b oud
b il b
b
b
b
— b b =b b
)
ey
b ed aud wmd cmd b b b

000100

104406

~N)

&~
iV
S
~NOAWNMSWNI—OYOoON

:NOTZgN TRACK ZERD CALCULATE ODIFFERENCE WORD AND PUT IT BACK

b wnd b b d cd cd o D d nd b
-— —d cmd e d ad D d D b d =D

«+TEST 37+t = TEST D 1 FFERENCE WORD TRANSMISSION

160276
000005
013420

014306

160270

99s:

43. EM54 ERR3
CSERDF
43
EM54
ERR3

C$CLPT
(R3) ,aRLDA

#SIGN!MK,aRLDA

R5,LDFUNC

R5,WTCRDY

C$CLP1

sPUT CYLINDER AS DIFFERENCE WORD

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY
;CAECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
:ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

sWAIT FOR CONTRO'.LER READY HIGH
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
:CLEAR EXPECTED
:SAVE DIFFERENCE WORD
;READ HEADER
;MASK OUT SECTOR BITS
sBRANCH IF ON ZERO TRA(K

sCHECK IF /FL:LOE IS SET
sGET DIFFERENCE WORD
sSET SIGN (TOWARDS SPINDLE) AND MARKER
sI1SSUE FUNCTION OF FOLLOWING WORD
s SEEK
sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SEY

*+TEST 37¢+ - TEST DIFFERENCE WORD TRANSMISSION

1192 022000

004537

119 022004

104406

1195 022006

004537

1193 022004

1196 022012

013120

JSR

RS, CHERR

TRAP

CSCLP1

JSR

RS,WTDRDY

TRAP

CSCLP1

JSR

RS, CHERR

TRAP

CSCLP1

CKLOOP

014220

878:

CKLOOP

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
sWAIT FOR DRIVE READY

sCHECK IF /FL:LOE IS SET

1197 022012

104406

1198 022014

004537

1200 022020

104406

1201 022022

004537

013420

JSR

RS, LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

1204 022030

004537

014306

JSR

RS,WTCRDY

1204 022034

104406

TRAP

CSCLP1

;WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE 1S SET

1207 022036
1208 022042
022042
1209 022044

004537

JSR
ESCAPE
TRAP
.WORD

RS, CHERR
SEG
CSESCAPE
10000S$-.

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT SEG

1210 022046
1211 022052

011337
011337

MOV
MOV

(R3) ,GDDAT
(R3) .DWORD

:GET EXPECTED CYLINDER
sSET UP DIFFERENCE FOR SEEK

1199 022020

}ggg 022026

1205 022034
o]

1212 022056
1213 022066
1214 022072

}g}g 022100

1217 022102
022102
022104
022106
022110
1218 022112

000010

013120

CKLOOP

RDHDR

CKLOOP

013120

104410
000106
013737
043737
023737

00140+

002362
002376

002314
002334
002362

002364
002364
002364

104455
000054
006426
010252

1219 022112

104406

1220 022114
1221 022116
1222 022126

005723
023727
001005

8s:

E.MP.BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT

ERRDF
TRAP
WORD
"WORD
"WORD

4. ,EM54,ERR3
CSERDF
44
EMS4
ERR3

TRAP

CSCLP1

181
CMP
BNE

(R3)+
, #1
T.DRIVE
28

BEQ

10§

BEQ

98:

002406

MOV
BIC
CMP

000001

CKLOOP

1223 022126 020327 002726

CMP
JMP

1224 022132 001407

}ggg 022134

000137

021546

1227 022140

020327

002770

}ggg 022146

000137

021546

1228 022144 001402

2s:

1231 022152

108:

1233 022152
022152

ENDSEG
100008:

1232

022152
1234 0221564
022154

104405

ENDTST
£10065:

sREAD HEADER

sREAD HEADER FROM RLMP

;CLEAR OQUT SECTOR BITS
;DID SEEK GO TO THE RIGHT

:TRACK, IF SO, GO GET NEXT

sCHECK IF /FL:LOE IS SET

;BUMP PATTERN = = TM = swmere -

R3,#SKEND
18

CMP

R3,#SKEEND

JMP

BEQ

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

10$

sanetEND OF SEGMENT#«xw

TRAP

CSESEG

sueexEND OF TESTwwne

VO -

TOVWer
v o
r.

w
q

SEQ 0132

afh

CZRLGCO RL11/RLV11 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 8-28

—

D 11

CZRLGCO RL11/RLV1T CTLR TST 1 MACRO V04,00 30-NOV-81 13:58:41 PAGE 8-29

SEQ 0133

022154

TRAP

104401
JSBTTL

022156

BGNTST

022156

STARS

CSETST

««TEST 38+% - VERIFY HEAD SELECT 0 VIA RD HDR

s#aaxSTART OF TESTwwns

d e

b e

NONINIPLNIALNININD

b ek

*+TEST 37+¢ « TEST DIFFERENCE WORD TRANSMISSION

: :tttttttttttttttt*ttttttittttttttt‘.ttittttttttttttttittttttt'ttt

sCHECK THAT WE CAN SELECT HEAD SELECT ZERO. ISSUE
;SEEK TO HEAD SELECT O AND VERIFY WITH READ HEADER.

1244
1245

STARS

1246 022156
1247

DI ERRRRARRARAARR AN

1248 022156
1249 022164
1250

012777
005037

000001
002362

1252 022170

004537

013420

1251 022170

1253 022174

000006

004537

1256 022202

104406

1257 022204
1258 022210

004537

1259 022210

104406

1260 022212
1261 022216
1262 022216

004537

1263 022220
1264 022224

004537

1265 022224

104406

1266 022226

004537

013420

1268 022234
1269 022240
1270 022240

004537

014306

004537

022246
1273 022250

104410
000036

1274 022252
1275 022260
1276 022266
}S;g 022274

013737
042737
023737
001404

022276
022300

013120
014220

89$:

013120

104455
000055

#MK ,aRLDA,
GDDAT

sSET MARKER IN RLDA
sSET EXPECTED
sLOAD HS=0 INTO RLDA

JSR

R5.1 DFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP

RS ,WTCRDY

TRAP

C$CLP

sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

JSR
ckLooP

R5,CHERR

TRAP

C$CLPi

JSR
CKLOOP
TRAP

RS ,WTDRDY

JSR
CKLOOP

R5,CHERR

TRAP

cscLP

JSR

R5,LDFUNC

JSR
CKLOOP
TRAP

R5 ,WTCRDY

JSR
ESCAPE

R5,CHERR
TST

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT TST

MoV
8IC
CMP
8tQ

E.MP,BDDAT
#177677 ,BDDAT
GDDAT ,BDDAT
5%

sREAD HEADER FOR HEAD SELECT
;MASK ONLY HEAD SELECT
:COMPARE HEAD SELECTS
:IF EQUAL CONTINUE

ERRDF

45.,EM55,ERR4

RDHDR

968 :

013120

TRAP
.WORD

002314
177677
002362

002364
002364
002364

AR RARRRARRNANCARRRNNARERANANARERANAS

MOV
CLR
SEEK

104406

1271 022242
1272 022246

1279 022276

2$:

104406

000010

99§:

014306

1254 022176
1255 022202

1267 022232

160070

AR AT

TRAP
.WORD

CSCLP

CS$CLP1
CSESCAPE
L10066~.

CSERDF

sSEEK

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
:CHECK IF /FL:LOE IS SET
;1SSUE FUNCTION OF FOLLOWING WORD

¢READ HEADER

;WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

E N

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

SEQ 0134

*++TEST 38ex - VERIFY HEAD SELECT O VIA RD HDR

02¢302
022304

}%g? 022306

006465
010324

5%:

022306

EMSS
ERR4

JaxxtEND OF TESTwwwe

ENDTST

1282 022306

022306

.WORD
.WORD

L10066:

104401

TRAP

CSETST

1%%2

JSBTTL

*«TEST 39+» - VERIFY HEAD SELECT 1 VIA RD HDR

}%87 022310

BGNTST

;anaaSTART OF TESTwren

1289

1290 022310

STARS

1291
1292

CHECK THAT WE CAN SELECT HEAD SELECT ONE. ISSUE
SEEK TO HEAD SELECT 1 AND VERIFY WITH READ HEADER.

ttttfitttttttttttttttttttttttttttttttttttttttttttttitttttttttttt

Je tttttttttttttttttttttttttttttttttttttttttttttttttttt.ttttttt'tt- -

1294
1295

1296 022310
1297 022316

012777
052777

000001
000020

1298 022324 004537 013420
1299 022330 000006
1300 022332 004537 014306
1301 022336

157736
157730

99$:

MOV
8IS

JSR
SEEK
JSR

CKLOOP

#MK, aRLDA
#DAHS ,aRLDA

RS,LDFUNC
RS,WTCRDY

;SET MARKER IN RLDA
:LOAD HS=1 INTO RLDA

ISSUE FUNCTION OF FOLLOWING WORD
+SEEK
UAIT FOR CONTROLLER READY HIGH
CHECK IF /FL:LOE IS SET

TRAP

C$CLP1

JSR
CKLOOP

RS.,CHERR

TRAP

CSCLP1

JSR
CKLOOP
TRAP

RS,WTDRDY

JSR
CKLOOP
AP

RS,CHERR

013420

JSR

RS5,LDFUNC

:ISSUE FUNCTION OF FOLLOWING WORD

1314 022370 004537 014306

JSR

RS,WTCRDY

UAIT FOR CONTROLLER READY HIGH

1302 022336

104406

1303 022340
1304 022344

004537

1305 022344

104406

1306 022346
1307 022352
1308 022352

004537

1309 022354
1310 022360
311 22360

004537

1312 022362

004537

1313 022366

014220

898%:

104406

013120

104406
000010

1315 022374
1316 022374

104406

1317 022376
1318 022402

004537

1319 022404

000044

1320 022406

013737

022402

013120

RDHDR

CKLOOP
TRAP

013120

104410

002364

1321 022414 042737 177677 002364
1322 022422 012737 000100 002362
1323 022430 023737 002362 002364

C$CLP?

CSCLP

JSR
ESCAPE

RS CHERR

LWORD

L10067-.

MOV

E.MP_,BDDAT

TRAP

002314

c$cLP1

8IC
MOV
cMP

CSESCAPE

#177677 .BDDAT
#RHHS ,GDDAT
GDDAT ,BDDAT

: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
*READ HEADER

CHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS
IF /FL:LOE SET LOOP, ELSE EXIT TIST
;READ HEADER

:MASK FOR H.S.
*SET EXPECTED
*CORRECT HEAD

F 11

CZRLGCO_RLY1/RLV1I1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-31

SEQ 0135

*+TEST 39++ ~ VERIFY HEAD SELECT 1 VIA RD HDR

}%gg 022436
1326 022440

0224640
U22442

022444
022446

}%gg 022450

001404

1331

ERRDF

46.,EM55,ERR4

.WORD
.WORD

EM55
ERR%

TRAP
WORD

104455
000056

006465
010324

5%:

L10067:

104401

:YES, TONTINUE

CSERDF
46

sanaaEND OF TESTwwnx

ENDTST

1329 022450

022450
022450

BEQ

TRAP

CSETST

*+TEST 40** - VERIFY HEAD SELECT O VIA GET STATUS

}%%%

.SBTTL

1§§§ 022452

BGNTST

1336 022452

STARS

1337
1338

+CHECK THAT WE CAN READ BACK HEAD SELECT O WITH
:A GET STATUS FUNCTION. SELECT H.S. 0 WITH A SEEK

1340 022452

STARS

e ' 2122232222223 3323322223230 338 22022203

}gfi% 022452

012777

000001

1344 022460
1345 022464

005037
004537

002362
013420

000006
004537

013120

022504

104406

3 0222?3

004537

22512

1046406

514

004537

022520

104406

022522
022530

012777
004537

000003
013420

022536

004537

014306

Q
=
o
=
L=

004537

022542

104406

022544

004537

022550
022550

28:
3s:

104406

? 022500

022534

157574

014306

=1
N
N

b wed wd
- b b —h—l—l-ha—l
b
==b
b
—b
and
WWW
W
uug
Vil
oWy
e
i
~NO\W
N
WNI=00 00
334 SEGHNN

-—b

1346 022470
1347 022472
348 022476
9 022476

RERRRNRRR R EANANNR AR AR ARRRAARRRARRRRARERANNNRRRRRR

:VERIFY WITH GET STATUS

1339
1341

sxaxaSTART OF TESTwxex

104410

014220

013120

157524

MoV

#MK ,aRLDA

CLR
JSR
SEEK

RS LDFUNC

;SET MARKER IN RLDA
sLOAD HS=0 INTO RLDA
:SET UP EXP'D
:ISSUE FUNCTION OF FOLLOWING WORD

: SEEK

:WAIT FOR CONTROLLER READY HIGM
sCHECK IF /FL:LOE IS SET

JSR
CKLOOP
TRAP

RS ,WTCRDY

JSR
CKLOOP

R5,CHERR

TRAP

cscLPY

JSR
CKLOOP
TRAP

RS ,WTDRDY

JSR
CKLOOP
TRAP

RS, CHERR

MOV
J

#GSBIT!MK,aRLDA
;;SET UP FOR GET STATUS IN DA
;ISSUE FUNCTION OF FOLLOWING
R5,LDFUNC

CSCLPT

CSCLPY

CSCLP1

RS,WTCRDY

CSCLP

013120

il dstdiiiisislilsd)

RSfCHERR

CSESCAPE

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE 1S SET
;WAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

WORD
:GET_STATUS
:WAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

SEQ 0136

1373 022600
022600
022602
022604
022606
}g;g 022610

104455
000057
006520
010324

6$:

1378

#i77677, BDDAT
GDDAT ,BODAT
63

ERRDF
TRAP
.WORD
.WORD
.WORD

47.,EM56,ERR4
CSERDF
47
EM56
ERR4

:LEAVE ONLY H.S. BIT
;IS HEAD SELECT CORRECT?
:YES, CONTINUE

L10070:

104401

suaatEND OF TESTwawe
TRAP

CSETST

««TEST 41++ - VERIFY HEAD SELECT 1 VIA GET STATUS
sanx«START OF TESTwewe

%%gg

.SBTTL

}gg} 022612

BGNTST

1383 022612

STARS

1304
1385

:CHECK THAT WE CAN READ BACK HEAD SELECT 1 WITH A GET
:STATUS FUNCTION. SELECT H.S. 1 WITH A SESK AND VERIFIY WITH

L Tt

:GET STATUS
STARS

1386
1387 022612
1388
1389

1390 022612
1391 022620
1392 022626
1393 022634

012777
052777
012737
004537

000001
000020
000100
013420

1395 022642
1396 022646
1397 022646

004537

014306

1398 022650
1399 022654
1400 022654

004537

1401 022656
1402 022662
1403 022662

004537

1404 022664
1405 022670
1406 022670

004537

1407 022672
1408 022700
1409 022704
1410 022706

012777
004537
000004
004537

1394 022640

000006

157434
157426
002362

104406

013120

104406

014220

104406

013120

104406

000003
013420
014306

157354

TR AR

RN R AR

bebbdbduiaiai

i AL AL L

ERRRR R AN ANS

RRRRRARAR AR

28%:
3s:

MoV
BIS
MOV
JSR

#MK , SRLDA
#DAHS ,aRLDA
#STHS ,GDDAT
R5,LDFUNC

sSET MARKER IN RLDA
;LOAD HS=1 INTO RLDA
sSET UP EXP'
s ISSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP
TRAP

RS ,WTCRDY

;WAIT FOR CONTROLLER READY HIGH
:CHECK IF /FL:LOE IS SET

JSR
CKLOOP
TRAP

RS, CHERR

JSR
CKLOOP
TRAP

R5,WTDRDY

JSR
CKLOOP
TRAP

R5,CHERR

MOV
JSR
GSTAT
JSR

#GSBIT!MK,aRLDA ;SET UP FOR GET STATUS IN DA
21SSUE _FUNCTION OF FOLLOWING WORD
R5,LDFUNC
:GET _STATUC
sWAIT FOR CONTROLLER READY HIGH
R5,WTCRDY

SEEK

CSCLP

C$CLP1
CSCLPT

CSCLPT

BIC
CMP
8tQ

¢READ STATUS FOR HEAD SELECT 8IT

ENDTST

1376 022610

022610
022610

E.MP,BDD

1369 022562 042737 177677 002364
1370 022570 023737 002362 002364
}g;} 022576 001404

MOV

002364

Y Y

002314

013737

L10070-.

1368 022554

.WORD

000036

1367 022552

*+TEST 40wx - VERIFY HEAD SELECT O VIA GET STATUS

- A

G 1

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

: SEEK

sCHECK 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

JSR
ESCAPE

R5,CHERR
TST

sCHTCK CONTROLLER FOR ERRORS
;Te /FL:LOE SET LOOP, ELSE EXIT TST

104410
000046

1413 022716
1614 022722

004537

022722
1415 022724

104410
000036

1416 022726

013737

002314

002364

rov

1418 022742
}2%8 022750

023737
001404

002362

002364

CMP
BEQ

013120

TRAP
.WORD

1417 022734 062737 177677 002364

1421 022752
022752
022754
022756
022760
}25% 022762

104455
000060
006520
010326

6$:

- b e D h b b b
SBEDEDES

L10071:

104401

.SBTTL

%8 022764

BGNTST

o VoO~NO
NS W

) el el b b a=d cad

&H EERESER
o~ NN
NN NN

ERRDF
TRAP
.WORD
.WORD
.WORD

48.,EM56,ERR4
CSERDF
48
EM56
ERR4

GDDAT ,BODAT
63

;IS HEAD SELECT CORRECT?
:YES, CONTINUE

sanxaEND OF TESTwann
TRAP

CSETST

#«TEST 42+% ~ TEST TIME AT WHICH DIF WD GETS TRANSMITTED
saaaaSTART OF TESTewew

ttttt'ttttt**tttti*'t*ttttttttttitttttfiiittttttttttttfittttt'ttt

:VERIFY THAT THE DIFFERENCE WORD ON A SEEK IS
STRANSMITTED PRIOR TO CONTROLLER READY SETTING. THIS
;1S DONE BY SETTING A KNOWN DIFFERENCE WORD IN
sTHE RLDA ISSUING A A SEEK, WAITING FOR CONTROLLER READY
*(BUT NOT DRIVE READY), WRITING A DIFFERENT RLDA AND WAITING
:FOR DRIVE READY. THE RESULTANT POSITION SHOULD BE THAT
:OF THE FIRST RLDA ONLY.
STARS

022764

1443 022764
1444 022770
1445 022772
1446 022776
022776
1447
1448 023000
1449 023004
023004

8IC

;READ STATUS FOR HEAD SELECT BIT

,LEAVE ONLY H.S. BIT

STARS

32 022764

1441
1442

E.MP,BDDAT

#177677 BDDAT

ENDTST

1424 022762

022762
25 022762

CSESCAPE
L10071~

022712
1412 022714

::ttittttttttitttttltttt'tttttttttititt.tttttttttttitttttittt'tt'

004537
000010
004537

013420
014306

104406

004537

013120

104406

013737
043737
012777

002314
002334
000001

99%:

JSR
RDHDR
JSR

R5,LDFUNC

TRAP

CSCLP

JSR
CkLOOP

R5,CHERR

TRAP

C$CLPY

MOV

E.MP,GDDAT
SECMSK ,GDDAT

CKLOOP

8IcC

MOV

R5 ,WTCRDY

#MK ,3RLDA

p— g—

CSESCA E
L10071-

;IF /FL:LOE SET LOOP, ELSE EXIT TST

228

TRAP
WORD

TST

ESCAPE

1411 022712

S " Y " 2 S

*++TEST 41ew - VERIFY HEAD SELECT 1 VIA GET STATUS

SEQ@ 0137

Y .alealselo Ny o lscles AR SN S

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

sISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

:WAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE 1S SET
sREAD HEADER

sCLEAR SECTOR BITS

:SET MARKER IN RLDA

(=4
o

N
W
N

puiy

no
N

jelel=

032737
03

b e

i o

e o

ek b

b ad vd and b wd wnd avd

D wd

b wd

b i el

bWNdOOOVOMgWNdOOQV

SO BB
oo
NN
NNNNNNNNO OOV
~NONWDN

1454 023030
55 023036

004537

002362

ngHS.GDDAT

000020

157206

#DAHS ,3RLDA

002406

000001

002354

002704

000004
002702

157144

002362

002702

002362

000020

15719

000020

002356

002354

002734

000004
002732

157054
002362

002732

002362

QMAX
, GDDAT

000020

157014

ggAHS.aRLDA

000020
013420

002356

GDDAT, TMPQ
#RHHS
, TMPO
M
T.DRIVE.
128
TMPO, HALMAX
3s

2s:

:TEST H.S.

*1€ Z2ERO,

CONTINUE

‘ONE, SET SO WE WILL REMAIN THERS
*STORE HEADER
*CLEAR H.S. FROM STORED WORD

#SIGN,8RLDA

2%AHAX.GDDAT
, GDDAT
QUAMAX

3s:

QUAMAX ,S8RLDA
K, TMP1
ggAHS.iRLDA

4$:

#DAHS
, TMP1
5%
TMPO, HMAX
138

128:

#SI1GN,aRLDA
QMAX, GDDAT

148

K, TMP1

5%:

014306

, TMP1
#DAHS
RS5,LDFUNC

:ggggf FUNCTION OF FOLLOWING WORD

R5 ,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

CSCLP

104406

488

SCHECK IF /FL:LOE IS SET

4t 9

000100

023264
023270
023270

004537

1 493 023272
1 494 023300

013777
004537

b od

4 90
4 91

492

495 023304
023304
496
1 497 023306
1 498 02%3}2
1

1
1
1
1

023322
1505 023326

R5,CHERR

013120

CSCLP1

104406

002356
014306

TMP1,3RLDA
R5 ,WTCRDY

156754

CsCLP

104406

004537

R5,CHERR

013120

CSCLP

104406

004537

014220

104406

004537

013120

R5,WTDKRDY

8s:

CSCLP1
JSR
ckLooP

RS, CHERR

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;SEND IN NEW DIFFERENCE WORD

sWAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sC'SCK IF /FL:LOE IS SET
sWAIT FOR DRIVE READY

sCHECK IF /FL:LOE IS SET
sCHECK CONTROL LER FOR E ERRORS
sCHECK IF /FL:LCE IS SE SET

SEQ 0138

*xTEST 42+*+ ~ TEST TIME AT WHICH DIF WD GETS TRANSMITTED

CNCNENEN
TM
VIO D DD DD

INn

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

004537

ViAWY

002314
002334
002362

R5 ,LNFUNC

;JSSUE FUNCTION OF FOLLOWING WORD

RS ,WTCRDY

:WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

JSR
ESCAPE

RS CHERR

-WORD

L10072~.

MoV
8IC

E.MP ,BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT
108

ERRDF

50. ,EM57 ,ERR4
CSERDF
50
EMS7
ERR4

CMP
8EQ
TRAP

104455
000062
006557
010324

108:

.WORD
.WORD
.WORD

CSCLPY

CSESCAPE

L10072:

.SBTTL

:READ HEADER

:CHECK CONTROLLER FOR ERRORS
:IF /FL:LOE SET LOOP, ELSE EXIT TST

;READ HEADER

:CLEAR SECTOR ADDRESS
;1S HEADER CORRECT?
:IF SO BRANCH

saawaIND OF TESTwene

ENDTST
104401

JSR
RDHDR
JSR
CKLOOP
TRAP

TRAP

6
7

TRAP

CSETST

«TEST 43+~ - EXTENSIVE CHECK OF HEADER CRC
;axaxSTART OF TESTwanex

8 023412
9 023412

BGNTST
STARS

:MORE EXTENSIVE CHECK OF HEADER CRC. WE UIlL SEEK
:AND READ HEADERS VERIFYING HDR CRC ACROSS THE
:PLATTER USING THE GROWING 0, GROWwiNG 1, SHIFTING O AND

tttttttttttttti*ttttitt*tt't*fitt'ttlttttttttttttttttttttttttttt

2
3

:GROWING 0 PATTERNS FOR TRACK ADDR'SSES.

STARS

;;tttttttttttttttttttttt*ttttttfitttilttitttttt.tt*ttttttttfitttttt

012703

002626

104404

004537
000010
004537
OU’lJ\

—b
b b

013120

104410
000036

001404

014306

107406

013737

1 023410
2
3 023410
023410
023410

013420

CSCLPY

013420
014306

104406

023440
023440

004537
104406

013120

BGNSEG
13:

98$:

sGET LIST OF DIFFERENCE WORDS

MOV

#SKLST,RS

TRAP

C$BSEG

JSR
RDHDR
JSR

RS .,LDFUNC

sISSUE FUNCTION OF FOLLOWING WORD

R5,WTCRDY

TRAP

CsCLP

:WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

JSR
ckLooP

RS,CHERR

cKLOOP

TRAP

CSCLPY

tt*tSTART OF SEGMENT=aax
:READ HEADER

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

CURNCYOVYEVPVEAOVOVOCVIVNOVEDY

204537
000010
004537

TRAP

PN
rn

b b

OO0

b e

O00O0

d b

104406

SEQ 0139

J 1
-35
8
PAGE
13:58:41
30-NOV-81
V04.00
MACRO
1
TST
CTLR
1
RL11/RLVI
CZRLGCO
«TEST 42++ - TEST TIME AT WHICH DIF WD GETS TRANSMITTED

002364
002364

1554

1559 023506

BEQ

042737
013777
052777
004537
000006

000100
002364
000001
013420

002364
156560
156552

004537

1566 023524
1567 023530
1568 023530

004537

1569 023532
1570 023536
023536

004537

1573 023540

004537

1575 023546
1576 023552
1577 023552

004537

1578 023554
1579 023560
1580 023560

004537

1581 023562
1582 023566
1583 023574
1584 023602
}ggg (23610

005037
013737
013737
043737
001404

1587 023612
023612
023614
023616
023620
1588 023622
1589 023622

104455
000063
006426
010252

1590 023624
1591 023630
1592 023636
1593 023642

011377
052777
004537
000006

1574 023544

;IF ON TRACK ZERO, H.S. ZERO, OK

013120

sCLEAR OUT HEAD SELECT
sPUT CYLINDER AS DIFFERENCE WORD
sSET MARKER 8IT
;ISSUE FUNCTION OF FOLLOWING WORD

JSR

R5,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

CSCLPT

: SEEK

;CHECK IF /FL:LOE IS SET

JSR
CKLOOP
TRAP

R5,CHERR

JSR
CKLOOP
TRAP

R5,WTDRDY

JSR
CKLOOP
TRAP

R5,CHERR

013420

JSR

RS ,LDFUNC

sISSUE FUNCTION OF FOLLOWING WORD

014306

JSR
CKLOOP
TRAP

R5,WTCRDY

:WAIT FCR CONTROLLER READY HIGH
sCHECK IF /FL:LGE IS SET

JSR
ckLOoOP
TRAP

R5.CHERR

CLR
MoV
MoV
BIC
BEQ

GDDAT
BDDAT,DWORD
E.MP,BDDAT
SECMSK ,BDDAT
5%

ERRDF
TRAP
+WORD
.WORD
.WORD
CKLOOP
TRAP

51.,EM54,ERR3
CSERDF
51
EM54
ERR3

MOV
8IS
JSR
SEEK

(R3) ,aRLDA
#SIGN'MK ,3RLDA
R5,LDFUNC

104406

014220

89$:

104406

013120

104406

000010

#RHHS ,BDDAT
BDDAT ,aRLDA
#MK ,aRLDA
R5,LDFUNC

ckLOooP
TRAP

104406

1563 023516
1564 023522
1565 023522

1372

JREAD HEADER
sCLEAR OUT SECTOR

BIC
MOV
8IS
JSR

SEEK

1560 023510 004537 014396

1561 023514
1562 023514

E.MP BDDAT
SECMSK ,BDDAT

;NOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK

}gg%
1555 023460
1556 023466
1557 023474
1558 023502

MoV
BIC

RDHDR

96$:

104406

013120

104406

002362
002364
002314
002334

.
002:76
002364
002304

5$:

104406
156424
000005
013420

156416

C$CLPY
CSCLP

CSCLP1

CSCLPT

CSCLPY

CSCLP

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

:READ HEADER

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
sCLEAR EXPECTED
sSAVE DIFFERENCE WORD
:READ HEADER
:MASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

;CHECK IF /FL:LOE IS SET
;GET DIFFERENCE WORD
;SET SIGN (TOWARDS SPINDLE) AND MARKER
sISSUE FUNCTION OF FOLLOWING WORD
s SEEK

001461

002314
002334

MmmramoO
o000 000000

}gg? 0234

013737
043737

1548 023442
1549 023450

MMM MM MMM MmMmmmmm

v«TEST 43v+ ~ EXTENSIVE CHECK OF HEADER CRC

I P P P PTR STR FTA P PR P P P PR PR AT AT PRI A AR

SEQ 0140

o P

K 11

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

SEQ@ 0141

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-3
**TEST 43++ - EXTENSIVE CHECK OF HEADER CRC

106406

004537

014220

104406

004537

013120

104406

004537
000010
004537

013420

014306

104406

004537

013120

104406

011337
011337

001404

002362

002364
002364
002364

8s:

013737
004537

o0
NN

002314
014032

o
(=]
'S

R5.,CHERR

JSR
RDHDR
JSR
CKLOOP
TRAP

R5,LDFUNC

JSR
CKLOOP
TRAP

R5,CHERR

MOV
MOV
MOV
8IC

(R3) ,GDDAT

002344
002320
002362

002362
002364
002364

CSCLPT

C$CLPT

R5,WTCRDY

cscLP1

CSCLP
(R3) ,DWORD

E.MP,BDDAT
SECMSK ,BDDAT
ggDAT.BDDAT

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE 1S SET
sWAIT FOR DRIVE READY
;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
:CHECK IF /FL:LOE IS SET

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
:WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
:CHECK IF /FL:LOE IS SET
sGET EXPECTED CYLINDER
:SET UP DIFFERENCE FOR SEEK
:READ HEADER FROM RLMP
sCLEAR OUT SECTOR BITS
:DID SEEK GO TO THE RIGHT
;TRACK, IF SO, GO GET NEXT

52. ,EM54 ,ERR3

CSERDF
52

EM54
ERR3

cscLP
R5,SIMBCC

024030
024026

O~
o

JSR
CKLOOP
TRAP

CSCLPY

E.MP,10$

024000

&~
o
N

(=]

9%:

0
0
CALBCC,20$

;CHECK IF /FL:LOE IS SET
:GET HEADER WORD
;60 CALCULATE HEADER CRC
;16 BITS

:HEADER GOES HERE
;START WITH ZERO CRC

E.MP1,218
RS, sxnecc

c1s:

023737

R5,WTDRDY

.WORD

002344
002316
014032

N
&S

(=3
N

N
o

9 024046

JSR
CKLOOP
TRAP

TRAP

108:

30 024002

b cd b b d b

b b cnd b

b e

(o Yo Yo Yo oloooONONONON ONONON
NN
W
NN W
b
N
000
oo

26 023764
27 023772

b ==d —=d

1625 023762

R5,CHERR

ERRDF

010252
104406

JSR
CKLOOP
TRAP

CMP
BEQ

104455

023760
1624 023762

CSCLP

0
0
CALBCC,GDDAT
E.MP2,BDDAT
GDDAT ,BDDAT

MAMmMAmMmmmmmmmmmmmmmmmmmmmmm

013120

TRAP

sWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

Y FTY AT FTY) PYY

004537

R5 ,WTCRDY

e FYY

104406

JSR
CKLOOP

wgn

014306

004537

-y

-—d

192

1594 023644
1595 023650
023650
1596
1597 023652
1598 023656
023656
99
1600 023660
1601 023664
023664
1602
1603
16 04 023666
605 023672
023672

;MOVE CALCULATED CRC TO GDDAT
;GET HEADER CRC FROM RLMP
:1S CRC CORRECT?

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

SEQ 0142

*+TEST 43ev - EXTENSIVE CHECK OF HEADER CRC

53..EM&2,ERRé
CSERDF
53
EM&2

ERR4

CS$CLP1
(R3)+
T.DRIVE,#1
2
R3,#SKEND

001005
020327

002726

TST
CMP
BNE
CMP

1651 024110
1652 024114

000137
020327

023420
002770

JMP
CMP

1%
R3,#SKEEND

1654 024122
}ggg 024126

000137

023420

JMP

1653 024120 001402

000001

BEQ

28:
128:

1658 024120

024130
024130

12§

12$

ENDSEG

1657 024126

024126
024126

BEQ

100008:

1€4405

ENDTST

L10073:

104401

:BUMP PATTERN

1650 024106 001407

002406

TRAP

CSESEG

TRAP

CSETST

;anaxEND OF SEGMENT %

s R 2 R 2

1648 024100
1649 024102

005723
023727

;axaaEND OF TESTwwex

L o

1646 024070
1647 024072

:CHECK IF /FL:LOE IS SET

104406

"WORD

CKLOOP
TRAP

**TEST 44*+ - VERIFY GET STATUS WHILE DRDY IS LOW

}gg}

LSBTTL

}ggz 024132

BGNTST

1665 024132

STARS

1666
1667

“VERIFY THAT WE CAN ISSUE GET STATUS AND RECIEVE
*THE STATUS WORD WHILE THE DRIVE IS IN NOTION SEEKING

ttttttttttttttttttttttttttttttttttttttttttt*ttttttttttttttttttt

;;tttttttttttttttttttttttlttttttttttttttttttttttttttttttttttttttt

1669
1670

1671 024132
1672 024132
1673 024136
1674 024140

004537
000010
004537

26144

1046406

1677 024146
1678 024152
1679 024152

004537

1680 024154
1681 024162

013737
043737

}ggg 024170

STARS

1668 024132

1676

;axxxSTART OF TESTwwnx

1$:

013420

014306

013120

104406

001461

002314
00235«

002364
002364

11$:

010324

16cs

104455
000065
006047

ERRDF
TRAP
.MORD
"WORD

:IF SO CONTINUE

1643 024066
024066

118

024064

BEQ

c B 2 B o

1642 024056
024056
024060
024062

001404

JSR
RDHDR
JSR
CKLOOP

R5,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

RS ,WTCRDY

TRAP

C$CLP

;WAIT FOR CONTROLLER READY HIGH
:CHECK IF /FL:LOE IS SET

JSR
CKLOOP

R5,CHERR

TRAP

CS$CLP

MOV

E.MP,BDDATY
gECMSK.BDDAT

8IC
8tQ

:READ HEADER

sTHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
sREAD HEADER

:CLEAR QUT SECTOR
:IF ON TRACK ZERO, H.S. ZERO, OK

}22? 024054

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

SEQ 0143

**TEST 44v+ - VERIFY GET STATUS WHILE DRDY IS LOW

:NOTZggoTRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK

1687 024172
1688 024200
1689 024206
1690 024214
1691 026220
1692 024222
1693 024226
0264226
1694
1695 024230
'696 024234
024234
1697
1698 024236
1699 024242

024242

1700
1701 024244
1702 024250

024250

—d end b cnd b cud b ad

aad b and

— —h

1703
1704
1705 024252
1706 024256
707 024260
08 024264

000100
002364
000001
013420
004537

002364
156046
156040

#RHHS ,BDDAT

BDDAT,3RLDA
#MK, SRLDA

RS, LDFUNC

014306

R5,WTCRDY

104406

004537

C$CLPY
C13120

R5,CHERR

104406

004537

cscLPY

014220

R5.WTDRDY

104406

004537

cscLPt
013120

R5,CHERR

104406

004537

CSCLP
013420

RS ,LDFUNC

Gt 014306

024264

104406

024266
024272
024272

004537

024274
024300

005037
013737
013737
043737
001404

R5,WTCRDY

C$CLPT

013720

R5,CHERR

104406

C$CLP

002362
002364
002314
002334

BDDAT
. DWORD

002376
002364
002364

E.MP,BDDAT
gECHSK,BDDAT

104455

54.,EM54 ,ERR3
CSERDF

024332

010252

EM54
ERR3

024334

104406

1722 024336

012777

1720 024334
1721

004537
106406

sCLEAR OUT HEAD SELECT
sPUT CYLINDER AS DIFFERENCE WORD
sSET MARKER BIT
sISSUE FUNCTION OF FOLLOWING WORD
s SEEK
sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

sWAIT FOR DRIVE READY
¢CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE 1S SET

sISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER
sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

sCLEAR EXPECTED
¢ SAVE DIFFERENCE WORD
cREAD HEADER
sMASK OUT SECTOR BITS
sBRANCH IF ON ZERO TRACK

5%:

C$CLPY

077601
000005
013420

#77601,3RLDA

014306

RS,WTCRDY

#SIGN!MK ,@RLDA

R5,LDFUNC
CSCLPY

sCHECK IF /FL:LOE IS SET
D
( TOWARDS SPINDLE) AND MARKER
C TION OF FOLLOWING WORD
FOR CONTROLLER READY MIGH
/FL:LOE 1S SET

SEQ 0144

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-40
*++TEST 44v+ - VERIFY GET STATUS WHILE DRDY IS LOW

104406
012777

000003

1734 024406

000004

1733 024402

1735 024410
1736 024414
024414

};gg 024416

004537

004537
104406

004537
104401

1744

024424

000032

1745

1746 024426

024426
024430
024432
024434
024436

1747
1748 024440

005032
024526
000003
000001
000003

024440
024442
024444
024446

000031
024512
160000
177776

024450
024452
024454
024456

001031
024544
000000
000776

024460
024462

004032
024575

1749
1750 024450

1751
1752 024460

024464
024466
024470

1753
1754 024472

024472
024474
024476

1755
1756 024500

024500
024502

L10074:

BGNMOD

};2} 024424
1743 024424

;1SSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP

R5,WTCRDY

sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

JSR

R5,CHERR

TRAP

013120

003400
000000
000007
003130
024553
000001

002032
024533

024504 000340

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

R5,LDFUNC

JSR

GSTAT

014306

CSCLPY
#MK!GSBIT,aRLDA

cscLPY

sCHECK CONTROLLER FOR ERRORS
saxexEND OF TESTewws

ENDTST

1739 024422

024422
024422
1740

013420

TRAP
MoV

155652

R5.CHERR

TRAP

CSETST

024372
1732 024374

JSR
CKLOOP

g Pumg Prmg Pumf Py

013120

HRDPRM
BGNHRD

.WORD L10075-L$HARD/2

GPRMD

CNTMSG,CNT,0,3.1,3,YES

.WORD
WORD
.WORD
.WORD
.WORD

TSCODE
(NTMSG
3
TSLOLIM
TSHILIM

GPRMA

CSRMSG,CSR,0,160000,177776,YES

.WORD
.WORD
+WORD
.WORD

GPRMA
.WORD
WORD
.WORD
<WORD

GPRMD

TSCODE
CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES
TSCODE
VECMSG
TSLOLIM
TSHILIM

DRMSG,DRET,0,03400,0,7,YES

.WORD
.WORD

.WORD
.WORD
.WORD

T$CODE
DRMSG
03400
TSLOLIM
TSHILIM

GPRML

DRTYPE,TYPDR,1,YES

GPRMD

BRMSG,PRIOR,0,340,0,7,YES

-WORD

BRMSG
340

.WORD
.WORD
WORD

.WORD
WORD

TSCODE
DRTYPE
1

T$CODE

sWHAT TYPE OF CONTROLLER

;RL11=1, RLV11=2, RLV12=3

g Pt Pl ps

004537

s CONTOLLER BUS ADDRESS

s INTERRUPT VECTOR

sDRIVE NUMBER

sDRIVE TYPE

:BREAK LEVEL

1729

1730 024366
1731 024372

€12

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-41
*+TEST 44w+ - VERIFY GET STATUS WHILE DRDY IS LOW

.WORD
WORD

000000
000007

ENDHRD

/BUS ADDRESS/

061

CNTMSG: .ASCIZ

/RL11/

122

040

BRMSG:

126
124

105
117

103
122

VECMSG: .ASCIZ

/VECTOR/

104

122

111

DRTYPE: .ASCIZ

/DRIVE TYPE = RLO1/

111

DRMSG:

101
122
123

114

024531

000

024536
024541

114
105

105
114

1763 024544
024547

102

104
105
000

126
000

024552

000

024556
024561
024564
024567
024572

126
124
105
040
069

105
131
040
122
061

040
120
075
114
000

024600

126

105

000

1764 024553

1765 024575

104

122

1767

BGNMOD

};;% 024604

024610
024612
1776 Q2461
024614

1777 024616

024616
024620

024622
024624
024626

1778 024630

1783

SFTPRM
BGNSFT

.WORD L10076-L$SOFT/2
DMSG,DLT,1,YES
GPRML
TSCODE
.WORD
DMSG
.WORD
1
WORD

000011
000130
024630
000001
006044

XFERF
LSGRD

001032
024654

.WORD
.WORD

177777
000000
177777

18:

L10076:

024630

1784 024630
};gg 024654

/DRIVE/

ENDMOD

1769
1770
177

024604
1775 024606
024606

.ASCIZ

/BR LEVEL/

.EVEN

1768 024604

1774 024604

.ASCIZ

104
105

122
122

117
12¢

5MsG:
EMSG:

TSCODE

GPRMD

77
,YES
EMSG,ELT,0,177777,0,1777

.WORD
WORD
WORD

177777
TSLOLIM
TSHILIM

ENDSFT

TSCODE
EMSG

.EVEN

.ASCIZ
.ASCIZ

g g g

122

125

061

1762 024533

1766

(CSRMSG: .ASCIZ

040
104
123

[ g

1761 024526

123

102

= e e

024515
024520
024523

(e P g g (g g

259 024512

.EVEN

/DROP ON ERROR LIMIT/
/ERROR LIMIT/

e e (i o § (e e

L10075:

e P o o . e e ([

1758 024512

1760 024512

TSLOLIM
TSHILIM

e e o e g

024506
1757 024510

SEQ 0145

CZRLGCO RL11/RLV1T CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE 8-42

««TEST 44xr - VERIFY GET STATUS WHILE DRDY IS LOW

.EVEN

1793 024670
1794 024670

LASTAD

—

.END

000001

LSLAST::

0
O

1796

024674

WORD
.WORD

1795

000000
000000

024670
024672

ENDMOD
EVEN

e g

1792

1790

1791

SEQ 0146 1

[mlm]

D 12

ADDCOD 013030 6
ADR_ = 000020 G
AFREG 004644
AFTER 013746
ARLBA 004601
ARLCS 004574
ARLDA 004607
ARLMP 004615
ASSEMB= 000010
BATEST 015114
BA16 = 000020

BA17 = 000040
BCCFBK 002342
002262
BCSR
002364
BDDAT
BEFORE 013676
BEGPAT 002416
BEREG 004623
BGNTST 012430
BITO = 000001 G
81700 = 000001 G
BIT01 = 000002 G
BIT02 = 000004 G
B8ITO3 = v71010 G
BITO4 = 000920 G
BIT05 = 000040 G
BITO6 = 000100 G
81707 = 000200 G
BIT08 = 000400 G
BIT09 = 001000 G
BIT1 = 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
8IT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G
B8I17T3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
8IT9 = 001000 G
= 000400 G
BOE
BPRIOR 002264
BRMSG 024533
002266
BVEC
002274
B.BA
002302
B.BE
002272
B.CS
002276
B.DA
002300
B.MP
CALBCC 002344
CHERR 013120
CKERLT 013034

CLNCOD 012756 6
= 000012
CNT
CNTMSG 024526
004045
comp
012206
CONT
CONTIN 012054
CRDY = 000200
CRTIM 004665
CSEND 003070
CSPAT 002772
CSR = 000000
CSRMSG 024512
CSTEST 014774
CYLMSK 002370
CSAU_ = 000052
CSAUTO= 000061
C$8RK = 000022
C$BSEG= 000004
€$85UB= 000002
CSCEFG= 000045
C$CLCK= 000062
CSCLEA= 000012
C$CLOS= 000035
C$CLP1= 000006
C$CVEC= 000036
CSDCLN= 000044
c$D0oDU= 000051
CSDRPT= 000024
CSDU = 000053
CSEDIT= 000003
CSERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= (00054
CSERSO= 000057
CSESCA= 000010
C$ESEG= 000005
CSESUB= 000003
CSETST= 000001
C$EXIT= 000032
CSGETB= 000026
27
CSGETwW=
000043
CSGMAN=
CSGPHR= 000042
C$GPLO= 000030
CSGPRI= 000040
CSINIT= 000011
CSINLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
CSOPEN= 000034
C$PNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
csalo = 000377

CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037
CSTPRI= 000013
DAHS = 000020

DATEST 015220
DCKMES 004026
003774
DEMES
DERFLG 002304
DERR = 040000
9JAGMC= 000000
DLT = 000000
DLTMES 004033
DLYCNT 002414
024630
DMSG
DRBT = 000010
DRDY = 000001
002270
DRIVE
DRMSG 024575
011624
DROP
DRPCOD 013024 6
DRST = 000010
DRTIM 004712
DRTYPE (024553
DRVRDY 012314
DSPCOD 011632 6
= 000000
DS
= 000400
DS1
= 001000
pS2
pDS3 = 001400
002376
DWORD
EF.CON= 000036 G
EF .NEW= 000035 G
EF .FWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
= 000002
ELT
024654
EMSG
004740
EM1
00772
EM101
007770
EM102
05211
EM1]
005252
EM13
005304
EM14
005332
EM15
005360
EM16
005406
EM17
004765
EM2
005012
EM3
005441
EM30
005500
EM30A

EM32
EM33
EM34
EM37
EMé
EM41
EM42
EM43
EM4L4
EM4S
EM46
EM4&7
EM5

005540
005574
005641
005716
005037
005756
006047
006105
006204
006237
006272
006325
005064
006356
006426
006465
006520
006557
005135
006660
006741
007024
007105
007170
007251
007334
005163

EM52
EM54
EMS5
EM56
EM57
EM6
EM61
EM62
EM63
EM64
EM65
EM66
EM67
EM?
007371
EM70
007426
EM71
007463
EM72
007516
EM73
007551
EM74
007603
EM?75
007635
EM76
007670
EM77
012470
END
ENDPAT 002624
ERCOUN 003074
ERPOIN 003072
= 100000
RR
ERRVEC 002340
010160 6
ERRO
010176 G
ERR1
010210 6
ERR
010252 G
ERR
010324 G
ERR4
010372 6
ERRS
010404 G
ERRG
010446 G
ERR?
= 000004 G
EVL
ESEND = 002100
ESLOAD= 000035
002310
E.BA
002322
E.BE
002306
E.CS
002312
E.DA
002314
E.MP

002316
E.MP1
E.MP2 002320
FIRST 002366
013664
FIX
FNDFNC 013636
011024
FRMT1
FRMT11 011303
FRMT12 011344
FRMT13 011423
FRMT14 011454
FRMT15 011520
011064
FRMT2
FRMT2A 011103
FRMT2B 011116
011132
FRMT3
FRMT4 011137
FRMTS 011175
FRMT6 011246
FRMT99 011172
FSAU_ = 000015
FSAUTO= 000020
F$BGN = 000040
FSCLEA= 000007
FSDU = 000016
FSEND = 000041
FSHARD= 000004
FSHW = 000013

FSINIT= 000006
FSJMP = 000050
F$MOD = 000000
FS$MSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
F$SEG_= 000003
F$SOFT= 000005
FSSRV = 000010
F$SuUB = 000002
F$SW = 000014
FSTEST= 000001
002362
GDDAT
GLBDAT 002242 G
GLBEQA 002242 G
GLBERR 010160 G
GLBSUB 013034 G
TXT 003774 G
GODRVR= 000202
GSBIT = 000002
GSTAT = 000004
GSTINT 004535
GSTMES 004476
GSCNTO= 000200
GSDELM= 000372
DISP= 000
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001

—rreo

SYMBOL TABLE

2 XRE—r

SEQ 0147

E 12

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

F 12

L10032

015654

0$AU

= 010000 G
IBE
IbU = 000040 G
IER_ = 020000 G
INITCO 011772 G
INTEN = 000100
INTFLG 002330
INTSRV 014212
ISR = 000100 G
= 004000 G
IXE
ISAU_ = 000041
1$AUTO= 000041
ISCLN = 000041
I1$OU = 000041
ISHRD = 000041
ISINIT= 000041
1$M0D = 000041
1$MSG = 000041
I1$PROT=
ISPTAB= 000041
ISPUR =
ISRPT = 000041
1
I$SEG =
ISSETU= 000041
ISSFT = 000041
1
ISSRV =
I1$SUB = 000041

ISTST = 000041
JSJMP = 000167
LDCSR 002332
LDFUNC 013420
004043
LF
LINE1
010504
LINE2 010540
LINES 010752
= 040000 G
LOE

LSETP
LSEXPT
LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP_
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME

LSPRIO
LSPROT
LSPRT
LSREPP
LSREV_
LSSOFT
LSSPC
LSSPCP
LSSPTP

L$STA
LSSV
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003

002102 G
002046 G
002064 G
002066 G
024426 G
002120 G
002016 G
002022 G
011606 G
002104 G
011772 G
002026 G
024674 6
002100 G
002074 G
002050 G
002000 G

002042 G
011764 G
002112 G
002062 G
002010 G
024606 G
002056 G
002020 G
002024 G

002030 G
011624 G
002114 6
002014 G
002012 6
010174
010206
010250
010322

L10014
L10015
L10016
L10017
L10020
L10021
L100c2
L10025
L10024
L10025
L10026
L10027
L10030
L10031

L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
110050
L10051
L10052
L10053

L10054
L10055
L10056
L10057
L10060
L10061
L10062
L10063
L10064

L10065
L10066
L10067
L10070
L10071
L10072
L10073
L10074
L10075

012754
013022
013026
013032
014216
014500
014574
014670
014764
015104
015210
015276
015422
015546

015754
016044
016144
016254
016330
016366
016512
016652
017012
017216
017250
017456
017544
017712
017742
020114
020202

020330
020352
020432
020576
020734
021252
021346
021412
021536

022154
022306
022450
022610
022762
023410
0¢4130
024422
024512

MXSECT 002372
NOOPQ = 000000
NOOP? = 000016
NOPINT 004157
NOPMES 004126
NOPWR 012014
NXM = 020000
NXMMES 004001
012064
NXT
013650
OKHDR
= 002000
OPI_
OPIERR 004053
OPIMES 004006
0SAPTS= 000000
= 000001

0$BGNR= 000000
0$BGNS= 000001
0sbu = 000001
OSERRT= 000000
0SGNSW= 000001
0$POIN= 000001
0$SETU= 000000
002324
PFLG
= 001000 G
PNT
= 002000 6
PRI
PRIOR = 000004
PRI00 = 000000 G
PRI01 = 000040 G
PRI0O2 = 000100 G
PRIO3 = 000140 G
PRI0O4 = 000200 G
PRI05 = 000240 6
PRI06 = 000300 G
PRI0O7 = 000340 G
PWRFLG 002242
002732
QMAX
QUAMAX 002702
RDHDR = 000010
READ = 000014
012132
REST
RESTMS 013402

RHDINT 004352
RHDMES 004312
RHHS = 000100
002252
RLBA
002260
RLBE
RLCS
002250
002254
RLDA
002256
RLMP
002730
RL2

SIZE = 000004
SKEEND 0027
SKEND 002726
SKLST 002626
SPTCOD 011622 6
START 012072
START1 012034
STHS = 000100
SVCGBL= 000000
SVCINS= 000000
SvesuB= 177777
SVCTAG= 000000
SVCTIST= 177777
002402
SVHD
SSLSYM= 010000

TEMP2 002346
TEMP3 002350
TEMP4 002352
TMPENC 002412
002354
TMP
002356
TMP1
002360
TMP2
TRPFLG 002326
TRPHAN 014204
TYPDR = 000006
TSARGC= 000001
T$CODE= 001032
TSERRN= 000066
TSEXCP= 000000
TSFLAG= 000040
TSGMAN= 000000
TSHILI= 177777

TSLAST= 000001
T$LOLI= 000000
TSLSYM= 010000
TSLINO= 000054
TSNEST= 177777
TSNSO = 000000
TSNS1 = 000005
T$SPTNU= 000000
T$SAVL= 177777

T$SEGL= 177777
EXO= 010
T$SUBN= 000000
T$TAGL= 177777
T$TAGN= 010077
TSTEMP= 000000
TSTEST= 000054
T$TSTM= 177777
T$7STS= 000001

002044 G

012756 G
002032 G
002011 G
002122 6
002076 G
002060 G
011634 G
002116 G
002040 G
002034 G
013024 G
002072 G
002230 G
002052 G

r Y.

LSENVI

LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
LSDTP
LSDTYP
LSDU
LSDUT
LSDVTY
LSEF

Y Y Y Y P .Y .Y .Y

HRDPRM 024424 G

GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HALMAX 002704
HCRCME 004013
HDRBUF 003274
HDRLST 013640
002734
HMAX
HNFMES 004021
= 100000 G
HOE
HPTCOD 011604 G

SECMSK 002334
SEEK = 000006
SEKINT 004444
SEKMES 004413
SFTPRM 024604 G
SIGN = 000004
SIMBCC 014032

L10076 024630
MAXCYL 002400
MAXSEC 002374
MDHEDR 002000 G
MERLMT 011626
= 000001
MK
MSCRLF 004040

P Yy Yy Y

010370
010402
010444
010502
071622
911632
012532

L10004
L10005
L10006
L10007
L10010
L10011
L10013

LOT = 000010 G
LSACP 002110 G
LSAPT 002036 G
013030 G
LSAU
LSAUT 002070 G
LSAUTO 012534 G
LSCCP 002106 6

GSNO = 000000
GEOFFS= 000400
GSOFSI= 000376
GSPrMA= 000001
GSPRMC= 000002
GSPRML= 000000
GSRADA= 000140

SYMBOL TABLE

DODDOD

SEQ 0148

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

G 12

SEQ 0149

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE 8-~45
SYMBOL TABLE

T
110
m
112
113
114
115
116
117
718
119
12
120
121
122

TSSAU = 010017
T$SAUT= 010014
T$SCLE= 010015
T4 .DU = 010016
T$SHAR= 010075
T$SHW = 010030
T$SINI= 010013
TS$MSG= 010007
T$$PRO= 010012
T$8SEG= 010000
T$$S0F= 010076
T$$SRV= 010020
T$$SW= 010011
TSSTES= 010074
T.CNTL 002410
T.DRIV
T.SI1ZE

123

002406
011630

024674
000000
ERRORS DETECTED:
. ABS.

014406 G
015550 6
015656 G
015756 6
016046 G
016146 G
01656 G
016332 6
016370 6
016514 G
016654 G
014502 6
017014 G
017220 6
017252 G
017460 G

000
001

VIRTUAL MEMORY USED: 29184 WORDS ( 116 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 70 PAGE
A:C2RLGC.BIN,CZRLGC/C=SVC33.SRC A: CZRLGC MAC

124
125
126
127
728
129
13
130
131
132
733
134
135
736
137
138

017546 G
017714 6
017744 G
020116 6
020204 G
020332 G
014576 G
020354 6
020434 6
020600 G
020736 6
021254 6
021350 G
021414 G
021540 G

022156 6

022310 6
139
014672 6
Té4
022452 6
140
022612 G
141
022764 G
142
023412 6
743
024132 6
T4é
014766 6
T5
015106 G
16
015212 6
17
015300 6
18
015424 6
19
UAM = 000200 6
UNITST 002246
002244
uurt
VECMSG

024544

VECT = 000002
WAITO 012332
021302
WAIT1
WCKINT 004251
WCKMES 004211
002404
WHY
WRCHK = 000002
WRITE = 00001
WTCRDY 014306
WTDRDY 014220
XPOLY 002336
012114
XXX
XSALWA= 000000
X$FALS= 000040
X$OFFS= 000400
X$TRUE= 000020

NsONO

FONIO\TM ®

SEQ 0150
CZR.GCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE
CROSS REFERENCE TABLE (CREF V 04.00 )

O
L
000 O0 VOO
O

[a¥1aV] [a¥]-<I9¥)
(aV]

mrrmrrm =MW ONDO

O ~roeoaaeoenoned o

AUWFFOOOOOOOOOOOr

[ R B NI IO
NNV

O WwvoTuwCSwndo O wug

0 & 800y
g0 00000000
000 U N)
O\

o —NNNO b &

—Mo0M

NNev oO AC(BsaloW\ e
o~

o OTOONOO— WO OWNe O

wv w

phie
L)

o ”»

Sw B DFRTT T F R YATENST Tirast ¥ Tan dwee

7Y [V

(=]

Zw -

VU 000DV OVWOYOULLLL

VULVLLLOW

VLwuww VYWV

I I 0T
VOWWLWLWLLLLLOLLWY

=LelaNda]
QD= b XCLuwLO< O Qb- oT 4e
VX<CWV L
4I R 0O LVLRLD

-—
-—

—

CZRLGCO RL11/RLVI1 CTLR TST 1 HACSO)VO‘.OO 30-NOV-81 13:58:41 PAGE g_%?
CROSS REFERENCE TABLFE (CREF v04.9
CSOPEN
CSPNTB

4~32

4=41

4=60

CSPNTF
CSPNTS
CSPNTX
csQlo0
CSROBU
CSREFG
CSRESE
CSREVI
CSRFLA
CSRPT
CSSEFG
CS$SPRI

4=67

4=73

SE@ 0152

4-76

4-77

4-78

4=~79

4-82

4-83

5-86

8-734

8-784

§-790

8-833

8-838

8-:83

8-798
8-:73

8-867
8-<07

8-a77

8-A10

8-879
8-<57
8->97
8-A30

8-323

CSSVEC
CSTPRI
CALBCC
CHERR

R->90

8->04

CKERLT
CLNCOD
CNT
CNTMSG
coMP
CONT
CONTIN

8-58

CRDY
CRTIM

8-60

8-266

8-346

8-387

8->69

8->71

8->81

8->83

8-62

8-64

8-100

8-102

8-431

8-474

8-957

8-267

8-269

8-388

8-442

8-486

8-112

CSEND
CSPAT
CSR
CSRMSG
CSTEST
CYLMSK
DAHS
DATEST
DCKMES
DEMES
DERFLG
DERR

8-A48

8-434

8-275
6-119

DRDY

L=-1344

[
—y

oLT
DLTMES
DLYCNT
DMSG
DRBT

DRIVE
DRMSG
DROP

8-432

p——Y

DIAGMC

8-390

K 12

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

SEQ@ 0153

CROSS REFERENCE TABLE (CREF Vv04.00 )
DRPCOD

5=170#

8-<11«

8-282¢

8-a17«

8-Al4x

6=193+
6-45
8-800
6-194+
€-195«
8-.46

6=
8-971»

6-64

6-69

6-73

6-77

6-81

6-86

6-90

6-192+

8-760

8-917
8-a26

8-976%
8-a80

B-;44
8-A15

8-.;78

8-<12

8-<74

8-=20

8-=68

8->16

8-904

8-870
8-783
B8-977+

8-A77

6-59

8-802

8-242

8-<17

8-287

8-323

8-A19

[}

)
- VWO N

10 00 0 D LU [
OO MNANe—lNNOM

!o oUML OUoONLMm ] 0fel=0d 0LWMOWNI~ T [

AAN[NyVgViR

Ll L M bbb bbbl

W AOOMMINOSTD

3 =OMNONNTOON (aV] 2 T OMIN DT N = 00O v\
e

~QONE W)EFXEXU W W )b L G U TESSI
L W eb e
G L) b W W EXEA W LXXXW L) L WXX>AN
) U i L G ZZ2XX
U U ) A o)IIEES

m‘gfi BN ”“”# ¥ p O #"‘”l

VI [V

ooe

)
e
-—

o ~M
o
> -—

CZRLGCO RL11/RLV11 TTLR TST 1 MACRO v04.00 30-NOv-81 13:58:41 PAGE
CROSS REFERENCE TABLE (CREF V 04.00)

4-26

—O0ANIeVNM«L—NON

4-28

— A =g e M SN O G000 = V Il &

4=20

SEQ 0155

— g =M= OUM SN ON OO ¢ V Il &L

£-18

M 12
) -6

4=35

4=37

4=44

4-116
6-4

4-128

6-304

4-130
8-A41

4=46

4=51

4-53

8-23
8-650

8-40
&-678

8-56
8-872

8-78
8-893

8-94
8-,34

8-114
8-<33

8-131
8-738

8-149
8-a57

8-165

T¢

6-88

6-92

6-94

6-96

6-168-

—_—

N1 2

CZRLGCO RL11/RLVIT1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE S-7
CROSS REFERENCE TABLE (CREF Vv04.00 )
FRMT2A
FRMT28
FRMT3
FRMT4
FRMTS
FRMT6
FRMT99

SEQ 0156

4=77

4=79
4-82
4-23
4~32

4=94n
4~95#

GSCNTO
GSDELM
GSDISP

6=276

GSEXCP
GSHILI
GSLOL!
GSNO
GSOFFS
GSOFSI
GSFRMA
GSPRMD
GSPRML
GSRADA
GSRADB
GSRADD
GSRADL
GSRADO
GSXFER

8-A46
8-A46
8-A48
8~A46
8-A54

6-290

8-:29

8-A50
8-A50

8-A52
8-A52

8-A56

8-A77

8-A54
8-A5¢4

8-A56
8-A56

8-A75
8-A75

8-A77
8-A77

8-A54
8-A76

GSYES

GDDAT

7=-129

8-102+«
8-269+
8-443
8-648¢
8-<14

8-137+
8=477
8-871«
8-=22*
8-217

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GODRVR

GSBIT

8-718
6-118

GSTAT
GSTINT
GSTMES
HALMAX
HCRCME
HDRBUF
HDRLST
HMAX
HNF MES
HOE

-74

1EJ1E

-A4 14
-74

I1SAU
18AUTO
ISCLN

8-969

HPTCOD

HROPRM

8->661+

8-730
8-701

8-=59
8-720

8->07
8-732

8-788

8-=61

8->09

8-A34

7=159¢
8-105
8-276
8=452+
8-664
8-<49«

8=>76+

€2
CR

B 13
S-8
PAGE
13:58:41
30-NOV-81
Vv04.00
_MACRO
1
TST
CZRLGCO RL11/RLVI1 CTLR
)
V
04.00
CROSS REFERENCE TABLE (CREF

&¥

Vv =W =N Ne—e—e—

upSGPgr[Smulnfg

SEQ 0157

]
s

8-836
8-716*

CTPAe*I=OUMeW*NLlO\NIVDOR

8-:86
8-723

8-728«

8-735

8-785«

8-791

b —d

b ad end

b a=d

U
b '})l})NNNN'}JNNNNNNN
PPTRYRTY
.a_n_b..n_n_.n_a—n_a_n—n

L2
3 3 )

L3233

L3 3]

5-81
6=276

2=224

8-A43
8-AL3H

4-118
4-1184

5-12#

5-34

8-A74
8=A744

4-132
4=1324

5-17
5-36

8-:29
[sufoeloodeoXooKoo BNoRosRosNoedoo

5-172#

6-290

4=1444

YT
lelwlwlwlvy
VYaTalay

LSAPT
LSAU
LSAUT
LSAUTO
LSCCP

LR ERR

CROSS REFERENCE TABLE (CREF v04.00 )

¢ 13

pPrgeageny iy

L3323 %

=_NNN SNNNNNWY NNNN NNNNNY NNN SINNNNNNNNNNNNY

—

SNONON NININININOND NN
1000 P 000 00 U

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

SEQ@ 0158

5-182#

5-108#

5=145#

2=21#

8-A94#

D13
CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE S-10
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ@ 0159

8-868
8-715

8-894#
8-9374

8-<82#
8=-=29#4
8-=764
8->14
8-223#

8-A58#

8=>244

GEm gmy g gm, g, g

8-6834

0 TEm emn YEL Smm WS a2

8-662

-—

8-594#

G gmy gy gy gmn gy sen

MRIFTYMAAMNMIMMNM

L10005
L10006
L10007
L10010
L10011
L10013

E 13
CZRLGCO RL11/RLV 11 CTLR TST 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE S- 1 1

SEQ 0160

CROSS REFERENCE TABLE (CREF V04.00 )

4-48

8-620

8-717

8-729

4=55

4-66

4=734

5-88

5-127

5-138

6-16

8-:24
8-257

8-:51
8-29

8-:84
8-a89

8-.53
8-A23

8-.86
8-A32

8-<48

8-<96

8-656

2-134

2-17

8-784

8-833

8-:83

5-158

5=161+

8-242

F 13
CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO Vv04.00 30-NOV-81 13:58:41 PAGE S- 12
CROSS REFERENCE TABLE (CREF V 04.00 )

8->58

8-:86

2-15
1
1
1
1
1
1

8-:55

8-910

8-957

8-255

8-a87

8-.88

SEQ 0161

8-,37

8-:69

8-<02

8-<67

8-=13

8->44

8-708

8-139
8=479+

8-167+
8-493

8-170+
8-497

8-17
8-550r

8-:79

8-<13

8->52

8-716

8-249

8-784

8-a19

8-a81

8-<53

8-<99

8-=46

8-=94

8->85

8-259

8-293

8-aNn

oIy VNQo[ITaVIo oI N o oK

O 0 O N N WA

O-NVO2O0N

MO am

NS NNV
NN — ON
PP LT ONOOA
Are Ae=P~FON ARNANNNNIOOMOAINIEONMO

4521197123‘77

A4A b

e e OIM PO ONN A NN NN 00— = = = OO r= === — IO — O
—ON—Nr e e
-82

R R AR YRR R R A A R R AR A NN
L3

SEQ 0162

CZRLGCO RL11/RLVIY CTLR TST 1 HAS%O)V04.00 30-NOV-81 13:58:41 PAGE S~ 1 3

q 13

CROSS REFERENCE TABLE (CREF V 04

CROSS REFERENCE TABLE (CRE

SEC 0163
S14
CZRLGCO RL11/RLVIT CTLR TS; °02ACRO v04.00 30-NOV-81 13:58:41 PAGE

H 13

MV YOI GO 0N rev M o P o e o e N R g T D D D e e R R R Rt v r v Y Y Y

M ODDC e et MR- oo en o ONIIMMINI S o o S AN D O DI L OB & 3 ¢ ¢ P Y Y Y

~F ~F WA\ 60 0D 60 G0 80 60 60 3D CD G0 GO GO SO GD A0 GO A0 I\~ GD GO 0 80 GO 60 O GO
~F ~F V- I\ G0 0 60 C0 90 GD G0 60 0 aD G0 COAD A0 0G0 CD M- G0 G0 GO AN GO GO 0 GO

000 V&
—F g = NN ONGOON -+ V I BCM=\e=

=] [y [72] —
wy >[

SEQ 0164
I 13
5
SPAGE
13:58:41
30-NOV-81
1
MACRO V04.00
CZRLGCO RL11/RLVIT1 CTLR ;E;
v 06.00 )
CROSS REFERENCE TABLE (C

o
-—,

-2

n® n

nn Rtk Bk &R

‘

[ BB»

RN DO R RO N RO N s

—

——

w 4 av —

R ®n

t P ey O DO RO N R RSO '

) OO N R RO RO R B RO L [}
' OO

Ry B

"0 ' OO B NN

B By

= =

WR — O o0V w> wn [
WT
¥
w[

e bm
D pmppmp

[
]

MO
—
-—

"
o

K 13

SEQ 0166

CZRLGCO RL11/RLVIT1 CTLR TSTY 1 MACRO V04.00 30-NOv-81 13:58:41 PAGE S-17
CROSS REFERENCE TABLE (CREF V 06.00 )

R A A NN A S AR R N A S A RSN AR R S OERN

eN
BN

2*=

T P T T TR T T Py p e on SRR TYYASET T

RN N e e e e ey
x

[

L 13

SEQ@ 0167

CZRLGCO RL11/RLVIT C TLR ? TST E; 1 MACRO Y04.00 30-NOV-81 13:58:41 PAGE S~ 18
V04.00 )
CROSS REFERENCE TABLE (CREF

29
B-A74k

SOT OT=NSE

L33

CZRLGCO RL11/RLVI1 CTLR TST 1 HASSO)VO‘.OO 30-NOV-81 13:58:41 PAGE S~ 19

SEQ 0168

CROSS REFERENCE TABLF (CREF V 04

T YT Y Y N R T LAY I ATTEST TRVR Y PVYTV

b x

BOTRM€eDJeyOEODBrWe—,TeAONTA0.B-T1GoO2EGoOT3e4oD“TGi0P5eA06T€(OyoP7eGOT8(GOe9G0BIB\ROGoT—toa)OG(oI0eGMO2(T0eWT8o0NeTG0OI6o0NT8oODT8P0Pe-BTOeG0/rTeG0ROIGeINOTY6Mo0EITGo0TeGN0VT6O0PNUeA0OLTGP0VTDNeeYN\WILeO0VfOA1oW0\ViWbI3lGO-O]3kN”4N80G0-O..G1I01“50GR1Db0N.OC.-—ION0BGGT.OOoC0G01N0.07CGG1O00OO.090GCG10O.D7AG.GG0O10.05A00W.001-”0A0.00G19.00GA-.0oO0l72GOl00-09e~000*0=gm(x:)8h“oy.mMO>7—v©_w;
Sy

a]BONVl [b«MMa3-L0leo]fo]o-1.W0le.W]Ml.0O1,.eNlMeNOlNM.N &2o.>
—I@OU OHTA—NCOBRNIWNLLMOLONO DNLANeUUVALLe=0A o<.oo
n[} Lu)n 0000 0 0 . O<
G)O 0eU=i0Nn°0e BQAC80CG0CO8COI0WG0OVCOC0sDQO§D

70—T]Me58rP7A"8~8T0N7P=LI680T2=YMV5I07=TeV9=PM#7bT5L0MoI6eIM50STe90MI=6TROS7IPNO2IPOA5Ie=RMISL09RTON’(5LI10TXR9TVOA2NIGNe6yQU0PTeIRe“HTeIX9IeS7TA=eyLT"IeLT1PC9APe“AIeB3APByRReOIWENoNM2iVlR0IA>&l00200IasN—OE#yA—AMMCOBHe)[ MINAONLDCMOBEN15E "ILIg 7GMNUIOO0LDC—NNOUAOO—MM0ABIMOOW8DENY—0IOUONeLINM8RcMaA0NyV—VOt*SMsTTQO¢D2OG =X@BN7-~EN~D>oU WZ~[EE
Oa0WNNOoMNON00JENG(ONO|oMOe(OBO¢SC~e10UfO—.ONOM3eO—oCLNMO-bNO=3O0NOeVP0Y.oFrDbR=lN]~No-1aLOOCNMF(MO—.OMBOoDOTNC—OONelH=NMGOECT-RNO~0V-EAoMCCOCOOMNOT,CONNIOTC.HN0Oo-AlMWOOcc.OE0NaeOaCNWlNCNTC—IV-VONENeOlEOCMMOe¢D.IIODOoOlOQNNO—QQOAN.DV0DADN[o<2WM[][]¥)[a[+T
O OV ACBLeraVIIRN
ow

> -

—

-—

.N}.11I...H1AC«0B7.Eo1.oldeVl.olel-(- -s

wN)U *OGOsU8QINLOWy4 N DcAAON)00MCOo—C=0=(4—aOB0O—WoOII8OYss0MOVVE0(DNAsoe0UOOONn
0O-][~ WGN—U0OLODNOVD AT0Q00800)88 D=NRNAeD0IcMr0aOLVNH0OABU NVC0I(BNMUM0=ELOBb
03NUWO0eLI—SM OUL0CMT8O~WOMNT0OMINTeU0T=O—TO$ 0o

=N ACBL I s a c a V e

MANWN-ITONI¢OVNANAOAUINRONVINN

-0

b33

bt £ TrEILPTTETEeYYaa <xX

B 14

SEQ 0170

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

CROSS REFERENCE TABLE (CREF V064.00 )
2=104#

4=-144

TEMP2

2=-1128

6-222*

6-246*

8-993%

B8-994«

8-995

2-114n

6=224+

6=227

6-237x

6-239

6-244x

6-245+

6-248

6-48

6-51

7-12«

7=17

7-38¢

7=43

5-89

5-128

5-139

6=17

16
17
T8
9

TEMP3

TEMP4
TMPO
TMP1
TMP2

TMPFNC

TRPFLG

4=144
4=144
4=144
4=144

2=1134

2=-1154
2-116#

2=-117#4

2-131#

2-1044

7=1464
8-134
8-464
8-84#

6-223¢

4-32
8->68%

S5-109+

6-228

8=->57
8->71r

8->58r
8->80+
6-128+

5-124

6-262¢
7-13

TYPDR

2-62#4

8-A54

5-114

6-2624
8-A54

8-A54

UNITST

2-80#

5-35+

5=-39%

S=42

VECMSG

8-AS0

R-A63#

8-AS50

8-A50

8-562

8-621

TRPHAN

UAM

VECT

WA:TO
WAIT1
WCKINT
WCKMES
WHY
WRCHK
WRTTE

WTCRDY
WIDRDY

X$SALWA
XSFALS
X$OFFS
XSTRUE
XPOLY
XXX

5-112

=794

2=-604

5-81#
8-:29#
3=21#
3-20#
2=127#4
2=42N
2-4L6N

6-286#

g-:g;
6-c72#

=74
2-74
2-74
=74
2-108¢
5-34

5=25%

8-A50
5-83
8-:31
6-153
6-152

5=36*

S5=41*

8->61
8->83+
7-39

8->73
8->93
7-%4

7-89

7-63«

7-68

7-88+

8-789

8-817

8-275
8-200

8-794
8-766

7-93

6-51

8-534
:

g-:gg
8-:60

8-:54

g-;}g
8-;01

8-A76
8-A76

6-233
5=-39#

6-244

8-:87

8->45
8-,62

8-658
8-,38

8->86
8-:95

8-702

8-:56

8->94
8-<60

8-721

8-:70

8-209
8-=06

8-733

8-.89

8-242
8-=53

8-759

8-<04

8-260
8->01

8-<54

8-<68

8-837

8-=00

8-a09
8-200

8-864

8-876

8-a74
8-998

8-292

8-=14

8-=47

C 14

SEa 0171

CZRLGCO RL11/RLVIT CTL R IST EI 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE M- 1
v04.00 )
CROSS REFERENCE TABLE (CREF

~ ~

8-;34

N~o WNINe sal OACD

("a40} "@

no —ONOO—M

[«
)

~ o

[

- [+
- O

D A AR A0 eV il (B

200 *aV I} (B

~ 0 N~

3 7

LolA XA

=F o N oV OB

ne O O OONOEee—O

O U U U L)

ONw

TL4O2]

-= ~F0 L-—a]

N ~
UL [ B UL

! U -888111118888888

EweEI2a2dzM2

—

[] w

w
~

5-180

D 14

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

SEQ 0172

—.O<hn

~ w
@ W
<][- w
~M

-—

N0 [-p¥] [a70a ~[+ -\'4“LA
- -]
- 0

[ o]

oN~y [<4LaB]ERS

- Uy

5NONON—

CROSS REFERENCE TABLE (CREF V04.00 )

‘e

E 14

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE M-3
ERENCE TABLE (CREF Vv04.00 )

8-144

8-868#

SN VNL4[aIaIT8VaV N

RANOAN N AN

W7771~8

CROSS

SE@ 0173

»77‘“

[oVSIN4QAaIVR N~

8-144#4
8-877

F 14

SEQ 0174

CZRLGCO RL11/RLVIT1 CTLR TSY 1 MACRO V04.00 30-NOV~81 13:58:41 PAGE M-4
CROSS REFERENCE TABLE (CREF V 06.00 )

®Rk [

"“

MNOMNG -V I B
—e—e—ere(Ne

~F WA I\ 60 G000 6D G0 00 80 GO S0 60 G0 €0 00 G0

A EMN NN
ANOWN
TMON OOMe=—

TO—RVENOS

1
1
1

1
1

1
3
5

1
1

]

6-4#

2-17

2=17

2-17

1
1
1
1
1
2
]
1
3
1
A

1
1
1
1
1
1
5
6
1
1
A

1
1
1

2=-17

2-17

2=17

2-17

8-A74

2-17

SEQ 0175
CROSS REFERENCE TABLE (CREF V 06.00 )

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

G 14

111111123‘667777778111111-l12‘894|11111122113446799117.4711

— = = CJOUM ~F N ORN AL AL N N 00 0 = v v v r= = r= += M) G0 GO O v~ v v= =0 v IO\ = UM 7 ON. COON = e= v MIN. A =

H 14

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE M-6
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0176

(O L) O NNy e [N

1 14

CZRLGCO RL11/RLVI1 CTLR TST 1 MACRO V04.00 30-NOV-81 13:58:41 PAGE M-7
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0177

CZRLGCO RL11/RLVIT CTLR TST 102ACR0 v04.00 30-NOV-81 13:58:41 PAGE M- 8

SEQ 0178

CROSS REFERENCE TABLE (CREF V

=74
=74

& R W Y VE RJRER R

AP FOMNG. SOMNO DPOMANMAOMBONI—MOOM

2-7h
2-74

‘2e0=~6wNmNoO3M“wen=

K 14

SEQ 0179

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO Vv04.00 30-NOV-81 13:58:41 PAGE M-9
CROSS REFERENCE TABLE (CREF V 04.00 )

N — 00NMM
NOAIMe—ONOOO

x"2 X

x xR

>X 3
¥B R R

b
3

L 14
M- 10
PAGE
13:58:41
30-NOV-81
V04.00
1
MACRO
;g;
CTLR
CZRLGCO RL11/RLVIT1
)
v
.00
(C
CROSS REFERENCE TABLE

8-a24#
8-a96
8-A27#
4=324
4-824
5=112#

8-2134
8-3274
8-4904
8-590#

8-2284
8-330#
8=-4914
8=59¢

8-144H

8-238#4
8-359#4
B8-4994
8-618#

44N
684

o7#
264

8-704
8-165#4
8-245#
8 3724
8 =514
8 -63.14

8-714
8-1754
8-264#
8-4024
8-5354
8-6504

SEQ@ 0180

8-A31
4=-354
4-834
5-121#
6-184
7=64A
7=-1414
8-78#
8-1764
8-2714
8-4034
8-5404
8-653#

=414

S=144
5=1264
6-100#
7-674
7-1574
8-794
8-1814
8-2794
8-4124
8-563#
8-6594

8-2814
8-4144
B-5664
8-6624

8->05#
8->91
8-220
8-267#
8-a301
8-a57
8-A02
8-A36#4
(=514
5-19#4
5-137#
6=296#
=734
7-1694
8-108#
8-197#
8-3004
8-4464
8-5724
8-670#

-624
=304
5~1414

8-74
8-109#
8-2064
8-3044
8-4474
8-5744
8-6724

164
7-89#
8-8#
8-1144

8-207#
8-307#
B-455#
8-581#
8-678¢

8-683«4

M 14

CZRLGCO RL11/RLVIT CTLR TST 1 MACRO V04.00 30-NOV-31 13:58:41 PAGE M-11

SEQ 0181

CROSS REFERENCE TABLE (CREF v04.00 )

POGO N *¢ oV H ACC(B MO TM= =N O\ = MA = = OICUM E 2 N0 ON AN G0 0 A0 o+ csv s VWV il A

W=3Egan—0no8NVAe]N9aY0o3Oo2NN“c~WTM6O.NON6aTC9NNIVOI3IxaW2NFoN2LSTGN9OlDr1d9=r4oaM]ND[«ugn‘W8N—ea?mnS.a6W4Xun3-[o5oo.]8Wa)[]t1DRl98E2o|ed9Le>.3L084O4MB2O7BB944Vil1”80eeN05V077A“OC63—62001-~8“3BO6-M522A71N10B0O23L99T4r“O87N1I7O—N7B1rN926O=5M3—88YN9O/M093\0N%I77I304N-22T3—5M1“O“—I%8~3557P[1O~I2SM(~—ONrT3—IoTOFO5NIeWIBN5d.NVOo2=OMfOBN01OiN7NNe

xEax>VQ0<XA2202TbW
bo=="=,¢BoU=AOL0UNO3G~DAVYWrYVO~\]M"IvOGU0L0}V1—NA=O—.NNaeGTopAG0OOoON=rO—1mL=LA82G0adOMoWOU—l—eMOO.GGSVIoNn00Po~hClWa0FDU0DA(nOR.LYOeWWA-9U¢-~X¥=MNO=AV-OA¢U»]|~~G0<a)~a@wNNO5o~]W¢Ro[¢)}«y’0’n|=0=[+=OwNW-ooT[[|—}=wMoy=Oo=¢==M¢|=~U—\N\VaN~4~oo>-<—=][j)]L0}Nh—L)Mr¢—=¢==<4=O3LNW)v0AD&VB[Be9GoT¥0N0Re—OMALDOVw€NG—3|0DTOO0N6DG6OOB0UALONAWO8I9GBIGA|V0lNsDl0MOU0ATl|0T6=0GF¥VOG00NNOO'I5NeG64AB*G«0¢D0OOSNTC2LGGCBIAGOOO00FMNMUD4TD0G0BOOM0rNNOOCAD290L(G¥GPG1¢OO00BrNT6I¥G0U0GGSC—OO0RNO7M4LrGGGWADMIONON0O—N9ySAM6G¥G6OW00Or0NO5C—4TaGAGrGNO0D0MO0Uer“DM0xV0GN8GN0—0I=VGOIRC\0DO0-NUND=M\VIAOMSN..\V-ONOTR\.M—MIO2NOO-=MMNTO~e~MNFFW~—LIT~~OFIFFOP(II¥V~~UFMFFW=O=I-BR~~P<O¥0eNF3F3TMIWN0EO=G—A0DSOCN0NW3bGTIGMG8LBOCO0V03NWOBrG3PGAIAT8NMU8OOO0V0LI—TQTG=GGDT3N080O00OONIN-GWGAe0ToB 0O0L0CMNONQQG0DIOT00I08==0VD0G3O—SONS«00D0
DJ]UL0B0oC—8GLD8C600UGaEDDNAU<!]G[ o-[y} GL0C0DV06e6De6DGT00WGVDOG0NGGOD08oa0n0ad00078N0O0NN.0L~0F<&038¥GBU0OAaDO}GA0CD0DAALOAUD
- -

x m meP a axEXN nen )€3¢3¢
L3 =

x b3

L3 o3

CROSS REFERENCE TABLE

x Tx

TRR

SNkN1L®IowNASAG0RRG0GoOA006SDsORRw\ONWVERDoWeTOIrOwRoWi¥nsOR9TTOwSN0I&~PNVNeIILARAN0GT(ON\0JSGAOO0dR8GO06GDOGNO0OG<OA0GAO00GRO0G0OG30O0.Gu0OD.RA G0u6G.V0%S0S.60-2GD.0L0In\Oq.TN“.WOC.O~OF7.~DF.0~(q\FICJ~Aea.TO\FJD.GO0C.D0G0CqA&AGOa0.CGwO0,N.AGRn0GI20N9GaE0
YM"OeNVOMNiaUL}lVAloWoeOOcN—aleolONN.DM=agI]OelOCMeaNMO¥PNOe0moAWMDNDP,N2ORMNOL[~o3A o4= No@Oe~M ~~ 0~~M M05~]0 )) T0VTOTFF<wNe08NOMN=NVNInRoQO~Oe0AMOlA—SMNOMGOWOBNB|OGRI*CNOLONoBVTNG=OsNR—¥sO*GW¢O=NNF&OAT¥0NOMIIOONT8¥I~NMAATNOOOFRv1NDNLVW~NBI-GTNOEMOVDNDIOOTOvGItNNN—MNTR¥G=OO=—ONPU¥¥0DC—eMOBWMMx0NNI0W=—OIGI~N0NTFB=N¥ITOO\OWRN¥N\IT*X2WOL~R®IFrOOONXVII~M2F=IILIIT~N2FOTKPNIOB~~FENAOI~XFGNOCMNVFOBMRNBRLGTLM0OOR—IBI3rSnAG08OI—BNO=Ge0SN0BMRe0OOV0V0[I"NaGM0l0O~~oEMO ¥¥*bIg0CCOlr30e
o—]Uol.Lo1Nol..OelUS(MoRY [ ~0 ][ OIR0TyGOAR0NB4DM86NO0VBGdMa§DdBaOdNa)dNaOd=adO¥0UM0NO0BLONONS7U~ILI~FMOR0ANyDACDV0OIBO0O0BND
N 14
CZRLGCO RL11/RLVIT1 CTLR TST 1 MACRO \04.00 30-NOV-81 13:58:41 PAGE M-12
(CREF v04.00 )

SEQ@ 0182

R¥