Digital PDFs

AH-T111A-MC

July 1982

Number of pages unknown

Original

17MB

view download

OCR Version

15MB

view download

Document:	CZRNDA0 RM80 FCTNL TEST PT 1 AH-T111A-MC JUL 1982 bw
Order Number:	AH-T111A-MC
Revision:	000
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNDA0__RM80__FCTNL_TEST_PT_1__AH-T111A-MC__JUL_1982_bw.pdf

OCR Text

RHBO

FOTN RNBRo | |

Pcne

'3 or p i
HIEHIEL

CZINDAQ RMBO FCTNL PT1 MACRO V04.CO 28-JAN-82 16:24:51 PAGE 1

SEQ@ 0001

-REM

5
6
7

9
10
11

12
13

14
15
}9

IDENTIFICATION

PRODUCT CODE:

AC-T110A-MC

PRODUCT NAME:

CZRNDAO

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITY

RMB0 FCTNL TEST PT 1

31
32
33

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD ~ NOT
BE _ CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

36
g;

THE SOrTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIEL IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

39
40

DIGITAL EQUIPMENT
RELIABILITY OF ITS

25
43

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL.

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT
IS NOT SUPPLIED BY

-l

CZKNDAO RMBO FCTNL PT1 MACRC V04.00 28-JAN-82 16:24:51 PAGE 2

SEQ 0002

NN =2 OO O NP NI NI

—

CONTENTS

INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

DIPININVNING
N =S —d ~od cad wmd cmd b e b ed

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

HALTING

OB NN = OO

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

NO
WAL NN =

OPERATOR INTERFACE

CONSCLE DIALOGUE

PROGhESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS
ERROR RcPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT

PROCESSOR COMPATIBILITY

MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY

2.
6.
7.
6.

PROGRAM 1.D.

DUAL PORT CONFIGURATIONS

OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

PNININD
b acd md emd ) b b o} ek b

N =2 OO 00 NOMA L NN = OO 00

O NS NN -

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRACT

5EQ 0003

THE RMB0 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH
USES FUNCTIONAL MEANS TO_VERIFY THE OPERABILITY OF THE RMBO DISK
SUBSYSTEM.
IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:
TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE

ggggATlgz§VE.

INCLUDING

IMPLICITLY

ELECTRICAL INTERFACE;

MECHANICAL

ESTABLISH

POSITIONING

CONFIDENCE

AND

THE

DATA

TRANSFER

DRIVE/ADAPTER

TO VERIFY THE FUNCTIONALITY OF THE RMBO SUBSYSTEM, INCLUDING
MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE.

THE

THE TEST IS COMPRISED OF 4 PARTS, WHICH WOULD NORMALLY BE RUN IN
SEQUENCE,
STARTING WITH PART 1.
BRIEFLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERATIONS:
PART 2 TESTS WRITE, READ AND
WRITE
CHECK OPERATIONS USING HEADER AND DATA:
PART 3 TESTS WRITE,
READ AND

WRITE CHECK OPERATIONS USING DATA;

PART 4 TESTS

sg§6£10NING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE

1.2

MECHANICAL

RMB80 DISK

UNIT UNDER TEST
THE UNIT UNDER TEST

CONSISTS

THE

(UUT)

RH70 MASSBUS

THE

TROLLER

RM80

DISK

SUBSYSTEM

WHICH

,THE RMBO MASSBUS ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS REQUIRED
;g?vsTESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

THE FOLLOWING MINIMUM HARDWARE
CONFIGURATION,
ASSUMED
TO B8E
OPERATIONAL,
IS REQUIRED TO LOAD AND EXECUTE THE RMBO SUBSYSTEM
FUNCTIONAL TEST:

PDP-11 PROCESSOR

20K MEMORY

KWil=L OR KW11-P CLOCK

AMAAUIAVIAL

NOAWN B UWN
- O

PROGRAM LOADING DEVICE
TERMINAL

RH70 CONTROLLER
1 70 8 RM80 DISK DRIVES

2.2

MEDIA REQUIREMENTS

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-1

i
gg

SEQ 0004

EACH UNIT BEING TESTED MUST BE LOADED WITH A DISK BEFORE TESTING

BEGINS

2.3

THAT

UNIT. THE DISK MAY BE FORMATTED OR UNFORMATTED.

PREREQUISITE DIAGNOSTIC PROGRAMS
RMBO DISKLESS TEST, PART 1 & 2

3.0

OPERATING PROCEDURE

3.1

;é

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA:

76
;g

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE.
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE.

79
80

3.2

83
gg

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE
OF THE PROGRAM.

SwW15

sSwl1

87
88
89
91

SWITCH OPTIONS
UTILITY

HALT ON ERROR

sw14
SWi3
swi2

LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEOUTS
UNUSED

INHIBIT TEST ITERATIONS

Sw10

BELL ON ERROR

SW09
SW08

95
96
gg

THE LOW ORDER 8 SWITCHES (SW07-SW00), ARE USED IN CONJUNCTION WITH
SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL
LOOP ON.

b vmd ek b =2

R SoI3RIRARAR=ES

92
32

3.3

LOOP ON ERROR
LOOP ON TEST IN SW07-00

STARTING
THE

PROGRAM

MAY BE STARTED AT LOCATION 200 OR 204.

200

WILL BE THE NORMAL STARTING ADDRESS.

3.4

HALTING

STARTING AT

STARTING AT 204 WILL ENABLE

THE RH/RM BASE ADDRESS TO BE CHANGED.
IF RUNNING IN A _STAND~ALONE
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR
TO CONTROL TEST CONDITIONS.

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR
BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL.

3.5

SEQ 0005

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

(SEE SEZCTION 3.3)

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME

IS STARTED AFTER BEING LOADED.
IF THE PROGRAM IS RESTARTED.

PROGRAM IDENTIFICATION DOES NOT OCCUR

e Tl red candd el mrd s s s

d e o

D el ed emh e i

D wd D d e

D D nd D =D b D e e o T

d e

b D e

D D s

ONONONON O O NAAWVAWVIAANWVIWWN S 25 85 BN BN 05 08 85 8 B NN NN NN A AN N AN N NN PO NI NI N AOD N b b b b

d D cd i d D ed D o ek d

anmggmaumdoomwombwmdoomw0mau~aoomwOmbWNdOOGVOmbumaoomwow

CZRNDAO RMBO FCTNL PT1 MACP) V04.00 2B-JAN-82 16:24:51 PAGE 3-2

4.2

CONSOLE DIALOGUE
WHEN THE PROGRAM IS RUNNING IN STAND

ALONE

MODE,

CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I1.D..

THE FIRST QUESTION TYPED OUT IS:

THE

OPERATOR

‘'TYPE HELP TEXT

ENTERS A

(L) N 2*°,

RESPONDS WITH A °°Y'’, THE PROGRAM WILL TYPE A BRIEF

HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS
QUESTION

ONLY ASKED

SUBSEQUENT START-UP'S.

THE INITIAL PROGRAM

START AND

NOT ON

ON THE PROGRAM INITJAL START AND WHEN RESTARTING AT LOCATION 204,
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING
DIALOGUE.

EXAMPLE 1
RMCS1=176700 <CR>
RflyEC=000254 <CR>

sNO CHANGE IN ADDRESS
sNO CHANGE IN ADDRESS

EXAMPLE 2

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS T0 177200
RMVEC=000254 260<CR>
s CHANGE VECTOR ADDRESS TO 260
THE NEXT QUESTION ASKED IS
‘DO YOU WANT MANUAL INTERVENTION
TESTS (L) N ?°,
IF THE OPERATOR ANSWERED WITH A 'Y’ RESPONSE, UPON
ENTERING A MANUAL
INTERVENTION TEST,
THE PROGRAM WILL ASK THE
OPERATOR TO PERFORM CERTAIN FUNCTIONS TO THE DRIVE. THERE IS ONLY ONE
MANUAL INTERVENTION TEST IN THIS PROGRAM. (SEE SECTION 6.0, TEST #2)
ANY OTHER RESPONSE TO THE QUESTION IS CONSIDERED TO BE °N' AND THERE
WILL BE NO MANUAL INTERVENTION IN THE PROGRAM OPERATION.
TERMINATE
RESPONSE WITH A CARRIAGE RETURN.

ON THE INITIAL START, THE NEXT QUE STION TYPED 1S, 'TYPE ‘A T0
_AND TERMINATE
INPUT WITH
TEST ALL DRIVES, OR TYPE DRIVE NUMBER ( S)
A CARRIAGE RETURN®.
THEN, °DRIVE(S):'
IS TYPED AND WAITS FOR THE

OPERATOR TO

TYPE AN ''A’’,

TO TEST

SEQ 0006
ALL PCSSIBLE DRIVES

OR TYPE

ANY

STRING OF DRIVE MMHBER(SS TO BE TESTED AND TERMINATE THE INPUT WITH A

*'CARRIAGE RETURN''. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT

STARTS, ONLY THE °‘DRIVE(S):' PROMPT IS TYPED.

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING
IS AN EXAMPLE PRINTOUT:

‘UNIT STATUS:
NOWVS WO

—

00 00 00 0039 30 00 ~I
2% LR8N 2S 02,0000
R IR RAR LB IIIFINAN

CZRNDAO RM80 FCTNL PT1 MACRO v04.00 28-JAN-82 16:264:51 PAGE 3-3

ONLINE

RMBO

OFFLINE

RM80

LOAD DEVICE

NOT
NOT
NOT
NOT
NOT

PRESENT
PRESENT
AN _RM80
PRESENT
PRESENT'

THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES

1 = 7 WILL NOT BE TESTED.

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS
OF THE DRIVE:

'DRIVE(S) TO BE TESTED, 0°

199

IF NO DRIVES ARE AVAILABLE FOR TESTING THE FOLLOWING MESSAGE WILL BE

TYPED TO THE OPERATOR:

'DRIVE(S) TO BE TESTED, NONE'

PORINAINLNLNININS
LN
PO
O
=P d cod s e b d - D cned

- OOV NYONSWN=O

THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT.

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR
AS EACH DRIVE BEGINS TO BE TESTED:

*DRIVE 0°
AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS

MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START

TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.

NOTE:

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
8{L§$§22NSE REQUIRED BY THE USER,
D=DECIMAL, 0=0CTAL AND

222
4.3

PROGRESS REPORTS

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS.

SEQ 0007

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-¢

'END OF PASS

THE FOLLOWING MESSAGE WILL ALSO
THE LAST END OF PASS REPORT.

OCCUR IF THERE WERE ERRORS SINCE

'TOTAL ERRORS SINCE LAST REPORT
4.4

PERFORMANCE REPORT
NO PERFORMANCE REPORTS ARE GIVEN

PROGRAM.

4.5

0’

DURING

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM.
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER.
ViAWV

coONOA
NS LN =

rnorONRONININNN

250

259

4.6

ERROR REPORTS
THE FIRST LINE OF THE ERROR REPORT CONTAINS

UNIT (DRIVE) BEING TESTED,

THE DRIVE TYPE,

THE

NUMBER

THE

THE TEST NUMBER, THE ERROR

NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE:
ONE OR MORE LINES OF TEXT
WHICH GIVE A BRIEF, VYET COMPREHENSIVE DESCRIPTION OF
THE ERROR.
THE
ERROR MESSAGE
IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR,
INCLUDING
EXPECTED AND ACTUAL TEST RESULTS.
THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM:

DRVA 0 - RMB0, TEST# 14, ERRH 326, PC=016654
MASSBUS DATA BUS PARITY ERROR "MDPE'’
(RMCS2, BIT 8) DETECTED
DURING WRITE COMMAND
EXPECTD
RECEVD

040300
RMCS1
144252
RMWC
177403
RMMR1

000010

4.7

040700
RMCS2
040700
RMBA
104604
RMMR2

011777

RMDS ~
010700
RMDA
000002
RMDT

024026

RMER1
000000
RMOF
010000
RMSN

RMER2
000000
RMDC
000000

RMAS
000000
RMECT
004066

177777

EXECUTION TIME

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS.
SUBSEQUENT PASSES TAKE 2.3 MINUTES.
5.0

RMEC2
000000

ENVIRONMENTAL SUPPORT

PASS 2 AND

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-5
5.1

SEQ@ 0008

PROCESSOR COMPATIBILITY

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE

ON A PDP-11/70

PROCESSOR,
PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO
SUSTAIN DATA TRANSFER OPERATIONS.

5.2

DUAL PORT CONFIGURATIONS
THE RM80 SUBSYSTEM FUNCTIONAL TEST

DOES

NOT

SPECIFICALLY

TEST

DUAL PORT LOGIC IN THE RMBO ADAPTER BUT IS EXECUTABLE ON RM80
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH
IS SET TO THE APPROPRIATE PORT (A OR B).

5.3

NONS/WNO

MEMORY PARITY HARDWARE IS NOT USED DURING THE
RMB0 SUSBYSTEM FUNCTIONAL TEST.

N) =

=200V

b b eed o) b b b b

AN LN N AN N AN A N N N N AN

MEMORY PARITY HARDWARE

5.4

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMB0
FUNCTIONAL TEST.

5.5

SUSBYSTEM

ACT11, APT11 COMPATIBILITY

THE RM80 SUBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11
AND
APT11
IN BOTH DUMP AND AUTOMATIC MODES. FURTHER,
THE PROGRAM WILL
sgggUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY

5.6

XXDP COMPATIBILITY

THE RMBQ SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_IN
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE
THE RMBO IS THE XXDP LOADING DEVICE.

5.7

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOF TWARE OPERATING SYSTEM.

6.0

TEST DESCRIPTION

CZRNDAOQ RMB0O FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 3-6
343
344
345

%29

TEST 1

SEQ 0009

CONTROLLER ACCESS TEST

%28

PURPOSE :

350
gg;

CORRECT, AS DEFINED AT LOCATION $BASE.

ggz

PROCEDURE :

355
356
35

TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80

THE TEST TRIES TO ACCESS ALL

MASSBUS

SUBSYSTEM

CONTROLLER

REGISTERS

ggg

USING THE SBASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY
REGISTER TRANSFER.

360
361
362
363

IF _THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND
ALONE ENVIRONMENT, I.E., LOCATION 42 IS O, THE PROGRAM WILL JUMP
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE SBASE
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO

gg;

THE END OF PASS HANDLER.

366

367

%gg
g;g

TEST 2 LOGICAL ADDRESS PLUG TEST (OPTIONAL, SEE SECTION 4.2)
PURPOSE :

374
;;g

TO VERIFY THAT ALL LOGICAL ADDRESS PLUGS(0-7)
EACH DEVICE UNDER TEST.

g;;

PROCEDURE :

379
380
381
382

THIS TEST SELECTS EACH UNIT BY INSERTING ADDRESS PLUGS 0-7
INTO EACH DEVICE BEING TESTED AND READS RMERZ2 TO VERIFY THAT
"OPE'' IS SET. A MASSBUS CLEAR IS ISSUED AND RMER2 IS READ TO
VERIFY THAT ''OPE’' IS CLEAR. THE CONTROL STATUS REGISTERS 1 AND 2

383

384
385

386
387
388

389
390
%3%

z
gg
395

ARE

READ

AVAILABLE
IN RMCSZ.

TEST 3

VERIFY

FOR TESTING,

THAT

FUNCTION IN

THE CORRECT UNIT WAS SELECTED AND IS

°‘'DVA' IS SET IN RMCST AND ‘NED'* IS CLEAR

UNIBUS INITIALIZE TEST

PURPOSE :

ggg

TO VERIFY THAT ALL APPLICABLE
INITIALIZED BY THE RESET INSTRUCTION.

398

PROCEDURE:

SUBSYSTEM

REGISTERS

ARE

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 3-7
400
401
402
403

RESET

SEQ 0010

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE
REGISTER.
A
INSTRUCTION
IS EXECUTED, AND THE REGISTERS ARE TESTED TO

INSURE THEY WERE INITIALIZED.
THIS TEST IS DONE ONCE BECAUSE
APT COMPATIBILITY REQUIREMENTS.
OCCUREHE FOLLOWING REGISTERS ARE

PRESET

BEFORE

THE

INITIALIZE

RMCS1 = 003577

PaY ol X T W W
AON) b b e b e bk ek
=2 OO0 ~NOMNE NN

RMBA - 777776

422

RMCS2 - 021037
RMERT - 777777
RMER2 =~ 777777

RMMR - 040001

IN ADDITION, THE DATA BUFFER IS USED TO FORCE DLTY,TRE,SC

TO A ONE AND TO FORCE IR TO A ZERO.

TEST 4

AND

CONTROLLER CLEAR TEST

PURPOSE:

VERIFY

THAT

APPLICABLE

SUBSYSTEM

INITIALIZED BY A ''CONTROLLER CLEAR'' OPERATION.

REGISTERS

ARE

PROCEDURE:

LIKE THE UNIBUS INITIALIZE TEST, THIS TEST_WRITES NONZERO
VALUES IN THOSE REGISTERS WHICH ARE INITIALIZED BY CONTROLLER
CLEAR.
THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR,
1.E., BIT 5 OF CONTROL STATUS REGISTER 2 (RMCS2), AND EACH

TEST 5

ERROR CLEAR TEST

:
PURPOSE

TO VERIFY THAT ALL APPLICABLE RH70 MASSBUS CONTROLLER STATUS

AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION.
PROCEDURE:

AN 'RH70 ERROR CLEAR'' OPERATION, I.E..

WRITING A ONE IN TRE,

BIT 14 OF RMCST WILL CLEAR THE FOLLOWING STATUS BITS:

SEQ 0011

I CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-8
457
458
459
460
461
462
463

.TRE, BIT 14 OF RM(CS?

.MCPE, BIT 13 OF RMCS1 ~ READ ONLY

.DLT, BIT 15 OF RMCS2 - READ ONLY
.WCE, BIT 14 OF RMCS2 - READ ONLY

464
465
466

467
468
469
470
47
472
473
474
475
476
477

.UPE, BIT 13 OF RMCS2
.NED, BIT 12 OF RMCS2 = READ ONLY

.PGE, BIT 10 OF RMCS2 - READ ONLY
MXF, BIT 09 OF RMCS2

.MDPE, BIT 08 OF RMCS2 - READ ONLY
THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE

(ERROR

CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED.

TEST 6

DRIVE STATUS TEST

PURPOSE:
TO VERIFY THAT THE STORAGE MODULE DISK DRIVE IS IN

THAT PERMITS FURTHER TESTING.

STATE

PROCEDURE:

THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS:

.MOL, BIT 12 OF RMDS

ASSERTED BY THE DRIVE:

=1,

INDICATING

THAT

UNIT

READY

LWRL, BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN

A WRITE PROTECT STATE;

DVC,

BIT

UNASSERTED BY THE DRIVE:

RMER2

=0,

INDICATING

DRIVE

.UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS.

TEST 7

PRIMARY/SECONDARY ERROR TEST

FAULT
AC

POWER

S NN = O O 00
R = O 0D N O
NN 2 O D00 NOMN R
R — © D OB ~ON A

SEQ 0012

:
PURPOSE

TO VERIFY THAT THE RM80
INCURRING UNEXPECTED ERRORS.

CAN

EXECUTE

COMMAND

WITHOUT

PROCEDURE:

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES
SURE
THAT GC RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC.
VOLUME
VALID STATUS IS IGNORED.

TEST 10 DIAGNOSTIC MODE TEST
:
PURPOSE

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

AND

RESET,

PROCEDURE:

THE TEST THAT DIAGNOSTIC MODE CAN BE

VERIFIES

THAT

‘MOL,

PIP,

USING MAINTENANCE REGISTER 1.

SET

THEN

WL, SKI, AND DVC'' CAN BE CONTROLLED

TEST 11 PACK ACKNOWLEDGE TEST
PURPOSE:

TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE
COMMAND,
LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE.
PROCEDURE:

O 00O

ALl WiV

A U

A IV

T A VTUWAWTIIWA L

VIRV
S D DD DD
W

A WVTVAVTAVAVAIVA VAW A

O N I~

|V}
hritvitvvtiyvtvt
vt
R WVAWANVIVALRWLA
b

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-9

A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED

DEVICE

AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE.

560
TEST 12 RECALIBRATE TEST

PURPOSE:

THE PRIMARY PURPOSE IS TO

EXECUTE

RECALIBRATE

ASCERTAIN

OPERATION

THAT

THE

DRIVE WILL

THE EXTENT THAT

“PIP'*

AND

"'SKI'*
STATUS BECOME UNASSERTED AT THE COMPLETION
OF
THE
RECALIBRATE.
THE SECONDARY PURPOSE IS TO PUT THE DRIVE IN A
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-10

SEQ 0013

CHANGES IN THE DRIVE.
:
PROCEDURE

THE RECALIBRATE TEST

PRESETS

THE

DISK

ADDRESS

RMDA, AND THE DESIRED CYLINDER REGISTER, RMDC, TO ZERO, THEN
EXECUTES A RECALIBRATE COMMAND.
THE TEST VERIFIES THE FOLLOWING
CONDITIONS:

.SKI=0, ‘°'SEEK ERROR'* IS INACTIVE;
LPIP=0,

°‘ON

CYLINDER''

ACTIVE,

‘POSITIONING IN PROGRESS'® BEING INACTIVE;

INDICATED

.JAE=0, NO ‘'INVALID ADDRESS ERROR'' DURING RECALIBRATE;
THAT

.0PI=0, NO ‘‘OPERATION

INCOMPLETE

ERROR'’,

INDICATING

THAT

THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT ON

CYLINDER

COMMAND;

STATUS

WENT

INACTIVE

WHEN

THE

DRIVE

RECEIVED

THE

.ATA=1, ATTENTION IS SET BY RECALIBRATE.

TEST 13 ABORT RECALIBRATE TEST

PURPOSE :

TO VERIFY THAT THE RMBO INHIBITS A RECALIBRATE WHEN AN ABORT
CONDITION EXISTS AT THE START OF THE COMMAND.
PROCEDURE:

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES
RECALIBRATE COMMAND, VERIFYING THAT "PIP'' REMAINS INACTIVE.

W\nbm-ng

andh vl wvald e

ned vl wid cndh

OB~
NS N —

OO0
O OO

610

TEST 14 IVC RECALIBRATE TEST

PURPOSE:
TO VERIFY THAT INVAL ID COMMAND STATUS, BIT 12 OF RMER?2, SETS
WHEN VOLUME VALID IS INAC TIVE DURING A RECALIBRATE COMMAND.

PROCEDURE :

THE PROGRAM SETS AND RESETS DIAGNOSTIC MODE WHICH CAUSES
VOLUME VALID. BIT 6 OF RMDS TO RESET. THE PROGRAM THEN EXECUTES
A RECALIBRATE COMMAND AND VERIFIES THAT
°'IVC'*
STATUS SETS AND
THAT “PIP'* REMAINS INACTIVE.

CZRNDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 3-11

SEQ@ 0C14

TEST 15 IAE RECALIBRATE TEST

PURPOSE:
TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET
RECALIBRATE COMMAND .

DURING

:
PROCEDURE

THE TEST PRESETS THE DISK ADDRESS

(RMDA)

AND

THE

DESIRED

CYLINDER _ ADDRESS
(RMDC)
TO ILLEGAL VALUES AND ISSUES A
RECALIBRATE COMMAND, VERIFYING THAT °‘IAE’* DOES NOT SET DURING THE
COMMAND.

TEST 16 RECALIBRATE AT OFFSET
PURPOSE
:

TO VERIFY THAT OFFSET

MODE

DOES

NOT

AFFECT

RECALIBRATE.

PROCEDURE:

THE
TEST
EXECUTES AN OFFSET
COMMAND,
THEN EXECUTES A
RECALIBRATE
COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING
RECALIBRATE.

TEST 17 DRIVE CLEAR TEST
:
PURPOSE

TO VERIFY THAT ALL APPLICABLE RM80 MASSBUS ADAPTER ERROR AND
STATUS CONDITIONS ARE INITIALIZED BY A ‘DRIVE CLEAR'® COMMAND.
PROCEDURE:

THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH
ARE INITIALIZED BY DRIVE CLEAR_, THEN ISSUES THE DRIVE CLEAR
COMMAND AND VERIFIES THAT EACH BIT 1S CLEARED.
~ADDITIONALLY,
25313E§?§IggICH ARE NOT AFFECTED BY 'DRIVE CLEAR'® ARE ALSO PRESET
THE FOLLOWING ITEMS ARE PRESET:

.RMER1, ERROR REGISTER 1 IS SET TO ALL ONES;

CZRNDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 3-12

SEQ 0015

ggg

.DMD, DIAGNOSTIC MODE IS SET;

2%;

.RMERZ2, ERROR REGISTER 3, IS SET TO ALL ONES.

689

FOLLOWING THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE
KE
EC
CH D:

692

.RMCS1, IS CHECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS

695

.RMDS, 1S CHECKED FNR O,

23?
ggg

ggg
;8?
702
;82

705

;89

FOR

MOL,DPR,DRY,

WHICH SHOULD RE ONE, AND PGM WHICH IS A DONT CARE.

AND

.RMER1, 1S CHECKED FOR 0;

.RMAS, IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0:
RMMR, IS CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR,
AND LAST SECTOR AND TRACK WHICH ARE DONT CARES:

.RMMR2 IS CHECKED FOR O, EXCEPT FOR THE TEST

ONE, AND REQA, REQB WHICH ARE DONT CARES;

;83

.RMEC2 IS CHECKED FOR 0.

;}?

.RMER2 1S CHECKED FOR 0.

712
713
714
715
;}g

TEST 20 NOP TEST

;}g

PURPOSE :

;%?

EXCEPT

BIT

WHICH

TO VERIFY THE EXECUTION OF ''NOP'' COMMAND.

;5%

PROCEDURE :

724
725
726

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED
CHANGES IN STATUS.

727
728
729
730
731
;;%

TEST 21 OFFSET TEST

;gg

PURPOSE :

;%g

;gg

740

741

TO VERIFY THE EXECUTION OF ‘OFFSET'' COMMAND.

PROCEDURE :

THE OFFSET COMMAND IS EXECUTE ? AND THE PROGRAM

OFFSET STATUS, BIT O OF RMDS IS SET

CHECKS

THAT

AND THAT ATTENTION, B!T 15 OF

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-13
74
74
744
745
746
747
748
749
750
751
752

753
754
755
756
757

SEQ 0016

RMDS IS ALSO SET.
ADDITIONALLY, CONTROLLER, ADAPTER,
STATUS IS CHECKED FOR UNEXPECTED CHANGES.

AND

DRIVE

TEST 22 GO/ATA TEST

PURPOSE:

TO__VERIFY

THAT

‘‘ATA"

COMPOSITE ERROR IS INACTIVE.

WILL

RESET

WITH

''GO'"

PROVIDING

PROCEDURE
:

ATTENTION, BIT 15 OF RMDS, IS SET USING

AND RESET USING A NOP COMMAND.

OFFSET

COMMAND

TEST 23 WRITE ATA TEST
:
PURPOSE

TO VERIFY

THAT

ATTENTION

ATTENTION SUMMARY REGISTER, RMAS.

CAN

RESET

WRITING

THE

WHICH

THE

PROCEDURE:

ATTENTION IS SET USING AN OFFSET

PROGRAM

WRITES

COMMAND

AFTER

A O IN THE ATTENTION SUMMARY REGISTER, VERIFYING

THT ATTENTION REMAINS SET.
FOLLOWING THAT, THE PROGRAM WRITES
1 IN RMAS AND VERIFIES THAT ATTENTION RESETS.

TEST 24 ERROR/ATA TEST
PURPOSE:

TO _VERIFY THAT ''GO'' DOES NOT RESET "'ATA""

COMPOSITE ERROR.

WHEN

THERE

PROCEDURE:

“ATA'’ 1S SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE
ERROR BITS IS SET.
THE PROGRAM THEN ISSUES A NOP COMMAND AND
VERIFIES THAT THE ATTENTION BIT REMAINS SET.

CZRMOAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-14

SEQ 0017

TEST 25 PROGRAM INTERRUPT TEST

:
PURPOSE

TO VERIFY THAT THE RM80 SUBSYSTEM WILL GENERATE
INTERRUPT
WHEN PROCESSOR PRIORITY IS LESS THAN

PRIORITY AND INTERRUPT IS ENABLED.

A PROGRAM
CONTROLLER

cxcacecmmonoscocn

OO NN
I NN —

PROCEDURE:

820

ATTENTION IS SET USING AN OFFSET
COMMAND.
W'TH
INTERRUPT
ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY, THE

PROGRAM VERIFIES THAT A PROGRAM INTERRUPT CCCURS.

TEST 26 INHIBIT INTERRUPT TEST

PURPOSE:

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN
(1)
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT 1S

ENABLED OR (2) WHEN PROCESSOR PRIORITY IS

AND INTERRUPTS ARE NOT ENABLED.

LESS

THAN

CONTROLLER

PROCEDURE:
ATTENTION IS SET USING AN OFFSET COMMAND WITH THE PRIORITY
OF
THE PROCESSOR SET EQUAL TO THE PRIORITY OF THE CONTROLLER.
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM
INTERRUPT DOES NOT OCCUJR.
INTERRUPTS ARE DISABLED AND PROCESSOR
PRIORITY
IS
LOWERED AND
THE
TEST VERIFIES
THAT A PROGRAM

INTERRUPT DOES NOT OCCUR.

TEST 27 RETURN TO CENTERLINE TEST

PURPOSE:

TO VERIFY THE EXECUTION OF "RETURN TO CENTERLINE'' COMMAND.
PROCEDURE:

THIS TEST ISSUES AN RTC TC COMMAND

AND

VERIFIES

THAT

OFFSET

STATUS, BIT 0 OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMD3
IS SET. UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED.

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-15
856
857

SEQ 0018

TEST 30 READ IN PRESET TEST

PURPOSE :

TO VERIFY THE EXECUTION OF 'READ IN PRESET'' COMMAND.
PROCEDURE
:
THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS
WHICH ARE
INITIALIZED BY
THE
READ
IN PRESET
COMMAND, THEN
EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF EACH REGISTER.
THE FOLLOWING REGISTERS ARE CHECKED:

-RMDA,

THE DISK ADDRESS REGISTER, IS LOADED WITH

ALL

+RM

THE DESIRED CYLINDER REGISTER, IS LOADED

WITH

<RMOF,

THE OFFSET REGISTER, IS PRESET (70 017200) AND

ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;

ALL ONES (601777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMANC.
VERIFIED TO BE ZERO AFTER THE TEST;

TEST 31 RMDC CLEAR OFFSET TEST

:
PURPOSE
T0 VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER
WILL CLEAR OFFSET MODE.

(RMDC)

PROCEDURE :

OFFSET MODE IS SEYT USING THE OFFSET COMMAND, THEN

WRITING RMDC.

RESET

TEST 32 ILLEGAL FUNCTION TEST

PURPOSE :

TO VERIFY

N=O

O 00

b
b b

3833

FUNCTIONS.

THAT

THE

RM80

SUBSYSTEM

DETECTS

ALL

ILLEGAL

PROCEDURE :

EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM
VERIFYING THAT “'ILLEGAL FUNCTION'' STATUS, BIT O OF RMER1 IS SET

FOR EACH CODE,

THE_

ILLEGAL FUNCTION TEST.

SUBSYSTEM

INITIALIZED PRIOR

TO EACH

f
CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-16
913
914
915
916

SEQ 0019

TEST 33 INVALID COMMAND TEST
PURPOSE:
TO VERIFY 1VC ERROR DETECTION.
PROCEDURE
:

THEN TEXECUTES A NOP COMMAND AND VERIFIES THAT Ive 1S SET-.
THE

PROCESS IS REPEATED

FOR

EACH

FUNCTION

CHECKED ACCORDING TO THE FUNCTION.

CODE,

WITH

IVC

BEING

TEST 34 INVALID ADDRESS ERROR TEST
:
PURPOSE

TO VERIFY IAE ERROR DETECTION.
PROCEDURE:

THE TEST EXECUTES EACH FUNC TION CODE WITH RMDA, AND RMDC SET
TO ILLEGAL ADDRESSES, AND VERIFI ES IAE ACCORDING TO THE FUNCTION.

TEST 35 WRITE LOCK ERROR TEST
PURPOSE:

TO VERIFY WLE ERROR DETECTION.
PROCEDURE:

THE TEST SIMULATES WRITE PROTECT USING MAINTENANCE
PROTECT
AND VERIFIES WLE ACCORDING TO THE
FUNCTION

EXECUTED.

EACH FUNCTION CODE IS TESTED.

TEST 36 ERROR ABORT TESTS
PURPOSE:

TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION.

WRITE
BEING

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 3-17

SEQ 0020

3;10

PROCEDURE :

972
g;z

EACH FUNCTION CODE IS
CONDITION AND THE TEST VERIF

975
976
977
978

979

TEST 37 RMR TEST

gg}

PURPOSE :

980

3%2

832
987

988

989
990

CUTED

UNDER

SIMULATED

THAT GO 1S RESET.

UNSAFE

TO VERIFY THAT RMR ERROR 1S DETECTED.

PROCEDURE :
WITH

SETS.

THE TEST EXECUTES A NOP COMMAND WITH

SET,

THE

TEST

DEBUG

CLOCK

ENABLED.

WRITES RMCSI, VERIFYING THAT RMR ERROR

991

992
993

994

ggg

gg
1%{9}

TEST 40 PARITY ERROR TESTY

PURPOSE :
TO VERIFY THAT PARITY ERRORS ARE DETECTED.

}88;

PROCEDURE :

1003

WITH PAT SET TO CAUSE BAD PARITY ON THE CONTROL B8US,
TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT
AN ERROR 1S DETECTED BY THE RM80 FOR EACH PATTERN.

1004
}882

1007
1008
1009
1010
]'g;}

TEST 41 ILLEGAL REGISTER TEST

1013
1014
1015
}8}9

PURPOSE
:

}8;3

PROCEDURE :

1185?

ILLEGAL REGISTER
EACH REGISTER ADDRESS IS ACCESSED
STATUS, BIT 1 OF RMER! IS CHECKED ACCORDING TO THE ADDRESS USED.
NOTE THAT THE EXECUTION OF THIS TEST IS5 DEPENDENY ON THE REGISTER
ADDRESS JUMPER IN THE RH70 CONTROLLER BECAUSE THE RANGE OF
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY THE

1022
1023
1024
102S
1026

T0O VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE
RM80 SUSBSYSTEM.

WAY THE JUMPER 1S CUT.

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 3-18

1027
1028

190
1031

1032
1033
1034

i
1037
}8§3

1040
1041
1042
1043
1044
1046
1047

1048

1049

1050
1051
1052
1053

133?

}329
1058
1059
1060
1061

}835
}83§

1066

1067
1068
1069
%85?
1072

}3;2

1075
1076
1077
1078
}853

1081
1os§
108

SEEK TESTS (42 - 52)
PURPOSE
:
THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY

THE EXECUTION OF
SEEK OPERATIONS BY THE RM80 SUB?L?EE?AgEINENS
SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE
ELECTROMECHANICAL HEAD POSITIONING MARDWARE.
PROCEDURE:

EACH TEST WILL RECALIBRATE THE DRIVE IF ‘PIP*

ACTIVE.
FOLLOWING THAT, THE TEST EXECUTES A SEEK TO A CYLINDER
AT THE COMPLETION OF
EACH SEEK
ADDRESS OR SERIES OF ADDRESSES.
OPERATION,
SUBSYSTEM STATUS
IS STORED AND THE TEST CHECKS FOR
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING.
IF
THERE
ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OFERATIONAL ERRORS AND

THEN SECONDARY ERRORS.

TEST 42 SEEK TO FIRST CYLINDER TEST
THIS TEST SEEKS TO THE FIRST CYLINDER.

TEST 43 SEEK TO LAST CYLINDER TEST
THIS TEST SEEKS TO THE LAST CYLINDER.

'
TEST 44 SEEK FRIME CYLINDERS TEST
THIS TEST SEEKS FORWARD TO EACH PRIME CYLINDER ADDRESS, I.E,

CYLINDERS 1, 2,4, 8, 16, 32, 64, 128, 256 AND 512.

TEST 45 SEEK Z2ERO DIFFERENCE TEST

THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0.

SEQ 0021

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-19

SE@ 0022

1084
D

084

D e

8%;

b e ed e

089

090

b b D end el i o

b b b e

091
092
093
094
095
096
83;

THIS TEST DOES A RECALIBRATE COMMAND, REGUARDLESS OF THE
CONDITION OF 'PIP" OR °''SKI'’, AND THEN EXCUTES A SEEK TO THE LAST
CYLINDER.

TEST 47 SEEK ADJACENT FORWARD TEST

THIS TEST SEEKS TO CYLINDER O, FOLLOWED BY

ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1.

SEEK

THE

TEST 50 SEEK ADJACENT REVER.:Z TEST
THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT
REVERSE CYLINDER, I.E., CYLINDER O.

TEST 51 SEEK TO INVALID SECTOR TEST

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM
SEEKS TO CYLINDER O, TRACK O, FOR EACH INVALID SECTOR ADDRESS AND

VERIFIES
THAT
INVALID ADDRESS ERROR SETS FOR EACH SECTOR. THE
TEST IS REPEATED FOR 16 BIT FORMAT.

O
(= 1]

el o

i e

D i

b e

) e and b e

b v

e e

D e

e el e

b el

i e

cmd

o e

i wd =D

e e e e

i =D e

e e i

)

b e

D wd oud T ad

b el e

)

b o

am..ovomwo“bum-boomflo«mamdosgsgggaggg

099

TEST 46 SEEK MAXIMUM DIFFERENCE FORWARD

TEST 52 SEEK TO INVALID TRACK TEST
THE TEST SEEKS TO EACH_INVALID TRACK ADDRESS

WITH

CYLINDER

AND SECTOR ADDRESS SET TO O AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH TRACK ADDRESS.

TEST 53 SEEK TO INVALID CYLINDER TEST
THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH THE
SECTOR AND TRACK ADDRESS SET TO O AND VERIFIES THAT INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS.

RN 8

—d cnd el wnud e e b codh amd
b andd e wwlh ol e ud wu wud

00 000D 00 0000000000 00000000 ~J

R R R R R B SN

I It d

U NN NS

N R AR R 2

VNN O ONON OO DN O DA N A A A P P AN A

T Te T

S B NN RS oS NEGRESs

D el D o el D D b ) S vl el el =D wmd wnd D D ) e el D wmd D
e o b wnd D b el el D e D e
) D ) mh e
e D e b—
i ) b s unl D D ol wmh wd el cd el D e ) T wrd D ad ) D s Dl e D ) e ot b cwed D D D cadh e wud D el wad ek b cud wd amd wwd -

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-20

SFQ 0023

TEST 54 IVC SEEK TEST
PURPOSE:

TO VERIFY THAT INVALID COMMAND STATUS, B1T 12 OF RMERZ2

WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND.
PROCEDURE
:

THE TEST RESETS VOLUME
VALID BY
SETTING AND RESETTING
DIAGNOSTIC MODE,
THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT

“'IVC'' STATUS IS SET.

TEST 55 ABORT SEEK TEST
:
PURPOSE

TO VERIFY THAT THE RMB0 INHIBITS
SEEK
CONDITION EXISTS AT THE START OF THE COMMAND.

WHEN

ABORT

AND

ISSUES

PROCEDURE:

THE TEST SETS AN ERROR IN THE ERROR REGISTER

SEEK COMMAND, VERIFYING THAT 'PIP'' REMAINS INACTIVE.

TEST 56 SEEK AT OFFSET
PURPOSE:

TO VERIFY THAT OFFSET MODE

DOES

NOT

CAUSE

ERRORS

DURING

PROCEDURE:

THE TEST EXECUTES AN OFFSET COMMAND THEN
COMMAND, VERIFYING THE RESULTS OF THE SEEK.

TEST 57 LOOK AHEAD TEST
PURPOSE:

EXECUTES

SEEK

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:5: PAGE 3-21
1198

b ad b d b

1199
1200
583

NN = OO 00

206
207

SEQ 0024

TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE
DRIVE AND IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS
OPERATIONAL .

PROCEDURE :

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE

PROGRAM

SAMPLES THE LOOK AHEAD REGISTER AND COLLECTS EACH DIFFERENT
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR_UNTIL

31, SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE
THAT THE SECTOR COUNT INCREMENTS CORRECTLY
THROUGH THE ENTIRE

RANGE

VALID

SECTORS.

THE SAME PROCEDURE 1S REPEATED FOR 16

BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 32. ALSO,
;S"SEESF?QHQE WITH SSEI SET,

WHERE

THE

LIMIT

ON THE NUMBER OF

NN
NN = OO0 NOA NS NN = OB

TEST 60 SEARCH ON CYLINDER
:
PURPOSE

TO VERIFY THE EXECUTION OF SEARCH OPERATIONS

MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE.

WITH

HEAD

PROCEDURE:

*'SK1'*

THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF °‘'PIP'' OR
IS ACTIVE THEN SEEKS TO CYLINDER O.
THE TEST THEN DOES A

SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH COMPLETES
WITHOUT ERROR.
THIS TEST IS DONE IN 16 BIT FORMAT WITH SSEI SET.

NN = O OO NV

e ol ek

D nd

b cenh

b e

MNNINAIMAL NN NN

]

d ed

D D e

d =D mad D

D b wd D

MNINININININ
NN NI NINININI N NI NI N

) cd cd

b e

4\4\»»uuuuuuamwummwmmmmmmw---a--_-'_‘."_‘.”2‘.’388

d ad e

%82
205

PURPOSE:

TO VERIFY THE EXECUTION OF A
HEAD MOTION.

o
—d nd ad e

ol e

249
250
231
252

253
254

COMMAND

WITH

[IMPLIED

PROCEDURE :

247
248

TEST 61 SEARCH OFF CYLINDER

OFF

THE DRIVE IS RECALIBRATED AND INITIALIZED IF THE DRIVE
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM THEN EXECUTES

IS
AN

EXPLICIT SEEK TO CYLINDER 279., FOLLOWED BY A SEARCH TO CYLINDER
280., TRACK 0, SECTOR 0. THE NEXT SECTOR IS SEARCHED FOR BY AN
EXPLICIT SEEK TO CYLINDER 278., FOLLOWED BY A SEARCH TO CYLINDER
281., TRACK O, SECTOR 1., ETC.,
UNTIL ALL SECTORS HAVE BEEN

SEARCHED. THE TEST IS DONE FOR 16 BIT FORMAT WITH SSEI SET, WHERE
THE LAST SECTOR SEARCHED IS 31.

CZRNDAO RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 3-22

SEQ 0025

56
57

TEST 62 SEARCH INVALID SECTOR
PURPOSE:

TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS
A SEARCH OPERATION.

DURING

PROCEDURE
:

THE DRIVE IS RECALIBRATED

CYLINDER

OR_HAS A SEEK ERROR.

AND

INITIALIZED

OFF

WITH THE OFFSET REGISTER SET FOR

18 BIT FORMAT, THE PROGRAM EXECUTES

EACH

INVALID

SECTOR,1.E.,SECTORS 30. AND 31. AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH SECTOR.
THIS TEST IS EXECUTED IN 16 BIT
FORMAT, WHERE SECTOR 31. IS THE INVALID SECTOR

TEST 63 SEARCH INVALID TRACK
PURPOSE:

TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A
SEARCH OPERATION.
PROCEDURE:

THE DRIVE IS RECALIBRATED AND INITIALIZED IF
IT IS OFF
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM EXECUTES A SEARCH T0

EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS O, AND
EEELO?R:ngESS O AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR

cad oD e

o wed mad b cnd b b

) cnd b wd

D b oD D ek *oD

D D wmd b wd v cad e

) b d D

b D e o) oD

NgNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
SABERRRRRERNY
000000 000000000000 ~N NN~
oo
NI OO 00 NOMASS
WM —

) b D e ad ek

1255

TEST 64 SEARCH INVALID CYLINDER

PURPOSE :

;

ggg

PROCEDURE :

308
309
310
n

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH
TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER.

b e

ggg

TO VERIFY THE DETECTION
DURING A SEARCH OPERATION.

INVALID

CYLINDER

ADDRESS

NN =2 O D 00 NN NV ESMAIND = OO 00 NOMNN S (NN

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-23

SEQ 0026

13
13

}
1

NN
LV
e LA L N LN AN W N
VIVAIVIMAWVIVAAWN
S S S O

ggw—bg008 NOMAS NN 2OV 00 NOMAe
NN = OV

—l—l—.—.-‘_....n-l-fl_a_.—fl—l_._.—l—l-l_‘f—\.;_.—n-n—b-)_.—l-a—l_l—l—l—l.—b_a—n—b-.I—D—I—J—l

NON N

]

]‘

S N NN NN AN NN AN A R NI N NI NI NI NN =

b b bt

TEST 65 IVC SEARCH TEST

PURPOSE :
TO _VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID

IS INACTIVE DURING A SEARCH COMMAND.
PROCEDURE :

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC
AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING
THAT *'IVC'* STATUS SETS.

MODE,

TEST 66 ABORT SEARCH TEST

PURPOSE:

TO VERIFY THAT THE RMB0 INHIBITS
SEARCH
CONDITION EXISTS AT THE START OF THE COMMAND.

WHEN

ABORT

PROCEDURE :

THE TEST SETS AN ERROR IN THE ERROR REGISTER

SEARCH COMMAND, VERIFYING THAT 'PIP'' REMAINS INACTIVE.

ISSUES

TEST 67 SEARCH AT OFFSET TEST
PURPOSE :
TO VERIFY THAT OFFSET MODE DOES NOT .CAUSE SEARCH ERRORS.
PROCEDURE :

THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A SEARCH
COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH.

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4

SEQ@ 0027

;*LAST REVISION 19-0CT-81

674
475

.TITLE CZRNDAO RM80 FCTNL PT1
;*COPYRIGHT (C) 1982

:*DIGITAL EQUIPMENT CORPORATION

*COLORADO SPGS., CO. 80919
*PROGRAH 8Y MIKE LEAVITT

*THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC 3YSMAC

tPACKAGE (MAINDEC~11-DZQAC-C5), 18-MAR-81

.SBTTL

476

OPERATIONAL SWITCH SETTINGS

SWITCH

mmeeee

%
%
I%
%

13
12
11
10

9
8
7
)
5
4
3
2
1
0

i%
%
o
o
A
R
o
ot
;%
]

477

478
479

.SBTTL

001100
104000

000011

SCOPE

STKLMT

000000
000001
000002
000003

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>
TN128
TNG4
TN32
TN16
TN8
TNG
TN2
TM1

BASIC DEFINITIONS
=
= EMT

= IOT

ssBASIC DEFINITION OF ERROR CALL
:sBASIC DEFINITION OF SCOPE CALL

s *MISCELLANEOUS DEFINITIONS
=11
+sCODE FOR HORIZONTAL TAB
LF
= 12
;. CODE FOR LINE FEED
=15
CR
"CODE FOR CARRIAGE RETURN
CRLF
= 200
:CODE FOR CARRIAGE RETURN-LINE FEED
P$S
= 177776
::PROCESSOR STATUS WORD

PSW=PS

177570

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
UNUSED

s*INITIAL AgggESS OF THE STACK POINTER *xx 1100 wx«

STACK
ERROR

000004

USE

PIRQ
DSWR
DDISP

=
=
=
=

177774
177772
177570
177570

ssSTACKLIMIT REGISTER
:.PROGRAH INTERRUPT REQUEST REGISTER
sHARDWARE SWITCH REGISTER

..HARDUARE DISPLAY REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

= 20

R
R3

= X2
= %3

= 21

: sGENERAL REGISTER
..GENERAL REGISTER
s GENERAL REGISTER

; GENERAL REGISTER

CZRNDAOQ RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 4-1

SEQ@ 0028

BASIC DEFINITIONS

000004
000005
000006
000007
000006
000007

000000
000040
000100
000140
000200
000240
000300
000340

PRO
PR1
PR2
PR3
PR4
PRS
PR6
PR?7

RS
R6
R?
sP

X4
x5
%6

;s GENERAL REGISTER
; GENERAL REGISTER
3 ;GENERAL REGISTER

X6
X7

::STACK POINTER
; :PROGRAM COUNTER

¥4

: ;GENERAL REGISTER

s 'SWITC
SW15
SWi4
SWi3

wnuanunnn-—

s *PRIORI Y LEVEL DEFINITIONS
0
::PRJORITY LEVEL 0

100000

Ré

40
100
140

200
240
300
340

::PRIORITY LEVEL 1
;:PRIORITY LEVEL 2
::PRIORITY LEVEL 3

:sPRIORITY
::PRIORITY
::PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

100000
40000

20000

Swi2
SW1i1
SW10
SW09

10000
4000

2000
1000
400
200
100
40

100000

; *DATA Bl DEFINITIONS (BITOO TO BIT15)
= 100000
BIT15S

000001

SW08
SWo7
SW06é
SW05
SWo4
SW03
SWo2
SWo1
SW0o
SW9=5w09
SW8=Sw08
SW7=Sw07
SW6=SW06
SWS=SW05
SW4=SuW04
SW3=Sw03
SW2=5u02
SW1=SWo1
SW0=SW00

20
10

2
1

40000

20000

10000
4000

2000
1000

400

000040

200
100
40

4
5
6
7

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN~82 16:24:51 PAGE 4-2

SEQ 0029

BASIC DEFINITIONS

=20
BITO4
=10
BITO3
=4
BIT02
BIT01
=2
=1
BITO0
BIT9=BI1T109
8178=BIT08
8117=81707
BIT6=BIT06
BIT5=BIT05
BIT4=BIT04
8IT3=BIT03

8172=B1702
BIT1=B1701
8IT0=BIT00

s*BASIC *‘CPU'* TRAP VECTOR ADDRESSES
= &
s+ TIME OUT AND OTHER ERRORS
= 10
::fi;fifigggb AND ILLEGAL INSTRUCTIONS

000240

ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC
IOTVEC
PWRVEC
EMTVEC
TRAPVEC
TKVEC
TPVEC
PIRQVEC

= 14
= 20
= 24
= 30
= 34

.SBTTL

RM80 REGISTER BIT DEFINITIONS

= 14
= 14

= 60
= 64
= 240

s s TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
s s INPUT/QUTPUT TRAP (IOT) «xSCOPE+«
s ;POWER FAIL
:;EMULATOR TRAP (EMT) ««ERROR%*
:: 'TRAP'' TRAP
;s TTY KEYBOARD VECTOR
;s TTY PRINTER VECTOR
+ ;PROGRAM INTERRUPT REQUEST VECTOR

;*RMCST CONTROL STATUS REGISTER
004000
000040
000020
000010

DVA
F4
F3
F2
3
FO
60
FNCMSK

= BITH
= BIT0S
= BIT04
= BITO3
= BIT02
= BITO1
= BIT00
= 000077

:DEVICE AVAILABLE-READ ONLY
FUNCTION CODE
:FUNCTION CODE
:FUNCTION CODE
:FUNCTION CODE
:FUNSTION CODE
160 BIT
:FUNCTION CODE MASK

:FUNCTION CODES (BITS 01-05 OF RMCS1)

0P
ILFO2
SEK
RECAL
DRVCLR
RLEASE
OFFSET
RTC

= 000000
= 000002
= 00004
= 000006
= 000010
= 000012
= 000014
= 000016

PACACK

= PAKACK

RIP
PAKACK

ILF26
ILF26

= 000020
= 000022

= 000024
= 000026

sNOP_ COMMAND
:ILLEGAL COMMAND
SSEEK COMMAND
*RECALIBRATE COMMAND
:DRIVE CLEAR COMMAND
*RELEASE COMMAND
ZOFFSET COMMAND
SRETURN TO CENTERLINE COMMAND
:READ IN PRESET COMMAND
:PACK ACKNOWLEDGE COMMAND

:ILLEGAL COMMAND
:ILLEGAL COMMAND

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4-3

SEQ@ 0030

RM80 REGISTER BIT DEFINITIONS

000030
000030
000032
000034
000036
000040
000042
000042

b cad

WAV
wRRY
ugwr
uwugummmmmmmwma
N-‘Oog NOwWA WA =2 OO0 N VIS DN = OO ~NON VSN

508
511

b cnd

177400

000377

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

:ILLEGAL COMMAND

= 000060
= 000062
= 000064

ILF76
ILF76

s*RMDA

000020
000010
000004
000002
000001

= 000036

WD
WH
ILF64

ILF66

004000

:SEARCH COMMAND
:TLLEGAL COMMAND
ILLEGAL COMMAND
ILLEGAL COMMAND
ILLEGAL COMMAND
:ILLEGAL COMMAND
:ILLEGAL COMMAND
:ILLEGAL COMMAND
:ILLEGAL COMMAND
:WRITE CHECK DATA_COMMAND

= 000052
= 000054

RD
RH
000076

000030
= 000039
= 000032
= 000034
= 000036
= 000040
= 000042
= 000044
= 000046
= 000050

WCH
ILFS4

ILF56

b e

VHAUVIN VAN VI VIVIVIVIVAIWVI
VAV

543

SEARCH
ILF30
ILF32
ILF36
ILF36
ILF40
ILF42
ILF46
ILF46
Wwed

= 000066

= 000070
= 000072

= 000074
= 000076

SWRITE CHECK HEADER AND DATA
ILLEGAL COMMAND
:WRITE DATA COMMAND
:WRITE HEADER AND DATA COMMAND
:ILLEGAL COMMAND

: ILLEGAL COMMAND

SREAD DATA_COMMAND
ZREAD HEADER AND DATA COMMAND

SILLEGAL COMMAND
:ILLEGAL COMMAND

DISK ADDRESS REGISTER

:TRACK ADDRESS DEFINITIONS
TA8
= BITN
TA4
= BIT10
TA2
= BIT09
TA1
= BIT08

sTRACK ADDRESS
:TRACK ADDRESS
s TRACK ADDRESS
sTRACK ADDRESS

sSECTOR ADDRESS DEFINITIONS
SA16
= BIT04
SA8
= BIT03
SA4
= BI7102
SA2
= BITO1

:SECTOR ADDRESS 16.
+SECTOR ADDRESS 8.
sSECTOR ADDRESS 4
sSECTOR ADDRESS 2

SA1

= BI1T00

:TRACK & SECTOR MASKS

8.
4
2
1

sSECTOR ADDRESS 1

TADMSK

= 177400

s*RMDS

DRIVE STATUS RIGISTER

ATA
ERR
P1P

= BIT15
= BIT14
= BIT13

SATTENTION ACTIVE
;COMPOSITE ERROR
:POSITIONING IN PROGRESS

PGM
DPR
DRY
w
oM

= BIT09
= BIT08
= BIT07
= BIT06
= BIT00

s PROGRAMMABLE
sDRIVE PRESENT
:BRIVE READY
<VOLUME VALID
sOFFSET MODE ACTIVE

SADMSK

MOL
WRL
LBT

= 000377

= BIT12
= BITN
= BIT10

s *RMER1 ERROR REGISTER M

s TRACK ADDRESS MASK

;SECTOR ADDRESS MASK

sMEDIUM ON LINE
SWRITE LOCK
sLAST BLOCK TRANSFERRED

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28~JAN-82 16:24:51 PAGE 4-4

SEG 0031

RMY0 REGISTER BIT DEFINITIONS

DCk
UNS
oPI
DTE
WwE
IAE
AOE
HCRC
HCE
ECH
WeF

= BITIS
= BITI4
= BITI3
= BITI2
= BIII
= BITI0
= BITO09
= BITO8
= BITO7
= BIT06
= BITOS

:DATA CHECK ERROR
:DRIVE UNSAFE
:OPERATION INCOMPLETE
:DRIVE TIMING ERROR
:WRITE LOCK ERROR
:INVALID ADDRESS ERROR
:ADDRESS OVERFLOW ERROR
:HEADER CRC_ERROR
:HEADER COMPARE ERROR
:ECC_"HARD'* ERROR
SWRITE CLOCK FAILURE

000001

ILR
ILF

= BITO1
= BITOO

:ILLEGAL REGISTER
:ILLEGAL FUNCTION

115760

NDTMSK

100000

FER
PAR
RMR

:*NDTMSK'*

= BITO4
= BIT03
= BIT02

FORMAT ERROR
:PARITY ERROR
:REGISTER MODIFICATION REFUSED

= DCK!DTE!WLE
!AQE 'HCRC!HCE {ECH!WCF !FER

IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA

sCOMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

s*RMLA

LOOK AHEAD REGISTER

000100

SC4
SC3
SC2
SC1
Sco

= BIT10
= BIT09
= BIT08
= BI107
= BIT06

sSECTOR
sSECTOR
:SECTOR
sSECTOR
sSECTOR

003700

SCTMSK

= 003700

sSECTOR COUNT MASK

000377

002000

sMASK FOR ATTENTION BITS

COUNT
COUNT
COUNT
COUNT
COUNT

= 16
= 8
= 4
= 2
= 1

s *RMMR1 MAINTENANCE REGISTER #1
100000

NT9Y
[« XV ¥ YW

*rOOONONON

b el axd wnd wnb ad

608
609
610

sWRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DEBL
= BIT13

:DEBUG CLOCK
;DEBUG CLOCK ENABLE
sDIAGNOSTIC END OF BLOCK

MRD
MUR
MOC

sREAD DATA
sUNIT READY
sON_CYLINDER

D70
MCLK

= BIT12
= BIT11

MSER

= 81707

MDF
NS

MwP
Ml
MSC

DMD

= BIT10
= BIT09
= BIT08

sSEEK ERROR

= BIT06

sDRIVE FAULT

= BIT03

sWRITE PROTECT

= BIT05

= BIT02
= BITO1

= BIT00

;READ ONLY BITS
occC
= BIT15
RG

sDIAGNOSTIC TIMEOUT
sMAINTENANCE CLOCK

= BIT14

cSECTOR PULSE

s INDEX PULSE
sSECTOR COMPARE

;DIAGNOSTIC MODE
s0CCUPIED

sRUN AND GO

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4-5

SE@ 0032

RMB0 REGISTER BIT DEFINITIONS

617

020000

EBL

REX
ESRC
PLFS

ECRC

100000

001777

= BIT09

sENABLE CRC OUT

= BIT08

wC
EECC
MJD

= BIT05
= 81704
= BIT03

LS
LST

= BIT07
= BIT06

= BIT02
= BITO1

sEXCEPTION
sENABLE SEARCH
sLOOKING FOR SYNC
sDATA AREA

SHEADER AREA
s CONTINUE

sWORD CLOCK
sENABLE ECC OUT
sWRITE DATA BIT

sLAST SECTOR
sLAST SECTOR AND TRACK

DMD

= BIT00

J*RMDT

DRIVE TYPE REGISTER

NSA
TAP

= BIT15
= BIT14

:NOT_SECTOR ADDRESSED
= 0
sTAPE DRIVE= 0

DRQ

= BITN

:DRIVE REQUEST REQUIRED

MOH

000200

;END OF BLOCK

= BIT12
= BITN
= BIT10

PDA

PHA
CONT

000002
000001

= BIT13

sDIAGNOSTIC MODE

;MOVING HEAD
= 1

s*RMOF

OFFSET REGISTER

FMT16
ECI
HCI
SSEI
OFD

= BIT12
= BITN
= BIT10
= BIT09

s*RMOC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

= BIT07

:16 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INHIBIT
sSKIP SECTOR ERROR INHIBIT

sOFFSET FORWARD

sMASK FOR CYLINDER ADDRESS

s *RMMR2 MAINTENANCE REGISTER #2
100000

READ ONLY BITS

ROA

= BIT15

18T

= BIT12

ROB
TAG

$282

cC
CH

8809
8808
8807
8806
8805
B804
8803
8802
8801
8800

= BIT14
= BIT13
= BITN
= 8IT10

= BIT09
= BIT08
= BIT07
= BIT06
= BIT)5
= BIT04
= BIT03
= BIT02
= BITO1
= 81700

sPORT A REQUEST
:PORT B REQUEST
sTAG CONTROL

s COMMAND SEQUENCE TEST BIT

sCONTROL OR CYLINDER TAG
:CONTROL OR HEAD TAG

:TAG BUS
:TAG BUS
:TAG BUS
:TAG 8US
:TAG BUS
sTAG BUS
;TAG BUS
:TAG BUS
sTAG BUS
:TAG BUS

s*RMER2 ERROR REGISTER 2
BSE

= BIT15

;BAD SECTOR ERROR

CZRNDAO RMB0O FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 4-6

SEQ 0033

=4
g oo

WWNO =PI~

674
675
676
677
678

el o o

671

672
673

SK1
OPE
IVC

QO
b mh b b b

040000

DDDDODDEOD

667
668
669
670

[T
Y Y Y Y Y )

RM80C REGISTER BIT DEFINITIONS

sSEEK INCOMPLETE

sOPERATOR PLUG ERROR

s INVALID COMMAND ERROR
cLOSS OF SYSTEM (LOCK
;LOSS OF BIT ¢CLOCK
sDEVICE CHECK
sSKIP SECTOR ERROR

sDATA PARITY ERROR

PROGRAM MNEMONICS

= BIT15
= BIT14

679

= BIT13

sMANUFACTURING DETECTED SECTOR ERROR

sUSER DETECTED SECTOR ERROR
sSKIP SECTOR FAILURE

sCONTROL STATUS REGISTER #1

00
06

B8 8 B ANNWNIANNININ)
b b —b
SNOR
S NNOOSOO
N

:DISK ADDRESS REGISTER
sDRIVE STATUS REGISTER

sERROR REGISTER #i
cATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER

sMAINTENANCE REGISTER
sDRIVE TYPE REGISTER
sSERIAL NUMBER REGISTER
sOFFSET REGISTER

sDESIRED CYLINDER REGISTER
:MOLDING REGISTER

;MAINTENANCE REGISTER #2

cERROR REGISTER #2

:ECC POSITION REGISTER
sECC PATTERN REGISTER

:ILLEGAL REGISTER 50

sJLLEGAL REGISTER 52
:ILLEGAL REGISTER 54

:ILLEGAL REGISTER 56
;ILLEGAL REGISTER 60
ILLEGAL REGISTER 62

;ILLEGAL REGISTER 64
; ILLEGAL REGISTER 66
s ILLEGAL REGISTER 70

s JLLEGAL REGISTER 72
s JLLEGAL REGISTER 74
sJLLEGAL REGISTER 76
N
~

;MASK FOR REGISTER INDEX NUMBER

IDXMSK

ILRG?74
ILRG76

RMB0 REGISTER INDEX VALUES

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITJONS

g =g

b ol
€

=Y =

nf mag wf

A17

OO
d

TRE
MCPE
PSEL

[ ST

nawun

s*RMCS1 CONTROL STATUS REGISTER M1
%:EfigA% CgNDITION-READ ONLY

:MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
:PORT B SELECT
;ADDRESS EXTENSION

CZRNDAO RMB0 FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4-7

SEQ@ 0034

RH CONTROLLER REGISTER BiT DEFINITIONS

A16
RDY
It

= 81708
= BIT07
= BIT06

sADDRESS EXTENSJON
sREADY=READ ONLY
s INTERRUPT ENABLE

NS N
OO DO -2
SO

)
T
Y S

) o o
el Sl o

e e L
e e
Y e

) e e

DLT
WCE
UPE

)

100000

[eeloelocdecdeeloelveloodocdocloiloele
to]

s *RMCS2 RH CONTROL STATUS REGISTER #2

703
1702
BITO1
8IT00
[

733

736

000001

sDATA LATE-READ ONLY
;WRITE CHECK ERROR-READ ONLY
sUNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
sNONEXISTANT MEMORY-READ ONLY
:PROGRAM ERROR=READ ONLY
sMISSED TRANSFER
sMASSBUS DATA BUS PARITY ERROR-READ ONLY
sOUTPUT READY=READ ONLY
s INPUT READY-READ ONLY
s CONTROLLER CLEAR
¢PARITY TESY
sUNIBUS ADDRESS INCREMENT INHIBIT
SUNIT SELECY
SUNIT SELECY
SUNIT SELECT

SUNIT SELECT MASK
000007

UNTMSK

SUNIT SELECT MASK

2*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000
040000
020000
010000

000002
000001

000000
000002
000004

APE
DPEHI
DPELO
WCEHI
WCELO
DBL
IE

sADDRESS PARITY ERROR
+DATA PARITY ERROR HIGH WORD
sDATA PARITY ERROR LOW WORD
sWRITE CHECK ERROR HIGH WORD

= BIT06

s INTERRUPT ENABLE

= BITN
= BIT10

sWRITE CHECK ERROR LOW WORD
sDOUBLE WORD TRANSFER

1IPCKO

= BIT03
= 817102
= BIT01
= BIT0O

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

IPCK3
IPCK2
IPCK1

RMCS1

000052
176700
120254

= BIT15
= BIT14
= BIT13
= BIT12

ABASE
AVECT1

s INVERT PARITY
sINVERT PARITY
s INVERT PARITY
s INVERT PARITY

CHECK
CHECK
CHECK
CHECK

sCONTROL, STATUS REGISTER #1

AN
=DOO
NONOMNVO

720
721
722
723
724
725
726
727
728
729
730
731
732

000400
000200
000100

—bemd
NN

715
716
7217
718
719

sWORD COUNT REGISTER
:BUS ADDRESS REGISTER

sCONTROL, STATUS REGISTER #2

sDATA BUFFER
:BUS ADDRESS EXTENSION

;CONTROL, STATUS REGISTER #3

00
54

sUNIBUS ADDRESS
sUNIBUS VECTOR ADDRESS AND PRIORITY

SEQ 0035

CZRNDAQ RM80 FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 5
TRAP CATCHER

.SBTTL

TRAP CATCHER

.=0
;*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A ‘', 42, HALT"
:«SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000000

:«LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VE(TORS

DISPREG:
.JS:D
0
SWREG:
.WORD O

000174
000000
000000

.SBTTL

s¢:SOFTWARE
DISPLAY REGISTER
SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

000137

005426

JMP

SASTART

:;JUMP TO STARTING ADDRESS OF PROGRAM

000137

005416

JMP

S#START1

:CHANGE RH/RM 8US ADDRESS

.SBTTL

ACT11 HOOKS

SHARRARRRANANRRRARAAANAARERAAARAARARARARANCANRCAA
NI AANAAAOAS

000210

HOOKS REOU;RED BY ACT11

000046

O ~NO

000052

SYPC-.

;SAVE PC

ignng
WORD 0

;:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
;2)SET LOC, 52 T0 ZERO

~=$SVPC

001100

.=1100
.SBTTL

::"RESTORE
P

APT PARAMETER BLOCK

SRRRRARLERANRARARRARAAEERRRAARARARAAARRARRRAARANAAANNARAAAAAASARR

ET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

tittt**tttit'*ifi*tt*'tttti'tttfifit.t*l*'ttitttttltttt.tttttttttt

001100

.$X=.
=24
200
=44
$APTHDR
.=.8X

000024
000044

001100

;;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP
::POINT T0 APT INDIRECT ADDRESS PNTR.
:-POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

*tfi**tlfittttQ't*ittt*ltttilttttttttitttitttttttt.tttfitttfitttttt

HSOOO

-a-a-a-a-aE;E;
-0

(olelelele]

€§§;<>c><><>c>

prurQhusr-Qoar
Quur hnr ghur Quwrd

iSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.
000000
001222
000024
000024
000024
000042
001114

$APTHD:

$SHIBTS: .WORD

$TSTM:
.WORD
SPASTM: .WORD
SUNITM: .WORD

20.
20.
20.

SMBADR: .WORD
TAGADR

.WORD

SMAIL

;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

..ADDRESS OF APT MAILBOX (BITS 0-15)

sRUN TIM OF LONGEST TEST
.,RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
SADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

SETEND-SHAIL/Z

::LENGTH MAILBOX-ETABLE (WORDS)

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 6

SEQ 0036

COMMON TAGS

.SBTTL

COMMON TAGS

:.’ttfii't"'.t.tttttfifit'i't'itt'tt'ttitttitttttt.tttlt"ttfitt"t't

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

s*USED IN THE PROGRAM.

001114
001114

001114

001142
001144

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000

001150
001151
001152
001154
001156
001160
001162
001164
001166
001170

000
000
000000
177570
177570
177560
177562
177564
177566
000

001116
001117
001120
001122
001124
001126

001130
001131
001132
001134
001136
001140

001146

001171

SITEMB:
SERMAX:

$ERRPC:
$GDADR:
$BDADR:
$GDDAT:

$BDDAT:

001210

000000

$FILLC:
$TPFLG:
$TMPO:
$TMP1:
$TMP2:
$TMP3:

000000
000000

000

377

s sCONTAINS THE TEST NUMBER
s ;CONTAINS ERROR FLAG
s s CONTAINS SUBTEST ITERATION COUNT
s CONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
s CONTAINS TOTAL ERRORS DETECTED

sCONTAINS ITEM CONTROL BYTE
s cCONTAINS MAX. ERRORS PER TEST

sCONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °‘GOOD‘ DATA
:sCONTAINS ADDRESS OF °‘BAD’ DATA
:;CONTAINS °GOOD' DATA

:CONTAINS 'BAD' DATA
s ;RESERVED--NOT TO BE USED

0
0
O
DSWR
DDISP

000000
000000
000000

:;ADDRESS OF SWITCH REGISTER
s cADDRESS OF DISPLAY REGISTER
soTTY KBD STATUS
;s TTY KBD BUFFER
ssTTY PRINTER STATUS REG. ADDRESS
;o TTY PRINTER BUFFER REG. ADDRESS
s s CONTAINS NULL CHARACTER FOR FILLS
;s CONTAINS # OF FILLER CHARACTERS REQUIRED
:sINSERT FILL CHARS. AFTER A '‘LINE FEED'’
s 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)

:sUSER DEFINED
s sUSER DEF INED
s sUSER DEF INED
s sUSER DEF INED

:sUSER DEF INED
ssMAX. NUMBER OF ITERATIONS

<207><377><377>
/%/
<15
<12

:sESCAPE ON ERROR ADDRESS

;;CODE _FOR BELL
+ sQUESTION MARK
: s CARRIAGE RETURN
ssLINE FEED
T e

e e

S L L

APT MAILBOX-ETABLE
AR

AR AR

AR AN

LEVEN

SMAIL :

scAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

12
0
O
O
0
O

SESCAPE:0
SBELL:
.ASCIZ
$QUES:
.ASCI1
$CRLF:
L.ASCII
SLF:
LASCIZ

001222
001224
001226

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD

$TMP4:
.WORD
$TIMES: 0

377

ssSTART OF COMMON TAGS

0
0
0
O
0
0
0
0
1
0
0
0
0
0
0

$SFILLS: .BYTE

.SBTTL

001222

JWORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
LWORD

012

207
077
015
012

.=TAGADR

SAUTOB: .BYTE
$INTAG: .BYTE
WORD
SWR:
-WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE

002

000000
000000
000000
000000

001212
001216
001217
001220

$STSTNM:
$ERFLG:
$SICNT:
SLPADR:
SLPERR:
SERTTL:

000000

001172
001173
001174
001176
001200
001202
001204
001206

S$CMTAG:

$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD

AMSGTY
AFATAL
ATESTN

ANANRARRIRA AR AN

s sAPT MAILBOX

;;MESSAGE TYPE CODE
:;FATAL ERROR NUMBER
;;TEST NUMBER

R RRANRARRAARROCRRCRS

¢ ZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 6-1

SEQ 0037

APT MAILBOX-ETABLE

001230
001232
001234
001236
001240
001242
001242
001243
001244
007246
001250

000000
000000
000000
000000
000000

000
000
000000
000000
000000

$SPASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
SMSGLG: .WORD
$ETABLE:
SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
* %

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

: :PASS COUNT

AENV
AENVM

2 ;ENVIRONMENT BYTE
: ;ENVIRONMENT MODE BITS

ASWREG
AUSWR
ACPUOP

x
;t
.'t
:t

001252
001253

000
000

$MAMS1:
SMTYP1:
- %

.BYTE

AMAMS!
AMTYP1

Te
o
- %

::DEVICE COUNT
::1/0 UNIT NUMBER
; sMESSAGE ADDRESS
:sMESSAGE LENGTH

:3APT ENVIRONMENT TABLE

:sAPT SWITCH REGISTER

;:USER SWITCHES
::CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06.,PD@=07,0=10
BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT

:sHIGH ADDRESS.M.S. BYTE
2 :MEM. TYPE,BLK#1

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003

001254

000000

igaon1: .WORD

AMADR1

s :HIGH ADDRESS,BLK#1

001256
001257
001260
001262

000
000
000000
000

$MAMS2:
SMTYP2:
SMADR?:
SMAMS3:

.BYTE
.BYTE
.WORD
.BYTE

AMAMS?
AMTYP?
AMADR?
AMAMS3

::HIGH ADDRESS .M.S. BYTE

001264
001266
001267
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
00322
00132¢
001326

000000
000
000
000000
120254
000000
176700
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SMADR3:
SMAMSG:
SMTYP4:
SMADRG:
SVECT1:
SVECT2:
SBASE:
$SDEVM:
$CDW1:
$CDW2:
$DDWO:
$ODW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
SETEND:

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

AMADR3
AMAMSS
AMTYP4
AMADRS
AVECT1
AVE(T2
ABASE
ADEVM
ACDW1
ACDW2
ADDWO
ADDW1
ADDW2
ADDW3
ADDW&
ADDWS
ADDW6
ADDW?

2 sMEM.LAST ADDRESS.BLK#3
s :H1GH ADDRESS M.S.BYTE
: :MEM.TYPE ,BLKNV
s sMEM.LAST ADDRESS,BLK#4
: : INTERRUPT VECTORA1,BUS PRIORITY®
;s INTERRUPT VECTORA#2BUS PRIORITYA?2
::BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
::CONTROLLER DESCRIPTION WORD#1
:sCONTROLLER DESCRIPTION WORD#2
::DEVICE DESCRIPTOR WORDA0
::DEVICE DESCRIPTOR WORDA1
s :DEVICE DESCRIPTOR WORD#2

001263

000

SMTYP3: .BYTE

JMEXIT

AMTYP3

MEM.LAST ADDfi.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'® ABOVE

s :MEM.TYPE ,BLK#2
s sMEM.LAST ADDRESS,BLKA#2
;:HIGH ADDRESS,M.S.BYTE
$:MEM.TYPE ,BLK#3

::DEVICE DESCRIPTOR WORD#3
:sDEVICE DESCRIPTOR WORD#4
::DEVICE DESCRIPTOR WORDAS
::DEVICE DESCRIPTOR WORDA6
::DEVICE DESCRIPTOR WORDA7

CZRNDAD RMB0 FCTNL PT1 MACRO V04.00 28-~JAN-82 16:264:51 PAGE 7

SEQ 0038

USER OEFINED TAGS

.SBTTL

001326
001330
001332

000000

CHGADR: .WORD
MANUAL: .WORD
XXDP:
.WORD

LSTRK:

001334
001335

USER DEFINED TAGS

.BYTE
.BYTE

0
0
0
0

s CHANGE RH/RM BUS ADDRESS = =1, NO CHANGE = 0
cENABLE MANUAL INTERVENTION TEST(S) = 1

sTHE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

:THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE
'Léxgc;EDEV6CE CODE FOR THE RM8O0.

sH1 BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT

:UNDER TEST. RMB0
= 13.

sTHE REGISTER INPUT BUFFER IS USED FOR
sSTORING DRIVE STATUS
GETBUF:

000000

sREGISTER INPUT BUFFER

RMCS11:
RMWCI:
RMBAI:
RMDAI:

RMCS21:

:
RMDSI
RMER1I:
RMASI:

-WORD
-WORD
.WORD
-WORD
-WORD

RMLAI:
:
RMDBI

RMMR1I:
RMDTI:
:
RMSNI

000000
000000

RMEC1I:
RMEC2I:

:
RMBAE!

RMCS3I:

sCONTROL, STATUS REGISTER #1
sWORD COUNT REGISTER

sBUS ADDRESS REGISTER

:DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2
:DRIVE STATUS REGISTER
:ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
sLOOK AHEAD REGISTER
:DATA BUFFER

sMAINTENANCE REGISTER M1
:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER

:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDING REGISTER
:MAINTENANCE REGISTER #2
:ERROR REGISTER #2
;ECC POSITION REGISTER

:ECC PATTERN REGISTER

:8US ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

:THE REGISTER OUTPUT BUFFER IS USED FOR

:ASSEMBLING DATA GOING TO REGISTER
:
PUTBUF

000000
000000
000000

;REGISTER QUTPUT BUFFER

RMCS10: .WORD

-WORD
-WORD
-WORD
RM(CS20: .WORD
RMDSO:
.WORD
RMER10: -WORD
RMASO:
-WORD
RMLAO:
-WORD
RMDBO:
-WORD
RMMR10: .WORD

RMWCO:
RMBAO:
RMDAQ:

[=l=lelelalelelwlelel]

001336
001340

[elelelelelolelolelalolelalalelelelalalelala)

001336

:CONTROL, STATUS REGISTER #1

‘WORD COUNT REGISTER

*BUS ADDRESS REGISTER

*DISK ADDRESS REGISTER
$CONTROL, STATUS REGISTER #2

‘DRIVE STATUS REGISTER

*ERROR REGISTER #1
TATTENTION SUMMARY REGISTER
*LOOK AHEAD REGISTER
‘DATA BUFFER

‘MAINTENANCE REGISTER M1

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 7-1

SEQ 0039

USER DEFINED TAGS

001440
001442
001444
001426
00140
001452
001454
001456
001460
001462
001464

000000
000000

000000
000000
000000

RMDTO:
RMSNO:

.WORD
.WORD

0
0

{DRIVE TYPE REGISTER
sSERIAL NUMBER REGISTER

RMER20: .WORD

:ERROR REGISTER #2

RMOFO:
RMDCO:
RMHRO:
RMMR20:

.WORD
.WORD
.WORD
.WORD

RMEC10: .WORD

RMEC20: .WORD
RMBAEO: .WORD
RMCS30: .WORD

O
0
0
0
O

0
0
O

;OFFSET REGISTER
:DESIRED CYLINDER REGISTER
HOLDING REGISTER
:MAINTENANCE REGISTER #2
:ECC POSITION REGISTER

sECC PATTERN REGISTER
:BUS _ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN

sTHE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
;FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST

ézDTgE ¥QELEUEA 2ERO WORD IS A BLANK AND REPRESENTS THE
001466

000000

000000
000000
000000

001516

TSTQUE: .WORD'.

sCONTAINS DEVICE POINTER

CLKADR: .WORD
CLKVCT: WORD

0O
O

;UNIBUS ADDRESS OF KW11 CLOCK
:VECTOR ADDRESS OF KWi1 CLOCK

.BLKW '
WORD

8.
O

:TEST QUE FOR DEVICES UNDER TEST
s TABLE TERMINATOR GOES HERE WHEN
:ALL 8. DEVICES ARE UNDER TEST.

sTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
:ARE READ BY THE GET SUBROUTINE.
THE LIST IS TERMINATED BY
:A NEGATIVE BYTE,

GETINX: .BLKB

23.

sGET INDEX TABLE

sTHE PUT _INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH

;ARE WRITTEN BY THE PUT SUBROUTINE.

001545

:A NEGATIVE BYTE,
PUTINX: .BLKB
23.

:PUT TAGS HERE

THE LIST IS TERMINATED BY

sPUT INDEX TABLE

CZRNDAQ RM80 FCTINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8

SEG 0040

ERROR POINTER TABLE

.SBTTL

ERROR POINTER TABLE

s%THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

s*THE INFORMATION IS OBTVAINED BY USING THE INDEX NUMBER FOUND IN
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

NN
=~

[« X%,
F 8

N0
%

::POINTS TO THE DATA HEADER
::POINTS TO THE DATA
:sPOINTS TO THE DATA FORMAT

sERROR

WRONG UNIT SELECTED

sERROR

DEVICE WENT UNAVAILABLE

<ERROR

DEVICE WENT NOMEXISTENT

sERROR

CONTROLLER NOT READY

070112
074476

070116
074256
074406
074476

D00~

001604
001606
001610
001612

sPOINTS TO THE ERROR MESSAGE

$ERRTB:

001574

001574
001576
001600
001602

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

®e %o Be e

J*NOTE1:
J=NOTE2:

070124
074256
074406
074476

EFT1

:ERROR

~NO

— wwlh

001634
001636
001640
001642

DRIVE NOT READY AND GO NOT RESET

EMTS
EHT1
EDT1
EFT1

sERROR

UNEXPECTED VALUE FOR ''ATA'’ STATUS

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28-JAN-82 16:24:51 PAGE 8-1

ERROR POINTER TABLE

001644
001646
001650
001652

070146
074256
074406
074476

sERROR
001654
001656
001660
001662

070154
000000
000000
000000

070162
074256
074406
074476

%9
070166
074256
074406
074476

001712

070172
074256
074406

070200
074256
074406
074476

GO NOT RESET BUT DRIVE IS READY

INCORRECT FUNCTION CODE

PARITY ERROR READING REMOTE REGISTERS

EMTI3
EHT1
EpT1
EFT1

sERROR
0017246
001726
001730
001732

EFT1

;ERROR
001714
001716
001720
001722

DRIVE NOT READY BUT GO IS RESET

EMT12
EHT1
EDT1

074476

EMTI?
EHT1
EDT1
EFT1

;ERROR
001704
001706
001710

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT10
EHT1
EDpT
EFT?
sERROR

001674
001676
001700
0017C2

7
EMT7
0
0
0

;ERROR
001664
001666
001670
001672

EMTO
EHTI]
EDT
EFT1

070212
074256
074406
074476

TRANSFER ERROR IS INCORRECT

EMT14
EHT1
EDTY
EFT1

sERROR

INCORRECT WORD COUNT

SEC 0041

CIRNDAO RM80 FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 8-2

40
41
42

M
H
D
F

;ERROR
001744
001746
001750
001752

:ERROR

INCORRECT AOE

EMT20
EHTY
EDT1

070246
074256

074406

074476

EFT1

;ERROR

002004

INCORRECT LBT STATUS

EMT17
EHT1
EpT
EFT1

070236
074256
074406
074476

001774
001776
002000
002002

INCORRECY BUS ADDRESS

EMTI6
EHT1
EDT1
EFT1

070226
074256
074406
074476

;ERROR

001770

— =g
=y

070220
074256
074406
074476

mimmm

001734
001736
001740
001742

o
v
b

ERROR PNINTER TABLE

INCORRECT DISK ADDRESS

EMT21

070256
074256
074406
074476

EFT1

;ERROR

INCORRECT CYLINDER ADDRESS

;ERROR

INCORRECT WLE STATUS

sERROR

INCORRECT UPE STATUS

070266
N74256
074406
074476

002014
002016
002020
002022

002024

070306

5EQ 0042

CZRNDAO RM3) FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-3

ERROR POINTER TABLE

002026
002030
002032

074256
074406
074476

EHTI
EDT]
EFT1
:ERROR

002034
002036
002040
002042

070316
074256
074406
074476

gz
070326
074256
074406
074476

002056
002060
002062

070336

;}

070346
074256
0724406
074476

002076
002100
002102

070356

070366
074256
074406
074476

070376
074256

INCORRECT ECH STATUS

DLT SHOULD NOT BE SFT

EMT32
ENT1
EDT1
EFT1

;ERROR
002114
002116

INCORRECT DCK STATUS

EHT1
EDT1
EFTY

;ERROR
002104
002106
002110
002112

EMT31

074256
074406
074476

INCORRECT MDPE STATUS

EMT30
EHT1
EDTI
EFT1

;ERROR

002074

27
EHT1
EDT1
EFT1

;ERROR
002064
002066
002070
002072

INCORRECT WCE STATUS

EMT27

074256
074406
074476

26
EMT26
EKT1
EDT1
EFT1

;ERROR
002054

INCORRECT WCF STATUS

EM725
EHT]
EDT1
EFT

sERROR
002044
002046
002050
002052

33
EMT33
EHT?

MXF SHOULD NOT BE SET

SEQ 0043

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:26:51 PAGE 8-4

ERROR POINTER TABLE

002120
002122
82
83
84

85
86
87

88
89
90

;ERROR
002124
002126
002130
002132

002134
002136
002140
002142

94
95
96

97
98
99

INCORRECT HCE STATUS

INCORRECT FER STATUS

EMT37

070436
074256
074406

EHT1
EDT1
EFT1

074476

070446
074256
074406
074476

DPE SHOULD NOT BE SET (NOT A DATA COMMAND)

EMT40
EHT1
EDT1
EFT1

sERROR
002174
002176

LOST *MOL'* DURING PACK ACKNOWLEDGE

EMT41
EHT1
EDT1
EFT1

el
b

:ERROR
002204
002206
062210

36
EMT36
EHT1
EDT1
EFT1

070426
074256
074406
074476

022200
002202
00
M
J2

INCORRECT HCRC STATUS

EDTI
EFTY

074406
074476

sERROR
002164
002166
002170
002172

EMT35
EHTI

070416
074256

sERROR
002154
002156
002160
002162

DTE SHOULD NOT BE SET

EHTT
EDT1
EFTY

;ERROR
002144
002146

EMT34

070406
074256
074406
074476

;ERROR

002150
002152

9N
92
93

£OT1
EFT1

074406
074476

070464
074256
074406

EMT42
EHT
EDT1

UNSAFE ERROR DURING PACK ACKNOWLEDGE

>EQ 0044

ZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-5

ERROR POINTER TABLE

002212

074476

103

182

;ERROR
002214

002216
002220
002222

070476

106

109

070506
074256
074406
074476

002234
002236
002240
002242

070516
074256
074406
074476

}}z

070526
074256
074406
074476

115

}}9
070536
074256
074406
074476

118

}}8
070544
074256
074406
074476

121

}3%
070554
074256
074406
074476

“ILF’' ERROR DURING PACK ACKNOWLEDGE

COMPOSITE ERROR STATUS IS INCORRECT

PARITY ERROR WRITING REMOTE REGISTERS

EMTSO
EHT1
EDT1
EFT1

sERROR
002274
002276
002300
002302

“ILR'* ERROR DURING PACK ACKNOWLEDGE

EMT47
EHTY
EDT1
EFT1

:ERROR
002264
002266
002270
002272

EMT46
EHT1
EDT1
EFT1

;ERROR
002254
002256
002260
002262

‘RMR'' ERROR DURING PACK ACKNOWLEDGE

EMT45
EHT1
EDTY
EFTY

:ERROR
002244
002246
002250
002252

44
EMT44
EHT1
EDT1
EFT1

;ERROR

112

''OPI'* ERROR DURING PACK ACKNOWLEDGE

EDT
EFT1

;ERROR
002224
002226
002230
002232

43
EMT43
EHT

074256
074406
074476

}8;

}}?

EFT1

51
EMT51
ENT]
EDT1
EFTY

INCORRECT IAE STATUS DURING SEEK COMMAND

SE@ 0045

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-6

ERROR POINTER TABLE

:ERROR

EMTS52

070566

EHT1
EDT?
EFT1

074476

sERROR

OPI ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME
ON CYLINDER LATCH DIDN'T RESET

EMT53

070604
074256
0744606
074476

EHT1
EDT?
EFT1

sERROR

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

EMT54
EHT1

070622
074256
074406
074476

EDT1
EFT1

;ERROR
002334
002336
002340
002342

OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE

DEVICE CHECK DURING SEEK COMMAND

EMT55

070632
074256
074406
074476

EFT1

sERROR

PIP 1S STILL SET AFTER SEEK - SKI IS RESET

sERROR

ATA DID NOT SET DURING SEEK COMMAND

070644
074256
074406
074476

;ERROR

IVC ERROR DURING SEEK COMMAND - LOST

VOLUME VALID

—

B
[« JV. TYV

002354
002356
002360
002362

002364
002366

002370

EMT60
EHT1
EDT1

SEQ 0046

CZRNDAO RM8C FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 8-7

ERROR PCINTER TABLE

OV~

b
b cad =

S
—

e
s

ERRONEQUS IVC ERROR DURING SEEK COMMAND -

:ERROR

MOL IS ZEXO, BUT OPI WAS NOT

074406

NOVN

074476

REPORTED DURING SEEK COMMAND

EFT

sERROR
002414
002416
002420
002422

VOLUME VALID IS STIL SET

070730
074256

b
b

002404
002406
002410
002412

;ERROR
070710
074256
074406
074476

W AV

el ot

002374
002376
002400
002402

EFT

074476

002372

070744
074256
074406
074476

EMTE3
EHTI
EDT1
EFT1

sERROR

070754
074256
074406
074476

DRIVE DID NOT DETECT °*'IVC'* ERROR DURING SEEK
EMT
EHT
EDTY
EFT1

sERROR
070774
074256
074406
074476

DRIVE EXECUTED A SEEK WITH ERROR SET

EMT65
EHT1
EDTY
EFT1

sERROR
002444
002446
002450
002452

UNEXPECTED ERROR SET IN RMER?

EMT66
EHT1
EDT
EFT1

;ERROR
002454
002456

SSE SHOULD NOT BE SET

EMT67
EHT1

UNEXPECTED ERROR SET IN RMER2

SEQ V047

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-8

ERROR POINTER TABLE

002460
002462

074406
074476

170

};}

EDTI
EFT1

:ERROR
002464
002466
002470
002472

071040

%;g

;ERROR
002474
002476
002500
002502

071050
074256

};g
002510
002512

071060
074256

179

002514
002516
002520
002522

071076
074256
074406
074476

183

}gg
071114
074256
074406
074476

186

}gg
071124
074256
074406
074476

189

%39

071144
074256

CYLINDER DIDNT DROP

**IVC'* ERROR DURING RECALIBRATE =~ "W’ = 0

ERRONEOUS *"IVC'' ERROR DURING RECALIBRATE - ''WV'* = 1

EMT75
EHT1
EDT1
EFT1

;ERROR
002544
002546

*'OPI'' ERROR DURING RECALIBRATE BECAUSE ON

EMT74
EHT1
EDT1
EFT1

;ERROR
002534
25
002540
002542

73 °
EMT73
EHT1
EDT1
EFT1

:ERROR
002524
002526
002530
002532

"OPI'* ERROR DURING RECALIBRATE DUE TO 'MOL'' = 0

EDTI
EFT1

;ERROR

}gg

72
EMT72
EHT1

074406
074476

180

“ILF'* ERROR DURING RECALIBRATE

cDT1
EFT1

;ERROR
002504
002506

71
EMT71
EHTY

074406
074476

176

ERRONEOUS '‘IAE’' ERROR DURING RECALIBRATE

EMT70
EHT1
EDT1
EFT1

074256
074406
074476

173

76
EMT76
EHT1

*'SKI'' ERROR DURING RECALIBRATE

SEQ 0048

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-9

ERROR POINTER TABLE

002550
002552

(74406
074476

192

}gz

:ERROR
002554

002556
002560
002562

071154

11867
071166
074256
074406
074476

198

533
071204
074256
074406
074476

201

%8%
071222
074256
074406
074476

204

sgg
071232
074256
074406
074476

207

002624
002626
002630
002632

071244
(074256
074406
074476

210

%}5
002634
002636
002640

071262
074256
074406

101

LOST *‘VV'' DURING RECALIBRATE - ‘'IVC'' = 0

102

‘ATA’* DID NOT SET DURING RECALIBRATE

EMT102
EHT
EDT1
EFT1

;ERROR
002614
002616
002620
002622

LOST "MOL'® DURING RECALIBRATE - ‘'OPI'' = 0

EMT101
EHT1
EDT1
EFT1

:ERROR
002604
002606
002610
002612

100
EMT100
ERTI
EDT1
EFT

;ERROR
002574
002576
002600
002602

*DVC'' OCCURRED DURING RECAL IBRATE

EHTI
EDT1
EFT1

JERROR
002564
002566
002570
002572

77
EMT?7

074256
074406
074476

195

%83

EDT1
EFT1

103

'OM'* DID NOT RESET DURING RECALIBRATE

EMT103
EHT1
EDT1
EFT1

:ERROR 104

'PIP'* IS STIL SET AFTER RECALIBRATE

:ERROR

UNEXPECTED ‘'ILR'' ERROR DURING RECALIBRATE

EMT104
EHT1
EDT1
EFT1

105
EMT105
EHT
EDTY

SEQ 004%

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-10

ERROR POINTER TABLE

002654
002656
002660
002662

b ek
-

o cmd
v

;ERROR

UNEXPECTED ''RMR'' ERROR DURING RECALIBRATE

;ERROR

"UNS’' ERROR DURING RECALIBRATE - AC POWER IS LOW

sERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

;ERROR

NONEXISTENT DEVICE

sERROR

DEVICE NOT AVAILABLE

sERROR

BUS TIMEOUT-NED STATUS FAILURE

;ERROR

UNUSED

071272
074256
074%06
074476

CO~NO

002644
002646
002650
002652

EFT1

074476

002642

071302
074256
074406
074476

071322

074300

074424
074514

071334
074304
074426
074516

071342
074304
074426
074516

071350
000000
000000
000000

002732

000000
000000
000000
000000

SEQ 0050

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-11

SEQ 0051

ERROR POINTER TABLE

§§g

:ERROR 115
002734
002736
002740
002742

071364
074256
074406
074476

237
%gg

071374
074256
074406
074476

240

325

071406
074256
074406
074476

263

%zg

002764

002770
002772

074406

EDT1
EFT1

EHT1

074476

:ERROR
071424
074256
074406
074476

249

003004
003006
003010
003012

071434
074256
074406
074476

252

32{
003014
003016
003020
003022

120

EMT120

325
002774
002776
003000
003002

117

071414

074256

246

071444
074256
074406
074476

RMBA NOT INITIALIZED BY UNIBUS

RMCS2 NOT INITIALIZED BY UNIBUS

EMT117
EHT1
EDT1
EFT1

:ERROR
002766

116

EMT116
EHT1
EDT1
EFT1

;ERROR
002754
002756
602760
002762

3%?

EMT115
EHT1
EDT1
EFT1
;ERROR

002744
002746
002750
002752

RMCS1 NOT INITIALIZED BY UNIBUS

121

RMERT NOT INITIALIZED BY UNIBUS

)

RMAS NOT INITIALIZED BY UNIBUS

EMT121
EHT1
EDT1
EFT1

;ERROR 122

RMMR1 NOT INITIALIZED BY UNIBUS

:ERROR

RMDS NOT INITIALIZED BY UNIBUS

EMT122
EHT1
EDT1
EFT1

123
EMT123
EHT1
EDT1
EFT1

CZRNDAO RMBO "CTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 8-12
ERROR POINTER TABLE

258
259
260

;ERROR
S

;ERROR

003034
003036

003040

003042

125

RMMR2 NOT INITIALIZED BY UNIBUS

EHTI
EDT1
EFT1

126
4

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

EMT126
EHT1

071474
074256
074406
074476

003062

RMEC2 NOT INITIALIZED BY UNIBUS

EMT125

071464
074256
074406
074476

;ERROR

003054
003056
003060

1264

EMT124
EHT1
EDTI
EFT1

Pl alat o)
NOwWIwN
OO~

003024
003026
003030
003032

[olelels]
NNN~N

255
256
257

EDT1
EFT1

+ERROR

RMBA NOT CLEARED BY CONTROLLER CLEAR

sERROR

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

<ERROR

RMER? NOT CLEARED BY CONTROLLER CLEAR

+ERROR

RMAS NOT CLEARED BY CONTROLLER CLEAR

071506
074256

074406
074476

071520

003104
00310
00311
003112
276

074476

SEQ 0052

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-13

ERROR POINTER TABLE

;ERROR

EHTI
Eom
EFT1

;ERROR

074476

;ERROR
071614
074256
074406
074476

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

136

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

EMT136
ENT1
EDT1
EFTY

sERROR

137

RMCS1 NOT CLEARED BY ERROR CLEAR

EMT137

071626
074256
074406
074476

EHT1
EDT1
EFT1

sERROR
071636

297
298

135

EMT135
EHT1
EDT1
EFT1

071602
074256
074406

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHT1
EDT1
EFT1

074476

;ERROR

003174
003176
003200
003202

RMDS NOT CLEARED B8Y CONTROLLER CLEAR

EDT1
EFT1

;ERROR

296
295
296

134

EMT134
EHT1

071570
074256
074406
074476

003172

RMMR1 NOT CLEARED BY CONTROLLER CLEAR

EMT133

071556
074256
074406
074476

003160

133

071646
074256
074406
074476

141

RMCST NOT CLEARED BY DRIVE CLEAR

EMT141
EHT1
EDT1
EFT1

;ERROR

142

RMDS NOT CLEARED BY DRIVE CLEAR

SEQ@ 0053

CZRNDAQ RMBO FCTNL PT1 MACRO V04.0C 28-JAN-82 16:24:51 PAGE 8-14

ERROR POINTER TABLE

EMT142
EHT1

071656
074256
074406
074476

EDTI
EFT1
s “RROR

EHT1
EMN
EFT1

sERROR

074406

074476

145

RMMR1

NOT CLEARED BY DRIVE CLEAR

EHT1
EDTY
EFT1

071716

146

RMMR2 NOT CLEARED BY DRIVE CLEAR

EMT146
EHT1
EDTY
EFT1

074256

074406
074476

cERROR

003254
003256
003260
003262

RMAS NOT CLEARED BY DRIVE CLEAR

EMT145

071706
074256
074406
074476

;ERROR
003244
003246
003250
003252

144

EMT144
EHT1
EDT1
EFTY

071676
074256

<ERROR

003249

RMER1 NOT CLcARED BY DRIVE CLEAR

EMT143

071666
074256
(74406
074476

003230

143

147

RMER2 NOT CLEARED BY DRIVE CLEAR

EMT147
EHT1
EDT1
EFT1

071726
074256
074406
074476

;ERROR

150

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
ENWT1
EoT!?
EFT
JERROR

151

MEDIUM NOT ON LINE

SEQ 005«

CZRNDAD RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 8-15

SEQ@ 0055

321
322
323

M
H

g —f

—

sERROR

i e

071746
074256
074406
074476

mmmm

003274
003276
¢J3300
003302

aud wod

ERROR POINTER TABLE

152

DRIVE FAULT

EMT152
EHTI
EDT1
EFT

071760
074256
074406
074476

:ERROR

153

UNSAFE SHOULD BE SET BECAUSE DVC IS SET

EMT153

071772
074256
074406
074476

EHT1
EDT1
EFT1

sERROR

154

UNSAFE SHOULD NOT BE SET, AC iS LOW

EMT154
EHTY
EDT1
EFT1

sERROR
003334
003336
003340
003342

VOLUME VALID NOT SET BY PACK ACK

EMT155
EHT

072026
074256
074406
074476

EDT?
EFT1

;ERROR

156

OFFSET MODE NOT SE; 8Y

V:FSET COMMAND

EMT156
EHT1
EDT]
EFT1

072040
074256
074406

074476

s ERROR

157

OFFSET MODE NOT RESET 8Y RTC COMMAND

EMT157
EHT1
EDT1
EFT1

072052
074476

sERROR
072064

155

160

EMT160

RMOF NOT RESET BY RIP COMMAND

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-~JAN-82 16:24:51 PAGE 8-16

ERROR POINTER TABLE

P VYN

:ERROR

KRR

;ERROR
003404
003406
003410

003412

161

072106
074256
074406
074476

162

RMDC NOT RESET 8Y RIP COMMAND

EMT162
EHTI
EDT]
EFT?

EERROR 163
003414
003416
003420
003422

RMDA NOT RESET BY RIP COMMAND

EMT161
EHT1
EDT1
EFT

072074
074256
074406
074476

~NOMA

003374
003376
003400
003402

348
349
350
351

EXTT
EDT!
EFTI

074256
074406
074476

RER

003366
003370
003372

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH
WRITE BUFFER

EMT336
EHT336
EDT336
EFT336

074052
074344

074442
074532

sERROR

164

072130

EMT164

074476

EDT1
EFTY

OP] SHOULD NOT BE SET

EHTI

sERROR

165

IVC SHOULD NOT BE SET

EMT165
EHT1
EDT1

072136
074256
074406
074476

EFT

s ERROR
072144
074256

166

IAE SHOULD NOT BE SET

EMT166

074406

074476

<ERROR
072152

167

EMT167

NEM SHOULD NOT BE SET

SEQ 005¢

C7RNDAQO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-17
HY
DT
FT

074256
074406
074476

mmm

003456

;ERROR

bl
b

ERROR POINTER TABLE

170

INCORRECT 'MOL'' STATUS DURING DIAGNOSTIC MODE

EMTI70
ENT1
EDTI
EFTY

072160
074256

cERROR

*ATA'* NOT SET DURING RETURN TO CENTERLINE

EMT171
EHT1
EDT?
EFT?

:ERROR

172

*ATA’* NOT SET BY OFFSET COMMAND

EMT172

072202

074256
074406
074476

EMT1
EDT1
EFT1

;ERROR

173

RMER2 NOT INITIALIZED BY UNIBUS INIT

EMT173
EHT1
EDT1
EFT1
:ERROR

174

RMER2 NOT INITIALIZED BY CONTROLLER CLEAR

EMT174

072222
074256
074406
074476

EHT1
EDT1
EFT1

sERROR

175

SELECTED DEVICE IS IN WRITE PROTECT

EMT175

072234
074256
074406
074476

EHT1
EDT
EFT1

;ERROR

176
EMT176
EHT1

CANNOT SET DIAGNOSTIC MODE

SEQ 0057

CZKNDAQ RMBO FCTNL PT1 MACPO V04.00 28-JAN-82 16:24:51 PAGE 8-18

ERROR POINTER TABLE

003550
003552

EDTI
EFNM

074406
074476

177

=~RESERVED FOR POWER MONITOR BIT FAILURE--

[o]elele]

:ERROR

;ERROR

003572

393

394
395
396

397
398
399

400
401
402

:ERROR

;ERROR
072276
074256
074406
074476

INCORRECT *WRL'® STATUS DURING DIAGNOSTIC MODE

202

INCORRECT *'SKI'* STATUS DURING DIAGNOSTIC MODE

EMT202
EHT1
EDTY
EFM

:ERROR
003614
003616
003620
003622

203

INCORRECT ‘DVC’* STATUS DURING DIAGNOSTIC MODE

EMT203
EHT1
EDT1
EFT1

sERROR
003624
003626
003630
003632

201
EMT201
EHT]
EDTY
EFT1

003574
003576
003600
003602

003604
003606
003610
003612

INCORRECT "PIP'' STATUS DURING DIAGNOSTIC MODE

EMT200
EXT]
EDT
EFT1

072252
074256
074406
074476

N
392

200

074256
074406
074476

EDT1
EFM

;ERROR
072340
074256
074406

'VV'' WAS NOT RESET BY MAINTENANCE UNIT READY

EMT204
EHT1

072322

403

204

205
EMT205
EHT1
EDTY

SELECTED DEVICE HAS A PERSISTENT ''SKI'’ ERROR

SEQ 0055

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28~JAN-82 16:264:51 PAGE 8-19

ERROR POINTER TABLE

003642

EFT?

074476

406
4«07

:ERROR

UNEXPECTED MECHANICAL MOTION - 'PIP'' = 1

EMT211
EHT1
EDT1
EFTY

072400
074256
074406
074476

;ERROR
072414
074256
07440¢
074476

212

UNEXPECTED DEVICE FAULT = *DVC'' = 1

EMT212
EHT1
EDT1
EFT1

sERROR

213

UNEXPECTED SEEK INCOMPLETE ERROR - *'SKI'’ = 1

EMT213
EHT1
EDT1

003714
003716
003720
003722

EFT1

sERROR

603724
003726
203730
003732

UNEXPECTED LOSS OF VOLUME VALID - *VV' =0

EDT1
EFT1

;ERROR

424
425
426

210

EMT210
EHT

072372
074256
074406
074476

421
422
423

UNEXPECTED LOSS OF 'MOL’' - MEDIUM 1S OFF LINE

EHT1
EDT1
EFT1

;ERROR

003710
003712

207

EMT207

072360
074256
074406
074476

418
419
420

'LBC** DID NOT SET DURING DIAGNOSTIC MODE

EMT206
EXTI
EDTI
EFT1

072350
074256
074406
074476

003702

206

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

SEQ 0059

CZRNDAQ RM8O FCTINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-20

ERROR POINTER TABLE

:ERROR

215
EMT215

072460
074270
074416
074506

ENHT
EDT

EFT2
sERROR

216

sERROR

217

;ERROR 220

INCORRECT 'WLE'* STATUS

EMT220
EHT1
EDT1
EFT1

072512
074256
074406
074476

:ERPOR

221

INCORRECT ‘'OPI*’ STATUS

EMT221

072522
074256
074406
074476

004014

INCORRECT ‘'IAE'’ STATUS

EMT217
EHT1
EDT1
EFT1

072502
074256
074406
074476

445
446
447

INCORRECT ''IVC"* STATUS

CMT216
EHT
EDT
EFT1

072472
074256
074406
074476

006
004010
004012

DRIVE DID NOT DETECT '‘IVC'’ ERROR DURING RECALIBRATE

EHT1

EDTY
EFT1

:ERROR

RM80 DID NOT DETECT RMR ERROR

sERROR

RM80 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

072532
074256
074406
074476

SEQ 0060

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-21

ERROR POINTER TABLE

;ERROR

224

SSE NOT DETECTED DURING DATA TRANSFER

EMT224
EHT1
EDT1
EFT1

072552
074256
074406
074476

sERROR

225

*'SSEI’' NOT RESET BY END OF TRACK DURING DATA TRANSFER

EMT225
EHT
EDT

072566
074256
074406
074476

EFT1

sERROR

226

‘'SSEI’* SHOULD BE SET AFTER DATA TRANSFER

EMT226
EHT1
EDT1
EFT

072606
074256

074406
074476

;ERROR

SSE WAS DETECTED W/ SSEI SET

;ERROR

WRONG UNIT SELECTED

;ERROR

INCORRECT "'OPE'* STATUS

072616
074256
074406
074476

072632
074310
074426
074516

+ERROR
072646
000000

232
EMT232
0
0
0

UNUSED

SEQ 0061

CZRNDAO JMBO FCTINL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 8-22

ERROR POINTER TABLE

;ERROR

0
0
0

000000

475

000000
000000
000000
000000

;ERROR

000000

490

004174
004176
004200
004202

UNUSED

[=lelele]

000000
000000
000000
000000

240

JERROR

487
488
489

000000
000000
000000
000000

;ERROR
004164
004166
0046170
004172

< ERROR

2462

000000
000000
000000
000000

UNUSED

QOO0

484
485
486

UNUSED

QOO0

;ERROR

004162

OO0O

000000
004150

UNUSED

(~lelele]

sERROR

006134
004136
004140
004142

234
[=lelelel

;ERROR

004132

UNUSED

EMT233

072650
000000
000000
000000

004114
004116
004120

233

[A8)

470

UNUSED

SEQ 006¢

CZRNDAO RMB0 FCINL PT1 PACRO V04.00 28-JAN-82 16:24:51 PAGE 8-23

ERROR POINTER TABLE

492

004204
0046206
004210

004212

000000
000000
000000

000000

493

282

000000
000000
000000
000000

496

235

000000
000000
000000
000000

499

244

004234
004236
004240
004242

000000
000000
000000
000000

gg{

004252

072676
074256
074406
074476

505

289

g?g

"ATA’’ NOT RESET BY GO WHEN 'ERR'* = 0

247

*ATA'* NOT RESET BY WRITING RMAS

EMT247
EHT]
EDT1
EFT1

sERROR
004264
004266
004270
004272

246

EFT1

072706
074256
074406
074476

508

UNUSED

EMT246
EHT1
EDT1

;ERROR
004254
004256
004260
004262

UNUSED

0
0
0
0

sERROR
004244
004246
004250

UNUSED

0
0
0
0

;ERROR 245

502

g}%

243
0
0
0
0

:ERROR
004224
004226
004230
004232

511

;ERROR
004214
004216
004220
004222

gg?

0
0
0

072720
074256
074406
074476

250

“ATA'’' WAS RESET BY GO WHEN 'ERR'’ = 1

EMT250
EHT]
EDT1
EFT

;ERROR

251

PROGRAM INTERRUPT WAS NOT GENERATED

SEQ 0063

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-24

ERROR POINTER TABLE

1
1
1

[o XV,
P

[V 1V, [V, ]

004274
0046276
004300
004302

004304
004306
004310

Nele BN

—

VAW

004312

520
501
522

523
524
525

526
507
508

004314
004316
004320
004322

072734
074270
074416
074506

SERROR

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

;ERROR

OFFSET MODE WAS NOT RESET BY WRITING RMDC

072742
074270
074416
074506

072750
074256
074406
074476

EFT?

;ERROR
004324
004326
004330
004332

EHI
EDT1
EFM

255

INCORRECT “'ATA'' STATUS

EMT255
EHT1
EDT1
EFT1

072776
074256
074406
074476

;ERROR
004344
004346
004350
004352

INCORRECT ‘’ILF'* STATUS

EMT254

072766
074256
074406
074476

;ERROR
004334
004336
004340
004342

254

073006

256

INCORRECT "'ILR"* STATUS

EMT256

EFT223
sERROR

257

INVALID IAE STATUS DURING SEARCH COMMAND

EMT257
EHT1
EDT1
EFT1
:ERROR

073030

260
EMT260

*IVC'" WAS NOT DETECTED DURING SEARCH COMMAND

SEQ 0064

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 8-25

074256

HY
DY
FT

mmm

004366
004370
004372

0724406
074476

;ERROR
006374
004376
004400
004402

542
543

263

*'SKI'* ERROR DURING SEARCH COMMAND

EMT263
EHTY

073072
074256
074406
074476

EDT1
EFT1

264

*IVC'* ERROR DURING SEARCH - LOST VOLUME VALID

EMT264

EHT1
EDT1
EFT1

074476

sERROR
004434
004436
004440
004442

"LBC’* ERROR NOT SET DURING DIAGNOSTIC MODE

EHT]
EDT]
EFT1

073102

547
548
549

262
EMT262

073062
074256
074406
074476

:ERROR

004432

DRIVE EXECUTED SEARCH WITH ERROR SET

EHT1
EDT?
EFT1

sERROR
004414

261

EMT261

073042
074256
074406
074476

sERROR

004410
004412

b
b ab

ERROR POINTER TABLE

265

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS. VALID

EMT265

073122

EHT1
EDT1
EFT1

;ERROR

266

DEVICE FAULT (DVC) DURING SEARCH

EMT266
EHT1
EDT1
EFTY

-ERROR
004454

073154

267
EMT267

SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER
, ADDRESS IS TOO LARGE

SEQ 0065

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-26

ERROR POINTER TABLE

004456
004460
006462

074256
074406
074476

557

ggg

004464

006466
004470
004472

073172

560

EMT270

H
004474

004476
004500
004502

073206

564

004506
004510
004512

073224

ggg 004514 073242
004516
004520
004522

;ERROR 273

004526
004530
004532

073260

073276
074256
074406
74476

PARITY ERROR OCCURRED WHILE WRITING REMOTE

REGISTERS BUT MXF DID NOT SET

EHT1
EDT1
EFT1

JERROR

004534
004536
004540
004542

274

EMT274

074256
074406
074476

574
575

PIP STIL SET AFTER SEARCH

EDT]
EFT1

004524

LOST MOL ODURING SEARCH, OPI IS NOT SET

EMT273
EHT

JERROR

g;%

272
EHT1
EDT1
EFT1

074256
074406
074476

570
571

DIDN'T DROP

EMT272

074256
074406
074476

567

OP]1 ERROR DURING SEARCH BECAUSE ON CYLINDER

EHTI
EDT1
EFT1

;ERROR
004504

271

EMT271

074256
074406
074476

ggg

OPI ERROR DURING SEARCH BECAUSE MOL = 0

EHI
EDT1
EFTI

;ERROR

ggg

578
579

:ERROR 270

076256
074406
074476

561

2;9

EHT1
EDTI
EFT1

;

sERROR

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA

COMMAND STARTED

EMT275
EHT1
EDT1
EFT1
276

'OPI'* ERLOR DURING DATA TRANSFER BECAUSE 'MOL'’ WAS

SEQ 006%

CZRNDAQ RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 8-27

ERROR POINTER TABLE

;ERROR

004554
004556
004560
004562

300

EFT1

sERROR

301

ERRONEQUS °'IVC'’ ERROR DURING DATA TRANSFER - VOLUME
IS VALID

EMT30:

073362

074256
074406
074476

EHT1
EDT1
EFT1

:ERROR

302

"ILR'* ERROR DURING DATA TRANSFER

EMT302
EHT1
EDT]
EFT

073404
074256
074406
074476

;ERROR

303

“ILF'* ERROR DURING DATA TRANSFER

EMT303

073416
074256
074406
074476

EHT?
EDT1
EFT?

;ERROR

304

EMT304
004630

*'IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

EMT300
EHT]
EDT1

074256
074406
074476

004612

"OPI'' ERROR DURING DATA TRANSFER BECAUSE 1) ON
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR
3) RUN TIMED OUT

EHT1
EDT1
EFT1

073342

004604
004606
004610

277

EMT277

073324
074256
074406
074476
<ERRCR

004574
004576
004600
004602

073310

074256
074406
074476

e
e =y

004544
004546
004550
004552

"OIT
X

ZERO
mmmm

580
581

EHT1
EDT?

'RMR'’ ERROR DURING DATA TRANSFER

SEQ 0067

CZRNDAQ RM80 FCTNL PTY MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 8-28

ERROR POINTER TABLE

004632

EFT1

074476

s ERROR

EHTI
EDT1
EFT1

sERROR

'SKI'* ERROR DURING DATA TRANSFER

EDT
EFT1

;ERROR

307

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER

EMT307

073464
074256
074406
074476

EHT1
EDT?
EFT1

sERROR

310

DEVICE FAULT DURING DATA TRANSFER

EMT310
EHT1
EDT1
EFT1

073504

074256
074406

074476

;ERROR
073516
074256
074406
074476

311

LOSS OF BIT CLOCK DURING DATA TRANSFER

EMT311
EHT1
EDTY
EFTY

;ERROR

312

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

EMT312
EHT1

073530

EDT1

074476

EFT1
:ERROR

073542
074256
074406
074476

306

EMT306
EHT]

073454

074256
074406
074476

004662

INCORRECY °'IAE’’ STATUS DURING DATA TRANSFER

EMT305

073442
074256
074406
074476

004654
004656
004660

305

EMT313
EHT1
EDT1
EFT1

UNSAFE ERROR DURING DATA TRANSFER (DVC = Q)

SEQ 0068

CZRNDAQC RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 8-29

ERROR POINTER TABLE

625
626
6

;ERROR

sERROR

ERRONEOUS WRITE LOCK ERROR

317

HEADER CRC ERROR DURING DATA TRANSFER

EHT1
EDT
EFT1

074406
074476

320

FORMAT ERROR DURING DATA TRANSFER

EMT320

073630
074256
074406
074476

EHTY
EDT
EFT1

;ERROR
073640

321

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT321
EHT1
EDT1
EFT1

074256
074406

074476

JERROR

005012

316

EMT317

073620
074256

;ERROR

005010

WRITE LOCK ERROR

EMT316
EHT
EDT1
EFT1

073606
074256
074406
074476

005006

315

EMT315
EHT
EDT1
EFT

073574
074256
074406
074476

:ERROR

004760

DRIVE TIMING ERROR DURING DATA TRANSFER

EMT314
EHT1
EDT1
EFT1

073562
074256
074406
074476

004740

314

322
EMT322
EHT?
EDTI
EFT1

HEADER ERRORS SHOULD NOT BE SET

SEQ 0069

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN=-82 16:24:51 PAGE 8-30

ERROR POINTER TABLE

;ERROR

EDTI
EFT

074406
074476

;ERROR

325

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT325
EHT1

073700

074256
074406
074476

EDTY
EFT

;ERROR
073712

326

DATA PARITY ERROR DURING READ COMMMAND

EMT326
EMT1
ERT?
EFTY

074476

;ERROR
005054

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EDTI
EFT1

;ERROR

005056
005060
005062

324

EMT324
ENT1

073666
074256
074406
074476

658
659
660

DATA CHECK ERROR DURING DATA TRANSFER

EMT323
EHT

073656
074256

005044
005046
005050
005052

323

327

OFFSET MODE NOT RESET 8Y WRITE COMMAND

EMT327

073730
074256
074406
074476

ENTI
EDTY
EFT

sERROR

330

DATA PARITY ERROR DURING WRITE COMMAND

EMT330
ENT1
EDTY
EFT?

073742

:ERROR

EMT331
EHT1

EDT1
EFT1

WRITE CLOCK FALURE DURING WRITE COMMAND

SEQ 0070

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-31

SEQ 0077

ERROR POINTER TABLE

[a %]

e
ord

PO~
b
NORNS

DATA LATE ERROR DURING DATA TRANSFER

EHTI
EDTI
EFT

074476
SERROR

8838

332

EMT332

073764

$592
<382

:ERROR

\
AN

668
669

333

PIP STIL SET AFTER DATA TRANSFER - SKI = 0

EMT333

073776
074256
074406
074476

EHT1
EDT1
EFT?

;ERROR

334

LOST MOL DURING DATA TRANSFER - OPI = 0

EMT334
EHT]

074014
074256
074406
074476

EDT1
EFT1

sERROR

335

LOST VOLUME VALID DURING DATA TRANSFER - IVC

EMT335
EHT
EDT1
EFT1

074032
074256

074406

074476

sERROR

336

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

EMT336
EHT336
EDT336
EFT336

074052

074344
074442
074532

;ERROR

337

WRITE CHECK ERROR NOT DETECTED

EMT337
EHT337
EDT337
EFT337

074062
074356
074452
074542

;ERROR

340

WRITE CHECK ERROR AT UNEXPECTED ADDRESS

EMT340
EHT336
EDT336
EFT336

;ERROR

341

INCORRECT DATA DURING WRITE CHECK ERROR

CZRNDAO RMBO FCTNL PT1 MACRO Vv04.00 28~JAN-82 16:24:51 PAGE 8-32

ERROR POINTER TABLE

EMT341
EHT336
EDT336
EFT336
;ERROR

342

"'IVC'* ERROR NOT DETECTED DURING DATA TRANSFER

EMT342

74112

EXT1
EDT
EFT1

V74256
074406
074476

;ERROR

343

*FER'' NOT DETECTED DURING DATA TRANSFER

EMT343

074124
074256
074406
074476

EHT1
EDT1
EFT1

sERROR

344

'HCE'' NOT DETECTED DURING DATA TRANSFER

EMT344

074136
074370
074462
074552

EHT344
EDT344
EFT344
;ERROR

345

"BSE'* NOT DETECTED DURING DATA TRANSFER

EMT345
EHT]
EDT1
EFT

074150
074256
074406
074476

:ERROR

346

HEADER ERROR WAS DETECTED W/ HCI SET

EMT346

074160

074256
074406
074476

;ERROR

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

JERROR

LOST VOLUME VALID DURING SEARCH = *‘IVC*' = 0

074174
074256
074406
074476

SEQ 0072

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-33

ERROR POINTER TABLE

:ERROR

000000
000000

g g =4

PROGRAM TIMEOUT WHILE TESTING RMLA

0
0

JERROR

353

LOOK AHEAD TEST FAILS

EMT353
EHT353
EDT353
EFT353

074240
074402
074474
074562

:ERROR

724

352

EMT352
0

074234
000000

725

“ATA'* DID NOT SET DURING SEARCH

EDT
EFT1

:ERROR

005332

351

EMT351
EHT1

074224
074256
074406
074476

074250
074256
074406
074476

b e

—f

b )

M1350

074206
074256
074406
074476

mmmm

005%64
005266

35¢

B8SE SHOULD NOT BE SET

EMT354
EHT1
EDT1
EFT1

:PUT ERROR TABLE HERE

SEQ 0072

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN=82 16:24:51 PAGE 9

3EQ 0074

.SBTTL

ERROR TABLE USAGE

:THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD CNTRIES FOR EACH ERROR
;NUMBER, I.E.,
I

]

EMT
ERROR MESSAGE TABLE ADDRESS
EHT
ERROR HEADER TABLE ADDRESS
EDT - ERROR DATA TABLE ADDRESS
EFT - ERROR FORMAT TABLE ADDRESS
[

Sevsasssoss

PININININININININ)
b b =D e b e b wmd b b

00 NON VSN LN =2 © \O 00 NOMN L (NN = OO 00

O LN S NN —

ERROR TABLE USAGE

sTHE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS
;FOR THE PARTICULAR ERROR.

EACH ERROR MESSAGE

TABLE LISTS THE ADDRESS

:OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATICD AND
sTYPED BY THE ERROR TYPE SUBROUTINE.
IF THE EMT ENTRY IS ZERO, THERE IS
sNO MESSAGE TO BE TYPED FOR THE ERROR.

sSIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
:OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY
:IN_THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF
sDATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND
sHEADER.

THAT 1S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,

sBUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE
sMUST ALSO HAVE A FORMAT.

*IN SUMMARY,
;
;
:

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT.

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-G2 16:24:51 PAGE 10

SEQ 0075

ERROR TABLE USAGE
%

;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

3 00533«

011600

BADTMO: MOV

5 005340

022626

4 005336
6 005342
005346

005406

7 005406
8 005410
9 005412
10
}5 005414

005740

0710046
104402
000240

MoV
TYPOC
NOP

RO,~(SP)

000404

START

ézgssz

012737

177777

18 005426
19 005432
20 005434
21 005440
gg 005442

005037
000240
005227
001375
000005

001326

}? 005424 000402

001326

000000

2
012706
005026
022706
001374

001114

001100

005464

012737

062072

000020

005514

012737

065766

000034

000036

005530 012737 066074 000024
005536 012737 000340 000026
013737

041350

005556
005562
005570
005576

005037
112737
012737
012737

001210
000001
005570
005576

005037

001206

041342

001131
001122
001124

013746
012737

000004
005644

000004

005624
005632
005640

012737
022777
101012

177570
177777

001156
173314

012737

177570

;PUT *HALT(0)' INSTRUCTION HERE IF YOU WISH
:T0 STOP ON UNEXPECTED TIMEOUT.

*BRANCH TO START

;CHANGE RH/RM BUS ADDRESS

START:
CLR
START2: NOP
INC
3NE
RESET

CHGADR

sNO CHANGE IN ADDRESS

#0
=4

;TTY LOOP, WAIT FOR INCREMENT
:0F WORD
*RESET THE WORLD

START?2

INITIALIZE THE COMMON TAGS

001154

#SCMTAG,R6
(R6)+
#SWR,R6
.6
ASTACK , SP

;:FIRST LOCATION TO BE CLEARED
*:CLEAR MEMORY LOCATION
: :DONE?
+:L00P BACK IF NO
::SETUP THE STACK POINTER

::INITIALIZE A FEW VECTORS
MOV
#3$SCOPE ,a#10TVEC ::10T VECTOR FOR SCOPE ROYTINE

MOV
MOV
MOV

#340,a#f0TVEC+2 ;:LEVEL 7
#SERROR ,QFEMTVEC - ;EMT VECTOR FOR ERROR ROUTINE
#3460, JMEMTVEC+2 ;:LEVEL 7

MOV

#3640, 34 TRAPVEC+2: LEVEL 7

MOV

MOV
MoV

MOV
CLR

CLR
MOVB
MOV
MOV

#STRAP ,S#TRAPVEC *;TRAP VECTOR FOR TRAP CALLS

#SPURDN, a#PURVEC ; ;POWER FAILURE VECTOR
#340,WPURVEC+2 ::LEVEL 7
SENDCT,SEOPCT

::SETUP END-OF-PROGRAM COUNTER

SESCAPE
#1.SERMAX
#..SLPADR
#. .SLPERR

::CLEAR THE ESCAPE ON ERROR ADDRESS
*SALLOW ONE ERROR PER TEST
S:INITIALIZE THE LOOP ADDRESS FOR SCOPE
*:SETUP THE ERROR LOOP ADDRESS

STIMES

S INITIALIZE NUMBER OF ITERATIONS

::S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
SSEQUAL TO A

0056064
005610

005616

;SETUP FOR TYPING OUT PC

#-1,CHGADR

MOV

005472 012737 000340 000022
005500 012737 062762 000030
005506 012737 000340 000032

005544

<CRLF>/UNEXPECTED BUS TIMEOUT. PC=/

START OF PROGRAM

MOV
CLR
N, 2
BNE

001154

000340

*:TYPE ASCIZ STRING
GET OVER THE ASCIZ

::CLEAR THE COMMON TAGS (SCMTAG) AREA

012706

012737

LASCIZ

SADJUST PC <2

START1: MOV

.SBTTL

005552

*RESTORE STACK POINTER

658
648

05350

15 005416

005522

(SP)+,(SP)+

TYPE
BR

106451
000417

.SBTTL

005460

;SAVE P( WHERE THE TIME OUT OCCURED

-(ROJ

005444
005450
005452
005456

(SP) ,RO

TST

MOV
MOV

MOV

MOV
CMP
BNE

'=1°*, SETUP FOR A SOFTWARE SWITCH REGISTER.
@NERRVEC,-(SP)
#64S WHERRVEC

;;SAVE ERROR VECTOR
::SET UP ERROR VECTOR

ADDISP,DISPLAY
#-1,3SWR
668

::AND A HARDWARE DISPLAY REGISTER
*STRY TO REFERENCE HARDWARE SWR
+:BRANCH IF NO TIMEOUT TRAP OCCURRED

#DSWR, SWR

$:SETUP FOR A HARDWARE SWICH REGISTER
;;AND

THE HARDWARE SWR IS NOT = -1

C 4 R NDAQ RMB0 FCTNL PT1 MACKG V04.00 28-JAN-82 16:24:51
[ N 1 TIALIZE THE COMMON TAGS

005642
005646
005650
005652

000403
012716
000002
0127;7

005652
000176
000174
000004

SEQ 0076

B8R
MOV
RTI
MOV

653
#658, (SP)

66$:

Mov
MoV

#SWRES , SWR
;sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC ;;RESTORE ERROR VECTOR

CLR
8lTB
BEQ
MoV

$PASS
#APTSIZE,SENVM
678
#$SWREG, SWR

648 :
001154
001156

PAGE 10-1

65%:

s cBRANCH IF NO TIMEOUT
ssSET UP FOR TRAP RETURN

005660
(05666

012737
012637

005672
005676
005704
882;?2

005037
132737
001403
012737

001230
000200

001243

001244

001154

675

25
26 005714
%g 005722

012737
012737

005334
000300

000004
(00006

;SETUP "‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MoV
#BADTMO,EIRVEC ;SETUP FOR UNEXPECTED TIMEOUT
MoV
#PRG,ERRVEC+2
;LEVEL 6

005730
005734
005736
005744
005746
005752

005227
001033
022737
001427
104401
000424

177777
041512

.SBTTL

TYPE PROGRAM NAME

::698:

INC
BNE
CMP
8EQ
TYPE
BR
.ASCIZ

:;TYPE THE NAME OF

000042

005754

006024

68s:

.SBTTL

006024

005737

000042

006032
006040
006042
006050
006052
006054
006056
% 006064

123727
001406
023727
001005
10440
000403
112737

001242

000001

001154

000176

000001

001150

006030 001012

THE PROGRAM I FIRST PASS

#-1
ssFIRST TIME?
68$
: :BRANCH IF NO
#SENDAD , 3442
s sACT=112
68%
s ;BRANCH IF YES
698
s:TYPE ASCIZ STRING
68$
:;GET OVER THE ASCIZ
<CRLF>3CZRNDAO - RM80 IMUNCTIONAL TEST, PT 1a<CRLF>

GET VALUEfi:gR SOFTWARE SWITCH REGISTER
TST
ssARE WE RUNNING UNDER XXDP/ACT?

B8NE

70$:
718:

s CLEAR PASS COUNT
;.TEST USER SIZE UNDER APT
ssYES,USE NON-APT SWITCH
s:NO,USE APT SWITCH REGISTER

(MPB
BEQ
cMP
BNE
GTSWR
BR
MOVB

70s

SENV.M
708
SWR, #SWREG
718
718
#1,$AUTOB

s ;BRANCH IF YES
SSARE WE RUNNING UNDER APT?
*:BRANCH IF YES
*3SOFTWARE SWITCH REG SELECTED?
**BRANCH IF NO
$:GET SOFT-SWR SETTINGS
;:SET AUTO-MODE INDICATOR

sTHE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

*PAPER TAPE (MANUAL). ACT11, XXDP CHAIN OR DUMP

3% 006064
35 006070
36 006076

005037
122737
001121

001332
000016

38 006106
39 006114
40 006116

122737
103002
105037

000007

42 006126
43 006130

001425
104401

000041

37 006100 013737 000040 001332
001332

41 006122 005737 000042
006134

006162

44 006162
45 006164
46 00€170

000412
005046
113716
104403

XXDP
#1644
3

sCLEAR 'XXDP*' LOAD DEVICE STORAGE
*LOADED FROM AN RMSO ?
‘BR IF NOT

CMPB
BHIS
CLRB

47 ,XXDP
18
XXDP

YIS IT A VALID NUMBER ?
SYES
*NO, DEFAULT TO DRIVE 0

MOV

001332

1$:

006136
--738:

728
001332

CLR
(MPB
BNE

BEQ
TYPE

.ASCIZ

CLR
MOVB
TYPOS

8460, XXDP
Y TY,
23
73$

728

:GET DEVICE INDICATOR AND NUMBER

*CHAIN MODE OR ACT11 AUTO ACCEPT ?
‘BR IF NEITHER
2:TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

<CRLF>/NOT TESTING DRIVE /

~(SP)
XXDP, (SP)

;CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE THE ADDRESS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 10-2

SEQ@ 0077

GET VALUE FOR SOF TWARE SWITCH REGISTER

47
48
49
g?

006172
006173
006174
006200

001

104401
000460

001217

52 006202
53 006206
54 006210
006214

005227
001055
104401
000410

177777

006236
55 006236
56 006240
57 006244
58 006246
59 006247
60 006250
006254

005046
113716
104403
001
000
104401
000432

000

005737
001537
012737

2s:

74 006366
75 006370
;g 006374

005001
013700
104401

78 006400
79 006406
80 006410
81 006414

136137
001507
104401
010146

006416
006420

82 006422

GET NUMBER OF DRIVES

INC

#-1

:FIRST TIME THRU HERE ?

BNE

TYPE

006216
:758%:

748
001332

B8R
CASCIZ
CLR
MOVB

TYPOS

55763:

000042
001300

$CRLF

R-LF

*NO

.,rvps ASCIZ STRING

-(SP)
XXDP, (SP)

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS

743
-GET OVER THE ASCI2
<CRLF>/T0 TEST DRIVE /

1
0

.ASCIZ

;ONLY 1 CHARACTER
supnsss LEADING ZEROS

758

BYTE
BYTE

TYPE

006256

000377

1
0

TYPE

64 006342
65 006342
66 006346
67 006350
68
69
70 006356
71 006356
;% 006364

BYTE
BYTE

768

:TYPE DRIVE ADDRESS

SONLY 1 CHARACTER
:SUPRESS LEADING ZEROS

..rvps ASCIZ STRING

<GET OVER THE ASCIZ

7, HALT PROGRAM, CLEAR LOC. 40 AND RESTART PROGRAM./<CRLF>

:CHECK FOR AUTO MODE OR STANDALONE MODE
ST
ang?
:RUNNING IN AUTO MODE ?
BEQ
STANDALONE
sa IF NO
MOV
#377 ,$DEVM
:SET DEVICE MAP FOR ALL DRIVES

sPROGRAM IS RUNNING IN AUTO MODE - SEE IF SIiZINC IS ALLOWED

132737
001124

000200

001243

001276
067112

070102

8lrs
8NE

#BIT7 ,SENVM
128

CLR

R1
$BASE RO

:START FROM DRIVE 0
sLOAD THE BASE ADDRESS

Mov
TYPE

001300

001217

104403
002

000
104401

XS1Z:

067775

elrs
BEQ
TYPE
MoV
TYPOS
.BYTE
.BYTE
TYPE

+SYSTAT

sSIZING ALLOWED ?
0
.

sTYPE "UNIT STATUS:®

?{gTBL(R1).SDEVH

~6xs DEVICE PRESENT IN MAP ?

.SCRLF

sCR-LF

2
0

ssTYPE 2 DIGIT(S)
s :SUPPRESS LEADING ZEROS
;CLEAR MASS BUS

R1,-(SP)
BLNKS4

::SAVE R1 FOR_TYPEQJT

::60 _TYPE--OCTAL ASCII

:TYPE & BLANKS

000040
000010
000012
010000

000010

#CLR_RMCS2(R0)

000010

ggED.RHCSZ(RO)

004000

000000

#DVA,RMCS1(RO)

‘BR IF NO
:IS DRIVE AVAILABLE ?

067130
020026

006624
000026

#SRM80, 108

*ASSUME RMBO DEVICE

024026

000026

067135

R1,RMCS2(RO)
RMDS (RO)
4$

sLOAD THE DRIVE ADDRESS
:ACCESS DRIVE REGISTER
s IS DRIVE PRESENT
?
:BR IF NO

#20026_RMDT (RO) SINGLE PORT
2
#24026,RMDT(RO)
28
NOTRM

§s

‘BR IF YES
:DUAL PORT RM80 ?
BR IF YES
*DRIVE NOT AN RMBO

*CHECK NEXT DRIVE

| CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 10-3

SEQ 0078

GET VALUE FOR SOF TWARE SWITCH REGISTER

032760
001412
000417

010000

104401

067167

104401
146137

067204
070102

000402

000425

005737
001406

001332

104401

067152

104401
104401
104401
000000

067234
067777

005201
020127
003661

006636
006642

000137

104401

3s:

001300

000413

006626
006630
006634

2§:

BIT
BEQ

B8R

104401
146137

000755

000012

001217
007402

;IS MEDIUM ON LINE ?
:BR IF NO

NOTPRS

:DRIVE NOT PRESENT

LNOTAVL

:DRIVE NOT AVAILABLE

118

;CHECK NEXT DRIVE

§s

4S:
5$:

TYPE
81(8
BR

ATNTBL (R1) , $DEVM

6$:

TYPE
8I(8
B8R

JUNTOFF
:DRIVE OFFLINE
sINTBL(R1).$DEVM
:CLEAR DEVICE FROM BIT MAP

TST

§§DP

78:

001332

000007

TYPE

#MOL ,RMDS(RO)
68
78

:CHECK NEXT DRIVE

:CLEAR DEVICE FROM BIT MAP

;PRINT DRIVE TYPE

XXDP ,R1
8s
5§ODEV

:LOADED FROM RMB0O ?

:NO

:1S THIS THE DRIVE ?
:BR IF NO

sDRIVE 1S LOAD DEVICE

8s:
9$:

JUNTON
.BLNKS2

10$:

sDRIVE_ONLINE
s TYPE 2 BLANKS
+PRINT DRIVE TYPE
¢MESSAGE ADDRESS HERE

118:

R1
R1.47
1$

s INCREMENT THE DRIVE ADDRESS
¢ALL DRIVES ARE CHECKED ?
sBRANCH IF NOT

128:

,SCRLF
CMNSTART

sCR=LF
;JUMP TO COMMON START

CZRNDAO RMBO FCINL PT1 MACRO V04.00 28-JAN~82 16:24:51 PAGE 11

SEQ 0079

STANDALONE INPUT ROUTINES

15
16
17

19
20

006646
006646

004737

064402

006652
006656

005227
001023

177777

006660
006664

104401
104411
012637

006700
006702
006706

001005
104401
104401

001176
104372

006714
006720

104401
104401

067771
001217

006672

123727

006712 000414

g 006724
2

STANDALONE INPUT ROUTINES

STANDALONE:
JSR

INC
BNE

PC,STKINT

SINITIALIZE CONSOLE

-1
2%

+FIRST TIME THRU HERE ?

sBR IF NO

sSEE IF OPERATOR WANTS HELP TEXT

o
o
o

.SBTTL

1
12
1

WA =~ OO 00 NN

NN =2 OO 00 NN NS NN

24 006726

25 006726
26 006732
27 006734
53 006740

000407

066536

001176

000131

32 006744

33 006750

(MP8

BNE
TYPE
TYPE

1s:

,MSHELP

:WANT HELP ?

(SP)+,STMP1

sSAVE AND ECHO RESPONSE
zas IT A YES RESPONSE ?

STMPI.#'Y
1s
,STMPI
HELP

B8R

TYPE
TYPE

N
$CRLF

:GET RESPONSE

STYPE 'Y’

:YES = TYPE HELP TEXT
JTYPE 'N’'

;CR-LF

-SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS

005737
001457
005037
104401

2s:

001326
001326
001217

31 006744

TYPE
RDCHR
MOV

ST
BEQ
CLR
TYPE

CHGADR
78
CHGADR
,SCRLF

s CHANGE RH/RM BUS ADDRESS ?
:BR IF NO
sNO CHANGE NEXT TIME
sCR-LF

:DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

104401

013746

066567

001276

006754
34, 006756
35 006762
3% 006764
37 006770
38 (06772
39 007000
20 007002

104402
104401
104413
012637
001412
022737
101403
104401

066577

zg 007010

013737

001176

4% 007016
45 007022
46 07054
47 007030
48 007032
49 N07036
50 007040
51 007044
52 007046
53 007054
54 007056

104401
005046
113716
104402

066641

104401
104413
0:2637
00141;
022737
101003
104401

067777

56 007064

113737

001176

41 007006 000756

55 007062 000755

067777
001176
160000

001176

001276

4$:
5$:

001272

001176
001000

TYPE

MOV

001176

066650

001272

68:

CNSLO1

$BASE - (SP)

TYPOC
TYPE
RDOCT
MOV
BEQ
CMP
BLOS
TYPE

(SP)+,$TMP1
58
#160000,$TMP1
4$
CNSLO2

B8R

,BLNKS2

sTYPE CURRENT BUS ADDRESS
:sSAVE $BASE FOR TYPEOUT
::G0 _TYPC--OCTAL ASCII(ALL DIGITS)

s TYPE 2 BLANKS

;GET NEW BUS ADDRESS

s CARRIAGE RETURN ?
sYES=SKIP TO NEXT ENTRY
BASE ADDRESS IN 1/0 PAGE ?
s YES

:TYPE WARNING MESSAGE

MOV

$TMP1,$BASE

:TRY AGAIN

TYPE
CLR
MOVB
TYPOC
TYPE
RDOCT
MoV
BEQ
cmP
BHI
TYPE

.CNSLOS
Z(SP)
SVELT1.(SP)

sGET CURRENT VECTOR ADDRESS

,BLNKS2

sTYPE 2 BLANKS

(SP)+,$TMP1
78
#1000, $THP1
63
CNSLOG

VECTOR ADDRESS < 1000 ?

MOVB

STMP1,SVECT1

B8R

§s

:STORE NEW BUS ADDRESS

sGET NEW VECTOR ADDRESS
s CARRIAGE RETURN?
{YES=SKIP TO NEXT ENTRY
;YES!!

;EPE"WARNING MESSAGE

:STORE NEW VECTOR ADDRESS

CZRNDAO RMB0O FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 11-1

SEQ 0080

STANDALONE INPUT ROUTINES

57
58

SO 007072

005037

60 007076
61 007102
62 007106

104401
104412
012600

65 007112
66 007116
67 007120
68 007126
69 007126
70 007136
71 007140
72 007142

105760
001011
122710
001411
012737

63 007106
64 007110

105710
001417

76 007150

77 007156
78 007156
79 007162

7s:

067300

000001

001330

067047

8s:

005227

177777

§s:

066704
001217

108:

007002
104401
104401

000131

104401
104411
012637
023727
001007
104401
012737
000137

90 007232

023727

93 007246

023727

91 007240
92 007242

001436
104401

94 007254
95 007256
96 007264

002430
023727
003427

99 007270
100 007272
101 007276
102 007304
103 007306

104411
012637
023727
001432
104401

106 007326
107 007326
108 007334
109 007336

002404
023727
003403
104401

11$:

067070

001176
001176

000101

066522
000377
006356

001300

001176

000015

001176

000060

001176

000067

128:

106 007312
105 007316

;}? 007342

112 007344

113 007350

138:
000015

066533

104401 001176
023727 001176 000060

000711
013701

042701

#'Y, (RO)
9s
CNSLO9

1£3

‘TYPE 'PLUG TEST ?'
*READ THE ENTRY
*SAVE ADDRESS OF RESPONSE

*WAS RESPONSE A CARRIAGE RETURN ?
‘BR IF YES

*WAS IT TERMINATED WITH CARRIAGE RETURN ?
‘BR IF NO
‘WAS IT A N’ RESPONSE ?
‘BR IF YES
*SET MANUAL INTERVENTION FLAG
“WAS IT A 'Y’ RESPONSE ?
:BR_IF YES
STYPE ** 2ILLEGAL INPUT'

*RETRY

:FIRST TIME THRU ?

(LR

$DEVM

sCLEAR DEVICE MAP

TYPE
RDCHR
MOV
cMP
BNE
TYPE
MOV
JMP

,MSDRVS

(SP)+,$TMP1
STMP1.4°A
128
LALL
#377,$DEVM
XS12
STMP1,#CR

§TMP1 20

B8R

148

RDCHR
MOV
P
BEQ
TYPE

BIC

:GET RESPONSE
*IS INPUT A" ?
*NO
*YES, TYPE “ALL'* AND GO
:SET DEVICE MAP FOR ALL DRIVES
:AUTO SIZE.
; CARRIAGE RETURN ?

SYES
SNUMBER > 7 ?
:NO

(SP)+,$TMP1
STMP1.#CR
168
,COMMA

:GET RESPONSE
:CARRIAGE RETURN ?
*YES
STYPE *, °

14$
STMP1,0°7
15%
CNSLO8

*YES
*NUMBER > 7 ?
:NO
.
.
*TYPE CR-LF ** 2ILLEGAL INPUT''

fis

MOV

14$
STMP1,4°7
15%

158:

*TYPE 'DRIVE(S):

SYES
*ECHO RESPONSE

STMP1
§TMP1,2°0

001176

:BR IF NO
*TYPE INPUT INSTRUCTIONS
*CR-LF

148
$TMP1

TYPE
P

148:

000067

108
,CNSLO7
$CRLF

(MP

BEQ
TYPE

067046

177770

(SP)+.R0
(R0)
9
1(RO)
8s
#°N, (RO)
o8
#1 ,MANUAL

;NO MANUAL INTERVETION

#-1

BLY
CMP
BLE
TYPE

001176

,MSMNUL

INC

BNE
TYPE
TYPE

BLY
TM
BLE

3; 007266 000423

001176
001176

CMPB
BEQ
TYPE

MANUAL

-DIALOGUE TO INPUT DEVICE NUMBERS

80 007166 005037 001300

81 007172
82 007176
83 007200
84 007204
85 007212
86 007214
87 007220
gg 007226

TYPE
RDL IN
MOV
TSTB
BNE
CMPB
BEQ
MOV

000116

000001

CLR

1ST8
BEQ

122710
001403
106401

;2 007146 000751

-FIND OUT IF USER WANTS TO DO LOGICAL ADDRESS PLUG TEST

001330

STMP1,R1

#c7.R1

*NUMBER < 0 ?

s ILLEGAL INPUT

:ECHO RESPONSE
*NUMBER < 0 ?

*RETRY

:R1 = DRIVE NUMBER

CZRNDAC RMBO FCINL P T1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 11-2
STANDALONE INPUT ROUTINES

114 007354
115
007362
116 007370
117 007372
118 007376

156137
122737
101337
104401
000137

070102
000377
001217
006356

001300
201300
168:

81s8
CMPB
BHI
TYPE
JMP

ATNTBL (R1) ,$DEVM
sSET DEVICE IN mAP
4377 ,$DEVM
:DONE ?
138
:NO
+SCRLF
:CR-LF
XSIZ
;GO SIZE DEVICES

SEQ 0081

CZRNDAQ RMBO FCINL PT1 MACRO V04.00 28-JAN=(2 16:24:51 PAGE 12

STANDALONE

SEQ 0082

INPUT ROUTINES

SASSEMBLE TEST QUE FROM DEVICE MAP

2 007402
3 0076402

4 007406
S 007412
6 007416

7 007420

104401

013700

001004
104401

067244

CMNSTART:
TYPE

066533

BNE
TYPE

001300

104401

067273

9 007430
10 007434
11 007440
12 007442
13 007444
14 007446
15 007452
16 007456
007456
007460
007461

010137
o127o§
00500
030200
001413
106401
010311
010346
104403
001
000

001466
000001

18 007470
19 007474

062701
006302

8 007424 012701

17 007462
20 007476
21 007500
22 007502
23 007504
26 007506
52 007510

27
‘
28 007514
29 007520
30 007522

116361

105702
001402
005203
000756
005011
104401

004737
000425
104401

007526 000413

MOV

001470

18:
2s:

066533

070102
000002

001217

043246
007530

000001
3s:

4S:

::658:
648:

37 007574
38 007576

000240
105737

001300

40 007604

005737

000042

000137

005426

041502

18:

105037

001116

28:

012746

000240

39 007602

41 007610

42 007612

22 007616
45 007622

001007
001002

000137

46 007626
47 007632

005037
004737

007642

012746

48 007636

007646
007650

000002

00106
064402

ADD
ASL

ISTB
BEQ
INC
BR
CLR
TYPE

: TYPE 'on1v5<s> T0 BE TESTED'

,connA

:BR IF DRIVES 10 TEST
‘TYPE °*

.NONE

5$:
6$:
READY:

R1, TSTQUE
#1,R2
R3
R2.RO
3s
,COMMA
R3. (R1)
R3,-(SP)

:INITIALIZE ENTRY POINTER
§
= DEVICE POINTER
DEVICE NUMBER
xs ruxs DEVICE IN MAP ?

rvps '
*YES - ENTER DEVICE NUMBER IN QUE
::SAVE R3 FOR TYPEOUT

1
0

::GO TYPE==OCTAL ASCII
:3TYPE 1 DIGIT(S)
< SUPPRESS LEADING ZEROS

#2,R1
R2

*ADVANCE ENTRY POINTER
.ADVANCE DEVICE POINTER

ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN QUE
R2
43
R3
23
(R1)
.$CRLF

:DONE ALL DEVICES
?
“YES
:ADVANCE DEVICE NUMBER
:ENTER NEXT DEVICE
*TERMINATE TEST QUE
STYPE CR-LF

;SEE IF CLOCK PRESENT
:YES ~ CLOCK IS PRESENT
+:TYPE ASCIZ STRING

648

TST
BNE
JMP
JMP

62
5$
START
$GET42

sANY MONITOR PRESENT ?
*BR IF YES
:JUMP TO START
*RETURN CONTROL TO MONITOR

NOP
ISTB

$DEVM

;READY TO START TEST
*ANY DRIVES IN MAP ?

ane2

SANY MONITOR PRESENT ?

JMP

START

:JUMP TO START

CLRB

STSTNM

;RESET TEST NUMBER

APRS ,~(SP)

::PUT NEW PS ON STACK

JASCIZ

BNE

Jmp

2s
1$

$GET42
STIMES
PC.STKINT

MOV

#643.-(SP)

RTI

:;GET OVER THE ASCIZ

<CRLF>/NO *L' OR'YP' cLOCK/

CLR
JSR

MOV
648:

STYPE 'NONE'

B8R

BNE

007650

‘RO= DEVICE MAP

#TSTQUE+2,R1 :R1 = ADDRESS OF FIRST ENTRY IN QUE

:SIZE FOR CLOCK
JSR
PC,SIZCLK
BR
6$
TYPE
,65%

005737
001002
000137
000137

005426
041502

MOV
MOV
CLR
BIT
BEQ
TYPE
MOV
MOV
TYPOS
BYE
BYTE

MOVB

007556
31 007556
32 007562
33 007564
3% 007570
gg 007574

000042

TYPE

MOV

DRIVES

iosvn RO

:BR IF YES

*BR IF YES

*RETURN CONTROL TO MONITOR
SINITIALIZE NUMBER OF ITERATIONS
SINITIALIZE TTY

*:PUT NEW PC ON

STACK

$:POP NEW PC AND PS

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 12-1

STANDALONE

SEQ 0083

INPUT ROUTINES

49 007650
50
51
52 007656
53 007662
54 007670
55 007676
56
57
58 007704
59 007710

117737

007720
007722

104403

001276

65 007734

001234

000010
000010
001334

MOV8

@TSTQUE,SUNIT

;LOAD DRIVE NUMBER

:CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND SET LAST TRACK ADDRESS
MOV
$BASE ,RO
;RO
= UNIBUS ADDRESS

MOV
MOVB
MOV

#CLR,AMCS2(R0) :CLEAR MASSBUS
SUNIT,RMCS2(RO) :SELECT DEVICE UNDER TEST
2TAB!
TAG '
TAT,LSTRK
:SET LAST TRACK
= 13.

:TYPE DRIVE NUMBER TO BE TESTED(SUNIT)
TYPE
TYPE

MOV

60 007714

66 007732

171612

002
000
005004
005304
001376
005304
001376

TYPQS

,SCRLF
.MSGDRV

$UNIT,~(SP)

.BYTE
BYTE
CLR

2
0
Ré

DEC
BNE

R4
.~2

DEC

Ré&

:CR-LF
*TYPE 'DRIVE'

*:SAVE SUNIT FOR TYPEOUT
;;TYPE DRIVE NUMBER

::6G0 TYPE--OCTAL ASCII

2:TYPE 2 DIGIT(S)
s SUPPRESS LEADING ZEROS
sTHESE TWO LOOPS ARE ADDED TO

cWAIT FOR TTY

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13

SEQ 0084

STANDALONE INPUT ROUTINES
1

.-:tttttttlt‘ttttttttttttttt'tttt.tQtttttttttttttlttttfitt'tttt'ttt

S*TEST 1

007736

CONTROLLER ACCESS TEST

':ttttttttttttttttttttt'tttt'!ttttttttttttttttttttttt'ttttttttttt

007736
007740
007742
007746

000004
000240
012706
013700

007756

012737

tsn:

SCOPE
NOP
MOV
MOV

#STACK, SP
$BASE , RO

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

MOV

#1,8TESTN

+:SET TEST NUMBER IN APT MAIL BOX

CLR

MOV

#1$ ERRVEC

9 010012 110160 000001

MOVB

R1.RMCS1+1(RO)
:MOVE W1 BYTE TO RMCS?

12 010026 010160 000004

MOV

R1,RMBA (RO)

007752 013701
& 007764

005001

001100
001276

001466
000001

S 007766
007772

013746
013746

000004
000006

; 0100046

012737

000300

MOV

001226

MOV
MoV

6 007776 012737 010100 000004

10 010016
11 010022

010160
016002

000002
000002

13 010032

016002

000004

16 010046

016002

000010

20 010066
010072

012637
012637

000006
000004

23 010100
24 010102

022626
012637

25 010112
26 010114
27 010120
28 010122
29 010126
30 010132

104110
005737
001002
000137
005037
000137

000006

MOV
MOV
MOV
MOV

14 010036 016046 000010
15 010042 010160 000010

MOV
MOV

MOV

17 010052 012660 000010
18 010056 010160 000022
19 010062 016002 000022

MOV
MOV
MOV

g; 010076

010106

g; 010136

000417

012637

MoV
MOV

1$:

000006
000004
000042
005416
001300
041502

2s:
3s:

TSTQUE ,R1

ERRVEC.=(SP)
ERRVEC+2,~(SP)

;(R1) = DEVICE BEING TESTED

;;PUSH ERRVEC ON STACK
;:PUSH ERRVEC+2 ON STACK

#PR6, ERRVEC +2
R1.RMUC (RO)
RMWC (RO ,R2

RMBA (RO) ,R2

:MOVE WORD COUNT REGISTER

:MOVE BUS ADDRESS REGISTER

ancsz(ngs -(SP)
2 :PUSH RMCS2(RO) ON STACK
R1.RMCS2(RO) ~ :MOVE CONTROL STATUS REGISTER
RMES2(RO)
,R2

(SP)+,RMCS2(RO)
: :POP STACK INTO RMCS2(RO)
R1,RMDB(RO)
:MOVE DATA BUFFER
RMDB(RO)
,R2

(SP)+ ,ERRVEC+2
(SP)+.ERRVEC

::POP STACK INTO ERRVEC+2
;;POP STACK INTO ERRVEC

N,
MOV
MOV
EMT
ST
BNE
JMP
CLR
P

(SP)+,(SP)+
(SP)+,ERRVEC+2
(SP)+,ERRVEC
110
we2
28
START1
SDEVM
$GET42

;ADJUST STACK
::POP STACK INTO ERRVEC+2

;NO BUS TIMEOUT OCCURRED

;:POP STACK INTO ERRVEC

:1S MONITOR PRESENT ?
*BR IF YES
SYES-GO GET $BASE
:FUDGE NO DRIVES IN MAP
*RETURN CONTROL TO MONITOR

F 1222322322222 3233232112233 232313221232 32332333 3133323328 3233322223]

LOGICAL ADDRESS PLUGS TEST

S*TEST 2

. :tttlttttttttttttttttttttttttt'tttfifittttttttttttttttttttltttt'tt

010136
010136

000004

010142
010146
010152
010156
% 010164

012706
013700
013701
012737
012737

001100
001276
001466
000001
000002

35 010172

005737

001330

010140 000240

fsr2:

SCOPE

NOP
001206
001226

:SCOPE CALL

MOV
MOV
MOV
MOV
MoV

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#1.STIMES
#2.STESTN

MANUAL

*START OF TEST

SINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
$:D0 1 ITERATION
$3SET TEST NUMBER IN APT MAIL BOX

;D0 WANT MANUAL INTERVENTION TEST ?

ZiNDAU RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 “6:24:51 PAGE 13-1

SEQ 0085

LOGICAL ADDRESS PLUGS TCST

;.»9 010176

001555

38 010200
39 0102
40 010212

012737
104401
013746

010216

104403

010220
010221

41 010222

001
000

010324
067360
001234

001124

BEQ

;NO~=SKIP TEST

MOV
TYPE
MoV

#28,SLPERR
JMSUNIT
SUNIT,~(SP)

:SET ERROR LOCP ADDRESS
sTYPE UNIT MESSAGE
2:SAVE SUNIT FOR TYPEOUT

.BYTE
.BYTE

1
0

::TYPE 1 DIGIT(S)
s ¢ SUPPRESS LEADING ZEROS

CLR

TYPE

,PULL

TYPOS

104401

067443

TYPE

43 010230
44 010234

005737
001004

001234

187
BNE

29 010242

104401

42 010226

45 010236

48 010246

00500;
104401

067655

104401

067617

001217

49 010252

010246

010254

104403

50 010260
51 010264
g% 010266

104401
104412
104401

067720

54 010272
55 010276

010260
012737

000010
020000

58 010320

001001

010256
010257

56 010304
57 010312

gg 010322

001
000

016037 000042
042737 157777
000040
000010

64 010336
65 010342

005037
016037

001174
000042

67 010356

001401

70 010362

016037

000010

72 010376

010237

001174

73 010402

74 010406

TYPE
RDLIN
TYPE

001176
001176
000010

001176

157777 001176

042737

177770

001176

023702 001176
104230
000421

78 010414
79 0104§2

016037
016037

81 010436
82 010440

001402
104111

001174
001176

80 010430 032737 010000 001174
05

4$:

sCR=LF
sTYPE

'INSERT LOGICAL ADRS PLUG #°

s:SAVE R2 FOR TYPEOUT
s:TYPE UNIT TO BE ADDRESSED
::G0 TYPE--OCTAL ASCI!

ssTYPE 1 DIGIT(S)
s :SUPPRESS LEADING ZEROS

+BR IF YES

MOV
MoV

#CLR,RMCS2(R0O)
R2,RMCS2(R0O)

.CLEAR THE MASSBUS
sSELECT DEVICE FOR TEST

CLR
MoV

$TMPO
sGET EXPECTED STATUS
RMER2 (RO) ,$TMP1 ;GET RECEIVED STATUS

BEQ

MOV
8IC

RMER2 (RO) ,$TMP1 :GET RECEIVED STATUS
#°C<OPE>, §TMP1 :IS 'OPETM" SET ?

EMT

231

#~C<OPE>,$TMP1

;1S 'OPE'" SET ?
:BR IF NO

EMT

231

MOV

RMCS2(RO) ,$TMP1 ;GET RECEIVED UNIT ADDRESS BITS

mov

R2,$TMPO

sGET EXPECTED UNIT ADDRESS BITS

BEQ

:BR IF YES

MoV
MOV

RMCS2(R0) ,$TMPO ;GET RMCS2 STATUS
RMCST(RO) ,$TMP1 ;GET RMCS1 STATUS

BEQ
EMT

5$
111

81C

EMT
8R
000010
000000

1
O
+RET

;TYPE 'PULL LOGICAL ADRS PLUG #0°

sADDRESS UNIT NUMBER IN R2
SGET EXPECTED STATUS

cmP

001402

75 010410
;(; 010412

gg 010442

38:

. INSERT

R2,-(SP)

;1S THIS UNIT #0 ?
:NO

R2,RMCS2(R0)
#OPE , STMPO

8IC

104231

.SCRLF

;START WITH UNIT #0

.SCRLF

BNE
2S:

SUNIT
1$

:TYPE_INSTRUCTIONS MESSAGE

sTYPE RETURN WHEN READY
sWAIT FOR <RET> TO CONTINUE
sCR=LF

MOV
MoV

001174

104231

66 010350 042737

TYPE

MoV

.BYTE
BYTE

001217

012760
010260

71 010370

18:

TYPOS

61 010324
gg 010332

gg 010360

TYPE

MINSTR

;;GET DRIVE NUMBER BEING TESTED
::G0 TYPE=-=OCTAL ASCII

8IT
8R

#2CUNTMSK,STMPT ;MASK UNIT ADDRESS BITS

STMP1,R2

230
6$

ANED, $THPD
6$

sWAS CORRECT UNIT ADDRESSED ?

cWAS DEVICE NON-EXISTENT ?
:BR IF NO

94 RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:57

LOGICAL ADDRESS PLUGS TEST

85 010444
86 010452
gg 010454

032737
001001

89 010456
90 010460

005202
0802;7

91 010464
92 010466

101670
104401

104401
013746

010502
010504

104403
001
000
104401
104612

97 010514
98 010520
99 010522
100 010524
101 010526
102 010530
103 010532

001176

104401
005004
005304
001376
005304
001376

000007

8IT

#DVA,$TMP1

sWAS DEVICE AVAILABLE ?
:BR IF YES

6$:

INC
cMP
BLOS
TYPE
TYPE
Mov

R2
R2,AUNTMSK
18
,DONE
INSERT

sADDRESS NEXT UNIT
cALL PLUGS ADDRESSED ?

067750

067617
001234

BNE
EMT

TYPOS

.BYTE
.BYTE

067720

TYPE
RDLIN
TYPE
CLR

001217

78:

104
105

5EQ 0086

5$:

104112

93 010472
9¢ 010476

010505
95 010506
96 010512

004000

PAGE 13-2

DEC
BNE
DEC
BNE

63
112

$UNIT,~(SP)
1

.RET

SCRLF

R4
R4
.-2
Ré

;BR IF NO

:TYPE DONE MESSAGE
sTYPE °*INSERT LOGICAL ADRS PLUG #'

:sSAVE SUNIT FOR TYPEOUT
;:GET ORIGINAL DRIVE ADDRESSED
:2G0 TYPE-~OCTAL ASCII
s:TYPE 1 DIGIT(S)
s s SUPPRESS LEADING ZEROS
sTYPE RETURN WHEN READY
:gal{FFOR <RET> TO CONTINUE
sTHESE TWO LOOPS ARE ADDED TO
sWAIT FOR TTY

SINARRANRARARAAARARNAAARRAELERAANRAAARAAARNANCARR
AR ANANAANAAARAAANRAR

SATEST 3

UNIBUS INITIALIZE TEST

o RRARAAAN RN AR A NARA RN

010532
010532
0105
010536
01 0542
010546
010552
106 010560

000004
000240
012706
013700
013701
012737
012737

000001
000003

107 010566

004737

052466

010572
010574
010576
010600

108 010604
109 010604
110 010610
111 010616
11% 0106%4
113
010632
114 010632

010636
010640
010642
010644

115 010650
116 010652
117 010654
118 010665
119 010670

000404
000240
104000
000137

0127 ;
012737
112737

112737

004737

000404
000240
104000
880137

530;
00:36
015737
012737
012737

RN AN ENRARARARRRRRAARARARAARARRARAAARANRNER

TS8T3:

001100
001276
001466

#STACK,
SP

$BASE RO

001206
001226

000200

043016

011402
177777
177777
177777

#3,STESTN
PC,CNTCLR
1$

011402
000101
000000
000022

TSTQUE .R1
#1,STIRES

#0, RMDBO

#RADB, PUTINX

2%:

;G0 ISSUE CONTROLLER CLEAR
;60 _T0 18 IF NO ERROR
¢RETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE

;GO TO 158 IF ERROR

18:

001434
001545
001546

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
s:D0_1 ITERATION
;sSET TEST NUMBER IN APT MAIL 80X

#200,PUTINX+1
PC.PUT

158
R2
28

#-1,RMBAO
#-1,RMERIO
#-1,RMER20

sSET OR AND RESET IR
sWRITE ZEROS IN DATA SILO
sSETUP REGISTER INDEX

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
2GO _TO 38 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY PUT SUBROUTINE
;60 TO 158 IF ERROR
sDECREMENT COUNT

sWRITE SILO AGAIN

= ALL 1°S

SRMERT = ALL 1°'S
;RMER2 = ALL 1°'S

CIRNDAO RMB0O FCTINL PT1 MACRO v04.00 28-JAN-82 16:26:51 PAGE 13-3

SEQ@ 0087

UNIBUS INITIALIZE TEST

MOV
MOV
MoV
MOV
MOV
MovB
Move

4$:

064402
000010
042462

#RMER2, (R2)+
#RMMRT
, (R2) +
#RMCS1. (R2)+
#RMCS2, (R2) +
#200, (R2)+

15$
PC,STKINT

SOSS

b
b cwnd

NOMN

wd wnl wd

PC.GET

5%:

001142

6$:

104116

001142

7%:

001142

s
NN

b
and

001142

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 4$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

“GO TO 158 IF ERROR
sUNIBUS INITIALIZE
SINITIALIZE CONSOLE

*SELECT DEVICE

:GO SET UP FOR STATUS FETCH
:GO READ REGISTER(S) WITH GET SUBROUTINE

:SKIP RCMAINDER OF TEST

RMCS1I,$BDDAT

*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE
;VERIFY RMCS1

#5C,SEDDAT
<IGNORE SPECIAL CONDITION
#DVA!RDY,$SGDDAT ;EXPECT DVA & RDY

$GDDAT
, SBDDAT
RMBAI
78
116

: COMPARE EXPECTED, RECEIVED

‘BRANCH IF EQUAL

;VERIFY RMBA IS ZERO
;BRANCH IF ZERO

RMCS21,$BDDAT

;VERIFY RRCS2

(SP§+,$GDDAT
SGDDAT,SBDDAT

]
:COMPARE ZXPECTED & RECEIVED

$GDDAT
RMER1] , $BDDAT

:VERIFY RMER1

98
120

*BRANCH IF ZERO

RMASI,$BDDAT
R2

;VERIFY RMAS
*CLEAR ALL BUT THIS

-(SP)
(R1), (SP)
#IR, (SP)

#UNS, SBDDAT
9s:

INDEX TABLE

158

8s
117

8s:

:R2 = ADDRESS OF

*GO TO 58 IF NO ERROR

SGDDAT,S8DDAT

104115

sSET DIAGNOSTIC MODE

6
115

161

162 011136
163 011142
164 011150
165 011156
166 011160
167
168 011162
169 011170

#RMBA, (R2)+
#RMERT
, (R2) +

PC.GETSTS

156 011114

157 011120
158 011124
159 011132
160 011134

#PUTINX,R2

(R1) .RMCS2(RO)

3888

001336

005037
013737
001401

#003577 ,RMCS10
#021037.RACS20

00O

139 011026
140
141 011030

#DMD ! DBEN,RMMR10

PC.PUT

042546

011020
011022
011024

154 01i110
155 011112

001436
001412
001422

137

138 011014

142 011036
143 011044
144 011052
145 011060
146 011062
147
148 011064
149 011070
150 011076
151 011100
152
153 011102

003577
021037

AINNNNINO
R SNNINNNNNMNON

T3 Y
o )

PRV g
g

T
B
T

Do P

NINININININIPOND

=h =y

134 011000
135 011004
136 011010

040001

011402
—

010766
010770
010772
133 010776

012737
012737
012737

-0

120 0
121 010704
122 010712
123
124 010720
125 010724
126 010730
127 010734
128 010740
129 010744
130 010750
131 010754
132 010740
010764

—b

SEXPECT IR © UNIT NUMBER

*BRANCH IF EQUAL

: IGNORE UNSAFE

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-4

SEQ 0088

UNIBU S INITIALIZE TEST

184
185 011250
186 011254
187 011262
188 011264
189
190 011266
191 011274
192 011302

R2,$BDDAT

10§

121

001362

197 011322
198 011326
199 011334
200 011342
201 011344
202 011346
203 011354
204 011362
205 011370
206 011376
207 011400
208 011402
209
210

001140
001404

$GDDAT

11$:

?QECZI,SBDDAT

211
212 011430
011434
011436
011440

011442
213 011446

;EXPECT ZEROS

SVERIFY RMEC2 = 0

RMMR2I,$BDDAT

128:

#ROA'RQAB, SBDDAT

:VERIFY RMMR2

#TST1177%, $GDDAT

;EXPECT TEST.TAG BIT ON

$GDDAT ,$BDDAT
138
125

005037
013737
042737
001401
104173
013737
042737
012737
023737
001401
104123

TRK

124

001140
001400
040200

138:

001350
177177
000600
001142

148:

$GDDAT
;EXPECT ALL ZEROS
RMER21,$BDDAT
:VERIFY RMER2
#SK1!DVC,$BDDAT s IGNORE DEVICE ERRORS
14$
sBRANCH IF OTHER BITS 0
173
RMDSI ,SBDDAT
;sCHECK DRIVE STATUS REGISTER
#“C<DPR!DRY>,$8D DAT
#DPR!DRY,$GDDAT ;EXPECTED STATUS
$8DDAT, $SGDDAT
- COMPARE EXPECTED & RECEIVED STATUS

EMT

15%:

158
123

sDRIVE STATUS IS OK

e RARRARRRARRAAAR AR AANRAAR R EAARRANARANARAAENARNAAAARRAASARRANARARS

LATEST 4
iR

011402
011402
011404
011406
011412
011416
011422

;BRANCH IF ITS 0

RMMR1I,$BDDAT
;VERIFY RMMR
MC!LSILST,$BDDAT
; IGNORE WORD CLOCK, SCT,
#MJD , SGDDAT
;EXPECT WRITE DATA BIT
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
11¢
*BRANCH IF 0
122

000046
000010
001140

193 011310
194 011316

195 011320
196

;DRIVES ATTENTION BIT

001142

ESWn

182 011244

183 011246

;5R1).R2

000001

~n
&~

180 011230
181 011236

011214
011222

116102

=HOOOOO
[« 11
Y
)
£ =2 LNIPOAN

011172
011176
011200
011%02
011204
011210
011212

=000
0650

170
171
172
173
174
175
176
177
178
179

OO0
afa

TST4:

013701
012737

001100
001276
001466
000004

004737

052466

011740

CONTROLLER CLEAR TEST

AAARNARA AN

MOV
Mov

1$:

JSR
BR
NOP
EMT
JMP

ARARRA

AR AR ARRRES

sSCOPE CALL

SCOPE

NOP
MoV
MoV

001226

AAARE AN AN R RANARARRARA A AN

SP
#STACK,

$BASE ,RO

TSTQUE ,R1

#4,STESTN

PC,CNTCLR
1$

:START OF TEST
SINITIALIZE STACK POINTER
;RO _= UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL 80X

CONTROLLER CLEAR
;GO ISSUE
260 _TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
cERROR NUMBER DEFINED BY SUBROUTINE
;G0 TO 8% IF ERROR

CZRNDAO RMBU FCTNL PT1 MACRO V04.00 2B8-JAN-82 16:24:51 PAGE 13-5
14

SE@ 0089

CONTROLLER CLEAR TEST

214 011446

012702

000101

216 011460

112737

000022

219 0114764
011500

004737
000404

043016

011506
220 011512
221 011514
222 011516
223 011524
224 011532
225 011540
226 011546
227 011556
228 011562
229 011566

000137
005302
001327
012737
012737
012737
012737
012737
012737
012702
112722

011740

003577
021037
001545
000004

231 011576
232 011602
233 011606
234 011612
235 011616
236 011622

112722
112722
112722
112722
112722
004737

000042
000024
000000
000010
000200
043016

011630
011632
ggg 011634

000240
104000
000430

239 011636
240 011636
011642
011644
011646
011650
525 011654

004737
000404
000240
104000
000137
004737

052466

263 011660

004737

042546

011666
011670
- 8}}235

000240
104000
000137

215 011452 012737 000000 001434
g}g 8}}292

011502
011506

230 011572

112737

000240
104000

177777
177777
177777
040001

001546

011664 000404

Move

#RMDB , PUT INX

MOVB

001416
001426
001454
001436

001412
001422

8s
*GO TO 88 IF ERROR
R2
*DECREMENT COUNT
28
SAND WRITE SILO AGAIN IF NOT DONE
#-1,RMBAO
#-1.RMER10
#-1.RMER20
#DMD ! DBEN , RMMR10
#003577 .RMCS10
#021037.RMCS20
#PUT INX .R2
;R2 = ADDRESS OF INDEX TABLE
#RMBA, (R2)+

MOVB
MOVB
MOVB
MOVB
MOVB
JSR

B8R

011740

042462

58:

004737

011704
011706
011710
- 8}3535

000240
104000
004736
000137

011740

%gg 011716

012737

000000

249 011754
011730

004737
000403

044416

052604

001412

#RMERY.(R2)+

WRMER2. (R2)+
#RMMR1.(R2)+
#RMCS1.(R2)+
#RM(S2.(R2)+
#200, (R2)+
PC,PUT

48
78

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

G0 TO 4$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

PC,GETSTS

;G0 ISSUE CONTROLLER CLEAR
:G0 TO 58 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
160 TO 88 IF ERROR
*SETUP TO READ ALL REGISTERS

JSR

PC.GET

:60 READ REGISTER(S) WITH GET SUBROUTINE

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 TO 88 IF ERROR

PC.CLRSTS

;G0 VERIFY CONTROLLER CLEAR OPERATION

NOP
EMT
JSR
JMP

PC,B(SP)+
8s

*RETURN HERE IF ERROR
*ERROR # DEFINED BY CLRSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
*G0 TO 88 IF ERROR

MOV

#NOP,RMCS10

;CHANGE

JSR

PC,SECERR
8s

:GO CHECK FOR SECONDARY ERRORS
160 TO 88 IF NO ERROR

JSR

B8R
’s

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

PC,CNTCLR
58

NOP
EMT
JMP

;60 WRITE EGISTER(S) WITH PUT SUBROUTINE
*G0 TO 38 IF NO ERROR

JSR
BR
NOP
EMT
JMP
JSR

B8R

011740

:SETUP REGISTER INDEX TABLE

JMP
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB

MOVB

48:

#200,PUTINX+]

;WRITE ZEROS IN DATA SILO

PC.PUT
3s

NOP
EMT

3s:

#0.,RADBO

JSR
BR

NOP
EMT
BR

245 011676

011702 060405

#65. .R2

MOV

112722 000014

011626 000403

000200

001545

MOV

260 TO 68 IF NO ERROR

‘G0 TO 78 IF NO ERROR

FUNCTION CODE FOR ERROR CHECK

LZSNDAQ RMBO FCTNL PT1 MACRQ V04.00 28~JAN-82 16:24:51 PAGE 13-6
14

CONTROLLER CLEAR

011732
011734
011736
gg? 011740

000240
104000
004736

NOP
EMT
JSR

8s:

252

s*TEST 5

011740

18T5:

011740

000004

011744
011750
011754
253 011760

012706
013700
013701
012737

001100
001276
001466
000005

254 011766
011772
011774
011776
255 8}5382

004737
000404
000240
104000
000137

052466

256 012004

112737

000000

004737

043016

011742

000240

012012
012020

112737
012737

012032
012034
012036
012040
257 012044
258 012044
259 012052

000404
000240
104000
000137

012026

001226

012146

000200
040000

001545

001546
001412

012146

000000
000010

262 012066
012072
012074
012076
263 012100
264 012102
265 012110
266 012114
267 012122
Sgg 012124

004737
000403
000240
104000
000422
013737
005037
042737
001401
104137

042546

001336
001140
117777

001142

270 012126

013737

001346

001142

271 012134
272 012142
5;2 012144

112737

042737
001401
104140

000200

104377

001516
001517

001520

001142

4S$:

ERROR CLEAR TEST

b L L

T T T

T T

Y Y

Y R

sSCOPE CALL

sSTART OF TEST

sGO ISSUE CONTROLLER CLEAR
:GO_TO 1$ IF NO ERROR
¢RETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 5% IF ERROR

MovB

#RMCS1,PUTINX

;SETUP PUT INDEX TABLE

JSR
B8R
NOP
EMT
JMP

PC,PUY

;GO WRITE RMCS1 VIA PUT SUBROUTINE

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
s:SET TEST NUMBER IN APT MAIL BOX

#200,PUTINX+1
#TRE ,RMCS10

;SET TERMINATOR BYTE
sSET RMCS1 OQUTPUT BUFFER = TRE

;GO _TO 28 IF NO ERROR
sRETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
;GO TO 58 IF ERROR

MOvB
MovBe

#RMCS1,GETINX
#RMCS2,GETINX+1

JSR
BR
NOP
EMT
BR
MOV
CLR
BIC
8EQ
EMT

PC,GET
3s

MOV

RMCS2]1 ,$BDDAT

8IC
BEQ
EMT

277

JIEARAA AR

s*TEST 6

1876:

bbb bbb

PC,CNTCLR
18

58:

JSR
BR
NOP
EMT
JMP

g;g 012146

012146

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#5,8TESTN

MOovB

3$:

PC.3(SP)+

MoV
MoV
MoV
MoV

mMovs
MOV

2$:

sRETURN HERE IF ERROR
cERROR # DEFINED B8Y SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

SCOPE

NOP

112737
112737

%g? 012060

SEQ 0090

rEST

#200,GETINX+2

;GO READ REGISTER(S) WITH GET SUBROUTINE
:GO 70O 3$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
59
sSKIP REST OF TEST
RMCS11,SBODAT
;CHECK TRE & MCPE
$GDDAT
;EXPECT 0°S
#*C<TRE !MCPE>,$BDDAT
43
sBRANCH IF TRE & MCPE = 0
137

iCHECK RM(CS2

#*C<WCE !UPE !NED ! PGE ! MXF !MDPE>, SBDDAT
5$
140

A AT

AA AR

DRIVE STATUS TEST

AAARANAN R EAAARARERERRCRERPNERS
e

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-7

SEQ 0091

VA
OO

NI NINDNININY

D rd

012706
013700
013701
012737

001100
001276
001466
000006

004737

052466

004737

042546

#6,STESTN

;:SEY TEST NUMBER IN APT MAIL BOX

R
TSTAUE

PC,CNTCLR

001350

001140
001140
001140
001142

2s$:

:(R1

= DEVICE BEING TESTED

260 ISSUE CONTROLLER CLEAR

;60 _TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 8% IF ERROR

PC,GETSTS

010000

001350

EMT
JMP

#STACK,
SP

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

2GO _TO 28 IF NO ERROR

#MOL ,RMDSI

sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
sSKIP REST OF TEST
sMEDIUM ON LINE??

RMDSI $GDDAT

*EXPECTED STATUS

“YES!!

#ATA!ERR!PIP!LBT.SGDDAT
AMOL ,SGDDAT

?ggsi.saooAr
5%

3s:

001400

001400
001140

001142

RMER2]
, $BDDAT
S$GDDAT
152

:1S THERE A DEVICE CHECK??
:BR IF NO
+RECEIVED STATUS
sEXPECTED STATUS
;DRIVE FAULT

032737
001022
013737
012737

040000

001352

#UNS ,RMER11

:1S UNS SET??

001352
040000

001142
001140

gggS.SGDDAT

032737

040000

001352

001352
001140

001142

104152

001350

001140

001350
040000

166076

001350

58
RMER11,$BDDAT

48:

ggNS.RHER1I

5%:

RMER11,$BDDAT
$GDDAT
154
$EOSP

68:

#WRL ,RMDS1

001400

7$
RMDSI ,$GDDAT

sYES!!

sRECEIVED STATUS

sEXPECTED STATUS
2'DVC"’ IS SET BUT 'UNS'' IS NOT
:1S UNS SET??

sNO!!
cRECEIVED STATUS
sEXPECTED STATUS

:'DVC"* IS NOT SET, BUT "UNS'' IS

¢SKIP REST OF TEST

;1S WRITE PROTECT ON??
‘NO!!

*EXPECTED STATUS
#AC<MOL {PGM!DPR!DRY
! YV !OM>, SGDDAT

Loy
nNo

004000

ngC.RHERZI

sRECEIVED STATUS
sMOL STATUS INCORRECT

000200

LS LS LS NN
LS I
Y T 2 T
N

e o

18:

041256

N
H
N
O~

e o
b
b e
-

VT 8T .X]

OO000

NN = O
NN

OO0O0O0O0O0

JSR
BR

012462

042462

104153
000412

=2 OO

001226

N
(¥

288 012250
289 012256
290 012264
291 012272
29§ 012274
29
294 012276
295 012304
296 012306
297 012314
Zgg 012320
2
300 012322
301
012330

NOP
MoV
MoV
MOV
MoV

NOP

004737

284
285 012232

$BASE , RO

;S COPE CALL
;S TART OF TEST
s INITIALIZE STACK POINTER
:R2 ? UNIBUS ADDRESS

SCOPE

oSO
QO

OO QOO0

—d ek o i b

OOO0O00

280
281
282
283

000004

000404
000240
104000
000137

278
279

e i sed

b o el s wlh wd

OOOOOO

DRIVE STATUS TEST
RONONOIONONY

78:

RMDSI,$BDDAT

175

SRECEIVED STATUS
sSELECTED DEVICE IN WRITE PROTECT

#SKI,RMER21

;IS SKI SET??

CgRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 FPAGE 13-8

-EQ 0092

WA AN NN

N AN

CONONN SN

DRIVE STATUS TEST

012444

012446
012454
012460

012462

001406

013737
005037
106205

001400
001140

BEQ

001142

MOV

8s:

CLR
EMT

SARRANRR

8$
RMER2]
, $BODAT
$GDDAT
205

*TEST 4

O
N

U
wuaun wvIivnuiwaAWWIIAIAWAGE

onONON VWS NN
SO ODONSOTONORSO

oD
o
b

d o od
D

PORINURININUADNINGNUNOND

b e

s e

s i

004737
000404
000240

052466

000137

012642

112737
112737
012737
004737
000403
000240
104000
000427
004737
004737

000000
000200
000023
043016

004737

042546

104000

042462
043370

000415

004737
000404
000240
104000
004736
000406

043564

004737
000403
000240
104900
004736

044416

SCOPE
NOP
MOV
MoV
MoV
MoV

001226

1%:

2s:

o
o
N

610

OO o
e
(=]
o

kb e

OOOO0QOOCOOCOOOOO0O0OIDV

W
~

ed e

333

ccd e

331
332

D oD d

FONINONININ MNNVNINIMTONININIMNON

OO0

330

ONOCOOOOIDOOOOOOO

329

013701
012737

001100
001276
001466
000007

3s:

48:

AN RA RN E AN AANAARNAAINAAARAACANANAARN
N AANRNRARE RS
AANAN R RN A AR

ARARAARRRANR P AARRRAARAACANARNRA
RN

#STACK,SP

+SCOPE CALL
sSTART OF TEST
sINITIALIZE STACK PO.LTER

TSTQUE ,R1

:(R1) = DEVICE BEING TESTED

$BASE RO

#7,8TESTN

;RO = UNIBUS ADDRESS

s;SET TEST NUMBER IN APT MAIL BOX

JSR
B8R
NOP
EMT
JMP

PC,CNTCLR

Movs
Move
MOV
JSR
BR
NOP
EMT

WRMCS1 ,PUTINX
¢SETUP PUT INDEX TABLE
#200,PUTINX+1
sSET TERMINATOR BYTE
#PAKACK
! GO,RMCS1 0
;SET RMCS1 OUTPUT BUFFER
= PAKACK !GO
PC,PUT
GO WRITE RMCS1 VIA PUT SUBROUTINE

;GO JSSUE CONTROLLER CLEAR
;GO _TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBKOL: "INt

:GO TO 5% IF ERROR

;60 TO 2$ IF NO ERROR

PC,GETSTS
PC.TIMOUT

:RETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE
sSKIP REST OF TEST IF ERROR
sSETUP FOR STATUS FETCH
sWAIT FOR COMPLETION OF NOP

JSR
BR
NOP
EMT
BR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
B8R
NOP
EMT
JSR
BR

PC,PRIERR

JSR
B8R

PC,SECERR

BR
JSR
JSR

NOP

58:

:PERSISTENT SEEK INCOMPLETE ERROR

PRIMARY/SECONDARY ERROR TEST

SRR NAAA R AR AN AR AN

TST?

:ND!
!
:RECEIVED STATUS
:EXPECTED STATUS

EMT
JSR

5%
43

PC.a(SP)+
5%

PC,a(SP)+

:GO_TO 38 IF NO ERROR

sRETURN HERE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
sSKIP REST OF TEST IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

:60_TO 4$ _IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
sSKIP REST OF TEST IF ERROR

:GO CHECK FOR SECONDARY ERRORS

:GO_TO S$_IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

CARRRRARANARRARRAARNAARRERRARARAAARANANRAARREARARARARARRAAAARRAENS

tTEST 10

DIAGNOSTIC MODE TEST

sRRARRRRAARAARARREAAACEREARRARARAARRERAARRAANRARREARARCARRNANECRSY

CZRNDAO RMBO FCINL PT1 MACRO V04.00 28-JAN-B2 16:24:51
1o

DIAGNOSTIC MODE

012642
012642
012644
012646
012652
012656
%7 012662

420004
000240
012706
013700
013701
012737

TEST

TST10:
001100
001276

001466
000010

348 012670
012674
012676
012700
012702
249 012706

004737
000404
000240
104000
000137

013714

n=2722
012730
012734
012736
012740
012742
%g} 012746

112737
112737

012737
004737
000404
000240
104000
000137
004737

000024
000200

353 012752
012756
012760
012762
012764
354 012770

004737
000404
000240
104000
000137
032737

350 012706
012714

355 012776
356 013000

001011
012737

358 013014
359 013216
360 013022
361 013030
362 013032
363 013040
364 013046
365 013052
366 013054
367 013062
368 013064
369 013072
370 013100
371 013106
372 013110
373 013116
374 013120
375 013126
376 013134
377 013140
378 013142
379 013150

104176
000137
032737
00141*
013737
042737
005037
104170
032737
001012
013737
042737
012737
104200
032737
001411
013737
042737
005037
104201
032737
001411

357 013006

380 013152
381 013160

013737

013737
042737

001226

052464

(€00001
043016

001545
001546

18:

001436

013714
042462

2$:

042546

013714
000001

001362

000001

001140

001362

013714
010000

3s:

001142
001350

001350
167777
001140

001142
001142

020000

001350

001350
157777
020000

001142
001142
001140

004000

001350

001350
173777
001140

001142
001142

040000

001400

001400
137777

001142
001142

SCOPE
NOP
Mov
MOV
MOV
Mov

5%:

6$:

7%:

ASTACK,SP
$BASE R0

TSTQUE
R1
#10,$TESTN

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
18

MOovB
MOvVB

#RMMR1,PUT
INX
#200,PUTINX+1

MoV
JSR
BR
NOP
EMT
JMP
JSR

218

#DMD ,RMMR10
PC,PUT
23
218
PC,GETSTS

“E@ 0093

'S%OPE CALL
:START OF TEST
1 NITIALIZE STACK POINTEP

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MAIL BOX
:GO ISSUE CONTROLLER CLEAR
;60 _TO 1$ _IF NO ERROPR
sRETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 21$ IF ERROR
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUTINE

:GO_TO 28 IF NO ERROR
:RETURM HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
160 TO 218 If ERROR
:SETUP FOR STATUS FETCH

JSR
BR
NOP
EMT
JMP
BIT
BNE
MOV

PC,GET
3s

;60 READ REGISTER(S) WITH GET SUBROUTINE

218
#DMD ,RMMR11
43
#DMD ,SGDDAT

:535.91A6~osrlc MODE SET??

EMT
JMP
BIT
BEQ
MOV
8IC
CLR
EMT
BIT
BNE
MOV
BIC
MoV
EMT
8IT
BEQ
MoV
8IC
CLR
EMT
8l7
BEQ

176
218
#MOL ,RMDS 1
58
RMDS1, $SBDDAT
#~CMOL
, SBDDAT
$GDDAT
170
#P1P ,RMDS!
63
RMDS1,$BDDAT
#*CPIP,SBDDAT
#PIP,$GDDAT
200
#URL ,RMDSI
78
RMDS],$BDDAT
#~CWRL ,$BDDAT
$GDDAT
201
#SK1,RMER2]
8s

MOV

4S:

PAGE 13-9

MoV
BIC

RMMRTT, SBDDAT

RMER2I ,$BDDAT
#*CSK1,$BDDAT

‘G0 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
G0 TO 218 IF ERROR

*EXPECTED STATUS
*RECEIVED STATUS

;SKIP REST OF TEST IF DMD = 0
IS 'molt =0
22
TYES!!
*SETUP BAD DATA FOR TYPEOUT

;SETUP GOOD DATA FOR TYPEOUT
;IS PIP SET??
TYES!!
*SETUP BAD DATA FOR TYPEOUT

:EXPECTED PIP SET
:1S WRITE LOCK OFF??

JYES!!
*SETUP BAD DATA FOR TYPEOUT

;EXPECTED WRL = 0

;IS SKI =0
TYES!!
*SETUP BAD DATA FOR T1YPEOUT

{2 RNUAO RMBO FCINL PT1 MACRO v04.0C 28-JAN-82 16:24:51 PAGE 13-10
18 0
DIAGNOSTIC MODE TEST

005037

001140

032737
001431
013737

000200

001400

001400
177577
001140

001142
001142

204
N
~

NONINIRONIND

NN NN N NN A

[elelelelelelolelele]

Panr QuurPhuruurour
s Sur S G S

—_

104202

242

9%:

000024
000200
001711
043016

108:

CANING
= s

R
G
NSNS RAITBRITRLNNGS

2ogeggeeegesegeese

T A A
DL
L
NO\A&WN-‘OO@\IO\HJ\WN—DOS

001362

000001
001362

001140
001142

013714
010000

001350

167777
010000

001142
001142
001140

020000

001350

001142
001142

001140

004000

001350

001142

173777
004000

RMER2], $BDDAT

;1S DEVICE CHECK = 02?2
TYES!!
*SETUP BAD DATA FOR TYPEOUT

#4CDVC,$BDDAT

$GDDAT
203

;DVC SHOULD BE 0

#RMMR1 ,PUT INX
#200,PUTINX+1

:SETUP PUT INDEX TABLE
*SET TERMINATOR BYTE

PC,PUT

218

;60 WRITE RMMR1 VIA PUT SUBROUTINE
$60 TO 108 IF NO ERROR
SRETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
G0 7O 218 IF ERROR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

11$

013714
000001

157777

;SKI SHOULD BE 0

202
ggVC.RHERZI

10§

062546

001350

S$GDRAT

#DMD {MUR ! MOC | MSE R!MDF
!MWP ,RMMR10

013714

395 013312
396 013314
397 013322
398 013330
399 013332
400 013336
401 013344
402 013346
403 013354

8s:

CLR
EMT
8IT
8EQ
MOV
8Ic
cLR
EMT

SEQ 0094

11$:

128:

001400

001400
137777
040000

001142
001142
001140

000200

001400

001400
177577

001142
001142

#DMD , $GDDAT

*EXPECTED STATUS

21$

;SKIP REST OF TEST IF DMD = 0
‘IS MoL = 122

128

#MOL ,RMDS

138

170

$SETUP BAD DATA FOR TYPEOUT
:EXPECTED MOL = 1

$GDDAT

:EXPECTED PIP STATUS

#URL ,RMDSI

;1S WRL SET??

200
158

#*CWRL
, SBDDAT
#URL ,SGDDAT

201
#SK1,RMER2]
16%
RMER21I
, $8DDAT

#2CSK1,$BDDAT
ggKl.SGDDAT

16$:

TYES!!

;IS PIP = 0 2
SYES!!
1SETUP BAD DATA FOR TYPEOUT

RMDS1,$8DDAT

158:

‘RECEIVED STATUS

14$
RMDS1,$BDDAT

#P1P ,RMDSI

#*CP1P,$SBDDAT

14$:

GO TO 218 IF ERROR

:;ESquAGNOSIzc MODE SET??

RMDS] ,$BDDAT
#°CMOL
, $BDDAT
#0L
, SGDDAT

13s$:

‘GO TO 118 IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

#DMD
, RMMR1 ]

¥;2Rix.saooAr

001142
001140

040000

218

;SET RMMR1 OUTPUT BUFFER = DMD !MUR'M

#DVC,RMER2!
178

RMER21, $BDDAT

#*CDVC,$BDDAT

SYES!!
*SETUP BAD DATA FOR TYPEOUT
;EXPECTED GOOD STATUS

;1S SKI SET2?

JYES!!
*BAD DATA FOR TYPEOUT
;EXPECTED SKI

;IS DVC SET 22
TYES!!
*BAD DATA FOR TYPEOUT

SOERLLR

OHNOOMNVN

013616
013624
013630
013632
013634
013636

444 013704
445 013712
446 013714

NI S
WLNN
OOWWNNN
= WOW §§1,
SNNN SSNNIN
= NN p=4

437 013602
013610

T1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-11

CQ QEFQRI
=b =
pur

428 013549

-*E;C"DE;CMJC>
D DNO—~ (¥
o4

R
CZRNDAO
RHRO FCT
n0
DIAGNCST

004737

000200

001140

000100

001350

001359

001142
001142

177677
001140

000000
043016

gg¥

gggc,scooAr

;EXPECTED DVC ON

17¢:

BIT
BEQ
MOV
8IC

SVV.RMDS 1
18$
RMDSI,S$BODAT
#4CVV.SBDDAT

;MUR SHOULD HAVE RESET VOLUME VALID
*BRANCH IF IT DID
:BAD DATA FOR TYPEOUT

188

EMT

204

001545
001546
001412

000137

013714

004737
000404
000240

042546

000137
032737
001012
013737
012737
042737
104262

013714
002000

001400

001400
002000
002000

001142
001140
001142

104000

SEQ@ 0095

TEST

CLR

W#RMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200.PUTINX+1
-SET TERMINATOR BYTE
#DRVCLR!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = DRVCLR'GO

B8R

19$

PC,PUT

;GO WRITE RMCS1 VIA PUT SUBROUTINE

NOP
EMT
JMP

218

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
*GO TO 218 IF ERROR

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT

208:

447

448

20§

JMP
218
BIT #.BC,RMER2]
BNE 213
MOV RMER2I,S$BDDAT
MOV #LBC, $GDDAT
BIC #LBC, $BDDAT

21%:

:GOOD DATA FOR TYPEOUT

MOVB
MOVEB
MoV

JSR

$GDDAT

EMT

*GO TO 198 IF NO ERROR

+G0 TO 208 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

260 TO 218 IF ERROR
:1S LBC SET 22
SYES!!
:BAD DATA FOR TYPEOUT

:GOOD DATA FOR TYPEOUT

262

IIRRRNANRAN I AARAR IR AN RN AN R YA RN NARRAACA AR AN

SRTEST 11

PACK ACKNOWLEDGE TEST

ANENR

OEAS

N NN
‘hJMBJMh&flNU“NU“HerU“N
NN
1%,

Guur-G
Ghur P

001100
001276
001466
000011

760

001226

052466

002

014214

s
001545
001546
001436

‘START OF TEST
SINITIALIZE STACK POINTER

MOV

#11,$TESTN

:SET TEST NUMBER N APT MAIL BOX

JSR

PC,CNTCLR

NOP
EMT

$BASE RO
TSTQUE ,.R1
1$

MOVB
MOVB
MOV

#RMMR1.PUTINX
#200,PUTINX+1
#DMD . RMMR10

JSR
BR

:SCOPE CALL
#STACK, SP

B8R

014214

000024
000200
000001
043016

SCOPE

NOP
MoV

MOV
MOV

Grur-Gusr-Jour G-

Sur- P

453

o Qe Puur-Qiur G- Qi unr Pur- G

021Y,]

BN =

449
450

75T11:

000004

(=lelelelelqielelalelelelelalaiNelelelele il

Yourd

SIRRAARRARARNAARNRNRRAANREANERN
AR N ANRNAAARARARRRARAANARAAARNREANENES

NOP
EMT

JMP

PC,POT

*RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
;60 ISSUE CONTROLLER CLEAR

*GO TO 1$ IF ND ERROR

*RETURN HERE IF ERROR
*ERROR NUMBER DEF INED BY SUBROUTINE

1GO TO 88 IF ERROR

;SETUP PUT INDEX TABLE
-SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = DMD

160 WRITE RMMR1 VIA PUT SUBROUTINE

*GO TO 28 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

GO TO 88 IF ERROR

CIR NDAO RMBO FCTINL PT1 MACRO V04.00 28-JAN-82 16:24:51
TMm
PACK ACKNOWLEDGE TEST

454 014020

112737

000024

014026
014034
014042
014046

112737
012737
004737
000404

014054

000137

014214

112737

000000

014050
014052
455 014060
456 014060

014066
014074
0164102

014106

000240
104000

112737
012737
004737

000404

000200
000000
043016

000200
000023
043016

014110
014112
014114
457 014120
223 014124

000247
10400y
000137
004737
004737

014214
042462
043370

460 014130

004737

0462546

014140
461 0164142

104000
000424

014134
014136

462 014144

463 016144

014150
014152
014154
014156
464 014160

000403
000240

004737

000404
000240
104000
004736
000415

043564

465 014162
466 014162
014166
014170
014172
014174
22; 014176

004737
000404
000240
104000
004736
000406

053464

469 014200
470 014200

004737

044416

014204
014206
014210
014212
471 014214

000403
000240
104
004736

001545

Movs

001546
001436

Move
MOV
JSR
BR
NOP
EMT

001545

38:

001546
001412

6$:

78:

8s:

472
473

#200,PUTINX+1
#0,RMMR10
PC,PUT
33

sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE

sSET RMMRT OUTPUT BUFFER = 0
;GO WRITE RMMR1 VIA PUT SUBROUTINE

;G0 _TO 38 [F NO ERROR

cRETURN HERE IF ERROR
<ERROR DEFINED BY PUT SUBROUTINE
;GO TO 8% IF ERROR

MOVB

#RMCS1,PUTINX

B8R

:GO TO 4$ IF NO ERROR

8s
PC,GETSTS
PC,TIMOUT

:GO TO 88 IF ERROR

NO?
EMT
JMP
JSR
JSR

;SETUP PUT INDEX TABLE
#200,PUTINX+1
*SET TERMINATOR BYTE
WPAKACK
! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK !GO
k¢, PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

*RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE

sWAIT FOR COMPLETION

JSR

PC,GET

EMT
B8R

2GO READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 58 IF NO ERROR
sRETURN HEPE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
sSKIP REMAINDER OF TEST

JSR

PC,.PRIERR

:GO CHECK FOR PRIMARY ERRORS

B8R
NOP
5$:

#RMMR1,PUT
INX

SEQ@ 0096

JMP

Move
MoV
JSR

48:

PAGE 13-12

B8R
NOP
EMT
JSR
B8R

PC,3(SP)+
8s

;GO _TO 63 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:SKIP TO NEXT TEST

JSR
BR
NOP
ENT
JSR
BR

PC ,ACKSTS
78

PC,3(5P)+
8s

;GO VERIFY PACK ACKNOWLEDSGE
sGO TO 78 IF NO CRROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY ACKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
sSKIP TO NEXT TEST

JSR

PC.SECERR

:GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

sRETURN HERE IF ERROR
¢ERROR # DEFINED BY SECFRR SUBROUTINE
+GO BACK FOR MORE ERROR CHECKS

B8R
NOP
EMT
JSR

;G0 TO 8% IF NO ERROR

:JoRRRAARAARAAAAARAAANACAERAARARAAARARARARARANARRRRAARARARRNRRARRR

S*TEST 12

RECALIBRATE TES7

SAARNRARRNNANAARAARE
A AR AR RRA A AAANANAARAEANARRAAARARRARNRARAAARCES

014314
014214
014216
014220
014224
014230

000004
000;40
012 88
0137
013701

1ST12:
061100
001276
001466

SCOPE
NOP
Mov
MoV
MoV

#STACK,SP
$BASE ,RO
TSTQUE .R1

sSCOPE CALL
:START OF TEST
sINITIALIZE STACK POINTER
:R0O = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

|CIR NDAO RMB0 FCTNL PT1 MACRO V04.00 28-=JAN-82 16:24:51 PAGE 13-13
112
RECAL IBRATE TEST

- 014234

012737

000012

475 016242

004737

041532

014246 050020

001226

SEQ@ 0097

MOV

#12,$TESIN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC, TSTPRP

;PREPARE DEVICE FOR TEST

.WorRD

050020

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

*PACK ACKNOWLEDGE

014250
014252
014256
76 8}2526

000404
000240
104000
000137

014424

014270
014276

112737
012737

000200
000007

014310
014312
014314

000404
000240
104000

477 014263 112737 000000 001545
014304

004737

043016

014316
478 016322

000137
004737

01442%
062462

481 014332

004737

042546

253 014326

014336
014340
014342
.82 8}2523

483 014350
014356

014356
014350
014362
- 8}2;98

004737

000404
000240
104000
000137

004737
000405

043370

014424

485 014370

004737

054260

014376
014400
014402
.86 8}22?3

000240
104000
004736
000137

014424

487 014410

004737

044416

014416
014420
014422
zgg 014424

000240
104000
004736

014414

000403

001546
001412

MOVB
MOV

#200,PUTINX+1
:SET TERMINATOR BYTE
#RECAL !GO, RMCS10
-SET RMCS1 OUTPUT BUFFER = RECAL'!GO

MOVB

#RMCS1,PUTINX

*G0 TO 68 IF ERROR
260 SETUP FOR STATUS FETCH

68
PC,GETSTS

JSR

PC,GET

8R
NOP
EMT
JMP
JSR
8R

NOP
EMT
JSR
P

PC.TIMOUT
3$

*GO TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROU!INE
‘WAIT FOR COMPLETION

;60 READ REGISTER(S) WITH GET SUBROUTINE

*GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:60 TO 6$ IF ERROR

PC.PRIERR
48

;60 CHECK FOR PRIMARY ERRORS
160 TO 4$ IF NO ERROR

PC,a(SP)+
68

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
16O BACK FOR MORE ERROR CHECKS
:60 TO 68 IF ERROR

PC,RCLSTS

;60 VERIFY RECALIBRATE OPERATION

NOP
EMT
JSR
WP

PC.A(SP)+
68

*RETURN HERE IF ERROR
*ERROR # DEFINED BY RCLSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
:GO TO 68 IF ER]OR

JSR

PC.SECERR

:G0 CHECK FOR SECONDARY ERRORS

PC.a(sP)+

*RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUTINE
16O BACK FOR MORE ERROR CHECKS

JSR

B8R
s

;SETUP PUT INDEX TABLE

;G0 WRITE RMCS1 VIA PUT SUBROUTINE

JMP
JSR

JSR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 68 IF ERROR

PC.PUT

28:

63:

1.90

JSR

VOLUME NOT VALID

8R
NOP
EMT
JNP

8R
NOP
EMT

043564

000240
104000
004736
000137

014374 000405

*VERIFY PACh ACKNOWLEDGE
:G0 TO 1S IF NO ERROR

NOP
EMT
JSR

*GO TO 58 IF NO ERROR

‘G0 TO 68 IF NO ERROR

. "ttttttttittttfitttttttt'ttt'tttii.tttttti'l*ttttt'tit'tl'ttttt't

LeTEST 13

ABORT RECALIBRATE TEST

.e 1 22223 833323323822
F2322233 2032322322223 3231 832333 2132323333833234371232334%]

014424
014424
014426
014430

000004
000240
012706

15713:
001100

SCOPE
NOP
MoV

#STACK, SP

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER

NOAQ RM80 FCTNL PT' MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-14

SEQ 0098

ABORT RECALIBRATE TEST

014434
014440
014444
014452

9N
492 014460

.
SeRaenss S Sggazaaaaasaaas 285
N 3&

EARAARRR

BDDBDDBDDBE

i anh
o
o oD e e
b o

[

\S\l’l

NON S NO

DD
ooNONON

o
b e
e
b

COOVODOOOO

SRER28

gm\é\hmm

COOCOOOOT

cad ah emd

d and ok o

495

b ek wnd e

493
494

o oD e

o od —

DD IS " =
W

OO0OO00OOOOOOOOOOOOOOOOOO o

014464

013700

001276
001466
000001
000013

MOV
MOV
MOV
MoV

041532

JSR
.WORD

$BASE ,RO

;RO = UNIBUS ADDRESS

#18 STESTN

$3SET TEST NUMBER IN APT MAIL BOX

TSTQUE ,R1
o, STINES

PC,TSTPRP

054130

014732

043016

001545
001546
001426

001545
001546
001412

014732
062462

020000

043370

#RMCST,PUTINX

#200,PUTINX+1

043564

:6G0 TO 1$ IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINZ
:60 TO 98 IF ERROR

:SET TERMINATOR BYTE

:GO WRITE RPER1 VIA PUT SUBROUTINE

:GO TO 28 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR DEF JNED BY PUT SUBROUTINE
:GO TO 98 IF ERROR

;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE

#RECAL 'GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = RECAL'!GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
33

:GO TO 38 IF NO ERROR

GO TO 98 IF EAROR

PC.GETSTS

PC,GET

4
9s

SRETURN MERE IF ERROR
*ERROR DEF INED BY PUT SUBROUTINE
SSETUP FOR STATUS FETCH

:GO READ REGISTER(S) WITH GET SUBROUTINE

*GO TO 4$ IF NO ERROR

*RETURN HERE IF ERROR
-ERROR # DEFINED BY GET SUBROUTINE
:60 TO 98 IF ERROR

4$:

#P1P,RADSI
3?4

INO!!

b1 H

PC.TIMOUT

;WAIT FOR COMPLETION

PC.GET
6

;60 READ REGISTER(S) WITH GET SUBROUTINE
‘G0 TO 68 IF NU ERROR

*60 TO 98 IF ERROR

042546

014732

SVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI** OR "PIP'* IS SET
SVERIFY RECALIBRATION

*SET RMER1 OUTPUT BUFFER = UNS

3s:

001350

*CLEAR CONTROLLER ® SELECT DEVICE

#UNS . RMER10
PC.PUT

042546

014732

*TASK DESCRIPTOR AS FOLLOWS:

;SETUP PUT INDEX TABLE

#200,PUTINX+1

2$:

;PREPARE DEVIZE FOR TEST

#RMERT,PUTINX

F33

014732
000000
000200
000007
043016

18:

*(R1) = DEVICE BEING TESTED
2:D0 1 ITERATION

6s:

JSR
EMT

PC,PRIERR
7

*DID THE DRIVE RECALIBRATE??

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:GO CHECK FOR PRIMARY ERRORS
160 TO 7$ IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

CZRNDAQ RMBO FCl1AL PT1 MACRO V04.00 28~JAN=82 16:24:51 PAGE 13-15
113

ABORT RECALIBRATE

004736
000137

014732

509 014676

004737

060210

014706
014710
“10 8}2;}5

104000
004736
000137

014732

§11 014716

004737

044416

014726
014730
512 014732

104000
004736

014722
014724

000405
000240

000403
000240

SEQ 0099

TEST

014670
cop S14672

014702
014704

JSR
P

PC.R(SP)+
98

;GO BACK FOR MORE ERROR CHECKS
GO TO 93 IF ERROR

JSR

PC,5TCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

BR
NOP
"

EMT
J5R

511.

:GO TO 88 IF NO ERROR
RETURN HERE If ERROR

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JMP

PC,a(SP)+
9$

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

BR
NOP
98:

160 TO 98 IF ERROR

:GO _TO 98 IF NO ERROR
{RETURN HERE IF ERROR

es 1 3832233328282 2833333222232 3 2223283838122 32323333283112338223332¢42222232 22

SATEST 14

IVC RECALIBRATE TEST

e 1 2328233332233 23123 34232332423 3223 1233023138343 23312342283 2833233232233 223

014732
014732
014734
014736
014722

000004
000240
012706
013700

001100
001276

014752

012737

000001

516 014766

004737

041532

014746 013701

t8§114:

001466

054130

014774
014776
015000
517 8}2885

000404
000240
104000
000137

015242

518 015006

312737

000024

015014
015022
015030
015052
015036
015040
519 832325

112737
012737
004737
000404
000240
104000
000137

520 015046
015054
015062
015070
015074
015076

112737
112737
012737
004737
000404
000240

000200
000001
043016

MOV

#1,STIMES

#14&,STESTN

$:SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

001545

001546
001436

015242
000024
000200
000000
043016

#STACK, SP
$BASE , RO

MOV

2
001545
001546
001436

;SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

MOV
MOV

MOV

001206

15 014760 012737 000014 001226
014772

SCOPE
NOP

TSTQUE ,R1

054130

:(R1) = DEVICE BEING TESTED
;00 1 ITERATION

:TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
EMT
JMP

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI'* OR ‘PIP'' IS 3ET
$VERIFY RECALIBRATION
‘G0 TO 1$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:G0 TO 88 IF ERROR

MOVE

#RMMR1.PUTINX

:SETUP PUT INDEX TABLE

MOVB
MOV
JSR
BR
NOP
EMY
JMP
MOVB
MOVB
MOV
JSR
BR
NOP

#200,PUTINX+1
ADMD . RMMR10
PC,PUT
28
8s

ARMMR1,PUTINX
£200,PUTINX+1
#0,RMMR10
PC,PUT
38

:SET TERMINATOR BYTE
*SET RMMRT OUTPUT BUFFER = DMD
160 WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 28 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
GO TO 88 IF ERROR
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = 0
:GO WRITE RMMR1 VIA PUT SUBROUTINE
:69_TO 38 IF NO ERROR
{RETURN HERE iF ERROR

CZRNDAQ RM8O FCTNL PT1 MACRO V04.00 2B-JAN-82 16:24:51 PAGE 13-16
T4

SEQ 0100

1VC RECALIBRATE TEST

015100

104000

- 833335

000137

015242

5§22 015106

112737

000000

004737

043016

015116
015122

015130

112737
012737

015134 000404

000200
000007

015136
015149
015142
523 015146
ggg 015152

000240
104000
000137
004737
004737

526 015156
015162
015164
015166
527 8}3};2

004737
000404
000240
104000
000137

042546

§28 015174
015200

004737
000405

043564

015206
015210
529 015214
530 015222
531 015224
532 015226
533 015226

004736
020137
032737
001001
104215

015202
015204

004737

Emy

MOYS

#RMCS7T,PUTINX

:SETUP PUT INDEX TABLE

JSR

PC,PUT

;60 WRITE RMCST VIA PUT SUBROUTINE

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
*GO TO 88 IF ERROR
*SETUP FOR STATUS FETCH
‘WAIT FOR RECAL TO COMPLETE

B8R

015242

042462

48:

043370

015242

015242
010000

68:
7$:

044416

NOP
EMT
JMP
JSR
JSR

8s:

536

*GO T0 8% IF ERROR

#200,PUTINX+1
:SET TERMINATOR BYTE
#RECAL ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = RECAL'GO

PC,GETSTS

PC.TIMOUT

160 YO 48 IF NO ERROR

JSR
BR
NOP
EMT
WP

PC,GET
5$

;60 READ REGISTER(S) WITH GET SUBROUTINE
*G0 TO 5 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 88 IF ERROR

JSR
BR
NOP
EMT
JSR
P
BIT
BNE
EMT

PC,PRIERR
6$

:60 CHECK FOR PRIMARY ERRORS
+G) TO 68 IF NO ERROR

PC,a(SP)+
8s
#IVC.RMER2]
78
215

*G0 BACK FOR MORE ERROR CHECKS
:G0 TO B8 IF ERROR
*IVC SHOULD BE SET
*IT IS - GO CHECK SECONDARY ERRORS

JSR

PC,SECERR

B8R

000240
104000
004736

;ERROR DEFINED BY PUT SUBROUTINE

MOVB
MOV

000240
104000

015232 000403

015236
015236
015240
ggg 015242

NOP
EMT
JSR

PC.a(SP)+

*RETURN HERE IF ERROR
*ERRCR # DEFINED BY PRIERR SUBROUTINE

;60 CHECK FOR SECONDARY ERRORS

*GO TO 88 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBRGUTINE
160 BACK FOR MORE ERROR CHECKS

F | 32338333332 2332 4223232232228 328223212323 23¢81222323 3222211223233 22203

TRTEST 15

IAE RECALIBRATE TEST

oa } 3 3332433383333 233233808 2233483338323 3223 3227383332833 332323 3322233223321

015242
015242
015244

000004
000240

01525¢
015256

013700
013701

015246

015262

612706

001190

012737

000001

537 015270

012737

538 015276

004737

015302

T5115:!

054130

001276
001466
000015

SCOPE
HOP

MoV

#STACK, SP

MOV

o1, STINES

JSR

PC,TSTPRP

MoV
MoV

001206

001225

MOV

041532

JWORD

$BASE , RO
TSTQUE ,R1

#15,$TESTN
054130

:SCOPE CALL
‘START OF TEST

SINITIALIZE STACK POINTER

‘RO = UNJBUS ADDRESS
*(R1) = DEVICE BEING TESTED
1:D0 1 ITERATION

1ISET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

$CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE &
:RECALIBRATE IF “'SKI" OR 'PIP'*
:VERIFY RECALIBRATION

IS SET

(IR NDAO RM80 FCTNL PT1 MACRO v04.00 28-JAN-82 16:264:51 PAGE 13-17
115
IAE RECALIBRATE TEST

015304

000404

B8R

015310

104000

EMT

t15306

000240

NOP

539 8};;}%

00037

015504

540 015316

012737

177777

542 015332

012737

000007

544 015344

112722

000034

546 015356

112752

541 015324

012737

177777

543 015340 012702 001545
545 01535C¢

112722

015504
042462
043370

552 015412

004737

042546

015420
015422
553 8}22%8

000240
104000
000137

015504

554 015430

004737

043564

015436

000240

015434

015440
0156442
555 8};223

000404

000405

104000
004736
000137
004737
000405

054260

557 8}2293

000137

015504

004737
000403
000240
104000
004736

044416

015456
015460
015462

558 015470
015474
015476
015500
015502
gzg 015504

000240
104000
004736

001412

MoV

#RECAL !GO, RMCS10

MOV

MovB

MOVB

Mov8
MOVB
JSR
BR
NOP
EMT
JMP
JSR
JSR

28:

JSR

B8R

NOP
EMY
JMP

JSR
B8R

015506
015506
015510

015514
015520

000004
000240
01%706

013700
013701

001276
001466

sRMDC WILL BE ALL ONES

#-1,RMDAO

'PUTINX.Ré

#RMDC, (R2) +

JRMDA W1LL BE ALL ONES

JR2 POINTS TO PUT INDEX TABLE
;SETUP PUT INDEX TABLE

#RMDA, (R2)+

#RMCST, (R2)+
#200, (R2)+
PC,PUT
23

260 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 2% IF NO ERROR
;RETURN HERE IF ERROR

68
PC,GETSTS
PC,TIMOUT

;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 68 IF ERROR
JSETUP FOR STATUS FETCH
sWAIT FOR GO TO RESET

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 6% IF ERROR

PC.PRIERR

:60 CHECK FOR PRIMARY ERRORS

;GO TO 3% IF NO ERROR

;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR

PC.RCLSTS
5%

;G0 VERIFY RECALIBRATE OPERATION
:GO TO 58 IF NO ERROR

JSR
BR
NOP
EMY
JSR
JMP

PC.3(SP)+
63

;GO TO 6% IF ERROR

JSR
BR
NOP
ENT
JSR

PC,SECERR
63

PC.a(SP)+
6$

sERROR # DEFINED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
;GO TO 68 IF ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY RCLSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;G0 CHECK FOR SECONDARY ERRORS
;G0 TO 63 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED B8Y SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

PC,8(SP)+

JINRARARARRNA N ANR AN

SRR

R C AR CRNRAANARARN RN R

L L

T5116:
001100

;GO TO 6% IF ERROR

EMT
JSR
JMP

s*TEST 16

015504

JRETURN HERE IF ERROR

JERRQOR # DEFINED BY TSTPRP SUBROM'TINE

#-1,RMDCO

Mov

6$:

561

;GO TO 18 IF NO ERROR

Moy

0014620

NOP

556 015450
015454

001446

000200
043016

015504

SE@ 0101

000000

112722
004737
000404
000240
104000
000137
004737
0064737

JMP

000006

547 015360
548 015364
015370
015372
015374
015376
549 015402
§§? 015406

015416

SCOPE
NOP
MoV

MOV
MOV

RECALIBRATE AT OFFSET

#STACK,SP

$BASE ,RO
TSTOUE.RI

RRRAAARNAARS
i e d e eitgssds

:SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER

;RO = UNJBUS APCDRESS
J(R1) = DEVICE BEING TESTED

CZRNDAQ RMS0O FCINL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 13-18
116

SEG 0102

RECALIBRATE AT OFFSET

015524

012737

000001

§63 015540

004737

041532

001206

562 015532 012737 000016 001226
015544

050020

MOV

#1,$TIMES

::D0 1 ITERATION

JSR

PC, TSTPRP

;PREPARE DEVICE FOR TEST

MOV

.WORD

&, STESTN
050020

“SSET TEST NUMBER IN APT MAIL BOX
STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

*PACK ACKNOWLEDGE If

015546 000404
015550

015552
" 83??23

565 015560
015566
015574

015602

000240

015762

112737
112737
012737

000000
000200
000015

004737

015606 0004604

043016

015610
015612
66 332233

000240
104000
000137

015762

567 015620
015626
015634

112737
112737
012737

000000
000200
000007

015646

000404

015656
;gg 015660

000137

015762

004737

0462462

573 015664

004737

043370

574 015670

004737

042546

015676

000240

015642

015650
015652

570

1 015660

572

004737

000240
104000

015674 000404

015700
575 8};;85

104000
000137

043016

EMT
JMP

001545
001546
001412

MOVB
MOVB
MoV

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO

B8R

JSR

001545
001546
001412

NOP
EMT
JMP

015762

004737
000405
000240
104000
004736

043564

000137

015762

578 0157§6
015732
015734
015736
015740
015742

004737
000405
000240
104000
004736
000137

054260

015762

*RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 78 IF ERROR

PC,PUT

;60 WRITE RMCST VIA PUT SUBROUTINE

*RETURN HERE IF ERROR
*ERROR DEF INED BY PUT SUBROUTINE
:GO TO 78 IF ERROR

260 TO 28 IF NO ERROR

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#RECAL 'GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = RECAL'!GO

JSR

NOP
EMT

38:

*G0 TO 18 IF NO ERROR

MOVB
MOVB
MOV

PC,PUT
78

:60 WRITE RMCST VIA PUT SUBROUTINE
*GO TO 38 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

‘GO TO 7$ IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

PC. TIMOUT

;60 TO TIMOUT SUBROUTINE

JSR

PC,GET

:GO READ h.GISTER(S) WITH GET SUBROUTINE

B8R
”

560 TO GETSTS SUBROUTINE

JSR

NOP

576 015706
015712
015714
015716
015720

577 8};;35

B8R

NOP

104000
000137

VOLUME NOT VALID

SVERIFY PACK ACKNOWLEDGE

EMT
JMP

4
78

JSR
BR
NOP
EMT
JSR

PC,PRIERR
5%

JSR
BR

PC.RCLSTS
6$

Jmp

NOP
EMT
JSR
JMP

PC.3(SP)+

PC,a(SP)+
78

<60 TO 43 .. NO ERROR

‘RETURN HERE IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE
160 TO 78 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
+G0 TO 5$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

*60 TO 7$ IF ERROR

;60 VERIFY RECALIBRATE OPERATION
*GO TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY RCLSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
:GO TO 78 IF ERROR

CZR NDAO RMBO FCTINL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 13-19
94
n6
RECALIBRATE AT OFFSET

579 015746
580
e
P
PO P

00
004736

7s:

581
582
583

6$:

044416

SRR

JSR
B8R
NOP
EMT
JSR

*TEST 17

sG0 CHECK F OR SECONDARY ERFORS
:60_TO 78 | F NO ERROR

PC.a(SP)+

:ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

PC,SECERR

OO00OO0O0O

= 3V 1%, 1V 1V 1V 1V 1

(o 3
K
o

000004
000240
012706

—

585

013700
013701
012737

014

004737
054130

001100
001276
001466
000017

001226

041532

:RETURN HERE IF ERROR

AN AR AR AR A AR AR N AN AN AAN RN AN A AR N AANA AR AN AN AP ARNRNRARRNS

DRIVE CLEAR TEST

SRANRARRARNAARAA L RARAA AR

TST17

SEQ@ 0103

SCOPE
NOP
MoV
MoV
MOV
MOV

JSR
-WORD

AR AANANAAARNRANAAARA
AN R A AN AARAAANNONAAS

#STACK,SP

$BASE RO

TSTQUE ,R1
#17,STESTN
PC,TSTPRP

054130

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED

s;SET TEST NUMBER IN APT MAIL BOX
sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER €& SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
$VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF ''SKI" OR ‘PIP'' IS SET

AR
S
OBNOONN

WNLNLNININI
) = —[
ONNIOONSNIONN o

b sl
b e
b ekb

ONONONONONONONDS [+

med wd
e i B

737
737
702
72
72

016232
000000
000011
177777
1727777
004000
001545
000006
000042
000014
000000
000200
043016

042462
043370

001420
001412
001426
001454
001454

18:

:GO_TO 18 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 68 IF ERROR

#0,RMDAO

#~1,RMER10
#-1.RMER20
#LSC.RMER20
#PUTINX. R2

#RMDA, (R2)+
#RMERD, (R2)+

;DELETE FOR _PASS 2 ETCH

:R2 POINTS TO INDEX TABLE
:RMDA CLEARS LBT

ARMERT. (R2)
+
#RMCST. (R2)+

#200, (R2)+
PC,PUT

28’

2%:

042546

PC,GETSTS
PC,TIMOUT
PC,GET

v
o
b

sVERIFY RECALIBRATION

#DRVCLR!GO,RMCS10

SOONONONOr

Puur Guer Qo Puur Guur- Prur-Pour

—

OOOOOOO oo
COOO0OO

prer Qe Grar Ganr Gu-gour-Sour

~NO

590 016052
591 016060
592 016066
593 016072
594 016076
595 016102

b ek A O OO O

589 016044

012737
012737
2737

b e

588 016036

016024

586 016030
587 016030

b e

016022

016020

000404
000240
104000
000137

MPINININIRN

016016

3s:

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 2% IF NO ERROR

:RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
sESCAPE IF ERROR
;SETUP FOR STATUS FETCH

sWAIT FOR DRIVE CLEAR TO COMPLETE

GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 38 IF NO ERROR

;RETURN HERE IF ERROR

sERROR # DEFINED BY GET SUBROUTINE

:SKIP REMAINDER OF TEST

oW
jECD
N EEINE A O

nd codd ad-

004737
5

043564

JSR
B8R

016232

48:

056022

016206

000137

016232

004737

044416

5$:

6s:

PAGE 13-20
PC,PRIERR

SEQ 0104
;G0 CHECK FOR PRIMARY ERRORS

JSR
JMP

PC,a(SP)+
6$

:6G0 TO 4% IF NO ERROR
‘RETURN HERE IF ERROR
JERROR # DEFIMED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
GO TO 63 IF ERROR

JSR
B8R
NOP
EMT
JSR
JMP

PC,DRVSTS

;60 VERIFY DRIVE CLEAR

PC,3(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DRVSTS SUBROUTINE
GO BACK FOR F.YE ERROR CHECKS

JSR
B8R
NOP
EMTY
JSR

PC.SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP

EMT

NI
=b

b
ke

607
608

o cd

oONONON OO

QOOO0O00OCO o

606

b—

C 4 R NDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51
T17
DRIVE CLEAR TEST

63
63

PC.a(SP)+

160 TO 58 IF NO ERROR

GO TO 6% IF ERROR

160 TO 68 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

tittttttttttttt*t*ttttttttttttttttttttttttttttttttttttttttttttfi

*TEST 20

NOP TEST

tt*ttttttttttttttttt'ttttttttttttttttttttttttttt*tttttttttttttt

TSTZO
001100
001276
001466

000020

614

MOV
MOV
MoV

001226

041532

;SCOPE CALL

SCOPE

NOP
Mov

JSR
.WORD

#STACK, SP
$BASE,RO
TSTQUE R

#20,STESTN
PC.TSTPRP

054130

‘START OF TEST

*INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

*(R1) = DEVICE BEING TESTED

*:SET TEST NUMBER IN APT KAIL BOX
:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER © SELECT DEVICE

*VERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID

Hnn
o
O

presr-hur-Pourd

s ol

000000

18:

043016

004737

042546

000404

*ERROR # DEFINED BY TSTPRP SUBROUTINE
+G0 TO 78 IF ERROR

MOVB
Move

#RMCS1,PUTINX

;SETUP PUT INDEX TABLE

NOP
EMT

2$:

IS SET

JSR

el
o
ol

(=201,
.]

OO~

004737

016462
042462

*VERIFY RECALIBRATION
:G0 TO 1S IF NO ERROR
*RETURN HERE IF ERROR

JMP

EMY

jolele]

el emed

016462

s sl o

~NO

—

s wnd o

elelelelelelelalealelalelele

VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘'SKI"* OR *PIP"*

#200, PUTINX+1
#NOP!GO,RMCS10
PC,PUT
28’
7$

JSR

PC,GETSTS

JSR
BR

PC,GET

:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = NOP!GO
:GO WRITE RMCS1 VIA PUT SUBROUTINE
:G0_TO 28 IF NO ERROR
:RETURN HERE IF ERROR

; ERROR DEFINEDBBRPUT SUBROUT INE
;G0 10 7

:SETUP FOR STATUS FETCH
+GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 38 IF NO ERROR

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-21
120
NOP TEST

016352
016354
621 16336

000240
104000
000137

622 016362
016366
016370
016372
016374
c25 S16376

004737
000405
000240
104000
004736
000137

624 016402
016406

004737
115760

016412

000405

016410
016414
016416

016462

043564

016462

050562

000010

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:60 TO 7$ IF ERROR

JSR
BR
NOP
EMT
JSR

PC.PRIERR
4s

PC.a(SP)+
7S

;GO CHECK FOR PRIMARY ERRORS
:60_TO 4$_IF NO ERROR
SRETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

JSR_
.WORD

PC,CMPERRSTS
NDTMSK

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1

:60_TO 58 IF NO ERROR

NOP
EMT

016420
¢ S164g2

004736
000137

626 016426
016432
016434
016436
016440
i 16442

004737
000405
000240
104000
004736
000137

060210

628 016446
016452
016434
016456
016460
829 016462

004737
000403
000240
104000
004736

644416

016462

016466
016472
016476
g3 016502

012706
013700
013701
012737

001100
001276
001466
000021

004737

041532

633 016510

016514

016516
016520
016522
016524

000240

JSR
BR
NOP
EMT
JSR

;60 CHECK FOR SECONDARY ERRORS
:60 TO 7S _IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

RA AR

054130

0U0404
000240
104000
000137

Tsr21:

017006

PC.a(SP)+
7S

:60 BACK FOR MORE ERROR CHECKS
:60 TO 78 IF ERROR

PC,SECERR
78

PC,a(SP)+
A AN A AR AR A AN AN

EAN AR

AR RN R AR R A RRA R RN R AR ARRR RN

OFFSET TEST

AR AR AL

SCOPE

NOP

001226

:RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPERRSTS SUBROUTINE

;GO CHECK FOR CHANGES IN DRIVE STATUS
:60 TO 68 _IF NO ERROR
:RETURN MERE IF ERROR
:ERROR # DEFINED BY STCDRVS1S SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
:60 TO 78 IF ERROR

016464

SMASK FOR RMER2

JSR
PC.STCDRVSTS
BR
63
NOP
EMT
JSR
PC,a(sP)+
P78

S*TEST 21
000004

DPE

JSR
P

S o AR

016462
016462

:60 TO 78 IF ERROR

78:

631

SEG 0105

NOP
EMT
w78

:WORD

000240
104000

ASTACK,SP
SBASE,RO
TSTQUE.R!
#21,STESTN

JSR_

PC,TSIPRP

BR
NOP
EMT
JWP

RN RN

A R AR A RANA AR R R AAR AR AR RRRNAARARANAAARNRRL

:SCOPE CALL

MOV
MOV
MOV
MOV

.WORD

054130

1$
98

:START OF TEST

:INITIALIZE STACK PCINTER
:R0_= UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE &
:RECALIBRATE IF "'SKI" OR 'PIP'* IS SET
:VERIFY_RECALIBRATION
:60_TO 18 _IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 10 98 IF ERROR

CINC PT1 MACRO VD4.00 28-JAN-B2 16:24:51 PAG: 13-22

SEQ@ 0106

TEST

112737
112737

012737
004737
000404

636
637
638
639

063016

042546

000137

017006

004737

043554

18:

MOov8

MovB

658
659

wrh and wmds

656

b cnd arsd wmd

) wd

el vd ad

D ol cd

b wal) w=b

D wd mmb

[eleleislelelelolelelolelelelelelelelalalalelelelalelelalelolelo)

W= OO0 00N

ARRRATRERRRRRR

016630

004737
115760

3s:

001350
177776
000001

001142
001142
001140

100000

001350

001350
077777

001142
001142
001140

43:

004737
000403
000240
104000

PC,a(SP)+
9%

26O BACK FOR MORE ERROR CHECKS

#ATA ,RMDS]

RMDS1,$B8DDAT
#4CATA, SBDDAT
#ATA,SGDDAT

172

060210

7%:

JSR

104000

004736
000137

:GO CHECK FOR PRIMARY ERRORS

017006
044416

8s:

JSR

EMT

:GO_TO 4$ IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE

;60 TO 98 IF ERROR
sOFFSET MODE ON??
SYEST!

*BAD DATA FOR TYPEOUT

;600D DATA FOR TYPEOUT

;WAS ATTENTION SET 2?
SYES!!
BAD DATA FOR TYPEGUT
:G0OD DATA FOR TYPEOUT

PC,CMPERRSTS
NDTMSK
DPE

sMASK FOR RMER2

PC,a(SP)+
93

;60 TO 9% IF ERROR

017006

:GO READ REGISTER(S) WITH GET SUBROUTINE

PC,PRIERR

RMDSI ,$BDDAT
#°COM, SBDDAT
#0M,$GDDAT
156

6$:

:WAIT FOR GO TO RESET

ggH.RHDSI

5%:

:GO TO 2% IF NO ERROR
:RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
:G0 TO 98 IF ERROR
*SETUP FOR STATUS FETCH

;GO _TO 38 IF NO ERROR
sRETURN HERE TF ERROR
sERROR # DEFINED BY GET SUBROUTINE
:GO TO 9% IF ERROR

104000

004737
000405
000240

;G0 WRITE RMCST VIA SUT UBROUTINE

000010
000405
000240
004736
000137

PC.PUT

PC,GET

001350

050562

;SETUP PUT INDEX TABLE

#200,PUTINX+1
*SET TERMINATOR BYTE
NOFFSET!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO

9%
PC,GETSTS
PC,TIMLUT

re ¥

017006
000001

100000

#RMCS1,PUTINX

017006
062462
043370

004737
000404
000240
104000

001545
001546
001412

[« 3

zaesgscas

004737

001000
000200
000015

sCHECK ANY ERRORS NOT MASKED

sMASK FOR RMER1

;GO _TO 78 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK 7OR MORE ERROR CHECKS

PC,STCDRVSTS

:G0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+
9s

;GO TO 98 IF ERROR

PC,SECERR

;GO TO 8% IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY STCDRVSTS SUBROUTINE
:GO BACK _FOR MORE ERROR CHECKS

:GO CHECK FOR SECONDARY ERRORS
;60 70 98 IF NO ERROR
cRETURN HERE IF ERROR
cERROR # DEFINED BY SECERR SUBROUTINE

CZRNDAQ RM80 FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-23
121
OFFSET TEST

004736

660
661
662

LeTEST 22

001226

000137

017426

112737

000000

bl
eud b
b and =i

;:-o-n-a

REINERRS RS8R

b
e
b ol vod wah wed wub cod ) wnd wnd aubd b w=d ol wud wnd b v b b

[el-lelelalelelotlalalelelalalelelelolalaiNelalela]

146

004737

017426
042462

004737

042546

001545
001546
001412

#STACK, SP

MOV

TSTQUE ,R1

*(R1) = DEVICE BEING TESTED

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

*CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
+PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY FACK ACKNOWLEDGE
*RECALIBRATE IF ‘‘SKI” OR 'PIP"* IS SET
*VERIFY RECALIBRATION
:G0 TO 18 IF NO ERROR

JMP

128

*G0 T0 128 IF ERROR

MOV8
MOVB
MOV

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
NOFFSET!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO

B8R

NOP
EMT

100000

001350
orrer?
050562

001140
001142

001142

JSR

PC,GET

12$
#ATA ,RMDS
43

BIC

#ACATA, SBDDAT

EMT

#ATA,SGDDAT
RMDSI,SBDDAT

+:SET TEST NUMBER IN APT MAIL BOX

*TASK DESCRIPTOR AS FOLLOWS:

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

;60 WRITE RMCS1 VIA PUT SUBROUTINE

260 TO 28 IF NO ERROR

SRETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

*G0 TO 128 IF ERROR
sSETUP TO READ ALL REGISTERS

;GO READ REGISTER(S) WITH GET SUBROUTINE

*GO TO 38 IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

“60 TO 128 IF ERROR
*IS ATTENTION SET??
SYES!!

$GO0D DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

172

JSR
L.WORD

PC,CMPERRSTS
0

;CHECK ANY ERRORS NOT MASKED
‘MASK FOR RMER1

B8R

*60 TO 58 IF NO ERROR

.WORD

NOP

017426

JMP
8IT
BNE
MOV
MoV

PC.PUT

128
PC.GETSTS

EMT

3$:

054130

J"P
JSR

001350

*RO = UNIBUS ADDRESS

#22.8TESTN

NOP

017426
100000

$BASE ,RO

MOV

JSR

28:

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER

LWORD

NN P A RANRRRARR N AN AANRNNRNARNARINARNRAANAS

SCOPE
NOP
MOV

MOV

041532

b oad
e cad wnd
—b e

~ SNINNNNN
o QOOOO
(2% A —b 2 2 O
[+ NONOO
~

0O QOO0

puurt

001100
001276
001466
000022

043016

;G0 BACK FOR MORE ERROR CHECKS

GO/ATA TEST

RR NN IANARARNAR RN NN

TST22:

017042

S2&

PC,a(SP)+

IR IRANERRAARREAARPARARNEARACRNNRRANA
R AR ARG ARG h S c A RANRARRAAANRORRGNY
SRR

663
664

JSR

9$:

SE@ 0107

EMT
JSR

JMP

PC.@(SP)+

12§

*MASK FOR RMER?2

*RETURN HERE IF ERROR

*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

;GO TO 128 IF ERROR

CZRNDAO RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-24
122
GO/ATA TEST
678 017216

679 017216

112737

000000

001545

017232
017240

012757
004737

000001
043016

001412

017226
017244

11 7}7 000200

000406

001546

004737
000404

042546

017264 000240
*04000
c82 3;;5;2 000137 017426
683 017274

004737

017306
017306

104000
004736

684 017314

032737

017300 000405
017302 000240

685 017322

001411

043564

017310 000137 077426
100000

017354

104246

004737
115760

050562

001350

8S:

98:

000010

ANOP!GO,RMCS10
PC.PUT

:SET RMCSY OUTPUT BUFFER = NOP!GO
160 WRITE RMCS1 VIA PUT SUBROUTINE

NOP
EMT
JMP

NOP
EMT
JNP

104000
004736

692 3}%’3 000137 017426

693 017372 004737 060210

108

IZOO'PUTINXO1
68

*RETURN HERE IF ERROR
*G0 TO 128 IF ERROR

128
PC,GET
73

JSR

PC.PRIERR

;G0 CHECK FOR PRIMARY ERRORS

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

BIT

#ATA,RMDS

‘IS ATTENTION RESET??

MOV
8IC
CLR

RMDSI,SBDDAT
#-CATA, SBDDAT
$SGDDAT

JMP

BEQ

EMT

12§

246

JSR
LWORD

PC.CMPERRSTS
NDTMSK

BR
NOP

10$

*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

JSR

PC sn{onvsrs

;G0 CHECK FOR CHANGES IN DRIVE STATUS

124

017426

695 017412

004737

044416

JSR

PC,SECERR

017422

104000

698

EMT

B8R
NOP
EMT

128:

:CHECK ANY ERRORS 0T MASKED
*MASK FOR RMER1

PC,A(SP)
¢

000137

23(7, 017426

:BAD DATA FOR TYPEOUT
;600D DATA FOR TYPEOUT

EMT
JSR

PC,a(SP)+

017424 004736

SYES

*60 TO 108 IF NO ERROR
*RETURN HERE IF ERROR

JSR

017456 000403
017420 000240

260 TO 128 IF ERROR

SMASK FOR RMER2

004736

115

*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR

DPE

017404

- 8};2?3

260 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 7% IF NO ERROR

128

BR
NOP

104000

;G0 TO 6% IF NO ERROR

$ERROR DEF INED BY PUT SUBROUTINE

017376 000405
017400 000240
017402

JSET TERMINATOR BYTE

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
60 TO 128 IF ERROP

.WORD

017356 000405
017360 000240
017362
017364

MOV
JSR

B8R
NOP

686 017324 013737 001350 001142
687 017332 042737 077777 001142
688 017340 005037 001140

689 017344
690 017346
691 017346
017352

;SETUP PUT INDEX TABLE

JSR
BR

017266

SEQ@ 0108

#RMCST,PUTINX

movs

MOVB

017246 000240
017250 104000
680 8};535 000137 017426
681 017256
017262

58:

JSR

11§

12%

124

PC.a(SP)+

260 TO 128 IF ERROR

:60 TO 118 IF NO ERROR
*RETURN HERE IF ERROR

SERROR # DEFINED BY STCDRVSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

*G0 T0 128 IF ERROR

:GO CHECK FOR SECONDARY ERRORS

*G0 TO 128 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE

*GO BACK FOR MORE ERROR CHECKS

tttttttttttttitttttttttttttttttttttttttttttttttt'tt.ttttl'.tt'!

trssr 23

017426

WRITE ATA TEST

ttttttttttttttttttt*ttttt'*ittttttttiQtttt'ttttll.tttttltttt!tt

000004

t5123:

SCOPE

sSCOPE CALL

+ZRNDAQ RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-25
123
WRITE ATA TEST

017430
017432
017436
0174642
(17446

000240

001100
001276
001466

000023

699
700 017454
N17460

NOP
Mov
MOV
MOV
MoV

001226

041532

JSR
-WORD

017462
017464

000000
000200
000015
043016

PC.TSTPRP

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ‘'SKI ‘OR ‘PIP'" IS SET
sVERIFY RECALIBRATION
:GO _TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

#23,8TESTN

054130

1%:

RO = UNIBUS ADDRESS

..SET TEST NUMBER IN APT MAIL BOX

;GO TO 9% IF ERROR

#RMCS1,PUTINX
sSETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#OFFSET!GO,RMCS1 0
:SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
:60 WRITE RMCST VIA PUT SUBROUTINE

PC.GETSTS

004737

042546

PC,GET

;GO READ REGISYER(S) WITH GET SUBROUTINE

¢RETURN HERE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
;GO TO 9% IF ERROR
:igse!TENTION SET??

ool

OO
~N =~ -~
NN LN
~I
N NN

— -

NOO

~NOoO

—ds

égm
NN R

(=4
b=3

L= b
W SR

"(R1) = DEVICE BEING TESTED

017772
042462

b md
oed ek
b e s

~
O

cud ek ol e

001545
001546
001412

017772
100000

001350

001350
077727
100000

001142
001142
001140

000001
177400

b i ouh oD e
—

TSTQUE ,R1

$BASE R0

004737

707 017564
708 017566
OOODCOOOOOOOOLOOO00O

;START OF TEST
sINITIALIZE STACK PCINTER

:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUTINE
:60 TO 98 IF ERROR
:SETUP TO READ ALL REGISTERS

017552
706 017556

720

#STACK,SP

017772

SEQ 0109

001430

043016

3s:

48:

001545
001546

ZéTA.RHDSl

RMDS],SEDDATY
#°CATA, SBDDAT
g;EA.SGDDAT

*BAD DATA FOR TYPEOUT

1(R1) .R2
#~CATNMSK
R2

:R2 = ATTENTION BIT

R2 ,RMASO

EE.PUT

sPUT RMAS BIT IN OUTPUT BUF
sWRITE REGISTER INDEX IN TABLE
sWRITE TERMINATOR
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

sRETURN HERE IF ERROR
sERROR # DEF INED BY PUT SUBROUTINE
;60 TO 98 IF ERROR

#RMAS ,PUT INX
#200, PUTINX+1
b

017772
042546

017772

5%:

:GO_TO 38 IF NO ERROR

PC,GET

63
98

;600D DATA FOR TYPEOUT
sCLEAR SIGN EXTENSIiON

;60 _TO 58 IF NO ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO_TO 63 1F NO ERROR
sRETURN HERE IF ERROR
¢ERROR # DEFINED BY GET SUBROUTINE
;GO TO 98 IF ERROR

-(RNDAQ RMBO FCINL PT) MACRO v04.00 28~JAN-82 16:26:5°
123
WRITE ATA TEST
721 017700
722 037700

004737

017772
100000

001350

001142

062737
005037

077777

004737
000000

050562

106247

6%:

043564

001740

PAGE 13-26

JSR
BR

PC,PRIERR
7$

001142

PC.a(SP)+

8%5

ggTA,RHDSI

:G0 TO 98 IF ERROR
cIS ATTENTION RESET??

MOV

RMDS]
, $BDDAT

*BAD DATA FOR TYPEOUT

CLR
EMT

$GDDAT
247

;600D DATA FOR TYPEOUT

JSR
LWORD

PC,CMPERRSTS
0

sCHECK ANY ERRORS NOT MASKED

BIC

733

PR iR

**TEST 24

SIRARARR AR

017772
017772
017774
017776
020002
020006
020012

734
735 020020

020024

000004
000240
012706
013700

013701
012737

004737
054130

75126

001466

000024

001226

041532

000000
000200
000015
043016

020364
042462

001545
001546
001412

TR R

i isasidtsiitsiiisiiissiniiissasss]
AN N AN NN RN RRANRINNAAAARAAAERAR

sSCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER

MOV
MOV

#STACK,
SP
SBASE ,RO

MOV

#24,$TESTN

JSR

PC.TSTPRP

JNP

108

MOVB
MOVB
MOV
JSR

#RMCS1,PUTINX
sSETUP PUT INDEX TABLE
#200,PUTINX+1
*SET TERMINATOR BYTE
#OFFSET!GO,RMCS1 0
SET RMCS1 OUTPUT BUFFER = OFFSET!GO
FC.PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

NOP
EMT

B8R

NOP
EMT

28:

ERROR/ATA TEST

SCOPE

LWORD

020364

il adiddiadl

AR AR AR AR NIRRT

MOV

029026

736 020040
737 820060

NOP

001100
001276

sMASK FOR RMER1
sMASK FOR RMERZ
:GO _TO 9% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

¢
PC.a(SP)

JSR

s Lt

cYES!!

NOP
EMT

9%:

sRETURN HERE 1f ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE
:GU BACK FOR MORE ERROR CHE(CKS

#-CATA,SBDDAT

JWORD

731 017772

;G0 CHECK "OR PRIMARY ERPORS

26O _TO 78 IF NO ERROR

NOP
EMT
JSR

JMP

7$:

SE@ 0110

JMP
JSR

TSTQUE ,R1

054130

sRO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

ssSET TEST NUMBER IN APT MAIL B8OX
:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI" OR 'PIP'* IS SET
:VERIFY RECALIBRATION
:60 TO 18 {F NO ERROR
RETURN HERE IF ERROR
ERROR # DEFINED BY TSTPRP SUBROUTINE

;60 TO 108 IF ERROR

60 TO 28 IF NO ERROR

‘108
PC.GETSTS

*ERROR DEFINED BY PUT SUBROUTINE
*G0 TO 108 IF ERROR
*SETUP TO READ ALL REGISTERS

*RETURN HERE IF ERROR

IRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN-B82 16:26:51 PAGE 13-27

SEQ 0111

ERROR/ATA TEST

5558

SREGNGS
W
S3NSEC
NN Wl =LN

=4
1
=P

NN
e

ONOOBRNNNN

b
TM

[ Puryir
ey

QOO ==

751 020256
752 020256

OW
HNN N N

020146
020154
020156
020156

O~OO

745
746
747
748

PRI

743 020132
744 320140

004737

-—

761 Q2
742 02C

ONONSNO

740 020104

O b b §?°C"D
RIS ey

124

000240
104000
000137

004737
000404

000240
104000

753 020274

754 020302
755 020304
756 020312

757 020320
758 020326
759 020339
760 020330

020334
020326
020340
02034

104250

042546

020354

100000

001350

001350
077777

001142
001142
001140

100000

001545
001546
001412

100000

001350

100000
001350
077777

001140
001142
001142

004737
000403

044416

020364

sBAD DATA FOR TYPEOUT

108
#RMCS1,PUTINX
#200, PUTINX+1
PC.PUT

108

:GOOD DATA FOR TYPEOUT
sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
sSET RMER1 OUTPUT BUFFER = UNS

;GO WRITE RMERT VIA PUT SUBROUTINE
;GO _TO 58 IF NO ERROR
sRETURN HERE IF ERROR
cERROR DEF INEC BY PUT SUBROUTINE
:G0 TO 108 IF ERROR
;SETUP PUT INDEX TABLE

sSET TERMINATOR BYTE
sSET RMCS? OUTPUT BUFFER = NOP!GO
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
:60 TO 63 IF NO ERROR
sRETURN HERE IF ERROR
<ERROR DEFINED BY PUT SUBROUTINE

:GO TO 108 IF ERROR

sGO READ REGISTER(S) WITH GET SUBROUTINE
:GO_TO 78 IF NO ERROR

108

cERROR # DEFINED BY GET SUBROUTINE
;60 TO 108 IF ERROR
:$ES’IA STILL SET??

#ATA RRODS |

#ATA, SGDDAT

RMDS] ,$8DDAT

#2CATA ,$BDDAT

cRETURN HERE IF ERROR

:GOOD DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

250

8s:

PC,STCDRVSTS

PC,3(SP)
¢

10§

9%:

PC,SECERR

10$

10$:

SYES!!

PC,GET

BIT

cRETURN HERE IFf ERROR
sERROR # DEFINED BY GET SUBROUTINE

RMDS]1,$BDDAT

#NOP
GO, RMCS10

78:

;60 TO 38 IF NO ERROR
;G0 TO 108 IF EHROR
:}SsfifA SET??

108

#RMER1T
, PUT INX
#200,PUTINX+1
#UNS ,RMER10

5%:

:GO READ REGISTER(S) WITH GET SUBROUTINE

WATA RRDS |

#°CATA ,SBDDAT
g;;A,SGDDAY

6$:

042546

060210

020364

004737
000405
000240
104000
004736
000137

PC,GET

gg.PUT

020364

8IT

4S:

000014
000200
040000
043016

000000
000200
000001
043016

38:

JSR
B8R
NOP
EMY
JMP

JSR

PC,8(SP)+

:G0 CHECK FOR CHANGES IN DRIVE STATUS
2GO _TO 98 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY STCDRVSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
260 _TO 108 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

SIRANRRAARRAAAARAARNAANLREAANTARARAARRAAKANANRARARCAARAARNRAANCRRDNS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-28
125
PROGRAM INTERRUPT TEST
;*TEST 25

020364

(000004
000240

020374

013700

012706

t725:

001100

001276

004737

020416 054130

SCOPE
NOP

MOV

#STACK, SP

MOV
MoV

TSTQUE ,R1
#25,$TESTN

JSR

PC.TSTPRP

mov

020400 013701 001466
266 020406 012737 000025 001226
767 020412

PROGRAM INTERRUPT TEST

ttttttt."t.tttttttttt't'ttt!tttttt'ttttttt'ttttltltt'tttttttt.

020364
020366

020370

SEQ@ 0112

041532

LWORD

$BASE , RO

054130

:SCOPE CALL
*START OF TEST

INITIALIZE STACK POINTER
*RO
= UNIBUS ADDRESS

1(R1) = DEVICE BEING TESTED
*:SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

SVERIFY CONTROLLER CLEAR OPERATION

*PACK ACKNOWLEDGE IF voLune NOT VALID
:VERIFY PACK ACKNOWLEDGE

020420
020422

02C426
268 gggzgg

000404
000240

BR
NOP

104000
000137

021054

769 020432

113702

001272

771 020442

011204

770 020436 042702

772 020444
773 020450
774 020456
775 020462
776 020466

016205
012712
012762
113703
042703

777 020472
778 020474
779 020476
780 020500
781 020502
782 020506

000303
005303
100001
005003
042703
000240

784 020514
785 020520
786 020522

012746
010346
012746

783 020510

787 020526

788 020534

012746

012737

000002
020714
000300
001273
177400

177777

001430

000200

001545

004737

043016

202 858?85

000137

021054

112737

000000

793 020566

000404
000240
104000

020574
020602

112737 000200
012737 000115

020614

000404

020610 004737 043016
020616

000240

001545

001546
001412

(R2) ,R%

*SAVE HANDLER ADDRESS

2(R2) ,RS
#98, (R2)
#PR6, 2 (R2)
SVECT1+1,R3
#AC<377>R3

SWAB
DEC
8PL
CLR
BIC
NOP

R3
R3
23
R3
#*CPR7.R3

*CLEAR SIGN EXTENSION

*SAVE HANDLER PRIORITY
SWRITE HANDLER ADDRESS AND
pnxonxrv FOR THIS TEST
*R3= INTERRUFT LEVEL
$CLEAR SIGN EXTENSION
;DECREMENT INTERRUPT LEVEL

#PR6,~(SP)

::PUSH #PR6 ON STACK

#-1.RMASO

SWURITE ONES IN RMAS TO

MOV
MoV
MOV

268~ (SP)
R3, ~(SP)
#58.-(sP)

MOVE

WRMAS.PUTINX

MOVE

:R2 = INTERRUPT ADDRESS

MOV
MOV
MoV
MOVB
BIC

MoV

001545

SVECT1,R2

#AC<378>,R2

MOV

020652

791 020550

020554
020556
020560

2s:

000300

000016

112737

000002

168

BIC

MOV

177437

020644

EMT
JMP

MOV8

177400

112737

;gg 020542

*RECALIBRATE IF **SKI" OR ‘PIP'’ IS SET
*VERIFY RECALIBRATION
*GO TO 1S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO 10 168 IF ERROR

#200,PUTINX

*3PUSH #6$ ON STACK
*:PUSH R3 ON STACK
12PUSH #58 ON STACK

-CLEAR ALL ATTENTIONS

JSR

PC,PUT

163

MOVB

#RMCS1,PUTINX

:SETUP PUT INDEX TABLE

PC.PUT

GO0 unxrk
RMCST VIA PUT SUBROUTINE

8R
NOP
EMT

MOVB
MOV

JSR

B8R

NOP

:60 WRITE REGI
STER(S) WITH PUT SUBROUTINE

*60 TO 38 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*60 TO 163 IF ERROR

#200.PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO!I1E RMCSTO
;SET RMCS1 OUTPUT BUFFER = OFFSET!GO!'IE

so TO 4$ IF NO ERROR

*RETURN HERE IF ERROR

794
795
796
797
798

020620
020622

020626
02066
020632
020636
020642

104000

000137

021054

004737
004737
012703
000002
005303
100376

043370
042462
000205

4(8:

5%:

EMT
JMP

JSR
JSR
MOV
RTI
DEC
8rPL

168
PC.TIMOUT
PC.GETSTS

#205.R3
R3
5%

+ERROR DEF {NED BY PUT SUBROUTINE

;G0 7O 16% IF ERROR

;WAIT FOR COMPLETION
;SETUP TO READ ALL REGISTERS
;R3 = GROSS TIMEOLT
;DROP CP PRIORITY
sTIMEOUT THE INTERRUPT

s TIMEOUT BEFORE INTERRUPT
000002

004737

062546

000137

021054

000404
000240
104000

043564

021054

020724

042546

HOW
OWVIN

043564

021054

104000

050562

YB35

(%]
)

804 020650
805 020652
806 020652
020656
020660
020662
020664
807 020670
808 020670
020674

ggzess
38 5858
NS RO o
3

SE@ 0113

PROGPAM INTERRUPT TEST

~
W
~

RNDAO RM30 FLTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-29

3
&~

021054
060210

6$:

7%:

8s:

:
9%
108:

118:

128:

13s:

sRAISE CP PRIORITY

RTI

JSR
B8R
NOP
EMY
JMP

PC,GET

JSR
B8R
NOP
EMT
JSR
JMP

PC,PRIERR

EMT
B8R

251

coP

(SP)+,(SP)+
#108, (SP)

sADJUST STACK
s CHANGE RETURN ADDRESS
sRAISE CP PRIORITY

JSR
B8R
NOP
EMT
JNP

PC,GET

168

:GO READ REGISTER(S) WITH GET SUBROUTINE
;60 _TO 118 IF NO_ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
:6G0 TO 16$ IF ERROR

JSR
B8R
NOP
EMT

PC.PRIERR

sGO CHECK FOR PRIMARY ERRORS

MOV
RTI

168

PC,a(SP)+

168

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 78 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 168 IF ERROR

;G0 CHECK FOR PRIMARY ERRORS
:60 _TO 8% IF NO ERROR
¢RETURN HERE IF ERROR
<ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 163 IF ERROR

128

11$

12§

:60_TO 128 IF NO ERROR
cRETURN HERE IF ERROR
;ERROR & DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;G0 TO 16% IF ERROR

JSR
JoP

PC,a(SP)+

JSR
.WORD
.WORD
B8R
NOP
EMT
JSR
JnP

PC,CMPERRSTS
ND TMSK
DPE

16§

:G0 BACK FOR MORE ERROR CHECKS
;60 TO 168 IF ERROR

JSR

PC,STCDRVSTS

:GO CHECK FOR CHANGES IN DRIVE STATUS

168

138

PC,a(SP)+

sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER]

;MASK FOR RMERZ2
;GO _TO 138 IF NO_ERROR
sRETURN HERE 1F ERROR
cERROR # DEFINED 8Y CMPERRSTS SUBROUTINE

.{RNDAQ RM80 FCTINL PT1 MACRO V04.00 28-UAN-82 16:24:51 PAGE 13-30

125

PROGRAM INTERRUPT

000240
104
004736

824 021026

004737

021034
021036
021040

000240
104000
004736

63 851855

021042

825 021046

826 021046
827 021050
ggg 021054

B8R

000137 021054

021032 000405

148

044416

SEQ 0114

158:

000002

168:

830

148

;GO TO 148 IF NO ERROR

NOP
ENT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:G0 CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

MoV
MOV

Ré. (R2)
RS.2(R2)

Jnp

000137 021054
010412
010562

TEST

021012 000405
021014
021016
021020

Jnp

164

15§

16$

;G0 TO 168 IF ERROR

260 TO 158 IF NO ERROR
$GO TO 16$ IF ERROR

N AARRERARARNRRANAAAAARNRAANANAANARARAAAANANRAREAAAERAANAANNEARACANS

S2TEST 26

INHIBIT INTERRUPT TEST

.. ARRRERRRERNDERRNARAAARNERANARRARARARAEACARARRRANARNRARAENRANRACAANNS

021056
021054
021056
021060
021064

000004
000240
012706
013700

001100
001276

831 021074

012737

000026

832 021102

004737

021070 013701
021106

054130

5126:

001466

SCOPE
NOP
MOV
MOV

#STACK, SP
$BASE ,R0

;SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

MoV

#26,$TESTN

+:SET TEST NUMBER IN APT MAIL 80X

JSR

PC,TSTPRP

MOV

001226

041532

LWORD

TSTOUE ,R1

054130

:(R1) = DEVICE BEING TESTED
:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER © SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION

*PACK ACKNOWLEDGE IF VOLUME NOT VALID

021110
021112
021114
833 85}}33

000404
000240
104000
000137

021422

834 021122

113702

001272

836 021132

011204

838 021140

012712

835 021126 042702
837 051134

839 021144

840 021152

MOV8

177400

016205

000002

012762

000300

113703

021362

001273

8R
NOP
EMT
Jmp

138

SVECT1,R2

;R2 = INTERRUPT ADDRESS

(R) ,Ré

*SAVE WANDLER ADDRESS

#2C<378>,R2

MoV

2(R25 ,RS

MoV

#88. (R2)

MOVEB

SVECTT+1.R

MOV

#PR6, 2 (R2)

841 021156 042703 177400

BIC

#AC<377> R

844 021172

MOV

R3,-(SP)

842 031162 012746
843 021166 012746
845 021174

846 021176

847 021200
848 021202

010346

000300
021414

MoV
MoV

005316

DEC

100001

005016
062716

849 021206 012746

BPL
177437

021350

28:

CLR
BIC

'PIP"* IS SET

“GO TO 18 I” NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 138 IF ERROR

BIC

MOV

000002

:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘'SKI” OR
*VERIFY RECALIBRATION

#PR6,~(SP)
2128, -(5pP)
(sP)

sCLEAR SIGN EXTENSION

*SAVE HANDLER PRIORITY

sWRITE HANDLER ADDRESS AND

*PRIORITY FOR THIS TEST
*R3 = INTERRUPT LEVEL

*CLEAR
SIGN EXTENSION

$;PUSH #PR6 ON STACK
$IPUSH #12$ ON STACK
* PUSH R3 ON STACK

(SP)
#*CPR7, (SP)

#6$,-($P)

::PUSH #63 ON STACK

CZRNDAO RMBO F CTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-31
126
INHIB! T INTERRUPT TEST

MoV

021276
042462
000000
000200

000115
043016

855
856
857
858 021274
859
860 021276
861 02130C
862
863 021302

021310
021316
021324
021330
021332
021334
021336
864 021342
865 021346
866
867 021350

021422

004737
012703
000002

000205

005303

MoV

#OFFSET!GO! JE ,RMCS10

B8R

112737
112737

012737
004737
000404
000249
104000

012712
005303
100376
000002

021364

021374

042546

021422

8$:
98:

108

104252

010412
010562
884

000002

128%:

;G0 WRITE RMCSY VIA PUT SUBROUTINE

138
PC,TIMOUT

:SET RMCS1 OUTPUT BUFFER = OFFSET!GO!IE

*G0O TO 38 IF NO ERROR
*RETURN HERE If ERROR

*ERROR DEFINED BY PUT SUBROUTINE

‘GO TO 138 If ERROR
;WAIT FOR GO = 0

:DELAY

MOVB
MOVB
MOV
JSR

#RMCS1,PUTINX
#200.PUTINX+1
#NOP.RMCS10
PC,PUT

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
*SET RMCS1 OUTPUT BUFFER = NOP
*60 WRITE RMCS1 VIA PUT SUBROUTINE

*60 TO 5SS IF NO ERROR
*RETURN HERE IF ERROR

:ERROR DEFINED BY PUT SUBROUTINE

JMP
MOV

13$
#205,R3

MoV
DEC
BPL

#98, (R2)
R3
73

e
P
MOV

(SP)+,(SP)+
(SP)+.(SP)+
#108, (SP)

:ADJUST STACK
*ADJUST STACK

JSR

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

RTI

ATl

B8R
115

PC,PUT

DEC

B8PL

RTI

022626

;SET TERMINATOR BYTE

*R3 = GROSS TIMER

EMT

68:
78:

;SETUP PUT INDEX TABLE

#200,PUTINX+1

#205,R3

B8R
58:

P PUSH #48 On STACK

MOV

NOP

021422
000205

004737
000404
000240
104000
000137

JNP

RTI

000000
000200
000000
043016

000137
012703
000002

000002

EMT

JSR

48:

100376

‘SETUP TO READ ALL REGISTERS

W#RMCST ,PUTINX

JSR

043370

PC,GETSTS

MOov8
MovB

::PUSH R3 ON STACK

#$,-(SP)

NOP

000137

R3,~(SP)

MOV
JSR

001 545
001 546
001 412

SE@ 0115

NOP
EMT

11$

JMP

EMT

252

MoV

R&. (R2)

+60 TO 138 IF ERROR

:NO ERROR

‘G0 TO 11$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

*GO TO 138 IF ERROR

138:
SIARRARAARARARNACANNCARANRRACLARAAREARAANRRARANAANRAARRARRAANARARRARCPIARER

TRTEST 27

RETURN TO CENTERLINE TEST

SERNRARRRRANAAANARAARNR
A RN R ARARANANRARNANARAAAANRAEAARARARCRANARNS

021422

fsr27:

CZRNDAO RMBO FCTNL PT) MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-32
127
RETURN TO CENTERLINE TEST
021422
021426
021426

000004
000240
012706

001100

021432 013700 001276

886 021450

021454

004737

054130

041532

021456
021460
021462
587 853293

000404
000240
104000
000137

021744

888 021470

112737

000000

021506
021512
021516
021520
021522
021526

012737
004737
000404
000240
104000
000137

000017
043016

ggq 021534

004737

043370

021476

889 021530

112737

000200

042462

892 021540

004737

042546

021546

000240

021544 000404

021550
893 853??%

104000
000137

894 021556
021562

004737
000405

021570
021572

004736
000137

021564
021566

895 021576

TSTQUE, a1
#27 . STESTN

*(R1) = DEVICE BEING TESTED
*;SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

001412

MOV
JSR
BR
NOP
EMT
JMP

#RTCIGO,RMCS10
PC.PUT
28

:SET RMCST OUTPUT BUFFER = RTC!GO
:GO WRITE RMCS? VIA PUT SUBROUTINE
*GO TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
*GO TO 98 IF ERROR

PC.TIMOUT

*WAIT FOR RECAL TO COMPLETE

MOVB

2s:

JSR
JSR
JSR

B8R
5

001140
001350
177776

001142
001142

100000

001350

813737 001350

001142

077777
100000

004737

050562

SVERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY_PACK ACKNOWLEDGE
*RECALIBRATE IF **SKI" OR ‘PIP'' IS SET
*VERIFY RECALIBRATION

;SETUP PUT INDEX TABLE

001350

042737
012737
104171

:CLEAR CONTROLLER & SELECT DEVICE

#RMCS1,PUTINX

000001

904 021646
905 021654
906 021662
907 021664
908 021664

*TASK DESCRIPTOR AS FOLLOWS:

MOVB

001546

4$:

5$:

EMT
JMP

68:

#200.PUTINX+1

PC,GETSTS
PC.GET

:SET TERMINATOR BYTE

*SETUP FOR STATUS FETCH

;G0 AEAD REGISTER(S) WITH GET SUBROUTINE

*GO TO 3% IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE
:G0 TO 98 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,PRIERR
4

160 CHECK FOR PRIMARY ERRORS
;60 TO 4$ IF NO ERROR

8IT

PC,a(SP)+
93

#OM,RMDS |

*G0 BACK FOR MORE ERROR CHECKS
‘G0 TO 9% IF ERROR

1)
$GDDAT
RMDSI,SBDDAT
#4COM, $SBDDAT
157
#ATA ,RMDS |
6$

SYES!!
*GOOD DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

JMP

BEQ
CLR
MOV
BIC
EMT
8IT
BNE

MoV

001142
001140

;PREPARE DEVICE FOR TEST

001545

043564

001411
005037
013737
042737
104157
032737
001012

054130

:RO_= UNIBUS ADDRESS

021744

$BASE ,R

:GO TO 1$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 98 IF ERROR

NOP

896 0216046
897 021606
898 021612
899 021620
900 0216§6
901 021630
902 021636

903 021640

MoV
MOV

BR
NOP
EMT
JMP

000240
104000

032737

nsrAcx sp

:SCOPE CALL
‘START OF TEST
SINITIALIZE STACK POINTER

.WORD

021744

004737

SEQ 0116

SCOPE
NOP
MoV

MOV

021436 013701 001466
- 021442 012737 000027 001226

RMDSI,SBDDAT

8IC
MOV
EMT

#*CATA,SBDDAT
#ATA,SGDDAT
171

JSR

PC,CMPERRSTS

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

orrser MODE OFF??

sWAS ATTENTION SET 2?2
SYES!!

:BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT

;CHECK ANY ERRORS NOT MASKED

CZRNDAO RM80 FCTINL PT1 MACRO v0&4.00 2B-JAN-82 16:24:51 PAGE 13-33
127

SEQ 0117

RETURN TO CENTERLINE TEST

021670
021672
021676

000405

021702
009 85};?3

004736
000137

021744

910 021710

004737

060210

021716
021720
021722

000240
104000
004736

021676
021700

021714

115760
000010

000240
104000

000405

NDTMSK
DPE
7%

:MASK FOR RMCR1
;MASK FOR RMER?
:G0 TO 7% IF NO ERROR

JSR
JMP

PC,a(SP)+
9s

;60 BACK FOR MORE ERROR CHECKS
160 TO 9% IF ERROR

JSR

PC,STCDRVSTS

NOP
EMT

o11 85%353

000137

021744

912 021730

004737

044416

021736
021740
021742
3}2 021744

000240
104000
004736

021734 000403

.WORD
. WORD
BR

B8R

NOP
EMT
JSR

91 S

;G0 CHECK FOR CHANGES IN DRIVE STATUS

;G0 TO 8% IF NO ERROR

*RETURN HERE IF ERROR
sERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

Jmp

PC.a(SP)+
9%

JSP

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

B8R
98:

:RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE

NOP
EMT
JSR

‘GO TO 9% IF ERROR

16O TO 98 IF NO ERROR

::*tttttttttttttttttttt*tttttttttttttttttttttttttttttttttttttttfit

J«TEST 30

READ IN PRESET TEST

:;ttttttttttt*ttttttttttttttttttttttttttttttttttttttttttttt*ttttt

021744
021744
021746

000004
000240

75130:

021754

013700

001276

o16 021764

012737

000030

917 021772

004737

021750 012706 001100
021760 013701

021776 054130

001466

SCOPE
NOP

MOV

#STACK, SP

MoV

TSTQUE,R1

MOV
001226

041532

$BASE , RO

MoV

#30,$TESTN

JSR

PC,TSTPRP

LWORD

054130

;SCOPE CALL
‘START OF TEST

SINITIALIZE
STACK POINTER
‘RO = UNIBUS ADDRESS

*(R1) = DEVICE BEING TESTED

*3SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER © SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

*PACK ACKNOWLEDGE IF VOLUME NOT VALID

022000 000404

B8R

MNP

10s

001545

MOV

#PUTINX ,R2

112722
112722

000034
000032

MOVE
MOVB

#RMDC.(R2)+
WRMOF . (R2)+

926 022050

012737

177777

MOV

#-1 RMDCO

928 022064
929 022072

012737
004737

022002
0220046

000240
104000

919 022012

012702

921 022022
922 022026

018 3533?3 000137 022326
920 022016

112722

000006

NOP
EMT

MOVB

923 022032 113722 000000
924 022036 11 72; ooo;oo
925 022042 01573
127777

001420

MOVB
MOVB
MOV

927 022056

001444

MoV

012737

017200

000021
043016

001446
001412

MOV
JSR

W#RMDA, (R2)+

:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF *SKI"" OR
*VERIFY RECALIBRATION

'PIP"*

IS SET

*G0 TO 18 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

*GO TO 108 IF ERROR

:R2 POINTS TO INDEX TABLE

#RMCSY.(R2)+
#200,(R2)+
#-1,RMDAO
NFME16ECT'HCT
! SSEI'OFD ,RMOFO
#RIP!GO,RMCSTO
PC.PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

L%SNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 13-34
READ IN PRESET TEST

000404

000137

022326

004737
000405

043564

104000

022326
001370
160577

936 022156

937 022164
938 022172
939 022174
940 022200
941 022202
942 022206
943 022210
944 022216
945 022222
946 022224
947 022230
948 022232
949 022240
950 022244
951 022246
952 022246
022252

022254
022256

005037
104160
005737
001406
013737
005037

001140

005737
001406
013737
005037

001372

004737

050562

104161

104162

115760

3s:

&~
o

042546

—h and

004737
000404
000240

oo
S

022124
022126
022130
022132
934 022136
935 022136
022142
022144
022146
022150
022152

004737

022326
042462
063370

w—d c—

932
933 022120

BR
NOP
EMT
JMP
JSR
JSR

001344
001344
001140

001372

001140

A H

5%:

001142
6$:

001142
7$:

022260

022262
022264
022266
953 02227
954 02227

022306
955 02231¢
956 022312

957 022326

022326

004737

060210

022326
044416

8s:

9%:

10%:

SEQ 0118

;G0 TO 2% IF NO ERROR

108
PC,GETSTS
PC,TIMOUT

$SETUP FOR STATUS FETCH
:WAIT FOR RIP TO COMPLETE

JSR
BR
NOP
EMY
JMP

PC,GET

JSR
BR
NOP
EMT
JSR
JMP
MOV
BIC
BEQ
CLR
EMT
TST
uEQ
MOV
CLR
EMT
TST
BEQ
MOV
CLR
EMT

PC.PRIERR
43

108

PC,a{5P)+

10§

RMOF
I, SBDDAT

¢cRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

:GO _TO 108 IF ERROR

:G0 READ REGISTER(S) WITH GET SUBROUTINE

:GO_TO 38 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

;GO TO 108$ IF ERROR

:GO CHECK FOR PRIMARY ERRORS

;GO _TO 4$ IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SURROUTINE
160 BACK FOR MOKE ERROR CHECKS

:G0 TO 108 IF ERROR
;1S RMOF RESET??

0‘C<FHT16’ECI'HCI'SSEI'OFD) $BDDAT
5%
$GDDAT
160

RMDAI

RMDAL ,$BDDAT

$GDDAT

161
RMDCI
7$
RMDCI,$BDDAT

$GDDAT
162

JYES!!

:GOOD DATA FOR TYPEOUT

IS RHDA RESET??
;YES!!
:BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT
IS RHDC RESET??

cYES!!
:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

JSR
.WORD
. WORD
BR
NOP

PC,CMPERRSTS
NDTMSK
DPE

JSR
JMP

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

JSR
BR
NOP
EMT
JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

EMT

000137

B 10

10§

sCHECK _ANY ERRORS NOT MASKED
:MASK FOR RMER1
:MASK FOR RMER2
:GD_TO 88 IF NO ERROR

;RETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 108 IF ERROR

;GO CHECK FOR CHANGES IN DRIVE STATUS
;GO _TO 98 IF NO ERROR

PC,3(SP)+

:GO BACK FOR MORE ERROR CHECKS

10§

:RETURN HERE IF ERROR
:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;GO YO 108 IF ERROR

;G0 _TO 108 IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEF INED BY SECERR SUBROUTINE

RNDAO RM80 FCTNL PT MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-35
READ IN PRESET TEST

958
959

SRR

'TEST n
SR

960
961 022354

022360

RAARR R RN

15131:

022326

013701
012737
004737
054130

001226
041532

ARARANAARCAREA R C P AN

SCOPE
NOP
MOV
MOV
MOV

SEQ 0119

AN AN AN AARACARAR A TN

RMDC CLEAR OFFSET TEST

A A RN AR RN ER AN CARRAAAARRNE AN

NAAAA AR NACCAN

ARAAN NN NNCCANN AN

#STACK, SP

:SCOPE CALL
¢START OF TEST
INITIALIZE STACK POINTER

TSTQUE R

(R1) = DEVICE BEING 1ESTED

$BASE, RO

Mov

#31,STESTN

JSR
.WORD

PC,TSTPRP

054130

:R0= UNIBUS ADDRESS

:;SET TEST NUMBER IN APT MAIL BOX

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
cPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

sRECALIBRATE IF °°SKI'* OR 'PIP'’ IS SET

022362

000404
000240
104000
000137

112737
112737
012737
004737
000404
000240
104000

970 022504

971 022506
972 022514
973 022522

974 022530
975 022532
976 022534
977 022534
022542

104000
000137

004737
000405

O OOOOC
OO
OB MNONIN -

969 022476

004737
000404
000240

—S—
oD

964 022434
965
966 022440
022444
022446
022450
022452
967 022456
968 022456
022462

000137
004737

18
EMT

022644

1$:

000000
000200
000015
043016

2%:

042546

3s:

063564

000034
000200

;60 TO 88 IF ERROR

sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE

:GO_TO 28 IF NO ERROR
sRETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE
;GO _TO 88 IF ERROP

PC,GET

;GO READ REGISFER(S) WiTH GET SUBROUTINE

PC,GETSTS

022644

177776
090001

#200,PUTINX+1

022644

001350

NRMCS1,PUTINX

:G0_TO 1$ IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

#OFFSET!GO,RMCS1 0
;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE

042462

022644
000001

MovB

cVERIFY RECALIBRATION

001350

48:

001142
001142
007140

001545
001546

:GO_TO 38 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 8% IF ERROR

PC,PRIERR
43

260 CHECK FOR PRIMARY ERRORS
:GO_TO 4$ IF NO ERROR

PC.3(SP)+

sRETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

RMDSI, SBDDAT

OFFSET ON2?
;YES
:BAD DATA FOR TYPEOUT

8s
ggfl.RHDSI

#-C0M, SBODAT

5%:

:SETUP FOR STATUS

;60 TO 8% IF ERROR

:GCOD DATA FOR TYPEOUT

#OM, SGDDAT
156
8s

;SKIP REST OF TEST

#RMDC,PUT INX

sSETUP PUT INDEX TABLE

#200,PUTINX+1

:SET TERMINATOR BYTE

CZRNDAQ RMBO FCTINL PT1 MACRO v04.00 2B-JAN~B82 16:24:51 PAGE 13-36
131
RMDC CLEAR OFFSET TEST

022550
029556
022562
022564

012737
004737
000404
000240

000000
043016

022566
o7g 522370

104000
000137

979 022574
022600
022602

004737
000404
000240

042546

022606

000137

022644

022604

104000

980 022612
981 022620
982 022622

032737
001411
013737

985 022642
386 022644

104253

983 022630
984 022636

042737
005037

001446

022644

EMT
JP

001350

001142

78:

001142

J¥

988

SEQ 0120

:SET RMDC OUTPUT BUFFER = 0
GO WRITE RMDC VIA PUT SUBROUTINE
GO TO 6$ IF NO ERROR
RETURN WERE IF ERROR
ERROR DEFINED BY PUT SUBROUTINE
:GO TO 88 IF ERROR

8BS
PC,GET
7$

;60 READ REGISTER(S) WITH GET SUBROUTINE
:GO_TO 7$ IF NO ERROR
RETURN MERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

BIT
BEQ
MOV

#OM,RMDSI
8%
RMDSI,SBDDAT

EMT

253

BIC
CLR
8s:

#0,RMDCO
PC.PUT
68

JSR
BR
NOP

EMT

000001

177776
001140

M3V
JSR
BR
NOP

D 10

#°COM,$BDDAT
$GDDAF

GO TO 88 JF ERROR

:DID OFFSET MODE RESET??

;BAD DATA FOR TYPEOUT

:GOOD DATA FOR TYPEOUT

*ttttttiQttttttttttl‘ttt'ttttl‘fi*filtttitttttttfittitt*tttttttttttt

trssr 32

022644

022644
022646
022650

022654
022660
oo 022664

000004
000240
012706

013700
013701
012737

990 022672

004737

022700

022704
oo 022706

022676

022702

992 022712
993 022716
994 022722
995 022722
022726

022730

022732
022734
996 022740

ILLEGAL FUNCTION TEST

ttttttlt*ifittl’fittttitt"tttfi.itttt*'ifititt*fitttttttfitttittttttt

tér32:
001100

001276
001466
000052

SCOPE
NOP
MOV

MOV
MOV
MOV

001226

$BASE,RO
TSTQUE,R1
#32,STESTN

:RO
= UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

$:SET TEST NUMBER IN APT MAIL BOX

JSR

PC,ISTPRP

:PREPARE DEVICE FOR TEST

000404

:CLEAR CONTROLLER © SELECT DEVICE
GO TO 18 IF NO ERROR

104000
000137

023430

EMT
JP

138

004737
012702

(42462
000000

JSR
MOV

PC,GETSTS
#NOP,R2

:SETUP FOR STATUS

004737
000404

052466

JSR
BR

PC,CNTCLR
38

;GO ISSUE CONTROLLER CLEAR
160 TO 38 IF NO ERROR

EMT
P

138

*ERROR
NUMBER DEFINED BY SUBROUTINE
160 TO 138 IF ERROR

040000

041532

#STACK,SP

;SCOPE CALL
ISTART OF TEST
:INITIALIZE STACK POINTER

.WORD

000240

NOP
s

2s:

000240

104000
000137

NOP
023430

3s:

998

040000

:TASK DESCRIPTOR AS FOLLOWS:
RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 138 IF ERROR

*RETURM HERE IF ERROR

:SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

1000 022740

002746
022754

112737

000024

001545

MOVB

WRMMR1,PUTINX

12737

000001

501436

MOV

#DMD.RMMR10

112737

022762

004737

022770

000240

022766

000404

000200
043016

001546

MOVB
JSR

NOP

:SETUP PUT INDEX TABLE

#200,PUTINX+1

:SET TERMINATOR BYTE

PC.PUT

16O WRITE RMMR1 VIA PUT SUBROUTINE

:SET RMMR1 OUTPUT BUFFER = DMD
16O TO 48 _IF NO ERROR

:RETURN HERE IF ERROR

C IR NDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51
T 32
ILLEGAL FUNCTION TEST

022772

023430
000024
000200
001401
043016

023430

1003 023040
1004
1005

000000
000200
000023
043016

001545

NNNNNNQNNU\V‘NNO
Ny

b ed LS} b

1027 023244

1028 023244

023250

023260

001412

6$:

001416
001414
001444

023236
023240

MOVB
MOov8
MoV

001546
001412

;ERROR DEFINED BY PUT SUBROUTINE

138

2G0 TO 138 IF ERF.OR

#RMMR1,PUTINX
#200,PUTINX+1

;SETUF PUT INDEX TABLE
:SET TERMINATOR BYTE

(13

=GO TO 58 IF NO ERROR

138

:60 TO 138 IF ERROR

#DMD { MUR MOC ,RMMR10
-SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC
PC.PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
*RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE

JSR
BR
NOP
EMT
JMP
MoV
8IS
MoV

#RMCST,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK ! GO, RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK!GO

PC.PUT
6S

13s
#G0.RMCS10
R2.AMCS10
#BUFONE ,RMBAO
#-1,RMCO
RMDAQ
RMDCO
#FMT16,8M0F0
#PUTINX,R3
#RMBA, (R3) +
SRIWIC
. (R3) +
#RMOF
. (R3) +
#RMDA
. (R3) +
SRMDC . (R3)+

#200, (R3)

043016

023430
043370

004737
000404

062546

000137

023430

004737

043564

000240
104000

SEQ 0121

;69 WRITE RMCS1 VIA PUT SUBROUTINE
*G0 TO 63 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
*GO TO 138 IF ERROR

;WRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
*DUMMY WORD COUNT
*CLEAR DISK ADDRESS
:CLEAR CYLINDER ADDRESS
;16 BIT FORMAT

‘WRITE REGISTER INDEX TABLE

#RAcsSt, (R3)+

ot b

Qb e ed

004737
1026 023226
023232
023234

000001
001412
104372
177777
001420

MovB
Mov8s
MoV
JSR
BR
NOP
EMT
JMP

;SET VOLUME VALI D BEFORE ISSUING FUNCTION CODE BEING TESTED

o =

b b ok o

b € €

b QOO O OOOOO

3100

48:

Ss:

023430

COO0000
NONIRNINININD

NOWVH WA =OV00~N
WA= OOV

PONININ)
cod cnd cnd cnd smd vl ousd ndd o sasd

T Qe

N G

T Sy

1006 023040

[

001545
061546
001436

EMT
JMP

PAGE 13-37

023430

PC,PUT

78:

138

PC,TIMOUT

260 TO 7$ IF NO ERROR

SRETURN HERE IF ERROR

sERROR # DEFINED BY PUT SUBROUTINE
;GO TO 138 IF ERROR

sWAIT FOR GO TO RESET

PC.GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

138

cRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;6O TO 13% IF ERROR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

8s:

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

PC.3(SP)+

13§

:GO_TO 88 IF NO ERROR

:GO _TO 98 IF NO ERROR
¢RETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK_FOR MORE ERROR CHECKS

:GO TO 13$ IF ERROR

IRTY]

CZRNDAO RMBO FCTNL PT) MACRO v04.00 28~JAN-82 16:24:51 PAGE 13-38
132
ILLEGAL FUNCTION TEST
1029 023264
1030 023§72

016237
062737

013737

001352

001142

MOV

1033 023314
1034 023322
1035 023324

023737
001402
104254

001140

00114¢

P
BEQ
EMT

FNCDTB(R2) , $GDDAT
:GET ENTRY FROM FUNCTION CODE TABLF
#°CILF,$GDDAT
RMERT].$8DDAT
;BAD DATA FOR TYPEOUT
#~CiLF.SBDODAT
$GDDAT.SBODAT
;IS ILF STATUS CORRECT?
108
TYES!T
254

1032 023306

045737

1037 023330
1038 023336
1039 023344
1040 023346

016237
032737
001403
052737

070002
040000

001140
001350

106000

001140

MOV
8IT
BEQ
BIS

FNCDTB(R2)
, $GDDAT
#EPR,RMDS ]
;WAS AN ERROR DETECTED??
118
NO!!
#ATA,SGDDAT
*YES - ATA SHOULD BE ON

1043 023370
1044 023376
1045 023404
1046 023406
1047 023410
1048 023412
1049 023416

042737
023737
001402
104255
000407
062702
022702

077777
001140

001142
001142

BIC
CMP
BEQ
ENT
BR
ADD
P

#*CATA, SBDDAT
$GDDAT.SBDDAT
128
255
138
#2,R2
#1LF76.R2

1035 023300

1036 023326 000440

1041 023354
1042 023362

1050 023422
1051 023426
;8g§ 023430

040737
013737

103402
000137

070092
177776
177776

077777
001350

001140
001140

98:

001142

001140
001142

000002
000076

BIC

10$:

11s8:

128:

022722

138:

1054

MOV
BIC

SEQ 0122

B8R

BIC
MOV

8LO
JWP

JINERRERAARAR

138

#~CATA,SGDDAT
RMDSI,$BDDAT

13§
23

AR AANRN AV

SATEST 33

;GET DRIVE'S ATTENTION
;1S ATA STATUS 0K??
LYES!!
;G0 TO NEXT FUNCTION CODE
*DONE??
SYES
11
STEST NEXT FUNCTION

TRARNARAN AR AR NNV ANARNNRANNRASRNRRRARR

INVALID COMMAND TEST

s 1232232332223 3332332282842 13 2343133323213 233883 33P0

023430
023430
023432
023434
023440
0234446

000004
000240
012706
013700
013701

15733

001100
001276
001466

1056 023456

004737

041532

1055 023450 612737 000033

023462 040000

001226

SCOPE
NOP
MoV
MoV
MoV

#STACK, SP
$BASE ,RO
TSTOUE ,R1

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED

JSR

PC,TSTPRP

:PREPKRE DEVICE FOR TEST

B8R

MoV

.WORD

023464 0004604

053466
0 3270
1057 8§ ;g

000240
104000
000137

024154

NOP
EMT
JWP

}823 ozsggg

012702

000000

MOV

033512
023514
023516
053520
}825 023524

000404
000240
104
000137

1058 0 §276 004737 042462
1061 853503 004737 052466
024154

3s:

%ggg
1066 023524

TT LT LYY

#33,$TESTN

040000

138

JSR

PC,GETSTS

JSR

PC.CNTCLR

BR
NOP
EMT
JMP

#NOP,R2

138

*:SET TEST NUMBER IN APT MAIL BOX

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER © SELECT DEVICE

:G0 TO 18 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY 7STPRP SUBROUTINE
+60 TO 138 IF ERROR

;SETUP FOR STATUS

;GO ISSUE CONIROLLER CLEAR

*60 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
*G0O TO 138 IF ERROR

‘§${13£@§"°57’C MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
112737

000024

001545

MOVB

#RMMR1,PUTINX

:SETUP PUT INDEX TABLE

CZRNDAD RM30 FCTNL PT1

133

MACRO V04.00 28~JAN=-82 16:24:51

INVALID COMMAND TEST

023532

023540
023553

0235)

0c3554
023556

112737
012737

00464737

000404

000200

00%001

043016

001546

001436

000240
1064000

1067 35%?&‘2 000137 024154
1068 023564
023572

112737
112737

000026
000200

004737

043016

012737

023612
023614
023616

000404
000240
104000

001401

001545
001546

001436

023620 000137 024156

SEQ 0123

move

#200,PUTINX+1

JSET TERMINATOR BYTE

JSR

PC.PUT

;60 WRITE RMMR1 VIA PUT SUBROUTINE

40V

PAGE 13-39

#DMD ,RMMR10

;SET RMMRY QUTPUT BUFFER = DMD

JWP

138

MovVB
MOVB

#RMMR 1 ,PUTINX
#200,PUTINX+1

JSETUP PUT INDEX TABLE
>SET TERMINATOR BYTE

JSR

PC.PUT

;60 URITE RMMR1 VIA PUT SUBROUTINE

138

160 TO 138 IF ERROR

NOP
EMT

MoV

BR
NOP
EMT

JmP

;GO TO 4% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR D§F1NED 8Y PUT SUBROUTINE

160 TO 138 IF ERROR

#DMD 'MUR 'MOC ,RMMR10
5%

:G0 TO 5% IF NO ERROR
:RETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE

1069 023624

58:

}855

;VOLUME VALID IS LEFT RESET FOR THE TEST

1074 023624

1075 023024
1076 023632
1077 023636
1078 023644
1079 023652
1080 023656
1081 023662
1082 023670
1083 023674
1084 023700
1085 023706
1086 023710
1087 023714

1088 023720
1089 023726

012737
050237
012737
012737
005037
005037
012737
012703

000001 001412
001412
104372 001416
177777 001414
001420
001446
010000 001444
001545

112723
112723
112723
112723
112723

000004
000002
000032
000006
00003%

112713

000200

112723

68:

000000

}%1 023746 004737 043370
1093

023752

023756
023760
ognz
109 8 3;%
1095 023770
023776
023776

024000
024002
024 004

004737

042546

(00404
000240
mogg
000137
024154
904737 043564
000405
000240
104000
00472
000 137

#RMBA, (R3)+
#RMJC. (R3)+
#RMOF.(R3)+
#RMDA. (R3)+
#RMDC. (R3)+

MOVB

#200, (RD)

JSR

78:

024154
1096 024010 016237 0;0002
001140 9$:

#GO,RMCS10
R2.RMCS10
#BUFONE ,RMBAO
#-1,RMJC0
RMDAQ
RMDCO
#FMT16,RMOFO
#PUTINX ,R3

MOVB
MOVB
MOVB
MOVB
MOVB

MOV

1090 023730 004737 043016

025734 000404
023736 000240
023740 104
023742 000137
024154

MOV
BIS
MOV
MoV
CLR
CLR
MOV
MoV

BR
NOP
EMT
JMP

PC.PUT

138

PC.TIMOUT

JSR

PC,GET

EMT
JSR

MOV

sWRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
SDUMMY WORD COUNT
*CLEAR DISK ADDRESS
*CLEAR CYLINDER ADDRESS
:16 BIT FORMAT
*WRITE REGISTER INDEX TABLE

#RMCST, (R3)+

JSR

BR
NOP
EMT
JMP
JSR
BR
NOP

:SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC

138
PC,PRIERR
9s
pg asP) ¢

13§

26O WRITE REGISTER(S) WITH PUT SUBROUTINE

260 TO 78 I: NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
$GO TO 138 IF ERROR
‘WAIT FOR GO TO RESET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

*G0 TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE
GO TO 138 IF ERROR
:GO CHECK FOR PRIMARY ERRORS
2G0 TO 9% IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE
:GN BACK_FOR MORE ERROR CHECKS

GO TO 13% IF ERROR

FNCDTB(R2) ,$GDDAT

sGET ENTRY FROM FUNCTION CODE TABLE

(L AuAl RMBU FCTNL PI° MALRO Vv04.00 28-JAN=-82 16:26:51 PAGE 13-40
133
INVALID COMMAND TEST
1097 024016
1098 026026
1099 024032

1100 024040
1101 026046

1102 024030
1103 024052
1104 024056

1105 024062
1106 026070
1107 024072

1108 0264100

042737
013737
04%737

023737
001402

167777
001600
167777

001140

001140
001142
001142
001142

104216
000440
016237

070002

001140

042737

077777

100000

001140

042737

077777

032737
001403
052737

040000

003350

001140

1109 024106 013737 001350 001142
1110 026116

1111 024122
1112 026130
1113 024132
1114 024134
1115 024136
1116 026142
1117 024146
1118 024150

}}38 026154

023737
001402
104255
000407
062702
022702
103402
000137

001140

81C
MoV
81

cMp
BEQ
EMT

108:

118:

001142

000002
000076

128:

023506

138:

1121

0241254

024154
026156
024160
024164

000004
000240
012706
013700

TST36:
001100
001276

024170 013701 001466
1122 024174 012737 000034
1123 024202

004737

024210

000404

024206 040000

024212
024214
1.24 852553
1125 024222
1126 024226

1127 024232
1128 026232

024236
024240
024242
0246244
;}gg 024250

041532

000240
104000
000137

024744

sGET DRIVE'S ATTENTION

SGDDAT,$BDDAT
128
255
138
#2,R2
RILF76,R2
138
28

;IS ATA STATUS OK??
JYES!!

cop
8EQ
EMT
8R
ADD
CMP
BLO
JMP

004737
012702

0462462
000000

004737

052466

000404
(00240
104000
000137

2s:

024744

3s:

%;%1

1135 024250 112737 000024 001545
0246256

112737

000200

gt g

001546

#°CATA SGDDAT
#~CATA, SBDDAT

;GO TO NEXT FUNCTION CODE
;DONE??
SYES !
sTEST NEXT FUNCTION

RN AN AANE AN E RN R RN

AR A AN R AR AR SRR ARSI AAAREAANNSE

INVALID ADDRESS ERROR TEST

it e

]

SCORE
NOP
MOV
MoV

#STACK, SP
$BASE RO

sSCOPE CALL
sSTART OF TESY
;INITIALIZE STACK POINTER
;RO = UNIBUS ADORESS

JSR

PC . TSTPRP

;PREPARE DEVICE FOR TEST

B8R

sCLEAR CONTROLLER & SELECT DEVICE
:60_TO 1$ IF NO ERROK

.WoRD

;IS IVC STATUS CORRECT?
JYES!!

RMDS] , $BDDAT

MOV
MOV

001226

$GDDAT,$BDDAT
108

MOV

8I¢C

s*TEST 34
L

;BAD DATA FOR TYPEOUT

8Ir
BEQ
8IS

JIRNRRRAR AR
R

#4C1VC,SGDDAT
RMER2],$8DDAT
R4CIVC, SBDDAT

SEQ 0124

216
138
FNCDTB(R2} ,$GDDAT
#EKR,RMDS!
;WAS AN ERROR DETECTED??
118
:NO!!
#ATA ,SGDDAT
;YES ~ ATA SHOULD BE ON

BR
MOV

8I1¢

001142

H 10

NOP
EMT
JMP

TSTOUE ,R1
#34 STESTN
040000

138

:(R1) = DEVIFE BEING TESTED
:sSET TEST NUMBER IN APT MAIL BUX
:TASK DESCRIPTOR AS FOLLOWS:

sRETURN HERE IF ERROR
-ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 138 IF ERROR

JSR
MoV

PC,GETSTS
#NOP ,R2

sSETUP FOR STATUS

JSR

PC,CNTCLR

:GO ISSUE CONTROLLER CLEAR

BR
NOP
EMT
JMP

133

;G0 TO 3$ IF NO ERROR
sRETURN HERE IF ERROR
s ERROR
R DEFINED BY SUBROUTINE
;60 TO 138 IF ERROR

:gsllagegNOSTlc MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

MOVE
MOVB

#RMMR1,PUTINX
#200,PUTINX+1

SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

000001
043016

024744

-t

—

HOWWNWWN
O NNNN

LELS LY
SNNSNN

001436

¥
~

000000

purd

043016

001545
001546

s
001545
001546
001412

001412
104372
177777
1772777
1727777

043370

MOVB
MOVE

MoV
JSR
B8R
NOP
s

043564

EMT
P

MOV
8IS
MoV
MOV
MoV
MOV
MOV
MoV

001412
001416
001414

001420

001446
001444

PC.POT
48

;SET RMMR1 OQUTPUT BUFFER = DMD

138

160 WRITE RMMR1 VIA PUT SURROUTINE
:60 TO 4$ IF NO ERROR
‘RETURN HERE IF FRROR
JERROR DEFINED BY PUT SUBROUTINE
‘GO TO 138 IF EPROR

#RMMR1,PUTINX
#200,PUTINX+1

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#DMD | MUR ! MOC , RMMR10
-SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC
PC.PUT
;60 WRITE RMMR1 VIA PUT SUBROUTINE
58
‘G0 TO 58 IF NO ERRGR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
138
16O TO 138 IF ERROR
#RMCS1,PUTINX
#200.PUTINX+1

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

“ERROR DEFINED BY PUT SUBROUTINE
:60 TO 138 IF ERROR

#GO,RMCS10
R2.RMCS10
#BUFONE ,RMBAO
#<1,RMCO
#-1.RMOAD
#-1.RMOCO
SFMT16 RMOFO
#PUTINX R3

:WRITE FUMCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
‘DUMMY WORD COUNT
tUSE INVALID DISK ADDRESS
*USE INVALID CYLINDER ADDRESS
:16 BIT FORMAT
SWRITE REGISTER INDEX TABLE

#PAKACK ! GO, RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
:60 WRITE RMCS1 VIA PUT SUBROUTINE
6$
:60 TO 68 IF NO ERROR
*RETURN HERE IF ERROR

MOVB

#RMBA, (R3)+

MOVB
MOVB

A#RMDA. (R3)+
#RMDC. (R3)+

MOVE
MOVB

move
MOVB
JSR
B8R

78:

NOP
ENT
JMP
JSR

BR
NOP
EMT
JNP

042546

024744

MOV
JSR
B8R
NOP
EMT
JWP

#DMD ,KMMR10

SEQ@ 0125

;SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED

000000
000200
043016

024744

e SRSS¢ 28

v =5 PININININI
NI O NN NN
SN NN N N NN~ NNNWN

e et il b wwh W) b
culh o
)

) wed v el e

Dord md b b ek ek =
SO

RN
A

3
g
AN

&
W

000601

gd Q§§§5 <82282TERRTATRTNNRNACR

QO OO OOOO

)3}
&~
&
v
n

JSR
B8R
NOP
EMT
JNP
MOVE
Movs

001436

024744
737

Moy

-l

737

2
31
bS

DO QOO

LS LN NN
F Y ¥ 5
NN
N
b
NSO
A
o~

[=]

024350

it et

043016

024744

024350

b e
b
b

Win

B e

&H
(=4

012737
004737

228 §°—I-‘ g38
§N
23 R

(=]

N
F
D
~

024264

W
W

CZRNDAO RMBO FCTNL PT1 MACPO v04.00 28-JAN-82 16:24:51 PAGE 13-41
134
IKVALID ADDRESS ERROR TEST

JSR

B8R

#RMJC. (R3)+
#RMOF. (R3)+

asmcst, (R3)+
#200, (R3)
PC,PUT

13$

PC.TIMOUT
PC,GET

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*G0 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

$G0 10 138 IF ERROR

*MAIT FOR GO TO RESET
:60 READ REGISTER(S) WITH GET SUBROUTINE

13$

*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE
“G0 TO 138 IF ERROR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

:GO TO 98 IF NO ERROR

SEQ 0126

INVALID ADDRESS ERROR TEST

b &N ~NHNY SNNNNSNS
NN SN SNINNNAN
WO O QOWn =4 N
AN N O
M S = O N (v
\¥, N SNNNNNWNNO
NN
NN
NNNN

N~
SR2R
R SOR2RA3
E;CNU
LN
SGRINRSRION g2 SO

[ lela)

O=O

000407
4

[ ]

Q00000000
¥ NN NN NN NN NO

2% \nghnhthhOGPVOWh&flflhthMOgfizgu;gfizg;

[,¥]

024744
07000

98:

17577

001352
175777
001140

070002

108:

040000
100000

077777
001350
077777
001140

11%:

128:

000002
000076
024232

13s:

EMT
JSR
JMP
MoV
BIC

MOV
8IC
cmp
BEQ
EMT
BR
MoV
817
8EQ
BIS
BIC
MoV
BIC
(mp
BEC
EM1
B8R

ADD
cmP

BLO
JMP

L*TEST 35

W
N
L~<D§g<3

=1
nNO
HO
N=OO o

157135:
001100
001276
001466
000035

g2S3% S8 888
1195

001226

041532

§§§ 23 §§E§

89 024772
024776

el wadh cvel

024754
024760
024764

Szg;
OOO0O0 EBCD
L NS

SIRRAANARRRAANNA R

024744
024744
024746
024750

sRETURN HERE IF ERROR
;ERROR # DEFINEDL BY PRIERR SUBROUTINE

NOP
PC,a(5P)+¢

;G0 BACK_FOR MORE ERROR (HECKS

13§

G0 TO 13% IF ERROR

FNCDTB(R2) ,$GDDAT

#4CIAE, $GDDAT

SGET ENTRY FROM FUNCTION CODE TABLE

RMER1I.$BDDAT

;BAD DATA FOR TYPEOUT

$GDDAT.$BDDAT
108

;IS IAE STATUS CORRECT?
SYES!!

1$§n.an051

:ze§.A~ EKROR DETECTEEC??

NATA,SGDDAT
#°CATA,SGDDAT

*YES = ATA SHOULD BE ON

#~CIAE
. $BDODAT

217
138
FNCDTB(R2) ,$GDDAT

RMDSI,$BDDAT

;GET DRIVE'S ATTENTION

128

;IS ATA STATUS 0K??
TYES!!

133
#2,R2
SILF76.R2
138
23

;GO TO NEXT FUNCTION CODE
:DONE??
TYES 11
*TEST NEXT FUNCTION

#*CATA, SBDDAT
SGDDAT,SBDDAT

255

COARNNANRNERARARANNANANAANE
RN AR RRNNERAANAANNEANNRARRNEARNRARAAAIRNAR

(NNDAC RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-42

025530

062462
000000
052466

n25530

18:

2$:

3s:

SCOPE
NOP
Moy
MOV
Mov
MOV

WRITE LOCK ERROR TEST
R RANR AN

RARAARANA R A EAREARRANRANRACANRARANNNERR

sSCOPE CALL
,
#STACKSF

$8ASE RO

R}
TSTQUE

#35,STESIN

;START OF TEST

SIMITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
:sSET TEST NUMBER IN APT MAIL BOX

JSR
.WORD

PC,TSTPRP

BR
NOP
EMT
JMP

138

s TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;G0 _TO 1$ IF NO ERROR
JRETURN HERE IF ERROR
cERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 138 IF ERROR

JSR
MoV

#NOP ,R2

PC,GETSTS

;SETUP FOR STATUS

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

JSR
8R
NOP
EMT
JNP

040000

138

;PREPARE DEVICE FOR TESY

;G0 _TO 38 IF NO ERROR
SRETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
;GO TO 138 IF ERROR

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24 51 PAGE 13-43
135
WRITE LOCK ERROR TEST

12%4
1225 0253§g

0253
025334

PIES

#RMMRY,PUTINX
#200.PUTINX+1
#DMD . RMMR10

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = DMD

*GO TO 4$ IF NO ERROR

JSR

.
001545
001546
001436

EMT

W#RMMR1,PUTINX

:SETUP PUT INDEX TABLE

JSR

PC,PUT

$GO WRITE RMMR1 VIA PUT SUBROUTINE

bgu-rumwmmwou
NN WWIN NN NN
N N

JMP

160 TO 58 IF NO ERROR

‘RETURN HERE IF ERROR

*ERROR DEFINED BY PUT SUBROUTINE

160 TO 138 IF ERROR

MOVB
MOVB
MoV

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
APAKACK ! GO, RMCS 1D
:SET RMCST OUTPUT BUFFER = PAKACK'GO

NOP
EMT

PC,PUT

001412

MOV

#GO,RMCS10

001416
001414

MOV

#BUFONE ,RMBAO

8IS

MOV
CLR
(LR
MOV
MOV

MOVB

MOVB
MOVB
MOVB
MOVB

MOVB
MOVB
JSR

043016

B8R

NOP

042546

138

O&
NO

=k b O OO
b b coh

EMT

2G0 TO 138 IF ERROR

#200,PUTINX+1
-SET TERMINATOR BYTE
ADMD I MUR'MOC 'MWP.RMMR10 :SET RMMR1 OUTPUT BUFFER = OMD'MUR!MOC
'MuP

JMP

001444

025530
043370

*ERROR DEF INED BY PUT SUBROUTINE

MOVB

JSR

025530

104372
177777

SRETURN HERE IF ERROR

:SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED

000000
000200
000023
043016

000001
001412

160 WRITE RMWR1 VIA PUT SUBROUTINE

138

MOVE
MOV

PC,PUT

JnP

025530

§d—l—l-§—ld—b—b-fi°°
838gw‘w“‘w"’%fi%%’-‘&'&%‘"

025312
025314
025312
1223 02532

MOVB
MOV
MOV

NOP

1206 025200
1207 025200
1208 025206

1215 025250
1216 025254
1217 025260
1218 0 5564
1%19 025270
1220 0 5553
1251 025
1222 055306
025310

;CYLINDER, AND DIAGNOSTIC WRITE LOCK

o
—

000024
000200
001411
043016

025146
025154
025162
025166
0¢5170
025172
025174

121% 025232
1213
025236
1214 025244

001545
001546
001436

NOP

025530

1203
1204
1205 025140

1209 025212
1210 025220
1211 025226

043016

NNNN

025106
025114
025122
025126
025130
025132
025134
1202 025140

—d
b
b

1200 025100
1201 (025100

NN
HNNNN

025046
025054
025062
025066
025070
025072
0250764

;SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

Ry 828 g §°.a..
NN
EWWWW vg aguwuw

1196
1197
1198
1199 025040

EMT

7$:

;60 WRITE RMCST VIA PUT SUBROUTINE
‘G0 TO 65 IF NO ERROR

‘RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

160 TO 138 IF ERROR

R2,RMCS10

;WRITE FUNCTION CODE IN BUFFER

#-1,Rmi0
RMDAO
RMDCO
#FMT16.RMOFO
SPUTINX,R3

SDUMMY WORD COUNT
*CLEAR DISK ADDRESS
“CLEAR CYLINDER ADDRESS
16 BIT FORMAT
*WRITE REGISTER INDEX TABLE

#RMBA, (R3)+

:DUMMY BUS ADDRESS

#RMUC. (R3)+
#RMOF
. (R3)+
#RMDA. (R3)+

#RMDC. (R3)+

#RMCST, (R3)+
#200, (R3)
PC,PUT

138

JSR

PC, TIMOUT

JSR
8R
NOP

PC.GET

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

G0 TO 78 IF NO ERROR
*RETURN HERE IF ERR

*ERROR # DEFINED BY PUT SUBROUTINE

16O TO 138 IF ERROR

‘WAIT FOR GO TO RESET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR

AVIAWDY

SO0 NOE
O

ficghng: IV
'
K3
&

000137

025530

8s:

043564

98:

JSR
BR
NOP
EmMT

H
~N
~n

108:

070002
040000

[-X

=1,¥]

077777
001350
077777
001140

000002
000076

000137

18:

128:

025022

138:
ER

:ERROR # DEF INE D B; GET SUBROUTINE

‘60 TO 138 IF €

PC.PRIERR

;GO CHECK EOR PRIMARY ERRORS

)

JSR
JMP

PC,a(5P)+

8IC
MOV
81C
CMP

#°CWLE,SGDDAT

EMT
8R
Moy
8IT

220
13

TRTEST 36

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK_FOR MORE ERROR CHECKS

RMERT],$8DDAT

:BAD DATA FOR TYPEOUT

$GDDAT .$BDDAT
10$

;IS WLE STATUS CORRECT?
SYES!!

#ACWLE ,$BDDAT

FNCDTB(R2) ,$GDDAT
g;gn.nnosx
::8§.AN ERROR DETECTED??
#ATA,SGDDAT
#-CATA,$SGDDAT

8IS
8IC
MoV
BiC
P
8EQ
EMT
BR
ADD
cMP
8LO
JMNP

A e 22322 d

:GO TO 9 IF NO ERROR

13$
G0 TO 13% IF ERROR
FNCDTB(R2) ,$GDDAT
sGET ENTRY FROM FUNCTION CODE TABLE

BEQ

100000

SE@ 0128

138
93

BEQ

25430

EMT
JMP

MOV

25414

IWVAWALAWAWAAALA VIVAN
wviawIAaIWAWLY S
CAINIAD)
==b avd wed
NN

NV WN=OY
W= OV

[elelelelelcislslrlololclelelolelela" olelela] COO0O0O0O0O00O0 (=]
N
NINNININDNNNN
N
R NN AVNININININNINL
N

NOU!% N
3=UHNLM
= OOV 00

—

NN
NN
~NO

bk b o e
b o i md b
i
b d e e
D e e ab ad e
b e
[atlat] PNINININININNINININININI
NN
NI NI ANPIRIPORD
Nl
Y N S T A
T T Y
v
NANWNANAIN

104000

L 10

RMDSI,$BDDAT

#°CATA,$BDDAT
SGDDAT ,SBODAT

128
255
138
#2.R2

#I1(F76,.R2
138
28

SYES = ATA SHOULD BE ON

;GET DRIVE'S ATTENTION
;IS ATA STATUS 0K??
SYES!!

;GO TO NEXT FUNCTION CODE

:DONE??

SYES 11
STEST NEXT FUNCTION

e iadddiadiiiaditldidss
il sitidditsisisitsstisssassy

ERROR ABORT TESTS

[ gy

SRARAARKNAAAARAAAXAANRAN
A RARARRARARAAARRARARAAACAAAAARERRARCAES

025530
025530
025532
025534
025540
025544
025550

000004
000240
012706
013700
013701
012737

025562

004737
054130

54
55 025556

RNDAO RMBO FCTINL PT1 MACRO VG4.00 28-JAN-82 16:26:51 PAGE 13-44
5
WRITE LOCK ERROR TESY

T S136:
001100
001276
001466
000036

#STACK, SP

$BASE RO
TSTQUE ,R1

001226

#36,$TESTN

041532

PC,TSTPRP

054130

NOP

025572

026062

EMT
JMP

1$
9s

:SCOPE CALL
cSTART OF TEST
sINITIALIZE STACK POINTER
;R0 = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

:sSET TEST NUMBER IN APT MAIL BOX
sPREPARE CEVICE FOR TEST

cTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWL §DGE ]
(X ]
sRECALIBRATE IF ''SKl "'0R "PIP* IS SET
¢VERIFY RECALIBRATION
:GC_TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY TSTPRP SUBROUTINE
:G0 TO 98 IF ERROR

¢ ZRNDAD RM80O FCTNL PT1 MACR 0 V04.00 28~JAN-82 16:24:51 PAGE
T
ERROR ABORT TESTS

025576
004737
012702

062462
000000

004737
000404
000240

052466

000137

026062

112737

000014
043016

JSR
B8R
NOP
EMT
JMP

PC.CNTCLR

;GO ISSUE CONTROLLER CLEAR

MOvVB
MOVB
MOV
JSR
B8R
NOP
EMT
JMP

#RMER1,
PUT INX

MOV

8IS

001416
001414
001420
001446
001444

MOV
MOV
MoV

b
b

004737

043370

004737

042546

026034
026036
02604
02604
026044

sR2 = FUNCTION CODE

#200,PUTINX+1

#UNS ,RMER10
PC,PUT

93
#GO.RMCS10
R2,RMCS10
#BUF
ONE ,RMBAO
#-1,RMJC0

#0,RMDAO

#0.RMDCO
#FMT16,RMOFO
#PUTINX ,R3
#RMBA, (R3) +

;60 _TO 3% IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY CNTCLR SUBROUTINE

;G0 TO 9% IF ERROR

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMER1 OUTPUT BUFFER = UNS
;GO WRITE RMERT VIA PUT SUBROUTINE
:GO _TO 4$ IF NO ERROR
+RETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR

sWRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
sDUMMY WORD COUNT
sCLEAR DISK ADDRESS
sCLEAR CYLINDER ADDRESS

216 BIT FORMA T
;WRITE REGISTER INDEX TABLE

#RMCST, (R3)+

#200, (R3)

000200
043016

026006

1286 026030
1287 026030

001412

¥
A

#NOP ,R2

#RMIC
. (R3) +
ARMOF
, (R3) +
ARMDA
. (R3) +
ARMDC ; (R3)+

104000

026020
026022
026024

001545
001546
001426

3s:

MoV

b ek e

e and end cub cxd cod wd cuh wmd sb

OO D

b wdd

000001
001412

026000
026002
026004

1284
1285 026012
026016

2s:

026062

1265 025664

1281 026006
1282
1283

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
¢GO TO GETSTS SUBROUTINE

PC.PUT

5%:
JWAIT FOR € OMMAND TO COMPLETE
PC,TIMOUT
JSR

JSR
B8R

NOP

026062
043564

026062

6$:

EMT
JMP

JSR
8R
NOP
EMT
JSR
JMP

PC,GET

9s
PC,PRIERR

PC.a(SP)+
9s

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO_TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUTINE
:GO _TO 68 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 98 IF ERROR
;G0 CHECK FOR PRIMARY ERRORS

;GO TO 78 IF NO ERROR
+RETURN HER E IF _ERROR
F
sERROR # DEFINED
BY PRIERR SUBROUTINE
R
MORE ERROR CHECKS
FO
BACK
:G0
;GO TO 9% | F ERROR

025640
23646
025652
025654
025656
025660
1264 025664

1266 025672
1267 025676
1268 025704
1269 025712
1270 025720
1271 025726
1272 025734
1273 025740
1274 025744
1275 025750
1276 025754
1277 025760
1278 025764
1279 025770
1280 025774

SEQ 0129

025632

M50

18:

104000

1262 025624
126X 025626

13-45

AIND NINININ NN

i ot rd cd mind vl e soncd g

¢ RNDAQ RM80 f CINL PT1 MACRO
T
ERROR ABORT TESTS

8 026050
9 026050

V04.00 28-JAN-82 16:24:51 PAGE 13-46

SEQ 0130

7%:

90 026050

8s:

000002
000076

91 026054
92 026060
93 026062
VS

0s:

ADD
CMP
BHIS

#2,R2
#ILF76.R2
28

;ADVANCE FUNCTION CODE
*DONE ALL COMMANDS
INO 1!

:;tttttttttttttttttttttt'tt'tit*tttfit*l'tttttttltt.ttttttfittfitttt

TRTEST 37

RMR TEST

::t;;tttttttttttttlttt*i"t"t't.ttt'ttitkfi'ttttt'tttttfitttttlttt

TST37:

001100
001276
001466
000037

026102
1296
1297 026110

LAINININD
NIZRVASVRRERR

OO0OO0OOOOOOO0O0O0OO

PINIPININININD NN
OONONOONONONONONON OONONON

N
=1

—

i
Q

\V.]

026142
026150
026156
026162
026164
026166
026170
1303 026174
1304 026174
026202
026210
026 13

004737

042462

000024

043016

001545
001546
001436

PC,TSTPRP

040000

B8R

NOP
EMT
JMP

118

*;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

*60 TO 18 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 118 IF ERROR

PC,GETSTS

360 TO GETSTS SUBROUTINE

MOV8
MOVB
MoV

#RMMR1,PUTINX
#200,PUTINX+1
#DMD . RMMR10

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
*SET RMMRT OUTPUT BUFFER = DMD

B8R

*60 TO 3$ IF NO ERROR

EMT

PC,PUT

:GO WRITE RMMR1 VIA PUT SUBROUTINE
*RETURN HERE IF ERROR

*ERROR DEFINED BY PUT SUBROUTINE

JMWP

118

001545

MOVB

#RMMR1.PUTINX

001436

MOV
JSR

#0MD {MUR ! MOC , RMMR10
-SET RMMR1 OUTPUT BUFFER = DMD'MUR!MOC
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

001546

MOVB

"
001545
001546

001412

BR
NOP
EMT

#200,PUTINX+1
4

JMP

118

MOVB
MOVB

#RMCS1.PUTINX
#200,PUTINX+1

MOV
JSR

B8R
s

EMT
JMP

*GO TO 118 IF ERROR

;SETUP PUT INDEX TABLE

:SET TERMINATOR BYTE

*G0 TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

160 TO 118 IF ERR

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#PAKACK ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK!GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

*GO TO 58 IF NO ERROR

NOP

026522

SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

JSR

026522
000000

#57.8TESTN

:SCOPE CALL
*START OF TEST

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

026522
000024

#STACK, SP
$BASE ,RO
7STQUE R

.WORD

NOP

&ON

1301 026134
1302 026134

JSR

026130

MOV

026522

1300

001226

000137

b wnld a=d

026116
026120
026122
026124
1298 026130
1299

MOV
MOV
MOV

041532

026114

SCOPE
NOP

*RETURN HERE IF ERR

118

*ERROR DEFINED BY PUT SUBROUTINE
*G0 TO 118 IF ERROR

Z NDAO ]M80 FCTNL PT1 MACRO V04.00 28-JAN=-8c 16:264:51 PAGE 13-47

SEa 0131

RMR TEST

004737
000404
000240
104000
000137

000240
112737
112737
012737
004737
000404
000240
104000
000137
112737
112737
012737

004737
000404
000240

026522
000024
000200
041401
043016

6$:
001545
001546
001436

JSR
BR
NOP
EMT
JMP
NOP
Move
Movs
MoV

JSR

BR
NOP

026522

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE
'GO TO 68 IF NO ERRCR

118

;60 TO 118 IF ERROR

RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

#RMMR1
, PUT INX

#200,PUTINX+1

A#DMD { MUR
PC.PUT

:GC_TO 7$ IF NO ERROR

:RETURN HERE IF ERROR

ERROR DEFINED BY PUT SUBROUTINE

:GO TO 11$ IF ERROR

ARMCST, PUTINX
#200,PUTINX+1
#NOP!GO,RMCS10
PC.PUT

112737
112737
012737
004737
000404
000240
104000
000137

000000
000200
000015
043016

004737
000404
000240
104000
000137

042546

026522

000240
032737

000004

001352

1?;R~RMER1I

000004
001352

001140
001142

#RMR , SGDDAT

104222

GO _TO 88 IF NO ERROR
;60 TO 118 IF ERROR

118

#RMCS1,PUT INX

#200,PUTINX+1

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

#OFFSET!GO,RMCS1 0
;SET RMCS1 OUTPUT BUFFER =
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE

;RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE

:60 TO 118 IF ERROR

118

9s:

5GO READ REGISTER(S) WITH GET SUBROUTINE

PC,GET

10§

:GO_TO 108 IF NO ERROR
;RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 118 IF ERROR

118

108:

RMERT
I, SBDDAT
222

11$8:

:IS RMR SET ??
JYES !!
sEXPECTED STATUS
sRECEIVED STATUS

SRRRRERARRAARAAANAAARRA
RN RAAANAAARANRNRANRAARCARARRAARARRRARARAN

tTEST 40
R R AR

TST4O

013701

P2
g
ONNDO
O

000004

PARITY ERROR TEST

R AN RAARAARAAN RN AR

SCOPE
NO?
MOV
MoV
Mov

AN AR RARARAARARANANCARNARACARRIRECRNARRANS

sSCOPE CALL

#STACK, SP

$BASE ,RD

TSTQUE,R1

OFFSET!GO

:GO _TO 98 IF NO ERROR

026522

sSET TERMINATOR BYTE
sSET RMCS1 OUTPUT BUFFER = NOP!GO
G0 WRITE RMCS1 VIA PUT SUBROUTINE

ERROR DEF INED BY PUT SUBROUTINE

026522
001545
001546
001412

sSETUP PUT INDEX TABLE

;RETURN HERE IF ERROR

000137

8s:

sSETUP PUT INDEX TABLE

:ScT TERMINATOR BYTE
MOC ! DBEN, RMMR10
;SET _RMMR1 OUTPUT BUFFER
= OMD !MUR ! MOC ! D3EN
GO WRITE RMMR1 VIA PUT SUBROUTINE

118

7%:

000000
000200
000001
043016

—d
b
b

NOWSUIN~=O
00

—d cd e

)

NN AN AN N N N NN
NORININININIAIAS
—=b =

104000

042546

QOO
(=1l

GGy
wrn

—

026274
026300
026302

;START OF TEST

INITIALIZE STACK POINTER
:RO_= UNIBUS ADDRESS

(Rl) = DEVICE BEING TESTED

—

CZRNDAO RM80 FCTINL PT] HACRO v04.00 28-JAN-82 16:24:51 PAGE 13-48
140
PARITY ERROR TESY
026542

012757

000040

026550
026554

004737
040000

041532

02655¢

000404
000240

~
»

=4
N
o

ek
b
d
—d

NN
(N WINW
W=
O

104000

026742

012702

000001

004737
000404
000240

052466

000137

026742

o
o

o
N

b
OOVBNIWNS
W= O00

b —

VIS NN = OO0~

WU b AN
by
d etNNb NN
d emd whNNek
BB
D NNNNN
- ok

—
D
sl svad corld el amdh
e e

NN L U L L W AN LN Lt i LN N
o ViAW WAA IR
S S

el ol ol

18:

28:

PC,TSTPRP

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE

3s:

043016

48:

042546

#1,R2

JSR

PC,CNTCLR

032737
001011
012737
013737
010237

000010

001352

000010
091352
001174

001140
001142

5%:

:G0 TO 78 IF ERROR

MOVB
BIC
BIS

(R1),R3
#*CUNTMSK ,R3
#PAT .R3

:SETUP RMCS2

MOV
MOV

MOVB
MOVB
MOVB

R2,RMDAO
#PUTINX. R3

#RMCS2, (R3)+
#RMDA, (R3)+
#200, (R3)+

sVALUE TO RMDA
sWRITE REGISTER OUTPUT INDEX

JSR

PC.PUT

2GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO_TO 4$ IF NO ERROR
sRETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE

PC.GET

:GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 58 IF NO ERROR

NOP
EMT

JSR

RETURN HERE IF ERROR
sERROR
# DEFINED BY CNTCLR SUBROUTINE

R3,RMCS20

BIT
BNE

#PAR,RMER1]
63

MOV
EMT

R2,$TMPO
22%

ASL
BNE

sOUTPUT VALUE TO RMCS2

cRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;60 TO 78 IF ERROR

JMP

MOV

7%:

sGO ISSUE CONTROLLER CLEAR

JMP

MOV

6$:

sR2 = DATA PATTERN

160 _TO 3$ IF NO ERROR

NOP
EMT

026742

:G0 TO 78 IF ERROR

B8R

000137

006302
001315

MoV

104000

;GO _TO 1$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR ¥ DEFINED BY TSTPRP SUBROUTINE

MOV

000006
000200

040000

JMP

NOP
EMT

001545
000010

104223

JSR

001420

004737

;:SET TEST NUMBER IM APT MAIL BOX

EMT

001422

0245654
026660
026662

#40,$TESTN

.WORD

177770
000020

026634
026640
026644
026650

MOV

NOP

000137

104000

001226

SEQ 0132

$GDDAT

IgsPARITY ERROR SET ??

Rnenix $BDDAT

SEXPECTED STATUS

R2
2

sADVANCE DATA PATTERN

:RECEIVED SiATUS
:DATA PATTERN

sBRANCH IF NOT DONE

AARARARARRAAARAR RN AR L AARRAERAAANAARA NN AN AR AR ORANS

-resr 41

ILLEGAL REGISTER TEST

RN REARARARAARAAAARRARRR
AR AR AR RCARANRAAARANRAARAARRARAARACARCES

026742
026742
026744
026746

18741
012706

001100

SCOPE

NOP
Mov

#STACK,SP

+SCOPE CALL
¢START OF TEST

:INITIALIZE STACK POINTER

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:264:51 PAGE 13-49
ILLEGAL REGISTER TEST

SEQ 0133

T4 1

026752
026756
026762

013700
013701
012737

001276
001466
000041

026774

004737
040000

061532

136
1362 026770

001226

EEEETE

02;002
027004

027270

027010

b e

NN
NN
—=O0

18:

062462

rd ed cad e e cad b

026776
027000

005002

000300

004737
000404
000240

052466

000137
010003
060203

027202

104000

000004
000006

2$:

3s:

004737

043564

027202

5%:

001174

000002

JSR
.WORD

PC TSTPRP

sPREPARE DEVICE FOR TEST

BR
NOP
EMT
JMP

CLR
JSR

R5
PC,GETSTS
ERRVEC,=(SP)

CLR

JSR
BR
NOP
EMT
JMP
MOV
ADD
CLR
JSR
BR
NOP
EMT
JMP

040000

108

ERRVEC+2,-(SP)
#9% ERRVEC
zgR6.ERRVEC+2
PC,CNTCLR

PC ,DEVSEL

108
PC.GET

78
PC.PRIERR

NrOR

027202

001140

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
s:SET TEST NUMBER IN APT MAIL BOX

—b ok

SAIR PO SO

NNNNNNWY ~
0 b an mod
b o
[V
F ¥ 3

COOOO0O0O =)
ANV N

WY
—

' 97202

e
e

gamm
83 ~

b ad

el e
cd

042546

b e
il
b

1379 027124
1380 027124

004737
000404
000240
104000
000137

48:

prurPuurPaurd

027112
027114
027116
027120

027270

OO0

1377 027106
1378 027106

$RASE ,RO
TSTQUE
R
#41,8TESTN

MOV
MoV
Mov
MoV

050774
104000
000137

MOV
MoV
rov

6$:

PC.3(SP)+
7$

R5,S$GDDAT

RMERTI, $BDDAT
#*CILR,$BDDAT
$GDDAT
. $BDDAT
$
RE.STHPO

256

sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE

;GO _TO 18 IF NO ERROR
cRETURN HERE IF ERROR
cERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 108 IF ERROR

;RS = EXPECTED STATUS
<SETUP FOR STATUS
$:PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK

:SETUP FOR BUS TIMEOUT
sR2 = REGISTER INDEX

sGO ISSUE CONTROLLER CLEAR

cGO TO 38 IF NO ERROR
sRETURN HERE IF ERROR
+ERROR NUMBER DEF INED BY SUBROUTINE
:GO TO 7$ IF ERROR
sR3 = REGISTER ADDRESS
sCLEAR THE REGISTER

+GO SELECT DEVICE
:GO _TO 4$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DEVSEL SUBROUTINE

;GO TO 108 IF ERROR

260 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 58 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
;GO TO 78 IF ERROR
;GO CHECK FOR PRIMARY ERRORS

:GO_TO 63 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 78 IF ERROR

JGET DRIVE'S ILR STATUS
21S ILR STATUS 0K??

JYES!!

;SAVE R2 FOR ERROR DATA

sTHE_FOLLOWING CODING FOR HANDLE RH70
:RH 70 R EGISTER NUMBERS IS EiTHER 22 OR 32
#2.R2
7s:
ADD
s INCREMENT THE REGISTER ADDRESS

CZRNDAOD RMBO FCTNL PT1 MACRO v04.00 2B-JAN-82 16:24:51 PAGE 13-50
141

SEQ 01.4

ILLEGAL REGISTER TEST

1392
1303
1394
1395

027206
027212
027214
027216

022702
101314
103420
012705

000050
000002

1396 027222

012760

001400

1398 027234
1399 027240

016003
042703

000050
177774

1397 027230

1400
1401
1402
1403
1404

027244
027250
027252
027256
027262

012702

022703
001402
012702
022702
101402

}282 027264

000667

1407 027266
1408 027270

022626

027270
}293 027274

012637
012637

000054

000000

cMP
BHI
BLO
MOV

#50,R2
28
13
XILR RS

;TIME TO CHECK THE EXTEND ADDRESS REG ?
*BRANCH IF NOT
*BRANCH IF ALREADY SET UP
“EXCEPT ILR HAPPEND

MOV

#564 ,R2

:SET ADDRESS TO 54,IF 22 REGISTERS

#8ITO'8ITI,R3
8s
#50,R2
#74.R2
108

:BIT O AND BIT 1 SET AT THE SAME TIME ?
*BRANCH IF SO
*OTHERWISE
,SET ADDRESS TO 50
*ALL REGISTERS CHECKED ?
*BRANCH IF SO

MOV

MoV
BIC

000003

000050
000074

8s:

cMP
BEQ
MOV
cMP
BLOS

BR
98 :
108:

000006
000004

1(.11

#AT61AT7,RMCS T (RD)
SO(RO) ,R3
77774 R3

cMP

(SP)+,(SP)+

MOV
MOV

(SP)+,ERRVE(+2
(SP)+.ERRVEC

-SET EXTENDED ADDRESS BITS

;1S THIS 22 REG RHPO ?
*LEFT ONLY BIT O AND BIT 1

:NEXT REGISTER

::POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC

;;tt!tttttttttttttttt*ttttQtttttttttttttttttttttttttttttttttttttt

S*TEST 42

SEEK FIRST CYLINDER

;;ttttttttttttttttttttttttttttttttttttttttttt*ttttttttttttttttttt

027300
027300
027302
027304
027310
0273164
027320

000004
000240
012706
013700
013701
012737

001100
001276
001466
000001

1413 027334
16414 027334

004737

041532

112 027326 012737
027340

054130

TS142:

000042

027342
027344
027346
027350
1415 027354

000404
000240
104000
000137

1417 027362

012737

000000

1419 027376

012702

001545

112722
112722
112722
004737
000404

000006
000000
000200
043016

001206

001226

1420 027402

1421
1622
1423
1424

027406
027412
027416
027422
027426

027430

012737
112722

000240

000034

JSR

PC.TSTPRP

:PREPARE DEVICE FOR TEST

LWORD

027572

000005

#STACK ,SP
$BASE ,RO
TSTQUE ,R1
#1,STIMES

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::D0 1 ITERATION

MOV
18:

1416 027354 012737 000000 001446
1418 027370

SCOPE
NOP
MOV
MOV
MOV
MOV

001420

001412

28:

#43,STESTN
054130

::SET TEST NUMBER IN APT MAIL 80X

*TASK DESCRIPTOR AS FOLLOWS:

SCLEAR CONTROLLER € SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE ,_
sRECALIBRATE IF *‘SKI" OR ‘PIP'* IS SET
sVERIFY RECALIBRATION

BR
NOP
EMT
JMP

MOV

#0,RMDCO

MOV

#SEEK!GO,RMCS10 :LOAD SEEK COMMAND IN BUFFER

MOV
MOV

MOVB

MOVB
MOVB
MOVEB
JSR
BR

NOP

108

:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
:G0 TO 108 IF ERROR

sCYLINDER
= 0

#0.RMDAO

sTRACK = 0, SECTOR = 0

#PUTINX R

“R2 POINTS TO REGISTER TABLE

#RMDC, (R2)+

#RMDA.(R2)+
#RMCST, (R2)+
#200, (R2)+
PC,PUT
48

*WRITE REGISTER INDEX TABLE

.
;WRITE TERMINATOR
“G0 WRITE REGIS'ER(S) WITH PUT SUSROUTINE
$G0 TO 4$ If NO ERROR

*RETURN HERE IF ERROR

SRY WY

48:

043370

042546

027572

000405

b ¥

043564

027450
027454
027456
027460
027462
29 027466
30

§§§w wg

027432
027434
027440
027444

2 58 223% 925g8 sg8z
%

—

b ad

LT
a8
NrININ)
G~ON
N

CZRNDAO RM80 F CINL P T1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-51
142
SEEK FIR
IRST C YLINDER

JSR
B8R
NOF
EMT
JMP

027572
051206

26O READ REGISTER(S) WITH GET SUBROUTINE

108

PC.a(SP)+
108
PC,SECERR

PC,o(SP)+

027572

108

9%:

;60 TO 108 IF ERROR

PC,a(SP)+

PC,CMPERRSTS
NDTMSK
DPE

E§§§§

044416

:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE

sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

10$

8s:

:GO_TO 58 IF NO ERROR

;G0 CHECK FOR PRIMARY ERRORS

027572

:SETUP FOR STATUS FETCH

:WAIT FOR SEEK TO COMPLETE

PC,PRIERR

PC.9(SP)+

050562

;ERROR # DEF 3 INED BY PUT SUBROUT INE

PC.GET

PC,SEKSTS
78

78:

SEQ@ 0135

:G0_TO 105 IF ERR

10§

68:

108
PC,GETSTS
PC,TIMOUT

027572

§288 g 888888

EMY
JMP
JSR
JSR

GO _TO 6$ _IF NO ERROR

;GO TO 108 IF ERROR

:GO VERIFY RESULTS OF SEEK OPERATION
;GO 1O 78 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

sCHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
;MASK FOR RMER2

:GO_TO 88 IF NO ERROR

:RETURN HERE IF ERROR

sERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 108 IF ERROR

560 CHECK FOR SECONDARY ERRORS
260 TO 98 IF NO ERROR
sRETURN HERE 1F ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

GO TO 108 IF ERROR

108:
SRR RARRAANAAAAAANRRAR
R AN ARAARRAAARARA RN ARAAAAROERRARROCRORORR AN

*TEST 43

SEEK LAST CYLINDER

SNARRRERRRAEAARAARNEAC
AN ERERAARARRANAARRAANRARARACARREANRARNRANY

1445
1443 027626

1206

gerels

=253

027

388

TST63

01226

18:

SCOPE
NOP
MOV
Mov
MoV
MOV
MoV

sSCOPE CALL
lSTACK SP

$BASE

rsrouén1

#1,STINES
#43,STESTN

;START OF TEST
IfiITIALIZE STACK POINTER
;R0
= UNIBUS ADDRESS

(R1) = DEVICE BEING TESTED
;00 1 ITERATION

..SET TEST NUMBER IN APT MAIL BOX

LIRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-52
143
SEEK LAST CYLINDER

o lelelels)

027720
027722
027724
027726
027732
027736

51
52 027704
53 027710
54 027714

NNNNNNSNNSN
--8'\)
PIPOAINIONNN W
52
NNVNINININSNIN
OO

054130

—h

027632

004737

LSLST
ST ST ST NT ST,V

1644 027626

000404

EMT
JMP

3s:

1460 027760

043564

030064

030064
051206

030064

050562

MoV

Movs
Mov8
mMove
JSR
8R

000200
043016

042546

1464 Q30022

Mov
MOV
MOv8

027742
027746
027750
027752
027754

027764
027766
027770

PC,TSTPRP

054130

030064
042462
043370

1459 027760

JSR
.WORD

041532

030064

48:

5%:

108

;GO TO 10$ IF ERROR

#PUTINX , R2
#RMDC, (R2) +
#RMDA , (R2)+

:R2 POINTS TO REGISTER TABLE
sWRITE REGISTER INDEX TABLE

#200, (R2) +

;WRITE TERMINATOR

"GO TO 4$ IF NO ERROR

#rRMCST, (R2)+
PC,PUT

JSR

PC,GET

108

108
PC,PRIERR

10$

PC.SEKSTS

PC,A(SP)¢

7$:

*CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI" OR 'PIP'' IS SET
*VERIFY RECALIBRATION
:GO TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

#SEEK
!GO, RMCS10 LOAD SEEK COMMAND It BUFFER

PC,GETSTS
P TIMOUT

JSR

STASK DESCRIPTOR AS FOLLOWS:

sCYLINDER = 560.
;TRACK = 0, SECTOR = 0

PC,3(SP)+
68:

;PREPARE DEVICE FOR TEST

#560. ,RMDCO
#0,RMDAO

EMT
JMP
JSR
JSR

JSR

SEQ 0136

10§

PC,CMPERRSTS

*G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*60 TO 108 IF ERROR

*SETUP FOR STATUS FETCH
*WAIT FOR SEEK TO COMPLETE
;60 READ REGISTER(S) WITH GET SUBROUTINE

*GO TO 58 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 TO 108 IF ERROR

;60 CHECK FOR PRIMARY ERRORS

*60 TO 68 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
$60 BACK FOR MORE ERROR CHECKS

*G0 TO 108 IF ERROR

;60 VERIFY RESULTS OF SEEK OPERATION

‘GO TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
$60 BACK FOR MORE ERROR CHECKS

*GO TO 108 IF ERROR

;CHECK ANY ERRORS NOT MASKED

ND TMSK
DPE
8s

“MASK FOR RMER1
‘MASK FOR RMER2
160 TO 88 IF NO ERROR

PC,B(SP)+

16O BACK FOR MORE ERROR CHECKS

108

*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

+GO TO 108 IF ERROR

| CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-53
143
SEEK LAST CYLINDER
1465 030044
1466 030044

004737

030052
030054
030056

°°°333
104
004736

030050 000405

030060

16467 030064
1468

000137

8s:

044416

JSR

B8R

NOP
EMT
JSR

030064

98:

SEQ 0137

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a8(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORE ERROR CHECKS

10$

*GO TO 98 IF NO ERROR
*GO TO 108 IF ERROR

}293 030064

10s:

1(.71

;;ttttttttttttttt 2221221232232 3813123287213 2222221231222 2203

TATEST 44

030064

030066
030070
030074
030100
030106

TST44:

000004

172 030112

000240
012706
013700
013701
012737

001100
001276
001466
000002

012737 000044

001206

}2;2 8%8}52

012737

000001

001446

1475 030126

004737

041532

030132

.
030734

SEEK PRIME CYLINDERS

;.'tttttttttttttttttttttt"tttttttttttttt.t'ttttttttfittttttttttttt

054130

001226

SCOPE

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#2 STIMES

“START OF TEST
:INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
2:D0 2 ITERATIONS

MOV

#1,RMDCO

sFIRST CYLINDER = 1

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

sCLEAR CONTROLLER & SELECT DEVICC
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ‘'SKI'* OR ‘PIP'' IS SET
:VERIFY RECALIBRATION
:GO_TO 28 IF NO ERROR

MOV

;SCOPE CALL

NOP
MOV
MOV
MOV
MOV

LWORD

#44,$TESTN

054130

$:SET TEST NUMBER IN APT MAIL BOX

*TASK DESCRIPTOR AS FOLLOWS:

000404

B8R

104000
000137

030376

EMT
JMP

*ERRGR # DEFINED BY TSTPRP SUBROUTINE
260 TO 9% IF ERROR

1477 030146

012737

000000

MOV

#0,RMDAO

;TRACK = 0, SECTOR = 0

1479 030162
1480 030166
1481 030172

012702
112722
112722

001545
000034
000000

MOV
MOVE
MOVE

#PUTINX R2
#RMDC, (R2)+
WRMDA. (R2)+

030206

004737

043016

030214
030216

000240
104000

1485 030224
1486 030224
3235 030230

)
004737
004737

042462
043370

1489 030234

006737

042546

030242

000240

030136 00024

030140
030142
1476 030146

1478 030154

1482 030176
1483 030202
148%

012737

112722
112722

020212 000404
030220

000137

030240 000404

NOP

000005

001420

2s:

001412

MoV

000000
000200

030376

mov8
MOVB
JSR

B8R

NOP
EMT

3s:

#SEEK1GO,RMCS10 >LOAD SEEK COMMAND iN BUFFER

#rMcsSt, (R2)+
#200, (R2)+
PC,PUT

JMP

JSR
JSR

PC.GETSTS
PC.TIMOUT

JSR

PC,GET

B8R

NOP

*RETURN HERE IF ERROR

*R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX TABLE

sWRITE TERMINATOR

160 WRITE REGISTER(S) WITH PUT SUBROUTINE

*G0 70 38 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

16O TO 9% IF ERROR

;SETUP FOR STATUS FETCH
*WAIT FOR SEEK TO COMPLETE
:G0 READ REGJSTER(S) WITH GET SUBROUTINE

$GO TO 4$ if NO ERROR
*RETURN HURE IF ERROR

CZRNDAQ RMB0O FCTNL PT1 MACRO VO04.00 28~'AN-B2 16:24:51 PAGE 13-54
144

SEQ 0138

SEEK PRIME CYLINDERS

§0244
1490 830236

104
0001

030376

1491 030252

004737

043564

030256

000405

030264

3%8593

000137

030376

1493

030272

004737

051206

030300

000240

030302
030304
145 gggggg

000405

030376

1495 030312

004737

050562

030324

000240

030326
030330

030332

115760
000010
000405
104000
004736

000137

030376

004737

044416

030344
030346
030350
030352

000240
104000
004736
000137

1499 030356
1500 030362
1501 030370
1502 030372

006337
022737
103402
000137

1498 030356

}ggz 030376

000405

;GO CHECK FOR PRIMARY ERRORS

PC.a3(SP)+

JSR

PC,SEKSTS

JMP
BR

001446
001000

001446

030126

98:

1505

:ERROR # DEFINED BY PRIERR SUBROUTINE

*GO BACK FOR MORE ERROR CHECKS
*G0 TO 9% IF ERROR

:GO VERIFY RESULTS OF SEEK OPERATION

;G0 TO 68 IF NO ERROR

JRETURN HERE IF ERROR

:ERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 9% IF ERROR

JSR

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKL®

NDTMSK
DPE
78

:MASK FOR RMER?
;MASK FOR RMER2
;G0 TO 7$ IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEF INED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JMP

PC,a(SP)+
9s

JSR

PC,SECERR

260 CHECK FOR SECONDARY ERRORS

PC,3(SP)+
9s

:RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
GO TO 98 IF ERROR

nnogo
#512. ,RRDCO
98
1$

sSHIFT TO NEXT PRIME CYLINDER
xs THE TEST DONE??
;YES!!
:GO DO NEXT CYLINDER

B8R

8s:

*RETURN
HERE IF ERROR

PC,3(SP)+
9s

EMT
JSR

030376

*6G0 TO S$ IF NO ERROR

EMT
JSR
JMP

.WORD
.WORD
BR

78:

JSR

NOP

1496 030336
1497 030336

030342

PC,PRIERR

NOP

104000
004736
000137

030316
03030
030322

JSR

EMT

149

070276

;ERROR # DEFINED BY GET SUBROUTINE
:GO TO 9% IF ERROR

NOP

104000

004736

030260 000240
030262

EMT
JWP

NOP
EMT
JSR
JMP

ASL
P
8LO
JWP

*G0 T0 98 IF ERROR

;GO TO 88 IF NO ERROR

tttttt*t*ttt'tttttttttttttttttttttttttititttttttttttttt'ttt*ttt

*TEST 45

030376

030376
030400

030402
030406
030612
030416
1506 030424
1507 030432
1508 030432

SEEK ZERO DIFFERENCE

ttttttttttttttttttttttt!tttt'ttittttttttttfitlttttt!tttttt'ttttt

000004
000240

rsras

o1§706
013700
013701
012737
012737

001100
001276
001466
000031
000045

004737

041532

054130

001206
001226
1$:

SCOPE
NOP

MOV
MOV
MOV
MOV
MoV

#STACK,SP
SBASE, RO
TSTQUE .R1
#25. STIMES
#45.$TESTN

JSR

PC rsrpnp

LWORD

05413

:SCOPE CALL
:START OF TEST

INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
$(R1)
= DEVICE BEING TESTED
;D0 25. ITERATIONS
::SET TEST NUMBE® IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER £ SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID

LS LSV VT ST ST\

NN NNN
N NN
ASPININ
O WININO
NININIPIND
N NN

d ah cd md b
e b

LRSS

8 = b B O OOO0O

NN NN 23]
BRIOS &

2288 0068000000
FES
ESE88
WWALAWLN W

) e

ok el e

e ool

b ok

uniai

N.a-b—b_a..a—a_a_t_n-ao
OOVDNO VLSNP

—_C

(=]
—oro &
WO
HO
Noo &

2288

C IR NDAQ RMBO FCINL PT1 MACRO V04 00 28-JAN-82 16:26:51
) 45
SEEK ZERO DIFFERENCE

030536

030704

000003

000000
000209

043016

1 521 030542
1 522 030546

030704
042462
043370

1 524 030552

042546

1 5%

030556
030560
030562

030564
1525 030570

1526 030570

030574
030576
030600

030602

000137

030704

004737

043564

000137

030704

004737
000405

051206

030704
115760

050562

030704
044416

2%:

3s:

48:

58:

6%:

78:

8%:

PAGE 13-55

SEQ@ 0139

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "'SKI'* OR 'PIP'* IS SET
:VERIFY_RECALIBRATION
:60 T3 28 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

BR
NOP
EMT
JMP

MOV
MOV
MOY
MOV

#3,R3
#0,RMDCO
#0 ,RMDAO
#SEEK !GO,RMCS10
#PUTINX,R2
#RMDA
, (R2) +
#RMDC, (R2)+

:R3 = NUMBER OF SEEKS
sCYLINDER = 0
;TRACK = 0, SECTOR = 0
sFUNCTION CODE FOR SEEK
sR2 POINTS TO REGISTER INDEX
sWRITE REGISTER INDEX TABLE

#200,(R2)+

s TERMINATE TABLE

PC,PUT
4s

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

MOVB
MOV8
Move
MovB

JSR
NOP
EMT
JMP
JSR
JSR

108

#RMCST, (R2) ¢

108

PC,GETSTS
PC,TIMOUT

:60 TO 108 IF ERROR

;GO _TO 4$ IF KO ERROR
cRETURN HERE IF ERROR
cERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 108 IF ERROR
sSETUP FOR READING STATUS
sWAIT FOR COMPLETION

JSR
8R

PC.GET

JMP

108

JSR

PC,PRIERR

EMT
JSR

PC a(SP)
¢+

JSR

PC.SEKSTS

EMT
JSR
JMP

PC,3(SP)+

108

;G0 TO 108 IF ERROR

JSR
. WORD
.WORD

PC,CMPERRSTS
ND TMSK
DPE

sCRECK ANY ERRORS NOT MASAED
sMASK FOR RMER1

EMT
JSK
JMP

PC.a(SP)+

JMP

JSR
BR

10§

;GO READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 108 IF ERROR
;G0 CHECK FOR PRIMARY ERRORS
;GO _TO 6% IF NO ERROR
sRETURN HERE IF ERROR

sERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 108 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION
;G0 _TO 7S IF NO ERROR
SRETURN HERE IF ERROR
sERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

sMASK FOR RMER?
;GO _TO 88 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

10§

:GC TO 708 IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRURS
;GO TO 98 IF NO ERROR

CZRNDAQ RME0O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-56
T4 5
SEEK ZERO DIFFERENCE

030670

030674
030674
030676
030700
030704

000240

NOP

104000

004736

600137
005303
001402
009137

030704

9$:

030524

108:

N
(%]

030662
030664
03C666

EMT
JSR
JMP

PC,a(SP)+

DEC
BEQ
JMP

R3
108
3s

10§

SEQ 0140

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:60 TO 108 IF ERROR
;DONE ALL SEEKS??
IYES!!

‘NO = GO DO NEXT SEEK

PR RARNRRARAARAAAAARAA
AR CARRAANRRAAAR AN RARARANAAREAANACCR RN

SATEST 46

SEEK MAXIMUM DIFFERENCE FORWARD

S RNRAANARNERNANNNRAARA
SR AN CACNARRARARARARIAARNRARA RSN AANRAARAANRINANS

TST46:

030704
030704

001100
001276

030732

012737
012737

542 030740
030744

004737
052130

4
1 540
1 541 030740

000046

#STACK,SP

$BASE ,RO
TSTQUE ,R1
#25. ,STIMES

001206
001226

#46,$TESTN

1%:

041532

PC, TSTPRP

052130

OO == OOO0OO
e T T T
- Pgr Yo
SNONNINNININN
ONN=ON
NN NNINSN NSNS
WIAWO S OWWNNININOWIWLWNWLW
ONNNOOSMNNINNNNNNN
N

DN W
WSSR N

KSR
ssss SRees
£

o
(=]

=]
N

b v
b
e
el ok e wrmh crcd e

VIV n
&
\AAAVA
DS BN B B
»
=000

W
N

28
031172
001060

001446
001420
001412

2%:

042546

031172

:(R1) = DEVICE BEING TESTED
2:D0 _25. ITERATIONS
s:SET THST NUMBER IN APT MAIL BOX
sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER © SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE DRIVE
sVERIFY _RECALIBRATION

:GO_TO 28 IF NO ERROR
sRETURN HERE IF ERROR

+ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 88 IF ERROR

#560. ,RMDCO
#0 RMDAOD

sLAST CYLINDER

#RMDC, (R2) +
#RMDA , (R2)+

sWRITE REGISTER INDEX TABLE

sTRACK = 0, SECTOR = 0

#SEEK!GO,RMCS10 cLOAD SEEK COMMAND IN BUFFER
#PUTINX ,R2
:R2 POINTS TO REGISTER TABLE

mrucst, (R2)+
#200, (R2) +

000200
043016

031172
042462
043370

sSCOPE (ALL
sSTART CF TEST
sINITIALIZE STACK POINTER
;RO = UMIBUS ADDRESS

PC,PUT
3s

3s:

JSR

PC,GETSTS
PC,TIMOUT

PC.GET
48

sWRITE TERMINATOR

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO_TO 3% IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY PUT SUBROUTINE
;G0 _TO 88 IF_ERROR
sSETUP FOR STATUS FETCH
sWAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 4$ IF NO ERROR

sRETURN HERE IF ERROR
cERROR # DEFINED BY GET SUBROUTINE
;GO TO 8% IF ERROR

CZRNDAO RMBO FCTNL PT1 MACRO V04.00G 28-JAN-82 16:24:51 PAGE 13-57
T46

SEQ 0141

SEEK MAXIWUM DIFFERENCE FORWARD

1557 u31072
1558 031072

004737

031100
031102
031104

000240
104000
004736

031076

000405

1559 031106

000137

031172

1560 031112

004737

051206

031116
031120
031122
031124
156y 031126
1562 031132

031136
031140
031142
031144
031146
031150
1563 31132
1564 031156
031162

031164
031166
031170
1565 031172

000405
000240
104000
004736
000137
004737

115760
000010
000405
100240
104000
004736
000137
004737
000403

4s:

043564

JSR

031172

050562

031172

044416

000240
104000
004736

8s:

1567

NOP
EMT
JSR

PC,PRIERR

PC,a(SP)+
8S

JSR

PC,SEKSTS

BR
NOP
EMT
JSR
JMP

;G0 CHECK FOR PRIMARY ERRORS

:60_TO 58 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

:60 TO 88 IF ERROR

:60 VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+
8

:60 TO 6$ IF NO ERROR
:RETURN HERE IF ERROR
SERROR # DEFINED BY SEKSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
:60 TO 88 IF ERROR

JSR

PC.CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

JSR
BR

PC,SECERR
8s

;60 CHECK FOR SECONDARY ERRORS
:60 TO 88 IF NO ERROR

.WORD
NDTMSK
-WORD
DPE
BR
78
NOP
EMT
JSR
PC.a(SP)+
N

NOP
EMT
JSR

PC.a(SP)+

s e RARRAR AR R AR ANAAR R

SRTEST 47

A AR

:MASK FOR RMER1
:MASK FOR RMER2
:60 TO 7$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
:60 TO 88 IF ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
A AR AN AN

AR AR ARAANRA R

ARARAR AN AR A

SEEK ADJACENT FORWARD

SaRARAARRRANAAARARAA
RN R AR A AAARAARAAARAAAAARAAAARRAAAARARRAAERRAY

031172
031172
031174
031176
031202
031206
15eg 031212

000004
000240
012706
013700
013701
012737

001100
001276
001466
000047

1569 031220
1570 031220

004737

041532

031224

054130

T5147:

001226
18:

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE,RD
TSTQUE,R1
#47,STESTN

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSIPRP

:PREPARE DEVICE FOR TEST

.WORD

054130

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE !

VERIFY CONTROLLER CLEAR OPERATION.

031226
031230
031232
157y 031236

000404
000240
104000
000157

031474

1572 031240

012737

000000

001446

BR
NOP
EMT
JNP

28
108

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
SRECALIBRATE IF "'SKI"" OR 'PIP'* IS SET
:VERIFY_RECALIBRATION
:60_TO 28 IF NO ERROR
SRETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 108 IF ERROR

MOV

#0,RMDCO

:CYLINDER = 0

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-58
147

~NONNN
= OV

0000~ NN~ VN

d cond mnd e wh
b d o

VIiLavhaianu

031246

000009
000005
001545
000034
000006
000000
000200

031254
031262
031266
031272
031276
031302
031306
031306
031312
031314
031316
031320

1582 031324
1583 031330
1584

1585 031334
031340

031342

031344
031346
1586 031352
1587 031352

043016

004737

031474
042462
043370

004737
000404
000240
104000
000137

042546

004737
000405
000240

063564

031474

001 420
001 412

MoV
MOV

MOV
MOVB

3s:

4$:

5%:

104000

004736
000137

004737
000405

031474
051206

6$:

MOv8
Mov8
Movs

031474
050562

#0 ,RMDAO

#RMDA® (R2)
+

#RMCST, (R2)+
#200, (R2)+
PC,PUT

SRLRAE
OOOOOOOOOO
NSWWWO

s B

1593 031436

044416

031474

108

:GO_TO 108 IF ERROR

JSR
B8R
NOP
EMT
JMP

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
8k
NOP
EMT
JSR
JMP

PC,PRIERR

PC,GETSTS
PC,TIMOUT

108

PC,3(SP)+

10§

PC,SEKSTS

PC a(SP)+

10$

78:

PC,CMPERRSTS

NDTMSK
DPE

001446
001446
031306

PC,3(SP)+

108

8$:

PC,SECERR

PC,3(SP)+

9s:

sTERMINATE REGISTER TABLE
;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 4$ IF NO ERROR

031474

;TRACK = 0, SECTOR = 0

#SEEK!GO,RMCS10 SFUNCTION CODE FOR SEEK
#PUTINX,R2
:R2 POINTS TO REGISTER INDEX
#RMDC, (R2)+
:WRITE REGISTER INDEX TABLE

JSR
BR
NOP
EMT
JMP
JSR
JSR

000240

SEQ v -

SEEK ADJACENT FORWARD

108

TST

sRETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:SETUP FOR STATUS FETCH
:WAIT FOR COMPLETION

:GO_TO 58 IF NO ERROR

;RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

;G0 TO 108 IF ERROR

:GO CHECK FOR PRIMARY ERRORS

;GO _TO 6% IF NO ERROR

:RETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE

:6GO BACK FOR MORE ERROR CHECKS

:GO TO 108 IF ERROR

:GO VERIFY RESULTS OF SEEK OPERATION

;G0 _TO 7$ IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY SEKSTS SUBROUTINE

G0 BACK FOR MORE ERROR CHECKS

;G0 TO 108 IF ERROR

s CHECK _ANY ERRORS NOT MASKED
:MASK FOR RMER1
sMASK FOR RMERZ2
:G0_TO 88 IF NO ERROR
sRETURN HERE IF ERROR

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

:60 TO 98 IF NO ERROR

SRETURN HERE IF ERROR

cERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 108 IF ERROR

:zéq§r TIME THROUGH??

*YES- SEEK TO ADJACENT CYLINDER FORWARD
10$:

CZRNDAD RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 13-59
147
SEEK ADJACENT FORWARD

SEQ 0143

SoARRARARARRANNARRARANNA
NN RO RN ERARARANRANARAAARARANARNAINONRARROANN

LRTEST SO

SEEK ADJACENT RTVERSE

S oRARARARARARARANAAANCRAACANN
AN AAARARAANRAANRAARAARAANNAANA NN RAS

031474

[

15750:

031474
031476
031500

000004
000240
012706

031514

012737 000050 001226

031506
031510
1602
1603 031522

1604 031522

031526

001100

013700
013701

001276
001466

004737

041532

054130

18:

SCOPE
NOP
MOV
MOV
MOV

ASTACK, SP

;SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER

MOV

#50,STESTN

+:SET TEST NUMBER IN APT MAIL BOX

JSR

PC.TSTPRP

.WORD

$BASE ,RO
TSTOUE ,R1

054130

*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

:PREPARE DEVICE FOR TEST

“TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE IF VOLUME NOT VALID

=O OO\

o
e ek s

VNI

cd
mh
b ced

Vo~

e
b ad e

OO
O

b cmd e

ard nd s

b d

ONOONON

CDC“:ERC)

N31530

000404

000240
104000
000137

032000

031542
031550
031556
031564
031570
031576

012737
012737
012737
012702
112722
112722

000001
000000
000005
001545
000006
000034

8332?3

112722

000200

031610
031614
031616
031620
031622
031656

004737
000404
000240
104000
000137
004737

043016

031636
031642
031644

004737
000404
000240

042546

og}gg‘

000137

032000

031600

112722

-0

OO~

032000
042462

; 3 1654 004737 043564

]

O~ O

000000

031632 004737 043370

031643 104000

031532
031534
3%1323

2
001446
001420
001412

48:

0 mg 000405

3 1662
31666
1696

000240
104
0047

000137

032000

1674

004737

051206

}272

NOP
EMT
JNP

10$

*60 T0 28 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
*G0 TO 108 IF ERROR

MOV
MOV
MoV
MoV
MOVB
MOVB

#1,RMDCO
#0,RMDAQ
#SEEK !GO,RMCS10
#PUTINX,R2
#RMDA, (R2)+
#RMDC.(R2)+

;CYLINDER = 1
;TRACK = 0, SECTOR = 0
;FUNCTION CODE FOR SEEK
*R2 POINTS TO REGISTER INDEX
sWRITE REGISTER INDEX TABLE

MOV8

#200, (R2)+

:TERMINATE TABLE

MOVB

#RMCST, (R2)+

JSR
8R
NOP
EMT
JMP
JSR

PC.PUT
2

JSR
BR
NOP

PC.GET
58

JMP

108

JSR

EMT

JSR

B8R
"

:VERIFY PACK ACKNOWLEDGE
“RECALIBRATE IF *‘SKI” OR ‘PIP'* IS SET
:VERIFY RECALIBRATION

NOP
EMT
JSR

JMP

JSR

108
PC,GETSTS

PC. TIMOUT

PC.PRIERR
6

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
*G0 TO 4$ IF NO ERROR
SRETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
$6G0 TO 108 IF ERROR
*SETUP TO READ ALL REGISTERS

:WAIT FOR SEEK TO COMPLETE

:GO READ REGISTER(S) WITH GET SUBROUTINE
*GO TO S8 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE
*G0 TO 108 IF ERROR

:GO CHECK FOR PRIMARY ERRORS
$G0 TO 68 IF NO ERROR

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

PC,SEKSTS

:GO VERIFY RESULTS OF SEEX OPERATION

10$

:GO TO 108 IF ERROR

CZRNDAG RMBO FCTNL PI1 MACRO V04.0C 28-JAN-82 16:24:51 PAGE 13-60

150

SEQ 0144

SEEK ADJACENT REVERSE

031700 000405

B8R

€31702
031704
031706

000240
104000
004736

1626 8;};}2 000137

032000

1625 031714
031720
031722
031724
031726
031730

004737
115760
000010
000405
000240
104000

050562

031736

1626 031740
1627 0317640

000137

032000

004737

044416

031746

000240

031732 004736

031744

031750
031752

031754

000405

104000
004736

000137

032000

022737

000001

1531 031770

005337

001446

1632 031774

;ggz 032000

001004

000137

8s:

JMP

001446

031610

1635

PC,a(SP)+

10§

JMP

10§

JSR

PC.a3(SP)+

JSR

PC,SECERR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

*G0 TO 108 IF ERROR

;CHECK ANY ERRORS NOT MASKED
*MASK FOR RMER1
*MASK FOR RMER2
‘GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

+GO BACK FOR MORE ERROR CHECKS
160 TO 108 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

260 TD 98 IF NO ERROR

*RETURN HERE IF ERROR

EMT
JSR

PC,a(SP)+

108

*GO TO 108 IF ERROR

CMP

#1,RMDCO

xs [THIS THE FIRST SEEK??

DEC

RMDCO

ves - SEEK TO ADJACENT CYLINDER

JMP
BNE

10s:

;G0 TO 7$ IF NO ERROR

PC,CMPERRSTS
NDTMSK
DPE
8s

98:

JSR
"WORD
"WORD
8R
NOP
EMT

NOP

1628 031760
1629 031760

1630 031766

NOP
EMT
JSR

JMP

10§

JIRRRRARAARARRN A AR AR N

S*TEST 51

:ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE FRROR CHECKS

*G0 SEEK

AR AR NANRRANNNRAAANNARRAANRAAAARANRRRS

SEEK INVALID SECTOR

3Rt 4238331213133 0423 831322233333 23 1312312723123

032000

032000
032002
032004

000004
000240
012706

032014

013701

1637 032026
1638 032026

004737

032010

013700

15751:
001100

SCOPE
NOP
MOV

#STACK, SP

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER

001466

MOV

TSTOUE ,R1

*(R1)
= DEVICE BEING TESTED

001276

1636 032020 012737 000051
032037

054130

3T TR

MOV
001226
1$:

041532

$BASE, RO

MOV

#51,$TESTN

JSR

PC,TSTPRP

.WORD

054130

)

:RO_= UNIBUS ADDRESS

::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

*VERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE =
*RECALIBRATE IF '‘SKITM OR ‘PIP"*
032034
032036

000404
000240

032042

000137

032416

012737
012737

000005
000000

032040
1639 032046
1640 032046
1641 032054

1642 032062
1643 032070

104000

012737
012737

000000
000036

BR
NOP

JMP

148

MOV
MOV

#SEEK !GO,RMCS10 ; SEEK COMMAND
#0,RMOFO
*FORMAT 18 BIT

EMT

001412
001444

001446
001420

28:

SVERIFY RECALIBRATION

MOV
MoV

#0 RMDCO
#30. ,RMDAO

IS SET

$G0 TG 28 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 14$ IF ERROR

*CYLINDER = 0
*INVALID SECTOR = 30., TRACK = 0

001545

052466

148

2GO_TO 4$ IF NO ERROR
JRETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
sGO TO 148 IF ERKOR

JSR
BR
NOP
EMT
JMP

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
B8R
NOP
EMT
JSR
JMP

PC,CLRSTS

JSR
BR
NOP
EMT

PC.PUT

JMP

148

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 78 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 148 IF ERROR

JSR

PC,T1MOUT

sWAIT FOR GO TO RESET

042546

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

032416

EMT
JMP

143

JSR

PC .PRIERR

EMT
JSR
JMP

PC,a{SP)
¢

JSR

PC,SEKSTS

004737

062546

032416
052604

043016

043370

043564

032416

051206

032416
~

5%:

N2/ 16

032416

032220

1659 032224
1660 032224
1661
1662 032230
032234

050562

6$:

78:

8s:

9%:

-0
"o

032214
032216

sTERMINATE TABLE
sSETUP INPUT REGISTER INDEX
PC,CNTCLR

032416

004737

move
MoV
mMove
Move
JSR

JSR
BR
NOP
EMT
JMP

000137

004737
000405
000249
104000
004736
000137

Move

3$:

SEQ 0145

:R2 POINTS TO REGISTER TABLE
sWRITE REGISTER INDEX TABLE

MOV

b avadd

000032
000006
000034
000000
000209
042462

032076
032102
032106

—nd

£
He
XXX

N = OO0
~NONNS

(el
a

W
S"
S
B

[eale sl

-—r

NP
- 0

NDAQ RMBO FCINL PT1 MACRO V04.00 28-uAN-82 16:26:51 PAGE 13-61
SEEK INVALID SECTOR

148

PC,a(SP)+

14$

14§

10§

2GO ISSUE CONTROLLER CLEAR

:GO_TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 148 IF ERROR

:GO VERIFY CONTROLLER CLEAR OPERATION
;60 _TO 6% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY CLRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 148 IF ERROR

;GO TO 88 IF NO ERROR
SRETURN HERE IF ERROR
cERROR # DEFINED BY GET SUEBROUTINE
;GO TO 148 IF FRROR

:G0 CHECK FOR PRIMARY ERRORS
;GO _TO 9$ IF NO ERROR
sRETURN HERE 1F ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;GO TO 148 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION
;60 _TO 108 IF NO ERROR

sRETURN HERE IF ERROR

EMT
JSR
JMP

PC,a(SP)+

14$

sERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;G0 TO 148 IF ERROR

JSR

PC,CMPERRSTS

sCHECK ANY ERRORS NOT MASKED

CZRNDAO RMBC FCTNL PT1 MACRG V04.00 28-JAN-82 16:24:51 PAGE 13-62

151

SEQ O14¢

SEEK INVALID SECTOR

032312

032314

117760

.WORD

000010

.WORD

JAE!NDTMSK

DPE

032316 000405

B8R

032322
032324

104000
004736

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

1671 032332

004737

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

032340
032342
032344
032346

000240
104000
004736
000137

PC(SP)+
1%

*RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
$GO TO 14$ IF ERROR

033320 000240

NOP

1670 o§§§§3 000137 032416
032336 000405

167¢ 032352
1673 032352

)
005257

1677 032366
1678 032376
1679 032376
1681 032412
;ggg 032416

1674 032356
gg;g 032364

1680 032406

128

064416

032416

13s:

NOP
EMT
JSR
JMp

13§

RETURN HERE IF ERROR
*GO TO 14$ IF ERROR

;GO TO 138 IF NO ERROR

000100

CMP
BLOS

RMDAO, #64 .
3$

‘MDAO

: INCREMENT SECTOR ADDRESS

032737
001010
012737

010000

001444

010000

001444

8IT
BNE
MOV

NFMT16,RMOFO
148
#FMT16,RMOFO

;WAS TEST DONE FOR 16 BIT MODE YET ?
:BR IF YES
:SET 16 BIT FORMAT MODE

000137

032132

JMP

*NO - TEST NEXT SECTOR

012737 000037

001420

MOV
148:

1684

INC

14$

:60 TO 128 IF NO ERROR

001420

023727
101662

001420

Jmp

128

-MASK FOR RMER1

;MASK FOR RMER?2

#31. ,RMDAOD

:DONE YET ?
SNO = TEST NEXT SECTOR

sSET INVALID SECTOR 31.

;:tttttttttt*ttt*tttttttttttttttttttttfitttlttttt!tttttttttttfitttt

S*TEST 52

SEEK INVALID TRACK

. e 1323238333223 38283231333 28382 2123238322323

032416
032416
032420
032422
032426
032432
1685 032436

000004
000240
012706
013700
013701
012737

001466
000052

1686 032444

004737

041532

032450 054130

T§152:
001100
001276

032452
032456
032456
1487 8%5222

000404
000240
104000
000137

033014

1688 032464

012737

000005

1690 032500

013737

001334

1689 032472

1691 032506

o1§737

105237

001421

013702

001545

1692 032512

012737

1694 032524

112722

1693 032520

000000
010000

000032

001226

SCOPE
NOP

3831232322232 3

MOV
MOV
MOV
MOV

NSTACK,SP
$BASE , R0

TSTQUE ,R1
#52,8TESTN

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

054130

STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER € SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE &
*RECALISRATE IF *‘SKI” OR 'PIP"* IS SET
SVERIFY RECALIBRATION
:G0 TO 18 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
G0 TO 13$ IF ERROR

BR
NOP
EMT
JMP

001412

MoV

#SEEK
!GO, RMCST0 ; SEEK COMMAND

001420

MOV

LSTRK,RMDAO

s
001446
001444

32333032322 Y

MOV

INCB

138
#0,RMDCO

SCYLINDER = 0

RMDAO+1

‘SETUP FIRST INVALID TRACK

MOV

NFMT16,RMOFO

MOVB

ARMOF,(R2)+

MOV

#PUTINX,R2

SLAST TRACK,

SECTOR = 0

;SET 16 BIT FORMAT

*R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX

(ZRNDAQ RMBO FCTINL PT1 MACRO v04.00 28~JAN-82 1€:24:51 PAGE 13-63
152
SEEK INVALID TRACY

1695 03.:530
1696 032536

112722
112/22

000034
000006

1697 032540
1698 032544
}933 gggggg

11%722
112722

004737

000000
000200

1701 0325564

004737

052466

032562

000240

1702 3;5293

000137

033014

1703 032572

004737

042546

032600
032602

000240
104000

000137

033014

1705 032610

004737

052604

032616

000240

032560 000404

032564

104000

032576 000404

1704 8?52?3
032614

032620
022622

1706 8%%2%3
1707 032630

032634
032636
032640
032642
1708 032646

000405

104000
004736

042462

004737

043016

033014

};«1)3 032646 004737 043370
1711 032652

004737

032660
032662
1712 83;293

000240
104000
000137

033014

1713 032670

004737

043564

032676

000240

032702

004736

032674 000405

032700

EMT

6$:

JSR

PC,CLRSTS

o?ynmo

032756 000010

*GO TO 133 IF EKROR

;60 VERIFY CONTROLLER CLEAR OPERATION

*G0 TO 58 IF NO ERROR

*RETURN HERE IF ERROR

13$

JSR

PC,TIMOUT

sWAIT FOR GO TO RESET

JSR

PC.GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

13s

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
+60 TO 138 IF ERROR

NOP
EMT
JMP

*GO TO 138 IF ERROR

138

PC,PRIERR

JSR

PC,3(SP)+

JSR

PC.SEKSTS

JSR

PC,a(SP)+

JSR

PC.CMPERRSTS

JMP

108:

+GO TO 48 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

*G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*G0 TO 138 IF ERROR

EMT

050562

:60 READ REGISTER(S) WITH GET SUBROUTINE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

000137 033014
004737

160 TO 138 IF ERROR

PC.PUT

8R
NOP
EMT
WP

83 74

032730

*ERROR ugnaen DEF INED BY SUBROUTINE

JSR

JMP

BR
NOP
EMT

83 730

*RETURN HERE IF ERROR

*ERROR # DEFINED BY CLRSTS SUBROUTINE
$GO BACX FOR MORE ERROR CHECKS

NOP

*GO TO 38 IF NO ERROR

PC,A(SP)+

000405
000240
104000

wg 32730

*SETUP INPUT TABLE FOR STATUS

EMT
JSR

JSR

004

138

o§2714
032716
3§ 720

722

;60 ISSUE CONTRO! LER CLEAR

JMP

B8R
gs

PC,CNTCLR

PC,GET

B8R
’s

;TABLE FOR OUTPUY

s TERMINATE TABLE

JSR

NOP
EMT

SEQ ("«

#rMcsi, (R2)+
#200, (R2)+
PC.GETSTS

138

#RMDC., (R2)+
#RMDA (R2)+

JMP

B8R

104000

1715 83 710 004737 051206

1718

042546

714 o3 ;93 000137 033014

JSR

B8R

NOP

033014

032656 000404

move
MOVE
JSK
NOP

006137
00U4V4
000240
104500
000137

Mov8
MOVB

E 12

13§

LWORD IAE 'NDTMSK

.WORD DPE

*60 TO 78 IF NO ERROR

;60 CHECK FOR PRIMARY ERRORS

:G0 TO 88 IF NO ERROR

SRETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

*GO TO 138 IF ESRROR

;60 VERIFY RESULTS OF SEEK OPERATION

*GO TO 93 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE

GO BACK_FOR MORE ERROR CHECKS

*GO TO 138 IF ERROR

;CHECK ANY ERRORS NOT MASKED

MASK FOR RMER1

:MASK rokanenz

CZRNDAO RMBO FCTNL PT1 MALRO v04.00 28-JAN-B2 16:24:51 PAGE 13-64
152
SEEX II.VALID TRACK

032740

000405

719 8?5;22

000137

033014

1720 032754

004737

0644416

032762
032766
032766

000240
104000
004736

032742
032744
032746

032760

032770

1721 032774
1722 032774
1723 033000

1724 033006
1725 033010

}559 033014

000240
104000
004736

000405

B8R

000137

033014

105237
123727

001421
001421

000137

032554

101002

000200

PC.I(SP)+

JSR

PC,SECERR

JMP

1728

JRETURN HERE IF ERROR
SERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK _FOR MORE ERROR CHECKS

13§

;60 TO 138 IF ERROR

12§

;G0 CHECK FOR SECONDARY ERRORS

:G0 TO 128 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
260 BACK_FOR MORE ERROR CHECKS

INCB
CMPB

RMDAO+1
RMDAO+1,#128.

INCREMENT TRACK ADDRESS
;DONE??

JMP

STEST NEXT INVALID TRACK

JMP
BHI

138:

;60 TO 118 IF NO ERROR

NOP
EMT
JSR

128:

118

SEQ 0148

13§
138

;GO TO 138 IF ERROR
:BR IF YES

JoRNRRNRRRRRARARAARRARRRATRARNARARAAARNANARANRASNANNANANNAAANRANNARRS

;*TEST 53

JoFRRARRARRANR AR

033014
033014
033016
033020
033026
033030
1729 033034

000004
000240
012706
013700
013701
012737

001100
001276
001466
000053

1730 033042

004737

041532

033046 054130

TST53:

033050
033052
033054
V731 8%%322

000404
000240
104000
000137

033406

1732 033062
1733 033070
1734 033076

012737
012737
012737

000005
001061
000000

1736 033112
1737 033116
1738 033122
1739 033126

012702
112722
112722
112722

001545
000006
000034
000032

1735 033104

1740 033132

012737

112722

010000

};fi% ggg;zg

004737

042462

1744 033146

004737

052466

000404

s
001412
001446
001420

001444

AR R

AN RN CRAANRAANRA

AR AANANNARA

EAR

#STACK,SP
$BASE RO
TSTQUE ,R1
#53,8TESTN

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
;RO = UN]JBUS ADDRESS
s(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL B0OX

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

054130

sTASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID

*VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF *SKI" OR
:VERIFY_RECALIBRATION

'PIP*’

IS SET

BR
NOP
EMT
JMP

MoV
MOV
MoV

#SEEK!GO,RMCST0 ;SEEK FUNCTION CODE
#561. ,RRDCO
*START AT FIRST INVALID CYLINDER
#0_RMDAD
*TRACK = 0, SECTOR = 0

MOV
MOVB
MOVB
MOVB

#PUTINX ,R2
#RMDA,
(R2;+
#RMDC.(R2)+
#RMOF . (R2)+

*R2 POINTS TO INDEX TABLE
SWRITE REGISTER TABLE

#200, (R2)+

;TERMINATE TABLE

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

MOV

MOVB

R AR RN C

SCOPE
NOP
MOV
MOV
MoV
MoV

LWORD

000000

1741 033136 11 752 000200
033152

001226

SEEK INVALID CYLINDER

MOVB
JSR

JSR

128

#FMT16,RMOF0

#RMCST,(R2)+

PC,GETSTS
3s

*GO TO 18 IF NO ERPOR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 128 IF ERROR

:SET 16 BIf FORMAT

‘SETUP FOR STATUS
*GO TO 3$ IF NO ERROR

SREY
SRY &
¥35

3s:

033406
043016

000137

033406

S% 033240

004737

043370

54 033244

004737

042546

033406

6 03%%62

004737

043564

033406

73;

051206

PC,a(SP)+

12§

PC.PUT

6$:

128

§5o--gw WEagsaua
W~
QWVMOON

Wi
N
HOW
OWVIN

7%:

8%:

033406
050562

033406
044416

9%:

108:

;GG_TC 4$ IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY GET SUBROUTINE
;60 TO 128 iF ERROR

250 VERIFY CONTROLLER CLEAR OPERATION
;GO _TO 58 IF NO ERRNR
sRETURN HERE IF ERROR
cERROR # DEFINED BY CLRSTS SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS

:GO TO 12$ (F ERROR

:GO WRIVE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 68 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 128 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR

PC,GET

sGO READ REGISTER(S) WITH GET SUBROUTINE

EMT
e

128

JSR

PC.PRIERR

PC,a(SP)+

128

JSR

NSO

N
N
AARRR W t:
g N
2RO

=
g
sl

v
Ml

;GO REAL REGISTER(S) WITH GET SUBROUTINE

EMT

6
7

£S283% &8RS8
b

)
b andd

tvetytv

~no

000137

v
trtwie

033256

—

PC,GET

PC,CLRSTS

5s:

SEQ 0149

12¢

128

[K4

sRETURN HERE IF ERROR
;ERR"R
ER DEFINED 3Y SUBROUTINE
250 10 12% IF ERROR

NON

052604

033234

13-65

$288%
& 3882
NODOWN

042546

033406

W
~N

=]
i
N
N
N
N

3 N
N g

OO0
NN
N
NN

033406

NOP

—

F..GE

NOP

W
N oOOWVN

—

(= Q0
[ Wi
(v NN

:'.
o NRNSRRBFY

%%%NUAO RMBO FCINL PT1 MACRO V04 N0 28<JaN~82 16:264:57
SEEK INVALID CYLINDER

PC,(SP)+
PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

NOP

;G0 TO 128 IF ERROR

:MASK FOR RMER1

JAE !NDTMSK
DPE
108

sMASK FOR RMER?

PC,a(SP)+

16O BACK FOR MORE ERROR CHECKS

12$

JSR

:GO CHECK FOR PRIMARY ERRJRS
:GO _TO 88 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED B8Y PRIERR SUBROUTINE
;60 BACK _FOR MORE ERROR CHECKS
;GO TO 128 IF ERROR
:GO VERIFY RESULTS OF SEEK OPERATION
:G0_TO 98 IF MO ERROR
sRETURN HERE 1F ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
:L0 BACK_FOR MORE ERROR CHECKS

PC,SEKSTS

12§

JSR

:G0 TO 7$ IF NO ERRCP
sRETURN HERE IF ERi."F
cERROR # DEFINED BY GET SUBROUTINE
;GO TO 12$ IF ERROR

PC,SECERR

11§

$60 TO 108 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

:GO TO 12% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO _TO 118 IF NO _ERROR
;RETURN HERE IF ERROR

LLRNDAD RMBU FCINL PT1 MLRO V04.00 28-JAN-B2 16:24:51 PAGE 13-66
153
SEEK INVALID CYLINDER

033356
033360

104000
004736

1763 Qggggg

000137

033406

1764
1765
1766
1767

005237
023727
103002
000137

001446
001446

033366
033372
033400
033402

;;gg 033406

033146

128:

1770

SEQ 0150

EMT
JSR

PC. a(sP)+

12$

‘GO TO 128 IF ERROR

INC
e
BHIS
JMP

RMDCO
RMDCO,#1026.
128
28

: INCREMENT CYLINDER ADDRESS
-DONE ALL CYLINDERS ?
‘BR IF YES
STEST NEXT INVALID CYLINDER

002000

H i

JERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JINRARRANRAARAAAA
A AN AN T E NN RN ARARNAARANR AR RN A AR AANE AN EINOTEN

SwTEST 56

IVC SEEK TEST

:;ittttttttttttttttttt.'ttttttttt'ttttttttttt‘(tttfitltfittttQtt | 222}

033406
033406
033410
033412
033416
033422
- 033426

000004
000240
12706
013700
013701
012737

001100
001276
001466
00005¢

1772 033434

004737

052466

033440
033442
033444
1773 8%%2?3

1774 033452

033460
033466
033474
033500
033502
033504
033506

0004604
000240
104000
000137
112737

112737
012737
004737
000404
000240
104000
000137

75156

033746
000026

000200
000001
043016

012737
012737
012737
012737
012702
112722
112722
112722

000005
000000
000000
000000
001545
00002%
000006
000034

1787 033576
033602

004737
000404

043016

033604
33606
1788 33%2}2

1789 033614

€53620
033622
033604

112722
112722
0064737

033746

004737

042546

JSR

PC.CNTCLR

:GO ISSUE CONTROLLER CLEAR

MOVB

001546
001436

2s:

(00000
002200
042462

000240
104000
000137
006404
000240
164000

001545

001412
001436
061446
001420

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#54,$TESTN

:SCOPE CALL
:START OF TEST
;INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
*:SET TEST NUMBER IN APT MAIL BOX

BR
NOP
EMT
JNP

033746

1775 033512
1776 033512
1777 033520
1775 033526
1779 033534
1780 033542
1781 033546
1782 033552
1783 033556

178% 033562
1785 033566
1786 033572

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

MOVEB
MOV
JSR
8R
NOP
EMT
I

:GO TO 1S IF NO ERROR
:RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
;G0 TO 88 IF ERROR

#RMMR1,PUTINX

;SETUP PUT INDEX TABLE

#200.PUTINX+1
#DMD . RMMR10
PC,PUT
2
8s

:SET TERMINATOR BYTE
*SET RMMR1 QUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUTINE
;60 TO 28 IF NO ERROR
*RETURN HERE IF ERROQ
*ERROR DEFINED BY PUT SUBROUTINE
<60 TO 88 IF ERROR

MOV
MoV
MOV
MOV
MOV
MOVB
MOV
MOVB

#SEEK !GO,RMCS10
#0.RMAR10
#0.RMDCO
;CYLINDER = 0

JSR
BR

PC.oUT
3s

Mmov8
MOVB
JSR

NOF
ENT
JMP
JSR

BR
NOP
EMT

#0.RMDAO
#PUTINX R2
#RMMR1,(R2)+
#RMDA,(R2)+

:TRACK = 0, SECTOR = 0
:WHITE REGISTER INDEX
:TABLE

#RMDC. (R2)+

#rMCST, (R2)+
#200, (R2)+
PC,GETSTS

:SETUP SOR STATUS

SRETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 88 IF ERROR

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

*G0 WRITE REGISTER(S) WITH PUT SUBRGUTINE
:GO TO 38 IF NO ERROR

$GO TO 4$ IF NO ERROR
sRETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

112

CIRNDAO RMBC FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 13-67

1754

SEQ ¢«

1VC SEEK TEST

033626

000137

033746

004737

043564

1790 033632

1791

033636
033640
033642
033844
032646

000405
000240
104000
0064736
137

1792 033652
1793 03
1794 033662

032737
00101
01%73

1797 033704
1798 033706
1799 033706

104064

004737

033716

000405

1795 033670
1796 033676
033712
033714

033720
033722
033724
033726

1800 033732
1801 033732

033736
033740
033742
033744

1802 033746
1803

013737
0642737

115760
010010

033746

010000

001400

010000

001140

001400
167777

033746

004737

044416

5$:

001142
001142

JWP

;GC 70 8% IF ERROR

JSR

PC,PRIERR

:GO CHECK FOR PRIMARY ERRORS

BR
NOP
EMY
JSR
JMP

8s:

1804

033746

WQERél $BDDAT
A*Clve,-SBDDAT

JSR

PC,CMPERRSTS

B8R

NDTMSK
IVC!DPE

TSTSS
001100

03376¢

013701

001466

1806 033774

004737

041532

012737 000055

PC,SECERR

034000 054130

sCHECK ANY ERRORS NOT MASKED
IMASK FOR RMER1

SEKROR # DEFINED BY CMPERRSTS SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS
:GO TO 8% IF ERROR
;GO CHECK FOR SECONDARY ERRORS

:GO_TO 88 IF ND ERROR
;RETURN HERE IF ERROR

PC.3(SP)+

:ERROR # DEF INED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

AR RAARRAR

AR AR AR EABAARAR

AR AN ARAAACANS

ABORT SEEK TEST

CEN AR ARANANAR AR AR RANARARRARRAAAREARACRANLE

sSCOPE CALL
:START OF TEST

$BASE, RO

INITIALIZE STACK POINTER
RO= UNIBUS ADDRESS

MOV

#55,STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

MOV

001226

:GOOD DATA FOR TYPEOUT
;BAD DATA FOR TYPEOUT

:RETUPN HERE IF ERROR

JSR

SCOPE
NOP
MoV

:DID INVALID COMMAND SET??
:YES..

260 TO 78 IF NO ERROR

PC.(SP)+
8s

BR
NOP
EMT
JSR

360 TO 88 IF ERROR

;MASK FOR RMER2

NOP
ENMT
JSR
JMP

SRERRARAARTAAARA R AR

033756 013700 001276

1805 033766

PC,8(SP)+
8s

SRR AARENRARARARA AR AN EA

000004
000240
01%706

:REfURN HERE [F ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

EMT

'TEST 55

033746
033750
033752

;G0 TO 58 IF NO ERROR

#1VC,RMER2!
63
#1VC,SGDDAT

.WORD
.WORD

78:

817
BNE
MOV

MoV
BIC
6$:

050562

000240
104000
004736
000137
000403
000240
104000
004736

48:

LWORD

#STACK ,SP

TSTQUE ,R1

055130

(R1) = DEVICE BEING TESTED

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

000404
000240
104000
000137

034310

012737
012737

040000
000000

Q01426
001446

13:

BR
NOP
EMT
JMP

:60 TO 98 IF ERROR

MoV
MoV

#UNS ,RMER10
#0,RMDCO

;SET UNSAFE ERROR

IS SET

:60 T0 1S IF NO ERROR

:RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE

;CYLINDER= 0

034002
034004
034006
034010
1807 034014
1808 034014
1809 034022

:RECALIBRATE IF ''SKI"* OR 'PIP'*
:VERIFY RECALIBRATION

CZRNDAQ RMBO FCTINL PT1 MACRO V04.00 2B8-JAN-82 16:24:51 PAGE 13-68
155
ABORT SEEK TEST

1810 034030
1811 034036

012737 000000
012737 000005

1813
034050
1814 034054

11272
112722

000006
000034

1816 034094

112722

000000

1818 034074

004737

1a1§ 034044 01 703 001545
1815 034060

1817 034070
1819 034100

001420
001412

112722

000200

MOVB

#200, (R2)+

004737

043016

1821 034116

004737

034124

000240

MOVB

JSR

B8R

1820 3332}}(2, 000137 034310
034122 000404

020000

001350

9001350
157777
001140

001142
001142

001411
013737
042737
005037
104065

004737

043370

18320 034172

004737

042546

034176 000404

034309 J00500

000137 034310
004737 043564
0004CS
000240
104000
004736
000137

034310

1834 034230

004737

060210

034262

004736

1836 034250

004737

034256

000010

034264

104000

034234 000405
034236 000240
034540 104000

1835 33325'5'3 000137 034310
034054

155760

~$:

4L8:

8IT

BEQ
MOV
BIC
CLR
EMT

JSR
JSR

EaT

JMP
JSR
BR
NOP

050562

#PIP,RMDSI

X
RMDSI ,$BDDAT
#*CP1P,$BDDAT
$GDDAT
65

260 TO 98 IF ERROR

;G0 READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 3$ IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY GET SUBROUTINE

*GO TO 93 IF ERROR

*DID DRIVE START SEEK??
;NO!!
:BAD DATA FOR TYPEQUT

:GOOD DATA FOR TYPEOUT

PC,TIMOUT

JWAIT FOR GO TO RESET

PC.GEY

260 READ REGISTER(S) WITH GET SUBROUTINE

9s
PC.PRIERR
6$

:GO TO 58 IF NO ERROR

ERROR
¥ DEFINED BY CET SUBROUTINE

:G0 TO 9% IF ERROR
:GO CHECK FOR PRIMARY ERRORS
“GO 70 68 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS
$GO TO 9% IF ERROR

JSR

PC.STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

JSR

PC.a(SP)+

JSR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

.WORD

DPE

:MASK FOR RMER2

Jmp
.WORD

BR
NOP

034566 004736
034270 000137 034310

JSR
JMP

EMT

8s:

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

PC.3(SP)+
9

034260 000405
0346262 000240
1837 034274

*G0 TO 28 IF NO ERROR

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

EMT
JSR
N

B8R
NOP
EMT
’s

PC,GET

B8R

;SETUP FOR STATUS FETCH

PC.PUT

JSR

JMP

;AND OUTPUT BUFFER

PC.GETSTS

£EMT

*SETUP REGISTER INDEX TABLE

#RMCS1.(R2)+

JMP

B8R

1046000

032737

NOP
EMT

NOP

1823 034142
1824 034144
1825 034152
1826 034160
1827 034164

034220
034222
1833 8%2553

042546

034130 000137 034310

1831 8%4"5%
1832 034210
034214
034216

#RMDA,
(R2) ¢+
#RMDC, (R2) ¢+

#PUTINX,R?

#RMERT, (R2)+

000240
104

%ggg 034166

MOoVve
MOVB

mOVD

034108
03611

1822 034134

#0 ,RMDAO
-TRACK = 0, SECTOR = 0
#SEEK'G0,RMCS10 ;SEEK COMMAND

MOV

042462

SEQ 0152

MoV
MoV

115725 000014

034104 000404

036126

J 12

NDTMSK!UNS

PC,a(SP)+
9s

:GO TO 7$ IF MO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBKOUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 98 IF ERROR

-MASK FOR RMER1

*G0 10 88 IF NG ERROR
*RETURN HERE IF ERROR

*ERPOR # DEFINED BY CMPERRSTS SUBROUTINE

+60 BACK FOR MORE ERROR CMECKS
:GO TO 98 IF ERROR

LZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 15:24:51 PAGE 13-69
155

K 12

SEQ 0153

ABORT SEEK TEST

1838 034274

036300
034302
034304
0346306

11323 034310

004737

000403
000240
104000
004736

044416

JSR

9s:

18[,1

BR
NOP
EMT
JSR

PC,SECERR

PC,a(SP)+

;G0 CHECK FOR SECONDARY ERRORS

*60 TO 98 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

M :ttttttttttttttttittttttttttttfittttttttttttt'ttttttttttttttttttt

LeTEST 56

SEEK AT OFFSET

::ttttttttttttttttttttttttttttttttttltttttttttt*ttttttttttttttttt

034310
034310
024312
034316
034320
034324
1842 034330

000004
000240
012706
013700
013701
012737

1843 034336
1844 034336
034342

004737
054130

15756:
001100
001276
001466
000056

000404
000240

034352
1845 034356

000137

034634

012737
012737
012737

000000
000000
000015

1846 034356
1847 034
1848 034372

1849 034400
1850 034404

1851 034410

1852 034414

104000

02702
112722
112722

1127222

001545
000034

1862 034512

000137

JMP

108

:GO TO 108 IF ERROR

MOV
MOV
MOV

#0.RMDCO
sCYLINDER = 0
#0.RRDAO
sTRACK = 0, SECTOR = 0
#OFFSET!GO,RMCS10
:LOAD OFFSET COMMAND IN BUFFER

MoV
MOVB

#PUTINX.R2
#RMDC, (R2)+

movB

#RMCST. (R2)+

MOV
MOVB
MOVB
JSR

#SEEK!GO,RMCS10 ;LOAD SEEK COMMAND
#RMCS1,PUTINX
;LOAD REGISTER INDEX TABLE
#200,PUTINX+1
_
PC,PUT
:60 WRITE REGISTER(S) WiTH PUT SUBROUT LidE

034634

3$:

043370

034634

s
001412
001545
001546

BR
NOP
EMT
JMP
JSR

BR
NOP

EMT
5%:

JMP

#RMDA. (R2)+

:R2 POINTS TO REGISTER TABLE
SWRITE REGISTER INDEX TABLE

PC.GETSTS

000005
000000
00N200
043016

0 34,506

001446
001420
001412

28:

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

JSR

012737
112737
112737
004737

034504 104000

#200, (R2)+
PC,PUT

1858 034452
1859 034460
1860 034466
1861 034474

000404
000240

BR
NOP

sRECALIBRATE IF *'SKI” OR 'PIP"' IS SET
SVERIFY RECALIBRATION
2G0 TO 28 IF NO ERROR

+CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

MOVE
JSR

042462

034500
034502

:PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

000200
043016

004737

PC.TSTPRP
054130

MOVEB

1855 034442

;ggg 8%2223

JSR
_WORD

000006

112722
004737

000404
0v0240
104000
000137

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#56,$TESTN

:SCOPE CALL
SSTART OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
$(R1) = DEVICE BEING TESTED
*;SET TEST NUMBER IN APT MAIL BOX

EMT

000000

1853 034420
1854 034424

034430
034432
034434
034436

1$:

041532

034344
034346

034350

001226

SCOPE
NOP
MOV
MOV
MOV
MoV

;WRITE TERMINATOR
$GO WRITE REGISTER(S) WITH PUT SUBROUTINE

108

*G0 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEF INED BY PUT SUBROUTINE
$GO TO 108 IF ERROR

PC.TIMOUT

*WAIT FOR OFFSET TO COMPLETE

108

SSETUP FOR STATUS FETCH

GO TO 5 IF NO ERRCR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PUTSUBROUTINE
*G0 TO 108 IF ERROR

LZRNDAQ RM80 FCTNL PT1 MACRO v04.00 28~JAN-82 16:24:51
lYSé
SEEK AT OFFSET
1863
1864

034512

1565
1866 034516

004737

034634

1867 034534
1868 034534

63:

043564

034540
034542

78:

051206

000137

034634

004737

050562

115760

8%:

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

108

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 108 IF ERROR

JSR
B8R

PC,PRIERR

EMT
JSR
JMP

004737
000403
000240
104000
004736

9$:

044416

;GO CHECK FOR PRIMARY ERRORS

;G0 TO 78 IF NO ERROR

SRETURN HERE IF ERROR

10§

:ERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR

JSR
B8R
NOP
EMT
JSR
JMP

PC,SEKSTS

;G0 VERIFY RESULTS OF SEEK OPERATION

JSR
.WORD
.WORD
8R

PC,CMPERRSTS
NDTMSK
DPE

:GO_TO 88 IF NO ERROR

:RETURN HERE IF ERROR

sERROR # DEFINED BY SEKSTS SUBROUTINE
2G0 BACK FOR MORE ERROR CHECKS

PC,3(SP):

10§

;GO TO 108 IF ERROR

sCHECK ANY ERRORS NOT MASKED

¢MASK FOR RMER1
;MASK FOR RMER2
:G0_TO 98 IF NO ERROR

EMT
JSR
JMP

PC.a(5P)+

-ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR
BR

PC,SECERR
10§

EMT
JSR

PC.a(SP)+

NOP

108:

;GO _TO 6% IF NO ERROR
sRETURN HERE IF ERROR

PC.a(SP)+

NOP

034634

;GO0 TO TIMOUT SUBROUTINE

JSR
BR
NOP
EMT
JMP

NOP

034634

1871 034574
1872 034574

SEQ 0154

SWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

043370
062546

034522
034524
034526
034530

PAGE 13-70

:RETURN HERE IF ERROR

108

:GO TO 108 IF ERROR

:GO CHECK FOR SECONDARY ERRORS

:GO_TO 108 IF NO_ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORE ERROR CHECKS

SRR AARARRARARRAAAARE
R AR AAARARARRAAAARCAAARNRARARENARARARAANNRAAY

*TEST 57

LOOK AHEAD TEST

SRR RRRARRAARARREAN RN A N

TSTS?
001100
001276
001466
063057

001226

052466

034674

1880 034700

035354
000037

1$:

SCOPE
NOP
MoV
MoV
Mov
MoV

JSR
BR
NOP
EMT
JMP
Mov

RN ARRRAAANANRRENRACR
AN
ARARAAAARCEEY

sSCOPE CALL

sSTART OF TEST

N#STACK, SP

INITIALIZE STACK POINTER

TSTQUE ,R1

(R1) = DEVICE BEING TESTED

PC,CNTCLR
18

:GO TO 1S _IF NO ERROR

$BASE, RO

#57,STESTN

208

= UNIBUS ADDRESS

:SET TEST NUMBER IN APT MAIL BOX
;G0 ISSUE CONTROLLER CLEAR

:RETURN HERE IF ERROR
;ERROR
ER DEFINED BY SUBROUTINE
360 TO 208 IF ERROR
:R3 = SAMPLE CGUNT FOR 18 BIT MODE

~NXT

—

wVInG

NDAQO RMB80O FCTNL PT1 MACRO V04.00 28-UAN-82 16:24:51 PAGE 13-71
LOOK AMEAD TEST

1881 034704
1882 034712
1883 034720

012737
012737
012737

000000
000000
000000

1885 034734
1886 034740
1887 034744
1888 034750

012702
112722
112722
112722

001545
000005
000034
000032

1884 034726

1889 034754

012737

000030

112722

000000

}ggg 0347646

004737

062462

1893 034770

004737

043016

1890 034760

034774
034776
035000

112722

000404
000240
104000

001444
001446
001420

001412

000002
063532
000200

}385 035032

012737

000031

1904 035040
035044

004737
000404

043016

035046
035050
035052
1905 035056
}389 035056

000240
104000
000137

035344

004737

043370
042546

004737
000405
000240
104000
004736

043564

000137

035344

1912 035120
1913 035124
1914 035130
1915 035134
1916 035140

012704
012705
016014
016002
020214

104372
177777
000020
000020

1918 035144
1919 035146

005305
001370

001403

1920 035150 000411

MOVB

#200, (R2)+

38:

144466

43:
5$:

035344

001412

6$:

78:

8
98:

#SEARCH,RMCS10

SEQ 0155
sSTART WITH 18 BIT MODE
*CYLINDER = 0
*SEARCH TRACK = 0, SECTOR = 0

*SEARCH COMMAND

#RMCST. (R2)+
PC,GETSTS

JSR

PC.PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

19$

$G0 TO 198 IF ERROR

MOV
JSR
BIT
BEQ
DEC

#2,R2
PC.STIMER
#8177,aCLKADR
58
R2

Mov

#SEARCH!GO,RMCS10

JSR
BR
NOP
EMT
JMP

PC.PUT
6

198

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
160 TO 198 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR COMPLETION

JSR
BR

PC,GET
78

;60 READ REGISTER(S) WITH GET SUBROUTINE
GO TO 78 IF NO ERROR

BNE

004737
000404
000240
104000
000137

1917 035142

#PUTINX
R2
#RMDA, (R2)+
#RMDC.(R2)+
#RMOF . (R2)+

MOV

BR
NOP
EMT

001370

1908 035062
035066
035070
035072
035074
1909 035100
1910 035100
035104
035106
035110
035112

1911 83?133

MOV
MOVB
MOVB
MOVB

JSR

035002 000137 035344
012702
004737
032777
001774
005302

#0,RMOF O
#0.RMDCO
#0.RMDAOD

MOVB

000200

1894 035006
1895 035006
1896 035012
1897 035016
1898 035024
1899 035026

}ggg 035030

28%:

MOV
MOV
MOV

n 12

NOP
EMT
JMP

198

*G0 TO 3S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
;D0 2 CLOCK CYCLES
:START CLOCK TIMER
;TIMER DONE??
:NO!!
*DEC NUMBER OF CYCLES

*CONTINUE IF NOT DONE

;EXECUTE SEARCH COMMAND

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
160 TO 68 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 198 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,PRIERR
8s
PC,a(SP)+

;GO CHECK FOR PRIMARY ERRORS
160 TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

MoV
MOV
MOV
MOV
CMP

#BUFFER R4
#-1,RS
RMLACRO), (R4)
RMLA (RO) .R2
R2, (R4)

:Ré = STORAGE ADDRESS
:RS = GROSS TIMER
:STORE RMLA SAMPLE
*GET ANOTHER LOOK
*ARE SAMPLES SAME??

DEC
BNE

RS
93

STIMEOUT??
*NO = TRY AGAIN

JMP

BEQ

B8R

19§

10§

128

*G0 TO 198 IF ERROR

SYES!!

*PROGRAM TIMEOUT

LZRNDAO RM80 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-72
157

N 12

SEQ 0156

LOOK AHEAD TEST

1921
1922
1923
1924
1925

035152
035156
035160
035162
035166

062704
005303
001410
026002
001360

1927 035172
1928 035174

001373

1926 035170

035174
}ggg 035176

000002

108:

000020

118:

005305

128:

0353564

1932 035202

012702

003500

1934 035212
1935 035216

012704
032737

104372
010000

1933 035206

;gg; 035224

012703
001404

1938
1939 035226
1940 035232
1941 035236
1942 035240

012702
012703
012405
062705

1945 035250

005005

1943 035244
194& 035246
1946 035252

1947 035254

1948 035256

1949 035262

1950 035266

020205
103007

010537

011437
104353

000036

005303

1955 035276
1956 035304

032737
001004

}ggz 035274

1957 035306

003700
000040

000100

1960 035316
1961 035324
196§ ogssg&

1963 035336
}32§ 035340

1966 035344

o§5344
1967 035350

;ggg 035354

‘R4 = BUFFER ADDRESS
IS SAMPLE FOR 18 BIT MODE ?

;SET 16 BIT SAMPLE PARAMETERS
MOV
#3700 ,R2
MOV
#32. .R3
148:
MOV
(R&)+,RS
ADD
#100,RS

:R2 = MAXIMUM SAMPLE
*R3 = NUMBER OF COMPARES
*GET A SAMPLE AND INCREMENT
*FOR EXPECTED VALUE OF NEXT

MOV

BEQ

010000

001444

032737
001007
052737

001000

001444

001000
000041
034726

001444

188:
198:

208:

148

R2.RS
15§

(WP

RS, (R&4)

CLR

BEQ

16$

*R3

= NUMBER OF COMPARES

:BR IF YES

*SHOULD NEXT BE 0 ?
:NO!!

$YES = CHANGE EXPECTED

$1S NEXT SAMPLE CORRECT??

SYES!!

MOV

RS, SGDDAT

EMT

353

DEC

:ALL SAMPLES CHECKED??

BIT
BNE

NFMT16,RMOFO
17$

:;TEST DONE FOR 16 BIT MODE ?
*BR IF YES

188

:DO AGAIN FOR 16 BIT MODE

BIT
BNE
8IS

#SSEI .RMOFO
19
#SSE1,RMOFO

;TEST FOR 16 BIT MODE 4/ SSEI SET ?
‘B8R IF YES
SSETUP FOR 16 BIT MODE W/ SSEI AND

MOV
MOV

(SP)+,ERRVEC+2
(SP)+.ERRVEC

:;POP STACK INTO ERRVEC+2
::POP STACK INTO ERRVEC

B8R

BNE

MOV

17$:

#30. ,R3

cmP
BHIS

MOV

012737

1970

352
20s

#BUFFER R4
NFMT16,RMOFO

168:

000006
000004

EMT
JMP

MOV
8IT

001142

001444

012637
012637

)

‘TIMEOUT??

:n§ = MAXIMUM SAMPLE

001140

010000

012703
000137

118

#3500,R2

158:

001360

}323 035314 000407

BNE

mov

001444

1951 035270 000425
1952 035272

;ADVANCE STORAGE ADDRESS
*ALL SAMPLES TAKEN??
TYES!
‘WAIT FOR CHANGE
TYES!!

.SET 18 BIT sAnPLg PARAMETERS

138:

020514

001406

#2,R4
R3
13s
RMLA (RO) ,R2
98

DEC

104352
000137

1931

ADD
DEC
BEQ
(WP
BNE

MOV
JMP

(R&) , $BDDAT

198

148

AFMT16,RMOFO

#33..R3
23

sEXPECTED VALUE

*RECEIVED VALUE

*NO - TEST NEXT SAMPLE

SET 16 BIT MODE AND

SSET SAMPLE COUNT,
DO AGAIN FOR 16 BIT MODE W/ SSEI

:;tttittttttitttttttttttttttttttttttttt'tttfitttttttttttttttttttit

S*TEST 60

35354

035354
035356

SEARCH ON CYLINDER

SIANERRRNAARARAAARAAARANERALERAARARAAANARAAARAARAAAAAAANNARANRAEANES

000004
000240

T§160:

SCOPE
NCP

:SCOPE CALL
SSTART OF TEST

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:c«:51 PAGE 13-73

035410
035412
035414
035416
1973 035422
1974 035422
035426
035434
035442
035450
035456
035462
035466

ON
W

041532

0 73
5613
HE&

035406

001100
001276
001466
000060

#STACK,SP

$BASE RO

TSTQUE ,R1

001226

035776
000037
000000
000000
011000
000005
001545
000006
000034
000032
000000
000200
042462
043016

000137
004737

035776
643370

004737

042546

1%:

001446
001420
001444
001412

043564

035776

A H

051206

012737

035776
000031

¢PREPARE DEVICE FOR TEST

001412

5$:

s TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

sRECALIBRATE IF ‘'SKI'* OR 'PIP'' IS SET
sVERIFY RECALIBRATION

#31..R3
#0,RMDCO

:R3 = MAXIMUM SECTOR ADDRESS
sCYLINDER
= 0

#RMDA, (R2)
+

*FOR SEEK TO CYLINDER 0

128

:GO_TO 1$ IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 128 IF ERROR

#0 .RMDAO
:TRACK = 0 SECTOR = 0
#FMT16!SSE],RMOFO
;SET 16 BIT MODE W/ SSEI
#SEEK!GO,RMCS10 ; SEEK COMMAND
#PUTINX,R?
:SETUP REGISTER INDEX TABLE
MRMDC. (R2)
+
#RMOF . (R2)
+

ARMCST. (R2)+
#200, (R2)+
PC,GETSTS

;SETUP FOR STATUS FETCH

PC.PUT

*GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JSR

128
PC, TIMOUT

$60 TO 128 IF ERROR

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

12%

:RETURN HERE If ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;60 TO 128 IF ERROR

JSR

PC,PRIERR

sGO CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:ERROR ¥ DEFINED BY PRIERR SUBROUTINE
GO BACK_FOR MORE SRROR CHECKS

NOP
EMT
JSR
JMP

JSR
NOP

035606
1994 035612

PC,TSTPRP

MOV
MoV
MoV
MoV
Mov
MOV
MovB
MovB
MOVB
MovB
Movs

NOP
EMT

3s:

:(R1)
= DEVICE BEING TESTED

:ISET TEST NUMBER IN APT MRIL BOX

NOP
EMT

035776

RO = UNIBUS ADDRESS

BR
NOP
EMT
JMP

JSR
JSR

2s:

SINITIALIZE STACK POINTER

#60,STESTN

054130

000404

SNNNSNINSNINSN
SN
NN N O
NN PN NINNN

1971
1972 035402

012706
013700
13701
1 73

035360
035364
035370
035374

1975
1976
1977
1978
1979
1980
1981

SEQ 0157

SEARCH ON CYLINDER

160

8 13

128

PC,SEKSTS

:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

*GO TO 38 IF NO ERROR

:GO_TO 4$_IF NO ERROR
:RETURN HERE IF ERROR
GO TO 128 IF tRROR

:GO VERIFY RESULTS OF SEEK OPERATION
:GO_TO 5$ IF NO ERROR

RETURN HERE 1F ERROR

:ERROR# DEFINED BY SEKSTS SUBROUTINE

EMT
JSR

ggia(sp)+

Mov

#SEARCH!GO, RHCS10

GO BACK_FOR HORE ERROR CHECKS

GO TO 128 _iF ERROR
sSTORE SEARCH COMMAND

CZRNDAO RMBO FCTINL PT1 MACRC V04.00 2B-JAN-82 16:24:51 PAGE 13-74
160
SEARCH ON CYLINDER
1995 035620

004737
000404
000240

043016

000137

035776

004737

043370

104000

AS:

042546

035776
043564

000137

035776

004737

056624

000405

035776

2004 035720

2005 035720

115760

050562

78:

8s:

9%:

PC,PUT

JSR

PC,TIMOUT

sWAIT FOR SEARCH TO COMPLETE

JSR
B8R
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

:GO CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK_FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS

;GO VERIFY SEARCH OPERATION

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE

NOP

2006 035744
2007 035744

035776

004737

044416

035776
001420
001420

108:

11$:

128:

SEQ 0158

JSR
8R
NOP
EMT
JMP

000137

EMT
JSR
JMP

+GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 _TO 63 IF NO ERROR

sRETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

128

;GO TO 12% IF ERROR

:GO _TO 7$ IF NO ERROR

sRETURN HERE IF ERROR

sERRGR # DEFINED BY GET SUBROUTINE

128

:G0 TO 128 IF ERROR

:GO _TO 88 IF NO ERROR

128

:GO TO 128 IF ERROR

;G0 TO 98 IF NO ERROR
sRETURN HERE IF ERROR

sERROR # DEFINED BY SCHSTS SUBROUTINE
:GO BACK_FOR MORE ERROR CHECKS

P a(SP)+

12%

108

PC,a(SP)+

;G0 TO 128 IF EFRROR

sCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

HASK FOR RMER?
G0 _TO 708 IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY CMFERRSTS SUBROUTINE

128

:60 BACK_FOR MORE ERROR CHECKS
;GO TC 128 IF ERROR

JSR
B8R
NOP
EMT
JSR
JMP

PC,SECERR
118

:GO CHECK FOR SECONDARY ERRORS
;G0 TO 118 IF NO ERROR

12§

:GO TO 128 IF ERROR

INC
cMP
BHIS

RMDAO
R3.RMDAO

: INCREMENT SECTOR ADDRESS
IDONE AL SECTORS??

PC,a(SP)+

sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
GO BACK_FOR MORE ERROR CHECKS

AN RRA AN ANAARA AR A AR AN RCR AR AAAARNRARANAARRCARRARERRARR
R IRAARRY

tTEST 61

SEARCH OFF CYLINDER

RN AR AR AR ARANAARAR AR AR AT AR

035776

75761

sSCOPE CALL

SCOPE

N 0P
MoV

MOV

A NN ANARRAARRNERARRAA
A RARARRS

#STACK, SP

$BASE ,RO

:START OF TEST
INITIALIZE STACK POINTER
;R0= UNIBUS ADDRESS

CZRNDAO RM30 FCTNL PT1 MACRO VC4.00 28-0AN-82 16:24:51 PAGE 13-75
161

SEQ@ 0159

SEARCH OFF CYLINDER

036012
2015 036016

013701
012737

001466
000901

2016 036926

004737

041532

036030

054130

MoV

#61,8TcSTN

TSTQUE ,R1

:(R1)

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

MOV

001226

.WORD

054130

= g;VICF BEING TESTED

2:SET TE

NUMBER IN APT MAIL BOX

*TASK DESCRIPTOR AS FOLLOWS:

JCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

SVERJFY PACK ACKNOUL§DGE

036032
036034
036036
2017 8?2822

000404
000240
104000
000137

036440

2018 036044

012737

000000

2020 0346060

012703

0004627

2022 036070
2022 036076

012737
010537

2019 036052
2021 036064

012737

012705

2024 036102

012702

2026 036112
2027 036116

112722
112722

2025 036106

011000

000430
000005
001446

036440

004737

043370

2035 036160
036164
036166
036,70

004737
000404
000240
104000

042546

2038 8%2515

000137

036440

004737

043564

036440

2039 036216

004737

051206

036224

000240

036230
036232

004736
000137

036226
2040 036236

:R3 = SEARCH CYLINDER

MOV

#280. .RS

*R5 = SEEK CYLINDER

#PUTINX.R2

*R2 POINTS TO REGISTER TABLE
:FOR SEEK COMMAND

#SEEK GO, RMCS10 >LOAD SEEK COMMAND
R5,RMDCO
*LOAD CYLINDER ADDRESS

MOVB

#RMOF, (R2)+

JSR

B8R
3s:

48:

NOP
EMT
JMP

PC.PUT

$GO WRITE REGISTER(S) WITH PUT SUBROUTINE

SSETUP FOR STATUS

*G0 TO 38 IF NO ERROR

PC, TIMOUT

;WAIT FOR SEEK TO COMPLETE

JSR
8R
NOP
EMT

PC,GETM
4$

JMP

13$

;GO READ REGISTER(S) WITH GET SUBROUTINE
26O TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

JSR

PC.PRIERR
58

*60 TO 13$ IF ERROR

;G0 CHECK FOR PRIMARY ERRORS
:G0 TO 58 IF NO ERROR

*RETURN HERE IF ERROR

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK_FOR MURE ERROR CHECKS

JSR

PC,SEKSTS

;G0 VERIFY RESULTS OF SEEK OPERATION

Jmp

ENT
68:

:TERMINATE TABLE

JSR

NOP

036440

#RMCST.(R2)+
#4200, (R2)+

13$

B8R

104000

*SETUP REGISTER INDEX TABLE

*RETURN HERE IF ERROR
:ERROR # OEF;NED BY PUT SUBROUTINE
$G0 TO 138 IF ERROR

;SET 16 BIT MODE W/ SSEI

MOV
MOV

NOP

000137

036222 000405

#279. .R3

MOov8
MOVB

000240

104000
004736

MOV

PC,GETSTS

000240
104000
000137

036206
036210

2%:

042462

036144
036146
036150
2032 0361564
53%2 036154

036206

sSTART AT TRACK = 0, SECTOR
= 0

NFMT16'SSEL, Rnoro

JSR

043016

000405

#0.RMDAD

MOV

#RMDC.(R2)+
#RMDA. (R2)+

2031 036136 004737

036172
2036 036176
2037 036176
036202

MOV

MOVB
MOVB

000000
000200

036142 000404

001412

*60 TO 18 IF NO ERROR
;RETURN HERE ]F ERROR
:ERROR & DEFINED BY TSTPRP SUBROUTINE
*GO TO 138 IF ERROR

000034
000006

112722
112722

004737

001444

MOV

000032

2030 036132

001420

BR
NOP
EMT
JMP

001545

112722

2028 036122
2029 036126

:RECALIBRATE IF '‘SKI"* OR 'PIP'' IS SET
JVERIFY RECALIBRATION

JSR
JMP

13$

PC,a(SP)+
13§

*G0 TO 138 IF ERROR

*G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE

GO BACK FOR MORE ERROR CHECKS
*G0 TO 13$ IF ERROR

CéQNUAO RMBO FCTNL PT1 MACRC v04.00 28~JAN-82 16:24:51 PAGE 13-76
SEARCH OFF CYLJNDER

2041 036236
2042 036042
2043 036250
036254
036256
036260
0362€2
2044 03€266
2045 036266
2046
2047 936272
038276

010337
012737
004737

001446
000031

043016

043370

004737

042546

MOV
JSR
B8R
NOP

EMT

036440

004737

Mov

001412

7¢:

JMP

036440

2048 036310
2049 036310

030440

2052 036350
2053 836350

036356

004737
115760
000010
000405
000240
104000
004736
000137

005303
005205
005237
023727

2063 036440

2064
2065

101002
000137

:GO TO 7$ IF NO ERROR

*RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

*GO TO 138 IF ERROR

13%
PC,TIMOUT

sWAIT FCR SEARCH TO COMPLETE

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

056624

:GO_TO 8% IF NO ERROR
sRETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE

;GO TO 138 IF ERROR

:GO CHECK FOR PRIMARY ERRORS
:G0 _TO 98 IF NO ERROR

PC.a(SP)+

cERROR # DEFINED BY PRIERR SUBROUTIME
GO BACK_FOR MORE ERROR CHECKS

PC,SCHSTS

:GO VERIFY SEARCH OPERATION

:RETURN HERE IF ERROR

13§

9$:

10§

PC,a(SP)+

036440

138

108:

050562

PC,CMPERRSTS
NDTMSK
DPE

118

PC.a(SP)+

036440

036070

PC,SECERR

12%

13§

128:

R3
RS
RMDAO
RMDAO, #31.
138

000037

13$:
SRR

RANR A AN AR AAAREN

tTEST 62

:GO TO 138 IF ERROR

:GO_TO 108 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SCHSTS SUBROUT INE

GO BACK_FOR MORE ERROR CHECKS
GO TC 138 IF ERROR

sCHECK _ANY ERRCRS NCT MASKED
:MASK FOR RMER1
;MASK FOR RMER?
GO TO 118 IF NO_ERROR
:RETURN HERE IF ERROR

:ERROR # DEF INED BY CMPERRSTS SUBROUTINE
:GO BACK_FOR MORE ERROR CHECKS

:GO TO 13$ IF ERROR

:GO CHECK FOR SECONDARY ERRORS

GO TO 128 IF NO_ERROR

:RETURN HERE IF ERROR

PC.a8{5P)+

036440

001420
001420

13$

118:

044416

000137

PC.PRIERR

104000

004738
000137

:LOAD CYLINDER ADDRESS

NSEARCH!GO,RMCS10
-LOAD SEARCH COMMAND
PC.PUT
;60 WRITE REGISTER(S) WITH PUT SUBROUTIANE

138

8s:

063564

004737
000405
000240

R3,RMDCO

036300

SEQ 0160

:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK_FOR MORE ERROR CHECKS

;GO TO 13$ IF ERROR

sDECREMENT SEARCH CYLINDER

< INCREMENT SEEK CYLINDER
s INCREMENT SECTOR ADDRESS

:DONE_ALL SECTORS??
:BR IF YES

;D0 NEXT SECTOR

RN AR RARRRAARARAAANRAANNCRAAAANNNARARARENRS

SEARCH INVALID SECTOR

s RRRRRERARRERAARARARAAAAR
AR
RAARARAAAARRRRAARARARAAARRRARARARACNAR

CZRANDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-77
162
SEARCH INVALID SECTOR

2066
2067 036466

004737
054130

013700
013701
012737

TST62:

888

000004
000240
012706

000062

001226

041532

SCOPE
NOP
Mov
MOV
MoV
MoV

JSR
.WORD

SEQ@ C

#STACK, SP

sSCOPE CALL
;START OF TEST
INITIALIZE STACK POINTER

TSTQUE ,R1

(R1) = DEVICE BEING TESTED

PC,TSTPRP

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

$BASE, RO

#62.$TESTN

054130

:RO
= UNIBUS ADDRESS

::SET TEST NUMBER IN APT MAIL BOX

:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLECGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE A
:RECALIBRATE If "'SKI"*
OR
:VERIFY_RECALIBRATION
:60_T0 18 IF NO ERROR

'PIP'* IS SET

:RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE

036602
036604
082 036610
083 036610
036614
03661
03662

0366%2
084 036626

ggg; 036626

b wnd asd cnd cmd ad
cnd wd
b e

~
N
NSNS ~

NOONN

2081 036572
036576
036600

Qbbb
ad 23 O OOVOO

2070 036514
2071 036522
2072 036530
2073 036536
2074 036542
2075 036546
2076 036352
2077 036556
2078 036562
2079
66
2080 036572

g8 SR8
SESES ®ShNAnuANeY
ugaou LNNININININD O NN

037040
001444
001446
001420
001412

:60 TO 128 IF ERROR

18:

sSET 18 BIT FORMAT

:CYLINDER = 0

:FIRST INVALID SECTOR = 30.

#SEARCH!GO,RMCS1 0
sSEARCH COMMAND
#PUTINX.R?
sWRITE REGISTER TABLE FOR

ARMDC, (R2)+

ARMOF. (R2)+
#RMDA. (R2)+

062462
052466

037040

043016

aRMCST, (R2)+
#200, (R2)+

2s$:

sSETUP STATUS FETCH

PC,CNTCLR

2GO ISSUE CONTROLLER CLEAR
GO TO 3$ IF NO ERROR
;RETURN HERE IF ERROR
cERROR NUMBER DEF INED BY SUBROWTINE

128
JSR

sTERMINATE TABLE

PC.GETSTS

3s:

s COMMAND

PC,PUT
43

:60 TO 128 IF ERROR

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
GO _TO 4$ IF NO ERROR
;RETURN HERE IF ERROR

128

:ERROR # DEFINED BY PUT SUBROUTINE
16O TO 128 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

042546

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

037040

EMT
JWP

128

JSR

PC ,PRIERR

037040

043370

043564

5$:

EMT

:GO_TO 58 IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

;60 TO 128 IF ERROR

;GO CHECK FOR PRIHARY ERRORS
:GO_TO 6$ IF NO ERROR

:RETURN HERE [F ERROR

:ERROR # DEFINED BY PRIERR SUBROUTINE

CINNDAO RM80 FCTNL PT1 MACRO Vv04.00 28-JAN-82 1€:24.51 PAGE 13-78
162
SEARCH INVALID SECTOR

036662

004736

036664 000137 037040

2090 036670
2091 036670

004737

036700
036702

104
00473€

2073 036710

004737

036720
036722

104000
004736

036676 000405
036676 000240

6s:

056626

036714 000405
036716 (00240

JSR

PC.a(SP)+

JSR

PC.SCHSTS

EM
JSR

PC,a(SP)+

*ERROR # DEFINED BY SCHSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR

PC.STCDRVSTS

;G0 CHECK FOR CHANGES IN DRIVE STATUS

EMT
JSR

PZ,a(SP)+

*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR
.WORD

PC,CMPERRSTS
IAE 'NDTMSK

JMP

B8R
NOP

2092 3332;9'6 €30137 037040

’s

060210

JMP

B8R
NOP

036726 000137 037040

JHp

128

12§

260 BACK FOR MORE ERROR CKECKS

GO TO 12% ]F ERROR

;60 VERIFY SEARCH OPERATION

‘60 TO 78 IF NO ERROR
*RETURN HERE IF ERROR
*GO TO 128 IF ERROR

*G0 10 88 IF NO ERROR
*RETURN HERE IF ERROR

*GO TO 128 IF ERROR

2054 036730
2095 036730
036736

004737
117760

036740

000405

104000
004736

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

<ERROR # DEFINED BY SECERR SUBROUTINE
+60 BACK FOR MORE ERROR CHECKS

INC
CMP
BLOS

RMDAO
RMDAQ, #64.
118

; INCREMENT SECTOR ADDRESS
*DONE YET
SNO = TEST nsxr SECTOR

817

#EMT16,RMOFO0

036736

8s:

SEQ 01¢&¢

050562

000010

.WORD

036742 000240

036746
036746

NOP

036750 000137 0370640

2096 036754

2097 036754

004737

036764
036766

104000
004736

026760 000405
036762 000240

98:

044416

BR
NOP

036770 000137 037040

2098 036774

2099 036774 005237 001420
2100 037000 023727 001420 000100
5}85 037006 101412
2103 037010

032737

010000

2107 037034

000137 036572

108:

001444

2104 037016 001010
2105 037020 012737 010000 001444
2106 037026 012737 000027 001420

5}83 037040

JMP

21]0

118:

123:

BNE
MOV
MoV

JMP

DPE
93

128

10$

12$

128
#FMT16,RMOFO
#31. .RMOAD
s

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1

sMASK FOR RMER?2

“GO TO 9% IF NO ERROR

*RETURN HERE IF ERROR
$G0 TO 128 IF ERROR

*G0 TO 108 IF NO ERROR
*RETURN HERE IF ERROR
$G0 TO 128 IF ERROR

;TEST FOR 16 BIT MODE YET ?

*BR
IF YES
>SET 16 BIT MODE
*SET INVALID SECTOR = 31.
STEST NEXT SECTOR

e2322338313103 8 2222 2322202132 2313328282343 8433213331131 232 3222

tresr 63

037040
037040
037042
037044
037050

SEARCH INVALID TRACK

ttttttttttttttttttttttittttttttttlfitt'tttttttttttttt.ttttttt'tt

1é763:

#STACK, SP
$BASE, R0

:SCOPE CALL
SSTART OF TEST
SINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

1 037060 012737 000063 001226

SCOPE
NOP
MOV
MoV
nov
MoV

#63,STESTN

*:SET TEST NUMBER IN APT MAIL BOX

2112 037066

JSR

PC, TSIPRP

037054

037072

000004
000240
012706 001100
013700 001276
013701

001466

004737

041532

056130

LWORD

TSTQUE ,R1

054130

*(R1) = DEVICE BEING TESTED
:PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

CIRNDAC RMB0 FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-79
163
SEARCH INVALID TRACK

LAJIE

SEQ 0163

;CLEAR CONTROLLER € SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK_ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI" OR

037074
037076
037100

000404
0C0240
104C00

000137

037420

2114 037106

012737

000031

2116 037122

013737

0013346

2113 8%;;82

2115 037114

2117 037130

012737

105237

000000

0014621

:VERIFY_RECALIBRATION

BR
NOP
EMT

JMP

118

001412

mov

#SEARCH!GO,RMCS10

001420

MOV

001446

MOovY

'PIP*

260 TO 18 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
- SEARCH COMMAND

:CYLINDEk =0

INCB

RMDAD+1

JSETUP FIRSf INVALID TRACK

MOV

APUTINX,R2

SECTOR = 0

MOV

2120 037146

000006

MOVEB

#RMDA, (R2)+

000000

MOVB

#RMCST, (R2)+
#200, (R2)+
PC.GETSTS

JTERMINATE TABLE

JSR

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

11s

*RETURN HERE IF ERROR
SERROR NUMBER DEF INED BY SUBROUTINE
160 TC 118 IF ERROR

012702

2121 037152
2122 037156

112722
112722

000034
000032

112722
004737

000200
042462

2123 037162

2124
2125
2126
2127

112722

001545

037166
037172
037176
037176

004737

037204
037206
2128 8%3532

000240
104000
000137

129 037214
037220
037222
037224
0372¢6
2130 037232
%;gg 037232

004737
000404
000240
104000
000137

043016

004737

043370

2133 037236
037242
037244
037246
215 8;; ;2

004737
000404
000240
104000
000137

042546

2135 037254
037260
037262
037264
037266

004737
000405
000240
104000
004736

043564

037202 000404

052466

037420

.
037420

037420

037270 000137 037420

2136 037274
2137 037274
037
037302

037304

037306

037310

004737
000405
000240

056624

104

0047

000127

MOVB
MOVB

2s:

MOVB
JSR

B8R
5

48:

68:

NOP
EMT
JWP

:SET 16 BIT ORMAT

*WRITE REGISTER INDEX TABLE

#RMDC.(R2)+
#RMOF . (R2)+

16O TO 38 IF NC ERROR

JSR
BR
NOP
EMT
JMP

PC.PUT
48
118

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
+GO TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
360 T0 113 IF ERROR

JSR

PC,TIMOUT

:WAIT FOR GO TO RESET

JSR
8R
NOP
EMT
JMP

PC,GET
5%

:60 READ REGISTER(S) WITH GET SUBROUTINE
G0 TO S$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 TO 118 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,PRIERR
63

JSR
BR
NOP

PC,SCHSTS
7$

JSR

PC,a(SP)+

EMT
037420

#FMT16 ,RMOFO

;LAST TRACK,

2118 037134 012737 010000 001444
2119 037142

JMP

:60 TO 118 IF ERROR

#0,RMDCO

LSTRK .RMDAN

IS SET

118

PC,a(SP)+

11$

11¢

;GO CHECK FOR PRIMARY ERRORS
*GO TO €8 IF NO ERROR
*RETURN HERE IF ESROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO0 BACK FOR MORE ERROR CHECKS

GO TO 118 IF ERROR

:60 VERIFY SEARCH OPERATION
$60 TO 78 IF NO ERROR
*RETURN HERE IF ERROR

SERROR # DEFINED BY SCHSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

GO TO 118 IF ERROR

(ZkNDAD RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-80
163
SEARCH INVALID TRACK

2138 037314
2139 037314

004737

037320 000405
037322 ooosgg
03734

78:

060210

104

037326

004736

2141 037334
037340

004737
117760

JSR

8R
NOP
EMT

SE2 0164

PC,STCORVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

160 TO 88 ifF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE

JSR

PC,a(SP)+

JSR
.WORD

PC,CMPERRSTS
NDTMSK!IAE

;CHECK ANY ERRORS NOT MASKED
-MASK FOR RMER1

037344 000405
037346 000240

8R
NOP

+6G0 TO 98 IF NO ERROR
*RETURN HERE IF ERROR

037352
€3735¢

JSR
e

PC,a(SP)+
11$

JSR

PC,SECERR

;GO CHECX FOR SECCNDARY ERRORS

EMT
JSR
N

PC.a(SP)+
11$

*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*G0 TO 118 IF ERROR

INCB
CMPB

RMDAO+1
RMDAO+1,#128.

: INCREMENT TRACK ADDRESS
:DONE ALL TRACKS ?

JMP

STEST NEXT TRACK

2140 3?5%3:. 000137 037420
037342

037350
2142 037360
2143 037360

2147 037412

050562

000010
104000

EMT

037420

004737

044416

104000
004736
000137

037420

105237
123727

001421
001421

101002

JMP
.WORD

004736
000137

037364 000405
037366 000240

037370
037372
037374
2144 037400
2145 037400
2146 037406

98:

B8R
NOP
108:

000200

B8H]

2148 037414 000137 037176

g}gg €37420

11$:

2151

037420

:G0 TO 118 IF ERROR

DPE

sMASK FOR RMER?

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS
:G0 TO 118 IF ERROR

10$

+GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR

11$

SERRARRAANANRAAN AR AN RN

*rssr 64

*G0 BACK FOR MORE ERROR CHECKS

11$

AR AN N AN

*BR IF YES

A AARRA AR AN NRANNAANARRANRNNRRCARN

SEARCH INVALID CYLINDER

ttttttttttttttttttttlttttttttttttfittttttttttttttttttttttttttttt

037420
037422
037424
037430
037434
2152 037440

000004
000240
012706 001100
013700 001276
013701 001466
012737 000064 001226

2153 037446

004737

037452 054130

18764

041532

SCOPE
NOP
MOV
MOV

MOV
MoV

:smcx sp
$BASE
rsroué m
264, STESTN

:SCOPE CALL
*START OF TEST
INITIALIZE STACK POINTER
sRO= UNIBUS ADDRESS
1(R1) = DEVICE BEING TESTED
$:SET TEST MUMBER IN APT MAIL B8OX

JSR

PC.TSTPRP

:PREPARE DEVICE FOR TEST

LWORD

054130

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER € SELECT DEVICE

SVERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF vm.ms NOT VALID

000404
000240
wwgo
000137 037774

2155 037466 012737 000031 001412
2156 0372474 012737 001061 001446
2157 037502 012737 000000 001420

IS SET

B8R
NOP
EMT
JMp

MoV
MOV
MOV

#SEARCH!GO,RMCS10
- SEARCH COMMAND
#561. .RMDCO
:START AY FIRST mmao CYLINDER
#0.RMDAO
*TRACK = 0, SECTOR

[ e,

037454
037456
037460
2154 8;;225

:VERIFY PACK ACKNOWLEDGE &
*RECALIBRATE IF ‘‘SKI" OR 'PIP"*
*VERIFY RECALIBRATION

118

*60 TO 1S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 118 IF ERROR

CLRNDAD RHBO FCINL PT1 MACRO V04,00 28-JAN-.. 16.24:51
O

£HO
O

2167 037552
037556
037560
037562
037564
2168 037570
2169 037570

d wd i Prpmy

037532
037536
037542
037546
037552

2162
2163
2164
2165
2166

S NOMNNNIRONON

2160 037522
2161 037506

2158 037510
2159 037516

NNNRNORNININ

SEARCH INVALID CYLINDER

Q) rad el d ek b

164

010000
001545
000632
000034
000006
000000
000200
042462

052466

037774
043076

037774
043370

001444

2s:

3%:

43:

062546

037612
037616
037620
037622
037624

037774

2174 037630

0643564

037774

056624

037774
060210

037774
050562

5%:

PAGE 13-81

;SET 16 BIT FORMAT
¢WRITE REGISTER INDEX TABLE

#FNT16,RKOFO
#PUT INK,R?

PC.GETSTS

sSETUP STATUS FETCH

JSR
B8R
NOP
EMY
JMP

PC,CNTCLR

;GO ISSUE CONTROLLER CLEAR

118

;G0 _TO 38 IF NO ERROR
sRETURN HERE IF ERROR
sERROR NUMBER DEF INED BY SUBROUTINE
:GO TO 118 IF ERROR

JSR
B8R
NOP
EMT

PC,PUT

s60 WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

118

JSR

PC,TIMOUT

JSR

PC,GET

SRMOF
, (R2) +

SRMDC
. (R2) +
SRMDA* (R2)¢

ARMCST, (R2)+
#200, (R2)+

118
JSR

PC,PRIERR

11$

JSR

PC,SCHSTS
78

PC,a(SP)+

11§

78:

;GO TO 118 IF ERROR

+GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

260 TO 118 IF ERROR

:GO CHECK FOR PRIMARY ERRORS

;GO _TO 68 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 118 IF ERROR
;G0 VERIFY SEARCH OPERATION
:GO_TO 78 1F NO ERROR
SRETURN HERE IF ERROR
SERROR # DEFINED BY SCHSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 118 IF ERROR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

EMT
JSR

sRETURN HERE IF ERROR
sERRCR # DEFINED BY PUT SUBROUTINE

11§

PC,a(SP)+

JSR

260 TO 43 IF NO ERROR

¢G50 CHECK FOR CHANGES IN DRIVE STATUS
;GO _TO 8% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
cG0 TO 118 IF ERROR

PC,STCDRVSTS

SEQ 0165

MoV
MOV
MoV
move
MOV8
Mov8
mMovB8
JSR

PC.a(SP)+

6$:

xAéznornsx

-MASK FOR RMER1

DP:
93

:MASK FOR RMER2

PC,3(SP)+

*GO BACK FOR MORE ERROR CHECKS

*G0 TO 98 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

RNDAQ RM80 FCTNL P11 MACRO V04.00 ¢8~JAN-82 16:24:51 PAGE 13-82
64
SEARCH INVALID CYLINDER

004737

044416

000405

NVOROO

037750
2184 037754
2185 037754
2186 037760
2187 037766
2188 037770
2189 037774

037774

NAUONN

2183 037734
037740
037742
037744
037746

000137

8222
S22 g82
SE2S
WOPrIN Ufldgs

037730
2182 037734

9%:

037774
001446
001446

10$:

002000

037552

118:

2150
2191

SEQ 0166

JMP

118

;GO TO 118 IF ERROR

JSR
BR
NOP
EMY
JSR
JMP

PC,SECERR

260 CHECK FOR SECONDARY ERRORS

INC
CMP
BHIS
JMP

10§

PC.3(SP)+

11$

RMDCO
RMDCO,#1024.
118

;G0 _TO 108 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE

:60 BACK FOR MORE ERROR CHECKS
;60 TO 11$ IF ERROR

: INCREMENT CYLINDER ADDRESS
ggNErALL CYLINDERS ?
YES

-STEST NEXT INVALID CYLINDER

ttttlfitfitltttfittttttttitttttttttittttfitttfiitttttitt'fit'ttittttt

tTEST 65

IVC SEARCH TEST

CRRAARNANRAAREAARNAARARNNERARNARARANANAAAAAARANAARANIAACNORNONRS

TSTéS

037776
040000

001160
001276
001466
000065

040004
040010
040014

2199 040116
2200 040124
201 040132

202 040140
2203 040144
2204 040150
2205 040154

SEY
N
N
NN
O
NN
NNNININNNNN

2196 040102
2197 040102
2198 040110

Qine-Qinr Quuur Ghur hur g

040074
040076

$BASE,RO

041532

PC rsrpnp

;PREPARE DEVICE FOR TEST

05413

040354

000024
00020
000701
0647016

001545
001546
001436

8s
SRMMR1,PUTINX

#200,PUTINX+1
#DMD|RMMR10
PC.PUT
2s

040354

001436
001446
001420
001444
001412

000006

1$:

2$:

“RO= UNIBUS ADDRESS

*(R1) = DEVICE BEING TESTED

#65,STESTN

001226

INITIALIZE STACK POIN(ER

TSTQUE ,R1

[P PP

040030
040032
040034
040036
2196 040042
2195 040042
040050
040056
40064
040070
040072

004737

o
Ll
N
elelelelels)
Cfifl€;<>CHD-‘-‘
NINLNINLNININININ
Ronn S
NNNNNNNNN
SESSE
-

2192
2193 040022
040026

#STACK, SP

sSCOPE CALL
sSTART OF TEST

8s
#0,RMMR10

$;SET TEST NUMBER IN APT MAIL BOX

*TASK DESCRIPTOR AS FOLLOWS:

$CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE |
OR ‘PIP'' IS SET
SRECALIBRATE IF '‘SKI”
*VERIFY RECALIBRATION
*GO TO 18 IF NO ERROR

*RETURN HERE IF ERROR
“ERROR # DEFINED BY TTTPRP SUBROUTINE
$GO T0 88 IF ERROR

;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = DMD
+GO WRITE RMMR1 VIA PUT SUBROUTINE
*GO TO 28 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
:G0 TO 88 IF ERROR

;RESET DIAGNOSTIC MODE

#0_RMDCO
*CYLINDER 0
:o RMDAO
TRACK = 0, SECTOR = 0
#0 .RMOFO
18 BIT FORMAT
oséAncu'co.Rncs1o
:SEARCH COMMAND
#PUTINX.R?
;LOAD INDEX TABLE
ARMART, (R2) +
#RMDC, (R2)+
ARMDA, (R2) +

037774
037774

CZRNDAQ RMBO FCTNL PT
165
IVC SEARCH

MACRO v04.00 c8-JAN-82 16:26:51 PAGE 13-83
000032
000000
000200
042462
043016

MOVB

#RMOF,(R2)+

JSR

PC.PUT

MOVB
MOV
JSR
BR

NOP

040354

040216

043370

042546

EMT

043564

004736
000137

032737
001012
012737
013737
042737

010000

001400

010000
001400
167777

001140
001142
001142

004737

050562

104260
115760

2226

2227

2228 040354
2229
2230

010010
000405
000240
104000
004736
000137

040354

JSR

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

004737

044416

*G0 TO 48 IF NO ERROR
*RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
+GO TO 88 IF ERROR

JSR

PZ ,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

*GO TO 58 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE

JSR
JMp

PC.a(SP)+
8s

BIT
BNE

#1VC.RMER2]
6$

BIC

#4CIVC.SBDDAT

EMT

NOP
EMT
JSR

PC.CMPERRSTS
NDTMSK
IVC'DPE

JSR

PC,SECERR

JSR

SEXPECTED STATUS
:RECEIVED STATUS
;CHECK ANY ERRORS NOT MASKED
*MASK FOR RMER?
SMASK FOR RMER2

$GO TO 7S IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

GO TO 88 IF ERROR

260 CHECK FOR SECONDARY ERRORS

:GO TO 88 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE

PC.a(SP)+

AR AR AR A AR A R RN AN AR

'TEST 66

:DID 1IVC SET??
“YES!!

260

PC.a(SP)+
8s

NOP
EMT

:G0 BACK FOR MORE ERROR CHECKS
*GO TO 88 IF ERROR

#1VC,SGDDAT
RMER21,$BDDAT

JMP

BR
8

004736

*GO TO 88 IF ERROR

EMT
JMP

JSR
.WORD
.WORD

”s

:ERROR # DEFINED BY PUT SUBROUTINE
;WAIT FOR GO TO RESET

MOV
MOV
8

*RETURN HERE IF ERROR

PC.TIMOUT

NOP
EMT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

*GO TO 38 IF NO ERROR

JSR

B8R

040354

38’
8s

NOP

#RMCST. (R2)+
#200, (R2)+
PC.GETSTS

JMP

040354

SEQ@ 0167

*GO BACK FOR MORE ERROR CHECKS

AR AN R AANANRANAANRRRAARAARRRNRANNRARRAARARRY

ABORT SEARCH TEST

ag;tttttattttattttttttttttttttttttttttttttttttttttttttttttttttt

040354

040356
040360
040364

040370

TST

000004

013701

001100
001276
001466

SCOPE
NOP

Mov
Mov
MoV

#STACK, SP
$BASE,RO
TSTQUE,R1

:SCOPE CALL
;START OF TEST
:IN ITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
(R 1) = DEVICE BEING TESTED

CZRNDAQ RMBO FCTNL PT1 MACRO Vv04.00 2B-JAN-82 16:24:51 PAGE
166

ABORT SEARCH TEST

2331 046376

012737

000066

2232 060402

004737

041532

040406

054130

001226

0460412
040414

040416
2232 040422
2234 040422
2235 040430
2236 040636
2237 040444
2238 000452
2239 040456
2240 040462

000137

040720

012737
012737
012737

040000
000031
000000

012737
012702
112722
112722

000000
001545
000034
000006

0640472
040476
040502
040506

112722
112722
004737
004737

000000
000200
062462
063016

040514
040516

000240
104000

2241 040466

2242
2043
2244
2245

000240
104000

112722

040512 000404

040520
2246 040524

001420

000014

000137

040720

2247 040524

004737

042546

040532
040536
040536
2248 040542

000240
104000
000137

040530 000404

001426
001412
001446

040720

001350

000000
001350
157777

001140
001142
001142

004737

043370

2258 040602

004737

042546

0460614
2259 040620
2260 040620

000137

040720

004737

043564

0460626
040630

000240
104000

000405

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:

38:

48:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF ''SKITM OR 'PIP'’ IS SET
sVERIFY RECALIBRATION
;GO_TO 1$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 9% IF ERROR

JMP

MOV
MOV
MOV

#UNS ,RMER10
:SET UNSAFE ERROR
#SEARCH!GO,RMCS1 0
: SEARCH COMMAND
#0.RMDCO
sCYLINDER 0

MOV
MOV
MOVB
MOV

#0,RMDAC
#PUTINX ,R2
#RMDC, (R2)+
#RMDA.(R2)+

MOVB
MOVB
JSR
JSR

#RMCS1.(R2)+
#200, (R2)+
PC.GETSTS
PC.PUT

sSECTOR = 0, TRACK = 0
SWRITE REGISTER INDEX TABLE

ARMERT.(R2)+

JMP

JSR

PC,GET

NOP
EMT
JMP

s TERMINATE TABLE
sSETUP FOR STATUS
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO 2% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 98 IF ERROR

sGO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 38 IF NO ERROR
sRETURN HERE IF ERROR
cERROR ¥ DEFINED BY GET SUBROUTINE

:GO TO 98 IF ERROR

BIT
BEQ
MOV
MOV
BIC
EMT

#PIP,RMDSI
43
#0,8GDDAT
RMDS]
, SBDDAT
#~CP1P,$BDDAT
261

;1S PIP SET??

JSR

PC. TIMOUT

sWAIT FOR GO TO RESET

JSR

PC.GET

JMP

;GO READ REGISTER(S) WITH GET SUBROUTINE
:G0_TO 58 IF NO ERROR
sRETURN HERE IF ERROR
-ERROR # DEFINED BY GET SUBROUTINE
;GO TO 9% IF ERROR

JSR

PC,PRIERR

BR
NOP
EMT

58:

054130

B8R

020000

0460624

PC,TSTPRP

NOP
EMT

032737
001412
012737
013737
042737
104261

000404
000240
104000

JSR

B8R

2249 040542
2250 040550
2251 040552
2252 040560
2253 040566
2254 040574
2255 040576
gggg 040576

040606
040610
040612

;;SET TEST NUMBER IN APT MAIL BOX

MOVB

28:

SEQ 0168

#66,STESTN

NOP
EMT

18:

MOV

JWORD

040410 02404

13-84

B8R

NOP
EMT

‘NO!!

‘EXPECTED STATUS

*RECEIVED STATUS

:GO CHECK FOR PRIMARY ERRORS
260 _TO 68 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

040632
040634
2261 040640
2262 040640

004736
000137

004737
000405
000240

060720
060210

6%:

2263 040660
2264 040660

040720

004737

050562

155760

PC.a(SP)¢
9s

:G0 BACK FOR MORE ERROR CHECKS
;G0 TO 98 IF ERROR

JSR

PC,STCORVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

104000

’s

004737
000403
000240
104000
004736

044416

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS
*GO TO 98 IF ERROR

JSR
.WORD

PC,CMPERRSTS
NDTMSKIUNS

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER?

B8R

:GO TO 88 IF NO ERROR

EMT
JSR
JMP

PC.A(SP)+
9s

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 98 IF ERROR

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC.a(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

BR
o

NOP
EMT
JSR

DPE

;MASK FOR RMER2

*RETURN HERE IF ERROR

:GO TO 98 IF NO ERROR

PIRNRRANRANARANRRARAAR
A AT AR AN ANAARAANRARRAAN AN
AR RA AR RN RS RRY

S*TEST 67

SEARCH AT OFFSET

SARRAANRARRANAN RN ANANA AR AN

040720
040720

*G0 TO 7$ IF NO ERROR

:RETURN HERE IF ERROR

PC,3(SP)+
9s

-WORD

040720

EMT
JSR
JMP

NOP

2265 040704
2266 040704
040710
040712
040714
040716
2267 040720
2268
2269

T1ST67:

000004

*START OF TEST
:INITIALIZE STACK POINTER

TSTOUE ,R1

:(R1) = DEVICE BEING TESTED

MOV

¥67.$TESTN

JSR

PC.TSTPRP

nd e

- OOO000

PRERLRRR

041256

+;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

054130

B8R

EMT
JMP

MOV

#0,RMDCO
#0_RMDAO

MOVB

#RMDC.(RZ)+

MOV
MOV
MOV
MOVB

AR N

*RO = UNIBUS ADDRESS

*TASK DESCRIPTOR AS FOLLOWS:

NOP

RN RN

#STACK, SP

$BASE , RO

.WORD

AR AR AR

:SCOPE CALL

MOV

041532

EA AN RAANRRRARNRNR

SCOPE

NOP
MOV

001100
001276
001466
000067

2270
2271 040746
040752

SEQ 0169

JSR
JMP

NOP

004736
000137

*CLEAR CONTROLLER © SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

SPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
SRECALIBRATE IF ‘‘SKI" OR PIP"* IS SET
*VERIFY RECALIBRATION

:GO TO 1S IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE
*G0 TO 9% IF ERROR

;CYLINDER = 0

*TRACK
= 0, SECTOR
=0

#FMT16,RMOFO
616 BIT rofingr
#OFFSEF 160, RMCS1
OFFSET COMMAND
#PUTINX.R?
;SETUP REGISTER INDEX TABLE
lRHDA.(fi%)#
*FOR SEEK TO CYLINDER 0

LZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28~JAN-82 16:24:51 PAGE 13-85
66
ABORT SEARCH TEST

(ZRNDAD RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 13-86
167
SEARCH AT OFFSET

043016

000137

041256

004737
004737

062462
043370

112737

000000
000200
000031
043016

112737
012737
004737
000404
000240
104000
000137

041256

004737

043370

004737
000404
000240

042546

000137

041256

004737
000405
000240

043564

104000

041256

004737
000405
000240
104C00
004736
000137

056624

004737

050562

061256

48:

5%:

;GO TO 28 IF NO ERROR
;RETURN HERE IF ERROR
cERROR # DEFINED BY PUT SUBROUTINE
;GO TO 9% IF ERROR
sSETUP FOR STATUS FETCH

cERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 9% IF ERROR

PC,TIMOUT

sWAIT FOR SEARCH TO COMPLETE

PC.GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

;GO _TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED B\ GE1 SUBROUTINE
;GO TO 9% IF ERROR

PC.PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+
9s

6$:

PC,SCHSTS

PC,a(SP)+
9s

78:

EMT
JSR

as:

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP

044416

.WORD

041256

#200, (R2) +
PC.PUT

#RMCS1,PUTINX
sLOAD REGISTER INDEX TABLE
#200,PUTINX+1
#SEARCH!GO,RMCS1D
;STORE SEARCH COMMAND
PC,PUT
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
43
:GD _TO 4$ IF NO ERROR
cRETURN HERE IF ERROR

104G00

004736
000137

#RMCST, (R2)+

PC,GETSTS
PC,TIMOUT

3s:

SEQ 0170

#RIOF , (R2)+

23:

[a8]« XV, }

104000

MOVB
mMovB
mMeve
JSR

Hunn
— O L

BSOSO

004737
000404
000240

000032

000000
000200

KU‘

X
T
T

PORININININIAININININIPIAINIAINININININD
= b wd b b ad b b tad b b b b b
VAN
S Hln
SHNNOONNINO
NOONSNOONNVIOON
NOMIOO
NOONOOSIO

wino

OTM

WW
O=

2300
2301

Y A

2298
2299

X a0 2 2

2292 04
2293 04

(=]
OO
lelelelelelolelelelelelele]
(=]
DO
o
RIRRRILRKRR
—d cnd ond cuh b wnd b avd b vmd orad el cnd =D el wmd R
b b v aml D KERARRIARKRKRRRR
wud cmd b b awd D b aud w=b b ch b
b
aud d

—d

bk b2 b

(=]

2 041042
3 0410406
041052
041054
041056
041060

112722
112722
112722

—

1 041036

OO
00O

0 041032

8 I«

PC,CMPERRSTS
NDTMSK
DPE

JMP

PC,3(SP)+
9s

JSR

PC,SECERR

NOP

EMT
JSR

PC.a(SP)+

:GO _TO €8 IF NO ERROR
sRETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE
¢GO BACK FOR MORE ERROR CKECKS

;GO TO 98 IF ERROR

;GO VERIFY SEARCH OPERATION

;G0 TO 78 IF NO ERROR
sRETURN HERE IF ERROR

sERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:GO TO 9% IF ERROR

sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1

:MASK FOR RMERZ
;GO TO 88 IF NO ERROR
cRETURN HERE IF ERROR
cERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 9% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO _TO 98 IF NO ERROR
<RETUPN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBRGUTINE
;G0 BACK FOR AORE ERKOR CHECKS

CZRNDAO RMBO FCTINL PT1 MACRO V04.00 28~JAN~82 16:24:51 PAGE 13-87
167

SEARCH AT OFFSET

2304 041256

9s:

SEQ 0171

CZRNDAQ RMB0O FCTML PT1 MACRO v04.00 26-JAN-82 16:24:51 PAGE 14
END OF SUB-PASS ROUTINE

SEQ 0172

}

.SBTTL

;THIS IS THE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO

%
5

END OF SUB-PASS ROUTINE

STERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND
*SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
$T0 TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN
*1S MADE TO 'READY' ROUTINE.

6
g
9 041256

10 041260
11 041262

12 041266
13 041272

14 041276

15 041300
16 041302
17 041306

000004

000240
013700

062700
010037

005710

001402
000137
012737

$EOSP:
001466
000002

ADD
MOV

001466

007574

001470

SCOPE

NOP
MOV

_
;GET POINTER TO TSTQUE
*ADJUST POINTER TD NEXT DEVICE

(R)

*ANY MORE DEVICES FOR TEST ?

RO TSTQUE

001466

TSTQUE RO
#2.R0

1$:

BEQ
JMP
MOV

.SBTTL

END OF PASS ROUTINE

AR AN

*SAVE POINTER TO TSTQUE

1$
‘BR IF NO
READY
*YES., JUMP TO °READY' ROUTINE
#TSTQUE+2, TSTQUE
*INITIALIZE POINTER TO FIRST DEVICE IN

;TEST QUE TABLE

AR AR

RN RARARRANA AR RN

NA AR ARR AR AT AR

EACERARS

*INCREHENT THE PASS NUMBER (SPASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY''
:*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

;*IF THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO READY
041314
041314

000240

0641322
041326

005037
005237

041316

0641332

041340
041342

005037

001116

0642737

100000

005327
000001

061344

003066

041360

000407

0461346
0641350
0641352
041356
041400

041400
0414604

041406
041412
041416

012737
000001
0641342
104401

013746
104405

005737
001431
104401

0641420

000621

041464

013746

041470
041472

005037

041464

$EOP:

104405

001206
001230

041362

001230

CLR

STSTNM

;+ZERO THE TEST NUMBER

eIC

nooooo $PASS

;:DON'T ALLOW A NEG. NUMRER

86T

$DOAGN

BR
.ASCIZ

.653
..TYPE ASCIZ STRING
643
:GET OVER THE ASCI2
<12><15>/END PASS’ #/

MoV

$PASS,-(SP)

CLR
INC

DEC
$EOPCT: .WORD
MoV
SENDCT: .WORD
SEOPCT
TYPE

2:658:

001230

NOP

648:

TYPDS

001126

18T
BEQ
TYPE

041422

STJHES

(PC)+
1

(PC)+,3(PC)+
1

SERTTL
$6T42P
.67%

663

001126

MoV

$ERTTL,-(SP)

001126

CLR

éégn:

.ASCIZ

TYPDS

:'ZERO THE NUMBER OF ITERATIONS
s INCREMENT THE PASS NUMBER

::L00P?

JsYES

s 2RESTORE COUNTER

:3SAVE SPASS FOR TYPEOUT
J:TYPE PASS NUMBER

360 TYPE-~DECIMAL ASCI] WITH SIGN

..SEE IF ANY ERRORS THIS PASS
:BR IF NO ERRORS TO REPORT
.:TVPE ASCIZ STRING

sGET OVER THE ASCIZ

TOTAL ERRORS SINCE LAST REPORT
/

SERTTL

::SAVE SERTTL FOR TYPEOUT
2 :TOTAL NUMBER OF ERRORS
2260 TYPE~~DECIMAL ASCI] WITH SIGN
2:CLEAR ERROR TOTAL

CZRNDAO RMBO FCINL PT1 MACRO V04,00 28~JAN-82 16:24:51 PAGE 14-1

146

SEQ 0173

END OF PASS ROJTINE

041676

061502
0641506

041510
041512
0641514
0641516
041520
041522
061522
041526
041526

104401

013700
001405

$GT42P: TYPE
$GET42: MOV
BEQ
RESET
SENDAD: JSR

001217

000042

000005
004710
000240
000240
000240

000137
007574
377

$DOAGN:

377

(00

SRINAD:
SENULL:

NOP
NOP
NOP

JMP
.WORD
.BYIE
.EVEN

SCRLF

442, R0
$DOAGN
PC, (RO)

;:TYPE CARRIAGE RETURN, LINE FEED

;sGET MONITOR ADDRESS
;sBRANCH IF NO MONITOR
JsCLEAR THE WORLD
;:G0 TO MONITOR
::SAVE ROOM
J:FOR
JACTN

a(PC)+

READY

2 sRETURN

seNULL CHARACTER STRING

F 1

CZRNDAQ RMB0 FCINL PT1 MACRO V04.00 28-~JAN=-82 16:24:51 PAGE 15

SEQ 0174

TEST PREPARATION MODULE

.SBTTL

: THIS MODULE PREPARES THME SUBSYSTEM FOR THE CXECUTION OF A TEST,

;

TEST PREPARATION MODULE

REPORTING AN ERROR TO THE USER IF AN ERROR

DETECTED.

: SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES

: USING SUBROUTINES.

8
9
10
M
12

;CALL:
M
H
H
H

JSR
.WORD
B8R
NOP

PC.TSTPRP
NNNNNN
2?

ERROR

THE USER

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

ERROR DEF INED BY MODULE

;TASK/VERIFY DESCRIPTOR

BIT 15 = 1

SELECT DEVICE AND VERIFY DEVICE 1S AVAILABLE

BIT 16

CLEAR CONTROLLER AND SELECT DEVICE

8IT 12 =1

PACK ACKNOWLEDGE IF vO.'JME NOT VALID

RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR

BIT 13

= 1

BIT 11 = 1

D
4 U RT T T S

26
27

:
:

BIT 8
BIT 7

BIT S

BIT3

25
24

H
H

BIT 10 = 1
BIT 9

BITé6
BIT4

BIT 2

8IT 0

gg 041532
40

41 041532

017637

000000

105076

Q00000

062716

2l§ 041550

162716

46 041554

004737

48 041564

000411

47 041560

49 041596
50 041570
S§1 041572
52 0641576
gz 041604

§2 041610
57

RECALIBRATE DRIVE

VERIFY CONTROLLER CLEAR OPERATION

VERIFY PACK ACKNOWLEDGE

(RESERVED FOR DRIVE CLEAR)

VERIFY RECALIBRATION

8IT 1

TSTPRP:

42 041540

43 041544

(RESERVED FOR DRIYE CL=AR)

004737

(000006

042456

MOV

042462

000000

013737

001400

042460

042446

HOVE SP 70 USERS ERROR CALL

sus

#4,(SP)

:MOVE SP TO NO ERROR RETURN

18:

PC.GETSTS

:CLEAR ERROR CALL

-SETUP TO READ ALL REGISTERS

PC,GET

;GET RMER?

BR
WORD
ADD
Mov8e

1$
O
#4 (SP)
3-2 9(SP)

*GET OVER ERROR NUMBER
*ERROR DEFINED BY GET SUBROUTINE
*XFER ERROR TO USER AND
:GET ERROR NUMBER.

MOV

RMER21,408

JMNF

2%:

a(§P)

JSR

000004
041570

:STORE DESCRIPTOR

#6,(SP)

JSR

042546

8(¢P) 398

ADD

CLRB

000004

000401
000000
062716
113776

000137

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

378

:BR IF NO ERROR DETECTED

:GET RMER2 AND SAVE FOR LATER

::ttttttttttttttttttttittt*tttttttlttttttttttttttttttttttttttttfit

(IRWDAQ RMBO FCTNL PT1 MACRO V04.00 28-~JAN-82 16:24:51

TEST PREPARATION MODULE

58
59 041616
so 0461622

005737
100014

042456

ez 041626
63 041630
64 0461632
65 0641634
66 041636

004727
000411
000401
000000
062716

050774

000004

gg 061650

000137

042446

67 0641642

113776

041634

PAGE 15-1

SEO v

JSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK
ST
398
;SELECT DEVICE??
8PL
s
*NO'!

000000

38:

JSR
BR
BR
WORC
ADD

PC.DEVSEL
X3
38
0
#4,(SP)

JMP

378

MOVB

3s-2 a(sP)

269 SELECT DEVICE
*NO ERROR - CONTINUE
;ERROR NUMBER FROM DEVSEL
*TRANSFER ERROR TO USER

;;tttttttttttttttttttttttittttttttttttttttttttt'tttttttttttltitti

71
72 041654
73 041656

032737

040000

*CLEAR CONTROLLER IF BIT 14 IS SET IN TASK
is:
8IT
#8IT14,398
;CLEAR CONTROLLER??

76 061666

004737

052466

78 041672
79 041674

000401
000000

;g 061662

001451

77 061670 000411

80 041676

062716

042456

000004

032737

000100

90 041724

004737

042546

93 04173¢

000000

001431

91 041730 000411
92 041732 000401

062716

000004

98 041754

004737

052604

100 041762
101 041764

000401
000000

95 041742 113776 041734
gg 041750 000137 042446
99 041760 000412

102 041266
103 0641770
104 041774

}32 042002

PC.CNTCLR

BR
LWORD

6$
0

6S:

MOVB
JWP

S5$.a(SP)
37§

ADD

44, (SP)

005726
062716
113776

000137

042456

7s:

;ERROR NUMBER FROM CNTCLR

*TRANSFER ERROR TO USER

98:

108:

11$:

000004
041764

042446

128:

000000

#B8176,39%

:VERIFY?2?

JSR

PC,GET

260 GET STATUS

;ERROR FROM GETTING STATUS

8EQ

8s:

000000

8IT

B8R
B8R

LWORD

138

108
9

ADD

26, (SP)

JSR

PC,CLRSTS

BR
.WORD

lzs

MOVB
JNP
BR

ST
ADD
MOV8
JMP

88.3(SP)
37§
13§

(sp)+
#4,(SP)
11i a(SP)
378

107

JIRRARAARAAAAARNRRARARE LR

109
110 942006
111 042006

032737 010000 042456

*NOT VALID
i3s:
BIT

114 042016

004737

108

};g 0462014

;G0 CLEAR CONTROLLER

:CONTINUE = NO ERROR

<VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK

87 041714

9% 061736

JSR

*NO!!

H 'ttttttttlttttttttttitttttttttttttttttttttttttttttttttttttittttt

gg 0461722

133

B8R

81 041702 113776 041674 000000
gg 041710 GO00137 042446
86 041714

BEQ

sNO!!

:NO ERROR GETTING STATUS
*TRANSFER ERROR TO USER

;GO VERIFY STATUS ZLEAR

*NO ERROR IN CLEAR

;ERROR IN STATUS CLEAR

*STRIP RETURN ADDRESS TO
*SUBROUTINE AND TRANSFER
*ERROR TO USER
NN CARAARARANANRIARACRRIARORARRARNSARNA

*EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS

001501

042546

REQ

JSR

#81T712,398
258

PC,GET

:PACK ACKNOWLEDGE??

NDT

CZRNDAQ RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:¢4.51 PAGE 15-2

ZQ 0176

-l

E;%

004737

043370

-4

25%

< TRANSFER ERROR TO USER

:1S VOLUME VALID??

JYES!!

#PAKACK !GO,RMCS10
sLOAD PACK ACK COMMAND
#RMCS1,PUTINX
sSETUP REGISTER INDEX TABLE
#200,PUTINX+1
PC, PUT
;GO WRITE COMMAND

19%

sNO ERROR LOADING REGISTER

¥4, (SP)

-ERROR FROM BSyT SUB
s TRANSFER ERROR TO USER

188
0

17$.3(5P)

000000

37
19%:

JSR

PC,TIMOUY

sWAIT FOR COMMAD TO COMPLETE

BIT
BEQ

#8174

JSR

PC,GET

. WORD
TST

;G0 CHECK ACKNOWLEDGE
+NO ERROR

238:
248:

cERROR FROM GET SUB
; TRANSFER ERROR TO USER

LV~
R

JSR

sNO ERROR GETTING STATUS

22%:

sYERIFY PACK ACKNOWLEDGE??
sNO!!
;GO GET STATUS

000000

,398

sPACK ACKNOWLEDGE ERROR
:STRIP RETURN TO SUB AND
;TRANSFER ERROR TO USER

pory

000513

000004
042200

*VERIFY PACK ACKNGWLEDGE IF #8IT4 SET IN TASK

053464

000004
042152

042456

WNIRONN
NON
-

004737

|=]

#VV RMDS

» ~OQNNIT
SO

042546

F
N
¥
£~

[ole]

8IT

Qe o~ N

004737
000410
020401
000000
062716
113776
000527

168

000020

14$,3(5P)

378

032737
001427

b cod

sNO ERROR GETTING RMDS

SIRANARANRRANNRANEARAAN
R AN R ARANANAACARAANAR AN
AANRREAAANRRARS

e wn ]

~NINON
-2
0

kol cnnlh el el ornd T

168
158
0
#6,(SP)

8%
=R
Omdaa
O
© bm d b
HrorON
o

000004
042110

& RISKRS n

0
000000
062716
113776
000550

OO o

- G i4
Pl

b
b

001412
001545
001546

000023
000000
000200
043016

001350

000100

i
D el ol el D el
) D o} and
b ok
b
d
D
D e =D =
e o
D e e
) vend o wmd w—d

000000

SoRRERNAARAARAAARANARAN
R AR A AR ANANNAERAARAAARACACARRRA AR AR ARNEY

el el el e S

el wrmd e

000004
0462026
042446

NN
"w

gz&agooo«o«mmmmmmmmmmbbabbbbbbbwwu&
WAL = OO
NN
AN = OO NN NN =2 OO0 N
SR AN AR
= 25
OO NNIR
W=D OO
OO
QS
O
[
RYRRRRRR RRRRRR o
BN
R RKRRRRIRRR (=]
&R
R RRRR
N
N
RRRIAIRIRININY NN
NON
A
IR
nnu:gnnvhuvgg
[p SN TN LS TN T8 1, V)
(=]
%
O
&
N
RN
NaaaD00
o
02
W
~
(=]
~
o
o&O
0

2034
2042

2026

0420264

el —d

15 06 0%2

D o

TEST PREPARATION MODULE

*RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND '‘SKI'' IS SET
;OR "FIP'' IS ACTIVE,
;RECALIBRATE DRIVE if BIT 10 IS SET

032737
001027
032737
001505

002000

042456

004000

042456

004737
000410

042546

2ss

)

BIT
BNE
8IT
8EQ
JSR
B8R

1710,39%

298
#81T11,398
388
PC,GET

288

:gggQQIBaArE DRIVE ?

*RECALIBRATE??
*NO!!

;GO GET RMDS
sNO ERROR GETTING RMDS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28=-JAN=-82 16:24:51 PAGE 15-3

SEQ 0177

TEST PREPARATION MODULE

172 062246 000401
173 042250

ooogoo

175 042256

113776

174 042252

06% 16

000004

268:

042250

000000

0460000

0462460

032737

020000

001350

183 042306

012737

000007

001412

186 042330

004737

063016

188 042336

000401

;;g 043264 000470
178 042266
179 049274

032737
001004

}gg 042304

001462

180 042276

184 042316
185 042322

187 042334

189 042340
190 042342

191 042346

112737 000000
112737 000200

000410

000000
062716

}gg 042356

000004

062340

004737

043370

032737
001430

000010

201 042372

004737

042546

203 042400
204 042402
205 042404

000401
000000
062716

ggg 042416

000413

209 042420

004737

211 042426

000401

202 0462376 000410

212 042430
213 042432

214 042436
215 042440

216 062446
217 042452
5}3 042454
220 042456

221 042460

26! a(sP)

000000

308:

;TRANSFER ERROR TO USER

378

#5K1,408
298

;WAS SKI SET ?
*YES, G0 RECALIBRATE

BEQ

388

*NO!!

#PIP,RMDS]

MOV

#RECAL
!
GO,RMCS10

JSR

PC,PUT

MOV
MOV8
LWORD
ADD

MOVB

B8R
318:

;ERROR FROM GET SUB

BIT
BNE

8IT
29%:

86, (SP)

JSR

;1S PIP ACTIVE??

-LOAD RECALIBRATE COMMAND

#RMCST.PUTINX
#200.PUTINX+1

:;AND REGISTER INDEX
:SET TERMINATOR

31§

*NO ERROR

308

*G0 ISSUE RECALIBRATE

0
46, (SP)

;ERROR IN REGISTER TRANSFER
*TRANSFER ERROR TO USER

PC,TIMOUT

;WAIT FOR COMPLETION

30&-2 a(sp)

ttttittttttttfitt'tttttttt't'tltttttttttttt*tttttttttttttttttttt

197
198 042362
533 042370

210 062426

MOVB

ADD

196

206 042410

B8R
28%:

278

.WORD

113776

}35 042356 000434

001545
001546

27$%:

042456

0060000
005726

062716
113776

000004

162716
000240
000207
005000

000000

054260

000004
042430
(00002

JSR

PC,GET

;60 GET STATUS

BR
.WORD
ADD

338
0
#4,(SP)

:ERROR FROM GET
*TRANSFER ERROR TO USER

PC,RCLSTS

;60 CHECK RECALIBRATE

.WORD
TST

0
(SP)+

:ERROR DURING RECAL IBRATE
*STRIP RETURN TO SUB AND

SuUB
NOP
RTS

#2.(SP)

;MOVE SP BACK BEFORE ERROR

;RETURN TO USER

:TASK/VERIFY DESCRIPTUR

113776 042402 000000

000412

‘VERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT
#8I713,398
;VERIFY RECALIBRATE??
BEQ
INO! !

328:
338:

348$:

35¢:
368:

000000

MOVB

378:
388:
398 :

208:

JSR

ADD
move

.MORD

.WORD

348

325 a(sP)
38$

44, (SP)
35$.a3(5P)

:NO ERROR GETTING STATUS

:NO ERROR DURING RECALIBRATE
*TRANSFER ERROR TO USER

*CONTAINS RMER?2

CZRNDAO RMGO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 16

J 14

SEQ@ 0178

GET STATUS SUBROUTINC
5

.SBTTL

;THIS SUBROUTINE SETS UP THE '‘GET INDEX TABLE'' AND THE °'GET

sAND THEN RETURNS TO THE USER.

;BUFFER''

sCALL:

10 042462

GETSTS:

062462

010046

12 0462466
13 042470
14 042474
15 042500
16 042504
17 042506
18 042510
19 042514
20 042516
21 042522
22 0425264

010246
012700
012701
012702
110220
005041
162702
100405
022702
001370
005041

11 042464

23 042526
24 042530
25 042534
26 042536
27 042540
28 042542
29 042544

010146

000770
112720
012602
012601
012600
(00240
000207

GET STATUS SUBROUTINE
FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE

JSR

PC,GETSTS

MOV

RO,~(SP)

:sPUSH RO ON STACK

MOV
MOV
MOV
MOV
MovB
CLR
suB
8MI
P
BNE
CLR

R2,=(SP)
#GETINX RO
WRMEC21+2,R1
#RMEC?2 . R2
R2,(RO)+
=(R1)
”2,R2
48
#RMDB,R2
2s
=(R1)

:;PUSH R2 ON STACK
;RO = ADDRESS OF INDEX TABLE
:R1 = ADDRESS OF GET BUFFER
;R2 = REGISTER INDE
SWRITE REGISTER INDEX IN TABLE
sCLEAR CORRESPONDING LOCATION
sDECREMENT TO NEXT INDEX
sBRANCH OUT IF DONE
;DONT WRITE RMDB INDEX

7?2

MOV

001516
001406
000046
000002

28:
3s:

000022

000200

4S:

BR
MOovV8
MoV
MoV
MOV
NOP
RTS

R1,-(SP)

38
#200, (RO)+
(SP)+,R2
(SP)+,R1
(SP)+ RO
PC

RETURN HERE

:;PUSH R1 ON STACK

sWRITE TERMINATOR
::POP STACK INTO R2
:sPOP STACK INTO R1
:;POP STACK INTO RO

CZRNDAO RMB80 FCTNL PT1 MACRO v04.00 28-JAN-8
GET SUBROUTINE

.SBTTL

2
3

GET SUBROUTINE

sTABLE MUST BE TERMINATED WITH A CONTROL BYTE (200

sWHICH SHOULD FOLLOW THE LAST ENTRY.

:
: SUBROUT INE CALL:
(1
“'GET _INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX
VALUES AND TERMINATED WITH A CONTROL BYTE
:

16
17
18
19
20
21

:(2)
:

H
(3
:

‘GET_INPUT BUFFER''
IS AVAILABLE FOR USE.
(NOTE THAT
UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING

TO REGISTERS NOT READ, ARE NOT CHANGED.)
PC,GET
JSR
7”72
RETURN HERE IF NO ERROR FOUND
BR
NOP
RETURN HERE IF ANY ERROR FOUND
ERROR
SUB DEFINES ERROR NUMBER
272

:
:
:
:
:RO = REGISTER BASE ADDRESS
:R1 = REGISTER ADDRESS
:R2 = BUFFER BASE ADDRESS
:R3 = BUFFER ADDRESS

23
24
25
26
27

POINTER TO REGISTER INDEX

000240

32 042550
33 042554
34 042560

062716
105076
162716

000004
000000
000004

042572
042574
042576
042602
36 042606
37 042612
38 04261¢

010346
010446
013746
013746
013700
012702
0127064

000004
000006
001276
001336
001516

40 042630
41 042636
42 042644
43 002652
44 042660
45 042662
46 042670
47 042676
48 042700
49 042702
50 042704

012737
016037
016037
032737
001007
062766
112776
000423
105714
100433
111401

51 042706

SEQ@ 0179

:''GET_INDEX TABLE:' AND STORES THEIR VALUES IN THE CORRESPONDING
SLOCATION IN THE '‘GET REGISTER BUFFER''. FOR EXAMPLE, AN
;ENTRY
OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE i0
SREAD 'RMBA'' AND STORE ITS CONTENTS AT THE LOCATION IN
sTHE BUFFER _ASSIGNED TO THAT REGISTER. THE NUMBER OF
sREGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX

S
6
7
8
9
10
"
12
13
14
15

39 042622

PAGE 17

;THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE

31 042546

+*5"

012737

042701

042730

000300
000010
000000
004000
000004
000112

GET:

ERAVEC,=(SP)

ERRVEC+2,=(SP)
, RO
$BASE
#GETBUF .R2

000004

000006
001174
001176
001176

18:

000016
000016

3s:

177700

¥4, (SP)
a(sp)
#4,(SP)
RO,~(SP)
R1,-(SP)
R2.-(SP)
R3,~(SP)
R%.~(SP)

#GETINX
R4
#58 ERRVEC
#PRG ERRVEC
+2

:CLEAR ERROR NUMBER IN USER'S
*ERROR CALL
::PUSH RO ON STACK
;:PUSH R1 ON STACK
$:PUSH R2 ON STACK
*:PUSH R3 ON STACK
*:PUSH R4 ON STACK

::PUSH ERRVEC ON STACK

::PUSH ERRVEC+2 ON STACK

;SETUP FOR TIMEOUT

nncsé(ng).stnpo ;GET *NED'* STATUS

RMCST(RO) ;STMPT :GET 'DVA'' STATUS

ggvn.srnpi

:ggg;gs AVAILABLE??

#4,16(SP)
g}iz,a1e<sp)

SWRITE ERROR NUMBER IN USER'S
SERROR CALL

(R4)
9
(R4) ,R1

:DONE??
SYES!|

#°CIDXMSK,RT

*RT = REGISTER ADDRESS

SCLEAR ANY SIGN EXTENSION

CZRNDAQ "M80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 17-1

L 14

SEQ@ 0180

GET SLBROUTINE

52
3
4
5
6
7

042712
042714
042716
042722
042724
042726

060001

ADD

mMovs
8i¢C
ADD
MOV
BR

177700

59 042730
60 042732
61 062740
62 042746
63 042754

000004
000007
000002

64 042756

000016
000016
000016

5%:

7$:
8s:

65 042760
66 042762
67 042764

68 042766
69 062770
70 042772
042772
042776
043002
043004
043006
043010
043012
71 043014

012603
012602
012601
012600
000207

(R§)+,R3

;R3 = STORAGE ADDRESS FOR REGISTER

§§i>.<n3>

;READ REGISTER

(SP)+,(SP)+
#4,16(SP)
#7.316(SP)
#2.16(SP)

;RESTORE STACK
‘WRITE ERROR NUMBER IN
*USER'S ERROR CALL

98
R3
(R4) +,R3
R2,R3

SYES!!
*CLEAR REMAINING STORAGE
*LOCATIONS

g;cagxnsx.ns

(R)

*CLEAR ANY SIGN EXTENSICN

:DONE CLEARING??

(R$)

000771
012637
012637
012604

RO R1

000006
000004

9s:

(SP)+,ERRVEC+2

(SP)+.ERRVEC
(SP)+.R4
(SP)+.R3
(SP) +.R2
(SP)+.R1
(SP)+.R0
PC

::POP STACK INTO ERRVEC+2

;;POP STACK
$:POP STACK
$:POP STACK
+:POP STACK
$:POP STACK
+:POP STACK
*RETURN

INTO ERRVEC
INTO R4
INTO R3
INTO R2
INTO R1
INTO RO

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 18

" 14

SEQ 0181

PUT SUBROUTINE

.SBTTL

3
4
5
6
7

:]HIS SUBROUT INE HRITES THE REGISTERS WHICH ARE LISTED IN THE
:"'PUT INDEX TABLE. WITH THE CONTENTS.OF THE CORRESPONDING
JLOCATION IN THE 'PUT REGISTER BUFFER''.,
THE NUMBER OF
JREGJSTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST
:BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD

PUT SUBROUTINE

;FOLLOW THE LAST ENTRY.

;SUBROUTINE CALL:

:(2)

16
17

:(3)
H

JSR
B8R

18
19

H
H

22
23
24
25
gg

;RO
+R1
:R2
:R3
;R4

28 043016
29 043020
043022

000240
010046
010146

0463026
043030
043032
043036
30 043042
31 043046
32 043052
33 043056
34 043064

010346
010446
013746
013746
013700
012702
012704
012737
012737

36 043100

043024

PUT:

010246

000004
000006
001276
001412

000004
000006

016037

000000

001176

38 043114
39 043116

001007
062766

000004

000016

41
42
43
44

043132
043134
043136
04643140

000430
105714
100431
111401

46 063146

060001

016037 000010 001174

1$:

37 0643106 032737 004000 001176

40 0431246

45 063142

47 043150

48 043152

112776

042701

111403

042703

49 0643156

060203

S1 043162

122714

S0 043160

011311

OF REGISTERS TO BE WRITTEN.

"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH

NOP
ERROR

000112

3s:

177700
177700
000032

RETURN HERE IF NO ERROR FOUND

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

NOP
MOV
MOV

RO,~(SP)
R1,-(SP)

:sPUSH RO ON STACK
:sPUSH R1 ON STACK

MOV
MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV

R3,-(SP)
R4 ,-(SP)
ERRVEC,~(5P)
ERRVEC+2,~(SP)
$BASE ,RO
#PUTBUF ,R2
#PUTINX
R4
#58 ,ERRVEC
#PR6 ,ERRVEC+2

s :PUSH R3 ON STACK
J:PUSH R4 ON STACK
s :PUSH ERRVEC ON STACK
2:PUSH ERRVEC+2 ON STACK

MOV

R2.,-(SP)

::PUSH R2 ON STACK

JSETUP FOR TIMEOUT

RMCS2(R0)
. $TMPO :GET NED'' STATUS
RMCST1(RO) ,$TMP1 ;GET

'DVA'’

STATUS

BIT

#DVA, $THP{

:DEVICE AVAILABLE??

MovBs

#112,316(sP)

JUSER'S ERROR CALL

BNE
ADD

000016

PC,PUT
7?2

= REGISTER BASE ADDRESS
= REGISTER ADDRESS
= BUFFER BASE ADDRESS
= BUFFER ADDRESS
= POINTER TO REGISTER INDEX

MoV

001545
043176
000300

35 043072

*PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

BR
IST8
8MI
Mov8s

8IC

ADD

MOVB
8IC

ADD

MOV

CMPB

3s
#6_16(SP)
7$
(R4)
98
(R4) ,R1

#ACIDXMSK,R1
RO,R1

(R4) ,R3

#*°CIDXMSK ,R3
R2,.R3

(R$) (R1)

#RMOF , (R4)

JYES!!
JWRITE ERROR NUMBER IN
sDONE??
JYES!!
:R1 = REGISTER ADDRESS

JCLEAR ANY SIGN EXTENSION
:R3 = STORAGE ADDRESS

;CLEAR ANY SIGN EXTENSION

:WRITE REGISTER

JWAS RMOF JUST LOADED ?

CZRNDAD RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 18-1

N 14

SEQ 0182

2O
e
VIR
NE&

NN
oo

BNE

MoV

A Y

NNNO

o=
OO
OV

55 043172
56 043174

Y
o Y
OO
N
NN

52 043166
043170

0O
=O
=2

PUT SUBROUTINE

000004
000007
000002

000006
000004

64 043244

000016
000016
000016

43
(R3), (R1)

:ADJUST REGISTER POINTER

1ST8
B8R

sADJUST STACK
¢WRITE ERROR NUMBER IN
;USER'S ERROR CALL

CMP

7$:
9%:

ADD
Movs

sus

MoV
MOV
MOV
MoV
MOV
MOV
MOV
RTS

;B8R IF NO
JWRITE RMOF AGAIN, TO ENS
U? E1 6
BIT FORMAT
;1S SET BEFORE ''SSEI'' BIT
$S E T

(SP)+,ERRVEC+2
(SP)+,ERRVEC

(SP)+.R&
(SP) +,R3

(SP)
+ ,R2

(SP)+,R1

(SP)+,R0
pPC

;POP STACK INTO ERRVEC+2

::POP STACK INTO ERRVEC
:;POP STACK INTO Ré&

;:POP STACK
::POP STACK
::POP STACK
::POP STACK
sRETURN

INTO R3
INTO R2
INTO R1
INTO RO

C 4 R NDAQ RMBO FCINL PT1
S I 4 € CLOCK SUBROUTINE

MACRO V04.00 28~JAN-82 16:24:51 PAGE 19

.SBTTL

0643362
19 043366

[=leldlelelaleleloleololele]

(=]
&~
N
W

md
D i and e

NEMANN — OO 00 ~JO NN
CO N

——d ad md ——d

043300
0643306

Q ad ad cd PO Q) b cod aed md oD ok
NN
O VPN NN NN
SNSNSNSNON
B SNISN NSNS N
SNAHN AN N
NN NN S B
NNNNON
= NNNSNNOON

2
3 043246
043246
063252
043256
063264
043272

000404
022626
062766
012637
012637
000207

000004

SIZCLK:

MoV

MOV

1%:

172540
000104
136146

000002
000006
000004

2%:

3s:

SEQ ¢

SIZE CLOCK SUBROUTINE

MoV
MOV
MOV
MoV
TST

043346

B 15

8R
CMP

ERRVEC, =(SP)
ERRVEC+2,=(SP)
#1$,ERRVEC

ssPUSH ERRVEC ON STA(K
:;PUSH ERRVE(C+2 ON STACK
¢SET UP FOR BUS TIMEOUT

#177546, CLKADR

sLOAD ADDRESSES FOR Kwil-L

#PR6 ,ERRVEC+2
#100, CLEVCT
@CLKADR

(SP)+, (SP)+

#2$ ERRVEC
#178540,CLKADR
#1064, CLKVCT
gCLKADR
$
(SP)+,(SP)+
#2,4(SP)

(SP)+ ERRVE(C+2
égP)*.ERRVEC

sTEST FOR KW11=L PRESENT
;YES = KWll-L 1S PRESENT
;RESTORE SP
sSET UP FOR BUS TIMEOUT
sLOAD ADDRESSES FOR KW11-P CLOCK
sTEST FOR KW11-P PRESENT
sYES = KW11=P IS PRESENT
+RESTORE SP
sMOVE RETURN TO ERROR
;:POP STACK INTO ERRVEC+2
;;POP STACK INTO ERRVEC
sRETURN TO USER

CZRNDAO RMBU

L TNL PT1 MACR) VO04.00 28-JAN-82 16:24:51 PAGE 20

€15

SEQ 0184

TIMEQUT SUBROUT INE

}

LSBITL

:THIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT

;CALL:

;GREATER THAN APPROX. SO0 MSEC AND THEN RETURNS.

9 043370

043370
043372
043376
043400

010046
010246
013746
013746

TIMOUT:

000004
£20006

10 0643404
11 063412
12 0434620

012737
012737
013700

04643470
000300
001276

}é 043430

004737

043532

1$:

16 043434 016046 000000

28:

13 0634264

17 043440
18 043444
19 043450

20
21
22
23
24
25

TIMEOUT SUBROUTINE

043452
043460
043462
043464
043466

012702

042716
022726
001421

032777
001765
005302
001361
000412

26 043470 022626

000004
000006

000036

77576
000200

000200

136032

27 063472

062766

000004

000012

gg 043506

162766

000002

000012

28 043500

112776

31 043514
043514
043520
043524

012637
012637
012602

;5 043530

000207

000007

38:

48:

RO,=(SP)
R2.=(SP)
ERRVEC,=(SP)
ERRVEC+2,~(SP)

Mov
MOV
MOV

#38 ERRVEC
#PRé, ERRVEC+2
$BASE RO

JSR

PC.STIMER

MoV

MOV

BIC
CMP
BEQ

#30, ,R2

RETURN HERE
;:PUSH RG ON STACK
“:PUSH R2 ON STACK
. :PUSH ERRVEC ON STACK
2:PUSH ERRVEC+2 ON STACK

:SETUP FOfi BUS TIMEOUT - 04 TRAP

:RO=BASE ADDRESS

*R2=NUMBER OF CLOCK CYCLES

SSTART CLOCK TIMER

RMCST(RO)
,=(SP) ;GET STATUS

#2C<RDY 1GO>, (SP)
ARDY, (SP)+
:RDY=1,60=0??
48
SYES!!

#BIT7,3CLKADR
28
R2
1$
48

(SP)+,(SP)+

ADD

#%,12(sP)

suB

#2.12(SP)

:TIMER DONE??
*NO!!
*DEC NUMBER OF CYCLES
:CONTINUE IF NOT DONE
*"RDY* DID NOT SET OR ''GO’' DID NOT RESE!
*WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.

*ADJUST STACK

#7.312(SP)

:MOVE SP TO USER'S CALL
*WRITE ERROR NUMBER

MoV
MOV
MOV

(SP)+,ERRVEC+2
(SP)+.ERRVEC
(SP)+.R2

.
::POP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC
$:POP STACK INTO R2

RTS

*RETURN TO USER

MoV

3
35

(SP)+.RO

*:POP STACK INTO RO

JTHIS ROUTINE IS USED START THE KWl1=-L OR THE KW11-P CLOCK. THE CLOCK
:1S STARTED TO RUN IN FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU

*AND 20MS FOR A 50 HZ CPU.

38 043532
043532

010146

%0 043540

020127

39 043534 013701

001003
012761

43 043556 012711
4% 043560
&S 043562

Mov
MOV
MOV
MoV

MOVB

043526 012600

41 063544
42 043546

PC,TIMOUT

BIT
BEQ
DEC
BNE
BR

000012

000006
000004

JSR

0712601
000207

STIMER:

MOV

R1,~(SP)

: :PUSH R1 ON STACK

cMP

RT,#172540

‘kW11=P CLOCK??

MOV

#8iT21BITO,
(R1) :START COUNTER

001512

MOV

000001

BNE
MOV

172540

000005

000002

1s:

MUV
RTS

CLKADR,R1

1$
#1,2(R1)
(SP)+.R1
PC

*R1=CLOCK ADDRESS
*NO!!
*SET COUNTER

$:POP STACK INTO R1
*RETURN

D15

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28-~JAN-82 16:24:51 PAGE 21

SEQ 0185

PRIMARY ERROR CHECK SUBROUTINE

.SBTTL

;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

:FOLLOWING CHECKS ARE MADE:

*THAT

PRIMARY ERROR CHECK SUBROUTINE
FURTHER ERROR AND

STATUS

CHECKING SHOULD BE

PERFORMED.

THE

-CORRECT UNIT IS SELECTED, [.E., THE UNIT SELECT BITS OF RMCS2

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS

S(BITS 0~2) EQUAL THE UNIT BEING TESTED:

TAND NED (BIT 12 OF RMCS2)

14
15

IS RESET:

*READY (BIT 7 OF RMCS1) AND THE GO BIT ISRESET (BIT O OF RMCST) OR THE
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET.

Hcgg pAglrv ERROR OCCURRED WHEN READING REMOTE REGISTERS,

".NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

1.E.. PAR
= O, OR, PAR
= DPE
= 1

21
gg

:
:THE SUBROUTINE ASSUMES THAT:

25
59

*IN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORED IN THEIR
* CORRESPONDING LOCATIONS OF THE ''GET'* BUFFER.

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

.(SUNIT) CONTAINS THE DRIVE NUMBER

*THE SUBROUTINE IS CALLED AS FOLLOWS:

(1)

33
3%
35

;g
23 043564
41

42 043564
43 043570

47 043600

013737

001346

001142

49 0436146

013737

001234

001140

48 043606

50 063622
51 043630
52
53 04363
54 043640

55 043644

56 043652
57 043656

JSR

PC,3(SP)+

;

272

773

:CLEAR USER'S ERROR CALL

000004
000000

PC.PRIERR

B8R
NOP
ERROR

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:
062716
105076

zg 063574

JSR

:
;
:

162716

042737

042737
123737
001415

000004

177770

177770
001140

062716

000004

162716
004736

000002

112776

ADD
CLRB

000001

su8

001142

001140
001142

¥4, (SP)

;MOVE (SP) TO ERROR CALL
*CLEAR ERROR NUMBER

‘MOVE (SP) TO NO ERROR RETURN

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED

MOV

BIC

MOV

8IC
CMPB
BEQ

000000

44, (SP)
3($P)

ADD

MOVB
sUB
ISR

RMCS21,$BDDAT

:CORRECT UNIT SELECTED??

SUNIT,$GDDAT

:GOOD DATA FOR TYPEOUT

#~CUNTMSK
, SBDDAT”

#-CUNTMSK, SGDDAT
SGDDAT,S$BODAT
;COMPARE EXPECTED AND RECEIVED
onrvs NUMBERS
18
SYES!!
24, (SP)

#1.3(SP)

#2.(SP)
PC.3(SP)+

;ERROR 1

*MOVE SP TO RETURN FOR ERROR
*REPORT WRONG UNIT SELECTED

LZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 21-1

E 15

SEQ 0186

PRIMARY ERROR CHECK SUBROUTINE

58 063660
59 043664
60 043666
61 043672
62
63
&
65 043672
66 043700
67 063702

68 043710
69 043716

70 043724
71 043730
72 043736
73 043744
74 043746
75 043754
76 043762
77 043770
78 043776
79 04400

80 04,004
81 044C13

82 044012
83 044014

86 044014
87 044022
88 044024
89 044032
90 044040
91 044046

92 044054
93 044060
9% 044066
95 044072
96 044074

97 044100
98 044102
99 044104

102 044104
103 044112
104 044114
105 044122
106 0644124
107 044132
108 044140
109 044146
110 044152
111 044160
112 044164
113 044166
114 044172

162716
0002490
000137

032737
001045
012737
052737
013737
062716
112776

032737
001414
013737
013737
042737
112776
162716
104736
162716
000240

000010
044406

18:

004000

001336

001336
004000
001336
000004

001140
001140
001142

000002

010000

001346
001346
010000
000003
000002

032737
001030
013737
052737
042737
013737

EYE

001336
000200
160007
001336

001140
001140
001140
001142

062716
112776
162716
004736
162716
000240
000541

006704
000004
000002

032737
001431
032737
001025
013737
042737
013737
062716
112776
16271€
004736
162716
000240

000001

001336

00020C

11350

001336
160001
001336
000004
000005
000002

061140
001140

BEQ
MOV

28:

RMCS11,8GDDAT
#DVA, $GDDAT

:EXPECTED STATUS

SYES!!

:RECEIVED STATUS

#2.3(SP)

:ERROR #2

2
RMCS21,$GDDAT

*NOY!
:EXPECTED STATUS

ANED ,RMCS21]

MOV
BIC
MOVB
SuB
JSR

RMCS2] ,$BDDAT
#NED, SGDDAT
#3.a(SP)
#2,(SP)
PC.a(SP)+

108

8IT
BNE
MOV
8i$
BIC
MOV

#10, (SP)

*WAS NED SET??

:RECEIVED STATUS

:YES = CHANGE tAROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT DEVICE NOT AVAILABLE

*RESTORE (SP)

:SKIP OTHER CHECKS

#RDY ,RMCS1]
:CONTROLLER READY??
78
SYES!!
RMCS11,SGDDAT
;EXPECTED STATUS
#RDY, $GDDAT
#SC ! TRE !MCPE ! GO, $GDDAT
RMCS1],88DDAT
:RECEIVED STATUS

ADD

24, (SP}

ggg

#10, (SP)

MOVEB
SuB
JSR

060010

:DEVICE AVAILABLE??

;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY

000010

000000

(SP)

#DVA,RMCS 11

RMCSTI,$BDDAT
#4, (SP}

BIT

000000

001142

sSKIP OTHER CHECKS

MoV
ADD

MOVB

001336

108

b3 1

ggg

000200

sRESTORE

BNE

MOV
8IS

000010

000575

#10,(SP)

SREPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR If
sTHE DEVICE IS NONEXISTANT

£00000
001346

0017490
001142
001140
000000

suB
NOP
JMP

#4.3(SP)
#2,(SP)
PC.a(SP)+

:ERROR #4
*MOVE SP TO RETURN FOR ERROR

*REPORT CONTROLLER NOT READY

10$

:SKIP OTHER CHECKS

*RESTORE (SP)

:REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
BEQ
BIT

#G0,RMCS1
8s
#DRY ,RMDS I

;60 RESET??
SYES!!
*DRIVE READY??

MoV

RMCS1I,$GDDAT

:EXPECTED STATUS

BNE

SYES!?

BIC

#SC ! TRE 'MCPE ! GO, SGDDAT

ADD

44, (SPS

MOV

MOVB
SUB
JSR

agg

RMCS11,$BDDAT

;RECEIVED STATUS

#5.3(SP)
#2.(SP)

;ERROR #5
*MOVE SP TO RETURN FOR ERROR

#10, (SP)

*RESTORE (SP)

PC a(SP)+

*REPORT DRIVE NOT READY

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 2B~JAN-82 16:24:51 PAGE 21-2

F 15

SEQ 0187

PRIMARY ERROR CHECK SUBROUTINE

00050¢

8s:

1
1
1
1

P
N

o0
He

9%:

1
1
1
1
1

1
1

1
161

044364
04,372
044376
044400
044404

044406
044412
044414

001352

000010

001400

000010

001426

001545
000014

000002
162716
000240
062716
000240
000207

91%:

001140
001140
001142

:MOVE STACK TO USER'S ERROR

;ERROR #47

¢MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sRESTORE STACK

108

#PAR ,RMER11

93s:

118
#DPE ,RMER21
118
#PAR,RMER10
93s
RO,=(SP)
#PUTIN
RO
X
#RMER1, (RO)
928
(SP)+,R0
11$
(RD)+
91s
(SP)+ RO

RMER11, SGDDAT

#PAR, SGDDAT

RMERTT, SBDDAT

zss THERE A PARITY ERROR??
:WAS IT THE CONTROL BUS??
sNOT SURE!!
ng TEST SET PAR ??
s ;PUSH RO ON STACK

:RO POINTS TO INDEX TABLE
:SEARCH TABLE FOR RMER1

::POP STACK INTO RO

;PAR WAS SET BY TEST

Egb OF TABLE??

;:POP STACK INTO RO

:EXPECTED STATUS

2%
(SPS -MOVE SP’ TO USER'S ERROR CALL
#50,3(sP}
#2.(SP)
PC A(SP)+
#10, (SP)

000000

000010
000010

cRECEIVED STATUS

JREPORT AN ERROR IF THE RHBO DETECTED A CONTROL BUS PARITY FRROR

928:

001352

Fo)

147

RMCS11, $BDDAT

#10, (sP)

:EXPECTED STATUS

PC.a(SP)+

000010

PSRITY ERROR ??

RMCS11,$GDDAT

#4, (SP§
n3$.asp)
42, (SP)

000010

032737
001451
032737
001045
032737
001413
010046
012700
122710
001002
012600
000431
105720
100371

BUS

#SC'TRE
'MCPE !GO, $GDDAT

ggCPE.RACS1]

000000

108

JPARITY ON_THE MASSBUS CONTRO!I

003140
001140
001142

2
N
~

001336

(=]
&~

OO VAAWMMAWNMWMWMVINNE
SN BB
-t C O
NI NN = OO DN O NS D) — O00ONOMA

2
2
2
2
12
12
13
13
13
13
1 34
3
13
3
3
3
1

:REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD

11
12
12
12
12

e e Y

WA=
O D00 NN NS W=
O OB~

115 044174
1
0464176
"

#10,(SP)
PC

sRECEIVED STATUS

sWRITE THE ERROR NUMBER

:MOVE SP_TO RETURN FOR ERROR
REPORT THE ERROR
sMOVE SP TO NO ERROR RETURN
:RETURN TO ERROR

sRETURN TO NO ERROR

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22
SECONDARY ERROR CHECK SUBROUTINE

G 15

SEQ 0188

}

.SBTTL

SECONDARY ERROR CHECK SUBROUTINE

:THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS

4
S
6
7
8
9
10
1
;l%

2SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSAFILY
:ASSOCIATED WITH THE CPERATION BEING PERFORMED.
JWHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS
;70 THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
;MAKES THE ERROR CALL, 17 RETURNS 7O THE SUBROUTINE WHICH THEN LOOKS FOR
:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.

.CALL'

17
18

H
H

15
16

H
:

;

PC,SECERR

ERROR
JSR

PC,a(SP)+

22?

JNOTE:

5‘5' 0464416

SECERR:

JSR

B8R
NOP

2?22

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE

*INPUT REGISTER BUFFER.

ttttt*ttttttttttttttttwtttttttttttitttttttttttttttttttttttttttt

27
28 064416

013737

001412

30 044432
31 064436
g% 064442

062716
105076
162716

000004
000000
000004

29 044424

062737

177701

050556

*$TORE FUNCTION coos AND CLEAR USER'S ERROR NUMBER
MOV
RMCS10,515€
:STORE FUNCTION CODE

BIC

ADD
CLRB
sSUB

o*c<ro F11F21F31£4>,515$
¥4, (SP)
a(SP)
#4,(SP)

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER
JMOVE (SP) TO NO ERROR RETURN

:s ARERANRRRARRARRANARANEAAARARANAARARRRANNRRANENAARRAAAAAC AR AR

*CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

38 044446

032737

000200

001350

013737

001350

C01142

012737

000200

001140

39 044456

001024

41 044464

042737

40 044456
4

044472

044500
44 044506
45 044512
46 044516

47 0445,

23 044524
50

51 044526
52 044536
53 044536

56 044546
55 044552
56 044556

57 044562

177577

000004
000010
000002

162716

000010

032737

000001

001336

001142

004736
000240

001423
013737

042737
005037
062716

112776

177776
001140
000004

000011

;REPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0

8IT

:BAD DATA FOR TYPEOUT

#~CDRY ,$BODAT

ADD
move
SuB

26, (SP)
#10.a(sP)
#2,(SP)

SUB

NOP

000000

RMDS].SBDDAT

BIC

JSR

001142

:DRIVE READY??

(13

MOV

000000

#DRY ,RMDS]

BNE

MOV

001142

062716
112776
162716

C RN

#DRY ,SGDDAT

PC,a(SP)+

#10. (SP)

SYES!!

:GOOD DATA FOR TYPEOUT

:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT NOT READY

;RESTORE (SP) TO SRROR N

:REPORT ERROR IF GO BIT IS NOT RESET

5§:

BIT

#GO,RMCST]

;GG BIT RESET??

BIC
CLR

#4C60, $BDDAT
$GDDAT

:GOOD DATA FOR TYPEOUT

move

#11,3(sP)

BEQ
MOV
ADD

108
RMCS11,$BDDAT

24, (SP)

SYES!!
:BAD DATA FOR TYPEOUT

;ERROR NUMBER

CZRNDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-B2 16:26:51 PAGE 22-1
SECONDARY ERROR CHECK SUBROUTINE

e€

sus

JSR
su8
NOP

000004
000012
000002

e
oo ek

001336
177701
050556
001142

S8
QONN)

000010

b
e ok

S22 =8BV2R2

N
ENNINIA)
~0 NLNNIAN
ANINNNNNE NSNS
BN b U b N b b NN
OO
NNNNN

736

000002

OO0
2888

162716

b ud

58 044570
59 044574
60 044576
61 044602
62
63
64 044604
65 044612

000000

000010

MoV

8IC
MoV
cMP
BEQ
ADD
MOVB
sus
JSR
sus
NOP

RMCS11,$BDDAT

cIS FUNCTION CODE CORRECT??

5153, $GODAT

SEXPELTED FUNCTION CODE

#~C76,$BDDAT

$BDDAT, $GDDAT
158

#%, (SP)

#12,3(SP)

#2,(SP)
PC.a(SP)+

#10, (sP)

SYES!!
sERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT WRONG FUNCTION CODE
sRESTORE (SP)

sREPORT AN ERROR UF COMPOSITE ERROR IS SET AND NO OTHER
sERRORS ARE SET, OR _IF COMPOSITE ERROR IS NOT SET AND
;OTHER ERRORS ARE SET
$GDDAT
CLR
;EXPECT ‘ERR'' = 0
TST
RMER1I
:Ig|$”ER1 = 0??

001140
001352

001400
040000
001350
137777
001140

208:
258:

BNE
TST
BEQ

8IS
MOV

8IC
CMP

RMER2!
25%

#ERR, SGDDAT
RMDS1,$BDDAT
#*CERR,$BDDAT

gggDAT.SBDDAT

000004
000047
000002

¥4, (SP)

000010

#10, (SP)

#6?.3(SP)

#2,(SP)
PCIR(SP)+

JNQ!!

:1S RMERZ = 0??
SYES!:

J"ERR'® SOULD BE SET
;IS "ERR' 0K??

JYES!!

JMOVE SP TO USER'S ERROR
sWRITE ERROR NUMBER

2MOVE SP TO ERROR RETURN
SREPORT JNVALID COMP ERROR

sREPORT AN ERROR IF °''TRE'’ IS SET AND NONE OF THE BITS WHICH SET
sTRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

001350

000030

050556

040000

001140

001140
000004
000014
000002

O
RN

040000

ol eund aub

OVNOION)
o

001346
000377

o0
S

045000

+SET TRE IS SET

$0s

001140

wndd wnll and

005037
013746

RN
S BRSNS

FanISIRARIRGR2
LR

#10, (SP)

sMOVE SP TO RCTURN FOR ERROR
sREPORT DEVICE NOT AVAILABLE
sRESTORE (SP)

:REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT

ios:

15¢:

162716

#2,(SP)

PC a(SP)+

SEQ 0189

000000

CLR

$GDDAT
RHC;ZI.'(SP)
#377,(5P)+
35%

NERR ,RMDS 1
40%

35%:
408 :

8IS
MOV

#SEARCH,515%
408
#TRE ,SGDDAT

RMCSTT,SBODAT

#°CTRE,$SBDDAT
2?20AT.$BDDAT
#%, (SP)

4,3(5P)

#2,(SP)
PC,a(SP)+

SEXPECT *"TRE'' = 0
sWAS DLT, WCE, UPE, NED, NEM
:cggg‘HXF OR MDPE SET

Ega§;éxcsprxon RECEIVED??
EHA$;oArA TRANSFERRED??
sNO!!

' ‘TRE'® SHOULD BE SET

:BAD DATA FOR TYPEOUT

"'TRE"* 0K??
;1S
‘YES"
sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER
sMOVE SP_TO RETURN FOR ERROR
;REPORT TRE ERROR

CZRMDAO RMBO FCTNL PT1 MACRO v04.00 28-JAN-B2 16:24:51 PAGE 22-2
CHECK SUBROUT INE

162716
000240

002010

45%:

SUB
NOP

115

#10, (SP)

SEQ 0190

sRESTORE (SP)

SINRARRARAAANAANRAARNAR
VRN RN N AR AARAARANRANANNREACRORN: v 2 SHRARARS

SUSING THE _FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS:
[

<STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF

.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ECH

sNOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER

sSTATUS CONDITIONS, E.G.é WRITE LOCK ERROR_SHOULD ONLY BE SET IF
SWRITE LOCK IS ON AND TH COMMAND IS A WRITE.

NSO
O
PN
N

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776

050550

MOV
MOV

NOOCONOCOMNMUNINNNY

SRR
SRR
ana
SUJJVRYNIVY
W o W e N ek e I
{
OO?

O=OQ—d—d
ON ad
Wi

FNCDTB(RO) ,5008 ;STORE ENTRY
(SP)+,RO
:;POP STACK INTO RO

sREPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF
sATA IS NOT SET AND SHOULD BE SET.
MOV
5008, $GDDAT
sGET EXPECTED ATA STATUS
#ERR,RMDS]
BIT
:fig eqflPOSITE ERROR SET ??
BEQ
508
#ATA, $GDDAY
BIS
sEXPECT AN ATTENTION
#~CATA,SGDDAT
50%:
8IC
:STRIP DONT CARES

050550
040000
100000
077777
001350
077777
001140

MOV
8IC
e
8EQ
ADD

00UG04
000006
000002

55%:

QOO0
B o Sy b
NN
Oy
AN
b B
NNOO

W
LN
wub b
OO

050556
070002

sGET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
RO,-(SP)
MoV
::PUSH RO ON STACK
MoV
515$,R0
sGET FUNCTION CODE

000010

Vi
ALV IV
PNONININININ)
= b b b ced < e md e wmd

RRRREARRRRRRRRRRR
FRRREARKRRRRRR

wVivaw

RRRR

- OO

VAN

L) —

010046
013700
016037
012600

MOove
suB
JSR
SuB
NOP

RMDSI
, $RDDAT

#~CATA,SBDDAT

gggoAr,saooAr

¥4, (SP)
#6.3(SP)
#2.(SP)
PC a(SP)+

710, (sP)

sGET RECEIVED ATA
sSTRIP DONT CARES
:1S ATA OK ??
SYES !!
sMOVE SP TO USERS ERROR CALL
cLOAD ERROR # IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR
sRESTORE SP

sREPORT ERROR IF ILF IS INCORRECT, 1.E., IF ILF DOES NOT COMPARE
sWITH FUNCTION CODE TABLE
MOV
5008, $GDDAT
sGET EXPECTED ILF
#°CILF ,SGDDAT
8IC
sCLEAR ALL OTHER BITS
MoV
RMER11,$BDDAY
cGET RECEIVED ILF
#*CILF ,SBODAY
BIC
sCLEAR ALL OTHER BITS
LMP
$GDDAT ,$BDDAT
IS ILF 0K ??
BEQ
608
4, (SP)
ADD
:MOVE SP TO USERS ERROR CALL

050550
177776
001352
177776
001140

60$:

001142

MOoVB
sus
JSR
sus
CLR

#254,3(sP)

#2,{SP)
PC.a(SP)+

#10, (5P)
$GDDAT

sWRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
:MOVE SP TO NO ERROR
sCLEAR EXPECTED STATUS

JREPORY AN ERROR IF WCE 1S SET AND SHOULD NOT BE SET
MoV
5008,~(SP)
sGET WCE STATUS ENABLE
#CWCE, (SP)
8IS
sSET _ALL OTHER BITS
MoV
RMCS21 * SBDDAT
;RECEIVED STATUS
(SP)+,$BDDAT
8IC
sCLEAR WCE IF ENABLED

CZRNDAQ RMBO FCTNL FT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 22-3
SECONDARY ERROR (HECK SUBROUTINE

WAL
NN NN
[+ AV, 1V 2V 1
NSO o

QOOOOO
Lt

e
j=l=lelololele

N
N

1%
~

000004

000026
000002

162716

000010

013746
032737

001402
042716
052716
013737
062637
001412
062716
112776
162716
004736
162716

050550
000100

001400
001142
000004
000165
000002

000000

001350

001142

BEQ

1058:

42, (SP)

P A(SP)+

#10, (sP)

#10, (SP)

105$

BIC
BIS
MOV

#IVC, (SP)
#ACIVC, (SP)
RMER2] . SBDDAT

BEQ

1108

BIC

(SP)+,$BDDAT

ADD

¥4, (SP)

JSR
S

PC.R(SP)+
#10, (sP)

MOVB
)
1108:

sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
cREPORT ERROR
sRESTORE ERROR

sRESTORE SP

#165,a(SP)
#2.(SP)

sYES - IVC SHOULD BE 0
sSET ALL OTHER BITS
sGET RECEIVED STATUS
sCLEAR 1VC IF ENABLED
sBRANCH IF IVC OK
cMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
cMOVE SP _TO ERROR RETURN
sREPORT ERROR
sRESTORE SP TO NO ERROR

:BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
;s ALL WRITE ERRORS, 1.E.,
RMER1 - WLE, WCF
M
RMER2 - DPE
H
UPE.
RM(CS?2
:
sEACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE
sWRITE ERROR ENABLE BIT IS RESET.

S OOANNONESNYN
b AN
=D O WO
NS
NINNOVON

[wlelele)

SRIRSTBA2
=ANIANND
= N = NOND
[=l~1~]

OMONONONON

AN
OSSN

IR IS

VI VIWAVIA
AW
VIVIAWIWIIAAWAL

~NONN
S TV
IS AN <4 DO 0D
OO0 NOV

#25.3(SP)

sBRANCH IF WCE 0K

sREPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS
sSET AND VV IS NOT RESET
MOV
5008,
- (SP)
sGET IVC STATUS ENABLE
BIT
#VV RMDS]
:fig YY SET

000000

000010

suB

90$
#4, (SP)

SEQ 019

;REPORT ERROR IF OPI STATUS IS S ET_AND SHOULD NOT BE SET
MOV
5008, ~(SP)
sGET OPI STATUS ENABLE
8IS
#4COP1, (SP)
sSET ALL OTHER RITS
MOV
RMER1] .$SBDDAT
sGET RECEIVED SVATUS
8IC
(SP)+,$BDDAT
sCLEAR OPI IF ENABLED
BEQ
1008
sBRANCH IF OP] 0K
ADD
24, (SP)
sMOVE SP TO USER'S ERROR CALL
MOVB
#164.3(SP)
sWRITE ERROR NUMBER IN CALL
SUB
#2.(SP)
¢sMOVE SP TO ERROR RETURN
PC a(SP)+
JSR
sREPORT ERROR
1008:

210
NINIRINININININININAST VRN
NN
NINVINIPNIAINIRNIAIN)
b ood cacd ek <ocd ad b

suB

90$:

010000

167777

MOVB
JSR

001142

162716

BEQ
ADD

000000

000010

000004
000164
000002

004736

(=]
H

b d b aead D cand b e o crs nd cord ood wh oD [
ke e e

001412
062716
112776
162716
004736
162716

013746
052716
013737
062637
001472
062716
112776

b o

SNOCNR
S NN —

O S

mmmgmmmmmwwwwwwww
Ve~
VISNR)
= O D00~ IOV SN

172 0645324

J 15

177777

004000

050550

004000

001350

004000
001352
001142

001142

sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF
sTHE DRIVE IS NOY WRITE PROTECTED
#-1,=-(SP)
MOV
sASSUME WRITE ERRORS ENABLED
BIT
aiLE
. 5008
:QSE'QRITE ERRORS ENABLED ??
BEQ
115$
BIT

#URL ,RMDS]

:IS THE DRIVE WRITE PROTECTED 22

BIC

MILE, (SP)

BEQ

1258

sRESET WLE ENABLE
sGET RECEIVED STATUS
sCLEAR WLE IF ENABLED
sBRANCH IF WLE 0K

BNE

MOV
BIC

1208

RMERTI,SBDDAT
(SP)+,$BDDAT

-YES

[ ¥

CZRNDAO RMBO FCTNL PTY MACRO V04.00 28~JAN-82 16:24:51 PAGE 22-4
SECONDARY ERROR CHECK SUBROUTINE

229 045562

062716

000004

231 045576
232 065600

162716
004736

000002

230 045566

233 045602

ggg 045606
236

237 045606
238 045612
239 04562C
240 045622

261 045626
242 065634

243 045640
244 045642

245 045646
266 045656
247 045660

248 045662
5?3 045666
251
252 045666

112776 000023

162716 000010

012746
032737
001002
042716

000040

001412
062716

000004

013737
042637
112776

162716
004736

177777
004000

001352
001142
000025

000002

253 045672
256 045700
255 065702

177777
004000

257 045716
258 045720
259 04722

042637
001412
062716

001142

256 045706

260 045726
261 045736
262 045740

263 045742

013737

112776

162716
004736

000010

001400
000004

000040
000002

162716

000010

267 045746
268 045752
269 045760
270 045762

012746
032737
001002
042716

177777
004000

273 046000
274 046002

001412
062716

32§ 045746
266

271 045766
272 045774

275 046006

013737
042637

020000

001346
001142
000004

112776

000024

162716

000010

281
282 046026

013746

050550

284 046036
285 046044

013737
042637

001352
001142

276 046014
277 0646020

278 046022

5;3 046026

162716
004736

283 066032 052716

000002

175777

;MOVE SP TO USERS ERROR CALL

#2,(SP)
PC.a(SP)+

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

ngs,acsp>

su8

#10, (5P)

;REPORT ERROR IF WCF

050550

001142

1308:

000000

050550

001142

SWRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

IS SET AND WRITE ERRORS ARE NOT ENABLED

MOV
BIT
BNE
BIC

#-1,~(SP)
MILE, 5008
1308
MWCF , (SP)

;ASSUME WRITE ERRORS ENABLED
*ARE WRITE ERRORS ENABLED ??
SYES !
*DISABLE WCF FRROR

BEQ
ADD

135s
2% (SP)

*BRANCH IF WCF OK
:MOVE SP TO USERS ERROR CALL

SUB
JSR

#2,(SP)
PC.a3(SP)+

:MOVE SP TO ERROR RETURN
*REPORT ERROR

MOV
BIC
move

1358 :

SEQ 0192

#4, (SP)

MovV8
sUB
JSR

125$:

162716 000010

012746
032737
001002
0642716

ADD

000000

K 15

SuB

RMERTI,$BODAT
(SP)+,$BDDAT
#25.3(sP)

#10. (5P)

:GET RECEIVED STATUS
:RESET WCF IF ENABLED

;WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

;REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
#=1,~(SP)
:ASSUME WRITE ERRORS ARE ENABLED

1408:

000000

81T
BNE
BIC

MILE 5008
1408
#DPE , (SP)

*ARE WRITE ERRORS ENABLED 27
SYES 1!
*RESET DPE ENABLE

BIC
BEQ
ADD

(SP)+,$BDDAT
1458
¥4, (SP)

:RESET DPE IF ENABLED
*BRANCH IF DPE 0K
SMOVE SP TO USERS ERROR CALL

su8
JSR

#2, (SP)
PC.a(SP)+

MOV

move

1458:

suB

RMER21,$BDDAT

:GET RECEIVED STATUS

#40.a(sP)

*WRITE ERROR NUMBER IN CALL

#10, (SP)

*RESTORE SP TO NO ERROR

“MOVE SP TO ERROR RETURN
*REPORT ERROR

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED

050550

001142

1508:

000000

MOV
BIT
BNE
BIC

#-1,-(SP)
MLE, 5008
1508
#UPE , (SP)

;ASSUME WRITE ERRORS ARE ENABLED
*ARE WRITE ERRORS ENABLED ??
SYES 1)
:DISABLE UPE ERROR

BEQ
ADD

155%
#4,(SP)

*BRANCH IF UPE 0K
*MOVE SP TO USERS ERROR CALL

SUB
JSR

#2,(SP)
PC.a(SP)+

MOV
BIC

MOVB
1558

SUB

RMCS21,$8DDAT
(SP)+.$BDDAT
#24.a(SP)

#10, (SP)

:GET RECEIVED STATUS
:RESET UPE IF ENABLED

*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;REPORT AN ERROR IF IAE IS SET AND IS NOT ENABLED
MOV
5008, - (SP)
:GET IAE ENABLE

001142

8IS

MOV
BIC

#ACIAE, (SP)

RMER11.$BDDAT
(SP)+, $BDDAT

*SET ALL OTHER
BITS

:GET RECEIVED STATUS
:CLEAR IAE IF ENABLED

L 15

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN=-82 16:24:51 PAGE 22-5
SECONDARY ERROR CHECK SUBROUTINE

286 046050
287 046052
288 046056
289 04606+
290 046070
291 046072
292 046076

001412
062716
112776
162716
004736
162716

000004
000166

000002

BEQ

000010

¥, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+

move

000000
1608

1608

ADD

#146,a(sP)

#10, (SP)

SEQ 0193

:BRANCH IF IAE IS 0K
:MOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;8IT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
s ALL READ/WRITE ERRORS, I.E.,
:
RMCS1 - TRE

;

RMCS2 - DLT,NEM, MXF

iNOTE:

RMERT1 - AOE

iNOTE'

AOE CANNOT BE SET IF LBT IS NOT ALSO SET

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

RMDS

- LBT

-—h

AN
(=]

046076
046102
046110
046112
046116
046126

(=]
H
o

W N =OVANOVHWN—=O

NAN NN U LA NN U N WA LN NN
b el e ol e
b b wmd
N PN b

H
LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED
JCYLINDER REGISTER IS WRITTEN
JNOTE:

046132
046136
046144
046150
046152
046156

324
325 046156
326 046162
327 046170
328 046172
329 046176
330 046204
331 046210
332 046212
333 046216

334 046224
335 046230
336 046232
ggg 046236
339

340 046236
341 046242
342 046250

012746
032737
001002
042716
013737
042637

001412
062716
112776
162716
004736
162716

177777
001000

sREPORT AN ERROR IF DLT

050550

100000
001346
001142

001142

000004
000032
000002

000000

177777
(001000

012746
032737
001002

177777
001000

004000
001346
001142
000004
000167

000002

1658:

#-1,-(SP)
#AQE, 5008
1658
#DLT, (SP)

8IC

(SP)+,$BDDAT

MOV

RMCS21,$BDDAT
1708

ADD

#4, (SP)

sUB

#2,(SP)

suB

#10, (sP)

MOVB
1708

IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

Mov
BIT
BNE
8IC

BEQ

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

JSR

#32.a(SP)
PC.a(SP)+

sASSUME ERRORS ARE ENABLED
sARE ERRORS ENABLED ??
SYES !!
cRESET DLT ENABLE

:GET RECEIVED STATUS

sCLEAR DLT IF ENABLED

sBRANCH IF DLT IS OK
sMOVE SP TO USERS ERROR CALL
+WRITE ERROR NUMBER IN CALL
sMOVE SP _TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

sREPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
817
BNE

050550
001142

1758:

000000

000010

1808:

8IC

#-1,-(SP)
#AOE.SOOS
175
#NEM, (SP)

sASSUME ERRORS ARE ENABLED
:cgg quORS ENABLED ??
:
H
sDISABLE NEM

BIC
BEQ
ADD
MOVB
SUB
JSR

(SP)+,$BDDAT
1808
#4,(SP)
#167,a(SP)
#2.,(SP)
PC.a(SP)+

:CLEAR NEM IF ENABLED
*BRANCH IF NEM IS OK

MOV

SUB

RMCSS1,$BDDAT

#10, (SP)

-GET RECEIVED STATUS

sMOVE SP TO USERS ERROR CALL
¢WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
cREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

JREPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
050550

MOV

8IT
BNE

#-1,-(SP)

#AOE,500%
185%

;ASSUME ERRORS ARE ENABLED

sARE DATA ERRORS ENABLED ??
JYES !

CZRNDAO RMBO FCTNL PT1 MACRC V04.00 28-JAN-82 16:24:51 PAGE 22-6
SECONDARY ERROR CHECK SUBROUTINE

354
355 046316

356 046322
357 046330

358 046332
359 046340
360 046362

361 046346
362 046354

363 046360
364 046362
365 046366

36% 0463764

TV 046400
368 046402

112776
162716
004736
162716

012746
032737
001404
032,37
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

003000
001346
001142

001142

000004
000033
000002

000000

000010

190%:

177777
001000

050550

002000

001350

001000
001352
001142
000004
000020
000002

1858:

001142

1$:
5%:

000000

000010

8IC
MOV
BIC
BEQ
ADD
Move
sSus
JSR
sSus

AMXF

(SP)

RMCS2I,$BDDAT

SEQ 0194
;DISABLE MXF ERROR

:GET RECEIVED STATUS

(SP) +,$BDDAT
1908
¥4, (SP)

sCLEAR MXF IF ENABLED
sBRANCH IF MXF 1S OK
*MOVE SP TO USERS ERROR CALL

#2,(SP)
PC.a(SP)+

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

#3%,3(SP)

#10, (SP)

:WRITE ERROR NUMBER IN CALL

*MOVE SP TO NO ERROR

;REPORT ERROR IFf AOE IS SET AND DATA ERRORS ARE NOT ENABLED
#=1,-(SP)
sASSUME DATA ERRORS ARE ENABLED
MoV
81T
gegg.soos
;age‘qArA ERRORS EANBLED 7?7

348 046276
349 046306
350 046310
351 046312
gg; 046316

042716
013737
042637
001412
062716

046252
046256
046264
046270
046272

343
364
345
346
347

2008:

8EQ
BIT
BNE
BIC
MOV
8IC
BEQ
ADD
MOvB
sus
JSR
sus

#LBT ,RMDSI

*IS LBT ALSO SET 2?7

#ADE , (SP)

*DISABLE AOE

195

RMERTI,$BDDAT
(SP)+,$BDDAT
2008

#4, (SP)

#20.3(5P)

#2,(SP)
PC.a(SP)+

#0, (sP)

‘YES !

:GET RECEIVED STATUS
:CLEAR AOE IF ENABLED
*BRANCH IF AOE IS OK

:MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

:BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
sHEADER ERRORS, I.E.,
RMER1 - HCRC.MCE.FER
;
RMER2 - BSE,SSE
:
377 046406
378 046414
379 0646416
gg? 046424
382
383 046424
384 046430
386 046440
387 046444
388 046452
309 046456
390 046460
391 046464
392 046472
393 046476
394 046500
395 046504
396
397

398 046504

399 046510

;RESET THE ENABLING BIT (MCE) IF HEADER COMPARE INHIBIT IS SET

032737
001403
042737

002000

001370

000200

050550

2015

012746
032737

177777
000200

050550

042716
013737
042637
001412
062716
112776
162716
004736
162716

000400
001352
001142

;REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,~(SP)
:ASSUME ERRORS ENABLED
BIT
#HCE, 5008
*ARE HEADER ERRORS ENABLED ??
BNE
205$
tYES 1!

001142

000004
000035
000002

000000

012746

032737

8IT

2058:

BEQ
BIC

#HCI ,RMOF I

201$
#HCE,S00$

;IS HCI SET 22

INO !
$YES = DISABLE ALL HEADER ERRORS

BIC

#HCRC, (SP)

SDISABLE HCRC

BIC

(SP)+,$BDDAT

:RESET HCRC IF ENABLED

MOV
BEQ
ADD

RMERT],$BDDAT
210$
#4, (SP)

MovB

#35.3(sP)

JSR

PC.a(SP)+

SUB

*WRITE ERROR NUMBER IN CALL
‘MOVE SP TO ERROR RETURN

“REPORT ERROR AND RETURN

2108

177777

sREPORT ERROR IF HCE {gp§ET AND HEADER ERRORS ARE NOT ENABLED
MoV
’-1,sASSUME ERRORS ENABLED

050550

8IT

#10, (SP)

*BRANCH IF HCRC IS OK
*MOVE SP TO USERS ERROR CALL

000010

000200

suB

#2,(SP)

:GET RECEIVED STATUS

#HCE, 5008

*MOVE SP TO NO ERROR

*ARE ERRORS ENABLED ??

400 046516
401 046520
402 046524

001002
042716
013737

404 046536
405 046540

001412
062716

403 046532

406 046544
407 046552
408 046556

409 046560

042637

112776
162716
004736

000200
001352

001142
000004
000036
000002

162716

000010

412
413 046564
414 046570
415 046576

012746
032737
001002

177777
000200

417 0646606

013737

419 046616

001412

2;9 046564

416 046600 0462716

000020

418 046612

001142

042637

001352

420 046620

062716

000004

422 046632
423 046636

162716
004736

000002

421 046626

424 046640

112776

000057

162716

000010

427
428 046644

012746

177777

430 046656

001002

252 046644

001142

000000

050550
001142

042716

433 046672
434 046676
435 046700

042637
001412
052716

432 046664
436 046706

437 046212
438 046716

013737
112776

162716
004736

100000

001400
001142
000004

000356

000002

BNE
BIC
MoV

2158
#HCE, (SP)
RMER1] ,$BDDAT

BEQ
ADD

2208
#4,(SP)

sSus

#16.(SP)

8IC

MOoVB
SuU8
JSR

2208 :

2258:

000000

YES !
*DISABLE HCE
;GET RECEIVED STATUS

(SP)+.‘BDDAT

JCLEAR HCE IF ENABLED

#36,9(SP)
#2,(SP)
PC,a(SP)+

JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
SREPORT ERROR AND RETURN

BIC

#FER, (SP)

BIC

(sP)+,$BDDAT

MOV

RMERTI,$BDDAT

;BRANCH IF HCE IS 0K
JMOVE SP TO USERS ERROR CALL

JMOVE SP TO NO ERROR

:GET RECEIVED STATUS

:RESET FER IF ENABLED

*BRANCH IF FER OK

#3%.3(SP)

‘WRITE ERROR NUMBER IN CALL

#%, (SP)

Su8
JSR

#2,(SP)
PC.a(SP)+

su8

‘DISABLE FER

2308

ADD

MOVB

2308 :

001142

SEQ 0195

;REPORT ERROR IF FER IS SEYT AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME FER 1S ENABLED
BIT
#HCE,S008
*ARE HEADER ERRORS ENABLED ??
BNE
2258
YYES !

BEQ

429 046650 032737 000200 050550

431 046660

2158:

N 15

#10, (sP)

*MOVE SP TO USERS ERROR CALL
‘MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

JREPORT ERROR IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
:ASSUME ERRORS ENABLED

BIT

MHCE,S5008

*ARE THEY ENABLED ??

BIC

#BSE, (SP)

*DISABLE BSE

BIC
BEQ
ADD

(SP)+,$BDDAT
2408
#4, (SP)

sUB
JSR

#2, (SP)
PC.R(SP)+

BNE

2358:

000000

MOV
move

2358

RMERSI,$BDDAT

#354.3(SP)

:GET RECEIVED STATUS

:CLEAR BSE IF ENABLED
*BRANCH IF BSE 0K
:MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER

SMOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

439 046720 162716 000010
229 046724

2408 :

442
443
44s 046726
445 046726

010046
013700

sRESET THE ENABLING BIT (HCE), IF SKIP SECTOR ERROR INHIBIT (SSEI)
*SET OR FORMAT 16 (FMT) IS CLEAR.
MOV
RO,~(SP)
+:PUSH RO ON STACK
MOV
5158,R0
*GET FUNCTION CODE

448 046742

032737

446 046732
447 046740

449 046750
450 046752
451 046760
452 0646762

232 046770
455

456 046770

016037
012600
001404
032737
001403
042737

012746

050556
070002

050550

010000

001370

001000

001370

000200

050550

177777

MOV
MOV

8IT

2418:

2428:

8EQ
BIT
BEQ
BIC

#10, (5P)

SYES !!

*MOVE SP TO NOERROR

FNCDTB(R0),5008 :STORE FUNCTION TABLE ENTRY
(SP)+.RO
$:POP STACK INTO RO

SFMTI6,RMOFI
2418
#SSEI,RMOFI
2428
#HCE 5008

18 BIT FORMAT MODE ?

‘BR IF YES
*IS SSEI SET ?
*BR IF NO
*DISABLE HEADER ERROR

:REPORT ERROR IF SSE IS SET AND HEADER ERRORS ARE NOT ENABLED

MOV

#-1,-(5P)

sASSUME ERRORS ENABLED

P'Rc-o—zm'flmongggr-xc_-—zmmmanmz -

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28~JAN-82 16:264:51 PAGE 22-7
SECONDARY ERROR CHECK SUBROUTINE

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16.24:51 PAGE 22-8
SECONDARY ERROR CHECK SUBROUTINE
457 046774
458 047002
459 067006

032737
001002
042716

000040

462 047022
463 067026

001412
062716

000004

465 047036
466 047042

162716
004736

4€0 047010
461 047016
464 047630

467 047046

223 047050

013737
042637
112776

162716

000200

001400
001142
000063
000002

050550

001142
000000

000010

012746

177777

032737
001002
042716

486 047104

062716

000004

488 047116
489 047122

162716
004736

000002

013737
042637
001412

112776

000100

050550

000400
001346
001142

001142

000027

162716

000010

497
494 047130
495 047134
496 047142
497 047144

012746
(032737
001002
042716

177777
000100

047162
501 0471€¢

001412
062716

23; 047130

498 047150
499 047156

502 047170

503 047176
504 047202

505 047204

ggg 047210
508
509
510
511

512 047210
513 047214

sU8

RMER21 , SBDDAT
(SP)+,$BDDAT
#65.3(sP)

#2., (SP)
PC a(SP)+

#10, (sP)

:¢g§ vEE'S VALID FOR THIS FUNCTION ?
+DISABLE SSE
cGET RECIEVED STATUS
cCLEAR SSE IF NOT VALID FOR FUNCTION
¢BRANCH IF SSE 0K
sMOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

RMCS2 - MDPE
RMERT - DCK.ECH

ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND

*DCK IS SET.

480 047054
481 047062
482 047064

490 047124

2448
#4,(SP)

SUB
JSR

:
:
INOTE:
:

2;9

487 047110

8EQ
ADD

MOV
BIC

SEQ 0196

:BIT 06 OF THE FUNCTION CODE TAB LE IS THE ENABLING BIT FOR DATA
*FIELD ERRORS, I.E.,

472
473
47%
475

483 047070
48% 047076
485 047102

#HCE
. 5008
2438
#SSE, (SP)

MOVB
2448 :

470
471

478
479 047050

243%:

BIT
BNE
BIC

013737
042637

112776

162716
004736

162716

012746
032737

100000

001352
001142
000004

000030

000002

245$:

000000

050550

001142

#ECH, 5008
2458
#MDPE
, (SP)

ADD

#%, (SP)

SUB
JSR

#2,(SP)
PC A(SP)
+

MOV
BIC
BEQ

su8

RMCS21,$BDDAT
(SP)+,$BDDAT
2508

#27.3(5P)
#10, (sP)

:?Eg ?’TA FIELD ERRORS ENABLED ??
:DISBALE MDPE
sGET RECEIVED STATUS
sCLEAR MDPE 1F ENABLED
sBRANCH IF MDPE OK
sMOVE SP TO USERS ERROR CALL

sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
JASSUME ENABLED
BIT
#ECH, 5008
;ARE THEY ENABLED ??
BNE
255$
JYES !
8IC
#DCK, (SP)
;DISABLE DCK

255$8:

000000

MOV
8IC

:REPORT
;
:
:

RMERTI, $BDDAT
(SP)+,$BDDAT

BEQ
ADD

2608
¥4, (SP)

SUB
JSR

#2,(SP)
PC a(SP)+

move
2608:

050550

BIT
BNE
BIC

MOVB

2508 :

000010

177777
000100

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED
MOV
#<1,=(SP)
sASSUME ENABLED

suB

#30.a(sP)

#b, (5P

JGET RECEIVED STATUS
JCLEAR DCK IF ENABLED
JBRANCH IF DCK IS OK
JMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
JMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
JMOVE SP TO NO ERROR

ERROR IF ECH IS
1S SET AND ’
DATA FIELD ERgORS ARE NOT ENABLED, OR
ECI IS SET. O
DCK IS NOT SET.

MOV
8IT

#-1,-(3P)
#ECH, 5008

sASSUME ENABLED
sARE ERRORS ENABLED ??

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-9
SECONDARY ERROR CHECK SUBROUTINE
514 047¢22

515 047224
516 047232
517 047234
518 047242
519 047246
520 047¢50
521 047256

[+ ]

22 047262
047264
067270
0647276
0
847304

001410

032737
001004
0322737
001002
042716
013737
042637

004000

001370

100000

001352

000100
001352
001142

001412
062716
112776
162716

000004
000031
000002

162716

000010

001142

BEQ
BIT

BNE

2658%:
270%:

8IT
BNE
8IC

MOV

BIC
8EQ

ADD

000000

275S8:

MovB
sus
JSR
sus

{16

SEQ 0197

2658

;NO !

2653

LYES I

#ECI.,RMOF I
#DCK ,RMER1]

2708

1IS ECI SET 72
*1S DCK ALSO SET 22

TYES 1!

SECH, (SP)

*DISABLE ECH

2758

*BRANCH IF ECH IS OK

RMERTI,$BDDAT
(SP)+,$BDDAT

#4 (SP)

#31,3(5P)

:GET RECEIVED STATUS
:CLEAR ECH IF ENABLED

‘MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL

#2,(SP)

*MOVE SP TO ERROR RETURN

#10, (SP)

*MOVE SP TO NO ERROR

PC A(SP)+

‘REPORT ERROR AND RETURN

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 23
SECONDARY ERROR CHECK SUBROUTINE
1

'PERFORH THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS
SANRANAARANEANRAAARAANE
RN NI R AANARACN NN A AN ANANRNRAON AN RANNNSY

5 047310

022737

000030

g 047320

000137

050522

013737

001340

001142
001336

6 047316

10 047324

103402

11 047332
12 047334

001421
032737

040000

14 047346

062716

000004

162716
004736

000002

13 047342

001015

112776
005037

19 047370

162716

000010

23 047376

013737

001340

25 047412
St'?) 047416

006337
063737

001140
0014%6

28 047424
29 047432
30 0647434

032737
001403
013737

000010

001346

001416

001140

32 047442
33 047450
34 047452

023737
001416
013737

001140

001342

001142

36 047464
37 047472

112776
162716

000016
000002

000000

510 047374
22

24 047404

35 047460

000240

163737

062716

38 047476

004736

2? 047504

000240

39 047500

43 047506

162716

005046

000015
001140

050556

15 047352
16 047356
17 0647362
18 047366

001414

000004

001340
001414

47 047520

012746

000400

49 047532

001402

g? 047536

000002

062716

000002

52 047540

003266

000004

22 047552

022626

53 047544
54 047550

161666
003373

#SEARCH,515$

JMP

3558

MOV

BEQ
BIT

BNE

RMWCI,$8DDAT
285%
#TRE ,RMCS1]

2858 °

ADD

#4, (SP)

sus
JSR

#2,(SP)
PC,a(SP)+

MovBe
CLR
sus

NOP

001140

;WAS DATA TRANSFERRED ?

:BR IF YES

:NO - EXIT

:REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO

280S:

000000

001140

2808

;WORD COUNT ZERQ??

JYES
TRANSFER ERROR DETECTED??

;YES!!

n5.a(sp)
$GDDAT

sERROR NUMBER
:GOOD DATA FOR _TYPEOUT

#10, (SP)

sRESTORE (SP)

sMOVE SP TO RETURN FOR ERROR
sREPORT WORD COUNT NOT ZERO

;REPORT ERROR IF RMBA IS NOT CORRECT

2858:

001140

2908:

MOV

RMWCI,SGDDAT

sGET WORD COUNT AT END OF TRANSFER AND

ASL
ADD

$GDDAT
RMBAO, $GDDAT

* 2
:ADD STARTING BUS ADDRESS

BIT
BEQ
MoV

#BAI ,RMCS21
2908
RMBAO, $GDDAY

:WAS BUS ADDRESS INHIBIT (BAI) SET ??
sNO !!
sADDRESS SHOULD NOT HAVE CHANGED

(MP

SGDDAT ,RMBAI
2938
RMBAI, $BDDAT

BUS ADDRESS 0K??
YES!!
'BAD DATA FOR TYPEOUT

#16,3(SP)
#2.(SP)

sERROR NUMBER
cMOVE SP TO RETURN FOR ERROR

70, (5P)

sRESTORE (SP)

sus

8EQ
MOV
ADD

MOVB
SuB
JSR

sus

NOP

RMWCO,$GDDAT

#%. (SP)

PC,a(SP)+

'SUBTRACT STARTING WORD COUNT.

cREPORT UNEXPECTED ADDRESS

: COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT

013746
163716

032737

CMP

8Lo

000010

44 047510
22 047514

48 047524

SEQ@ 0198

SERARNARRANEAARANAARALACAARAACARRANANAAAANARENASAAANCRONORAORANY

;

D 16

000002

2958:

001412

MoV
sus

(LR

=(SP)

RMWCI ,=(SP)
RMWCO, (SP)

sNUMBER OF SECTORS TRANSFERRED

MOV

#256. ,~(SP)

sASSUME 256. WORDS PER SECTOR

BEQ

300%

8ITr

3008:

#8171,RMCS10

ADD

#2,(SP)

INC

4(SP)

CMP

(SP)+,(SP)+

sus
86T

(SP) ,2(SP)
3008

:GET_WORD COUNT AT END OF TRANSFER AND
:SUBTRACT STARTING WORD COUNT.

HEADER € DATA COMMAND
?
NO
!

CHANGE TO 258. WORDS PER SECTOR
- INCREMENT SECTOR COUNT

:SUBTRACT ONE SECTOR'S WORTH
:CONTINUE IF NOT DONE
SRESTORE STACK

s COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

CZRNDAQ RMBO FCYNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 23-1
SECONDARY ERROR CHECK SUBROUTINE

58
59 047554
60 047562
61 047570

013737

001446

050550

:NUMBER OF SECTORS
MOV
RMDCO, 5008

62 047576
63 067604
gg 047610

013737
000337
005237

001334
050560
050560

050560

LSTRK 5208

66 047614
67 047622
68 047626
93 047634

042737
000337
042737
062637

000377
050552
177400
050554

050552

71
72
73
74
75
76
;;

047640
047646

032737
001411

001000

047650
047656
047660
067664

023727
103417
005237
162737

79 047672

023727

80 047700
81 047702
82 047706
83 047714
84
85 047716
86 047724
87 047726
88 047732
89 047740
90 047742
91
92
93
94 047746
95 047750
96 047756

103406
005237
162737
000766
023737
103407
005237
163737
000766
000240

001420
001420

050552
050554

RMDAO, 5058
RMDAO, 5108

6iC
SWAB
BIC
ADD

#*C<TADMSK>,505%

001444

8IT
BEQ

#SSEI,RMOFO

3108

SNO

050554

0000«°

050554

3108,432.
3%
3$
#32.,5108

SSCTOR OVEFLOWED??

050552
000040

CMP
BLO
INC
sus

050554

000037

SSCTOR OVERFLOWED ?

050552
000037

050554

3108.431.
3158
5058
#31.,5108
3108

050552

050560

:L579K OVERFLOWED??

050550
050560

050552

505%,5208
3208
5008
5208,505%
3158

050554

001142
001142

032737

001000

001444

100 047774
101 050002
10% 050004
103 050010
104 050012
105 050016
106 050024

123737
001411
005737
001430
062716
112776
000414

001421

001345

109 050026

01%737

111 050042

001413

110 050034

112 050044
113 050050

114 050056

3148:

3158:

CMP
BLO

INC

SUB
BR

(MP

BLO
INC
sus
B8R
NOP

:SAVE TRACK ADDRESS BITS AND
:SWAP TRACK ADDRESS TO LOW BYTE.
#*C<SADMSK>,5108°
sSAVE SECTOR ADDRESS BITS

505%

(SP)+,5108

: THRU DATA TRANSFER

001140
001370
176777

108

310$:

5208
5208

sWAS SSEI SET ?
!

; INCREMENT TRACK
;ADJUST SECTOR

STRY AGAIN

*INCREMENT CYLINDER
sADJUST TRACK
sTRY AGAIN

sREPORT ERROR IF ‘'SSEI'* IS SET AFTER TRACK SWITCHING OCCURED
005037
013737
042737

97
38 047764

sSTORE ORIGINAL CYLINDER
sSTORE ORIGINAL TRACK
:STORE ORIGINAL SECTOR
¢STORE LAST TRACK,
sGET TRACK ADDRESS TO LO BYTE AND
s INCREMENT TO GET TOTL # OF TRACKS.

MoV
MoV
MOV
SWAB
INC

N
Pty

013737
013737

SEQ 0199

000004
000225

000000

001000

001140

001142

062716
112776

000004
000226

000000

000002

CLR

BIC

$GDDAT
RMOF
1 ,$BDDAT

#4CSSET, SBDDAT

sSETUP EXPECTED SSEI = 0
sGET RECIEVED DATA AND
sSAVE SSEI BIT FOR COMPARE.

BIT
8EQ

#SSE1,RMOFO

:38 SSEl SET BEFORE DATA TRANSFER ?

BEQ
TST
BEQ

3218

MOV

CMPB

061142

023737

162716

5208:

ADD
mMovs

3228

RMDAO+1 ,RMDAI+T ;060 TRACK SWITCH OCCUR ?

SBDDAT

3248

#4,(SP)

02és a(sp)

IS SSEl STILL SET ?
:NO
:POINT TO ERROR
:DEFINE ERROR NUMBER

-REPORT ERROR IF *‘SSEI'' IS INCORRECT
MOV
#SSEI,SGDDAT
sSETUP EXPECTED SSEI =1
3228:
(MP
gggoAi $BDDAT
ISSSSEI CORRECT ?
BEQ
YE
ADD
#4, (SP)
:PGINT TO ERROR

$21s::

323%:

MovB

SuB

cgés a(sP)
(SP)

:DEF INE ERROR NUMBER

:ADJUST RETURN TO ERROR

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 23-2
SECONDARY ERROR CHECK SUBROUTINE

NOP

002000

001352

002000
001350

001140
001
001
001

000004
000017
000002

NN
NN

001060

175777
001140

NN
oON

005037
032737
001031
023727
101425
005737

001012

sl et ) et T

NNOOONOON

$248:

325%:

#IAE .RMER1]

P
BEQ
ADD

$GDDAT ,$BDDAT
3308
#%,(SP)

su8
JSR

#2,(SP)
PC,(SP)+

MOV
MOV
BIC

CLR
BIT
BNE
cMP
BLOS
ST

BNE
ST
BNE
BIT
BEQ

050556

001340

—h

530s:

050554

000004
000020
000002

5008, #560.
3258

3258

MOVB

050552

001140

sREPORY ERROR
sRESTORE (SP)

#LBT,$GDDAT
RMDS]
, SBDDAT
#~CLBT,SBODAT

#17.3(SP)

#10, (sP)

sSET GOOD DATA FOR LBT = 0
:gg??LD LBT BE SET??
;WAS JAE SET ??

¢YES = LBT SHOULD NOT BE SET
sSET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT
s1S LBT CORRECT??

sYES!!

cERROR NUMBER
+MOVE SP TO RETURN FOR ERROR
-REPORT LBT IS WRONG
sRESTORE (SP)

*REPORT ERROR IF *'AOE'’ IS INCORRECT

001060

176777

$GDDAT

BNE

SUB

050550

001000
050552
000001
001352

(Mp
BLOS

NOP

001352

000010

(LR

BIT

000000

001140
002000

N
»

=1
\AMMMM\RW\SU‘MMM\AM
¥

50234

¢
PC,3(SP)

#16, (SP)

SEQ 0200

- REPORT ERROR IF '‘LBT'’ IS NOT CORRECT

001140
050550

000010

elel=lelclelalalalslelalalalelolelolalelclelelelet]

—'O‘ON\J&U‘ goooommmmmmmmmmbabb R Nkt) J\buwuuuguuw

si8

b
b b

SHraRONRa 80—‘00
WONO

O =OO0O00

d ek
b =D wmd cgd camd enad crd b oD b
D
) and wad
i = e el =
D e
)
) ol ed wd e wed e
il
D o

JSR

000010

#AQE
, SGDDAT

MOV

050554
001142

340%:

MOV

001142

000000

CLR
MOV

3408

5058
21,5108

RMER11, $SBDODAT

BIC
P
8EQ
ADD

#~CAOE
. $8DDAT
$GDDAT
. SBDDAT
3458
¥, (SP)

SUB

#2,(SP)

move
JSR

sUs

000010

3358
5108
3358
#F2,5158
3408

RMJCI

BEQ

3358:

001142

$GDDAT
#IAE ,RMER1]
3408
5008, #560.
3408
505%

001140

NOP

s il i

004736

SNNONIN AN NN =2 N\ =2 LN
~ SNINNS&N
W b N d wmd N
o OOV NN SNWSNN
NN

050064
050070

) and wnd e cad d ek e

d end d

115 050062

F 16

#20.a(sP)

PCoR(SP)+

#10. (sP)

:SET FOR AOE = 0
JWAS ''IAE'° DETECTED??
JYES="'AOE‘’' SHOULD BE ZERO
2SHOULD AOE BE SET??
JNO!H!

JMAYBE
JYES
JYES !!

::88|IHIS READ OR WRITE CHECK ??

Egeg’QQL DATA TRANSFERRED 2?
*SET FOR AOE = 1

$CLEAR EXPECTED TRACK
*EXPECT SECTOR = 1
*BAD DATA FOR TYPEOUT

s1S AOE CORRECTY??

sYES!!

sERROR NUMBER
¢MOVE SP TO RETURN FOR ERROR
cREPORT AQE IS WRONG
:RESTORE (SP)

-REPORT ERROR IF RMDA IS NOT CORRECT
545$:
sWAS THERE AN IAE ERROR 2?
BIT
#1AE ,RMER1]

002000

001252

050552
001140
050554
001344

001140

BNE
MCV

001140
001142

MOV

SWAB
MOVB

355$
5058, $GODAT

$GDDAT
5108.SGDDAT
RMDA]
, SBDDAT

sYES = DONT CHECK RMDA,RMDC
sSETUP EXPECTED DISK ADDRESS

:SETUP RECEIVED DISK ADDRESS

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 23-3
SECONDARY ERROR CHECK SUBROUTINE

001142

6
g

000004
000021
000002

000000

000010

N
N~
& -a

b U NN A

000004
000022

X
o~

[=] OO

OO NWNNNNN

050550
176000
001372
001140

N =

S
gOOOOO
ON)=d
IS =
DR

VWA N
nN— b
[«F3~N

001140

023737
00141 3
6

[«)wad () e b
[=] o
O o
NN

(=]
~

8
A

(=] QOOO0O0OOOO
vivd N VIAIVIWA VWA
[(=]=] =4

W=
O Yo~ WV

050404
050412
50414

0472
0474
0500

8800
oo~ ggbum..
00008

b wcd ik e d e b oo s e e

e b e d i md b amd D

172
173

062716
105776
001403
062716
000402
162716
000207

202 050550
203 050552
204 050554
205 050556
206 050560

000000
000000
000000
000000
000000

ONIN) =P crd b b e =

050522
050526
050532
050534
050540
050542
; 050546

000004

$GDDAT,$BDODAT
3508
¥6, (SP)

;COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

SUB
JSR

#2,(SP)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT BAD DISK ADDRESS

SUB

NOP

#2f.3(sp)

;ERROR NUMBER

#10, (SP)

*RESTORE (SP)

- REPORT ERROR IF RMDC 1S INCORRECT

$50s:

MOV

;SETUP EXPECTED CYLINDER

RMDCI,SBDDAT

;SETUP RECEIVED CYLINDER

#22.3(SP)

;ERROR NUMBER

PC.a(SP)+

*REPORT BAD CYLINDER

#4C1777.$GDDAT

cMP
BEQ
ADD

SGDDAT,SBDDAT
3558
¥4, (SP)

SUB

#2,(SP)

MovB
JSR

sUB

NOP

355s8:

5008, SGDODAT

BIC

MOV

000010

000004

SEQ 0201

CMP
BEQ
ARD

wove

000002

000004
000000

G 16

#10, (SP)

:COMPARE CYLINDERS
*BRANCH IF EQUAL

*MOVE SP TO RETURN FOR ERROR

*RESTORE (SP)

ADD
TSTB
BEQ
ago

46, (SP)
3(SP)
3608
§g§§5P>

:MOVE (SP) TO ERROR CALL
*WAS ERROR FOUND??

su8

¥4, (SP)

:MOVE (SP) TO NO ERROR RETURN

.WORD
JWORD
WORD

0
0
O

:CYLINDER
*TRACK
+SECTOR

JWORD

STOTAL # OF TRACKS = LAST TRACK +1

RTS

JWORD

;MOVE (SP) TO ERROR RETURN

*FUNCTION CODE

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 24
COMPOSITE ERROR CHECK SUBROUTINE

H 16

SEQ 0202

.SBTTL

:THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND

STHE MASKS ARE APPLIED.

sCALL:

A
5

COMPOSITE ERROR CHECK SUBROUTINE

*RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
*MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

9
10
1
1§
1
14
15

T
:
:
:
:
:
:

JSR
.WORD
-WORD
BR
NOP
ERROR
JSR

sNOTE:

BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD

%5 050562

CMPERRSTS :

013737

001352

26 050576
27 050602

062716
013737

000002
001400

047637

000000

001176

062716

000006

i? 050626

162716

000004

42 050656

105076

000000

001142

112776

000066

000000

162716
004736

46 050676
47 050700

000240

162716

000002

’t

001200

54 050706
55 050714
56 050720

013737
005037
062716

001200
001140
000004

57 050726

112776

000067

‘MASK RMER?

a($P)

#4,(SP)

RMER1

*MOVE SP TO NEXT MASK
-STORE RMER2 AT TEMP STORACE

;MOVE SP TO USER'S ERROR CALL

$CLEAR ERROR NUMBER

*LEAVE SP AT NO ERROR RETURN

MOVB

#66.3(SP)

*CORRECTABLE DATA CHECK ERROR #

SU8

#10, (5P

:MOVE SP BACK TO BRANCH

Sus
JSR

5$:

005737
001420

a(sp),$TmpP2

#2, (SP)
RMER2I,$TMP2

;SEE IF THERE WERE ANY ERRORS IN RMER1, I.E.. $TMP1
ST
STMP1
;ANY ERRORS TO REPORT??
BEQ
)
NO !!
)
MOV
$TMP1,8BDDAT
:RECEIVED STATUS FOR TYPEOQUT
CLR
$GDDAT
*EXPECTED STATUS FOR TYPEOUT
ADD
24, (SP)
*MOVE SP TO USER'S ERROR CALL

000010

50
51 050700
gg 050704

8IC

su8

001176
001140
000004

‘MASK

CLRB

001176

005037
062716

a(sP) ,$TMP1

;CLEAR USER'S ERROR CALL
ADD
#6, (SP)

005737
001420
013737

43 050664
4% 050670

45 050672

RETURN HERE IF NO MORE ERRORS

BIC

ADD
MOV

001200

31
32 050616

36
37 050632
38 050636
39 050640
40 050646
41 050652

PC,a(SP)+

sMASK AND STORE THE CONTENTS OF RMER1
AND RMER2
MoV
RMERTI,STMP1
:STORE RMER1 AT TEMP STORAGE

gg 050610 047637 000000 001200

33 050622

227

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER
RETURN HERE IF NO ERRGR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

*BE ZERO

23
2% 050562

25 050570

227

PC,CMPERRSTS

NOP

#2,(SP)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2)
ST
$TMP?
sANY ERRORS IN RMER2?
BEQ
108
*NO!!

001142

000000

Moy
CLR
ADD

MOVB

$TMP2,$8DDAT
$GDDAT
¥4 (SP)

#67,3(SP)

;RECEIVED STATUS FOR TYPEOUT
*EXPECTED STATUS FOR TYPEQUT
*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN USER'S CALL

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 24-1
COMPOSITE ERTMTM" CHECK SUBROUTINE

58 0507
59 050756

162716
004736

61 050744
gg 050746

000240

60 050740

SUB
JSR

162716 000010

65 050746
66 050752
67 050756
68 050760

062716
105776
001403
062716

70 050766
71 050772

162716
000207

69 050764

000002

000402

sU8

108:
000004
000000

00, (sp)

SEQ 0203

¢MIVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

000004
000004

NOP

#2,(SP)
PC.a(SP)+

116

208:
30s:

ADD
TST8
BEQ
ADD

¥, (SP)
a($P)
20$
#4, (SP)

:MOVE SP TO USER'; ERROR CALL
*WAS THERE AN ERROR CALLED??
*NO'!
*YES = MOVE SP TO ERROR RETURN

sus
RTS

#4,(SP)
PC

;MOVE SP TO NO ERROR RETURN
JRETURN TO USER

30§

CZRNDAO RMBO FCTNL FT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 25
DEVICE SELECT SUBROUTINE

J 16

SEQ 0204

.3BTTL

: THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

;CALL:

8
9

()
(3

}g 050774

DEVSEL:

DEVICE SELECT SUBROUTINE

: TEST QUEUE.

(1)

1(4)

1%
15 050774
16 051000

}g 051006

062716
105076
162716

013746
013746

051022

010146

22 051032
23 051040
5; 051044

012737
013700
013701

26
27 051050

111160

000010

051020

21 051026

010046

012737

000300
001276
001466

MOV
MOV

000006

016037

000010

001174

31 0,1070
32 051076
33 051100

032737
001407
062766

010000

001174

000004

000010

gg 051114

000422

37 051116
38 051124
39 051126

032737
001021
062766

23 051142

000407

40 051134

112776

4% 051144

022626

46 051154
47 051162

112776
162766

45 051146

062766

000111

051170
051172
051174

¥4, (SP)

000004

000010

;;PUSH ERRVEC ON STACK
-:PUSH ERRVEC+2 ON STACK

R1:=(SP)

*:PUSH R1 ON STACK

MOV

#208, ERRVEC

#PR6.ERRVEC+2
$BASE ,RO
TSTQUE,R?

000113
000002

000010
000010

*SETUP FOR BUS TIMEOUT
;RO = UNIBUS ADDRESS
*R1 POINTS TO DEVICE NUMBER

MOV

RMCST(RO),$TMP1 IGET "DVA' STATUS

BIT
BEQ
ADD

#NED,$TMPO
10$
#6,10(SP)

305

MOV

Move

108:

000010

; :PUSH RO ON" STACK

;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MOVB
‘R1),RMCS2(RO)
;WRITE UNIT SELECT BITS

RMCS2(R0) ,$TMPO :GET

#131.310(SP)

BIT
BNE
ADD

#DVA,STHP1
358
¥6,10(SP)

308

MOovB

#112.310(sP)

-HANDLE BUS TIMEOUT

000004

:MOVE SP TO USER'S ERROR
$CLEAR LOW ORDER BYTE OF CALL
‘MOVE SP BACK

ERRVEC,=(SP) ~
ERRVEC+2,=(SP)

RO,=(SP)

MOV
MOV
MOV

000010

001176

51 051170

001176

004000

000112

ERROR DEFINED BY SUBROUTINE

MOV
MOV

000004

016037 000000

3% 051106

RETURN IF NO ERROR
RETURN IF ERROR

;SAVE USER'S INFORMATION AND SETUP REGISTERS

28 051054
%3 051062

ERROR

sus

000004
000006

051144

PC.DEVSEL

:CLEAR USER'S ERROR CALL
ADD
44, (SP)
CLRB
a(SP)

000004
000000
000004

20 051010
051014

JSR

BR
NOP

508:

308:

CMP

ADD

Move
sus

'NED'*

STATUS

:1S DEVICE NOMEXISTENT ?
*NO!!
*MOVE SP TO USERS ERROR CALL

:WRITE ERROR NUMBER

;1S DEVICE AVAILABLE ?
*YES!!
‘MOVE 'SP TO USERS ERROR CALL

:WRITE ERROR NUMBER

(SP)+,(SP)+

:ADJUST SP

#113,310(SP)
#2,16(sP)

:WRITE BUS TIMEOUT ERROR NUMBER
*ADJUST RETURN TO *NOP' PRECEDING

#%,10(SP)

*MOVE SP TO USERS ERROR CALL

*THE ERROR CALL

-RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

558:
000006

MOV
MOV
MoV

(SP)+,R1
(SP)+.RO

(SP)+.ERRVEC+2

::POP STACK INTO R1
*:POP STACK INTO RO

::POP STACK INTO ERRVEC+2

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 25-1
DEVICE SELECT SUBROUTINE

051200

52 051204

012637

000207

000004

mMov
RTS

K 16

(SP)+ .ERRVEC

SEQ 0205

;;POP STACK INTO ERRVEC

SEXIT

L 16

HN -‘O‘O@NOMJ‘WN-‘OO@VOW&WN-‘

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:264:51 PAGE 26
SEEK STATUS CHECK SUBROUTINE
.SBTTL

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
:AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ‘'‘ERRORTM TRAP

N ANININININ)
b b ed cd ed ek b e wd

OF THE CALLING ROUTINE.

LCALL:

B8R

JSR

NOP
ERROR

272

SEEK STATUS 1S CHECKED AS FOLLOWS:

PC,SEKSTS

27%

RETURN HERE IF NO ERROR

PC.a(SP)+

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

RETURN HERE IF NO MORE ERRORS

SEKSTS:

000240
062716
105076
162716

—b wd

b el

VIVIVAVAVA WA

NN
NN NN
QOO NOONWNN
OMNIO SN
O

[=lelelelelelel)

N-ooogw

NOWVIHWNNL-200

WVIWVIWAVVAWIWAWNLS

JsR

;
;
;

032737
001424
032737
001020

SEEK STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS
:STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

005037

SEQ 0206

005037
013737
062716
112776
162716
004736
162716
000447

;CLEAR uasgs' ERROR CALL
000004
000000
000004
052464

#6, (SP)
a($P)

;MOVE (SP) TO ERROR CALL
SCLEAR ERROR NUMBER

CLR

3008

*CLEAR ERROR FLAGS

sus

000010

001352

000010

001400

001140
001352
000004
000050
000002

ADD
CLRB

#4, (SP)

*MOVE (SP) TO NO ERROR RETURN

sTEST FOR MASSBUS CONTROL BUS PARITY ERROR UHENOURITING
$LOCAL REGISTERS,
= 1 AND 'DPE’
Sé;
f;ARJRMER1]
-zss PARITY ERROR DETECTED??

BIT
BNE

ADPE ,RMER21
1$

*WAS'IT DUE TO CONTROL BUS??
*NOT SURE!!

;REPORT REG.STER PARITY ERROR VIA USER'S ERROR CALL
001142

CLR
MOV

$GDDAT
an£a11 $BDDAT

sP§

*MOVE STACK TO USER'S ERROR

SUB
JSR
sus

#2,(SP)
PC.a(SP)+
#10, (sP)

:MOVE SP TO RETURN FOR ERROR

ADD

MOVB

000000

000010

B8R

csb acsp)
3s

;EXPECTED STATUS
-RECEIVED STATUS

*ERROR #50

sRESTORE STACK

*IAE SHOULD BE ZERO

:DETERMINE THE VALUE OF ''IAE'* STATUS BASED ON TRACK, SECTOR, CYLINDER
:AND THE STATUS OF ‘‘SSEI'* BIT DURING A SEEK OPERATION. ALSO. SET '‘sKI’
“IF CYLINDER ADDRESS 1S TOO LARGE.

MOV
BIS
cMP
BHI
BIC

#IAE,SGDDAT
#SK1.300$
RMDCO, #560.
38
#5K1,3008

001335

CMPB
BHI

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?
3s
*YES - TRACK IS INVALID

000035

CMPB

RMDAO,#29.

002000
040000
001446

001140
052464
001060

040000

052464

001421
001420

is:

:SETUP FOR IAE = 1
*SETUP FOR SKI = 1
*GREATER THAN LAST CYLINDER ?
*YES = CYLINDER IS INVALID
*CLEAR SKI ERROR FLAG

;SECTOR > 29.

CZRNDAQ RMBO FCTN!. ©T1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 26-1

SEQ 0207

SEEK STATUS CHECK SUBROUTINE

101620

032737

NOANO~NON

58 051360
59 051362
60 051370
€1 051372
62 051400
65 051402
64 051410
65 051412
66 05142

010000

001444

001420

000036

001000

001444

001420

000037

3s:

001142

040000

052464

QOOO0O

Qo
[=]

)
= Y

S
N

001352
175777
001140

71 051426
72 051434

oo
oo

2s:

001140

062716
112776
162716
004736
162716
000240

:YES - SECTOR IS INVALID FOR 16 BIT MODE

CLR

$GDDAT

:"'IAE'* SHOULD = 0

RMDAD,#%1.
38

F ORMAT ?
ECTOR ;S INVALID FOR 18 BIT MODE

CLEAR ?

;SECTOR > 31. ?
JYES = SECTOR IS INVALID

: COMPARE EXPECTED AND RECIEVED ''IAE'' STATUS
MOV
RMER11,$BDDAT
:IS IAE 0K??
BIC
#CIAE
. SBDDAT
sSAVE IAE BIT FOR COMPARE
CMP
SGDDAT
. $BDDAT
sCORRECT '‘IAE'' STATUS ?

BNE
BIC

35$:
000004
000051
000902

2%
#FMT16,RMOF
O
33
RMDAO.#30.
2%
#SSE1,RMOFO
38

CMP8
BHI

68 051422

023737
001004
042737
000413

8LOS
BIT
BEQ
CMP8
BLOS
BIT
BEQ

B8R

358
#5K1,3008

:BR_IF NO
sCLEAR SKI FLAG
:GO CHECK NEXT ERROR

:REPORT INCORRECT ’1AE; STATUS VIA USER'S ERROR CALL
ADD

¥, (SP

SUB

#2,(SP)

SUB

0, (sp)

move

000000

JSR

000010
5$:

NOP

#51.3(sp)

¢ERROR 51

PC a(SP)+

sREPORT INCORRECT IAE

sMOVE SP TO RETURN FOR ERROR

sRESTORE (SP)

OSSNSO
OISO

013737
042737
013737
042737
001417

001400
137777
052464
137777

QOO0
[=lalela)

032737
001032
062716

0406u0

001142

000004
000267

000000

112776

010000
001140
001400
000004
000060
000100
000061
000002

IVC ERROR WITH VOLUME VALID ZERO
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
#IVC,RMER2]
s IVC ERROR??

001400

BEQ
CLR
MOV

001142

ADD
move

000000
001350

000000

51%:

BIT
BEQ
MOVB
SUS
JSR

SUB

000010
RN

LAl
Al ad
OC TN

(PO

NOP

wd e

OONONOSVY

WAL

032737
001427
005037
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

& %OO
N
PN o

b o

Liaavaviivvaaawniiiawg

e
el s D

jelojeleleBalololelelolelololelelele]

VIV,

e D

ViAW

jolelelel

VSN
—

W00

b e

b et

med o

b mms

;REPORT ANY IVC ERROR AS

52%:

MOV
BIC
MOV
BIC

8EQ

52
$GDDAT
RMER21 , SBDDAT

¥4, (SP)
#60.3(5P)

:NO!!
SEXPECTED STATUS
sRECEIVED STATUS
sMOVE SP TO USER'S ERROR
sERROR 60 IF Vv = 0

#10, (SP)

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sRESTORE SP

RMER21, $BDDAT
#~CSK1
. SBDDAT
3008, SGDDAT
#4CSKI,SGDDAT

sRECEIVED STATUS
sCLEAR DONT CARES
sGET EXPECTED SKI STATUS
sCLEAR DONT CARES

#VV.RMDS]
518
#61.a(SP)
#2,(SP)
PCIA(SP)+

538

;ERROR 61 IF Vv

sBRANCH IF 0 EXPECTED

sREPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)
8IT
#SK1,$BDDAT
:geg ?51 DETECTED ??
BNE
ADD

MOVB

548
¥, (SP)

#267,3(SP)

*MOVE
SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

O N

000443

NNNNIAGR
NO*J‘ONOJ‘&

b
b
wnd el cnd
—d ed e

032737
001413
062716
112776

word
ed s
) i
)
P
Dt
) i v
)
D
ot o wd el e ad D

53s:
040000
000004
000054
000002

032737
001420
005037
013737
062716
112776

000200

162716

004736

162716
000240

001140
001400
000004
000055
000002

0u1142

001140
001352
000004
000052
010000

000053
000002

#2,(SP)

;MOVE SP TO ERROR RETURN

sus
B8R

710, (sP)
6$

*MOVE SP TO NO ERROR
160 TO NEXT ERROR CHECK

ADD

#6. (SP)

SUB
JSR

#2,(SP)
PC a(SP)+

MOVB

000000

SUS

NOP

001400

#10, (sP)

*REPORT ERROR AND RETURN

;IS SKI SET 22

*NO - SKI IS OK
*MOVE (SP)

TO ERROR

*LCAD ERROR NUMBER

*MOVE SP TO RETURN FOR CRROR
:REPORT SEEK ERROR

*RESTORE (SP)

BIT
BEQ
CLR
MOV

#OVC,RMER2]
6S
$GDDAT
RMER21 ,$BDDAT

;WAS THERE DVC DURING SEEK??
sNO!!
SEXPECTED STATUS
:RECEIVED STATUS

Move
SUB

#55.3(sP)
#2, (SP)

:ERROR #55
:MOVE SP TO RETURN FOR ERROR

suB

#10, (SP)

*RESTORE SP

ADD

000000

JSR

NOP

¥4, (SP)

PC.a(SP)+

*REPORT ER20P VIA USER

sREPORT ANY 'OPI'' ERROR AS OP] WITH MOL = 0, OR
sBECAUSE ON CYLINDER LATCH DIDN'T RESET
6$:
8IT
#OP] ,RMER1]
;*OPI" ERROR??
8EQ
8$
*NO!!
CLR
MOV

001142
000000
001350
000000

#54.3(SP)

-REPORT ANY DEVICE CHECK

§4$:

001142

001352

PC (SP)+

sREPORT ERROR IF SKI IS SET
BIT
#SK1,$BDDAT
8EQ
548

000010

020000

sUB

JSR

000010

013746

OOO00O

000002

162716
000240

032737
001427
005037
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

NNOOO
~ OO0~

e wncd il e e

~N~N
NN
LS

QOOO0COOO0OOO

ViAW

j=lelelolalelale]

ViAo

162716

OO\
NV
DS BN 8 B8 B

D =D il el ad e

wmd

D et

S (NWNININ

am%\NN-‘OOO\IOMJ\WN—‘OflQVO\A&L‘EN-—‘OO@VOMKU‘
WA= OO 00 NN

D apd Bl =D D cd e wd d nd e

d o

W WNLANINI
NN PO NI NINININD b b b s =

162716
004736

NN~ OO0

SEQ 0208

¥4, (SP}

:MOVE (SP) TO ERROR

BIT
BEQ

#MOL ,RMDS 1
73

*WAS MEDIUM ON LINE??
SNOY!

MOVB
SUB
JSR

SuB

000010

*EXPECTED STATUS
:RECEIVED STATUS

ADD

MOVB

78:

$GDDAT
RMER1],$8DDAT

OPI

NOP

#52,3(5P)

#53,3(SP)
#2,(SP)

PC.a(SP)+

#10, (sP)

*LOAD ERROR NUMBER

SYES = CHANGE ERROK NUMBER
:MOVE SP.
TO RETURN FOR ERROR
*REPORT

"'OPI'’

*RESTORE (SP)

ERROR

:SEE IF "PIP'* = O, AND '‘ATA"', “MOL'* AND ‘WV'' = 1
MOV
RMDST
, = (SP)

8s:

001350
0647677
110100

BIC

CMP
BNE
JMP

000137

052434

032737
001030
032737
001054
013737

010000

7001350

020000

001352

001350

001140

#~C<ATAIPIPIMOLIVY>,
(SP)

#ATA'MOL'VV, (SP)+
9
;ERROR IN RMDS
148
‘RMDS 1S OK

:REPORT ERROR IF MOL = 0 AND OPI = 0
BIT
#MOL ,RMDS I
;1S MOL RESET??

bs:

BNE

BIT
BNE
MOV

108

40P1.RMER1]
108
RMDSI,$GDDAT

:NO - MOL IS SET

‘WAS OPI SET
*YES ~ DONT REPORT ERROR
:EXPECTED STATUS

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 26-3

SEQ 0209

SEEK STATUS CHECK SUBROUTINE

172 052132
173 052140
174 052146

052737
013737
062716

176 052160
177 052164

162716
004736

}gg 052172

162716

000240

000010

181
182 052174
183 052202

032737
001430

020000

001350

040000

001400

175 052152

178 352166

112776

184 052204

032737

187 052222

042737

185 052212
185 052214

188 052230
189 052236

190 052242

010000
001350
000004

000062

000002

001024
013737

001350

013737
062716

001350
000004

112776

004736

}3; 052262

000240

193 052256

196
197 052264
198 052272

199 052274

200 052302
201 052310
202 052316

203 052322

204 052330
ggg 052334

207 52336

000000

000056

000000

100000

001350

001140

112776

000057

000000

001140
001142

162716

000010

210
211 052344
212 052352

032737
001030

000100

001350

010000

001400

215 052364
216 052372

032737
001024

217 052400

013737
052737

013737

001350
000100

001350

001140
001140

219 052412

112776

000064

162716

000010

062716

220 052620
221 052424

162716
004736

223 052432
ggg 052434

000240

222 052426

226
227 052434
228 052436

000240

062716

000004

000002

#10. (SP)

#SK1,RMER2]

BIC

#PIP,$BDDAT

BNE
MOV
MOV
ADD

MOVE

SUB

118
RMDSI ,$GDDAT

SWAS

''SKI''SET?2?

$YES-DONT REPORT PIP
:EXPECTED STATUS

RMDSI,$BDDAT
46, (SP)

;RECEIVED STATUS
*MOVE (SP) TO ERROR

#2,(SP)

:MOVE SP TO RETURN FOR ERROR

#10, (sP)

;RESTORE (SP)

#56.3(SP)

PC.a(SP)+

:LOAD ERROR NUMBER
*REPORT

'PIP'*

SET AFTER SEEK

;REPORT AN ERROR IF "'ATA'* IS NOT SET
11$:
BIT
#ATA,RMDS1
sWAS ‘'ATA'* SET 22
BNE
13$
SYES!!
MOV
RMDSI ,$GDDAT
:EXPECTED STATUS

8IS
MOV
ADD

#ATA!MOL
! DPR!DRY, SGDDAT
RMDSI,$BDDAT
:RECEIVED STATUS
46, (SP)
*MOVE (SP) TO ERROR

SUB
JSR

#2,(SP)
PC.3(SP)+

MOVB
suB

NOP

#57.a(SP)
#10,(SP)

:LOAD ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR
;ggggagsg;reurxou NOT SET DURING

*RESTORE (SP)

;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO
13$:
BIT
#VV,RMDSI
JISW =0 22
BNE
148
*NO!!

BIT
BNE

MOV
BIS

001142

000000

#1VC,RMER2]
14$

ADD

RMDS!,$GDDAT
#VV,SGDDAT
RMDS],$BODAT
#4, (SP)

SUB
JSR

#2,(SP)
PC.3(SP)+

MOV

MOVB
Su8

148:

000004

#62.3(SP)

8IT

NOP

000240

218 052406

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

sUB

583 052342

213 052354
214 052362

#2,(SP)
PC.a(SP)+

JSR

032737
001024
013737

000002

SuB
JSR

;REPORT AN ERROR IF "PIP"’ IS STIL SET AND SKI NOT SET
i0$:
BIT
#PIP,RMDS]
;1S ‘PIP'
STILL SET??
BEQ
118
NOIY

001142

000010

162716
004736

;RECEIVED STATUS

MOVB

001140

001142

110600
001350
000004

#MOL
, $GDDAT
RMDSI,$8DDAT
¥4 (SP)

NOP

162716

052737
013737
062716

BIS
MOV
ADD

SUe

020000

191 052250 162716 000002
192 052254

001140
001142

NOP

#64.3(SP)

2I1S IvVC ALSO 0 22
:NO - IVC IS SET
:EXPECTED STATUS

;RECEIVED STATUS

;ERROR #64

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED
NOP
ADD
¥4, (SP)
sMOVE (SP) TO ERROR CALL

CZRNDAQ RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 26~4

SEQ@ 0210

SEEK STATUS CHECK SUBROUTINE

229 052442
230 052446
231 052450

105776
001403
062716

000000

234 052456
ggg 052462

162716
000207

000004

237 052464

000000

ggg 052454

000402

IST8
BEQ
ADD

@(SP)
158
#%, (SP)

::S§'ERROR CALLED??

15$:
16$:

sus
RTS

¥4, (SP)
PC

;MOVE (SP) TO NO ERROR RETURN

3008:

.WORD

;ERROR FLAGS

000004

16§

*MOVE TO ERROR RETURN
JRETURN

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 27

SEY 0211

CONTROLLER CLEAR SUBROUTINE

}

.SBTTL

3
g

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
;AND DRIVES, THEN SELECTS THE DRIVE.

:CALL:

7
8

:
:

9
10
11

:
:

12 052406

CNTCLR:

052666

010046

052472
052476

013746
013746

000004
C00006

15 052516
16 052522

013700
012760

001276
000040

18 052534

111160

000010

0526470

13 052502
14 052510

17 052530

010146

012737
012737

013701

052542
000300

001466

;8 052540

000412

21 052542
22 052544
23 052552

022626
062766
112776

000004
000007

052566

012637

000006

gg 825;22

052572

052576

052600

26 052602

162766

012637
012601

012600
000207

000002

000004

CONTROLLER CLEAR SUBROUTINE

JSR

B8R
NOP

::PUSH RO ON STACK

MoV
MOV

ERRVEC,=(SP)
ERRVE(+2,=(SP)

;sPUSH ERRVEC ON STACK
: sPUSH ERRVEC+Z ON STACK

MoV
MOV

MOV

000010

108:
208

SUB DEFINES ERROR NUMBER

RO,=-(SP)

Move

000010
000010

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND

MoV

MoV
MOV

000010

ERROR
7”7

MoV
000004
000006

PC,CNTCLR

R1,=(SP)

#10$,ERRVE(
#PR6 ,ERRVEC+2

sR0_= UNIBUS ADDRESS
:CLEAR MASSBUS

(R1) ,RMCS2(RO)

:SELECT DEVICE

TSTQUE R

208

cMP
ADD
Move

(SP)+,(SP) +
#4,10(SP)
#7,810(SP)

MOV

(SP)+,ERRVEC+2

MoV

(SP)+,R1

RTS

MoV
MOV

sSETUP FOR BUS TIMEOUT

$8ASE RO
#CLR,RMCS2(R0)

sus

:sPUSH R1 ON STACK

#2,10(SP)

(SP)+.ERRVEC

(SP)+.RO

:GET DEVICE UNDER TEST

sADJUST STACK
;MOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER

sADJUST SP TO RETURN TO ERROR

:POP STACK INTO ERRVEC+2

;sPOP STACK INTO ERRVEC

:;POP STACK INTO R1

:;POP STACK INTO RO

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 28

SEQ 0212

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

.SBTTL

:THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON

JUSED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

JSTATUS STORED IN THE GEY BUFFER.

THIS SUBROUTINE SHOULD ONLY BE

N BIT

:5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

;STATUS PERTINENT TO THE OEVICE IS NOT CHECKED.

:FOLLOWING STATUS BITS ARE NOT CHECKED:

13
14

sCALL:

15
16
17
18
19

(D
H
H
:
;

Sg 052604
26

25 052604
26 052610

27 052614

28
29 052620
30 052626

062716
105076

162716

36 0526646

162716

000002

112776

37 052670
38 052672
39 052676

004736
162716
000240

41 052700

005037

42 052704
43 052712
44 052714

45 052720

013737
001413
062716

112776

46 052726
47 052732

162716
004736

49 052740
50

000240

48 052734

000004

000126

001140
001342

000004

000127
000002

000010

51 052742

013737

001346

53 052752

005046

52 052750 010146

57 052766

PC,CLRSTS
222

PC.8(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

013701
111116
052716

012637

sSuB

001142
001142
001140
001142

001466
000100

001140

#6,(SP)
a(SP)

#4,(SP)

#DVA!RDY,$GDDAT ;EXPECT DVA & RDY
SGDDAT ,$BDDAT
;COMPARE EXPECTED, RECEIVED
S$
sBRANCH IF EQUAL

MOV8

#126,3(SP)

sSuB

JSR
Su8
NOP

#4,(SP)

#2,(SP)

PC,3(SP)+
M0, (SP)

:REPORT ERROR IF RMBA NOT RESET

§s:

000000

CLR

$GDDAT

sMOVE SP TO USER'S ERROR CALL

sWITE ERROR NUMBER IN CALL

JMOVE SP TO RETURN FOR ERROR

JREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

;VERIFY RMBA IS ZERO

MOV
BEQ
ADD

RMBA]
, $BDDAT
78
#6 (SP)

sBRANCH IF ZERO
sMOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC,a(SP)+

;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

MOVvB

sus

001142

+:MOVE SP BACK TO NO ERROR

MOV
cMP
8EQ
ADD

000000

001142

;MOVE SP TO ERROR
;CLEAR ERROR NUMBER

sREPORT ERROR IF RMCS1 NOT INITIALIZED
4S$:
MOV
RMCS11,$8BDDAT
;VERIFY RMCS?
BIC
#SC,$BDDAT
+ IGNORE SPECIAL CONDITION

000010

162716

56 052756
55 052760
56 052762

ADD
CLRB

000004

34 052652

JSR
BR
NOP
ERROR
JSR

;CLEAR USER'S ERROR CALL

000004
000000
001336
100000
004200
001140

35 052656

ATA,ERR,PIP ,MOL ,WRL ,LBT,PGM,VV,OM,UNS,SKI ,DVC

CLRSTS:

013737
042737
012737
023737
001413
062716

31 052634
32 052642
33 052650

IN PARTICULAR, THE

#127,a(SP)

#10, (SP)

sWITE ERROR NUMBER IN CALL

sMOVE SP BACK TO NO ERROR

NOP
:REPORT ERROR IF RMCS2 NOT INITIALIZED

7%:

MoV

Rncs%gfigaboAr

sVERIFY RM(CS?2

CLR

~(SP)

MOV
MOV
MOVB
BIS

MOV

R1,

TSTQUE,R1
(R1).(SP)
#IR, (SP)

(SP§+,$GDDAT

::PUSH R1 ON STACK

*R1 = ADDRESS OF TEST QUE

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-8Z 16:24:51 PAGE 28-1

SE@ 0213

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

58 052772
59 052774
60 053002
61 053004

62 053010

012601
023737
001413
062716

001140

001142

000004

112776 000130 000000

63 053016 162716 000002
64 053022 0046736
65 053026 162716 000010

66 053030
67

68 053032

69 053036
70 053044
71 053052

000240

005037

001140

013737
042737
001413

001352
040000

112776

000131

72 053056

062716

000004

7% 053066

162716

000002

73 053060

75 053072

004736

000240

76 053074

001142
001142

013737

001362

001142

81 053116

012737

000010

001140

82 053126
83 053132
84 053136

023757
001413
062716

86 053146
87 053152

162716
004736

89 053160
90
91 053162

000240

85 053140

88 053154

112776

001140
000004

000133

000002

162716

000010

92 053166
93 053174
9% 053176

005037
013737
001413
062716

001140
001404

97 053214

004736

99 053222
100
101 053226
102 053232

000240

105 053254
106 053256

001413
062716

95 053202
96 053210
98 053216

103 053240
104 053246
107 053262

112776
162716

000010

013737
042737

001376
140000

012737
023737
112776

162716
004736

111 053302
112

000240

113 053304
114 053310

000135
000002

162716

108 053270
109 053274

110 053276

000004

011777
001140
000004

000136

000002

162716

000010

005037
013737

001140
001400

SUB
JSR
sUB

#2, (5P)
PCIR(SP)+
#10, (5P)

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
‘MOVE SP BACK TO NO ERROR

#150.a(sP)

CLR

RMER11, $BDDAT
FUNS,SBDDAT
13s

Move

#1%1.a(sP)

ADD

sus

SUB

001142

*WITE ERROR NUMBER IN CALL

BIC

*BRANCH IF ZERO
*MOVE SP TO USER'S ERROR CALL

#2, (5P)

:MOVE SP TO RETURN FOR ERROR

PC a(SP)+

#10, (5P)

SWITE ERROR NUMBER IN CALL
*REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR

MICILSTLST, SBDDAT

D, SGDDAT

move

#1%53.a(sP)

)
JSR

SUB

: IGNORE WORD CLOCK, SCT, TRK

;EXPECT WRITE DATA BIT

$GDDAT,$BDDAT
178
#4,(SP)

- COMPARE EXPECTED AND RECEIVED
*BRANCH IF 0
SMOVE SP TO USER'S ERROR CALL

#2,(5P)
PC.3(SP)+

$MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#10, (sP)

*WITE ERROR NUMBER IN CALL
*MOVE SP BACK TO NO ERROR

NOP
:REPORT AN ERROR IF RMEC2 IS NOT RESET
17$:
CLR
$GDDAT
:EXPECT ZEROS

000000

MOV
BEQ
ADD

RMEC21,8BDDAT
198
26, (SP)

:VERIFY RMEC2
= 0

JSR

PC.(SP)+

*REPORT ERROR VIA USER

MOVB
sus
suB

001140
001142

; 1GNORE UNSAFE

#%, (SP)

MOV

P
BEQ
ADD

000000

001142
001142

;VERIFY RMER?

NOP
:REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC,LS,LST
13$:
MOV
RMWR11 SBODAT
:VERIFY RMMR

001142

$GDDAT

MOV
BIC
BEQ

JSR

77 053100
78
79 053102

000046

000000

000010

042737

98
#4, (SP)

;:POP STACK INTO R1
:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
*MOVE SP TO USER'S ERROR CALL

MOvB

(SP)+ R1
$GDDAT,SBDODAT

NOP
-REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS

162716

80 053110

MOV
MP
BEQ
ADD

:MOVE SP TO USER'S ERROR CALL

#135.3(5P)
#2,(5P)

*WITE ERROR NUMBER IN CALL
*MOVE SP T0 RETURN FOR ERROR

#10, (5P)

*MOVE SP BACK TO NO ERROR

NOP
:REPORT ERROR IF annnz NOT INITIALIZED-IGNORE RQA,ROB
19§:
MOV
RMMR2I,SBDDAT
;VERIFY RMMR2
BIC
#noA'nog $BDDAT

MoV
cMP

NTSTiI1777 . SGDDAT
$GDDAT, SBODAT

Move

#136.3(sP)

8EQ
ADD

000000

;)
JSR

SUB

;EXPECT TEST BIT ON

218
¥, (SP)

:MOVE SP TO USER'S ERROR CALL

#2,(5P)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#10, (5P)

*WITE ERROR NUMBER IN CALL
‘MOVE SP BACK TO NO ERROR

NOP
-REPORT ERROR IF aneaz NOT RESET~IGNORE SKI,DVC

001142

218:

CLR
MOV

$GDDAT
RMER21,$BDDAT

;EXPECT ALL ZEROS
:VERIFY RMER?

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 28-2

SEQ 0214

042737
001413
062716
112776
162716
004736
162716
000240

53354
53362
53370
53376
53404
53406
§3412
3420
p] 34264
5 3426
5 3432
53434
53440
53644
8 053446
053452
0 053454
053460
42 053462

013737
042737
012737
023737
001413
062716
112776

3316
3324
3326
3332

W
W
&~
(=4

elelelalelalele]

wvilnwawviunioa
o

CONTROL.ER CLEAR STATUS CHECK SUBROUTINE

3344
3346
3352

162716
004736

162716
000240
062716
105776
001403
062716
000402
162716
000240
000207

040200

001142

000004
000174

000000

000002

000010

001350
177177
000600
001140

001142
001142
001140
001142

000004
000134

000000

000002
000010

000004
000000

#SKI!DVC,$BDDAT ;IGNORE DEVICE ERRORS
8IC
8EQ
2158
sBRANCH IF OTHER BITS 0
46, (SP)
*MOVE SP TO USER'S ERROR CALL
ADD
276, a(sP)
:WITE ERROR NUMBER IN CALL
Mov8
#2,(SP)
*MOVE SP TO RETURN FOR ERROR
sus
PC,a(SP)+
*REPORT ERROR VIA USER
JSR
#10. (SP)
*MOVE SP BACK TO NO ERROR
suB
NOP
:REPORT ERROR IF RMDS NOT INITIALIZED
RMDSI,SBDDAT
;TEST DRIVE STATUS REGISTER
MOV
215$:
#~C<DRY !DPR>,$8DDAT
BIC
ADPR!DRY,SGDDAT :EXPECTED DRIVE STATUS
MOV
CMP
sggoAr.ssooAr
:COMPARE EXPECTED & RECEIVED
8EQ
2
*BRANCH IF EQUAL
#6,(SP)
:MOVE SP TO USER'S ERROR CALL
ADD
#134,3(sP)
*WRITE ERROR NUMBER
Movse
#2. (SP)
*MOVE SP TO RETURN FOR ERROR
su8
PC.a(SP)+
*REPORT ERROR TO USER
JSR
710, (sP)
*MOVE SP BACK TO NO ERROR
sus

22%:

000004
000004

23%:
24$:

NOP

ADD
IST8
BEQ
ADD
BR
sus
NOP
RTS

#4, (SP)
a(sp)

:MOVE SP TO ERROR CALL
*WAS AN ERROE DETECTED??

#4,(SP)

;MOVE SP TO NO ERROR RETURN

23
5zi(sp)

*NO!!
*YES = MOVE TO ERROR RETURN

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 29

PACK ACKNOWLEDGE

SEQ 0215

STATUS CHECK

}

.SBTTL

:THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE

*REPORTED TO THE USER VIA THE USER'S ERROR CALL.

*COMMAND USING THE STATUS STORED IN THE GET BUFFER.

7
8

;CALL:
(1)

B8R

ERROR

}g 053464

ACKSTS:

;

062716
105076
162716

000004
000000
000004

22
23 053500
2% 053506
25 053510
26 053516
27 053526
28 053532

032737
001024
013737
032737
013737
062716

000100

001350

001350
000100
001350
000004

001140
001140
001142

112776

000155

30 053544 162716 000002

31 053550

004736

33 053556
gg 053560

000240

32 053552

162716

000000

JSR

sUB

010000

001350

001140

41 053606
42 053612

013737
062716

001350
000004

001142

43 053616

44 053626

112776

004736

47 053636
23 053640

000240

46 053632
50
51 053640
gg 053646
54

55 053650
56 053656
57 053660

000041

162716 000002

45 053630

162716

Move

SUB
18:

010000

272

27%

PC.a(SP)+

NOP

040000

001352

001142

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

;MOVE SP TO ERROR CALL
*CLEAR LOW ORDER BYTE
*MOVE SP BACK
;1S VOLUME VALID SET??
SYES!!
:EXPECTED STATUS

;RECEIVED STATUS
*MOVE SP TO ERROR CALL

*WRITE NUMBER IN ERROR CALL

#2,(5P)

*MOVE SP TO RETURN FOR ERROR

710, (sP)

*MOVE SP BACK TO BRANCH

PC.a(SP)+

*REPORT THE ERROR

RMDSI,$BDDAT
¥ (SP)

:RECEIVED STATUS
*MOVE SP TO ERROR CALL

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

suB

032737
001424
013737

ERROR NUMBER DEF INED BY SUB

MOV
ADD

JSR

001352

RETURN HERE TO REPORT AN ERROR

;IS MOL SET??
SYES!!
:EXPECTED STATUS

su8

28:

RETURN HERE IF NO ERROR

#MOL ,RMDS
28
RMDSI,SGDDAT

move

000010

ERRORS ARE

BIT
BNE
MOV

8IS

000000

060007

#155.3(sP)

;REPORT AN ERROR IF 'MOL'' IS 0

001140

032737
001570

4, (SP)
a($P)
#4, (SP)

;REPORT AN ERROR IF 'WV'' IS 0
BIT
#VV,RMDS ]
BNE
1$
MOV
RMDSI ,$GODAT
BIS
AVV,$GDDAT
MOV
RMDSI,$BDDAT
ADD
¥4, (SP)

000010

032737
001024
013737

052737

JSR

ADD
CLRB
sUB

37 053560
38 053566
39 053570

40 053576

NOP

PC,ACKSTS

;CLEAR USER'S ERROR CALL

18 053464
19 053470
59 053474

29 053536

JSR

;

PACK ACKNOWLEDGE STATUS CHECK

NOP

#MOL
, $GDDAT
#4i.a(sp)

PC.R(SP)+

#b, (sP)

‘WRITE NUMBER OF ERROR IN CALL
*REPORT TH ERROR

*MOVE SP TO BRANCH

sSEE IF “UNS'',OPI'","RMR'"."ILR'’, OR ''ILF'’ IS SET
BIT
#UNS'OPI'RMR{ILR!
ILF ,RMER1I
8EQ
7$
;REPORT AN ERROR IF ‘UNS'' IS SET

BIT
BEQ
MOV

#UNS , RMER1]
38
RMER11,.$BDDAT

:WAS UNS SET??
*NO'!
:RECEIVED STATUS

CZRNDAQ RM80O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 29-1

PACK ACKNOWLEDGE

053666
053674
053702
053706

013737
042737

63 053720
64 053722
€5 053726

004736

58
59
60
61

62 053714

66 053730
67
68
69 053730
70 053736
71 053240
72
73
74
75
76

053746
053754
053762
053766
053774

77 054000
78 054002
79 054006

80 054010

83 054010
84 054016
85 054020
86 054026

94 054070

\hb&-&%NN—i
OONIONHONVNS

SRS

b
b wud
b

OO0

VAW
E X X X o)

RORIoIRIRGRAN2BE

wmd

)

b cnd

b cd wnh

b wnd wmh S

97 054070

—

STATUS

062716
112776
162716

001352
040000
000004
000042
000002

001140

032737
001424
013737

020000

001352

001352
001352
020000
000004

001142
001140
001140

3s:

000043
000002

sus

0, (sP)

NOP

48
RMER11,$BDDAT
RMER1] .$GDDAT
#0PI,S$GDDAT
#6 . ($P)

sus
JSR

#2,(SP)
PCoR(SP)+

SUB

4$:

001352

001352
001352
000004
000004
000044
000002

001142
001140
001140

032737
001424
013737
013737
042737
062716
112776

000002

001352

001142
001140
001140

032737

000001

001352

013737
013737

001352
001352

001142
001140

MOV
BIC

RMER11
. SGDDAT
#RMR, SGDDAT

MOVB

#4d,a(SP)

suB
JSR
SuB

NOP

JREPORT ANY

BIT
BEQ
MOV
MoV
BIC
ADD

move

000000

000010

#RMR,RMER1]

ADD

5$:

162716
000240

#10, (sP)

BIT

BEQ
MOV

000010

000002

NOP

#45.3(SP)

JREPORT ANY RMR ERROR

000000

162716

PCIR(SP)+

BEQ
MOV
MOV
BIC
ADD

MOVB

000010

000004

0014%4

su8

#2,(SP)

#42.3(SP)

JREPORT ANY OPI ERROR
BIT
#OPI,RMER1]

000000

032737
001424
013737
013737
062737
062716
112776
162716
004736
162716
000240

004736

RMER11, $GDDAT
SUNS
, $GDDAT
#6, (SP)

JSR

V00010

062716
112776
162716
004736
162716
000240

MOV
BIC
ADD

MOVB

000000

162716
000240

013737
062737

SEQ 0216

CHECK

)

JSR

sUB

6$:

NOP

JREPORT ANY
8IT
BEQ

MoV
Mov

5$
RMER11,$BDDAT

26, (SP)

#2.,(SP)
PC.a(SP)+
0, (sP)

ILR ERROR

#ILR,RMER1]
6$
RMER11,$8DDAT
RMER1I.$GDDAT
#ILR,$GDDAT
¥, (SP)

#45.3(5P)
#2., (SP)

PC A(SP)+

#10, (sP)

ILF _ERROR

#ILF ,RMER1]
7$

RMER11,$BDDAY
RMER11,$GDDAT

SEXPECTED STATUS
¢MOVE SP TO ERROR CALL

SWRITE NUMBER OF ERROR IN CALL

+MOVE SP TO RETURN FOR ERROR

sREPORT THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

;WAS OP1 SET ??
.Nol ]

*RECEIVED STATUS

*EXPECTED STATUS

sMOVE SP TO ERROR CALL

SWRITE NUMBER OF ERROR IN CALL

¢MOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

cWAS RMR SET??
“NO!
!

*RECEIVED STATUS

*EXPECTED STATUS

sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

ILR SET??
sWAS
*NO'!

SRECEIVED STATUS
SEXPECTED STATUS

sMOVE SP TO ERROR CALL
cWRITE NUMBER OF ERROR IN CALL
sMOVE SP_TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

cWAS ILF SET??
*NO*!

SRECEIVED STATUS

*EXPECTED STATUS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 2B-JAN-82 16:24:51 PAGE 29-2

PACK ACKNOWLEDGE

042737
062716
112776
162716
004736

121 054226

000240

}S% 054230
124
125 054230
126 054234
127 0564240

128 054242
129 054246
130 054250
131 0564254
132 054256

SEQ 0217

STATUS CHECK

115 056174
116 054202
117 054206
118 054214
119 054220

120 054222

000001
000004
000046
000002

001140

8IC
ADD
Movs
sus
JSR

000000

162716 000010

062716
10577¢
001403
062716
000402
162716
000240
000207

sus

78:
000004
000000

000006
000004

NOP

;AUGMENT RETURN
ADD
IS8
BEQ

8s:
9s:

ADD
BR
Su8
NOP
RTS

#1LF ,$GDDAT
#4, (SP)
#46,3(SP)
#2,(SP)
PC,a(SP)+

#b. (5P

sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

ADDRESS IF ERROR WAS FOUND
#4, (SP)
sMOVE SP TO ERROR CALL
a(SP)
:WAS ERROR FOUND??
8s
sNo!!

¥4, (SP)
9s
#4,(SP)
PC

:YES - MOVE TO ERROR RETURN
sMOVE SP TO NO ERROR RETURN

CZRNDAD RMBO FCTNL PT1 MACRO V04.00 28-JAN~82 16:24:51 PAGE 30

SEQ 0218

RECALIBRATE STATUS CHECK SUBROUTINE

.SBTTL

RECALIBRATE STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
;USING THE STATUS STORED IN THE GET BUFFER.
:CALL:
(1)
:

JSR
BR

PC.RCLSTS
27%

;

JSR

PC.3(SP)+

:
;
;

NOP
ERROR
227

:CALL SUBROUTINE

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SuB
GO _BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

RCLSTS:

21
22
23
24 054274
25 054302
26
27
28

29 054304
30 054312

3 054314
32 054322
33 054324
34 054332
35 054340
36 054346
37 054352

38 054360
39 054364

40 05366
41 054372
42 054374
43

AVAVAWA NG

NOWNEBWN-O

45 054374
46 054402
47 054404
48 054412
49 054420
054426

054432
054440
054444
054446
054452
054454

:CLEAR USER'S ERROR NUMBER

000004
000000
000004

032737
001553

022011

ADD

#6, (SP)

su8

#4,(SP)

CLtRB

001352

a(SP)

sCLEAR USER'S ERROR CALL

sMOVE SP BACK TO BRANCH

;SEE IF 'PAR' OR °'ILF''
OR ''OPI'' OR "'IAE'’
IS SET
BIT

BEQ

#OPI!PAR!ILF!JAE ,RMER1]
¢NONE ARE SET = GO TO NEXT CHECK
48

sREPORT ANY HASS%U? CONBROL BUS PARITY ERROR, I.E.,

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716

004736
162716
000240

032737
001424
013737
042737
013737
062716
112776
162716

004736

162716
000240

000010

001352

000010
001352
000010
001352
000004
000050
000002

S*PAR" = 1 AND
8IT

APAR,RMER11

;WAS 'PAR'’ SET??

001400

BEQ
8IT

1$
#DPE ,RMER2]

001140
001140
001142

MOV

ADD

#4 (spS :MOVE SP'TO USER'S ERROR CALL

JSR

PC.a(SP)+

BNE
18
MOV RMER11,SGDDAT
BIC
#PAR, $GDDAT

move
sUB

000000

sus

000010
1$:
000001

001352

001352
000001
001352
000004
000071
000002

001140
001140
001142

NOP

000000

;RECEIVED STATUS

#50.a(sP)
#2.(SP)

sWRITE ERROR NUMBER IN CALL

#10, (sP)

BIT
BEQ
MOV
8IC

#1LF ,RMER1]
23
RMER11,$GDDAT
AILF . $GDDAT

MOVB

071 L3(SP)

SUB

JSR

SUB

000010

2s$:

NOP

:WAS 'DPE'’ SET??
JYES = NOT A REGISTER ERROR
JEXPECTED STATUS

RMERT1, $BDDAT

;REPORT ANY "'ILF'* ERROR

MOV
ADD

JNO!!

:MOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR
:MOVE SP BACK TO BRANCH

was *ILF'* SET??

;EXPECTED STATUS

Rnenix $BDDAT
4, (SPS

sRECEIVED STATUS

#2,(SP)

:MOVE SP_TO RETURN FOR ERROR

PC.a(SP)+

#10, (SP)

:MOVE SP_TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL

:REPORT ERROR VIA USER

¢MOVE SP BACK TO BRANCH

L{RNDAQ RM80 FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 30-1

SEQ 0219

Rr CALIBRATE STATUS CHECK SUBROUTINE

:REPORT ANY 'OPI'' ERROR AS

60
61 054454

032737

020000

001352

€3 054464
64 054472

013737
062737

001352
020000

001140
001140

68 054520
69 054526
70 054530
71 054536

032737

001403
112776
162716

010000

001350

000073
000002

000000

73 054544

162716

000010

62 054462 001433

72 054542

004736

74 054550

000240

77
78 054552
79 054560

03¢737
001424

;2 054552

80 054562
81 054570

013737
042737

. 38:
.

001352

001352
002000

001140
001140

8% 054610

162716
004736

88 054630
gg 054632

000240

87 054604

91
92 054632
32 054640

000002

001400

6
Y
98

032737 010000 001400

00
o1

0014 ;
31 7

10
10%
105

13737
716
1 773

;
1

3
112776

!
b

el
ol

VY.

1140

0014

1142
4

100

888855

713 000010

03524

ISR

suB

NOP

3$
#73.3(SP)
#2,(SP)

SWAS 'MOL'’ = 022
LYES!!
*NO = CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

nb, (sP)

‘MOVE SP BACK TO BRANCH

PC.a(SP)+

*REPORT ERROR VIA USER

RMER1I,$GDDAT
#IAE ,$GDDAT

:EXPECTED STATUS

move

#70.3(sP)

‘WRITE ERROR NUMBER IN USER'S CALL

NOP

RMERI1, SBDDAT
24, (SPS

:RECEIVED STATUS
‘MOVE SP TO ERROR CALL

#2,(SP)
PC.a(SP)+

IMOVE SP TO RETURN FOR ERROR
*REPORT ERROR

#10, (5P)

*MOVE SP BACK TO NO ERROR RETURN

sSEE IF "'SKI'*
OR "'IVC'* OR ‘DVC'' IS SET
BIT
#SKITIVC!DVC,RMER2]
BEQ
8s
:NONE OF THE BITS ARE SET

:REPORT ANY "'IVC'* ERROR AS
:
JVE WITH WV = 0
:
-ERRONEOUS IVC ERROR

BIT

63
RMER2] ,$GDDAT

%y
ADD
move

RMERST, $BDDAT
24 (SP}
#74,3(sP)

8EQ
MOVB

58
#75,3(SP)

8IC

001

8IT

58:

#1vC,.RMER2]

8EQ
MOV

1140

000000

:EXPECTED STATUS

MOV
BIC

suB

48:
050200

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER IN USER'S CALL

AMOL , RMDS 1

8EQ
MOVB
suB

SUB
JSR

162716 000010

032737
001517

RMERTI,$BDDAT
#6, (SPS
#75,3(SP)

BIT

MOV
ADD

112776 000070 000000

85 054616
86 054622

*NO!!

RMER11,$GDDAT
#0P] , $GDDAT

;REPORT AN ERROR IF "'IAE" IS SET
BIT
#IAE ,RMER1]
;1S "IAE'* SET??
BEQ
48
*NO!!

82 054576 013737 001352 001142
83 054606 062716 000004

318

MOV
BIC

MOV
ADD
MOVB

31$:
002000

. OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET
8IT
#0P1 ,RMER1]
:WAS OPI SET??

B8EQ

65 054500 013737 001352 001142
66 054506 062716 000004
67 054512 112776 000072 000000

. OPI DUE TO ‘MOLTM = 0

#IVC, SEDDAT

#VV.RMDS1

;MAS IVC SET??

*NO1!
;EXPECTED STATUS

;RECEIVED STATUS
SMOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
TWAS WV = 072
SYES!!
*NO - CHANGE ERROR NUMBER

SUB

#2,(SP)

“MOVE SP TO RETURN FOR ERROR

SUB

#0, (sP)

*MOVE SP BACK TO BRANCH

JSR

PC a(SP)+

‘REPORT ERROR VIA USER

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 30-2

SEQ@ 0220

WVAWVMWIALILIVIVAWIA
N

COOO0O0O0OOOOOR

032737
001424
013737
042737
013737
062716
112776

040000

001400

001140
001140
001142

162716

000076
000002

162716

000010

004736

000240

U!Vl\llg\n\ll\h\li\h\h\-fl

rlelelolelelelo] (=l=lele]

b =d

NOSMNNOROSOONHONION

) =

PUNONIND
b b b e wnd e s end ek omd
b
b
D N NCANAN
S BN INND

032737
001030
032737

wviwaalbavaiwvauauiuaiuauiaaw
AV
il

NONON
NIN)
=2
O

013746
042716
022726
001002
000137

032737
001030
032737
001024
013737
052737
013737
062716
112776

VAL
VAN

oOO

I P E RN S

(=lelelolelelololelelalele]
o]

OOO0O0OO

A AV AR VAN SrHIRA ISR Ny NV IR

b b b e e md D b e e rd b
e e e
b b d e e

b e o o p b b cd b

OO\ \VIVWNMUAVAWNWIVAWVIVAIS DS BN IS B

d od ed ok e md

b b o o

000240

162216

004736
162716
000240

;REPORT ANY '‘SKI‘'' ERROR
BIT
BEQ
MOV
BIC

7$:

000200

001400

001400
000200
001400
000004
000077
000002

001140
001140
001142

#SK1,RMER2]
78
RMER2],$GDDAT
#SKI,$GDDAT

;WAS SKI SET??
‘NO!!
;EXPECTED STATUS

#76.3(SP)
#2,(SP)
PC.3(SP)+

*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MoV
ADD

RMERSI ,$BODAT
44, (SPS

sus

#10, (5P)

MOVB
SUB
JSR

000000

b b md

-1 et Nved Swvhebat SIS

e d o

) 0

—

NI fr e tug iy

RECALIBRATE STATUS CHECK SUBROUTINE

NOP

;REPORT ANY 'DVC'’ ERROR
BIT
#DVC.RMER2I
BEQ
8$
MOV
RMER2I ,$GDDAT
BIC
#DVC, $GDDAT

000000

*MOVE SP TO BRANCH

sWAS ‘DVC'* SET??
‘NO'!
:EXOECTED STATUS

MOV
ADD
MOVB

RMER1 $SBDDAT
#4, (SPS
#77.3(SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

agg

#10, (sP)

:MOVE SP TO USER'S BRANCH

SUB
JSR

000010

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

8s:

;SEE IF 'PIP'° AND ‘'OM'* ARE O, AND ‘'ATA'’,'MOL'' AND ''VV'* ARE 1
MOV
RMDS] ,=(SP)
:PUT RMDS ON STACK

001350
047676
110100

BIC

#2C<PIPIMOL!VV!OM!ATA>,
(SP)

BNE
JMP

858
13$

CMP

055532

85s:

010000

001350

020000

001352

001350
010000
001350
000004
000100
000002

001140
001140
001142

AATA!MOLIVV, (SP)+

SREPORT AN ERROR IF MOL = O AND OPI = 0, I.E., MEDIUM WENT OFF
sLINE AFTER RECALIBRATE WAS INITIATED
8IT
BNE
BIT

AMOL ,RMDS
9
#OPI,RMER1]

MOV

RMDSI $GDDAT

BNE

:EXPECTED STATUS

#MOL
, $GDDAT

ADD

#4_(SP) :MOVE SP TO USER'S ERROR CALL

JSR

PC R(SP)+

move
su8
zgg

000010

*YES = DON'T REPORT MOL = 0

8IS

MOV

000000

:DID MOL DROP??
*ND!!
*WAS OPI ERROR REPORTED??

RMDSI,$BDDAT

:RECEIVED STATUS

#100,3(sP)
#2,(§P)

;WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

#10, (SP)

:MOVE SP BACK TO USER'S BRANCH

*REPORT ERROR VIA USER

000100

001350

010000

001400

:REPORT AN ERROR IF 'VV'' = 0 AND “'IVC'’ = 0

BIT

BNE
BIT

AVV,RMDSI

108
#IVC,RMER2]

:DID

"'VV'’

DROP??

‘NO!!
‘WAS THERE A IVC ERROR??

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51

RECALIBRATE

STATUS CHECK

s nd D wnd oed o ——d ok

8
8
8
8
8
8
8
8
8
8

VNN

17
17

2646

001024

013737
013737
052737

001350
001350
000100

001140
001142
001140

2776
2 716

000101

000002

000000

5716

000010

wh VIV

1?7

jeleleleTe] [elelele]

VNN
NN 2O O 00 ~NOMN SN

172 055230
17
055232
17
5240

SUBROUTINE

MOV
MOV

8IS
ADD

move
SUB
JSR

SUB

:
108

055302

032737

100000

001350

055312
055320
055326
055334
055340
055346
055352
055356
95 055360

013737
052737
013737
062716
112776
162716
004736
162716
000240

001350
100000
001350
000004
000102
000002

001140
001140
001142

OO0

—d e wmd d ek cad vacd

b b d

BNE

NOP

PAGE 30-3

108

SEQ 0221

RMDSI,$GDDAT
RMDS]
. SBDDAT

;YES = DONT REPORT vv = 0
JEXPECTED STATUS
sRECEIVED STATUS

#101,a(sP)

sWRITE ERROR NUMBER IN CALL

#10, (SP)

sMOVE SP BACK TO USER'S BRANCH

#VV,SGDDAT
#6, (SP)

#2,(SP)
PC a(SP)+

sMOVE SP TO USER'S ERROR CALL
sMOVE SP TO RETURN FOR ERROR

sREPORT AN ERROR IF ATA IS NOT SET
BIT

#ATA,RMDSI

;WAS ATA SET DURING RECALIBRATE??

MOV

RMDSI,$GDDAT

:EXPECTED STATUS

BNE

BIS

MOV
ADD

move

000000

SUB
JSR

zgg

000010

118

#ATA,$GDDAT

RMDSI,$BDDAT
46, (SP)

#102,a(sP)

#2,(SP)
PC a(SP)+

#10, (SP)

SYES!!

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN CALL
;MOVE SP TO USER'S BRANCH

}97 055362

118:

199
200

;REPORT AN ERROR IF '‘OM'‘ IS NOT ZERO BECAUSE RECALIBRATE SHOULD
*ALWAYS CLEAR OFFSET MGDE

001350

001350
000001
001350
000004
000103
000002

001140
001140
001142

BIT
BEQ
MOV
BIC
MOV
ADD

#OM,RMDS
12
RMDSI ,$GDDAT
#OM, SGDDAT
RMDSI,$BODAT
¥, (SP)

JSR

PC.a(SP)+

move
SUB

000000

agg

000010

;WAS ‘OM'"’ RESET??
SYES!!
:EXPECTED STATUS

:RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#103.a(sp)
#2,(5P)

“WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

#10. (5P)

*MOVE SP TO USER'S BRANCH

*REPORT ERROR VIA USER

128:

020000

001350

040000

001400

001350
020000
001350

001140
001140
001142

o
P

000000

—

032737
001430
032737
001024
013737
042737
013737

000001

o
o
S

162716
000240

WRIR—

B8RSR

5442
5450
5452
5460
5462
470

032737
001424
013737
042737
013737
062716
112776
162716
004736

055434
855440

000000000000

AP P ALttt
v vt

S AN LS ARSI S SIS LSS LS LIV LN L ST N1 R S T N T, 8 T, ¥ )
AINIAININIRINIAIA)
b b i b D bk b 2 2 O

201 055362
202 055370
203 055372
204 055400
205 055406
206 055414
207 055620
208 055426
055432

162716

000002

162716

000010

;REPORT AN ERROR IF 'PIP'' IS STIL ON, I.E., DRIVE NOT ON
*CYLINDER
8IT
#P1P ,RMDS1
:ag‘qnlve OFF CYLINDER??
BEQ
138
8IT
BNE

*WAS *'SKI'* DETECTED??

MOV

ngI.RHERZI
138
RMDSI ,$GDDAT

*YES-DONT REPORT 'PIP'*

MOV

RMDSI,$BDDAT

;RECEIVED STATUS

#2,(SP)
PC.R(SP)+

*MOVE SP TO RETURN FOR ERROR

8IC

ADD
move
su8
JSR

332

#P1P, $GDDAT

-EXPECTED STATUS

#4,(SP) :MOVE SP'TO USER'S ERROR CALL
#104.3(sP)
;WRITE ERROR NUMBER
#10, (SP)

:MOVE SP BACK TO USER'S BRANCH

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 30-4

SEQ 0222

RECALIBRATE STATUS CHECK SUBROUTINE

229 045532

13s:

231
23§ 055532
5%4 055540

032737
001514

040006

001352

:SEE IF

235
236 055542
237 055550
238 055552
239 055560

032737
(01424
013737
(62737

000002

001352

001352
000002

001140
001140

243 055606
244 055612

162716
004736

246 055620
gzg 055622

000242

230

240 055566 013737 001352
2641 055576 062716 000004
262 055600 112776 000105
245 055614

249
250 055622
251 055630
252 055632
253 055640

254 055646
255 055656
256 055660
257 055666
258 055672

162716

032737
001424
013737
042737

013737
062716
112776
162716
004736

000002

001142

148:

001352
000304

001140
001140

001352
000004
000106
000002

001142

260 055700

000000

263
264 055702

15%:

265 055710
266 055712

032737
001430
032737

040000

001352

000200

001400

268 055722
269 055730

013737
042737

001352
040000

001140
001140

273 055756
274 055762

162716
004736

267 055720 001024

270 055736
271 055744
272 055750
275 055764

276 055770
5;; 055772
279
280 055772

013737
062716
112776

001352
000004
000107

162716

000010

000240

000002

281 055776
282 056002
283 056004

000004

285 056012

162716

000004

284 056010

000402

000004
000000

TM"

SuB

#10, (SP)

NOP

#2,(3P)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR

;MOVE SP TO USER'S BRANCH

MOV
ADD
move
SUB

RMERTI,SBDDAT
¥4, (SP)
#106,a(sP)
#2.,(SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN USER'S CALL
:MOVE SP TO RETURN FOR ERROR

suB

70, (sP)

*MOVE SP TO USER'S BRANCH

NOP

PC.a(SP)+

*REPORT ERROR VIA USER

;REPGRT AN ERROR IF 'UNS'' IS SET AND ‘DVC'* IS 0
8IT
#UNS . RMER1]
:WAS UNSAFE ON??

BEQ
BIT

16$
#DVC ,RMER2]

INO!!
*WAS THERE A DEVICE CHECK??

MOV
BIC

RMER1] ,$GDDAT
#UNS, SGDDAT

;EXPECTED STATUS

SUB
JSR

#2.(SP)
PC a(SP)+

BNE

001142

MOV
ADD
move

000000

SUB

168:

062716
105776
001403
062716

[}

RMERT] $BDDAT
;RECEIVED STATUS
#6,(SP5 ;MOVE SP'TO USER'S ERROR CALL
#105.a(sP)
:WRITE ERROR !AMRER IN CALL

JSR

000240

[N )

:REPORT AN ERROR IF ‘RMR'* IS SET
8IT
#RMR ,RMER1]
;WAS RMR SET??
BEQ
15§
*NO!!
MOV
RM:R11,$GDDAT
:EXPECTED STATUS
BIC
ARMR ,$GDDAT

259 055674 162716 000010
52} 055702

[}

MOV
ADD
move
SUB
JSR

100010

001352

[

"ILR' OR "RMR'' OR "'UNS'' IS SET
BIT
#ILR!RMR'UNS,RMER1]
BEQ
168

;REPORT AN ERROR IF "ILR'' IS SET
8IT
#ILR,RMER1]
:WAS ILR SET DURING RECALIBRATE
:?
BEQ
14$
*NOY!
MOV
RMER11,$GDDAT
;EXPECTED STATUS
BIC
#ILR, SGDDAT

000000

000005

[

NOP

163

*YES ~ DON'T REPORT UNSAFE

RMERTI, $BDDAT
¥4 (SP)
#107.a(sp)

;RECEIVED STATUS
SMOVE SP TO USER'S ERROR CALL
‘WRITC ERROR NUMBER

710, (5P)

*MOVE SP BACK TO USER'S BRANCH

SMOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#6,(SP)
:MOVE SP TO USER'S ERROR CALL

178:

ISTB
BEQ
ADD

3(SP)
17
¥4, (SP)

suB

#4,(SP) ;NO ERROR ~ RETURN SP TO BRANCH

*WAS AN ERRCR REPORTED??
SNO'!
SYES - AUGMENT SP RETURN

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 30-5

SEQ 0223

RECALIBRATE STATUS CHECK SUBROUTINE

286 056016
287 056020

000240
000207

18s:

NOP
RTS

sSTATUS CECK IS COMFLETE

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 31

SEQ 0224

056074
23 056102
24 056106
25 056110
26 056114

R FN

PR XY

.SBTTL

mr\)f\)—l_.;_h—l.a—a—l—h—l_a
=S OVONPWNSWN-OOVINO

VWA
—

ORIVE CLEAR STATUS CHECK SUBROUTINE

062716

105076

162716

013737
042737
012737
023737
001443
062716
112776
162716

004736
162716
000240

013737
062737
012737
023737
001413
062716

112776
162716
004736
162716
000240

40 056176

005037

2?2

RETURN HERE IF NO ERROR

ERROR
JSR

PC,a(SP)+

ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

NOP
m”

RETURN HERE TO REPORT AN ERROR
RETURN HERE 1F NO MORE ERRORS

;CLEAR USER'S ERROR CALL

ADD
#4,(SP)
sMOVE SP TO ERROR CALL
a(SP)
CLRB
sCLEAR ERROR CALL
sus
#4,(SP)
sMOVE SP TO USER'S BRANCH
2§EPORT ERROR IF RMCS1 NOT INITIALIZED
MOV
RMCS11,$BDDAT
:CHECK RMCS1

000004
000000
000004

001336
173700
004010
001140

—b wud oud aub

#10, (5P)

*WRITE NUMBER OF ERROR IN CALL

:MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

RMDSI,$BDDAT

;CHECK RMDS

BEQ
ADD

6$
#6, (SP)

sBRANCH IF EQUAL
*MOVE SP TO ERROR CALL

suB
JSR

#2,(SP)
PC.3(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

su8

APGM!OM'VVIPIP SBDDAT
:CLEAR DONT CARES
#MOL i DPR !DRY, SGDDAT
*EXPECT DRY € DPR
SGDDAT,$BDDAT
:COMPARE EXPECTED & RECEIVED

#142.3(SP)

#16, (5P)

SWRITE NUMBER OF ERROR IN CALL

*MOVE SP TO NO ERROR RETURN

;REPORT ERROR IF RMER1 NOT INITIALIZED

001142

6s:

CLR
MOV
BEQ
ADD

$GDDAT
RMER11,$8DDAT
8s
44, (SP)

SUB

#2,(SP)

move

000000

JSR

sUB

000010

geR=cee

#2, ($P)
PCIa(SP)+

MOV

BIC
MOV
P

MOVB

000010

001142

#141,a(sP)

;CLEAR DONT CARES

#DVA!DRVCLR,$GDDAT
SEXPECT DVA
$GDDAT,SBDDOAT ; COMPARE EXPECTED & RECEIVED
6$
*BRANCH IF EQUAL
#4, (SP)
*MOVE SP TO ERROR CALL

-REPORT ERROR IF RMDS NOT INITIALIZED

000004
000142
000002

001466
000001
177400

MovB

agg

001350
021101
010600
001140

001354

#°C<DVA'FNCMSK>,$BDDAT

)
JSR

000010

001140
001352

BIC

MOV
CME
BEQ
ADD

000004
000141
000002

000004
000143
000002

44
45 056224
46 056230
47 056232
23 056236

7 056270

B8R

DRVSTS:

28 056116
29 056124
30 056132
31 056140
32 056146
33 056150
34 056154
35 056162
36 056166
37 056170
38 056174

50 056240

DRIVE CLEAR STATUS CHECK SUBROUTINE

001142

#143,3(SP)
PC.a(SP)+

#10,(5p)

;EXPECT 0°'S
:CHECK RMER1
*BRANCH IF EQUAL
“MOVE SP TO ERROR CALL

SWRITE NUMBER GF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

*REPORT THE ERROR VIA USER

SMOVE SP TO NO ERROR RETURN

NOP
:REPORT ERROR IF ATA NOT INITIALIZED

8s:

MoV

RMAS], $BDDAT

MOV

TSfauE.R1

Mov
MoV

MOVB
BIC
COM
BIC

R1,-(SP)
R2,=(SP)

1(R1),R2
#~CATNMSK
,R2
R2
R2.,S$8DDAT

sCHECK ATTENTION BIT
:sPUSH R1 ON STACK
:sPUSH R2 ON STACK

CZRNDAO RMB80 FCTINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 31-1

DRIVE

SEQ 0225

CLEAR STATUS CHECK SUBROUTINE

58 056276
59 056276
60 056300
oi 056306
62 056306
63 056312
64 056320
65 056324
66 056326
67 056332
68

69 056334

70 056342
71 056350
72 056356
73 056364
74 056366
75 056372
76 056400
77 056404
78 056406
79 056412
80
81 056414
82 056422
83 056430

84 056436
85 056444
86 056446
87 056452
88 056460
89 056464
90 056466

012602
012601
005737
001413
062716
112776
162716
0047236
162716
000240

013737

001142

000004
000144
000002

001362

001142

000046
000010
001140

001142
001140
001142

000004
000145

000000

013737
042737
012737

001376
140000
011777

001
001
001

000004
000146
000002

000000

023737
001413
062716
112776
162716
004736
162716

000240
005037

94 056500
95 056506
9% 056510
97 056514
98 056522
99 056526
00 056530
056534

013737
001413
062716
112776
162716
004736
162716
000240

056336
056544
056546
056552
056560
056564
0565
056572

013737
001413
062716
112776
162716
004736
162716
000240

000002

sUB

#2,(SP)

532

#10,(sP)

000000

MP
BEQ
ADD

SGDDAT,$BDDAT
118
#6, (SP)

001400

001142

000004
000147
000002

000000

;CLEAR DONT CARES

;EXPECT WRITE DATA ON

MovB

#145.3(sP)

:WRITE NUMBER OF ERROR IN CALL

Sgg

70, (sP)

#2,(SP)
PC.a(SP)+

- COMPARE EXPECTED AND RECEIVED
*BRANCH IF ZERO
*MOVE SP TO ERROR CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

BIC

#ROARQB,$8DDAT :CLEAR REQA, REOB

P
BEQ
ADD

SGDDAT,$BDDAT
15$
o4, (SP)

;COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
*MOVE SP TO ERROR CALL

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

MOV

MOVB
suB

#TSTI1777,$GDDAT

#146.a(sP)
PC.a(SP)+

suB

#10, (SP)

$GDDAT

JREPORY ERROR IF RMEC2 NOT RESET

MOV

RMEC2I,$BDDAT

BEQ
ADD

17$
#6, (SP)

JSR

PC A(SP)+

MOVB

0550 a(sP)
#2,(§P)
[4

;EXPECT ZEROS
;CHECK RMEC?

*BRANCH IF 0
*MOVE SP TO ERROR CALL

SWRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

;CHECK RMEP2
SBRANCH IF WO ERRGR
*MOVE SP TO ERROR CALL

SUB

#2,(5P)

*MOVE SP TO RETURN FOR ERROR

#10, (5P)

‘MOVE SP TO NO ERROR RETURN

sU8
:
198

:MOVE SP TO NO ERROR RETURN

RMER2I ,$BDDAT
188
¥, (SP)

JSR

18%:

*REPORT THE ERROR VIA USER

MOV
8EQ
ADD

move

000010

SWRITE NUMBER OF ERROR IN CALL

*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

NOP
:REPORT ERROR IF RMER2 NOT RESET

i7s:

;EXPECT TEST BIT ON

0, (sP)

SUB

000010

*MOVE SP TO NO ERROR RETURN

:REPORT ERROR IF RMMR2 NOT INITIALIZED
118:
MOV
RMMR21,$BDDAT
;CHECK RMMR2

158:

000004
000150
000002

*BRANCH IF ATTENTION CLEARED
:MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR iN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

D, SGODAT

SUB
JSR

000010

001142

+1S ATTENTION CLEARED??

MIC!LSTLST, SEDDAT

JSR

001404

PC.a(SP)+

$:POP STACK INTO RI

BIC

MOV

001

001140

#1é4.a(sP)

::POP STACK INTO R2

:REPORT ERROR IF RMMR1 NOT INITIALIZED
MOV
RMMRTI SBDDAT
- CHECK RMMR

000010

001140

13
2%, (SP)

JSR

000010

(SP)+,R2
(SP)+ .R1
$BDDAT

BEQ
ADD

MOVB

000000

042737
012737
023737
001413
062716
112776
162716
004736
162716
000240

91 056472
g% 056474

TS o3RARGRER2

MOV
MOV
ST

#147,3(sP)
PC a(SP)+

SWRITE NUMBER OF ERROR IN CALL
*REPORT THE ERROR VIA USER

CZRNDAO RM80 FCTINL PT1 MACRO VO04.00 28-JAN=-82 16:24:51 PAGE 31-2

SEQ 0226

DRIVE CLEAR STATUS CHECK SUBROUTINE

115
116 056574

062716

117 056600
118 056604
119 056606

105776
001403
062716

121 056614
122 056620
123 056622

162716
000240
000207

120 056612

000402

000004

000000

;AUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
¥4, (SP)
;MOVE SP TO ERROR CALL

T7S718
BEQ
ADD

000004

218:
238:

SUB
NOP
RTS

a(SP)
218

46, (SP)

234

JWAS AN ERROR DETECTED??
*NO!!

SYES - MOVE SP TO ERROR RETURN

#%,(SP) ;MOVE SP BACK TO NO ERROR RETURN
PC

;RETURN TO USER

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 32

SEQ 0027

SEARCH STATUS CHECK SUBROUTINE
NN = OO 0 NON N IS WA~

.SBTTL

sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING

sSTATUS STORED IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE
sPUT BUFFER.
sTHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS
:DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN

PINININININY
=2 b o b b e b d —ed b

:THE USER'S 'ERROR'' TRAP.

:THE FOLLOWING CONDITIONS ARE CHECKED:

O N

. IAE'" STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED

NN - OO 00

BY THE PROGRAM, WHICH IS BASED ON FORMAT AND ADDRESS.

.'OPI', IF SET, IS REPORTED AS 1) ‘OPI'* DUE TO MOL
= 0, OR 2)

"OPI" DUE TO ON CYLINDER LATCH.

0
‘

W= OV

'
.

CALL
(1)

NS
VW

51 056652
52 056654

gz 056662
55

56 056664

57 056672

JSR

(%)
(5)
(6

ERROR
JSR
7

NoP

PC.SCHSTS

RETURN HERE IF NO ERROR

PC.a(SP)+

SUBROUTINE WILL LOAD ERROR #
GO BACK FOR MORE CHECKS
RETURN AFTER ALL ERRORS REPORTED

RETURN HERE TO REPORT ERROR

SCHSTS:

162716

50 056644

.AN ERROR IS REPORTED IF 'MOL'' = 0, OR 'PIP'" = 1, OR "ATA'' = 0,

(2)

45 056636
48
49

."DVC'" 1S REPORTED IF SET

062716 000004

2(7, 056640

.''SK1°'* IS REPORTED IF SET

;0R "WV'U= 0.

43 056624

4% 056630

L'IVC'', IF SET, IS REPORTED AS 1) ‘‘IVC'’' ERROR WITH VOLUME

;VALIND ZERO, OR 2) ERRONEOUS °'IVC'® ERROR WITH VOLUME VALID SET.

29 056624
42

-ANY ERROR WHICH OCCURRED WHILE READING OR _WRITING REMOTE

REGISTERS IS REPORTED, I.E., 'MCPE'' = 1 OR ‘PAR"' = 1

SEARCH STATUS CHECK SUBROUTINE

105076

000000

005037

060206

;CLEAR USER'S ERROR CALL

000004

001025

000010

:MOVE SP TO USER'S ERROR CALL

su8

#4,(SP)

*MOVE SP BACK TO NO ERROR BR

CLR

001400

013737 001352 001140
042737

#4, (SP)

CLRB

032737 000010 001352
001431
032737

ADD

001140

a(SP)
200s

*CLEAR ERROR NUMBER
*CLEAR STATUS FLAGS

:TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING REMOTE
*REGISTERS, 1.E.. ‘PAR"
= 1 AND 'DPE'" = 0.

BIf

#PAR,RMER1]

;WAS mm ERROR DETECTED??

BNE

108

*PROBABLY NOT!!

BEQ
BIT

10$
#DPE .RMER2]

INOY!
SWAS IT CONTROL BUS ERROR??

;REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL

MOV
H

RMER1],$GDDAT
#PAR,$GDDAT

;EXPECTED STATUS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 76:24:51 PAGE 32-1

5EQ 0228

SEARCH STATUS CHECK SUBROUTINE

58 056700
59 056706
60 056712

013737
062716
112776

62 056724
63 056726
64 056732
65 056734
29 056736

004736
162716
000240
000430

61 056720

162716

001352
000004
000050

000002

001142
000000

000010
108:

MOV
ADD
move
SU8
JSR
su8
NOP
BR

RMER1]1,$BDDAT

;RECEIVED STATUS

¥4 (SP)
#50.3(5P)

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL

70, (sP)

*RESTORE SP TO NO ERROR

#2,(SP)
PC.a(SP)+

158

:MOVE SP TG RETURN IF ERROR
*REPORT ERROR

:SKIP FURTHER ERROR CHECKS

sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE

70 056736
71 056744

032737
001426

020000

001336

76
75
76
77
78
79

013737
042737
013737
062716
112776
162716
004736
162716
000240
000137

001336
020000
001336
000004
000013
000002

001140
001140
001142

056746
056754
056762
056770
056774
057002

84 057022

;REGISTERS, 1.E., 'MCPE" = 1
8IT
BEQ

208

JWAS PARITY ERROR DETECTED??
sNO!!

sREPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL.
MOV
8IC
MoV
ADD
MovB

000000

000010

060160

#HCPE,RHC§1I.

158:

:
208

NOP
JMP

RMCS11,$GDDAT

;EXPECTED STATUS

RMCST1,$BDDAT

;RECEIVED STATUS

PCa(SP)+

*REPORT ERROR AND RETURN

MMCPE
, $GDDAT
¥4, (SPS
#5.3(5P)
#2., (SP)
#10, (sp)
1508

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN IF ERROR
*RESTORE SP TO NO ERROR
:OMIT STATUS CHECKING

;DETERMINE THE VALUE OF ’IAE’' STATUS BASED ON TRACK, SECTOR, CYLINDER
:AND THE STATUS OF *'SSEI'* DURING A SEARCH. ALSO SET "'SKI'’ FLAG IF
89 057022
90 057030
91 057036
92 057044
93 057046

012737
052737
023727

002000
040000
001446

001140
060206
001060

042737

040000

060206

95 057054
gg 057062

123737
101026

001421

001335

123727
101420
032737
001416
123727
101410
032737
001406
123727
101002

001420

000035

010000

001444

001420

000036

001000

001444

001420

000037

005037

L o

[aS 1N LN ]

Q- Qurd

#IAE . SGDDAT

;SETUP FOR IAE = 1

308
#SK1,2008

:YES = CYLINDER 1S INVALID
+'SKI'* SHOULD BE ZERO

BIS
cMP

#5K1.2008
RMDCO,#560 .

CMPB

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?

308

*YES - TRACK IS INVALID

CMPB
BLOS
BIT
BEQ
CMPB
BLOS
BIT
BEQ
CMPB
BHI

RMDAO,#29.
25%
#FMT16,RM0F0
308
RMDAO,#30.
25%
#SSEI ,RMOFO
308
RMDAO,#31.
308

:SECTOR > 29. ?
“NO!!
;18 BIT FORMAT ?
*YES - SECTOR IS INVALID FOR 18 BIT MODE
*SECTOR > 30. ?
*BR IF NO
*1S SSEI CLEAR ?
SYES - SECTOR IS INVALID FOR 16 BIT MODE
*SECTOR > 31. ?
*YES = SECTOR IS INVALID

CLR

$GDDAT

;"'IAE* SHOULD = 0

BHI
BIC
BHI

258:
b
b ad

104
112
114
122
124

00O
OO0

57074

[

b ek b b =

101035

:CYLINDE:OADDRESS IS TOO LARGE.

*SETUP FOR SKI = 1
:GREATER THAN LAST CYLINDER ?

< COMPARE EXPECTED AND RECIVED '‘IAE'* STATUS

$50s:

mov

BIC
cMP

RMER11,$8DDAT

#~CIAE ,SBDDAT
$GDDAT.SBDDAT

;GET RECEIVED IAE
;IS IAE CORRECT??

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32-2

SEQ 0229

SEARCH STATUS CHECK SUBROUTINE

164

001004

042737
000413

040000

060206
408:

057174
057200
057206
057212
057214
057220
7 057222

062716
112776
162716
004736
162716
000240

000004
000257
000002

0 057222
1 057230

032737
001531

050200

013737
042737
013737
042737
023737
001422
062716
112776
032737
001403
112776
162716
004736
162716
000240

001400
137777
060206
137777
001140

057232
S 057240
36 057246
37 057254
057262
057270
057272
057276
057304
057312
057314
057322
057326
057330
057334
057336

[o Yo Xo Yo SV, IV, TV 10 10 IV AV 0 IV IV

oy o

YTM

wm-aoomwow»wwdoomwombumaoog

’A

057336
057344
057346
057354
057362
057370
057374
057402
057410
057412
64 057420
65 057424
66 057426
67 057432
68 057434
69
70
71 057434

408
#5K1,2008
508

sNO!!
:SKI SHOULD 8E ZERO

JREPORT INCORRECT IAE STATUS VIA USER'S ERROR CALL

ADD

#6 ., (SP)

;MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2, (SP)
PC.a(SP)+

*MOVE SP TO RETURN IFf ERROR
*REPORT ERROR AND RETURN

move

000000

ggg

000010

#257,a(sP)

‘WRITE ERROR NUMBER IN CALL

#10, (sP)

*RETURN SP TO NO ERROR

508:

BNE
8IC
B8R

OR 'DVC'’' OR ''IvC’'' IS SET
sSEE IF 'SKI'*
8IT
#SKI!DVC!IVC,RMER2]
8EQ
90%
sNO!!

sARE ANY BITS SET??

IS SET AND °''SKI'* FLAG IS NOT SET
sREPORT ERROR JF ''SKI''
MOV
RMER2I,$BDDAT
;RECEIVED ‘'SKI'* STATUS

000004
000263
040000

000267
000002

55%:

BIC
MOV
8IC
cMp
CEQ
ADD

#*CSK1,$BDDAT
200$,$GDDAT
#*CSK2,$GDDAT
$GDDAT,$BDDAT
608
#4,(SP)

sMOVE SP TO USER'S ERROR CALL

JSR

PC,8(SP)+

cREPORT ERROR AND RETURN

MOV
BIT
BEQ
Movs
sye

zgg

000010

#263,3(SP)
#SK1,$GDDAT
558
#267,3(SP)
#2,(SP)

#10, (SP)

;EXPECTED ''SKI'* STATUS

cIS "'SKI'' 0k?2?
s YES-CHANGE ERROR NUMBER

sWRITE ERROR NUMBER
;SHOULD °'SK1'* BE SET??
:NO!!
s YES=CHANGE ERROR NUMBER
sMOVE SP_TO RETURN IF ERROR

¢RESTORE SP TO NO ERROR

:
608

;REPORT "IVC'* ERROR AS
032737
001433
013737
042737
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

010000

001400

001400
010000
001400
000004
000264
000100

001140
001140
001142

000265
000002

000000

032737

000200

.IVC DUE TO LOSS OF VOLUME VALID
.ERRONEOUS IVC WITH VOLUME VALID SET

#1VC . RMER2I
808
RMER21,$GDDAT
#1VC,SGODAT

;IS IVC SET??
INO!!
:EXPECTED STATUS

BITV

#VV,AMDSI

*WAS VOLUME VALID??

MOV
ADD
MOVR

000000
001350

BEQ .
708
:

000010
80$:

001400

8IT
BEQ
MOV
BIC

MOVB:

RMERSI ,$BDDAT
:4 (sP$
264, a(SP)

:RECEIVED STATUS
“MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL

708

‘NO1!
sYES = CHANGE ERROR NUMBER
sMOVE SP_TO RETURN IF ERROR
sREPORT ERROR AND RETURN
sRESTORE SP TO NO ERROR

#265,3(SP)

Su8

#2,(5P)

SUB

#18, (SP)

JSR

NOP

PC R(SP)+

sREPORT ANY DEVICE FAULT

BIT

I E., 'DVC'" =1

#DVC, RMER2]

;WAS THERE A DEVICE FAULT??

CZRNUAO RMBO FCYN'

PT1 MACRO Y04.00 28-JAN-82 16:24:51 PAGE 32-3

SEQ 0230

SEARCH STATUS CHECK SUBROUTINE

wn VILIAWV

l=l=1=] COO0O00O

57452
57460
57466
57472

032737
001433
013737
062737

013737
062716
112776

BEQ
MOV
BIC

90$
RMER21,$GDDAT
#DVC , SGDDAT

INO! !
:EXPECTED STATUS

MOVB
SuB
JSR

#266.a(SP)
#2,(SP)
PC,a(SP)+

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

MOV
ADD

000000

000010

SUB

90$:

020000

001352

001352
020000

001140
001140

010000

001350

000271
000002

000000

013746

001350

032737
001030
013737

010000

001350

001140

n
&%

013737
032737
001013
062716

001350
020000

001142
001352

057612

N &

vailawvaiuaug
NN
NN

000240

0462716
022726
001554

052737

112776

0
0 57710
0 57712
0 57716
0 57720

162716
004736

226 057720
227 057726
228 057730

032737
001430
032737

162716

000240

001352 001142
000004
000270 000000

000010

Vil

SIS IAST\N]NINININININININININININD 58]
NINONDPONIN) b b cd e b b cud o b od =1
SN
-L OOV
W=D O

000266
000002

001142

162716

207 057626
208

001400
000004

001140
001140

OONON
SN
(=1 Sl

032737
001403
112776
162716
004736

112776
162716
004736

001400
000200

NOP

RMERS] ,$BDDAT
%, (SPS

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#10, (sP)

*RESTORE SP TO NO ERROR

;REPORT ANY ''OPI'' ERROR AS
;
."OPI'* BECAUSE MEDIUM IS NOT ONLINE

204 057612
205 057616
206 057622

0
0
0
0
0
0
0
0

013737
062716

162716

b wmd e

NINININA) b cd wed b o e

oo14§4
013737
0462737

000240

D ced d e ed b e

d e e ad d o ad b ond

€0 05 0000 00 00 00~~~
~N N~~~
WNO BERIRRREN2ETR 00
Ng\h“WN
aoom:‘:o«mbu

172 057¢42
057444

1105

000004

000272

000002

MOV
ADD
MOVB

RMER1I, $BDDAT
#4_ (SPS
#270.3(SP)

;RECEIVED STATUS
SMOVE SP TO USER'S ERROR CALL
$SETUP ERROR FOR MOL = 0

sUB

#10, (SP)

*RESTORE SP TO NO ERROR

8IT
BEQ
MOVB
SuUB
JSR
NOP

#MOL . RMDS I
105$
#271.3(SP)
#2,(SP)
PC.a(SP)+

*WAS MOL 0??
SYES!!
‘MOL WAS 1 - CHANGE ERROR
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;SEE IF “ATATM = "MOL'' = W' = 1 AND "PIP"' = 0
MOV
RMDSI
, = (SP)
sGET DRIVE STATUS
BIC
HAC<ATAIPIP!MOL!VV>,
(SP)
cMP
AATA'MOL'VV,
(SP) +
:IS DRIVE STATUS CORRECT??
BEQ
1508
: YES

047677
110100

010000

1058:

“*'OPI'* BECAUSE ‘‘ON CYLINDER' DIDN'T DROP
BIT
#OP],RMER1]
;WAS OPI SET??
8EQ
1108
INO!!
MOV
RMER1I,$GDDAT
;EXPECTED STATUS
BIC
#0P] , $GDDAT

sREPORT AN ERROR IF MOL = O AND OPI ERROR WAS NOT REPORTED, I.E., OPI = 0
BIT
AMOL ,RMDS ]
;WAS MEDIUM OFF LINE??
BNE
MOV

001140

BIS

#MOL
, $GDDAT

MOVB

#2/2,3(SP)

MOV
BIT
8NE
ADD

000000

sUB
JSR

000010

su8

1208:

020000

001350

040000

001400

1208
RMDSI ,SGDDAT

NOP

RMDST, $BDDAT
#OP1 RMER1]
1208
#4. (SP)
#2,(SP)
PC a(SP)+

#10, (SP)

:REPORT AN ERROR IF PIP IS STIL
BIT
#P1P,RMDS]
BEQ
1308
8IT
#SKI.RMER2I

SEXPECTED STATUS
sRECEIVED STATUS
:WAS OP] REPORTED BEFORE??
;YES = DON'T REPORT MOL = 0
;MOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL
<MOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
;RESTORE SP TO NO ERROR

SET AND SKI IS RESET
:%S'?OSITIONING IN PROGRESS??
sNO!!

sWAS ''SKI'* DETECTED??

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32-4

SEQ 0231

SEARCH STATUS CHECK SUBROUTINE

229 057736
230 057740

0010%4
013737

021350

001140

BNE
MOV

232 057754

013737

001350

001142

MOV

23S 057774
236 060000

162716
004736

000002

238 060006

000240

231 057746

233 057762
234 057766

237 060002

gzg 060010

241
262 060010
263 060016
244 060020

042737 020000 001140
062716 (000004
112776 000273 000000
162716

1308 :

245 060026
246 060030
247 060036
248 060044
2649 060052

251 060064

162714

000002

162716

000010

112776

000100

001350

010000

001400

001350
000100
001350
00000%

001140
001140
001142

000350

0C4736

254 060076

000240

257
258 060100
259 060106
260 060110

032737
001024
013737

100000

001350

001140

262 060124

013737

001350

001142

253 060072

ggg 060100

261 060116 052737

F14]

062716
105776
001403

000004
000000

277 060200
5;3 060204

162716
000207

000004

280 060206

000000

275 060172 062716
276 060176 000402

*RESTORE SP TO NO ERROR

BNE
MOV
BIS
MOV
ADD

1408
RMDSI,$GDDAT
#VV,S$GDDAT
RMDSI,$BDDAT
¥4 (SP)

*YES = DON'T REPORT vV = 0
EXPECTED STATUS

SU8

#2,(SP)

*MOVE SP TO RETURN IF ERROR

#10, (SP)

*RESTORE SP TO NO ERROR

NOP

#350,3(SP)
PC.a(SP)+

BIS

#ATA, $GDDAT

ADD

%, (SP)

MOV

mova
SUB
JSR
sUB

1508

272 060160
273 060164
274 060170

JMOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL

:RECEIVED STATUS
*MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RETURN

;REPORT AN ERROR IF ATTENTION IS NOT SET
BIT
#ATA ,RMDS I
;1S ATA ON2?
BNE
1508
SYES!!
MOV
RMDSI,SGDDAT
:EXPECTED STATUS

265 060144 162716 000002
266 060150 004736
267 060152 162716 000010
000240

sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

#10, (5P)

SUB

264 060136 112776 000351 000000

268 060156
593 060160

n, (aP)
PC.a(SP)+

suB

NOP

MOVE

1408 :

263 060132 062716 000004

;RECEIVED STATUS

F 1A (SP)
#273,a(sP)

JSR

100000 001140

RMDS,$BDDAT

#PIP, $GDDAT

;REPORT AN ERROR IF VOLUME IS NOT VALID AND IVC = 0
BIT
AVV ,RMDS]
;1S VOLUME VALID??
BNE
1408
SYES!!
8IT
#1VS . RMER2]
:WAS 1VC DETECTED??

000000

252 060070

sYES=DONT REPORT PIP
:EXPECTED STATUS

ADD
MOVB
su8
JSR

(00010

032737
001030
032737
001024
013737
052737
013737
062716

250 060056

BIC

1308
RMDSI,$GDDAT

NOP

anosx $8DDAT

:RECEIVED STATUS

2, ($P)
PC ‘A(SP)+
10, (SP)

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

0351 a(sP)

:MOVE SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER IN CALL

;ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED

000004
1608:
1708:

2008:

ADD
ISTB
BEQ

#6, (SP)
a(SP)
1608

SUB
RTS

#6,(SP)
PC

ADD
B8R

.WORD

#4, (SP)
170s

;MOVE SP TO USER'S ERROR CALL
-uAs (ERROR FOUND??

vss = CHANGE RETURN
:NO ERROR FOUND
sRETURN TO USER

sSTORAGE FOR FLAGS

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28-JAN-82 16:24:51 PAGE 33

SEQ 0232

STATIC DRIVE STATUS CHECK SUBROUTINE
AN =2 OO 00 NOMA S NN = OO 00 ~ONN S NN =

.SBTTL

STATIC DRIVE STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE
THE SUBROUTINE
sSTATUS, SUCH AS THE DRIVE LOSING VOLUME VALID,
sCAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
:SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

b b ced e crd e wnd ard ad b

sTHE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS
:IF TRUE:

®e

e %e N

THAT no:. xs 7\
1303
-SK1
-DVC

INDICATES DRIVE WENT OFFLINE, NOTE

UMED TO HAVE BEEN SET

INDICATES THE DRIVE LOST VOLUME VALID

f. INDICATES THAT THE DRIVE IS OFF CYLINDER

. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
. INDICATES AN UNEXPECTED DEVICE FAULT

sTHE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

PNIPINI N

34 060224
35 060230
36 060234
37 060240
38
39
40 060242
41 060250

062716
105076
162716

000004
000000
000004

013746

001350
147677
010100

p—ry

ANINNINNN

—

-t

PC.a(SP)+

sCLEAR USER'S ERROR CALL
ADD
CLRB

sus

3(SP)

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SuB
GO _BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

#, SP)

sMOVE SP TO USER'S ERROR CALL
sCLEAR ERROR NUMBER

RMDS ] -(éps

MMOL'VV, (SP)+

BEQ

020000

001352

8?1350

001140
001140
001142

:MOVE SP BACK TO NO ERROR RETURN

AND 'PIP'* = 0

MOV
BIC

001350

000004
000207
000002

#4,(SP)

;SEE IF MOL'* = ‘W' =

010000

737 001250

Z22

PC,STCDRVSTS
”?

STCDRVSTS:

g-ofl_.
[P
ONOAONNN

24
25
26
27 060210
28
29
30 060210
31 060214
gg 060220

JSR

B8R
NOP
ERROR
JSR
272

:PUT DRIVE STATUS ON STACK

aaC<PipimoL
V>, (SP)
30s

;ARE MOL,VV AND PIP 0.K.??

:YES..

;REPORT AN ERROR IF MOL = 0 AND ‘OPI'' = 0

8IT
BNE
8IT
BNE
MOV
BIS

000000

108
msx $GODAT

;IS MOL ON 72
DYES!I .
SWAS ‘OPI'* SET??
.
*YES=DONT REPORT 'MOL'’ = 0
:EXPECTED STATUS

P( a«sm

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

ogpx.ansnu

L,$GODAT

MOV
ADD
MOVB

msi(sP)$BODAT
0567
a(sP)

#10, (5P)

SUB
JSR

000010

#MOL ,RMDS I
108

;RECEIVED
STATUS
SMOVE SP TO USER'S ERROR CALL
SWRITE ERROR NUMBER IN CALL
*MOVE SP BACK TO NO ERROR RETURN

108:

032737
001930

000100

001350

sREPORT AN ERROR IF VOLUME VALID Ig Nefl ZERgAND “'IVC'* = 0
8lr
BNE

#VV,RMDSI

208

CZRNDAO RMB0O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 33-1

ISTATIC

ORIVE

58 060342
59 060350
60 060352
61 060360
62 060366
63 060374
64 060400
65 060406
66 060412
67 060414
68 060420
69 060422

72 060422
73 060430
74 060432
75 060440
76 060442
77 060450
78 060456
79 060464

80 060470
81 060476
82 060502
83 060504
84 060510
85 060512

001140
001350
001142

MOV
BIS
MOV

00C000

move

RMDS
1, $GDDAT
cEXPECTED STATUS
#VV,RMDS|
RMDS
I, $BDDAT
sRECEIVED STATUS
#4,(SP) :MOVE SP TO USER'S ERROR CALL
#210,a(sP)
sWRITE ERROR NUMBER IN CALL

JSR

PC.a(SP)+

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716

000240

020000

001350

040000

001400

001550

001140
001140
001142

000002

&SN

004736

MOV
ADD

RMDS
I, SBODAT
4, (SP)

move
SU8
JSR

30$:

NOP

#PIP, $GDDAT

40$:

040000

001400

001140
001140
001142

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

cWRITE ERROR NUMBER IN USER'S CALL

710, (SP)

sMOVE SP TO NO ERROR RETURN

#2,(SP)
PC A(SP)+

sMOVE SP _TO RETURN FOR ERROR
sREPORT ERROR VIA USER

:PUT ERROR REG 2 ON STA(K

BEQ

608

sBRANCH IF NO ERROR

BIT
BEQ
MOV
BIC

MOV
ADD
move
SUB

:
508

000000

;EXPECTED STATUS

RMER21,=(SP)

JSR

032737
001424
013737
042737
013737
062716
112776

SWAS *'SKI'* SET??

:YES-DONT REPORT 'PIP"' = 1

A~C<SKE 1DV, (SPS 9

JREPORT AN ERROR IF THERE IS A DEVICE FAULT

000000

000010

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

MoV

BIC

162716
000240

JWAS IVC' SET??

;YES=DONT REPORT '‘VV'' = 0

#211.a(sp)

= 'DVC'' = 0
JSEE IF "SKI"

137577

000213

#10, (sP)

308
#SK1,RMER2]
308
RMDSI , $GDDAT

SUB

001140
001140
001142

162716

#2,(SP)

BEQ
BIT
BNE
MOV

BIC

000010

001400
000200
001400
000004
000212
000002

013737
042737
013737
062716
112776

NOP

#1VC
. RMER2]
208

sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ''SKI'* = 0
8IT
#PIP ,RMDS ]
;1S DRIVE OFF CYLINDER??

000000

€01400

b v

SU8

208:

000200

060604
060612
60614
060622
060630
060636
060642

ADD

SUB

032737
001424

95 060532
96 060534
97 060542
98 060550
060556
060562
060570
060574
060576
060602
060604

BIT
BNE

000010

94 060524

RISIRIRIRER2SE

b md ok —d
e ek
b

001350
000100
001350
000004
000210
000002

001400

@
s
d
h

001400

013746
042726
001460

—

013737
062716
112776
162716
004

010000

88 060512
89 060516
90 060522
91 060524

s bk = (DD

109

SEQ 0233

STATUS CHECK SUBROUTINE

SUB
NOP

#DVC ,RMER2]
508
RMER21
, $GDDAT

#DVC , SGDDAT

RMERZT , SBDDAT
#6, (SPS
#2i2.atse)
#2,(SP)

PC.a(SP)+

#10,

(SP)

JREPORT AN ERROR IF "'SKI'* = 1
8IT
#SK1,RKER2]
BEQ
608
MOV
BIC

MOV
ADD
move

RMER21 ,$GDDAT
#SK1 $GDDAT

RMERZ2] ,$BDDAT
44 (SP)
#213.a(sp)

:agy.oevxce FAULT??

SEXPECTED STATUS
sRECEIVED STATUS

sMOVE SP TO USER'S CALL
sWRITE NUMBER OF ERROR IN CALL
:MOVE SP _TO RETURN FOR ERROR
+REPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

:fig.guens A SEEK INCOMPLETE ERROR

‘EXPECTED STATUS
sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

sWRITE ERROR NUMBER IN USER'S ERROR CALL

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28~JAN=-82 16:24:51 PAGE 33-2

SEQ 0234

STATIC DRIVE STATUS CHECK SUBROUTINE

115 060650
116 060654

162716
004736

118 060662

000240

117 060656

};g 060664
121
122 060664

162716

124 060674
125 060676

062716
105776
001403
062716

127 060704
128 060710
129 060712

162716
000240
000207

123 060670

126 060702

000402

000002

suB
JSR

000010

su8

608 :
000004
000000

nb, (sp)

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
¥4, (SP)
;MOVE SP TO USER'S ERROR CALL

IST8

a(SP)

B8R

80§

BEQ
ADD

000004
000004

NCP

#2,(SP)
PC.a(SP)+

708:
808:

SuB
NOP
RTS

70$
46, (SP)

:WAS AN ERROR DETECTED??

*NOT!
*YES - MOVE SP TO USER'S ERROR RETURN

#4,(SP)

;NO = MOVE SP TO NO ERROR RETURN

:RETURN TO USER

CZRNDAO RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 34
SAVE AND RESTCRE RO-R5 ROUTINES

.SBTTL

SEQ 0235

SAVE AND RESTORE RO-R5 ROUTINES

SARRANRA
AR ARRANARRR N A E AN CN R RN RARRRARARNA
N AN RERRNRARRIAREAORARNNRS

'S\VE RO=-R5

SeCALL:

SAVREG

'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

i eTOP===(+16)

;v 42===(+18)
:* +4==<R5

;% +6-==Ré

;% +8=--=R3

;*+10===R2

sx+12=-=-=R1

;%+14=-=-=R0

060714
060714
060716
060720

$SAVREG:

060722
060724
060726
060730
060734
060740
060744
060750

000022
000022
000022
000022

MOV
MoV
MOV
MOV
MOV
MOV

RO,~(SP)
R1,-(SP)

RZ.'(SP)
R3,-(SP)

MOV
MCV
MoV
MOV
RTI

;:PUSH RO ON STACK
;sPUSH R1 ON STACK
:sPUSH R2 ON STACK
s ;PUSH R3 ON STACK
+sPUSH R4 ON STACK
:sPUSH R5 ON STACK
s:SAVE PS OF MAIN FLOW
ssSAVE PC OF MAIN FLOW
:sSAVE PS OF CALL
:sSAVE PC OF CALL

:*RESTORE RO-RS

s=CALL:
34
RESREG

060752
060752
060756
060762
060766
060772

000022
000022
000022
000022

000002

$RESREG:

MoV
MOV
MoV
MoV
MoV
MOV
MoV
MOV
MOV
MOV

;sRESTORE
J:RESTORE
J2RESTORE
s sRESTORE

PC
PS
PC
PS

OF
OF
OF
OF

CALL
CALL
MAIN FLOW
MAIN FLOW

2:POP STACK INTO RS

(SP)+.R1

(SP)+,RO

;:POP STACK
::POP STACK
;:POP STACK
;sPOP STACK

INTO R4
INTO R3
INTO RZ
INTO R1

::POP STACK INTO RO

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 35

SEQ@ 0236

BINARY TO ASCII AND TYPE ROUTINE

.SBTTL

BINARY TO ASCII AND TYPE ROUTINE

JINRRANRAARANAAARAANRNCCC
TN RARRRAANNANRARANRAAACARAANRAANARONACORS

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-8BIT
;*BINARY=-ASCII NUMBER AND TYPE IT.

s*CALL:

NUMBER,~-(SP)

s sNUMBER TO BE TYPED

$TYPBN: MoV
MoV

R1,=(SP)
6(SP) .R1

::SAVE_R1 ON THE STACK

18:

#'0,$BIN

061010
061012
061016
061020
061026
061030
061032
061036
061042
061044
061046
061050
061056
061060
061062

010146
016601

000261

112737
006101
001406
105537
104401
000241
000765
012601
016666
012616
000002
000

000006
000060

061062

000

;TYPE IT

::GET THE INPUT NUMBER
::SET "'C"* SO CAN KEEP TRACK OF THE NUMBER OF BITS
::SET CHARACTER TO AN ASCII "0’
:3GET THIS BIT
: $DONE?
:iNO-<SET THE CHARACTER EQUAL TO THIS BIT

061062
061062

000002

MOV
TYPBN

000004

::60 TYPE THIS BIT
:2CLEAR "'C'' SO CAN KEEP TRACK OF BITS
::60 DO THE NEXT BIT

2s:

::POP THE_STACK INTO R1

$BIN:

s sRETURN TO USER
s STORAGE FOR ASCII CHAR. AND TERMINATOR

:ADJUST THE STACK

CZRNDAQ - %80 FCINL PT1 MACRO V04.00 28-JAN-62 16:24:51 PAGE 36

CONVERT

SEQ 0237

NARY TO DECIMAL AND TYPE ROUTINE

.SBTTL
AN

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
AP RN

AR AN AR AN

NP R

R R R AN AR E AN AR

NN R E RN ARA

AN AN

ARANAN

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST PIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:*REPLACED WITH SPACES.

;*CALL:

o®
B

061064
061064
061066

061070
061072
061076

010246
010346
010546

061102
061106
061110
061112
061120
061122

016605
100004
005405
112766
005000
012703

061132
061134
061140
061142
061144
061146
061150
061152
061154

005002
016001
160105
002402
005202
000774
060105
005702
001002

061160

100407

061076

061126

061156
061162
061164
061166

061174

061200
061204

061206

061210
061214
061216
061220
061222
061224
061226
061230
061236
061240
061242
061244
061246

$TYPDS:

010046
010146

012746

112723

020200
100001

061300

000040

18:
28:

061270

3s:

4$:

105716
10636
103003
116663

052702

052702
110223

005720

020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601

NUM,-(SP)

;:PUT THE BINARY NUMBER ON THE STACK
2260 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)

:sPUSH RO ON STACK
:sPUSH R1 ON STACK

MOV
BPL
NEG
MovB
CLR
MOV

026200.-(SP)
20(SP) RS
1$
RS
#'-,1(SP)
RO
#SDBLK R3

23SET BLANK SWITCH AND SIGN

MOV

000020

000055

MoV
TYPDS

MOVB

CLR
MOV
SuB
BLT
INC
BR
ADD
TST
BNE

T1STB

5%:
000001

000060

177777

000040

6%:
7%:

ASLB
BCC
MOVB

BIS

BIS
MOVB

TST

000010

8s:
177777

8MI

177776

9s:

CMP
BLY
86T
MOV
B8R
7ST8
8PL
MOVB
CLRB
MOV
MoV
MOV
MOV

R2,-(SP)
R3,~(SP)
RS,=(SP)

' ) .(R3)+

;:PUSH R2 ON STACK
:sPUSH R3 ON STACK
::PUSH RS ON STACK

2:GET THE INPUT NUMBER
;2BR IF INPUT IS POS.
;s :MAKE THE BINARY NUMBER POS.
JJMAKE THE ASCI1 NUMBER NEG.
ssZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER

22SET THE FIRST CHARACTER TO A BLANK

RZ
$DTBL(RO) R
R1.RS
4
R2
33
R1.RS
R2
5%

s sCLEAR THE BCD NUMBER
22GET THE CONSTANT
:;FORM THIS BCD DIGIT
;:BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

::BR IF YES

(SP)

(SP)
63
1(SP) ,~1(R3)

l'O.Ré

# ,R2
R2,(R3)+

(RO) +

RO, #10
28
8s
R5.R2
63
(SP)+
93
-1(SP) ,-2(R3)
(R3)
(SP)+,R5
(SP)+,R3
(SP)+ R?2
(SP)+.,R1

2:ADD BACK THE CONSTANT
2:CHECK IF BCD DIGIT=0
JsFALL THROUGH IF O

2:STILL DOING LEADING 0°S?
s :MSD?
::BR IF NO
2 2YES~~SET THE SIGN

JsMAKE THE BCD DIGIT ASCII

J3MAKE IT A SPACE IF NOT ALREADY A DIGIT
2;PUT THIS CHARACTER IN THE OUTPUT BUFFER

;s JUST INCREMENT
ING

;;CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
2260 TO EXIT
2:GET THE LSD
;260 CHANGE TO ASCII
ssWAS THE LSD THE FIRST NON~ZERO?
2:BR IF NO
;;YES~=-SET THE SIGN FOR TYPING
22SET THE TERMINATOR
2:POP STACK INTO R
;:POP STACK INTO R
2sPOP STACK INTO R?2
2;POP STACK INTO R1

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 36-1

SEQ 7238

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

061250
061252
061256
061264
061266
061270
061272
061274
061275
061300

012600
104401

016666

012616

061300
000002

MOV
TYPE
MoV

000004
$DTBL:

000012

$DBLK:

MoV
RT1

10000.
1000.

100.
10.

.BLKW

(SP)+,RO
,$DBLK
S(SP),4(SP)
(SP)+. (SP)

::POP STACK INTO RO
:sNOW TYPE THE NUMBER
::ADJUST THE STACK

ssRETURN TO USER

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 37

BINARY TO OCIAL

SEQ 0239

(ASCII) AND TYPE

.SBTTL
IR

BINARY TO OCTAL (ASCII) AND TYPE
AN

*THIS ROUTINE

AR RN RN TR

RPN

N AR

ARA

AR AL INRANR AN

O AR E

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

;«OCTAL (ASCII) NUMBER AND TYPE IT

PR FY
TR TE TR
LA

l.l"'l

:*$TYPOS-~~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
'CALL
- (SP)
NUM,
Mov
:;NUMBER TO BE TYPED
TYPQS
::CALL FOR TYPEOUT
5523} 52 3 FOR NUMBER OF DIGITS TO TYPE
.BYTE

°t

;1=TYPE LEADING ZEROS

..o=suppness LEADING ZEROS

*e%a
&

tSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS A3 THE LAST
;*$TYPOS OR $TYPOC
'*CALL:
4
MOV
NUM,-(SP)
:sNUMBER TO BE TYPED
0

s;CALL FOR TYPEOUT

TYPON

'STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s*CALL:
* %

000001
000006
000005

06153%

TYPOC

$TYPOS: MOV

NUM, ~(SP)

;cNUMBER TO BE TYPED

8(SP) ,=(SP)

s sP1CKUP THE MODE
soLOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE
s sADJUST RETURN ADDRESS

1(SP) ,SOFILL

(SP)+,$OMODE
+1

#2, (SP)

061533
061535
061532

$TYPOC:
STYPON:

:sSAVE R3
s sSAVE Ré
::SAVE RS

;:GET THE NUMBER OF DIGITS TO TYPE

000006
061534
061533
000012

SOFILL R4
12(SP)-RS

(=4
N
v
~

-t
d O
o

s.GET LSB OF TMIS DIGIT
2177770.R3

48:

;:PICKUP_THE INPUT NUMBER
ssCLEAR THE OUTPUT WORD

s sFORM THIS DIGIT

3s:

~
(=]

]

005204

¢sGET THE _ZERO FILL SWITCH

;.60 DO _MSB

2$:

177779

ssSUBTRACT IT FOR MAX. ALLOWED
ssSAVE IT FOR USE

:sROTATE MSB INTO ‘'C**

1%:

o
=1

SERS NNNN-‘—'—‘&
OB NNOONN

S
NS
OO

RIS

061535

061534

s:CALL FOR TYPEOUT

ssSET THE ZERO FILL SWITCH
ssSET FOR SIX(6) DIGITS
soSET _THE ITERATION COUNT

el wmd wd wndd wd

737
7
737

000000
000001
061535
000002

Mov

ssTYPE THIS DIGIT?
<:BR_IF NO

$3GET_RID OF JUNK

ssTEST FOR O
..SUPPRESS THIS 0?

::DON'T SUPPRESS ANYMORE 0'S

;B8R IF YES

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 37-1

BINARY TO OCTAL

(ASCII)

000060

5%:

061532

7%:

H8:

000002

000004
8$:

061534

SEQ 0240

AND TYPE

$OCNT:
SOFILL:
SOMODE:

8IS

81S

MOVB
TYPE
DEC8

BGT
BLT
INC
BR
MOV

Mov

MoV
MOV
MoV
RT!

.BYTE
.BYTE
_BYTE
.BYTE
.WORD

#'0,R3
#
_R3

R3, 8%
8
$0CNT
23

(SP)+ RS
(SP)+ R4
(SP)+,R3

s MAKE THIS DIGIT ASCI!I
s;MAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

2:G0 TYPE THIS DIGIT
:sCOUNT BY 1
::BR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;260 DO THE LAST DIGIT
s sRESTORE R5
s sRESTORE R4

2(SP) ,4(SP)

: JRESTORE R3
ssSET THE STACK FOR RETURNING

0
0
0
0
0

s sRETURN
s STORAGE FOR ASCII DIGIT
s s TERMINATOR FOR TYPE ROUTINE
s;0CTAL DIGIT COUNTER
scZERO FILL SWITCH
s sNUMBER OF DIGITS TO TYPE

( SP)+,(SP)

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 38

SEQ 0241

TYPE ROUTINE

.SB8TTL

TYPE ROUTINE

RN NANNANANNANARAN AN RN

AN AR AAARNAANANRARAACARREARAERONNIARASORAS

'ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE,

:«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$*NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
'NOTES
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.
*CALL

*1) USING A TRAP INSTRUCTION
TYPE

o
o¥
001173

001242

000100

001243

066260

)

)=
N=

§%8
b b wad
I\

b cud

e e
b
nd
e e

NNNNN

b
o

YOO

o
ed b

883 28k2822 gc S8
3
3

&
SEREE SREESESOERE

$TPFILG
18

::Is THERE A TERMINAL?

38
RO,-(SP)

22(sP) RO

001243

:BR IF YES

..HALT HERE IF NO TERMINAL

s sLEAVE
*:SAVE RO

..GET ADDRESS OF ASCIZ STRING
JsRUNNING IN APT MODE
62$
23NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ::SPOOL MESSAGE TO APT
62%
;sNO,GO CHECK FOR CONSOLE
RO,618
s sSETUP MESSAGE ADDRESS FOR APT
SC.iATYB
:2SPO0OL MESSAGE TO APT
; JMESSAGE ADDRESS
#APTCSUP,SENVM
s sAPT CONSOLE SUPPRESSED
60$
JSYES,SKIP TYPE OUT
(RO)+,-(SP)
..PUSH CHARACTER TO BE TYPED ONTO STACK
43
:BR IF IT ISN'T THE TERMINATOR
FAPTENV, SENV

061606

1644

s;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
MESADR
1ST8
8PL

000002
000001

000040

+MESADR

61$:
62%:

. WORD

2s:

MOVB

0000C2

60$:
3s:

ADD

(SP)+
(SP)+ RO
#2,(SP)

000011

48:

CMP8

#HT, (SP)

2:ADJUST RETURN PC
: :RETURN
;JBRANCH IF <HT>

#CRLF
, (SP)

: sBRANCH IF NOT <CRLF>

000200

5%
(SP)+

062066
061750
001172

S$CHARCNT

5$:
6$:

JSR
CMP8

’$:

DECB

001170
000001
061750
062066

PC,$STYPEC
3F1LLC.(SP)+
$
SNULL ,~(SP)

1(SP)
6$

PC,STYPEC
$CHARCNT
78

;1IF TERMINATOR POP 1T OFF THE STACK

..RESTORE RO

:sPOP_ <CRX<LF> EQUIV
s:TYPE A CR AND LF
ssCLEAR CHARACTER COUNT

ssGET _NEXT CHARACTER
2:G0 TYPE THIS CHARACTER
ss1S 1T TIME FOR FILLER CHARS.?
s2IF NO GO GET NEXT CHAR.
s.GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.

ssDOES A NULL NEED TO BE TYPED?
::BR IF_NO--GO POP THE NULL OFF OF STACK

:360 TYPE A NULL
::D0 NOT COUNT AS A COUNT
::L00P

CZRNDAO RMBO FCTNL PT1 MACRD V04.00 28-JAN-82 16:24:51 PAGE 38-1

SEQ 0242

TYPE ROUTINE

sHORIZONTAL TA8 PROCESSOR
000049
061759
000007

062724

061730
061734
061742
061744
061746
061750
061750
061754

062066

$TYPEC:

h N N

117204

b b

8s:
9%:

MOVB
JSR
BIT8
BNE
TST
B8R

117200
177600
000023

;sREPLACE TAB WITH SPACE
:sTYPE A SPACE
: ;BRANCH IF NOT AT
::TAB STOP
;:POP SPACE OFF STACK

:sGET NEXT CHARACTFR

as$TKS
108

;:CHAR IN KYBD BUFFER?

#177600, (SP)

¢ :STRIP EXTRANEOUS BITS
; :WAS CHAR XOFF
;:BR IF NOT

;+BR_IF NOT

::GET CHAR

asTKS
101$
asTK8, (SP)

:WAIT FOR CHAR

ASXON, (SP)
101$

JsWAS IT XON?

(SP)+

soF1IX STACK
sWAIT UNTIL PRINTER IS READY

117130
000002

asTPs
108
2(SP) ,a$1PB
qu.Z(SP)

::g;?;-CLEAR CHARACTER COUNT

000002

SCHARCNT
STYPEX
#LF,2(SP)

#177600, (5P)

108:

117136

062066

000207

(SP)+

1028

101$:

:
1028

062070

g;.SCHARCNT

ASXOFF
, (SP)

117154
177600
000021

000012

(SP)

a$TKB,~(SP)

117160

000002
000015

£,

PC.$TYPEC

18:

CMPB

NCB
SCHARCNT
: . WORD
$TYPEX: RTS

STYPEX
(PC)+
0

::GET CHAR
2:STRIP 17

JIBR IF NOT

s:LOAD CHAR TO BE TYPED INTO DATA REG.

s:1S CHARACTER A CARRIAGE RETURN?

s :BRANCH IF NO

sc1S CHARACTER A LINE FEED?

s sBRANCH IF YES
s COUNT THE CHARACTER
s 2CHARACTER COUNT STORAGE

CZRNDAO RMBO FCTANL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 39

SEQ 0243

SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE

SRR NRARAAAARARAARAR A RN

AN A AAA

AN AN IAANAAARNERRANRNNEARANNN
AN

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENY
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

s*THE SWITCH OPTiONS PROVIDED BY THIS ROUTINE ARE:

s aSW16=1

LOOP ON
INHIBIT
LOOP ON
LOOP ON

;*SW11=1
: *SW09=1
:%SW08=1
s*CALL

i
062072
062072
062074
062100

062106
062110
062114

104410

004737
032777
001402
000137

062114

000416

062116
062122

013746
012737
005737
012637
000561
022626
012637
000521

062130
062134
062140
062142
062144
062150
062152
062152
062160
062162
062164
062170

032777
001421
005046

117716
001414

$SCOPE:

062734
040000

117046

062540

9%:

CKSWR
JSR
BIT
BEQ
JMP

s :SCOPE=10T

s:TEST

PC,STOP

FOR CHANGE IN SOFT-SWR

:;LOOP ON PRESENT TEST?

#BIT14,3SWR
9s
$OVER

::NO IF SW14=0

::JUMP OVER SCOPE ROUTINE

sMANAASTART OF ngE FOR THE XOR TESTERNAAAN

$XTSTR: BR
000004
062142
177060
000004

000004

5%:

000004

000400

116774

116764

000067
001116

127777

MoV
MOV
TST
MoV
BR

Mov
8R

@FERRVEC ,~(SP)
#5$ ,@NERRVEC

ar177060

(SP)+,@#ERRVEC
$SVLAD
(SP)+,(SP)+

§§p>+.acsnnvec

6S : ; AMANNEND OF CODE _FOR THE
#BIT08,3SWR
8lr
8EQ
2%
=(SP)
CLR
MOv8
SWR, (SP)
Q
8t
8s
#67, (SP)
cme
8s
aLT
MOV
(SP) ,$TSTNM
DEC
ASL
ADD
MoV

8s:
28:

001117

06
062272

1$:

SCOPE

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

187
1ST8

(SP)

s2IF RUNNING ON THE 'XOR'’ TESTER CHANGE
ssTHIS INSTRUCTION TO A 'NOP'’ (NOP=240)
s;SAVE THE CONTENTS OF THE ERROR VECTOR
:+SET FOR TIMEOUT
ssTIME OUT ON XOR?
:;RESTORE THE ERROR VECTOR
::G0_TO THE NEXT TEST
ssCLEAR THE STACK AFTER A TIME OUT
.:RESTORE THE ERROR VECTOR
:LOOP ON THE PRESENT TEST

XOR TESTERNA#AN

(SP)
#$SWOBTBL
, (SP)
a8(SP) +,SLPADR
SOVER
(SP)
+
$SERFLG
3s

:-LOOP ON SPEC. TEST?

"BR IF NO
sCLEAR A TEMP. LOCATION

..PICKUP THE DESIRED TEST NUMBER

sBRANCH IF BAD TEST NUMBER IN SWR

..CHECK THE NUMBER IN THE SWR
cBRANCH IF TEST NUMBER IS OUT OF RANGE
::UPDATE THE TEST NUMBER
..BACKUP 8Y ONE

sSCALE THE TEST NUMBER AS AN INDEX

:;FORM THE ADDRESS OF TEST POINTER

..SET LOOP ADDRESS TO DESIRED TEST

2260 LOOP ON THE TEST

:SCLEAN THE BAD TEST NUMBER OFF OF THE STACK

..gSSIANNSRROR OCCURRED?

063352

#-1,CPSAVE

::SEE IF _TIMEOUT WAS PREVIOUSLY RECORDED

000004
062264
177766

000004
063352

::SAVE CONTENTS OF ERROR VECTOR

177777

063352

ERRVEC.~(SP)
#20008. ERRVEC
177766. CPSAVE
2001$

062300

20058

20008:

Mov

#-1,CPSAVE

#2001$, (SP)

+KICK AROUND ROUTINE IF SO

:2SETUP 'TRAP® RETURN ADDRESS
;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
s:SET CPU ERROR REGISTER TIMEOUT INDICATOR
:sSETUP RETURN ADDRESS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 39-1

SEQ 0244

SCOPE HANDLER ROUTINE

062304
062312
062314
062322
062324
062332
062336

022737
001430

2001s$:

000004
177777

063352

000001

063352

000001
001154
000000
000176

177766

001154

001000

116572

116600

012676
012637

000000
001154

123737
101015
032777
001404
013737

001131

001117

001000

116542

001124

001122

2002$:

RTI
Mov

CMp
BEQ
8IT
8EQ
8IC

Mov
Mov
MoV
MOV
8IC
EMT

2003s:

001117
001206

004000

116510

001230
001120
001206

001226

18:

$SVLAD: INCB
MOVB
MoV
MOV
CLR
Mov8
$OVER:
MOV
MoV
RT1

s o

l=lelelelelele]le]

062556
062560
062562
062564
062566
062570
062572
062574
062576
062600

ncd

062556

;sRESTORE CONTENTS OF ERROR VECTOR

#-1_CPSAVE

;sSEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

200%s

#81700,177766

; :BRANCH IF SO
s;SEE IF THE POWER MONITOR BIT IS ON
;cBRANCH TO CONTINUE ROUTINE IF CLEAR
;;CLEAR THE BIT FOUND TO BE SET

a(SP) ,=(SP)
#176, SWR
(SP) .3SWR

;:GET CURRENT SWR VALUE

#B81700,CPSAVE
2 0038

SWR, - ($P)

#B1T09,3sWR

SMXCNT: 5.
$SWOBTBL:
.REPT
$TN-1
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

s:SAVE SWR ADDRESS
:sSAVE SWR VALUE
s:GET SOFTWARE SWR ADDRESS

177
(SP)+,a(SP)
(SP)+,SWR

s:DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;s CALL SPECIAL POWER FAIL BIT ERROR CALL
scRESTORE SWR TO ORIGINAL VALUE
s cRESTORE SWR ADDRESS

ggRHAX.SERFLG

::HAX ERRORS FOR THIS TEST OCCURRED?

#BIT09,aSWR
49
SLPERR, SLPADR
$OVER
SERFLG
$TIMES
1$
#8IT11,3SWR
1$
$PASS

..LOOP ON _ERROR?

1$
SICNT
STIMES,SICNT

001120
001120
001206

(SP)+,ERRVEC

$OVER
#1,81CNT
SMXCNT,STIMES
STSTNM

STSINM, STESTN

(SP), $LPADR
(SP),SLPERR
$ESCAPE

#1,SERMAX

:BR _IF NO

;BR_IF NO

..SET LOOP ADDRESS TO LAST SCOPE
s ZERO THE ERROR FLAG
:;CLEAR THE NUMBER OF ITERATIONS TO MAKE

scESCAPE TO THE NEXT TEST
..INHIBIT ITERATIONS?
s:BR IF YES

..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

..INCREHENT ITERATION COUNT
.CHECK THE NUMBER OF ITERATIONS MADE
;:BR _IF MORE ITERATION REQUIRED

::REINITIALIZE THE ITERATION COUNTER
:sSET NUMBER OF ITERATIONS TO DO
:sCOUNT TEST NUMBERS
s;SET TEST NUMBER IN APT MAILBOX
::SAVE SCOPE LOOP ADDRESS
s cSAVE ERROR LOOP ADDRESS
¢sCLEAR THE ESCAPE FROM ERROR ADDRESS

s2ONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM, aDISPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)

ssFUDGE RETURN ADDRESS
:;FIXES PS
ssMAX. NUMBER OF ITERATIONS

TST1+2
1ST2+2
TST342
TST4+2
TST542
TSTH+2
TST7+2
TST10+2
TST11+2
TST12+2

i3S TARTING ADDRESS
228 TARTING ADDRESS
338 IARTING ADDRESS
i TARTING ADDRESS
) ARTING ADDRESS
;o9 ARTING ADDRESS
;28 }AR TING ADDRESS
oS AR TING ADDRESS
;oS IAR TING ADDRESS
;S T AR TING ADDRESS

OF
OF
OF
OF
OF

OF
OF
OF
OF

TEST
TEST
TEST

TEST
TEST
TESY
TEST
TEST
TEST
TEST

000002
012637

b b e N ONNA SN
N=O

062276
062300

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 39-2

SEQ 0245

SCOPE HANDLER ROUTINE

062602
062604
062606
062610
062612
062614
0626.5
062620
062622
062624
062626
062630
062632
062634
062636
062640

014426
014734
015244
015506
015764
016234
016464
017010
017430
017774
020366
021056
021424
021746
022330
022646

WORD
.WORD
.WORD
.WORD
.WORD
.WORD
HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

062646

024746

.WORD

062704
062706
062710
062712
062714
062716
062720
062722

033410
033750
034312
034636
035356
036000
036442
037042

WORD
.WORD
WORD
<WORD
JWORD
.WORD
.WORD
.WORD

062726
062730
5 062732

037776
040356
040722

062642
062644

062650
062652
062654
062656
062660
062662
062664
062666
062670
062672
062674
062676
062700
062702

062724

023432
024156

.WORD
.WORD

025532
026064
026524
026744
027302
027574
030066
030400
030706
031174
031476
032002
032420
033016

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
LMORD
WORD
WORD
LWORD
JWORD

037422

.WORD

.WORD
.WORD
JWORD

TST13+2
TST14+2
TST1542
TST16+2
TST17+42
TST20+2
TST21+2
TST22+2
TST23+2
TST24+2
TST25+2
TST26+2
TST27+2
TST30+2
TST31+2
TST32+2

TST33+?
TST34+2
TST35+2
TST36+2
TST37+2
TST40+2
TST41+2
TST42+2
TST43+2
TST44+?
TST45+42
TST46+2
TST47+42
TST50+42
TST51+2
TST3242
TST53+42
TST54+2
TST55+2
TSTS56+2
7575705
TST60+
TST61+2
TST62+2
TST63+2
TST64+2
TST65+2
TST66+2
TST67+2

;sSTARTING ADDRESS OF
s STARTING ADDRESS OF
:;STARTING ADDRESS OF
:STARTING ADDRESS OF
:;STARTING ADDRESS OF
;:STARTING ADDRESS OF
s STARTING ADDRESS OF
s ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
s STARTING ADDRESS OF
s ;STARTING ADDRESS OF
s STARTING ADDRESS OF
s STARTING ADDRESS OF
¢ sSTARTING ADDRESS OF
s STARTING ADDRESS OF
s STARTING ADDRESS OF

+ sSTARTING ADDRESS OF TEST 33
:STARTING ADDRESS OF TEST 34

s sSTARTING ADDRESS OF TEST 35
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
::STARTING ADDRESS OF
s sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
s STARTING ADDRESS OF
s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
s s STARTING ADDRESS OF
s sSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
::STARTING ADDRESS OF

s STARTING ADDRESS OF
s STARTING ADDRESS OF
s STARTING ADDRESS OF
:;STARTING ADDRESS OF
s sSTARTING ADDRESS OF
>;STARTING ADDRESS OF
s :STARTING ADDRESS OF
;sSTARTING ADDRESS OF

5 062734

STOP:

000140
062746

648

Mov
MoV
RTI

#PR3,~(SP)
#648,-(SP)

;sPUT NEW PS ON STACK
ssPUT NEW PC CN STACK
:sPOP NEW PC AND PS

sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT
062746

012746

000240

MOV

#PRS,-(SP)

36
37
40
41
42
43
44
45
46
47
50
51
52
53

TEST 54
TEST 55
TEST 56
TEST 57
TEST 60
TEST 61
TEST 62
TEST 63

s sSTARTING ADDRESS OF TEST 65
s sSTARTING ADDRESS OF TEST 66
s STARTING ADDRESS OF TEST 67

sDROP PRIORITY TO ALLOW CONSOLE INTERRUPT
012746
012746
000002

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

ssSTARTING ADDRESS OF TEST 64

2
062734
062740
8g5;22

TEST 13
TEST 14
TEST 15
TEST 16
TEST 17
TEST 20
TEST 21
TEST 22
TEST 23
TEST 24
TEST 25
TEST 26
TEST 27
TEST 30
TEST 31
TEST 32

;sPUT NEW PS ON STACK

(ZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 39-3

SEQ 0246

SCOPE HANDLER ROUTINE

062752
062756
062760

10 062760

012746
000002
000207

062760
658:

MOV
RTI

#658,-(5P)

ssPUT NEW PC ON STACK
::POP NEW PC AND PS

RTS

sRETURN

CZRNDAO RMBC FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 40
ERROR HANDLER ROUTINE
1

.S3TTL

SEQ 024

ERROR HANDLER ROUTINE

SRR A AN R R AN AN AR AN AR ARA AR RN NN C AN A AN AR RN AN IR R A AN NI N AR NNOENNNS

78:

SERFLG

3777

001116
002009

116070
001000

s
=1
N
~

000177

—

b
b

(=d=l=}

—

b
O\ =

001212
001126
001132
000002

£Hen
N

001117
b

IBSAVE

puF Pl

$ERRGR:

063354

8338328 3
3

062762

NSO
N 2N
NO~N

tTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO ERRTYP ON ERROR
;*THE _SWITCH OPTiOMS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERRCR
s %SW15=1
INHIBIT ERROR TYPEOUTS
$«SW13=1
++SW10=1
BELL ON ERROR
LOOP ON ERROR
+%5W09-1
*CALL
N
; ERROR=EMT AND N=ERROR ITEM NUMBER

1$:

116102

1004$

063352

000004
063352

177777

063352

N63140

000004

s sRING BELL
sCOUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE THE ERROR ITEM CODE
.,SEE IF LOOP ON ERROR IS SET
+BRANCH AROUND ROUTINE IF SO

:SEE IF THIS IS THE POWER FAIL CALL
s sBRANCH AROUND ROUTINE IF IT IS

..SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
sBRANCH IF SO

::SAVE CONTENTS OF ERROR VECTOR
;sSETUP 'TRAP' RETURN ADDRESS
::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

177766 CPSAVE

10018

;s :BRANCH IF SO

1000$:

#-1,CPSAVE

#10018, (SP)

;sSET CPU ERROR REGISTER TIMEOUT INDICATOR
:;SETUP RETURN ADDRESS

10018:

(SP)+,ERRVEC

s RESTORE CONTENTS OF ERROR VECTOR

1002%:

#-1,CPSAVE

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
s sBRANCH IF SO
;sSEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
s :BRANCH IF 0K
..CLEAR THE BIT FOUND SET

063352

qgéroo.cPSAvs

#81700.177766

000177

177766
063354
001130

063356

s:NO - SKIP

ERRVEC,~(SP)
410008. ERRVEC

000001

115732

::DISPLAY TEST NUMBER AND ERROR FLAG
;;BELL ON ERROR?

..SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

10048

063352

020000

sDON'T LET THE FLAG GO TO ZERO

#-1,CPSAVE

177777

063354

0632264

(SP),SERRPC

1004$
#177 ,S1TEMS

001130

000004
063124
177766

$ERTTL

#2,$ERRPC
aSERRPC,SITEMB
#BITO9.3$UR

001132
001130

063354
127777

78
S$TSTNM,aD1SPLAY
#8I1T10,83SWR
1$
$BELL

s;CLEAR THE ITEM BYTE SAVE LOCATION
;s TEST FOR CHANGE IN SOFT-SWR
..SET THE ERRUR FLAG

1004$

sxr MB. IBSAVE

4£

SiTems

JMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

*:SET SITEMB TO SPECIAL POWER FAIL POINTER
s sBRANCH OVER IBSAVE CLEARING

IBSAVE

;sCLEAR IBSAVE SO 2ND TIME THROUGH EXITS

#BIT13,aSWR
208

:sSKIP TYPEOUT IF SET
;s SKIP TYPEQUTS
::G0 TO USER ERROR ROUTINE

PC.ERRTYP

CZRNDAQ RMBO FCINL PT1 MACRO v04.00 28-JAN-82 16:24:51
ERROR HANDLER ROUTINE

PAGE 40-1

1046401

01217

TYPE

+SCRLF

122737

000001

001242

#APTENV, SENV

001130
066270

063256

CMPF;
8SNE
Mov8
JSR
BYTE
.8BYTE
B8R
TST8
BNE

063230
063234
063234
063242
063244
063252
063256
063257
063260

21s:

22%:
2$:

063354
115660
104410

032777
001402
013716
005737
001402
013716

063354

001000

115644

001124
001210

48:

001210

022737
001001
000000

041512

105737

063354

3s:

000042

5%:

6s:

SITEMB, 218
SC.SATY4

0
22%

IBSAVE

TST

aSWR

8I7
BEQ
MOV
1ST
8EQ
MoV

#81T09,3SWR

8PL
HALT
CKSWR

4$
$LPERR, (SP)
SESCAPE
58
$ESCAPE, (SP)

SEQ 024

; sRUNNING IN APT MODE
1INO,SKIP APT ERROR REPORT

+:SEf ITEM NUMBER AS ERROR NUMBER
::REPORT FATAL ERROR TO APT

¢ sAPT ERROR LOOP
;s SEE IF IBSAVE 1S LOADED
+sBRANCH IF NOT -~ NO HALT ON PWR MON BIT ERROR
sHALT ON ERROR
¢ :SKIP IF CONTINUE
ssHALT ON ERROR!
s:TEST FOR CHANGE IN SOFT-SWR

;:LOOP ON ERROR SWITCH SET?
2:BR IF NO
;:FUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
2:BR IF NONE
:sFUDGE RETURN ADDRESS FOR ESCAPE

;sACT=11 AUTO-ACCEPT?

CMP
BNE
HALT

#SENDAD ,a#42

::egencu IF NO

1ST8

IBSAVE
78

ssSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
::gg?fiaz BACK TO CALL ORIGINAL ERROR

0
0

ssLOCATION TO SAVE ITEM BYTE

BNE
RTI
CPSAVE: -WORD
IBSAVE: -WORD

::LOCATION TO SAVE CPU ERROR REG CONTENTS

.SBTTL

cad od cd b ad od cwd e
NI

16:24:51 PAGE 41

SEQ 0249

ERROR TYPEOUT ROUTINE

s*THE ERROR YYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION

.‘"REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

-UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND

*PROGRAH COUNTER ARE PRINTED ON THE FIRST LINE:

it
.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTED ON
*ONE OR MORE SUCCEEDING LINES;
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED
'AFTER THE ERROR MESSAGE
.

O VNN
INN 2 OO0 O N NN

CZRNDAQ RMBO FCTNL PTT MACRO V04.00 28-. AN-82
ERROR TYPEOUT ROUTINE

063356
063360
063366
063370

063374

1 063400

22 063404

063410
063412

063413

23
24
25 063414

020000

104401
104401
013746

8EQ
JMP

013700
016000

1s:

001217
064202
001234

BYTE
BYTE

067130
000026

MOV

BIC

MOV

063452

cHp

2s:
38:

05037

113737
001406
104401

013746
104403
0c3
000
104401

064172
001226
064207
064172

BNE

3
0

sINHIBIT TYPEOUTS??
sNO!!
SYES!!

TEST NUMBER, ERROR NUMBER,

sTYPE 'DRVA''

*:SAVE SUNIT FOR TYPEOUT
::TYPE DRIVE NUMBER

::GO_TYPE=-OCTAL ASCII

::TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

$BASE ,RO

RHDT(RO) no

#177740,R

#SRMSO, Ss
126 RO

ERTYOS

MORD

TYPE

:GET RM BASE ADDRESS

*GET DRIVE TYPE REGISTER

*SAVE DRIVE TYPE BITS AND

:GET ASCII DRIVE TYPE
21S DEVICE AN RM80O ?

JNO 1!

JTYPE ' - **

sTYPE DRIVE TYPE

:DRIVE TYPE MESSAGE IS STORED HERE

;TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER

064172

§$:

CLR

ERTYOf

;TYPE *TSTA"

MOV

TSTNMB,-(SP)

::SAVE TSTNMB FOR TYPEOUT
$STYPE TEST NUMBER
1360 TYPE--OCTAL ASCII

.BYTE
.BYTE

3
SSTYPE 3 DIGIT(S)
D
*:SUPPRESS LEADING ZEROS
ERRNMB
*LOAD ERROR NUMBER FOR
SITEMS,.ERRNMB : TYPEOUT
5¢
:SKIP IF NO ERROR CALLED

MOV

ERRNMB,-7P)

TYPOS

BYTE

5¢:

:LOAD TEST NUMBER FOR

STESTN, TSTNMB

CLR
MOVB
8EQ
TYPE

064174

TSTNMB

MOV

TYPE

064217
064174

064226

SCRLF

.ERTY00
$UNIT,=(SP)

TYPE

TYPOS

064174
001130

18
27%

;TYPE *DRIVE TYPE', RMB0 FOR UNIT UNDER TEST

001276
000026

064237

005037
013737
104401
013746

TYPE

TYPE
MOV
TYPOS

177740

#SW13,3S5WR

sTYPE UNIT NUMBER, DRIVE TYPE,
:PROGRAM COUNTER

003
000

104403
003
000

45 063532

8IT

104403

31 063444
32 063450
gz 063452

063531

ERRTYP: SAVREG

064166

042700
012737
022700

35
36 063454
37 063460
38 063466
39 063472

115566

TYPE

LERTY02

3
0

,ERTYO3

‘TYPE

‘ERR#

::SAVE ERRNMB FOR TYPEOUT
*:TYPE ERROR NUMBER

$360 TYPE--OCTAL ASCII

:iTYPE 3 DIGIT(S)
: SUPPRESS, LEADING ZEROS

‘$YPE "PC="’

CZRNDAQ RMBO FCiNL PT MACRO V04.00 28~JAN=82 16:24:51 PAGE 41-1
ERROR TYPEOLT ROUTINE
66 063536

013746

063542
063544
063545

104403

4
48
49 063546
50 063552
31 063554
2
53 063560
54 063564
55 063570
56 063574
57 063600
58 063604
59 053606

001132

MOV
TYPOS

006
001

005737

BYTE
.BYTE

001217
064200
064201
064174
000177

78:

8s:
001564

98:

001507

064004
064176

TYPE
CLRB
CLRB
MOV

,SCRLF
BOTFLG
CHRCNT
ERRNMB , RO

sYES=TYPE CRLF
sCLEAR BOT FLAG

BNE
MOV

8s
APFECH,RO

sCLEAR CHARACTER COUNTER
:RO POINTS TO FIRST OF
sSEE 1F THIS ERROR CALL IS CPECIAL POWER FAIL CALL
:BRANCH IF NOT
¢MOVE POWER FAIL ERROR CAIL TABLE TO RO

sFOUR ENTRIES IN ERROR

B8R

ASL

#177.R0

ASL
ASL
ADD
MOV

RO
RO
#SERRTB-8. RO
(RC),R1

BEQ

198

mov

11$:

CLR
MOVB

064201

000012

128:

000011
064201

064201
000040

064176
97 063760
98 063764

:NO-=EXIT

i0s:

000015

064176
000100

001217
064201
064004

;s TYPE LEADING ZEROS

278

:TYPE THE ERROR MESSAGE

012102

064201
000007

::G0 _TYPE--OCTAL ASCI!
ssTYPE 6 DIGIT(S)

JMP

cmP8

064244

011001

6
1

;s SAVE SERRPC FOR TYPEOUT

:: TYPE PROGRAM COUNTER

6gENERATE
POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
ST
ERRNMS
sWAS AN ERROR CALLED?
78
BNE
:BR IF YES

054174
064166

104401
105037

$ERRPC,~(SP)

SEQ 0250

138:

148:

064201

158:

BEQ
MOV

BEQ
CMP8
BNE

CLRB
BR
(MPB
BEQ
CMPB
BNE
INCB
BITB

BNE
B8R

INCB

(W8
BNE
MOV

(R1)+,R2

198
R2,18$

BOTADR
(R2)+,R3

17$
#CR.R3
12$

CHARCNT
118
#LF.R3

118
#HT.R3
148
CHRCNT
#7,CHRCNT

13$
158

CHRCNT

#' RS
15%
R2,.BOTADR

ABLE

‘?15{?1“75 TO ERROR MESSAGE

*BRANCH IF NO ERROR MESSAGE
sR2=ADDRESS OF MESSAGE STRING
sBRANCH IF END OF MESSAGE
:LOAD ADDRESS OF STRING
:CLEAR BOT ADDRESS
SEND OF STRING??
SYES!!
¢ CARRIAGE RETURN??
“NO!!

sYES=CLEAR CHAR COUNT
:GET NEXT CHARACTER
sLINE FEED??
sYES=GET NEXT CHARACTER

:zgflll)NTAL TAB??

sADJUST CHARACTER COUNT

s INCREMENT CHARACTER COUNT
:SP¢$E??

.m- .

csi.,cuncnr

s SAVE ADDRESS OF SPACE
:53?'0F LINE??

MOV

BOTADR, R4

:GET ADDRESS OF LAST SPACE

TYPE

,SCRLF

sTYPE CRLF

cMP8

BHIS
BAE

CLRB

MOV

118
168

CHRCNT

188,R2

sBRANCH IF SPACE DCTECTED

:CLEAR CHARACTER COUNT

:SET UP R2 FOR TESTING

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-~JAN-82 16:24:51 PAGE 41-2
ERROR TYPEOUT ROUTINE

99
100
101
102

063770
063772
063774
064002

103 064004

064200

1/%:
188:

ISTB

TYPE

CLRB

CLRB
MOV

MOV
MOVB

064004
000040

TSTB

»
SO

S8R SRRTIARNSE
RN S RIERNRNSFrd R

BR
CLRB
MOVE
TYPE
.WORD

BEQ

001217

000002

jos:

208:

001217

218:

228:

mov
BEQ
TYPE

MOV
MOV
BEQ

sREPLACE SPACE

BOTFLG

:=S§'STRING TRUNCATED??

$CRLF

sYES=TYPE CRLF
sCLEAR BOT FLAG
sCLEAR CHARACTER COUNT

108

BOTFLG

CHRCNT
BOTADR .R2

R2.188
#°
,-(R2)

(R2§+

118

.WORD

TYPE

ST
BEQ
MOV
MOV

T1SIB

BM]

MOV
TYPDS

238:
248:

258:
064234

B8R

MOV

TYPOC

B8R

278:
TSTNMB:

ERRNMB:
BOTADR:
B0TFLG:
CHRCNT:

§(RO) ,R2

6(R0) .R3
(R1)+.21%
278

,S$CRLF

R2
208

sSET BOT FLAG

;TYPE ERROR MESSAGE STRING

sSTRING ADDRESS GOES HERE

sSETUP R2 FOR TESTING
sSETUP 188 FOR TYPING
JRESTORE SPACE
sRESTORE R2

sTYPE REST OF STRING

‘NO!!

cWHAT KIND OF DATA??

243

23$

3(R&)+,=(SP)

:R5 POINTS TO FORMAT

:BINARY
sOCTAL
sDECIMAL

258

(R4 +,-(SP)

25$

(R4)
268

B8R
TYPE
B8R

228
$CRLF
208

RTS

.WORD

.WORD
.WORD
.BYTE
.BYTE

sDATA WITH HEADER??

(RS)+

TST
BEQ

RESREG

sHEADER ADDRESS GOES HERE

¢R4 POINTS TO DATA ADDRESS

(R3)+,RS

a(R4)+,=(5P)

TYPBN

;R1 POINTS TO ERROR HEADER TABLE
sBRANCH IF NO HEADER
s (ASSUME NO DATA)
sR2 POINTS TO DATA ADDRESS TABLE
:R3 POINTS TO FORMAT TABLE
:PUT HEADER ADDRESS FOR TYPE
sBRANCH IF END OF HEADERS
; (ASSUME END OF DATA)

(R2)+,R4

MOV

TYPE

268:

2(RO) ,RT
278
$CRLF

TYPE

BEQ

201217

118
=-(R&)
#-1,BOTFLG

:TYPE ERROR HEADER AND ERROR DATA

MOV

QOO
O

NOWVNESUWN = OOV

b el wned wreh b b cad e wnd ed b b b b wd b d ed wmd b b eud D b = -

NON) b vud =

o o

b e o

ed i e

b ah

b e

VIWAWVAWIWAE
DS DN S B
D

b e

d i

\V.] SWN = OOV
3

AN N

b e

b md e

b e

NI NI NININ) b b

$3%%7 FRRRRRRRRRRIRERRRRRRRRRRE¥ FEXF22: ¢

NRAND NN = O

104 064003
105 06401
106 064014
107 064020
108 0640%4
109 064030
110
064034
111
064040
112
064044
N
1
1
1
1

177777

168:

SEQ 025"

ERTYO4

0
O
0
0

sMORE DATA??
*NO!
!

sYES-TYPE 2 SPACES
cAND CONTINUE
sTYPE ONE BLANK LINE
sBEFORE NEXT HEADER

sTEST NUMBER
;ERROR NUMBER
;BEGINNING OF TEXT ADDRESS
:BOT FLAG
sCHARACTER COUNT

CZRNDAD RABO FCTINL PT1 MACRO V04.00 28-JAN=-82 16:24:51 PAGE 41-3

ERROR TYPEOUT ROUTINE

156
157
158
159
160
161

06420
06420
064217
06422¢
064234

}22 064237
S

104
054
054
054
040

040

122
040
040
040
04C

055

164 064244
165 064254

064254
064260

0664342
000000

168 064342

0664346

000000

171
172
173
174

064362
963352
064370
000

}g? 064260

}gg 064346
064360
064362
064366
064370

120

103

117

120

000000
000

156
124
105
120
000

040

064360

127

125

ERTYQ0:
ERTYS!:
ERTY §:
ERTYQ3:
ERTYO4:

.ASCIZ
LASCIZ
ASCIZ
.ASCIZ
.ASCIZ

Eg5ggs: ASCIZ
o

@DRVAd
@, TESTAR
@, ERR#MD
&, PC=d
@ @

@ -d

PFECH:
PFECH1,PFECH2 ,PFECHS,PFECH4 ;WORDS DEF INING TABLES BELOW
PFECHY: .+4,0

.E$E£1

PFECHZ:

.+4,0

PFECH3:

.42
.WORD
.42
.BYTE

PFECH4:

.eeggl

?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?

?CPUERREG?
CPSAVE.,O
0,0

SEQ@ 0252

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28~JAN-82 16:24:51 PAGE 42

SE@ 0253

INPUT ROUTINE

.SBTTL

TTY INPUT ROUTINE

o RN RN E AR RN AR IR AR NANR I AR AR AN A RAAR AR AR AR N AN

064372
064374
064376
06440C

LENABL
LSB
STKCNT: .WORD
$TKQIN: .WORD
$TKQOLT: .WORD
$TKQSNT: .BLkB

000000
000000
000000
064401

0
0
0
1

A RA

NN RANRANOARANEN

:sNUMBER OF ITEMS IN QUEUE
s INPUT POINTER
. s QUTPUT POINTER
s TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

SxCALL:
w
2

064402
064414
064422
064430

064442
064450

064372
064400
064374
064452
000200

000060
000062

000100

114510

116520

064374
064376

J3R

RETURN

$TKINT: CLR

MOV
MOV
MOV

MOV
MoV

PC.STKINT

STKCNT

;:CLEAR COJUNT OF ITEMS IN QUEUE

#STKQSRT ,$TKQIN ::MOVE THE STARTING ADDRESS OF THE
$TKQIN,STKQOUT ;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRY ,@#TKVEC ::INITIALIZE THE KEYBOARD VECIOR

#200,a#TKVEC+2

::"BR'' LEVEL 4

asTks

$:CLEAR DONE FLAG

*SRETURN TO CALLER

#100,387KS

*SENABLE TTY KEYBOARD INTERRUPT

:*TK SERVICE ROUTINE
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:«IT IN THE QUEUE.

:*IF THE CHARACTER IS A ''CONTROL=C'* (*C) STKINT IS CALLED AND
:*UPON RETURN EXIT JS MADE TO THE ‘‘CONTROL~C'* RESTART ADDRESS (SHUT)

$TKSRV: mMOVB

114504
177600

000021

308

000003
064502

SRSE RRRIRRR

58 SERTERE

TTY

065600
064402
18:

000176

001154

000001

064372

001212

SISTRIP THE JUNK

BNE

ST
RTI

30$

(SP)+

:*BRANCH IF NO

M
BNE
TYPE

(SP) . #3
13
SCNTLC

;218 1T A CONTROL C?
P*BRANCH IF NO
SSTYPE A CONTROL=C (*C)

SHUT
(SP) .47

*:CONTROL C RESTART
$3IS IT A CONTROL G?

JMP
e

BNE

(SP) . #$XON

PC.STKINT
(SP) +
23

#SWREG, SWR

#1.$TKCNT

TYPE

,$8ELL

BEQ

2%:

::PICKUP THE CHARACTER

#4¢17%,(5P)
174

JSR
ST

065642
000007

asrx9 -(SP)

BIC
P

BNE

$31IS IT A RANDOM XON?
*SCLEAN RANDOM XON OFF STACK
L SRETURN

SSINIT THE KEYBOARD
2;CLEAN UP STACK
J:BRANCH IF NO

$3IS SOFT=-SWR SELECTED?

1360 TO SWR CHANGE

::1S THE QUEUE FULL?

;:BRANCH IF NO

¢sRING THE TTY BELL

CZRNDAQ RMBO FCYNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 42-1

SE@ 0254

INPUT ROUTINE

QOO
NN

N
E; [=]

(SP)+

\Jgommu‘

OMRONSN

TTY

5%
(SP)
, 423
323
CLILS]

3s:

000023
114370

(SP)+
837KS

31s:

1146362

000100

a87k8,~(SP)

2sLO0P UNTIL ITS THERE
2:6GET THE CHARACTER

318

::1S 1T A CONTROL=-Q?
2:BRANCH IF NO
;sREENABLE TTY KEYBOARD INTERRUPTS

#2C177,(5P)
(%;P)#lZ1
114334

#100,387KS

32%:

064372
000140

S$TKCNT
(SP)
. #140
43

000175

000040
177518
064374
064374

064401

064400

064374

(SP) ,.m175
43
#40,(SP)

(SPJ+,asTKaIN

4S:

..BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
;sCLEAN CHAR OFF STACK
ssWAIT FOR A CHAR

318

114356
127600
000021

;AN CHARACTER OFF OF STACK
T
IT A CONTROL-S?

JIMAKE IT 7-BIT ASCI1

: ;RETURN

:.COUNT THIS CHANACTER
;o 1S 1T UPPER CASE?
:cBRANCH IF YES
5:1S 1T A SPECIAL CHAR?
s ;BRANCH IF YES
..HAKE 1T UPPER CASE
scAND PUT IT IN QUEUE

$TKQIN
:UPDATE THE POINTER
gIKOIN.USTKOEND ..GO OFF THE END?

s :BRANCH_IF NO

#STKQSRT ,$TKQIN csRESET THE POINTER
TURN

5%:

SINARARARAANRRA AR AR

AR RN A AN AT AN AN R AN RRANACA RN IAANANANNARANANIARNRN

;#SOFTMARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED

000176

001154

114242

064734

001300

FROM THE TRAP MANDLER, AND WILL

:#SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSUR: cmP
#SUREG,
SWR
s:1S THE SOFT-SWR SELECTED

158

s:EXIT IF NOT

#7C17% . (5P)

s:MAKE IT 7-BIT ASCII
5055 1T A CONTROL-G?
IF
Ng;ITPUT IT IN YHE TTY QUEUE

asTKs
15$
@$TKB, ~(SP)

114236
177600
000007

(SP) ,.#¥

28
AN

RAAANAAANAAA AR ARE AN E A AN A AANARRARAAL A AR

AR AANITENRARRANCANS

s*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A

736

123727

001150

000001

064402
114200
000001

001151

065612
065617
000176

6;C0NTR0%igBBEING TYPED,
1AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
$AUTO0B,#
;:ARE WE RUNNING IN AUTO-MODE?
8EQ
23
s ;BRANCH IF YES
TST
(SP)+
:sCLEAR CONTROL-G OFF STACK
JSR
PC.STKINT
soFLUSH THE TTY INPUT QUEUE
CLR
837KS
::DISABLE TTY KEYBOARD INTERRUPTS
move
#1,3INTAG
ssSET INTERRUPT MODE INDICATOR
TYPE

$GTSWR: TYPE
Mov

TYPOC

.SCNTLG
. SMSWR
SWREG, - (SP)

s;ECHO THE CONTROL-G (*G)
ssTYPE CURRENT CONTENTS
s :SAVE SWREG FOR TYPEOUT
;:60 TYPE-~OCTAL ASCIICALL DIGITS)

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 42-2

TTY

SEQ@ 025%

INPUT ROUTINE

065004
065010
065012
065014
065020

065630

0€5022

065032
065036
065040
065044
065050
065056
065060
065066

:;PROMPT FOR NEW SWR
;s CLEAR COUNTER
;s THE NEW SWR

2 1F NOT TRY AGAIN

MOovB
8IC

as$7KB, - (SP)

::PICK UP CHAR
JIMAKE IT 7-BIT ASCI?

CMP
BNE

(SP) 43
93

2218 IT A CONTROL-C?
s ;BRANCH IF NOT
;o YES, ECHO CONTROL-C (~C)
;s CLEAN UP STACK
s cREENABLE TTY KEYBOARD INTERRUPTS?
s sBRANCH IF NO
ssALLOW TTY KEYBOARD INTERRUPTS
s s CONTROL=C RESTART

=(SP)
~(SP)
asTKs

114134
177600

000003
065600
000006
001151
000100
065642

021627
001005

-SMNEW

TYPE

CLR
CLR
1ST8
8PL

114140

065026

065072
065076
065100

198:
78:

TYPE
ADD

000001

CMPB
BNE
MOV
JMP

114072

000025

9$:

104401
062706

065605
000006

CMP
BNE

20$:

ADD

021627
001022
005766
001403
016677
062706

000015

108:

000737

TYPE

:JCHAR THERE?

#°C177,(SP)
LSCNTLC

#6,SP
#1
$INTAG.

#100,3$7TKS
SHUT

539).325
LSCNTLU

B8R

cMp

3018 IT A <CR>?
:sBRANCH IF NO

000004

JJYES, IS IT THE FIRST CHAR?
;BRANCH IF YES

114020

000002
000006
001217
001151

000001

000100

113776

J:SAVE NEW SWR

:¢CLEAR UP STACK

2:ECHO <CR> AND <LF>
1
#100,3$TKS

061750
000060

PC,STYPEC

(SP) ,#60

000067

104401

000720

:JRE-ENABLE TTY KBD INTERRUPTS?
2 JBRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS
JRETURN

..ECHO CHAR
:CHAR < 0?

; :BRANCH IF YES

..CHAR > 7?
JBRANCH IF YES

..STRIP-OFF ASCII

000060
000002

000667

5218 IT A CONTRGL-U?
; cBRANCH IF NOT
;s YES, ECHO CONTROL-U (*W)
:; IGNORE PREVIOUS INPUT
ssLET'S TRY IT AGAIN

218 THIS THE FIRST CHAR
::BRANCH IF YES
$INO, SHIFY PRESENT
;2
CHAR QVER TO MAKE

000002
177776

17¢:

001216

188:
.DSABL
e

BR
TYPE
BR
LS8

AR AR LR AR RN

ROOM FOR NEW ONE.

..KEEP COUNT OF CHAR
..SET IN NEW CHAR
J:GET THE NEXT ONE

INC

JTYPE ?2<CR><LF>

:sSIMULATE CONTROL-V

ARSI AN

R R AR R RN AR RN UR RN AR AN AN RN R

AN RRAR

N OGS

CZRNDAO RMB0 FCINL PT MACRO V04.00 28-JAN-82 16:26:51 PAGE 42-3

SEG 0256

INPUT ROUTINE

s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM
s«CALL:
RDCHR
i
:sGET A CHARACTER
i
RETURN HERE
;s CHARACTER IS ON
;t
s;WITH PARITY BIT

000004
000004

000002

$SRDCHR: MOV

:
648

064372

1$:

064372
177070
064376
064376

064401

064400

064376

000004

23:

THE TTY
FROM THE QUEUE
THE STACK
STRIPPED OFF

(SP) ,=(SP)

2:PUSH DOWN THE PC AND

CLR

4(SP)

-(SP)
#64$,-(SP)

JsGET READY FOR A CHARACTER
;:PUT NEW PS ON STACK
2:PUT NEW PC ON STACK
sPOP NEW PC AND PS

STKCNT

ssWAIT ON A CHARACTER

DEC
MOVB
INC
CMP
BNE
MOV

STKCNT
@$TKQOUT,4(SP)
$TKQOUT

s sDECREMENT THE COUNTER

MoV

065270

CLR
MOV
RTI

BEQ

RTI

4(SPJ,2(sP)

;. THE PS

..GET ONE _CHARACTER

¢UPDATE THE POINTER

SIKOOUTJASTKQEND ..DID IT GO OFF OF THE END?
; JBRANCH IF NO

#STKQSRT, $TKAOUT"R$B£L THE POINTER

SARARRRRARRAAARAARANANAR
AR RN ORARANARAAAARAN AN AR RRANRAARNANANRNNARES

:Efiif ROUTINE WILL INPUT A STRING FROM THE TTY

in
i

ROLIN

RETURN MERE

SRDLIN: MOV
CLR
18:
MOV

065570
065600

2s:

CMP
BLOS

RDCHR

000177

000134
065566
1777277

108:

065566
6$:

tNLNCh-fl‘QER

065446
065450
065454

ONO
M NESN ~
- &H
O
= O
Oo

33 =4
C)hJCDSE
b PO\
=0

Ot
ad b

&~ &
NN
(=[« )

(=3

065570

&
O
\Yd N

TTY

065566
065566

000025

ST
BNE
MOVB
TYPE
MOV
DEC
P
8LO

MOVB

000134
065566

MOVB
(MPB
BNE

065566

TYPE
8R
ST

BEQ
MOVB
TYPE

78:

CLR
(MPB
BNE

R3,=(SP)
-(SP)
#STTYIN.R3

#STTYIN+S.
,R3
4$

(SP)+,(R3)
#177.(R3)
58
(SP)
63
#'\,9%
.98
#-1,(SP)
R3
R3,#STTYIN
X3
(R3),9%
9%
$
(sp)
78

;o INPUT A STRING FROM THE TTY
: ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:;TERMINATOR WILL BE A BYTE OF ALL 0°'S

;2SAVE R3

:2CLEAR THE RUBOUT KEY
;:GET ADDRESS
2 :BUFFER FULL?
;:BR IF YES
2260 READ ONE CHARACTER FROM THE TTY
2:GET CHARACTER
..Is IT A RUBOUT
:2BR IF NO

..IS THIS THE FIRST RUBOUT?
B8R IF NO

,.TYPE A BACK SLASH

:¢SET THE RUBOUT KEY
: sBACKUP BY ONE

..STA%; EgPTY’

..SETUP T0 TYPEOUT THE DELETED CHAR.
;GO TYPE

;G0 READ ANOTHER CHAR.

..RUBOUT KEY SET?
N
:BR IF

#°\,9%

$ITYPE A BACK SLASH

(SP)
#25,(R3)
8s

scCLEAR THE RUBOUT KEY
s:1S CHARACTER A CTRL U?
J:BR IF NO

.98

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 42-4
TTY

SEG 0257

INPUT ROUTINE

065456

Qe3ue

065466
065470
0656472
065476
065500

104401

065605

122713
001011
105013
104401
104401

000022

001217
065570

104401

001216

48:

111337
104401

065566
065566

38:

000726

065506

000717

065512

000712

065506
065516
065520

065526

065530
065532
065536
065542
065544

065546
065550
065556

065564
065566

065567

122723

001305
105063
104401
005726
012603

011646
016666
012766

000002
000

000004
065570

000

107
012
040

3 065642

005737

000042

136
136

001002
000137

103
125

005426

6 065654 005037 001300
7 065660

000002
000004

000137

041314

015
015

015
123
116

TYPE

$QUES

SITYPE A *2°

::G0 PICKUP ANOTHER CHACTER

CMPB

#15,(R3)+

::CHECK FOR RETURN

MoV
MOV
MOV

(SP) ,~(SP)
4(SP),2(SP)
#STTYIN.G(SP)

:;ADJUST THE STACK AND PUT ADDRESS OF THE
3
FIRST ASCII CHARACTER ON 17

MOVB
TYPE

STTYIN:
SCNTLC:
S$CNTLU:
SCNTLG:
SMSWR:
SMNEW:

.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

1$:

::G0 START OVER

$:1S CHARACTER A '*R""
*:BRANCH IF NO
{:CLEAR THE cuAnAcrga
S:TYPE A "'CR”
&
*STYPE THE xupur srn:nc

RTI
.BYTE

SHUT:

::TYPEA CONTROL 'V

#22,(R3)
3$
(R3)
,SCRLF
STTYIN

9s:

.EVEN

$CNTLU

(MPB
BNE
CLRB
TYPE
TYPE

BNE
CLRB
TYPE
ST
MOV

177777
001220

136
015
040

& 065646
S 065650

8s:

000015

065570
065600
065605
065612
065617
065630

TYPE

BYTE

(R3).9%
.98

2
=1(R3)
,SLF
(SP)+
(SP)+,R3

0
0
8.
/3C/<15><12>
/4U/<15><12>

:;CLEAR THE BUFFER AND LOOP
;:ECHO THE CHARACTER

::LOOP IF NOT RETURN
¢ CILEAR RETURN (THE 15)
::TYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3

; ;RETURN
::STORAGE FOR ASCII CHAR. TO TYPE
+ : TERMINATOR

2:RESERVE
::CONTROL
::CONTROL
/%6/<15><12>
::CONTROL
<15><12>/SWR = /
/ NEW = /

8 BYTES FOR TTY INPUT
''c"'
‘U’
'‘G'’

TST

w62

:ANY MONITOR PRESENT ?

CLR

SDEVM

SFUDGE
NO DRIVES IN MAP

BNE
JMP
JMP

18
START

$EOP

:BR IF YES
*GO TO START

*RETURN TO $EOP

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 43

SEQ 0258

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

ttttttttttttttttttttttttt'ttfittfilt'tttttttttttt'ttttttt'ttitt't

24THIS ROUTINE WILL READ AN OCTAL

'E:ffsf IT TO BINARY.
o'

RDOCT

;;READ AN OCTAL NUMBER

RETURN HERE

;:LOW ORDER BITS ARE ON TOP OF

iw
065664

011646

065676

010146

065666 016666
C65674 010046

065700

010246

065702 104412

000004

000002

*:HIGH ORDER BITS ARE IN SHIOCT

SRDOCT: MOV

RDLIN

005726
010166

38:

065756
065760
065762
065764

012601
012600
000002
000000

MOV
MOV
RTI
SHIOCT: .WORD

065750

010237

+:PUSH R1 ON STACK

nz -(SP)

065742
065744

065754 012602

R1.-(SP)

MOV

012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601

065740 000764

..PROVIDE SPACE FOR THE

4(SPS ,2(SP)
RO, - ($P)

065704
065706
065710
065712
065716
065716
065720
065722
065724
065726
065730
065732
065736

28:

(SP) ,~(SP)

MOV
MOV

MOV

18:

(ASCII) NUMBER FROM THE TTY AND

MOV
CLR
CLR
MOVB
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD

(SP)+,RO
R
R2
(RO)+,=(SP)
3s
R1
R2
R1
R2
R1
R2
#4C7,(SP)
(SP)+,R1

ST
MOV

(SP)+
a1 12(SP)

B8R

MOV

*INPUT NUMBER
+:PUSH RO ON STACK
$:PUSH R2 ON STACK

:SREAD
AN ASCIZ LINE

::GET ADDRESS OF 1ST CHARACTER
::CLEAR DATA WORD
::PICKUP THIS CHARACTER
33 1F ZERO GET OUT
112
sivh
;:%8

;:STRIP THE ASCII JUNK
:1ADD_IN THIS DIGIT

::L00P

*3CLEAN TERMINATOR FROM STACK
$3SAVE THE RESULT

.SHIOCT

5)+ R2
(sp>+.a1
(SP)+,R0

::POP STACK INTO R2

$:POP STACK INTO R1
$:POP STACK INTO RO
* SRETURN
. :;HIGH ORDER BiTS GO HERE
-

THE

STACK

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-~JAN-82 16:264:51 PAGE 44

SEQ 0259

TRAP DECOOER

.SBTTL

TRAP DECODER

JIN R ANA NA ARAR

A A AN A

AT RO N AN

AN RANNCRAA RN AN

AR AANRNNNAAAA

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

:*GO TO THAT ROUTINE.
016646
0642716
012746
000002
010046
016600
005740
111000

006300

066024

016000
000200

$TRAP:

Mov
8IC
MOV
RTI
MoV
MOV
TST
MovB
ASL
MOV
RTS

066004
1$:

000002

066040

2(SP) ,~(SP)

#20, (SP)
#1$,-(SP)
RO,=(SP)

2(SP) ,RO
=-(RO)
(80).R0
R

$TRPAD (RO) ,RO
RO

s;ASSUME THE STATUS OF
:s THE CALLER=--DO NOT ALLOW
s; T=BIT TRAPS
s+ SET _THE NEW STATUS

2 :SAVE RO
s:GET TRAP ADDRESS
;:PACKUP BY 2
;cGET RIGHT BYTE OF TRAP
c;POSITION FOR INDEXING
s INDEX TO TABLE
:2G0 TO ROUTINE

:;THIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
066026
066030
066036

011646
016666
000C02

000004

000002

$TRAPZ2: MoV

MOV
RTI

.SBTTL

(SP) ,~(SP)

4(SPS,2(sP)

s :MOVE THE PC DOWN
s ;MOVE THE PSW DNWN
s ;RESTORE THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE

'‘TRAP*’

INSTRUCTION.

ROUTINE

066040
066042
066044
066046
066050
066052
066054

066026
061536
061334
061310
061359
061064
061010

066056

066060

066072

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
STYPBN

STRAP?

s s CALL=TYPE
s s CALL=TYPOC
¢ s CALL=TYPOS
ssCALL=TYPON
s s CALL=TYPDS
s CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WJITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

064772

$GTSWR

s CALL=GTSWR

TRAP+7(104407)

GET SOFT-SHYR SETTING

064702
065244

$CKSWR
SRDCHR
$RDL IN
$RDOCT
$SAVREG
SRESREG

2 s CALL=CKSWR
s s CALL=RDCHR

065334
065664
060714
060752

s s CALL=RDLIN
s CALL=RDOCT

;;CALL=SAVREG

;;CALL=RESREG

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

SAVE RO-R5> ROUTINE
RESTORE RO-R5 ROUTINE

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 45
POWER DOWN AND UP RNUTINES
.SBTTL

POWER DOWM AND UP ROUTINES

JINERANANA R AN NN R A AN AR AN

046

066234
000340

113024
066240
066146

000024
000026

SEQ 0260

PN AR

A RAR RN NN R

RANRN I AR AN ANRNANNROANY

:POWER DOWN ROUTINE
#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
$PWRDN: MOV
MoV
#360,34PURVEC+2 ;;PRIO:?7
Mov
RO,=(SP)
:cPUSH RO ON STACK
MoV
R1,-(SP)
s :PUSH R1 ON STACK
MoV
R2,=(SP)
::PUSH R2 ON STACK
MOV
R3,=(SP)
:;PUSH R3 ON STACK

MoV
MOV
Mov
MoV
Mov
HALT

000024

B8R

Ré,-(SP)
R5,-(SP)

::PUSH
::PUSH
aSWR,=(SP)
s :PUSH
SP,$SAVR6
s SAVE
#$SPWRUP ,a#PWRVEC ;;SET

.~2

R4 ON STACK
R5 ON STACK

@SWR ON STACK
SP
UP VECTOR

s cHANG UP

o RNRRRARRPAARARAAANRR
R AR A AR RAAN SRR AR AR RANN
RN RNRAANINANRARNNS

066234
066240
066240
066240

000024

066236
066240
066242

[

——

012

$PWRUP: MOV
Mov

18:

112756

066074
000340

:POWER UP ROUTINE

CLR
INC
BNE

Mov

000024
000026

120

MOV
Mov
MOV
MoV
MoV
MoV
MOV
Mov
TYPE
SPWRMG: . WORD
RT!I
:
SILLUP
HALT
BR

$SAVR6: 0
$POVWER: LASCIZ
.EVEN

#SILLUP ,@#PWRVEC ;;SEl FOR FAST DOWN
$SAVR6, SP
;sGET_SP
$SAVRG
soWAIT LOOP FOR THE TTY
$SAVR6
s:WAIT FOR THE INC
18
:c0F
WORD
(SP)+,3SWR
:cPOP STACK INTO aSWR

(SP)+,R5

:sPOP STACK INTO RS

(SP)+,R4
:sPOP STACK INTO Ré4
(SP)+,R3
:;POP STACK INTO R3
(SP)+,R2
:sPOP STACK INTO R2
(SP)+,R1
::POP STACK INTO R1
(SP)+,R0
:;POP_STACK INTO RO
#SPWRDN ,8“PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,3/PURVEC+2 ;;PRIO:7
$POWER

.2
<15><12>"'POWER"

sREPORT THE POWER FAILURE

s ;POWER FAIL MESSAGE POINTER

;s THE POWER UP SEQUENCE WAS STARTED

:; BEFORE THE POWER DOWN WAS COMPLETE

::PUT THE SP HERE

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 46

SEQ 0261

COMMUNICATIONS ROUTINE

.SBTTL

APT COMMUNICATIONS ROUTINE

P ARRRRRRRARARAAAA
NN R AR LR R RA A AN AR AN AN AAANANARRERRANINR ARRNR

000001
000001

066316
066514

000001

066516

$ATY1:

SATY3:

SATY4:
SATYC:

066514
000001

001242

000100

001243

000004
000002
001222

000004

001236

1$:

2s:

001240
000004
000004
000002
177776

001222
066426
000004

061536

105737
001416
005737
001413

066476

—d md wd b b
OO
OmbNOgN

3s:

gg:

108:

066516
001242
001222

000004
000002
001222
066516
066515
066514

mOVB

#1,$FFLG

s:TO REPORT FATAL ERROR
::T0 TYPE A MESSAGE

#1,8FFLG

:2TO ONLY REPORT FATAL ERROR

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
8EQ
MOV
ADD

RO, ~(SP)
R1,=-(SP)
SMFLG
58
WAPTENV,SENV
3s
WAPTSPOOL,SENVM
3$
34(SP) ,RO
#2,4(SP)

;:PUSH RO ON STACK
:sPUSH R1 ON STACK
;sSHOULD TYPE A MESSAGE?

BNE
MOV

1s
RO, $MSGAD

MOVB
BR

#1.SMFLG
sAfYC

MOVB

1ST8

BNE

Su8

001236

gezgses

APT

118:

001224
000004
128:

SMSGAD
, RO

::SUB START OF MESSAGE
ssGET MESSAGE LNGTH IN WORDS
s;PUT LENGTH IN MAILBOX
;o TELL APT TO TAXE MSG.

34 (SP) .48
#2.4(SP)

;:PUT MSG ADDR IN JSR LINKAGE

JSR
LWORD

PC.STYPE
0

$3CALL TYPE MACRO

ISTB

S$FFLG

SENV

SMSGTYPE

RO
RO, SMSGLGT
#4,SMSGTYPE
(1

MoV

170776,~(SP)

::PUSH 177776 ON STACK

+:SHOULD REPORT FATAL ERROR.
;:1F NOT: BR
: ;RUNNING UNDER APT?

MOV
ADD

BEQ

BNE
MOV
ADD
INC
(LRB
CLRB
MoV

000200
000001
000700
000040

(RO)+

ASR
MOV
MOV
BR

CLRB
MOV

SMFLG:
$SLFLG:
$SFFLG:

$MSGTYPE

BR
;:IF NOT:
: sOPERATING UNDER APT?
J¢IF NOT: BR
2 SHOULD SPOOL MESSAGES?
BR
::IF NOT:
2 sGET MESSAGE ADDR.
::BUMP RETURN ADDR.
2:SEE IF DONE W/ LAST XMISSION?
WAIT
2sIF NOT:
J2PUT ADDR IN MAILBOX
JsFIND END OF MESSAGE

RTS
.BYTE

.BYTE
.BYTE
.EVEN
APTSIZE = 200

APTENV
= 001
APTSPOOL= 100

APTCSUP = 040

128

12%

118
84 (SP) ,SFATAL
#2,4(SP)
SMSGTYPE
S$FFLG
S$LFLG
SMFLG
(SP)
+ ,R1
(SP)+.R0

PC
0

0
O

- -BUMP RETURN ADDRESS

2:1F NOT:

:SFINISHED LAST MESSAGE?
SSIF NOT: WAIT
*:GET ERROR #
; :BUMP RETURN ADDR.

::TELL APT TO TAKE ERROR

*:CLEAR FATAL FLAG
:3CLEAR LOG FLAG

:3CLEAR MESSAGE FLAG
::POP STACK INTO R1
$:POP STACK INTO RO
*SRETURN
SSMESSG. FLAG
2:L0G FLAG
:FATAL FLAG

CZRNDAQ RMBO FCTNL PT1
CONSOLE MESSAGES

MACRO v04.00 28-JAN-82 16:24:51 PAGE 47

.SBTTL

075

000

5 066527

040

077

040

200
200
040
122
040
200
200
200
040
200
104
200
122
040

124
122 114
115
114
124
101

131
115
111
126
111
131
116

077
10%
122
125
175
116

111
122
111
116
070
117

CNSLOB:
CNSLO9:
MSDRVS:
MSGDRV:
SYSTAT:
S$RMBO:
NOTRM:

200
200

104
120

117
105

MSMNUL: .ASCIZ
MSUNIT: .ASCIZ

6 066533

? 066536
8 066567
9 066577
10 066641
11 056650
12 066704
13 066771
14 067046
15 067047
16 067070
17 067104
18 067112
19 067130
20 067135

101

054

21 067152
22 067167
23 067204
24 067223
25 067234
26 067244
27 067273

040
040
040
040
040
200
116

30 067443
31 067527
32 067617
33 067655
34 067720
35 067750
36 067771
37 067773
38 067775
39 067776
40 067777
41 070000
42

200
200
m
120
200
120
116
131
040
040
040
040

28 067300
29 067360

114

040

114
116
116
117
117
104
117

012
124
116
125
124
114
000
000

000

114

000

117
117
117
106
116
122
116
102
110
123
114
131
125

EQUALS:

.ASCIZ

@=d

.ASCIZ

@7 @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
«ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>@TYPE HELP TEXT (L) N ? @
<CRLF>3RMCS1=d
& LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
QRMVE(C=a
@ LIMITS - LO=
0, HI= 10003<CRLF><LF>
<CRLF>3TYPE ‘'A’*
TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>QAND TERMINATE INPUT WITH A CARRIAGE RETURN.d
<CRLF>
& ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/
/RMBO/
/ NOT AN RMBO/

ALL:

«ASCIZ

COMMA:

_ASCIZ

QUES:

MSHELP:
CNSLO1:
CNSLO2:
(CNSLO3:
CNSLO4:
CNSLO7:

LODEV:
NOTPRS:
NOTAVL:
UNTOFF:
UNTON:
DRIVES:
NONE:

SEQ 026

CONSOLE MESSAGES

P4
3 066520

& 066522

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

MINSTR: .ASCII1
<ASCIZ
INSERT: .ASCIZ
PULL:
.ASCIZ
RET:
ASCIZ
DONE:
.ASCIZ
N:
LASCIZ
Y:
ASCIZ
BLNKS4: .ASCII
BLNKS3: .ASCII
BLNKS2: .ASCI1
BLNKS1: ASCIZ
.EVEN

@ALL@<CRLF>

@8, @

/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
<CRLF>/DRIVE(S) TO BE TESTED/
/NONE/

<CRLF>/DO YOU WANT MANUAL INTERVENTION TESTS (L) N ? /
<CRLF>/PERFORMING °'LOGICAL ADDRESS PLUG TEST' ON DRIVE #/

<CRLF><LF>/BEFORE PROCEDING WITH THE TEST, POWER DOWN OR PULL/
<CRLF>/THE ADDRESS PLUGS FROM ALL DEVICES NOT BEING TESTED./<CRLF><LF>
/INSERT LOGICAL ADDRESS PLUG #/
/PULL LOGICAL ADDRESS PLUG #0, THEN/
<CRLF>/TYPE <RET> WHEN READY./
/PLUG TEST DONE!/<CRLF>
/N/
/Y/
/ /
/ /
/ /
/1 /

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 48

SEQ 026

S IR —

FUNCTION CODE TABLE

.SBTTL

FUNCTION CODE TABLE

sTHE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
sEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS:

ATA = BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

WCE - BIT 14 IS SET IN THE FNTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

b cad =D ek

= O D00
W

:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET,

INOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
sIT IS NOT EXPECTED AS A RESULT OF THE COMMAND.

b od =

OP1 - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

) d

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

:THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE'TM', *WCF'', 'DPETM, ‘UPETM.

JAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

:
AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:1F_READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
;COMMAND,, ' THE ERRORS ENABLED BY THIS BIT ARE 'TRE'’,

SMXFT, TLBT', AND “AOE''.

'DLT",

'NEM",

8IT 08 IS NOT USED.

HCE ~ BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
:HEADER ERRORS INCLUDE 'MCRC'', 'MCE'', 'FER', ‘BSE'' AND '‘SSETM.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT
;COMMAND,
~THESE ERRORS INCLUDE 'MDPE'’, 'DCK'', AND "ECH'".

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

8IT 03 IS NOT USED.

BIT 02 IS NOT USED.

BIT 01 IS NOT USED.

gg 070002
57 070002

ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

FNCDTB:

020000

WORD

sFUNCTION CODE TABLE

OPI

:NOP

CZRNDAD RMBO FCTNL PT1 MACRO Y04.00 28~JAN-B2 16:24:51 PAGE 48-1

58 070004
59 0720004
60 070010

61 070012
62 070014
63 070016
64 £70020
65 070022
66 070024
67 070026
68 070030
69 070032

70
71
72
73
74

070034
070036
070040
070042
070044

75 070046
76 070050
77 070052
78 070054
79 070056

87 070076

88 070100

130001
132000
130000

.WORD
. WORD

éguwww

SEQ 0264

TABLE

0001

pur oy

FUNCTION CODE

OPIIATA!ILF
! IVC

sILLEGAL FUNCTION (2)

ATA!CPI!IVC
OPl
OPI!IVC
OPIIATA!IVC
OPI!ATA!IVC
0Pl
CPl
OPIIATA'ILF!IVC
OP1:ATA!ILF!IVC
ATA!OPI!IVC!IAE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IV(C
OP1!ATA!ILF!IVC
OPJI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATAYILF!IVC

sRECALIBRATE
sDRIVE CLEAR
sRELEASE

ATA!OP1!IVC!IAE

OPI!ATA!ILF!IVC

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

WCE!OPI!IVC!IAE!AQE !HCE!ECH
WCE!OPI!IVC!IAE!AOE!HCE'ECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVCIWLE!IAE!AOQE
'HCE
OPI!IVC!WLE!IAE!AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!IAE!AOE !HCE!ECH
CPI'IVC!IAE!AOE'HCEECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!1IVC

s SEEK

OFFSET
JRETURN TO CENTERLINE

sREAD IN PRESET
sPACK ACKNOWLEDGE
sILLEGAL FUNCTION (24)
;ILLEGAL FUNTTION (26)
s SEARCH
sILLEGAL FUNCTION (32)
sJLLEGAL FUNCTION (34)
sILLEGAL FUNCTION (36)
sILLEGAL FUNCTION (40)
sILLEGAL FUNCTION (42)
sJLLEGAL FUNCTION (44)
sILLEGAL FUNCTION (46)
JWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
sILLEGAL FUNCTION (54)
¢ILLEGAL FUNCTION (56)
SWRITE DATA
sWRITE HEADER AND DATA
sILLEGAL FUNCTION (64)
¢ILLEGAL FUNCTION (66)
sREAD DATA
sREAD HEADER AND DATA
sJILLEGAL FUNCTION (74)
s JILLEGAL FUNCTION (76)

(ZRNDAU RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 49

ATTENTION

(ATA)

TABLE

3 070102

001

S 070104
6 070105

004
010

4 070103

7 070106

002

020

.SBTTL

ATTENTION (ATA)

ATNTBL:

.BYTE
.BYTE

4.
8.

32.

.BYTE

040

.BYTE

10 070111

200

.BYTE

100

BYTE
.BYTE

8 070107
9 070110

.BYTE

16.

64.

128,

TABLE

SEQ 0265

CZRNDAQ RMB0O FCINL PTY MACRO V04.00 28-~JAN-82 16:24:51 PAGE 50
ERROR MESSAGE TABLE

070112
070116
070124
070132
070140
070146
70154
70162
70166

074564
074633
074633
074756
074756
10153

07754
075053
075120

000000
074650
074713
075006
075120
077001
101577
000000
00V000
075173
075245
077001

43
44
45
46
47
48
49

070554
070566
070604
070622
070632
070644
070662

50 070672
51 070710

075162

075162
076367
076367
076416
10,001
076445
101552

076570
077174

OO QOO0
NN NN
W\ wviavawn
[+ 374
Q&
On &~

70246

SEES
NS

0756413

075635
075664
075712
075763
076012
076041
076067
076116
076144
076173
076222
076275
075370
100753
10105
076505
076305
076305
076305
077.J1
075356
076340
076505
076505
076305
101016
077207
077217
077135
076570
077135
102775
101202
102177
077443
077443

000000
000000
000000

000000
000000

000000
075256
000000
000000
075565
075576
075576
075565
075565

075576
075576
075576

075576
075576
075576
075576
075576
075576
075576
075576
075576
075576
000000
077261

077207
077261

077261
077261
077261
000000
076753
075576
077135
077135
077135
076505
077135
077135

077747
077135
077747
075370
077162
102360

077207
077207

.SBTTL

ERROR MESSAGE TABLE

EMT1:
EMT2:
EMT3:
EMT4:
EMTS:
EMT6:
EMT7:
EMT10:
EMT11:
EMT12:
EMT13:
EMT14:

_WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD

EMT16:
EMT17:
EMT20:
EMT21:
EMT22:
EMT23:
EMT24:
EMT25:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT35:
EMT36:
EMT37:
EMT40:
EMT4]:
EMT42:
EMT43:
EMT44:
EMT4S:
EMT46:
EMT47:
EMTSO:
EMTS1:
EMTS2:
EMTS3:
EMIS4:
EMTSS:
EMTS56:
EMTS7:
EMT60:
EMT1:
EMT62:
EMT63:
EMI64:
EMI65:
EMTG6:
EMT67:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_4WORD

EMT15:

.WORD

.
.WORD
.WORD
.WORD

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

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

.WORD
,WORD

SEQ 0266

EMS1,0
EMS2.EMS3.0
EMSJ . EMS&.0
EMSS.EMS6 .0

EMSS §As16 0
EMS167,EMSE4 , 0
EMS110,EMS170.0
EMS7,0

Ems10,0

EMS11.EMS12,0
EMS13,EMS14.EMS15,EMS16.0
EMS17.EMS64.0
EMS11.EMS21.0
EMS11.EMS22.EMS27.0
EMS11.EMS23.EMS30.0
EMS11.EMS24 .EMS30.0
EMS11.EMS2S EMS27.0
EMS11.EMS26
.EMS27.0
EMS11.EMS31.EMS30.0
EMS11.EMS32.EMS30.0
EMS?1.EMS33.EMS30.0
EMS11.EMS34.EMS30.0
EMS11.EMS3S
. EMS30.0
EMS11.EMS36.EMS30.0

EMS11.EMS37EMS30.0
EMS11.EMSL0 ERS30.0
EMS11.EMS41.EMS30.0
EMS11.EMS42.EMS30.0
EMS11.EMS4GS EMS30.0
EMS11.EMS44 . EMS30.0
EMS11.EMS4S.EMS30.0
EMS66.ENS20 0

EMS7S.EMS141 EMS76,0
ens14£.en§145.snsré.ens76,o

EMS47 . EMS g.snsre,o
EMS77 . EMS53

EMS76.C

EMS101.EMSS3

EMS76.0

EMS100,EMS5S, EMS76.0
EMS6S,EMS64,0

EMS13.EMSTS.EMS63.0
EMST1.EKS4H.EMS30,EMS67,0

EMS47 EMSS3.EMS67.EMS115,EMS140,EMS141,0
EMS47.EMSS3
EMSSO . EMSS

EMS67 EMST15 EMS141.EMS164.0
Snssr g

EMS142 En;1£ EH;S LEMS67,0
EMSS1 ,ENS ; EMS67 EMS115,EMSS0,EMS?0,0
EMS167.ENS?S EMS6?.0
EMSS6,EMNS67,EMS115,EMS150,EMS152 EMS70,0
EMS71 EMSS6 EMS67 §n511s éns1;o,snstsz.snsrz.o
snsz4g.£nssf EMS115, EMSL? EMS70.0
EMS2 .enszgé.ens;o.o
EMS150 EMS152 EMS70.EMS115,EMSS6,EMST3 EMS67,0

EMSS2 EMS205,EMS214
. EMS206 . EMST 15,EmsST,sms78,0
EHS165.EHSIO§.EHS?2.EHSI 4.0
EMS165.EMS103,EMS72.EMS171.0

CZRNDAQ KM30 FCINL PT1
ERROR MESSAGE TABLE

S8 071040

59 071050
60 071060
61 071076

62 071114
63 071124
64 071144

076340

075370

076570
077176
0766416

076505
376570
076505

077174
076367
076367

65 071154
66 071166

101007
077253

68 071222
69 071232

101552
101122

67 071206

077253

70 071244

076445

74 071322
75 071334
76 071362

077547
077673
077673

71 071262
72 071272
73 071302

77 071350

78
79
80
81
82

071354
071364
071374
071404
071414

MACRO V04.00 28-JAN-B2 16:24:51

101511
101511
101044

077547
100026
100067
100124
100167

EMT101:

.WORD

EMT104:

.WORD

077752
G00000
000000

EMT110:
EMT111:
EMT112:

.WORD
.WORD
.WORD

100510
100510
1005:0
100510

EMT114:
EMT115:
EMT116:
EMT117:
EMT120:

.WwORD
.WORD
.WORD
.WORD

EMS46,EMS20,EMS163.0

EMT?7: .WORD
EMT100: .WORD

EMS143.EMS143, EmSSS.EMS163.0
EMS75.EMS141.EMS163.EMS115
. EMS47,EMS70.0

077217
101156

101404
077234

EMT102: .WORD
EMT103: .WORD

077340
077312
101056

101404
101404
C76505

EMT105: .WORD
EMT106: .WORD
EMT107: .WORD

EMS165,EMS100,Ems143,0
EMS165.EMS77.EMS163.0
EMS134.EMS145,
EMSS3 EMS163 EMS115,EME143,EM570,0

EMT113: .WORD

EMS110.EMS135,EMS116,EMS117.EMS114.,0

101137

077234

077607
074713
074650

077747
1004646
100464
100464
100464

100464
100464
100464
100464
100464
100464
100464
100464
100464
100664
100464
100466
100464
100464
100466
100464
100464
100464
077747
077747

112 0720640

101122

101156

101122
101354

.WORD
.WORD
.WORD

SEQ 0267

076505
101404

100067
100724
100167
100221
100264
100675
100366
100424
100024
100126
100024
100675
100167
100221
100264
100426
101626
100366
100732
101001

113 072052
114 072064

EMT74:
EMT?S:
EMT?6:

101016
100753

89 071506
90 071520
91 071532
92 071544
93 071556
94 071570
95 071602
96 071614
97 071626
98 071636
99 071646
101 071656
10: 071666
102 071676
103 071706
106 071716
105 071726
106 071736
107 07174C
108 071760

1010«4
101044
101137

101406
101404
101404

EMS71.EMS10f ens1g$ 0
EMS47.EMS72,EMS163.EMS115,EMS140.EMS141,0
EHS47.EHS7§.EHS163,EHS11S.EHS161.EHS72,6

100464
1004646
100464
100464
100464

109 071772
110 072010
111 072026

.WORD

101404

077752

100510
100510
100510
100510
100510

EMT7?1:
EMT72:
EMT73:

50-1

.WORD
.WORD
.WORD

100221
1002664
100675
100364
100424

100024

EMT?0:

101406
101404
101404

83 071626
84 071434
85 071444
86 071454
87 0714664

88 071474

101404

077366
077207
077207

PAGE

EMT121:
EMT122:
EMT123:
EMT124:
EMT125:

EMSS6.EMSS3.EMS163.0
snsn.snssg,ensws.sm1s.ens1so.en5152.snsrz.o
EMSSO.EMSS 5"5163 0
EMS75 sns1so.sns1eg.ens11s.ensse.sus73.o

EMS167,EMS73.EMS163.0
EMS147.EMS151,EMS74
. EMS163.0

SMSS1,.EMS74 rns163,§ns11s.ensso.snsro.o

EMS110.EMS112.EMS116,EMS111,0
EMS113.EMS4,0
EMS113.EMS3.0
:NOT USED
EMS121,EMS132,EMS133.0
EMS1 g.ens13 JEMS133.0
EMS1
.ens135.ens133.o
EMS194.EMS132.EMS133
0

.WORD
.WORD
.WORD
.WORD
.WORD

EMS105.EMS132.EMS133.0
EMS126.EMS132 EMS133.0
EMS137.EMSI32.EMS133.0
En5130.£ns132.sns1§3.o
EMS131.EMS132.EMS133.0

100464 100533 EMT126: .WORD

Emguflu

LEMS134,EMS123.0

100533
100532
100533
100533
100533
100533
100533
100533
100575
100575
100650
100650
100650
100650
100650
100650
100550
100653
100753
101016

EMT127:
EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT134:
EMT137:
EMT140:
EMT141:
EMT142:
EMT143:
EMT144:
EMT14S5:
EMT146:
EMT147:
EMTISO:
EMT151:
snr1s§=

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

EMS1 §,EHS1
LEMS134.EMS123.0
EMST23.EMS132.EMS134 EMS123.0
EMS104.EMSI30.EMS134 EMS123.0
EMS1 s,ens1§ LEMS134.EMS123.0
EMS1 9.£nst 2.5ns1§4.5ns123,o
EMS137.EMS132.EMS134.EMS123.0
EMS130.EMST g.sns134.sns123,o
EMS131.EMS132.EMS134 EMS123.0
EMS127.EMS132.EMS135.0
EMS1I3 EMS132.EMS135.0
EMS121.EMS13J.EMS136.0
EMS137.EMS132.EMS136.0
EMS124.EMS13J_EMS136.0
EMSTOS.EMS130
EMS136.0
EMS106.EMS132
EMS136.0
EMS131.EMS13J.EMS136.0
EMS1 1.sns1§ "EMS136.0
EMS130.EMS132.EMS136.0
sns14g.ens11s,ens141.Ens7o.o
EMS142.EMS115.EMS143.EMS?72.0

101250

EMT156:

.WORD

EM5147.EMS157.EMS154
. “M5155.0

101054
101054
101202

101103
075370
101250

101156
101304

101304
101337

EMT153: .WORD
EMT154: .WORD
EMT155: .WORD
EMT157: .WORD
EMT160: .WORD

EMS144.EMS145.EMS146.EMST15, EMS143, EMS72.0
EMS144.EMS145.EMS20, EMS115,EMS143.EMS70,0
EMS1S0.EMS152.EMS154,EMS155.0
EMS147.EMS151.EMS156 EMS157.0
EMS161.EMS156. EMS160.0

NN NINNININ
S NN

OSSP OOWOOOOD

BOONONWNN AASNNNNOONON

OO
&
=8
O

-~ ed AL

Ardedaded
ed
) OCOO200O

N NI NI PO

SOt

vnd wd e

-t

-—bd

&»

~
N
o~

b e

wnd

103035
075576

b wd and o wd

077747

[
Prorpury
WA
—\N\A
[aS1,8 1,V

[elele]

~n
~
~N
[=]

cand
e

ek amh ek b o

b wnd

101752

wd v
ot o

075576
075576
075576
075576
1€2106
077207
102106
077747
000000
077747
077747
076505
101525
076570
077001

077001
077001
077001
07731
07675
102752

b cmd cd

) wmd cmd wd wd b md i

b e

075527

WA NN N

wd =D

be
s o JUUS W W W W Y Y

PO NI NI NI NV A 2
-2 OO0
NNOS%&OOOQOOmMMM\Ammm\AMbbbbbbb&bbwuw&
VB WOV NOWNE WA OV NORWNB WOV
N m%umaoomwombwmagom:;d

5 072074

MACRO V04.00 2B-JAN-82 16:24:51
NNNNONN
=N
NNOO
= ONON
OOOOOOS
VIWIVALA
= AN

CZRNDAO RMBO FCTNL PT1
ERROR MESSAGE TABLE

075576

EMT161:
EMT162:
EMT163:
EMT164:
EMT165:
EMT166:
EMT167:
EMT170:
EMT171:
EMT172:
EMT173:
EMT174:
EMT175:
EMT176:
EMT177:
EMT200:
EMT201:
EMT202:
EMT203:
EMT204:
EMT205:
EMT206:
EMT207:
EMT210:
EMT211:

EMT212:
EMT213:

EMT214:
EMT215:
EMT216:

EMT217:
EM1220:
EHT%51:
EMT g:
EMT223:
EMT224:
ERT225:
EHTZZ?:
EHTZ% :
EMT230:
EMT231:
EMT232:
EMT233:
EMT234:
EM1235:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:
EMT244:
EMT245:
EMT246:
EMT247:
EMT2590:
EM7251:

.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
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PAGE 50-2

SEQ 026¢

EMS25,EMS27 .EMS156
EMS26
. EMS27 (EMS156

EMS47.EMS16%, EMS14
EMS47.EMS20,0
EMSSG6.EMS20.0
EMS4L6, EMS20. 0

Ems224.ems20,0

EMS203.EMS141,EMS30
EMS167.EMS154
. EMSTS?

EMS167 EMS154 . EMS155
EMS171.EMS132 EMS133
EMS171.EMS132.EMS134
EMS113.EMS177.0
EMS200,EMS201,0

Ms123,0

EMS203,EMS51,EMS30,EMS202, 0

EMS203.EMS204, EMS30,EMS202,0
EMS5203
. EMS50,EMS30, EMS202,0

EMS203.EMS145,EMS30, EMS202,0

EMS1S0.EMS74,EMS202 . EMS115.EMS152,EMS72.0

EMSS0, EMS103 EMS72,0
EMS104, EMS73.EMS205.0

EMS75,EMS141.EMST15.EMS140,0
EMS75.EMS150.0
EMSS51 EMS72,EMS115,EMS50,EMS70,0

EMS142,EMSSS. EMS115 EMS143,EMS 72,0
EMSS0,EMST03_EMSS3.0

EMSS52,EMS205.EMS166,
EMS206 ,EMS11S,EMSS1 ,EMS72,0

EMS52,EMS117.EMS56,EMS163.0
EMSS&.ENS30,EMS64
., 0

EMS&6.,EMS30,EMS64.0
EMS31.,EMS30.EMS64 .0
EMS47
. EMS30 EMS64 .0

Ensss.ens11?.ens77.o
EMSS2.EMS117.EMS63.0

snssg EMS117 EMS225 . EMS115,EMS226.0

EMS2 5.Ens§2?.snszsb.sns11§.£ns156.enszs1.snss7.o
EMS11,EMS230,EMS30, 0

EMS225,EMS226.EMS11S, EMS230,EMS72.0

EMS1,0

EMs203,EMS176,EMS30,0

167 ,EMS132,EMS207,
EMS167 ,EMS132 EMS210,EMS125,0
EMS167.EMS211 ,EMS210,EMS207 ,EMS206,0

EMS212,EMS213,0

v
aoo-ngwwwoN4

OCO=O==2OQO00O
—
N NONOONNMNNO

443
234

v
~=
b QO
N IR

226 074072
227 074104
228 076112

075664
076067
076445
077253
077253
076673
077752
075712
076541
076473

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

.WORD
.WORD
.WORD

.WORD

EMT321:
EMT322:
EMT323:
EMT324:
EMT325:
EMT326:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD

EMT330:
EMT331:
EMT332:
EMT333:
EMT334:
EMT335:
EMT336:
EMT337:

.WORD
.WORD
,WORD
.WORD
.WORD
,WORD
.WORD
.WORD

EHT3§7:

-WORD

EMT340: .WORD

EMT341: .WORD
EMT342: .WORD

W
.

EMS203.EMS101.EMS30,0

EMS203.EMS167 EMS30.0
EMS203
- EMS100.EMS30.0
EMST1,EMS4L6,EMS30,EMS102,0

EMSS1 . EMS74,EMS
102, EMS

1
EMS63
. EMSS3 EMSS7,EMST15,
EMS116,EMS5S, EMS4 T, EMSS7.
5

]

nNO

k>4

wn
NN

N0
N
o

17171

»
&
O
O
SN
OO~NN
v s W)
QO
OO

sns7s,ens14i.ens1oé.sn§

EMSS0,EMS146,EMST115.EMS
EMS47.EMSS3, EMS102, ERsT
EMS47
. EMS53 EMS102 . EMST

= mmom

EMS142,EMS143,EMSSS, EMS

EMSS6.EMSS3.
EMS102 . EMS1
EMS71.EMS56 EMS102 EMS1

—d

EMSS52,EMS117,EMSS6 EMS102,0
EMSS2 . EMS205,EMS220,EMS206,EMS115,EMSST,EMS72,0
EMS104
. EMS73 . EMS202 .0
EMSS0,EMSS3, FMS102,0

—-—N"ZEZ

.WORD
.WORD
.WORD
.WORD
.WORD

EMS165,EM$212,0
EMS147 EMS157.EMS1S 6 EMS210,EMS26,EMS27.,0

EMT271:
EMT272:
EMT273:
EMT274:
EMT275:
EMT276:
EMT277:
EMT300:
EMT301:
EMT302:
EMT303:
EMT304:
EMT305:
EMT306:
EMT307:
EMT310:
EMT311:
EMT312:
EMT313:
EMT314:
EMT315:
EMT316:
EMT317:
EMT320:

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

17]

SR
OB
L OONN
SEEENNMS
AN NOO

EHTZS%:
EMT2535:
EMT254:
EMT255:
EMT256:
EMT257:
EMT260:
EMT261:
EMT262:
EMT263:
EMT264:
EMT265:
EMT266:
EMT267:
EMT270:

SEQ 026%

)

3
2E

N(=] o

b ad md cand wmd

PNINIAINININONININY

203 073516
204 073530
205 073542

NNOONO O

=HOOOO
= QOC O~ -

e
b e
b

00
oo ~

b nh e

b d ncd ed mcd

73224

000020

PAGE 50-3

o
~
AN
o
W
o

KRRG2EBRIRAR

b ad

b b nd —
e cmch

0000000 NN~~~
%] N -2 O \OW NN

3 072750
072766
072776

NN =2 N N SN OMAN N —
ON=2 SO PANHANNNIOONONN)
—

172 072742

O OOOOOOO
b cd b
NONNNNN
b NGO

L/RNDAQ RMBQ FCTNL PT1
ERROR MESSAGE TABLE

EMS47,EMS53,EMS57,EMS115 1 .

EMS47 . EMSS3.EMSS7 1 EMST1 5.
EMSS6.EMSS3.EMSS7 1 EMST15.
EMS71 . EMS56 .EMSS3 EMSS7.E

EMS165.EMS100,EMST03,
EMSS
EMS165.EMS101.EMS103.EMSS

EMS165,EMS77,EMS103,EMSS7,(
EMS46,EMS30,
EMS64 ,EMSS7,0
EMSS50
. EMS53.EMSS7 0

EMS50,EMS146 EMS115,EMS52,EMST17,EMS46,EMS57.0
EMS162 EMS148.EMSS3
EMS57 .0
EMS104.EMS103.EMS53.EMS57.0
EMS105.EMS103.EMS53 EMS57 .0

EMS14%
. EMS145,EMS105.
EMSS P, EMS115,EMS142,EMS70.0
EMS42,EMS103,EMSS3,EMS57,0
EMS31,EMS103, EMSS3.EMS57.0
EMS71.EMS31 EMS103.EMS57.0

EMS43 EMST03,EMSS7.0

EMS45 . ENS103.EMS57.0
EMS44 . EMS103.EMS57.0

EMS106,EMS20.0
EMS36,EMS103.EMS57,0
EMS17%,EMS36.EMS105.EMS57,0

EMS172 enssa.ens123.snssr.o

EMS13,EMST74
. EMS15, EMS3S EMS53,EMS175.0
EMS147, EMS151 Ems74 EMS175,0
EMS66.,EMSS3,EMS175,0
EMS33.EMS103. EMS53.EMS175,0
EMS40,EMS103,EMSS3, EMS57,0

EMSS51.EMS74 EMS57,EMST15 EMSS0,EMS70,0

EMS7S EMS141.EMSS? EMS115,EMS4P EMS7S.U
EMS75.EMS150.EMS152,EMS57 EMS115,EMSSE,EMS73.0
EMS60 . EMS61,EMS62.0

EMS116,Ems117,EMSS4.,0

EMS34,EMS53,EMSS4,EMS111,0
EMSSS
. EMS34 .0

EMS52,EMS117,EMS56,EMSS7,0

(ZRNDAQ RM30 FLTNL PT1 MACRO V04.00 28~JAN-82 16:264:51 PAGE 50-4

ERROR MESSAGE

229 0761264
230 074136

231 074150
232 074160
232 074174

076473
976473

100002
075370
102177

101552

077217

102447

102136

236 074234

10237%

238 074250

100002
100002

076473
077530
076473

077253

237 074240

TABLE

236 074206

235 074224

102522

101137

900000

075370

076275
076222

EMT343:
EMT344:

,WORD
.WORD

102522
077747
102572

EMT347: .WORD

EMS52.EMS117.EMS221.0
EMS106,EMS20.EMS115.EMS223 EMS72,0
EMS52,EMS205.EMS222.EMS206,0

077414

EMT351: .WORD

EMS167,EMS?3,EMS102,0

077414

102417

000000

EMT34S: .WORD
EMT346: .WORD

EMSS2,EMS117,EMS4S,EMSS57.0
EMSS2,EMS117 ,EMS44 EMSS7,0

EMT350:

.WORD

EMT352:

.WORD

EMT353:

.WORD

EMT354: .WORD

EMS75,EMS150,EMS102,EMS115,EMSS6,EMS73,0

EMS215,0

EMS217,EMS203,EMS216,0

EMS221,EMS20,0

SEQ 027C

103725
104002

.WORD
.WORD

000000
000000
000000

.WORD
.WORD
.WORD
.WORD

TSH
EH1,STSH
STSH1,ST
’

EH110,0

EH111.0

EH1,0°

1i4 0

.WORD

EH223 STSH1,STSH2, STSH4, 0
EH256.STSH1,STSH2. STSHG. 0

.WORD

EH336,STSH1,STSH2,STSH4, 0

-WORD

VI
OV
S AN

103725

PAGE 51

~N—

nno

MACRO V04.00 28-JAN-B2 16:24:51

NN b b b
NSNS
S NESSNNOY

(=]

N NN il &
it

b
bbb d

OO0O0OCOO

ded

(=]

o
~
~
[
N

074300

103725
103725
103725

.WORD

EH337.STSH1,STSH2. STSH4, 0
EH344,STSH1,STSH2, STSH4., 0

103657

000000

.WORD

EH3S3.0

Sdedad

074256
074270

OO0

b
b
b end wed amd

WVIESMNNI
= OO 00 NOMN S NN —

CZRNDAD RMB0 FCTNL PT1
ERROR MESSAGE TABLE

SEQ 027

104300
104300
104300

14 074474

104252

104262
104262
104262

.WORD
.WORD

ED
ED

104226
1042640
104240

g —q

10 074442
11 074452
}% 074462

NY—2

104300

dmd

104262

10:
11:

N)ed

104216

104206

ED
ST

.WORD

ED
ED223,STSD1,STSD2,STSD4

7 074430

00U

104200

.WORD
.WORD

104174

g 074432

104300
104332

& 074424

2 074426

104262
104300

104166
104262

1 0764406
% 074416

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 52
ERROR MESSAGE TABLE

14:

23:

.WORD

EDT336: -WORD
EDT337: .WORD
EDT344: . WORD

ED336,STSD1,STSD2,STSD4
ED337,STSDI,STSD2,STSD4
ED337,STSD1,STSD2,STSD4,0

EDT353: -WORD

ED353

SEQ 027,

104344
104345

0 74520
0 74522

1064347
1046347

104363

074532
074542
074552

104352
104352
104352

1046363
104363

104363

104363
104363
104363

0 74562

1064347

wded

074514
074516

=
b

104363
104363

104363

NN
= OO 00 ~NO N

104345

2 074506

—

074476

MACRO V04.00 28-JAN-82 16:24:51 PAGE 53

—ded

TABLE

,STSF ,STSF,STSF

6,STSF,STSF,STSF
EF336,STSF,STSF
,STSF
EF336,STSF,STSF,STSF
N

(ZRNDAO RMBO FCTNL PT1

ERROR MESSAGE

EF114

SEQ@ 0273

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 54
ERROR MESSAGE STRINGS
!

SEQ 0274

.SBTTL

ERROR MESSAGE STRINGS

EMS1:

.ASCIZ

@WRONG UNIT SELECTED (RMCS2, BITS 0-2) @

EMS&:
EMSS:
EMS6:
EMS7:
EMS10:
EMS11:
EMS12:
EMSI3:

ASCIZ
ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@NONEXISTENT ‘NED'*
(RMCS2. BIT 12) @
@COMMAND NOT COMPLETED, @
@CONTROLLER NOT READY (RMCS1, BIT 7) @
@DRIVE NOT READY 'DRY"' (RMDS. BIT 7) @
@GO NOT RESET ''GO'*
(RMCS1, BIT 0) @
QINVALID @
@FUNCTION CODE (RMCS1, BITS 1-5) @
@MASSBUS @

3074566

127

122

6 076713
7076756
8 075006
9 075053
10 075120
11 075162
12075173
1307523,

116
103
193
106
107
111
106
115
103
102
042
126
123
127

117
117
117
122
117
116
125
101

116
115
116
111
040
126
116
123

122
110
117

EMS17:
EMS20:
EMS21:
EMS22:
EMS23:

.ASCIZ
.ASCIZ
ASCIZ

.ASCIZ
.ASCIZ

QTRANSFER ERROR (RMCS1, BIT 14) @
@SHOULD NOT BE SET @
@WORD COUNT (RMWC) @
@BUS_(RMBA) @
@'LBI' (RMDS, BIT 10) @

L 0764633
5074650

14 075245
15 075256
16 075300

17 075330
18 075370
19 075413

106
125

105
116

117
125
115

117

126
101

116
123
103

EMs2:
EMS3:

EMS14:
EMS1S:
EMS16:

.ASCIZ
ASCIZ

.ASCIZ
ASCIZ
.ASCIZ

aDEVICE WENT&
@UNAVAILABLE ‘DVA’* (RMCS1, BIT 11) @

@CONTROL @
@BUS PARITY ERROR @
@'MCPE'’
(RMCS1, BIT 13) @

20 075436
21 075452

102
042

125
116

101
117
122
123
102

23 075527
26 075546
25 075565
26 075576
27 075606
28 075635
29 (75664
30 0757212
31 075763
32 076012
33 076041
3% 076067
35076116
36 076146

1064
103
101
123
042
042
042
127
042
042
042
042
042
042

111
131
104
124
127
125
127
122
115
104
105
10&
115
1064

123
114
104
101
114
120
103
111
104
103
103
114
130
124

EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
FMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

@DISK (RMDA) @
SCYLINDER (RMDC) @
QADDRESS @
@STATUS @
@WLE'' (RMER1, BIT 11) @
@ UPE' (RMCS2, BIT 13) @
@'WCF''
(RMER1, BIT 5) @
WRITE CHECK ERROR-"MCE''
(RMCS2, BIT 14) @
@ MDPE'' (RMCS2, BIT 8) @
@'DCKTM (RMER1,’BIT 15) @
@ECH (RMERI. BIT 6) @
a'DLT'' (RMCS2. BIT 15) a
@MXF'' (RMCS2. BIT 9) a
@'DTE"
(RMERY, BIT 12) a

39 07675
40 076340
41 076367
42 076416
43 076445
44 076473
45 076505
46 076517
47 076341
48 076570
49 076645
50 076673
51 0767206

106
042
042
042
042
124
104
101
111
111
104
104
104

117
111
117
123
120
110
105
124
116
116
125
101
117

EMS45:
EMS46:
EMS47:
EMS50:
EMSS51:
EMS52:
EMS53:
EMSS4:
EMSSS:
EMS36:
EMS57:
EMS60:
EMS61:

54 077001

111

101
120

123

122
101
120
113
111
105
124
040
103
126
122
124
105
124
101

EMS62:
EMS63:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI/
[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

SFORMAT ERROR 'TER''
(RMERT, BIT 4)°a
@'TAE' (RMER1, BIT 10) @
@'DPI'* (RMER1. BIT 13) @
@'SKI'' (RMER2. BIT 14) @
@ PIP* (RMDS, BIT 13) @
QTHE RMSL @
Q@DETECTED @
@AT AN UNEXPECTED @
QINCORRECT DATA DURING @
QINVALID COMMAND ERROR '‘IVC''
(RMER2, BIT 12) @
@DURING DATA TRANSFER a
@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @
@' PAR" (RMER1, BIT 3) @

117

115

EMS65:

.ASCIZ

QCOMPOSITE ERROR

22 075500

37 076173
38076222

52 076735
53 076753

55077017

56 077065
57 077135

042

042
110

104
042
103

104
104

101

110
105

101
125

117

103
101

040
124
122

EM524:

EMS63:
EMS44:

EMS64:
EMS66:
EMS67:

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

@“AOE' (RMER, BIT 09) @

@'MCRC' (RMER, BIT 8) 3
@MEADER COMPARE ERROR 'MCE'' (RMER1, BIT 7) @

SIS INCORRECT'®

'ERR'*

@DATA PARITY ERROR 'DPE''
@DURING SEEK COMMAND @

(RMDS, BIT 14) @

(RMER2, BIT 3) @

CZRNDAQ RMB0O FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51
ERROR MESSAGE STRINGS

58 077162
59 077174
60 077207
61 077217
62 07723

63 077253
64 077261
65 077312
66 077340
67 077366
68 077414
69 077443
70 077452
71 077501
72077530
7307757
7 077576
75 072607
76 077651
77 077673
78 077723

111
105
111
104
104

116
104
042
042
042
106
105

042

79 077747

110
102
101
127
101
126
116
015

91 100424
92 100464
93 109510
9% 100533
95 100575
9% 100650
97 100675
98 100732
99 100753
100 101001
101 101016
102 101046
103 101054
104 101103
105 101122
106 101137
107 101156
108101202
109 101226
110 101250
111 101264
112 101304
113 101322
114 101337

03
102
103
105
101
115
105
105
115
116
125
103
122
104
1064
115
042
104
042
125
042
123
117
040
042
042
120
116
117
116
122
122

80
81
82
83
84
85
86
87
88
89
90

077752
100002
100024
100024
100067
100126
100167
100221
100264
100327
100366

1264
106

123
122
123
111
111

040
122
040
104
104

EMS?0:
EMS71:
EMS72:
EMS73:
EMS74:

.ASCIZ
[ASCIZ
(ASCIZ
CASCIZ
.ASCIZ

EMS115:

(ASCIZ

PAGE 54-1

SEQ@ 0275

@IS RESET @
QERRONEOUS @
@IS SET 3
@DID NOT SET @
aDID NOT RESET a

117
125
122
111
111
125
122
114
116
105
125
104
110
126
110
117

123
122
115
114
114
122
122
102
123
101
123
10%
105
040
105
116

EMS7S:
.ASCIZ
EMS?6:
ASCIZ
EMS77:
CASCIZ
EMS100: _ASCIZ
EMS101: .ASCIZ
EMS102: .ASCIZ
EMS103: .ASCIZ
EMS104: .ASCIZ
EMS10S: .ASCIZ
EMS106: .ASCIZ
EMS110: .ASCIZ
EMS111: .ASCIZ
EMS112: .ASCII
-ASCIZ
EMS113: [ASCIZ
EMS114: .ASCIZ

aLOST @
@DURING PACK ACK COMMAND 3
@'RMR'’ (RMER1, BIT 2) @
@'ILR'* (RMER1, BIT 1) a
@“ILF'*
(RMER1, BIT 0) @
@DURING SEARCH COMMAND @
QERROR @
@'1BC'' (RMER2, BIT 10) @
@'LSC'* (RMER2, BIT 11) @
@HEADER ERRORS @
@BUS TIMEOUT (04 TRAP) @
QADDRESS a
WHEN READING/WRITING RH REGISTERS @
QAT THE FOLLOWING @
@THE SELECTED DEVICE IS @
SNONEXISTENT DEVICE @

110
101

105
111

116
123
116
122
124
111
103
103

EMS116:
EMS117:
EMS120:
EMS121:
EMS122:
EMS123:
EMS124:
EMS125:
EMS126:
EMS127:
EMS130:

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

QTHE MASSBUS CONTROLLER @
QFAILED TO DETECT a
:NOT "USED
QCONTROL STATUS REGISTER 1, RMCS1,
@BUS ADDRESS REGISTER, RMBA, @
CONTROL STATUS REGISTER 2, RMCS2,
QERROR REGISTER 1, RMER1, @
SATTENTION SUMMARY REGISTER, RMAS,
QMAINTENANCE REGISTER #1, RMMR #1.
@ECC POSITION REGISTER, AMEC1, a
@ECC PATTERN REGISTER. RMECJ, @

111
116
040
111
111
104
117

EMS133:
EMS134:
EMS135:
EMS136:
EMS137:
EMS140:
EMS141:

[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ

UNIBUS INITIALIZE @
@CONTROLLER CLEAR, I.E.
BIT 5 OF @
@RH CONTROLLER ERROR CLEAR (RMCS1, BIT 14) a
@DRIVE CLEAR COMMAND @
@DRIVE STATUS REGISTER. RMDS @
MEDIUM OFF LINE @
@'MOL''
(RMDS, BIT 12) 3

116
117
106
117
115
126
103
124
106
126
103
120

EMS145:
EMS146:
EMS147:
EMS150:
EMS151:
EMSISe:
EMS153:
EMSI54:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ
IASCIZ
(ASCIZ
.ASCIZ

Gl2

117
125
117
122
124
101
103
103
101
117

116
117
110
122
122
105
115

122
104
116
125
110
106
126
117
126
101
117
106
117
124
111

000

111
124

111
126
123

EMS131:
EMS132:

EMS142:
EMS143:
EMS144:

EMS155:

.ASCIZ
.ASCIZ

<CRO<LF>

@MAINTENANCE REGISTER 2, RMMR2, @
@NOT INITIALIZED BY a

.ASCIZ
ASCIZ
.ASCIZ

@DRIVE FAULT @
@'DVC"
(RMER2, BIT 7) @
QUNSAFE @

.ASCIZ

@OFFSET COMMAND @

EMS156: _ASCIZ
EMS157: [ASCIZ
EMS160: .ASCIZ

a'UNS'' (RMER1, BIT 14) @
@SHOULD BE SET @
@OFFSET MODE @
@ VOLUME VALID 3
a''0M" (RMDS, BIT 0) @
Vv
(RMDS.BIT 6) @
@PACK ACK COMMAND @
aNOT SET BY @
a@NOT ARESET BY @
@RTC COMMAND @
@RIP COMMAND @

@
@
@
3

NS ULWIN 2OV~
= OOV

~NO VIS WA

GE STRINGS

—-—
B

= OO0 00 NOMNSIN
= O OO ~NON W

NVSW

e o ad

b —b e

b e

d e

NN WNNNI NN NININININININ)
= b bb

b e
b

b
b b D
b S e
b e md e e o
d b o ach e
b e
VAV
S S BN NN

FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51

117

106

101406
101430
101677
101511
101525
101952
10157
101626
101661
101701
101716
101726
101752

106
111
103
125
122
082
127
105
116
122
106
106
062

125
123
131
116
105
101
110
122
117
105
101
125
117

122
040
114
105
103
124
105
122
116
103
124
122
120

.ASCIZ
.ASCII
.ASCIZ
EMS165: .ASCIZ
EMSTGE: ASCIZ
EMSIS7: ASCIZ
EMS170: .ASCIZ
EMS171: .ASCIZ
EMS172: (ASCIZ
EMS173: [ASCIZ
EMS174: .ASCIZ
EMS175: .ASCIZ
EMS176: .ASCIZ

SDURING RECALIBRATE @
@IS INTERMITTENT OR DRIVE DIDNT DROP ON @
@CYLINDER @
SUNEXPECTED @
SRECALIBRATE COMMAND 2
@UATATM
(RMDS. BITIS) @
QWHEN READING REGISTER @
QERROR REGISTER #2, RMER2, @
SNONRECOVERABLE @
@KECOVERABLE @
@DATA @
SDURING WRITE COMMAND @
@' 'OPE'' (RMER2, BIT °3) @

102923
102040
102106
102136

103
104
104
111

101
111
125
116

116
101
122
103

EMS200:
EMS201:
EMS202:
EMS203:

@CAN NOT SET @
@DIAGNOSTIC MODE ‘DMD'’
(RMMR1, BIT 0) @
@DURING DIAGNOSTIC MODE @
@INCORRECT @

127
127

122
101

111
123

EMS210: .ASCIZ
EMS211: .ASCIZ

127
123
120
104
114
123
102
101
110
116
123
042
111
042

101
105
122
125
117
105
101
040
105
117
113
123
116
123

125
105
117
122
117
101
104
104
101
116
111
123
110
123

EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMSQ20:
EMSJ21:
EMS222:
EMS223:
EMS22k:
EMS225:
EMS226:
EMS227:
EMS230:

102001

111

102151
102177
102211
102036

042
105
127
042

102312

120

102263
102974

102335
100360
102376
100417
102647
102502
102522
102572
102623
102700
102752
102775
103026
103035

103064
103162

105
101

116

040

127
130
111
107

122
105
124
117

122

116
106

117

104
126

EMS162:

.ASCIZ

10135

101404

EMS161:

PAGE 54-2

EMS163:
EMS164:

EMS177:

.ASCIZ

EMS204:
EMS205:
EMS206:
EMS207:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS212:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
(ASCIZ

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

EMS231: _ASCIZ
EMS232: _ASCIZ

@OFFSET REGISTER (RMOF) @

; CUNUSED>

QIN WRITE SROTECT a

@'WRL''
(RMDS, BIT 11) @
QEXECUTED a
@MITH COMP ERROR SET @
@'%G0'*
(RMCS1, BIT 0) @

@WRITING @
@MAS RESET BY @

@PROGRAM INTERRUPT @

@WAS NOT GENERATED @
@SEEK COMMAND @
@PROGRAM TIMEOUT @
@DURING LOOK AHEAD TEST @
@LOOK AHEAD REGISTER,RMLA, 3
SEARCH COMMAND @ ~
@BAD SECTOR ERROR 'BSE''
(RMER2, BIT 15) @
@A DATA TRANSFER COMMAND
@
QHEADER COMPARE INHIBIT 'MCI''
(RMOF, BIT 10) @
GNONEXISTENT MEMORY ‘NEW' (RMCS2, BIiT 11) @

@SKIP SECTOR ERROR @
@''SSE'* (RMER2, BIT 05) @
QINHIBIT @
@''SSEI'* (RMOF, BIT 09) @
@END OF TRACK @
QAFTER DATA TRANSFER @

SEQ 0276

CZRNDAQ RMBO FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 55

SEa 0277

ERROR MESSAGE STRINGS

1103127

105

130

2 103155

2 103146

120

EHI:

ASCIZ

SEXPCTD

RECEVD®

115

EH111:

_ASCIZ

@ RMCS2

RMCS13

103
120
120
101

EH114:
EH223:
EH256:

.ASCIZ
.ASCIZ
.ASCI1
.ASCIZ

SRECEVD
@EXPCTD
QEXPCTD
@STATUS

SNGPRT
RECEVD
RECEVD
STATUS

DULPRT®
DATAd
RGSTR®<CRLF>
INDEX®

10¢

101

EH336:

.ASCIZ

QGDADRS

GDDATA

BDADRS

130

120

.ASCIZ

QERPTTDTM"RETEVS

.ASCII
LASCII
.ASCIZ
.ASCII
ASCIZ

SRMER1
STATUS HEADER FAILING@<CRLF>
@
—
WORD
BITA<CRLF>
SEXPTTBTM"RECEVD NUMBER POSITONS
@QEXPCTD RECEVDR<CRLF>
@ RMLA
RMLA
RMOF @

.ASCII
ASCIZ
.ASCI1
ASCIZ
.ASCIZ
.ASCIZ

@ RMCS1
RMCS2
RMDS
@
RMAS?
@ RmMC
RMBA
RMDA
@
RMECT1
RMECZ29
@ RMDA
RMDC
RMOF
@ RMMR1
RMMR2
RMDT

040

125

122

123

S 103174
6 103223

7 103251
g 103277

122
105
105
123

105
130
130
126

10 103325

107

%z 103462

105

15
16
17
18
58

103521
103561
103617
103657
103676

122
137
105
105
040

115
137
130
130
122

105
137
120
120
115

EH344:

21
22
23
24
25
26
27

103725
103772
104002
104047
104071
104127

040
040
040
040
040
040

122
040
122
040
122
122

115
040
115
040
115
115

STSH1:

1210%ss

102

185

EH110:

.ASCIZ

@BUSADR®

137 T GAH] Fese
EH353:

STSH2:
STSH3:
STSH4:
EVEN

STATUS FAILING

BDDATAd

DATASCERIES

~~BIT~~~XDRESSa

RMERT

RMER23

RMOF

RMDC3

RMLA®
RMSN?

CZRNDAO RMBO FCINL PTY MACRO V04.00 28~JAN-82 16:24:51
ERROR MESSAGE STRINGS
1

PAGE

1064166

001140

001142

000000

3104200

001174

001176

000000

S 104206

001364

001740

001142

001176

001200

001174

ED223:

.WORD

8 104226

001134

001140

001136

ED336:

.WORD

~ SGDADR,SGODAT.SBDADR,SBDDAT.O

10 104240
1 104252

201140
001140

001142
001142

001174
001444

ED337:
ED353:

.WORD
.WORD

$GDDAT,SBDDAT,STMPG,$TMP1,0
SGDDAT,S$BDDAT,RMOFO.0

13
14
15
16

001336
001340
001404
001344

001346
001342
000000
001372

001350
001344

STSD1:
STSD2:

001370

STSD3:

.WORD
.WORD
.WORD
.WORD

RMCS1I,RMCS21,RMDSI,RMER1i,RMER2I,RMASI,O
RMWCI,RMBAI,RMDAI,RMOFI,RMDCI,RMEC1]
RMEC21,0
RMDAI,RMD(CI, RMOFI RMLAI,O

% 104176

§ 104216

104262
104300
1064314
1064320

17 104332

001276

001362

000000

001376

001364

ED1:

.WORD

$GDDAT,$BDDAT,0

EDTTT.

.WORD

$TMPO,STAP1,0

.WORD

RMDTI STMP1,$TMP2,0

ED110:
ED114:

STSD4:

.WORD

$BASE.)

$GDDAT, $BDDAT,$TMAO,0

RMMR1I,RMMRSI,RMDTI,RMSNI,O

SEQ 0278

RRRRR

il
ad el

2
3

CZRNDAO RMBO FCTNL PT1
ERROR MESSAGE STRINGS

—

35
5
35
)
? 104363
4

MACRO V04.00 2B-JAN-82 16:24:51 PAGE 57

000
000
000
000

000

.BYTE
.BYTE

000

.BYTE

000

.BYTE

SEQ 0279

104372
104372
105376

BUFFER:

BUFONE:
BUFTWO:

€D b wd b

b o

[=l=lelelolelele
T
ON =b b b wd =k b \ AN

ASCHL

LASCII
.ASCI11
ASCI]
LASCII

@Té
@15
aTé
@17

ASCI1

LASCII
LASCII
ASCI1
.ASCI1

LASCI1
.ASCl11
ASCll
ASCIl
LASCI]
LASCII
ASCI]
LASCII
.ASCI1
LASCI1
LASCII
LASCII
ASCII
.ASCI1
ASCI]

LASCII
LASCI1
LASCI1

e
b
b cmd
b cnd -~
b

258.
258.

<CRLF>
<CRLF>
@LIST OF TESTS@<CRLF>
@m=—veememcca- a<CPLF>
aTl
CONTROLLER ACCESS TESTa<CRLF>
aT2
LOGICAL ADDRESS PLUGS TEST@<CRLF>

LASCII

AN
EF P
P o O O X

HELP:
.ASCI]
.ASCI]1
LASCI]
ASC]]
LASCI1I

LASCII
LASC1I

124

.BLKW
.BLKW

PAGE 58

.=BUFFER

061

OOMWJ\‘“Wg
\a?m-—ouw

N NN~
= AN =2 PONICO NN = O =b =d

=lelelelelolelalelelalelelelalolelelaleleYa

—b-‘-fl—l-—l—h—l-‘—ld—l—‘-‘—‘—.-—l—‘—.—l—h—l—l—‘—l—l—j—l-‘-—l-‘—h—b—d—l—l—l—)—.-fl—‘-‘—.-fi—bd—‘—‘-—l—‘—l—‘

P AIIIIIARIIIAANIN
S

VAWMV
WM
AWIAIA IV
VI AN
NNNO
WNPININIAD
b b b QO NN
NN S 8 SN NN
NN~
VNI ONMN = N NN N
—ON
ANINN= R NOWVNNOW=ONS
VNS B NWNONIONI
S WNON

1046372

85 NN NN

AN AN N RO NI )

doo&wgui‘umuoomwo«m ;\\)NNNN—.—;_.;—.-»_._.—..;-;
NN =2 O 000 NN A ENANN = OO 00 N0 WV S (NN —

CZRNDAG RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51
ERROR MESSAGE STRINGS

Q13

aT10
et
o712
arT13

8T14
aT1S
aT1é
ar17
@720
aT21
@r22
@ar123

8724
@725
@aT26
@127
8730
@131
913
@713
iTg‘
9735

@136
@137

LASCI1
LASCII

8740
8Té1
aTé
T4
9T44
@745
aT46
8147

LASCI1
ASCI1
LASCII
LASCI]
LASCII

9715
@&7T§
@754
QT55
@756

JASCII
LASCII
LASCI1
LASCII

LASCII

LASCII
LASCI1

@150
@151

UNIBUS INITIALIZE TEST@<CRLE>

CONTROLLER CLEAR TEST@<CRLF>
ERROR CLEAR TEST@<CRLF>
DRIVE STATUS TESTa<CRLF>
PRIMARY/SECONDARY ERROR TESTR<CRLF>
DIAGNOSTIC MODE TESTa<CRLF>
PACK ACKNOWLEDGE TEST®<CRLF>
RECALIBRATE TESTR<CRLF>
ABORT RECALIBRATE TESTa<CRLF>
IVC RECALIBRATE TESTa<CRLF>
JAE RECALIBRATE TESTQ<CRLF>
RECALIBRATE AT OFFSETa<CRLF>

DRIVE CLEAR TEST@<CRLF>
NOP TEST@<CRLF>
OFFSET TESTa<CRLF>
GO/ATA TEST8<CRLF>
WRITE ATA TESTa<CRLF>
ERROR/ATA TESTa<CRLF>
PROGRAM INTERRUPT TESTa<CRLF>
INMIBIT INTERRUPT TEST@<CRLF>
RETURN TO CENTERLINE TESTa<CRLF>
READ IN PRESET TEST@<CRLF>
RMDC CLEAR OFFSET TESTR<CRLF>
JILLEGAL FUNCTION TEST@<CRLF>
INVALID COMMAND TEST@<CRLF>
INVALID ADDRESS ERROR TESTR<CRLF>
WRITE LOCK ERROR TESTR<CRLF>

ERROR ABORT TESTSa<CRLF>
RMR TESTa<CRLF>
PARITY ERROR TEST@<CRLF>

ILLEGAL REGISTER TEST@<CRLF>
SEEK FIRST CYLINDER@®<CRLF>
SEEK LAST CYLINDER®<CRLF>
SEEK PRIME TYLINDERS®<CRLF>

SEEK ZERO DIFFERENCE®<CRLF>

SEEK MAXIMUM DIFFERENCE FORWARD@<CRLF>
SEEK ADJACENT FORWARD@<CRLF>

SEEK ADJACENT REVERSES<CRLF>
SEEK INVALID SECTOR®<CRLF>
SEEK INVALID TRACK@<CRLF>
SEEK INVALID CYLINDERG<CRLF>
IVC SEEK TESTa<CRLF>
ABORT SEEK TESTa<CRLF>
SEEK AT OFFSET@<CRLF>

SEQ 0280

CZRNDAQ RMBO FCINL PTY
ERROR MESSAGE STRINGS

58 106544

MACRO v04.00 28-JAN-82 16:24:51

124

065

067

106617
106647
106701
106732

124
124
124
124

066
066
066
066

65> 107C12
66 107040
67 107065
68 107066
69 107122
70 107156
71 107173
72 107230
73 107254
76 107277
75 107334
76 107343
77 107374
78 107420
79 107444
80 107503
81 107517

124
124
200
117
055
123
055
040
040
040
040
040
040
040
040
040
040

59 106570

60
Gl
62
63

64 106766

82
83
84
85
86

107532
107545
107560
107572
107604

gg 107616
89

1264

124

040
040
040
040
040
040

000200

PAGE 58-1

.ASCll

@157

LOOK AHEAD TESTR<CRLF>

061
062
063
064

L.ASCII
.ASClI
.ASCII
.ASCII

@761
&T162
@763
@aTé4

SEARCH
SEARCH
SEARCH
SEARCH

066
066

066
067

120
055

105
055

.ASCII
.ASCll
ASCII
.ASCII
.ASCI]
.ASCII
LASCII]
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

7166
ABORT SEARCH TEST@<CRLF>
@767
SEARCH AT OFFSETA<CRLF>
<CRLF>
@OPERATIONAL SWITCH SETTINGS@<CRLF>
@===s=sssssccccccncccccncaan 8<CRLF>
@SW.TCH
USER<CRLF>
@e=s=es
=
—---8<CRLF>
@ 15
HALT ON ERROR®<CRLF>
@
14
LOOP ON TEST@<CRLF>
@ 13
INHIBIT ERROR TYPEOUTS@<CRLF>
@ 12
a<CRLF>
& 11
INHIBIT ITERATIONS@<CRLF>
@
10
BELL ON ERROR@<CRLF>
@&
9
LOOP ON ERROR®<CRLF>
@
8
LOOP ON TEST IN SWR<7:0>a<CRLF>
@&
7
TN128R<CRLF>
&
6
TN64@<CRLF>

.ASCIZ

066

127
055
040
040
040
G40
040
040
040
040

040
040
040
040
040
040
040
040

060

065

111
055
061
061
061
061
061
061
040
040

040
040
040
040
04C
040
040
040

.ASCII

.ASCII
.ASCII
.ASCII
.ASCI]
.ASCII
.END

@&760

SEARCH ON CYLINDER®<CRLF>

aTé5

@&
@
@&
&
&

200

OFF CYLINDER®<CRLF>
INVALID SECTOR®<CRLF>
INVALID TRACK®<CRLF>
INVALID CYLINDER®<CRLF>

IVC SEARCH TEST@<CRLF>

5
¢4
3
2
1
O

TN32&<CRLF>
TN163<CRLF>
TNB@<CRLF>
TN4B<CRLF>
TN28<CRLF>
TN13<CRLF>

SEQ 0281

(ZRNDAQ RMBO FCTNL PT1 MACRO V04.00 c8-JAN-82 16:264:51 PAGE 58-2
SYMBOL TABLE
ABASE =
ACDW1 =
ACDW2 =
ACKSTS
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12~

176700
000000
000000
053464

000000

AUNIT =
AUSWR =
AVECT1=
AVECT2=
A16

000000
000000
120254
000000
000400
001000
000001
005334
000010
000001

000000
000000
000000
000000
000000
ADDW13= 000000
ADDW14= (00000
ADDW15= 000000
ADDWZ = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDW5 = 000000
ADDWé6 = 000000
ADDW7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADR
= 000001
AENV = 000000
AENWM = 000000
AFATAL= 000000

A17
=
BACK
=
BADTMO
BAI
=
8800 =
8801
= 100002
8e02 = J00004
8803 - 000010
8804
000020
BB05 = 900040
8806 = 000100
8807 = 000200
BB08 = 000400
8809 = 001200
8170 = 000001
81700 = 000001
BIT01 = 000002
81102 = 000004
BIT03 = 000010
BIT04 = 000020
BITO5 = 000040
81706 = 000100

AMADR1= 000000

BITO8 = 000400

ALL

066522

AMADRZ=
AMADR3=
AMADRS4=
AMAMS1=
AMAMS2=
AMAMS 3=
AMAMSS=
AMSGAD=
AMSGLG=
AMSGTY=

000000
000000
000000
000000
000000
000000
000000
000000
000000
00000

AMTYP1= 000000

AMTYP2= 000000
AMTYP3= 000000

AMTYP4=
AOE
=
APASS =
APE
=
APRIOR=

APTCSU=
APTENV=
APTS1Z=
APTSPO=
ARGS
=
ASUREG=
ATA
=
ATESTN=
ATNMSK=
ATNTBL

(000000
001000
000000
100000
000000

000040
000001
000200
000100
000002
000000
100000
000000
000377
070102

CH
=
CHGADR
CHRCNT
CKSWR =
CLKADR
CLKVCT
CLR _ =
CLRSTS
CMNSTA
CMPERR

SEQ 028

002000
001326
064201
104410
001512
001514
000040
052604
007402
050562

EDT114
EDT2
EDT223
EDT339
EDT337
EDT344
EDT353
ED1
ED110
EDI11

074430
074416
074432
074442
074452
074462
074474
104166
104174
104200

EMS102
EMS103
EMS104
EMSIC5
EMS106
EMS1T
EMS110
EMS111
EHS11§
EMS113

Q77414
077443
077452
077501
077530
075142
077547
077576
077607
077673

CYLMSK= 001777

EFT337

074542

EMS13

075234

CNSLO1
CNSLOZ2
CNSLO3
CNSLO4
CNSLO7
CNSLO8
CNSLO9
CNTCLR
COMMA
CONT =
CPSAVE
CR
=
CRLF
=

066567
066577
066641
066650
066704
067046
067047
052466
066533
000100
063352
000015
000200

ED114
ED223
ED336
ED337
ED353
EECC
=
EFT1
EFTI10
EFT111
EFT114
EFT2
EFT223
EFT336

BIT07 = 000200

p8CK
DBEN
p8L
DCK

=
=
=
=

100000
040000
002000
100000

8IT09 =
B8IT1
=
BIT10 =
BIT11 =
8IT12 =
61713 =
BIT14 =
8IT15 =
BIT2 =
BIT3 =

DEBL
=
DEVSEL
DISPLA
DISPRE
OLT
=
DMD
=
DONE
DPE
=
DPEH] =
DPELO =

020000
050774
001156
000174
100000
000001
067750
000010
040000
020000

EF336
EF337
EHTY
EHT110
EHT111
EHT112
EHT114
EHT2
EHT223
EHT256

DRIVES 067244
DRQ
= 004000

EHT337
EHT344

BIT4

BIT5S
8IT6

001000
000002
002000
004000
010000
020000
040000
100000
000004
000910

= 000020

= 000040
= 000100

8IT7 =
BIT8 =
BIT9 =
BLNKST
BLNKS2

000200
000400
001000
070000
067777
BLNKS3 067776
BLNKS4 067775
BOTADR 064176
BOTFLG 064200
BPTVEC= 000014
BSE
= 100000
BUFFER
104372
BUFONE
104372
BUFTWO 105376
cc
= 004000

DDISP = 177570

DPR

= 000400

DRVCLR=
DRVSTS
DRY
=
DSWR =
DTE
=

000010
056022
000200
177570
010000

EDT111

074426

pT0
=
DVA
=
DvC
=
EBL
=
cCH
=
ECI
=
ECRC
=
EDT1
EDT110

010000
004000
000200
050000
000100
004000
001000
074406
074424

EFT344
EFT353
EF110
EF111
EF114

104206
104216
104226
104240
104252
000020
074476
074514
074516
Q74520
074506
074522
074532
074552
074562
104344
104345
104347

EMS130
EMS131
EMS132
EMS12X3
EMS134

077723
Q77747
077752
100002
075173
100024
100024
100067
100124
100167
100221
100264
100327
100366
100424
100464

100510
100533

104352
104356
074256
074300
074304
074310
074314
074270
074320
074332

EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145

100575
100650
100675
075245
100732
100753
101001
101016
101044
101054

074356
074370

EMS147
EMS15

101122
075250

EHT336

074344

EHT353
EH1
EH110
EH111
EH114

074402
103127
103146
103155
103174

EMS101

077366

EH223
EH256
EH336
EH337
EK344
EH3S3
EMS1
EMS10
EMS100

EMS114
EMS115
EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123
EMS124
EMS125
EMS126
EMS127

103223
103251
103325
103364
103521
103657
074564
075120
077340

EMS146
EMS150
EMS151
EMS152
EMS153
EMS154

EMS155
EMS156
EMS157
EMSi6
EMS160
EMS161
EMS162
EMS163
EMS164
EMS165

101103

101137
101156
101202
101226
101250
101264
101304
101322
075300
101337
101354
101404
101404
101430
101511

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 2B8-JAN-82 16:24:51 PAGE 58-3
SYMBOL TABLE
EM>166

EM3167
EMs17
EMS170
EMS171
EMS1°2
EMS173
EMS174

EMS175

EMS176
EMS177
EMS2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS2:3
EMS214
EMS215
EMS216
EMS217

EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS225
EMS226

EMS227
EMS23
EMS230
EMS231
EMS232
EMS24
EMS25
EMS26
EMS27
EMS3
EMS30
EMS31
EMS32
EMS33
EMS34

EMS35
EMS36
EMS37
EMS4

1015%5

101552
075330
101577
101626
101661
101701
101716

EMS40

076067

071424

EMT203

072310

EMT266

073142

EMT130

071520

EMT212

072414

EMT275

073276

EMT154
EMT155
EMT156
EMT157
EMT16
EMT160

072010
072026

076116
076144
076173
076222
076275
076340
076367

EMT122
EMT123
EMTI24
EMT125
EMT126
cMT127
EMTI3

101752
102001
074633
075370
102023
102040
102106
102136
102151
102177
102211
102236
075413
102263
102274
102312
102335
102360
102376
102417
102447

EMS50
EMSS51
EMS5
EMS5
EMSS4
EMSS5
EMS56
EMS57
EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS?
EMS70
EMS?71
EMS72

076416
076445
076473
076505
076517
076541
076570
076645
075006
076673
076706
076735
076753
077001
077017
077065
077135
075053
077162
077174
077207

EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMTI37
EMTI4
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153

102522
102572
102623
102700
102752
102775
103024
075452
103035
103064
103102
075500
075527
075544
075565
074650
075576

EMS7S
077253
EMS76
077261
EMS?7
077312
EMTVEC= 000030
EMT1
070112
EMTI0
070162
EMT100 071166
EMTT101 071204
EMT102 071222
EMT103 071232
EMT104 071244
EMT105 071262
EMT106 071272
EMT107 071302
EMTIT
070166
EMTI10 071322
EMT111 071334

075712

EMT11S

075436
102502

075606
075635
075664

075763
076012
076041
074713

EMSS5

EMS73
EMS74

074756

077217
077234

EMT112
EMT113
EMT114

071342
071350
071364

EMT116
EMT117
EMT12
EMT120

071374
071404
070172
071414

071364

SEQ 0287

EMT121

EMS4T
EMS42
EMS43
EMS4L
EMS4S
EMS46
EMS47

101724

EMT161
EMT16

EMT163
EMT164
EMT165
EMT166
EMT167
EMTI7
EMT170
EMT171
EMT172
EMT17
EMTI76
EMT175
EMT176
EMT177
EMT?

EMT20
EMT200
EMT201
EMT202

071434
071444
071454
071464
071474
071506
070200

071532
071544
071556
071570
071602
071674
071626
070212
071636
071646
071656
071666
071676
071706
071716
071726
070220
071736
071746
071760
071772
072040
072052
070226
072064
072074
075106
07 150
07%1 0
072136
072144
072152
070236
072160
072172
072202
075512
072222

072234
072242
072250
070116

070246
072252
07%264
072276

EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211

EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMI232
EMT233
EMT234
EMT235

EMT236
EMT237

EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246
EMT247
EMTZ25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256

(72322
(072340
072350
072360
070256
072372
072400

072430
072440
072460
072472
07250¢
070266
072512
072522
072532
072542
072552
072566
072606
072616
070276
072632
072636
072hLA
772450
(Tense
Orcos+

072656
072660

070306
072662
072664
072666
072670
072672
072674
072676
072706
070316
072720
072734
072742
072750
072766
072776
073006

EMT257
EMT26
EMT260

073016
070326
073030

EMT262
EMT263
EMT264
EMI265

073072
073102
073122

EMT261

073042

073062

EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMT274

EMT276
EMT277
cMT3
EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT305
EMT306
EMT307
EMT31
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317

EMT32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMT326

EMT327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335
EMT336
EMT337
EMT34
EMT340
EMT341
EMT342
EMT343

EMT344
EMT345
EMT346
EMT347

073154
070336
073172
(073206
073224
073242
073260

073310
073324
070124
070346
073342
073362
073404
073416
073430
073442
073454
073464
070356
073504
073516
073530
073542
073562
073574
073606
073620

070366
073630

073640
(073650
073656
073666
073700
073712
073730
070376
073742
073752
073764
073776
074014
074032
074052
074062
070406

074072
074104
074112
074124

074136
074150
074160
074174

CZRNDAC RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:264:51 PAGE 58-~4
SYMBOL TABLE
EMT3S

EMT3ISO
EMT3ST
EMT3S2
EMT353
EMT3IS4
Emr36
EMT37
EMTS

070416

FER

= 000020

F&4

= 000040

070516

GO0

= 000001

070536
070140
070544
070554
070566
070604
(70622
070632
070644
070662

HCE
= 000200
HCI
= 002000
HCRC = 000400
HELP
104372
HT
= 000011
IAE
= 002000
IBSAVE 063354
IDXMSK= 000077
IE
= 000100
ILF
= 000001

070730

ILF30 = 000030

PAKACK= 000022

MBA ]

001342

PGE

RMCS3I

001410

AMDB

= 000022

FIND =
FMT16 =
FNLDTB
FNCMSK=
fO
=
F1
=
Fe
=
£3
=

000001
010000
(70002
000077
000002
000004
000010
000020

IPCKO
IPCKT
IPLK2
{PCK3
IR
IvC
LBC
LBT

EMT4T
EMT4LZ
EMT43
EMT4LSG

070454
070464
070476
070506

GET
GETBUF
GETINX
GETSTS

042546
001336
001516
(42462

LODEV
067152
LS
= 000004
LSC
= 004000
LST
= 000002

EMT46

070526

EMTSS

EMT47
EMTS
EMTSO
EMTS1
EMTIS2
EMTS3
EMIS56
EMTISS
EMTS6
EMTS7?

070446

EMTé
EMT60
EMY6Y

070146
070672
070710

EMT6
EMT64
EMYSS
EnT66
EMT67
EMY?
EMT70
EMI7Z1

070744
070754
070774
071014
071026
070154
071040
071050

EMT76

(071114

EMTE,

EMT7
EMT?.

071069
071076

GTSWR = 104407

ILF66 =

EQUALS

066520

ILRG50=

ERRNIB

= 040090
0821 4

FF'ROR = 1

ERRTYP

ERRVE(=

222

ERTY

;

ERTYO,

1?7

ERTYO1
ERTYO

M
ESRC

LSTRK

001334

MCLK =
MCPE =
MDF
=
MDPE =
Ml
=
MINSTR
MOC
=
MOH
=
MOL
=
MRD
=

006000
020000
000100
(000400
000004
067443
000400
020000
010000
002000

MANUAL

001330

MSER =
MSGDRY
MSHELP
MSMNUL
MSUNIT
MR
=
W
=
e
=

ILF74 =
ILF76 =

ERR

= 000012

ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF&2 = 000042
1LF44 = 000044
ILF46 = 000046
ILF54 = 000054

071124
071144

071154

000001
000002
000004
000010
000300
010000
002000
002000

Mms
= 000040
MsC
= 000002
MSDRVS 067070

EMT?S
EMT7

EnmT

=
=
=
=
=
=
=
=

ILF02 = 000002
ILF24 =
024
ILF26 = 000026

ILFS6 = 000056
ILF64 =

ILR

PLFS

= 002000

PSEL
PSW
PULL

= 002000
= 177776
067655

PRIERR 043564
PRO
= 000000
PR1
= 000040
PRZ
= 000100
PR3
= 000140
PRé¢
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776

ND
NER

=
=

NOP

NDTMSK=

NONE
NOTPRS

ILRGZ0=

[

OFFSET=

OPE

200

043016

PUTBUF 001412
PUTINX 001545
PWRVEC= 000024
QUES
066527
RCLSTS 054260
RD
= 000070
RDCHR = 104411
RDLIN = 106412

READY

007574

0
1

RMBAD
001416
RMCST = 000000
RMCS1I 001336
RMCS10 001412
RMCS2 = 000010
RMCS2]
001346
RMCS20 001422
MCS3 = 000052
RMCS30
RMDA =
RMDAI
RMDAO
RMDBI

PACACK=

001464
000006
001344
001420
001360

RMDBO
001434
RMDC = 000034
RMDCI
001372
RMDCO
001446
RMDS = 000912
RMDS I
001350
RMDSO
001424
RMDT = 000026
RMDT!
001364
RMDTO
001440

RMECT = 000044
RMECTI 001402
RMECI0O 001456

RMEC2 = 000046
RMEC2I 001404
RMEC20 00146C
RMER1 = 000014
RMER1I 001352
RMER10 001426
RMER2 = 000042
RMERZ2I 001400
RMER2O 001454

RMHR = 000036
RMHRI
001374
RMHRC

001450

RMLACO

001632

RMMR1]

001362

RMLA = 000020
RMLAL
001356
RMMR1 = 000024
RMMR10

ILRG6A=

INSERT

PIRQVE= 000240

RDOCT = 104413
RDY
= OOO%OO

Heiich

=
=
=
=

NSA

ILRG72=

001000
000200
020000
177772

= 002000

MXF
N

NOTRR

JLR

PGM
PHA
PIP
PIRQ

PUT

ILRGS6=

ILRG62=

000010
000020
000400
064244
064254
064342
064360
064366

= 100000

NOTAVL

JLR

PAR
=
PAT
=
PDA
=
PFECH
PFECHT
PFECH2
PFECH3
PFECHS4

MSE

ILRGS?2=

ILRGS4=

SEQ@ 028

10TVEC= 000020

(74206
074224
074234
074240
(074250
070426
070436
070132

EMTL0

001436

RMMR? = 000040

RMMRZ2]I

RMMR

001376

0014S2

RMOF

= 00?032

RMOFO

001444

RMOFI

RMR

001370

Rusnl 0oi3as
RMSNO

001442

(ZRNDAQ RM80 FCTNL PT' MACRO Vv04.00 28-JAN-82 16:24:51

SYMBOL

RMWC

TABLE

= 000002

RMWCI
001340
RMWCO
001414
RQA
= 100000
RAB
= 040000
RTC
= 000016
R6
=2000006
R7
=2000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001
SA16
= 000020
SA2
= 000002
SA4
= 000004
SA8
= 000010
SC
= 100000

Sw02

SWwys
SW04
SW05
swgé
Sw07
SW08
SWw09
Sw1
Sv10
SW1l
SWi2
SW13
swi4
SWw15
SW2

= 000004

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004

SCHSTS 059624
SCOPE = 000004
SCTMSK= 003700
SCO
= 000100
SC1
- 000200
SC2
= 410400
SC3
= 00000
SC4
= 002070
SEARCH= 000030
SECERR (044416
SEEK = 000004
SEKSTS 051206
SHUT
065642
SIZCLK 063246
SKI
= 040000
SSE
= 000040
SSEI
= 001000
SSF
= 020000
STACK = 001100
STANDA 006646

sW3
= 000010
SWw4
= 000020
SW5
= 000040
SW6
= 000100
SW7
= 000200
Sw8
= 000400
SW9_
= 001000
SYSTAT
067112
TADMSK= 177400
TAG
= 020000
TAGADR= 001114
TAP
= 040000
TA1
= 000400
TA2
= 001000
TA4
= 002000
TA8
= 004000
TBITVE= 000014
TIMOUT 043370
TKVEC = 000060
TPVEC = 000064

STCORV

IST

= 010000

TST11

013714

STARi
START1
START2

STIMER
STKLMT=
STOP
STSD1
STSD2
STSD3

STSD4
STSF
STSH1
STSH2

STSH3
STSH&
SWR

SWREG
S0
=
w00 =
sw01
=

005426
005416
005432
060210
043532
177774
062734
104262
104300
104320
10432
104363
103725
104002
104071
104127
007154
000176
000001
000001
000002

TRAPVE= 000034
TRE
= 040000
TRTVEC= 000014
TSTNMB
TSTPRP
TSTQUE
1ST1
ISTI0
1ST1Z2
TST13
IST164
TST15
IST16
1ST17
1ST¢

TST20
1ST21
75122
TST23

064172
041532
001466
007736
012642

014214
014424
014732
015242
01550/
0375762
010136
016232
016462
017006
017426

TST26

TST25
TST26
1ST27
1573
TST30
TST31
TST32
TST33
TST34
TST35
IST36
1S137
TST4
TST40
IST41

PAGE 58-5
017772

020364
021054
021422
010532
021744
022326
022644
023430
024154
024744
025530
026062
011402
026522
026742

TST42
027300
TST43
027572
TST44
030064
TST45
030376
TST46
030704
1ST47
031172
1875
011740
TST50
031474
1ST51
032000
1ST52
032416
IST53
033014
TST54
033406
IST55
033746
IST56
034310
ISTS7
(034634
1ST6
012146
1ST60
035354
IST61
035776
TST62
036440
IST63
037040
TST66
037420
IST65
037774
TST66
040354
1ST67
040720
1877
012462
TYPBN = 104406
TYPDS = 104405
TYPE = 104401
TYPOC = 10442
TYPON = 104404
TYPOS = 104403
UNS
= 040000
UNTMSK= 000007
UNTOFF
067223
UNTON
067234
UPE
= 020000
USE
= 040000
uo
= 000001
ul
= 000002
u2
= 000004
vv
= 000100

SEQ@ 0285
W

= 000040

wCD
=
WCE
=
WCEHI =
WCELO =
WCF
=
WCH
=
WD
=
WH
=
WLE
=
WRL
=
XS1Z
XXDP
Y
$SAPTHD
SATYC

000050
040000
010000
004000
000040
000052
000060
000062
004000
004000
006356
001332
067773
001100
066276

$ATY1
066252
$ATY3Z
066260
$ATY4
066270
$AUTOB 001150
$BASE
001276
$8DADR 001136
$8DDAT 001142
$BELL
001212
$SBIN
061062
$COW1
001302
$ChW2
001304
$CHARC
062066
SCKSWR 064702
$CMTAG 001114
$CM3 = 000000
$CMé = 000005
SCNTLC
065600
S$CNTLG 065612
$CNTLU 065605
$CPUOP 001250
SCRLF
001217
$DBLK
051300
$oDWO0
001306
$DDW1
001310
$DDW2
001312
SDDW3
001314
$DDWs
001316
$ODWS
001320
$DDW6
001322
$DDW7
001324
$DEVCT Q01232
$DEVM
001300
$DOAGN 041522
$DYBL
061270
$SENDAD
041512
$ENDCT 041350
SENULL
041526
SENV
001242
SENVM
001243
$EOP
041314
SEOPCT 041342

$EOSP

SERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
$FFLG
$FEILLC
SFILLS
$GDADR
$GDDAT

041256

001117
001131
062722
001132
001574
001126
001210
001242
001326
001224
066516
001172
001171
001134
001140

$GET42 041502
SGTISWR 064772
$GT42P 041476
$HD
= 000000
$HIBTS 001100
SHIOCT 065764
$ICNT
001120
SILLUP 066234
$INTAG 001151
$ITEMB 001130
SLF
001220
SLFLG
066515
SLPADR 001122
SLPERR 001124
SMADR1
001254
SMADRZ 001260
SMADRS 001264
SMADRS 001270
SMAIL
001222
$MAMST
001252
$MAMS?2 001256
SMAMS3 001262
SMAMSS 001266
$MBADR 001102
SMFLG
066514
SMNEW
005630
$MSGAD 001236
SMSGLG 001240
SMSGTY 001222
SMSWR
065617
SMTYP1
001253
SMTYP2 001257
$MTYP3 001263
SMTYP4 001267
SMXCNT 062554
SNULL
001170
SNWTST= 0000C1
SOCNT
061532
SOMODE (61534
SOVER
062540
$PASS
001230

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 58-6

(

SEQ 0286

SYMBOL TABLE
SPASTM
SPOWER
$PWRDN

001106
066242
066074

$SCOPE
062072
$SETUP= 000137
$STUP = 177777

066146

SRDCHR
SROLIN
SRDOCT
$RDSZ =
SRESRE

065244
065334
065664
000010
060752

SRTNAD
$SAVRE
$SAVRG

041524
060714
066240

SPWRMG

SPWRUP

$QUES

$RM80

066230

001216

067130

. ABS.

107631
000000
ERRORS DETECTED:

064401
064374
064376

$TPS
$TRAP
$TRAP2

$SVPC = 000210

$TKQEN=
S$TKQIN
$TKQOU
$TKQSR
$TKS

001160

S$TRPAD

$SWREG
$SWRMK=
$SWOBT
$TESTN
$TIMES

001244
000000
062556
001226
001206

$TMPO
$TMP1
$TMP2
$TMP3
$TMP6

001174
001176
001200
001202
001204

$TSTNM
STTYIN
$TYPBN
$TYPDS
STYPE

STKCNT
STKINT

064372
064402

$TPB
$TPFLG

001166
001172

STYPEX
$TYPOC

$SVLAD

062504

$SWR

= 167400

$TKB8

001162

$TKSRV

$TN

000
001

VIRTUAL MEMORY USED:
61952 WORDS
( 242 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRNDA.BIC,CZRNDA/C=CZRNDA.DOC,CZRNDA,[20,0]SYSMAC/M

064400

064452

= 000070

001164
065766
066026

STYPON
$TYPOS
SUNIT

061350
051310
001234

066040

SUSWR

001246

001116
065570
061010
061024
061536

SVECT2
$XOFF =
$XON
=
$XTSTR
$$GET4=

$TRP

= 000016

$TSTM

001104

STYPEC

061750

062070
061334

SUNITM

SVECT1

001110

001272

001274
000923
000021
062114
000000

$$SW08= 000070

SOFILL
061533
.$X
= 001100

*o74(<MS(.-.«aOlFRH%10o-.OQDm«W5de71'N*N-&.¢«&[”2"‘MO.Td-|\}«ab.Nl2%01O~B=oQ.Fdm3%&7“%[oN«5.O4WS2”'8..¢0R81412N=&L&l<.”a52t¢J—&F.3io541l95KSBN&Xun7S210aBL['«.n4247X96.l81[40t220s“¢%*53751|&4U1%1.L?2MlL149-s“.X-.wV4XsooE&3U]ra.n9-7OO6&Xz)EIELl721Ms32&0JfIR.8l52'S1]S&?PMTl73“0F2®]XU[.oOQBY13n4n']PhsN-781‘“t&.==L[«L
-o"-&«0&&&«-]”«&2V«,oTRo&N]&98VT.4o9o8o%o{«aBs%VoXlEol«XalDL/oRlEaSl&EBEolR&]Aa&BElaAB&lEBaEl&Ie_lLI
®LLsMWeoLSAAPN]aB1ML(NlLUoYoMAYSlT=d«GLNvB-NT0N]Ta-oA]«=OTONe1IVNTNTIVET&VOyooIVVNToMVoEVoT=«aTNVTa.aTWao¥N&UlEEaoollV=SeoNlo5leMI+LeoEaO=ldpXaoMlooBaKlDllMaOglIoeBaRlMlLMa=LlRl\
— -

oV\rN—OYMMMMMMMN0SA—]—ORI4~)RNNyY—N\0ao00=N&]1YUODND0MEI=]Ow OTv~«IOVTI3OOoTO\MN=G]NJ~N\0—oSQrJVOGeMTO=- =0=R0Vr0TN===I\MTVNNMONIN=OxAVNNIIQNeD&NoAOIOVIg=TNO0&V=QNMaTMIVN%GI«NIQVNITVN&OOMITFaDV=T==&NIo=STNl)1NiNe|to2ooodTleoeUKVoMF~—eoN]&*® OlT0vWOrNe=dM=leUONBnMoWNMdB&MleNgmMoaMIOMO&deglINIoMA%lNggONN=aAEM=nNaxeOdnOdDM=TNN=t
vV1VON0MbONNMeY¢)\YO)RYNJ\Oo0O|N®MI=MNLI~YoON&&VbvvLIUOIYG&UW&OINMDOIMYhO=G=\8v0e00O=GFMSO0RN0OOONOVO&OAMINOMeDIMdI~IyMEOINheONVPNNN=cOMINTONRLtONMNO=SI(oOOOrGNbUNOOOeOI.aNMMNU=eMNWe==eeMeNtOlhM=IveeARvAM¢0=eeeUoOMe==eOOMOveeeNVo=0MeeUeeNOMk-eeveMN=eMOMgO=DiMAoLRU0M==MT-= .
(NVOMYYAR
UUIOM)NVMYNN=vvvVMQOOMOYNN0OVOGGNSVOO0OO4IMNNO0IINONOO0(NO$ONoNNe[=MeveeMO=eMervA=MMM eeNLWeeRUOMMM=V-M
$40CAT
SAPTHD

SOFILL

SASTAT
$SATY]

SATY3
SATYS

SATY(C
$AUTOB

$BASE

$BDADR
$8DDAT

$CDW2
SCHARC
$8ELL
$BIN
$Cow!

14-20
39-1

39-1

39-1
39-1

39-1
39-1
39-1
39-1
39-14
39-1#
39-1#
39-14
37-1

39-1
5-8

46-1
4614

38-1
40-1
46-1
6=-0#

6-0#
13-473
13-915

13-239
13-E51

6-0#

56-6
6-0n
xZ-1
6-04
6-04
38-1

14=204
§9-1
1

39-1
39-1
39-1
39-1

39-1

39-14
39-14

39-1#
39-1#

40-1

37-14

46-14
4614
46-14
10-29+
10-75
13-490
13-959
13-267
13-E91
56-8

56-8
40-1

40-1

38-14
38-1+«

35-1#

39-1
39-1
39-1
39-1
39-1
39-1

39-1
39-1
39-14
39-14
39-14
39-14
37-1+

42-1
11-33
13-514

13-988
13-301

13-F30

56-10

35-1x
42-1
11=42+
13-536
13-:54
13-335
13-F69

NOSVIORAOV—Me~=rI—r— 0MOYv-=\N0M
40-1

56-11

35-1»

42-1

38-1«

42-1

NOgYM 0NLNOY2OWVLOOOOVTNNo==eeMTe MM=-=

$SGETS
$$SW08

42-1

~ -

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN~-B2 16:24:51 PAGE S-1
CROSS REFERENCE TABLE (CREF V04.00 )

SEQ 0287

39-1

39-1
39-1
39-1
39-1
39-1
39-1
39-1
39-14

39-1#4
39-14
39-1#4
37=-1n»

5-8#
46~1

42-

90“8H21'YO]267N&012Et

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE $-2
CROSS REFERENCE TABLE (CREF v04.00 )

6-0
SCMTAG
SCNTLC
$CNTLG
SCNTLYU
$CPUOP
SCRLF

$OBLK
$O0W0

SO0V

$00W2
$ODW3

6-0n
42-)

$eop

$EOSP
SERFLG
SERMAX

SERROR

S$ERRPC
$ERRTB
SERTTL
$ESCAP

$SETABL
SETEND
SFATAL
SFFLG
$FILLC

SFILLS
$GDADR
$GDDAT

6=0

6-0

6=0#

6-04

6-0#

10-24

11=-87+

11=114»

11-115

12-4

12-38

13-29+

42-6*

40~1

40-1

40-1»

42-1

42-1
6-04
6-0#
38-1
42-1
36-1
6-04
6-04
6-0n
6-04
6-04

5=5
10-24
14-20#

SEOPCT

6-0

SEQ 0288

6-0#
6-04
14204
10-24+
13-312
6-04
6-0s
10-24
6-04
8-0#
6-04
6-0#
6-0#
5-8
6-0n
1

10-49

10-80
38-1
42-1
36-14

10-67+
14-20
36-14
10-29
14=204

10-78
14=204

10-106+

14=204

40-1

38-1
10-71

40~1

38-1
42-1
36-1

10-29
10-24

38-1

10-110«

11-80+

46-1

38-1

46-1
46-1

39-1
39-1

39-1
39=1x

39-1¢

40-1»

41-46

40-1
40-1

40~1+
40-1

13-158
13-297+
13=410*
13-897«
13=:96%
13-<28*
13-+ 20+
21=122¢
22-135«

13-162¢
13-303¢
13=416+
13-905+
13-:97¢

6-0n
46-1*

13-144
13-287«
13-288+
13=727+
13=:40x
13-,73¢
13-A94*
21-90«
22-98+

13-148+
13-288+
13-396+
13-745«
13-:41+
13=;74»

13-826+
21-106+
22-106+

13-157«
13-289+
13-404*
13-755+«
13=:44
13-.77
13-C48+
21=107+
22-109

13=<29¢
13-F51¢

21-123«
22-138+

13-180+
13-310»
13-4%2*
13-9 Ox
13- ;00

604

CZRANDAN RM30 FCINL PT1 MACRO v04.00 28-JAN-82 16:264:51
CROSS REFERENCE TABLE (CREF v04.00 )

$GET42
$GT42P
SGTISWR

$HD
$HIBTS

SHIOCT
SICNT
SILLUP
S$INTAG
$17em8
SLF
SLFLG
SLPADR
SLPERR
SMADR1
SMADR?
SMADR3
SMADRS
SMAIL

SMAMS1
SMAMS
2
SMAMS
3

SMAMSS
SMBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR
SMTYP1

m|TYP2
SMTYP3
SMTYP4
SMXCNT

SNULL
SNWTST

PAGE S-3

SEQ 0289

14-20
42-14
4-475

-84
43-14
6-0#
45-1

6-0#
6-0#
6-0#

4614
6-0#

6-0n
6-0n

L3-1w
39-1
45-1
42-1
40-1
38-1
46-1*
10-24+
10-24¢

39-1
45-1»
42-1
40~ 1
38- 1

39-1

39-1=

42-1
40-1
40-1

39-1

13-38«

39-1
39-1

46-1%

46=1%

2
0
29-1
35-1

6-0#
604
6-0#

5-8
13-473
13-915
13-239
13-E51
6-04

6~04
6-0n
6-04
5-8#
46-1
42-1

6-04
6-0#
6-0#
42-1
6-0#
6-0#
6-0#
6-0#
39-1
'
-2
13-252#
13-47
13-583
13-6984

46=-14
42-1»
46~1
46-1*
46-1
42-1»

39-1
38-1
13-2#
13-277
13-4734
13-5834
13-733

46-1*
46-1

46~1~

46-1+

39~1
38-1

39-14
38-1
13-33
13-2774
13-490#
13-613
13-7334

13-334
13-328
13-490#
13-613#
15-765

13-24

13-2774
13-490
13-5834
13-7334

39-1x

42~

39-1+
39-1

39-1+
39-1+

40~1x

42~

39-1+
40-1

41-41

| CZRNDAG RM80 FCTNL PT1 MACRO /04,00 28-JAN-82 16:24:51 PAGE S~4

SEQ 0290

CROSS RErERENCE TABLE (CREF v04.00 )

3-959
-

7’

3 267
3 ~A284

13-C70#

SRTNAD
$SAVR6
$SAVRE
$SCOPE

$SETUP

$STUP

40-~1

40-1

42-1#

44-

441

42-1#4
43-1#
42-1
34-14
10-91
14-20#
45-1
34-1#
10-24
4~769
10-24
14-20
4-769
4=7694
39-1
5=5
391

44=1
44-1
42-14
44-1
61-28

44-1
44-1

47-194

45-14
441

45-1¢
441

45-1«

45-1+

4~769
10-24
39-1
4=-769
4=7694

4~769
10=24
40-1
L4-~769

4~769
10-24
40-1
4~769

44-1

39-1#
4~769
10-24
14-20
4=769
47654

4=769#

13-98
13-<5

~98

%1y

13-98
13~-<95#

13-:544
13~z w
13-? 5

13=->414
13-301
13-A704
13-D14n
13-F30

1 =>414

14=20+

14=20¢

39-1

42-1

4=769#

4=7694
10-24
42-1
4=7694

4~769
10-24
40-1
4~769

13=->71

! -8414

-€10
~F694

10-24

40-1

4~7698

13-.21

13-:214

13-205#
13-284
1 -8414
1 ~E10#

13-E10#

13-z274

13-=z60
13-2054
13-384#
13-877

13-;21#
1313-2
13-384#
13-877#

4~7694
10-29

10-24
10-29

4~769#

4-7654

3’

13-E51

39-1

4~7694

4=769
10-24
42-1
4-769%

4=7694
10-24
42-1
4~769#

&~769#
10~-29
42-1
4=7694

o“ML]GOUM-O]C%Oo(Ao=N]OLNQ7%rv‘9—67UvN21r“O40

4=fMTWIgNBTOgDo3ANIMMML3eoTKmlr.hTm4rl6mi4oey3N6SBPT.VLeA3oNSOOel|ooIlt3aTXdaEo6dLTLMool6n

$SVLAD
$SVPC
$SWO8T

13-9594
13-<53¢
13=>41
13-2674
13-A704
13-D14
13-E91#

SR2A
SROCHR
SRDDEC
SROLIN
SRDOCT
$RDSZ
SRESRE
SRMB0

13-959#
13-<53
13=-5118
13=-2674
13-A70
13~-C704
13-E914

wN4eN==M-]]OMNN-WSA]),MPAM.eLWgBMM1.eNfDJoomMi1a6‘Oro4dOl—10ode9PNL=eOryN-~om~N[=,F]=O4M*TFWPPPNT[1[Ve2.oMO3YJM)mlg.SNYMrc]7Ae%g=oeTSlMegaoeOMc.oo)msM=lllggeoN0eMAo|d=D[ggg}yOo1n~WeolNgOhLLUoNllNOMN1aD2
o5-*»==eNe]8LW2NrMMVoL94e=a=od5:O-~

INAR TN SMFTOOOMNSM OMM M&NgOM 4NMYT334%

L[o OvMNeX-& NOAN&«- ~|N?8-O—3M"O7

-eM )gSlodololaadLol
XLR-.

&A& MyRQTIEPNRtS90 TT1 SIYvITiAT—ViOMEWTnGTNTdEA

= KI§ LA

-N-[=~

%&o

-L LN8 AN
« & 0 & * =y S DX o a1 ol ol d La l
[} L UL

=M(8]yKe—$|‘1.U%8.86,(r-*([](.%BmN.Ro.-O%.9't
-

VOMNMMNNWN

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE S~5
CROSS REFERENCE TABLE (CREF v04.00 )

YN N NVM M &M Vaolsudoudsafanlol£Lot

-4e
[=]o0b7ol-2loOolWo.lNaolUoI.olNaolIa¥lGoOolaoOLll|aolla[l0al=l0LNs INN
2AL11,4a}la1a2TAR
oU
lolPallgPialPaeY liOa-PlPYaDPl=aNl OGT oOolokL
&&&&&&&x
[Pee eaGnPYOY P P RPY YegP Y UP =P oPe
IOMNN®INNO & &Oe~O&=NIN&=M%tN N
AOOMMSNP

SEC 0291

$TKSRV

42-1
1
&
1
4
1
1
&
42 1

b
4
2
A
TMT-NPMT

xR Mk

STKCNT
STKINT
STKQEN
$STKQIN
$TRKQOU
$TKASR
$1KS

6-04
42-1

13-64+

13-72«

42=1r

42-1

42-1+«

42=1+

42-1¢

42=1¢

42=1+

42-1¢

13-78+

13-80

13-=53¢

13-286%

17-41+

18-35+

25-29»

25-31

56-3

56-6

24=54

56=5

A3)?5*34D%F1(59A‘i.l8V*YeV5sNO6—NOI0NM”NW7NOBN1OO3N

oooLLd]}]oa2a1l1aaoolollagolllelooalaaoaglllallag’laoeallalaolaaloalllalaallalalaelll
gOeB=~gNMNONig~VALOMMOoNPaINMFNMONNGPD

*2‘.A)8O[Wo“*5E“.ME443f)F153Nlb?8Y85b.3A9“.2f88%3720l)sDOl83aE67Oe880262OIW~O5‘“OOiN7N163OBVw095YO‘SgU7N207063~4MNeU[Ot”4FtOIK395sMt

508%12-591y717 FQA)ON<MFwWolNONON 50”012591717’1‘1 N=OVWOGMNON eao21l,la4la1l oPeGSgY I[NR ?3‘*MOI5:O0.V R"N®& P=OaoLll]aaAR -TP=— ANRN TPeG-Mao[llVt1]alalal OM-INOMNOIN 13‘5oWA%7V9

NerREoRLerseNeR

$TPB
STPFLG
$TPS
STRAP
STRAP2
$TRP

$TRPAD
$TSTA
STSTNM
STTIYIN
STYPBN
$TYPDS
STYPE
STYPEC

6-0s
6-04
6-0#
10-24
44-1

441
44-1
44~
44-1
44-14
44-1

5-84
6-?’

38-1
38-1
38-1

L4-14
bo=-14
44~1
44-1
44-1
44-1
4oe=-14
fb=-14

38-1
38-1
38-1

38-1»
38-1
38-1

44-1
44-1
44-1
441
4414

44-1
44-1
44-1
44-1
=12

xp
-14
%
38-1#
&

44-1
44-1
44=1
44-1
44=14

44~1
44-1
44-1
44~
Lo-14

44-1
44-1
44-1
46-1

44-1
boy-1
44-1
44-1

46=-14

44-1
44-1
44~1
44-1
L6414

G4=1
46-1
44-1
44-1
L4-14

44-1
44-1
44=1
4310

44-1
44-1
44-1
&6-12

44=1
44=1
44-1
44=14

39-1
42-1

39-1
2=

39-1

39=1x

39-1¢

40-1

13-40

13-43

13-94

21-49

41-22

44-14

SIYPEX 381

$TYPOC
STYPON
$TYPOS
SUNIT

27-10
37-1
37-14
6-04

12-60

&4-1
441
44-1
4612

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE $-6
CROSS REFERENCE TABLE (CREF v04.00 )

ACKSTS
ACPUOP

9-14
46-1
5-8
4-7154
4=7140
4~7664
6-0
6~0
13-466
6-0

ADDW13
ADDW14
ADDW15
ADDW2
ADDW3
ADDW4
ADDWS
ADDW6

6-0
6-0
-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

ADDWO
ADDW1
ADDW10
ADDW11
ADDW12

ADDW?7
ADDW8
ADDW9

ADEVCT
ADEVM

11-56+

13-769

13-775

13-834

13-840

13-33
132774
13-490#
13-613
13-7334
13-959#
13-<53
13=->114
132670
13-A70
13-C70#
13-E914

13-334
13-328
13-4904
13-6134
13-765
13-959#
13-<53#
13->41
13-2674
13-A70#
13-D14
13-E914¢

13-334
13-3284
13-514
13-6134
13-7654
13-98
13-<5

13-105
13-3284
13-5144
13-631
13-765#
-988#

13-105#
13-346
13-514#

13-B04
1 -Dl4#
1 ~F30#

1 g-ao¢a
1 -D65
13-F30#

42-1
46-1
S-84
13-=96
13-296

6-0

6-0
6-0
6-0

6-0
6-0
6-0
6-0
6-0

13-2
13-252¢
13-4730
13-583
13-698#¢
13-915¢
13-,87
13-=60#
13-239#
13-A28
13-877#4
13-E51#
6-0
6-0
6-0
11-86

6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

13-24
13-277
13-4734
13-583#
13-733
13-915#4
13-:87#4
13->11

13-24
13-277#4
13-490
13-583#
13-733#
13-959
13-:;874
13=>11#
13=-267
13-A284
13-C70#
13-£91

gPere

1
1

104

13-2104
13-4484

1
1

57Ov=“

AENV
AENVM
AFATAL
ALL

AMADR1

AMADR?
AMADR3
AMADRS
AMAMS
S [9

& &8 & %

n.lQO—RN=NM

ADR

11-46

(5]

SVECT
SVECT?
$XOFF
$XON
$XTSTR
-.SASTA
.$X
A6
A17
ABASE
ACDW1
ACDW2

5-84
6-0n
6-0#
6-04
%8-1
8-1

NMwt1ads TRN
MM
fMMM
ls-e -S i2t“P1tN-

SUNITA

SUSWR

SE@ 0292

6-0
6-0
6-0
6-0
é-0
6-0

13-C70
13-E51#

13-6314
13-830
13-98
13-<9

1 3 -8304
1
=27
1

]

}3-884

-<95
%
3 13
3
1
1 ->414
1 g->71
13=>714 13- >714 1
1 g -3014 1 -301# 13-335
1
13-335#

;§->41#

on
13-D1424

3
3
3

13
13
13

g=ggggggusggLe3g L-3

13-239#
13-A28#

13-F30

13-:5
13-<95#

13-804#
12-D65S#
13-F69

1 %*841
1 ~D65#

13-F69%

13-0414
1 -£10
1 ~F 694

gL~oN0teoNO%Ao7DL(2O<\7NO*AYaPlcOQNWpUwouMfFNw.DuOA?N‘*=-“.3HAl.A8aC&.CI0~:NNCBOELN3alL9iVAal5NSILGo3VO3AO2‘6N51f56lDM%12OBO%5MB70N—I=76A0M8”tANV0I95n=<~-L5]a2[]x
.-YeVOBM14MOOIeN=A.M[]FOSONWTRN|o.CM2Q&[Of9N0yv[Wi7”&O~NuFW26OEN92MRE=YA3.FWk6EA![(O&4OM:R%9O[e)LI2‘RQ@ZtNO89?MMV&65ONt.‘1O%~.FIN96gAsIA.53NS=S97%*Rt.N5093C‘-56O.N“14®»IL¥37gNLJO4361.I593ON2&672A®RRU%24M=7“py5N[oNN&y”OTUW91%®N)NA¥LRwSww]m~[[]sWQYPPvv
woL[-oM-eVnoydaL[W3"]1-EE%2eP]3S.6TM-o¥22gOPFW.TT-INo8Psg1.0]Lt7[PN4NaR1}V.,IA.=5V2¥0Pw-—M°WogV1MTYI[1LP)7=VNVRoo.aIQ1ot.(T%oA1SYVVeVMgnN1pa].m.¥TaoDoaoo]onY3O1o"l1lYydgeg]o[2foasLaoTL0-N,X]O07STt,1o1OgekUYT2ANIA2oNRRTS2W[Beao3OgaeW=AuIe[]slaooL4oNQ.a%oKo0lIl9Y}pllivl[gttleU=aaOaoooClgdaLosl7lRlgeYtil83SQoQlggaDo2aladtu*(oll7VldCliouPP@WeJ*lao2Ogoosaoawl7l-.lleetldeAMoaP[gJ3R3Il:laoooOgX.glNotoellel»ttodP&PgoNaa:[oloaoalYtoolll'ETeGPltiaooagaoay2IlA¥FolloaledPdlPoPaKfaoagwao<dll3llN~tSXRdlelGoPulOgaoagoVezoodll<llotalel2a+(e[@aRgosoaloeoll‘SBoRlllRlR8dPgPaauooonoo)Io-kll3aalEAldelNPlRfdAGP19D2gsDologoiRol.llQ6dleBloMe(dCaeP0a1PnaosgloaooaCl0l.tnRollRAlPGOGP3‘uoaaToOloo[da5l*NeUillPloPPokw2adoeaotoMlo-eA“ldoblllVllPaPYutaooleoeaioaRR53lll2eldWlIvNdld[SUPGPYaaNgaoolagnoaoaoolV9lnllntSNGldgodTaGylPlsaoooeooe6O(tlll%RsdalaWPauePdaoogoSN-7ylSldllallRAPPlNGelaaaagoooo5lol7elROallPuaGlPaaoaeoAo6o5l8dlPlRlduelaSlGOoaDoeLoo$o2l9=kN»dlaPwalOlPGPR®aiglleL7aooo2NLlllllnlQea=PlaGeROLlaoo8oe3o3TaaOlwdQlalolaDPP.YNUallolo9olo7ldlau&aaaelGGlOLldCliodoaoo32lU.Aaua}aollelSexoGOllla[LL[lL7.Laoalc-ToWa0lolelOloPdll)a-aO2TNS0otNQ=x0LLWONUR4oalZNaLOlDL3N.VO3-Y[[[<g[[~~N]oL oS--~N4aa[]blV¥~~[]]][OSrSbT—NTrbTeT=MWtJ3no"“oW.m~-@—tU‘~
&i & %% R& *xgRk&&& &gR

NOTM O@OMON ONO—NINDONTOWNOMO w

® ® 3] 3b

OMOMBD O& --NAgO N&» DN&W==&WMMN . ~

~ e=ONMS>QUM

<oTP-&]Y=[ondN5VOg80-0]LUYO=MioMVlo2¢V[NSTGYiNaIOU0loAAS2aTARA)laR01TNatoel]IsalMtaPIolDIolaAolTARTolPDoNaPtDlINlgMRaAlLNaY,AlMIiYValRPNaMSlIeanYkMlPaTMlR=u aAlMnManMl=2L-I5lGO5WL2B2O22®%OVIOo2T T~4] !NVL>OR>VRO>>ITRO0EOQ0S2WwS
cO[} -¥}~S7}owon71nooolto|onlm12ANT[lEIUNooRl1SooallAaAllloaNlSegRlAagalIlollZaaDlRgaIlaRllUallaNallaaelaUiaAllalaUagNlaaSlSUtglIlSaaaSalAalSl3a4S0g0OlLalStea o0B N-)
-b3y

- -

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28-JAN=-82 16:24:51 PAGE §~7
(-4
[4
o (=

SEQ 0293

ZRNDAQ RMB0 FCTNL PTY MACRO V04.J0 28-JAN-B2 16:24:51 PAGL $-8
CROSS REFERENCE TABLE (CREF v04.00 )
-

SEQ U294

2532520330 8 5

oLalala
] 233% 2‘l537a 83l1o!a33ol6381l32

6-0

O-MOMAOMONIN OGN-MAD

g g Gs g g g g

NNO = O
MM

4 9 3 w a m a u w oun

TOIVRTRTeY

1
1
13131

2 36
3 37
4 60
4 81 ®
-5 05
-5 264
-5 Sun
-5 76
13-603#
13-622
13-639
13-664
13 -6914
13=7204
13-7604
13-816
13-832
13-910
13-935#
13-968
13-:56
13- ;5%

13-695#
13-7304
13-7674
13-820#
13-892
13-917
13~954#
13-990#
13-:95
13=-<22

13-=80#
13->3
13->604
13->89
13-708
13-230#
13-260#4
13-287
13-a15
13-8274
13-3644

13-A03#
13-A18
13-A50#4
13-A628
13-806
13-836
13-866#
13-8934
13-C91

13-003#

13-D37
13-D51¥
13-D89
13-p97#4
13-£394
13-£75

13-700
13-735
13-791
13-8204
13-8924
13-917#
13-956
13-:23
13-:954
13=<22#

33
13-=80#
13->344
13->62
13->894
13-208¢
13-232
13-260#
13-2874
13-315#
13-3274
13-364#
13-A05
13-A18#
13-A54
13-A87
13-806#
13-836#
13-868
13-C04
13-C914
13-D03#
12-D374
13-D51#
13-D89#
13-E12
13-E394
13-E75#

1
1
1 -657
13-6814
13-7004
13-7354

13-791#

13-822
13-894
13-929
13-9564
13-:234
13-:95#
13-<25
13-<85#
13-=334

13->14
13->344
13->62¢
13->91
13-220
13-2324
13-262
13-287#
13-319
13-338
13-266
13-A05#
13-A184
13-A544
13-A874
13-819
13-B364
13-863#
13-c04#
13-C91#
13-D05
13-D37#
13-D53
13-D8#
13-E12¢
13-E41
13-E754

13-657#
13-683
13-705
13-740
13-806
13-8224
13-894#
13-9294
13-9564
13~:26
13- ;23
13-<25#
13-<87
13-=45
13->148
13->36

13->62#¢

13->914
13-2204
13-2324
13=-2624
13-289
13-3194
13-a38%
13-3664
13-A05#
13-A20
13-A56
13-A89
13-819#
13-838
13-B68#
13-€08
13-C93
13-D 5»
13-D 9
13-D53#

13-091
13-E29
13-E41N
13-€77

13-615
13-628%
13-657#
13-683#
13-7054
13=-7404

13-8064
13-8224
13-894#¢

13-933
13-961

13-:264
13- ;234
13-<27
13-<874

13-=454
13->24
13->364
13->64
13->914¢
13-224
13-242
13-2624
13-289#
13-a21
13-354
13-3664
13-A07
13-A204
13-A564
13-A894
13-821
13-838#

13-c08
13-C§g:

13-D A
13-D 9%
13-D53#
13-0914
13-E294
13-E41N
13-E774

13-6154
13-628¢
13-659
13-6834
13-718

13-752
13-808
13-824
13-908
13-9334

13-9614

13-:28

13- ;56
13=-<278¢

13-<874
13-=47
13=>244
13->364
13=->644
13->93
13-2244
13-2424¢
13-264
13-2894
13-3214
13-a544
13-369

13-A074

13-A20#

13-A56#
13-A91

13-8 14
13-8 82
13-8704
13-C10
13-C934
13—Dg 7
13-D o
13-D55
13-D91#
13-E33
13-E43
13-E77#

Lal La]

® ®

Z JJ‘

1
1
1
1
1
131
1
1

1 -620

13-633
13-659#
13-691
13-718%
13-7524
13-808#
13-8244
13-908#
13-935
13-766
13-:28#
13-:564
13=-<27#
13-<97
13-=474
13~->28
13=->44
13=> 648
13->934
13-225
13-252
13-2640

13-291
3-a214

13-356

13-3694
13-A11
13-A30
13~A58
13-A91#
13-830

13-b44

13-B70#
13-C10#
13-C95
13-CO07#
13-D43
13-D55#
13-D9
1 -E3
1 ~E434
13-E79

V-][
=] ~
13-620#
13-6334
13-6594
13-6914
13-720
13-760
13-8084
13-8244
13-9084#
13-9354
13-9664
13-:284
13~ :59
13-<55
13-<97#
13-=62
13->284
[]

13=>444
13->66

13->93¢
13-2264
13-252#
13-2644
13-2914

13-023
13-a564
13-2694
13-A114

13-A304
1§-A583
1 ~A914
1 -830#

13-B44x
13-87?2
13-C104
13-C954
13-D07#
13-D434
13-D554
13-D93#
13-E35
13-E43M
13-E79%

13-<554

13-=004
13==62#
13->30

13=>54

13->664
13->95
13-2264
13-256
13-270
13-291#
13-3234
13-2564
13-971
13-A13

13-A46
13-A58#
13-A99

13-832
13-B54

13-8724
13-C72
13-C99
13-D16
13-D47
13-D67
13-093#
1 ~E35#

1 -E53
13-E79%

12-2454
13-343
13-456

-—

13-5764
13-606
13-6228
13-6394
13-664#
13-693
13-722
13-7604
13-816#4
13-8324
13-9104
13-952
13-968#
13-:564#
13- ;61

13-=08
13-=76
13->304
13->544
13->664
13->954
13-228
13-2564

13-=08#

13-<58#

13-270#
13-293
13-2234
13-a358
13-a714
13-A134
13-A46#4
13-A60
13-A99#
13-8324
13-B54#
13-872#
13=-C72#
13-C9%¢
1 D164
-D474
13-D674
13-D95

13-E354

13-E534
13-e81

1
13-622#

13-641

13-669
13-6934
13-722#
13-762
13-818

13-877
13-910#
13-9524

13-9684
13-:90
13-;614

13-<61

13-s764
13->30#
13->58
13->75
13->95¢
13-228%
13-758
13-281
13-2934
13-325
13-358¢
13-3714
13-A13#
13-A48
13-A6O#
13-A994
13-832#
13-861
13-874
13-(C86
13-D01

13-D31
13-D49
13-D83
13-D95#
13-E37
13-E69

13-e81#

13-669¢
13-693#
13-722#
13-7624
13-8184

13-877#
13-912
13-952#
13-979
13-:90#4
13-:614
13- <614
13-=17
13-=78
13->32
13->584
13=->75#4
13->97
13-228#4
13-2584
13-2814
13-2934
13-925#
13-262
13-a86
13-A15
13-A48#
13-AG0#
13-801
13-B34
13-8614
13-8B74#
13-C86#
13-D01#

13-D314
13-0494

13-pD834

13-D95#4
13-E37#
13-E69%
13-E81#

13-=178
13-=784
13->324

13-624#
13-655
13~6774
13-695#
13-730#
13-767
13-820
13-8864
13-912#
13-954#
13-990
13-:93#
13~-;89#
13-<80#
13-=
13-=80
13->32#

13-B34#

13-8344

13-6414
13-677
13-695

13-730
13-762#
13-818¢
13-886
13-912¢
13-9564
13-979¢
13-:93
13-:89
13-<80

13->60
13->84
13=->97#
13-230
13-258#
13-285
13-a04
13-a224
13-9624
13-a86#4
13-A154
13-A48%4
13-A62
13-8014

13-Bo4s
13-B74#
13-C89
13-001#
13-D35
13-D49%
13-D87
13-D97
13-E37#
13-E73
13-E83

13=>604
13->844
13~->97#
13-230#
13-260
13-285#
13-304#
13-a27
13-264
13~A03
13-A15#
13-AS0
13-A62#
13-B01#

13-B66
13-89%
13-C89#
}3-003
~D35#
1 =251
13-D87#
13-D97#
13-£39
13-€73#
13-g83#

CZRNDAQ RMBD FCTNL PT1 MACRO V04,00 28-JAN-82 16:24:51
CROSS REFERENCE TABLE ¢CREF v04.00 )

PACE §-9

SEQ 0295

1383

13-003

13-E9%

3-F14

13F25

13-F254

13-F27

BADTMO
BAl
8800
8801

13-F95
10-3#"
4&-7330
4~6624
4-6624

13-F95#
10-26
23-238

13-F97

3-F99

13-G01#

13-G03

13-GO3#

BIT00

=479

e=4L79%

4491

4-538

4~556

4~575

4-612

4-630

4-662

4-736

4=754

81703

4~479

4~4794

4-488

4~535

4=572

4-609

4-627

4-662

4=674

4-733

4~751

13-F78
13-F628

8802
8803
8804
8805
8806
8807

13-F270
13-F620

13-£32
13-Fb4

3-F45
3-F66

#
#

13-F60
13-F83

13-F60F
13-F834

13-F60#
13-F91

13-F62
13-F91#

4=6624
4-6624
4~6624
4~6624
4~6624
4~6624

39-1

40-1

4-750
4716
4-728
4~714

4-729
39-1
4=727

39-1

81708

4=479

4=4798

4~531

4~553

4~567

4-589

4-605

4~622

4~662

4-730
4=672
4=715
4-6€2

BIT10

L=~47

4-529

4=551

4=565

4=587

4-603

4=620

4~643

4=659

4=671

4-713

4=726

4=~749

15-165

BITN

4=4798

4-485

4-528

4~550

4=564

4-602

4-619

4-637

4-642

4-658

4~670

4~725

4~748

15-167

BIT12
BIT13
BIT14
BIT15

4=4798
4=4794
4=4798
4~479%

4~549
4-548
4-547
4=546

4~563
4=562
4=561
4-560

4-601
4-600
4~599
4-598

4-618
4-617
4-616
4-615

4~641
4-636
4=635
4-634

4~657
4-656
4~655
4=654

4-669
4-668
4=667
4~666

4~724
4-680
4=679
4-678

4~747
4-712
4711
4~710

15-111
4=723
4-722
4=-721

4~746
4=745
4~744

40-1
15-73

39-1

8IT9
BLNKS1

4=4794
47-414

BLNKS4
BOTADR
BOTFLG
BPTVEC

10-82
41-73¢
41-54t
4=4794

47-384
41-91r
41-101+

41~
41~

BUFFER
BUFONE

13-C12
13-:10

13-(34
13-:77

58-1#
13-;43

58-5
13-<09

13-<67

58-2#

4-6664

-ONOveoMY&«-—NNGONO54“O—gwnR-o")[]\~e§=NMe=yMt[rN],e—=[¢—L~a]][[N-0W)80GUOAGOaU0[-(¢y=—t’3 ©-UV!N=X]U~=e=[]}~—[L])FO\a”w-I.—
XN]oO0~[M(Lv4-==[]1--9Sl07YaM5eaOLeo]l=alTLN¥4MOOaV“l]}BsNaT2laeNO”N,l1HO2)R¥3LUOTlEaVVnM-AoL—“”laNSLMNN2l-8Uo=YaRLLM\’ESfl(IoN”O=m.N)eeaLml%TnUSUaNOvR.U~9LNRU“RSEOmN-"RI6GTOONP0NG040dMO4006e0IONA8a3O060DM2<00=D0G%OLIGV00NN0O\0NeO=ASON.Mo>-YNALNDOOM=Nro0LMPMRM9daANB=mlLM.MT0OtODa.oNOgA]lR4UbNMOO5doNM'oRkUMOO5eVN“oMLlOW1adENL“dIl—nAOI°*oMMM-TeNWh~\m1MtMA=PRNnhN20R—04M«aNrAON—NayWr5OTmMn—M1rN>N—NM5NW—O~OeMoP=NTC3rN]8R—-WUON(eynV,YNROm“F22O4f-~l48-o]o3—“ru—4w
e3oo2l8L-Mo2- sVR2000o01NV0otO0a1027O021—NAI\N©LR-.U-0M"-o\ &Y%--L3—R <o
DO¥RL~BRiTa]aWb3yeYM-n0no=TOaN0o5¥OyNU—hYVBNeMoTOMPDA-yotVMwNiGMnT«=NbeNS-OIDeNA9N33lWO9N0bR3Mwo5'~NRMTTIO0ETEONNe=ONMNIA%NNGKYwRDDuONMRRTO4LlYOe2US2LOT0Le0VO7TOPABUTY2TOoV7NDL%MotW:=eglaLN-%¥dalGVo0.LwlOalnVSdaLLroT0WxlLz1®LZR%&L#I9~OltLnPMRDi2Tx&LLcrX3"K—LTWeYt ATo>wnSd“h(yR-oT a8m5)un3]d
o~o¢AOM%APoNoNOMgNyeNAeNMW—ewOo“oOOyhMn-L IA—NTrNOTOeerAys oYN®TNMWe3gooN.i0~N &A3eAMS4}N9NNOV—~O0NT9 OO~[—N~xo EG-D 0ooe
T[3¥[;v-Val@oM: \IOA~VT0RIGT00Uk0IT5e0EY0E0oRI—T T"-gYMM M<TW%hYA oS
P

M.N

]

< "W

]

1TL%YVERI5TEN RT¥35ey B2LG0€6aLola]'lsa}’rNW-nne [3ON.3 -Lo—NE-rnlnnmnm

=NV —Mh - 0

’

000A0G00OG004060G0G0GOa0/a06D€0a0—ho~
N4Wo~“M0oWWTMWOBMyN(Y0ODONIMOMDNMNONDMOO0MMOIA\O.OOMTN~)——ANewO~—UeNMs.o-<yuoO~
MaRo0S©oVD-n2-M~©8=A0—0ANOMoac00N~o-0oDe%aa000Y8oOa~R[RnN&ra"aT8t1e¥Os~oUn81AW2oA4NNQR”WR34MDo”IWHMAO0wTNS3eyH”BOCXe81CRStOONr&R81eMeNNw$NOO\n-60D0orOO8AOON00I30iONMMTA4A0.86n0D060A0N26e76T4%MB8M0D0U0O0O&54OTOR803-68a0N000OOM276OP7G86G6D000D-N”7O86O62R308I00R00S1O&M=6766G8N00000NWT7MNO5A2686G0000N0NOO1N%G6GGO0000OMI“7GO1G60GS00N0I0NN4O“6€8AT06ON00005S“—5M64=666DD00048ON%66a60S00005%2¥—N@0€N-a€000DRX3OV)AwmMSYyRa(XMneYRBm=AB=RSA=-Tv3OXNR”o2e0oMNLo0-y~)w5d7=w—MoWM2be2“LM"[6-lR~MOm1NepM+POK—[~02QYyIM8V7VNY3OW[vSS1eooF-~4V~]E6RYJ-O&=0®M-A2C=WS-moT6S0N-od NH5G)M--.]
OCVUMNON.=N IO MO

eJ1o0yT OMSNRSASRNOGSOMNGNNROGROVOAIeA Tf 2 NN

NMoRyE /RMOVAV RN~ [SIVY]

A00TO03o@€1)N0h800%40O0dQs0CiAMMVRASbbONueA’ileW4QAtAIAA@YWAR1O0ABeNNor0D~.QLTO)NYCAL6NA=L0AAANoaITO2)¥AO0SRRoALR0EC—AANSOReON000RMUO0AP=tO0I0I0E€A0SERRO0T0CINGOR0Oan00INM0NC6N0O0ra0IReO3RNOD40DN0PaMyA0\6DTAO0Ne0ANO€TD0=R0IF0EDo6NAVO0000E0aNe6D6IOO00I0n0AMGNC0r0OIG0NO060LNC00TND0a036I00N=000n0OILD0r0OOxO M)ODUI»rOUDoSaLOLUIOWNGO®WADWO8TW)AUITIO3T NO4TAAM2YN393BA]S”OUIML2h1T3MO-aSN[O5cT~RR-MT2aY2-IY0x-Y7TIN=P)9f2IMTe2-VoM2T-oT'M1—E3RXS7o>T,®MWT~-)-~OoU¥S[§nPmTWw~~N2oao&o-<a'A &&~
3
N
[
V
¥
]
T eYT RVTIYPT <% ox

—

)

-—OA8SNWDO0NTMMF—y=NONM SNCI<~M-ON—D=AIMrAD ]Di)NtO TAVMTRYNT%Y oaG0648-@e>0e°oTYTYOnTLNY

- /Y

]
L7,

qmLN4.Sy N~

w [¥¥]

"MR

37%72%1050&0N%
:8 8 8 8 8 8 &

OWr=N—MOIMNrO—N~OMNIONMONIFNO.~

3V173 ooloLSTfiTLa2dWX AXa)lMAaMdbeWbAdAbaAbdTAsabdWo) e VRY
D=0MIBO0NNA00OAM2GO0OMNDI6—0ONB—0 O80NMa0O@bWM=0NR0DQAeDD
0
ONUSUSW6ONGO0ON60U60LRUSG0OO0 G0 G0=G0 G—0
M~D=YONQF~

CO|NOVO AG NGOP0OLMIMGO A GULO 0 60G—= 0

CZRNDAQ RMBO FCTNL PT1 MACRO V04,00 28-JAN-82 16:24:51
CROSS REFERENCE TABLE (CREF v04.00 )

EH3

8-465

53-54

8-£16

53-24

8-690
53-104

8-516

51-2#

8-690

51-11»

PAGE $-12

888888U)SUSUNLNLS

SEQ 0298

7©ooBWoBWw"A0WAMSo<|WoOgo®MRoN"9Pa-0A4-P
[=m]][[[1}0&w0][wog0.Om]][O—-.mw0.OwK%.1=4](§][]=4)]L][8UL]0(@]¢[lQ[O)|W00L]19O2‘3P|y09
Wv((w[voT-MTo"Ry0Y0))i8NTJw-‘—sd09e852P10qe-1uT"2VW4O©“I¢'t417NW&-8wMNOVoT54AWy[~Ag1eKR%[ON4~SNa=8|a])tm(AA.w=[2«mWW~]m&qWO-VV=NdeUWi1yAQAwA~Oq1Lu0Ma%MT..%LIw3M.TmJwaV=T%wd4[v.][0.]%.M(wao[oWNO-=E7.Y8a4):NT0VOQ.RNW=NoOf(A:r]Na0eOOg=0.vy,tAL[[aetNvJgasTMJI]]%IM.ImLMwo~(2M.=oP¥wy\yT~y[]nW.MT&.)#v[—ANO=M~]vVV,.mWr=)al.LYy0AM~f=)l]@me%J[&MTm#M
So4O5-3OWo0NOD-o~C(M=S]AO‘ONTM=lEY‘OieNoM\vyg=tovR~—INOOAR0TW-r©vN1[YRY+-EBo1-OA]sION>ONANaVYdTaOQn%=oO®0][[=lF-ONOvA=M1=0ODJWNoNO\eMO2—=N00NoOT=W[2N0y(=cle(NlmUeldelOBoTnNa)O=-2](—OV(p13=NInNl=83T]T(,=]~yLAY—e“OA—L7o~0NS88O53Nb0O1o0"O
"Lvo)T~)y oowT@VSn~TP®0A~W NNL9BRWS30A[0NTTt8A )%i -¢@)SwW ][ oMiiNAtozL Vo-v SN7NAW oYy
(=y4 ~rNM >i O [Ta)(=4 [e&S =d =&-y=A]L(eo=k] Sd gy

AeGNRAOmYAOODQ—NPOW0OMsWwsNOLNgMNoA0mReAVoe=PAMyOARsOWoON0eOWOVOAPvLRAsWLVNLeACN)e0wOo)ROPRAOesCAPGOOAIRWmNNe~OeONLASoLfRIOAO(ONPAlNerNR\NWoeLOm=AkR0=rOW)wPGNO[MVVPRZ0VsTANOORMIWmN0IAA=evPROOAl4yA0ORMsWNONELO0—mRAOOARINTIELmADAgONwRO.NER»OAg=oPVON”RRe-DWNVEO[[ 5RAm0POIMRA”QORNTT0AIEPr5ORgAN—RN”OANOgr~EPQWO—Ney“=.eNEPARTMORTO-NORtO=avWl0IOaEP.=RdaIO0rlTAoRN’E0vaROelTNNWRe—0LlM0IRA[OOIvLWNeA0RAiePRWROkN[RAA -<NwPziYRR,weAMAiW5NVOOb—RwkN3MA—=IRNheOAWLWLRNNIe~—R~ItOiNPtw9RVlD0LRV0V0OQRRVIAANO7RNI0VOINI6IW=R=POAAAIT10AMlRNOWAOOXNN“WWR.-IIEV“R0NI2—NALK5ATWV0LNOW0-NR~0AyILWNoM- EO"’
© NIV0 NWQOWA yWV & QWOA2O NQIyO WANA0L
CZRNDAQ RMBO FCTNL PI1 MACRO V04.00 28~JAN-B2 16:24:51 PAGE 5-13
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0299

)

&¥a)x4d

&M«

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28~JAN-B2 16:24:51 PAGE S-14
CROSS REFERENCE TABLE (CREF Vv04.0C )

EME151

50-69

50-5¢4

50-63

50-173

50-217

EMS1SS
EMS154
EMSISS
EMS156
EMS157
EMS16
EMS160
EMS161

S50-111
50-111
50-112
50-113
50-113
50-13
50-114
50-114

54-109#
50-712
50-126
50-114
50-123
S4&-164
50-115
S54-1154

50-123
54-1114
50-115
S54-1134

50-126

54-110#4

50-116

S54-114a

E=§}g§ §3~;g6l 50-59
50-72

50-73

50-60

EMS164
EMS165

EMS152

50-50

50-~45
50-56

Ensles 3080
-

EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS17S
EMS176
EMS177

EMS20

EMS200
EMS301
EMS202
EMS203
EMS204
EMS205
EMS206
EM3207
EMS21
EMS210
EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS23

EMS224
EMS22S
EMS226
EMS27
EMS23
EMS230

50-112

50-51

54-118#4
50-57
-

S54-17#
54-123#4
50-105
34-125#
54-126#
54-127#
30-217
54~120K
54-130#

50-128
50-138
50-122
30-122
50-131
50-55
50-55
50-168
50-15
50-189
5G=170
50-171
50-171
50-55
50-236
50-237
50-237
50-16
50-179
50-231
50-233
50-232

84-131#
541324
50-130
3C-130
54-1354
50-142
50-142
50-170
54-194
50-170
54=1404
50-172
5L-142#
54~143#
54-1404
S4-if.s
S4-14ik
54~z04
54=147¢
50-238
54-1454
54-1504

50-121
50-53
50-53
50-151
50-17
50-151

50-182

50-151

50-173

54-112#

50-61

50-62

50-63

50~71

50-72
-

50-126

S0-196

50-123

50~172

50-125

50-126

S4=124#

50-218

50-219

54~1284

3098

50-110

S0-118

50-119

50120 50-121

50-212 50-232

50-23

50-131
50-131

50-132
50-132

50-133
50-133

50-134
50-155

50-136
50-174

54-133#
50-176

54=134#

50-179
50170
54~138#

50-233
50-179

S4-1364
50-233

S54-137#

50-173

54=-1394

50-117

3033

54-1514
50-150
50-130
54-154#
54-214
50-152

30-143

50-111

5 *=107#

5 0-13¢

367i8" s0-68

50-1¢
50-9
50-57
50-215
50-214
50-316
20-516
50-155
50-127

3036

50~113

SEQ 0300

34-117#
-

S4-1414

S4-Tubé

S0-151
50-153

50-153
54-1534

50-153

S4=-155#

S4-152#

50-168
-

50-183

50~194

50-195

50-223

50-64

50-65

50-66

50-67

50-68

50-197

50-198

54=120#

50-235

s‘-" 22,

S0-169
-

$0-170
-

50-180
S§0-175

50-175
-

50-237

S54-108#

50-70

50-

PAGE S-15

SEQ 0301

564-1564

wnay

LILL 1L

56-224

50-115
50-116

:—‘ minal

OOV

WVMIAWA VA NIWVAVIWVAWNAW

EMS231
EMS222
EMS24
EMS25
EM326
EMS27
EMS3
EmS3C

?OO?OOOO&O
¢!
D
N
]
ot
B b ) b d d d

CZRNDAQ RMB0O
CTNL PT1 MACRO V04.00 28-JAN-82 16:24:51
CROSS REFEREN E TABLE (CREF Vv04.00 )

50-173

54=25#

50-23
50-131
54~264

50-2¢4
50-132

50-25
50-133

50-26
50-144

50-177
50-60

50-199
50-66

EmMSS50

50-132

EMS51
EMS52
EMSS3

564=274

50-227

54-30#

50-215

54-32#

WVILVIWAWVE

NWN

OO
OO

50-116

50-19

50-27
50-145

50-29
50-147

50-30
50-152

50-31
50-155

50-32
50-174

50-201
50-117

50-147

50-186

50-187

50-188

50-192

50-139

50-141

50-185

50-189

50-200

50~201

50-221

50-129

50-149

50-179
50~178

50-189
50-179

S4~434
50-201

50-228

50-229

50-230

50-231

50-44
50-187
50-218

50-46
50-191
50-220

50-47
50-192
50-226

50-64
50-194

50-65
50-195

50-73
50-200

50-140
50-202

50-141
50~-203

50-5¢4

50-63

50-119

50-143

50-144

50-178

50-182

50-183

50-194

50-195

50-228

50-193
50-207
50-230

50-195
50-209

50-196
50-210

50-197
50-211

50-198
50-213

50-19%
50-214

50-200
50-215

50-201
50220

50-202
50-221

50-190
50-41

50-145

50-146

50-147

50-199

54~544

S4=564
50-45

50-47

50-48

50-49

50-50

50-51

50-52

50-54

54=574

EMS70

50-52

50-66

50-70

50-73

50-107

50-110

50-139

50-182

50-189

50-19¢4

50-205

EMS71

50-63

50-195

50-208

54-59#

EMS31
EMS32
EMS33
EMS34
cMS35
EMS 36
EMS3?7

(¥,

50-28
50-146

EMS4

EMS40
EMS4
EMS42
EMS43
EMS44
EMS4S
EMS46
EMS4L7
ENSS5

EMSS4
EMS55
EMSS6

EnS57
EMS6
EMS60
EMS6]

EM>62
EMS63

EMS64

EMS65

EAS6H
EMS67
EMS?7

TalValV
VL
[—INM
e,YeYlaelVe eANolaes][V
[OO0WT00aNlvOIalNOVa0ElvOD1100alCVaOOlMV0MaiOGvo0Oy
alValvalvalValvalvayU

wVe=Ovr—OM+—

EAAAe"O7eNHeAO7NE”ev7"MteNUE“e=M1"EenE"Ne1OHoO1eeNE!Hen1"NeQ.EGee'H(Ae1EN"OeOI.—AnN(eNOEHL1BMHNeNJOE1"IlBWHRNeN-E"O~OP1NeBE"No!NeO1E"WINaoI—M‘NBIS10E"IRoNFIHAoN1ENeONHeMO1BENNOA(o"1DAoEIN(eP"1UNNB1EMONbIE"Rb1NE”VLObAE"ORIN1oNEHNTAoEL1OAbE"RVbE1ANCTbE"NOb1EMNbE"OTT1bMENNDISbEHOO1eOF"NNNDbEH1LeN~E"1=VENE”N1EHE”1E"N’NTEH1SNo' Nw~9L
LZRNDAQ RM8O ¥ TNL PT1 MACRO V04,00 28-UAN-82 16-24:51
CROSS REFERSNCE TABLE (CREF v04.00 )
~

OveMi\e—~

PAGE S-16

SEa 0302

50-109

54-614

50-134
50-135

EiMO0N0HO—Ew"NP0OmR
E1eNuI"0eMO1Ee0OT"ENmOeSA=0TeO"E%YOeMHE0YOeIE1YoOTHeYON"E1eTOWHNODiYE1e"eNTHME1OoFR"OeNPVE1ANeHP2NoOlDENoOu2~eHE(ey2OeHEB5OeHNENNNNI»YIoeS5HeIENIOe"MIZ5eNWEL3e"WLI6~BAE2NOU eHWBI“"NeE26IA(HeRNMI"B.IEN6HOe0 NBFMY"eNE“OB|N 6TWrP”NBVrEI7"rbNNOIHOoNrLAE”eeNr7HISOVeeIEeNNW"RAeOrWAM”emNNPIIE"7NeNIyH%MOWOTNE7OINPA
LZRNDAQ RMBO FCTNL °T1 MACRO V04.00 28-JAN-82 16:24:51 PAGE S-17
CROSS REFERENCE TABLE (CREF Vv04.00 )

b
3

50~134#
50~135#
50-1364
50~137#
50-194
50~138#
50-1394
501904
50-1414
50-1520
50-143#
50~144#
50-145#
50-20#
50-146#
50-147#

50~4#
50-18#
§50~130#
50-131#
50-132#
50-1334

SEQ 0303

MAR.WyW%M.MWR-PORwR%Y.MR1P.1HR.I-1.3.“-3R.“N-3k.4m6.4-N34.o4.-Al5.“5e-5.55.52ol5.6b&.&6.63&6%&77”7a)777%7&2&&
VY2172 VoYYtV BNalValVeLAl

EODCRONAnWyWfO0iNtlE0MAegynOEOWDiOAnNEV-PiODrlEOMNDSAnlEAVNReyMOnOSAeBEONAelEfOM(VAelEOVgneMAONORWeyEAOfNUMEOlRNOIAEGn0(OADSeNONC0SeEIfDgNOEelGOgeNfIOMNlEBr—OnNgOeAUfDEgMlVOMO(NTnDeESACONTMefOCE0IiNleOAfN0TeRrUlIg70JNO[HMNU3S0ACCYe0UoHLNUOe"ERN0UDH(M0PgNAE0HIOeQeNN"—0IPEHN0eeRAM0IeTENHI0R1TN=OI0NHNECI0AveOUA0HeAEO0NeO1H00NMEOVV~e"NQOLeIE@NMeIHO'eEIVN"eyHOOeEL"NeV”lCNooSeaH)ECNMbeIoGOoFHlEAueWVY‘"AoNNaEwbl.L
CZRNDAQ RMBQ FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE S-18
CROSS REFERENCE TABLE (CREF v04.00 )
SEQ 0304

CZRNDAQ RMBO FCTNL PT1 MACRO v04.00 28~JAN-82 16:26:51 PAGE $-19
CROSS REFERENCE TABLE (CREF v04.00 )

EMT314
EMT315
EMT316
EMT317
EMT32
ENT320
EMT321
EMT322
EMT323
EMT324
EMT32S
EHTSSb
EMT397

EMT33

Enrgso
EMT33)
ENT332
EMT333
EMT334
EMT33S
EMT336
EMT337
EMT34
EMT340

50-2244

EMT341
EMT 342
EMT343
EMT 344
EMT345
EMT346
EMT347

NN
NO

lllllég
quuNNNV’-‘—'—OOOO
WO
OO

EMT54
EMTSS
EMT56

EMT4H
EMT47
EMTS
EMTSO
EMTS1
EMTS
EMTS

EMT4S

EMT44

EMT42
EMT43

EMT4
ENT40
EMT41

ooonooaoooamo‘ncnonaooomoncnoo
L]
1

EMT3S
EMTIS0
EMT351
EMTS52
EMTSS3
EMT3E4
EM136
EMT37

SEQ 0305

[ CZRNUAD RMBQ FCTNL PT1 MACRO v04.C0 28-JAN-82 16:24:51 PAGE $-20
CROSS REFERENCE TABLE ((REF v04.00 )

50-65#

ERRNMB

ERROR

ERRTYP
ERRVEC

ERTYO0

ERTYO1
ERTY0D2
ERTYDS
ERTYO4
ERTYOS

41-21

13-288

41-41+

L1-13#
10-24

SEQ 0306

10=24+

13-:38
4144

3-.05
13-;

1-49
41-4

13-:71

41-56

13-<37
L1-152#

22-84

22-86

22-102

22-136

10-24+
13-=68+
18-33»

20-11+«
27-25+

41-38
41-43
41-45
41-144
41-31

o—=\=OMIANOO MIF
VMYWYMYM MIMI

SP5T,
AN~
BTYN8T-IIST IoRNeOTAY-S
LMAPOAgbogNPGePIAPMMgWePNSOePtM%TggYA--eRgGRPgbePNP
Aol2b-3ag.l3-olaPolRNfP5ailGl3afl-ia.0l.8aP.lRe0.i-a8&P%l0.TL
oAR
(P P G eS R IP PRT

=2203eG0=\3%(gRM.Ne72aUe8lg3"aWli3g":aA.1(2"U,3R]g[0A=2iOlgy»3.3Pg20gG3g.e3&4Lg%Gae2¥21PaLAYo

ESRC

4-5474
41-40*
4~4794
40-1
&~679%

~4708
13-4874

13-6244

13-5724
13-585#4
13-610
13-6244

13-475
13-4874
13-

13-554#
1 ~574
1 -5854
13-6104
13-626

13-34
13-4

1
1g 3
1
1
1

13-59
13-61
13-626#

!:J!i)t:)zfijt)x£§J

1840

F=QONW0I

agTo)Ltalalaa

0O35829v3CA5MN7ON1.G3OU6N9=~0ON1O4]O579527496285“0258“10316529v6w5381ON61O367U9M24N6D3I“N25“
890o35393.571368S0O4WO3B5069L24LI92e7i136F29i52e8041R357924G6h8“B2D5“0156
oROS*nCDSRDTMOTVAnDRe~LADRAoEORVbENI©ONFMSI?RNAoEFNDANOSF:ROIeA5BbA2LoBSAPFO3BAoLw2*BIv=%RASDJDoOLV2INR4CU,NHtIISDTHoROAINSRAMEAILCRASC“eLC6RMCT9+O1I.‘-A9dNB1nLo7IAon1BNSB3Lo6ITN2%3N9F7057S2RNO87I0N-8‘A8AN3R56S
MVN“O;YVO2uNONIBO5a(,VNNk”OuNOe7uNNt.V1Rs=k”uNNTPNNOwMMNx5gUwoINk”OOuEN7OnO0MbT2Mw3I7%2IuONXV“MbGOnNA3OROOoN\&-9NANNwR4=LIOuVRNMsWVR52VukL*Me”A8bR®w“A0Oz&N4DRu"D3vL“~=sRI8&QQ5wVOOA»Q6uO&SMNN9I6IMRNI2yka®RW5AOOn»3ukNWDD5aEBIIu8I®$NR9IDMN12PI&OOa5OP&wR“WIMIuSO0I3MNN21IMANWy4F~NF”50LNOO79"WNIu2”NMy3AR0s4NubAyN1073&AypP916u”1N1IoM03—4u7”TM6Mw“2O&175gRMOI”M~NMRNE[1&kR2Aa]
P)g13.PRAgeO’3V3gsyeA4Yo13VeN(IPAVeoV3eTQDP(Ioie133(»QMMgGGeoyYV(QPAUgge_,133ARseMoN(giI(oPMGVgAg013a3sVNQYMRe1io3Aef(N(oMIntooe3ATeQO(gMU17eo3psPeQoNAMNo3RsIOQiAYoo1eaN3PV((oRNM10eoA33Resa(N1Yo3AbN GoN(NiU[P0m3VeA(1RPgSo3TPAe(1mIGeo33)PQo(NIGeoTe(R1IAPMGVeo330(VIT(.MAeVo§)51TeTeANSP033VA(o.R()POReo1INTVG((=Y$e03o3.4NQPFGU1eW1NDSOPP373SN8-AeI7RPR§V1D.(QNPGY3U%3MIUA70MnP)51.s)eGKiRSTR303e)0eoNOPT1.Ta0V(AO31Do3.)A0RNGP1T-)RIO0PM31GV3.Fs1A0RN)01TSoAIQAIP31Ge.3A=10eDI17.N50e7oI3A.3RSVN5L140DN.NIN03YIlGT015.3MY&TM1Y101.VPYA3!7%y1£0.3Me1IP000N3oMO13MNN10oTIOo73I3K1e0NPkN3MTP3EN1eTGWM5e3IOPM3M1A%ToPB3TePO3Y1MRsN3eo31M-3PPR []3
3gco0(g-se0Age0(i5P4RPR4(ePQRU47JSES4eI%(-4<(BSTi@GiI(ORSARTSPBGRTGeRUGROGTGUOUTORSRPGROIP(GRNSPORRP(RPRSOQARNAPGRPR(PR@T[@GR5s@SPNPIPOPRQPigONe3eP3A3PR3o
FMT16

OM—0N Ve ARO XRRSRT2N

B¥

o3 ¥ R &- % Rk Rk ki_R

CZRNDAQ RMBO FCTNL PT1 MACRO V04,00 28-JAN-82 16:24:51
CROSS REFERENCE TABLE (CREF Vv04.00 )
PAGE $-21

SEQ 0307

ARIMSRN (QP$oGesSTgU70RI&33333TLS33333333.P33TYR3I333E333333T33V 925V6M81ON2UP=GAI“7MVN1R”0.D58 Y&RTPIPINPSIS

L.Vo[RM—A--.]=UgdA—LOON\43cl3.4¢3£4334.4.$0«7.4334%3&54OoViNOen“GA~\NyE0)oD4y=4e6GieB4ilMvHM=Ia]1-NoNMO1<EL4g0OM[HeLl+WP644“=04YM\]6V"IVNON(Oo&]«)o446QNONeWVMIeTMT4O%ooMNwWW—ot—VWl=O44grNTIAt-NoNyOD44OSLR“6AERcNSUet4lMOre6NmtOe4NMmeTlOeN4sOISNol4N6IlWOAoVMN4WdRNN4S4lRMeBMNM4ooO7Ml}lGoVoA4llTY0VMeooMIOHllNT—aooN\4llOI~M2oAoOll.NT4loN—lOMMMLAa\blO4yVtaxmRn.u\m%,”[o"m-ew\Tl

5-N05\3iooeeeeleooNNIDOWS44La1ALOYlCE®VVE]]ooOBNoVootoLoTdd3odIARXLSL3RSNlooloolLomlmTeIolooooolooZllRZw[SLolo.ffil_
WV O 0 OO OON T

. »

" Il

SAOtop}@vR-Byq9olSotIStSSetSyetRSagPotStSt5tgoomtbNIYmOPtNSmSVMRt>o 0XTatOW"iNO—0tTLMtNA:TOITNOIN7OTMT(B©WAOO8EP=NYNTY0ATVIYNRWNOAMeNLtOI2NTMSOANIRNiNMO-MTOnWNGNWMgYOOONETXDO-MRxNXSrEO&w2NvVNM wYMNOAOMN~PLONONIMnMTNOUTOoMONOYANNNWTMTwO.Y4r=W]BmMOONML2ToOOM04eSe2“i]([8-&ta=Y1]
LYMMkS[]aiY0- =-MTT9304~4TgPN&]NLIOTyT@[ 0NI2 O¥T ]\MeITOTRAMNRMPiOIyT=PMyDOVMWTNYNiDgMvIOSaATY2iMIoMTyD0\=OIIP3—TT-IOeRANNLOVOYRTMOTMeoVOETNNWww$[U oeYen .2l/fiw
-

]

NboTaLW4GMnNl)OaANdI0N =M~OTN&ISYOInMO

° MMMMA Mt $& B @ b ®

from-y

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE $-23
CROSS REFERENCE TABLE (CREF v04.00 )

INSERT
IOTVEC

IPCKO
1PCK1

1PCK2
IPCK3

IvC

L8c
L8T
LF
LODEV
LS
LSC
LST
LSTRK
MANUAL
MCLK
MCPE
MOF
MOPE
Ml
MINSTR
MOC
MOH
MOL

4=7024
4~7024
4=7024
4-7024
4=7024
4=7024
4=7024
4=702#
4-7024
4=7024
4~7024
13-48
4-479%
4=7544
4=7534
4~7524
4=751#
4=-7304
4-669#
26-90
48-62
48-78
4-6714
4-5514
4~479%
10-117
4-6284
4-6704
4&-6294
7-04
7-04
4~6024
4=7124
4-6074
4=7284
4-610#
13-41
4-605#
4~6364
4=56494

26172

13-93
10-24+

47324
10=24¢

13-156
13-529

28-56
13~-:97
30-92
48-64
48-80
13-443
22-358
38-1

26-213

48-63
48-79
13-440
13-288
38-1
47-214
13-179
13-591
13-179
12-55%

11=59»

13-266
13-391
1327

47-304
13-391

13-:99

30-99

48-67
48-81
13-444

23-125

28-80

31-70

28-80

13-a%90
11-69+

31-70
13-E16
13-35

23-62

26=54

32-95

21-90

21-107

21-120

21-123

32-70

32-75

13-:68

13-:35

13-<01

13-204

13-=11

22-482
13-:02

10-98

13-404

31-30

MRD

4-6114
11-81
4-678#

47-164

MSANUL

11-60

47-284

MUR
M
MiP

4~6044
4-6274
4=-60
4=7278

MSC

MSDRVS

MSE
MSER

MSGDRV
MSHELP

MSUNIT

MXF

4~606#
12-59
11-11

13-39

13-391
47-174
47-74

47-294
13-391
13-180

13-391
13-271

13-:02

13-:68

13-;35

13-<01

13-=04

13-=11

wnon

ILRGS2
ILRG34
ILRG56
ILRG6Q
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG?76

oM — -y

26-161
32-205

26-162
32-206

26-167
32-210

“fe2]laflyl”LM2lLS%.al9y]oMMiOn LaO,a]5T~
)

= o0

5@Y(eov%0][=-MoN1OY=~ND2]OoN"0yA -—M-

l [e -

MO [

[
)

o )w

MNMNN MO

tYO9 ! ee[ 7itw i' %

o MM = OMNAION=N- ¥y =4M.[._lRE.el?.?&lfl (VY-<]

ABARPaSAOedE)RoaFeIAoRStoE.NyLNTRaToARARAoeM238RyywRTV )SAMIvByNyn igTw0AuIdOpNToRQmhOtanEAF Ta23Y BMr39nTs RAR[T3-8RSa)PTAI3WgTO7~RYRT2O~&I 3o 2

wM—a2OF-5tAs12NOeDNOM34AO=oPLYlhOMe58SWahlOTAMO17aNTTvOlN[G~5waS&hNRylO”2TNN<Td-<oT”7-R+eE7RN7RSy7RS4OSR%VeMN8(eTT N-=MON1="]V([)PaT©-y3you"=)a4Y)”m1”n71A57LTn.LTO&LnEm6IWe)‘7P h~" -<N MoV2M)eOmNTOy-Tl\Mte0Moua=tP“<e-]20<GM000O70O—N3JoG7[&MC0D+.~yAORoZMA0MgNWwoIyAS%YIs3Yu1l“S«<i0aJauyx5anIoNv"("L-M)RO~"=yM—2]N9R7oMMMeNQpBDeoA“"IMooOayMygsy\N2dM0N—Sb-N22&w~N4omk9o8oo&UmPT oIs~~J
oa

(7]

vy w

glalalalLAl

SEQ 031°

oMAOWNMyr—
-

oPIMN]MPovMNOINAHNAYN

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE $-25
CROSS REFERENCE TABLE (CREF v04.00 )

ONSMIMIN. gY-~— NONV g-

R7
RCLSTS

RECAL
RESREG
RESVEC
RET

10-24

10=-264~*

10-24+

13-556

13-578

15-209

4=7164
12-374

11-82
13-51
11-49
13-143
14-16

4=4984

41-148
4=L79%
13-50
4-6184
L-6164
4=521#
4=-5034

30-154

21-86

21-89

28-31

13-229

13-:16

13-:83

13-477

44=-14

13-95

47-3Ln

13-928

13-;49

13-<15

VO']oVIo *Batol-loldoVloOloLPaY

RIP
RLEASE
RMAS
RMASI
RMASO

47-54
4~4798
4=4L79%
13-485

23-32
13-222¢
10-89
13-565
13-923

[DU&AONL ON0O WM)M‘UN¢ OBy oBVagLl1MeM ON*o(NBuD. oN|gLdlV doN[LlV 4[].00Ivh—Ve€u alLSaN?aloasl
ONOOM

U=0M MMMNempe=r=r-«

~N79%“2

ONOM 0NegSol0(~72wX0n

3-149

%43o6&

-*.l1]lfla

1 3-117~
4-758%
1 3-546
13-888
13-=96+
13-859

13-<73

U)OO WU
N
A
O
M
P
A
D
-0—OL} VMMM
U
L(TOUM o=
£TYTYPE
tOMON0oadeT(IelT
NN
oOW¥L]oROd BNMLMO
oUaolONbOaNlOa0l
O MMM

VoN] dOTNcolaaOlVaOlaNlOiaNl

REX
RG
RH

13-437
13-518«
13-635+
13-750+
13-963+
13-:82
13-<14
13==15+
13-a74>
13-F02
10-24*

oV)o VOO0
o) [ol olNol Lol
g) NNLal,al
a]lv o [

PWRVEC
QUES
R6

13-391+
13-496*
13-617+
13-748+
13-963x
13~-:68¢+
13-<05*
13-=13+
13=A74x
13-E95+
4~4798

13=->22
13-889
22-16
1 ~-264

22-53

-MYONOSOWAo==-vy=\-=0——re—r—

L(-v72SML=3xOalaMl3D=N2IOLOD6=O\+%MM2==OW3:ea@OolwidNioaLYVlvlLoL<N-laLl*oalloLQ-vaela=0loQeayl\e—gl<Le-)-%LoaNVONo0]-\l=l—VMSa"—]o2l—OIonlrSao—lMlLiralloo
o--[]v<geOS1INglrRIgCtSINoVMRalIaS¥NR1a¥eIolMadUNLoteUR]Lol[nN]-e1-¥Re0o0llgolsPaXNL—=o0[l])=RO¥4oM0oI\oA[]NeoA[NolmalaedLk..v1.\w!s;
No|-&D7:~2Mn22.0egvo2v8OVNMNhnIYOOeONMhO~oOR0NtInNYSMOhNVMaVOaMYOnMNvBi=0W=eeOneon=e==gTWgovU~n¢n=oh-AnChDoT-ONnlho0YC4otsLLSnTI—OlTtrAdMoOT=-e-RM[4E3Ielnt-TyhmeDI&nRMdLe-(OSwNT-YTOei_H0OINir0YernNirBe-eLnIwldnMgOeieh0-mDwh—nNNN,mMDTOMoOa==VUYP]M]omIDI1oNnN2M"OO&aVnTNIgTooWY—M[WCOSrVNe0mOtdWrnOmMYo—NlNeerToKMe—lt-rENnLN-N—oOyl22.2”oC.,
Sero dld hhons & tanan.om 28

x x ~NE

ERA9TBSTo¥1ay3SET<T&aMNEaLTS5ElaSEtT§laoAT>YaEigWTYFt—ORIoPeNPNen0TL-oRInTOdTYoITPTaIP0enYRLyIESTNRSMTRIPvodAU"NaIRON[nGYNLPYIRTe¢AwmtelTo9A=N2reTIA*EA9.®NRTpOdx* nitRYITTMTTRrBOS—RIIxOdTIn&NhEM*HPT¥h*NoTNYIlElOD"enTTRAOEWTIYhoOnRToavO I)NoYb»OOfNngEeIEdRxnEYDOIM~n4-sMEPnOtTIOSYENeAP.OROMToTIIOTIAYMENIRYTTTMDY5MIV«AI5ERNIEMMTAB5NRTNPM8OGI8tVYT5DEAiaOeES2O2SypFX5 2EEd
TPYN DTyTnYLTIRYTYaII ALe OSITYSYPTROYTeSTYeYvTYRR TIRSVNITVNyTE 2v
Lol Yy MNMIMIMIMINIOMIe~ o

[

[]

[[}]

0(=1

FIORVSE 3To 2% PORI o3% A3TDY TDRNYTON IOAY0N

aoB2VL]MlLANMlOltT)aIl2OyiaedlIalO

Na["=TO&-MN0D

NsL-~Vvo5VONN~-ONeB=ew=wM@~yL=oOaWl~anlCoOd\iWeo=al€gloMOlMgNaOnVO0glNodNLKDM®AOlNglONolOaViVa¥N—LMogV..w.
oI”yIIIIIIINBR][%IB-R]TRNZ[}fRluN[flN%”N-B]SNANof](iuoN)Uab1S.sLlnluTTRV=0YNIVMo==¢o=R¢NOUOCUONMNPMA—T@% o]e&@ALNXo»vRnID-NMNOWNWbAV0NMOADO\NvWOW4M--(NAONLMAL1N-XET3XxCxrOCMNON\MOOT=NrINoMI&NM0IYODMNNOVUYOMVOoN=UMIOMNo=Awwh
XSo~"oS~gTYoAIiVtL“TaleSR—”TL_2Y—2BiRV9Sx*Ne.ria.YO27:SSYmTmONI2pV"BMNOWAenr8GhOIrTO—-sRSNgreA&INO%NY.YIBTehelA3r*aiIoN=TonteTfEmh(eoe.A=OY]Ol-DtYY x~NM&]TEM]Po TN N&[TTT~AXlTC—MMM4RM2T&AR7OVoo-NYI*OtR.eMln0ITt_=NEf”RaONLMlM.BlMSAYsY2rRAxsMetMTxAA TB TO MO7-TSxeaoxwaRLN[UDPCBNVMcbvPONh”»IMdI]Yso4NIMSMAOzVoA6OTYLMNDOdmOY0R4OOIENS0“AMOTORMOS8NTO64wONNeAIBNIoV76kIMxMNMOTAYO“4MoIM°eENAMMMTR7u6eO8[g»I«APYNBM64M9IOOMRN8I%%M~OOMMFTOQ=NMOO—v\YAMMOOINTN04OoONMe=AINOMMMOY4~n~—==x.NMfBoRo2TOO zur’S5ywo.O2m&<vO fl~v.
«.]4LO1ol NO] M-&A0«R Mw]y Md&[«PNeM MAeDNOMCtNBORNLA QM-ROWNNMINSTOOOO-N0M ~
o-=ON—e_A0y

hOP D PO

eON=-OOIMWN

P MM

"# «
"& »
LX) -

[}

*N "%

=] (=1

-- -

-M A <N S«« own 3-

N N 0 v MnMNOCO ~

73 w

CZRNDAO RM30 FCTNL PT1 MACRG V04.00 28-JAN-82 16:24:51 PAGE S-28
CROSS REFERENCE TABLE (CREF v04.00 )

SEKSTS
SHUT

SIZCLK

SK1

SSE
SSEl
SSF
STACK

STANDA

START

START1
START2
STCDRV
STIMER
STKLMT

ST0P

STSD1
STS02
STSD3
STSD4
STSF

13->32
42-1
12-28

L-644H
4-680#
4~479%
13-536
13=-:54
13-335
13-F69
12-?6

5-3
10-16
13-509
13-B%96
4=L79
39-1
52-1
52-1
Sé-164

13-927

SEQ 0314

20-14

13-811

13-858

13->93

13-228

13-260

13-289

13-a23

13-366

13-A15

13-A58

13-870

13-C93

13-D39

26194

13-937

13-C69

13-C62

13-C77

13-019

22-450

23-7

23-96

23-98

23-109

26-63

32-104

13-448
13-884
13-205
13-E10

13-473
13-915
13-239
13-€51

13-490
13-959
13-267
13-E91

13-514
13-988
13-301
13-F30

10-24
13-561
13-.21
13-a84

11-3#
10-11
10-15#
10-19#
13-626

13-A76

10-18#
13-28

12-33

12-42

42-5

13-657

13-693

13-760

13-822

20-38#

13-910

51-9

51-11

51-12

51-13

13-954

13-834

13-p93

13-€39

13-E79

13-F62

33-27#

53-8

53-10

53-11

55-264

NalelLal(=] o
WRO&R©W]bo-O9=A[=}wRMeANOlWOMUayfNlaV]iAlLWae®W[lO&WNMyANLot0MO0[ol-%O&o(07-}N]—AARRAR- 42RXR4O.A*9%wN®R<[[:-

CVQYIOGeNP¥o£esEeTMOeorgoYAebMVNsPo47e]5Eo[-~4e7aVE3N/,4756,ET-A47N—W~=rFg047lT-OAe?FLNo47hc47ys47o=k47od6“ag%1nL5d)o—[TM06-F(r4y3yo«=lno42em4s50v437I3932n4L947.47154735TboLOF2Qrv\]qewX~0W8“INb
EOTIYANTQMTFRAeaVV*4OS«%YYE0~TDMY”mMOo5nMP%PmTM3ne:INe@HSSTWWY<XS<2V>@aIR=YVTOTE230)35383323323323533232K~13323233252.2YN2OVN3OM.a>dU~-O NsSQ&G-A m&
@[~3o~oM--oo4]1YN~N~}] OW-O]oOMgN aeNLgWOV]UU0a[]ObMl"YLaOOal0NR-VDAa[ll -oPL34--o—8o81y~al%0—3o~-A[-&§[4~¥ "-9-.L)“
-][ o

——
——eWu. O
e

M
MyM

L[LTV)M-.Y1=, -—

NnN-AQ

~ w\

& & % WMm

% a0

OO MM -

N oy MMO - -

-25~“o M-'Ky "uo\la

nAvR

—

oLalalial gwLalal

CAQOM

WNe=io

RSOR

DM—0PNoWD6(%
44~44MWN4ONr4—%4344%4444444444444.44464.4444444
MeUL)NLy©LDN1O%ESOL[}RE80R8TM74vg- 71[[6&1H5f9iOn3f6MAi2-8%3I7134ONr3““O3r%O3UM45I2W48VI5O49N142O6—41N54M7Pf0IiN35O6N55wRQ3%em5Of6IlM7G&N6OeN&in6V&%B6O37
LOr—]r—m 0o]o0lg¢l+2l1olUalLl[
a

0ATL U[|L geY-W.[U.oWeN=yB MNvmyN[LORMe[GAV0SE 6(=ND0*eV
*®

ggOL4V0Xroo~llogM=dYapJ¥lMg)(- (gM]YNLSONANVo=MIAL NLNPNUGToo D MNOOTo-io]IlILTMao|U l
Y4o4OOLLL9oaodog~0XlNkndyLOooat0ldW1LY MOoNIMDN-lUNOTOaAFlMsQelNAW—OSlNMBo NLMM-ONUaNKATAOaGMW[Sa
w][golN NN-=[N O AM—[NN—My
5Lak%o0t

QyM-.—v~4r.OQ-e 24OOT]Mo.lRolOo{l BLNM|aWl.NaMlYa

CROSS REFERENCE TABLE

Lala l=) N

-=oOO-rrO0=~MreO=Q=—vNpO oWg\ONNMMOOTuSdLol =BMMgLo[MNlTOlM

RN Ry

lNR3QiAe[3tNOk-vOoel03eaI1(g£3A-dV=3a‘MdMo3”§lALV1MNRantD30anPdN»—A3MO1S8M1R03M=M031e3170R31733o313i3l317T3o31i337vR33v1X3tY-vAY3-1iY3-LOvY3.1vloYv”3Y1AgR.i31o-igY”-0b31eD”i031Ie”P31AoR”EY“11PNB3eA11ST3FeS11=AlN7SAlGo131lsADl113oADRteNtD611ADsN‘4sNIndDaw10ntA1o&nRDlo‘1ABle12Nl
-~

ZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE S-30
(CREF v04.00 )

SEQ 0316

VOMWOe=

bFeOathDn

WN]%[«Oo©Ro[T}
442["al4a)1W44W44aOf444444Q)W~\37WneEYYe3TeR8wU)
M2xNo-OO-==x]3VN07MIRR[M-eoOM=e5WNRa'NtVIy34OTNy—AF2”19254~NAr542?R-”1W~N.K])y["1M1=MwaY-o“-oO-O(wAt[M=d00”5—~OWRyh)\\M0O”#N—ANF7rMRh#aN-OMM—3[[l}oO=NNMMOO3NVemOaoIsSMv-6P-]—MN’yOML[OW&N“1oOMo©sBeg~D]0NS»8eLNMT-XmR4rT—R4A="yr—QN-A-NPlONwA~o-M\—~NseerLyMa==knR~O1F\[mNo”"O.o-D 'oqI\e»Nl)a
de Moo3o0zMMy bN[~y ~-M - ~-ANNP0RoyEy¥RYoYTeoYwN\y ® AoT IMLMOR Yoo OMeToOVMn %oaR ]TMV7TIT~SASK ®
< 0Ny w— 0 gg r—r—rNP «

UeSUvUUWV:O¢~UOLW—WO~YXW3"UY.YNeO(I=}Wb3WvWTNaVU~UVMWysRoMT<e ORQTWMerUvO2V,etWT[Mi>yeoVOgTNoasn-r aNW~o(~uyten
WR

MR
W

- - Mo

~oM o -0<y

- ~ M~

= =3 R o 3

- NN

(=oa)-20n}N)"R]0No[0OM4= ob-r~Sd

-—

CZRNDAO RMBO FCTNL PT1 MACRO V04,00 28~JAN-82 16:24:51 PAGE M-1
CROSS REFERENCE TABLE (CREF V04.00 )

6-0

$SSET
$SSETM
$$SKI1P
SACT
.SAPTB
-SAPTH
-SAPTY
$CATC
SCMTA
$EOP
SERRO
SPOWE
$SRDDE
$RDOC
$SREAD
$SAVE
.$SCOP
.$S1ZE
3TRAP
$TYPB
$TYPD
$TYPE
$TYPO
EQUAT
HEADE
SETUP
SWRHI
SWRLO
ALCLR

L=4714
4=4678
4~4680
4~4684
44688
L=4708
4~4690
4~4698
4~6698
4=4704
4-4684
4=4708
4~4708
4~4694
=464
4~4684
4-4698
L=467H
4=4674
4=4674
4-4674
L=4674
&-1794
13-a52
4-1934
13-353
13-505
13-563
13-620
13-681
13-760
13-892

S-5
6-0
5-8
461
5-1

6-0

-1

13-,28

13-:94

13-=72

13-337

13-340

13-343

5-10
14-20
40-1
45-1
43-1
42-1
34-1
39-1

44-1
35-1
36-1

38-1

37-1
4~479
4=476
4~4764
13-107
13-A01
13-114
13-393
13-507
13-570
13-622
13-683
13-762
13-894
13-979

4~477
13-212
13-Ab44
13-132

13-439
13-509
13-572
13-624
13-691
13-767
13-908
13-990
13-<25
13-=33
13->44
13-208
13-270
13-a38
13-A13
13-A89
13-861
13-¢91

13-2
3-

13-=29
13->36
13->97
13-264
13-827
13-A11
13-A87
13-854
13-C89

MYMANATRMY

13-<22

13->34
13->95
13-262
13-825
13-A07
13-A62
13-B44
13-c86

-1

6~08

Yig.YRegGPP

CALSUB

10-24
4~4790
4~4718
4~4718
4~4718

6-0

SEQ 0218

-574

~626
~-693
791
-910

Veeeegoee= YNMYIVMNVAIVANOMn)OVIyONVMSOY0MO+MN)MIVAMOYN=YONMNOYAW=VNANNMV=NONN=ON=WNIvIVO2NAOMMOW)OOM

£e98=6‘€006050‘N9\\-J’4Bh0n1SD0'M<5SO2N7MM1)0S2O4O3780‘542O5V85O617O63M40D%A984
]—M]gARULPoOOvlAdoMoIVlAIolNMododNUoMlINLUMMl

33433‘05
OO OMNM M

1ti
FNOOTWNOO

~=Ov—DRNNWMVIAWNN

Ty Y O e iy A A T T P Sy

VeYg gg

(NP\INPNPeeTg—e-rey vM20agASotOOTeovRt~=ILgFeleN0Mt)OT=etaONRe=gOeMTt(P)Ro3MtORlSgveVNoNoaPelTAR0WgGLNSPNgIoNeYIO(RBalN\0ST(GNRTOoPaAoISlPRFMDOlORGgNR0PIGioCIlOOULGPaNlrP=gRONlOPNl-OMaPIliaOA~RPlF0=aRDelAROeSGIOlNMAOGN+PaFNROaOOe7AePlRoDGMae0PNR00Pn\oT
CZRNDAQ RM30 FCINL PT1 MACRO v04.C0 28-JAN-82 16:24:51 PAGE M-2
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0319

oeN—OWM0ASA~\MOM

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE M-3
CROSS REFERENCE TABLE (CREF Vv04.00 )

4~69
L=4794
441
4-479%
4=4794

7-0
12-48
441
10-24

4=479
13-210
13-490
13-662
13-959
13-227
13-267

55
13-210
13-490
13-662
13-959
13-=27
13-267
13-841
13-E91
22-34
42-1
10-24
6-0

4~4 798

13-841

13-£91

22-26

SWRSU
TAGS
TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
XPER

42-1
4~479%
4-103#4

44-14

4=4794
4=~4798
4~4674
4=4794
4~479%
4=4794
4~479%
4-124
8-42
8-84
8-126
8-172
8-215
8-257

7-0

39-5

441

5-8
13-252
13-514
13-698
13-988
13-=60
13-a01
13-877
13-F30

39-9
441

42~ 1
44- 1

5-8
13-252
13-514
15-698
13-938
13-=60
13-a01
13-877
13-F30
23-1

5-8
13-277
13-536
13-733
13-:54
13->11
13-a35
13-C70
13-F69

23-3
44-1

6-0
13-277
13-536
13-733
13-:54
13=->11
13-a35
13-C70
13-F69
34-1
45-1

12-60

13-40

1349

441

44-1

441

44-1

63 3 3 3566

SETPRI
SETTRA
SETUP
SK1P
SLASH
STARS

22-119

42~
10-244

14-~20
4=-479%

14-20
10-29

10-81
11-33
10-6

12-16
42-1
10-43
8-6
8-48
8-90

8-3
8-45
8-87
8-130
8-175
8-218

8-133

8-1/8
8-221

43-1

10-54

3-9
8-51

g-— — N- Ne
Neksee-N &2 -e eee A [l

REPORT
RGBFMC

SEQ 0320

O
N
V
RN RN

13-94

41-22

41-39

41-44

41-46

44-1

44-1#