Digital PDFs

AH-F928B-MC-0BW

August 1981

340 pages

Original

17MB

view download

OCR Version

15MB

view download

Document:	CZRMOB0 RM02-03-05 RM05-3-2 FCTNL TST 3 AUG 1981 bw
Order Number:	AH-F928B-MC
Revision:	0BW
Pages:	340
Original Filename:	CZRMOB0__RM02-03-05__RM05-3-2_FCTNL_TST_3__AH-F928B-MC__AUG_1981_bw.pdf

OCR Text

RH02/03/05

RM02/03/05 RMOS/BZRWEESTM " T Pieli®8lors niFies BIEIIEL

CZRMOBO RMOS5/3/2 FCINL TST 3

MACRO v04.00

4-APR-81 01:15:59 PAGE 1

SEQ 0001

wd md wd

D —

= OV

.REM

n vl

OO0 00~ O

IDENTIFICATION
PRODUCT CODE:

AC-F927B-M(

PRODUCT NAME:

CZRMOBO

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNGCSTIC GROUP

AUTHOR:

MIKE LEAVITT

RMO05/3/2 FUNCTIONAL

TEST, PT 3

1981

THE INFORMATION IN
THIS
DOCUMENT IS SUBJECT TO CHANGE
NOTICE AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT
B8Y
EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

THE

SOF TWARE DESCRIBED

LICENSE

TERMS OF

AND

MAY

THIS DOCUMENT

SUCH LICENSE.

DiGITAL EQUIPMENT

USE

ONLY BE USED OR COPIED

SUPPLIED BY DIGITAL.

(C)

ASSUMES
MANUAL.

FURNISHED UNDER A

IN ACCORDANCE WITH THE

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE

RELIABILITY OF

WITHOUY
DIGITAL

ITS

SOFTWARE

EQUIPMENT THAT IS NOT

1980,1981 DIGITAL EQUIPMENT CORPORATION

MACRO v04.00

4-APR-81 01:15:59 PAGE 2

INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE

REGUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

WSS in) —

OPERATING PROCEDURE
.

LOADING
SWITCH QPTIONS
STARTING
HALTING
RESTARTING

NV
-

OPERATOR INTERFACE

.
.

PROGRAM [.D.

CONSOLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS
ERROR _REPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT
1.

PROCESSOR COMPATIBILITY

NN
W

D b =D b d b b i b —d
WWNINIPON
NN
N AN N PO NN PONININ)
SN
2OV
O D00 NV WA 2OV
NN
WM 2 O0W NN

CONTENTS

DN —

(ZRMOBO RMOS/3/72 FCINL TST 3

MEMORY PARITY HARDWARE

TEST

DUAL PORT CONFIGURATIONS

MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY

OPERATING SYSTEM COMPATIBILITY

DESCRIPTION

>EQ 0007

nN — OO0V

PONINY b = =D

s =

b d o

NN = OO00 NN

CZRMOBO RMOS/3/2 FCINL TST 3

MACRO VU4.00

4-APR-81 01:15:59 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRA(T

1
~£Q 0003

THE
RMO0S/3/2
SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM
WHICH_
USES
FUNCTIONAL
MEANS
TO
VERIFY
THE
OPERABILITY
OF
THE
RMOS/3/2
DISK
SUBSYSTEM.
IN PARTICULAR,
THE
PROGRAM
SERVES
THE
FOLLOWING PURPOSES:

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE
8&?&ATIB§§VE’
INCLUDING MECHANICAL
POSITIONING
AND
DATA
TRANSFER
TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE.

CONFIDENCE

THE

DRIVE/ADAFTEK

VERIFY THE FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM, INCLUDING

THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE.

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

1.2

UNIT UNDER TEST

THE UNIT UMDER TEST (UUT)

IS THE RMO5/3/2

CONSISTS OF THE RH MASSBUS CONTROLLER,

DISK

THE RM05/3/2

SUBSYSTEM

WHICH

MASSBUS ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS
REQUIRED
Eg? ETESTING
AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK
VE.

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

MINIMUM

HARDWARE

OPERATIONAL, IS REQUIRED TO LOAD
FUNCTIONAL

TEST:

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RMO5/3/2 SUBSYSTEM

PDP-11 PROCESSOR
20K MEMORY
KW11-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S Ok RM(OZ2'S)

(ZRMOBO RMOS/3/2 FCINL TST 3
58
59
60
61
62

MACRO V04.00

E
4-APR-81 01:15:59 PAGE 3-1

SEQ 0004

MEDIA REQUIREMENTS

2.2

EACH UNIT BEING TESTED MUST BE LOADED WITH A

SCRAT(CH

DISK

PACK

BEFORE TESTING BESINS ON
THAT
UNIT.
THE DISK MUST BE FORMATTED AND
CONTAIN A READABLE COPY OF THE MFG AND USR BAD SECTOR FILES.

2.3

PREREQUISITE DIAGNOSTI( PROGRAMS

RM05/3/2 DISKLESS TEST,

PART 1

& 2

RMO5/3/2 FUNCTIONAL TEST, PART 1 8§ 2

3.0

OPERATING PROCEDURE

3.1

LOADING
THE PROGRAM MAY BE LOADED BY EITHER OF

THE FOLLOWING MEDIA:

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

3.2
OF

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

SW15
SWi4
Sw13
Sw12
Sw11
Sw10
SW09

HALT CN
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON

THE

UTILITY

ERROR
TEST (CURRENTLY BEING EXECUTED)
ERROR TYPEOUTS

TEST ITERATIONS
ERROR
ERROR
LOOP ON TEST IN SW07-00

Swo8

ON.

= mcd ek

3.3

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

et et

R S oog
‘“WN—'O%@\I

LOOP

D e vl

THF LOW ORDER 8 SWITCHES (SW0O7-SW00), ARE
USED
IN CONJUNCTION WITH
sgog OTO
SPECIFY
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL

THE

PROGRAM

RH/RM BASE

MAY BE STARTED AT LOCATION 200 OR 204.

ADDRESS TO

BE CHANGED.

ENVIRONMENT, THE PROGRAM USES CONSOLE
TG CONTROL

TEST

CONDITIONS.

STARTING AT

STARTING AT 204 WILL ENABLE

IF RUNNING IN

DIALOGUE TO

A STAND-ALONE

ALLOW THE OPERATOR

NN 2OV~
NN
W00
NN

S e e

T YT G

<2 =2 —md b
NN WA N N N NN ) PN PIPINININ)

WA 2OV

TR W

5 IS IS N I W

—

ol ———

PU U S S

I W QU W

rONON O ON VNNV
S O B BN 8
gV L =S OVONAND
NN OV NC N

MACRO v04.00

4-APR-81 01:15:59 PAGE 3-¢

SEQ 0005

C(ZRMOBO RMOS5/3/2 FCINL TST 3

165

166

167
168
169
170
171

3.4

HALTING
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL

NOTE:

FROM THE

CONSOLE.

IF THE
PROGRAM IS
HALTED BY ANY OTHER MEANS,
BAD HEADER
INFORMATION MAY BE LEFT ON THE DISK PA(CK.
THIS OF
(OURSE

EEEENDS ON WHICH TEST

3.5

IS BEING PERFORMED AT

THE

TIME OF

THE

RESTARTING

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204.

4.0

GCPERATOR

4.1

PROGRAM ID
THE

(SEE SECTION 3.3

INTERFACE

PROGRAM

TYPES

ITS

TITLE

AND MAINDEC

NUMBER

THE

FIRST

TIME

IS STARTED
AFTER BEING LOADED.
ALSO,
A WARNING MESSAGE IS
TYPLD,
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF
THE PROGRAM IS
HALTED
IMPROPERLY.
THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT
OCCUR IF THE PROGRAM 1S RESTARTED.

4.2

C(ONSOLE DIALOGUE

WHEN THE PROGRAM IS RUNNING IN STAND
ALCONE
MODE,
IT
ENTERS A
CONSOLE DJALOGUE
SEQNENCE AFTER TYPING
THE PROGRAM ].D. AND WARNING
MESSAGE. (SEE SECTION 4.1)

THE FIRST QUESTION TYPED OUT IS:

THE

OPERATOR

‘‘TYPE HELP TEXT

(L) N ?''.

RESPONDS WITH A °%'', THE PROGRAM WILL TYPE A BRIEF

HELP MESSAGE wHiCH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION 1S CONSIDERED A 'W'' AND NO HELP TEXT IS TYPED. THIS
QUESTION
IS
ONLY ASKED
ON
THE INITIAL PROGRAM
START AND
NOT ON
SUBSEQUENT START-UP'S.

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204,
g?g SEE?ATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING
LOGUE.

EXAMPLE 1

RMCS1=176700 <CR>
RMVE(C=000254 <CR>

;NO CHANGE IN ADDRESS
;NO CHANGE IN ADDRESS

EXAMPLE 2

RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS 10 177200
RMVE(C=000254 260<CR>
;CHANGE VECTOR ADDRESS TO 260

MACRO Vv04.00

4-APR-81 01:15:59 PAGE 3-3
ON THE INITIAL START,

TEST ALL DRIVES,

OR TYPE

A CARRIJAGE RETURN'.

THEN,

THE NEXT QUESTION

DRIVE NUMBER(S)

'DRIVE(S):'

AND

°'TYPE "A’" 10

INPUT WITH

WAITS

FOR THE

ON ALL SUBSEQUENT

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF

IS AN EXAMPLE PRINTOUT:
'UNIT STATUS:
NOWNS
NN —

ONLINE

RMO3

OFFLINE

RMO5

NOT PRESENT
NOT PRESENT

NOT AN RMO05/3/2
NOT PRESENT
NOT PRESENT'

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

= 7 WILL NOT BE

TESTED.

‘DRIVE(S)
TYPED

THE

THE FCLLOWING

LOAD DEVICE

THE DIAGNGSTIC THEN TYPES
STATUS OF THE DRIVE:

THE FOLLOWING MESSAGE, BASED ON THE

TO BE TESTED, OF

IF NO DRIVES ARE AVAILABLE FOR TESTING,
TO THE OPERATOR:

'DRIVE(S)

re B D md b e e D d
OO0
NI
NN —

IS TYPED

DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING.

NN NNV

TYPED IS,

AND TERMINATE

SEPARTOR AUTOMATICALLY
AFTCR TYPING
EACH NUMBER.
STARTS, ONLY THE ‘'DRIVE(S):' PROMPT IS TYPED.

195

210

SEQ 0006

OPERATOR TO TYPE AN "‘A'',
TO TEST
ALL POSSIBLE DRIVES OR TYPE ANY
STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A
“'CARRJAGE RETURN''.
NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING THE
DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA

OO OO

0000000000000
0 ~d N NN N NN~
:\WTU—‘SOQVOMJ"WN—'OO@VOMJ‘WN

N
S
N O
P S S G S S
S

(ZRMOBO RMOS5/3/2 FCTINL TST 3

THE FOLLOWING MESSAGE WillL BE

TO BE TESTED, NONE'

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 CRIVES 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.
IS HALTED BY THE OPERATOR.

NOTE :

THE LETTER LOCATED WITHIN THE BRACKETS ()

OF RESPONSE
L=LETTER.

4.3

THIS WILL CONTINUE UNTIL

PROGRESS REPORTS

REQUIRED

BY THE USER,

THE PROGRAM

INDICATES THE TYPE

D=DECIMAL,

0=0CTAL AND

(ZRMOBO RM0S/3/2 FCINL TST 3

(RO v04.00

229

230

S%}

Sg?

AN END OF PASS REPORT OCCURS EArH TIME THE
'END OF PASS

2«0

243

EXECUTED

[S AS FOLLOWS.

THE FOLLOWING MESSAGE WILL ALSO

OCCUR IF THERE WERE ERRORS SINCE

'TOTAL FRRIRS SINCE LAST REPORT

4.4

PROGRAM

THE END OF PASS REPORT

THE LAST END OF PASS REPORT.

Sgg

52}

SEQ 000/

FOR ALL DEVICES IN THE TEST QUE.

235

4-APR-81 01:15:59 PAGE 3-¢4

PERFORMANCE REPORT

NC PERFORMANCE REPORYS ARE GIVEN

PROGRAM.

DURING

THE

EXECUTION

THE

245

246

247
Szg

250

Sg;

253
254

ggg

257

4.5

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING I1HE EXECUTION OF THE PROGRAM.

PROCESSOR HALTS ARE DUE TO THE TRAP CATC(CHER.

4.6

ERROR REPORTS

THE FIRST LINE OF THE ERROR REPORT CONTAINS

THE

NUMBER

THE

258
259
260
261
262
263

UNIT (DRIVE) BEING TESTED,
THE DRIVE TYPE, 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, YET COMPREMENSIVE 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

%gg

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM:

268
269

DRV# O - RMO3, TEST# 14, ERR# 326, P(=016654
MASSBUS DATA BUS PARITY ERROR 'MDPE'' (RM(CSZ2, BIT 8) DETECTED

272

040300

Sgg

EXPECTED AND ACTUAL TEST RESULTS.

270
271

DURING WRITE COMMAND
EXPECTD
RECEVD

273
274
275
276

RMCS1
144252
RMW(
177403

277

RMMR1

000010

S;g
280
281
282

4.7

040700

RM(CS?2
040700
RMBA
104604

RMDS
010700
RMDA
000002

RMER1
000000
RMOF
010000

011777

024026

177777

RMMR?

RMDT

RMSN

RMER?
000000
RMD(C
000000

RMAS
000000
RMEC1
004066

EXECUTION TIME

283

TIME FOR RMO5:

285

PASS 1 OF THE PROGRAM TAKES ABOUT 15 SECONDS.

284

RME(?
000000

PASS 2 AND

(ZRMOBO RMOS5/3/2 FCINL TST 3
286

287
288
289
290
291
292

293
294
295
296
297
298
299
300
301
302
303
304
305
306
307

MACRO v04.00

TIME FOR RM0Z2/3:
PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS.
SUBSEQUENT PASSES TAKE 40 SECONDS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE RM05/3/2 SUBSYSTEM FUNCTIONAL

PROCESSOR,

b d )
d =

b =

PROVIDING

PREVIOUSLY

PASS 2 AND

TEST IS EXECUTABLE ON ANY PDP-11

MENTIONED HANDWARE REQUIREMENTS ARE

MET, AND PROVIDING THAT DATA THROUGHPUT ON Tkt SYSTEM [S SUFFICIENT TO
SUSTAIN DATA TRANSFER OPERATIONS.

5.2

DUAL PORT CONFIGURATIONS

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST

PORT

LOGIC

THE

RMO5/3/2

ADAPTER

BUT

EXECUTABLE

RM05/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION PROVIDING THE DUAL
PORT
SWITCH IS SET TO THE APPROPRIATE PORT (A OR B..

5.3

MEMORY PARITY HARDWARE

MEMORY PARITY HARDWARE IS NOT USED DURING THE

RMO5/3/2 SUSBYSTEM FUNCTIONAL

TEST.

EXECUTION OF " THE

LAV

WA AN U

N AN U

A N NN AN AN N W

flfibwuw&w&wwwwwwmmmmmw
A0 = OO0 00 NN AR = OO 00 N O N SNl

—

N PO =

5tQ 0008

SUBSEQUENT PASSES TAKE 1 MINUTES 10 SECONDS.

DUAL
NN I N NN NN NN NN

4-APR-81 01:15:59 PAGE 3-5

5.4

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE
IS NOT USED DURING THE RM05/3/2
SUSBYSTEM FUNCTIONAL TEST.
CAPABILITIES OF THE MASSBUS CONTROLLER.

5.5

ACT11, APT11

COMPATIBILITY

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH A(T11
AND APT11
IN BOTH DUMP AND AUTOMATIC MODES.
FURTHER, THE PROGRAM
Uék%stgcggE
A QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF GUICK
v

5.6

ODE

XXDP COMPATIBILITY

THE RM0S5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN
AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE (ASE WHERE
THE RM0O5/3/2 1S THE XXDP LOADING DEVICE.

DUMP

CZRMOBO RM0S/3/2 FCINL TST 3
343
344
345

%29

MACRO v04.00

5.7

%23
350
351

352

353
354
355
356
357
ggg

4-APR-81 01:15:59 PAGE 3-¢

SEQ 000%

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM IS NOT (OMPATIBLE WITH ANY 'SOF TWARE OPERATING SYSTEM,

6.0

TEST DESCRIPT.ON

TEST 1

CONTROLLER ACCESS TEST

%g?

PURPOSE :

362
%gz

TO VERIFY THAT THE UNIBUS ADDRESS OF THE
CORRECT, AS DEFINED AT LOCATION $BASE.

%gg

PROCEDURE :

267
368
369

THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS
USING THE S$BASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY

372
373
374
375

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 (HANGE
THE $BASE
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO

%;?

%;9

SUBSYSTEM

THE END OF PASS HANDLER.

278

379

380
381

%g%

TEST 2 = 25

WRITE/RFAD DATA TESTS

;gé

PURPOSE :

386
387
%gg

TO *TEST WRITE DATA AND READ DATA FUNCTIONALITY OF
THE
RM05/3/2 SUBSYSTEM USING A SET OF VARJABLES WHICH INCLUDE WORD
COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR CONDITIONS.

%g?

PROCEDURE :

392
393

ALTHOUGH EACH
GENERAL PROCEDURE

395

THERE

394

396
397
398
399

TEST EXERCISES A
OF EACH TEST IS

DIFFERENT VARIABLE,
THE
THE SAME.
THE DRIVE IS

INITIALIZED AND RECALIBRATED IF 'PIP'' OR ''SKI'' ARE ACTIVE SO THAT

ARE NO ERRORS WHEN A TEST BEGINS.
THEN, THE TEST FORMATS
THE SECTOR BEING USED, WHICH MAY VARY FROM THE PRUGRAM LISTING,
BECAUSE SECTORS ARE SUBSTITUTED DURING RUN TIME IF THE SELECTED
SECTOR IS LISTED IN THE BAD BLOCK TABLE OF
THE LAST TRACK,
FOLLOWING THAT, THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR

TIRMOBO RMOS5/3/2 FCINL TST 3

MACRO v04.00

400
401
402

THec

DATA

EXECUTED.

COMMAND

TEST STORES ALL

ERRORS

404
405
406

SEQ 0010

THE CONDITIONS OF
THE

403

4-APR-81 01:15:59 PAGE 3-7

WHICH

PRIMARY ERRORS,

TEST.

SUBSYSTEM

PRECLUDE
THE

REGISTERS ARE PRESET AND

TEST

OTHER

STATUS

VERIFIES

THE

AND

(HECKS

(HECKS.

RESULTS

MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF

ORDER

FOR

NOTE:

THE

WRITE

LOOP ADDRESSES ARE

“HF WRITE COMMAND

SHORTEN EXECUTION TIMES AND ENHANUF SCOPING LOOPS,

TEST,

THE SECTOR USED DURING A TEST MAY
DIFFER FROM THE
PROGRAM
LISTING BECAUSE THE
PROGRAM SUBSTITUTES A GOOD SECTOR,
IF
THE ONE

415

PRIMARY

THERE ARE NO

THEN THE PROGRAM EXECUTES THE READ
DATA
PORTION
OF
THE
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND.

412
413
414

WRITE

WHEN THE WRITE (OMMAND S COMPLETE,

COMMAND AND THEN CHECKS FOR SECONDARY ERRORS.

407
408
409
410
411

THE

SELECTED

IS LISTED

IN THE BAD BLOCK

TABLE.

416

417

418
419

420
421
422
423
424
425
426

TEST

WRITE, READ ZEROS TEST

THE TEST WRITES AND READS AN ALL ZEROS DATA
FIELD,
CAUSING
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS.

427

428

429
430
431

TEST

THE

TEST 4

TEST WRITES ANL

WRITE CHECKS AN ALL

.0 ERRORS.

ZEROS

DATA

FIELD,

WRITE, WRITE CHECK ZEROS W/ WCE ERRCR TEST
THE

TEST WRITES AN ALL ZEROS DATA

FIELD,

THEN

COMPLEMENTS

EACH BIT
IN THE LAST WORD Of THE WRITE BUFFER.
A WRITE CHECK
COMMAND IS EXECUTED AND THE TEST
VERIFIES THAT THE CORRECT WRITE

441
442

443
444
445
446
447
448
449
450
451
452
453
454
455
456

WRITE, WRITE CHECK ZEROS TEST

VERIFYING THAT THERE ARE

432

433
434
435
436
437
438
439
440

CHECK ERROR 1S DETECTED.

TEST

WRITE, READ ONES TEST

THE TEST WRITES AND READS AN ALL ONES DATA
FIELD,
CAUSING
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS.

(ZRMOBO RMOS/3/2 FCTINL TST 3
657
458

459
460

461
462
463
464
465
466
467

TEST 6

TEST

WRITE, WRITE CHECK ONES TEST

WRITE, WRITE CHECK ONES W/ WCE ERROR TEST

THE TEST WRITES AN ALL ONES
DATA
FIELD,
THEN PERFORMS
A
WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST
WORD OF
THE
WRITE BUFFER.
THE TEST VERIFIES THAT
THE
CORRECT
WRITE
CHECK ERROR IS DETECTED.

469
470
471
472
473
474
475
TEST

10 WRITE, WRITE CHECK MULTIPLE SECTORS TEST

THE TEST SEEKS TO CYLINDER O TO
INSURE
THERE
IS NO HEAD
MOTION DURING
DATA
TRANSFER.
THE WRITE DATA COMMAND FOLLOWS,

479
480
481
482

483
(84
485
486
487
488
489
490
491
492

SEQ 0011

THE TEST WRITES AND WRITE (HECKS AN ALL ONES DATA FJELD.

408

476
477
478

1
L
4~APR-81 01:15:59 PAGE 3-8

MACRO v04.00

WITH THE WORD COUNT EQUAL TC MULTIPLE SECTORS.
ARE VERIFIED WITH A WRITE CHECK DATA (OMMAND.

TEST

THE SAME SECTORS

11 WRITE, READ WITH IMPLIED SEEK TEST
THIS TEST SEEKS TO THE LAST CYLINDER PRIOR TO

ON CYLINDER O, TRACK O, SECTOR O.

WRITING

DATA

THE EXPLICIT SEEK INSURES THAT

THERE WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK GF
THE
WRITE
COMMAND.
THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK
IS REPEATED FOR READ DATA.

TEST

12 WRITE, WRITE CHECK WITH HEAD SWITCHING TEST

THE TEST SEEKS TO CYLINDER O TO INSURE
THERE
IS NO HEAD
MOTION DURING DATA TRANSFER,
THI WRITE DATA COMMAND STARTS WITH
CYLINDER O, TRACK 0, SECTOR 31.
YE WORD COUNT IS EQUAL TO
MULTIPLE SECTORS WHICH CAUSES TH: SUBSYSTEM TO SWITCH FROM TRACK
0 TU TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN.
THE SAME
SECTORS ARE VERIFIED WITH A WRITE
(HECK DATA COMMAND,
USING THE SAME WORD COUNT AND STARTING SECTOR.

[ 1V, VIV 1V, IV, IV, ]V ]V, ] Al ALV LV, LV VIV |
P S
PONNLIRLNINONDNON)[ o RQIR
O 00 NN
S NN — O000~

CZRMOBO RMOS5/3/2 FCINL TST 3

MACRO v04.00
TEST

&4-APR-81 01:15:59 PAGE 3-9
13 WRITE, WRITE

LAST

CHECK WITH MID-TRANSFER SEEK TEST

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

14 WRITE,

TEST

THE

ARE VERIFIED WITH A

A SECTOR IS FORMATTED WITH AN
INCORRECT
HEADFER,
THEN
THE
WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE

CORRECT ERROR [S DETECTED.

TEST

SAME SECTORS

READ W/ HCE ERROR TEST

EACH

WORDS IS TESTED IN THIS MANNER.

530

TRACK AND SECTOR 31., CAUSING A MID-TRANSFER SEEK AFTER THE

FIRST SECTOR IS
WRITTEN.
WRITE CHECK DATA COMMAND.

TEST

SEQ 001¢

15 WRITE, READ W/ HCI

BIT

POSITION

BOTH

HEADER

TEST

A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN
READ
WITH HEADER COMPARE INHIBITED.
THE TEST VERIFIES THAT
NO ERROR IS DETECTED.

AND

TEST

16 WRITE, READ W/ IVC ERROR TEST

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC
MODE.
THE
TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES
THAT INVALID COMMAND STATUS SETS.
THE TEST IS REPEATED FOR READ
DATA COMMAND.

TEST

17 WRITE, READ W/ ABORT TEST

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES

WRITE DATA (OMMAND VERIFYING THAT 'PIP'’ REMAINS INACTIVE.
SAME PROCEDURE IS USED FOR READ DATA COMMAND.

TEST 20 WRITE,

THE

READ EACH CURRENT LEVEL TEST

THE TEST WRITES AND READS ON EACH OF THE FOLLOWING CYLINDERS
IN ORDER TO WRITE AT EACH POSSIBLE CURRENT THRESHOLD.

(ZRMOBO RM0S5/3/2 FCINL TST 3
571
572
573
574
575
576
577
578
579
580
581
582
183
584,
585

586
587
588
589
550
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622

623
624
625
626
627

MACRO v04.00

4-APR-81 01:15:59 PAGE 3-10

CYLINDER
'
'
'

0
128
256
384

110
104
97
91

768

70 MA

'
"

TEST 21

SEQ 0013

512
640

MA
MA
MA
MA

84 MA
77 MA

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING TEST
THE TEST WRITES 2 SECTORS STARTING WITH THE LAST

CYLINDER

383,

SECTOR

AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT {EVEL.

BOTH

SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

TEST 22 WRITE,

READ EARLY PEAK SHIFT TEST

THIS TEST WRITES AND READS A
SINGLE
SECTOR
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT.

TEST 23 WRITE,

DATA

USING

DATA

MIX

READ EACH TRACK TEST

THE TEST WRITES AND READS WITH EACH
EARLY, NORMAL AND LATE WRITE GATES.

TEST

USING

READ MIXED PEAK SHIFT TEST

THIS TEST WRITES AND READS A
SINGLE
SECTOR
PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIFT.

TEST 24 WRITE,

THE FIRST SECTOR IS WRITTEN AT ONE CURRENT LEVEL

HEAD

USING

25 READ, WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST
THE TEST EXECUTES READ DATA AND WRITE CHECK DATA COMMANDS IN

OFFSET

MODE

IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE Of

TWO SECTORS AT A TIME.

rZRMOBO RM0S/3/72 FCTINL TST 3
628

MACRO v04.00 4-APR-81 01:15:59 PAGE 3211
\

SEQ 0014

rZRMOBO RMOS/3/2 FCINL TST 3

t
2
4-APR-81 01:15:59 PAGE ¢

MACRO v04.00

SEQ 0015

;*LAST REVISION 04-APR-81

479
480

LTITLE
CZRMCBO RMQ5/3/2 FCTINL TST 3
:*COPYRIGHT (() 1981
;+DIGITAL EQUIPMENT CORPORATION

;*COLORADO SPGS., (0. 80919
s

; *PROGRAM BY MIKE LEAVITT
4

[}

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11

s *PACKAGE

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

MAINDEC SYSMA(

LSBTTL

OPERATIONAL SWITCH SETTINGS

L ]

SWITCH

O =WV N

%,
8,
%y
8y B

483
484

®a

NS BN BN B

482

AR NN B

EYEPE

S NIWSH
W

2k AR A

.SBTTL

001100
104000

000004

LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON

TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SWR<7:0>
TN128

BASIC CEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER sx* 1100 ==

STACK
ERROR
SCOPE

= 1100
= EMT
= JOT

;;BASIC DEFINITION OF ERROR CALL
;BASIC DEFINITION OF SCOPE CALL

s *MISCELLANEOUS DEF INITIONS

000011
000012
000015
000200
177776
177776
177774
177772
177570

000000
000001
000002
00C003

177570

USE

LF
CR
CRLF
PS

PSW=

;- CODE FOR HORIZONTAL

= 177776

:;PROCESSOR STATUS WORD

=12
- 15
= 200

TAB

;. CODE FOR LINE FEED
;;CODE FOR CARRIAGE RETURN
:;CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT

= 177774

;.STACK LIMIT REGISTER

DSWR
DDISP

= 177570
= 177570

; HARDWARE SWITCH REGISTER
; HARDWARE DISPLAY REGISTER

PIRQ

= 177772

: PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

R2
R3

:; GENERAL REGISTER

- %
- %3

;. GENERAL REGISTER
;s GENERAL REGISTER

= %1

;;GENERAL REGISTER

PR3

PRS
PR6
PR?7

S:PRIORITY LEVEL S

SSPRIORITY LEVEL &

;:PRIORITY LEVEL 6

::PRIORITY LEVEL 7

T e o

340

40000

100000

BIT15

100000

20000

10000
4000
2000

1000
400

T I L

¥I

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000007
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

Y O L

;*DATA BIT DEFINITIONS (BIT00 TO BIT15)

PR T

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

240

JeSWITC

;:PRIORITY LEVEL 3

300

Sw1s
Swié4
SW13
SW12
Swil
SwW10
SW09
SW08
SW07
SW06
SWOS
SW04
Sw03
Sw02
SWO1
SWO0
SW9=Sw09
SW8=Sw08
SW7=5W07
Swb=SW06
SW5=SW05
SW4=SW04
SW3=Sw03
SW2=SW02
SW1-SW01
SWO=SW00

100000

LEVEL 0
LEVEL 1
LEVEL 2

140

200

PR4

SEQ 0016

: :GENERAL REGISTER
::GENERAL REGISTER
::GENERAL REGISTER
; :GENERAL REGISTER
1 :STACK POINTER
:;PROGRAM COUNTER

;*PRIORI TY LEVEL DEFINITIONS
PRO
::PRIORITY
=0
PR1
RITY
:;PRIO
40
PR2
TY
;;PRIORI
00

000200
000040
000100
000140
000200
000240
000300
000340

43
x5
26
%7
%6
1 74

R4
RS
R6
R7
SP

000004
000005
000006
000007
000006
000007

D
2
4-APR-81 01-15:59 PAGE 4-1

(ZRMOBD RMOS/3/2 FCINL TST 3

BASIC DEF INITIONS

MACRO v04.00

100000
40000

20000

10000
4000

2000
1000

400

200
100

CZRMOBO RMOS/3/2 FCINL TST 3

BASIC DEF INITIONS

MACRO V04.00

E 2
4&-~APR-81 01:15:59 PAGE 4-2

SEQ 0017

000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004

=20
BI70¢
BIT03
=10
=4
BIT02
BITO1
=2
=1
BITO0O
BIT9=BIT09
BI78=BIT08
BIT7=BIT07
BIT6=BIT06
BIT5=BIT05
BIT4=BIT04
BIT3=B1T03
BIT2=BIT02
BIT1=RITO1
BITO=BITO0

000004
000010
000014
000014
000014
000020
000024
C00030
000034

ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC

=
=
=
=
=

PWRVEC

= 24

000064
000240

TPVEC

= 64

.SBTTL

RM REGISTER BIT DEF INITIONS

000002
000001

100060

J*BASIC "'CPU'' TRAP VECTOR ADDRESSES

IOTVEC

EMTVEC

4
10
14
14
14

;. TIME OUT AND OTHER ERRORS
::B$§f§¥50 AND ILLEGAL INSTRUCTIONS
;: TRACE TRAP

= 20

; ;BREAKPOINT TRAP (BPT?
2 INPUT/0UTPUT TRAP (10T) ««SCOPEx«

= 30

:;EMULATCR TRAP (EMT) »+ERROR~*s

TRAPVEC = 34
TKVEC
= 60

PIRQVEC = 240

;s POWER FAIL

;" 'TRAP'' TRAP

;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
; ; PROGRAM INTERRUPT REQUEST VECTOR

;*RMCS1 CONTROL STATUS REGISTER
004000
0000490
000020
000010
000004
000002
000001
000077
000000
000002
000004
000006
000010
000012
000014

000016
000020
000022
000022
000024
000026

DVA
Fé
F3
F2
F1
FO

=
=
=
=
=

FNCMSK

= 000077

8lTN
BITO5
B8IT04
BITO3
81102
BITO1

- BIT00

;DEVICE AVAILABLE~READ ONLY
JFUNCTION CODE
JFUNCTION CODE

JFUNCTION
JFUNCTION
;FUNCTION
;60 BIT
JFUNCTION

CODE
CODE
CODE

CODE MASK

JFUNCTION CODES (BITS 01-05 OF A’M(S1)
NOP
= 000000
sNOP_COMMAND
ILF02
- 000002
s ILLEGAL COMMAND
SEEK
= 000004
; SEEK COMMAND
RECAL
= 000006
sRECALIBRATE (OMMAND
DRVCLR
= 000010
:DRIVE CLEAR COMMAND
RLEASE
= 000012
JRELEASE COMMAND
= 000014
OFFSET
;OFFSET COMMAND
RTC
RIP
PAKACK

= 000016
= 000020
= 000022

JRETURN TO CENTERLINE COMMAND

ILR24
ILF26

= 000024
- 000026

s ILLEGAL COMMAND
s ILLEGAL COMMAND

PACACK

= PAKACK

JREAD IN PRESET COMMAND
sPACK ACKNOWLEDGE

COMMAND

CZRMOBO RMOS5/3/2 FCINL TST 3

RM REGISTER BIT

513

516

DEFINITIONS

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064

000066

000070
000072
000074
000076

MACRO v04.00

=
=
=
=

000030
000030
000032
000034
000036
000040
000042
000044
000046

;SEARCH (OMMAND
;ILLEGAL COMMAND
s ILLEGAL COMMAND
;ILLEGAL COMMAND
;ILLEGAL COMMAND

ILF54
ILF56

= 000054
- 000056

;ILLEGAL COMMAND
; ILLEGAL COMMAND

wCD
WCH

= 000050
- 000052

wD
WH

= 000060
= 000062

RD
RH

= 000070
= 000072

;*RMDA

DISK ADDRESS REGISTER

ILF64
ILF66

ILF74
ILF76

= BIT04

SA4
SA?
SA1

= BIT02
= BIT01
= BITO0

177400

TADMSK

= 177400

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR

= BIT1S
- BIT14

MOL

= BIT12

LBT

= BIT10

100000

=
=
=
=

BIT12
B8ITN
BIT10
BIT09

= BIT08

:SECTOR ADDRESS DEFINITIONS
= BIT03

;TRACK & SECTOR MASKS

PIP
WRL

PGM

DPR
DRY
Vv
oM

= 000377

= BIT13
= BITN

= BIT09

81708
= BIT07
- BIT06
BITOO

:*RMER1 ERROR REGISTER #1
———

CHECK DATA (OMMAND
CHECK HEACER AND DATA

;WRITE DATA (OMMAND

JWRITE HEADER AND DATA (COMMAND

s ILLEGAL COMMAND
; ILLEGAL COMMAND

SA16

SADMSK

JWRITE
;WRITE

= 000074
= 000076

000020
000010
000004
000002
000001

SA8

s ILLEGAL COMMAND
;s ILLEGAL COMMAND

s ILLEGAL COMMAND
s ILLEGAL COMMAND

: TRACK ADDRESS DEFINITIONS

TA1

s ILLEGAL COMMAND
s ILLEGAL COMMAND

= 000064
= 000066

TA16
TA8
TA4
TA2

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

sLQ 0018

SEARCH
ILF30
ILF32
ILF34
ILF36
ILF4Q
ILF42
ILF44
ILF46

010000
004000
002000
001000
000400

000377

&4-APR-81 01:15:59 PAGE 4-3

;READ DATA COMMAND
JREAD HEADER AND DATA (OMMAND

;TRACK ADDRESS

16.

:TRACK ADDRESS 8.

; TRACK ADDRESS 4
; TRACK ADDRESS 2

¢ TRACK ADDRESS 1

;SECTOR ADDRESS 16.
;SECTOR ADDRESS 8.
;SECTOR ADDRESS 4

;SECTOR ADDRESS 2
;SECTOR ADDRESS 1
;TRACK ADDRESS MASK

;SECTOR ADDRESS MASK

SJATTENTION ACTIVE
;COMPOSITE ERROR
sPOSITIONING IN PROGRESS
;MEDIUM ON LINE
JWRITE LOCK

JLAST BLOCK TRANSFERRED
s PROGRAMMABL£
;DRIVE PRESENT
;DRIVE READY
sVOLUME VALID
;OFFSET MODE ACTIVE

CZRMOBO RMOS/3/2 FCINL TST 3

RM REGISTER BIT DEF INITIONS

565
566

567

568
569
570
571

572
573
574
575
576
144
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593

594

595
596
597
598
599
600
601
602
603
604
605
606
607
608

609
610
611
612
613
614
615
616

€17
618
619
620
621

100000

040000
020000
010060
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

MACRO v04.00

6 2
&-APR-81 01:15:59 PAGE 4-4

DCK
UNS

OPl
DTE

WLE

= BIT15
= BIT14

;DATA (HECK ERROR
sDRIVE UNSAFE

= BITN

JWRITE LOCK ERROR

= BIT13
= BIT12

IAE

= BIT10

£ CH

= BIT06

AQE
HCR(
HCE

WCF
FER

PAR

RMR
ILR

ILF

SEQG 0019

= BITQ9
= BIT108
= B1107

= BITOS
- BIT04

= 8IT03

= BITOZ
= BITO1

= BIT00

;OPERATION INCOMPLETE
JDRIVE TIMING ERROR
s INVALID ADDRESS ERROR

;ADDRESS OVERFLOW ERROR
JHEADER CRC ERROR
JHEADER COMPARE ERROR

JECC "HARD'' ERROR

JWRITE CLOCK FAILURE
;FORMAT ERROR

;PARITY ERROR

JREGISTER MODIFICATION REFUSEL
s JLLEGAL REGISTER
s ILLEGAL FUNCTION

NDTMSK

= DCK.DTE!WLE!AOE !HCRC!HCE!ECH!WCF!FER

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

J*RMLA

LOOK AHEAD REGISTER

002000

SC4

= BIT10

JSECTOR COLNT = 16

000400
000200
000100

SC2
SC1

= 81108
= BIT07

JSECTOR COUNT = 4
;SECTOR COUNT = 2

115760

000377

001000

003700

;"NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA
;COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS

SC3

SCO
SCTMSK

= BIT09
= BIT06

= 003700

;MASK FOR ATTENTION BITS

sSECTOR COUNT = 8
:SECTOR COUNT = 1

;SECTOR COUNT MASK

;*RMMR1 MAINTENANCE REGISTER #1
100000

040000
020000
010000
004000
002000
001000
000400
000200
00C100
000040
000010
000004
000002
000001
100000

SWRITE ONLY BITS

DBCK
DBEN
DEBL
DTO

=
=
=
=

DMD

= BIT00

MCLK
MRD
MUR
MOC
MSER
MDF
MS
MwP
MI
mMSC

=
=
=
=
=
=
~
=
=
=

BIT15
BIT14
BIT13
BIT12

BITI
BIT10
BIT09
BIT08
BIT07
BIT06
BIT0S
BIT03
BITQ2
BITO1

;READ ONLY BITS
oc(
BIT1S

:DEBUG CLOCK
sDEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOQUT
JMAINTENANCE CLOCK
;READ DATA
JUNIT READY
;ON_CYLINDER
:SEEK_ERROR
;DRIVE FAULT
;SECTOR PULSE
JWRITE PROTECT
s INDEX PULSE
;SECTOR COMPARE

;DIAGNOSTIC MODE
JOCCUPIED

" ZRMOB0O RMQS/3/2 FCINL TST 3

RM REGISTER BIT DEF INITIONS

622
623
624
625
626

627

628
629
630
631
632
633
634
635
636
637
638
639
640
641
642

643

644
645
646
647
648
649

650

651

652
653
654
655
656
657
658
659
660
661
662

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
€00001

100000

040000
020000
004000

020024
024024

010000

004000
002000

000200

001777

MACRO v04.00

4-4PR-B1 01:15:59 PAGF 4-5

SEQ 0020

- BIT14

JRUN AND GO

MWD

=
=
=
=
=
=
-

SENABLE SEAR(CH
JLOOKING FOR SYNC
JENABLE CRC nuT
;DATA AREA
;HEADER AREA
; CONTINUE
JWORD CLOCK
;ENABLE ECC OUT
JWRITE DATA BIT
;LAST SECTOR
;LAST SECTOR AND TRA(K
;DIAGNOSTIC MODE

;*RMDT

DRIVE TYPE REGISTER

NSA
TAP
MOH

DRQ

=
=
=
=

SNGPRT
DULPRT

= 020024
= 024024

: *RMOF

OFFSET REGISTER

FMT16
ECI

HCI
OFD

=
=
-

;*RMD(

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

- 001777

EBL
REX
ESR(

PLFS

ECRC
PDA

PHA

CONT

EECC
LS
LST
DMD

= 8]113
- BIT12

BITN
BIT10
8]T09
BITO8
BIT07
BIT06
BIT0S
BITO4
BITO3
BIT02
= BITO?
- BIT00

BIT1S
BIT14
BIT13
BITN

BIT12
BITh
BIT10
BITO07

;FND OF BLOCK
JEXCEPTION

sNOT SECTOR ADDRESSED = O
;TAPE DRIVE = 0
;MOVING HEAD = 1
:DRIVE REQUEST REQUIRED

;SINGLE PORT DRIVE TYPE (RMO2)
;DUAL PORT DRIVE TYPE (RMOZ2)

216 BIT WORL FORMAT
JECC INHIBIT
JHEADER COMPARE INHIBIT
;OFFSET FORWARD

;MASK FOR CYLINDER ADDRESS

: *RMMR? MAINTENANCE REGISTER #2

100000
040000
020000

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

;READ ONLY BITS
= BIT15
= BIT14
- BIT13
2
- BIT
- BITN
(C
CH
= B8IT10
8809
= BITQ9
BB08
- BIT08
BBQ7
- BIT07
BB(6
= BIT06
= BIT05
8805

RQA
RQB
TAG
TST

8804
8803
BB0OZ
8801
8800

= BIT04
= BIT03
= BIT02

= BIT)N
= BIT00

JPORT A REQUEST
;PORT B REQUEST
s TAG CONTROL
s COMMAND SEQUENCE TEST BIT
:CONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG
; TAG BUS
;TAG BUS
;TAG BUS
;TAG BUS
; TAG BUS
;TAG BUS
. TAG BUS
;TAG BUS
s TAG BUS
s TAG BUS

"JRMOBO RMOS/372 FCINL TST 3

RM REGISTER BIT DEFINITIONS

672
673
674
675
676
677
678

100000

040000
020000
012000
004000
002000
000200
000010

SKi
OPE

BIT1S

;BAD SECTOR ERROR

= BIT14

JSEEK INCOMPLETE

= BIT13
= BIT1Z

;OPERATOR PLUG FRROR
s INVALID COMMAND ERROR

LSBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT15
= BIT14

LSBTTL

RM REGISTER

000000
000006
000012
000014
000016
000020
C00024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

RM(CS1

= 00
= 06
=12
= 14

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
JERROR REGISTER #1

=
=
=
=
=
=
=

24
26
30
3
34
36
40
42

sMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
IMAINTENANCE REGISTER #¢
;ERROR REGISTER #2

=
=
=
=
=
=
=
=
-

50
52
54
56
60
62
64
66
70

000077

1DXMSK

= 77

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

DPE

RMDA
RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF
RMDC
RMHR

RMMR2
RMER2
RMEC1
RMEC2

ILRG50
ILRGS2
ILRG54
ILRG56
ILRG6O
ILRG62
ILRG64
ILRG6S

ILRG70
ILRG72
ILRG74
ILRG76

;LOSS OF SYSTEM (CLOCK
;LOSS OF BIT CLOCK
JDEVICE CHECK

= 81103

=16
= 20

= 44
= 46

= 72

= 74
= 76

;DATA PARITY ERROR

JMANUFACTURING DETECTED SECTOR ERROR
JUSER DETECTED SECTOR ERROR
INDEX VALUES

JATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER

;ECC POSITION REGISTER
;ECC PATTERN REGISTER

;ILLEGAL
s JLLEGAL
;JLLEGAL
s ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
:JLLEGAL
s JLLEGAL

50
52
54
56
60
62
64
66
70

;ILLEGAL REGISTER 72
;ILLEGAL REGISTER 74
:ILLEGAL REGISTER 76

JMASK FOR REGISTER INDEX NUMBER

;*RM(CS? CONTROL STATUS REGISTER #1

714

718
719

BSE

= BITN
= BIT10
= BITQ7

713

715
716
717

SEQ 0021

Iv(C
LSC
LBC
Dv(

100000

709
710
711
712

I
2
4-APR-81 01:15:59 PAGE 4-6

; *RMER2 ERROR REGISTER 2

040000

705
708

MACRO v04.00

100000

040000
020000
002000

The

MCPE
PSEL

= BIT15

= BIT14

= BIT13
= BIT10

;SPECIAL CONDITION-READ ONLY

. TRANSFER ERROR

;MASSBUS CONTROL BUS PARITY ERROR-~READ ONLY
;PORT B SELECT

CZRMOBO RM0S/3/2 FCINL TST 3

MACRO v04.00

RH CONTROLLER REGISTER BIT DEFINITIONS

720
721

722
723

724

725
726
727
728

729

001000
000400
000200
000100

Al7
Al6
RDY

4~-APR-81 01:15:59 PAGE 4-7
= BITQ9
= BITO8
= B]T107

= BIT06

SEQ OG2.

;ADDRESS EXTENSION
;ADDRESS EXTENSION
sREADY-READ ONLY

; INTERRUPT ENABLE

:*RMCS2 RH CONTROL STATJUS REGISTER #2
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

OLY

= BIT15

sDATA LATE-READ ONLY

UPE
NED

= BIT13
= BIT12

JUNIBUS PARITY ERROR
JNONEXISTANT DRIVE-READ ONLY

WCE

NEM
PGE

= BIT14

= BITN
= BIT10

MXF

= BIT09

OR
IR
CLR

- BITQ7
= BIT06
- BITOS

BAl
ul
Ul
uo

= BIT03
= 8IT02
= 8I1T01
= 81100

MDPE

PAT

- BITO8

- BIT04

JWRITE CHECK ERROR-READ ONLY

SNONEXISTANT MEMORY~READ ONLY
;PROGRAM ERROR-READ ONLY

;MISSED TRANSFER

;MASSBUS DATA BUS PARITY ERROR~READ ONLY

;OUTPUT READY-READ ONLY
s INPUT READY-~READ ONLY
;CONTROLLER CLEAR
JPARITY TEST

JUNIBUS ADDRESS INCREMENT
JUNIT SELECT
JUNIT SELECT
JUNIT SELECT

INHIBIT

SUNIT SELECT MASK
000007

UNTMSK

= 7

SUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

APE
DPEHI

DPELO

WCEHl
WwCELO

D8L
IE
IPCK3
IFCK2
IPCK1
IPCKO

=
=
=
=
=
=
=

BIT1S
BIT114

;ADDRESS PARITY ERROR
:DATA PARITY ERROR HIGH WOURD

BIT1?2
BIT11

JWRITE CHECK ERROR HIGH WORD
JWRITE CHECK ERROR LOW WORD

BIT13

8IT10
BIT06
= BIT03
= BITOZ
= 81701
= BITO0O

sDATA PARITY ERROR LOW WORD

;DOUBLE WORD TRANSFER
: INTERRUPT ENABLE
; INVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

000000
000002
000004
000010
000022
000050
000052

RMCST
RMW(
RMBA
RMCS2
RMDB

= Q0
= 02
= 04
=10
= 22

;CONTROL, STATUS REGISTER #1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #¢
:DATA BUFFER

RMCS3

= 52

;CONTROL, STATUS REGISTER #3

176700
120254

ABASE
AVECTT

RMBAE

= 50

= 176700
= 120254

;BUS ADDRESS EXTENSION

JUNIBUS ADDRESS
JUNIBUS VECTOR ADDRESS AND PRIORITY

(ZRMOBO RMOS5/3/2 FCTINL TST 3
TRAP CAT(HER

MACRO V04.00

.SBITL

SEQ 0023

TRAP CATCHER
.=0

000000

000174
000176

&-APR-81 01:15.59 PAGE S

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

'LOCATION19 CONTAINS O TO CATCH IMPROPERLY LOADED ‘'"TORS

000174

000000
000000

DISPREG:
SWREG:
.SBTTL

.WORD
.WORD

O
0

;:SOF TWARE DISPLAY REGISTER
*%SOF TWARE SWITCH RECISTER

STARTING ADDRESS(ES)

5 000200

000137

005432

JMP

a#START

;2JUMP TO STARTING ADDRESS OF PROGRAM

3 000204

000137

005422

JMP

ANSTART

:CHANGE RH/RM BUS ADDRESS

.SBTTL
R

2322323322323

223228 22222232222 2222222822222220 22228838824

000210

*H0OKS REQUIRED BY ACT11

$SVPC=.

:SAVE PC

8355?5

SENDAD

::1)SET LOC.46 TO ADDRESS Or SENDAD IN .$EOP

000052 00000

'WORD

000046
3

ACT11 HOOKS

000210

7
8

001100

=$SVPC
.-1100
SBTTL
R

;32)SET LOC.52 TO ZERO
**“RESTORE PC

APT PARAMETER BLOCK

2243232332323

3333343333233 2322233432313223222323232232323822%33232234323¢2228/1

ssr LOCATIONS 24 AND 44 AS REQUIRED FOR APT

tti‘tfit*fi*'ttit...**'!"t*tfit.l!*.‘tl"t.lfiittt."tt'tttt't'tttt

001100

000024
000044

000024
000200
000044
001100
001100

.$X=.

224"
500
=44
$APTHDR
.=.84

::SAVE CURRENT LOCATION

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

fifi't*tl'tt*itlfit'fi"fit*"t't‘"t*"t't‘.tttttfittltttttt*'lttttttt

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.

001100

001100
001102
001104
001106
001110
001112

000000
001222
000006
000006
000006
000042
001114

$APTHD:

$HIBTS:
SMBADR:
$TSTM:
SPASTM:
SUNITM:
TAGADR=.,

.WORD
.WORD
.WORD
.WORD
.WORD
"WORD

O
.:TWO HIGH BITS OF 13 BIT MAILBOX ADDR.
SMAIL
:-ADDRESS OF APT MAILBOX (BITS 0~15)
6
“'RUN TIM OF LONGEST TEST
6
“TRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
6
“"ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-SMAIL/2 ;:LENGTH MAILBOX~E
TABLE \WORDS)

CZRMOBO RMOS5/3/2 FCTINL

COMMON TAGS

TST 3

MACRO v04.00

2
L
&~APR-81 01:15:59 PAGE 6

.SBTTL

SEQ 0024

COMMON TAGS

::‘tfi.l.'ttltt.fit'fit.ttt'*'ttt.ttt.'tfitt.t"ttttt'ttttitt.tttt'tQ

**THiS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
**USED IN THE PROGRAM.

001173
001174
001176

001200
001202
01204
001206
001210
001212
001216

001217
001220

000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
000000
000000
000000
000000
000000
000000
207

077
015
012

$AUTOR:
$INTAG:

377
000

377

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

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

SWR:
.WORD
LAY:
DISP
. WORD
177560
$TKS:
177562
$TKB:
$TPS:
177564
177566
$TPB:
:
$NULL
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
:
$TMP1
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMPS:
. WORD
$TIMES: 0
$ESCAPE 0
$BELL:
LASCIZ
$QUES:
LASCI1
$CRLF:
LASCII
LASCIZ
$LF

;;CONTAINS *'GOOD* DATA
:;CONTAINS 'BAD' DATA
2 sRESERVED=--NOT TO BE USED

;;AUTOMATIC MODE INDICATOK
;- INTERRUPT MODE INCICATOR

;;ADDRESS OF SWITCH REGISTER

;<ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS

::TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS
;cCONTAINS # OF FILLER CHARACTERS REQUIRED

;:INSERT FILL CHARS. AFTER A "LINE FEED'
:2"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0-YES)

;;USER
;sUSER
; sUSER
..USER
USER

DEF INED
DEF INED
DEF INED
DEF INED
DEF INED

NUMBER OF

JTERATIONS

ESCAPE ON ERROR ADDRESS

<207><377><377> ..CODE FOR BELL
/?/
:;QUESTION MARK
<15>
::CARRIAGE RETURN
<12>
JLINE FEED

**t*tt*'***ttt**t*i*ttititttttt‘fi***'tt*ttttti't‘tttlttit"ttlt

"SBTTL

APT MAILBOX-ETABLE

::ttt*ti*litttttttt*tt*i*ifi'tt*tttlfl**ltitttt‘tt'tktttttttttttttt

001222
001222
001224
001226

000000
000000
000000

.EVEN
:
$MAIL
$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

. sCONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
:;CONTAINS SCOPE LOOP ADDRESS
;2CONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
:;CONTAINS ITEM CONTROL BYTE
.. CONTAINS MAX. ERRORS PER TEST
;2 CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °‘GOOD* DATA
;;CONTAINS ADDRESS OF °‘BAD® DATA

001146
001150
001151
001152
001154
001156
001160
001162
001164
001166
001170
001171
001172

$STSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
SERTTL:
S$ITEMB:
SERMAX:
$ERRP(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

SZ
wno

000000

;:START OF COMMON TAGS

=4 [elelelelelolalelaloldolelolololslole)

$CMTAG:

.=TAGADR

OOOOOOR‘)NO

001114

AMSGTY
AFATAL
ATESTN

;APT MAILBOX

; :MESSAGE TYPE CODE
::FATAL £RROR NUMBER
::TEST NUMBER

TIRMOBO RM0S/3/2 FCINL TST 3
APT MALBOX-ETABLE
001230
001232
001234
001236
0012640

001242
001242
001243
001244
001246
001250

000000
000000
000000
000000
000000

000
000
000000
000000
000000

MACRO v04.00

$PASS:
$DEVCT:
SUNIT:
SMSGAD:
$MSGLG:

.WORD
.WORD
_WORD
.WORD
.WORD

SETABLE:
SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
$USWR:
_WORD
$CPUOP: .WORD
o
B
i*

001252
001253

000
000

001254

000000

001256
001257
001260

000
000
000000

001270

000000

001262
001263
001264
001266
001267
001272
001274
001276

001300

001302
001304
001306
01310
001312

001314
001316
001320
001322
88}%52

000
000
000000
000
000
120254
000000
176700
000000

000000
000000
000000
000000
000000

4-APR-B1 01:15:59 PAGE 6-1

i
o
i
$MAMST:
SMTYP1:
o*
A
*
;*
$MADR1:
i
$MAMS2:
SMTYP2:
$MADR2:
$MAMS3:
$MTYP3:
SMACR3:
SMAMS4:
SMTYP4:
$MADR4:

.BYTE
.BYTE

.WORD
.BYTE
.BYTE
.WORD

.BYTE
.BYTE
.WORD
.BYTE
_BYTE

.WORD
SVECT1: .WORD
SVECT2: .WORD
$BASE:
.WORD
$DEVM:

_WORD

$DDW3:
$DDW4:
$DDWS:
$DDW6:
22??;6

.WORD
.WORD
.WORD
.WORD
.WORD

$CDW1:
$CDW2:
$ODWO:
$DDW1:
$DDW2:

MEXIT

.WORD
.WORD
.WORD
.WORD
.WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

SEQ 0025

;;PASS COUNT
;.DEVICE COUNT
;.1/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH

;. APT ENVIRONMENT TABLE
; :ENVIRONMENT BYTE
;:ENVIRONMENT MODE BITS
;;APT 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,PDQ=07,0=10

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
AMAMS1
;. HIGH ADDRESS M.S. BYTE
AMTYP1
; MEM. TYPE,BLKA1
-- (MIGH BYTE)
MEM.TYPE BYTE
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
AMADR1
;:;HIGH ADDRESS,BLKA1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OfF ‘‘TYPE'® ABOVE
AMAMS?2 ;;HIGH ADDRESS.M.S. BYTE
AMTYP2 ;:MEM.TYPE ,BLKAZ2
AMADR? ;;MEM.LAST ADDRESS,BLK#?
AMAMS3 ;.HIGH ADDRESS,M.S.BYTE
AMTYP3 ;. MEM.TYPE ,BLKA3
AMADR3 ;;MEM.LAST ADDRESS,BLKA3
AMAMS4 ;-HIGH ADDRESS M.S.BYTE
AMTYP4 ; ;MEM.TYPE,BLKAS
AMADRS4

;;MEM.LAST ADDRESS,BLK#4

ADEVM

;:DEVICE MAP

AVECT1
AVECT2
ABASE
ACDW1
ACDWZ2
ADDWO
ADDW1
ADDWZ

ADDW3

ADDW4

ADDWS
ADDW6
ADDW7

;;INTERRUPT VECTOR#1,BUS PRIORITY#1
;;INTERRUPT VECTORA2BUS PRIORITY#?
;;BASE ADDRESS OF EQUIFMENT UNDER TEST
;;CONTROLLER DESCRIPTION WORDA1
;;CONTROLLER DESCRIPTION WORD#?
;;DEVICE DESCRIPTOR WORDA0
::DEVICE DESCRIPTOR.WORD#1
;:DEVICE DESCRIPTOR WORDA#?2

;:DEVICE DESCRIPTOR WORDA3

;;DEVICE DESCRIPTOR WORD#4

;;DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORDAG
;;DEVICE DESCRIPTOR WORD#7

CZRMOBO RMOS/3/2 FCINL

USER DEF INED TAGS

iST 3

MACRO v04.00

4-APR-81 01:15:59 PAGE 7

.SBTTL

USER DEFINED TAGS

.WORD

001326
001330
001332

000000
000000
000000

CTLFG:

001334
001335

000
000

_STRK:

CHGADR:
XXDP:

.WORD
.WORD

.BYTE

BYTE

0
0

2
SEQ 0026

s CONTAINS CONTROL-C FLAG

; CHANGE RH/RM BUS ADDRESS = =1, NO CHANGE
0
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
; THE PROGRAM WAS LOADED.

THE HIGH BYTE

;'XXDP' DEVICE CODE FOR THE RM05/3/2.
;LO BYTE = 0

;HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT

;UNDER TEST. RM02/3 = 4., RMO5 = 18.

;THE REGISTER INPUT BUFFER IS USED FOR
;STORING DRIVE STATUS
001336

GETBUF:

001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362
001364
001366
001370
001372
001374
001376
001400
001402
001404
001406
001410

RMCS1I:

.WORD

;CONTROL, STATUS REGISTER #1

RMCS2I:

.WORD

;CONTROL, STATUS REGISTER #2

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

JREGISTER INPUT BUFFER

RMWCI:
RMBAI:
RMDAl:

RMDSI:
RMERTI:
RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR2I:

RMER2I:

RMEC1I:
RMEC2I:
RMBAEI:

RMCS3I:

.WORD
.WORD
.WORD

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

.WORD

.WORD
.WORD
.WORD

.WORD

0
O
O

O
O
O
O
O
0
O
O
O
O
O
O

O
O
0

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER

;DRIVE STATUS REGISTER
;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE [YPE REGISTER
s SERIAL NUMBER REGISTER
sOFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
JMAINTENANCE REGISTER #2

;ERROR REGISTER #2

sECC POSITION REGISTER
;ECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

;THE REGISTER OQUTPUT BUFFER 1S USED FOR
;ASSEMBLING DATA GOING TO REGISTER
001412

001412
001414
001416
001420
001422
001424
001426

001430
001432
001434
001436

:
PUTBUF

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

JREGISTER QUTPUT BUFFER
;CONTROL, STATUS REGISTER #1
O
RMCS10: .WORD
RMWCC:
RMBAO:
RMDAD:

.WORD
.WORD
.WORD

O
O
O

;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER

RMDSO:
RMER10:
RMASO:
RMLAO:

.WORD
.WORD
.WORD
.WORD

O
0
O
O

:DRIVE STATUS REGISTER
:ERROR REGISTER #1
JATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER

:MAINTENANCE REGISTER #1

RMCS20:

RMDBO:

RMMR10:

.WORD

CONTAINS

:CONTROI., STATUS REGISTER #2

;DATA BUFFER

THE

JSER DEF INED

TAGS

001440

001442
001644

001446

001450
001452
0016454
001456
001460
001462
001464

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

TST 3

8
3
4-4aPR-81 01:15:59 PAGE 7-1

MACRO v04.00
RMDTO:
RMSNO:

RMOFO:
RMDCO:
RMHRO:

RMMR20:
RMER20:
RMEC10:
RMEC20:
RMBAEO:
RMCS30:

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

;EACH WORD OF

[s]elelolololelelolole)

CZRMOBO RMQS5/3/2 FCINL

EQ 002/

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER

;DESIRED CYLINDER REGISTER
;HOLDING REGISTER
JMAINTENANCE REGISTER #2

;ERROR REGISTER #2
JECC POSITION REGISTER
;ECC PATTERN REGISTER

;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

THE TEST QUE CONTAINS THE DEVICE NUMBER [N

;THE LOW BYTE AND THE ATTENTION BIT
;FIRST WORD CONTAINS THE ADDRESS OF

IN THE HIGH BYTE. THE
THE DEVICE UNDER TEST

;IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
JEND OF THE QUE.

001666

001470
001510

000000

TSTQUE:

000000

.WORD

.BLKW
.WORD

sMEDIA ENABL

001512

000000

8.
O

;CONTAINS DEVICE POINTER

JTEST QUE FOR DEVICES UNDER TEST
;TABLE TERMINATOR GOES HERE WHEN

JALL 8. DEVICES ARE UNDER TEST.

IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED

;FOR (HE UNIT UNDER TEST, OTHERWISE IT IS ZERO.
MEDENB: .WORD
O
;MEDIA ENABLE

;LOCATIONS ‘'ASNDC'" AND ‘'ASNDC’' CONTAIN THE CYLINDER, TRACK AND SECTOR
001514
001516
001520
001522

001524

600000
000000
000000
000000

;ADDRESS ASSIGNED BY THE BAD SECTOR MODULE.

ASNDC:

.WORD

sASSIGNED DESIRED CYLINDER

CLKADR:
CLKVCT:

.WORD
.WORD

0
O

JUNJBUS ADDRESS OF KW11l CLOCK
;VECTOR ADDRESS OF KW11 CLOCK

ASNDA:

_WORD

sJASSIGNED TRACK, AND SECTOR

JTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
THE LIST IS TERMINATED BY
;ARE READ BY THE GET SUBROUTINE.
;A NEGATIVE BYTE.

GCTINX:

.BLKB

23.

;GET INDEX TABLE

;THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH
THE LIST IS TERMINATED BY
JARE WRITTEN BY THE PUT SUBROUTINE.
001553

;A NEGATIVE BYTE.

PUTINX:
;PUT

.BLKB

TAGS HERE

23,

;PUT

INDEX TABLE

(ZRMOBO RMQS/3/2 FCTINL

FRROR POINTER

TABLE

TST 3

MALRO V04.00

c
3
&-APR-81 01:15:59 PAGE 8

.SBTTL

SEQ 0028

ERROR POINTER TABLE

;*TH]S TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;«THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB.

NP
—

:«NOTE1:
:=*NOTE2:

[0
JVA
N o
O 00~
ka2
—

DEVICE WENT UNAVAILABLE

DEVICE WENT NONEXISTENT

;ERROR

CONTROLLER NOT READY
EMT4
EHT
EDT1
EFT?

072424
076470
076614
076704

(¥,
¥ L3V 1]

SELECTED

EMT3
EHT1
EDT1
EFT1

072416
076470
076614
076704

DRIVE NOT READY AND GO NOT RESET

;ERROR

001650

TO THE DATA
TO THE DATA FORMAT

EMT?
EHT]
EDT1
EFT

072410
076470
076614
076704

001642
001644
001646

;;POINTS
;:POINTS

EMT1
EHTT
EDTI
EFT1

0726404
076470
076614
076704

;ERROR

001632
001634
001636
601640

TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;:POINTS TO THE ERROR MESSAGE
:sPOINTS TO THE DATA HEADER

WRONG UNIT

:ERROR

001622
00" 5264
201626
001630

—r
b

EM
DH
DT
DF

;ERROR

001612
001614
001616
001620

EACH ITEM IN THE

$ERRTA:

001602

0C1602
01604
001606
001610

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINEN".

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

EMT5
EHTI
EDT1
EFT1

072432
076470
076614
076704
;ERROR

UNEXPECTED VALUE FOR '“ATA' STATUS

(ZRMOBO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE
18

001652
001654
001656
01660

MACRO v04.00

D 3
4-APR-8! 01:15:59 PAGE 8-1

072640
(076470
076614
076704

EMT6
EMTIT
EDT
T
EF

:ERROR

001662
001664

001666
001670

000000
000000

0
0

;ERROR
001672
001674
01676
001700

072654
076470
076614
076704

001702
001704
001706
001710

072460
076470
076614
076704

28
%3

001720

072464
076470
076614
076704

%%
072472
076470
076614
076704

34
gg

GO NOT RESET BUT DRIVE IS READY

INCORRECT FUNCTION CODE

PAR]TY ERROR READING REMOTE REGISTERS

EMT13
EHTI
EDT1
EFTI
:ERROR

001732
00173
001736
001740

EMT12
EHTI
EDT1
EFT
:ERROR

001722
001724
001726
001730

DRIVE NOT READY BUT GO IS RESET

EMT11
EHTI
EDT1
EFT1
;ERROR

001712
001714
001716

10
EMT10
EHTT
EDTI
EFT1

:ERROR

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT?
0

(0724646
000000

072504
076470
(076614
076704

TRANSFER ERROR IS INCORRECT

EMT14
EHTI
EDT1
EFT1

:ERROR

INCORRECT WORD COUNT

SEQ U029

CZRMOBO RMOS/3/2 FCTINL TST 3

ERROR POINTER

001762
001744
001 746
001750

TABLE

001752
001754
001756
001760

. ERROR

001762
001764
0017656
€01770

:ERROR
002002
002004
002006
002010

072550
076470

INCORRECT AOE

076614
076704

VIV IV

072600

INCORRECT DISK ADDRESS

INCORRECT CYLINDER ADDRESS

INCORRECT WLE STATUS

EMT23
EHTI
EDT]

072570
076470
076614
076704

EFT1

;ERROR

002032

EMT22
EHTI
EDT?
EF11

072560
076470

. ERROK
002022
002026
002026
002030

STATUS

EMT21
EHTI
EDT1
EFTI

076614
076704

~NONw

002072
002014
002016
(02020

INCORRECT LBT

EMT20
EHT1
EDTI
EFTY

072540
076470
07¢614
076704

;ERROR

58
59
0

SERROR
001772
001774
001776
002000

INCORRECT BUS ADDRESS

EMT17
EHT1
EDT
EFT1

072530
076470
076614
076704

50
51

EMT16
EHT1
EDTI
EFT1

072520
076470
076614
076704

47
48

EDT
EFT
:ERRCR

46
45

EMTI5
EHT

072512
076470
076614
07672

MACRO v04.00 4-APR-81 01:15:59 PAGE 828

EMT24

INCORRE(T UPE STATUS

SEQ 0030

076614

076704

:ERROR
002042
002064
002046
002050

076¢14
076704

;ERROR
002052
002054
002056
002060

70
71
72

076470
076614
076704

072670
076470

INCORRECT DCK STATUS

INCORRECT ECH STATUS

DLT SHOULD NOT BE SET

EDTI
EFT1
;ERROR

002122
00212¢

STATUS

EMT32
EHTT

072660
076470
076614
076704

INCORRECT MDPE

EFT1

;ERROR

’8

2’

EM131
EHT1
EDT1

072650
076470
076614
076704

STATUS

EHTT
EDT
EFT1
:ERROR

002102
002104
002106
002110

INCORRECT WCE

EMT30

072640
076470
076614
076704

EMT27
EMTT
EDTI
EFT

072630

:ERROR
002072
00207¢
002076
002100

STATUS

EHT
EDT
EFT1
:ERROR

002062
002064
002066
002070

INCORRECT W(F

EMT26

072620
076470
076614
076704

67
68

EMT25
ENT
EDT1
ErT1

072610
076470

T
T
T

SEQ 0031

—t
e
b

076470

mmm

002034
002036
002040

~oXx

CZRMOBO RM0OS/3/2 FCTINL TST 3

ERROR POINTER TABLE

MACRO v04.00 &-APR-81 (01:15:59 PAGE 825

MXF

SHOULD NOT BE

SET

CZRMOBO RMQS/3/2 FCINL

ERROR POINTER TABLE

002126
002130

02132
002134

00c 36
002140

002142

002144
002146
002150

002162
002164
002766
002170

e
e

SHOULD NOT BE

SET

;ERROR

DTE

;ERROR

INCORRECT HCRC

;ERROR

INCORRECT HCE STATUS

;ERROR

INCORRECT FER STATUS

:ERROR

DPE SHOULD NOT BE SET

. ERROR

LOST "MOL"' DURING PACK ACKNOWLEDGE

;ERROR

UNSAFE ERROR DURING PACK ACKNOWLEDGE

STATUS

«NOT A DATA (OMMAND)

072740
076470
076614
076704

072746
076470
076614
076704

828
002212
002214
002216

EFTI

072730
076470
07€614
076704

002202
002204
002206
002210

EDT

072720
076470
C76€14
076704

002172
002174
002176
002200

SEQ 003

072710
076470
076614
076704

9i
93

G 3
4&-APR-81 (1:15:59 PAGE 8-¢

072700
076470
076614
076704

88
89
002152
002154
002156
002160

MACRO v04.00

076674
076704

85
&7

TST 3

072756
076470
076614

(ZRMOBO RMOS/3/2 FCTINL TST 3

ERROR POINTER TABLE

002220

MACRO v04.00

076704

002230

076614
076704

073020
076470
076614
076704

EDT1
EFTI

EMT50
EHT]
EDTI
EFT1

INCORRECT JAE STATUS DURING SEEK COMMAND

okl
oix

— —d -

073046
076470
076614
076704

;ERROR
002302
002304
002306
002310

IS INCORRECT

PARITY ERROR WRITING REMOTE REGISTERS

mmmm

b
el
—d

COMPDSITE ERROR STATUS

EMT47
EHTI
EDT1
EFT1

073036
076470
076614
076704

2
3

“"ILF'" ERROR DURING PACK ACKNOWLEDGE

EHTI

;ERROR

002272
002274
002276
002300

"'JLR"" ERROR DURING PACK ACKNOWLEDGE

EMT46

073030
076470
076614
076704

[ASIaSLaN]

1M
11
12

"RMR’’ ERROR DURING PACK ACKNOWLEDGE

EMT4S
EHTT
EDT1
EFT1

073010
076470
076614
076704

:ERRCR

002262
002264
002266
002270

‘OPI'* ERROR DURING PACK ACKNOWLENGE

EMT44
EHT1
EDT1
EFT1

073000
076470

;ERROR

002252
002254
002256
002260

ERTI
EDTI
EFTI

076470
076614
076704

:ERRCR
002242
002244
002246
002250

SEQ 1033

EMI4L3

072770

:ERROR

002232
002234
002236
002240

EFT

JERROR
002222
002224
002226

4-APR-81 (01:75:59 PAGE 8~%

“IRMOBO RM(OS/3/72 FrTNL

FRROR PQINTER

TABLE

IST 3

MACRO v04.00

&~APR-B1

:ERROR

076614
076704

) —

Fa¥
ol ol
ro—0O

—

146

DEVICE

CHECK DURING SEEK COMMAND

PIP

STILL

SET AFTER SEEK - SKI

IS RESETY

ATA DID NOT

SET DURING SEEK COMMAND

EMTS7

073154
075470
076614
076704

EHT
EDT]
EFT1

:ERROR

073164
076470
076614

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

EHTI
EDT
EFT1
:ERROR

002372
002374
002376

EMT56

073136

145

ERROR DURING SEEK = MEDIUM IS ON LINE,

ON CYLINDER LATCH DIDN'T RESET

EDT1
EFT1

076470
076614
076704

143

OP]

EMTSS
EHTI

073124
076470
076614
076704
;ERROR

022362
002364
002366
002370

EMTS4
EHT
EDTI
EFTI

073114
076470
076614
076704
:ERROR

002352
002354
002356
002360

OP] ERROR DURING SEEK = MEDJUM iS NOT ON L INE

EMTS3
EHTI
EDTI
EFT

073076
076470

. ERROR

002342
002344
002346
002350

SEQ 0034

EFT
;ERROR

002332
002334
002336
002340

8-6

EMT52
EHTI
EDT

073060
076470
076614
076704

002326

01:15:59 PAGE

EMT60
EHTI
EDTI

IVC ERROR DURING SEEK COMMAND -~ LOST

VOLUME VALID

ASSUME

CZRMOBO RMOS/3/2 FCTNL TST 3

FRROR POINTER TABLE

002400

002402
002404
002406
002410

ERRONEOUS [VC ERROR DURING SEEK
VOLUME VALID S STIL SET

(OMMAND -~

EMT61
EHTI
EDT1T
EFTI

073202
076470
076614
076704
;ERROR

MOL IS ZERO, BUT OPI WAS NOT
REPORTED DURING SEEK COMMAND

EMTE2
EHTI
EDT1
EFT1

073222

076470
076614
076704

~NOV

VIV

—b —d

002412
002414
002416
002420

SEQ 0035

EFTS
ERROR

P XV

—
b
—t

J
3
4-APR-81 01:15:59 PAGE 8~/

076704

[V 1,1V,
1V, }

147
148
149
150

MACRO v04.00

002422
002424
002426
002430

002432
002434
002436
002440

164
165
166

002442
002444
002446
002450

002452
002454
002456
002460

:ERRCR

DRIVE EXECUTED A SEEK WITH ERROR SET

;ERROR

UNEXPECTED ERROR SET [N RMER]

:ERROR

UNEXPECTED ERROR SET IN RMER?

073300
076470
076614
076704

167

002462
002464

DRIVE DID NOT DETECT *'IVC’’ ERROR DURING SEEK

073260
076470
076614
076704

168

169

. ERROR
073240
076470
076614
076704

161
162

163

UNUSED

000000
000000
000000
000000

158

159
160

:ERROR

073312
076470

~IRMOBO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

0024066
002670
170
171
172

MACRO v04.00

177
178

002514
002516
002520
179
180
181
182

;ERROR
002532
002534
002536
002540

076614
076704

— S

076704

073430
076470

"'IvC’’ ERROR DURING RECALIBRATE - ''VWV'' = 0

ERRONEOUS "‘IVC'" ERROR DURING RECALIBRATE =~ "W’

EHT1
EDTI
EFT

:ERROR

002552
002554

CYLINDER DIDNT DROP

EMT7S

073410
076470
076614

189

"OPI'' LRROR DURING RECALIBRATE BECAUSE ON

EDTT
EFT

;ERROR

002542
002544
002546
002550

EMT74
EHT

073400
076470

BIR

185

"'OPI'' ERROR DURING RECALIBRATE DUE TO ‘MOL'' = O

EHT1
EDT]
EFT

076614
076704

183

EMT73

073362
076470

184

“ILF'' ERROR DURING RECALIBRATE

EMT72
EHT]
EDT1
EFT1

073344
076470
076614
076704
s ERROR

002522
002524
002526
002530

EHT
EDTI
EFT

:ERROR

002512

ERRONEOUS ''IAE‘' ERROR DURING RECAL IBRATE

EMT71

073334
076470
076614
076704

176

EMT70
EHT]
EDTI
EFT1

073324
076470
076614
076704

sERROR
002502
002504
002506
002510

EDT1
EFT1

076614
076704
:ERROR

002472
0026474
002476
002500

4-APR-81 01:15:59 PAGE 8-8

EMT76
EHTI

*'SK]'*' ERROR DURING RECALIBRATE

SEQ 0036

(ZRMOB0O RMOS5/3/2 FCTINL TST 3

ERROR POINTER TABLE

002556
002560
192
193
194

MACRO v04.00

3
L
4-APR=-81 01:15:59 PAGE 8-9
EDTT
EFTI

07666
076704
:ERROR

002562
002564
002566
002570

202
203

076614
076704

204
205
206

076614

076704

;ERROR

—d
b

102

*'ATA'" DID NOT SET DURING RECALIBRATE

103

'OM'* DID NOT RESET DURING RECALIBRATE

104

"PIP'' IS STIL SET AFTER RECALIBRATE

EMT104
EHTI
EDT1

073530
076470
076614
076704

EFTI

;ERROR

073546
076470
076614

LOST "'VV'' DURING RECALIBRATE - “'IV(C’’' = 0

EDT]
EFT1

:ERROR

002642
002644
002646

101

EMI103
EHT

002622 073516
- 076470
002624
002626 076614
002630 076704

002632
002634
002636
002640

EMT102
EHT]
EDT1
EFT1

073506
076470

nN—=O

[aS 1N 1aN

207
208
209

LOST 'MOL'' DURING RECALIBRATE - ''OPI'"

EMT101
EHTI
EDT
EFT1

(673479
076470
076614
076704

:ERROR
002612
002614
002616
002620

100

EMT100
EHT1
EDTI
EFTY

073452
076470

201

*DvC’'* OCCUURRED DURING RECALIBRATE

EDTI
EFTI

. ERROR
002602
002604
002606
002610

EMT77
EHT

073440
076470
076614
076704
;ERROR

002572
002574
002576
002600

SEQ 0037

105

EMT105
EHTI
EpT1

UNEXPECTED ''ILR'' ERROR DURING RECAL IBRATE

CZRMOBO RMOS/3/2 FCTINL T1ST 3

ERROR POINTER

225
226
227

228
229
230

002702
002704
002706
002710

002712
002714
002716
002720

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

:ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

:ERROR

NONEXISTENT DEVICE

;ERROR

DEVICE NOT AVAILABLE

073606
076512
076632
076722

073620
076516
076634
076724

073626
076516
076634
076724
113

BUS TIMEOUT-NED STATUS FAILURE

073634
000000
000000
000000
:ERROR

002732
002734
002736
002740

107

EDT1
EFT

076614
076704

;ERROR

002722
002724
002726
002730

UNEXPECTED 'RMR'' ERROR DURING RECAL IBRATE

EMT107
EHTI

073566
076470

who—

AN NN

AN LS L}

076470
076614
076704

oo~NON

—

[A¥1AV
] ]

222
223
224

002672
002674
002676
002700

106

EMT106
ERTY
EDT1
EFTT

073556

;ERROR
002662
002664
002666
002670

219
220
221

EFTY

. ERROR
002652
002654
002656
002660

4&-APR-81 01:15:59 PAGE 8-10

076704

wiHw

[aV1aV
1, )

002650

TABLE

MATRO V04.00

073650
076522
076636
076726

DEVICE NOT AN RM0S5/3/2

SEQ 0038

CZRMOBO RMO5/3/2 FCTINL TST 3

rrONS

LAV

ERROR POINTER TABLE

240
2641
242

243
244
245

002752
002754
002756
002760

249
250
251

252
253
254

076704

INITIALIZED BY UNIBUS

RMCS2 NOT

INITIALIZED BY UNIBUS

RMERT

INITIALIZED BY UNIBUS

EFT
120

NOT

EMT120

073706
076470

EHT1
EDT1
EFT

076614
076704

121

RMAS NOT

INITIALIZED BY UNIBUS

EMT121
EHT]
EDT1
EFT1

073716
076470
076614
076704

122

RMMR1

NOT

INITIALIZED BY UNIBUS

EMT122
EHT1
EDTI
EFT1

073726
076470
076614

076704

073736
C76470
076614
076704

RMBA NOT

EDTI

s ERROR

003022
003C24
003026
003030

116

EMT117
EHT1

073676
076470
076614
076704

;ERROR

003012
003014
003016
003020

INITIALIZED BY UNIBUS

EHT]
ECTI
EFTT

076614

;ERROR
203002
003004
003006
003010

NOT

EMT116

073666
076470

;ERROR

002772
002774
002776

RMCS1

EDT1
EFT1

:ERROR
002762
002764
002766
002770

115
EMT115
EHTT

073656
076470
076614
076704

;ERROR

003000

246
247
248

N 3
&-APR-81 01:15:59 PAGE 8-11

:ERROR

002742
002744
002746
002750

237
238
239

MACRO V04.00

123

EMT123
EHT]
EDT]
EFT1

RMDS NOT INITIALIZED BY UNIBUS

SEQ 0039

CIRMOBO AMOS5/3/2 FCINL TST 3

ERROR POINTER TABLE

255
2%6
257

258
259
260

003032
203034
003036
003040

003042
003044
003046
003050

003056
002060

003066
003070

270
271
272

273
274
275

;ERROR
003072
203074
003076
003100

INITIALIZED BY UNIBUS

126

RMCS1

NOT

CLEARED BY CONTROLLER CLEAR

127

RMBA NOT

CLEARED BY CONTROLLER CLEAR

130

RM(S2 NOT

CLEARED BY (ONTROLLER (LEAR

EMT130
EMT1
EDT1
EFT1

074012
076470
076614
076704

;ERROR
074024
076470
076614
076704

RMERT

NOT CLEARED BY CONTROLLER CLEAR

EMT131
EHTI
EDT]
EFTY

;ERROR
074036
076470
076614
076704

RMMRZ2 NOT

EMT127
ENT
EDT
EFT1

074000
076470
076614
076704

267
268

125

EMT126
EHT
EDT
EFT

076470
076614
076704

:ERROR

003062
003064

INITIALIZED BY UNIBJS

EHT]
EDT
EFT

073766

264
265

RMEC2 NOT

EMT125

073756
076470
076614
076704
;ERROR

003052

126

EMT124
EHTI
EDT1
EFm

073746
076470
076614
076704

;ERROR

003054

269

8 4
4-APR-81 01:15:59 PAGE 8-12

:ERROR

261
262

263

MACRO v04.00

132

EMT132
EHTI
EDTI
EFT

RMAS NOT

CLEARED BY CONTROLLER CLEAR

SEQ 004U

(ZRMOBO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

277
278

282
283
284

003122
003124
203126
003130

003132
003134
003136
003140

288
289
290

291
292
293

003200

294
295
296

297
298

CLEARED BY CONTHTM LER CLEAR

135

RMECZ2 NOT CLEARED BY CONTROLLER CLEAR

EHT]
EOT
EFT1
136

RMMRZ NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHTT
EDT1
EFTI

074106
076470
076614

076704

137

RMCS?

NOT CLEARED BY ERROR CLEAR

EMT137

074120
076470
076614
076704

EHTI
EDPTI
EFT1
140

RM(CSZ2 NOT CLEARED BY ERROR CLEAR

EMT140
EHTI
EDTI
EFTY

074130
076470
076614
076704

;ERROR
003202
003204
003206
003210

RMDS NOT

EMT135

074074
076470
076614
076704

;ERROR

003172
003174
003176

134

EHT1
EDTI
EFTY

:ERROR

003162
003164
203166
003170

NOT CLEARED BY CONTROLLER CLEAR

EMT134

074062
076470
076614
076704

;ERROR
003152
003154
003156
003160

RMMR1

EHT1
EDT1
EFT

;ERROR

003142
C03144

133

EMT133

074050
076470
076614
076704
;ERROR

003146
003150

285
286
287

C 4
4-APR-81 01:15:59 FAGE 8-13

:ERROR

279

280
281

MACRO v04.00

141

RM(S1

NOT CLEARED BY DRIVE C(LEAR

EMT141
EHT
EDT1

074140
076470
076614
076704

EFT1

:ERROR

142

RMDS NOT CLEARED BY DRIVE CLEAR

380 0041

(ZRMOBO RMOS5/3/2 SCTINL

FRROR POINTER TABLE

003212
003214
003216
003220

301
302

303
304
305

306
307
308

D
—

003222
003224
003226
003230

EXTI

NOT

CLEARED BY DRIVE

CLEAR

144

RMAS NOT

CLEARED BY DRIVE

CLEAR

EMT144
EHT]
EDT1
EFT1

074°70
076470
076614
076704

145

RMMRT

NOT

CLEARED BY DRIVE

(LEAR

EMT145
EHTY

074200
076470
076614
076704

EDT]
EFTI
146

RMMR2 NOT CLEARED BY DRIVE

CLEAR

EMT146
EHT]
EDTI
EFT1

074210
076470
076614
076704
; ERROR

147

RMERZ2 NOT CLEARED BY DRIVE CLEAR

EMT147

074220
076470
076614

EHT
EDTI
EFTI

076704

s ERROR
003272
003274
003276
003300

RMERT

EHTI
EDTI
EFTI

:ERROR

003252
003254
003256
003260

143

EMT143

:ERROR
003242
003244
003246
003250

SEQ 004¢

EDT
EFT

;ERROR
003232
003234
C03236
003240

D &
(1:1°:59 PAGE 8-14

EMT142

074160
076470
076614
076704

~NO W

W NN

1
1

4-APR-81

;ERROR

003262
003264
003266
003270
1

MAIRO v04.00

074150
076470
076614
076704

Hwirv

NN
N

309
310
3

T1ST 3

150

RMECZ2 NOT CLEARED BY DRIVE CLEAR

EMT150
EHT

074230
076470
076614
076704

EDTI
EFTT

;ERROR

151

MEDIUM NOT ON LINE

“IRMOBC RMOS/3/2 FCTINL TST 3

FRROR PUINTER TABLE

003202
003304
003306
003310

324
325
326

327
328
329

331
33¢

003312
003314
003316
003320

(76470
076614
076704

33¢
337
338

003366
003370

154

SHOULD NOT BE

SET, AC

IS LOW

155

VOLUME VALID NOT SET By PACK A(K

EpM

EFTI

074332
076470
076614
076704

156

OFFSET MODF NOT SET BY OFFSET COMMAND

EMT156
EHTI
EDT1
EF T

074344
076470
076614
076704

074356

UNSAFE

IS SET

EHT?

157

OFFSET MODE NOT RESET BY RT(C COMMAND

EMT157
EHTI
EDT1
EFTY

. ERROR

003372

SET BECAUSE DVC

EMT155

074320
076470
076614
076704

339

340
34

SHOULD BE

EHT
EDTY
EFT?

:ERROR

003362
003364

UNSAFE

EMT154

074302
076470
076614
076704

. ERROR
003352
003354
003356
003360

153

EFT1

;ERROR
0033472
003344
003346
003350

DRIVE FAULT

EMT153
EHTI
EDTI

074264

;ERROR

003332
003334
003336
003340

152

EMT152
EXTT
EDTT
EFT1

074252
076470
076614
076704

;ERROR

003322
003324
003326
€03330

SEQ 0043

EMT151
EHTT
328!
EF1T1
;ERROR

333

334
335

E &
&-APR-81 01:15:59 PAGE 8-15

074240
076470
076614
076704

32°
322

323

MACRO v04.00

160

EMT160

RMOF

NOT RESET BY RIP COMMAND

342
343
344

345
366
347

:ERROR

003402
003404
003406
003410

352
353
35¢

355
356
357

358
359
360

aedd
e

161

162

003462

164

OP1

SHOULD NOT BE

SET

EMT 164
EHT

0744622
076470
076614
076704

EDT
EFTY
165

IvC SHOULD NOT BE SET

EMT165
EHTI

074430
076470
076614
076704

EDT1

EF T

074436
076470
076614
076704

0746444

DATA WAS ECC CORRECTED BUT DOES NOT (OMPARE WITH

WRITE BUFFER

EMT336
EHT336
EDT336
EFT336

076264
076552
076650
0767490

;ERROR

003452
003454
003456
003460

RMDC NOT RESET BY RIP (OMMAND

EMT 62
EHTI
EDTY
EFT1

074400
076470
076614
076704

:ERROR
003442
003444
003446
003450

RMDA NOT RESET BY RIP (OMMAND

EDT
T
EF

:ERROR

003432
003434
003436
003440

SEQ 0044

EHTT

166

JAE SHOULD NOT BE SET

EMT166
EHT
EDT1
EFTY
. ERROR

;ERROR 163

003422
003424
003426
003430

EMT101

074366
076479
076614
076704
:ERROR

003412
003414
003416
003420

4-AFR-81 01:15:599 PAGE 8-16

076470
076614
076704

348
349

350
351

.MA{RO v04.00

mmmmm

003374
003376
003400

—

ERRCR POINTER TABLE

-ty
—

~IRMOBO RMOS5/3/2 FCTINL TST

167

EMT167

NEM SHOULD NOT BE SET

366

;ERROR
003472
003474
003476
003500

370
3N
372

373
374
375

576
377
378

379
380
381

—
—

———

174

RMERZ NOT

INITIALIZED BY CONTROLLER CLEAR

EHTI
EDT
EFT1
175

SELECTED DEVICE

IS IN WRITE PROTECT

EMT175
EHTI
EDTI

074526
076470
076614

076704

074534
076470

INITIALIZED BY UNIBUS INIT

EMT174

EFT
;ERROR

003552
003554

RMER2 NOT

EHT1
EDTT
EFT1

074514
076470
076614
076704

382

173

EMT173

074504
076470
076614
076704

383

"ATA'' NOT SET BY OFFSET COMMAND

EHTT
EDT
EFT

. ERROR

003542
003544
- 003546
003550

172

EMT172

074474
076470
076614
076704

;ERROR

003532
003534
003536
003540

"'ATA'* NOT SET DURING RETURN TO CENTERL INE

EHT
EDT1
EFTY

;ERROR
003522
003524
003526
003530

171

EMTI71

074464
074470
076614
076704
;ERROR

003512
003514
003516
003520

INCORRECT “MOL’" STATUS DURING DIAGNOSTIC MODE

EDT1
EFTI

;ERROR
003502
003504
003506
003510

170

EMT170
EHTI

074452
076470
076614
076704

367
3¢9

MACRD v04.00 &=-APR-81 01:15:59 PAG? 8-17

076470
076614
076704

365

366

mmm

003464
003466
003470

7<T

"o
x

"IRMOBC RMOS/3/2 FUTNL

FRROR POINTER TABLE

176

EMTI76
EHTI

CANNOT SET DIAGNOSTIC MODE

SEQ 004°

* JRMOBO RMOS5/3/2 FCTNL TST 2

FRROR POINTER TASLE

003556
003560

(RO v04.00

385

:ERROR
003562
003564
003566
003570

000000
000000
000000
000000

388

%gg
003572

074544

395

074556
076470
076614
076704

394,

%32

003616
003620

074570
(076470

ggg
074602
076470
076614
076704

400

28}
074614
076470
076614
076704

403

003642
003644
003646

074632
(076470
076614

202

INCORRECT *‘SKI'* STATUS DURING DIAGNOSTIC MODE

203

INCORRECT *DVC'’ STATUS DURING DIAGNOSTIC MODE

204

"WV'' WAS NCT KESET BY MAINTENANCE UNIT READY

EMT204
EHT]
EDTi
EFT1

:ERROR

282

INCORRECT “WRL'' STATUS DURING DIAGNOSTIC MODE

EMT203
EHT?
EDTY
EFTY
:ERROR

003632
003634
003636
003640

201

EDT1
EFTI

;ERROR
003622
003624
003526
003630

INCORRECT 'PIP'’ STATUS DURING DIAGNOSTIC MODE

EMT202
EHTI

076614
076706

397

200

EMT201
EHTI
EDT1
EFT1

:ERROR
003612
003614

~-RESERVED FOR POWER MONITOR BIT FAILURE=~

EHT
EDTT
EFTI

:ERROR
003602
003604
003606
003610

177

EMT200

076470
076614
076704

%3%

SEQ 004¢

0
0
0
0

(ERROR
003574
003576
003600

334
EFT1

076674
076704

%gg

4-APR-81 01:15:59 PAGE E-18

205
EMT 205
EHT]
EDTT

SELECTED DEVICF HAS A PERSISTENT ''SkI'* ERROR

TIRMOBO RMOS5/3/2 FCINL

ERROR POINTER TABLE

003650

003652
003654
003656
003660

JERROR

003672
003674
003676
003700

003704
003706
003710

418
419
420

621
422
423

074664
076470
076614
076704

426

076624
076714

UNEXPECTED MECHANICAL MOTION - ‘FIP'" - 1

212

UNEXPECTED DEVICE FAULT - "DVC'* = 1

EHT1T
EDT1

EFTI
213

UNEXPECTED SEEX INCOMPLETE ERROR - ''SKI'' = 1

EMT213
ERTI

074722
076470
076614
076704

074732
076502

VOLUME VALID = "W'' =0

EMT212

EDT]
EFTI

:ERROR

003732
003734
003736
003740

UNEXPECTED LOSS OF

EFTY

074706
076470
076614
076704

424
25

210

EDT1

076614
076704

;ERROR

003722
003724
003726
003730

UNEXPECTED LOSS OF “MOL'' = MEDIUM IS OFF LINE

EMT211
EHT1

074672
076470

;ERROR

003712
003714
003716
003720

207

EMT210
EHT
EDT1
EFTI

;ERROR
003702

"LBC'' DID NOT SET DURING DIAGNOSTI( MODE

EMT207
EHTI
EDT
EFT

074652
076470
076614
076704

206
EMT206
EHT
EDTI
EFTY

074642
076470
076614
076704

$12

SEQ 004

EFT

s ERROR

003667
003664
003666
N03670

415
416
417

&
I
4-APR-81 01:15:59 PAGE 8-19

:ERROR

409

414

MACRO v04.00

076704

406

407
408

TST 3

214

EMT214
EHT2
EDT?
EFTZ

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

(ZRMOBO RM(CS/3/2 FCTINL

ERROR POINTER TABLE

T1ST 3

MA{RO v04.00

627
428

429

430
43
632

;ERROR
003742
003744
003766
003750

;ERROR
003752
003754
003756
003760

074764
076470
076614
076704

439
440
441

003772
003774
003776
004000

;ERROR

204002
004004
004006
004010

075014
076470
076614
076704

:ERROR

075024
076470
076614
076704

445

004022
004024
004026
004030

075034
076526
0766490
076730

INCORRECT "WLE'' STATUS

221

INCORRECT "'OPI"'* STATUS

222

RM DID NOT DETECT RMR ERRCR

EMT222
EHT
EDTI
EFT1
:ERROR

446

INCORRECT ‘‘IAE"’ STATUS

EMT221
EHT1
EDT1
EFTI

.
004012
004014
004016
004020

INCORRECT "'IVC'’ STATUS

EMT220
EHTT
EDT1
EFTI

075004
076470
076614
(76704

443

447

217

;ERROR 220

442
444

216

EMT217
EHT1
EDT1
EFT1

074774
076470
076614
076704

436

«37
438

DRIVE DID NOT DETECT *‘IvC'' ERROR DURING RECAL IBRATE

EMT216
EHT]
EDT1
EFTI

;ERROR
003762
003764
003766
003770

215

EMT215
EHT2
EDT?
EFT?

074752
076502
076624
076714

433

L34
435

&
J
4-APR-81 01:15:59 PAGE 8-20

223
EMT223
EH1223
EDT223
EFT223

RM DID NOT DETECT PARITY ERRCR ON MASSBUS CONTROL BUS

SEQ 0048

460
461
462

. ERROR

004102
004104
004106
004110

000000
000000
000000
000000

466

467
468

469

. ERROR
000000
002000
000000
000000

[e]olale)

000000
000000
000000
000000

464

465

QOO0

000000
000000
000000

463

UNUSED

227

UNUSED

[eolelele)

000000

;ERROR

004072
204074
004076
004100

JUNUSED

QOO0

000000
000000
000000
000000
»ERROR

004062
004064
004066
004070

000000
000000
000000
000000
;ERROR

04052
004054
004056
004060

457
458
459

000000
000000
000000
000000
. ERROR

0046042
004044
004046
004050

UNUSED

QOO0

454
655
456

004032
004034
004036
004040

224

451
652
453

:ERROR

UNUSED

OOOO

448
649
450

4-APR-81 01:15:59 PAGE 8-21

[a¥]

ERROR POINTER TABLE

MACRO Vv04.00

OOOC

(ZRMOBO RMOS/3/2 FCINL TST 3

UNUSED

486

487
488
489

490
491

[elelelal
OOOO

000000
000000
000000
000000
;ERROR

004172
004174
004176
004200

000000
000C00
000000
000006

;ERROR

004202
004204
004206
004210

UNUSED

QOOO

000000
000000

484
485

UNUSED

[(slelels)

000060
000000

;ERROR
004162
004164
004166
004170

481
482
483

;ERROR

004152
004154
004156
004160

A%}

000000
000000
000000
000000

478

479
480

000000
000000
000000
00000

;ERROR

004142
C04144
004146
004150

000000
000600
000000
000000

:ERROR
004132
004134
004136
004140

UNUSED

lelelele]

475
476
477

004122
004124
004126
004130

233

UNUSED

QOO0

472
473
474

;ERROR

UNUSED

OOOCO

470
N

&
L
4-APR-81 01:15:59 PAGE 8-22

ERROR POINTER TASLE

MACRO v04.00

(ZRMOBO RMQO5/3/2 FCINL TST 3

000000

600000
000000
000000
:ERROR

242

UNUSED

SEO0 0050

ERROR POINTER TABLE

496
497
498

000000
000000
000000
000000

:ERROR
004222
004224
006226
004230

000000
000000
000000
000000

;ERROR
004242
004244
004246
004250

000000
000000
000000

000000

502

503

504

505
506
507

ach med

Wi
—

(G AV, 1V, ]

508
509
510

004252
004254
004256
304260

:ERROR

UNUSED

246

"ATA'' NOT RESET BY GO WHEN "ERR'' - 0

247

‘'ATA'' NOT RESET BY WRITING RMAS

EMT247
EHT]
EDT1
EFTI

075120
076470
076614
076704
;ERROR

004272
004274
004276
004300

EMT246
EHTI
EDT
EFT1

075110
076470
076614
076704

. ERROR
004262
004264
004266
004270

UNUSED

:ERROR
004232
004234
004236
004240

000000
000000
000000
000000

499

501

243

493
694
495

004212
004214
004216
004220

4-APR-81 01:15:59 PAGE 8-23

[elelole)

492

MACRO v04.00

[eleleles]

(ZRMOBO RMQOS/3/2 FCINL T1ST 3

250

"ATA'* WAS RESET BY GO WHEN "ERR'' = 1

EMT250
EHTT
EDT1
EFT1

075132
076470
076614
076704

:ERROR

251

PROGRAM INTERRUPT WAS NOT GENERATED

SEQ 0051

—eh
o ool

000~

—h
b —d

[V, IV, V]

526
527
528

[V 15,19
,1
W NW
SN

529
530
531

076704

LSLVLNTN)

INTERRUPT

SHOULD NOT

HAVE

BEEN GENERATED

253

OFFSET MODE WAS NOT RESET BY WRITING RMDC(

254

INCORRECT *'ILF'* STATUS

255

INCORRECT ‘‘ATA'' STATUS

256

INCORRECTM "'ILR"" STATUS

EMT256
EHT256
EDT223
EFT223

075220
076540
076640
076730

257

INVALID IAE STATUS DURING SEARCH COMMAND

EMT257
EHT1

075230
076470
076614
076704

075242

PROGRAM

EMT255
EHTI
EDT1
EFT1

075210
076470
076614
076704

EDT1
EFTT

;ERROR

004372

252

EDT1
EFT1

076614

;ERROR

004362
004364
004366
004370

EMT254
EHT]

075200
076470

:ERROR
004352
004354
004356
004360

SEQ 005¢

EHTT
EDTI
EFT1

;ERROR
004342
004344
004346
004350

EMT253

075162
076470
076614
076704
. ERROR

006332
004334
004336
004340

01:15:59 PAGE B8-24

EMT252
EHT2
EDT2
EFT2

075154
076502
076624
076714
;ERROR

004322
004324
004326
C04330

523
524
525

noIT=X

:ERROR

004312
004314
004316
004320

520
521
522

4-APR-81

075146
076502
076624
076714

[V 1V, 1V, ]

04302
004304
004306
004310

MACRO v04.00

— =~

ERROR POINTER TABLE

TST 3

mmmm

CZRMOBO RMOS/3/2 FCINL

260

EMT260

"IvC’' WAS NOT DETECTED DURING SEARCH COMMAND

“IRMOBO RMQS/3/2 FCINL T1ST 3

ERROR POINTER

004374
004376
004400
535
536
537

TABLE

541
562
543

076704

:ERROR

004402
004404
004406
004410

075274
076470
076614
076704

075304
076470
076614
076704

550
551
552

076614

076704

555
556

075366

"'IvC'* ERROR DURING SEARCH - LOST VOLUME VALID

265

ERRONEOUS [VC ERROR DURING SEAR(CH - VOLUME

266

DEVICE FAULT (DVC) DURING SEARCH

EMT 266
EHTI
EDTI
EFTI

075354
076470
076614
076704

. ERROR
004462

264

EMT 265
EHT]
EDT1
EFT1

0/5334
076470
076614
076704

553
554

"'SKI'" ERROR DURING SEARCH COMMAND

EMT 264
EHT1
EDTI]
EFT

;ERROR
004452
004454
004456
004460

263

EDTI
EFT1

;ERROR
004442
004444
004446
004450

‘LBC’’" ERROR NOT SET DURING DIAGNOSTIC MODE

EMT263
EHT]

075314
076470

547

548
549

282

EMT262
EHT]
EDT1
EFTI

;ERROR

004432
004434
004436
004440

DRIVE EXECUTED SEARCH WITH ERROR SE7

EDT?
EFT

:ERROR

004422
004424
004426
004430

261
EMT261
ENTT

075254
076470
0766164
076704
;ERROR

004412
006414
004416
004420

SEQ 0053

EHT
EDTI
EFTI

076470

544

565
546

B 5
4-APR-81 01:15:59 PAGE 8-25

076614

538
539

540

MACRO v04.00

267
EMT267

SK] SHOULD HAVE BEEN SET BECAUSE CYLINDER

ADDRESS IS TGO LARGE

IS VALID

587
558
559

560
561
562
563

564
565
566

076470
076614
076704

004472
006474
004476
004500

574
575
576
577

578

270

076704

OP]

1S NOT SET

273

PIP STIL SET AFTER SEARCH

EMTZ73
EHT]

075454
076470
076614
076704

EDTI
EFT1

274

PARITY ERROR OCCURRED WHILE WRITING REMOTE
REGISTERS BUT MXF DID NOT SET

EMT274

075472
076470
076614
076704

EHT1
EDT1
EFT1

;ERROR
004542
004544
004546
04550

LOST MOL DURING SEARCH, OPI

EDTI
EFTI

. ERROR

04532
004534
004536
004540

272

EMT272
EMHTI

075436
076470
076614
076704
;ERROR

004522
004524
004526
004530

ERROR DURING SEARCH BECAUSE ON CYLINDER

DIDN'T DROP

EMT271
EHT1
EDT1
EFTI

075420
076470
076614
076704

:ERROR
V04512
004514
004516
004520

OP] ERROR DURING SEARCH BECAUSE MOL = 0

EHT1
EDTI
EFTI
s ERROR

004502
004504
004506
€04510

SEQ 0054

EMT270

075404
076470
076614

568

570
571
572
573

;ERROR

567
569

mmm

004464
004466
004470

(.
4-APR-81 01:15:59 PAGE 8-26

ERROR POINTER TABLE

MACRO v04.00

(ZRMOBO RMOS/3/2 FCINL TST 3

075510
G76470
076614
076704

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

EMT275
EHT1
EDTI
EFT

;ERROR

276

“'OPI'* ERROR DURING DATA TRANSFER BECAUSE "'MOL'" wAS

rZRMOBO RMOS/3/2 FCTINL

FRROR POINTER

580
b

582
583
584
585
586

587
588
589
590

TABLE

004552
004554
004556
004560

598
599
600

D S
4-AFR-81 01:15:59 PAGE 8-27

EMT276

075522

EHTI
EDTI]
EFT1

076470
076614
076704

:ERROR

004562
004564
004566
004570

076470
076€14
076704

;ERROR
004572
004574
004576
004600

075554
076470
076614
076704

076614

ERRONEQUS ‘‘IVC'' ERROR DURING DATA TRANSFER - VOLUME
IS VALID

302

"*ILR"" ERROR DURING DATA TRANSFER

303

“ILF'' ERRCR DURING DATA TRANSFER

EMT303

075630
076470
076614
076704

075642
076470

301

EHT1
EDT1
EFT1

EHT?
EDT1
EFT
;ERKOR

004632
004634
004636

VALIL

EMT302

075616
076470
076614
076704

601
602

“'IvC’* ERROR [URING DATA TRANSFER BECAUSE VOLUME

WAS NOT

EFT

:ERROR

004622
004624
004626
004630

300

EMT301
EHT1
EDT1

075574
076470
076614
076704

:ERROR

004612
004614
004616
004620

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

EMT300
EHT?
EDTI
EFTT
;ERROR

004602
004604
004606
004610

277

EMT277
EHTI
EDT]
EFTI

075536

595

596
597

MACRO V04.00

ZERO

591
592

593
594

TST 3

304

EMT 304
EHTT

EDT

"RMR'* ERROR DURING DATA TRANSFER

SEQ 0055

(ZRMOBO RMOS5/3/2 FCINL TST 3

ERROR POINTER TABLE

004640
604
605
606

004642
004644
004646
004650

C76704

—
) b

nN—=O

.ERROR

076470
076614

;ERROR

624%

SKI

ERROR DUE

7O CYLINDER

310

DEVICE FAULT DURING DATA TRANSFER

LOSS OF BIT CLOCK DURING DATA TRANSFER

EMT311
EHTI
EDT
EFTY
;ERROR

312

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

EMT312
EHT
EDTI
EFTI

075742
076470
076614
076704
;ERROR

375754
076479
076614
076704

DID NOT DETECT

EHT
EDTI
EFT1

075730
076470
076614
076704

622

DRIVE

EMT310

;ERROR

623

307

EFT

076704

(O,
F VY]

e
—

620
621

ERROR DURING DATA TRANSFER

EMT307
EHTI
EDT]

075676

619

"'SKI'"

EDT1
EFT1

075716
076470
076614
076704

618

306

EMT306
EHT1

075666
076470
076614
076704

616

INCORRECT “'IAE’'’ STATUS DURING DATA TRANSFER

EHT1
EDTI
EFT1

076470
076614

617

305

EMT305

075654

:ERROR

004652
004654
004656
004660

SEQ 0056

EFT1

:ERROR

004662
004664
004666
004670
O

S
E
4-APR-B81 01:15:59 PAGE 8-28

076704

607

609

MACRD v04.00

313

EMT313
EHTI
EDTI
EFT?

UNSAFE ERROR DURING DATA TRANSFER (DVC - O)

(ZRMOBO RMOS/37/2 FCINL TST 3

ERROR POINTER TABLE

625
62¢
627

628
29
630

MA{RO v04.00

:ERROR

004732
004734
004736
004740

634
635
636

637
638
639

640
661
642

645

ERRONEOUS WRITE LOCK ERROR

317

HEADER CRC ERROR DURING DATA TRANSFER

320

FORMAT ERROR DURING DATA TRANSFER

EPTT
EFTY

321

HEADER (OMPARE ERROR DURING DATA TRANSFER

EMT 321
EHT

076052
076470
076614
076704

076062
076470
076614
076704

316

EHT]

EDTY
EFTY

:ERROR

005012
005074
005016
005020

LOCK ERROR

EM1320

0760«c
0764/7C
076614
076704

643

WRITE

EMT317
EWTY
EDT
EFT1

076032
076470
076614
076704

644

315

EHTI
EDT1
EFT?

. ERROR
005002
005004
005006
005010

TIMING ERROR DURING DATA TRANSFER

EMT316

076020
076470
076614
076704

; ERROR
Q04772
004774
004776
005000

DRIVE

EMT315
EHT
EDT]
EFTT

076006
076470
076614
076704

;ERROR
004762
004764
004766
004770

314

EHT
EDTI
EFTI

:ERROR
004752
004754
004756
004760

EMT314

075774
076470
076614
076704
:ERROR

004742
0046744
004746
004750

4-APR-81 01:15:59 PAGE 8~29

322

EMT322
EHT
EDT1
EFT1

HEADER ERRORS SHOULD NOT BE SET

SEQ 0057

cIRMOBO RM0OS/3/2 FrINL 1ST 3

ERROR POINTER TABLE

646

647
6468

649
€50
651

652
653
654

655
656
€57

658
659
660

661
662
663

564
665
660

667

MACRO v04.00 4&-APR-81 01:15:59 PAGg 8230
;ERROR

005022
005024
005026
005030

076614
076704

076124
076470
076614
076704

DATA PARITY ERROR DURING READ (OMMMAND

EDT1
EFT

327

OFFSET MODE NOT RESET BY WRITE COMMAND

EMT327
EHTT
EDTI
EFT1

076142
076470
076614
076704

076154
076470
076614
976704

076164
076470
076614
076704

326

EMT 320
EHT

330

DATA PARITY ERROR DURING WRITE COMMAND

EMT330
EHT]
EDT1
EFT1
;ERROR

005102
005104
005106
005110

UNCORRECTABLE DATA (HE(CK ERROR DURING DATA TRANSFER

EFT1

JERROR

005072
005074
005076
005100

325
EMT 325
EHTI
EDT1

07612
076470
076614
076704

;ERROR
005062
05064
005066
005070

CORRECTABLE DATA (HECK ERROR DURING DATA TRANSFER

EHT]
EDT
EFTI

:ERROR
005052
005054
005056
005060

324

EMT 324

076100
076470
076614
076704

;ERROR

605042
005044
005046
005050

DATA CHECK ERROR DURING DATA TRANSFER

EMT323
EHTI
EDTI
EFTY

07607C

076470

:ERROR

005032
005034
005036
005040

323

EMT331
EHTI
EDT
EFTI

WRITE CLOCK FALURE DURING WRITE COMMAND

SEQ 0058

rZRMOB) RMOS5/3/2 FCTINL T1ST 3

ERROR POINTER

TABLE

005112

005114
005116
005120

672

673
674
675

677
678

679
680
681

682
683
684

00516¢€
005170

685
686
687

688
689

334

LOST MOL DURING DATA TRANSFER - OPl = 0

335

LOST VOLUME VALID DURING DATA TRANSFER - IV(

336

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

EFT336

076740

337

WRITE CHECK ERROR NOT DETECTED

EMT337
EHT337
EDT337
EFT337

076274
076564
0766540
076750
;ERROR

005172
005174
005176
005200

= 0

EMT336
EHT336
EDT336

076264
076552
076650

;ERROR

005162
005164

SET AFTER DATA TRANSFER - SK]

EMT335
EHTI
EDTI
EFT1

076244
076470
076614
076704
;ERROR

005152
005154
05156
005160

PIP STIL

EHTI
EDT
EFT

s ERROR
005142
005144
005146
005150

333

EMT334

076226
076470
076614
076704

676

DATA LATE ERROR DURING DATA TRANSFER

EMT333
EHTT
EDTI
EFT1

076210
076470
076614
076704

;ERROR
005132
C05134
005136
005140

332

SEQ 0059

EHTI
EDT1
EFTT
;ERROR

005122
005124
005126
005130

EMT332

076176
076470
076614
076704

670
671

4-APR-81 01:15:59 PAGE 8-31

;ERROR

668

669

MA(RO v04.00

076304
076552
076650
076740

340

WRITE (HECK ERROR AT UNEXPECTED ADDRESS

EMT340
EHT336
EDT336
EFT1336

;ERROR

341

INCORRECT DATA DURING WRITE CHECK ERROR

- 0

TIRMOBU RMQOS/3/2 FCINL

fRROR POINTER TAB(E

650

691
692
693

654
695
696

005202
005206
005206
005210

700
701
702

703
704
705

706
707
708

709
710
711

MACRO v04.00

S
I
4-APR-81 01:15:59 PAGE 8-32

:ERROR

005212
005214
005216
005220

344

"HCE'' NOT DETECTED DURING DATA TRANSFER

345

"BSE'' NOT DETECTED DURING DATA TRANSFER

EMT345
EHTI
EDT1
EFT1

076362
076470
076614
076704

346

HEADER ERROR WAS DETECTED w/ HCI

SET

EMT 346

076372

EHTT
EDTI
EFT1

076470
076614
076704
;FRROR

005262
005264
005266
005270

"FER'* NOT DETECTED DURING DATA TRANSFER

EMT344
EHT 344
EDT344
EFT344

076350
076576
076679
076760

.ERROR

005252
005254
005256
005260

343

EHTI
EDT1
EFTI

076614
076704

;ERROR

005242
005244
005246
205250

"IVC'* ERROR NOT DETECTED DURING DATA TRANSFER

EMT343

076336
076470

;ERROR
005232
005234
005236
005240

342

EMT342
EHTT
EDT!
EFTI

076324
076470
076614
076704
;ERROR

005222
005224
€05226
005230

SEQ 0060

EMT 341
EHT336
EDT336
EFT336

076316
076552
076650
076740

697

698
699

"ST 2

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347
EHT1
EDTT
EFTI

076406
076470
076614
076704
;ERROR

350

LOST VOLUME VALID DURING SEARCH = "Iv(C'' = 0

(2RMOB0O RMOS/3/2 FCINL IST 3

ERROR POINTER TABLE

005272

005274
005276
005300

076420

;}z

EMT350

(76436
076470
076614
076704

715

;;?

076446
000000
000000
000000

718

;53

076452
076610
076702
076770

721

005332
005334

005336
005340

076462
076470
076614
076704

352

PROGRAM TIMEOQUT WHI.E TESTING RMLA

353

LOOK AHEAD TEST FAILS

EMT353
EHT253
EDT353
EFT353

:ERROR

;5%

“'ATA"* DID NOT SET DURING SEARCH

EMT352
0
0
0
:ERROR

005322
005324
005326
005330

351
EMT351
EHTI
EDTI
EFT1

ERROR

005312
005314
005316
£05320

EHTI
EDT1
EFT1

:ERROR
005302
005304
005306
005310

4-APR-81 01:15:59 PAGE 8-53

076470
076614
076704

712

724
725

MACRO v04.00

354

BSE SHOULD NOT BE SET

EMT354
EHTI
EDT1
EFTi

;PUT ERROR TABLE HERE

SEQ 0061

CZRMOBO RMQOS/3/2 FCINL TST 7

ERROR TABLE USAGE

MACRO V04.00

&4-APR-81 01:15:59 PAGE 9

]

SEQ 0062

;

.SBTTL

3
é

:THE ERROR TARLE ABOVE
NUMBER, I.E..

EMT - ERROR MESSAGE TABLE ADDRESS

EDT - ERROR DATA TABLE ADDRESS

;

ERROR TABLE USAGE
CONSISTS OF

FOUR WORD ENTRIES FOR EACH ERROR

EHT - ERROR HEADER TABLE ADDRESS

STHE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS

:NO MESSAGE TO BE TYPED FOR THE ERROR.

12
13
14

EFT - ERROR FORMAT TABLE ADDRESS

:FOR THE PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS
:OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND
:TYPED BY THE ERROR TYPE SUBROUTINE.
IF THE EMT ENTRY IS ZCRO, THERE IS

*SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES

20
21
22

:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND
:HEADER. THAT [S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,
;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE

18
19

26
27
28

: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

:MUST 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 LOCAT]ONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT.

(ZRMOBO RMOS/3/2 FCTINL ST 3
FRROR TABLE USAGE

MACRO v04.00

;

;THIS ROUTINE

3 005342

011600

BADTMO: MOV

S 005346
6 005350
005354

022626
104401
000417

CMP
TYPE
BR

6 005344

005414

7 005414

8 005416
9 005420

005740

010046

005356
;.65%:
648:

’

104402
000240

.SBTTL

14 005422

012737

177777

17 05432

005037

0C1330

;2 005430

18 005436
19 005440
20 005444
s; 005446

000402
000240
005227
001375
000005

001330

Mov

CHGADR

;NO CHANGE

#0
.~4

;TTY LOOP, WAIT FOR INCREMENT
;OF WORD
JRESET THE WORLD

(LR

005520

012737

067674

000034

MOV

005534
005542
005550
005556
005562
005566
005574
005602

012737
012737
013737
005037
005037
112737
012737
012737

070002
000340
037100
001206
001210
000001
005574
005602

000024
000026
037072

Mov
MOV
MOV
(LR
CLR
MovB
MOV
MOV

005610
005614

013746
012737

005¢46

000403

177570
177570
177777

START?2

IN ADDRESS

INITIALIZE THE COMMON TAGS

000020
000022
000030

012737
012737
022777
001012

INSTRUCTION HERE IF YOU WISH

;TO STOP ON UNEXPECTED TIMECUT.

START:

064054
000340
064640

005622
005630
005636
005644

;PUT 'HALT(0)'

; CHANGE RH/RM BUS ADDRESS

012737
012737
012737

001100

000004
005650

;SETUP FOR TYPING OUT PC

;:CLEAR THE COMMON TAGS ($SCMTAG) AREA

001154

000340

RO,-(SP)

#<1,CHGADR

005470
005476
005504

012737

JRESTORE STACK POINTER
;o TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

;ADJUST PC =2

START OF PROGRAM

001114

005526

(SP)+,(SP)+
,65%
648

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

012706
005026
022706
001374
012706

000340

.SAVE PC WHERE THE TIME OUT OCCURED

(ASCIZ

005450
005456
005456
005462
005464

012737

(SP) ,RO

START1: MOV

.SBTTL

005512

HANDLES UNEXPECTED TIMEOUTS

-(RO)

STARTZ2: NOP
INC
BNE
RESET

000000

SEQ 0063

1ST

TYPOC
NOP

4-APR-81 01:15:59 PAGE 10

000032

000036

001131
001122
001124

Mov
#SCMTAG,R6
;FIRST LOCATION TO BE CLEARED
CLR
(R6)+
;o CLEAR MEMORY LOCATION
CMP
#SWR ,R6
;:DONE?
BNE
.=6
;.LO0OP BACK IF NO
Moy
#STACK,SP
;;SETUP THE STACK POINTER
;- INITIALIZE A FEW VECTORS
MoV
#$SCOPE ,a#IOTVEC ;]0T VECTOR FOR SCOPE ROUTINE
MOV
#3640, a#I0TVEC+2 ; LEVEL 7
MOV
#SERROR ,a#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINF

MoV

H340,RNEMTVEC+2 ;;LEVEL 7

MoV

#340,I#TRAPVEC+2,LEVEL 7

#STRAP ,a#TRAPVEC ;.TRAP_VECTOR FOR TRAP (CALLS
H#SPWRDN ,a#PWRVEC ; ;POWER_FAILURE VECTOR
#340,9#PWRVEC+2 ;LEVEL 7
SENDCT,.SEOPCT
;.SETUP END-OF ~-PROGRAM COUNTER
$TIMES
;o INITIALIZE NUMBER OF ITERATIONS
SESCAPE
;. CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
;cALLOW ONE ERROR PER TEST
#.,3LPADR
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
. SETUP THE ERROR LOOP ADDRESS

;:SIZF FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;oEQUAL TO A **-1°", SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
001154
001156
173310

MoV
MoV

A#ERRVEC,-(SP)
#64S BNERRVEC

65%

MOV
MoV
CMP
BNE

H#DSWR, SWR
#DD1SP,DISPLAY
#-1,3SWR
66$

;;SAVE ERROR VECTOR
;.SET UP ERROR VECTOR

;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;;TRY TO REFERENCE HARDWARE SWR
;;BRANCH IF NO TIMEOUT TRAP QCCURRED
;;AND THE HARDWARE SWR [S NOT = -1
;;BRANCH IF NO TIMEOUT

CZRMOBO RMOS5/3/2 FCINL TST 3
INITIALIZE

THE COMMON TAGS

MACRO v04.00

005656

005650
005656
005656
005664
005672

01276
000002
0:2737
012737
012637

005676
005702
005710
005712
005720

005037
132737
001403
012737

001230
000200

001243

001244

001154

25 005720
26 005726

012737
012737

005342
000300

000004

000176
000174
000004

001154
001156

005227
001035
022737
001431
104401
000426

g?y

#65$%, (SP)

65%:

MOV
MoV

#SWREG, SWR
;.POINT TO SOf TWARE SWR
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

CLR
BITB
BEQ
MOV

$PASS
HAPTSIZE ,$ENVM
67%
#$SWREG, SWR

;s CLEAR PASS COUNT
;. TEST USER SIZE UNDER APT
;s YES,USE NON-APT SWIT(H
;;NO,USE APT SWITCH REGISTER

66%:

675

037242

MOV

Mov
;. TYPE

éég9$:

006034
006040
006042
006050
006052
006060
006062
006064
006066
006074

005737
001012
123727
001406
023727
001005
104407
000403
112737

.SBTTL

000042

001242

000001

001154

000176

000001

001150

-1

CMP

#SENDAD ,ané42

B8R

JASCIZ

;SETUP FOR UNEXPECTED TIMEOUT

;LEVEL 6

THE PROGRAM IF

INC

68%

68%
.69%

68%

FIRST PASS

J:FIRST TIME?

;:BRANCH IF NO

J.ALT=112

:sBRANCH IF YES
;s TYPE ASCIZ STRING

;;GET OVER THE ASCIZ

<CRLF>RCZRMOBO - RM05/3/2 FUNCTIONAL TEST, PT 3a<CRLF>

GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
NGl
:;ARE WE RUNNING UNDER XXDP/A(CT?
BNE
708
; :BRANCH [F YES

CMPB

SENV . #1

:2ARE WE RUNNING UNDER APT?

g;SUR

;:GET SOFT-SWR SETTINGS

BEQ
cMP
BNE
;?i:

#PR6,ERRVEC+2

TYPE PROGRAM NAME

BEQ
TYPE

005760

#BADTMO,ERRVEC

THE NAME OF

BNE

000042

006034

MOV

;SET UP FOR TRAP RETURN

;SE%UP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

000006

177777

SEQ 0064

648

.SBTTL

005734
005740
005742
005750
005752
005756

4-APR=-81 01:15:59 PAGE 10-1

Mov8

708
SWR,#SWREG
718

#1,8AUTOB

::BRANCH [F YES
:;SOFTWARE SWITCH REG SELECTED?
;:BRANCH IF NO
;:SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTRGL MODE:

;PAFER TAPE (MANUAL), ‘ACT11, XXDP CHAIN OR DUMP

33 006074
34 C06100
35 006106
36 006110
37 006116
38 006124
39 006126
40 006132

005037
122737
001160
013737
122737
103002
10503/
005737

006144

000412

41 006136
42 006140

43
44
45
46

006172

006172
006174
006200
006202

001425
104401

005046
113716
104403
001

001332
000016

000041

000040
000007

001332
001332

001332

000042

CLR
(MPB
BNE

1%:

006146

55235:
001332

XXDP
#16.an41

:CLEAR 'XXDP' LOAD DEVICE STORAGE
*LOADED FROM AN RM0S5/3/2 ?
*BRANCH IF NOT

MOV
CMPB
BHIS
CLRB
ST
BEQ
TYPE

3s
3440, XXDP
#7.XXDP
1%
XXDP
L2
2%
738

LASCIZ

<CRLF>/NOT TESTING DRIVE /

(LR

-(SP)

:CLEAR WORD ON STACK

JONLY 1 CHARACTER

B8R

MOVB
TYPO

.BYT

728

XXDP, (SP)

*GET DEVICE INDICATOR AND NUMBER
YIS IT A VALID NUMBER ?
*YES
'NO, DEFAULT TO DRIVE 0
‘CHAIN MODE OR ACT11 AUTO ACCEPT 2
‘BR IF NEITHER
YITYPE ASCIZ STRING

*SGET OVER THE ASCIZ
*GET DRIVE ADDRESS
‘TYPE THE ADDRESS

MACRO v04.00
CZRMOBO RMOS/3/2 FCINL TST 3
GET VALUE FOR SOF TWARE SWIT(K REGISTER
47 006203
4<8 006204
49 006210
006212
006216
006220
006224

006246

000
104401

000517
005227
001114
104407
000410

005046

11371§

104403
001
000
104401

006264

0004317

006350
60 C06350
006354

104401

000435

.BYTE

001217

TYPE
BR

2%:

177777

006226
::75%:
74%:

001332

006266
;:77%:
76%:

0C6356

:.78%:
3s:

006450

64
65 006450
65 006454
67 006456
68

005737
001561
012737

000042

000377

001300

74 006474
75 006476

76 006502
77
78 006506
79 006514
80 006516
81 006522
006524
006526

006527
82 006530
83
84 006534
85 006542
006546
87 006552
88 006560
006562
oC 006570
91 006572
006576
93 006604
94 006610

$CRLF

SEQ 0065

:SUPRESS LEADING ZEROS
‘CR-LF

*GET NUMRER OF DRIVES

INC
BNE

#-1

:FIRST

LASCIZ

<CRLF>/TO TEST DRIVE

132737
001146
005001
013700
104401
136137
001531

000200

001243

104401
010146
104403
002
000
104401

001217

-(SP)
XXDP, (SP)

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
;TYPE DRIVE ADDRFSS

TYPE
BR

,78%
;o TYPE ASCIZ STRING
3%
;;GET OVER THE ASCIZ
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

LASCIZ

MoV

012760
010160
005760
032760
001051
032760
001450
016002
012737

000040
000010
000012
010000

000010

004000

000000

000026
071446
020025

00677¢

022702
001430

XS1zZ:

1
JONLY 1 CHARACTER
0
;SUPRESS LEADING ZEROS
779
;s TYPE ASCIZ STRING
76%
;.GET OVER THE ASCIZ
/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

#377,8$DEVM

1$:

IF SIZING IS ALLOWED

#RIT7 ,SENVM
12%

;SIZING ALLOWED ?
;NO

CLR

R1
$BASE RO

:START FROM DRIVE 0
;LOAD THE BASE ADDRESS

8IT8
BEQ

,SYSTAT

;TYPE

'UNIT STATUS:'

ATNTBL (R1) ,$DEVM
;IS DEVICE PRESENT
11%
;BR IF NO

LSCRLF

R1,-(SP)

;CR-LF

::SAVE R1

.BYTE
.BYTE

2
0
BLNKS4

Mov
MoV
TST
BIT
BNE
BIT
BEQ
Mov
MoV
CMp
BEQ

#CLR,RMCS2(R0O)
R1,RMCS2(RD)

.CLEAR MASS BUS
;LOAD THE DRIVE ADDRESS

#NED ,RMCS2(RO)
3%
#DVA _RMCST1(RO)
4%

;IS
:BR
;IS
;BR

#$RMO2,10%
#20025,R2
2%

;ASSUME RMO2 DEVICE
;SINGLE PORT RMOZ ?
;BR IF YES

RMDS (RO)

RMDT (RO) ,R2

IN MAP ?

FOR TYPEOUT

;.60 TYPE--OCTAL ASCII
::TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS
;TYPE 4 BLANKS

TYPE

000010

IT/<CRLF>

sSET DEVICE MAP FOR ALL DRIVES

BITB
BNE

TYPE
MoV
TYPOS

071640

CLR
MOvVB
TYPOS
.BYTE
.BYTE
TYPE
BR
.ASCIZ

TYPE
BR

MoV
TYPE

001300

THRU HERE

:NO
*;TYPE ASCIZ STRING
::GET OVER THE ASCIZ

;CHECK FOR AUTO MODE OR STANDLONE MODE
TST
42
;RUNNING IN AUTO MODE ?
BEQ
STANDALONE
:BR IF NO

001276
071430

07174¢

TIME

29
_75%
74%

:PROGRAM IS RUNNING IN AUTO MODE ~ SEE

70 006464
71 006464
7Z 006472

&4-APR-81 01:15:59 PAGE 10-2

;ACCESS DRIVE REGISTER
DRIVE PRESENT ?
IF NO
DRIVE AVAII ABLE ?
IF NO

:SAVE DRIVE TYPE REGISTER IN R?2

~ZRMOBO RMOS/3/2 FCINL TST 3

GET VALUE

FOR SOF TWARE SWITCH REGISTER

95 006612

022702

024025

012737

071453

9 006616

001425

98 006626
99 006632
100 006634
101 006640

022702
001417
022702
001414

020024

103 006650

022702

020027

97 006620

102 006642
104 006654

105
106
107
108
109

MACRO v04.00

006656
006662
006664
006670
00¢. 2

110 00670C

}}; 6702
113 006704

012737

001408

022702
001403
104401
000412
032760
001412

024024
071460

104401

071523

116 006712
117 006716

}}g 006724

104401
146137

000425

071540
071746

120 006726

104401

071557

;S% 006740

0006413

124 006742

005737

006746
006750
006754
006756

131

006764

104401

133 006774
}%é 006776

104401
000000

136 007000

005201

;gg 007006

003637

}%8 006762

132 006770

137 007002

140 007010
14" 007014

001406
123707
001360
104401

000755
104407

#SRM0O3,10%

JASSUME RMO3 DEVICE

MOV

#$RMOS,10%

0006012

28%:

CMP
BEQ
TYPE
BR
BIT
BEQ

000402

125
126
127
128

MOV

BEQ

00417

146137

;DUAL PORT RMOZ ?

cMP

071465

1}? C06710

121 006732

006776

071746
001332

3%:

001300

4%
5%:

6%:

020127

000007

104401
000137

001217
007476

420027 ,R2

;SINGLE PORT RMC3 °?
;BR IF YES
;DUAL PORT RMO3 ?
;BR IF YES
;ASSUME RMOS DEVICE
;SINGLE PORT RMOS ?

#26027 ,R2
2%
NOTRM
5%
#MOL ,RMDS(RO)

;DUAL PORT RMOS ?
;BR IF YES
;DRIVE NOT AN RM05/3/2
sCHECK NEXT DRIVE
;IS MEDIUM ON LINE ?

;BR IF YES

78
,NOTPRS

;BR IF

;DRIVE NOT PRESENT

TYPE
Bl(B

NOTAVL
;DRIVE NOT AVAILABLE
ATNTBL (R1) ,$DEVM
;CLEAR DEVICE FROM BIT MAP

TYPE

8I(B
TST

s CHECK NFXT DRIVE

118

:CHECK NEXT DRIVE

LUNTOFF

:DRIVE OFFLINE

;PRINT DRIVE TYPE

XXDP

;LOADED FROM RM0S/3/2 ?

ATNTBL (R1) ,$SDEVM

;CLEAR DEVICE FROM BIT mapP

8s
XXDP,R1
5%
LODEV

8%:

TYPE

JUNTON

sDRIVE ONLINE

10%:

TrPE
.WORD

;PRINT DRIVE TYPE
:MESSAGE ADDRESS HERE

INC

s INCREMENT THE DRIVE ADDRESS

BLE

sBRANCH [F NOT

.SCRLF
CMNSTART

;CR-LF
;JUMP TO COMMON START

071506

071642

#20024 ,R2
2%
#24024 ,R2
2%

:BR IF YES

BEQ
cMP8
BNE
TYPE

001332

071570

TYPE

7%:

SEQ 0066

#24025,R2

cMP
BEQ
cMP
BEQ

’

BEQ

006776

024027

010000

4-APR-81 01:15:59 PAGE 10-3

9%:

11%:

12%:

TYPE

TYPE
JMP

.BLNKS?

R1.,47

:NJ
;1S THIS THE DRIVE ?
;BR IF NO
;DRIVE IS LOAD DEVICE

;TYPE 2 BLANKS

sALL DRIVES ARE (HECKED ?

TZRMOBO RMOS5/3/2 FCTNL TST 3
INPUT FOUTINES

.SBTTL
007020
007620

004737

066310

007024
007030

005227
001023

177777

—d =k

WA= OO0

STANDALONE

MACRO V04.00

NIV

ed md ed e oD =d e

007032
007036
007040
007044
007052
007054
007060
007064
007066
07072
21 007076

24 007100
25 007100
26 007104
27 007106
28 007112
31 007116
3¢ 007116
33 007122
007126
34 007130
35 007134
36 007136
37 007142
38 007144
39 007152
40 007154
41 07160

4-APR-81 01:15:59 PAGE 11
STANDALONE

STANDAL ONE :

SEQ 0067

INPUT ROUTINES

JSR

PC,$TKINT

JINITIALIZE CONSOLE

INC
BNE

#-i
28

JFIRST

TIME

;BR If NO

THRU HERE

:SEE IF OPERATOR WANTS HELP TEXT
104401
104411

012637
123727

001005

104401
104401
000414
104401
104401
000497

TYPE
RDCHR

070530

001176
001176

MOY
CMPB
BNE

070131

TYPF
TYPE

001176
106436

071634
0C1217

1$:

B8R

TYPE
TvPE

LMSHELP
)

(SP)+,$TMP1
STMP1.#'Y
1%
LSTMP1
.HELP

N
"$CRLF

JWANT HELP ?
. GET RESPONSE
;SAVE AND ECHO RESPONSE
;WAS
;2NO

IT A VES RESPONSE

JTYPE

'Y!

:TYPE

°N'

;YES = TYPE HELP TEXT

sCR~LF

éiEE IF USER WANTS TO CHANGE UNIBUS ADDRESS

005737
001457
005037
104401

001330

CHGADR

CLR

CHGADR

BEQ

001330
001217

TYPE

.$CRLF

: CHANGE RH/RM BUS ADDRESS ?
:BR IF NO

:NO CHANGE NEXT TiME

:CR-LF

%gIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY
104401

071105

104401

071642

012637
001412
022737

001176

013746
104402
104413

101403
104401

42 007162

000756
013737

44 007170
45 007174
46 007176

005046
113716

104401

104402
104401
104413

012637
001412
022737
101003

001276

160000

001276

4$:

001176

113737

001176

TYPE

,BLNKS2

JTYPE 2 BLANKS

MOV
BEQ
P
BLOS
TYPE

(SP)+,$TMP1
5%
#160000, $TMP1
4$
CNSLO2

MOV

$TMP1, SBASE

B8R

TYPE

001176

6$%:

;GET NEW BUS ADDRESS
;CARRJAGE RETURN ?

JYES=SKIP TO NEXT ENTRY

:eégE ADDRESS IN 1/0 PAGF ?

;TYPE WARNING MESSAGE
;TRY AGAIN

;STORE NEW BUS ADDRESS

,CNSLO3

Z(SP)
SVECT1,(SP)

;GET CURRENT VECTOR ADDRESS

TYPE
RDOCT

,BLNKS2

;TYPE 2 BLANKS

MOV
BEQ
CMP
BHI

(SP)+,$TMP1
78
#1000, $TMP1
6%

JYES!!

TYPE

001272

CURRENT BUS ADDRESS

;:SAVE $BASE FOR TYPEQUT
;:G0 TYPE-~-OCTAL ASCIIC(ALL DIGITS)

(LR
MOVB

TYPOC

071642

071166

000755

001176

001272

104401

:TYPE

RDOCT

071157

0010C0

,CNSLO1
$BASE
, - (SP)

TYPOC

071115

001176

TYPE
MOV

MOVR

CNSLO%

$TMP1,SVECTI

;GET NEW VECTOR ADDRESS
s CARRIAGE RETURN?
JYES=SKIP TO NEXT ENTRY
:Vng?R ADDRESS < 1000 ?
:TYPE WARNING MESSAGE
JRETRY

;STORE NEW VECTOR ADDRESS

rZRMOBC RMOS/3/72 FCINL TST 3

STANDALONE

INPUT ROUTINES

MACRO v04.00

59 007244

60 007250
€1 007252
62 007256
63 007262
64 007266

005227

001002
104401
104401
005037
104401

65 007272
66 007276

104411
012637

70 007314
;} 007322

012737
000137

67 007300
68 007306
69 007310

023727
001007
104401

73 007326
764 007336
75 007336

023727
001436
104401

77 007350

002430

76 C07342

78 007352
79 007360

gg 007362

023727
023727
003427

?7s:

071222
001217
001300
071406

001176
070514

8% :
9 :

001300

001176

00C015

0C1176

000060

001176

000067

10$:

11%:

91 007430
92 007432
gz 007436

003403
104401
000711

071364

12%:

95 007440
9 007444

013701
042701

001176
177770

13$:

98 007456
99 007464

122737
101337

000377

001176
001176

000015

070525
001176
001176

000060

90 007422 023727 001176 000067

100 007466
101 007472

104401
000137

071746

001217
006464

001300
14$

(S7)+,$TMP1

;GET RESPONSE

#377,$DEVM
XS1Z

“SET DEVICE MAP FOR ALL DRIVES
:AUTO SIZE.

“BR IF NO
“TYPE INPUT INSTRUCT]ONS
i CR=LF
:CLEAR DEVICE MAP
STYPE 'DRIVE(S): '

TYPE

$TMP1,#CR
12%
,STMP1

;CARRIAGE RETURN ?
SYES
SECHO RESPONSE

BLT

128

SIS INPUT "A*
2
:NO
:YES, TYPE "'ALL'' AND GO

SYES

$TMP1,4'0

*NUMBER < 0 ?

CMP
BLE

$TMP1,#'7
138

RDCHR
MoV
cMP
BEQ
TYPE
TYPE
cMP
BLT

(SP)+,$TMP1
$TMP1 . #CR
148
,COMMA
C$TMPY
$TMP1,4'0
128

:GET RESPONSE
:CARRIAGE RETURN ?
:YES
STYPE *, °*
*ECHO RESPONSE
SNUMBER < 0 ?
SYES

BLE
TYPE
BR

138
,CNSLO8
9%

*NO
STYPE CR-LF '* ?ILLEGAL INPUT''
:RETRY

$TMP1.R1
#4C7.R1

:R1 = DRIVE NUMBER

#377.$DEVM
11$

;DONE ?
:NO

001300

SFIRST TIME THRU ?

8s
,CNSLO7
$CRLF
$DEVM
,MSDRVS

cMP
BEQ

104411
012637
023727
001432
104401
104401
023727
002404

a-1

$TMP1.#'A
108
JALL

CMP

000423

156137

SFQ 0068

CMP
BNE
TYPE

- MOV
JMP

82 007364
83 007366
84 007372
85 007400
86 007402
87 007406
88 007412
89 007420

97 007450

INC

BNE
TYPE
TYPE
CLR
TYPE

RDCHR
MOV

000101

000377
006464

001176

-DIALOGUE TO INPUT DEVICE NUMBERS

177777

001176

4-APR-81 01:15:59 PAGE 11-1

MOV
BIC

12¢

$TMP1,#'7

BISR

ATNTBL(R1),$DEVM

TYPE
JMP

,$CRLF
XS1Z

CMPR
8HI

“NUMBER > 7 ?
:NO

SILLEGAL INPUT

*NUMBER > 7 ?

;SET DEVICE

‘CR-LF
;G0 SIZE DEVICES

.
IN MAP

rZRMOB0O RMOS/3/2 FLTINL IST 3

A V—O000
NN WA

STANDALONE

INPUT ROUTINES

007476
007476
007502
007506
007510
007514
007520
007524
007530
007534
007536
007540
007542
007546
007550
007552
007554
007555
207556
007564
007570
007572
007574
007576
007600
007602
007604
007610
007614
007616
007622

007652
207652
007656
007660
007664
007670
007670
007672
007676
007700
007704
007706
007712

007716
007722
007726
007732
007736
007742
007746

104401

071600
001300

104401
1046401

070525
071627
001470

013700
001004
012701
010137
012702
005003
030200
001413
104401
010311
010346
104403
on
000
116361

062701
006302

070525

000002

104401

001217

004737
000425

043550

104401

000413

000137
000137

005432
037232

000240
105737
001007

001300

005737
001002
000137
000137

000042

105037

001116
001206
001326
066310
000240
007750

005037
05037
004737
012746
012746
000002

000001
3%:

(%:

005432
037232

CLR
BIT
BEQ

SEQ 0069

64%:

5%:
6%:
READY:

;R3 = DEVICE NUMBER

:R1 = ADDRESS OF FIRST ENTRY
;INITIALIZE ENTRY POINTER
:R2 = DEVICE POINTER

R2,RO

;1S THIS DEVICE

3%
. COMMA
R3, (R1)

R3.,-(SP)

IN MAP ?

::SAVE R3 FOR TYPEOUT

.:GO TYPE--OCTAL ASCII

R2
R2

#2 ,R1

:ADVANCE ENTRY POINTER

IA 3

JYES

:ADVANCE DEVICE POINTER
;DONE ALL DEViCES ?

R3
2s
(R1)
LSCRLF

;ADVANCE DEVICE NUMBER
:ENTER NEXT DEVICE
:TERMINATE TEST QUE
:TYPE CR-LF

JSR
BR
TYPE
BR
LASCIZ

PC.SI12CLK

JSEE IF CLOCK PRESENT

,65%

::TYPE ASCIZ STRING

TST
BNE
JMP

L2
S$
START
$GET42

JMp

NOP
TSTB

BNE
JMP
JMP
CLRB
(LR
CLR
JSR

MOV
MoV
RTI

64%

<CRLF>/NO ‘L'

$DEVM
2s
L2
1%

[N QUE

JNO !
:TYPE ', °*
;YES - ENTER DEVICE NUMBER IN QUE

ASL
TSTB
8EQ
INC
BR
CLR
TYPE

ADD

TST

2%:

:TYPE *NONE'

1
:TYPE 1 DIGIT(S)
0
; JSUPPRESS LEADING ZEROS
ATNTBL (R3),1(R1);ENTER ATTENTION SIT IN QUE

BNE

1%:

,NONE

#TSTQUE+2,R1
R1, TSTQUE
#1,R2

.BYTE
.BYTE
MOVB

:SIZE FOR CLOCK

;.65%:

000042

TYPE
MOV
MOV
MOV

TYPE
MOV
MoV
TYPOS

007624

005737
001002

1%:

2%:

071746

6
E
4~APR-81 01:15:59 PAGE 12

;JASSEMBLE TEST QUE FROM DEVICE MAP
{MNSTART:
TYPE
LDRIVES
;TYPE 'DRIVE(S) TO BE TESTED'
$DEVM,RO
;RO = DEVICE MAP
MOV
1%
:BR IF DRIVES TO TEST *
BNE
TYPE
, COMMA
JTYPE *, !

001466
000001

105702

001402
005203
000756
005011

MACRO v04.00

:YES = CLOCK IS PRESENT

::GET OVER THE ASC1Z
'P'

CLOCK/

:ANY MONITOR PRESENT 2
;BR IF YES
;JUMP TO START
:RETURN CONTRGL TO MONITOR

;READY TO START TEST

:ANY DRIVES IN MAP ?
:BR IF YES
:ANY MONITOR PRESENT 2
:BR IF

YES

START

:JUMP TO START

STSTAM
$TIMES
CTLFG

:RESET TEST NUMBER
SINITIALIZE NUMBER OF ITERATIONS
:CLEAR CONTROL-C fLAG

$GET4L2

PC,$TKINT
#PRS ,~(SP)
#64$,~(SP)

:RETURN CONTROL TO MONITOR

INITIALIZE TTY
::PUT NEW PS ON STACK
::PUT NEW PC ON
STACK
;;POP NEW PC AND FS

TZRMOBO RM05/3/2 FCINL IST 3

STANDALONE

INPUT ROUTINES

007750

50 007750

51 007756
52
53

117737

005037

65
66

002000
001276
000040
171660

000026

MOVB
CLR

QTSTQUE,SUNIT

MEDENB

011000

010050
010052

104403
002

000
005004
005304
001376
005304
001376

0C1217
071422

001234

SELECT DRIVE AND DETERMINE

THE LAST

TRA(K

MOV

HTAL ,LSTRK

000010
000010

MoV
MOVB

#CLR,RMCS2(RQ)
;CLEAR MASSBUS
TSTQUE ,RMCS2(RO)
;SELECT DEvICE UNDER TEST

BIC

#177770,R2

MCV
MoV

CMP
BNE
MoV

001334
;TYPE

104401
104401

JCLEAR MEDIA ENABLE

001334

000007

012737

SEQ 0070

:LOAD DRIVE NUMBER

THE DIFFERENT DRIVE TYPES

177770

013746

010054
010056
010060
010062
010064

648:

;OF

67
68 $10034
69 010040
70 010044

010053

001512

001234

4-APR-81 01:15:59 PAGE 12-1

;CLEAR MASSBUS CONTROLLER,

54
55
56 007762
57 007770
58 007774
59 010002
o0 010010
€1 010014

62 010020
€3 010024
66 910026

171512

MACRO v04.00

3$:

$BASE ,RO

RMDT (RO) ,R2

TYPOS

BYTE

TO BE

;GET RMDT AND

;SAVE DRIVE TYPE BITS

TESTED(SUNIT)

LSCRLF
.MSGDRV
$UNIT,=(SP)

.BYTE
CLR
DEC

O
Ré
R4

DEC
BNE

R4
.~2

BNE

7RO = UNIBUS ADDRESS

#7 ,R2
;IS 1T AN RMOS ?
3$
JNO, MUST BE AN RM02 OR RMO3
#TA16.TA2,LSTRK ;YES~=SET LAST TRACK - 18.

DRIVE NUMBER

TYPE
TYPE
MoV

JASSUME LAST TRACK FOR RM02/3 = 4.

.~2

;CR=LF
;TYPE 'DRIVE'
;;SAVE SUNIT FOR TYPEOUT
;. TYPE DRIVE NUMGER
::G0 TYPE=~OCTAL ASCII

;s TYPE 2 DIGIT(S)

;s SUPPRESS LEADING ZERQS
;sTHESE TWO LOOPS ARE ADDED TO
JWAIT FOR TTY

~7RMOBO RMOS5/3/2 FCINL TST 3
STANDAL ONE INPUT ROUTINES

MACRO v04.00

4-APR-81

G
6
01:75:59 PAGE 13

SEQ 0071

SR A2

;«TEST

222302828222 ARARRARASRRRRRRRRRRRRRRRlRllRR
SRRl RN &

CONTROLLER ACCESS

TEST

NN WIAANDNNNON)

W —=OVONOWV

NN ~nN -

DN N n

[ )\ S QPR

S QI R A

OVONOWVNS
W
20000~

NS Ww

:;.tttfit"t't'tttfit'i""*"Q"fl'fi‘fil"!'tt.ttt‘tfitt't"tt'ttt'tt

IS11:

010066
010066
210070
010072
010076
010102
010106

000004
000240
012706
013700
013701
012737

001100
001276
001466
000001

010114
010116
010122
010126
010134

005001
013746
013746
012737
012737

0000C4
000006
010230
000300

010142
G10146
010152
010156
010162
010166
010172
010176
010202
010206
010212
010216
010222
010226

010230
010232
070236
010242
010244
010250
010252
010256
10262
010266

110160

010160
016002

010160
016002
016046
010160
016002
012660
010160
016002
012637
012637
000417

022626

012637
012637
104110

005737
001002
000137
005037
000137

SCOPE
#STACK,SP

;START OF TEST
JINITIALIZE STACK POINTER

MOV

#1,$TESTN

J;SET

CLR

MOV
MOV

001226

000004
000006

000001
000092
000002
000004
000004
000010
000010
000010
000010
000022
000022
000006
000004

$BASE RO
TSTQUE R

TEST NUMBER IN APT MAIL BOX

ERRVEC,=-(SP)
ERRVE(C+2,-(SP)
#1$ ,ERRVEC
#PR6,ERRVEC+S

JsPUSH ERRVEC ON STAC(CK
;+PUSH ERRVE(C+2 ON STA(K

MOVB
MOV
MOV
MOV
Mov
MOV
MOV
MOV

R1,RMCS1+1(R0O)
R1,RMWC (RO)
RMWC (RO) ,R?
R1,RMBA(RQ)
RMBA(RO)
,R?
RMCS2(RO) ,-(SP)
R1,RMCS2(RO)
RMCSZ2(R0O)
,R2

;MOVE HI BYTE TO RMCSI
;MOVE WORD COUNT REGISTER

MOV
MOV

R1,RMDB(RO)
RMDB(RO)
,R2

;MOVE DATA BUFFER

Mov
BR

(SP) + ,ERRVEC(
3%

;:POP STACK INTO ERRVEC
;NO BUS TIMEOQUT OCCURRED

CMP
MOV
ggv

(SP)+,(SP)+
(SP)+ ERRVE(+2
%?8)‘.ERRVEC

sADJUST STACLK
;;POP STACK INTO ERRVE(C+?
::POP STACK INTO ERRVEC

TST

Y 194

;STAND ALONE MODE ?

MOV

1%:

BNE
JMP
CLR
JMP

2%:
-

(SP)+ ,RMCSZ2(KD)
(SP)+ ,ERRVE(C+2

000042
005422
001300
037044

;RC = UNIBUS ADDRESS
J(R1) = DEVICE BEING TESTED

MOV
MOV
MOV
MOV

MOV

000006
000004

;SCOPE CALL

NOP
MoV

2%
START1
$DEVM
$EOP

;MOVE BUS ADDRESS REGISTER
::PUSH RMCS2(R0O) ON STA(K
;MOVE CONTROL STATUS REGISTER

:;POP STACK INTO RM(SZ2(R0O)
;:POP STACK INTO ERRVE(+2

sNO!!
JYES-GO GET $BASE
:FUDGE NO DRIVES IN MAP
JRETURN TO $EOP

;;kttt*t**‘ttfi*fit**tt*"t"'t*.!'!'t'*ttfi‘***"tfittfit't*tttttt'tt

;*TEST 2

WRITE,

READ ZEROS

""tttttt**tttfi**'tttttit*'iii*t*ttfiitififitttttttlt'ttii"‘tt'i!"t

34
35

000004
000240
012706
013700
013701
012737

TST2:

001100
001276
001466
000002

SCOPE
NOP
MOV
MOV
MOV
MOV

001226
S AN

R R A AR

‘{uop #

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

N AR ARA R AN AR R

;SCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER

;RO = UNJBUS ADDRESS
:(R1) = DEVICE BEING TESTED
J;SET TEST NUMBER IN APT MAIL 80X

AR N RARAARERARRARA SR AR

FORMAT,WR]TE ,READ

AR AR AR

RT IR AR TR

:gpnoeo RMOS/3/72 FCINL

IST 3

WRITE, READ ZEROS

MACRO v04.00

37
38 010314
39

1%:

004737

4~APR-81 01:15:59 PAGE 13-1

154130

:PREPARE

037316

DEVICE FOR TEST
JSR
PC,TSTPRP

.WORD

154130

;JPREPARE

DEVICE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAJLABLE
JCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

JVERIFY PACK ACKNOWLEDGE

VALID

JRECALIBRATE [F ‘'SKI''
OR 'PIP'" IS SET

&2
63

010322
010324
010326
010330

G10334
45 010334
46 010342
47 010350
48 010356
49 010364
50 010372
51
52
010400
010404
010406
010412
010414
010420
010420
010426
010434
44

010440
010444
010450
010454
010460
010464
010470
010474
010500
010500
010504
010506

104000

000137

011274

;VERIFY RECALIBRATION
;GO TO 2% IF NN ERROR

25%

;GO TO 25% IF ERROR

.RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

éiOAD PARAMETERS AND GENLRATE DATA BUFFER

012737
012737
012737
012737
012737
012737

000000
000000
106436
177376
010000
000063

004737

040242

104401
104000

070426

000137

011274

012737
012737
004737

072060
000001
042174

000405

001553
000034
000006
000004
000002
000032
000000
000200

001446
001420

MOV
MOV

#0,RMDCO
#0 ,RMDAO

;CYLINDER = 0
;TRACK - 0, SECTOR

001414

MOV

#-258. ,RMWCO

;2 + 256. WORDS (2'S COMP)

001416

MOV

001444

MOV

0014612

MoV

011274

010516

004737

042774

;BUS ADDRESS

#FMT16,RMOFO

#WH'!GO,RM(CS10

:WRITE HEADER AND DATA COMMAND

;GO TO 25% IF ERROR

001174
001176

TYPE
EMT
JMP

25%

MOV
MoV

#ZEROS,$TMPO
#1,8TMPY

JSR

LSCTMSG

s TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

PC ., GENBUF

;GG GENERATE BUFFER FOR FORMAT

;SETUP PARAMETERS AND EXCUTE COMMAND
MOV
MUVB

#PUT INX ,R2
#RMDC, (R2)+

MOVB
MOVB
MOVB
MOVR

#RMBA, (R2) +
#RMWC, (R2)+
#RMOF
, (R2) +
#RMCST, (R2) +

MOVR

5¢:

;16 BIT FORMAT

;CALL BAD SECTOR MODULE
;GO TO 3% If NO ERROR

:R2

BYTE ENTRY POSITION

#RMDA, (R2) +

#4200, (R2}

:TERMINATE TABLE

JSR
BR

PC,PUT
5%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR

EMT
JMP

25%

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 25% IF ERROR

NOP

000137

104000

#BUF ONE ,RMBAC

JVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
3%

043330

010510
010512
010516

BR
NOP
EMT
JMP

000404
000240

;RETURN HERE IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
:GO TO GETSTS SUBROUTINE

£ ZRMOBO RMOS5/3/72 FCINL T1ST 3
WwRITE, READ ZEROS
T

MACRO v04.00

010522

004737

043672

76 010526

004737

043060

010534
010536

000240
104000

010532

010540

77 010544

000404

000137

011274

004737
000405
000240
104000
004736

056572

:WAJT

80 010544

010550
010552
010554
010556

010560

81 C10564
82

84 010564
85 010572
86
87

000137

011274

012737
000410

010574

010600

FOR COMMAND TO (OMPLETE

PC,TIMOUTY

JSR

B8R

NOP
EMT

JMP

6%:

JSR
BR
NOP

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 6% IF NO ERROR
sRETURN HERE IF ERROR

25%

;GO TO 25% IF ERROR

7%:

001124

PC,a(SP)+

~MP

;GO TO TIMOUT SUBROUTINE

PC,DTASTS
7%

EMT
JSR

25%

;ERROR # DEFINED BY GET SUBROUTINE

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 7% IF NO ERROR
JRETURN HERE

2222882222

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
. GO BACK FOR MORE ERROR (HECKS

;G0 TO 25% IF ERROR

JMOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#8%,8LPERR
BR
9%
M B

SEQ 0073

PC,GET

JVERIFY RESULTS OF WRITE COMMAND

:SKIP TO WRITE OPERATION

RRRRRRSRaRRRRRRERRRRRRRst Rl

SR RaRRR

WRITE ,READ

;LOOP #2

89
G0 010574

N
92
9% 010574

13-2

;GO GET REGISTER STATUS

&-APR-81 01:15:59 PAGE

8%:

004737
154130

;PREPARE DEVICE

037316

JSR
.WORD

FOR TEST

PC,TSTPRP
154130

;PREPARE DEVICE

FOR

TEST

:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT

sVERIFY PACK ACKNOWLEDGE

VALID

JRECALIBRATE IF ''SKI'' OR 'PIP"" IS SET

010602
€10604
010606

010610

v10614

97 010614
98 010614
010622
100 010630
101

103
10%

105
106

010636
010642
010646
010652
010656
010662

000404
000240
104000

000137

BR
NOP
EMT

011274

9%:

012737

106442

001416

012737
012702
112722
112722
112722
112722
112722

000061
001553
000006
000034
000032
000004
000002

001412

012737

177400

001414

JMp

9%
25%

JVERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

sRETURN HERE

;GO TO 25% IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND
10%:

MOV

#BUF ONE +4 ,RMBAO

MOV
MOV
MOVR
MOVB
MOVB
MOVR
MOVB

#WD ! GO,RM(CS10
#PUT
INX ,R2
H#RMDA, (R2) +
ARMDC, (R2)+
H#RMOF
, (R2) +
#RMBA, (R2) +
ARMWC, (R2) +

MOV

#-256. . RMWCO

IF ERROR

JERROR # DEF INED BY TSTPRP SUBROUTINE

;MOVE MEMORY ADDRESS

: CHANGE WORD COUNT
;WRITE

DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

RMOBO RMOS/3/2 FCTNL TST 3
WRITE, READ ZEROS

Wil
WV
O~NON

=00

—

——
-t e

—

— ) b

—
-t
el

o)
—

107 010666
108 010672
109
110 010676

112722
112722

000000
(00200

004737
000404
000240

043330

000137

011274

010714

004737

042774

010720

004737

043672

010724
010730
610732
010734
010736
010742

004737
000404
000240

043060

000137

071274

010742
010746
010750
010752
010754
010756

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240

056572

010702
010704
010706
010710
010714

104000

MACRO Y04.00

MOVB
MOVB
JSR

B8R

NOP
EMT

11%:

JMP

004737
000405
000240

JSR

:WAIT

ok
=l
e
v
D o
i

012737
000410

JSR

— ond ol

25%

PC,GETSTS

TO COMPLETE

PC,TIMOUT

:GO GET REGISTER STATUS
JSR
PC,GET

B8R

12%

JMP

25%

NOP
EMT

12%:

;VERIFY RESULTS OF WRITE COMMAND
JSR

B8R

NOP

EMT

135

011274

JSR

PC,DTASTS

B8R

011274

)

044710

JSR

PC,SECERR

EMT
JSR

001124

PC.a(SP)+

B8R

IMP

15%:

258

EMT
JSR
JMP

NOP

011274

13§

PC,a(SP)+

JMP

PC,PRIERR

JSR

NOP

011032

17§

:TERMINATE

TABLE

;GO WRITE REGISTFR(S)

*GO TO 118 IF NO ERROR

WITH PUT

SUBROUTINE

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

*GO TO 258 IF ERROR

25§

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUTINE

*G0 TO 128 IF NO ERROR

*RETURN HERE IF ERROR
“ERROR # DEF INED BY GET SUBROUTINC

160 TO 258 IF ERROR

;GO CHECK FOR PRIMARY ERRORS

*GO TO 138 IF NO ERROR

*RETURN HERE

ERROR

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

16O TO 258 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

16O TO 148 IF NO ERROR
*RETURN HERE

IF ERROR

“ERROR # DEFINED BY DTASTS SUBROUTINE
*G0 BACK FGR MORE ERROR CHECKS
160 TO 25% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

15$

‘GO TO 158 IF NO ERROR

PC,a(SP)+

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

25$

;:CHANGE LOOP ADDRESSES
MOV
#16%
. SLPERR

B8R

SGO TO GETSTS SUBROUTINE

17$

*RETURN HERE

IF ERROR

'GO TO 25% IF ERROR

;SKIP TO NEXT OPERATION

:;*ttttti***tfi*iitttfitfiti'tt*!***tttk'l'l‘il'ttii.ti‘!t!lttit'ttt

‘LooP #3

SLRARNKNS
8~

WIWW ANIN ~

PC,PUT

FOR COMMAND

104000

004736
000137

WRMCS1, (R2)+
#200, (R2)+

SEQ 0074

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

4-APR-81 01:15:59 PAGE 13-3

011032

READ

16%:

:PREPARE DEVICE FOR TEST

( ZRMOBO RMOS/3/72 FCINL TST
WRITE, READ ZEROS
T2

129 011032
011036

004737
1546130

MACRO v04.00

4-APR-81

JSR
.WORD

037316

K
01:15:59 PAGE

6
13-4

PC,TISTPRP
154130

SEQ 0075

;PREPARE DFVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE 1f VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SKI''
OR 'PIP'" IS SET
011040

2222
gO'\)N
==
OO NN

»HO

004737
000405
000240

044056

b
b ed —d md —ad
—

b
el
ek
d

— ad el el

—nd e
b

B
R

b
b

043060

004737
000404
000240
104000
000137

043672

VO‘%OO‘V‘
nNOo &S

104000

00473%7

JVERIFY PECALIBRATION
;G0 TO 17% IF NO ERROR

JMP

25%

;GO TO 25% IF ERROR

001416
001412

01127

MOvVB
MOvVB
MOVB
MOVB

#RMBA, (R2) +
, (R2) +
#RMWC
HRMCST,(R2)+
#200, (R2)

JSR

PC,PUT

B8R

011274

EMT
JMP

#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
ARMDC, (R2) +

19%

25%

; CHANGE MEMORY ALDRESS
;READ DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

;G0 WRITE REGISTER(S) WITH PUT SUBRIUTINE

;GO TO 19% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBROUT INE
;GO TO 25% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

;WAIT FOR CMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO GET REGISTER STATUS
JSR
PC,GET
BR
208
NOP
EMT

20%:

JMP

25%

JVERIFY RESULTS OF READ COMMAND
JSR

NOP
EMT
JSR

104000

004736
000137

COMMAND

#BUF TWO+4 ,RMRAD
#RD !GO ,RM(S10

MOv
MOVB
MOvB
MOVB

19%:

;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

MOV
MOV

NOP

SEERRSS

b and

b e

107446
000071
001553
000006
000032
000034
000004
000002
000000
000200

011150

17%:

043330

b —h
b
)

Qs Pk G
S
v Gho S

012737
012737
012702

042774

17%

%gETUP PARAMETERS AND EXCUTE

(. )4737

NOP
EMT

011274

011144

—d el

000137

011274

(alololalele
o]

165
166
167

104000

000137

OOODO00O

N
O

—d
el ek
b

[o IV, IRV, IV 1V ]

—
b ad
—

[o Yo
Yo )
W)
—

ot
—d ad d D

s S

D ad

[o]olelololeolRolelalslololololololel

aur Gurd

011042
011044
011046
011052

000404
000240

21%:

JMP

PC,PRIERR

21%

PC,a(SP)+

25%

;G0 TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 20% IF NO ERROR
;RETURN HERE [F ERROR
:ERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 21% IF NO ERRCR

:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR (HECKS

;G0 TO 25% IF ERROR

“JRMOBO RMOS/3/2 FCINL TST 3

WRITE, READ ZEROS

169 011212

004737

056572

170 011232
171 011232

000240
104000
004736
000137

011274

004737

044710

011242
011264

104000
004736

011216
011220
011222
011224
011226

011236
011240
011246

000405

000405
000240

000137

011274

174
175 011252

04737

042432

011260

107446

};% 011252

011256

106442

011262

000404

011270

000137

011264
011264
176 011274
177

000240
104000

MACRO v04.00

JSR

BR
NOP
EMT
JSR
JMP

PC,DTASTS

:GO VERIFY RESULTS Of

DATA TRANSFER

PC,a(SP)+
25%

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

:GO VERIFY DATA
JSR
PC, CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

BR
NOP

JMP

23%:

22%

SEQ 0076

;GO TO 22% IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 258 IF ERROR

22%:

23%

25%

;GO TO 23% IF NO ERROR
:RETURN HERE IF ERROR
:GO TO 25% IF ERROR

.WORD

BUFONE+4

B8R

248

;GO TO 248 IF NO ERROR

25%

:GO TO 258 IF ERROR

.WORD

NOP
EMT

011274

4-APR-81 01:75:59 PAGE 13-5

248

JMP

BUFTWO+4

:STARTING ADDRESS OF WRITE BUFFER

:STARTING ADDRESS OF READ BUFFER

:RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE

};g 011274

25%:

180

'-;tt*tt*!t*ttttttttt**tttttttfit*ttttttttt*ttttttttttttttttt*tttit

:*TEST 3

WRITE, WRITE CHECK ZEROS

;:**ttttt*ttttt*tttt* 1233322323333 2322322323223 23232232323388¢2323432232823221

011274
011274
011276
011300

0113046
011310
181 011314

000004
000240
012706

013700
013701
012737

TST3:

001100
001276
007466
000003

182

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$RASE ,RO
TSTQUE ,R1
#3,8TESTN

:SCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER

;RO = UNJBUS ADDRESS
:(R1) = DEVICE BEING TESTED
;:SET TEST NUMBER IN APT MAIL BOX

:;*tttttttttt*tttttt*tittttttttttttttttt*ttttttttt*ttt*tti L2223 231

}gz

:LooP M

185 011322
186
187

188 011322
011326

011330
011332
011334
011336

004737
154130

037316

000404

000240

104000
000137

012252

FORMAT ,WRITE,WRITE CHECK DATA

:PREPARE DEVICE FOR TEST

JSR
.WORD

B8R
NOP
EMT
JMP

PC,TSTPRP
154130

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERTFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

OR 'PIP'" IS SET
JRECALIBRATE IF ‘'SKI'*
JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

24%

;ERROR # DEFINED BY TSTPRP SUBROLTINE
;GO TO 24% IF ERROR

JRETURN HERE IF ERROR

CZRMOBO RMOS/3/2 FCINL TST 3

WRITE, WRITE

CHE(K ZEROS

MACRO V04.00

189

190

191 011342

012737

000000

001446

194 011356
195 011364

012737
012737

106436
177376

001416
001414

196 011372
;gg 011400

SEQ 0077

;LOAD PARAMETERS AND GENERATE DATA BUFFER

192 011342

193 011350

&-APR-81 01:15:59 PAGE 13-6

012737

000000

2%:

001420

MoV

#C,RMDCO

JCYLINDER = 0

MOV
MOV

#BUF ONE ,RMBAD
#-258. ,RMW(D

;BUS ADDRESS
;2 + 256. WORDS

MOV

010000
000063

011406
011412

004737
000405

040242

011422
200 011426

000137

012252

012737
012737

072060
000001

206 011446
207 011452
208 011456
209 011462
210 011466
211 011472
212 011476
%}2 8}}28%

012702
112722
112722
112722
112722
112722
112722
112712

001553
000034
000006
000004
000002
000032
000000
000200

215 011506
011512

004737
000404

043330

011520

000137

012252

218
219 011524

004737

042774

;SETUP GET INDEX TABLE TO BEAD ALL REGISTERS
JSR
PC,GETSTS
;G0 TO GETSTS SUBROUTINE

220
221 011530

004737

043672

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

004737
000404

043060

011414
011420

201 011426
202 011434

%82 C11442

205

011514
011516

5}9 011524

222

223 011534
011540

011542
011544
011546
ggg 011552
226

227 011552
011556
011560
011562

104401
104000

004737

000240
104000

000240
104000
000137

004737
000405
000240
104000

MOV
MOV

JTRACK = 0, SECTOR - 0

012737
012737

199

001444
001412

#0,RMDAQD

:VERIFY THAT SECTOR IS NOT BAD

070426

042174

012252

056572

#FMT16,RMOFO
MIH!GO,RMCS10

JSR
BR

PC,BADS(T
3%

;CALL BAD SECTOR MODULE
;GO TO 3% IF NO ERROR

JMP

24%

;GO TO 24% IF ERROR

MOV
MOV

#1EROS,$TMFO
”1,8TMP1

TYPE
EMT

001174
001176

3%:

JSR

.SCTMSG

;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

PC.,GENBUF

;GO GENERATE BUFFER FOR FORMAT

;SETUP PARAMETERS AND EXCUTE COMMAND

MOV
MOVB .
MOovB
MOVR
MOVB
MOVB
MOVB
MOVB

#PUTINX ,R2
#RMD(C,(RZ2)+
#RMDA, (R2)+
#RMBA, (R2) +
#RMMIC, (R2) +
#RMOF ,(R2) +
HRMCS1T_ (R2)+
#2023, (R2)

JSR
BR

PC,PUT
5%

JMP

24%

NOP
EMT
5%:

.GO GET REGISTER STATUS

JSR

6%:

BR
NOP
EMT
JMP

PC.GET
6%
24%

;VERIFY RESULTS OF WRITE COMMAND

JSR
BR
NOP
EMT

PC,DTASTS
7%

(2'S COMP:

;16 8IT FORMAT
JWRITE HEADER AND DATA (OMMAND

;R2 = BYTE ENTRY POSITION

; TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 5% IF NO ERROR

:RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 24% IF ERROR

:GO TO TIMOUT SUBROUTINE

:GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 24% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED B8Y DTASTS SUBROUTINE

F%RMOBO RMOS5/3/2 FCINL TST 3
MACRO v04.00
WRITE, WRITE C(HECK ZEROS

004736

011564
011566
011572

000137

012252

011572
011600

012737
000410

011602

JSR
7%:

001124

4-~APR-81 01:15:59 PAGE 13-7

JMP

PC,a(SP)+

SEQ 0078

;G0 BACK FOR MORL ERRCR (HE(CKS

24%

;G0 TO 24% IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
#8%,SLPERR
MOV
B8R
9%

;SKIP TO WRITE OPERATION

::‘fi**tt***ffifit*fit**‘**"‘*"""**fi*fifi*fi*t***fi'fitflttfi*t"t'ttt"t*tt

WRITE,WRITE CHECK DATA

;LOOP #2
011602

011602
011606

8%:

004737
154130

;PREPARE DEVICE FOR TEST

037316

JSR

.WORD

PC,TSTPRP

;JPREPARE DEVICE FOR TEST

154130

;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE £ VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

258
259
260
261
262

263
264

d
)

NOP

012252

9%:

—

000404
000240
104000
000137

012737
012737
012737
012702
112722

b
e

106442

177400
000061
001553
000006

JVERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

24%

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 24% IF ERROR

#BUF ONE +4 ,RMBACQ

001412

MOV

#WD !GO ,RM(CS10

MOV

MOV
MovB
MOVB
MOVB
MOVB
MOvVB
MOVB
MOVB

)

043330

004737

042774

004737

043672

012252

JSR
BR
NOP
11%:

EMT
JMP

#-256, ,RMWCO
APUTINX ,R2
#RMDA
, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
#RMBA, (R2)+
#RMWC, (R2)+
#RMCST,(R2)+
#200,(R2)+

PC,PUT
11%

24%

ERROR

COMMAND

MOV

001414

000034
000032
000004
000002

004737
000404
000240
104000
000137

JRETURN HERE

001416

000000
000200

—)

011726

EMT
JMP

%SETUP PARAMETFRS AND EXCUTE

d ek

md ad

=D —d

[olelelelolslelelelalels]

D
—

d e

ord

247
248
249
250
251
252
253
254
255
256
257

[elolelelele]

241
242
243
244
245
246

[eleolele]e]

OR ‘PIP*" IS SET
;RECALIBRATE IF ''SKI'"

; CHANGE MEMORY ADDRESS

; CHANGE WORD COUNT

:WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

;s TERMINATE TABLE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 118$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 24% IF ERROR

:SETUP GET INDEX TASBLE TN READ ALL REGISTERS
JSR
PC,GETSTS
:GO TO GETSTS SUBROUTINE
JWAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO GET REGISTER STATUS

;GO TO TIMOUT SUBROUTINE

’IRHOBO RMO5/3/2 FCINL TST 3
WRITE, WRITE

265 011732
011736
011740
011742
011744
266 011750
267
268
269

270
271

(MECK ZEROS

004737
000404
104000

000137

044056

004737

056572

004737
000405

274 0120630
012030
012036

012737
000410

PC,GET

12%

NOP
EMT

JMP

12%:

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 128 IF NO ERROR

JRETURN HERE [F ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 24% IF ERROR

133

;GO TO 13% IF NO ERROR

JMP

PC,.a(SP)+
24%

;GO0 BACK FOR MORE ERROR THE(CKS

JSR

PC,DTASTS

NOP
EMT
JSR

012252

13%:

B8R

NOP

012252

14%:

044710

PC,a(SP)+
248

JSR

PC,SECERR

012252

EMT
JSR
JMP

15%:

001124

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE

14%

EMT
JSR
JMP

NOP

012040

248

SEQ 0079

;VERIFY RESULTS CF WRITE COMMAND
P(.PRIERR
JSR
;GO CHECK FOR PRIMARY FRROPS

000240
104000

004736
000137

7
8
4-APR-81 01:15:59 PAGE 13-8
JSR

012252

004737
000405
000240
104000
004736
000137

004736
000137

273

043060

000240

000405
000240
104000

272

MACRO v04.00

15%

PC,a(SP)+
2648

;GO TO 248 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 14% IF NO ERROR
JRETURN HERE If ERROR
sFRROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE cRROR CHECKS

;GO TO 248 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 158 IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE tRRCOR CHECKS

:GO TO 24% IF ERROR

; CHANGE LCOP ADDRESSES
MOV
#1638 ,8LPERR

B8R

;SKIP TO NEXT OPERATION

17%

::tltt"t"ti‘tt'ltt.'Q!'*it.t*ti‘fitt'ti‘tfitfifit‘ttttttt‘titttttt’

WRITE CHECK DATA

;LoOP #3
16%:

012040

286 012040
C12044

004737
154130

037316

;PREPARE DEVICE FOR TEST
JSR

.WORD

PC.TSTPRF

154130

sPREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

IF VOLUME NOT VALID

SVERIFY PACK ACKNOWLEDGE

OR 'PIP"* IS SET
;RECALIBRATE IF ''SKI''

012046
012050
012052
012054
287 012060
288
289
290 012060

000404
000240

104000

000137

012252

17%

JMp

249

NOP
EMT

17%:

;VERIFY RECALIBRATION

;GO TO 178 IF NO ERROR
;RETURN HERE IF ERROR
JERRCR # DEFINED BY TSTPRP SUBRTM TINE
;GO 10 24% IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND
18%:

MACRO v04.00
¥4 RMOBO RMO5/3/2 FCINL TST 3
T3
WwRITE, WRITE CHECK ZEROS
000051

291
29¢

001553
000006
000032
000034
000004
000002
000000
000200

001412

MOV
MOV
MGvB

MOV
MOVB
MOVB
MovVB
MOvB
move

043330

302
303
304
305
306

Wh—=0O

—
el b

WWWW

307
3C8
309

[V,
P

~NON

—t

—

012172
012176
012200
012202
012204
012206
012212
012212
012216
012220
012222
012224
012226
012232
012232
012236
012240
012242
012244
012246
318 012252
319
320 012252
321
322

012252

004737

042774

004737

043672

004737

043060

000404
000240
104000

000137

012252

004737

044056

004736
000137

012252

000405
000240
104000

004737
000405
000240
104000
004736

056572

000137

012252

004737
000405
000240

044710

19%:

JSR
BR
NOP
EMT
JMP

PC,PUT

JWRITE

CHECK DATA DATA

(OMMAND

JLOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 198 IF NO ERROR

19%

JRETURN HERz IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 24$ IF ERROR

24%

JWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO GET REGISTER STATUS
JSR
BR
NOP

20%:

EMY
JMP

;GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE

PC,GET

;GO TO 208 IF NO ERROR

20%

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 24$ IF ERROR

24%
L4

JVERIFY RESULTS OF WRITE CHECK COMMAND
PC,PRIERR
JSR
;GO0 CHECK FOR PRIMARY ERRORS
218
BR
;GO TO 218 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;60 BACK FOR MORE ERROR CHECKS
JMP
24%
;G0 TO 248 IF ERROR

21%:

22%:

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR

PC,SECERR

NOP

012252

MICD !GO, RM(CST0
#PVJTINX
R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA
, (R2) +
#RMWC, (R2)+
ARMCST,(R2)+
#200, (R2)

SEQ 0080

JSETUP GET INDEX TASLE TO READ ALL REGISTERS
PC.GETSTS
JSR
;GO TO GETSTS SUBROUTINE

104000

004736
000137

7
c
4-APR-81 01:15:59 PAGE 13-9

23%:

EMT
JSR
JMP

22%

PC.a(SP)+
248

23%

PC,a(SP)+

249%

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TU 22% IF NO LRROR
JRETURN HERE

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

;00 TO 248 IF ERROR

;G0 CHECK FOR SECONDARY ERRORS

;G0 TO 23% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERP SUBROUTM INE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 24% IF ERROR

24%:
:"!'t'tl'ttfi'ttt'i't"tt""lfi"'Q"fi‘il'ttli'lt't'ttihtt!"'i't!'l

CZRMOBO RMOS/3/72 FCINL

TST 3

MACRO v04.00

WRITE, WRITE (HECK ZEROS W/ WCE ERROR
J*TEST

4~-APR-81 01:15:59 PAGE 13-10
WRITE,

2222332222828 2

012252
012252
012254
012256
012262
012266
012272

000004
000240
012706
013700
013701
012737

'574

001100
001276
001466
000004

SCOPE
NOP
MoV
MOV
MOV
MOV

001226

WRITE

222022222202

SEQ 0081

CHECK ZEROS W/ W(E

ERROR

222 2222222222222
XXRSRRRARRERE 2

ASTACK,SP

$BASE RO

TSTQUE ,R1
#6,STESTN

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = LNIBUS ADDRESS
;(R1)

= DEVICE BEING TESTED

;;SET TEST NUMBER [N APT MAIL 80X

A 2222232322232
RidRRiiRRidR
st
20222200222

‘{oop #1

CHECK DATA

1%:

327 012300
330 012300
012304

FORMAT ,WRITE ,WRITE

004737
154130

;PREPARE DEVICE FOR TEST

037316

JSR
.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLFAR OPERAIION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
'PIP"’
'
OR
*'SKI'
IS SET
IF
BRATE
JRECALI

012306
012310

012312
012314

33
332
333 012320
334 012320
335 012326
336 012334
337 012342
338 012350
339 012356

000404
000240
104000

000137

013446

29%

;VERIFY RECALIBRATION
:GO TO 2% IF NO ERROR
;JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 29% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
012737
012737
012737
012737

000000
000000
106436
177376
010000
000063

004737
000405
104401
104000
000137

040242

343 012404
344 012412

012737
012737
004737

072060
000001

12424
12430

012702

001553
000034
000006
000004
000002
000032
000G00

12420

NOP
EMT
JMP

112722
112722
112722
112722
112722
112722

001446

001420
001416
001414
001444
001412

MOV
MoV
MOV
MOV
MoV
Mov

#0Q,RMDCO
#0,RMDAO
#BUF
ONE , RMBAO

#-258, ,RMWCO

#FMT16,RMOFO
#WH!GO,RM(S10

. VERIFY THAT SECTOR IS NOT BAD
PC .BADSCY
JSR
B8R
3%

070426

TYPE

013446

042174

2%:

001174
001176

3%:

.SCTMSG

JCYLINDER = 0

JTRACK = 0, SECTGR

;BUS ADDRESS

;2 + 256. WORDS (2'S COMP)

;16 BIT FORMAT

;WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE
;GO TC 38 IF NO ERROR

;TYPE BAD SECTOR MESSAGE

JERROR # DEFINED 8Y BADSCT SUBROUTINE

EMT
JMP

29%

MoV
MoV
JSR

#ZERQS ,$TMPO
#1,8$TMP1
PC,GENBUF

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

MOV
MOvVB
MOVB
MOVR
MOvB
MOV
MovB

#PUTINX
,R2
#RMDC, (R2) +

;R2 - BYTE ENTRY PGSITION

#RMDA, (R2) +

#RMBA, (R2)+
#RMWC, (R2) +
ARMOF
, (R2) +

#RMCST, (R2)+

;GO TO 29% IF ERROR

CZRKBO RMOS/3/2 FCINL IST 3

MACRO v04.00

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

355 012464
355 012464

354 0126460

112772

000200

004737

043330

0126472

000240

012476

000137

013446

<9
350 012502

004737

042774

004737

0643672

004737
000404
000240
104000
000137

043060

004727
000405
000240
104000
004736
000137

056572

012737
000410

012560

012470

012476

ggg 012502

261

362 012506

33
364 012512

012516
0125¢0
012522

012526

ggg 012530
367
368 12530

012534
012536
012540
012542
012544
ggg 012550

371
372 012550
%;13' 012556
375

;;9

000404

104000

MOVB

#200, (R2)

JSR

PC,PUT

NOP
EMT

5%:

JMp

29%

:WAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO EGT REGISTER STATUS
JSR
PC,GET

BR
NOP

Jmp

29%

EMT

6%:

SEQ 008Y

:TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 5% IF NO ERROR

;RETURN HERE [F ERROR

JERROR # DEFINED BY PUT SUBROUTINE

:GO TO 298 IF ERROR

;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUTINS
;GO TO 6% IF NO ERROR
;RETURN HERE [f ERROR
JERROR # DEFINED BY GET SUBROUTINE
:GO TO 29% IF ERROR

:VERIFY RESULTS OF WRITE COMMAND
JSR
PC,DTASTS
:GO VERIFY RESULTS OF DATA TRANSFER

013446

7%:

001124

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
29%

;GO TO 78 IF NO ERROR
:RETURN HERE [f ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 29% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#8%,SLPERR
BR
9%
R

:SKIP TO WRITE OPERATION

WRITE,WRITE CHECK DATA

2222233223323 2323232232232

“LooP #2

378 012560

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GN TO GETSTS SUBROUTINE

013446

3222222322220 3R2202223232333223308
&)

8%:

379

380
381 012560
012564

(%:

4-APR-81 01:15:59 PAGE 13-11

004737
154130

037316

:PREPARE DEVICE FOR TEST
JSR
PC.TSTPRP
LWORD
154130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

.
012566
012570
012572
012574

ggg 012600

000404

000240
104000

000137

013446

JMP

29%

NOP
EMT

9% :

*RECALIBRATE IF '*SKI'" OR 'PIP'* IS SET
*VERIFY RECALIBRATION

:GO TO 9% IF NO ERROR

RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUTINE

;GO 10 29% IF ERROR

gzpnoeo RM05/3/2 FCINL TST 3
MACRO v04.00
4-APR-81
WRITE, WRITE CHETK ZEROS W/ WCE ERROR

4«00
401

402
403

D OO OO

e wand - D

d wd
—

— e ed e e

004737
000404
000240

104000

177400
106442
000061

001553
000006
000034
000032
000004
000002
000000

012700

004737

042774

012704

004737

0463672

004737
000404
000240

043060

000137

013446

004737

044056

012732
012734
012736

12740

2742

104000

000405
000240
104000
004736
000137

004737
000405
000240
004736
000137

004737
000405
000240

11%:

415

MOVB
MOVB
Mova
MOVB
MOVB

, (R2) +
ARMOF
#RMBA, (R2) +
+
C
, (R2)
HRMW
H#RMCST,(R2)+
#200, (R2) +

JSR
BR

PC,PUT
1%

JMP

29%

JSR

JWAIT

044770

;GO TO GETSTS SUBROUTINE
:GC TO TIMOUT SUBROUTINE

PC,GET
12%

;GO READ REGISTER(S) WITH GET SUBROITINE
;GO TO 12% IF NO ERROR

JMP

29%

;GO TO 29% IF ERROR

NOP
EMT

12%:

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET

SUBROUTINE

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR

13%:

G0 CHECK FOR PRIMARY ERRORS

;GO TO 138 IF NO ERROR

JRETURN HERE

IF ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR (HECKS
;GO TO 298 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

14%

EM7
JSR
JMP

PC,a(SP)+

JSR

PC,SECERR

EMT

JSR

15%:

138

PC,a3(SP)+
29%

14%:

PC,PRIERR

JSR
JMP

NOP

013446

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 29% IF ERROR

JSR
BR

NOP

013446

;s TERMINATE TABLE

;GO READ STATUS FOR WRITE COMMAND

EMT

056572

PC,GETSTS

FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

NOP

013446

#RMDA
, (R2) +
#RMDC, (R2) +

JSETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

#-256. ,RMWCO
s CHANGE WORD COUNT
#BUF ONE +4 , RMBAO
; CHANGE MEMORY ADDRESS
#WD ! GO,RMCS10
;WRITE DATA COMMAND
#PUTINX R?
;LOAD PUT REGISTER INDEX TABLE

NOP
EMT

104000

413
414

SEQ 0083

MOV
MOV
MOV
MoV

MOVB
MOVB

043330

013446

012714
012716
012720
012722
407 012726
408
409
410 012726

001 414
001 416
001 612

10%:

000200

000137

404
405
406 012710

7
13-12

:SETUP PARAMETERS AND EXCUTE COMMAND

no AN NDRINININ)
~ ~ NNNNNNSNSNN
no AY] n NN
O WW
~nN nN ~n NN
N NN

384
385 012600
386 012600
387 012606
388 01¢614
389 012622
390 012626
391 012632
392 012636
393 012642
294 012646
295 012652
396 012656
397
398 012662
012666
012670
012672
012674
399 €12700

F
01:15:59 PAGE

JMP

29%

15%

PC,a(SP)+

29%

;GO TO 14% IF NO ERROR
;RETURN HERE

IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 29% IF ERROR
;GO CHECK FOR SECONDARY ERRORS

;GO TO 158 IF NO ERROR
JRETURN HERE IF ERRCR

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

;GO TO 29% IF ERROR

CZRMOB(O RMOS/3/2 FCINL IST 3

WRITE, WRITE

MACRO v04.00

CHECK ZEROS W/ WCE

416

417

L]g 013006

220

012737

013014

001124

[}

25;

ERROR

G 7
4~APR-81 01:15:59 PAGE 13-13

: CHANGE LOOP ADDRESSES

MOV

#1683 ,8LPERR

'-'-Qttttttttt'tttltttt"t'tt'ttttt.t't'tttt'tttntttttttt'ntttttttt
1L 00P #3

WRITE CHECK DATA

16$:

252 013014
425 013014

012703

000001

107440

17%:

428
429 0130264

004737

037316

;PREPARE DEVICE FOR TEST
JSR
PC,TSTPRF

259 013020

013030

SEQ 0084

050337

154130

MOV

#1,R3

BIS

:R3+WCE BJT POSITION

R3,BUF TWO~2

LWORD

154130

:CHANGE LAST WORD OF BUFFFR
;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:
SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

OR 'PIP'' IS SET
;RECALIBRATE [F ‘'SKI'*

013032

013034
01303¢
013040
2;9 013044

000404

000240
104000
000137

BR
013446

432
433 0130644
434 013044
435 013052
436 013056

012737
012702
112722

000051
001553
000006

439 013072
440 013076
441 013102

112722
112722
112722

000004
000002
000000

437 013062
438 013066

22% 013106

112722
112722

112712

000032
000034

004737

013120
013122
013124

000240
104000
000137

013446

108 013130

004737

042774

0 013134

(004737

043672

454
652 013140

004737

043060

242 013130

000404

001412

NOP
EMT
JMP

29%

:READ DATA FROM
19%:
MoV
MOV
MOVB

MOVB
MOVB

000200

444 013112

C13116

18%:

18%

DEVICE
#WCD ! GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +

:WRITE CHECK DATA DATA COMMAND
LLOAD PUT REGISTER INDEX TABLE

HRMOF
, (R2) +
#RMDC, (R2)+

ARMBA, (R2) +
ARMUC
, (R2) +
#RMCST, (R2)+

JSR

PC,PUT

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

29%

RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 29% IF ERROR

20%:

RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINI
;GO TO 29% IF ERROR

MOVB
MOVR
MOVB

MOVB

043330

JVERIFY RECALIBRATION
;GO TO 18% If NO ERROR

NOP
EMT
JMP

#200, (R2)

208

;GO TO 20% IF NO ERROR

013144
013146

0004604
000240

JSR

INDEX TABLE TO READ ALL REGISTERS

PC,GETSTS

WAIT FOR COMMAND TO (OMPLETE

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE
v

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP

218

;GO TO 218 IF NO ERROR
:RETURN HERE IF ERROR

449

:SETUP GET

647

MACRO v04.00 4-APR-81
CIRMOBO RMO5/3/2 FCINL TST 3
T4
WRITE, WRITE (HECK ZEROS w/ WCE ERROR

013150

013152

104000

653 013156
654
455
456 013156

000137

(13446

004737

044056

013166
013170

104000
004736

0313162
013164

000137

013446

458 013176
459 013204
460
461 013206

032737

040000

004737

056572

013214
013216
013220
8}%552

000240
104000
004736
000137

013446

013737

001346

4357

8}%];5

00040%
000240

013212

462
463 013226
464 013234

465
466
467
468
469
470
471

013242
013250
013254
013262
013264

013266
013266
013274

013302
013306
013310
013312

8}%%;8

472
473 013320
474 013326

475 013334
013340
013346
013354

476
477
478
479

013362
013370
013372
013374
013376
013404
013406
013410
487 013412

4«80
481
482
483
484
485

488
«89 013412

013416
013420

001030

000405

052737
013737
010337
012737
104337
000470

040000
001346
001174
107440

EMT
21s:

001346

001176

000022
000200
043060

000137

013446

013737

001360

001142

040337
012737
013737
162737
023737
001402
104340
000424
023737
001402
104341

001140
107440
001342
0000C2
001134

(01134
001136
001136
001136

001140

(00416

Q04737
000405
000240

001524
001525

24%:

255

JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

BIT

HWCE ,RMCS2I

;WAS "WCE'' DETECTED??

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+
29%

;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 29% IF ERROR

JMP

001142

NOP
EMT
JSR
JMP

BIS
MoV
MOV
MOV
EMT
BR
MOVR
MOVB
JSR
BR
NOP
EMT

JMP

MOV

001140

MOV

26%:

27%:

044710

PC,a(SP)+

MoV

001140
001142

107440

EMT
JSR

001140

CHECK DATA OPERATION

PC,PRIERR

BNE

238

;GO TO 29% IF ERROR

JSR

BR
NOP
228

SEQ 0085

JERROR # DEFINED BY GET SUBROUTINE

29%

;(HECK FOR ERRORS DURING WRITE

112737
112737
004737
000404
000240
104000

013737

JMP

H
7
01:15:59 PAGE 13-14

BIC
MOV
MOV
SuB
CMP
BEQ
EMT
BR
(MP
BEQ
EMT

B8R

JSR
BR
NOP

22%

29%

24%

23%

RMCS21,$GDDAT

H#WCE
, $GDDAT
RMCSZI,$BDDAT
R3,$TMPO
ABUF TWO-2, $iMP1
337.
29%
#RMDB, GET INX
#200,GETINX+1
PC,GET
25%

29%
RMDBI , $BDDAT

BUF TWO=-2, $GDDAT

R3,3GDDAT
HBUF TW0-2, $GDADR
RMBAI , $BDADR
#2,$BDADR
$GDADR, $BDADR
26%
340
29%
$GDDAT , $BDDAT
27%
341

;G0 CHECK FOR PRIMARY ERRORS

;GO TO 22% IF NO ERROR
JRETURN HERE If ERROR
;GO TO 29% IF ERROR
JYES!!

;GO TO 23% IF NO ERROR

JEXPECTED STATUS
SJRECEIVED STATUS
JFAILING BIT POSITION
sFAILING ADDRESS

;SETUP GET INDEX TABLE
;SETUP TERMINATOR BYTE
;GO READ RMDB VIA GET SUBROUTINE
;GO TO 25% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR DEFINED BY GET SUBROUTINE

;GO TO 29% IF ERROR

JRECEIVED DATA

JEXPECTED DATA

;EXPECTED ADDRESS
;RECEIVED ADDRESS
;ADJUST BUS ADDRESS
;ADDRESSES 0OK??
JYES.!

;DATA 0K??
;YES.!

29%

PC,SECERR
28%

;GO CHECK FOR SECONDARY ERRORS
;GO 10 28% IF NO ERROR
JRETURN HERE [F ERROR

TZRMOBU RMCS5/3/2 FCINL TST 3
o

WRITE,

13422
013624

013426

490 013432

491 013632

492
493
496
232

013436
013440
013442
013446

WRITE

MACRO v04.00

(HECK ZEROS w/ W(E

104000
004736

000137

(13446

(040337

107440

006303
001402
000137

ERROR

7
1
4-APR-B81 01:15:59 PAGE 13-15

B8IC

R3,BUF TWO=-2

IR RN R AR

;*TEST

013446
013446
013450
013452
013456
013462

£98 C*3466

000004
000240
012706
013700
013701

012737

TSTS:

001100
001276
001466

0C0005

JRESTORE DATA PATTERN

JSHIFT TO NEXT BIT
JEXIT IF DONE
JREPEAT TEST FOR NEXT DATA BIT

A AN AN R A RN AR N AN AN AR RN R NAN AN AN RN RN RN AN SN SNy

READ ONES
R AN A AN A AN

AR AN

AN RN RN R AR R A SR NN RSN

;SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

#STACK,SP
$BASE RO
TSTQUE ,R1

#5,8TESTN
AN

AR AN

;2SET TEST NUMBER IN APT MAIL BOx

AN AR AR R AR AR AR A AR NI AN

FORMAT ,WRITE ,READ

RN AN NI AR AR R AN

1%:

502 013474
505 013476
013500

AR AN R AR RN

;LOOP #1

28?

503
504

AR AN AR

MOV
AR

AR AR

WRITE,

SCOPE
NOP
MOV
MOV
MOV

001226

4,99

AR AR

;GO TO 29% [F ERROR

R3
293
17%

AR AN

JERROR # DEF INED BY SECERR SUBROUT
INF
;G0 BACK FOR MORE ERROR C(HE(KS

29%

ASL
8EQ
JMP

29%:

L97

PC,a(SP)+

JMP

28%:

013020

EMT
JSR

SEQ 0086

(04737
154130

;PREPARE THE DEVICE FOR TEST
JSR
PC,TSTPRP

037316

.WORD

154130

;PREPARE DEVICE FOR TEST
;s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

OR 'PIP'" IS SET
JRECALIBRATE IF *'SKI''

013502

000404

506 013510

000137

013504
013506

507
508 013514

000240
104000

014454

012737

000000

001446

511 013530

012737

106436

001416

512 013536
513 013544

g}g 013552
516

013560

013564
013566
013572
013574

517 013600

012737

000000

012737
012737

177376
010000

004737

040242

012737

000405
104401
104000
000137

000063

;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

JMP

25%

;GO TO 25% IF ERROR

;RETURN HERE IF ERROR
cERROR # DEFINED BY TSTPRP SUBROUTINE

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:

001420

Mov

#Q ,RMDCO

MOV

#BUF ONE , RMBAD

MoV

001414
007444

MOV
MoV

001412

Mov

JVERIFY

070426
014454

NOP
EMT

509 013514

510 013522

3%:

#0 ,RMDAO

;CYLINDER = 0
;TRACK = 0, SECTOR

#-258. ,RMWCO
HFMT16,RMOFOQ

;2 + 256. WORDS (2'S (OMP)
;16 BIT FORMAT

#WH!GO,RMCS10

THAT SECTOR IS NOT BAD

JSR

BR
TYPE
EMT
JMP

PC.BADSCT

3%
.SCTMSG

25%

;BUS ADDRESS

;WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE

;G0 TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
;G0 TO 25% IF ERROR
-

013600

013606
013614

012737
012737
004737

072016
(00001

001553
000034
000006
000004

000002
000032
000000
000200

013660

004737

043330

013664
013666
613670
013672
013676

b
d
b
d

e e

b
D ad

—t

013624
013630
013634
013640
013644
013650

2 O

013654
013660

\l\l\ls\l\l\l\l

042174

—

013620

[ASTANIANI
ST ST N1, V1, ¥

€2 RMOBO RMOS/3/2 FCINL TST
5
WRITE, READ ONES

000404

104000

013676

C04737

042774

013702

004737

043672

013706
013712
013714
013716
013720
543 013724

004737
000404
000240

043060

000137

014454

DO NN
W

VAIVIRA
I
VWAL

013744
013752

001176

104000

004737
000405
000240

7
J
4-APR-B1 01:15:59 PAGE 13-16

#ONES, $TMPO

sSTARTING ADDRESS OF PATTERN

JSR

PC.,GENBUF

;GO GENERATE BUFFER FOR FORMAT

012737
000410

MOV

#PUTINX,R2

MOVB

HRMDA, (R2) +

mMovB

MOVR
MOVB

;RANGE OF

PATTERN

mMOovB
MOVB
MOVB

JSR

BR
o5

EMT
JMP

;R2 = BYTE ENTRY POSITION

#RMDC, (R2) +

H#RMBA, (R2) +

’

ARMOF
, (R2) +
HRMCS1, (R2)+
#200, (R2)

;TERMINATE

H#RMWC, (R2) +

:FORMAT THE DRIVE

PC,PUT

25%

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 5% [F NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 25% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO GETSTS SUBROUT INE
;GO0 TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR
BR

PC.GET
6%

JMP

25%

NOP
EMT

6%:

;VERIFY NO ERRORS DURING FORMAT

056572

JSR

NOP
EMT
JSR

014454

013754

#1,8TMP1

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIICON

104000

004736
000137

SEQ 0087

MOV

NOP

014454

013732
C13734
013736
013740
013744

001°74

000240

000137

544
545
546 013724
013730

MACRD v04.00

JMP

7%:

001124

:GO READ REGISTER(S) WITH GET SUBRCUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUT INE

;GO TO 25% IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

:RETURN HERE IF ERROR
:ERRUR # DEFINED BY DTASTS SUBROL 7INE
;GO BACK FOR MORE ERROR CHECKS

25%

;G0 TO 7% IF NO ERROR

;GO TO 25% !F ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV

B8R

#8%,$LPERR

:SKIP TO WRITE OPERATION

""‘"l"fi.fl"’l’t'l**"'.l’tf""'*t"'il"tfi!i!’ii'iQ'*"**'fifi"'il't"t

;LOoOP #2
013754

WRITE ,READ

8%:

;PREPARE DEVICE FOR TEST

~IRMOBO RMOS5/3/2 FCINL TST 3
rs

WRITE, READ ONES

560 013754
013760

004737
154130

MACRO V04.00

JSR

037316

4-APR-B1 01:15:59 PAGE 13-17

.WORD

PC,TSTPRP

154130

;PREPARE

SEQ 0088
DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE € VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR QOPERATION
JPACK ACKNOWLEDGE

VOLUME NCT VALID

;VERIFY PACK ACKNOWLEDGE

UR 'PIP'* IS SET
:RECALIBRATE IF '"'SKI''
013762
013764
013766
013770
013774

104000

000137

043330

000137

014454

004737

042774

004737

043672

Nt
2 O

001553
000006
000034
000032
000004
000002
000000
0002¢C0

004737
000404
000240

043060

000137

014454

NN WO
[o 29 2N 28} oo

004737
000405
000240

044056

¥ Ve
P 3
(1%

d =D
D
—h
—

el o
b
ed
-

b ad ed
D
b —d

X
S S
S
PO

[elelelelale

E ol ol o B

D =D
b —d —d —d

OOOOOO

586
587
588
589

106442
177400
000061

004737
000404
000240

014062
014064
014066
014070
578 014074
579
580
014074
581
582
014100
583
585

014454

:
9%

JMP

25%

JVERIFY RECALIBRATION

;GO TO 9% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED 8Y TSTPRP SUBROUTINE

;G0 10 25% IF ERROR

%8§1TE DATA TO THE DRIVF

013774
013774
014002
14010
014016
014022
014026
014032
014036
014042
014046
014052
014056

BR
NOP
EMT

000404
000240

104000

004736

MOV

#BUF ONE +4 ,RMBAQD

001412

MOV

#WD ! GO,RM(CS10

001414

MOV

MOV
MOVB
MOovB
mova
MOvB
MOVB
MOVB
MOVB
JSR

B8R

NOP
EMT

11%:

JMp

#-256. ,RMWCO

JWRITE DATA (OMMAND

#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
#RMBA, (R2) +
HRMWC, (R2) +
#RMCS1,(R2)+
#200,(R2)+
PC,PUT

118

25%

JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE
JSR
PC., TIMOUT

;LOAD PUT REGISTER INDFX TABIE

:TERMINATE TABLE
;G0 WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 11% IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 25% IF ERROR

;GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

JSR

12%:

EMT
JMP

PC,GET

12%

25%

:GO READ PFGISTER(S) WITH GET SUBROUTINE

;GO TO 12% IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% IF ERRCR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;GO0 CHECK FOR PRIMARY ERRORS
;GO TO 13% IF NO ERROR
13%
8R
NOP

EMT

014454

; CHANGE MEMORY ADDRESS

; CHANGE WORD COUNT

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

NOP

104000

000137

001416

JSR
JMP

JRETURN HERE IF ERROR

PC,a(SP)+
25%

JERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;G0 TO 25% IF ERROR

CZRMOBO RMOS/3/2 FCINL T1ST 3
WRITE,

590 014142
591 014142
014146

014150
014152
014154
014156
592 014162
593 014162
014166
014170
014172
014174
014176
594 014202
595
596
597 014202
598 014210
599
600
601
602
603 014212
604
605
606 014212
0146216

READ ONES

004737
000405

13%:

056572

000240
104000

004736
000137

004737
000405
000240

014456

14%:

044710

4&-APR-B1

JSR
B8R
NOP

EMT
JSR
JMP

004736
000137

012737
000410

014454

014212

001124

;GO VERIFY RESULTS Of DATA TRANSFER
;GO TO 14% IF NO ERROR

PC,a(SP)+

JERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

JRETURN HERE

ERROR

;GO TO 258 IF ERROK

15%

;GO CHECK FOR SECONDARY ERRORS
;GO TO 158 IF NO ERROR

PC,a(SP)+

:GO BACK FOR MORE ERROR CHECKS

JRETURN HERE IF ERROR
JERROR # DEF INED BY SECERR SUBROUT INE

;GO TO 25% IF ERROR

25%

; CHANGE LOOP ADDRESSES

4168, SLPERR
178

MOV
BR

.
e

SEu 0089

PC,DTASTS
14%

PC,SECERR

NOP
EMT
JSR
JMP

15%:

7
L
01:15:59 PAGE 13-18

25%

JSR
BR

104000

‘Loor #3

AR NN R AN AR A

:SKIP TO NEXT OPERATION

R R AR AR A A AN AR AR AN AR AR AN AN AR

AR AR N n

READ

16%:

004737
154130

037316

;PREPARE DEVICE FOR TEST
JSR
.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

:
IS SFT
OR 'PiP"'
JRECALIBRATE IF ‘'SKI''
;VERIFY PACK ACKNOWLEDGE

014312
014314

000137

014454

17%:

BR
NOP
EMT
JMP

;VERIFY RECALIBRATION

17%

;GO TO 178 IF NO ERROR

25%

;GO TO 25% IF ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

737

=2 =

b md

b nd = b

QOO

:READ DATA FROM DEVICE

607 014232
608
609
610 014232
611 014232
612 014240
613 014246
614 014252
615 014256
616 014262
617 014266
618 014272
619 01¢276
620 01¢302
621
622 014306

014224
014226

000404
000240
104000

014220
014222

MACRO v04.00

107446

000071
001553
000006
000032
000034
000004
000002
000000
000200
043330

000240

18%:

[0}
MOV
MOV
MOVB
MovB
MOVB
MOVB
MOVB
MOVB
MOVR

#BUF TWO+4 ,RMBAD
#RD !GO,RMCST0
#PUTINX ,R2
#RMDA
, (R2) +
HRMOF
, (R2) +
#RMDC
, (R2) +

JSR
BR
NOP

PC,PUT
19%

; CHANGE MEMORY ADDRESS
;READ DATA COMMAND
JLOAD PUT REGISTER INDEX TABLE

HRMBA, (R2) +

HRMWC, (R2) +
#RMCST, (R2)+
#200, (R2)

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 19% I+ NO ERROR

JRETURN HERE IF ERROR

. JRMOBO RMO5/3/2 FCTINL TST 3
WRITE, READ ONES

014316
214320
623 014324

104000

000137

014454

004737

042774

624

)
627

014324
014330

004737

043672

630 014334
014340
014342
014344
014346
631 014352

004737

043060

628
629

000404
000240
104000
000137

014426

639 014432
640 014432
014436
014440

014442
014444
014446
014450

641 014454

004737
000405
000240

EmT
19%:

004737
000405
000240

JSR

004737
000405

014454

044056

014454
056572

014454
044710

20$:

004737
106442
107446
000404
000240

042432

000137

014454

104000

642
643 014454

M7
JMP

;GO TO 25% If ERROR

PC,GETSTS

,GO TO GETSTS SUBROUTINE
;GU TO TIMOUT SUBROUTINE

25%

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS

B8R

NOP
EMT
JSR

21%:

PC,a(SP)+

2GO TO 218 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 25% IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

;RETURN HERE IF ERROR
;JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSKR
B8R

PC_,SECERR
238

EMT
JSR
JMP

PC,a(SP)+
258

JSR

PC,CMPBUF

JSR

B8R

22%:

21s

25%

JMP

NOP

014454

JERROR # DEFINED BY PUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
20%
;GO TO 208 IF NO ERROR

000240

104000
004736
000137

25%

:WAIT FCR COMMAND TO COMPLETE
PC,TIMOUT
JSR

104000

004736
000137

JMP

SEQ 0090

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

4-APR-81 01:15:59 PAGE 13-19

NOP

632

633
634 $14352
014356
014360
014362
014364
014366
635 014372
636 014372
014376
014400
014402
014404
014406
637 016412
638 014412
014416
014420
014422
014424

MACRO V04.00

23%:

.WORD
.WORD
BR
NOP
EmT

24%:

JMP

228

25%

BUF ONE +4
BUF TWO+4
24%
25%

;GO TO 22% IF NO ERROR

;GO TO 25% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
2GO _TO 238 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 25% IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF

+GO TO 248 IF NO ERROR
JRETURN HERE IF ERROR

READ BUFFER

;ERROR # DEFINED BY CMPBUF SUBROUT INE
;GO TO 258 IF ERROR

25%:

644
645

':lttttttt*ttttttttttt*tt*t**tttitttfi'*i*ittttfii*ttti'titlttt!ttt

;*TEST 6

WRITE, WRITE CHECK ONES

::*t*t*tttflttt*fl*ttttttt'ttt*ttttt*ttt**ttt*tiitt*ttt‘*ttt'!t'ttt

014454
014454
014456

000004
000240

TS76:

SCOPE

NOP

:SCOPE CALL

;START OF

TEST

CZRMOBO RMO5/3/2 FCINL TST 3

WRITE, WRITE

014460

014464
014470
646 0146474

CHECK ONES

012706

013700
013701
012737

MACRO Vv04.00

4-APR-81 01:15:59 PAGE 13-20

001100

001276
001466
000006

MOV

MOV
MOV
MOV

001226

H#STACK,SP
$8ASE ,RO
TSTQUE ,R1
#6,8TESTN

SEQ 0091

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

6‘7

""ttttttttittttttttt*tti'tlt*ttttttttfiiittt'!tttttttttt*!tttttfi't

gzg

;LOOP #1

22? 014502

1%:

652

653 014502
014506

004737
154130

FORMAT ,WRITE,WRITE CHECK DATA

;PREPARE THE DEVICE FOR TEST

037316

JSR
LWORD

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY

CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE 1F VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

OR ‘PIP'* IS SFT
JRECALIBRATE IF ‘'SKI’*

014510
014512

000404
000240

654 014516

000137

014514

655
656 014522

104000

012737
012737
012737
012737

000000
000000
106436
177376

001446
001420
001416
001414

22% 014560

012737

000063

001412

664

012737

010000

014566

004737

040242

014574
014600

104401
104000

070426

014572

014602
665 014606
666 014606
667 014614
223 014622

000405

000137

015432

012737
012737
004737

072016
000001
042174

671 014626

012702

001553

678 014662

112712

000200

670

672 014632
673 014636
674 014642
675 014646
676 014652
677 014656

ggg 014666
681

112722
112722
112722
112722
112722
112722

JMP

24%

EMT

015432

657 014522
658 014530
659 014536
660 014544

661 014552

BR
NOP

JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 24% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:
MOV
#0,RMDCO
;CYLINDER = O

001444

MoV
MoV
MoV

#0,RMDAO
#BUF ONE , RMBAO
#-258. ,RMWCO

;TRACK = 0, SECTOR = 0
;BUS ADDRESS
;2 + 256. WORDS (2'S CoMP

MoV

#WH!GO,RMCS10

JWRITE HEADER AND DATA COMMAND

MoV

HFMT16,RMOFOQ

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

001174
001176

JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
;RETURN HERE IF ERROR

3%:

TYPE
EMT
JMP

MoV
MoV
JSR

;16 BIT FORMAT

;CALL BAD SECTOR MODULE

;GO TO 3% IF NO ERROR

24$

;GO TO 24% IF ERROR

.SCTMSG

#ONES, $TMPO
#1,$TMP]
PC,GENBUF

‘

;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

;STARTING ADDRESS OF PATTERN
sRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT QPERATIION

MoV

000034
000006
000004
000002
000032
000000

MOVB
MoV
MOVB
mMovB
MOVB
MOVB

4%:

MGVB

H#PUTINX,R2

JR2 = BYTE ENTRY POSITION

#200, (R2)

;TERMINATE TABLE

HRMDC, (R2) +
#RMDA, (R2) +
#RMBA, (R2) +
HRMWC, (R2) +
#RMOF
, (R2) +
ARMCST, (R2)+

:FORMAT THE DRIVE

mMOBO RMOS/3/72 FCTNL TST 3
WRITE, WRITE

682 016666
014672
014674

(HELK ONES

0047%7

000404
000240
106000

000137

015432

014704

004737

042774

014710

004737

043672

004737
000404
000240

043060

000137

015432

004737
000405
000240

056572

687

688
€89
690 014714

014720
014722
014724
014726
691 C14732

104000

NOP
EMT

S%:

696
697

698 014752
699 014760

700
701
702
703
704 014762
705
706
707
708 (14762

014766

JMP

JSR

012737
000410

2GO TO 5% IF NO ERROR
JRETURN HERE

ERROR

;ERROF. # DEFINED BY PUT SUBROUT INE

;G0 TO 24% IF ERROR

248

PC,GFTSTS

;GO TO GETSTS SUBROUT INE
;GO TO TIMOUT SUBROUT INE

;60 RCAD STATUS FOR FORMAT CPERATION
PC.GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
6%
;GO TO 6% IF NO ERROR
BR
JRETURN HERE IF ERROR
NOP
EmT
;ERROR # DEFINED BY GET SUBROUTINE
JMp
248
;GO TO 24$ IF ERROR
6%:

;VERIFY NO ERRORS DURING FORMAT
JSR

NOP
EMT

015432

014762

GO WRITE REGISTER(S) WITH PUT SUBROUT INE

JWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

104000

004736
000137

PC.PUT
5%

SEQ 009

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

692

693
694 014732
014736
014740
014742
014744
014746
695 014752

8 8
4-APR-81 01:15:59 PAGE 13-21
JSR
BR

043330

0146676
014700
683 014704

684
685

MACRO v04.00

JSR
JMP

7%:

001124

PC.DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

;GO TO 7% IF NO ERROR
sRETURN HERE

PC,a(SP)+
24%

S 122222232

9¢

&3 223220d3220

;LOOP #2

ERROR

;GO TO 24% IF EPROR

JMOVE LOOP ADDRESSES TO NEXT OPERATION
8L PERR
#8%
MOV

B8R

;ERROR # DEFINED BY DTASTS SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS

3332328223202

:SKIP TO WRITE OPERATION
R

ARt

iRt

WRITE ,WRITE CHECK DATA

8%:

004737
154130

037316

;PREPARE DEVICE FOR WRITE OPERATION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
-WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECTY DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

JPACK ACKNOWLEDGE IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF "'SKI'' OR 'PIP'" IS SET
014770
014772
014774
014776
709 015002

710
71

000404
000240
104000

000137

015432

9%:

BR
NOP
EMT
JMP

24$%

;WRITE DATA TO THE DRIVE

JVERIFY RECALIBRATION

;GO TO 9% IF NO ERROR
;JRETURN HERE

IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 24% IF ERROR

CZRMOBO RMOS5/3/2 FCINL TST 3

WRITE, WRITE CHECK ONES

712 015002
713 C15002

012737

719 015040
720 015044

11272¢
112722

7164 015010
715 015016
716 015024
717 015030
718 015034
721 015050
722 015054

012737
012737
012702
112722
112722

177400
000061
001553
000006
000034

112722
112722

000002
000000

;Sz 015060

112722

725 015064

004737

015070
015072
015074
015676

;Sg 015102

728
239 015102

106442

000404
000240
104000
000137

015432

004737

043672

732
733 015112

004737

043060

015120
015122

000240
104000

015124

000137

015432

737 015130

004737

044056

015136
015140
015142
015144
738 015150
739 015150

000240
104000
004736
000137

015432

004737

056572

;gg 015130
736

015124

015154
015156

015160
015162

000405

000405
000240

740 015170
741 015170

104000
004736
000137

015432

004737

044710

01520C
015202
8}2%?8

104000
004736
000137

015164

015174
015176

000405
00024C

001414
001672

015432

MOV

HBUF ONE +4 ,RMBAD

MOvVB
MGvB

NRMOF
,
(R2)+
ARMBA
,
(R2)
+

MOvB
MovR

11%:

4-APR-81 01:15:59 PAGE 13-22

MOV
MOV
Mov
MOvB
Movs

063330

231 015106

000404

10%:

000200

042774

015116

0016416

000032
000004

004737

730

MACRO v04.00

#-256. ,RMWCO
#WD !GO,RM(S1D
#PUT INX ,R2
#RMDA
, (R2) +
#RMDC, (R2) +
ARMWC, (R2) +
#RMCS1, (R2)+

MOvB

#200, (R2)+

JSR

PC,PUT

BR
NOF
EMT
JMP

11%

24%

SEQ 0093
; CHANGE MEMORY ADDRESS

; CHANGE WORD COUNT
;JWRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 118 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUT INF
;G0 TO 248 [F ERROR

;SETUP CET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBROUT INE

12%

;GO _TO 128 IF NO ERROR

JMP

248

;GO TO 248 IF ERROR

NOP
EMT

128:

JRETURN HERE IF ERROR
JERROR # DEFINED By GET SUBROUTINE

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR

13%:

;G0 CHECK FOR PRIMARY ERRORS

;GO TO 13% IF NO ERROR

PC,a(SP)+
24%

;JRETURN HERE IF ERROR
JERROR & DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 24$ IF ERROR

JSR

PC DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

14%

;GO TO 14$ IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY DTVASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JMP

PC,a(SP)+
248

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

EMT
JSR
JMP

PC,a(SP)+
24$

JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR C(HECKS
;GO TO 248 IF ERROR

BR
NOP
158

138

NOP
EMY
JSR
JMP

BR
NOP

14%:

PC,PRIERR

15%

;GO TO 248 IF ERROR

;GO 10 158 IF NO ERROR
;JRETURN HERE IF ERROR

CZRMOBO WRITE,
RMO5/372WRITE
FCTINLCHECK
TST ONES
3 MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-23.
16
D

766
7645 015210

;29 015216

012737

000410

(15220

001124

; CHANGE LOOP ADDRESSES
MOV
#16$,SLPERR

SFQ 0094

17%

;SKIP TO NEXT OPERATION

748

L
T
T R e T

;gg

;LOOP #3

;g% 015220

16%:

753

754 015220

015224

004737

154130

WRITE (HECK DATA

;PREPARE DEVICE FOR WRITE CHECK DATA OPERATION

037316

JSR

.WORD

PC,TSTPRP

1546130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

OR "PIP'* IS SET
;RECALIBRATE [F ''SKI'*
015226

015230
015232
015274
;gg 015240
757
758 015240
759 015240

760 015246
761 015252
762 015256
763 015262
764 015266
765 15272
766 015276

000404

000240
104000
000137

012737
012702
112722
112722
112722

;gg 015302

112722
112722
112722
112712

769 015306

004737

015314
015316

000240
104000

015312

15320

;;? 015324
772
3 015324

774

000404

BR
015432

000051
001553
000006
000032
000034

015432

004737

042774

004737

043672

776
777 015334

004737

043060

015342
015344

000240
104000

015346

778 015352

000137

015432

MOV
Mov8
MOvB
MOVB
MOV
MOVB
MOVB

#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA
, (R2) +
HRMWC, (R2) +
#RMCST, (R2)+

JSR

PC PUT

Movs

043330

000137

000404

001412

24%

;VERIFY RECALIBRATION
;GO TO 17% IF NO ERRCR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO FO 24% IF ERROR

;WRITE CHECK DATA DATA FROM DEVICE
18%:
MOV
#WCD !GO, RMCS10

000004
000002
000060
000200

275 015330

015340

17%:

NOP
EMT
JMP

178

NOP
EMT
19%:

JMP

JWRITE CHECK DATA DATA (COMMAND
;LOAD PUT REGISTER INDEX TABLE

#200, (R2)
19%

24%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 TO 19% IF NO ERROR

JRETURN HERE IF ERROF
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 24$% IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

JWAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
JSR
PC,GET
.,GO READ REGISTER(S) WITH GET SUBROUTINE

20%

;GO TO 208 IF NO ERROR

JMP

24%

;00 TO 24% IF ERROR

NOP
EMT
20%:

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

CZRMOBO RMOS/3/2 FCINL TST 3

WRITE, WRITE

779
780
781

782 015372

783 015372

CHECK ONES

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240

056572

MACRO v04.00

E
8
4-APR-81 01:15:59 PAGE 13-24

;CHECK FOR ERRORS DURING WRITE (HECK DATA OPERATION
PC,PRIERR
JSR
;GO0 (HECK FOR PRIMARY ERRORS
21%
B8R
;GO TO 21% IF Nu ERROR
NOP
;RETURN HERE If ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;GO BACK FOR MORE ERROR (HECKS
248
JMP
;GO TO 248 IF ERROR

015432

21%:

104000

784 015412
785 015412

004736
000137
004737
000465
000240

015432

22%:

044710

104000

015426
786 015432
787
788 015432
789

004736
000137

SEQ 0095

015432

23%:

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

24%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 228 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 248 If ERROR

JSR
BR
NOP
EMT
JSR
JMP

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

22%

PC,a(SP)+

238

24$

;GO TO 23 IF NO ERROR

;GO TO 248 IF ERROR

24%:

790

':ttttttittit'ttfitttt""tfitfi!tttfitttl*t’t‘ktt'ttttitttttt'tt.ttt

SRTEST 7

WRITE, WRITE CHECK ONES W/ WCE ERROR

':tttttttltt*'ttfiififit'tfi'ttttttttt'ti'tttt’iit*t."fi't'tt'ttttttt

791
792
793
794

015432
015432
015434
915436
015442
015446
015452

1877

000004

000240
012706
013700
013701
012737

001100
001276
001466
000007

798 015460
015464

MOV
MOV
MoV

001226

$BASE ,RO

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

#7,$TESTN

;;SET TEST NUMBER [N APT MAIL BOX

#STACK,
SP

TSTQUE ,R1

:(R1)

= DEVICE BEING TESTED

:;'tttttltt"tt*t*fititl"i'.ittiii‘t*t*fit'*t.t'tttt*'ttl'tttttt"

;LOOP #1

795 015460

796
797

SCOPE
NOP
MoV

FORMAT ,WRITE ,WRITE

CHECK DATA

1%:

004737
154130

037316

JPREPARE THE DEVICE FOR FORMAT OPERALION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
154130
.WORD
;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

' "PIP'" IS SET
;RECALIBRATE IF ''SKI'OR
000404
000240
104000

000137

BR
NOP

016630

2$:

EMT
JMP

29%

;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE

IF ERROR

JERROR # DEFINED BY TSTPRP SUSROUTINE

;60 TO 29% IF ERROR

CZRMOBO RMOS5/3/2 FCINL IST 3
*7

WRITE, WRITE

)
B
e Y

804
805
806
807
808
809

000000
000000
106436

177376
010000

803

CHECK ONES W/ WCE ERROR

000063

800
801
802

MACRO Vv04.00

001446

001420
001416
001414
001444
001412

[ [01Y)
Mov

JSR
B8R

702
722
722
722
722
722
722
712

nanornoPoPONO
NN

001553
000034
000006
000004
000002
000032
000000
000200

004737
000404
000240

043330

000137

016630

004737

042774

004737

043672

004737
000404

043060

-t ek

—_— ke

—d

md e

= e 2O

put
P
s
ot G
ot Qi Qui

NOWVNS WO

00 00 00 20 0o 0o 00 0O

015644
015644

015650
015652
015654
015656
328 015662
829
830
015662
831
832

833
834
835

104600

042174

104000

A#FMT16,RMOF
O
#WH!GO,RMCS10

001174
001176

3%:

EMT
JMP

MOV
MOV

JSR

000137

016630

004737
000405
000240

056572

216 BIT FORMAT

JWRITE HEADER AND DATA COMMAND

PC,BADSCT

;CALL BAD SECTOR MODULE

.SCTMSG

;TYPE BAD SECTOR MESSAGE

29%
#ONES ,$TMPQ
#1,8TMP1
PC,GENBUF

;GO TO 3% IF NO ERROR

JERROR # DEFINED BY BADS(CT

;GO TO 29% IF ERROR

SUBROUTINE

;STARTING ADDRESS OF

PATTERN

JRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
MOVB
MovB
MOVB

#PUT INX R2
#RMDC, (R2) +
#RMDA
, (R2) +
ARMBA, (R2) +

MOVB
MCVR

¥RMOF
, (R2) +
ARM(S1,(R2)+

MOVB

48
;FORMAT

s¢

MOvVB

#200,(R2)

THE DRIVE

JSR
B8R

NOP
EMT
JMP

JR2 = BYTE ENTRY POSITION

HRMWC, (R2) +

PC.,PUT
5%
29%

;TERMINATE TARLE

;G0 WRITE REGISTER(S) WITH PUT SUBROUT INE
;G0 TO 5% IF NO ERROR

;RETURN HERE [F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 29% IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR (OMMAND

JSR

TO COMPLETE

PC,TIMOUT

;G0 TO GETSTS SUBROUTINE

;G0 TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
B8R
6%
;G0 TO 6% [F NO ERROR
JRETURN HERE If ERROR

NOP

000240

837
838
839

TYPE

016630

SEQ 0096

;LOAD PARAMETERS AND GENERATE DATA BUFFER
#0,RMDCO
MOV
JCYLINDER = 0O
#0,RMDAO
;TRACK = 0, SECTOR = 0
MOV
#RUF
ONE ,RMBAC
MOV
;BUS ADDRESS
#-258, ,RMW(O
MOV
JWORD COUNT = 1 SECTOR

070426

072016
000001

;VERIFY THAT SECTOR IS NOT BAD

040242

012737
012737
004737

4-APR-81 01:15:59 PAGE "3-25

6%:

EMT
JMP

29%

JERROR # DEFINED BY GET SUBRGCUTINE
;GO TO 29% IF ERROR

JVERIFY NO ERRORS DURING FORMAT
;G0 VERIFY RESULTS OF DATA TRANSFER
PC,DTASTS
JSR
;GO TO 7% IF NO ERROR
7%
BR
NOP

JRETURN HERE IF ERROR

MACRO v04.00
’ZRMOEO RMOS5/3/72 FCINL TST 3
WRITE, WRITE CHECK ONES W/ W(E ERROR
015720

015722

015724

015730
015730
015736

G 8
4-APR-81 01:15:59 PAGE 13-26

104000

004736

EMT

000137

016630

012737
000410

015740

JSR

JMP

7$:
001124

01574C

015744

004737

154130

000404

015754
853 015760

000137

016032

867 016036
868
869 016042
016046
016050

016052
016054
870 016060

871
872

873
874
875

;GO TO 29% IF ERROR

,SKIP TO WRITE UPERATION

dRERRat

22000

000240
104000

;PREPARE

037316

ANARARRERRRR

iRl

RRRRRRRtR

WRITE ,WRITE CHECK DATA

016630

012737

177400
106442

000061

012702
112722
112722
112722
112722
112722
112722
112722

001553
000006
000034
000032
000004
000002
000000
000209

004737
000404
000240
104000

043330

000137

016630

016060

004737

042774

016064

004737

043672

JSK

9%:

001414
001416

108:

007412

PC,TSTPRP

OPERATION

154130

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

JMP

29%

;GO TO 29% IF ERROR

DATA TO

THE

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

DRIVE

MoV
MOV

#-256. ,RMWCO
; CHANGE WORD COUNT
#BUF ONE +4 ,RMBAQ
; CHANGE MEMORY ADDRESS

MOV
MOvVB
MOVB
MOvVB
MovB
MovB
MOVB
MOVB

#PUTINX R2
#RMDA, (R2) +
HRMDC, (R2) +
ARMOF
, (R2) +
H#RMBA, (R2) +
HRMWC
, (R2) +
H#RMCS1, (R2)+
#200, (R2)+

JSR
BR
NOP
EMT

PC,PJT
11%

Mov

11%:

FOR WRITE

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATICN
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
JVERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

NOP
EMT

;WRITE

012737
012737

DEVICE

.WORD

854

856 015760
857 015760
858 015766
859 015776
860 016002
861 016006
862 016012
863 016016
016022
865 016026

;GO BACK FOR MORE ERROR (HECKS

29%

8%:

015746

015750
015752

JERROR # DEFINED BY DTASTS SUBROUTINL

PC,a(SP)+

;MOVE LOOP ADURESSES TO NEXT OPERATION
Mov
#8%,SLPERR
BR
9%
:LooP #2

015740

SEQ@ 0097

JMP

#WD !GO ,RMCS10

29%

JWRITE DATA (OMMAND

;LOAD PUT REGISTER INDEX TABLE

;TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBRCUTINE
;GC TO 11$ [F NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 29% IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
JWAJIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO 10 TIMOUT SUBROUTINE

CZRMOBO RMQS/3/72 FCINL IST 3

WRITE,

876

877 016070
016074
016076
016100
016102
878 016106
879
880
881 01

IRITE

MACRO v04.0C

CHECK ONES W/ W(E

004737
000404
000240

(43060

000137

016630

004737
000405
000240

044056

104000

882 016126
883 016126

004737
000405

JSR

NOP
EMT

884 016146
885 016146

004737
000405
000240

JMP

12%:

016630

13%:

056572

889 016166
390
891
892

893
896 016174
895
896 016174
897 016200
898

NOP
EMTY

016630

14%-

044710

004736
000137

016630

012737

016174

SeQ 0098

PC,GET

;GO READ REGISTER(S)

WITH GET

.GO TO 12% IF NO ERROR

12%

SUBROUTINE

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 29% IF ERROR

29%

;GO BACK FOR MORE ERROR CHECKS

PC.a(SP)+
29%

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRGRS

PC,a(SP)+

JERROR # DEFINED BY SECERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

001124

14%

JSR
JMP

15%:

:GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 14% IF NO ERROR
;JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

PC.DTASTS

JMP

;GO TO 29% IF ERROR

,GO TO 15% IF NO ERROR

15%

;RETURN HERE IF ERROR

:GO TO 29% IF ERROR

29%

: CHANGE LOOP ADDRESSES
MOV

#16%,8LPERR

'"lfit'ttl‘"t‘l’tt*"*l‘t"ti't"tfititkttttttt*tkfittttttttttittttttt*t

WRITE CHECK DATA

;LOOP #3
16%:

012703
040337

000001

900 016204
016

004737
154130

037316

016212
016214
016216
016220
901 016224

000404
000240

899

B8R

104000

016162
886 016166
887
88%

13-27

:(HECK FOR ERRORS DURING WRITE OPERATION
PC.PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
13%
B8R
;GO TO 13% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE
PC,2(SP)+
JSR
;60 BACK FOR MORE ERROR CHE(CKS
JMP
29%
;GO TO 29% IF ERROR

000240
104000

004736
000137

01:15:59 PAGE

;GO READ STATUS FOR WRITE COMMAND

104000

004736
000137

ERROR

&-APR-81

106000

000137

107440

17%:
;PREPARE

MOV

B8IC

DEVICE

JSR

.WORD

NOP

016630

EMT

18%:

JMP

#1,R3

R3,BUF TWO=2
FOR WRITE

PC,TSTPRP

154130

18%

29%

CHECK

;R3+WCE BIT POSITION

:CHANGE LAST WORD OF BUFFER

DATA OPERATION

:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLF
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY 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 TSTPRP SUBROUTINE

;GO TO 29% IF ERROR

MACRO v04.00
Z RMOBO RMOS5/3/¢ FLINL TIST 3
T7
WRITE, WRITE CHE(K ONES W/ W(E ERROR
-

90¢
303
904 016224

000051
001553
000006
000032
000034
000004
000002
000000
00020C

905 016224
906 016232
907 016236
908 016242
909 016246

910
911
912
913

914

016252
016256
016262
016266

01412

I
8
4-APR-B1 01:15:59 PAGE 13-28

;READ DATA FROM DEVICE
19%:
#WCD!GO,RMCS10
Mov
#PUTINX
MOV
,R2
#RMDA, (R2) +
MovB
#RMOF
, (R2) +
MovB
HRMDC, (R2) +
MovB
ARMBA, (R2) +
MOVB
HRMWC, (R2) +
MOVB
HRMCS1, (R2)+
MOvB
#4200, (R2)
MOVB

043330

PC,PUT

SEQ 0099

JWRITE

CHECK DATA DATA (OMMAND

;LOAD PUT REGISTER INDEX TABLF

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

915 016272
016276
016300
016302
016304

000137

016630

016310

004737

042774

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE

004737

043672

JWAIT FCR COMMAND TO COMPLETE
PC,TIMOUT
JSR

004737
000404
000240

043060

000137

016630

004737
000405
000240

044056

916 016310
917
918

919
920

016314
921
922
923 016320

016324

016326

016330

016332
924 016336
925
926
927 016336
016342
016344

016346
016350
016352
Q28 16356
929 016356
930 016364
931 016366

016372
016374
016376

932
933
934
935

0
0
0
0

937 0164

938 016447

104000

20%:

032737
001030
004737
000405
000240

013737
052737
013737
010337
012737
104337

25%

PC,PRIERR

056572

BIT
BNE
JSR

AWCE ,RMCS2I
24%

016630

JSR
JMP

PC,a(SP)+

016630

001346
040000
001346
001174

107440

JRETURN HERE

ERROR

;JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 29% IF ERROR

;GO TO TIMOUT SUBROUTINE

;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION
JSR
BR
NOP
EMT
JSR
JMP

040000

;GO TO 20% IF NO ERROR

21s:

001346

22%:

BR
NOP
EMT

104000

004736
000137

20%

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
21$
;GO TO 21$ IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
29%
;GO TO 29% IF ERROR

104000

004736
000137

JSR
BR
NOP
EMT
JMP

001140
001140
001142

001176

23%:

MoV

BIS

MoV
MOV
MOV

EMT

22%

PC,a(SP)+

29%

PC_,DTASTS

23%

29%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 228 IF NO ERROR
JRETURN HERE

ERROR

;ERPOR # DEFINED BY PRIERR SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

;Uég':UCE” DETECTED??
JYES!!

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 23% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GG BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

RMCS21,$GDDAT

JEXPECTED STATUS

RMCS2I,$BDDAT
R3,.$TMPO
#BUF TWO~2, $TMP1
337

JRECEIVED STATUS
JFAILING BIT PGSITION
;FAILING ADDRESS

#WCE
, $GDDAT

S;RMOBO RMO5/3/72 FCINL TST 3
MACRO v04.00
WRITE, WRITE (HECK ONES W/ W(E ERROR

gzg 016444
961 016446

942 016446
016454

00047

112737
112737

000022
000200

004737

063060

C16462

012737

016474

0004602

016470

016476
%3 016500
944 N16502

945 016502

946 016510
947 016516
948 016522
949 016530
950 016536
951 016544
952 $16552
953 016554
954 016556
955 016560
956 016566
957 016570
958 016572
328 016574

016630

013737

013737
050337
012737
013737
162737
023737
001402
104340
000424
(23737
001402
104341
000416

001360

107440
001140
107440
001342
000002
001134

001140

004736
000137

016630

050337

107440

ggg 016630

001360

MOVB
MovB

A#RMDB, GE T INX
#200,GETINX+1

;SETUP GET INDEX TABLE
;SETUP TERMINATOR BYTE

JSR

PC,GET

;GO READ RMDB VIA GET SUBROUTINE

#29% ,R’MDB,

001142

25%:

001140
001134
0071136
001136
001136

001142

26%:

044710

000240
104000

006303
001402
000137

29%

MOV

27%:

016606
016610
962 016614

964 016620
965 016622
966 016624

24%:

016200

29%:

969

MCV

RMDB]I ,$BDDAT

016640
016644
970 016650

001100

001276
001466
000010

001226

PC,SECERR
28%

;GO CHECK FOR SECONDARY ERRORS
;GO TO 28% IF NO ERROR

JSR
JMP

PC,a(SP)+
29%

;GO BACK FOR MORE ERROR (HECKS
;G0 TO 29% IF ERROR

BIS

R3,BUF TWO=-2

ASL
BEQ
JMP

JEXPECTED DATA
JEXPECTED ADDRESS
JRECEIVED ADDRESS
;CORRECT MEMORY ADDRESS
;ADDRESSES 0K??
JYES!!

;DATA 0K??
;YES!.

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE

;RESTORE DATA PATTERN

R3
29%
17%
AR AR

SCOPE
NOP
MOV
MOV
MOV
MOV

A AR

JSHIFT TO NEXT BIT
;EXIT IF DONE
;REPEAT TEST FOR NEXT DATA BIT
RN AR

R RN R AR AR AR R RARANRRAARRRN RN G R A%

WRITE, WRITE CHECK MULTIPLE SECTORS
AR

AR AR

#STACK ,SP

A AR AR AR R

$BASE ,RO
TSTQUE ,R1
#10,8TESTN

371

AR AN AR A AR AN

g;%

LOOP #1

974 016656

1$:

975

JRECEIVED DATA

JSR
BR

AR AR AR AN

000004
000240
012706
013700
013701
012737

JRETURN HERE IF ERROR
;ERROR DEFINED BY GET SUBROUTINE

BUF TWO-2 ,$GDDAT
R3,$GDDAT
#8UF TWO-2, $GDADR
RMBA] , $8DADR
#2,$BDADR
$GDADR, $BDADR
26%
340
29%
SGDDAT,$BDDAT
27%
341
29%

J«TEST 10

TST10:

;GO TO 25% IF NO ERROR

MOV
BlS
MOV
MOV
SuB
CMP
BEQ
EMT
BR
CMP
BEQ
EMT
B8R

AR AR

016630
016630
016632
016634

;SET RMDB INPUT BUFFER = 29%

25%

NOP
EMT

28%:

SEQ 0100

NOP
EMT

004737
000405

963 016614

001524
001525

000240
104000

961 016574
016600
016602
016604

J
8
4-APR-81 01:15:59 PAGE 13-29

I AR

AR AR KRR R

AR AR AR RRERRR XA AR

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
RO = UNJBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;:SET TEST NUMBER IN APT MAIL 80X

AR AR R AR

R R RRRARNRARNR A RN R ANR

FORMAT ,WRITE,WRITE CHECK

N AN

MACRO V04.00
CZRMOBO RMOS5/3/2 FCINL TST 3
1o
WRITE, WRITE CHECK MULTIFLE SECTORS
976
977 016656

016662

016664
016666
016670
016672
g;g 016676

004737

154130

017634

980
981 016676

012737

000000

983 (16712

012737

106436

982 016704

984 016720

985 016726
ggg 016734
988

016742
016746
016750
016754
016756
989 016762
990 016762
991 016770
gg% 016776
994

995 017002
996 017006
997 017012
998 017016
999 017022
1000 017026
1001 017032

1002 017036
1003 017042
1004
1005

1006 017042
017046
017050
017052

017054

;88; 017060
1009
1010

017060

012737

176774

001414

004737
000405
104401
104000
000137

060242

012737

072060

004737

042174

012702
112722
112722
112722
112722
112722
112722
112712

004737
000404
000240
104000

001446

001420

010000
000063

012737

2%:

000000

012737
012737

001416

000200

043330

000137

017634

004737

042774

.WORD

154130

BR
NOP
EMT
JMP

24%

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
OR "PIP'" IS SET
JRECALIBRATE IF ''SKI'*
;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 24$ IF ERROR

#0,RMDAO

;TRACK = 0, SECTOR - 0

MoV

#-258. %2, RMWCO

;WORD COUNT FOR 2 SECTORS (2'S (OMP;

MOV
MOV

#BUF ONE ,RMBAO

H#FMT16,RMOFO
A#WH'!GO,RMCS10

. VERIFY THAT SECTOR IS NOT BAD

001174

s TASK DESCRIPTOR AS FOLI OWS:

MOV

MoV

001444
001412

017634

001553
000034
000006
000004
000002
000032
000000

SEQ 0101

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
sCYLINDER = 0

070426

000001

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE fOR TEST

(37316

000404
000240
104000
000137

4~APR-81 01:15:59 PAGE 13-30

3s:

001176

;BUS ADDRESS

;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JSR
BR
TYPE
EMT
JMP

PC.BADSCT
3%
.SCTMSG

MoV

#ZERQS , $TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC,GENBUF

;GO GENERATE BUFFER FOR FORMAT

MOV

24%
#1,8TMPT

;CALL BAD SECTOR MODULE
;GO TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 24% IF ERROR
;RANGE OF PATTERN

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT QPERATIION

MOV
MOVB
MovB
MovBe
MOVB
Mov8s
MOVB

4%:

MovB

#PUT INX ,R2
#RMDC
, (R2) +
HRMDA, (R2) +
#RMBA, (R2) +
HRMWC, (R2) +
ARMOF
, (R2) +
H#RMCST, (R2)+
#200 (R2)

;FORMAT THE DRIVE

5%:

JSR
BR
NOP
EMT
JMP

PC.PUT
5%

24%

JRZ = BYTE ENTRY POSITION

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO _TO 5% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 24% IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC,GETSTS

;GO TO GETSTS SUBROUTINE

CZRMOBO RMOS/3/72 FCINL TIST 3

110

MACRO v04.00

WRITE, WRITE CHECK MULTIPLE

101?

017064

1012
1013
1014 017070

017074
017076
017100
017102
017106

004737

043672

004737
000404
000240

043060

000137

017634

004737
000405
000240

056572

104000

SECTORS

JWAIT FOR COMMAND

JSR

017172
017176

;GO TO TIMOUT SUBRCUTINE

6%:

:VERIFY NO ERRORS DURING FORMAT
JSR

B8R

NOP
EMT

JSR
JMP

PC.DTASTS

7¢

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 7% IF NO ERROR
;RETURN HERE IF ERROR

PC.A(SP)+
24$

;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 248 IF ERROR

JERROR # DEFINED BY DTASTS SUBROUT INE

004736
000137

017634

012737

017200

001124

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#8$ . $LPERR

012737
012737
012737
012737
012737
004737

177000
106436
000060
072016
000001
042174

001414
001416
001412
001174
001176

:REGENERATE DATA BUFFER
MOV
#=-256.*2 ,RMWCO
MOV
ARUF
ONE , RMBAO
MOV
#JD ,RMCS10
MOV
HONES
, $TMPO
MOV
#1,$TMP1

000410

7%:

JSR

B8R
(R

; CHANGE WORD COUNT
; CHANGE BUS ADDRESS
;WRITE DATA

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

PC . GENBUF

232233233323 22¢2224280202RR

;SKIP TO WRITE OPERATION
220202

WRITE.WRITE CHECK

‘LooP #2

2RRtRdt

Rttt

8%:

017200

017200
017204

TO COMPLETE

PC, TIMOUT

:GO READ STATUS FOR FORMAT OPERAT]ON
PC,GET
JSR
;GO READ REGISTER(S) WIThH GET SUBROUTINE
BR
6$
;GO TO 68 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
248
;GO TO 24% IF ERROR

104000

017134
017142
017150
017156
017164

.8
L
4-APR-81 01:15:59 PAGE 13-31

004737
154130

_PREPARE DEVICE FOR WRITE OPERATION

037316

JSR

LWORD

PC, TSTPRP

154170

;PREPARE DEVICE FOR TEST
+TASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

* 'PIP'' IS SET
;RECALIBRATE IF °*'SKI'OR

000404
000240
104000

000137

017220
017220

B8R

EMT
JMP

NOP

017634

9%:

JVERIFY RECALIBRATION
;GO _TO 9% IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 24$% [F ERROR

%32115 DATA TO THE DRIVE

012737

000061

001412

Mov

#WD ! GO,RMCS10

;JWRITE DATA COMMAND

MACRO Vv04.00
4 R MOBO RMOS/3/¢ FCINL TST 3
M0
WRITE, WRITE CHECK MULTIPLE SECTORS

001553

1046 017226

1047 017232

000006
000034
000032
000004
000002
000009
000200

1048 017236
1049 017242

1050 017246
1051 017252
1052 017256
1053 017262
1054
1055 017266

017272
017274
017276
017300
1056 017304

1057
1058

1059
1060

MOV
MovB
MOVB
mMovB

#PUT INX ,R2
#RMDA, (R2) +

MOVB

#RMWC, (R2) +
#RMCST, (R2) +

MOVB

JSR
BR
NOP

043330

4-APR-81 01:15:59 PAGE 13-32

EMT
JMP

SEQ 0103

;LOAD PUT REGISTER INDEX TABLE

#RMD(C, (R2) +
#RMOF
, (R2) +
HRMBA, (R2) +
#200, (R2)+
PC,PUT
11%

s TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 118 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 248% IF ERROR

000137

017634

017304

004737

042774

017310

004737

043672

004737
000404
000240

043060

000137

017634

;GO READ STATUS FOR WRITE COMMAND
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
12%
;GO TO 128 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
24%
;GO TO 24% IF ERROR

004737
000405
000240
104000
004736
000137

044056

;CHECK FOR ERRORS DURING WRITE OPERATION
PC.PRIERR
JSR
;GO CHECK FOR PRiMARY ERRORS

004737
000405
000240
104000
004736
000137

056572

004737
000405
000240

044710

1061
1062
1063 017314

017320
017322
017324
017326

1064 017332

104000

11%:

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

017336
017340
017342
017344
017346
1068 017352

1069 017352

017356
017360
C17362
017364
017366
1070 017372
1071 017372
017376
17400
017402
017404

JSR

017406
1072 017412

1073
1074
1075 017412
1076 017420
1077

012737
000410

;GO TO TIMOUT SUBROUTINE

B8R

13%

;GO TO 13% IF NO ERROR

JSR
JMP

PC,a(SP)+
243

;GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

NOP
FMT

017634

13%:

NOP
EMT

017634

14%:

PC,a3(SP)+
24%

JSR

PC,SECERR

EMT
JSR

017634

15%:

001124

14%

JSR
JMP

NOP

017422

PC, TIMOUT

;60 TO GETSTS SUBROUTINE

12%:

104000

004736
000137

PC,GETSTS

:WAIT FOR COMMAND TC COMPLETE

1065

1066
1067 017332

24%

JMP

15%

PC,a(SP)+

24%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SU3ROUTINE

;GO TO 24% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 148 IF NO ERROR

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

;GO TO 24% IF ERROR

;GO0 CHECK FOR SECONDARY ERRORS

;GO _TO 15% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 248 IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#16%,8LPERR
17%

;SKIP TO NEXT OPERATION

4 RMOBO RMOS5/3/2 FCINL

TST 3

MACRO V04.00 &-APR-81 01:15:59 PAGE 1%-33
N

SEQ 0104

WRITE, WRITE CHECK MULTIPLE SECTORS

1078
1079
1080
1081 017422
1082
1083
1084 017422

017426

2322223322324

‘LooP #3

323232232222202

WRITE CHECK

¢8230282222

2222222222

RR2R

16%:

004737
154130

:PREPARE DEVICE

037316

JSR
JWORD

FOR READ OPERATION

PC,TSTPRP
154130

sPREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

OR 'PIP'* IS SET
JRECALIBRATE IF ''SKI''
017430
017432
017434
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098

017436

C17442

000137

So00
Lod®

P
Y
[ YR
Y
oo
d b

— b
d

17%:

JMP

;VERIFY RECALIBRATION

;GO 10 17% IF NO ERRCR

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

;GO TO 24% IF ERROR

%ggAD DATA FROM DEVICE

000051

001553
000006
000032
000034

017464
017470
017474

001412

017504

004737
000404
000240
104000
000137

043330

C17526

004737

042774

017532

004737

043672

017536
017542
017544
017546

004737
000404
000240

043060

017550
017554

000137

017634

017554
017560

004737
000405

044056

104000

mov

MOV

MOVB

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000004
000002
000000
000200

017500

017514
017516
017520
017522
017526

17%

NOP
EMT

017634

JSR

B8R

NOP

017634

—
—

BN
=
008
Q&3 o0

104000

017442
017442
017450
017454
017460

1099 017510

— e md
—t
d md

000404
000240

19%:

EMT
JMP

AICD
! GO, RMCS10
#PUT
INX .R2

#RMDA, (R2)+

;READ DATA COMMAND
.LOAD PUT REGISTER INDEX TABLE

#RMOF
. (R2)+
ARMDC . (R2)+
#RMBA. (R2)+
ARMWC. (R2)+
ARMCST, (R2)+
4200, (R2)
PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

248

;JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;GO TO 24% IF ERROR

198

;GO TO 198 IF NO ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
208
;GO TO 20% IF NO ERROR
B8R
NOP
EMT

20%:

JMP

;JRETURN HERE

24%

ERROR

JERROR # DEFINED BY GET SUBROUTINE
;GO TO 24% IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
PC.PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
21%
;GO TO 21$ IF NO ERROR

WRITE, WRITE

bey

(V1,V)

—
d

—_—

017562

s
—

—

_a
-~

OV~

3t
o

N SN
OO

NOP
EMT

017574
017600

Q04737
000405

056572

0176064
017606
8};21‘0.

104000
004736
000137

017634

017614

004737

044770

017622
0176246

000240
104000

017626
017630

017634

000405

004736
(000137

228

) =
el
D el
—

[ASLACT
N 1,0 1,871,573, V1,81
00 ~NO NI () —

d
e
e el e
el

EMT
JSR
JMP

PC,(SP)+
24%

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 24% IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

23%

PC,.a3(SP)+
24%

000004
000240
012706

013700
013701
012737

WRITE,

R AR AR R AR SRR AR AR

TST11:

001100

001276
001466
000011

SCOPE
NOP
MOV

MOV
MOV
mMov

JRETURN HERE IF ERROR

;GO TO 23% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE

;GC BACK FOR MORE ERROR (HEC(CKS
;GO TC 24$8 IF ERROR

READ W/ IMPLIED SEEK

#STACK ,SP
$BASE ,RO
TSTQUE R
#11,8TESIN

017662

AR AR N AN O AR

AAA TR AN

:SCOPE CALL
;START OF TEST
SINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;{(R1) = DEVICE BEING TESTED
;sSET TEST NUMBER IN APT MAIL BOX
T

FORMAT ,WRITE ,READ

;LOOP #1

1%:

017662
017666

004737
154130

017670
017672
017674

000404
000240
1046000

017702
017702
017710

.GO TO 248 If ERROR

AN TN R R AN AR AR NN AR AR AN N

017676

;GO BACK FOR MORE ERROR (HECKS

L T
T TP T e

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 22% IF NO ERROR

JSR
JMP

J*«TEST

017644
017650
017654

PC,DTASTS
22%

268

24%:

017634

017634
017634
017636
017640

JSR
BR
NOP

NOP
EMT

23%:

JRETURN MERE IF ERR(R
;ERROR # DEFINED BY m"ITRR SUBROUTINE

PC,3(SP)e

B8R

0°7634

SEQ 0105

JSR

JMP

000240

S P
S

000240
104000

017634

&-APR-81 01:15:59 PAGE 13-34

(HECK MULTIPLE SECTORS

000137

MACRO v04.00

004736

8;;2;2

017627

[

TST

017564
017566

017602

—

RM0S5/3/2 FCINL

000137

;PREPARE

037316

021054

000000
000000

PC, TSTPRP
154130

BR
NOP
EMT

;SELECT DEVICE € VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF *'SKI'° OR "PIP'" IS SET
JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

;GO TO 318 IF ERROR

Jmp

012737
012737

THE DEVICE FOR FORMAT OPERATION

JSR
-WORD

001446
001420

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

JRETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:
MOv
#0,RMDCO
JCYLINDER = 0
MOV
#0,RMDAQ
JTRACK = O, SECTOR = 0

MACRO vC4.00

113 017716

013737

0014646

021056

MOV

RMD(CO, 32%

1136 (17732

012737

177376

001414

MOV

#=~258. ,RMWCO

}}%g 017746

012737

-0

-4

MOBO RMOS5/3/2 FCINL TST 3
WRITE, READ W/

1135 017724

1137 017740

012737

IMPL]ED SEEK
106426

012737

0370000

017754

004737

040242

017762
017766
017770

1064401
106000
000137

070426

1142 017774

012737

(072016

;}Zé 020010

CO4737

042174

1140

01720

1141

017774

1143 020002

1146

1147
1148
1149
1150
1151
115¢
11583
1154

000405

012737

000063

020014
C2N020
020024
020030
C20034
120040
320044
020050

012702
112722
112722
112722
112722
112722
112722
112712

001553
000034
000006
000004
000002
000032
000000
000200

1158 020054

004737

043330

020062
020064
020066
?}28 020072

000240
104000
000137

1155 020054
1156
1157

020060

1161

1162 020072

000404

021054

004737

042774

1164 020076

004737

043672

1165
1166 020102

004737

043060

1163

020106
020110
020112

020114

000404
000240
104000
000137

1170 020120

004737

;}gg 020120
1169

020124

020126
020130
02C132
020134

000405
000240
104000
004736
000137

001416

MOV

001444

MOV

0014612

MOv

001174

001176

058572

021054

;16 BIT FORMAT

#WH !GO ,RM(S10D

:FORMAT

;WRITE HEADER AND DATA (OMMAND

TYPE
cT
JMP

,SLTMSG

;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 31% IF ERROR

31s

;GO TO 3% IF NO ERROR

MOV

#ONES ,$TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC.,GENBUF

;GO GENFRATE BUFFER FOR FORMAT

MoV
MOVB
MOVB
MOVB
MOVB
MovB
MOVB
MOVB

#1,8TMP1

#PUTINX R
#RMDC, (R2)+
#RMDA, (R2) +
#RMBA, (R2) +
A#RMU(
, (R2) +
#RMOF
, (R2) +
#RMCS1,(R2)+
#200, (R2)

THE DRIVE

JSR

B8R

5%:

;2 + 256. WORDS (2'S COMP)

;CALL BAD SFCTOR MODULE

;LOAD PUT REGISTER INDEX TABLE

NOP
EMT
JMP

JRANGE OF

PATTERN

FOR FORMAT OPERATIION

:R2 = BYTE ENTRY POSITION

:TERMINATE TABLE

P(C,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINC

31s

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 318 IF ERROR

;GO TO 5% IF NO ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;60 TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
: 60 READ REGISTER(S) WITH GET SUBROUTINE

0210354

#FMT16,RMOF O

PC ,BADSCT

MoV

(%:

:SAVE DESIRED (YL INDER

;BUS ADDRESS

JSR

B8R

SEQ 0106

#BUF ONE ,RMBAQ

:VERIFY THAT SECTOR IS NOT BAD

02105
0000017

4-APR-B1 (1:15:59 PAGE 13-35

6$:

B8R
NOP
EMT
JMP

318

;VERIFY NO ERRORS DURING FORMAT

JSR

B8R
NOP
EMT
JSR
JMP

;G0 TO 6% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GETM SUBROUTINE
;GO TO 31% IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+
31%

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 31% IF ERROR

;GO TO 7% IF NO ERROR

=~
-

—~

MOBO RMO5/3/2 FCINL TIST 3

MACRO v04.00

WRITE, READ w/ [MPLIED SEEK

;?;5 020140
1173
1176 020140

}};5 020146

1179

020154

SEQ 0107

7%:
012737

000410

020150

001124

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#8% SLPERR

;SKIP TO WRITE OPERATION

.‘.'.tt.ttttt‘.tttlit.t""i'tttttt'ittfitt"fitttfittfi't.tfitt'.t'ttt'

1178
1179
}}g? 020150
1182
1183 020150

4-APR-B1 01:15:59 PAGE “3-36

:LOCP #2

WRITE ,READ

8%:
004737

154130

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

037376

.WORD

154130

s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI'' CR "PIP'* IS SET

020156

000404

020164

020160
020162

000240
104000

1784 020170
1185 020170

000137

021054

012737

001466

1188 020204

004737

043330

020212
020214

000240
104000

;}gg 020176
020210

020216
};gg 020222
119

1192 020222

1193

19 020226

1195

1196 020232

020236
020240
020242
020244

;;gg 020250
1199

1200 020250

020254
020256
020260
20262
020264

012737
000404

000005

000137

021054

004737

042774

004737

043672

004737

043060

000404
000240
104000
000137

004737

000405
000240
104000
004736
000137

021054

051174

021054

JMP

31%

MOV

#822. ,RMDCO

JSR

PC,PUT

NOP
EMT

00°446

9%:

001437

MoV
BR

NOP
EMT

10%:

;VERIFY RECALIBRATION

EBR

JMP

;GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 31$ IF ERROR

HSEEK!GO,RM(CS10

;GO _TO 108 IF NO ERROR

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

31%

;GO TO 318 IF ERROR
TO READ ALL REGISTERS

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;GO GET REGISTER STATUS

JSR

11%:

BR
NOP
EMT
JMP

PC,GET

11%

31%

JVERIFY RESULTS OF

JSR

BR
NOP
EMT
JSR
JMP

sWRITE SEEK COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

10%

;SETUP GET INDEX TABLE

JSR

;SEEK TO LAST CYLINDER

SEEK COMMAND

PC,SEKSTS

12%

PC,a(SP)+
318

;G0 TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 11$ IF NO ERROR
RETURN HERE IF ERROR
JERKOR # DEFINED BY GET SUBROUTINE
;GO TO 318 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

;GO TO 12% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 31$ IF ERROR

MACRO v04.00
WRITE, READ W/ IMPLJED SEEK

’ZRM(BO RM0OS5/3/72 FCTINL
1201

1202

——ded
Db B

OO
N W —O

S
S
N
[

1223
1224 020402
020406

020410
020412
020414
1225 020420

1226
1227
1228 020420

020424
020426
020430
020432
20434
020440
020440
020444
020446
020450
020452
020454
020460
020460
020464
020466
020470
020472

020474
1233 020500

SEQ 0108

%§ETUP PARAMETERS AND EXCUTE WRITE DATA (OMMAND

020270
020276
020304
020312
020320
020324
020330
020334
020340
020344
020350
020354

020360
020364
020366
020370
020372
1219 020376
1220
1221
020376
1222

9
E
4-APR-81 01:15:59 PAGE '3-37

12%:

020279

1203
1204 020270

[aSTANTANIVTAN
] V1,081,801 ,§]

TST 3

021056
177400
106442

000061
001553
000006
000034
000032
000004
000002
000000
000200

001446
001414
001416
001412

043330
104000

000137

021054

004737

043672

004737
000404
000240

043060

000137

021054

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240

056572

104000

004737
000405
000240
104000

004736
000137

328 ,RMDCO
#-256. ,RMW(CO
#BUF ONE +4 ,RMBAD
#4D ! GO,RM(S10
#PUTINX
R2

JSR

PC,PUT

B8R

NOP
EMT

14%:

JMP

JSR

B8R

15%:

EMY
JMP

JSR

B8R

02105¢

:LOAD PUT REGISTER INDEX TABLE

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 14% IF NO ERROK
JRETURN HERE IF ERROR
;JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 318 IF ERROR

;GO TO TIMOUT SUBROUTINE

15%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 15% IF NG ERROR

31s

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 31% IF ERROR

PC,GET

JRETURN HERE

ERROR

16%:

;GO CHECK FOR PRIMARY ERRORS

;GO TO 168 IF NO ERROR
;JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

. GO BACK FOR MORE ERROR CHE(KS

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 178 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

17%

EMT
JSR
JMP

PC,a(SP)+
31%

JSR
BR

PC,SECERR
18%

NOP
EMT
JSR

'8%:

16%

PC,a(SP)+
31%

B8R

17%:

PC,PRIERR

JSR
JMP

NOP

044710

318

WRITE DATA COMMAND

:CHECK FOR ERRORS DURING WRITE OPERATION
NOP
EMT

021054

148

;RESTORE CYLINDER
: CHANGE WORD COUNT
; CHANGE BUS ADDRESS

;GO READ STATUS FOR WRITE COMMAND
NOP

021054

#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
#RMBA, (R2)
+
#RMIC
, (R2)+
#RMCST, (R2)+
#200, (R2)+

JWAIT FOR COMMAND TO (OMPLETE
PC,TIMOUT
4SR

104000

004736
000137

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

JMP

PC,a(SP)+

31¢

;GO TO 318 IF ERROR

;GO BACK FOR MORE ERROR (HECKS

;GO TO 318 IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 188 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:GO TO 31$ IF ERROR

—‘3
b od = —d

P
-fl<><fig\fi¢uflfl

MACRO v04.00
IMPLIED SEEK

ST 3

01273%7

000410

020510

C0112¢4

4-~APR-81 01:15-59 PAGE 13-38

SEQ 0109

;CHANGE LOOP ADDRESSES
MOV

BR
A

#4198, SLPERR

20%

4321222222222

‘{ooP #3

RdRRRid0siR

;SKIP TO NEXT QOPERATION
RS2

READ

nony

020500
020506

19%:

020510
020510
020514

00473%7
154130

;PREPARE

037316

DEVICE

JSR

.WORD

FOR READ OPERATION

PC,TSTPRP

154130

JPREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

OR 'PIP'* IS SET
JRECALIBRATE [F ''SKI''

020516
020520
020522
020524
1246 020530
1247 020530
1248 020536
1249
1250 020544

020550
020552
020554
020556
020562

000404
000240

104000

000137

021054

012737
012737

001466
000005

004737

043330

000404
000240

104000

020562

004737

042774

020566

004737

043672

1258 020572

004737
000404
000240

043060

000137

021054

004737
000405
000240

051174

ony o rorg

VIV IRV
IV,
VIS
WD
-

021054

—t
nd

000137

—_—

—ry

RMOS/3/72 FCINL
WwRITE, READ W/

1256
1257

020576
020600
020602
020604
1259 020610

1260
1261

1262 020610
020614
020616
020620
020622
020624
1263 020630

104000

20%

;VERIFY RECALIBRATION
;GO 10 208 IF NO ERROR

JMP

318

;GO TO 318 IF ERROR

MOV
MOV

#822. ,RMDCO
#SEEK !GO,RMCS10

JSR
8R

PC,PUT
218

;60 WRITE REGISTER(S) WITH ©UT SUBROUTINE
;GO TO 2'$ IF NO ERROR

JMP

31%

;G0 TO 318 IF ERROR

NOP
EMT

001446
001412

20%:

NOP
EMT

21s:

;RETURN HERE IF ERROR
;JERROR # DEF INED BY TSTPRP SUBROUTINE

sRETU
TM HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE

JSR

PC.TIMOUT

;G0 GET REGISTER STATUS
JSR
PC,GET
BR
22%

22%:

EMT
JMP

SJRETURN HERE If ERROR

SJERROR # DEF INED BY GET SUBROUTINE
;GO TO 31% IF ERROR

3's

238

EMT
JSR

PC,a(SP)+

23%:

JMP

318

;GO TO TIMOUT SUBROUTINL

;GO TO 228 IF NO ERROR

IVERIFY RESUTS OF SEEK (OMMAND
JSR
PC,SEKSTS
NOP

;GO TO GETSTS SUBROUTINE

;G0 READ REGISTER(S) WITH GET SUBROUT INE

NOP

021054

;SEEK TO LAST CYLINDER
JWRITE SEEK COMMAND

;JSETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

‘

;GC VERIFY RESULTS OF SEEK OPERATION
;GU TO 23% IF NO ERROR

sJFETURN HERE

IF ERROR

JYRROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO 10 31% IF ERROR

MACRO v04.00
WRITE, READ w/ iMPLIED SEEK

YWY, S
Nelo NT NV P

NN NN NNN NN

LASLAVIaN
1 V1oV 1,8 1,01,871,§)

RMOS/3/2 FCTINL

1281
1282

021056
000071

107446

001553
000006
000032
000034
000004

000137

021054

1285 020734

004737
000404
000240

043060

000137

921054

0047%7
000405
000240

044056

020756
020760
020762
020764
020766
1290 020772
1291 020772
020776
021000
021002
021004
021006
1292 021012
1293 021012
021016
021020
021022
021024
021026
1294 021032
1395
021032
027036

#RD !GO,RM(S10
#BUF TWO+4 ,RMBAD
HPUT INX ,R2
HRMDA, (R2) +
HRMOF
, (R2) +
H#RMDC, (R2) +
#RMBA
, (R2) +
HRMWC, (R2) +

JSR

PC,PUT

B8R

NOP
EMT

JMP

(OMMAND

32%.,RMDCO

MOV
MOV
MOV
MovB
MOVB
MOVB
Move
MOVB

MOVB
MovB

558

READ DATA

SEQ 0110

JRESTORE CYLINDER

JREAD DATA COMMAND
JLOAD STARTING BUFFER ADDRESS
JLOAD PUT REGISTER INDEX TABLE

HRMCST, (R2)+
#4200, (R2)

25%

31s

;GO WRITE REGISTER(S) WITH PUT

;G0 TO 25% IF NO ERROR

SUBROUT INE

JRETURN HERE IF ERROR
;ERRCR # DEFINED BY PUT SUBROUTINE

;GO TO 31% IF ERROR

2%%:

043672

1287
1288
1289 020752

001416

043330

004737

020740
020742
020744
020746
1286 020752

MOV

Q01446
001412

000002
000000
000200

020730

1283
1284

G 9
&-APR-B1 01:15:59 PAGE 13-39

éngUP PARAME TERS AND EXCUTE

020630
020630
020636
020644
020652
020656
020662
020666
020672
020676
020702
020706

020712
020716
020720
020722
020724
1280 020730

181 3

104000

JWAIT

JSR

NOP
EMT

26%:

004737
000405
000240

JSR

004737
000405
000240

042432

106442

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 31$ IF ERROR

PC,PRIERR

27’$

;GO CHECK FOR PRIMARY ERRORS

;GO TO 27% IF NO ERROR
JRETURN HERE

[F ERROR

JSR
BR

PC,DTASTS
28%

;G0 VERIFY RESULTS OF DATA TRANSFER
;GO TO 28% IF NG ERROR

-8%

JSR
JMP

PC,a(SP)+
31%

;GO BACK FOR MORE ERROR (HETKS
;GO TO 31% [F ERROR

JSR

PC,SECERR

508

BR
NOP
EMT
JSR
JMP

104000

004737

WITH GET SUBROUTINE

;GO TO 268 IF NO ERROR

PC,a(SP)+

278

044710

021054

31s

;GO READ REGISTER(S)

JERROR # DEFINED BY PRIERR SJUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JMP

NOF
EMT

004736
000137

26$

EMT
JSR

056572

021054

PC,GET

;CHECK FOR ERRORS DURING READ OPERATION

104000

004730
000137

JMP

NOP

021054

;GC TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION

104000

004736
000137

FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

JSR
.WORD

318

29%

;GO TO 318 IF ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

;GO CHECK FOR SECONDARY ERRORS

P(, a(SP)+
31%

;GO TO 298 IF NO ERROR
;JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 318 IF ERROR

PC.CMPBUf
+4
BUFONE

;GO COMPARE WRITE, READ DATA BUFFERS
JSTARTING ADDRESS OF WRITE BUFFER

[

021040
221042
021044
021046
021050
1296 021054

1297
1298 021054

021054

1300
1301 021056

1302

H
9
&-APR-81 01:15:59 PAGE 13-40

107446

000404
000240

104000

000137

021054

30%:
31%:

000401

. WORD
BR
NOP
tEM7
JMP

BUF TWO+4

33%

-WORD

32%:

000000

SEQ 0111
; STARTING ADDRESS OF

30%

:G0 TO 308 IF NO ERROR

31%

;GO TO 31$ IF ERROR

READ BUFFER

JRETURN HERE IF FRROR
SJERROR # DEFINED BY (MPBUF SUBROUT INE

33%:

1303 021060

1304
1305

':tltttfitttittitttttt"tit'**fi‘*tt*itfiiitt*tt'fittttittt&ttttttfiit

S*TEST 12

WRITE, WRITE

CHECK W/ HEAD SWITCHING

’:!.Qtttttttttttt‘iit't""i**t*t!'**tt*tttt*kttttttttttfitttttttt

021060
021060
621062
021064
021070
021074
021100

000004
000240
012706
013700
013701
012737

187T12:
001100
001276
001466
000012

SCOPE
NOP

MOV
MOV
MOV
MOV

001226

;SCOPE CALL
#STACK,SP

$8ASE RO

TSTQUE ,R]
#12,8TESTN

;START OF

TEST

JINITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MAIL BOX

;;tt*tt*tt*t**ttkt~tt*ti*tttttfi**ttttt*fit*ttt**ittttfitttt*ttiittt

FORMAT ,WRITE ,WRITE CHECK

;LOAD PARAMETERS AND GENERATE DATA BUFFER

oo
SNNNNNNYN

021105
021706
rZ1114
021122
021130
021136
021144
021152

[elelelel
t Jo

OVONR
NN AN =O

LS L LY
NN LSS
O 00 NN
AN -

a
—D
D
ek
d
d
e
D

AN NN AN NN L SN AN
N)md
od Db —d Db
=P s —D

b
d
wid
D vt
) il

NN N N LN N AN AN N

.LOOP 4]

~
—

MACRO v04.00
RMOS/3/2 FCINL 1sT 3
WRITE, READ W/ IMPLIED SEEK

000000
000000

021160
021164
021166
021172
021174
021200
021200
021206
021210
021216
021224

004737
000405

040242

021230
021234

004737

1
1
1
1

37
37
37
37

37
37

000037
010000
106436
176774

000063

001446
001421
001420
001444
001416
001414
001412

000137

022266

123727

001420

000037

072016
000001
042174

001174
001176

154130

#0,RMDCO
#0 ,RMDAC+1

JCYLINDER = 0
;TRACK
0

MOV

#FMT16 ,RMOFO

;16 BIT FORMAT

MOVR
MOV

MOV

[ [0)%

#31. ,RMDAOD

3%:

;BUS ADDRLSS

#-258.+2 ,RMWCO

;WORD COUNT FOR 2 SECTORS (2'S (OMP)

#WH'!GO,RMCS10
PC,BADSCT

TYPE

.SCTMSG

;WRITE HEADER AND DATA (OMMAND
;CALL BAD SECTOR MODULE

;GO TO 38 IF NO ERROR

EMT
JMP

30%

JERROR # DEFINED BY BADSCT SUBROUTINE
;GC TO 308 IF ERROR

CMPB

RMDAOQ, #31.

BNE
Mov
MOV
JSR
;PREPARE

;SECTOR = 31.

#BUF ONE ,RMBAOD

JSR

070426

037316

2%:

MoV
MOVB

SVERIFY THAT SECTOR IS NOT BAD

104401
104000

001345
012737
012737
004737

1%:

;1S LAST TRACK ASSIGNED ?

2%
HONES , $TMPO
#1,8TMP1
PC,GENBUF

THE DEVICE

JSR
LWCRD

:TYPE BAD SECTOR MESSAGE

:BR IF NO
;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

FOR FORMAT OPERATION

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR (ONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

MACRO v04.00
“IRMOBO RMOS/3/72 F( TNL 1 ST 3
T2
WRITE, WRITE
C CHECK W/ HEAD SWITCHING
ITE

9
I
4-APR-81 01:15:59 PAGE 13-41

SEQ 01172

sPACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

NOT

VALID

JRECALIBRATE IF "'SKI'* OR ‘PIP'' IS SET
021236
021240
021242
021266

000404
000240
106000

000137

022266

1333 021250

012702

001553

112722

000006

MOVB

112722

000032

MOVB

1330 021250
1332

1334 021054

1335 021260

112722

1336 021264
1337 021270

112722
112722

1336 021300

112722

1338 021274
1340 021304

112712

1342
1343 021310

Q04737

021316
021320

000240
104000

021314

621322

000404

004737

043672

1350
1351 021336

004737

043060

021344
021346

000240
104000

021342

021350

000404

000137

022266

1354
1355 021354

004737

056572

021362
021364
021366

(00240
104000
004736

1352 021354

MOvB

MOVB
:FORMAT

043330

134 021332

1348

MOVB
MOVB

000200

042774

1347 021326

MOVB

000000

004737

1346

5%
:

021370
1356 021374
1358

1359 021374

1361

1362 021402
1363 021410

000405

#PUT INX ,R2

:R2 - BYTE ENTRY PUSITION

#RMDC, (RQ)+

#RMDA. (R2)+
WRMBA.(R2)+
#RMWC.(R2)+

WRMOF
. (R2)+

#RMCST, (R2)+

#200, (R2)

: TERMINATE TABLE

THE DRIVE
JSR
PC.PUT

;GO WRITE REGISTER(S)

NOP
EMT

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

IMP

308

:SETUP GET

JSR

INDEX TABLE

GO _T0 5$ IF NO ERROR

JSR

WITH PUT SUBROUT INE

GO TO 308 IF ERROR
TO READ AlLL REGISTERS

PC.GETSTS

:WAIT FOR COMMAND TO COMPLETE

PC,TIMOUT

2GO TO GETSTS SUBROUTINE
GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

GO TO 68 IF NO ERROR

308

GO TO 308 IF FRROR

NOP
EMT
6$:

021360

GO TO 4% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 308 IF ERROR

208

MOV

000004
000002

022266

‘s

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIICN

000034

000137

1344 021326

4$:

BR
NOP
EMT
mp

;VERIFY RECALIBRATION

RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

:VERIFY NO ERRORS DURING FORMAT
JSR
PC.DTASTS
:GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

000137

022266

012737

021446

001124

012737
012737

177000
106436

001474
001416

PC,alSP)+

30§

GO TO 7$ IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
GO BACK FOR MORE ERRGR CHECKS

GO TO 308 IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV

#8$
. SLPERR

:REGENERATE BUFFER

MOV
MOV

#=-256.+2,RMWCO
#BUFONE ,RMBAD

: CHANGE WORD COUNT
*CHANGE BUS ADDRESS

)

nxg

—)N

—

MOBO RMCS5/3/2 FCINL TST 3

MACRO v04.00

WRITE. WRITE CHECK W/ HEAD SWITCHING

1364 021416

012737

1365 021424

012737

}ggg 021444

000410

1366 021432
1367 021440

012737
004737

072060

G00001

000060
042174

4-APR-81 01:15:59 PAGE 13-42
MOV

#ZEROS, $TMPO

:STARTING ADDRESS

001412

MOV
JSR

#WD ,RMCS10
PC,GENBUF

‘WRITE DATA
*GENERATE BUFFER

MOV

}g;}

‘LooP #2

}%;2 021446

8% :

021452

156130

#1,8TMP1

B8R
IR

004737

SEQ 0113

001176

1370

1375
1376 021446

AR AR R

* RANGE

AR AN AN

*SKIP TO WRITE OPERATION

RN AR A NN AN P R AN AN RN

AR AR

AN AR NNAN RN AN RN

A RN AN

WRITE,WRITE CHLCK

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
:PREPARE DEVICE FOR TEST

037316

.WORD

154130

“TASK DESCRIPTOR AS FOLLOWS:
*SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT VALID

*VERIFY PACK ACKNOWLEDGE

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

021454

000404

021462

C00137

022266

;g;g 021466

012737

000005

1380 021474

004737

043330

021502
021504

000240
104000

021456
021460
1377 021466

000240
104000

021500 000404

021506

;%g; 021512
1383

1384 021512

1385

1386 021516

1387

1388 021522

021526
021530
021532
021534

;%gg 021540

1391

000137

022266

004737

042774

004737

043672

004737

043060

000404
000240
104000
000137

1292 021540

004737

021548

000240

021544

021550
021552
021554

1393 021560

000405

104000
004736
000137

022266

051174

JMP

30%

MOV

#SEEK ' GO,RMCS10

JSR

PC,PUT

NOP
EMT

001412

B8R

NOP
EMT

108:

JMP

308

:GO TO 98 IF NO ERROR

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

*GO TO 308 IF ERROR

;LOAD SEEK COMMAND
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:G0 TO 108 IF NO ERROR

*RETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE

*GO TO 30$ IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO GET REGISTER STATUS

JSR

11%:

BR
NCP
EMT
JMP

PC,GET

11$

308

;VERIFY RESULTS OF SEEK COMMAND
JSR

NOP

022266

10$

SVERIFY RECALIBRATION

12%:

EMT
JSR
JMP

5GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE
;GO READ REGISTER(S) WITH GET SUBROUT INE

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

PC,SEKSTS

:GO VERIFY RESULTS OF SEEK OPERATION

PC,R(SP)+
308

“ERROR # DEFINED BY SEKSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 30% IF ERROR

12$

GO TO 128 IF NO ERROR
*RETURN HERE If ERROR

~IZRMOBO RMOS/3/2 FCINL TS 3

T1e

WRITE, WRITE

CHECK W/ HEAD SWITCHING

1394
1395
1396 021560
1397 021560

012737

000061

1399 021572
1400 021576
1401 021602
1402 021606
1403 021612
16404 021616
}282 021622

112722
112722
112722
112722
112722
112722
112722

000006
000034
000032
000004
000002
000000
000200

1407 021626

004737

043330

021634
021636

000240
104000

1398 021566

021632

021640

012702

000404

001553

000137

022266

004737

042774

1413 021650

004737

043672

1414
1415 021654

004737

043060

021662
021664

000240
104000

:283 021644
1410

1411 021644

1412

021660
021666

000404

000137

022266

1418
1419 021672

004737

044056

021700
021702
021704

000240
104000
004736

;2;9 021672

021676

021706

000405

1420 021712
1421 021712

000137

022266

004737

056572

021720
021722
021724

000240
104000
004736

021716

021726

1422 021732
1423 021732

021736
021740
021742
021744
021746

1424 021752
1425

MACRO Vv04.00

000405

000137

022266

004737

044710

000405
000240
104000
004736
000137

022266

001412

:WRITE DATA TO THE DRIVE
13%:
MOV
#WD ! GO ,RMCS10

MOV

MOVB
MOVB
MOVB
MOVB
MOVB
MOvB
MOVB
JSR

NOP
EMT

14%:

4-APR-81 01:15:59 PAGE 13-43

JMP

H#PUT INX ,R2

#RMDA, (R2) +
HRMDC, (R2) +
ARMOF
, (R2) +
KRMBA, (R2) +
H#RMWC, (R2) +
HRMCS1,(R2)+
#200, (R2) +
PC,PUT

14%

30%

SEQ 0114

;WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

s TERMINATE TABLE
;GO WRITE REGISTER(S)

;GO _TO 14% IF NO ERROR

WITH PUT SUBROUTIME

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 308 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC.GETSTS

;WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

15%

JMP

30%

NOP
EMT

15%:

;GO TO 158 IF NO ERROR

SRETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUTINE

;GO TO 308 IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;60 CHECK FOR PRIMARY ERRORS

16%:

18%:

;GO TO 16% IF NO ERROR

PC,a(SP)+

RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,3(SP)+

JRETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JMP

17%:

16%

NOP
EMT
JSR

JMP

BR
NOP
EMT
JSR
JMP

308
17%

30%
18%

PC,a(SP)+

30%

;GO TO 308 IF ERROR

;GO TO 178 IF NO ERROR

;GO TO 308 IF ERROR

;GO TO 18% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 30% I* ERROR

CZRMOBO RM0S/3/2 FCTNL TST 3

WRITE, WRITE

1426

1627 021752

1428 021760

1[.%0

MACRO V04.00

CHECK W/ HEAD SWITCHING

012737

000410

(21762

001124

; CHANGE LOOP ADDRESSES

MOV

‘loop #3

1632

4198, SLPERR

208

:SKIP TO NEXT OPERATION

WRITE CHECK

198:

1435 021762

021766

SEQ 0115

:.'l'ttttt!ttttttttttt’titiit*ttttttitltt'fittfitttttfititttttttt.ttt

16431

1435
1436 021762

4-APR-81 01:15:59 PAGE 13-44

004737

154130

:PREPARE DEVICE FOR READ OPERATION
JSR
PC, TSTPRP
;PREPARE DEVICE FOR TEST

037316

LWORD

154130

:TASK DESCRIPTOR AS FOLLOWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT

IVERIFY PACK ACKNOWLEDGE

VALID

OR ‘PIP'* [S SFT
:RECALIBRATE IF ''SKI'"
021770
021772
021774
021776

000404
000240
104000
000137

022266

1438 022002

012737

000005

1440 022010

004737

043330

022016
022020

000240
104000

1437 022002

022014

022022

1441 022026

000404

000137

022266

001412

208
:

BR
NOP
EMT
JMP

208

MOV

#SEEK !GO,RMCS10

JSR

PC,PUT

NOP
EMT
218:

JMP

308

21%

308

:VERIFY RECALIBRATION
:GO_TO 208 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUTINE

GO TO 30$ IF ERROR

:LOAD SEEK COMMAND
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 21$ IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE

:G0 TO 30$ IF ERROR

1443

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

1445

:WAIT FOR COMMAND TO COMPLETE

1aa 022026 004737 042774

" 022032

004737

043672

1448 022036

004737

043060

022044
022046

000240
104000

1447

022042

022050

000404

000137

022266

1451
1452 022054

004737

051174

022062
022064
022066
022070

000240
104000
004736
000137

1449 022054

1450

022060 000405

1453 022074
1454
1455

022266

JSR
JSR

PC.GETSTS

PC, TIMOUT

;GO READ REGISTER STATUS

JSR

NOP
EMT

22%:

JMP

PC,GET

22%

30%

;GO VERIFY RESULTS OF SEEK
JSR
PC,SEKSTS

B8R

238:

NOP
EMT
JSR
JMP

23$

PC,A(SP)+
30%

:READ DATA FROM DEVICE

;GO TO GETSTS SUBROUTINE
:GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE

1GO TO 22% IF NO ERROR

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

16O TO 308 IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

1GO TO 23$ IF NO ERRUR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
‘GO TO 308 IF ERROR

1465 022136

1666

1467 022142
022146

022150
022152
022154

1468 022160
1469
1470
022160
1471
1472
022164
1473
1474
1475 022170

022174
022176
022200
022202

1476 022206
147/
1478
1479 022206

022212
022214
022216
022220
022222
1480 022226
1481 022226
£22232
022234

022236
022240
022242

1482 022246
1483 022246

022252
022254
022256
022260
022262
1484 022266

1485

1486 022266

1487

043330

d ad

B OO

004737
000404

b
d
-l ad e

1458 022102
1459 022106
1460 022112
1461 022116
1462 022122
1463 022126
1464 022132

000051
001553
000006
000032
000034
000004
000002
000000
000200

—d b e ed e

1456 022074
1657 022074

nNPNNNNINNIN
~N NNNNNNNN
-y
NININNININIO
W
NN PRI
N

MACRO V04.00
C 4 RMOBO RMOS/3/2 FCINL TST 3
T12
WRITE, WRITE (HECK W/ HEAD SWITCHING

000240
104000
000137

022266

004737

042774

004737

043672

004737
000404

043060

001412

248

000137

022266

004737
000405
000240

044056

25%:

004737
000405
000240

JSR
BR
NOP
EMT
JMP

PC,PUT

JSR

022266

056572

004737

044710

000137

022266

308

JREAD DATA COMMAND
JLOAD PUT REGISTER

;60 WRITE REGISTER(S)

;GO TO 25% IF NO ERROR
JRETURN HERE

PC,GETSTS

INDEX

TABLE

WITH PUT SUBROUTINE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 30% If ERROR

;GO TO GETSTS

SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATICN
JSR
BR

PC,GET

JMP

308

NOP
EMT

26%:

26%

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 26% IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 30% IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
JSR
BR

27%:

104000

022266

25%

JWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

NOP

004736
000137
000405
000240
104000
004736

#CD.GO,RMCS10
APUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
ARMBA, (R2)+
#RMWC
, (R2)+
#RMCST,(R2)
+
#2300, (R2)

SEQ 0116

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

MOV
MOV
MOVB
MOVB
MOVB
MOvVB
MovB

MOVB
MOVB

000240
104000

M9
4-APR-81 01:15:59 PAGE 13-45

28%:

29%:
30%:

EMT
JSR
JMP

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

27%

30%

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

28%

PC,a(SP)+

308

29%

PC,a(SP)+

30%

;GO TO 27% IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
;GO TO 308 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO _TO 28% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DiASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 308 IF ERROR

2GO CHECK FOR SECONDARY ERRORS

;GO T) 29% IF NO ERROR
;RETLRN HERE IF ERROR
;ERRCR # DEF INED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR C(HECKS

;GO TO 308 IF ERROR

RMOBO RMCS5/3/2 FCTNL

MACRO V04.00

TST 3

4-APR-81 01:15:59 PAGE 13-46

SEe@ 0117

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

1488

2222302820020

S*TEST 13

20csiRRitasdR

aRRRR2RRRRi0

A2t

WRITE, WRITE CHECK W/ MID-TRANSFER SEEK

RES)

Wit 22202222420
RARSRRRRRRR2 2 R0
RRARRdRRR 2R 2R 2]

022266

1489
1490
1491
1492
1493

1494
1495
1496
1497
1498
1499
1500
1501

022270
022272
022276
022302
022306

090004
000240
012706
013700
013701
012737

75113:
001100
001276
001466
000013

SCOPE

NOP

MOV
MOV

#STACK , SP
$RASE , RO

MOV

#13,$TESTN

MOY

001226

:SCOPE CALL

TSTQUE .R1

:START OF

TEST

“INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
*(R1)

= DEVICE BEING TESTED

*:SET TEST NUMBER IN APT MAIL BOX

;:**ttt*tttttttt*ttt*t*tt't***t*tt**fi*tittfi*fit*fi*t**itttfit'tttttt

FORMAT ,WRITE,WRITE CHECK

‘{ooP #1
022314
022314
022322
022330
(22336
022344
022352
022360

022366
022372

022374
022400
022402
04 022406
05 022406
06 022414
07 022416
08 022424
09 022432
10
N
12 022436

022442

%EOAD PARAMETERS AND GENERATE DATA BUFFER

012737
013737

112737
012737
012737
012737
012737

004737
000405
104401

104000
000137
123737

001342
012737
012737
004737

004737
154130

000000
001334
000037
010000
106436
176774
000063

001446

001420

001420
001444
001416
001414
001412

2%:

#0,RMDCO

Mov

#BUF
ONE , RMBAO

MOV
MOVE
MOV

MOV
Mov

070426
18

023310
001421

001335

072060
000001
042174

01174
001176

TYPE
EMT
JMP

.SCTMSG

(MP8

;16 BIT FORMAT
;BUS ADDRESS

JWORD COUNT FOR 2 SECTORS (2' (COMP)
;WRITE HEADER AND DATA (COMMAND

#WH!GO,RMCS10
PC,BADSCT

BNE
MOV
Mov
JSR

“SET LAST TRACK AND
*LAST SECTOR

#-258.%2 ,RMWCO

JSR

;CYLINDER = 0

LSTRK , RMDAQ
#31.,RMDAO
#FMT16,RMOFO

JVERIFY THAT SECTOR IS NOT BAD

040242

037316

MOV

25%

;CALL BAD SECTOR MODULE
;GO TO 3% 1F NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 25% IF ERROR

RMDAO+1,LSTRK+1

;1S LAST TRACK ASSIGNED ?

2%
#EROS, $TMPO
#1,3TMP1
PC.GENBUF

:BR IF NO
;STARTING ADDRESS OF PATTERN
sJRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR QOPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

OR 'PIP'" IS SET
JRECALIBRATE IF ''SKI''

022444
022446

000404
000240
104000

000137

B8R

NOP

023310
4

001553
000034
000006

EMT

4%:

JMP

25%

;VERIFY RECALIBRATION
GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT QPERAT]ION
MOV
#PUTINX ,Re
:RZ - BYTE ENTRY POSITION
MOvVB
#RMDC, (R2)+
MOVR

#RMDA, (R2) +

MACRO v04.00 &-APR-81
C l R MOBO RMOS/3/ 2 FCINL TST 3
71 3
WwRITE, WRITE (HECK W/ MID=TRANSFER SEEK
9 022472
0 022676

112722

000004

MOV8

, (R2) +
SRMBA

000032

MOVB

, (R2) +
#RMOF

112722

(00002

2 022506
3 022512

112722
112712

000000
000200

5 022516
022522
022524
022526

004737

043330

1022502

4 022516

112722

000404

000240
104000

8 10
01:15:59 PAGE 13-47

MOV8
MOVS
MOVB

JSR

B8R

NOP
EmMT

MRMUC, (R2) +

ERMCST, (R2)+
#200, (R2)

PC,PUT
3

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 6% IF NO ERROR

JRETURN HERE ]F ERROR
;ERROR # DEF INED 8Y PUT SUBROUTINE

023310

022534

004737

042774

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;60 TO GETSTS SUBROUTINE

022540

004737

043672

1533 022544

004737
000404

043060

00013

023310

’g

004737
000405

056572

JVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
B8R
8s
;GO TO 8% IF NO ERROR

022550
022552
02255¢
022556
022562

022562
022566
022570
022572
022574
022576
022602

000240
104000

258

;TERMINATE

000137

022530

1526 022534

JMP

SEQ 0118

JWAIT FOR COMMAND

JSR

TO COMPLETE

PC.,TIMOUY

;GO TO 25% IF ERROR

;GO TO TiMOUT SUBROUTINE

;GG RFAD STATUS FOR FORMAT OPERAT.ON

000240

JSR
B8R

PC,.GET
7%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 78 1F NO ERROR

JMP

258

;GO TO 25% IF ERROR

NOP
EMT

NOP

104000

EMT

0N4&736
00137

023310

022602

012737

022654

001124

1544 022610
1545 022616
1546 022624
1547 022632
1548 022640
1549 022646
1550 022652

012737
012737
012737
012737
012737
004737
000410

000060
177000
106436
072016
000001
042174

001412
001414
001416
001174
001176

JSR
Jmp

;RETURN HERE [F ERROR
JERROR # DEFINED B3Y GET SUBROUTINE

JRETURN HERE

PC,3(S5P)+
258

[F ERROR

;ERROR # DEFINED BY DTASTS S'JBROUTINE

.G0 BACK FOR MORE ERROR (HECKS
;G0 10 25% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
498,
$L PERR
;REGENERATE BUFFER

MOV
MoV
MOV
MOV
MOV
JSR
BR

#WD RMCS10
#-256.+2
, RMJI(0
#B3UF ONE ,RMBAD
#ONES ,$TMPO
#1,8TMP1
PC, GENBUF
108

JWRITE DATA
;CHANGE WORD COUNT
; CHANGE BUS ADDRSS
;PATTERN ADDRESS
;PATTERN RANGE
;SKIP TO WRITE OPERATION

".".'.""."fi'."""'.""'.Q'...'."‘"‘"."".‘t'.‘.""t""."

WRITE ,WRITE CHECK

;LO0P #2
9%:

004737

154130

037316

;PREPARE

DEVICE FOR WRITE OPERATION

JSR

.WOR

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE

“IRMOBO RMOS5/3/2 FCINL ST 3

113

WRITE, WRITE

(RO v04.00

c 10
4-APR-81 (1:15:59 PAGE 13-48

SEaQ

(HE{K W/ MID~TRANSFER SEEK

;CLEAR (ONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME

NOT

VALID

JVERIFY PACK ACKNOWLEDGE

OR "PIP'" IS SET
JRECALIBRATE IF ‘'SKI''
0c266?
022664
022666
022670

1559 022674

000404
000240
104000

0C0137

02331C

10%:

15060

1572

112722
112722

000061
001553
000006
000034
000032
0C0004
000002
000000
000200

004737
000404
000240

043330

000137

023370

022760

004737

042774

022764

004737

043672

022770

004737
000404
000240

043060

000137

023310

1573 022742

022746
022750
022752
022754

1574 022760

2737
2702
1 2722
1 2722
2722
2722
2722

022674
022674
022702
022706
022712
022716
(22722
022726
022732
022736

d ek

1562
15463
1566
1565
1566
1567
1568
1569
1570
1571

— e

1561

022774
022776
€23000
023002

1582 023006

1585 023006

023012
023014
023016

104000

004737
000405
000240

023020
023022

1587 023026

004737
000405
000240
104000

023032
023034
023036

023310
056572

NOP
EMT
JMP

DATA

MOV
Mov
MOVB
MovB
mMovs

MOVR
MOvVB
MOvVB
MOVB

12%:

;GO TO 108 IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

25%
TO

THE

DRIVE

#WD ! GO,RMCS10
#PUT INX,R2
#RMDA
, (R2) +
ARMDC, (RZ) +
WRMOF
, (R2) +
#RMBA, (R2) +
#RMUC, (R2)+
NRMCST, (R2)+
#200, (R2) +

JWRITE

DATA COMMAND

;LOAD PUT REGISTER

;TERMINATE

INDEX

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JSR
B8R
NOP

PC,PUT

12%

;GO TO 12% IF NO ERROR

JMP

25%

;G0 TO 258 IF ERROR

EMT

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE
PC ., TIMOUT
JSR

:GO TO GETSTS SUBROUTINE
GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
138
;GO TO 138 IF NO ERROR
BR
NOP
JRETURN HERE [F ERROR
T
EM
;ERROR # DEFINED BY GET SUBROUTINE
JMP
25%
;GO TO 258 IF ERROR
13%:

sCHECK FOR ERRORS DURING WRITE OPERATION
PC,PRIERR
JSR
;G0 CHECK FOR PRIMARY ERRORS
148
“R
;GO TO 143 IF NO ERROR

104000

004736
000137

1586 023026

044056

001412

:WR]TF
*1%:

;VERIFY RECALIBRATION

108

14%:

NOP
EmM7T
JSR
mp

JSR
B8R
NOP
EMT

JRETURN HERE

PC,a(SP)+

ERROR

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

25%

;GO TO 25% IF ERROR

PC,DTASTS
15%

;GO TO 15% IF NO ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
JRETURN HERE

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE

D 10
13-49

RMOS/3/72 FCINL TST 3
(RO v04.00 4-APR-B1 (01:15:59 PAGE
WRITE, WRITE (MHECK W/ MID=TRANSFER SEEX

023040
023042

004736
000137

023046
023052
023054
023056
023060
023062
923066

004737
000405
000240

023066

012737
000410

023046

023074

(23310

023310

023076

PC,a(SP)~

25%

;GO TO 25% IF ERROR

JSR

P(C,SECERR

NOP
EMT
JSR

PC,a(SP)+

;GO CHECK FOR SECONDARY ERRORS
;GO TO 16% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

B8R

104000

004736
000137

JSR

JMP

15%:

064710

JMP

168%:

001124

16%

25%

;GO BACK FOR MORE ERRCR (HE(KS

;GO TO 25% IF ERROR

:CHANGF LOOP ADDRESSES

MOV

B8R
s AR

#17% ,$LPERR

18%

RN R RN TN RN TR

;SKIP TO NEXT OPERATION

TR AANRANAAANANRAANANANARNRRAAARARARNRARRA
NN R

WRITE CHECK

;LOOP #3
17%:

023075
023076
023102

SEQ 0120¢

004737
154130

;PREPARE

03731¢

DEVICE

JSR

.WORD

FOR READ OPERATION
<PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
154130

PC, TSTPRP

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER-CLEAR OPERATION
JPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF "'SKI'* OR ‘PIP'' IS SET
000404
000240
104000
000137

.
H

023310

18¢: §

18%

JMP

25%

NOP
EMT

SVERIFY RECALIBRATION

;GO TO 188 IF NO ERROR

SRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 258 IF ERROR

%ggAD DATA FROM DEVICE

e
md e
o
D

NON NN

O 000

233

b
b
d
e
b

—d
o
d

[0 30 Yo Yo Yo Yo

023124
9 023130
023134
1611 023140
023144
023150
023154
023160
023164
023170
023172
023174
023176
023202

004737

023202

004737

000404
000240
104000
000137

‘

000051
001553
000006
000032
000034
000004
000002
000000
000200

001412

043330

023310

042774

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

MICD
! GO, RM(CS10
#PUTINX
R2
#RMDA, (R2) +
MRMOF
, (R2) +
#RMDC
, (R2)+
#RMBA
, (R2) +
ARMWC
, (R2)+
#RMCS1,(R2)+

JSR

PC,PUT

MOVB

B8R

NOP
EMT

20%:

JMP

JREAD DATA (OMMAND
;LOAD PUT REGISTER INDEX TABLE

#200, (R2)

20%
25%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 208 IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 25% IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;G0 TO GETSTS SUBROUTINE

E 10
MACRO
v04.00
4-APR-81
01:15:59
PAGE
13-50
C%RMOBO RMOS/3/2 FCINL TST 3
713
WRITE, WRITE (HE(K W/ M]D-TRANSFER SEEK
1621

1622

1623 023206

004737

043672

1624
1625 023212

004737

043060

023216
023220
023222

000404
000240

104000

023224

000137

023310

1628
1629 023230

004737

044056

023236

000240

;259 023230

023234

023240

000405

631 023250

004737

056572

023256

000240

023260
023262
023264

1632 023270
1633 023270

023274
023276
023300
023302
023304

1634 023310
1635
1636 023310

218:

023310

004737

044710

22%:

WITH GET SUBROUTINE

;GO TO 21$ IF NO ERROR
JRETURN HERE [F ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

22%

238%:

JRETURN HERE IF ERROR

PC,a(SP)+
25%

JSR

PC ,DTASTS

;ERROR # DEF INED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

238

;GO TO 23% [F NO ERROR
;RETURN HERE IF ERROR

EMT
JSR
JMP

PC,a(SP)+

25%

;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

BR
NOP
EMT
JSk
JMP

24%:

;GO TO 22% IF NO ERROR

JSR
JMP

B8R

023310

24%

;GO TO 248 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR (HECKS
;G0 TO 25% IF ERROR

PC,a(SP)+
25%

25%:

000004
000240
012706
013700
013701
012737

A R

;*TEST

001100
00127¢
001466
000014

(12704
012703

000000
000001

R A A

004737

(37316

18:
2%:
JPREPARE

E AN

AR RN AR AR R AR R A AR R A RA R AN AR R RN R KRR AR A RN AR

WRITE,

;LOOP #1

;g:;

SCOPE
NOP
Mov
Mov
MOV
MOV

001226
AN

TST14:

1640

‘648 023346

253

T647

;GO TO TIMOUT SUBROUTINE

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

1638

1643 023336
1644 023342
;222 023346

JMP

EMT

1637

023210
023310
023312
023314
023320
023324
1639 023330

21$

NOP

104000
004736
000137
000405
000240
104000
004736
000137

BR
NOP

EMT

023310

000405

PC,TIMOUT

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S)

104000

004736
000137

023254

JSR

NOP

023242
023244

1630 $23250

;WAIT FOR COMMAND TO COMPLETE

SEQ 0121

MOv
MOV

R AR

READ W/ HCE ERROR
R

AN AR R A RN RN AR R R R RN R

#STACK,SP
$8ASE ,RO
TSTQUE ,R1
#14,8TESTN
AN AR AR

T RN AR

R AR AR

AR R AR R RN AR AN AR

;R4 = 1ST HEADER WORD
:R3 = HCE BIT

THE DEVICE FOR FORMAT QPERATION

JSR

PC,TSTPRP

R N AR R AR R

R R AR &N

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
;sSET TEST NUMBER [N APT MAIL BOX

FORMAT ,WRITE ,READ

#0,R4
#1,R3

AR R R

;PREPARE DEVICE FOR TEST

RN AN R AN

CZRMOBO RMOS/3/2 FCTINL 1sT 3

WRITE, READ W/ H(E ERROR

023352

MACKD v04.00

&-APR-B1 (1:15:59 PAGE

. WORD

154130

10
13-51

154130

;TASK

SEQ 0122
DESCRIPTOR AS

FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

OR 'PIP'" IS SET
JRECALIBRATE IF ''SKI'"

023354
023356
023360
023362

1649
1650
1651 023366

1652 023366
1653 023374
1654 023402
1655 023410
1656 023416
1657 023424
1658

1659

1660
1661
1662
1665
1664

023432
023436
023440
023444
023446

023452
023452
023460
023466

1665
1666 023472

1667 023476
1668 223500

1669 023504

1670 023506

1671
1672

1673

000404
000240

104000

000137

B8R

JMpP

468

NOP
EMT

025156

JVERIFY RECALIBRATION

;GO TO 3% IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEF INED BY TSTPRP SUBROUT INE
;G0 TO 46% IF ERROR

%EOAD PARAMETERS AND GENERATE DATA BUFFER
0 1 2737
0 1 2737
0 1 2737
0 1 2737
0 1 2737
0 12737

000030
000000
106436
177376
010000

004737
000405

040242

104401
104000

000063

001446
001420
001416
001414
001444
001412

025004

012737
012737
004737

072060

030364
001403
040364
000402
050364

106436

;VERIFY

JCYLINDER = 0
;TRACK = 0, SECTOR = 0

MOV
MOV

HFMT
16 ,RMOFO
#WH'!GO,RMCS10

;16 BIT FORMAT

5%:

HEADER AND DATA (OMMAND

:CALL BAD SECTOR MODULE

;GO TO 4% IF NO ERROR
;TYPE BAD

.SCTMSG

SECTOR MESSAGE

JMP

42%

MOV
MOV
JSR

#ZEROS ,$TMPO
#1,3TMP1
PC,GENBUF

;STARTING ADDRESS OF PATTERN
JRANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

; CHANGE HEADER WORD

106436

JWRITE

JERROR # DEFINED BY BADS(CT SUBROUTINE
;GO TO 42% IF ERROR

EMT
A ¥

;BUS ADDRESS
;2 + 256. WORDS (2°'S (OMP)

#-258. ,RMU(O

THAT SECTOR IS NOT BAD
P({,BADSCY
JSR
BR
A3
TYPE

028

10643¢

#0,RMDCO
#0 ,RMDAO
#BUF
ONE ,RMBAD

MOV

070426

000137

MOV
MOV
MOV

TO FORCE HCE DURING WRITE & READ

81T
BEQ
8l

ONE (R4)
R3,8UfF
5%
R3.,BUFONE (R4)

;SET OR RESET FOR HCE??

BIS

R3_,BUFONE (R4)

;SET FOR HCE

B8R

JRESET BIT FCR HCE

;. OAP PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

001553
000034
000006
000004
000002
000C32
000000
000200

6%:

MOV

MOVB

#RMD(C, (R2)+

MOvVB

#RMBA, (R2) +

MOVB

#RMOF
, (R2) +

MOVB
MOVR

043330

MOVB
MOVB
JSR

B8R

NOP

025004

8%:

#PUTINX
R

EMT
JMP

;R2 - BYTE ENTRY POSITION

#RMDA, (R2) +

#RMWC
, (R2) +
#RM(ST,(R2)+
#200, (R2)

;TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
2GO TO 8% IF NO ERROR

42%

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 42% [F ERROR

PC,PUT

JRETURN HERE

ERROR

~JRMOBO RMOS/3/2 FCINL TST 2

WwRITE, READ w/ WCE ERROR

MACRO v04.0C

1685

1686

gy 023570

004737

042774

004737

043672

023604

004737
000404

043060

023610

104000

1688

689 023574

1690
1691 023600

JSR

000137

025004

1694
1695 023616

004737

056572

023624
023626
023630

000240
104000
004736

023622

023632

169 023636
1698
1699 023636

};8? 023644
1?02
1703

000405

000737

025004

012737

023646

000410

JSR

023652

GO TO GETSTS SUBROUTINE

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

EMY

98
:

428

;GO TO 9% IF NO ERROR

:RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

60 TO 428 IF ERROR

;VERIFY NO ERRORS DURING FORMAT
SR
PC,PTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

B8R

10%

;GO TO 108 IF NO ERROR

PC,a(SP)+
428

G0 TO 428 IF ERROR

NOP
EMY
JSR

108:
;MOVE

00" 124

:RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

LOOP ADDRESSES TO NEXT OPERATICN
MOV
#11%,SLPERR

)

1704
1705 023646
1706
1707
1708 023646

PC,GETSTS

:wAIT FOR COMMAND TO COMPLETE

NOP

023612

SEQ 0123

;SETUP GET INDEX TABLE 1O READ ALL REGISTERS

023606 000240
1632 023616

G 10

4-APR-81 (1:15:59 PAGE 13-52

12%

;SKIP TO WRITE OPERATION

".'"'"."'t'.tfi'fit.."t'.'*'fi“.'fi*fififi'il’tfitQt*fifi*"tttt*tiifi"*'
;LO0P #2
WRITE ,READ

’

118:

004737

154130

037316

:PREPARE DEVICE
JSR

.WORD

FOR WRITE OPERATION
PC,TSTPRP
:PREPARE DEVICE FOR TEST

154130

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF "'SKI'' OR 'PIF'" IS SET
*

023656

000404

023660
023662

104000
000137

EMT
JMP

023656

1;?8 023666

000240

NOP

(025004

12%:

1711
1712 023666
1713 023666

012737

106442

001416

1715
1716
1717
1218

012737
012702
112722
112722

000061
001553
000006
(000034

001412

1714 023674

023702
023710
Q23716
023720

012737

1772400

001414

sVERIFY RECALIBRATION

12¢

;G0 TO 12% IF NO ERROR

423

:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 42% IF ERROR

;RETURN HERE IF ERROR

:WRITE DATA TO THE DRIVE
13¢:
MOV
#BUF ONE +4 ,RMBAC ; CHANGE BUS ADDRESS

mMOoY

MOV
MOV
MOVR
MOV

#-256. ,RMW(CO

#WD.GO,RMCS10
#PUTINX R2
#RMDA, (R2) +
#RMDC, (R2)+

: CHANGE WORD COUNT

;WRITE DATA COMMAND
:LOAD PUT REGISTER INDEX

TABLE

IRMOBO RMOS/3/72 FCTNL I1ST 3

v14

WwRITE,

READ w/ HCE ERROR

1719 023726
1720 023730
1721 023734

000002 -

000000
000200

o~
o

D
ad
-

NN
WD

NNN
WIN
N
W)
—

NN
NIRCTY

1726
1725 023750

004737

042774

023772

004737

43672

023776
024002

00473/
000404
000240

043060

00137

025004

004737
000405

044056

024020
024022
024024
024026
024030

104000

004736

000137

032703
001037
032703
001061

026100
1755 024104

;GO WRITE REGISTER(S) WITH PUT SUBROUT
INE

JMP

14§

:WwAlT

TABLE

“GO TO 148 IF NO ERROR
*RETURN HERE

ERROR

“ERROR # DEFINED BY PUT SUBROUTINE

42%

“GO TD 42% IF ERROR
TO READ ALL REGISTERS

PC,GETSTS

FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

SGO TO GETSTS SUBROUTINE
:GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR WRITE COMMAND
JSR

NOP
EMT

JMP

PC,GET

15§

:GO READ REGISTER(S)

42%

WITH GET

26O TO 15% IF NO ERROR

SUBROUT INE

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

*GO TO 42% IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR

B8R

NGP
£MT
JSR

IMP

025004

PC.PRIERR

16$

PC,a(SP)+

&2%

;GO CHECK FOR PRIMARY ERRORS

:GO TO 168 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
1GO TO 42% IF ERROR

igicoos THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3

024040
024044
024046
024052

024072
024074
024076

PC,PUT

JSR

104000

005704
001006

024064
024070

JSR

SSETUP GET INDEX TABLE

000240

024034
024034
024036

024054
024054
024062

;TERMINATE

EMT
14%:

, (R2) +
#RMOF

#RMBA, (R2) «
#RMW(C
, (R2) +
ARM(ST, (R2)+
4200, (R2)+

B8R

025004

SEQ 0124

MOvB
MOVB
MOVB
MOVB

NOP

023766

024014

—-

043330

023754
023756
023760
023762
023766

H 10

4-APR-81 01:15:59 PAGE 13-53

MOovB

000032
000004

1722 023740
1723 023744

024004
024006
024C10
024014

MACRD (04.00

)
010000
140000

*sT

:1S THIS THE FIRST HEADER WORD 2

8IT
BNE
BI:

#FMT16.R3
208
AMSE .USE ,R3

:SHOULD FER BE SET ?
TYES I,
*SHOULD BSE BE SET ?

BNE

B8NE

17%

22%

‘NO !

JYES '

%ggRIFY THAT A HEADER COMPARE ERROR WAS DETECTED

032737
001102

000200

004737
000405
000240

056572

’

001352

#HCE ,RMER1]

;WAS HCE DETECTED ??

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

BNE

B8R

NOP

104000

004736
000137

BIT

025004

EMT
JSR
MP

248

18%

PC,a(SP)+

42%

SYES

“GO TO 188 IF NO ERROR

‘RETURN HERE

If ERROR

DATA TRANSFER

“ERROR # DEFINED BY DTASTS SUBROUTINE
1GO BACK FOR MOPE ERROR CRECKS
‘GO TO 42% IF ERROR

JR%080 RMOS5/3/72 FCINL ST 3

WRITE,

1756 0264106

READ W/ M(E

013737

ERROR

001352

1757 026112
1758 026120
1759 024126

012737
013637
(01002

(00200
001174

1761 Q246132

010337

001176

1760 024126
1762 026136
1763 024140
1765
1766 074144

1767 64144

005237

001174

104344
000137

025004

032737

000020

1770 024154

004737

056572

024162
024164
024166

000240
104000
004736

1768 024152
/4

026160

24170

1771 024174
1772 0246174
1773 0264202

1774 026210

1775 024212

001046

000405

000137

025004

012737
013737
104343

000020
001352

000137

MACRO /04.00

001142

100000

1782 0264226

004737

056572

024236
024236
0246240

000240
1064000
004736

1783
1784
1785
1786

024246
024246
024256
026262

1787 024264

001021

000405

000137

025004

013737

001400

000137

(025004

012737
104345

1789
1790 024270
1791 024270

004737

026276

000240

024274

024300
024302
024304

1792 024310
1793

1794

1795 024310

1797

R3,$TMP1

;VERIFY
208
:

THAT A FORMAT ERROR WAS DETECTED

000405

100000

EMT
M

218:

0071400

JSR

PC,DTASTS

:GO VERIFY RESULTS OF

PC,a(SP)+

RETURN HERE IF ERROR
ERROR # DEF INED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR (HEC(KS

MOV
MOV
EMT

012737

024316

428

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF

MOV
MOV
EMT

248

23%

PC,a(SP)+

)

001124

, CHANGE

YES I

GO TO 238 IF NG ERROR

GO TO 42$ IF ERROR

RMER2],$BDDAT

;RECEIVED STATUS

#BSE,SGDDAT
345

DATA TRANSFER

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

EXPECTED STAIUS

428

.. (HECK FOR OTHER ERROCRS
248:
JSR
PC,SECERR

258
:

TRANSFER

JEXPECTED STATUS
:RECEIVED STATUS

;WAS BSE DETECTED 77

25%

EMT
JSR
M

BC,a(SP)+

NOP

025004

#FER,SGDDAT
RMERTI,$BDDAT
343

DATA

GO TO 42§ IF ERROR

#BSE,RMER2]

044710

104000
004736
000137

428

;G0 TO 21% IF NO ERROR

BIT

NOP
EMT
JSR

001140

21%

YES L

THAT A BAD SECTOR ERROR WAS DETECTED

001142

248

428

:GO CHECK FOR SECONDARY ERRORS

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

“ERROR # DEF INED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HE(CKS
GO TO 42% IF ERROR

LOOP ADDRESSES

MOV

‘
.

‘

;WAS FER DETECTED ?7?

BNE

238.

344
428

;JR3 = BIT POSIITON

AFER,RMER"]

22%:

$TMPO

ZEXPECTED STATUS
;R4 = HEADER WORD NUMBER AND
ADJUST NUMBER.

BIT

BNE

JVERIFY

032737

024242

MOV

025004

1778 024216
1779 024216

024232

19%:

INC

SEQ 0125{

SRECEJVED STATUS

#HCE,SGDDAT
R4 ,$TMPO
19%

NOP
EMT
JSR

001140
001142

RMER1],$BDDAT

MOV
MOV
BNE

B8R

1777

1780 024224

MOV

001140

001352

110

4-AFPR-81 01:15:59 PAGE 13-54

#26$,SLPERR

:.'""'ttttt't"lt"'t"""fitil’t'ttkitt"t'l"'ttlttt'tt'i't""

I ~

S
[2 2 =

(ZRMOBO RMO5/3/2 FCTNL
114
WwhlTE, READ w/

RROR

v04.00

J 10
4-APR-81 01:15:59 PAGE 13-55

:LOOP #3

1798
1799

024322

READ

26%:

1800 024316

1801
1302
1803 026316

SEQ 0126

004737
1564130

037316

;PREPARE DEVICE FOR READ OPERATION
JSR
.WCRD

PC,TSTPRP
154130

;PREPARE

DEVICE

FOR

TEST

JTASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILARLE

;CLEAR CONTROLLER & SEIECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SKI'" OR 'PIP'' IS StT
024324
024326
024330
024332

1804 024336

000404
000240
104000

000137

1805
1806
1807 024336
1808 024336

107446
177400

b ed ced e wd
P

[

OOV
N
NN —

1809 024344
1810 026352
024360
024364
00 00 0o 0o (o 0o 00 00 00 [0 ]

025004

27%:

MoV
MOV
MOV
MovB

000032
000034

024400
024404
024410
024414

000004
000002
000000
000200

024420
024424
024426
024430
024432
024436

043330
104000

27%

JVERIFY RECALIBRATION
;GO TO 27% IF NO ERROR

42%

;GO TO 42% IF ERROR

;RETURN HERE [F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

.READ DATA FROM DEVICE
28%:
MOV
ABUF TWO+4 ,RMBAD . CHANGE BUS ADDRESS

000071
001553
000006

024370
024374

B8R
NOP
EMT
JMP

MOvB
MOVB
MOVB
MOVB
MovB
MOVR

JSR
BR
NOP
EMT

#RD !GO,RMCS10
#PUTINX
,R2
HRMDA
, (R2) +
HRMO
, (R2)
F
+

s CHANGE WORD COUNT

;READ DATA (OMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMDC, (R2)+
#RMBA, (R2) +
ARMWC, (R2) +

#RM(ST,(R2)+
#200, (R2)

PC,PUT
29%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 29% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBRDUTINE

;GO TO 42% IF ERROR

0G0137

025004

024436

004737

0462774

024442

004737

043672

;WAIT FOR COMMAND TO COMPLETE
PC,TIMCUT
JSR

024446
024452
024454
024456
024460
024464

004737
000404
000240

043060

;GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

000137

025004

026464

004737

044056

1046000

29%:

JMP

42%

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSK

30%:

BR
NOP
EMT
JMP

PC,GETSTS

30%

42%

;GO TO GETSTS SUBROUTINE

;G0 TO TIMOUT SUBROUTINE

;GO TO 308 IF N° ERROR

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

;CHECK FOR ERRORS DURING READ OPERATION
P(,PRIERK
JSR
;GO CHECK FOR PRIMARY ERRORS

“JRMOBO RMOS5/3/72 FCTINL TST 3

WRITE,

026470

026472
026474
024476

024500

READ W/ H(CE

ERROR

000137

025004

005704

1837 024510

032703

010000

1839 024516

032703

140000

1838 024514

;g:g 024522

31$:

001006

001037
001061

1844 024524

032737

000200

1847 C24534

004737

056572

026542
024544
024546
024550

000240
106000
004736
000137

025004

013737
012737
010437

001352
000200
001174

}gzg 024532

024540

1848 024554
1849 024554
1850 024562

1851 024570
1852 024574
1853 024576

1854 024602
1855 024606
%ggg 024610

0061102

000405

C01002
095237
010337
104344
000137

000020

1863 024624

Q04737

056572

024634
0246636

104000
004736

024630
024632

024640

1864 024644
1865 026644
1866 024652

1867 024660
;ggg 024662
1870
1871

024666

1872 024666
1872 024674
1874

000405
000240

000137

025004

012737
013737

000020
001352

104343
000137

;15 THIS THE FIRST HEADER WORD ?

BIT

RFMT16,R3

:SHOULD FER BE SET ?

8IT

#MSE . USE ,R3

*SHOULD BSE BE SET ?

001142
001140

34$:

001352

328

35%

37%

:GO TO 42% IF ERROR
‘NO !

TVES It
YYES

ERROR WAS DETECTED

#HCE ,RMER1]

:WAS HCE DETECTED ??

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF

NOP
EMT
JSR
JMP

PC.a(SP)+
42%

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBRGUTINE
*GO BACK FOR MORE ERROR CHECKS
1GO TO 428 IF ERROR

MOV
MOV
MOV

RMER1],$BDDAT
#HCE ,$GDDAT
R4 ,$TMPO

;RECEIVED STATUS
*EXPECTED STATUS
;R4 = HEADER WORD NUMBER AND

BNE
INC
MOV
EMT
JMP

33%

34$
$TMPQ
R-,$TMP1
344
428

TYES

;GO TO 33% IF NO ERROR

*ADJUST NUMBER.

:R3 = BIT POSITION

BNE

39¢

TYES ')

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC.R(SP)+

16O TO 36% IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

MOV
MOV

#FER,$GDDAT
RMER1T,$BDDAT

SEXPECTED STATUS
-RECEIVED STATUS

IMP

EMT
JMP

025004

368

42%

343
42%

‘GO TO 42% IF ERROR

SVERIFY THAT A BAD SECTOR ERROR WAS DETECTED
032737
001021

100000

001400

DATA TRANSFER

:VERIFY THAT A FORMAT ERROR WAS DETECTED
35¢:
8IT
#FER,RMER1]
:WAS FER DETECTED ??

BR
NOP

00°
00114«

)

*RETURN HERE IT ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

81T

33§

42%

THAT A HEADER COMPARE

BNE

025004

032737

001046

001352

001174
001176

1858
1859 024614
1860 024614

}gg; 024622

TST

BNE
.VERIFY

;GO TO 31$ IF NO ERROR

PC,(SP)+

JMP

BNE

318

SEQ 0727

NOP
EMT
JSR

BNE

1842

1843 026526

K 10

4&-APR-B1 01:15:59 PAGE 13-56

000405

000240
106000
006736

1833 024504
1834 024504

;ggg 024506

MACRO v04.00

37%:

BIT
BNE

#RSE ,RMER2 ]
39%

;WAS BSE DETECTED 2?2
YYES ..

“IRMOBO RMOS/3/2 FCTNL 1ST 3

714

WRITE,

READ W/

1875 024676

004737

HCE

ERROR

056572

024702
024704
024706

000405
000240
104000

024712
1876 024716

000137

025004

013737
012737
104345
000137

001400

024710

1877
1878
1879
1880
1881
1882
1883

024716
024724
024732
024734

024740

1884 024740
0264744

0264746
024750

024752
(24754

1885 024760

004736

01:15:59 PAGE

JSR

PC_DTASTS

NOP

38¢%:

100000

13-57

18%

Emvy
JSR
JMP

PC,a(SP)+
42%

MOV

RMER2], $BDDAT

EMY
JMP

345
350

MOV

000350

L 10

4-APR-81

#8SE ,SGDDAT

SEQ 0128

;GO VERIFY RESULTS OF DATA TRANSFER

;G0 TO 38% [F NO ERROR
;RETURN HERE

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
2GO BACK FOR MORE ERROR (HECKS

;GO TO 42% IF ERROR
JRECEIVED STATUS

JEXPECTED STALIUS

;(HECK FOR OTHER ERRORS

004737
000405

39%:

044710

000240
104000

004736
000137

1886
1887
1888
1889
1890
1891

024760
024762

006303
001006

024764
024766
024770

005704
001006
012704

1893
1894
1895
1896

025000
025000
025004
025604

1892 024774

MACRO v04.00

PC,SECERR
40%

EMT
JSR
JMP

PL,a(SP)+
42%

ASL

418

sSHIFT TO NEXT BIT
;REPEAT IF NOT DONE

TST

:SEg?@D HEADER WORD DONE??

NOP

05004

40%:

BNE

01¢703

000002
000001

000137

023346

47%:
42%:

000464

;GO CHECK FOR SECONDARY ERRORS

JSR
BR

BNE
MOV
MOV

42%
#2.R4
#1,R3

JMP

pé3

463

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

;ERROR # DEFINED BY SECERR SUBROUTINE

;GO BACK _FOR MORE ERROR CHECKS

;G0N TO 42% IF ERROR

JYES!!

;SETUP FOR 2ND HEADER WORD

;SETUP FOR HCE

JEXIT IF ERROR

::tkttt***tittttt**t‘ittfi**lt*'tt*t*tt*t*ttit*ttttit*ttttttttttfi*

;*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER
':tt.'tttt*tt‘**tfittititt*ttttittttt'*tfi**tt*fit*tlt*ttttt*tkttttt

925006

2 025014
3 025022
04 025030
025036
907 025042

025046

012737
012737
012737
004737

177776
010000
106436
000062
042174

004737

037316

012737

054130

001414
001444
001416
001412

438:

MOV
MOV
MoV
MOV
JSR

”‘Z,RMVCO
AFMT16,RMOFO
#RUF
ONE ,RMBAD
H#WH,RM(CS10
PC,GENBUF

JSR
.WORD

PC,TSTPRP

054130

- o

025050
025052

000404
000240

025056

000137

025062

012737
(12702

000063
001553

025054

1908 025062
1909 025062
1910 025070

104000

001412

44%:

JONLY TWO HEAD WORDS

;ALWAYS IN 16 BITS MODE

;BUFFER ADDRESS ,REFORMAT THE SECTOR

JWRITE HEAD AND DATA COMMAND
;SET UP THE BUFFER
;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

BR
NOP
EMT
JMP
MoV

MoV

44%
448
#WH!GO,RMCS10

#PUT
INX ,R2

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE F ‘'SKI'' OR 'PIP'’ IS SET
;VERIFY RECALIBRATION

;GO TO 448 IF NO ERROR

JRETURN HERE [F ERROR
JERROR # DEF INED BY TSTPRP SUBROUTINE

;GO TO 443 IF ERROR

;FORMAT THE SECTOR
;SET UP THE REGS

Lol
o}

G4
o Ghur Shr P

Pior S

QO NN ISNN)

R el elelNelelVo
IVo IVo]

WRITE,

-y

MOBO RM(O5/3/2 FCTNL TST 3
025076
025100
025104
025110
025116
025120
025124
025130
025134

READ W/ HCE ERROR

11
M
11
N
M
M

MACRO v04.00

MovB

000006

MOVB
MOVB

000032
000034
000004
000002
000000
000200
043330

919
920
321
22

000240

45%:

043672

46%:

#RMDA, (R2) +

MOVB

MOVB
MOVB
JSR

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

'
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

463

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 46% IF ERROR

B8R

025156

SEQ 0129

#RMOF
, (R2) +
, (R2) +
#RMDC
#RMBA, (R2) +

MOvVB

025136

025140
025142
025146
025150
025154
025156

M 10

&-APR-81 01:15:59 PAGE 13-58

NOP
EMI
JMP
NOP
JSR
NOP

#RMWC
, (R2) +

458

;GO TO 45% IF NO ERROR

PC, TIMOUT

;WAIT FOR FINISH

":Il'l'l’l'."""'*"'.*.’""'"**"*'*.fl.tfl*fi‘*t'fitfii*fifiififit**fifi**t'

:«TEST 15

WRITE, READ W/ H(C!

".‘"fifi*ttt‘.fil’*fifi*fi"*""t"'*‘.*t*'*‘"fi**fi""*fifi*ififit*fitfififi.*‘fi

025156
025156
025160
025162
025166
025172
025176

1925
1926
1927
1928
1929 025204
1930 025210
1931 025214

1932
1933
1934 025214
025220

000004
000240
012708
013700
013701

012737

TST15:

001100
001276
001466
000015

SCOPE
NOP
MOV

MOV

001226

MOV

RSTACK ,SP
$BASE RO
TSTQUE ,R1

#5,8TESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1)

= DEVICE BEING TESTED

:;;SET TEST NUMBER IN APT MAIL BOX

"""Qfi"'fl'fl'*"‘*"‘*“"*‘t*****'***t*'**"tfitfii’tfit**'fi**fitttittttit

FORMAT ,WRITE ,READ

;LOOP #1
012704
012703

004737
154130

1%:

000000
000001

2%:
JPREPARE

037316

MOV

#0 R4

#1,R3

;HEADER WORD

JHCE BIT

THE DEVICE FOR FORMAT OPERATION

JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

IF VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE
025222
025224
025226
025230

000404
000240
104000
000137

38R

;RECALIBRATE IF ''SKI'* OR ‘PIP'' IS SET
JVERIFY RECALIBRATION
;GO TO 3% IF NO ERROR

EMT
JMP

41%

:ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 41% IF ERROR

NOP

026562

JRETURN HERE IF ERROR

%&OAD PARAMETERS AND GENERATE DATA BUFFER

000000
000000
106436

001446
001420
001416

MOV
MOV
MOv

010000

001444

MOV

177376

001414

MOV

#0,RMDCO
#0,RMDAD
#BUF ONE , RMBAO

:CYLINDER = 0
JTRACK = 0, SECTOR - ©

#FMT16,RMOFO

;16 BIT FORMAT

#~258. ,RMW(CO

;BUS ADDRESS

;2 + 256. WORDS (2°' COMP)

CZRMOBO RMOS/3/2 FCINL TST 3

115

WRITE, RZAD W/ H(CI

;g:z 025272
1945

025300
025304
025306
025312

025314

012737

000063

004737
000405
104401
104000

040242

026410

1947 025320

012737

072016

}ggg 025334

004737

042174

1952 025340

030364

106436

19546 025346
1955 025352
1329 025354

040364
000402
050364

106436

1948 025326

1951

1953 025344

1958
1959 025360
1960 025360

012737

001403

000001

1963 025374

112722

000004

025400
025406
025410
025414

1968 025420

1969
1970

112722
112722
112722
112712

1971 025420

004737

025426

000240

025424

025430
025432

;g;g 025436
1974
1975 C25436
1976

1977 025442
1978

1979 025446

025452
025454
025456
025460

;lgggl) 025464
1982

1983 025464

025470

000404

000006
(000002
000032
000000
000200

043330

026410

004737

042774

004737

043672

004737

043060

004737

000405

;VERIFY THAT SECTOR IS NOT BAD

001174

4%:

001176

;WRITE HEADER AND DATA (OMMAND

JSR
BR
TYPE
EMT

PC ,BADSCT
48
,SCTMSG

oMP

37%

MoV

#ONES ,$TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC,GENBUF

;G0 GENERATE BUFFER FOR fORMAT

MOV

#1,%TMP1

;CALL BAD SECTOR MODULE
;G0 TO 4% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
sERROR # DEFINED BY BADSCT SUBROUT INE

;GO TO 37% IF ERROR
JRANGE OF PATTERN

; CHANGE HEADER WORD TO FORCE ERROR DURING WRITE

BIT

R3,BUFONE(R4)

;SET OR RESET BIT??

BIC
BR
BIS

R3,BUFONE(R4)
63
R3,BUFONE(R4)

;RESET BIT

BEQ

MOvVB

#RMDA
, (R2) +

MOovB
MovB
MovB
MOVB

HRMWC, (R2) +
HRMOF
, (R2) +
HRMCST1,(R2)+
#200, (R2)

MOVB

7%:

JSR

026410

056572

8%:

EMTY
JMP

;SET BIT

#RMBA, (R2) +

JFORMAT THE DRIVE

NOP

104000
000137

000404
000240
104000
000137

#WH!GO,RMCS10

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
6%:
MoV
HPUT INX ,RZ
;R2 = BYTE ENTRY POSITION
MOVB
#RMDC, (R2) +

001553
000034

1964
1965
1966
1967

Mov

5%:

012702
112722

112722

N 10

&-APR-81 01:15:59 PAGE 13-59

106436

1961 025364

1962 025370

001412

070426

000137

1946 025320

MACRO v04.00

PC,PUT

37%

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 8% IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 37% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE
JWAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;G0 TO TIMOUT SUBROUTINE

;G0 READ STATUS FOR FORMAT OPERATION

JSR

9%:

BR
NOP
EMT
JMP

PC,GET

37%

JVERIFY NO ERRORS DURING FORMAT

JSR
BR

PC,DTASTS

10%

;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 37% IF ERROR

:GO VERIFY RFSULTS OF DATA TRANJFER

;GO TO 10% IF NO ERROR

SEQ 0130

~ZRMOBO RMOS/3/2 FCTNL 1ST 3
15

WwRITE,

025472
025474
025476
025500
1984 025504

READ W/ L1

MACRO v04.00

000240

NOP
Emr
JSR

106000

004736
000137

026410

1988 025512
1989

012737
000410

025514

Jmp

10%:

1985

1986
1687 0¢5504

B 1
&-APR-B1 (01:15:59 PAGE 13-60

001124

1990

MOV

B8R

025520

;00 BACK FOR MORE

ERROR (HECKS

;GO 70 37% IF ERROR

37¢

#118,8LPERR

12%

22822

;SKIP TO WRITE

OPERATION

dR2202222222
X22 22X XX

WRITE ,READ

11%:

1994

1995
1996 025514

PC,a(SP)e

2223 2232222222022

:LOOP #2

1993 025514

JRETURN HERE [F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE

:MOVE LOOP ADDRESSE> YO NEXT OPERATION

1991
1992

SEQ 0131

004737
154130

:PREPARE DEVICE

037316

JSR

.WORD

FOR WRITE

P(,TSTPRP

OPERATION

154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

OR "PIP'" IS SET
JRECALIBRATE IF "'SKI''

2017

2018

NOP

EMT

026410

12%:

JMP

12¢%

;VERIFY RECALIBRATION

;GO TO 128 IF NO ERROR

JRETURN HERE [F ERROR
;ERROR # DEFINFD BY TSTPRP SUBROUTINC

;GO T0 378 IF ERROR

b
oud
e
wd e
e
el

737
737
737

NN
RO
[aV 1, 1,8]

—d

iggITE DATA TO THE DRIVE
LASTASIANTAN
T, U 1. N1 W1, 81 ,¥]

025534
025534
025542
025550
025556
025562
025566
025572
025576
025602
025606
025612

000137

—

025530
025534

000404
000240
104000

—t ek bk =2 = OO0

025522
025524
025526

722

012000
000061
106442
001553
000006
000034
000032
000004
000002
000000
000200

001444
001412
001416

MoV
MOV
MOV
MOV
MOVB

#FMT16'HCI ,RMOF 0
MDD ! GO ,RM(CS10
#RUF ONE +4 _,RMBACD
#PUTINX
RZ
#RMDA, (R2) +

MOVB
MOVR

#RMOF
, (R2)+
#RMBA, (R2)+

MOovVB

;INHIBIT HEADER COMPARE
JWRITE

CATA COMMANC

;LOAD STARTING BUFFER ADDRESS
;LGAD PUT REGISTER INDEX TABLE

#RMD(C, (R2)+

MOvB

, (R2) +
#RMWC

MOVB

#200, (R2)+

JSR
BR

PC,PUT
14%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

37%

;GO TO 37% IF ERROR

MOvVB

#RMCST, (R2)+

;TERMINATE

TABLE

025616
025622
025624
025626
025630
025634

043330

025634

042774

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE

025640

043672

JWAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

026410

NOP
EMT

14%:

;GO TO 14% IF NO ERROR

;RETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE

;G0 TO TIMOUT SUBROUTINE

RMO5/3/72 FCTNL

WRITE,

READ W/ H(I

025644
025650
025652
025654
025656
2022 025662

004737

2025 025662

004737

025666

025670

025672

025674
025676
2026 025702
2027
2028 025706
2029 025714
2030 025716
2031 025724
2032 025732
2033 025734
2034 025734
2035 025742
2036 025750
2037 025752
2038 025760
2039 025760
2040 025762
2041 025766
2042
2043 025766
2044 025766
025772
025774
025776
026000
026002
2045 026006
2066 026006
026012
026014
026016
026020
026022

2047 026026
2048
2049
2050 026026
2051 026034
2052
2053
2054
2055
2056 026036

1ST 3

000404
000240
104000
000137

000405
000240

(RO v04.00

;GO READ STATUS FOR WRITE
JSR
PC,GET

043060

B8R

NOP
EMT

026416

15%:

JSR

B8R

NOP
EMT
JSR

026410
001140

16%:

032737
001407
013737
042737
000412

000220

001352

001352
177557

001142
001142

013737
032737
001406
042737

001400

001142

077777

001142

104346

000137

004737
000405
000240

100060

JMP

004737
000405
0C0240
104000

004736
000137

012737
000410

37%

WITH GET SUBROUT INE

;GO TO 15% IF NO £RROK
JRETURN HERE

ERROR

JERROR # DEFIMED BY GET

;GO TO 37% IF ERROR

SUBROUTINE

RMER1] ,$8DDAT

;RECEIVED STATUS

JEXPECTED STATUS

17%

#*C<HCE!FER>,$BDDAT

MOV

RMERZI ,$BDDAT

JRECEIVED STATUS

19%

JNO U

B8R

BEQ

18%

#BSE ,RMERZ21]

;CLEAR DONT CARES

JANY BAD SECTOR ERROR ?

BIC

#~CBSE ,$BDDAT

EMT
JMP

346
37%

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC.a(SP)+

;RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

218

NOP
EMT
JSR

JMP

JSR
BR

044710

NOP

EmMT

22%:

001124

;GO TO 37% IF ERROR

BIC

B8R

026410

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;ANY ERROR?:

20%:

026410

;GO TO 16% IF NO ERROR

#HCE 'FER,RMER11]

19%:

056572

;GO CHECK FOR PRIMARY ERRORS

BIT

8IT
188

16%

CLR

MOV

17%:

PC,PRIERR

PC,a(SP)+
373
$GDDAT

BEQ

001400

026410

026036

COMMAND
:GO READ REGISTER(S)

JMp

104000

004736
000137

15%

SEQ 013¢

:CHECK FOR ERRORS DURING WRITE OPERATION

044056

104000

004736
000137
005037

cn
4-APR-81 01:15:59 PAGE 13-6"

JSR
JMP

2138

37%

PC,SECERR
22%

PC,a(SP)+
37%

;SAVE BSE FOR ERROR

;G0 TO 218 IF NO LRROR

;G0 TO 37% IF ERROR

;GO0 CHECK FOR SECONDARY ERRORS
;GO TO 22% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

;GO BACK FOR MORE ERROR (HECKS
;GO TG 37% IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#23%,$LPERR
24%

"."fi".“'"‘tl’.t'fi**.’t‘."'"*""i'fit'fi'fi‘"‘Q"."‘.!t‘fi'!‘.fii"'

;LOOP #3
23%:

READ

CZRMOBO RMO5/3/2 FCTNL 1ST 3

115

WRITE,

2057
2058
2059 026036
026042

READ W/ HCl

004737

154130

MACRO v04.00

;PREPARE

037316

D N

&-APR-81 01:15:59 PAGE 13-62

DEVICE

JSR

.WORD

SEQ 0133

FOR READ OPERATION
PC,TSTPRP
;FREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
154130

JSELECT DEVICE & VERIFY DEVICE AVAILARBLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKFNOWLEDGE
026044
026046
026050
026052
026056

026410

000071

107446

001553

000137

026410

026150

004737

042774

026154

004737

026166

026170
026172
2084 026176
2085
2086
2087 026176
026202

026204
026206
0:6210

MOvB

MOVB
MOVB

043330

026144
026150

0463672

004737
0004604
000240

0430€0

000137

026410

1046000

004737
000405
000240
104000

004736

044056

MOV
MOV
Mov

movs
MOVB
MOVB
MovB

000000
000200

026126

026164

00141 2
00141 6

cS5S:

000006
000032
000034
000004
000002

026122

026160

24%
37%

;GO TO 37% IF ERROR

;JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INE

;READ DATA FROM DEVICE

026056
£26056
026064
026072
026076
026102
026106
026112
026116

026132
026136
026140
026142

24%:

BR
NOP
EMT
JMP

OR 'PIP'* IS SET
JRECALIBRATE [F ‘'SKI''
N
;VERIFY RECALIBRATIO
;GO TO 24$ IF NO ERROR

JSR
BR
NOP

26%:

EMT
JMP

#RD !GO ,RMCS10

;READ DATA COMMAND

ABUF TWO+4 ,RMBAD

;LOAD STARTING BUFFER ADDRESS
;LOAD PUT REGISTER INDEX TABLE

#PUTINX,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC, (R2)+
ARMBA, (R2) +
#RMWC
, (R2) +
HRMCST, (R2)+
#200, (R2)
PC,PUT

26%

37%

;GO WRITE REGISTER(S)

;GO TO 26% IF NO ERROR

WITH PUT SUBROUTINE

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

;GO TO 37% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

;WAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

;GO TO GETSTS SURROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION

27%:

JSR
BR
NOP
EMT
JMP

PC,GET

27%

37%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 27% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # _DEFINED BY GET SUBROUTINE
;GO TO 37% IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
28$%
;GO TO 28% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JSR

PC.a(SP)+

JERROR # DEF INED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

ZRMOB.) RMOS/3/2 FCTNL I1ST 3
WRITE,

126212
2088 026216

000137
005037

0¢6410
01140

2090 026222
2091 026230
2092 026232

032737
001407
013737
042737
000412

000229

001352

001142
001142

013737
032737

001400
100000

001142

077777

001142

2093 026240

2094 026246

2095 026250
2096 026250
2097 026256
2098 026264
2099 026266
2100 026274
2101 026274
2702 026276
026302
026302
06 26302
026306
026310
026312
026314
026316
2107 026322
2108 026322

026326
026330
026332
026334
026336

9 026342

026352
026354
026356
026360
026364
026364
026366
026379
026372
026374
026400
026404
026404
026410
026410

001406
042737
104346

177557

000137

026410

004737
000405
000240

056572

28%:

29%:

001400
308

31%:
32%:

004737
000405
000240

338

026410

044710

004736
000137

026410

004737

042432

106442
107446
000404
000240
104000

000137

348

BIT
BEQ
MgV
8IC
BR

#HCE !FER,RMER1]
29%
RMER1],$8DDAT
#~C<HCE .FER>, $BDDAT
30%

;ANY ERROR ?
JNO!!
JRECEIVED STATUS
;CLEAR DONT CARES

MOV

RMCRZ2] , $8DDAT

JRECEIVED STATUS

EMT
JMP

346
37%

JSR

PC,DTASTS

BIT
BEQ
BIC

000001
000002

000137

025214

368
37%:

000464

33%

;ANY BAD SECTOR ERROR ?
JNO
;CLEAR DONT CARES

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 33% IF NO ERROR

JSR
BR

PC,SECERR
34%

EMT
JSR
JMP

PC,a(SP)+

;GO CHECK FOR SECONDARY ERRORS
;GO TO 34% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR (HECKS

PC.,CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

NOP

006303
001006
005704
001006
012703
012704

#BSE ,RMERZ]
31%
#4(BSE ,$BDDAT

PC,a(SP)+

JMP

.WORD
.WORD
BR

558

;GO TO 37% If ERROR
JEXPECTED STATUS

NOP
EMT
JSR

JSR

026410

SEQ 0134

37%
$GDDAT

NOP

104000

EN
01:15:59 PAGE 13-63

JMP
CLR

104000

004736
00137

4-APR-81

EMT

37%

BUF ONE +4
BUFTWO+4
35%

JMP

37%

ASL
BNE
TST
BNE
MOV
MOV

R3
36%
Ré
37%
#1.R3
#2,R4

JMP

41%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(CKS

:GO TO 37% IF ERROR

;GO0 TO 37% IF ERROR

;STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUTFER
;GO TO 35% IF NO ERROR
:RETURN HERE

IF ERROR

;ERROR # DEFINED BY CMPBUF SUBROUTINE

;GO TO 37% IF ERROR

;SHIFT HCE BIT
;CONTINUE IF NOT DONE
:SECOND HEADER DONE?”
JYES.!
;START WITH BIT O
;DO SECOND HEADER WORD

JEXIT

IF ERROR

- tt*'**"t'fi*t'**'*"*'t'*"fi*tfi*"tki't*'fl*.".'fi""'t'i(*fitfi.i‘!'t

*RErORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

'§)N

%8;"."*.‘"*."*"*fi*"’*"f*""*fl.fifl*"‘""'*"*it““""t""."'

OO0

n
o
o
Hn
o~
n)
=+ -a
oruro

NN NS WO = O 000 NN

e
el
D o
i
ol
ok =D ool o
e o
s
s

PONSNONINONONIND
b b b b ed b —2 =2

NOTNUNLNLRLALNINLNUAU
LU RS NL N NU N

0 026342
026346
026350

READ w/ ML

MACRO v04.00

177776

010000

001474
001444

MOV
MOV

#-2 RMWCO
#FMT16,RMOFO

;WORD COUNT
:IN 76 BT MODE

(JRMOBG KMOS/3/2 FCTNL IST 3

T1s

WRITE,

31
32 026446
026452

READ W/ HCI

012737
012737

106436
(00062

004737
054130

037316

004737

042174

MACRO v04.00

4-APR-81 01:15:59 PAGE 13-64

0014 16
0014 12

MOV
MOV
JSR

#BUF
ONE ,RMBAD
#MH _RMCS10
PC ., GENBUF

JSR

PL,TSTPRP

.WORD

054130

SEQ 0135

;BUFFER ADDRESS

;FORMAT

COMMAND

cSET UP BUFFER

;PREPARE

DEVICE

FOR

TEST

;TASK DESCRIPTOR A5 FO! LOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERAYION
;JPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

2O00NN
BN
W

D
D
e
)
e
e
D

&I DN N NN NN N

—
——

AV ST N 1 N1,V 1,V

L2l 2k 2la2k
o
OO~
S

AN LS.V L V1. N1, V1, UT, V1, S1,01. ¥

;RECALIBRATE IF ''SKI'* GR "PIP"’ IS SET

N26454
026456
026460
026462
026466
026466
026474
26500
026504
026510

026514
026520
026524
026530
026534
026540
026542
026544
026546
026552
026554
026560
026562

000404
000240
104GC0O

000137

026466

012737
012702

000063
001553
000006
000032
000034
000004
000002
000000
000200
043330

NOP
EMT

0014 12

MOV

L1%:

#WH!GO,RM(S10

s TABLE ADDRESS

#RMOF
, (R2) +
#RMDC, (R2)+

#RMWC, (R2) +
ARM(CST,(R2)+
#200,(R2)+
PC,PUT

40%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 40% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 41% IF ERROR

JMP

41%

JSR
NOP

PC, TIMOUT

NOP

ERROR

;GO TO 39% IF ERROR

329%

#RMBA, (R2) +

NOP
EMT

;ERROR # DEFINED BY TSTPRP SUBROUTINE

MGCVB

043672

JRETURN HERE

APUTINX ,R2
#RMDA, (R2) +

MOVR
MOVR
MOVB
JSR

40%:

;GO TO 39% IF NO ERROR

MOV
MOVR

MOVB
MOVB

026562
000240

JMP

39%:

;VERIFY RECALIBRATION

39%

'"ttttt*k*ttt*ttit*ttii*t*itittt*****ttk*titttttt*ttttttttfit*ttit

J*TEST

WRITE,

READ W/

IV(C ERROR

'"itttttttttfit*tl‘t*tttttttttfl't*i*ttttfiitttttttttttttttfit*t'tttttn

Mov

MOV
MOV
MOV

001226

;SCOPE CALL
ASTACK,SP

$BASE RO
TSTQUE ,R1
#16,8TESTN

;START OF

TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

2;SET TEST NUMBER IN APT MAIL BOX

WRITE,READ

60 006640

NN N

NNNNN

9 026632

—

8 026626

%%OAD PARAMETERS AND GENERATE DATA BUFFER
prur@urGurPurnr

026610
o
N

001100
001276
001466
000016

SCOPE
NOP

;LOOP #1

56 026610
[V, XV AV,]

TST16:

Se 3232232222282 2222233082d3223228d2R2222020d02RRSR00200RRARsaRins

[olelolele)

VIS

N~ O

ViV
i AN

026602

000004
000240
012706
013700
013701
012737

(AN 1oV 1N 1, V1) V]
NNNNN

)

D ol Sl el

)

INTANLETLULS
LN SLN L VT, V1N ]

026562
026562
026564
026566
026572
026576

000000
000000

106436
177400
010000

001446
0014 20
0014 16
0014 14
0014 44

MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0,RMDA
#BUF
ONE , RMBAO
#-256. ,RMWCO
#FMT16,RMOFO

;CYLINDER = 0

;TRACK = 0, SECTOR = 0

:BUS ADDRESS

2256. WORDS (2'S (OMP)

:16 BIT FORMAT

~ 7RMOBO RM0S5/3/72 FCTINL
WRITE, READ W/

2161 026646
2162
2163
026654
026660
026662
026666
026670
2164 026674
2165 026674
2166 026702
2107 026710
2168
2169
2170 026714
026720

MACRO v04.00
TST 3
IvC ERROR

012737

000060

004737
000405

040242

104401

070426

000137

027602

012737
012737
004737

001420
000001
042174

004737

037316

104000

154130

6 N
4-APR-81 01:15:59 PAGE 13-65
MOV

0014172

#4D ,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
PC,BADSCT
JSR

B8R

001174
001176

;PREPARE

sWRITE HEADER AND DATA (OMMAND

;CALL BAD SECTOR MODULE
;GO TO 2% IF NO ERROR

.SCTMSG

s TYPE

JMP

22%

;GO TO 22% IF ERROR

MOV
MOV
JSR

#RMDAQ, $TMPO
#1,8TMP1
PC.,GENBUF

TYPE

EMmM7

2%:

SEQ "%

BAD

SECTOR MESSAGE

JERROR # DEFfINED BY BADS(T SUBROUTINE
;JUSE SECTOR fOR DATA PATTERN

;GO GENERATE DATA BUFFER

DEVICE FOR WRITE OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP
JSR

.WORD

154130

:TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET

000404
000240
104000

000137

104000

000137

B8R

JMP

22%

NOP
EMT

027602

000024
000200
000001
043330

3%:

001553
001554
001436

027602

JRESET

vOLUME
Move
MOVB
MOV
JSR
BR
NOP
EMT
JMP

VALID
#RMMR1
, PUT INX

#200,PUTINX+1
#DMD ,RMMR10
PC,PUT

22%

;VERIFY RECALIBRATION

;GO TO 3% IF NO ERROR

JRETURN HERE IF ERROR

JERROR # DEFINED 8Y TSTPRP SUBROUTINE

;GO TO 22% IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER - DMD
;GO WRITE RMMR1 VIA PUT SUBROUTINE

;GO TO 4% IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE

;GO TO 22% IF ERROR

~nN

VV\J\IV%\I\J\J\I

~n
n

b
D
d
b

ed o

b b d ek =Dt =
—

LASLAS 1, ST, ST, 1, ST V1,8 1,81, C1, ¥

;SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND

026722
026724
026726
026730
2171 026734
2172
2173
2174 026734
026742
026750
026756
026762
026764
026766
026770
2175 026774
2176
2177
2178 026774
2179 026774
2180 027002
2181 027010
2182 027014
2183 027020
2184 027024
2185 027030
2186 027034
2187 027040
2188 027044
2189 027050
2190
2191 027054
027060
027062

00473%7
000404
000240

000061
000000
001553
000024
000006
000034
000032
009002
000004
000000
000200

043330

001412
001436

5¢:

Mov
MOV
MoV

MOovB
MOVB
MOVB
MOVB
MOVB
MOVR
MOVB
MOVB

JSR
BR
NOP

#WD ! GO,RMCS10
#0 ,RMMR10
#PUTINX ,R2
ARMMR1,(R2)+
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
ARMWC
, (R2) +
#RMBA
, (R2) +
#RM(CST, (R2)+
#200, (R2)+
PC,PUT

JWRITE DATA COMMAND

;RESET DIAGNOSTIC MODE
;LOAD PUT REGISTER INDEX TABLE

;TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBRQOUTINE
;GO TO 6% IF NO ERROR
JRETURN HERF

ERROR

CZRMOBU RMOS/3/2 FCTINL TST 3

11¢

IvC ERRCR

READ w/

027064
027066
027072

000137

(27602

027072

004737

042774

027076

004737

043672

027102
027106
027110
027112
027114
2200 027120
2201
2202
2203 (27120
0271264
027126
027130

004737

043060

Vel RN] éhg -bude

FelVe]

—_—

DO O

LSTVT.N N AVIo V], V)

WRITE,

027132
027134
2204 027140
2205 027140
2206 027146

2207
2208 027150
027154
027156
027160

027162
027164
2209 027170
2210 027170
2211 027176
2212 027204
2213 027212

2214 027214
2215 027220
2216 027220
027224
027226

027230
027232
027234
2217 027240
2218
2219
2220 027240
2221 027246
2222
2223
2224
5335

. €

104000

000404
000240
104000
000137

004737
000405
000240

MACRC v04.00

EMT

6%:

JSR

JSR
BR
NOP

PC,GET
7%

JMP

22%

EMT

7%:

001400

8%:

004737
000405
000240

044710

PC,(SP)+
22%

BIT
BNE

#IVC,RMERZ]
108

JSR

PC.DTASTS

9%:

027602

;GO TO 22% IF ERROR

10%:

027602

ERROR

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 22% IF ERROR

;WAS "'IVC'' DETECTED??

JYES!.

JMP

PC,a(SP)+
22%

;GO TO 22% IF ERROR

MOV
MOV
8IS
EMT
JMP

RMERZI ,$BDDAT
RMER?] ,$GDDAT
#IvC,$GDDAT
342
22%

JSR

PC,SECERR

BR
NOP
EMT
JSR
JMP

11%:

001124

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 9% IF NO ERROR

104000

027250

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

NOP
EMT
JSR

027602

001400
001400
010000

;GO TO TIMOUT SUBROUTINE

JRETURN HERE

EMT
JSR
JMP

B8R

104000

013737
013737
052737
104342
000137

;GO TO GETSTS SUBROUTINE

;CHECK FOR ERRORS DURING WRITE OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
8%
BR
;GO TO 8% IF NO ERROR

027602

056572

012737
000410

PC,GETSTS

NOP

004737
000405
000240

c;ERROR # DEF INED BY PUT SUBROUT INE
;GO TO 22% IF ERROR

;GO READ STATUS FOR WRITE COMMAND

044056

010000

004736
000137

22%

:WAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

027602

032737
001024

004736
000137

JMP

SEQ 0154~

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
C00137

H 1N

4~APR-81 01:15:59 PAGE 13-66

11%

PC,a(SP)+
22%

JRETURN HERE [F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;RECEIVED STATUS
SEXPECTED STATUS

.GO CHECK FOR SECONDARY ERRORS

;GO TO 11$ IF NO ERROR
JRETURN HERE

ERROR

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

;G0 TO 22% [F ERROR

; CHANGE LOOP ADDRESSES
MoV
#12%,BLPERR

B8R

13%

';fifl'tti'*.'t't.tttttti"'i'il&t!'tfittfiifii"!nt'Qtitfltt"tt't'tt'

:LOOP #2

READ

(IRTMMOBO RMOS5/3/2 FCTINL
6
WRITE, READ W/

TIST 3

IV(C ERROR

MACRO v04.00

2229 027250

027256

SEQ .13~

12%:

2226 027250

227
2228

4-APR-81 01:15:59 PAGE 13-67

00473%7

154130

f
:PREPARE DEVICE FOR READ OPERATION

037316

JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

cSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VAL iD

;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SKI'' OR "PIP'' IS SET
027256

000404

027264
2230 027270

000137

027602

112737
112737
012737
004737
000404
000240
104000
000137

000024
000200
000001
043330

027260
027262

2231
2232

2233 (27270
027276
027304
027312
027316
027320
027322
027324
2234 027330
2235
2236
2237 027330
2238 027330
2239 027336
2240 027344
22641 027352
2242 027356
2243 027362
2244 027366
2245 027372
2246 027376
2247 027602
2248 027406
2249 027412

000240
106000

000071
107442
000000
001553
000024
000006
000032
000034
000004
000002
000000

2251 027416
027622

004737
000404

043330

027430

000137

027602

004737

042774

027624
027426

2252 02743

2254
S5 027434
2256

2257

0276440

112712000200

000240
104000

004737

043672

138

JMp

22%

NOP
EMT

13%:
__

001553
001554
001436

027602

012737
012737
012737
012702
112722
112722
112722
112722
112722
112722
112722

:RESET VOLUME VALID

148:

001412
001416
001436

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP

ARMMR1,PUTINX
4200,PUTINX+1
#DMD . RMMR10
PC,PUT
14§

22%

;READ DATA FROM DEVICE
i58:
MOV
#RD ! GO,RMCS10
MOV
#BUF TWO,RMBAO
MOV
#0,RMMR10
MOV
#P(TINX ,R2
MOVB
ARMMR1,(R2)+
MOVB #RMDA, (R2)+
MOVB
ARMOF
, (RQ)+
MOVB
WRMDC.(R2)+
MOVB
#RMBA. (RD)+
MOVB
#RMWC,(R2)+
MOVB
#RMCST,(R2)+
MOVB
4200, (R2)

1GO_TO 138 IF NO ERROR

:RETURN HERE IF ERRGR
:ERROR # DEF INED BY TSTPRP SUBROUTINE

:GO TO 228 IF ERROR

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER - DMD
GO WRITE RMMR1 VIA PUT SUBROUTINE
:GO_TO 14$ IF NO ERROR
:RETURN HERE IF ERROR
ERROR DEF INED BY PUT SUBROUTINE
:GO TO 228 If ERROR

;READ DATA COMMAND
:LOAD STARTING BUFFER ADDRESS
RESET DIANOSTIC MODE
{LOAD PUT REGISTER INDEX TABLE

JSR
BR

PC,PUT
168

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
GO _TO 168 IF NO_ERROR

JMP

22%

:GO TO 228 IF ERROR

NOP
EMT

168:

;VERIFY RECALIBRATION

:RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE

;SETUP GET INDEX TABLE TO KEAD ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUT

;GO 0 TIMOUT SUBROUTINE

MACRO v04.00
JRMOBC RMOS5/3/2 FCTNL 1T 3
T16
WRITE, READ W/ IvC ERROR
2258
2259 (27444
027450
027452
027454
027456
2260 027462
2261
2262
2263 027462
0274€6
027470
027472
027474
027476
2264 027502
2265 027502
2266 027510
2267
2268 27512
027516
027520
027522
027524
027526
2269 027532
2270 027532
2271 027540
2272 027546
2273 027554
2274 027556
2275 027562
2276 027562
027566
027570
027572
027574
027576
2277 027602
2278
2279 027602
2280
2281

004737
000404
000240

043060

000137

027602

004737
000405
000240

044056

104000

027604

2282
2283
2285
2286

027606
027612
027616
027622

17%

;GO TO 17% IF NO ERROR

JMP

22%

;GO TO 22% IF ERROR

NOP
EMT

17%:

027602

032737
001024

010000

001400

004737
000405
000240

056572

“8%:

PC.PRIERR
13%

;GO0 CHECK FOR PRIMARY ERRORS

JSR
JMP

PC,d(SP)+
22%

;G0 BACK FOR MORE ERROR CHE(CKS

BIT
BNE

#IvC,RMERZ2]
20%

JSR

PC,DTASTS

104000

013737
052737
013737

001400
010000
001400

000137

027602

004737
000405
000240
104000
004736
000137

044710

104342

JSR
BR

NOP
EMT

027602

JRETURN HERE [F ERROR
JERROR # DEFINED BY GET SUBROUTINE

:CHECK FOR ERRORS DURING READ QOPERATION
NOP
EMT

004736
000137

SEQ 0139

B8R

104000

004736
000137

11
1 3-68

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;G0 READ REGISTER(S) WITH GET SUBROUT INE

001140
001140
001142

19%:

20%:

;GO TO 22% IF ERROR

JWAS "'IVC'' DETECTED??
JYES!!

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 198 IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

Mov

RMERZ21,$GDDAT

SJEXPECTED STATUS

RMERZ]1 ,3BDDAT

JRECEIVED STATUS

BIS

#1v(C,$GDDAT

EMT
JMP

342
22%

JSR
NOP
EMT

JSR
JMP

21%:

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE

JSR
JMP

027602

19%

;GO TO 18% IF NO ERROR

PC,a(SP)+
228

MOV

PC,SECERR

21%

PC.a(SP)+
22%

;GO TO 22% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 21% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FCR MORE ERROR CHECKS

;GO TO 22% IF ERROR

22%:

':itttttt*ttttit*ttlt*titfi‘t*ttifit*ttttifi*tt*'ttktttittikittttttt

J*TEST 17
R

027602
027602

4-APR-81 01:15:57 PAGE

000004
000240
012706
013700
013701
012737

S22

TST17:

001100
001276
001466
000017

SCOPE
NOP

MOV

MOV
MOV

MOV

001226

WRITE, READ W/ ABORT

2222223328222

2222222002202

#STACK,SP

$8ASE ,RO

TSTQUE ,R1

#17,8TESTN

istRR

ARttt

:SCOPE CALL
;START OF TEST

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

':tttttttt*t*titttt*fi""'ti‘tttttitl*tt'tt*t"tttttt'tt'tt'tttt.

;LOOP #1

WRITE ,READ

;LOAD PARAMETERS AND GENERATE DATA BUFFER

(IR MOBO RM0S5/3/2 FCINL TST 3
WRITE, READ W/ ABORT

2287 027630
2288 027636
2289 027644
2290 027652
027660
2292 027666
2293 027674

000000
000000
106436
177400

010000
000061

2296 027674
027700

027702
C27704
027706
027710
2297 027714
2298
2299
2300 027714
027722

027730
027736
027742

027744
027746
027750
2301 027754
2302
2303
2304 027754

001446
001420
001416
001414
001444
001412

000404
000240
104000
000137

112737
112737

012737
004737
000404
000240
104000

000137

030520

000014
000200
040000
043330

000006
000034

000032
000004
000002
000000
000200

030022
030026
030030

001553
001554
001426

030520

000061
001553

1%:

2%:

030520

004737

042774

DEVICE

JSR
.WORD

EMT
JMP

5%:

JSETUP GET

JSR

;CYLINDER = 0

;TRACK = Q,

;BUS ADDRESS

SECTOR = 0

;256. WORDS (2'S COMP)
;16 BIT FORMAT
JWRITE DATA COMMAND

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'* OR ‘PIP'' IS SET
;VERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

JRETURN HERE If ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 218 IF ERROR

21%

#RMER1,PUT
INX

#200,PUTINX+1
#UNS ,RMER10
PC,PUT

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

:SET RMER1 QUTPUT BUFFER = UNS
;GO WRITE RMER] VIA PUT SUBROUTINE
;GO TO 3% IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEF INED BY PUT SUBROUTINE

;GO 7O 21$ IF ERROR

21%

WRITE DATA TO THE DRIVE
4%:
#WD !GO, RMCS10
MOV
HPUTINX,R2
MOV
HRMDA, (R2) +
MOVB
#RMDC, (R2)+
MOVB
#RMOF
, (R2) +
MOVB
HRMBA, (R2) +
MOVB
HRMW(, (R2)+
MOVB
HRM(S1, (R2)+
MOVB
#4200, (R2)+
MOVB

JSR
BR
NOP
EMT
JMP

SEQ 0140

FOR WRITE OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP
; TASK DESCRIPTOR AS FOLLOWS:
154130

BR
NOP
EMT
JMP

MOovB
MOVB
MOV
JSR
8R
NOP

043330

000137

#0,RMDCO
#0,RMDAO
#BUF
ONE ,RMBAO
#-256. ,RMWCO
#FMT16,RMOFO
HWD !GO ,RMCS10

MOV
MOV
MOV
MOV
MOV
MOV

;SET UNSAFE ERROR

3%:

001412

K 11

4-APR-81 01:15:59 PAGE 13-69

;PREPARE

037316

2305 027754
2306 027762
2307 027766
2308 027772
2309 027776

030032

MACRO v04.00

JWRITE

DATA (OMMAND

;LOAD PUT REGISTER INDEX TABLE

s TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR

21%

;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 21% IF ERROR

PC.,PUT

INDEX TABLE

JRETURN HERE IF ERROR

TO READ ALL REGISTERS
;GO TO GETSTS SUBROUT INE

PC,GETSTS

( ZRMOBO RMOS5/3/72 FCTNL
11z

WRITE,

2320

2321 030044
030050
030052
030054
030056
2322 030062
2323 030062
2324 030070
2325 030072
2326 030100
2327 030106
2328 030114
2329 0350116
2330
2331
030116
2332
2333
2334 30122
030126
030130
030132
030134
050140
030140
030144
030146
030150

030152
030154
030160
030160
030164
030166
030170
030172
030174
2339 030200
2340
2341
2342 030200
2343 030206
2344
2345
2346
2347
2348 030210
2349
2350
2351 030210
030214

1ST

READ W/ ABORT

004737
000404
000240
104000

MACRO v04.0C

;GO GET REGISTER STATUS

043060

030520

032737
001432
013737
042737
013737

020000

001350

001350
020000
001350

001140
001140
001142

043672

004737
000404
000240

043060

000137

030520

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240

044710

104000

6%:

PC,GET

NOP
EMT
JMP

#PIP,RMDS|
7%

BIC

#PIP,$GDDAT

EMT

347

MOV

JSR

NOP
EMT

8%:

030520

9%:

012737
000410

030520

030210

PC.PRIERR
9%

JSR

PC,SECERR

10%:

001124

PC,GET

JSR
BR
NOP
EMT
JSR
JMp

JMP

JERROR # DEFINED BY GET SUBROUT INE

;GO TO 21% IF ERROR

;WAS COMMAND EXECUTED?

JRECEIVED STATUS

21%

NOP
EMT
JSR

;G0 TO 6% IF NO ERROK
JRETURN HERE IF ERROR

RMDS],$BDDAT

JMP

;GO READ REGISTER(S) WITH GET SUBROUTINE

JNO, GO WAIT
JFXPECTED STATUS

;GO GET REGISTER STATUS
BR

SEQ 0141

RMDS]1 ,$GDDAT

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

104000

004736
000137

BIT
8EQ
MOV

7%:

004737

JSR

000137

104347

N
L
4-APR-81 01:15:59 PAGE 13-70

PC,a(SP)+
218

10%

PC,a(SP)+

21%

26O TO TIMOUT SUBROUTINE

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 8% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE

;GO TO 21$ IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

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

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 21% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 108 IF NO ERROR
JRETURN HERE

IF ERROR

JERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORE ERROR (HECKS

;GO TO 21% IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#1138, 8LPERR
12%

""ttttttl**tt*tl’!tl’tti“t"t"iQtfifittttttttttttt‘t*ittittt!ttttt!t*

;LOOP #2

READ~

11%:

004737
154130

037316

;PREPARE DEVICE FOR READ OPERATION
JSR
.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

CZRMOBO RMOS5/3/2 FCTNL 1ST 3
WRITE, READ W/ ABORT

117

030216
030220
030222
03C226
2352 030230
2353
2354

2355 030230
030236

030244
030252
030256
030260
030262
030264
2356 030270
2357
2358
2359 030270
2360 030270
2361 030276
2362 030302
2363 030306
2364 030312
2365 030316

000404
000240
104000

000137

030520

112737

000014
000200
040000
043330

112737

012737
004737
000404
000240
104000

000137

12%

JMP

218

NOP
EMT

12%:

001553
001554
001426

:SET UNSAFE ERROR

MOVB
MOVR
MOV
JSR
BR
EMT

030520

000071
001553
000006
000032
000034
000004
000002
000000
000200

13%:

001412

043330

000137

030520

030354

004737

042774

2374
2375
2376 030360 004737
030364 000404
030366 000240
104000
030370
030372 000137
2377 030376
2378 030376 032737
2379 030404 001414
2380 030406 013737
. 042737
2381 030414
2382 030422 013737
104347
2383 030450
2384 030432 000137

2386

NOP

030344
030346
030350

2385 030436

MmN

4-APR-81 01:15:59 PAGE 13-71

JMP

#RMERT ,PUT INX
#200,PUTINX+1
AUNS ,RMER10
PC,PUT
13%

21%

SEQ C14¢

JRECALIBRATE IF ''SKI'" OR 'PIP'* IS SET
sVERIFY RECALIBRATION

;GO TO 128 IF NO ERROR

SRETURN HERE IF ERROR.
JERROR # DEF INED BY TSTPRP SUBROUT INE

;GO TO 218 IF ERROR

;SETUP PUT

INDEX

TABLE

;SET TERMINATOR BYTE

;SET RMER1 QUTPUT BUFFER = UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE
;GO TO 13% IF NO ERROR
JRETURN HERE

ERROR

JERROR DEFINED BY PUT SUBROUTINE

;GO TO 21% IF ERROR

%QEAD DATA FROM DEVICE

2366 030322
2367 030326
2368 030332
2369
2370 030336
030342

2371 030354
2372
2373

MACRO v04.00

#RD ! GO,RM(S10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2)+
HRMWC
, (R2) +
#RMCST,(R2)+
#200, (R2)

JSR

PC ,PUT

NOP
EMT

15%:

JMP

15%

21%

;READ DATA COMMAND

JLOAD PUT REGISTER INDEX

TABLF

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
GO TO 158 IF NO ERROR
:RETURN HERE

ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

GO TO 218 IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

JSEE

043060

030520

020000

001350

001350
020000
001350

001140
001140
001142

030520

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVR
MOVB

16%:

17%:

PC,GETSTS

IF DEVICE STARTED COMMAND
PC,GET
JSR
BR
16%
NOP
EMT
JMP

218

BIT
BEQ
MOV
BIC
MOV
EMT
JMP

#PIP,RMDSI
17¢%
RMDSI ,$GDDAT
#PIP,$GDDAT
] ,$BDDAT
RMDS
347
21

;60 TO GEYSTS SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 16$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 21% IF ERROR

:UG§'COMMAND EXECUTED??
JNO!!

JEXPECTED STATUS
JRECEIVED STATUS

CZRMOBO RMOS5/3/2 FCTNL ST 3

117

WRITE, READ W/ ABORT

2387

030436

2388
2389
2390 030442
030446
030450
030452
030454
1
239
030460
2392 030460
30464
030466
030470
030472
030474
3
030500
. 239
2394 030500
030504
030506
030510
030512
030514
2395 030520
2396
2397 030520
2398
2399

004737

043672

004737
000404
000240

043060

104000

000137

030520

004737

044056

000405
000240
104000
004736
000137

004737
000405
000240

MACRO v04.00
;WAIT

4-APR-81 01:15:59 PAGE 13-72
FOR COMMAND

TO (OMPLETE

PC, TIMOUT

;G0 TO TIMOUT

SUBROUTINE

;GO READ STATUS FOR READ OPERATION
ISR

188

19%

030520

044710

NOP
EMT

_
20%:

;G0 READ REGISTER(S)

18%

WITH GET

;GO TO 18% IF NO ERROR

;RETURN HERE ]F ERROR
;ERROR # DEFINED BY GET

SUBROUTINE

JSR
BR
NOP
EMT
JSR

PC,PRIERR
19%
PC,a(SP)+

;GO CHECK FOR PRIMARY ERRORS
;GO TO 19% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

.60 CHECK FOR SECONDARY ERRORS

JMP

EMT
JSR
JMP

;GO TO 21% IF ERROR

SUBROUTINE

218

NOP

030520

PC,GET

JMP

104000

004736
000137

JSR

SEQ 0143

21%

208

;G0 TO 21% IF ERROR

;GO TO 20% IF NO ERROR
;RETURN HERE

PC,a(SP)+
21%

ERROR

JERROR # DEFINED BY SECERR 5UBROUTINE
;GO0 BACK FOR MORE ERROR CHECKS
;GO TO 21% IF ERROR

21%:
""*"fil’*tfi*itt*l’*t*l’t***"**********fifit******i*t"*fi**t***tt*tfi*'i"

JxTEST 20

WRITE,

READ EACH CURRENT LEVEL

.':******t*t**'l‘*fi***i'*"l’****t**fl'***t******fi****fitfi*tttktt*tt*tt

030520
030520
030522
030524
030530
030534
030540
030546
2400

000004
000240

012706
013700
013701
012737

TST20:

001100
001276
001466
000020

2401
2402
2403

001226

SCOPE
NOP
Mov

MOV
MOV
MoV

#STACK,SF

$BASE RO
TSTQUE ,R1
#20,8TESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
;2SET TEST NUMBER IN APT MAIL BOX

"""t**fi*‘**"*t*t*tt'ti't****‘******t*tfi*l‘******tt***ttt****‘\'tii’

;LooP #1

2404

2405

2406 030546

030552

004737

054130

037316

;PREPARE

FORMAT ,WRITE ,READ
THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
054130
.WORD

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

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

030554
030556
030560
030562
2607 030506
2408

000404
000240
104000

000137

EMT
JMP

28%

NOP

031556

2%:

JVERIFY RECAL IBRATION
;GO TO 2% IF NO ERROR

;RETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO 7O 28% IF ERROR

MACRO v04.00
’ZRHOBO RMOS5/3/72 FCINL TST 3
T2l
wRITE, READ EACH (URRENT LEVEL
2409

2610 030566
2611 030574

(000C0O
000000
106436

2612 030602

177376

2613 030610
2614 030616
2615 030624

010000
000063

2616
2617

030632
030636
030640
030644
030646
2618 030652
2619 030652
2620 030660
24¢1 030666
2622
2423
24264 030672
2625 030676
2426 030702
2427 030706
2428 030712
2429 030716
2430 030722
26431 030726
2432 030732
2633 030732
030736
030740
030742
030744
2436 030750
2435
2436
030750
2437
2438
030754
2639
2440
2441 030760
030764

2442
2443

2645

001646

001420

001416
001414
001444
001412

070426

072060
000001
042174
001553
000034
000006
000004
000002
000032
000000
000200

MOV

031556

001174
001176

TYPE

.SCTMSG

JMP

28%

MOV
MOV
+SR

#ZEROS ,$TMPO
#1,8TMP1
PC,GENBUF

EMT

MOV
MOVB
MOVB

#PUTINX ,R2
#RMDC, (R2) +
#RMDA, (R2) +

Movs

(R2) +
A#R,MWC

MOVB

MOVR
MOVB
MOVB

031556

004737

042774

004737

043672

004737
000404
000240
104000
000137

043060

031556

056572

6%:

ARMOF
, (R2) +
ARM(CST,(R2)+
#200, (R2)
PC.PUT
6%

EMT
JMP

28%

;CALL BAD SECTOR MODULE
;GO TO 4% [F NO ERROR

;TYPE BAD SECTOR MESSAGE

JERROR # DEFINED BY BADSCT SUBROUTINE

;GO TO 28% If ERROR

;STARTING ADDRESS OF PATTERN
:RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

;R2 = BYTE ENTRY POSITION

;TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
.GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 28% If ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

:WAIT

PC.GETSTS

FOR COMMAND

JSR

TO COMPLETE

PC, TIMOUT

:GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR
P(C.GET
;G0 READ REGISTER(S) WITH GET SUBROUTINE
B8R
7%
;GO TO 78 [F NO ERROR
NOP
EMT

7%:

JmMP

28%

:VERIFY NO ERRORS DURING FORMAT
JSR

B8R

NOP

EmT

031556

IWRITE HEADER AND DATA (OMMAND

#RMBA, (R2)+

JSR
BR

NOP

000137

MWH !GO, RMCS10

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

043330
104000

SEQ 0144

:LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0 RMDCO
JCYLINDER
O
3%:
MOV
#0 ,RMDAO
JTRACK = 0, SECTOR = 0
MOV
#BUF ONE ,RMBAO
;BUS ADDRESS
MOV
#-258. ,RMJ(O
;2 + 256. WORDS (2°'S COMP)
MOV
#FMT16,RMOFQ
;16 BIT FORMAT
:VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
4%

0402642

012737
0737
004737

8 12
4-APR-81 01:15:59 PAGE 13-73

JSR

JMP

PC,DTASTS

PC,a(SP)+

28%

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

:GO TO 28% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;G0 TO 8% If NO ERROR

SRETURN HERE ]F ERROR

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

;GO TO 28% IF ERROR

MACRO v04.00
rZRMOBO RMOS/3/2 FCINL TST 3
120
wRITE, RPEAD EACH (URRENT LEVEL

2646 031016

2447
2648

2649 031016
522? 031024

c 12
4-APR-B1 01:75:59 PAGE 13-74

8%:

012737
©00410

031026

001124

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
B8R

2652

2653
2454
2655 031026
2456
2457
2658
26459 031026

;LOOP #2

031032

3EQ 0145

AN R

#9% ,SLPERR
10%

RN RN

;SKIP TO WRITE OPERATION
AR RN

R AR AN R AR RN R AR

NN NI AT RO NS

WRITE ,READ

9%:

00473/
054130

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
054130
;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

037316

sPACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

;RECALIBRATE IF “'SKI''
OR ‘PIP'" IS SET
031034
031036
031040
031042

2460 031046
2461
2662 031046
2663
2464

000404
000240
104000
000137

031556

012737
012737
012737
012702

177400
106442
000061
001553

2471 031104
2472 031110
26473 031114
2674 031120
32;2 031126

112722
112722
112722
112722
112722

000032
000004
000002
000000
000200

2477 031130

004737

031134
031136
031140
031142
52;3 031146
2480
~481 031146

10%
28%

;G0 _TO 108 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 28% IF ERROR

11%:

2465 031046
26466 031054
2467 031062
2468 031070

2469 031074
2470 031100

10%:

BR
NOP
EMT
JMP

;VERIFY RECALIBRATION

112722
112722

000404
000240
104000
000137

001416
001416
001412

;JWRITE DATA TO THE DRIVE

000006
000034

#-256. ,RMWCO
#BUF ONE +4 ,RMBAQ
#WD !GO, RMCS10
#PUTINX R2

;256. WORDS (2°'S COMP)
s CHANGE ADDRESS
JWRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

movs
MOV
MoV
MovB
MOovB

HRMOF
, (R2) +
ARMBA
, (R2) +
ARMWC
, (R2) +
ARMCS1, (R2)+
#200, (R2)+

s TERMINATE TABLE

mMovB
MOovB

043330

031556

MOV
mMov
MOV
MoV

JSR

12%:

B8R
NOP
EMT
JMp

#RMDA, (R2) +
#RMDC, (R2)+

PC,PUT

12%

28%

;G0 WRITE REGISTER(S)

WITH PUT SUBROUTINE

;GO _TO 128 IF NO ERROR
JRETURN HERE If ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 28% IF ERROR

004737

042774

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

2482
2483 031152

004737

043672

;WAIT FOR COMMAND TO COMPLETE
JSR
PC.TIMOUT

24684
2485 031156

004737

043060

;GO READ STATUS FOR WRITE COMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO TIMOUT SUBRQOUTINE

MACRO v04.00
CZRMOBO RMOS/3/2 FCTNL 1ST 3
20
WRITE, READ EACH CURRENT LEVEL
000404
000240
104000

2486
2487
2488
2489

000137

031556

004737
000405
000240

044056

004737
000405

2492 031234
2493
2494 031234
2495 031234
031240
031242
031244
031246
031250
2496 031254
2497

2498
2499 031254
2500 031262
2501

;GO TO 13% IF NO EKROR

JMP

28%

;GO TO 28% IF ERROR

JSR

PC,PRIERR

NOP
EMT
JSR

PC.a(SP)+

JSR

PC,DTASTS

B8R

JMP

14%:

056572

NOP
EMT

031556

004737
000405
000240
104000
004736
000137

044710

012737
000410

031264

JRETURN HERE IF ERROR
ERROR # DEFINED BY GET

SUBROUT INE

:CHECK FOR ERRORS DURING WRITE OPERATION

031556

15%:
16%:

17%:

001124

28%

15%

PC.a(SP)+
28%

JSR

PC,SECERR

B8R

031556

14%

JSR
JMP

NOP
EMT

2502

JSR
JMP

17%

PC.3(SP)+
28%

; CHANGE LOOP ADDRESSES
MOV
#18%,$LPERR
19%
BR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 14% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 28% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 158 IF NO ERROR
JRETURN HERE IF ERROR

;JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (CHECKS

;GO TO 28% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 178 IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
. GO BACK FOR MORE ERROR CHECKS

;GO TO 28% IF ERROR

;SKIP TO NEXT OPERATION

*tttt**ttt**t**tt**t‘**tttttfl'tk*tt'tkt!'ttt***t*tt*t*tit***t**t*

LOOP #3

2503
2504
2505 031264

READ

18%:

2506

2507
2508 031264
031270

13%

13%:

000240
104900

004736
000137

SEQ 0146

NOP
EMT

104000

004736
000137

D 12
4-APR-B1 01:15:59 PAGE 13-75

004737
054130

037316

;PREPARE DEVICE FOR READ OPERATION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
.WORD

054130

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

OR 'PIP"' IS SET
;RECALIBRATE IF ‘'SKI'*

031272
031274
031276
031300
2509 031304
2510
2511 031304
2512

000404
000240
104000
000137

031556

19%

JMP

28%

NOP
EMT

19%:

20%:

;VERIFY RECALIBRATION
;GO TO 19% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 28% IF ERROR

(ZRMOBO RMOS5/3/2 FCINL TST 3

2527 031404
2528
2529
031404
2530
2531
031410
2532
2533

2534 031414
031420
031422

031424
031426
2535 031432
2536
2537
2538 031432
031436
031440
031442
031444
031446
2539 031452

2540 031452
031456
031460
031462
031464
2561
2542
2543
2544

S
—d

N
—t e

I P

2520 031342
2521 031346
2522 031352
2523 031356
2524 031362
2525
2526 031366
031372
031374
031376
031400

d o

D —d

) — —

Yo o T

WRITE, READ EACH CURRENT LEVEL

737
737
737
702
722
722
722
722
72¢

n LaSIASTAS
oS T ST NT S 1,81,§1,¥
~N ~
- n)
nN

120

MACRO V04.00

1074646
177400

000071
001553
000006
000032
000034
000004
000002
000000
000200

004737
000404
000240
104000
000137

043230

004737

042774

004737

000404
000240

104000

031556

043672

043060

000137

031556

004737
000405
000240
104000

044056

004736
000137

031556

004737
000405
000240
104000
004736
000137

056572

004737
000405
000240
104000
004736
000137

044710

031556

001 416
(01 614
001 412

E 12
4-APR-B1 01:15:59 PAGE 13-76

;READ DATA FROM DEVI]CE

MOV

MOVA
MOVR

#BUF TWO+4 R MBAO
#=256. ,RMU(C 0
#RD !GO,RM(CS 10
#PUTINX
,R2
#RMDA
, (R2) +
ARMOF
, (R2) +
#RMDC, (R2)+
ARMBA, (R2) +
ARMWC
, (R2) +
ARM(ST, (R2) +

JSR
BR

PC,PUT
21s

MOV

Mov

MOV
MovB
MOVB
MOVB
MOVB

MOvVB

NGP
EMT

21%:

JMP

SEQ 0147
s CHANGE ADDRESS

2256, WORDS (2'S (OMP)
:READ DATA (OMMAND

;LOAD PUT REGISTER INDEX

TARLE

#200, (R2)

28%

GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 218 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 28% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

JWAIT

PC,GETSTS

FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUTY

;GO 7O GETSTS SUBROUT INE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
22%
;GO TO 228 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
JERROR # DEFINED BY GET SUBROUTINE
JMP
28%
;GO TO 28% IF ERROR
:
22%

;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;G0 CHECK FOR PRIMARY ERRORS
BR
23%
;GO TO 23% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUT INE
PC,a(SP)+
JSR
;GO BACK FOR MORE ERROR CHECKS
JMP
28%
;GO TO 28% IF ERROR

23%:

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

24%:

25%:

JMP

NOP
EMT
JSR

JMP

24%

28%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 248 IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TGO 28% IF ERROR

26%

;GO CHECK FOR SECONDARY ERRORS
;GO TO 26% IF NO ERROR

PC,a(SP)+
28%

JERROR # DEFINED BY SECERR SUSROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 28% IF ERROR

JRETURN HERE

ERROR

MACRO v04.00
WRITE, READ tACH CURRENT LEVEL

JRMOBO RMOS/3/72 FCINL TST 3

2545
2546 031512
031516
031520

062432

031522
031524
031526
031530

004737
106442
107446
000404
000240
1064000
000137

031534

062737

000209
001446

L2
50
52
56

023727
101002
000137

fF1 4

4-APR-81 (01:15:59 PAGE

26%:

JSR

.WORD
LWORD

NOP

EMT

278

031556
001446
001400

030574

28%:

SEQ 0148

PC.CMPBUF

;GO COMPARE WRITE,

27%

;GO TO 27% IF NO ERROR

BUFONE
+4
BUF TWO+4

READ DATA BUFFERS

:STARTING ADDRESS OF WRITE BUFFER
-STARTING ADDRESS OF READ BUFFFR

*RETURN HERE

ERROR

*ERROR # DEFINED BY CMPBUF

JMP

28$

ADD
CMP

#128. ,RMD(CO
RMDCO. #768.

BHI
JMP

13-77

*GO TO 288 IF ERROR

SUBROUT
INE

;ADVANCE TO NEXT THRESHOLD
*DONE??

28%
3$

SYES!
:DO NEXT CURRENT LEVEL

'-".t*tttttttt**t*tttttfl‘*itttfitttt‘*ttitttttt!t*ttttttttt"'tattt

SATEST

WRITE,

WRITE

CHECK W/

CURRENT

LEVEL

SWITCHING

03
31556
031560
031562
031566
031572
8%}576

000004
000240
0127906
013700
013701
12737

TSTZ21:

001100
001276
001466
000021

001226

SCOPE
NOP
MOV

MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#21,$TESTN

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED

S:SET TEST NUMBER IN APT MAIL BOX

""it't*ttttttttfittt'tttttttttilt'ttttfit'tttitttfitttttttttt'tttttt

;LOOP #1
4

610

004737

054130

037316

FORMAT ,WRITE ,READ
JSR

.WORD

PC,TSTPRP

054130

:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID

—

)

ok ol

lelololele)
NN NN

OV~

NIrOPRONINOTMY)

VN AN

(o VIV
1V, 1V, IV

":tttttt'ttttttkttttti'tttittt*fitt't*ttt'ttttttfitttfi'tttttttttt.‘

4
6

000404

000240
104000

0001357

106436
176774

010000
000063

031676
031702
031704

004737
000405
104401

040242

070426

JMP

268

NOP
EMT

032562

000577
001334
000037

2%:
001446
001420
001420
001416
001414

001444
0014612

“VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI""
OR 'PIP"* IS SET
*VERIFY RECALIBRATION

SGO TO 2% IF NO ERROR

RETURN HERE IF ERROR
“ERROR # DEFINED BY TSTPRP SUBROUTINE

1GO TO 26% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
MOV

#383. ,RMDCO
LSTRK ,RMDAO

SCYLINDER - 383.
“SET LAST TRACK AND

MOV
MOV
MOV

#-258.+2 RMWCO
#FMT16, RMOF O
#WH'!GO,RMCSTO

22 SECTORS (2'S COMP)
©16 BIT FORMAT
JWRITE HEADER AND DATA (OMMAND

MOVB
MOV

#31.,RMDAO
#BUF ONE , RMBAC

SVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADS(T

TYPE

L SCTMSG

*LAST SECTOR
*BUS ADDRESS

:CALL BAD SECTOR MODULE

*GO T0 3% IF NO ERROR

“TYPEf BAD SECTOR MESSAGE

6 12
MACRO v04.00 4-APR-81 01:15:59 PAGE 13-78
JIRMOB0 RMOS/3/72 FCINL IST 3
\P
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

031710

104000

031712
2573 031716
2576 C317216

000137

(32562

012737

072016

52;9 031732

004737

042174

2575 031724

2578

2579 031736
2580 031742
2581 031746
2582 031752
2583 031756
2584 031762
2585 031766

2586 031772

2587 031776
2588 031776
032002
32004
032006

032010

Sggg 032014
2591
2592 032014
2593

259 032020

2595
2596 032024

032030

032032
032034

032036

gggg 032042

2599
2600 032042
032046
€32050
032052
032054
032056
528; 032062
2603
2604 032062
5282 032070

012737

012702
112722
112722
112722
112722
112722
112722

112712

004737
000404
000240
104000

000001

001174

042774

004737

043672

004737
000404
000240
104000

043060

000137

032562

004737
000405
000240
104000
004736
000137

056572

MoV

#ONES , $TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC,GENBUF

:G0 GENERATE BUFFER FOR FORMAT

MOV

MOVR
MOVB

MOVB
MOVB
MOVB
4%:

5%:

;GO TO 26% IF ERROR

21,837MP1

JRANGE OF PATTERN

MOovB
JSR
BR
NOP
EMT
JMP

#PUTINX ,R2
#RMDC, (R2) +
#RMDA, (R2) +
#RMBA, (R2) +
#RMWC, (R2) +
ARMOF
, (R2) +
#RM(ST, (R2)+

;R2 = BYTE ENTRY POSITION

#200, (R2)
PL,PUT
5%

26%

;TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;60 TO 5% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 26% IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
:GO TO GETSTS SUBROUTINE

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 6% IF NO ERROR

JMP

26%

;GO TO 26% If ERROR

NOP
EMT

6%:

JVERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
BR
7%
NOP
EMT
JSR
PC,A(SP)+
JMP
26%
7% :

032562
.
032072

26%

MOV
MOVB

043330

004737

;ERROR # DEFINED BY BADSCT SUBROUTINE

JMP

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERAT]IION

000200

032562

001176

001553
000034
000006
000004
000002
000032
000000

000137

012737
000410

EMT

001124

RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINF

:G0 VERIFY RESULTS OF DATA TRANSFER
;GO TGO 7% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SURROUTINE
:60 BACK FOR MORE ERROR CHE(KS
;GO TO 26% IF ERROR

:MOVE LOOP ADDRESSES 10O NEXT OPERATION
MoV
#8%,SLPERR
BR
9%

:SKIP TO WRITE QPERATION

2607

::*tit*tttfitt*ttttttfittttttttttttkt'tttttit'ttt!ittt'ttttt'nntt't

2608
2609
2610 032072
2611

:LOOP #2

2612

8%:

WRITE ,READ

{IRMOBC RMOS/3/7¢2 FCINL TST 3

121

MACRO Vv04.00

H 12

4-APR-81 (01:15:59 PAGE 13-79

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

2613
2676 032072

032076

004737

054130

SEQ {5

;PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
sPREPARE DEVICE

(37316

.WORD

054130

FOR TESY

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

NOT

VALID

JRECALIBRATE IF ''SKI'" OR 'PIP'" IS SET

032100
632102
032104
032106

2615 032112
2616
2617 032112
2618
2619

000404
000240
104000
000137

012737
012737

2623 032134
2694 032142
2625 032750
2626 032154
2627 032160
2628 032164
2629 032170
2630 032174
2631 032200
2632 032204
2635 032210

012737
012737
C04737
012702
112722
112722
112722
112722
112722
112722
112722

2635 032214
032220
032222
032224
032226
2636 032232

9%:

268

;VERIFY RECALIBRATION
GO TO 9§ IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

G0 T0 26$ IF ERROR

108:

2620 032112
2621 632120

2622 032126

032562

BR
NOP
EMT
MP

(12737

177000
106436

001414
001416

072016
000001
042174
001553
000006
000034
000032
000004
000002
000000
000200

001174
001176

000061

JWRITE DATA TO THE DRIVE

MOV
MOV

001412

MOV

MOV
MOV
JSR
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

;2 SECTORS (2'S COMP)
: CHANGE ADDRESS

#WD ! GO,RM(CS10

JWRITE DATA (OMMAND

HONES,$TMPO
#1.STMPI
PC, GENBUF
#PUTINX ,R2
#RMDA, (R2)+
#RMDC.(R2)+
WRMOF
. (R2)+
#RMBA. (R2)+
#RMWC, (R2)+
#RMCST, (R2)+
4200, (R2)+

; TERMINATE TABLE

043330

2638
spgq 032232

004737

042774

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR*
PC,GETSTS
GO TO GETSTS SUBROUTINE

2640
spuq 032236

004737

043672

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

2643 032242
032246

004737
000404

043060

032252
032254
2044 032260

104000
000137

032562

004737

044056

2642

032250

2646
2647 032260

C32264

INY

268

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
GO TO 118 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
GO TO 26$ If ERROR

:GO TO TIMOUT SUBROUT
INE

;GO READ STATUS FOR WRITE (OMMAND

000240

000405

PC,PUT
1%

*STARTING ADDRESS OF PATTERN
RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
;LOAD PUT REGISTER INDEX TABLE

004737
000404
000240
104000
000137

032562

JSR
BR
NOP
EMT
M

#=256.%2,RMWCO
WBUFONE ,RMBAO

JSR
BR

PC,GET
128

:GO READ REGISTER(S) WITH GET SUBROUTINE
:G0_T0 128 IF NO ERROR

EMT
M

268

*ERROR # DEF INED BY GET SUBROUT INE
GO TO 26$ IF ERROR

NOP

128:

JRETURN HERE IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;GO (HECK FOR PR]IMARY ERRORS

13%

;GO TO 13% IF NO ERROR

I 12
MACRO v04.00 4-APR-81 01:15:59 PAGE 13-80
WRITE, WRITE (HECK W/ CURRENT LEVEL SWITCHING

CZRMOBO RMOS5/3/2 FCINL T1ST 3

127

032266
032270

2648
2649

000240

NOP
M7

104000

004736
000337

004737
000405
000240

032562

2650 032320
2651
2652 032320
2653 032320
032324
032326
032330
032332
032334
2654 032340
2655
2656
2657 032340
2658 032346
2659
2660

004737
000405
000240

[ele)

2350
2354

JSR

PL DTASTS

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

032562

JMP

14%:

15%:

044710

B8R

NOP

104000

004736
000137

012737
000410

032562

032350

16%:

001124

EMT
JER
JMP

148

26%

16%

PC.,a(SP)+
26%

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINL
;G0 BACK FOR MORE ERROR (HECKS
;GO TO 26% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 14$ IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HE(KS

;GO TO 26% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 16% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 26% IF ERROR

:CHANGE LOOP ADDRESSES
MOV
BR

#17%,8LPERR
18%

;SKIP TO NEXT OPERATION

'.'tit.tfitttttfittt*fiittt'it"t.fitlt.tittfittttfitl'ttt'ttttttlttt.t'

READ

;LOOP #3

2661
2662
2663 032350
2664
2665
2666

PC,R(SP)+
26%

13%:

056572

104000

004736
000137

JSR
JMP

SEQ 0151

i7$:

004737
054130

;PREPARE

037316

DEVICE

JSR

.WORD

FOR READ OPERATION

PC,TSTPRP

054130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

cPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

OR "PIP'" IS SET
JRECALIBRATE IF "'SKI''
032356
€32360

032362

032364
2667 032370

000404
000240
104000
000137

NOP
EMT

032562

18%:

2668
2669 032370

26%

JVERIFY RECALIBRATION
;GO TO 18% IF NOC ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 26% IF ERROR

19%:
ASTAS TS 1 1o N 1, N1, V1 V)
NNNNNN
NN
O
oM

2670
2671
2672 032370
2673 032376
2674 032402
2675 032406
2676 032412
2677 032416
2678 032422
2679 032426

JMP

18%

000051
001553
000006
000032
000034
000004
000002
000000

001412

;READ DATA FROM DEVICE
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVRB

#MICD!GOD,RM(CST10
#PUTINX
,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC, (R2)+
#RMBA, (R2) +
ARMWC, (R2)+
#RMCST, (R2)+

;READ DATA (OMMAND
:LOAD PUT REGISTER INDEX TABLE

~“IRMOBO RMOS/3/2 FCTINL TST 3
12

WRITE, WRITE

MACRO v04.00

CHECK W/ CURRENT LEVEL

J 12

4-APR-81 01:75:59 PAGE 13-8°

SWITCHING

2680 032432

112772

000200

MOVB

#200, (R2)

2682 032636
032442
032444
032446
032450
2683 032454

004737
000404
000240
104000
000137

043330

JSR
BR
NOP

PC,PUT
20%

JMP

26%

2685
266 032454

004737

042774

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
:C0 TO GETSTS SUBROUT
INE

2687
2688 032460

004737

043672

:WAIT FOR COMMAND TO COMPLETE
JSR
PC. TIMOUT

2690 032464
032470
032472

004737
000404
000240

043060

032476

00L'37

032562

2694 032502
032506
032510
032512
032514
032516
2695 032522
2696 032522
032526
032530
032532
032534
032536
2697 032542
2698
2699 032542
2700 032542

004737
000405
000240
104000
004736
000137

0464056

2689

032474

Sgg; 032502
2693

032546
032550
032552
032554

032556
2701 032562

104000

004737

000405

000240
104000
004736

032562

032562
_
056572

000137

032562

004737

044710

000405

000240
104000
004736

000137

032562

2702
2703 032562
2704

EMT

208 :

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 208 IF NO_ERROR
*RETURN HERE [F ERROR
*ERROR # DEF INED BY PUT SUBROUTINE
:GO TO 268 IF ERROR

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR READ OPERATION

JSR
BR

218:

NOP
EMT
JMP

PC,GET
21%

;GO READ REGISTER(S) WITH GET SUBROUTINE
160 TO 218 IF NO_ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE

26%

16O TO 268 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION

22%:

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR
228

JSR

PC,DTASTS

NOP
EMT
SR

23%:
24%:

JMP

JSR

B8R

NOP
EMT
JSR

25%:

JMP

PC,a(SP)+
26%

23%

;GO CHECK FOR PRIMARY ERRORS
:GO_TO 228 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
GO BACK FOR MORE ERROR CHE(CKS
16O TO 268 IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER

160 TO 238 IF NO ERROR

PC,a(SP)+

:RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

26%

25%

PC,a(SP)+
26%

;GO TO 26% IF ERROR

;GO TO 25% IF NO ERROR

:RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

16O TO 268 IF ERROR

26%:

2705

""ttii’itfitttittittfi*l’fi'l'ttl’tt'tttttttttt'tifitttfit‘Q'R"*tttlti\'t

S*TEST 22

WRITE,

READ EARLY PEAK SHIFT

""i.'ttfl'itttt.ttttl‘!lt"tttfitk*'tttt.ii'ti!tttl"tt'.it"ttll't\"

032562
032562
032564
032566

000004
000240
012706

TST22:

001100

SCOPE
NOP
MOV

#STACK, SP

;SCOPE (ALL
:START OF TEST
:INITIALIZE STACK POINTER

SEQ 715,

CZRMOBO RMOS/3/2 FCINL TST 3

122

WRITE, REATM EAF

032572
0325’4
206 032602

5707

“"3.wJ
013701
012737

MACRO v04.00

SHIFT

001276
(01466
000022

001226

2708

K 12

4-APR-81 01:15:59 PAGE 13-82
MOV
MOV
MOV

cRO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
J:SET TEST NUMBER [N APT MAIL BOX

IR A AR AR RN AR AR R R AN R AR RN R AR AN R R RN AR R AN RN R AN RSN R CAR RO NN
;LOOP M1

2709

$BASE RO
TSTQUE ,R1
#22,8TESTN

FORMAT ,WRITE ,READ

S;}? 032610

18:

2712

;PREPARE THE DEVICZ FOR FORMAT OPERATION

2713 032610
032514

004737
154130

037316

SEQ " %7

JSR

.WORD

PC,.TSTPRP
154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

OR ‘PIP'' IS SET
;RECALIBRATE IF *'SKI''
032616

032620
032622
032624
S;}g 032630

000404

000240
104000
000137

033570

2716
2717 032630

012737

000000

001446

2720 032652

012737

177376

001414

2718 032636
2719 032644

2721 032660
S;S§ 032666

012737
012737

000000
106436

012737
012737

010000
000063

032674
032700
032702
032706
032710
2725 032714
2726 032714

004737
000405
104401
104000
000137

040242

012737

072272

S;Sg 032730

004737

042174

2724

2727 032722

2730

012737

000001

001553

2735 032754
2736 032760

112722
112722

000002
000032

2737 032764
2738 032770
2739 032774

2740 032774
033000
033002

112722
112712

004737
000404

000240

001420
001416

043330

25%

;GO TO 25% IF ERROR

#0 ,RMDAQ
#B8UF ONE ,RMBAO

;TRACK = 0, SECTOR - O
;BUS ADDRESS

MoV
MoV

HFMT16,RMOF O
#WH!GO,RMCS10

;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

#-258. ,RMW(CO

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC.BADSCT
BR
3%
TYPE
.SCTMSG
EMT

00117:

;ERROR # DEFINED BY TSTPRP SUBROUTINE

MOV
MoV

MoV

3%:

001176

JMP

25%

Mov

#EARLY,$TMPO

JSR

PC,GENBUF

MOV

#1,8$TMP1

;2 + 256. WORDS (2'S COMP)

;CALL BAD SECTOR MODULE
;GO TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 25% IF ERROR
;STARTING ADDRESS OF PATTERN

;RANGE OF PATTERN

;GO GENERATE BUFFER FOR FORMAT

JLOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERAT]ION

000034
000006
000004
000000
000200

NOP
EMT
JMP

;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE 1F ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MoV
#0 ,RMDCO
;CYLINDER = 0

001444
001412

033570

012702

112722
112722
112722

2%:

070426

2731 032734

2732 032740
2733 032744
2734 032750

)

MOV

H#PUTINX ,R2

MOovB
MOVB

HRMWC, (R2) +
HRMOF
, (R2) +

MOVB
MovB
MOVB

4%:

MOVB
MOVB

JSR
BR
NOP

HRMDC, (R2) +
#RMDA, (R2) +
HRMBA
, (R2) +
H#RMCST,(R2)+
#200, (RD)

PC.PUT
5%

;JR2 = BYTE ENTRY POSITION

;TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR
JRETURN HERE [F ERROR

MACRO v04.00
“ZRMOBO KMOS/3/2 ¢ CTNL IST 3
WRITE, READ EARLY PEAK SHIFT
T2
033004
033006
2741 033012
2742

2743

2744
2745
2746

104000

L 12

4-APR-81 (1:15:59 PAGE 13-83
M1
JMP

SEQ 0154

;ERROR # DEFINED BY PUT

;GO TO 25% IF ERROR

000137

(33570

033012

004737

042774

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
GO TO GETSTS SUBROUTINE

033016

004737

043672

;WAIT FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

004737

043060

2747
2748 033022
033026
033030
033032
033034
2749 033040
2750

2751
2752 G33040
033044
033046

033050
033052

033054
2753 033060
2754
2755

2756 033060
2757 033066
2758
2759
2760
2761
2762 033070

000404
000240
104000
000137

004737
000405
000240

5%:

JSR

B8R

033570

JSR
BR

NOP
EMT
JSR

104000

012737

033070

000410

;60 1O TIMOUT SUBROUTINE

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUT
"NE
;GO TO 6% IF NO ERROR
sJRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

25%

:VERIFY NO ERRORS DURING FORMAT

IMP

7%:

001124

PC.DTASTS
7$

PC.A(SP)+

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 25% IF ERROR

25%

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
BR

#8%, SLPERR
9%

e 2324238238828

2d0isRR

WRITE ,READ

‘{ooP #2

iRt

RRRtRt0dtRRatst

sttt

8%:

2763

2764
2765 033070
033074

EMT
JMP

6%:

056572

033570

SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
NOP

004736
000137

25%

004737

154130

:PREPARE

037316

DEVICE FOR WRITE OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP
JSR
;TASK DESCRIPTOR AS FOLLOWS:
LWORD
154130

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

JRECALIBRATE IF ''SKI'' OR 'PIP'" IS SET

2772 033124

JMP

25%

NOP
EMT

033570

9%:

JVERIFY RECALIBRATION
;GO TO 9% IF NO ERROR
JRETURN HERE IF ERRCR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 25% IF ERROR

%82’75 DATA TO THE DRIVE
—
e
b

2771 033116

000137

nron
NN
AN
N

2766 033110
2767
2768
2769 033110
2770 033110

000404
000240
104000

[elele]

033076
033100
033102
033104

177400
106442

000061

001
001

001

Mov

MOV
MOV

#~256. ,RMWCO

#BUF ONE +4 , RMBAD
#WD . GO,RMCS10

. CHANGE WORD COUNT

; CHANGE ADDRESS
;WRITE DATA (OMMAND

MACRO v04.00
r ZRMOBO RMOS/3/2 FCINL TST 3
WwRITE, READ EARLY PEAK SHIFT
122
2773 033132
2774 033136

2775 033142
2776 033146
2777 033152
2778 033156
2779 033162
2780 033166
2781
2782 033172
033176
033200
033202
033204
2783 033210
2784
2785
2786
2787

001553
000006
000034
000032
000004
000002
000000
000200

MOV
MOVB
MOVB
MOVB
MOVB
MOVR
MOVB

R2
#PUTINX
, (R2) +
#RMDA
#RMDC, (R2)+
#RMOF
, (R2) +
#RMBA, (R2) +
#RMW(C, (R2) +
#RMCST,(R2)+

043330

J5R
8R

PC.,PUT
118

JMP

25%

000137

033570

033210

004737

042774

033214

004737

043672

004737
000404
000240

043060

000137

033570

004737
000405
000240

044056

2788
2789
2790 033220
033224
033226
033230
033232
2791 033236
2792
2793
279 033236
033242
033244
033246
033250
033252
2795 033256
2796 033256
033262
033264
033266
033270
033272
2797 033276
2798 033276
033302
033304
033306
033310
033312

2799 033316

104000

MOVB

NOP
EMT

11%:

004737
000405
000240

JWAIT FOR COMMAND TO COMPLETE
JSR

004737
000405
000240

13¢%-

033570

000410

14%:

044710

;GO TO TIMOUT SUBROUTINE

25%

;GO TO 25% IF ERROR

JSR
BR

PC,DTASTS
14%

;GO VERIFY RESULTS OF DATA TRANSFER
:G0 TO 143 IF NO ERROR

JSR
JMP

PC,a(SP)+
25%

JSR
BR

PC,SECERR
15%

JSR
JMP

PC,a(SP)+
25%

NOP
EMT

033326

PC.TIMOUT

JMP

NOP
EMT

012737

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 25% IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
PL,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
13%
;GO TO 13$ IF NO ERROR
NOP
;JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;GO0 BACK FOR MORE ERROR CHECKS

056572

033570

s TERMINATE TABLE

12%:

033570

104000
004736
000137

sLOAD PUT REGISTER INDEX TABLE

;GO READ STATUS FOR WRITE COMMAND
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
BR
12%
;GO TO 12% IF NO ERROR
NOP
JRETURN HERE ]F ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
25%
JMP
;GO TO 25% IF ERROR

104000

004736
000137

#200, (R2)+

SEQ 0155

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

104000

004736
000137

M 12
4-APR-81 01:15:59 PAGE 13-84

15%:

001124

;CHANGE LOOP ADDRESSES
#16%,3LPERR
MOV
17%
BR

*RETURN HERE

IF ERROR

*ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

*GD TO 258 IF ERROR

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 15% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

CZRMOBO KMOS5/3/2 FCTNL TST 3

MACRO v04.00

WRITE, READ EARLY PEAK SHIFT

122

2805
2806
2807
2808 033326
2809
2810
2811 033326
033332

N 12

4-APR-B1 01:15:59 PAGE 13-85

.'"""‘t.'."..l"*‘t‘t.""'t".‘Q‘.""‘"‘t‘.'.'t“i.‘t".""‘

:LOOP #3

READ

16%:

004737
154130

:PREPARE DEVICE FOR READ OPERATION

037316

JSR

.WORD

PC,TSTPRP

154130

000404
000240
104000

000137

000071
107446
001553
000006
000032
000034
000004
000002
000000
000200

033354
033362

033366
033372
033376
033402
033406
033412
033416

2830

2831
2832

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

17%

JVERIFY RECALIBRATION
;GO TO 17% IF NO ERROR

JMP

25%

;60 TO 25% IF ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

%ggAD DATA FROM DEVICE

033346
033346

033422
033426
033430
033432
033434
2828 033440

17%:

FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

JRECALIBRATE If ''SKI'* OR '"PIP’ IS SET

NOP
EMT

033570

;PREPARE DEVICE

JVERIFY PACK ACKNOWLEDGE

033334
033336
033340
033342
C33346

SEQ 0156

)

0014 12
0014 16

MOV

#RD !GO ,RMCS10

;READ DATA COMMAND

MOV

#PUTINX ,RZ2

;LOAD PUT REGISTER INDEX TABLE

MOV

MovVB
MOVB
MovB
MOVB
MOvVB
MOVB
MOovB

043330

#BUF TWO~4 ,RMBAD

#RMDA
, (R2) +
HRMOF
, (R2) +
HRMDC, (R2) +
HRMBA, (R2) +
HRMWC, (R2) +
HRMCST, (R2)+
#200, (R2)

JSR
BR

PC,PUT
19%

JMP

25%

NOP
EMT

. CHANGE BUFFER

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 198 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

000137

033570

033440

004737

042774

033444

004737

043672

004737
000404
000240

043060

000137

033570

208

004737

044056

;CHECK FOR ERRORS DURING READ OPERATION
;G0 CHECK FOR PRIMARY ERRORS
PC,PRIERR
JSR

2833
2834
2835 033450
033454
033456
033460
033462
2836 033466
2837
2838
2839 033466

104000

19%:

;GO TO 25% IF ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

;WAIT FOR

PC.GETSTS

COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR
BR

NOP

EMT

JMP

PC,GET
20%

25%

;GO0 READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 208 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

.’

CZRMOBO RMOS5/3/2 FCINL TST 3
MACRO v04.00
12¢
WRITE, READ EARLY PEAK SHIFT

033472

033476
033476
033500

033502

000405

000240
104000
004736

B8R

2840 033506
2841 033506

000137

033570

004737

056572

033514

Q00240

033512

033516
033520
033522
2842 033526

000405

(33570

2863 033526

004737

0446710

033534
033536
033540
033542
23844 (033546

000240
104000
004736
000137

033570

004737

042432

2845 033546

033552
033554
033556
033560
033562
033564
2846 033570
2847
2848 033570
2849
2850

000405

106442
107446
000494
000240
104000
000137

21%:

22%:

033570

JSR

PC,DTASTS

.GO VERIFY RESULTS OF DATA TRANSFER

25%

22%

26%:

;GO TO 258 [F ERROR

;GO TO 22% IF NO ERROR

;RETURN HERE IF ERROR

EMT
JSR
JMP

PC,a(SP)+
25%

JERROR # DEFINED BY DTASTS SiBROUTINE
;GO BACK FOR MORE ERROKk CHECKS
;GO TO 258 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRCRS

23%

NOP
EMT
JSR
JMP

25%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECALS
;GO TO 25% IF ERROR

PC.,CMPBUF

;GO (OMPARE WRITE, READ DATA BUFFERS

PC,a(SP)+

JSR

.WORD
.WORD
BR
NOP
EMT
JMP

;GO TO 23% [F NO ERROR

BUFONE+4
BUF TWO+4
24%

25%

;STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS Gi READ BUFFER
;G0 TO 24% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY CMPBUF >UBROUTINE
;GO0 TO 25% IF ERROR

25%:
RARRN AN RS P

SRTEST 23

Q00004
000240
012706
013700
013701
012737

TST23:
001100
001276
001466
000023

2852

001226

WRITE,

R AR AR

SCOPE
NOP
MOV
MOV
MOV
MOV

AR AR

;LOOP #1

Sggz

2855 033616

A AR R AR RN AN AR A RN AR

R AN R AR AR AR R R AR AN RN AR AR R R

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#23,$TESTN
AR

A A AR RNRK AR AN

READ MIXED PEAK SHIFT

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO - UNIBUS ADDRESS
s(R1) - DEVICE BEING TESTED
;oSET TEST NUMBER IN APT MAIL BOX

FORMAT ,WRITE ,READ
NN RN AR AR AR

RANK R AR

A AR R AR

RN AR AN R

R RN

AR R

1%:

2856

2857
2858 033616
033622

PC,a(SP)+

JMP

B8R

23%:

;G0 10 21% IF NO ERROR

JRETURN HERE ]F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR (CHE(CKS

B8R

RN AR

033570
033570
033572
033574
033600
033604
2851 033610

2:s

SEQ 0157

NOP
EMT
JSR

NOP

104000
004736
000137

033532

B 13
4-APR-B1 01:15:59 PAGE 13-86

004737
154130

037316

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF "'SKI'" OR 'PIP"" IS SET
;VERIFY RECALIBRATION

C(ZRMOBO RMO5/3/2 FCINL TST 3

123

WRITE,

READ MIXED PEAK

MACRO v04.CO

SHIFT

c13
4&-APR-8i 01:15:59 PAGE 13-87

032626

000404

033630
033632

104000
000137

034576

EMT
JMP

2863 033644

012737
012737

000000
000000

001446
003420

Sggg 033674

012737

000063

001412

033626
5328 033636

2861
2862 033636

2864 033652
2865 033660
2806 033666
2869

033702
033706
033710
033714
033716
2870 033722

000240

012737
012737
012737

NOP

106436
177376
010000

2%:

SEQ 0158

;GO TO 2% IF NO ERROR

25%

JERROR # DEFINED BY TSTPRP SUBROUTINE
100 TO 258 IF ERROR

:RETURN HERE [f ERROR

:LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0

001416
001414
001444

MOV

#0,RMDAO

;TRACK = 0, SECTOR = 0

MOV

MWH'GO,RMCS10

:WRITE HEADER AND DATA COMMAND

MOV
MOV
MOV

#BUF ONE ,RMBAQ
#-258. ,RMWCO
#FMT16 ,RMOFO

:VERIFY THAT SECTOR IS NOT BAD
JSR
PC.BADSCT

;BUS ADDRESS
;2 + 256. WORDS (2'S ComMP)
:16 BIT FORMAT

004737
000405
104401
704000
000137

040242

2871 033722
2872 033730
Sg;z 033736

012737
012737
004737

071756
000200
042174

2875
2876 033742

012702

001553

112722
112722
112722
112722
112722
112712

000006
000004
000002
000032
000000
000200

004737
000404
000240
104000
000137

043330

2889 034020

004737

042774

2890
2891 034024

C04737

043672

:WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

2892
2893 034030

004737

043060

:GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE

2877 033746

2878 033752
2879 033756
2880 033762
2881 033766
2882 033772
2883 033776
2884 034002
2885 034002
034006
034010
034012
034014
Sggg 034020
2888

034034

034036
034040
034042
gggg 034046
2896

112722

000404

000240
104000
000137

070426

034576

(000034

034576

001174
001176

3%:

BR
TYPE
EMT
JMF

3%
.SCTMSG

25%

MOV
MOV
JSR

#MIXED, $TMPO
#128. ,$TMP1
PC, GENBUF

;CALL BAD SECTOR MODULE
;GO TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
:GO TO 25% IF ERROR

;STARTING ADDRESS OF PATTERN
:RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
APUTINX ,R2
:R2 = BYTE ENTRY POSITION

MOVB

4%:

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RMDA
, (R2) +
#RMBA, (R2)+
#RMWC, (R2)+
H#RMOF
, (R2) +
ARMCST,(R2)+
#200, (R2)

JSR
BR
NOP

PC,PUT
5%

JMP

25%

EMT

5%:

#RMDC, (R2)+

:TERMINATE TABLE
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 25% IF ERROR

:SETUP GET INDEX TARLE TO READ ALL REGISTERS

JSR

B8R

NOP
EMT
JMP

PC.,GETSTS

25%

:VERIFY NG ERRORS DURING FORMAT

;GO TO GETSTS SUBROUT INE
;GO TO TIMOUT SUBROUTINE

:GO TO 6% IF NO ERROR

;RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUT
INE
:GO TO 25% Ir ERROR

£ ZRTMMOBO RMOS/3/2 FCINL TST 3
MACRO v04.00
123
WRITE, READ MIXED PEAK SHIFT

2897 034046
034052
034054
034056
034060
034062
2898 034066
2899

004737
000405
000240

2901 034066
2902 034074
2903
2904
2905

012737
000410

2907 034076
2908
2909
2910 034076
034102

2931

JSR

NOP
EMT

104000

004736
00137

034576

034076

JSR
JMP

7%:

301124

;MOVE LOOP

MOV

B8R
A

jolelolole

004737
154130

104000

PC,a(SP)+
25%

;GO VERIFY RESULTS OF DATA TRANSHER
;G0 TO 7% IF NO ERROR

sRETURN HERE

ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 25% IF ERROR

DDRESSES TO NEXT OPERATION
#8%,8LPERR

;SKIP TO WRITE OPERATION

WRITE ,READ

037316

;PREPARE

DEVICE FOR WRITE OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP
JSR
;TASK DESCRIPTOR AS FOLLOWS:
.WORD
154130

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

034576

OR 'PIP'' IS SET
JRECALIBRATE IF ''SKI'*
;VERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

JMP

25%

;GO TO 25% IF ERROR

NOP
EMT

9%:

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

e
b
D
d
md
b
D
D

ASTAST TS T,N1 01,8 1,8 1,01, $1,§
~N NNNNNNNNNN
no n SIS
IAS\S =1V IV V]
no no [ASTANTAN
AN 101 0 BN o N RN

ad =2 e OOOO

%82175 DATA TC THE DRIVE

— sk e

= —

H OO0

D S
el el

il
wnd
e

QONN

—r v

8%:

000137

PC.DTASTS

SEQ 0159

8224222802332 F2222dd2RS2RRASSRdRARRRlRR2dRSARARRRR
2]

;LOOP #2

177400
106442
000061

043330

000137

034576

004737

042774

MoV

#-256. ,RMWCO

MOvVB

#RMDA, (R2) +

MOV
MOV
MOV

001553
000006
000034
000032
000004
000002
000000
000200

004737
000404
000240
104000

2928
2929
2930

056572

000404
000240

[elelolololelolelele]
ML
NN NN IN NN

2911
2912
293
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927

D1 3
4-APR-81 01:15:59 PAGE 1 3-88

MOVB
MOVB
MOVR
Mova
MOVB
MOVR
JSR

B8R

NOP

11%:

EMT
JMP

#BUF ONE +4 ,RMBAQ
#WD !GO ,RM(S10
#PUTINX
,R2

#RMDC, (R2)+
ARMOF
, (R2)+
ARMBA
, (R2)+
H#RMWC, (R2)+
#RMCST, (R2)+
#200, (R2)+

: CHANGE WORD COUNT
; CHANGE ADDRESS
;WRITE DATA COMMAND
;LOAD PUT REGISTER

INDEX

TABLE

; TERMINATE TABLE

11%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO 70 11$ IF NO ERROR

25%

:ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 25% IF ERROR

PC,PUT

JRETURN HERE

ERROR

JSETUP GET INDEX TABLE TG READ A_L REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE

CZRMOBO RMOS/3/2 FCTNL TIST 3

123

MACRO v04.00

WRITE, READ MIXED PEAK SHIFT

2932
2933 034222

004737

(43672

<935 034226

004737

043060

034234
034236
034240
2936 034244

000240
104000
000137

034576

004737

044056

293/,

034232

2938
2939 034244

034250

000404

000405

034252
034254
034256
034260
2940 034264
2941 (034264

000240
104000
004736
000137

034576

004737

056572

034272

000240

034270

034274
034276

034300
2962 034304
2963 034304
034310
034312
034314
034316

034320
2944 034324
2945

2946

2947 034324
sgzg 034332

Q005

104000
0O 736
000137
004737
000405
000240

104000
004736

000137

012737
000410

€13
4-APR-81 (01:15:59 PAGE 13-89

:WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR WRITE COMMAND
JSR

12%:

NOP
EMT
JMP

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

25s

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% IF ERROR

12%

;GO TO 12% IF NO ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

B8R

13%:

PC.a(SP)+
25$

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

14%:

044710
.

034576

001124

JMP

JSR
BR
NOP
EMT
JSR

15%:

;GO TO 13% If NO ERROR

RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
.GO TO 25% IF ERROR

B8R

034576

13%

NOP
EMT
.SR
JMP

NOP

034334

SEQ 0160

JMP

A 3

PC.R(SP)+
25%
PC,SECERR
15%
PC,a(SP)+

25%

:GO TO 14% IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 158 IF NO ERROR
RETURN HERE IF ERROR

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

;GO TO 25% IF ERROR

: CHANGE LOOP ADDRESSES

MOV
BR

#16%,$LPERR
17%

;SKIP TO NEXT OPERATION

2950

'-:ttttnttnt'tqtttttttttitttttwtttQtttt'twtt.nttttttfitttt'tttttttt

2951
2952
2953 034334
2954

:LoOP #3

2955

2956 034334

034340

034342
034344
034346
034350

READ

16%:

004737

154130

000404
000240
104000
000137

037316

034576

:PREPARE DEVICE FOR READ OPERATION

JSR

.WORD

BR
NOP
EMT
JMP

P(C,TSTPRP
154130

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

SJSELECT DEVICE & VERIFY DEVICE AVAILAB.E
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI''
OR 'PIP'' IS SET
N
BRATIO
RECALI
Y
;VERIF
;GO TO 17% [F NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 25% IF ERROR

MACRO Vv04.00
r ZRMOBO RMOS/3/2 FCTNL TST 3
123
WRITE, RZAD MIXED PEAK SHIFT

2978

2979
2980 034456
034462
034464
034466
034470
2981 034474
2982
2983
2984 034474
034500
034502
034504

SEQ 0161

17%:
,;ggAD DATA FROM DEVICE
[ASIACIaNIAV1
N1, 01, V1,81 V)
NNNNNN
AN IS IASIASIAS
IV
[aN1aNTAN
1,1 N1,V

2957 034354
<958
2959
2960 034354
2961 034354
2962 034362
2963 034370
2964 034374
2965 034400
2966 0344064
2967 034410
2968 034414
2969 034420
2970 034424
2971
2972 034430
034434
034436
034440
034442
2973 034446
2974
2975
034446
2976
2977
034452

F13

4-APR-81 01:15:59 PAGE 13-90

107446

000071
001553
000096
000032
000034
000004
000002
000000
000200

001416
001412

043330

034576

004737

042774

004737

043672

004737
000404
000240

043060

000137

034576

004737
000405
000240

044056

104000

19%:

004737
000405
000240

JSR
BR
NOP
EMT
JMP

PC,PUT
19%

JSR
JSR
JSR

NOP
EMT

20%:

JMF

044710

000137

034576

PC, TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT

SUBROUTINE

PC.GET

20%
25%

;GO READ REGISTER(S)

WITH GET SUBROUTINE

;GO TO 208 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET

;G0 TO 258 IF FRROR

SUBROUTINE

218

;G0 TO 21% IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+

25%

;ERROR # DEFINED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR (HE(CKS
;G0 TO 25% IF ERROR

218

ISR

PC,DTASTS

;GO VERIFY RESULTS OF

B8R

NOP

004737
000405
000240

TABLE

;CHECK FOR ERRORS DURING READ OPERATION
JSR
P(,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

056572

034576

INDEX

TO READ ALL REGISTERS

PC,GETSTS

;GO READ STATUS FOR READ OPERATION

NOP

034576

25%

INDEX TABLE

s CHANGE BUFFER
;READ DATA (OMMAND
;LOAD PUT REGISTER

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 19% IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 25% IF ERROR

:WAIT FOR COMMAND TO COMPLETE

104000

004736
000137

#BUF TWO+4 ,RMBAD
#RD !GO ,RM(S10
#PUTINX ,R2
ARMDA, (R2) +
ARMOF
, (R2) +
ARMDC, (R2) +
#RMBA, (R2)+
HRMWC, (R2) +
#RMCST, (R2)+
#200,(R2)

;SETUP GET

104000

004736
000137

MOV
MOV
MOV
MOVR
MOVB
MOVB
MOVB
MOVB
MCVB
MOVB

228

22%

JRETURN HMERE

ERROR

:GO TO 22% IF NO ERROR
JRETURN HERE

DATA TRANSFER

ERROR

EMT
JSR
JMP

PC,a(SP)+
25%

JERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHE(KS
;GO TO 25% [F ERROR

JSK

PL,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP

EMT
2SR
JMp

23%

PC,a(SP)+
25%

:GC TO 23% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROJU'
[Nt
:6G0 BACK FOR MORE ERROR (MEC(KS
;G0 TO 25% [f ERROR

2989 034554
2670 034554
034560
034562
034564
034566
034570
034572
2991 034576
2992
2993 034576
299%
2995

004737

106442
107446

c3%:

(62632

000137

JSR
L.WORD
.WORD

B8R

000404
000240

104000

NOP
EMT

034576

24L%:

JMP

Jarga

4-APR=-B1 (01:15:59 PAGE

MACRO Vv04.0C
A RMOBC RM(OS5/3/2 FCINL TST 3
WRITE, READ MIXED PEAK SHIFT
2 3

-91

PC,CMPBUF
BUF ONE +4
BUF TWO+4

;GO COMPARE WRITE, READ DATA BUFFERS
:STARTING ADDRESS OF WRITE BUFFER
*STARTING ADDRESS OF READ BUFFFR

;GO TO 24% IF NO ERROR
*RETURN HERE

IF ERROR

“ERROR # DEFINED BY

258

“GO TO 258 IF ERROR

CMPBUF

SUBROUTINE

25%:
";Qttttt‘!*tttt.ttttttt*'lttttt'ttttlt'ttfittt'ttt'ttt't'tt‘Q"Qtt

SATEST 24

WRITE,

READ EACH

TRACK

"."tt'tl’t'tttttt'l*"""'t‘ttfittt!ttttt!"'ttt'ttttttttttt-"ttt

27996
2997
2998

034576
034576
034600
034602
034606
034612
034616

000004
000240
012706
013700
013701
012737

18124

001100
0C1276
001466
000024

SCOPE
NOP
MOV

#STACK,SP

;SCOPE CALL
*START OF TEST
“INITIALIZE STACK POINTER

MOV
MOV

TSTQUE ,R1
#24 $TESTN

“(R1) = DEVICE BEING TESTED
S:SET TEST NUMBER IN APT MAIL BOX

MOV
001226

$BASE , RO

‘RO - UNIBUS ADDRESS

,-_-tttt.ttttttitttt’ttt"tttt'ttttttitittt*tlttntttttttfitttttt.tt.n

L ooP #1

2999

2000 034624

3001
3002
3003 034624
034630

FORMAT ,WRITE ,READ

1%:

004737
154130

:PREPARE

037316

THE

JSR

LWORD

DEVICE

FOR

FORMAT

PC,TSTPRP

154130

OPERATION

;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE © VERIFY DEVICE AVAILABLE
*CLEAR CONTKOLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
“PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE

OR 'PIP'* IS SET
*RECAL IBRATE IF ''SKI"*

—

NNN

OrO

000

LRE

034632
034634
034636
034640
3004 034644
3005
3006
3007 034644
3008 034652
3009 034660
3010 034660
3011 034666
3012 034674
3013 034702
3014
3015

—

000404
000240
104000

000137

2%:

000000
000000

001446
001420

106436
177376

001416
001414
007444
001412

010000
000063

0400242
070426

———
——
——

B8R

GO TO 2% IF NO ERROR

JMP

26%

GO TO 26% IF ERROR

NOP
EMT

035624

SVERIFY RECALIBRATION

*RETURN HERE IF ERROR
“ERROR # DEFINED BY TSTPRP SUBROUT INE

:LOAD PARAMETERS AND GENERATE DATA BUFFER
2

MOV

#0,RMDCO

;CYLINDER = 0

MOV

#BUF ONE , RMBAO

:8US ADDRESS

MOV
MOV

#FMT16.RMOF O
#WH ' GO.RMCS10

216 BIT FORMAT
‘WRITE HEADER AND DATA (OMMAND

MOV

’

MOV

#0.RMDAO
#-258. ,RMW(O

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADS(T
BR
3
TYPE

.SCTMSG

STRACK = 0, SECTOR

12 + 256. WORDS (2'S COMP)

;CALL BAD SECTOR MODULE
;GO TO 4% IF NO ERROR
;TYPE BAD

SECTOR MESSAGE

JRMOBO RMGS/3/2 FCINL TST 3
MRTA
WwRITE, READ EACH TRA(K

034722
034726

104000
000137

(35624

3077 034750
IN18 034726

012737
032737

07175
(LucdU

2012702
112722
112722
112722
112722
112722
112722
112712

0C"5S3
0C("3%¢
000 C6
000004
000002
000032
000000
000200

004737
000404
000240
104000
000137

043330

004737

042774

3039 035032

004737

043672

2040
3041 035036

004737

043060

3016 034730

2838 034744
3021

3022 0364750
3023 034754
3024 034760
3025 034764
3026 034770
30¢7 034776
3028 035000
3029 035004

3030 035010
3031
3032
3033 £35010

035014
035016
035020
035022
28;2 035026

3036
3037 035026
5038

035042

035044
035046
035050
ggz% 035054
2044

004737

000404

000240
104000
000137

3045 035054
035060

004737
000405

035064
035066
035070
;829 035074

104000
004736
000137

035062

3048
3049 035074
%82? 035102

040774

MAIRD U4, 20

001774
001776

4$:

H 13

4-APR-81 (1:15:99 PAGE 13-92

EmM7
JMP

268%

MOV
MOV

AM]IXED ,S$TMPO
#128.,$TMP1

JSR

5¢:

JSTARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

P, GENBUF

GO GENERATE BUFFER FOR FORMAT

MOV
MOVB
MOV
MOVB
MOVR
MOVB
MOVR
MOVB

#PUT INX ,R2
#RMDC, (R2) +
#RMDA
, (R2) +
#RMBA, (R2) +
#RMUC
, (R2) +
#RMOF
, (R2) +
#RMCST, (R2)+
#200, (R2)

;R2 = BYTE ENTRY POSITION

;TERMINATE TABLE

;FORMAT “HE DRIVE
JSR
PC,PUT
8R
6%
NOP
EMT
JMP
26%
6$:

035624

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 6% [F NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 26% IF ERROR

JSETJUP GET INDFX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE
JWAIT FCR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
. GO READ REGISTER(S) WITH GET SUBROUTINE

B8R

035624

NOP
EMT
JMP

7%:

;60 TO 7% [F NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
;G0 TO 26% IF ERROR

26%

JVERIFY NO ERRORS DURING FORMAT

056572

JSR
BR

NOP

035624

035104

cERROR & DEFINED BY BADS(CT SUBROUTINE
;G0 TO 26% IF ERROR

;L 0AD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

000240

012737
G00410

SEQ 0163

EMT
JSR
JMP

8$:
001124

PC,DTASTS
8%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 8% IF NO ERROR

PC,a(SP)+
26%

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 26% If ERROR

JRETURN HERE

;MOVE LOOP ADDRESSES TQ NEXT OPERATION
MOV
#9%, SLPERR
BR
108

3052

3053
3054
3058 035°0¢4

;LOOP #2
9%:

R R

AN R

WwRITE ,READ

IF ERROR

;SKIP TO WRITE OPERATION

R AR R AR R R AR R RIS TP R AR RN A NN TR NNV I NN NNE

~IRMOBO KMOS/3/72 FLTINL TIST 3

124

WwRITE, READ EA(H TRALK

2056
3057
3058 035104
035110

004737
154130

MACRO v04.00

113

4-APR-81 01:15:59 PAGE 13-93

;PREPARE

03736

SEQ 016/

DEVICE FOR WRITE OPERATION
SR
PC,TSTPRP
;PREPARE DEVICE

.WORD

154130

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILARE

;CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

JRECAL JBRATE [F ''SKI'' OR "PIP'" [S SET
035112
035114
035116
035120

3059
3060
3061
3062 035124
3063 035124
035132
3065 035140
3066 035146
3067 035152
3068 035156
3069 035162
3070 035166
3071 035172
3072 035176
3073 035202
3074
3075 035206
035212
035214
035216
035220
035224
3076

3077
3078

3079
3080

035224

035230

3081
3082
3083 035234
035240
035242
035244
035246
3084 035252
3085
3086
3087 035252
035256
035260
035262

000404
000240
104000
000137

0%:

%#gITE

106442
177400
000061
001553
000006
000034
000032
000004
000002
000000
(00200

004737

043330

000404
000240
104000
000137

004737

035624

042774

004737

043672

004737
000404
000240
104000
000137

043060

004737
000405
000240
104000

10%

;VERIFY RECALIBRATION
;GO TO 108 IF NO ERROR

JMP

26%

;GO TO 26% IF ERROR

NOP
EMT

035624

012737
012737
012737
012702
112722
112722
112722
112722
112722
1°2722
112722

001416
007414
001412

DATA TO THE DRIVE

MOV
MoV
MOV
MOV

MOVB
MOVB
MOVB

MOVB
MOVR
MOVB
MOVB
JSR

PC,PUT

NOP

12%:

#BUF ONE +4 ,RMBAQ
; CHANGE BUS ADDRESS
#-256. ,RMWCO
; CHANGE WORD COUNT
#4D.GO,RM(S10
;WRITE DATA COMMAND
#PUTINX ,R2
JLOAD PUT REGISTER INDEX TABLE
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
#RMBA, (R2) +
#RMWC, (R2) +
#RMCST1,(R2)+
#200,(R2)+

B8R

EMT
JMP

044056

:TERMINATE TABLE
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

12%

;GO TO 128 IF NO ERROR

26%

JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 26% IF ERROR

;RETURN HERE

ERROR

JSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

JWAIT

PC,GETSTS

FOR COMMAND

JSR

TO COMPLETE

PC., TIMOUT

;60 TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE (OMMAND
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUTINE
8R
13%
;G0 TO 13% IF NO ERROR
NOP

035624

;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SLIBROUTINE

13%:

EMT
JMP

:RETURN HERE

26%

IF ERROR

JERROR # DEFINED BY GET SUBROUTINE
;G0 TO 26% IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC.PRIERR
:GO CHECK FOR PRIMARY ERRORS
;G0 TO 14% [F NO ERROR
14%
BR
NOP

EMT

;RETURN HERE

If ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE

CZRMOBO RMOS/3/2 FCINL TST 3
T4
WRITE, READ EA(H TRA(K
0352664

035266

3088 035272
3089 035272

035276
035300
035302
035304

035306

3090 035312
3091 035312

035316

035320
035322
035324
035326
3092 035332
3093
3094

3095 €35332
gggg 035340

004736

000137

(35624

004737

056572

000405
000240
104000
004736

000137

035624

004737

044710

000405

000240
104000
004736
000137

012737
000410

MACRO v04.00

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JSR

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+
26%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS
;GO TO 26% IF ERROR

NCP
EMT
JSR
JMP

16%:

26%

;GO TO 26% IF ERROR

15%

;GO TO 158 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE

26%

;GO TO 26% IF ERROR

16%

;GO TO 16% IF NO ERROR

s CHANGE LOOP ADDRESSES

MOV
BR

3098

3099
3100
%}8} 035342

;LOOP #3

3103
3104 035342
035346

;GO BACK FOR MORE ERRCR (HECKS

JMP

15%:

SEQ 0165

PC,a(SP)+

BR
NOP
EMT

001124

JSR

JMP

14%:

035624

035342

&-APR-81 01:15:59 PAGE 13-94

AN RN

#17%,SLPERR
18%

R R R RN R AR

A N AR RN

;SKIP TO NEXT OFERATICN
AR N

RN R AR AN AN C AN R AN

NN AR RSP AN

READ

17%:
004737
154130

;PREPARE DEVICE FOR READ OPERAT]ON
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID

037316

SVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'
OR 'PIP'" [S SET

035350
035352
035354
035356
3105 C35362

000404
000240
104000
000137

035624

18%:

3106
3107

012737
012737

107446
000071

3112 035402
3113 035406
3114 035412
3115 035416

112722
112722
112722
112722

000006
000032
000034
000004

3116 035422
3117 035426
%}%g 035432

3120 035436

18%
26%

;READ DATA FROM DEVICE

3108 035362
3109 035362
3110 035370

3111 035376

BR
NOP
EMT
JMP

JVERIFY RECALIBRATION
;GO TO 18% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 26% IF ERROR

012702

112722
112722
112712

004737

001553

000002
000000
000200

043330

0071416
001412

19%:

Mov
Mov

HBUF TWO+4 ,RMBAO
#RD .GO,RMCS10

MOVR
MOV
MOVR
MOVR

#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +

MOV

MOvVB
MOVB
MOVB

JSR

H#PUT INX,R2

; CHANGE BUS ADDRESS
;READ DATA (COMMAND

;JLOAD PUT REGISTER INDEX TABLE

ARMWC, (R2) +
HRMCST, (R2)+
#200, (R2)

PC.PUT

;GO WRITE REGISTER(S, WITH PUT SUBROUTINE

“ZRMOBO RMOS5/3/2 FCTINL TST 3
WRITE, READ EACH TRA(K
T4
035442
035444
035446
035450
035454

104000

004737

042774

035460

004737

063672

035464
035470
035472
035474
035476
3129 035502
3130
3131
3132 035502
035506
035510
035512
035514
035516
3133 035522
3134 035522
035526
035530
035532
035534
035536
035542
035542

004737
000404
000240

043060

000137

035624

004737

44056

oo
VI
nrono
CONON

-t —t

WWIW

—_a

WIN

L I

WWW

035454

N
W

035624

035554
035556
035562
035562
035566

035570
035572
035574
035576
035600
39 035604
035604
035610
035616
035620
035624

104000

000405
000240

20%:

004737
000405
000240

JSR

;WAIT

004737
000405
000240

004737
106442
107446
000404
000240
104000

EMT

21%:

22%:

056572

23%:

035624

24%:

042432

034660

JSR

NOP
EMT
JSR

044710

0014621
001421

JMP

035624

105237
123737
101002

;GO TO 20% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 26% IF ERROR

PC,GETSTS

0O COMPLETE

PC,TIMOUT

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

21%

;GO TO 218 IF NO ERROR

26%

;GO TO 26% IF ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;CHECK FOR ERRORS DURING READ OPERATION
PC,PRIERR
JSR
;G0 CHECK FOR PRIMARY ERRORS
BR
22%
;GO TO 22% IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
sERROR # DEF INED BY PRIERR SUBROUTINE
PC,a(SP)+
JSR
;GO BACK FOR MORE ERROR CHECKS
;
JMP
26%
;GO TO 26% IF ERROR

035624

000137

JSR

NOP

000137

26%

FOR (OMMAND

104000

004736
000137

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUT INE

104000

004736
000137

NOP
EmMt
JMP

SEQ 0166

;JSETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

K 13
4-APR-81 01:15:59 PAGE 13-95

B8R

000404
000240
000137

035546
035550
035552

MACRO v04.00

JMP

001335
26%:

PC,a(SP)+

26%

;G0 VERIFY RESULTS OF DATA TRANSFER
;GO TO 23% IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 26% IF ERROR

JSR
BR
NOP
£mr
JSR
JMP

PC,SECERR
24%

JSR
.WORD
.WORD
BR

PC ., CMPBUF
BUFONE+4
BUF TWO+4
25%

;GO TO 25% IF NO ERROR

JMP

26%

;GO TO 26% IF ERROR

INCB
(MPR
BH]
JMP

RMDAQ+1
RMDAO+1 ,LSTRK+1
26%
3s

NOP
EMT

25%:

PC,DTASTS

238

PC.,a(SP)+
26%

;GO CHECK FOR SECONDARY ERRORS

;G0 TO 24% IF NO ERROR
SJRETURN HERE IF ERROR

JERROR # DEF INED BY SECERR SUBRCUTINE

;G0 BACK FOR MORE ERROR CHECKS

;GO TO 26% IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF WRITE BUFFER
: STARTING ADDRESS OF READ BUFFER

JRETURN HERE IF ERROR
JERROR # DEF INED BY CMPBUF SUBROUT INE

sADVANCE TO NEXT TRACK
;DONE ?

JYES!!
JTEST NEXT

TRACK

.‘;fltttttt'fil’tl“tttti‘lt't"ilfl'tt.ttl’ifittt.httl*"ttttttt!ttit'fit

CZRMOBO RM0S5/3/2 FCTNL TST 3

125

READ, WRITE

CRO v04.00

L 13
4-APR-81 01:15:59 PAGE 13-96

CHECK MULTIPLE SECTORS IN OFFSET MODE

;*TEST 25

SEQ 0167

READ, WRITE CHECK MULTIPLE

SECTORS IN OFFSET MODE

:"Q.'tt.'t.ttttttfi'tt!'t't't.l"fi.tt"fi't.'tlt‘."'t"t..t"'..'.

035624
035624
035626
035630
035634
035640
5147 035644

000004
000240
012706
013700
013701
012737

TST25:

001100
001276
001466
000025

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK , SP
$BASE ,RO
TSTQUE ,R1
#25,STESTN

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
:RO_= UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

3148

""ttltt'tttttfifitfittfittttiti't*t!ittt‘ttttttttt.'ttttfifi't'fi"t."'

3149
g;g? 035652

:LooP #1
1%:

3152

3153 035652
035656

035660
035662
035664
3154 035666
3155
3156 035672
3157 035672
3158 035700
3159 035706
3160 035714
3161 035722
g}g% 035730
3164

004737
154130

000404
000240
104000
000137

035736

004737

040242

035744
035750

104401
104000

070426

000405

035752
3165 035756
3166 035756
3167 035764
%}gg 035772

000137

037006

012737
012737
004737

072060
000001
042174

3170
3171
3172
3173
3174
3175

012702
112722
112722
112722
112722

001553
000034
000006
000004
000002

035776
036002
036006
036012
036016

3176 036022
3177 036026

112722
112722

JSR
.WORD

BR
NOP
EMT
JMP

037006

000000
000000
106436
176774
010000
000063

035742

;PREPARE DEVICE FOR FORMAT OPERATION

037316

012737
012737
012737
012737
012737
012737

000032
000000

FORMAT ,READ OFFSET,WRITE CHECK OF7SET IN BOTH DIRECTIONS

001446
001420
001416
001414
001444
001412

‘

PC,TSTPRP
154130

OR 'PIP'' IS SET
JRECALIBRATE IF ‘'SKI''

28%

;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 28% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:

MoV
MOV
MoV
MoV
MoV
MOV

#0,RMDCO
#0,RMDAO
#BUF ONE ,RMBAO
#~258. %2 ,RMWCO
KFMT16,RMOFQ
#WH'GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

JMP

28%

MoV
MOV
JSR

#ZERQS, $TMPO
#1,8TMPY
PC,GENBUF

TYPE
EMT

001174
001176

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

3%:

,SCTMSG

sCYLINDER = 0
;TRACK = 0, SECTOR
0
;BUFFER ADDRESS
;WORD COUNT FOR 2 SECTORS (2'S (COMP)
;16 BIT MODE
;WRITE HEADER

s CALL BAD SECTOR MODULE

;GO TO 3% IF NO ERROR

;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

;GO TO 28% IF ERROR

;DATA PATTERN
;TO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION
MOV
#PUT INX ,R2
;BYTE ENTRY TABLE
MOVB
#RMDC, (R2) +
MOVB
HRMDA
, (R2) +
MOVB
HRMBA, (R2) +
MOVB
A#RMWC
, (R2) +

mMovB
MOVB

HRMOF
, (R2) +
ARMCST, (R2)+

M3
MACRO v04.00 4-APR-B1 01:15:59 PAGE 13-97
CZRMOBO RMOS5/3/2 FCTNL T1ST 3
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

3178 036032

112772

000200

3180 036036
036042

004737
000404

043330

000137

037006

3183
3134 036054

004737

042774

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE

3185
3186 036060

004737

043672

;WAIT FOR COMMAND TO COMPLETE
JSR
PC.TIMOUT

3179 036036

036044
036046
036050
;:gg 036054

3187

000240
104000

3188 036064

004737

036072
036074
036076
3189 036102
3190
31N
3192 036102
036106
036110
036112

000240
104000
000137

036070

036114
3193 036116

3194
3195 036122
%}g? 036122
3198
3199
3200
3201
3202
3203
3204
3205

036130
036136

000404

004737
000405
000240
104000

004736
000137

#200, (R2)

JSR
BR

PC.,PUT
5%

JMP

28%

NOP
EMT

5%:

;TABLE TERMINATOR

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR
:RETURN HERE IF ERROR
;JERROR # DEFINED BY PUT SUBROUTINE
;GO TO 28% IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION

043060

JSR

B8R

0327006

6%:

NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

28$

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO 7O 28% IF ERROR

JVERIFY NO ERROR DURING FORMAT
JSR
PC,DTASTS
BR
7$
NOP
EMT

056572

JSR
JMP

037006

012737

036144

001124

012737
012737

177000
106436

001414
001416

004737
154130

037316

036144
036144
036150

43:

MOV

SEQ 0168

PC,a(SP)+
28%

;GO _TO 6% IF NO ERROR

;GO VERIFY RESULTS OF DAT/ TRANSFER
7N TO 7$ IF NO ERROR
;v "URN HERE IF ERROR
.. 0R # DEFINED BY DTASTS SUBROUTINE

;60 BACK FOR MORE ERROR CHECKS
;GO TO 28% IF ERROR

:MOV LOOP ADDRESSES TO NEXT OPERATION
’%:

mov

#8% ,SLPERR

;ERROR LOOP ADDRESS

;LOCATE BUFFER ADDRESS AND WORD COUNT
MOV
#-256.%2 RMWCO ;TWO SECTORS
MOV
#BUF ONE ,RMBAO
;BUFFER ADDRESS
***t*t*ttt**l’*tt**t'ttitt*tttttttt*tt*****k*tttt**tttt*tt**t*t*
LOOP 2 READ AND WRITE CHECK IN OFFSET MODE
8$:
;PREPARE DEVICE FOR READ OFFSET OPEATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGH

Ok 'PIP'* IS SET
:RECALIBRATE IF ''SKI"

036152
036154
036156
036160
3204 036164
3207 036164

000404
000240
104000
000137

037006

9%:
10%:

BR
NOP
EMT
JMP

28%

:VERIFY RECALIBRATION

1GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 28% IF ERROR

CZRMOBO RM05/3/2 FCINL

125

READ, WRITE

3208

TST 3

CHECK MULTIPLE

3209 036164
3210 036170
3211 036174
3212 036200
3213 036204
3214 036210
%S}g 036214

012702
112722
112722
112722
112722
112722
112722

001553
000006
000034
000032
000004
000002
000200

3217 036220
036224

004737
000404

043330

036226
036230

000240
104000

036232
3218 036236
3219 036244
2220 036250
%SS; 036254

000137
012737
012702
112722
112722

037006
000015
001553
000000
000200

3223 €36260

004737

043330

036266
036270

000240
104000

036264

036272
;ggé 036276

MACRO v04.00

000404

SECTORS

N1 3
4-APR-81 01:75:59 PAGE 13-98

:READ OFFSET

MOV
MOVR
MOVR
MOVB
MOVB
MOVB
MOVB

#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
#RMBA
, (R2) +
#RMW(C
, (R2)+
#200, (R2)+

;LOAD THE TABLE

JSR
BR

PC,PUT
11%

260 WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 118 IF NO ERROR

NOP
EMT

001412

SEQ 0169

IN OFFSET MODE

11%:

;TABLE TERMINATOR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

JMP
MGV
MOV
MOVB
MOVB

28%
.GO TO 28% IF ERROR
#OFFSET.GO,RM(CS10
;OFFSET COMMAND
A#PUTINX ,R2
#RMCST, (R2) +
#200, (R2) +

JSR

PC,PUT

NOP
EMT

;GO TO 128 IF NO ERROR

;JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

037006

3226
3227 036276

004737

043672

3228 036302
3229 036310
3230 036314
;S%} 036320

012737
012702
112722
112712

000071
001553
000000
000200

3233 036324
036330
036332
036334
036336
;g;g 036342

004737
000404
000240
104000
000137

043330

3236
3237 036342

004737

042774

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

3238
3239 036346

004737

043672

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

004737
000404
000240
104000
000137

043060

3240

3241 036352
036356
036360
036362
3242 036364

3243
3244 036370
3245 036370

004737

037006

044056

28%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

000137

12%:

JMP

12%

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

001472

13%:

;GO TO 28% IF ERROR

;GO TO TIMOUT SUBROUTINE
;READ DATA COMMAND
;TABLE INDEX

MOV
MOV
MOVB
MOVB

#RD ! GO,RM(CS10
#PUTINX,R2
ARMCST, (R2)+
#200, (R2)

JSR
BR
NOP
EMT
JMP

PC,PUT
13%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 138 IF NO ERROR

28%

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 28% IF ERROR

;TABLE TERMINATOR

JRETURN HERE

ERROR

;GO TO TIMOUT SUBROUTINE

:READ STATUS FOR READ OFFSET OPERATION

JSR
BR
NOP
EMT
JMP

PC,GET
14%

28%

;GO READ REGISTER(S) WITH GET SUBROLTINE
;GO TO 14% IF NO ERROR

;RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 28% IF ERROR

;CHECK ERROR DURING READ OFFSET
14%:
SR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

“IRMOBO RMOS5/3/2 FCINL TST 3

v25

MACRO v04.00

B8 14

4-APR-B1 01:15:59 PAGE 13-99

READ, WRITE (HECK MULTIPLE SECTORS IN OFFSET MODE

03€374

036376
036400
036402

036404

000405

000240
104000
004736

B8R

3246 036410
3247 036410

000137

037006

004737

056572

536416
036420
036422

000240
104000
004736

036414

036426

000405

3248 036430
3249 036430

000137

037006

004737

044710

036436
036440
036442

000240
104000
00736

036434

036444
%gg? C36450
3252
3253 036450
%ggg 036456

000405

000137

037006

012737
000410

036460

3256

15%:

PC,a(SP)+

JSR

PC _DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROU!
INF
;GO BACK FOR MORE ERROR CHE(KS

JSR

PC,SECERR

.GO CHECK FOR SECONDARY ERRORS

JMP

NOP
EMT
JSR

17%:

001124

;GO TO 158 [F NO ERROR

sRETURN HERE IF ERROR
JERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR (HEC(KS

B8R

16%:

158

NOP
EMY
JSR

JMP

28%
16%

28$

17%

PC,a(SP)+
28%

; CHANGE LOOP ADDRESS
MOV
#18%,$LPERR
BR
19%

;GO TO 28% IF ERROR

;GO TO 168 IF NO ERROR

;GO TO 28% IF ERROR

;GO TO 178 IF NO ERRCR

JRETURN HERE IF ERRCR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

;GO TO 28% IF ERROR

;TO NEXT OPERATION

""t"."tttfiltfii'tttfi*tt'f"tt""fl..'fit'ttfi.tittfi'tii'fi'ltifit't't'

3257

;LOOP 3 WRITE CHECK OFFSET

18%:

%Sgg 036460
3260
3261 Q36460

036464

004737

154130

037316

;PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

.WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATICN
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

OR "PIP"" IS SET
JRECALIBRATE [F ''SKI1'*
036466

000404

036474

000137

036470
C36472

gsgg 036500
3264
3265 036500

000240
104000

037006

3266 036500
3267 036504
3268 036510
3269 036514
3270 036520
3271 036524
gg;% 036530

012702
112722
112722
112722
112722
112722
112712

001553
000006
000032
000034
000004
000002
000200

3274 036534
036540

004737
000404

043330

19%

JMP

28%

NOP
EMT
19%:

;VERIFY RECALIBRATION

;G0 TO 198 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 28% IF ERROR

;WRITE CHECK DATA IN OFFSET MODE
20%:

MOV
MOVB
MOVB
MOvB
MOVB
MOVR
MOVB

#PUT INX,R2
#RMDA, (R2) +
A#RMOF
, (R2) +
ARMDC, (R2) +
#RMBA, (R2) +
ARMWC, (R2) +
#200, (RO

;TABLE TERMINATOR

JSR

PC,PUT
218

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 21$ IF NO ERROR

SEQ 0170

C 14

MACRO Vv04.00 &-APR-B1 01:15:59 PAGE 13-100
CZRMOBO RM0S/3/2 FCTNL TST 3
T25
READ, WRITE (HECK MULTIPLE SECTORS IN OFFSET MODE
0365642
036544

3275 036546
3276
3277 036552

000240
104000

000137

NOP
EMT

037006

JMP

JRETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE

;GO TO 28% IF ERROR

;SETUP OFFSET MODE FIRST
¥
Fak

3278 036552

012737

000015

3280 036564

112722

000000

3283 036574

004737

(043330

036602
036604
036606

000240
1046000
000137

037006

3286
3287 C36612

004737

043672

3290 036624
3291 036630
%gg% 036634

012737
012702
112722
112712

000051
001553
000000
000200

3294 036640
036644

004737
000404

043330

036652
gggg 036656

000137

037006

3297
3298 036656

004737

042774

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUTINE

3299
3300 036662

004737

043672

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

004737
000404
000240
104000
000137

043060

004737

(044056

3279 036560

gsg; 036570
036600

%ggg 03%6612

3288
3289 036616

036646
036650

33
3302 C36666
036672
036674
036676
036700
g;gz 036704
3305
3306 036704

036710
036712
036714
036716
036720
3307 036724
3308 036724

012702

112712
000404

000240
104000

000405
000240
104000
004736
000137

004737

001553

001612

28%

SEQ 017

037006
056572

N#OFFSET!GO,RM(S10

mMovs

#RMCST, (R2) +

MoV

000200

037006

MOV

MOVB
JSR

22%:

NOP
EMT
JMP

#PUT
INX ,R2

#2030, (R2)
PC,PUT

22%

28%

;JWAIT FOR COMMAND TO COMPLETE
JSR
PC.TIMOUT

001412

;OUTPUT BUFFER

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 22% IF NO ERROR

JRETURN HERE [F ERROR
SERROR # DEFINED BY PUT SUBROUTINE

;GO TO 28% IF ERROR

;GO TGO TIMOUT SUBROUTMINE

JEXECUTE WRITE CHECK DATA COMMAND
MoV
AWCD !GO,RMCS10

MOV
MOVB
MOVB

#PUTINX
,R2
ARMCS1, (RZ) +
#200, (R2)

JSR
BR

PC,PUT
23%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 23% IF NO ERROR

JMP

28%

;GO TO 28% IF ERROR

NOP
EMT

23%:

JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUTINE

;GO TO TIMOUT SUBROUTINE

JREAD STATUS FOR WRITE CHECK OFFSET OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WiTH GET SUBROUTINE
BR
24%
;GO _TO 248 IF NO ERROR
NOP
JRETURN HERE IF ERROR
M7
;JERROR # DEF INED BY GET SUBROUTINE
JMP
28%
;GO TO 28% IF ERROR
24%:
;CHECK ERROR DURING WRITE CHECK OFFSET OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

25%:

BR
NOP
EMT
JSR
JMP

25%

PC,a(SP)+
28%

;GO TO 25% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SJUBROUTINE
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 28% IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFEP

D1 4
4-APR-81 (1:15:59 PAGE 1 3-101

MACRO v04.00
“IRMOBO RMDS5/3/2 FCTNL 1ST 3
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

d S
il
il
—t

(s NV, RPN,
VPN

N NN NN
NN NN N

036730
036732
036734
036736
036740
036744
3310 036744
036750
036752
036754
03€756
036760
036764
036764
036772
036774
037002
037006

000405
000240
104000
004736

BR
NOP
EMT

000137

037006

004737
000405
000240

044710

26%:

104000

004736
000137

032737
001005
052737
000137

037006
000200

001444

000200
036122

001444

JSR

PC.a(SP)+

JSR
BR
NOP
EMY
JSR
JMP

PC,SECERR

JMP

BIT

28%:

26%

BNE
BIS
~MP

28$%

27%

PC,a(SP)+

28%

;GO TO 26% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HEC(KS

;GO TO 28% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

:GO TO 27% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHE(CKS
;GO TO 28% IF ERROR

28%

;IN FORWARD DIRECTION OF OFFSET °
;BRANCH [F SO

JCHANGE

#0F D ,RMOF
O
#0FD ,RMOF O

;SET

TO FORWARD DIRECTION
COFFSET

DIRECTION TEST

AGAIN

(ZRMOBO RMOS/3/2 FCINL TST 3
END OF SUB~PASS ROUTINE

E 14

MACRO v04.00

4-APR-81 01:15:59 PAGE 14
]

;

.SBTTL

;THIS

JSELECT THE NEXT DEVICE FOR TEST.

END OF

SEQ@ 0173

THE END OF

JTERMINATE

000004

11 037012

(13700

14 037026

15 037030

16 037032
17 037026

SUB-PASS ROUTINE.

OPERATION OF

THE

THIS ROUTINE

CURRENT

DEVICE

000240

062700
010037
005710
001402

000137
012737

$EOSP:
001466

037262
001470

20
~

OTHERWISE, RETURN

TSTQUE ,RO

;GET POINTER TO TSTQUE

(RO)

;ANY MORE DEVICES FOR TEST ?

ADD
MoV

#2,RO
RO, TSTQUE

BEQ

TST

001466

TEST AND

SCOPE

NOP

MOV

000002
001466

IS USED

UNDER

IF THERE ARE NO MORE DEVICES

;1S MADE TO 'SHUT' ROUTINE.

9 037006

12 037016
13 037022

THE

:TO TEST, EXIT IS MADE TO '$SEOP' ROUTINE.

g‘.
10 037010

SUB-PASS ROUTINE

1%:

JMP
MoV

.SBTTL

END OF PASS ROUTINE

;sADJUST PCINTER TO NEXT DEVICE
;SAVE POINTER TO TSTQUE
;BR

SHUT
JJUMP TO 'SHUT' ROUTINE
ATSTQUE +2, TSTQUE
JINITIALIZE POINTER TO FIRST DEVICE IN

;TEST QUE TABLE

.':tttti’fi"*'tt!’t*tttttt't*tttfitttfitt‘tttttfit*tttt'tfitfi'ittttttt't

s *INCREMENT THE PASS NUMBER ($PASS)
:*TYPE *END PASS #XXXXX TOTA.

NUMBER OF ERRORS SINCE LAST RtPORT YYYYY'

J*WHERE XXXXX AND YYYYY ARE DrCIMAL NUMBERS
;«IF THERES A MONITOR GO 1O IT
;«IF

THERE

$EOP:

ISN'T JUMP TO SHUT

037044
037044
037046
037052
037056

000240
005037
005037
005237

037072

000001

$EOPCT:

037076
037100
037102
037104

012737
000001
037072
104401

MOV
$ENDCT: .WORD
$EOPCT
TYPE

037062
037070

037074

C37110

042737
005327

003066

000407

037130
037130

013746

037134
037136
037142
037144
037150

104405
005737
001431
104401
000421

037214

001116
001206
001230
100000

037214

013746

037220
037222

104405
005037

037112

001230

;:65%:

00" 230

64%:

001126
037152

001126
001126

::67%:
66%:

NOP
CLR
CLR
INC

BIC
DEC

.WORD

B8GT

$TSTNM
$TIMES
$PASS
#100000,$PASS
(PC)+
1

:#EP0 THE TEST NUMBER
::ZERO THE NUMBER OF ITERATIONS
;. INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMRER
;;LOooP?

(PC)+,a(PC)+
1

;sRESTORE COUNTER

$DOAGN

SsYES

B8R
LASCIZ

64%
::GET OVER THE ASCIZ
<12><15>/END PASS #/

L65%

;:TYPE ASCIZ STRING

MOV

$PASS ,~(SP)

TYPDS
TST
BEQ
TYPE
BR
_AS(CIZ

::SAVE $PASS FOR TYPEOQUT
;; TYPE PASS NUMBER
;G0 TYPE--DECIMAL ASCII WITH SIGN
::SEE IF ANY ERRORS THIS PASS
;:BR IF NO ERRORS TO REPORT
;:TYPE ASCIZ STRING

SERTTL
$GT4 2P
L67%
66%
::GET OVER THE ASCIZ
TOTAL ERRORS SINCE LAST REPORT /
/

MOV

$ERTTL ,-(SP)

:;SAVE SERTTL FOR TYPEOUT

$ERTTL

::G0 TYPE--DECIMAL ASCI! WITH SIGN
;:CLEAR ERROR TOTAL

TYPDS
(LR

;:;TOTAL NUMBER OF

ERRORS

“ZRMOBC RM0S5/3/2 FCTNL ST 3

END OF

PASS ROUTINE

037226
037232
037236
037240
037242
037244
037246
037250
037252
037252
037254
037256
037262
037266
037270
037274
037300
C37302
037306
037312

104401

013700
001405
000005
004710
000240
000240
000240

000137
037262
377

MACRO v04.00

$GT4L2P: TYPE
$GET4Z2: MOV
8EQ

001217
(0004

RESET

$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:

377

000

$RTINAD:
$ENULL:

005737
001002
000137
005737

001326

SHUT:

007670
000042

1%:

000137
005037
000137

005432
001300
037044

001002

2%:

4-APR-81 01:15:59 PAGE 14-1

SEQ 0174

. SCRLF

;s TYPE

PC. (RO)

. :BRANCH IF NO MON]TOR
;s CLEAR THE WORLD
2 ;G0 TO MONITOR

a6l RO
$DOAGN

CARRIAGE

;s SAVE

;JFOR

JACTN

@(20)+
SHUT
-1.-1.0

s sRETURN

1ST

CTLFG
1%
READY
sl

;WAS CONTROL
JBR IF YES

BNE

JMP
TST
BNE

JMP
(LR
JMP

LINE

ROOM

JMP
.WORD

BYTE
.EVEN

RETIRN,

.sGET MONITOR ADDRESS

START
$DEVM
$EOP

2JNULL CHARA(CTER STRING
C

FLAGGED

s CONT INUE
JANY MONITOR PRESENT ?
;BR ]F YES
;GO TO START
;FUDGE NO DRIVES IN MAP
JRETURN TO S$EOP

FEED

-<W‘f: RWS/§/2 FCINL erT 3

*REPARATION MODULE

MATRO v04.00

TEST OREPARAT]ION MODULE

SPECIFIES

TASKS

TO BE PERFORMED,

USING SUBROUTINES.
LRSI
T
T
PN 'Y

SEQ 0175

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,
REPORTING AN ERROR TO THE USER ]JF AN ERROR [S
DETECTED.
THE USER

@ XVe e « ENT0 RV, FSNY,

CALL:

PC,TSTPRP
NNNANN
22

JSR
.WORD
BR
NOP

EXECUTES

ERROR DEF INED BY MODULE

BIT 15
= 1

SELECT DEVICE AND VERIFY DEVICE

IS AVAIL ABLE

BIT 14 =1

CLEAR (ONTROLLER AND SELECT DEVICE

8IT 12 - 1

PACK ACKNOWLEDGE

g%;

RECALIBRATE

TE T

NIROPONUNIND)
— =

WHICH THE MODULE

TASK/VERIFY DESCRIPTOR
RETURN HERE [F NO ERROR
RETURN HERE IF ERROR

ERROR

TASK/VERIFY DESCR]PTOR

3 - s

A
—amd

AN NN
T ONT

LSBTTL

IR IR

(VAR STV VR

TR
R TRIR
R R

G 14
4-APR-81 (1:15:59 PAG £ 15

037316

BIT 13

(RESERVED FOR DRIVE CLEAR)

}8 -1

VOLUME NOT VALID

POSITIONING IN PROGRESS

BIT 9

BIT 8
BIT 7
BIT 6
BIf S
BIT &4
BIT 3

VERIFY CONTROLLER CLEAR OPERATION

(RESERVED FOR DRIVE CLEAR)
VERIFY PACK ACKNOWLEDGE

VERIFY RECAL IBRATION

BIT 2
BIT 1
BIT O

TSTPRP:

037316
037324
037330
037334

017637
062716

037340
037344
037350
037352
037354
037356
037362
037370

004737
004737
000411
000401
000000
062716

337374

105076
162716

000000
000006
000000
000004

04C236

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

042774
043060

000137

113776

000004
037354
040226

000000

013737

001400

(040240

108

15¢:
BRI

MOV
ADD
CLRB
suB

a(SP),500%

JSR
JSR

PC,GETSTS
PC,GET

;STORE DESCRIPTOR
;MOVE SP TO USERS ERROR CALL
;CLEAR ERROR CALL
;MOVE SP TO NO ERROR RETURN

46, (SP)
a(SP)

#4, (SP)

JSETUP TO READ ALL REGISTERS

;GET RMERZ
;JBR IF NO ERROR DETECTED

15%
10%

BR
BR
.WORD
ADD
MOVR

#6,(SP)

Jmp

10$-2,8(SP)
400%

;GET OVER ERROR NUMBER
JERROR DEFINED BY GET SUBROUTINE
;XFER ERROR TO USER AND

mMov

RMER2I,S05%

JGET RMERZ AND SAVE FOR LATER

AR X

XS EZE

AR I

;GET ERROR NUMBER.

NE R

SRS

AR AR

RSN

rIRMOBG

AMOS/%72

FCTINL

MAHO

H 14
v04.00

4-APR-B1

(01:15:99

PAGE

15-1

TEST PREPARATION MODULE
8

SEQ 0176

5% 0372402
2? 037406

005737
100014

(40236

¢2 037410
63 0374146
66 037416
&5 037420
56 037622
67 037426
63 037434

004737
000611
000401
000000
062716
113776
000137

050762

000004
037420
040226

SSELECT DEVILE AND VvERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK

000000

71
72 037440

032737

060000

76 037450

004737

052434

78 037456

000401

77 (37454

79 037460

80 037462
81 037466
g% 037474

001451

000411

000000

062716
113776
C00137

000004
037460
040226

0402%

000100

90 037510
91 037514

004737
000411

043060

93 037520
94 037522

000000
062716

gg 037534

000137

98 037540
99 (037544
100 037546
101 037550
102 037552

(004737
Q000412
000401
000000
005726

052552

104 037560

113776

037550

103 037554

;82 037566

;GO SELECT DEVICE
INO ERRCR ~ CONTINUE

#6, (SP)
203-2,a8(5P)
4008

;ERROR NUMBER FROM DEVSEL
;TRANSFER ERROR TO USER

000000

BIT

]S SET

IN TASK

BIT

#81T714,500%

:CLEAR CONTROLLER??

JSR

PC.CNTCLR

;GO CLEAR CONTROLLER

50%

BEQ

50%:

.WORD

ADD
MOVB
JMP

120%

60%
O

#4,(SP)
40%,a(SP)
400%

JNOH!

;CONTINUE - NO ERROR
:ERROR NUMBER FROM CNTCLR

:TRANSFER ERROR TO USER

JVERIFY (ONTROLLER CLEAR IF BIT6 SET [N TASK

032737

95 037526

PC,DEVSEL
30$
208

’-"ttt'ttQtttittttllttt'ttt't!tttttttttttttttttfifitt*t*tttttttttttt

87 037500

92 037516

JSR
8R
BR
.WORD
ADD
MOVR
JMP

:CLEAR CONTROLLER
20%:

40%:

gg 037506

JSELECT DEVIC(E??
INO!!

8[,

86 037500

500%
30¢

'-‘-ttt"tttttt.tttttttttt"ttttttttt!ttltttttttttntnttttnttttt't'.

73 037440

;g 037446

208 :

153
8PL

001431

040236

000401

113776

000004
037520

040226

062716

000004

000137

040226

000000

60%:

#8]176,500%

VERIFY??

JSR
BR

PC,GET
S0

;G0 GET STATUS
:NO ERROR GETTING STATUS

LWORD
ADD

0
#4,(SP)

;ERROR FROM GETTING STATUS
:TRANSFER ERROR TO USER

JMP

400%

JSR
BR
BR
LWORD
TST

PC,CLRSTS
120%
110%
0
SP)+

;GO VERIFY STATUS CLEAR
:NO FRROR IN CLEAR

MOVB

100%.3(SP)

:ERROR TO USER

BEQ

70%:
80%:

90%:

100%:
110%:
000000

BIT

B8R

MOVB

ADD

JMP

120%

80%

708 .,2(SP)

a4 ,(SP)

400%

INO!!

.
:ERROR IN STATUS CLEAR
:STRIP RETURN ADDRESS TO
;SUBROUTINE AND

TRANSFER

107

_'.'ttttttttl‘ttttttttttt't'tt‘ttttt'ttfitt!tti‘ttt'tttttt'ttt't!tltt

108
109
110 0372572
111 037572

032737

010000

JEXECUTE PACK ACKNOWLEDGE If B]T12 SET IN TASK AND VOLUME
JNOT VALID
120%:
BIY
#RIT12,500%
:PACK ACKNOWLEDGE??

17, 037¢02

004737

(043060

j;% 037600

00°503

060236

BEQ

240%

JSR

P(,GET

INO.!

"IRMOBU RMOS/3/2 FLUTNL
WD 2 OO0V
W =20 00N

WNAN AN WA

s St

NN NONINICONONOND
3
-t

*EST PREPARAT[ON MODULE

037606
037610
037612
037614
037620
037626

000671
000401
000000
062716

037632
037640

037642
037646
037654
037662
037670
037676
037676

037700
037702
37706
35 037714

037716

MACRO v04.00

130%:

I 14
4~APR-B1 01:15:59 PAGE 15~2
BR
BR

SEQ 0177

150%
1408

+NO ERROR GETTING RMDS

ADD

84, (SP)

; TRANSFER ERROR

JMP

4008

817
BNE

AvV _ RMDS]
2408

.WORD

000004
037612
040226

000000

032737
001063

000100

001350

005037
012737

001512
000023
000000

001412

CLR
MOV

MEDENB
;CLEAR MEDIA ENABLE
#PAKACK !GO,RM(S10
JLOAD PACK ACK COMMAND

001554

MOVB

#200,PUTINX+1

113776

000137

112737
112737

004737
000410
000401
000000
062716
113776
000544

004737

000200
043330

000004
037700

140%:

150%:

001553

¢00000

043672

MOVR

MOVB

180%:

10 USER

;1S VOLUME VALID??
JYES!.

#RM(CST,PUT INX

JSETUP REGISTER INDEX TABLE

PC,PUT

.GO WRITE

. WORD
ADD

0
84, (SP)

JERROR FROM PUT SUB
:TRANSFER ERROR TO USER

JSR

PC,TIMOUT

JWAIT FOR

JSR

160%:
170%:

1308.,3(SP)

BR
BR

MOVB
BR

180%
170%

160%,2(SP)
4003

COMMAND

;NO ERROR LOADING REGISTER

COMMAND

TO (CMPLETE

~NO

NN~ OV
O V00NN

S
Y
w1 [

iU
O

AT AN Nl 2RRt

""ti'.'t*"tt.fi“fi."".'t"*"l’fi"fi‘fi'**‘t".t.tfifiit'l‘""’fi"fi't

037722

037730

032737
001627

000020

037732
037736
037740
037742
037744
037750
037756

004737
000410
000401
000000
062716
113776
000523

043060

037760
037764
037766
037770
C37772
037774
040000
040006

004737
000411
000401
000000
005726
062716
113776
000507

053432

000004
037742

000004
037770

040236

JVERIFY PACK ACKNOWLEDGE !F #BIT4 SET [N TASK
8IT
#IT4,500%
JVERIFY PACK ACKNOWLEDGE??

BEQ

240%

JNO!.

JSR

PC,GET

;GO GET STATUS

B8R

200%

B8R
1908 :

000000

2008 :

210%:
220%:
230%:

000000

.WORD

2108
0

ADD
MOVR
BR

#4,(SP)
190%,a(SP)
4008

JSR

PC,ACKSTS

BR
.WORD
TET

230%
0
(SP)+

B8R

ADD

MOVR
BR

;NO ERROR GETTING STATUS
JERROR FROM GET

SUB

; TRANSFER ERROR TO USER

;G0 CHECK ACKNOWLEDGE

240%

;NO ERROR

#4,(SP)

JPACK ACKNOWLEDGE ERROR
;STRIP RETURN TO SUB AND
; TRANSFER ERROR TO USER

220%,3(SP)
400%

""'t'."fifi"*"Q*"“'.""'t't.t.fifl““'tfi"fl"‘*'*""fi"il’*t*“"t'

:RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ''SKI'* IS SET

167

040010
040010
040016

168 040020

169 040024

120 040026
171 040030

:OR "PIP'" IS ACTIVE.

032737
001505

004000

004737
000410
000401
00000C

043060

040236

240%:

2508%:

BIT
B8EQ

#81711,500%
410%

JRECAL IBRATE??
JNO!.

JSR
BR

PC,GETY
270%

;GO GET RMDS
;NO ERROR GETTING RMDS

.WORD

;ERROR FROM GET SuUB

260%

“ZRMOBO RM(OS5/3/2 FCINL TST 3
"EST PREPARATION MODULE

172 040032

06276

};g 040044

000470

176 0640046

032737

;gg 040064

001462

173 060036

177 040056
178 040056

181
182
1383
184
185
186
187

040066
0400746
040102
040110
0460114
040116
040120

188 040122

113776

001004
032737

012737
112737
112737
004737
000410
000401
000000

000004

(40030

000000

040000

040240

020000

001350

000007
000000
000200
043330

001412

189 040126
13? 040134

062716

113776
000434

000004

192 040136

004737

043672

193

040120

194
195
196 040142

032737

000010

199
200
201
202
205
2046

040152
040156
040160
040162
040164
040170

004737
000410
000401
000000
062716
113776

043060

207 040200
208 040204
209 040206
210 040210
040212
040214
40220
04640226
040232
040234

004737
000412
000401
000000
005726
062716
113776
162716
000240
000207

040236
040240

000000
000000

]gg 040150

D —h —d
bk
b
2 =D

e ls R NTe SV, P NUI, N L

U VwAUNING
R PONY

205 040176

MACRO v04.00

001553
001554

000000

260%:

270%:

J 14

4-APR-B1 01:15:59 PAGE 15-3
ADD

#4,(SP)

4008

BIT
BNE
BIT

#SK1,505%
280%
APIP ,RMDS]

MOV

#RLCAL 'GO,RM(CS10

JSR

PC,PUT

MOVB

BEQ

280%:

290%:

300%:

MOvVB
MOVB
BR
BR
.WORD
ADD

250%,3(SP)

410%

SEQ 0178

s TRANSFER ERROR TO USER

JWAS SK] SET ?
JYES, GO RECALJBRATE
;1S PIP ACTIVE??
JNO.!

;LOAD RECALIBRATE (OMMAND

#RM(ST ,PUT INX
#200,PUTINX+1

JAND REGISTER INDEX

300%
290%
0

;NO ERROR

#4,(SP)

MOVB
BR

290%-~2,9(SP)
4008

JSR

PC.,TIMOUT

;G0 ISSUE RECALIBRATE

JERROR IN REGISTER TRANSFER
; TRANSFER ERROR TO USEk

JWAIT FOR COMPLETION

.'"'t‘*fitifit..'t""t*"""i'*‘t*'*t'fi't""!"!’"Qi.t"'t't‘t'tl"t

001430

000413

000004
040162

040236

JSR

000000

210%:
320%:

330%:

054226

000004
040210
000002

JVERIFY RECALIBRATE If BIT 3 SET IN TASK
81T
#173,500%
JVERIFY RECALIBRATE??
8EQ
4108
JNO!Y

340%:
350%:

000000

400%:

BR
BR
. WORD
ADD
MOVR
BR

PC,GET

3308
3208
0
84 ,(SP)
310%.,a(SP)
4008

;G0 GET STATUS

;NO ERROR GETTING STATUS
sERROR FROM GET
:TRANSFER ERROR TO USER

JSR
BR

PC RCLSTS
4108

;GO CHECK RECALIBRATE
;NO ERROR DURING RECALIBRATE

. WORD
TST

0
(SP)+

;ERROR DURING RECALIBRATE
;STRIP RETURN 10O SUB AND

MOVR

3408 ,2(SP)

B8R

ADD

350%

#4,(SP)

; TRANSFER ERROR TO USER

SuUR

n2,(SP)

:MOVE SP BA(CK BEFORE ERROR

RTS

JRETURN TO USER

.WORD
WORD

0
O

;TASK/VERIFY DES(RIPTOR
:CONTAINS RMER?

410%:;

NOP

500%:
505%:

CZRMOBO RMOS/3/72 FCTINL 13T

BAD SECTOR MODULE

MA{RO v04.00

K 14

4-APR-81 01:15:59 PAGE 16

NN -2

BAD SECTOR MODULE

;THE MODULE

O VBN

.SBTTL

SEQ 0179

*THE MODULE RETURNS TO THE (ALLING TEST WITH THE APPROVED OR ASSIGNED

PON) 2 = a2
a—
e

NRA NS AN

;THE BAD SECTOR
;
(1)
RECOVER
:
(2)
APPROVE
:
THE BAD

ELECTED IS NOT AVAILABLE FOR USE.

SOV

;
:

(1>
(2)
(3)

(&)
(5)

29
30
%}

:
:
.

:
:

062716

000006

162716

000006

105076

BADSCT:

Q00000

005737
001402
000137

010046
005000

50 040302
51 040306

062700
022700

g% 040312

56 040314

PC ,BADSCT
2727
.MESSAGE

ERROR

ADD

#6, (SP)

SuUB

6, (SP)

a(SP)

;HAVE BEEN RECOVERED.

001512

TST
BEQ

041542

JMP

016060
103370

;PUT BUFFER
1%:

001412

000002
000046

106436

;CALL SUBROUTINE
JRFTURN HERE IF NO ERROR
;RETURN HERE If THE BAD SECTOR FILE
; CANNOT BE RECOVERED.
;THE EMT OFFSET NUMBER 'N' IS DEFINED
:BY BAD SECTOR MODULE.
;CLEAR ERROR NUMBER IN USER'S
;ERROR CALL.

MEDENB
1%
54%

;HAS BAD SECTOR FILES BEEN RECOVERED ?
;BR IF NO
:YES, BAD SECTOR FILE IS AVAILABLE

2%:

MOV
CLR

RO.-(SP)
RO

;:PUSH RO ON STA(K
;START WITH RM(S1

ADD
cMP

#2 R0
#46 R0

:ADVANCE TO NEXT BUFFER POSITION
JEND OF BUFFER

MOV

BHIS

JSR
BR
TYPE

;RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 822.,
: TRACK
LAST TRACK (RM02/3 = 4 AND RMOS5 = 18.). ALSO, SAVE THE USER'S

040270
48 040272
49 040274

._RM(CS10 - THE COMMAND,
L(RMOFQO = THE FORMAT MODE

;TEST 'MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES

44
45

46
47 040270

.RMDCO - THE DESIRED CYLINDER,
.RMDAD - THE TRACK AND SECTOR ADDRESS,
.RMWCO - THE WORD COUNT,

CLRB

MODULE PERFORMS TWO MAJOR FUNCTIONS:
THE BAD SECTOR FILES AND
THE USAGE OF A SECTOR BASED ON INFORMATION IN
SECTOR FILES CR ASSIGN A NEW SECTOR IF THE ONE

;INFORMATION REQUIRED BY THE MODULE INCLUDES:

27
28

40 040256
41 040262
4% 040264

TO [ALLING THE BUFFER

;SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER.

:
:CALL:
:

CALLED PRIOR

;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ''ASNDA’" AND ‘‘ASNDC"’

24
25
26

gg 040252

INTENDED TO BE

:33255?18550 ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT

22
23

33 040242
3, 040242
35 040246

;GENERATOR SUBROUTINE, AND FRESERVES THE 'PUT BUFFER'' SO THAT THE

PUTRBUF
(RO) ,BUFFER(RO)
2%

JND !

:SET RETRY COUNT AND tOAD PUT BUFFER AND REGISTER INDEX TABLE
012737

000003

042160

:SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS)
MOov

#3,68%

JRETRY COUNT

C(ZRMOBO RMOS5/3/2 FCINL TST 3
>EZTOR MODULE

57 040322

012737

58 040330
59 040336
60 040344
g} 040352

013737
012737
012737
012737

63 040360
64 060364

012700
112720

65
66
67
o8
69

040370
040374
0640400
040404
0460410

70 0404146
71 040420
72
75
74 040422

75
76
77
78
79

112720
112720
112720
112720
112720

112720
012600

001466

(01334
177376
010000
110446

#822. ,RMDCO
LSTRK ,RMDAO
4-258. ,RMWCO

;DESIRED CYLINDER = 822.
;STARTING LAST TRA(CK, SECTOR - O
;2 + 256. WORDS (2'S (OMP)

001416

MoV

AMFGF
IL ,RMBAD

;POINT TO MANUFACTURES FILE BUFFER

001444

#PUT INX,RO
#RMDA, (RO) +

000200

MovVB
MOvB
movB
MOVB
MOvVB

#RMWC, (RO) ¢
#RMOF
, (RO) +
A#RMBA
, (RO) +
#RMCS1, (RO) +
#200, (RO) +

000034
000002
000032
000004
000000

Move

MOV

%gET GET

113776

040436

000000

000006

82 040452

000137

041246

84 040456

(13737

001400

042172

87 040464
88 040472
89 040476
90 040500

012737
004737
000411
000401

000011
043330

001412

92 040504
93 040510
94 040516

062716
113776
000137

000006
040502
041246

004737
004737
000411
000401
000000
062716
113776
000137

043672
043060

004737
000412
000401
000000
005726
062716
113776
000137

055770

<223838%r3%8288

G
S
S
S

WY
= OO0~

W
QU
U

040556
040562
040564
040566
040570
040572
040576
040604

000006
040536
041246

000006
040566
041246

000000

4%:

5%:

#RMDC, (RO) ¢

(SP)+,R0O

JSR
JSR

PC.GETSTS
PC.GET

BR
.WORD
ADD

4%
O
#6, (SP)

JMP

42%

MOVB

Mov

MOV

JSR
BR

6%:
7%:

9%:
108:

11%:
128:
13%:

000000

;RO POINTS TO REGISTER INDEX TABLE

;;POP STACK INTO RO

;SETUP GET INDEX REGISTER FOR STATUS
;GET REGISTERS

;BR IF MO ERROR

48-2,3(SP)

;GET ERROR NUMBER.

RMER21,73%

;JUMP OVER ERROR NUMBER
;ERROR DEF INED BY GET SUB
;XFER ERROR TO USER AND

;GET RMERZ2 AND SAVE FOR LATER

;CLEAR THE DEVICE USING DRIVE CLEAR COMMAND

8%:

000000

:16 BIT FORMAT

INDEX TABLE FOR READING STATUS

062716

000000

#FMT16,RMOFO

Mov
MOVB

81 040444

96 040522
97 040526
98 040532
040534
040536
040540
040544
040552

MOV

001553
000006

042774
043060

91 040502

St0 018(

MOV
MOV
MOV

004737
004737
000411
000401
000000

80 040440

L 14

4-APR-81 01:15:59 PAGE 16~1

001446
001420
001414

040422
G40426
040432
040434
040436

BAC

MACRO Vv04.00

#DRVCLR!GO,RM(CS10

.LOAD COMMAND IN PUT BUFFER

PC.PUT
8%

;OUTPUT COMMAND
JRETURN HERE IF NO ERROR

.WORD
ADD
MOVB
JMP

O
#6, (SP)
6%,3(SP)
42%

JERROR # GOES HERE
;JMOVE SP TO USERS ERROR CALL
;MOVE ERROR NUMBER TO USER

JSR
JSR
BR

PC,TIMOUT
PC,GET
11%

;WAIT FOR COMPLETION
;GO GET STATUS
JRETURN HERE IF NO ERROR

.WORD
ADD

0
#6,(SP)

;JERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

JMP

42%

JSR
BR
BR
.WORD
TST
ADD
MggB

PC_,DRVSTS
149
13%
0
(SP)+
#6, (SP)
lgi.a(SP)

MOVB

’$

108

9%.,a(SP)

;GET AROUND ERROR #

;MOVE ERROR # Tu USERS ERROR CALL
;GO VERIFY DRIVE CLEAR COMMAND
JRETURN HERE IF NO ERROR
;GET AROUND ERROR
;ERROR # GOES HERE
;STRIP RETURN TO SUBROUTINE
;MOVE SP TO USERS ERROR CALL
;JMOVE ERROR # TO USER CALL

(ZRMOBO RMOS/3/2 FCINL TST 3

BAD SECTOR MODULE

MACRO v04.00

032737

000100

001350

119 040620

012737

000023

001412

121 040632

000411

120 040626

122 0406345

123 040636

124 04606460
125 060644

001052

004737

043330

000401

000000
062716
113776

000006
0460636

128 040656

004737

043672

130 040666
131 0460670
132 040672

000411
000401
000000

134 040700
135 040706

113776
000137

126 040652
<

129 040662

133 040674

000137
004737

041246

0C0006

137 040712

004737

053432

140
141
142
143

000000
005726
062716
113776

040722
Q40724
040726
060732

144 040740
146

147 040744

000412
000401

000137
]

148 040744

032737

151 040762

007452

149 040752
150 040754

001004
032737

040672
04124

000006

040722
041246

SEQ 018"

000000

#YV ,RMDS |

MOV

#PACACK . GO,RMCS10

17%

BNE

JSR

16%:

17%:

18%:
19%:

20%:
21$:
22%:

000000

040000

042172

020000

001350
001412

012737
004737
000411
000401
000000
062716
113776
000137

000007
043330

162 041022
153 041026
164 041032
165 041036
166 041036

004737
004737
000411
000401
000000

043672
043060

168 041044
169 041052

113776
000137

041036
041246

062716

000000

BIT

238

ND ..

. LOAD (OMMAND

PC,PUT

;GO PUT COMMAND TO DRIVE

16%

;GET AROUND ERROR #

.WORD

JMP

428

ADD
MOVB

;IS VV RESET 27

#6, (SP)
158,3(SP)

*RETURN HERE IF NO OUTPUT ERROR
ERROR # GOES HERE

JMOVE SP TO USERS ERROR CALL
“MOVE ERROR # TG ERROR CALL

JSR

PC,TIMOUT

;WAIT FOR COMPLETION

BR
BR
.WORD

20%
198
0

RETURN HERE IF NO ERROR
GET AROUND ERROR #
;ERROR # GOES HERE

JSR

ADD

MOvVB
MR

PC,GET

#6, (SP)

18%,a(SP)
428

;GO GET STATUS FOR PACK ACK

;MOVE SP TO USERS ERROR CALL

;MOVE ERROR # TO CALL

JSR

PC,ACKSTS

GO VERIFY ACKNOWLEDGE STATUS

.WORD
TST

O
(SP) +
#6, (SP)
21$.3(SP)

ERROR # GOES HERE
;STRIP RETURN TO SUBROUTINE
*MOVE SP TO USERS ERROR CALL
MOVE ERROR # TO USERS ERROR CALL

BR
BR

ADD

MOVB
WP

23%
228

428

RETURN HERE IF NO ERROR
*GET AROUND ERROR #

;RECALIBRATE THE DRIVE IF *'SKI'' OR 'PIP IS SET

153 040764
154 040772
155 040776
156 041000
157 041002
158 041004
159 041010
160 041016

167 041040

148

15$:

043060

062716

138 040716
139 040720

4-APR-81 01:15:59 PAGE 16-2

; ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET

114

115 040610
116 040610

117 04016

000006
041002
041246

000006

000000

238

24%:

25$:

26%:

27%:

00000

BIT

#SK1,73$

BEQ

328

BNE
BIT

288:

243
#PIP ,RMDS]

:WAS SKI SET ?

:YES, GO RECALIBRATE
;IS PIP SET 2?2

MOV
JSR
BR
BR
.WORD
ADD
MOVB
JMP

#RECAL 'GO,RMCS10
;LOAD RECALIBRATE COMMAND
PC,PUT
:PUT THE RECAL COMMAND
26$
RETURN HERE IF NO ERROR
258
*GET AROUND ERROR #
0
*ERROR # GOES HERE
#6, (SP)
MOVE SP TO USERS ERROR CALL
258-2,3(SP)
MOVE ERROR # TO USERS CALL
428

JSR
JSR
BR
BR
.WORD

PC, TIMOUT
PC,GET
29%
28%
0

:WAIT FOR RECALIBRATE TO COMPLETE
GO GET RECAL STATUS
*RETURN HERE IF NO ERROR
;GET AROUND ERROR #
ERROR # GOES HERE

MOVB
MP

27%,3(SP)
428

*MOVE ERROR TO USERS CALL

ADD

%6, (SP)

MOVE SP TO USERS ERROR CALL

rZRMOBO RMOS/3/72 FCTNL TST 3

BAD SECTOR MODULE
171

172
173
176
175
176
177

041056

0641062
041064
041066
041070
041072
041076

;;g 041104

004737

000612
000401
000000
005726
062716
113776

000137

MACRO v04.00

054226

000006
041066
041246

29%:

30$:
31%:

000600

}g? 061110

012737
004737
000411
000401
000000

000073
043330

188 041134
;gg 041142

113776
000137

041126
041246

191 041146
192 041152
193 041156

194 041160
195 041162
196 041164

062716

000006

004737
004737
000411

043672
043060

000401
C00000

062716

000006

}gg 041176

000137

041246

200 041202
201 041206
202 041210
203 041212
204 041214
205 041216

004737
000412
000401
000000
005726
062716

056572

Sgg 041230

000137

041246

209 041234

032737

197 041170

206 061222

210 041242
S}; 041244

113776

001001
000446

041162

000006

001412

000000

36%:

000000

39%:
40%:

041212

000000

040000

001336

JMP

42%

32%
218
O
(SP)+
#6,(5P)
30%,3(SP)

:GO VERIFY RECALIBRATE

INCLUDING HEADER AND DATA

MOV
JSR
BR
BR
.WORD

#RH'GO,RMCS10
PC,PUT
35%
34%
O

;LOAD READ HEADER AND DATA (OMMAND
;PUT COMMAND
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
:ERROR # GOES HERE

MOV
JMP

33%,a(SP)
42%

:MOVE ERROR # TO USERS ERROR CALL

ADD

#6, (SP)

:MOVE SP TO USERS ERROR CALL

JSR
JSR
BR

PC,TIMOUT
PC,GET
38%

:WAIT FOR READ OPERATION TO COMPLLCTE
;GO GET STATUS FOR READ OPERATION
;RETURN HERE IF NO ERROR

ADD

#6, (SP)

:MOVE SP TO USERS ERROR CALL

BR
.WORD
MOVB

37%
O

36%,3(SP)

JMP

42%

JSR
BR
BR
.WORD
TST
ADD

PC.DTASTS
418
408
O
(SP)+
#6,(SP)

JMP

42%

BIT

#TRE ,RMCS11

MOvVR
41%:

STATUS

;RETURN HERE IF NO ERROR
;GET AROUND ERROR #
JERROR # GOES HERE
:STRIP RETURN TO SUBROUT INE
;MOVE SP TO USERS ERROR CALL
:MOVE ERROR # TO USERS CALL

BNE
BR

39%,3(SP)

42%
48%

:GET AROUND ERROR #
:ERROR # GOES HERE

:MOVE ERROR # TO CALL

:GO VERIFY KESULTS OF READ OPERATION
;RETURN HERE IF NO ERROR
:GET AROUND ERROR #
:ERROR # GOES HERE
:STRIP RETURN ADDRESS TO SUBROUTINE
:MOVE SP TO USERS ERROR CALL

:MOVE ERROR # TO USERS CALL
:ANY CONTROLLER ERRORS ?

:BR IF YES
:NO ERRORS DETECTED

}

AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.
:THE SECTOR WILL BE RETRIED IF POSSIBLE.

005337
100026

042160

42%:

53?

DEC
BPL

68%
45%

;YES, DECREMENT RETRY COUNT AND
:RETRY IF COUNT NOT NEGATIVE.

:THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED

222 041254

032737

100720

001352

225 041264

032737

100000

001400

227

PC,RCLSTS

SEQ 018

titttt*tttttttt*itttttt*tt***tt*t**tt*kt#ttttttttttttttttttt*tk

214

226 041272

37%:

38%:

S}g

ggz 041262

33s:
34%:

35%:

21 3

217 041246
g;g 041252

JSR

BR
BR
.WORD
ST
ADD
MOVB

%SEAD THE SECTOR IDENTIFIED BY RMDAO,

182 041110
183 041116
184 041122
185 041124
186 041126
187 041130

N 14

4-APR-81 01:15:59 PAGE 16-3

001004

001422

43%:

BIT

H#DCK .HCRC'HCE .FER'ECH,RMER1]
44%

SYES, GO TRY NEXT AVAILABLE SECTOR

BIT

#8SE ,RMERZ2]

:ANY MEDIA RELATED ERRORS ?

BNE

BEQ

46%

:ANY MEDIA RELATED ERRORS ?

;NO, EXIT AND REPORT ERROR ON REURN

"JRMOBC RMQOS/3/2 FrINL 1ST 3

BAD SECTOR MODULE

MAIKRO v04.00

228
226
5;?

SEQ 0183

:THE ERRORS DETECTED WHILE TRYING TO RECOVER T4E BAD SECTOR FILE ARE
DUE TO THE MEDIA.
SEE IF THE BAD SECTOR FIL: CAN Bt RECOVERED fROM
;ANOTHER AREA ON THE LAST TRA(K

232 21276
233 061302
234 041310
235 041312
236 41320

062737
122737
001413
122737
001407

000002
000012

001420
001420

000040

001420

238 041322
239 041330
240 041334

012737
162716
000157

000003
000006
040422

0462160

sz%

44S8:

458:

ADD
cMe8
BEO
CMPB
BEQ

# ,RMDAD
#10.,RMDAO
468
#32.,RMDAD
468

;ADVANCE SECTOw ADDRESS BY 2
1QUIT IF ALL MFG SECTORS HAVE BEEN
TRIED.
:QUIT IF ALL USER SECTORS HAVE BEEN
TRIED.

MOV
SR
me

#3,68%
#6. (SP)
3$

;REINSTATE RETRY COUNT FOR THIS SECTOR
MOVE SP BACK TO NO ERROR
RETRY THE READ OPERATION

;THE BAD SECTOR FILE CANNOT BE READ

264 0413640

245 041342
246 041350
267 041352
248 041356

000240

032777
001002

102716
000137

020000

137604

0CO004
042154

46%:

NOP

BIT
BNE

SuB
I

47%:

250

#SW13,3SWR
47%
#4, (SP)
67%

; INHIBIT MESSAGE ?
SYES

MOVE SP TO ERROR RETURN
16O TO MODULE EXIT

:THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE

*THIS

253 061362

254 061370

255 041372

022737

111454

001416

001446

256 041400

012737

112737

000012

001420

258 061406

012737

000003

042160

259 041414

000137

111454

040422

010146
012701
012700
012760
012760
005720
005301
0071367

271 041456

012701

0C0006

273 041464

005060

110446

275 041474

005720

274 041470
276 041476
277 041500
278 041502
g 041504
280
281 041506

005060

005301
001371
012601
012600

THE MGF

FILE OR ELSE

000374
000014
177777
177777

111454

110446
111454

;WAS THE USER FILE READ ??

MOVE

#10.,RMDAD

READ THE USER FILE LAST TRACK, SECTOR

MOV

#3,68%

JMP

51%:

WUSRF IL,RMBAO

MOV

50$:

DONE.

(MP

BEQ

MOV

041422
041404
041430
041636
041442
041450
041452
041454

005000

528

#USRF IL,RMBAO

;DUMMY THE BAD SECTOR FILES
:
9%

041420 010046

272 041462

48%:

001416

261
262 041620
263
264
265
266
267
268
269

B 15

&-APKR-81 01:15:59 PAGE 16-4

RO,=-(SP)

:YES ~ READ IS COMPLETE

:POINT TO USERS FILE BUFFER

JRELOAD THE RETRY COUNT FOR THIS SECTOR
GO READ THE USER FILE

::PUSH RO ON STA’K

MOV
MOV
MOV
MOV
MOV
TST
DEC
BNE

R1.~(SP)
#252. R
#14 RO
#-1.MFGFIL(RO)
#-1.USRFIL(RO)
(ROS +
R1
508

PUSH R1 ON STACK
*R1 = NUMBER OF ENTRIES IN FILES
RO = ADDRESS INDEX TO FILE
STORAGE
-ENTER ALL ONES IN MFG FILE
‘ENTER ALL ONES IN USER FILE
ADVANCE ADDRESS
*DECREMENT COUNT
*CONTINUE IF NOT DONE

MOV

#6. R

;CLEAR HEADER, CLEAR ID & SERIAL NUMBERS

(LR

MF GF IL (RO)

TST

(RO) +

;ADVANCE ADDRESS

(SP)+,R1
(SP)+.RO

::POP STACK INTO R1
:POP STACK INTO RO

CLR

CLR
DEC
BNE
MOV
MOV

USRF
IL (RO)
R
51%

:SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER
528.

10.

rZRM0OBO RMOS/3/72 FCINL TST 3

B8AD SECTOR MODULE

0461506
<82 041510

010046
005000

284 041520
285 041526
286 041532
287 041536
ggg 041540

016060
062700
(22700
103370
012600

283 041512

012737

177777

106436
000002
000046

MACRC V04.00

001512

001412

53%:

€15
4-APR-81 01:15:59 PAGE 16-5

SEQ 0184

MOV
(LR
MOV
Mov

RO,-(SP)
::PUSH RO ON STACK
RO
RO IS REGISTER INDEX
#-~1,MEDEMNE
BUFFER(RO) ,PUTBUF (R0)

cMP
BnlS
Mov

#46 ,RO
53%
(SP)+,RO

ADD

#2,R0

;ADVANCE RO
:DONE ??

;sPOP STACK INTO RO

290

;"tttttttl’tttt'tttl*ttt*ttt'filttfl'*ttttt'ttt'*ttttttt'tt'ttttt't"

JVERIFY THAT THE DESIRED SECTOR iS NOT IN THE MFG BAD SECTOR FILE

29‘

""ttt**ttttttttfil‘fit*itt*tt*ttt**t*tt*ttt***tttit*t'tt'tt&itt'ttlt

292
293

295
296
297 041542

;AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE
JSECTOR IS IN ANY OF THE FILES.

041542
041544
041546
298 041550
299 041556
300 041564
301 041566
302 041572
303 041574

010046
010146
010246
013737
013737
005002
013700
005400
012701

305 041606
306 041610
307 041614
308 041616
309 041620
310 041622
311 041624
312 041626
313 041630

001402
012701
020100
101404
005700
00G140%
005202
000403
160100

304 041600

314 041632
315 041634
;}g 041636

032737

005202
000767
010237

001446
001420

001514
001516

000400

000002

001412

000402
!

042160

57%:

R2
RMWCO,RO
RO
#256. ,R1

BEQ
MOV
tme
BLOS
1ST
BEQ
INC
ER
SuB

55%
#258. ,R1
R1,RO
56%
RO
57%
R2
57%
R1,RO

INC
BR
MoV

sAND SECTOR ADDRESS IN ASSIGNED STORAGE
;R2 =
7RO =
;MAKE
;R1 =

A#BI1T1,RMCS10

NUMBER OF SECTORS
WORD COUNT
NUMBER POSITIVE
NUMBER OF WORDS PER SECTOR

;1S THIS A HEADER AND DATA COMMAND ?7?

;NO !
; CHANGE WORDS PER SECTOR
;IS THERE A FULL SECTOR ??
JYES !!
;1S RO ZERO ??
JYES !
s INCREMENT FOR PARTIAL SECTOR

;SUBTRACT ONE SECTOR FROM WORD COUNT
s INCREMENT SECTOR COUNT

R2
55%
RZ,68%

;SAVE SECTOR COUNT

;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
;ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE

012737

110462

042170

004737
(012737

041672
111470

042170

%%g 041666

327 041662

004737

000137

042132

330 041672

013737

001514

55%:

RMDAQ, ASNDA

CLR
MOV
NEG
MOV

BIT

56%:

322 061642
323
324 041650
325 041654
326

331 041700
g% 041766

MOV

001414

318
319

gg?

;LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS
564%:
Mov
RO,-(SP)
;:PUSH RO ON STACK
MOV
R1,-(SP)
;:PUSH R1 ON STACK
MoV
R2,=(SP)
;.PUSH R2 ON STACK
MOV
RMDLO,ASNDC
;LOAD REQUESTED CYLINDER, TRACK,

013737
013737

;SECTOR COUNT IS MORE THAN OKE.

041672

201516
042160

Mov

MMFGF IL+14,72%

JSR
MoV

PC,583
HUSRFIL+14,72%

JSR

PC,58%
66%

;DONE WITH ALL FILE SEARCHES .!

MoV

ASND(C,70%

;LCAD COMPARING CYLINDER ADDRESS

JMP

042164

042166
042162

58%:

MOV
MoV

THE STARTING ADDRESS OF MFG FILE
;7O BASE ADDRESS STORAGE.
:GO SEARCH FILE
;LOAD STARTING ADDRESS OF USR FILE
;TO BASE ADDRESS STORAGE.

;GO SEARCH FILE

ASNDA,7"$
;LOAD COMPARING TRACK, SECTOR ADDRESS
68%,69% ;LOAD NUMBER OF SECTORS TO (ONFIRM

;SETUP FOR A BINARY SEAR(CH OF

THE CURRENT FILE FOR THE COMPARING

(ZRMOBO RMOS/3/2 FCTINL TST 3

BAD SECTOR MODULE

335
336 041714

337 041714
338 041720
339 041724
360 041726
;2; 041732
343
344
345 041734
3ub 041734
gzg 0417642

349 041744

013700
022710
001446
021037
001010

042164

126037

000002

042166

022020

359 041764
360 041772
361 041774
362 042000
363 042006
364 042012
365 042014
366 042020
367 042024
368 042032
369 042034
;;? 042040

60%:

042167

352 041754

355
356
357 041760
358 041760

042170
177777

000003

001402

001516
000037

001516

001516
001537
001335

001517

001516
001514
001466

001514

372
373
374
375 042042
376 042042
%;g 042046

005337
001442

042162

379 042050
380 042054
381 042062
382 042064
383 042070
384 042074
385 042102
386 042104
387 042110
388 042114
389 042122
390 042124

105237
122737
103022
105037
105237
123737
103012
005037
005237
022737
103002
005037

042166
000037

042166

042166
042167
001335

042167

042166
042164
001466

042164

391

042164

SEQ 0185

MOV
cMP
BEQ
CMP
BNE

72% RO
#-1,(RO)
648
(RO),70%
62%

sLOAD THE BASE ADDRESS IN RO
;1S THIS FILE TERMINATOR ?

;BR IF YES
;DOES TABLE ENTRY = COMPARING CYLINDER ?
;BR IF NO

;FILE ENTRY EQUALS COMPARING CYLINDER.
SEE IF THE NEXT ENTRY EQUALS
. THE COMPARING TRACK, AND SECTOR.
61%:
CMPB
3(RO),718+1
;DOES TABLE ENTRY = COMPARING TRA(K ?
BNE
62%
;BR IF NO

CMPB

BEQ
62%:

(G00760

105237
122737
103337
105037
105237
123737
103327
005037
005237
022737
103317
005037
000714

D 15

4-APR-81 01:15:59 PAGE 16-6

;CYLINDER, TRACK AND SECTOR ADDRESS
59%:

126037
001004

%g? 041752
%gz 041756

MACRO v04.00

CMP

2(R0D),71%

;DOES TABLE ENTRY - COMPARING SECTOR ?

(RO)+, (RO)+

sNO, ADJUST CYLINDER POINTER

63$

60%

;BR IF YES

;AND CONTINUE SEARCH.

IN BAD FILE

;THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FIIE.
;ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER.
63%:
INCB
ASNDA
s INCREMENT SECTOR

CMPB
BHIS
CLRB
INCB
CMPB
BHIS
CLR
INC
CMP
BHIS
CLR
BR

#31. ,ASNDA
58%
ASNDA
ASNDA+1
LSTRK+1,ASNDA+1
58%
ASNDA
ASNDC
#822. ,ASNDC
58%
ASNDC
58%

;SECTOR OK ??
JYES !
;sCLEAR SECTOR AND ADVANCE TRACK
;TRACK OK ?
JYES !
;CLEAR TRACK AND SECTOR
s INCREMENT CYLINDER
;CYLINDER OK ?7?
JYES 1.
;START AT CYLINDER 0
;SEARCH NEXT SECTOR

;THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES.
DECREMENT THE
;NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER
. 1S NOT ZERO.
64%:
DEC
69%
;DECREMENT NUMBER OF SECTORS TO COMPARE
BEQ
67%
;DONE IF ZERO

INCB
CMPB
BHIS
CLRB
INCB
CMPB
BHIS
CLR
INC
(MP
BHIS

(LR

71%
#31.,71%
65%
1%
71%+1
LSTRK+1,71%+1
65%
71%
70%
#822.,70%
65%

70%

; INCREMENT THE COMPARING SECTOR
;SECTOR OK ??
JYES !
;CLEAR SECTOR
s INCREMENT TRACK
;TRACK OK ??
JYES !
sCLEAR SECTOR TRACK
; INCREMENT CYL INDER
;CYLINDER OK ?7?
JYES !
;START AT CYLINDER Q

CZRMOBO RMOS/3/2 FCTINL TST 3

BAD SECTOR MODULE

;g% 042130

MACRO v04.00

E1S
4&-APR-81 (01:15:59 PAGE 16-7

000671

65%:

398 042146
042150
399 042152

013737
013737
012602
012601
012600

;ASSIGN THE SECTOR AND RETURN TO USER
66%:
MOV
ASNDC ,RMDCO
;LOAD CYLINDER
MoV
ASNDA ,RMDAO
;LOAD TRACK AND SECTOR
MOV
(SP)+ ,R2
;.POP STACK INTO R2
MOV
(SP)+,R1
:.POP STACK INTO R1
MOV
(SP)+,RO
;:POP STACK INTO RO

6400 042154
28; 042156

0002490
000207

394
395 042132
396 042132
397 042140

282

405
406
407
408

042160
042162
042164
042166

409 042170
410 042172

000000
000000
000000
000000

000000
00000C

001514
001516

001446
001420

67%:

NOP
RTS

59%

SEQ 0186

;THE

FOLLOWING ARE

68%:
69%:
70%:
71%:

.WORD
.WORD
.WORD
LWORD

72%:
73%:

.WORD
.WORD

;SEARCH NEXT SECTOR

0
O
0
O

O
0

STORAGE

LOCATIONS FOR THE MODULE

JRETRY COUNT/ NUMBER OF SECTORS REQUIRED
;NUMBER OF SECTORS TO COMPARE
; COMPARING CYLINDER
; COMPARING TRACK AND SECTOR
;BASE ADDRESS OF
s CONTAINS RMER?

BAD SECTOR fFILE BEING SEARCHED

“JRMOBO RMQS/3/2 FCTNL TST 3

F 15
01:15:59 PAGE 17

4-APR-81

.SBTTL

YN SN

BLFFER GENERATOR SUBROUTINE

MACRO v04.00

;THIS SUBROUTINE

SOV

b ed ecd e oD wad

‘RO

COMMANDS.

THE

ADDRESS OF DATA BUFFER
LENGTH OF DATA BUFFER

ADDRESS OF DATA PATTERN

;R4

;R2

;R3

LENGTH OF DATA PATTERN
SECTOR COUNT

;CALL:

b vmd ed

QOWNA NN

N) b

GENERATES A DATA BUFFER FOR WRITE

;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO.
JHEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,
:RMDA AND RMOF
.

2 (1)

()

010046
010146
010246
010346
010446
013700
013701
013737
013737

26 042232
27 042240
28 042242
29 042246
30 042252

:
GENBUF

001416
001414
001446
001420

042426
042430

032737
001445
013710
052710
012702

000002

001412

042256
042264
042266
042272

032737
001404
052710
012702

010000

37 042276
38 042300

005201
001443

40
41
42
«3
44

042302
042304
042310
042312
0462314

005720
013720
005201
001436
012703

46 042322
47 042324

120213
VNN VNN

S0 042334
51 042342
57 042344

SO\INC)O
QOO — —
W S
NW

48 042326
49 042330

105213

b b b
D ek

45 042320

QOOMNOOCO

32
33
34
35

BUFFER GENERATOR SUBROUTINE

THE BUFFER
;sBUFFER STARTS AT RMBA AND IS RMWC WORDS LONG.
;CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS

042174
042174
042176
042200
042202
042204
042206
042212
042216
042224

21
22
23
24

SEQ 0187

JSR
??

Mov
Mov
MOV
MOV
MoV
Mov
MOV

MOV
Mov

10%:

042426
140000

000035

001444

010000
000037

BIT
BEQ
MOV
BIS
MoV

RO,-(SP)

R1,-(SP)
RZ,~(SP)
R3,-(SP)
Ré&,-(SP)

RMBAQ,RO
RMWCO,R1
RMDCO,60%
RMDAO, 65%

;LOAD STARTING CYLINDER ADDRESS

;LOAD STARTING TRACK,SECTOR ADDRESS

:SET BAD SECTOR FLAGS FOR GOOD SECTOR

sNO!!
:WRITE HEADER WORD #1

;RZ2 = MAXIMUM SECTOR ADDRESS (29.)

HFMT
16 ,RMOFO

;18 BIT FORMAT??
JYES !!
JSET 16 FORMAT BIT IN HEADER
; CHANGE MAXIMUM SECTOR ADDRESS (31.)

INC
BEQ

s INCREMENT WORD COUNT
JEXIT IF DONE

TST

;MOVE RO TO HEADER WORD #2

15%
HFEMT16, (RO)
#31.,R2

50%

062430

MOV

508
#65% ,R3

000001

.LOAD DATA BUFFER ADDRESS
;LOAD WORD COUNT

#MSE 'USE, (RO)
#29..R2

Mov

INC
BEQ

000001

ON STACK
ON STACK
ON STA(CK
ON STACK
ON STACK

:wg{{E HEADER & DATA??

25%
60%, (RO)

042430

001335

;;PUSH RO
;sPUSH R1
;;PUSH R2
:;PUSH R3
::PUSH R4

H#BIT1,RMCS10

+
(RO)
6§$,(RO)+

000001

RETURN HERE

BIT
BEQ
BlS
MoV

15%:

PC. GENBUF

INCB
CMPB
BHIS
CLRB
INCB
(MPB
BHIS
CLRB

(R3)
R2, (R3)
25%
(R3)
1(R3)
LSTRK+1,1(R3)
25%
1(R3)

JWRITE HEADER WORD #2

; INCREMENT WORD COUNT AND
JEXIT IF DONE

;ADVANCE SECTOR ADDRESS
;SSCT?R OVERFLOW ??
I
JNO

JYES -~ CLEAR SECTOR ADDRESS
:ADVANCE TRACK ADDRESS
;TGAQK OVERFLOW 2?7

<NO

:YES ~ CLEAR

TRACK ADDRESS

"JRMOBO RMOS/3/2 FCINL

TST

BLFFER GENERATOR SuBROUT INE

53 0462350
54 042354
55 042360
56 042364
57 042370
58 042372
59 042374
50 042376
61 042400
62 0426402
63 042604
o4 042406
65 062410
042410
042412
042614
042416
042420
042422
67 C42424
68
69 042426
70 042430

105¢37

012704
013702
013703
012220
005201
001405
005304
001714
005303
001765
000770
012604
012603
012602
012601
012600
000240
000207

000000
000000

042426

(00400
001174
001176

MACRO v04.00

¢5%:
30%:
40%:

50%:

G 15
4-APR-81 01:15:59 PAGE 17-1
INCB

608

;ADVANCE CYLINDER ADDRESS

MOV

$TMPO,R2
$TMP1,R3
(R2)+,(RO)+

;LOAD PATTERN ADDRESS
;LOAD PATTERN COUNT
;JWRITE DATA PATTERN

MoV
MOV
MOV

INC
BEQ
DEC
BEQ
DEC
BEQ
BR

MOV
MOV
MoV
MOV
MOV

NOP
RTS

60%:

65%:

SEQ 0188

-WORD
-WORD

#256. R4

R1
50%
R4
10%

R3
30%
40%
(SP) + ,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

;LOAD SECTOR DATA COUNT

; INCREMENT WORD COUNT AND
SJEXIT IF DONE
;DECREMENT SECTOR COUNT
;START NEXT SECTOR IF 0O

;DECREMENT PATTERN COUNT
JRESTART PATTERN [F O
;CONTINUE DATA PATTERN
;.POP STACK INTO Ré4
;:POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK
;.POP STACK

INTO R1
INTO RO

sCYLINDER ADDRESS STORAGE
;TRACK,

SECTOR ADDRESS

STORAGE

CZRMOBO ]MO0S/3/72 FCINL TST 3

COMPARE 8ut FER SUBROUTM INE

MACRO v04.00

H 15
18

4-APR-B1 (01:15:59 PAG E

.SBTTL

(OMPARE BUFFER SUBROUTINE

;THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,

JASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN
JAND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. [RRORS [N BUFFER

RN
B
2

NO
N WA OO0

— et eded
D

SEQ 0189

; COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL.
sCALL:
: (1)
;(2)
:
(3

JSR
.WGRD
.WORD
BR

;(5)

ERROR

; (4)

2 (6)

042432
042432
042434
042436
042440
042442

010046
010146
010246
010346
005037

:
(MPBUF

;DETERMINE

033737
001063
032737

004000

001370

100000

001352

032737
001053,
032737
001447

000100

001352

010000

001370

042506
042512
042516

013700
013701
052737

001416
001402

042524
042530
042532
042536
042540
042542
042546

022701
103004
162701
005720
000771
012702
010203

000020

042550
042552
042554
062556
042560
042562

020301
001403
006302
005203
000773
012703

000013

35%:

042566

030237

001404

40%:

100000

BIT

ERROR DEFINED BY SUBROUTINE

RO,-(SP)
R1,-(SP)
R2,-(SP)

R3,~(SP)
150%

;;PUSH RO ON STA(K
;+PUSH R1 ON STACK
:;PUSH R2 ON STACK

;:sPUSH R3 ON STACK
;CLEAR CORRECTION FLAG

]F DATA SHOULD BE CORRECTED
ECI ,RMOF ]

;WAS ECC

#D(CK ,RMER1]

;WAS THERE A DATA (HE(CK ??

BNE

80%

BEQ
8IT
BNE
BIT
BEQ

80%
#ECH,RMER1I
80%
#FMT16,RMOF |
80%

BIT

JNO

CORRECTION ALLOWED

JNO !
;1S ERROR CORRECTION HARD SET ?
JYES !,
;1S THIS 16 BIT FORMAT ?2?
JNO !

s CORRECT DATA USING ECC INFORMATION
MoV
MoV

BIS

042772

RMBAQ RO
RMEC1I,R1

#B1T715,150%

;MOVE RO TO WORD BOUNDARY OF
108:
tMP
#16. .R1

BHIS

000020
000001

MOV
MOV
MOV

IF NO ERROR

RETURN HERE IF ERROR

MoV
CLR

042772

042446
042454
042456
042464
042466
042474
042476
042504

001457

NOP

PC., CMPBUF
WRiTE BUFFER ADDRESS
READ BUFFER ADDRESS
27
RETURN HERE

#16. .R1

MoV
Mov

#1.,R2
RZ2,R3

gST

208 :
:MOVE RZ2

30%:

20%

sSu8

%gg)+

TO STARTING BIT OF

(MP
BEQ
ASL
INC
BR
Mov

R3,R1
35%

R2
R3
30%
#11.,R3

cCORRECT THE ERROR BURST
BIT

R2.RMEC2]

;RO = STARTING BUFFER ADDRESS
JR1 - ECC POSITION

;SET CORRECTION FLAG
ERROR BURST
;IS BIT POSITION >

:NO

WORD

;SUBTRACT 1 WORDS WORTH
;ADVANCE BUFFER ADDRESS

WORD

;R2 = BIT POINTER
:R3 = BIT NUMBER
ERROR BURST

;IS R3 SAME AS R1
JYES !

;SHIFT BIT POINTER
;INCREMENT BIT NUMBER

;R3 - LENGTH OF ERROR BURST

;1S THIS BIT SET IN ECC PATTERN ??

CZRMOBO RMOS/3/2 FCINL TST 3

COMPARE BUFFER SUBROUT
INE

66
67

68 062624
69 042630
70 042636
71
72
73
74
75
76
77
78
79

80
81
82
83
84

042642
042650
042654
042660
042662
062664
042666
062670

042672
042676
042702
042706

85 042712

86
87
88
89
90
91
92
93
9%

062716
042724

042732
042740
042742
042750

042756
95 042760

042760
042762
042764
042766
9% 042770
97
98 042772

001405
030210
001402
040210
000401
050210
006302
001003
012702
005720
005303
001361

017600
062766
017601
062766
013702

163702
022021

50%:
60%:

000001
70%:

000010
000002
000010
000002
001340
0C1414

000010

90%:

032737

100000

042772

000163
000002

000010
000010

012603
012602
012601
012600
000207

00000

18-1

SEQ 0190

8EQ
8IT

60%
R2,(RO)

:NO - DO NOT CORRECT THIS BIT
‘LS THE BIT FRESENTLY SET 22

BIC

R2, (RO)

*RESET THE BIT

BIS
ASL
BNE
MOV

R2, (RO)
R2
70%
#1,R2

;SET THE BIT

DEC
BNE

R3
40%

JEND OF BURST ??

B8R

TST

50%

60%

(RO)+

MOV

ADD
MOV
ADD
MOV
SUB
CMP
BNE
DEC
BNE
BR

al10(SP)
RO

#2,10(SP)
210(SP) ,R1
#2,10(SP)
RMWCI.R2
RMWCO,R2
(RO)+,(R1)+
100¢
RZ
90%
110%

;DATA COMFARE FAILED

000010
000010

001403
112776
162766
000240

80%:

000010

001140
001142
001134
001136
001174
000004
000336

1
1
1
1
6
1

I 15

01:15:59 PAGE

JSHIFT TO NEXT BIT

JCONTINUE WITH FIRST B!T OF NEXT WORD
JNO

:COMPARE WR]TE BUFFER TO READ BUFFER

037
137
037
137
237
766
776

4-APR-81

g8tQ

001003
005302
001374
000433

—=OCOO00OC

54 042572
55 042574
56 042576
57 042600
58 042602
59 042604
60 042606
61 042610
62 062612
63 042616
64 062620
05 042622

MACRO v04.00

NROOO
&

100%:

MOV
MOV
MOV
MOV
MOV
ADD

MOVB

-(RO) ,$GDDAT
-(R1) ,$8DDAT
RO, $GDADR
R1,$BDADR
R2,$TMPO
#4,10(SP)

#336,210(SP)

; CHANGE ERROR NUMBER IF ECC

105¢:
110%:

BIT
BEQ
MOVB
SuB

#BIT15,150%
105%
#163,310(SP)
#2,10(SP)

MOV
MOV

(SP)+,R3
(SP)+,R2

RTS

NOP

MoV
MOV

150¢%:

.WORD

(SP)
+ ,R1
(SP)+ RO

JRO = WRITE BUFFER

;MOVE SP TO READ ADDRESS
JR1

= READ BUFFER

;MOVE SP TO RETURN ADDRESS

;R2 = NUMBER OF WORDS TRANSFER
; COMPARE DATA WORDS
SEXIT IF NOT EQUAL
:DECREMENT WORD COUNT
;CONTINUE IF NOT DONE
;DONE COMPARE - NO ERROR
;STORE
;STORE
;STORE
;STORE

GOOD DATA FOR TYPEOUT
BAD DATA FOR TYPEOUT
ADDRESS OF GOOD DATA
ADDRESS OF BAD DATA

;STORE WORD COUNT OF

ERROR

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
CORRECTION FAILED

:UGS.§CC CORRECTION USED ??
;NO

sECC CORRECTION FAILED
;MOVE SP TO RETURN IF ERROR
;.POP STACK INTO R3

::POP STACK INTO RZ

;.POP STACK

INTO R1

;;POP STACK INTO RO
JRETURN TO USER

JECC CORRECTION FLAG

“IRMOBU RM05/3/2 FLTINL

GET STATUS SUBROUT INE

1$7

4-APR-81

.SBTTL

OO0
NO N NP -3

20 043030
21 043034
22 043036
23 043040
24 043042
25 043046
26 043050
27 043052
28 043054
29 043056

MACRDO v04.00

J 15

01:15:59 PAGE

SEQ 0191

GET STATUS SUBROUTINE

;THIS SUBROUTINE SETS UP THE °'‘GET INDEX TABLE'® AND THE "'GET
:BUFFER’' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE
JAND THEN RETURNS TO THE USER.

;CALL:
:
010046
010146
010246
012700
012701
012702
110220
005041
162702
100405
022702
001370
005041
000770
112720
012602
012601
012600
000240
000207

GETSTS:

001524
001406
000046

000002

2%:
3%:

PC,GETSTS

MoV
MOV
MOV
MOV
MOV
MoV

RO,~(SP)
R1,-(SP)
R2,=(SP)
#GETINX,RO
HRMEC21+2.R1
HRMECZ2,R2

;:PUSH RO ON STACK

CLR
SuB
BM]

-(R1)
#2,R2
4%

BNE
(LR
BR

2%
-(R1)
3
#200, (RO) +
(SP)+,R2
(SP) +,R1
(SP)+,RO

;CLEAR CORRESPONDING LOCATION
:DECREMENT TO NEXT INDEX
;BRANCH OUT IF DONE
;DONT WRITE RMDB INDEX

mMovs

crMp

000022

000200

JSR
2?7

4%:

MOVB
MOV
MOV
MOV
NOP
RTS

R2, (RO)+

H#RMDB ,R?

RETURN HERE

;,PUSH R1

ON STA(CK

;.PUSH R2 ON STACK

;RO = ADDRESS OF

INDEX TABLE

JR1 = ADDRESS OF GET BUFFER

;R2 = REGISTER INDE
JWRITE REGISTER

JWRITE

INDEX

TERMINATOR

;.POP STACK INTO R/
;;POP STACK

INTC R1

;;POP STACK INTO RO

IN TABLE

CZRMOBO RMOS5/3/2 FCINL

GET SUBROUT INE

"ST 3

MACRO v04.00

N = O 000 NN NN

.SBTTL

JREAD 'RMBA’' AND STORE

POAGNGNIN)
—2 b b eh e =D
b b

;WHICH SHOULD FOLLOW THE

THE NUMBER OF

LAST ENTRY.

O D00 NN NS

* SUBROUTINE CALL:
(D

“'GET INDEX TABLE'' HAS BEEN LNADED WITH REGISTER INDEX

(NOTE THAT
"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.
UNUSED LOCATIONS, I1.E. ,ENTRIES IN BUFFER CORRESPONDING

[

:(3)

‘RO

VALUES AND TERMINATED WITH A CONTROL BYTE

TO REGISTERS NOT READ,
PC,GET
JSR
273
BR
NOP
ERROR
?7??

ARE NOT

CHANGED.)

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

;R1 = REGISTER ADDRESS
;R2 = BUFFER BASE ADDRESS

;R3 = BUFFER ADDRESS

;R4 = POINTER TO REGISTER INDEX

39 043136

012737

GET:

000004
000000
000004

000004
000006
001276
001336

012704

001524

012737

000300

000006

000016
000016

043242

41 043150
42 043156
43 043164

016037
016037
032737

000010
000000
004000

45 0643174
46 043202
47 043210
48 043212
49 043214

062766
112776
000423
105714
100433

000004
000112

042701

177700

87 04322C

IN THE

;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX
;TABLE MUST BE TERMINATED WITH A CONTROL BYTE (2000

000240
062716
105076
162716
010046
010146
010246
010346
010446
013746
013746
013700
012702

SO 043216

LISTED

ITS CONTENTS AT THE LOCATION IN

:THE BUFFER ASSIGNED TO THAT REGISTER.

043060
043062
043066
043072
043076
043100
043102
043104
043106
043110
043114
36 043120
37 0431264

44 043172

REGISTERS WHICH ARE

SENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO

40 043142

THE

:"'GET INDEX TABLE'' AND STORES THEIR VALUES [N THE CURRESPONDING
;LOCATION IN THE ''GET REGISTER BUFFER''.
FOR EXAMPLE, AN

¥4
<

38 043130

SEQ 019

GET SUBROUTINE

;THIS SUBROUTINE READS

25
26

31
3¢
33
34
35

K 15
4~APR-B1 01:15:59 PAGE 20

001007

111401

K4, (SP)
a(SP)
#4, (SP)
RO,-(SP)
R1.-(SP)
R2.~(SP)
R3,-(SP)
R4 ,-(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)
$BASE ,RO
#GE TBUF ,R2

;CLEAR ERROR NUMBER IN USER'S
;ERROR CALL

MOV

#5% ,ERRVEC

;SETUP FOR TIMEOUT

mMov

000004

001174
001176
001176

NOP
ADD
CLRB
suB
MoV
mov
MOV
MOV
MoV
MoV
Mov
MoV
MoV

1%:

MOV
MoV
MoV
BIT
BNE

3%:

#GETINX
R4

#PR6 ERRVE(C+2

;;PUSH
;.PUSH
;.PUSH
;:PUSH
;;PUSH
;;PUSH

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
;.PUSH ERRVEC+2 ON STACK

RMCS2(RQ) ,$TMPO ;GET 'NED'' STATUS
RMCST(RO),$TMPT GET 'DVA'' STATUS
#DVA,$TMP1
;DEVICE AVAILABLE??
3$

JYES!!

ADD
MovB
BR
TSTB
BMI

#4,16(SP)
#112,316(SP)
7%
(R4)
9%

;WRITE ERROR NUMBER IN USER'S
sERROR CALL

BIC

#*CIDXMSK ,R1

JCLEAR ANY SIGN EXTENSION

MOVB

(R4) ,R1

JDONEZT
JYES!!

;R1 = REGISTER ADDRESS

CZRMOBO RMOS/3/2 #(TINL TST 3

GET SUBROUT
INE

52 043224
§3 043206
54 043230
55 043934

56 N63236

060001
112403
042703
060203

MACRO v0%.00

17770

011113

022626

o3 063266

105714

60 043244
61 043252
62 043260

64 043270
65 063272

062766
112776
162766

112403
060203
0G5013
000771

43304
043310
043314
043316
063320

012637
012637
012604
012603
012602

043324
71 043326

012600
000207

70 043304

043322

000004
000007
000002

100405
005003

66 043274
67 043276
68 043300
69 043302

012601

ADD
MOVB
BIC
ADD

RO,R1
(RG)+,R3
#~CIDKMSK,R3
R2,R3

B8R

MOV

57 043240 000764
59 043242

L 15
4-APR-81 01:15:59 PAGE 20-1

000006
000004

000016
000016
000016

5%:

7$:

8%:

9%:

SEQ 0193

:R3 - STORAGE ADDRESS FOR REGISTER
:CLEAR ANY SIGN EXTENSION

(R1) ., (R3)

;READ REGISTER

(SP)+,(SP)+

JRESTORE STACK

(R&)

;DONE CLEARING??

(R4)+ ,R3
R2,R3
(R3$)
8$

sLOCATIONS

ADD
MOVB
SUB

#6,16(SP)
#7.R16(SP)
#2.16(5P)

BMI
(LR

9§
R3

MOV
MOV
MOV
MOV
MOV

(SP)+ ,ERRVE(+2
(SP)+ _ERRVEC
(SP)+ R4
(SP)+ ,R3
(SP)+ RZ

.;POP
;:POP
;;POP
:;POP

MOV
RTS

(SP)+ RO
PC

;:POP STACK INTO RO
JRETURN

T1S18B

MOVB
ADD
CLR
BR

MOV

(SP)+ R1

JWRITE ERROR NUMBER [N
‘USER'S ERROR CALL
1YES.!
;CLEAR REMAINING STORAGE

;2POP STACK INTO ERRVE(+2
STACK INTO ERRVEC
STACK INTO R4
STACK INTO R3
STACK INTO R2

;sPOP STACK INTO RI1

CZRMOBO RMOS/3/72 FCINL ST 3

PUT SUBROUT
INE
NN o

1
1

1
;

:"PUT

SEQ 0194

PUT SUBROUTINE

;THIS SUBROUTINE

WRITES THE

INDEX TABLE'' WITH

THE

REGISTERS WHICH ARE LISTED

CONTENTS OF

THE

CORRESPONDING

THE

JLOCATION IN THE "PUT REGISTER BUFFER''.
THE NUMBER CF
JREGISTERS WRITTEN IS VARIABLE, THE INDEX TABLE MUST
;BE

TERMINATED WITH A CONTROL BYTE

;FOLLOW THE LAS1 ENTRY,

(200) WHICH SHOULD

INE CALL:
;SUBROUT
D)

*PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

;(2)

"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH

(3
;

REGISTERS TO BE WRITTEN.

JSR
BR
NOP
gggoa

PC.PUT
27?

RETURN HERE IF NO ERROR fOUND
RETURN HERE IF ANY ERROR fOUND
SUB DEFINES ERROR NUMBER

;RO = REGISTER BASE ADDRESS

;JR1

24
25
Sg

- REGISTER ADDRESS

;R2 - BUFFER BASE ADDRESS
;R3 - BUFFER ADDRESS
;R4 = POINTER TO REGISTER INDEX

28 043330
29 043332
043334
043336
043340
043342
043344
043350
30 043354
31 043360
32 043364

33 043370
34 043376
35 0643404
36 043412
37 043420

38 043426
39 043430
40 043436

41
42
43
44
45
46

&4-APR-81 01:15:59 PAGE 21

.SBTTL

= OVONRFR
NNV 2OV
NN

}

MAZRO v04.00

043444
043446
043450
043452
043454
043460

47 0634662

48 0463464
49 043470
50 043472

51 043674

0002490
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737
016037
016037
032737
001007
062766
112776
000424
105714

100425
111400
042701
060001

111403

042703
060203
011311

105724

PUT :

000004
000006
001276
001412
001553
043500
000300
000010
000000
004000

000004
000006
001174
001176
001176

000004
000112

000016
000016

1%:

NOP
Mov
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV

MOV
MoV
MoV
MoV
817

BNE
ADD
MOvB
38:

177700

BR
1STB

4%:

#5% ,ERRVEC
#PR6,ERRVE(+2
RMCS2(R0O) ,$TMPO
RMCS1(RO) ,$TMP1
ADVA,$TMP]
33
#4,16(SP)
#112.216(SP)
7%
(R4)

BM]
MOVB
BIC
ADD

9%
(R4) ,R1
#~CIDXMSK,R1
RO,R1

BIC
ADD
MoV

#~CIDXMSK,R3
R2,R3
(R3),(R1)

]

177700

RO,=(SP)
R1,-(SP)
R2.-(SP)
R3,-(SP)
R4 ,-(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)
$BASE ,RO
#PUTBUF ,R2
#PUTINX ,Ré

15718

;;PUSH
;;PUSH
;;PUSH
;:PUSH
:;PUSH
;. PUSH

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
;:PUSH ERRVE(C+2 ON STA(K

;SETUP FOR TIMEOUT
;GET 'NED'' STATUS
;GET 'DVA'' STATUS
JDEVICE AVAILABLE??

JYES!!
;JWRITE ERROR NUMBER [N
JUSER'S ERROR CALL
;DONE??
JYES!!
;R1 = REGISTER ADDRESS
;CLEAR ANY SIGN EXTENSION

(R4) ,R3

;R3 = STORAGE ADDRESS

(R&) +

JADJUST REGISTER POINTER

JCLEAR ANY SIGN EXTENSION

;WRITE REGISTER

~ZRMOBO RMOS5/3/2 FCINL TST 3

PLT

SUBROUT INE

gg 043476

000763

54 043500
55 043502
56 04351C

022626
062766

57 043516

58
56 043524

043524
043530
043534
043536
043540
043542
043544
60 043546

112776
162766

012637
012637
012604
012603
012602
012601

012600
000207

000004
000007
000002
000006
000004

MACRO v04.00

000016
000016
000016

5%:

7%:
:
9%

N1 5
4-APR-81 01:15:55 PAGE 2 1-

SEQ

ADD
Movse

(mp

;ADJUST STACK
JWRITE ERROR NUMBER

SuB

(SP)+,(SP)+
#4,16(SP)
#7,316(SP)
#2,16(5P)

MOV

(SP)+ ,ERRVE(+2

;.POP STACK INTO ERRVE(+?2
;:POP STACK INTO ERRVEC(C
;sPOP STACK INTO R4
::POP STACK INTO R3

MoV

Mov

MOV
MOV
MOV
MOV
RTS

(52)+ ERRVEC
(SP)+,R4

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

SUSER'S ERROR CALL

;¢POP STACK INTO R2
;:POP STACK INTO R1
;:POP STACK INTO RO
;RETURN

0194

“IRMOBO RMOS/3/2 FCTNL T1ST 3
1128

CLOCK

SUMROUT
INE

MACRD V04.00

;
3 043550

SIZCLK:

0137646

000004

6 043560
7 0643566

012737
012737

043616
000300

00004
000006

Q00100

001522

5 043554

(13746

000006

8 043574

012737

10 043610
11 063614

005777
000421

13 043620

012737

043650

000004

012737

000704

001522

9 0463602

12 0643616

16 063626

15 043634

16 043642

17 043646
18 043650

&-APR-81 01:15:59 PAGE 22

JSBTTL

4 043550

012737

022626

012737
005777

000404
022626

177546
135704

172540

135652

;g 82%226

062766

0000C2

043660
21 043664
22 043670

012637
012637
000207

000006
000004

MOV

ERRVE(,=(SP)

:sPUSH ERRVEC ON STACK

MOV
MOV

#18 _ERRVEC
#PR6 ,ERRVE(+2

:SET UP FOR BUS TIMEOUT

MOV

#100,CLKVCT

MOV
1%:

00152C

ERRVE(C+2,-/SP)

;sPUSH ERRVE(+2 ON STA(K

fi177§46,CLKADR

sLOAD ADDRESSES FOR KW11l~[

®C_KADR
3s

sTEST FOR KW11-L PRESENT
JYES = KW11-L IS5 PRESENT

MOV

#2% ,ERRVEC

;SET UP FOR BUS TIMEOUT

MOV

#104, CLKVCT

TST
BR

CMP

MOV
ST

2%:
35

SEQ 0194

SJZE CLOCK SUBROUTINE

MOV

001520

000004

8 16

(SP)+,(SP)+

#172540,CLKADR

;RESTORE SP

;LOAD ADDRESSES FOR KW11-P (CLOCK

aCLKADR

;TEST FOR KW11-P PRESENT

ADD

#2.,4(SP)

;MOVE RETURN TO EPROR

mov
MOV
RTS

(SP) + ,ERRVE(+2
(SP)+ ,ERRVEC
PC

B8R
TMMP

38
(SP)+,{SP)+

JYES - KW11-P IS PRESENT
JRESTORE SP

;:POP STACK INTGC ERRVE(+?2
::POP STACK INTO ERRVEC
JRETURN TO USER

(ZRMOBO RMOS/3/2 FLINL 181 2

NOMNOTONOND)
= —
2 2 vt b
i
S W N=CONCNSWNI
2O

OO0 NN
NN

TIMEOUT SUBROUT INE

MA{RO v04.00

4~APR-81

.SBITL

TIMEOUT

c1 6
01:15:59 PAG tE 2 3

SEQ 0197

SUBROUTINE

1T AND GO = 0 OR FOR A TIMEOUT
;THIS SUBROUTINE WAITS FOR RDY
;GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

SCALL:
0643672
0643672
043674
043676
043700
043704
043710
043716

063724
043730
043734
043740
043744
043746
043754

010046
010146
010246

013746
013746
012737
012737
013700
013701
012702
020127
001003
012761
012711

043760
043764
043770
043774
043776
25 044002
26 044004
2/ 044006
28 044010

016046
042716

30 044012
31 044014
32 044022
3% 044030

022626
062766

35 044036
044036
044042
044046
044050
044052
36 044054

TIMOUT:

022726
001420
032711
001766
005302
001354
000412

000004
000006
044012
000320

001276
001520
000036

172540

000001
000005

1%:

000002

000000
177576
000200

3%:

PC,TIMOUT

MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
mMov
MOV
MpP

RO,~(SP)
R1,-(SP)
R2,-(SP)
ERRVEC,=(SP)

MOV
MOV

#1,2(R1)

BNE

MoV
BIC

BEGQ
BIT
BEQ
DEC
BNE

000200

112776
162766

000004
000007
000002

012637
012637

000006
000004

012602
012601
012600
000207

000004
000006

JSR
22?

000012
000012
000012

4%:

MP
ADD

mMovB

SUB

5%:

MoV
MOV
Mov
MoV
Moy
RTS

RETURN HERE

;;PUSH RO ON STACK
;;PUSH R1 ON STACK
;;PUSH R2 ON STACK

;cPUSH ERRVEC ON STACK

ERRVEC+2,-(SP)

2 :PUSH ERRVEC+2 9N STACK
BUS TIMEOUT ~ 04 TRAP
FOR
;SETUP

$BASE ,RO
CLKADR,R1
#30.,R2
R1.#172540
2%

;RO=BASE ADDRESS

JNO!!

#B81T2!BIT0,(R1)

;START

#4$ ERRVEC
#PR6 ,ERRVEC+2

;R1=CLOCK ADDRFSS
;R2=NUMBER OF

CLOCK CYCLES

JKWI11=P CLOCK??
;SET COUNTER

COUNTER

RMCS1(RO),-(SP)

sGET STATUS

5%
#B177,(R1)
3%
R2
1%
5%

JYES!!

#~C<RDY!GO>,
(SP)
H#RDY, (SP)+
JRDY=1,G60-07?

(SP)+,(SP)+
#4,12(SP)
#7,812(SP)
#2,12(SP)

(SP)+ ,ERRVE(C+2

(SP)+ ,ERRVEC
(SP)+ ,R2
(SP)+,R1
(SP)+,RO

:TIMER DONE??

JNO!!

;DEC NUMBER OF CYCLES
:CONTINUE IF NOT DONE
J"RDY'

DID NOT

SET OR ''GO'' DID NOT RESET

sWITHIN 500 MSEC AFTER THE COMMAND WAS
*ADJUST STACK
:MOVE SP TO USER'S CALL
JWRITE ERRGR NUMBER

:.POP STACK INTO ERRVE(C+2

;;POP STACK INTO ERRVEC

;;POP STACK INTO RZ
;:POP STACK

INTO R1

;POP STACK INTO RO

;RETURN TO USER

ISSUED.

CZRMOBO RMOS/3/2 FCINL TST 3
ERROR (HECK

SUBROUTINE

1
1
}

;

2O 000 NN

STATUS IS VALID AND
PFRFORMED.
THE

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RM(CS?

(BITS 0-2)

EQUAL

THE UNIT BEING TESTED:

.SELECTED UNIT

IS AVAILABLE,

AND NED (BIT 12 OF RMCS2)

NINN

PRIMARY ERROR CHECK SUBROUTINE

:FOLLOUING CHECKS ARE MADE:

IS RESET;

I.E.,

DVA

(BIT 11

RMCS1)

.LAST COMMAND WAS COMPLETED, I.E.., THE MASSBUS CONTROLLER IS

*®

"_NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

“1.E., PAR
- 0, OR,

PAR
= DPE = 1

;

.STATUS HAS BFEN STORED IN THE REGISTER INPUT BUFFER,

.(SUNIT) CONTAINS THE DRIVE NUMBER

;THE SUBROUTINE IS CALLED AS FOLLOWS:

176D

: THE

25
59

SUBROUTINE ASSUMES

THAT:

IN PARTICULAR, RMCS1. RMCS2 AND RMDS HAVE BEEN STORED IN THEIR
:CORRESPONDING LOCATIONS OF THE ''GET'' BUFFER.

;

33
34
35
36

:
:
:
:

28 044056
062716

000004

46
47 044072

013737

001346

044130
044132

001415
062716

000004

56 044144

162716

43 044062
zg 044066

044100
044106
044114
044122

55 064136

57 044150

JSR

BR
NOP
ERROR
JSK

277

PC.PRIERR
722

PC.a(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

PRIERR:

41
42 044056

48
49
S50
51
52
53
54

IS SET

READY (RIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT O OF RMCS1) OR THE
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET.
1‘
Mcgg PASITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

}

SEQ 0198

:THE PURPOSE OF THIS SUBROUTINE IS 7O VERIFY THAT
;THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE

N =2 OV

4-APR-B1 01:15:59 PAGE 24

.SBTTL

NN -

PRIMARY

D 16

(RO v04.00

105076
162716

042737
013737
042737
123737

112776

004736

;CLEAR USER'S ERROR CALL
ADD
44, (SP)

000000
000004

177770
001234
177770
001140

000001

000002

CLRB
SUB

001142

001142
001140
001140
001142

000000

d(SP)
#4, (SP)

:MOVE

(SP)

TO ERROR CALL

:CLEAR ERROR NUMBER
*MOVE (SP) TO NO ERROR RETURN

;REPORT AN ERROR [F THE WRONG UNIT IS SELECTED
MoV
RMCS2]1,$8DDAT
;CORRECT UNIT SELECTED??

BIC
Mov
BIC
CMPB

BEQ
ADD

#*CUNTMSK
, $BDDAT
SUNIT,SGDDAT
;GOOD DATA FOR TYPEOUT
#~CUNTMSK
, $GDDAT
$GDDAT,$BDDAT ; COMPARE EXPECTED AND RECEIVED
;DRIVE NUMBERS
1%
JYES..
#4,(SP)

SUB

#2,(SP)

MOVB
JSR

#1.,3(SP)

JERROR 1

PC.a({SP)+

JREPORT WRONG UNIT

;MOVE SP TO RETURN FOR ERROR
SELECTED

(ZRMOBO RMOS5/3/2 FCINL T1ST 3
PRIMARY ERROR CHECK SUBROUTINE
58 044152
59 044156
60 044160
61 044164
62
63
64

65 046164
66 044172
67 044174
68 044202
o9 044210
70 044215
71 044222
72 044230
73 044236
74 044240
75 044246
76 044254
7?7 044262
78 044270
79 044274

80 544276
a1 044302
82 044304
83 044306
84
85
86 044306
87 044314
88 044316
89 044324
90 044332
91 044340
92 044346
93 044352
044360
044364
044366

044372
044374

el
il

el i

il el

S LS5
000
BNV
OOVDN

044376
044376
044404
044406
046414
064416
044424
044432
064440
044444
044452
044456
064460
G446

162716

000240
000137

032737
001045
013737
052737
013737
062716
112776
032737
001414
013737
013737
042737
112776

000010

044700

001336

001336
004000
001336
000004
000002
010000

001140
001140
001142

001346
001346

001140
001142
001140
000000

010000

162716

000010

000240
000575

032737
001030
013737
052737
042737
013737
062716
112776
162716
004736
162716
000240
000541

032737
001431
032737
001025
013737
042737
013737
062716
112776
162716
004736
162716

000240

004000

000003
000002

004736

MACRO v04.00

000000
001346

001336
000200
160001

001140
001140
001140
001142

2%:

001350

001336
160001
001336
000004
000005
000002

001140
0011490
001142

000010

000000

IS NOT AVAILABLE

IFf

:egg{ge AVAILABLE??

#2,(SP)
PC,a(SP)+

#10, (SP)

;YES =~ CHANGE ERROR NUMBER
;JMOVE SP TO RETURN FOR ERROR
;REPORT DEVICE NOT AVAILABLE
;RESTORE (SP)

10%

;SKIP OTHER CHECKS

#NED
, $GDDAT
#3,3(SP)

*EXPECTED STATUS
JRECEIVED STATUS

;ERROR #2
JWAS NED
JNO!!

SET??

JEXPECTED STATUS
JRECEIVED STATUS

#RDY ,$GDDAT
#SC. TRE !MCPE ! GO, $GDDAT

MoV
ADD
MovB
SUB
JSR
SUB

RMCS11,$BDDAT
#4, (SP)
#4 ,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

108

NOP

000200

;SKIP OTHER CHE(CKS

SuB
JSR

8I1C
mMovs

g{g

000010

001336

10%

;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY
BIT
#RDY ,RMCS11
; CONTROLLER READY??
7%
BNE
JYES!!
mMov
RMCS11,$GDDAT
SJEXPECTED STATUS

000000

000001

JRESTORE (SP)

HDVA ,RMCS1I
5%
RMCS11,$GDDAT
#DVA ,$GDDAT
RMCS11,$BDDAT
#4,(SP)
#2,a(SP)
ANED ,RMCSZI
2%
RMCSZ21,$GDDAT
RMCS21,$BDDAT

SuB

001336

#10, (SP)

BIT
BNE
MOV
BIS
MOV
ADD
MOVB
BIT
BEQ
MOV
MOV

NOP

000200

000002

suB
NOP
JMP

;REPORT AN ERROR IF THE DEVICE
;THE DEVICE IS NONEXISTANT

5%:

001336
000004
000004

E 16
4-APR-81 01:15:59 PAGE 24-1

:REPORT AN ERROR

BIT
BEQ

JRECEIVED STATUS

JERROR #4

sMOVE SP TG RETURN FOR ERROR
JREPORT CONTROLLER NOT READY

JRESTORE (SP)

;SKIP OTHER CHECKS

IF GO IS NOT ZERQ AND DRY IS NOT ONE
#GO,RMCS1I
;GO RESET??
8%
JYES!!

BIT

#DRY ,RMDSI

:DRIVE READY??

MOV
ADD

RMCS11,$8DDAT
#4,(SP)

JRECEIVED STATUS

BNE
g?g

fMovB
SUB
JSR

SuB

NOP

8%
JYES!!
RMCS11,$GDDAT
JEXPECTED STATUS
#SC!TRE
!MCPE ! GO, $GDDAT

#5,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

JERROR #5

JMOVE SP TO RETURN FOR ERROR
;REPORT DRIVE NOT READY
JRESTORE (SP)

(ZRMOBO RMOS/3/2 FCINL TST 3
044466
044470

IOV
ND
NOPANAD W
2SOV

—

s
b

ko —
D
—F =D
d e
b
d
D
) ettt e
e

DS
NN IS

D md =
D
D
B =D =D
e

A NTAWVIURN DS B

e
b e
b oD

O O\ VAWM

b o

Yo W

N W NN
N UNAN NNNN nonon
[aV]
MNP ICOR)
= b,
N W20V
N WM WO O~ [o S F XUV VY aX¥o 1. . RNTe JV'S

FRIMARY ERROR (HECK

L6476

044500
34646506
0464514
<4522
044526
064534
044540
044542
044546
044550
044552

044552
044560
044562
044570
044572
044600
044602
044604
044610
044614

044616

044620

044622
044624

044626
044630
044636
044644
044652
044656
044664
044670
044672
0464676
044700
044704
044706

SUBROUTINE

MACRO v04.00

000504

032737
001425
013737

046c 737
N373%7
(62716

BS:

001140

001336

001142

MoV

00G000

MOVB

162716

000010

032737
001451
032737
001045
032737
001413
010046
012700
122710
001002
012600
000431

000010

001400

000010

001426

162716

000240
062716
000240
000207

ADD

#4,(SP)

;REPORT AN ERROR

91%:

001140
001140

93s%:

001142

000000

000010
10%:
11%:

RMCS11,$GDDAT

:PARITY ERROR ??
JNO!!

JEXPECTED STATUS

RMIS11,8BDDAT

JRECEIVED STATUS

#13,8(5P)

:ERROR #13

#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE STACK

TO USER'S ERROR

JMOVE SP TO RETURN FOR ERROR
;JREPORT ERROR VIA USER
;RESTORE STACK

10%
]F

DETECTED A CONTROL BUS PARITY ERROR

BIT
BEQ
BIT

#PAR ,RMER11
118
#DPE ,RMERZ1

BIT
8EQ

#PAR ,RMER10
93%

;WAS THERE A PARITY ERRCR??
:NO!!
sWAS IT THE CONTROL BUS??
JNOT SURE!!
;DID TEST SET PAR ??
;NO!!

MOV

APUTINX RO

;RO POINTS TO INDEX TABLE

BNE
MOV
BR

92%
(SP)+,R0
11%

BNE

92%:

000010

#SC!TRE'MCPE
!GO, $GDDAT

MOV

001553
000014

001352
000010
001352
000004
000050
000002

BIC

SUB
JSR
SUB

9%:

105720
100371

012600
013737
042737
013737
062716
112776
162716
004736

AMCPE ,RMCS1]
9%

NOP

001352

10%

BIT
BEQ

MoV

001140

000010

SEQ 0200

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD
;PARITY ON THE MASSBUS CONTROL BUS

001336

11277¢€
162716

000240
000453

001336

160001

4-APR-B1 (01:15:59 PAGE 24-2

020000

000004
000073
000002

004736

CMPB

T1STR

11%

RO,-(SP)

#RMER1T, (RO)

(RO) +

BPL
MOV
MOV
BIC
MOV
ADD
MOVB
SUB
JSR
Sgg

91%
(SP)+ R0
RMER11,$GDDAT
#PAR
, $GDDAT
RMER11 ,$BDDAT
#4,(SP)
#50,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

ADD
NOP

#10, (SP)

R1S

;:PUSH RO ON STACK

;SEARCH TABLE FOR RMER1
;:POP STACK INTO RO
;PAR WAS SET BY TEST

JEND OF TABLE??

JNO!!
;:POP STACK INTO RO
JEXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR
:MOVE SP TO NO ERROR RETURN
JRETURN TO ERROR
;RETURN TO NO ERROR

CZRMOBO RMOS5/3/2 FCTINL TST 3

1
1

]

1
1
)
1
1

]

= OV NN WOV
NN NN 2

SECONDARY ERROR (HECK SUBROUT INE

MA{RO v04.00

G 16
4-APR-B1 01:75:59 PAGE 25

.SBTTL

SEQ 0201

SECONDARY ERROR (HECK SUBROUTINE

;THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SFCONDARY ERRORS
;SUCH AS UNEXPECTED ERRORS AND UNEXPFCTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY

;ASSOCIATED WITH THE OPERATION BEING PERFORMED.
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS
;7O THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
“MAKES THE ERROR CALL, IT RETURNS TO 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:
M
;
H
.

JSR
BR
NOP
ERROR
JSR

272

PC,SECERR
2?2

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE T0 REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE If NO MORE ERRORS

2
g%

SNOTE:
THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE
;INPUT REGISTER BUFFER.

24 044710

SECERR:

- ttttttttt*t*fit*t**t**t***fi***ii**t*****t*t***t*****it*ttttttttt

28 044710
29 044716
30 044?24
31 044730
gé 044734

013737
042737
062716
105076
162716

001412
177701
000004

050544
050544

(LR
SUB

43 044772
44 044776
45 065006
46 045010
47 045012
48 045016
50

51 045020
52 045026
53 045030
5, 045036
55 045044
56 045050
57 045056

RM(CS10,515%
;STORE FUNCTION CODE
#AC<FOIF11F2.F31F4>,
5158
#4,(SP)
;MOVE (SP) TO ERROR CALL
a($P)
#4,SP)

*CLEAR ERROR NUMBER
;MOVE (SP) TO NG ERROR RETURN

IR 228382332323 03230 833330808 d80d8d¢¢i

40 044750
41 064756
42 064764

MOV
BIC
ADD

000000
000004

37
38 044740
39 044746

*STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER

a2 2833 2d28882¢328223322322228d3 3R]

CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
032737
001024

000200

001350

062716
112776
162716
004736
162716
000240

001350
177577
000200

000004
000010
000602

001142
001142
001140

013737
042737
012737

032737
001423
013737
042737
005037
062716
112776

;REPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0
BIT
#DRY ,RMDS ]
;DRIVE "READY??
BNE
5%
SYES!]
MOV
BIC
MOV

ADD
MOVB
SUB
JSR
s
NOP

000000

000010

000001
_
001336
177776
001140
000004
000011

001336
001142
001142
000000

RMDS1,$BDDAT
#~CDRY
, $BDDAT
#DRY ,$GDDAT

#6, ($P)
#10,3(SP)
#2.(SP)
PCIR(SP)+
#10,(5P)

;REPORT ERROR IF GO BIT

5$:

BIT
BEQ
MOV
BIC
CLR
ADD
MOVB

;BAD DATA FOR TYPEOQUT

;GOOD DATA FOR TYPEOUT
;ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
REPORT NOT READY
;RESTORE (SP) TO ERROR N

IS NOT RESET

#GO,RMCS1]
108
RMCS11,$8DDAT
#~(GO, $BDDAT
$GDDAT
#4, (SP)
#11,3(SP)

;GO BIT RESET??
“YES..
:BAD DATA FOR TYPEOQUT
;GOOD DATA FOR TYPEOUT
;ERROR NUMBEF

"IRMOBO RMOS5/3/2 FCINL

TST 3

St CONDARY ERROR CHECK SUBROUT INE

58 045062
59 045066
60 045070
045074
045076
045104
045112
045120
045126
045130
045134
0465142
0465146
045150
045154
045156

162776

000002

162716

000010

013737
042737
013737
023737
001413
062716

001336

004736

000240

162716

000010

H 16

01:15:59 PAGE 25-1

#2,(SP)

SuUB

#10,(SP)

SuB

NOP
;REPORT

10%:

ERROR

MOV

BIC
MOV

CMP

BEQ
ADD
MOVR
sus
JSR
SUB
15%:

JREPORT

NOP

AN ERROR

FUNCTION

JRESTORE

CODE

RM(CS11,8BDDAT

#~C76,$8DDAT
515%,$GDDAT

$BODAT,$GDDAT

15%
#4,(SP)
#12,a(SP)
#2.,(SP)
PC,a(SP)+

#10, (SP)
IF

SEQ 0.'C

MOVE SP TO RETURN FOR ERROR
SJREPORT DEVICE NOT AVAILABLE

PC,a(SP)+

JSR

177701

112776
162716

000240

4-APR-81

050544
001142
000004
000012
000002

004736

MACRO v04.00

COMPOSITE

READ

FROM DEVICE

(SP)

IS NOT

CORRECT

;IS FUNCTION CODE CORRECT??
JEXPECTED FUNCTION CODF

JYES.!
;ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
;REPORT WRONG FUNCTION CODE

;RESTORE

ERROR

SET

(SP)

AND NO OTHER

;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND

045156
045162
045166
045170
045174

045176

045204
045212
045220
045226
045230
045234
045242
045246
045250

005037
005737
001003
005737
001403
052737
013737
042737
023737
001412
062716
112776
162716
004736
162716

;OTHER ERRORS ARE SET
CLR
$GDDAT
TST
RMER1]
BNE
20%
RMERZ]
TST
BEQ
25%
#ERR,$GDDAT
20%:
BIS
RMDSI,$BDDAT
25%:
MOV
#~CERR, $BDDAT
BIC
$GDDAT
, $BDDAT
CMP
BEQ
30%
#4, (SP)
ADD
#47,3(SP)
MOVR
#2,(SP)
SuB
PC,a(SP)+
JSR
#10,(SP)
suB

001140
001352
001400
040000
001350
137777
001140
000004
000047
000002

000010

;EXPECT "ERR' - 0

;IS RMERT1 = 077
JNO!!
;1S RMERZ = 07??

JYES.!
;" ERR"' SOULD BE SET

;IS "ERR'' 0K??

JYES!!

JMOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
JREPORT INVALID COMP ERROR

JREPORT AN ERROR IF ‘'TRE'' IS SET AND NONE OF

THE BITS WHICH SET

JTRE IS SET, OR IF TRE 1S NOT SET AND ONE OR MORE BITS WHICH

045254
045260
045264

22222000000
DW=
OV
NO N

-—

e R,

e I

103

005037
013746
042726
001010
032737
001407
022737
103003
052737

013737

042737
023737
001413
0Rr2716
112776
162716

004736

;SET TRE IS SET
$GDDAT
30%:
CLR

001140
001346
000377

MOV

BIC

040000

001350

000030

050544

040000
001336
137777
001140

001140
001142
001142
001142

000004
000014
000002

000000

BNE

35¢%:

40%:

BIT
BEQ
CMP
BHIS

BIS

MOV
BIC
CMP
BEQ

ADD
MOVB
SUB
JSR

JEXPECT "TRE'' - 0

RM(CS21,-(SP)
#377,(SP)+
35%

JWAS DLT,
;ngf MXF

408

SNO.

40%
#TRE ,$GDDAT
RMCS11,$BDDAT

;BAD DATA FOR TYPEOUT

#ERR,RMDS]

#SEARCH,515%

#~CTRE ,$BDDAT

SGDDAT,$BDDAT
45%

#4,(SP)
#14,2(SP)
#2,(SP)
PC,a(SP)+

WCE, UPE, NED,
OR MDPE SET

NEM

sYES!.

:HGS EXCEPTION RECEIVED??
.

;USS'DATA TRANSFERRED??
JNO. !
;''TRE'" SHOULD BE SET

;IES”IRE“ 0K??
JYES.

JMOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
JREPORT

TRE

ERROR

CZRMOBO RMOS5/3/2 FCTINL

TST 3

SECONDARY ERROR (HECK SUBROUT INE

045372

4-APR-81

45%:

116
01:15:59 PAGE 25-2

#10,(SP)

Su8

000010

162776

000240

NOP

SEQ 0203

;RESTORE (SP’

22428202002t
iRRRStist Rttt R
022 R 22222 X 2

:USING 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
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
;STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF
*WRITE

045442

045450
045456
045464
045466
045472
045500
045504
045506
045512
045514

050544
071646

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776

050536
040000

Mov
MOV
MOV
MoV

050536

001140
001350

JLURRYY

077777
001350

ON AND

50%:

001140
000004
000006
000002

004736
162716
000240

IS A WRITE.

55%:

013737
042737
023737
001412
062716
112776
162716

000004
000254
000002

162716

000010

004736

005037

#*CATA ,$GDDAT

JGET EXPECTED ATA STATUS
21S COMPOSITE ERROR SET ??
INO !
JEXPECT AN ATTENTION
;STRIP DONT CARES

BI(
CMP
BEQ
ADD

A*CATA ,$BDDAT
$GDDAT , $BDDAT
55%
#4, (SP)

;STRIP DONT CARES
;IS ATA 0K ??
JYES !
;MOVE SP TO USERS ERROR CALL

SuB
JSR
SUB

#2,(SP)
PC.a(SP)+
#10,(SP)

MOV

NOP

RMDSI,$BDDAT

#6,a(SP)

)

00134¢
00114¢

;MOVE SP TO ERROR RETURN
;REPORT ERROR
;RESTORE SP

IS INCORRECT,

TABLE

1.E.,

ILF

DOES NOT

001142

COMPARE

BEQ

60%

JYES

#2564 ,2(SP)

;WRITE ERRCR NUMBER IN CALL

$GDDAT ,$BDDAT

ADD

#4, (SP)

SuB
JSR

#2,(SP)
PC,a(SP)+

SuUB
CLR

#10, (SP)
$GDDAT

JGET EXPECTED ILF
;CLEAR ALL OTHER BITS

;GET RECEIVED

ILF

;CLEAR ALL OTHER BITS

;1S ILF OK ?2?

sMOVE

SP TO USERS ERROR CALL

;sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

;CLEAR EXPECTED STATUS

JREPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET

050536

137777

;LOAD ERROR # IN CALL

500%,$GDDAT
#~CILF ,8GDDAT
RMER1] ,$8DDAT
#~CILF ,$BDDAT

MovB

60%:

JGET RECEIVED ATA

MOV
BIC
MoV
BIC

MpP

001140

5008, $GDDAT
#ERR ,RMDS]
508
AATA,$GDDAT

;WITH FUNCTION CODE

050536
177776
001352
177776
001140

;.PUSH RO ON STA(CK
JGET FUNCTION CODE
,;STORE ENTRY
;sPOP STACK INTO RO

MCV
BIT
BEQ
BIS
B8IC

MOVR

000010

013737
042737

COMMAND

RO,=(SP)
515%,R0
FNCDTB(RO),500%
(SP)+,RO

JREPORT ERROR IFf ILF

74
4!
73

THE

;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR
;ATA IS NOT SET AND SHOULD BE SET.

077777

162716

0456410
045416
045424
045426
045434

LOCK

;GET AND STORE THE FNTRY FROM THE FUNCTION CODE TABLE

010046
013700
016037
012600

NN
W

045372
045374
045400
045406

SrDCKD
—Ay

OO OO

VNN

NNNNVIVIL D IS B I I B

8 IS B I

UGN

N AT N AN NN

N RO P PO PO PO RO NO R Y ==~ —

untwunraChourMOwnthflr*<><un-qo\ntwnn»AChoarv0wh:wnnracbtun*4Onn:wnnrac»oarvo~

15 045364
045370

MACRO v04.00

MOV
BIS
MOV
BI(

500%,~(SP)
¥*CWCE, (SP)
RMCS21,$8DDAT
(SP) +,$BDDAT

JGET WCE STATUS ENABLE
JSET ALL OTHER BITS
;RECEIVED STATUS
JCLEAR WCE IF ENABLED

73MOBO RMOS5/3/2 FCTINL YST

SECONDARY ERROR CHECK SUBROUTINE
172 045626

O\flgwf\)

b ed
- ed

[o.:JeJo Tv
Y0
1)

173
174
175
176
177
178
179
180
181

187
188
189
190

045630
045634
045642
045646
04565C
045654

045654
045660
045664
045672
045676
045700
045704
045712
045716
045720
045724

[
VIRV|

191
192
19
19
19
045724

045730
045736
045740
045744
045750
045756
202 045762
203 045764
045770
045776
046002
046004
046010
209

112776
162716

(00004
000026
000002

162716

000010

004736

013746
052716
013737
062637
001412
062716
112776
162716
004736
162716

000000

050536

001142

000004
000164
000002

000000

000010

050536
000100

042716
052716

010000
167777
001400
001142

001402

013737
042637
001412
062716
112776
162716
004736
162716

000004
000165
000002

001350

001142

STATUS

SuB

#2.,(SP)

(SP)+ ,$BDDAT
100%
#4,(SP)
#164,(SP)

JSR
SuB

PC,a(SP)+
#10,(SP)
IF

IVC

SET AND

105%:

BEQ
BIC

BIS
MoV
BIC
BEQ
ADD
MoV
SUB
JSR
suB

A#VV ,RMDS]

TO USER'S

ERROR

IS SET AND SHOULD NOT BE

#*COPI, (SP)
RMER11,$BDDAT

BIT

110%:

D oD bk~

QP]

500%,-(SP)

CALL

;REPORT ERROR
;RESTORE ERROR

;SET AND VV IS NOT RESET
MOV
500%,-(SP)

000G00

000010

JMOVE

818§
MOV

;REPORT ERROR

013746
032737

JWRITE ERROR NUMBER
;MOVE SP TO ERROR RETURN

PC,a(SP)+
410, (SP)

BIC
BEQ
ADD
MOVB

100%:

#26,2(5P)
#2,(SP)

JSR
SUR

MOV

157777
001352
001142

JBRANCH IF WCE OK

#4,(SP)

;REPORT ERROR

SEQ 0c0«

90%

ADD

MOVR
SUR
90%:

105$
#IVC, (SP)
#*C1VC, (SP)
RMERZ2I ,$BDDAT
(SP) +,$8DDAT
1108
#4, (SP)
#165,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JGET OP]

SFT

STATUS ENABLE

;SET ALL OTHER BITS
JGET RECEIVED STATUS

JCLEAR CPl IF ENABLED
JBRANCH IF OPI OK
;MOVE SP 10 USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE SP

IS NOT ENABLED OR

JGET

IVC

IVC STATUS ENABLE

;1S Vv SET

:NO !
;YES = IVC SHOULD BE O
;SET ALL OTHER BITS
;GET RECEIVED STATUS
;CLEAR IVC IF ENABLED

;BRANCH IF IvC OK
;MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE

SP TO NO ERROR

;BIT 11

(WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

;

RMERT ~ WLE, WCF
RMERZ - DPE
RMCS2 ~ UPE.

; ALL WRITE ERRORS,

I.E.,

:EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE

(LT, VY, V1, C L ET,¥1 VT N1V

J 16
4-APR-81 01:15:59 PAGE 25-3

BEQ

NN
NN O

19
197
198
199
200
201

001472
062716

MACRO Vv0D4.00

IS RESET.

;WRITE ERROR ENABLE BIT

—

;REPORT AN ERROR IF WLE IS SET AND WRITE ERROi> ARE NOT ENABLED, OR IF
046010
046014
046022
046024
046032

046034
226 046040
227 046046
2.8 046052

012746
032727
001404
032737
001002
042716
013737
042637
001412

177777
004000

050536

004000

001350

004000
001352
001142

001142

;THE DRIVE IS NOT WRITE PROTECTED
MoV
#-1,-(SP)
JASSUME WRITE ERRORS ENABLED
BIT
#WLF,500%
JARE WRITE ERRORS FNABLED ??
BEQ
115%
JNO !
BIT
#WRL ,RMDS |
:IS THE DRIVE WRITE PROTECTED ??
BNE
120%
JYES !
1158:
BIC
AWLE, (SP)
JRESET WLE ENABLE
120%:
MOV
RMERTI,$BDDAT
;GET RECEIVED STATUS
BIC
(SP)+,$BDDAT
JCLEAR WLE IF ENABLED
BEQ
125%
JBRANCH IF WLE OK

TST 3

MACRO v04.00

112776
162716

000004
(00023
000002

000000

162716

000030

237 046100
238 046104
239 046112
240 046114
241 046120
242 046126
243 046132
244 046134
245 046140
246 046146
247 046152
248 (46154
249 046160

012746
V52737
001002
042716
013737
042637
001412
062716
112776
162716
004736

177777
004000

162716

000010

252 046160

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777

CZRMOBO RMO0S/3/2 FCINL

SECONDARY

ERROR

0 046060
1

046066

2 046072
3 046074

34 046100

253 046164
254 046172
255 046174
256 046200
257 046206
258 046212
259 046214
260 046220
261 046226
262 046232
263 046234
264
046240
266
267 046240
268 046244
269 046252
270 046254

271 046260
272 046266
273 046272
274 046274
275 046300
276 046306
277 046312
278 046314
279 046320
280
281
282 046320
283 046324
284 046330
285 046336

CHECK SUBROUT INE

062716
004736

012746
032737
001002
042716
013737
042637
001412
062716

000040

001352
N01142

000094
0000c5
000002

125%:
;REPORT

001142

130%:

000000

135%:

:MOVe SP TO ERROR RETURN

SuB

#10, (SP)

JRESTORE SP TO NO ERROR

#2%5.3(sP)

BIC
MOV
BIC
ADD
MOVB
SuB
JSR
SuB

PC.R(SP)+

:MOVE

SP TO USERS ERRCR CALL

*WRITE ERROR NUMBER IN CALL
*REPORT

ERROR AND RETURN

WCF IS SET AND WRITE ERRORS ARE NOT ENABLED
#-1,-(SP)
JASSUME WRITE ERRORS ENABLED

AW E, 5008
1308
AWCF, (SP)
RMER11,$BDDAT
(SP)+,$BDDAT
135%
#4,(SP)
#25,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;ARE WRITE ERRORS ENABLED ??
JYES 1!
;DISABLE WCF ERROR
;GET RECEIVED STATUS
JRESET WCF IF ENABLED
;BRANCH IF WCF OK
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE SP TO NO ERROR

:REPORT ERROR IF DPE

000010
001400
001142

001142

000004
000040
000002

000000

000010

MoV

140%:

145%:

IS SET AND WRITE ERRORS ARE NOT ENABLED
#-1,-(SP)
JASSUME WRITE ERRORS ARE ENABLED

BIT
BNE
BIC

AWLE ,500%
140%
#DPE, (SP)

;ARE WRITE ERRORS ENABLED ??
JYES !!
JRESET DPE ENABLE

MOVB
SUB
JSR
sus

#40,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

sWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE SP TO NO ERROR

MoV
BIC
BEQ
ADD

QMERZ1 ,$BDDAT
(SP) +,$BDDAT
1458
#4, (SP)

;GET RECEIVED STATUS
JRESET DPE IF ENABLED
;BRANCH IF DPE OK
:MOVE SP TO USERS ERROR CALL

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MoV

050536

001142

112776
162716

000004
000024
000002

000000

162716

000010

013746
052716

050536

013737
042637

#2. (SP)

BEQ

050536

175777
001352
001142

SUB

BIT
BNE

050536

020000
001346
001142

004736

#4,

ERROR
MOV

(SP)

SEQ 0205

ADD

MOVB
JSR

004000

177777
004000

K 16

4-APR-81 (1:15:59 PAGE 25-4

1€0%:

155%:

#=1,-(SP)

;JASSUME WRITE

ERRORS ARE ENABLED

BIT
BNE

HWLE 5008
1508

JARE WRITE ERRORS ENABLED ?7?
JYES !!

mMovs
SuB
JSR
SuB

#24 ,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;WRITE ERROR NUMBER IN CALL
JMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

BIC
MOV
BIC
BtQ
ADD

#UPE , (SP)
RMCS21,$BDDAT
(SP)+,$BDDAT
155%
#4,(SP)

;DISABLE UPE ERROR
;GET RECEIVED STATUS
JRESET UPE 1F ENABLED
JBRANCH IF UPE OK
;MOVE SP TO USERS ERROR CALL

" ;REPORT AN ERROR IF
001142

MOV
BIS
MoV
BIC

IAE IS SET AND IS NOT ENABLED
500%,-(SP)
;GET IAE ENABLE
#*CIAE, (SP)
JSET ALL OTHER BITS

RMER11,$BDDAT
(SP)+, $BDDAT

;GET RECEIVED STATUS
;CLFAR IAE IF ENABLED

CZRMOBO RMOS/3/2 FCINL TST 3

SECONDARY ERROR CHECK SUBROUT INE

286 046342
287 046344
288 046350
289 046356
290 046362

291 0463646

sg% 046370

001412
062716
112776
162716
004736

162716

(00006
000166
000002

MACRO v04.00

L 16
4-APR-B1 01:15:59 PAGE 25-5
8EQ
ADD
MOVB
SuR
JSR

000000

000010

160%:

160%
#4,(SP)
#166,a(SP)
#2,(SP)
PC,a(SP)+

SuUB

THE

JMOVE SP TO NO ERROR

;31T 09

296
297
298
299
300
301
302

;
RM(S1 - TRE
:
RM(S2 = DLT,NEM MXF
:
RMDS = LBT
;
RMER1 - ADE
;NOTE:
;
LBT IS NOT CHECKED BECAUSE
;CYLINDER REGISTER IS WRITTEN

%82

FUNCTION CODE

:NOTE

AOE CANNOT BE SET [f LBT IS NOT ALSO SET

TRE 1S CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

: ALL READ/WRITE ERRORS,

3203

;NOTE:

%89
308

3209

:BRANCH If JAE IS OK
SMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

294

295

(AOE)

#10, (SP)

SEQ 0206

310
211
312
313

046370
046374
046402
04646404

012746
032737
001002
042716

315
316
317
318
319
320

046416
046422
046424
046430
046436
046442

042637
001412
062716
112776
162716
004736

314 046410

321 046444

013737

177777
001000
100000

000004
000032
000002

000000

000010

325 046450
326 046454
327 Q46462
328 046464

012746
032737
001002
042716

177777
001000

330 046476
331 046502

042637
001412

001142

324

329 046470
332 046504

333 046510

334 04A516
335 046522
336 046524
g;g 046530

339
340 046530
34,1 046534
342 046547

013737

004000

001346

062716

000004

162716
004736
162716

000002

112776

012746
032737
001002

050536

001142

162716

%S% 046450

000167

165%:

170%:

THE ENABLING BIT

FOR

IT ONLY RESETS WHEN THE DESIRED

MOV
BIT
BNE
BIC

#-1,-(SP)
#AQE ,500%
165%
#DLT, (SP)

;ASSUME ERRORS ARE ENABLED
;ARE ERRORS ENABLED ??
JYES !
JRESET DLT ENABLE

BIC
BEQ
ADD
MOVR
Sus
JSR

(SP)+ ,$BDDAT
170%
#4, (SP)
#32,3(SP)
#2,(SP)
PC,a(SP)+

;CLEAR DLT IF ENABLED
;BRANCH IF DLT IS 0K
;MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

MOV

SuUB

RM(CSZ21,8BDDAT

#10,(5P)

;GET RECEIVED STATUS

;MOVE SP TO NO ERROR

;REPORT ERROR If NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

050536

001142

175%:

000000

000010

177777
001000

JREPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

(001346

001142

1.E.,

TABLE

#-1,-(SP)
#AQE , 500%
175%
#NEM, (SP)

;ASSUME ERRORS ARE ENABLED
;ARE ERRORS ENABLED ??
JYES !
:DISABLE NEM

BIC
BEQ

(SP)+,$BDDAT
180%

;CLEAR NEM IF ENABLED
;BRANCH IF NEM IS 0K

#167,a(SP)

JWRITE ERROR NUMBER IN CALL

MOV

RM(CSZ21,$BDDAT

ADD

#4,(SP)

SUB
JSR
SUB

#2,(SP)
PC,a(SP)+
#10, (SP)

MOVB

180%:

050536

MOV
BIT
BNE
BIC

JGET RECEIVED STATUS

;MOVE SP TO USERS ERROR CALL

JMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

JREPORT ERROR [F MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED
BIT
#ADE ,500%
;ARE DATA ERRORS ENABLED ??
BNE

185%

JYES

(ZRMOBO RMOS/3/2 FCINL

SECONDARY

ERROR (HECK

343 046566
346 046550
345 046556
346 046562
347 046564
348 046570

042776
013737
042637
001412
062716
112776

349 046576
350 046602
351 046604

162716
004736
162716

355 046610
356 046614
357 04€622
358 066624
359 046632
360 066634
361 046640
362 046646
363 046652
364 066654
365 046660
366 046666
367 046672
368 046674
369 046700

012746
032737
001404
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

352 046610

TST 3

MACRO v04.00

001000
(21346
001142

001142

SUBROUT INE

000004
000033
000002

185%:

4-APR-81 01:15:59 PAGE 25-6
BIC

#MXF , (SP)

;DISABLE MXF

(SP)+,$BDDAT

:CLEAR MXF

ADD

#4,

*MOVE

SUB

#2,(SP)

MOV

RMCS21,$BDDAT

BIC

BEQ

000000

MOV
190%:

050536

002000

001350

001000
001352
001142

001142

000004
000020
000002

000000

000010

:
2008

BIT
BNE

AOE

MOVB
SUB
JSR
SUB

IS OK

SP TO USERS ERROR CALL

*MOVE SP 10 ERROR RE TURN

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

IS SET AND DATA ERRORS ARE NOT ENABLED

#=1,-(SP)
#AOE , 5008
191%

;ASSUME DATA ERRORS ARE ENABLED
*ARE DATA ERRORS EANBLED 27
‘NO !!

RAOE , (SP)
RMER1I1,$BDDAT
(SP)+,$8DDAT
2008
#4, (SP)

:DISABLE AOE
:GET RECEIVED STATUS
-CLEAR ADE IF ENABLED
*BRANCH IF AOE IS OK
*MOVE SP TO USERS ERROR CALL

#LBT ,RMDS]
195%

BIC
MOV
BIC
BEW
ADD

ENABLED

*WRITE ERROR NUMBER IN CALL

#10, (SP)

MOV
8IT
BEQ

1918:
195%:

(SP)

PC.a(SP)+

:REPORT ERROR

177777
001000

'BRANCH IF MXF

#3%.3(SP)

SUB

ERROR

:GET RECEIVED STATUS

1908

JSR

900010

SEQ 0207

*1S BT ALSO SET 72
SYES 1)

#20,3(5P)
#2.(SP)
PC.R(SP)+
#10, (SP)

“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
*HEADER CRRORS, I.E.,
RMER1 = HCRC.HCE,FER
:
376

377 066700

378 046706
379 046710
380 046716
381
382
383 046716
384 046722
385 046730
386 046732
387 046736
388 046744
389 046750
390 046752
391 046756
392 046764
393 046770
394 046772
395 046776
396
397

398 046776
399 047002

032737

001403
042737

002000

001370

000200

050536

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
000200

012746
032737

177777
000200

;

RMER2 - BSE

SRESET

THE

201

BEQ
BI(

BIT

ENABLING BIT

(HCE)

#HCI , RMOF ]
201%
#HCE , 5008

HEADER

COMPARE

;IS HCI SET 27

INHIBIT

SET

‘NO !,
*YES - DISABLE ALL HEADER ERRORS

;REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV

050536

000400
001352
001142

001142

000004
000035
000002

000000

000010

205%:

BIT
BNE
BIC
MOV
BIC
BEQ
ADD

210%:

MOVB
SUB
JSR
SUR

#-1,-(SP)

#HCE , 5008
2058
#HCRC, (SP)
RMER1],$BDDAT
(SP)+,$BDDAT
2108
44, (SP)

#35,3(SP)
#2,(SP)
PC.R(SP)+
#10, (SP)

:ASSUME ERRORS ENABLED

*ARE HEADER ERRORS ENABLED 2?
TYES )
*DISABLE HCRC
-GET RECEIVED STATUS
:RESET HCRC IF ENABLED
“BRANCH IF HCRC IS OK
*MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RE TURN
*MOVE 5P TO NO ERROR

;REPORT ERROR If HCE IS >ET AND HEADER ERRORS ARE NOT ENABLED
050536

MOV
BIT

#-1,-(SP)
#HCE , 5008

:ASSUME ERRORS ENABLED
"ARE ERRORS ENABLED 7?2

(ZRMOBO RMOS/3/2 FCTNL TST 3

SECONDARY ERROR (HECK SUEROUT INE

400 047010
601 067012
402 047016

403
404
405
406
407
408

047024
047030
047032
047036
047044
047050

042637
001412
062716
112776
162716
004736

(00200
001352

001142

000004
000036
000002

162716

000010

047056
047062
047070
047072
047076
047104
047110
047112
047116
047124
047130
047132
047136

012746
032737
001002
042716
013737
042637
001412
064716
112776
162716
004736
162716

177777
000200

047136
047142
047150
047152
047156
047164
047170
435 Q47172

012746
032737

P S 2P aF 2 S
ol o S o O
Pl ol oW Qi ¥
O
[V IV TPV IV TSV 1,8 181,81 .81 8 [aS] [ N P
AN
— OV NN
AN — OV

22 2T ¥ 3
O
iy
NN

409 047052
410 047056

001002
062716
013737

436
437
438
439
4460
441
442
443
444
645

047176
047204
047210
047212
047216

001002
042716
013737

042637
001412
062716
112776
162716
004736
162716

MACRO v04.00

001142

JREPORT

000004
000037
000002

000000

000010

100000
001400
001142
000004

000354
000002

225%:

230%:

JYES !
;DISABLE HCE
JGET RECEIVED STATUS
sCLEAR HCE IF ENABLED

Movia
SuB

#36,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

JWRITE

JSR
su8

001142

H#FER, (SP)
RMER11,$BDDAT

ADD

#4,(SP)

BIC
BEQ

MOVB
SuB
JSR
SUS

BNE

235%:

000010

BIC
MoV
BIC
BEQ
ADD

MOvB
SUB

000000

240%:

#HCE ,500%
225%

8IC
MoV

MOV
BIT

050536

#4,(SP)

JSR
SuB

(SP)+,$BDDAT
2308

#37,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

HCE

IS OK

;MOVE SP TO USERS ERROR CALL
ERROR NUMB:R

235%

#BSE, (SP)
RMERZI
, $BDDAT
(SP) +,$BDDAT
2408
#4, (SP)

#354 ,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JBIT 06 Or

;REPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

:egg flgADER FRRORS ENABLED ??
;DISABLE FER
;GET RECEIVED STATUS
JRESET FER IF ENABLED
;BRANCH IF FER OK
;MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

THE FUNCTION CODE
1.E.,
RMCS2 - MDPE
RMER? ~ DCK,ECH

JYES !
;DISABLE BSE
;GET RECEIVED STATUS
;CLEAR BSE IF ENABLED
;BRANCH IF BSE OK
;MOVE SP TO USERS ERROR CALL
;WRITE

ERRGR NUMBER

;MOVE SP TO ERROR RETURN
;JREPCRT ERROR AND RETURN

;MOVE SP TO NO ERROR
TABLE

IS THE ENABLING BIT FOR DATA

ECH CANNOT SET UNLESS IT IS ENABLED AND ECI

‘DCK IS’ SET.
047216
047222
047230

0647232
455 047236
656 047244

012
032
00;

04
013737
042637

177777
000100
000400
001346
001142

050536
001142

;REPORT ERROR
MOV

BIT

245%:

IN CALL

sMOVE SP TO ERROR RETURN

IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED
#-1,-(SP)
;JASSUME ERRORS ENABLED
JARE THEY ENABLED ??
AHCE ,500%

FIELD ERRORS.

INOTE:

;BRANCH IF

ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED
MoV
#-1,-(SP)
;JASSUME FER IS ENABLED

. REPORT ERROR

446

467
448
449
450
451
652
453
656

215%
, (SP)
#HCE
RMER11,$8DDAT
(SP)
+ ,$BDDAT
220%

BIT
BNE

0>0536

SEQ 0208

BNE
8iC
MOV
BIC
BEQ
ADD

220%:

001142

177777
000200

215%-

000000

000020
001352
001142

N 16

4-APR-81 01:15:59 PAGE 25-7

BNE
BiC

MGV

BIC

IF MDPE

IS SET AND IS NOT ENABLED
JASSUME ENABLED

#-1,-(SP)
#ECH,500%

245%

IS RESET AND

4#MDPE
, (SP)
RM(S21,3$BDDAT
(SP) +,$BDDAT

:A?g DATA FIELD ERRORS ENABLED ?7?
..
JYES
;DISBALE MDPE

;GET RECE!VLD STATUS

;CLEAR MDPE [F ENABLED

MACRO v04.00
JHMOB) RMOS5/3/2 FCINL TST 3
» ONDARY ERROR CHECK SUBROUTINE
457 047250
458 047252
53 047256
460 047264
461 047270
462 047272
463 047276
464
465
466 47276
L67 047302
408 047310
469 047312
470 067316
471 047324
472 047330

473 047332
474 047336
475 047344
476 047350
4?77 047352
478 047356

479
480
481
482
483
L84 047356
485 047362
486 047370

4,87 047372
4,88 047400
489 047402

490
LN
492
493
494
495

496

497
498
499
500

047410
047412
047416
0474624
047430
047432
047436
047444
047450
047452
047456

001472
062716
112776
162716

004736

(00004

000027
000002

162716

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736

1727777

162716

#4,(SP)

JBRANCH 1f MDPE OK
JMOVE SP TO USERS ERROR C(ALL

SUB
JSR
SuB

#2,(SP)
PC.R(SP)+
#10, (SP)

JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

MOVB
250%:

000100

050536

100000
001352
001142

001142

000004
000030
000002

000000

000010

BIT
BNE

255%:

;

050536

004000

001370

100000

001352

000100
001352
001142

001142

162716

000004
000031
000002

000000

162716

000010

112776

004736

#27,3(SP)

JWRITE ERROR NUMBER

[N (ALL

RMERT1, $BDDAT

;GET RECEIVED STATUS
;CLEAR DCK IF ENABLED

THEY ENABLED

JYES !

:DISABLE D(CK

BIC
BEQ
ADD

+, $BDDAT
(SP)
2608
#4, (SP)

JBRANCH IF DCK IS OK

SUB
JSR
SUB

#30.a(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

sMOVE SP TO USERS ERROR CALL
;JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

JMOVE SP TO NO ERROR

ECH IS SET AND,

DATA FIELD ERRORS ARE NOT ENABLED, OR

ECI IS SET, OR
DCK 1S NOT SET.
MOV
#-1,-(SP)
BIT
#ECH, 5008

265%

;ASSUME ENABLED

:zgf|§RRORS ENABLED ??

;1S ECl SET 2?2
JYES !!

BIT
BNE
BIT

#ECI,RMOF
2658
#DCK ,RMER11

BIC
MOV
8I(
BEQ
ADD

NECH, (SP)
RMERT1,$8DDAT
(SP)+,$BDDAT
275%
#4, (SP)

;1S DCK ALSO SET 22
JYES !
:DISABLE ECH
;GET RECEIVED STATUS
;CLEAR ECH IF ENABLED
;BRANCH IF ECH IS OK
JMOVE SP TO USERS ERROR CALL

SUB
JSR
suB

#2,(SP)
PC.a(SP)+
#10, (SP)

:MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

BNE

MOVB

275%:

JARE

#DCK, (SP)

MOV

BEQ

265%:
270%:

#ECH, 5008
255$

BIC

MOvR

260%:

177777
000100

2508

:REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED
JASSUME ENABLED
#=1,-(SP)
MOV

;REPORT ERROR IF

012746
032737
001410
032737
001004
032737
001002
042716
013737
042637
001412
062716

SEQ 0209

ADD

BEQ

000000

4&4-APR-81 01:15:59 PAGE 25-8

2708

#31.3(SP)

;WRITE ERROR NUMBER IN CALL

JRMNB0 RM05/3/2 FCINL TST 3

SE CONDARY ERROR CHECK SURROUTINE

MACRO V04.00
X

Z32ZXI222

3222232222222

282RR22

iR RRadiRRiRlRtRlRRRRRRRRRRRR
AR

**PEKFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER (OMMANDS

NN
Y

OO0 NN

WD
I U

ASTAS
TN 1,V 1,V 1N} | A NG NG JE N
VX [OIPIIVY N WN N NN wWwhyNoroNY
S = OO0

N
AWNI py
= OO0N ESNRL — [@RVele NTe

2P 2B 2 ¥ 2k 2R 2k£~
2¥

00O NN N

PP X

4-APR-81 01:15:59 PAGE 26

""ttttttttittfl'l’tt'tkt't"ittitttttt'ttttttttttfitit.'t'tt'tt.'!"t

047636

047464
067466

047472
047500
047502
047510
047512
047516
047524
047530
047534

000030

000137

050510

013737
001421
032737
001015
062716
112776
005037

001340

001142

040000

001336

103402

162716

004736

000004
000015
001140
000v02

047542

162716
000240

047544
047552
047560
047564

013737
163737
006337
063737

001340
001414
001140
001416

001140
001140

047572
047600
047602

032737
001403
013737

000010

001346

001416

001140

C47610
047616
047620
047626
047632
047640
047644
047646
047652

023737
001416
013737
062716

001140

01342

00134,
000004
000016
0000G2

001142

00473¢€
162716
000240

MoV
BEQ

BIT
BNE

ADD
MOVB
CLR
suB
JSR
suB
NOP

;REPORT

285%:

001140

290%:

000000

#SEARCH,515%
280%
3558

;WAS DATA TRANSFERRED ?
;BR IF YES
JNO - EXIT

IF RMWC NOT ZERO AND TRE 1S ZERO
RMWCI,$BDDAT
;WORD COUNT ZERD??
285%
JYES
HTRE ,RMCS1!
;TRANSFER ERROR DETECTED??
285%
JYES.!
#4, (SP)
K15,a(SP)
;ERROR NUMBER
$GDDAT
;GOOD CATA FOR TYPEOUT
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
JREPORT WORD COUNT NOT ZERO
PC,a(SP)+
#10, (SP)
JRESTORE (SP)

ERROR IF RMBA IS NOT CORRE(T
MOV
RMWCI,$GDDAT
;GET WORD COUNT AT END OF TRANSFER AND
suB
RMWCO, $GDDAT
;SUBTRACT STARTING WORD COUNT.
ASL
$GDDAT
i* 2
ADD
RMBAO, $GDDAT
;ADD STARTING BUS ADDRESS

BIT
BEQ
MOV

HBAI ,RMCS2I
290%
RMBAQ, $GDDAT

;WAS BUS ADDRESS INHIBIT (BA]) SET 7?
;NO !
;ADDRESS SHOULD NOT HAVE CHANGED

CMP

$GDDAT ,RMBAI

;BUS ADDRESS 0K??

MOV
ADD
MovB

RMBAI, $BDDAT
#4,(SP)
#16,2(SP)

;BAD DATA FOR TYPEOUT

JSR

PC,a3(SP)+

BEQ

SUB
suB

000010

NOP

295%

JYES!!

;ERROR NUMBER

#2,(SP)

;JMOVE SP TG RETURN FOR ERROR

#10, (SP)

JRESTORE (SP)

;REPORT UNEXPECTED ADDRESS

;COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT

005046
013746
163716

047666
047672
047700
047702

012746
032737
001402
062716

000400
000002

047706
047712
047716
047720

005266

000004
000002

161666

;REPORT ERROR

280%:

000010

047654
047656
047662

003373
022626

BLO
JMP

000000

047536

112776
162716

cmp

050544

022737

295%:

001340
001414

001412

000002
3008:

CLR
Mov
SuB

-(SP)
RMWCI,-(SP)
RMWCO, (SP)

JNUMBER OF SECTORS TRANSFERRED
;GET WORD COUNT AT END OF TRANSFER AND
;SUBTRACT STARTING WORD COUNT.

MOV
BIT
BEQ
ADD

#256.,~(GP)
#BIT1,RMCS10
300%
#2,(SP)

;ASSUME 256. WORDS PER SECTOR
JHEADER & DATA COMMAND ??
sNO !
;CHANGE TO 258. WORDS PER SECTOR

INC
SUB
BGT
MP

4(SP)
(SP),2(SP)
300%
(SP)+,(SP)+

;INCREMENT SECTOR COUNT
JSUBTRACT ONE SECTOR'S WCRTH
;CONTINUE IF NOT DONE
JRESTORE STACK

;COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

cRMOBO RM)S5/3/2 FCTINL TST 3

St “ONDARY

ERROR CHECK

58
59 047722
60 047730
61 047736
62 067744
L3 047752
64 047756
65
66 047762
67 047770
68 047774
o9 050002
70
71 050006
72 050014
73 050016
74 050022
75 050030
76
77 £50032
78 050040
79 050042

80 050046
81 050054
82 050056
83
84
85 050060
86 050060
87 050064
88 050072
89 050074
90 050102
91 050104
92 050112
93 050120
94 050126

95 050134
96 050136
97 050142
98 050150
99 £50154
100 050156
101 050162

—d —e

Dt ad

b —d =D

- 4= —2000000 O
HWN = OO0 NONES W

102

050164
050170
050176
050200
050206
050210
050214
050216
050222
050224
050232

SUBROUT INE

MACRO v04.00

013737
013737
013737
013737
000337
005237

001446
001420
001420
001334
050546
050546

050536
050540
050542
050546

042737
000337
042737
062637

000377
050540

023727
103406
005237
162737
000766

023737

103407
005237
163737
000766
000240

4-APR-81 01:15:59 PAGE 26-1

sNUMBER OF SECTORS
RMD(O,500%
MOV
MOV
RMDAQ,505%
RMDAD,510%
MOV
MOV
LSTRK,520%
SWAB
INC

520%
520%

050540

BIC

#~<TADMSK>,505%

177400
050542

050542

BIC

050542

000040

050540
000040

050542

050540

050546

050536
050546

050540

SWAR

ADD

310%:

CMP

BLC
INC

ORIGINAL CYLINDER
ORIGINAL TRACK
ORTGINAL SECTOR
LAST TRACK,

;GET TRACK ADDRESS TO LO BYTE AND
:INCREMENT TO GET TOTL # OF TRA(CKS.

. SAVE TRACK ADDRESS BITS AND
;SWAP TRACK ADDRESS TO LOW BYTE.
#*(C<SADMSK>,510%
. SAVE SECTOR ADDRESS BITS
(SP)+,510%
505%

510%,432.

SuB

#32.,510%

cMP
8L0
INC

505%,520%
320%
500%

; TRACK OVERFLOWED??
;NO.!
; INCREMENT CYLINDER

315%

Sus

NOP

315%
505%

;SECTOR OVEFLOWED??

;NO.
.
; INCREMENT TRACK
;ADJUST SECTOR

315%:

;STORE
;STORE
;STORE
;STORE

310%

520%,505¢%

:TRY AGAIN

;ADJUST TRACK
:TRY AGAIN

%SEZORT ERROR IF 'LBT'' IS NOT CORRECT
005037
023727

001140

050536

001466

032737
001003
012737
013737
042737
023737
001413
062716

002000

001352

002000
001350

001140

101407

112776
162716
004736
162716
000240

005037
032737
001031
023727
101425
005737
001012
005737
001007
032737
0014613

175777
001140

000004
000017
000002

001142

001142
001142

$GDDAT

;SET GOOD DATA FOR LBT - O

BLOS
B8IT
BNE

325%
#1AE ,RMER1]
325%

;NO!!
;WAS JAE SET ?2?
:YES = LBT SHOULD NOT BE SET

MOV

RMDS]I ,$8DDAT

(MpP

325%:

000000

000010

[ [0}Y

BIC
cMpP
BEQ
ADD
MOVB
SUB
JER
SUR
NOP

001140
002000

001352

050536

001466

050540

#LBT ,$GDDAT

#~CLBT,$BDDAT
$GDDAT, $8DDAT
3308
#4,(SP)
#17,a(SP)
#2,(SP)
PC,a(SP)+
#10,(5P)

;SHOULD LBT BE SET??

;SET GOOD DATA fOR LBT

:BAD DATA FOR TYPEOQUT
;1S LBT CORRECT??
JYES!!

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
JREPORT LBT IS WRONG
;RESTORE (SP)

BIT
BNE

#]AE ,RMER1]
3408

:WAS "'1AE'' DETECTED??
:YES=''ADE'* SHOULD BE ZERO

BLOS

340%

;NO!!

BNE

335¢%

;JYES

CMP

050544

5008 ,4#822.

:REPORT ERROR IF "AQE'' IS INCORRECT
CLR
$GDDAT
:SET FOR AOE = 0

330%:

TST

050542

000010

CLR

BNE

BIT

BEQ

5008 ,4#82°2.
505%
510%

;SHOULD AOE BE SET??

:MAYBE

335%

JYES

340%

JNO

#F2,515%

:WAS THIS READ OR WRITE CHECK ??
..

JRMOBO RM0S5/3/2 FCTINL TST 3
005737
001410
012737
005037
012737
013737
042737
023737
001413
062716

050326
050332

050334
050342
$50344
050352
050356
050364
050372
050400
050402
050406
050414

032737
001062
013737
000337
113737
013737
023737
001413
062716
112776
162716

050452
050460
050462

013737
042737
013737
023737
001413
062716

£50500

004736

050506

050510
050514
050520
050522

050526

050530
050534

050536

169 050540
170 050542
050544
N

000010

050430
050436

050502

001140

162716

000240

004736
162716
000240

050466
050474

“76777

000004
000020
000002

050420
050422
050426

050444

001000
050540
000001
001352

112776
162716

004736

112776
162716

340%:

176000

:REPORT

345%:

000000

000004

BIT

#1AE ,RMER1]

SWAB

$GDDAT

cMp
BEQ

$GDDAT ,$8DDAT
3508

BNE
MOV

500%:
505%:
510%:
515¢%:

355%
505%, $GDDAT

510%,8GDDAT
RMDAI ,$BDDAT

ADD
MOVB

#4, (SP)
#21,a(SP)

SuB

#10,(SP)

Mov

BIC

NOP

360%:
365%:

44, (SP)
#20,a(SP)

JYES .
.
;SET FOR ACE =1
s CLEAR EXPECTED TRACK
;EXPECT SECTOR = 1
;IS AOE CORRE(CTY??
JYES!!

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
JREPORT AQE IS WRONG
JRESTORE (SP)
.

ERROR IF RMDA 1S NOT CORRECT

MoV
Mp
BEQ
ADD
MOVB
SUB
JSR
SUB

000604

;BAD DATA FOR TYPEOUT

#2,(SP)
PC,a(SP)+
#10, (SP)

:REPORT ERROR

355%:

RMER11,$BDDAT

suB
JSR
Su8

NCP

000004
000022
000002

;JWAS ALL DATA TRANSFERRED ??

3409
#AQE , $GDDAT
505%
41,5108

OE
, $BDDAT
#*CA
$GDDAT,$BDDAT
345%

suB
JSR

350%:

RMW(]

BIC
(MP
B8EQ

MovB
MOV

001140
001142
001142

001372
001140

000004
000000

MOV

ADD
MovB

000010

050536

BEQ
MoV
CLR
MOV

NOP

001140

000004
000021
000002

335%:

000000

050540
001140
050542
001344
001140

062716
105776
001403
062716
000402

000000
000000
0009000
000000

050542
001142
001142
001142

001352

000010

000207

001140

4-APR-81 01:15:59 PAGE 26-2
18T

002000

162716
000240

162716

MACRO v04.00

001340

® Sogrrsa
-

O OO

O~NOWVES
W

PARYARC RO AV RV, AW, LU, A0 AV, )
Fak 2b o
5 NN AN N NN NN
A RO PO RO PO N N N b
e b
k»uC)(Nm~q0nnbwnmr~C)(Kn‘vo\n:numr~c><nn‘90whbwnhr*C%oaerwhtflnhadgioonVE:a

SECONDARY ERROR (HECK SUBROUT INF

ADD
1518

BEQ
ADD
BR

#2,(SP)
PC,a(SP)+

;WAS THERE AN JAE ERROR ??

;YES = DONT CHECK RMDA,RMDC
;SETUP EXPECTED DISK ADDRESS
;SETUP RECEIVED DISK ADDRESS

;COMPARE EXPECTED & RECEIVED
;BRANCH IF EQUAL
;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
sREPORT BAD DISK ADDRESS

;RESTORE (SP)

IF RMDC IS INCORRECT
5008, $GDDAT
;SETUP EXPECTED CYLINDER

#~C1777,5GDDAT
RMDCI,$BDDAT
$GDDAT ,$8DDAT
355%
#4, (SP)
#22,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;SETUP RECEIVED CYLINDER
;COMPARE CYLINDERS
JBRANCH IF EQUAL

#4, (SP)
@ (SP)

;MOVE (SP) TO ERROR CALL
;WAS ERROR FOUND??

;ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
;REPORT BAD CYLINDER
JRESTORE (SP)

JMOVE (SP)

TO ERROR RETURN

SUB

3609
#4, (SP)
365%
#4, (SP)

;MOVE (SP)

TGO NO ERROR RETURN

.WORD
.WORD
.WORD
L.WORD

0
0
0
O

;CYLINDER
:TRACK
;SECTOR
JFUNCTION CODE

RTS

UNDARY ERROR (HECK SUBROUTINE

170 050566

000000

MACRG v04.00

4&-APR-81 01:15:59 PAGE 26-3

520%:

.WORD

JTOTAL # OF

"RACKS = LAST TRA(K +1

w gnye

JHMOBy RM05/3/2 FCINL IST 3

MACRO v04.00
“IRMOB0O RMOS/3/2 FCINL 15T 3
"IMEOSITE ERROR (HECK SUBROUT INE

4-aPR~-81 01:15:59 PAGE 27

SEQ 0214

;

.SBTTL

7
A
5

:THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND
:RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
:MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

;CALL:

1
1%
1

:
;
:

.WORD
BR
NOP

?2?

:
:

JSR
272

PC,a(SP)+

;

COMPOSITE ERROR (HE(CK SUBROUTINE

: THE MASKS ARE APPLIED.

2(1)
;

9
10

15
}9
18

;NOTE:

JSR
.WORD

ERROR

;g
g; 050550

CMPERRSTS:

013737

001352

001176

27 050570
gg 050576

013737
047637

001400
(000000

001200
001200

25 050556
26 050564

30
31

32 050604

13 050610
;g 050614

36
27 050620
38 050624
39 050626

40
41
42
43
44
45

050634
050640
050644
050652
050656
050660

46 050664
47 050666
48
49

(047637
062716

000000
000002

062716

000006

005737

001176

105076
162716

001420
013737
(005037
062716
112776
162716
004736
162716
000240

1176

1140
0004
{@00066
§$00002

BIC
ADD

MOV
BIC

a(SP) ,$TMP1
#2,(SP)

RMERZ2] ,$TMP?2
QA(SP) ,$TMP?

;CLEAR USER'S ERROR CALL

ADD

CLRB
SuB

001142

ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

:MASK AND STORE THE CONTENTS OF RMER1 AND RMER?
MOV
RMER1TI,$TMP1
:STORE RMER1 AT TEMP STORAGE

0@0000
OQOOO&

#6,(SP)

a(SP)
#4,(SP)

RMER1
s MASK
:MOVE SP TO NEXT MASK

:STORE RMERZ AT TEMP STORAGE
;MASK RMERZ2

;MOVE SP TO USER'S ERROR CALL
;CLEAR ERROR NUMBER
JLEAVE SP AT NO ERROR RETURN

:SEE IF THERE WERE ANY ERRORS IN RMER1, I1.E., $TMP1
TST
$TMP1
;ANY ERRORS TO REPORT??
BEQ
5%
JNO !
Mov
$TMP1,$BDDAT
;RECEIVED STATUS FOR TYPEOQUT
CLR
ADD
MOVB
SUB
JSR
sUB

000000

QPO0010
5%:

NOP

$GDDAT
#4, (SP)
#66,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JEXPECTED STATUS FOR TYPEOQUT
:MOVE SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #
;MOVE SP TO RETURN FOR ERROR
:REPOR1 ERROR VIA USER
;MOVE SP BACK TO BRANCH

{
’

)

S0
51 050666

005737

001200

546 050674
55 050702
SQ 050706
57 050712

013737
005037
062716
112776

001200
001140
000004
(000067

2% 050672

001176

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD

;BE ZERO

23
24 050550

PC,CMPERRSTS

001420

:SEE IF THERE ARE ANY ERRORS TO REPORT IN RMERZ ($TMP?2)
TST
$TMP?
:ANY ERRORS [N RMER??
001142

000000

BEQ

10%

:NO!!

MOV
(LR
ADD
MOVB

$TMP? , $BDDAT
$GDDAT
#4,(SP)
#67,a(SP)

;RECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS FOR TYPEQUT
:MOVE SP TO USER'S ERRQOR CALL
:WRITE ERROR NUMBER IN USER'S

MAIRO y04.00
J~MOBC RMOS/3/72 FCINL T1ST 3
"OMPCSTTE ERROR:CHECK SUBROUT INE
S8 (50720 16276
56 050724 004736
60 050726 162716

1 050732 000240

64
55 050736

062716

67 050746

001403

000010

108
000004

66 050740 105776 000000

68 050746

062716

09 050752 000402
70 050754

71 05C760

162716

000207

58
JSR
SUB

000002

2% 050734

NOP

%2, (SP)
PC,a(SP)+
#10, (SP)

£0 0215

;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

;AUGMENT THE RETURN ADBRESS IF ANY ERROR WAS DETECTED
ADD
#4,(SP)
JMOVE SP TU USER'S ERROR (ALL

1STR

a(SP)

ADD

#46,(SP)

BEQ

000004
000004

4-APR-81 01:15:59 PAGE 27-1

20%:
30%:

SuUB

RTS

20%

30§

#4,(SP)
PL

:WAS THERE AN ERROR CAI LED??

ND!!

JYES = MOVE SP TO ERKOR RETURN

;MOVE SP TO NO ERROR RETJRN
:RETURN TO USER

el - HMCS/3/72 FCINL

TST 3
ETT SUBROUTINE

OR NI

4-APR-81 01:15:59 PAGE 28

LSBTTL

DEVICE SELECT SUBROUTINE

THIS SUBROUTINE SELECTS THE DEVICE., GETTING THE DEVICE NUMBER FROM THE

TEST QUEUE.

;CALL:

;1)

(2
:(3)
:(4)

JSR

B8R

PC ,DEVSEL

NOP
ERROR

RETURN [F NO ERROR

RETURN IF ERROR
ERROR DEF INED BY SUBROUTINE

050762
050766
050772

DEVSEL:

062716

105076
162716

:(LEAR USER'S ERROR CALL
ADD
CLRB
SuR

000004
000090
000004

[elelolalelolole]

051132
000300
001276

001176
001174

032737
001407
062766

010000

001174

112776

000004
000111

000010
000010

oSS

032737

004000

001176

000004
000112

000010
000010

[,
P 8 V]

022626

(O, P

JV IV ]

— o

—=—O

rosOs

O\AO?\* [o

0000

H
~n

OO0

000010
000000
000010

[o Yo 3V 1V

e
el
el
)
——l
i

ol
—

)

) —2
—

OO0O

VLIV,
[O,B IV,
LV, BEERV
IV,
1V ]
— el
el

OO0

B
etk
-

CSOOO0OC

[V RO, TV, LV, 1V, ]

[eolelale]

(O TV IV, IV, ]

SVNN

111160
016037
016037

000407

062766

112776
162766

ERRVEC,~(SP)

;:PUSH ERRVEC ON STACK

MOV
MOV

RO,-(SP)
R1,-(SP)

:;PUSH RO ON STACK
;:sPUSH R1 ON STA(CK

MOV
MOV
MOV
MOV

000004
000006

001021
062766
112776

000010
000010
000010

ERRVE(C+2,-(SP)
#20% ,ERRVEC
#PR6,ERRVE(C+2
$BASE ,RO
TSTQUE ,R1

;:PUSH ERRVEC+2 ON STA(K

;SETUP FOR BUS TIMEOUT

;RO - UNIBUS ADDRESS
;R1 POINTS TO DEVICE NUMBFR

;SELECT DEVICE AND VERIFY THAT DEVICE 1S AVAILABLE
MOvB
(R1) ,RMCS2(RO)
;WRITE UNIT SELECT BITS
mov
RMCS1(RO) ,$TMP1 :GET 'DVA'’ STATUS
mMov
RMCS2(RO) ,$TMPO ;GET 'NED'’ STATUS
BIT
BEQ

ANED ,$TMPO
10%

;1S DEVICE NONEXISTENT °
JNO..

MOovB
BR

#111,210(SP)
30%

:WRITE ERRCR NUMBER

#DVA, $TMP1
35%
#4,10(SP)
#112,210(SP)
30%

;IS DEVICE AVAILABLE ?
JYES.!
;MOVE SP TO USERS ERROR CALL

ADD

10%:

BIT
BNE
ADD
MOvB
BR

;HANDLE BUS

000004
000113
000002

:MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF CALL
:MOVE SP BA(CK

MOV

001466

000422

#4, (SP)
a(SP)
#4,(SP)

:SAVE USER'S INFORMATION AND SETUP REGISTERS

000004
000006

OCOO

OOV

050762

NYP N

[ RN
Y

MACRO v04.00

20$:

30%:

cMp

ADD
MOVB

suB

#4,10(SP)

TIMEOUT

(SP)+,(SP)+

#4,10(SP)
#113,a10(SP)

#2,10(SP)

;MOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER

;ADJUST SP

;MOVE SP TO USERS ERROR CAL.
;WRITE BUS TIMEOUT ERROR NUMBtR

;ADJUST RETURN TO 'NOP' PRECEDING
‘THE ERROR CALL

%F;ESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

T
000006

MoV

MoV
MOV

(SP) +,R1

(SP) +,RO
(SP)+ ,ERRVE(C+?2

::POP STACK INTO R1

A
;;POP STACK INTO RO
:;POP STACK INTO ERRVEC(+¢

UBROUT InE

012637
000207

000004

(RO v04.00

4-APR-B81 01:15:59 PAGE 28-1
MOV
RTS

(SP)
¢+ ERRVE(

S€0 Oct/
POP STACK INTO ERRVE(

fMe,

2 FCINL TST 3

(7ol

Xiv

JRMOBC RMOS/3/72 fCTm TST 3

INE
EFe STATUS 7HECK SUBROUT

MAZRO v046.00

‘

STHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR 1S DETECTED
SAFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER [N THE 'ERROR'® TRAP
:OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOI LOWS:

11
‘e

;CALL:
(1

17
15

14
;;

000240

062716

105076
162716
005037

000010

001400

L
36 051236
T7 051242
38 051250
39 051254

005037
013737
062716
112776

001140
001352
000004
000050

22 051274

000437

001020

162716
004736
162716

000002

001142

000000

000010

PC.R{(SP)+

#4 ., (SP)

a(SP)
#4,(SP)
300%

:LOCAL REGISTERS, I.E.., 'PAR'’
#PAR ,RMER1]
BIT
1%
BEQ
#DPE ,RMER2]
BIT
BNE

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

:MOVE (SP) TO ERROR CALL

;CLEAR ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN
:CLEAR ERROR FLAGS

1 AND 'DPE'' - 0
:WAS PARITY ERROR DETECTED?”
;NO!!
:WAS IT DUE TO CONTROL BUS??
NOT SURE!!

sREPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
;EXPECTED STATUS
$GDDAT
CLR
;RECEIVED STATUS
RMER1] ,$8DDAT
MOV
:MOVE STACK TO USER'S ERROR
#4, (SP)
ADD
;ERROR #50
#50,3(SP)
MOVB
SuB
JSR
SUB

#2,(SP)
PC,a(SP)+
#10, (SP)

:MOVE SP TO RETURN FOR ERROR

JRESTORE STACK

:IAE SHOULD

BE ZERO

;DETERMINE THE VALUE OF '‘'IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER
012737

002000

00140

052737
023727
101025
042737

040000
001446
040000

052432

$3 0S1330

123737

001421

001335

S6 051340

123727

001420

000035

57 051346

222

;TEST FGR MASSBULS CONTROL BUS PARITY ERROR WHEN WRITING

001352

gg 05133¢

J3R
222

CLRB
SUB
CLR

000000
000004
052432

000010

48 051304
49 051312
SO 051320
2} 051322

ERROR

ADD

000004

032737
001424
032737

46
4> 051276

NOP

PC.,SEKSTS

:CLEAR USERS' ERROR (CALL
NOP

29
30 051216
3 051224
3 051226

40 051262
41 051266
4?2 051270

SEKSTS:

22 051234

JSR

:
:

;g 051174

24 051202
25 051206
59 051212

SEEK STATUS CHECK SUBROUTINE

7
R
7

2% 051176

SEQ C218

STHIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

2
g

21
22 051174

4-APR-B1 ({1:15.59 PAGE 29

.SBTTL

101016
101410

052432
001466

SALSO, SET ‘'SKI'*
IF CYLINDER ADDRESS [S TOO LARGE.
1$:
MOV
#]AE , $GDDAT
;SETUP FOR JAE - 1

8IS
CMP
BHI
8]C

#5K1,300%
RMD(CO,#822.
3s
#5K1,300%

CMPB
BHI

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRA(K ?

(MPB

RMDAOD,#29.

BLOS

;SETUP FOR SKI =1
:GREATER THAN LAST CYLINDER ?
:YES - CYLINDER IS INVALID
:CLEAR SKI ERROR FLAG

:YES - TRACK IS INVALID

:SECTOR > 29. ?

:BR IF NO

JRMOB’, AMOS/372 FLTAL TST 3

EEx

LTATUS (HECK SUBROUTINE

<8 (51350

MACRC v04.00

032737

010000

0014446

000037

59 051356

001406

21 05136

101002

123727

001420

22 051376

005037

001140

013737
042737
023737
001004
042737

001352
175777
001140

001142
001142

040000

052432

£0 051360

£5

051374
€7 051402
~8 051410
09 051416
70 051420
71 051426

;g 051430
764 051430
75 051434
76 051442

000413

77 (51446

062716
112776
162716
004736

79 051454

000240

78 051450

80 051456

81
82
83%
84

85
86
87
88

000000

000010

;18 BIT FORMAT °

(MPB

RMDAO.#31.

SSECTOR > 31. ?

CLR

$GDDAT

JU'IAE' SHOULD = O

BH]

051512
051520

051522
051530
95 051534
96 051536

032737
0071427
005037
013737

062716
112776

032737
001403

112776
162716
004736

010000

001140
001400
000004
000060

558

RMFR1]1,.$BDDAT

;IS IAE 0K??

BNE

35%

:BR IF NO

BIC
P

BIC
BR

MOVB
SUB
JSR
suB

NOP

gg 051542

000240

162716

000010

99 051544
100 051552
101 051560

013737
042737
013737

001400
137777
052432

104
105
106 051576
107 051604
108 051606

032737
001032
062716

040000

162716

000002

102 051566
103 051574

109 051612

'10 051620

"11 051624
“12 051626

113 951632

e 081634

042737
001417

112776

004736
162716

000443

MOV

137777

000004

000267

BEQ
CLR

ADD

000000

001142

52%:

#2.(SP)
PC.a(SP)+
#10, (SP)

“CLEAR SKI FLAG

*6O CHECK NEXT ERROR

:ERROR 51

*MOVE SP TO RETURN FOR ERROR
*REPORT INCORRECT IAE
:RESTORE (SP)

IVL ERROR AS

#1VC,RMER2]
52%
$GDDAT

RMER21,$BDDAT

#4 , (SP)

#60,3(SP)

MOVB

#61,a(SP)

BIT
BEQ

51%:
/

#51,9(SP)

MOVB

AVV.RMDS]
51%

:1VC ERROR??

NO!
!
*EXPECTED STATUS

:RECEIVED STATUS

*MOVE SP TO USER'S ERROR

*ERROR 60 IF WV - 0

;ERROR 61 IF W

- 1

S8
JSR
5B

#2,(SP)
PC.a(SP)+
#10, (5P)

:MOVE SP TG RETURN FOR ERROR
*REPORT ERROR VIA USER
*RESTORE SP

MoV
BIC
MOV
BI(
BEQ

RMER21,$BDDAT
#~CSK1.$BDDAT
3008, SGDDAT
¥~CSK!,$GDDAT
53

:RECEIVED STATUS
:CLEAR DONT CARES
*GET EXPECTED SKI STATUS
:CLEAR DONT CARES
*BRANCH IF 0 EXPECTED

NOP

001142
001142
001140
001140

#SKI,300%

:SAVE [AE BIT FOR COMPARE
:CORRECT ''IAE'' STATUS ?

IVC ERROR WITH VOLUME VALID ZERO

001142

000000

#~C1AE.SBDDAT
$GDDAT.$BDDAT

ERRONEOUS IVC ERROR, VOLUME VALID IS SET

BIT

000061
000002

SYES ~ SECTOR IS INVALID

MOV

001400

000100

SYES - SECTOR IS INVALID FOR 18 BIT TMMODE

SREPORT INCORRECT ‘'IAE'" STATUS VIA USER'S ERROR CALL
#4,(SP)
ADD

001350

- COMPARE EXPECTED AND RECIEVED ''IAE'' STATUS

3s:

051456
051464
051446
051472

SEQ 0219

SFMTI6. RMGFO

;REPORT ANY

8y 051500
90 051504

91
92
9%
94

162716

000004
000051
000002

BIT

BEQ
2%:

001142

4~-APR-81 01:15:59 PAGE 29-1

:REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)
BIT

BNE
ADD
MOVB
suB
JSR
suB

000000

000010
53¢%:

#3K1,$BDDAT

54$
¥4, (SP)
#267,3(SP)
#2.(SP)
PC.a(SP)+
#10, (SP)

:WAS SKI DETECTED ??

TYES !
*MOVE 'SP TO USERS ERROR CALL
*WRITE ERROR NUMBER
*MGVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

1GO TO NEXT ERROR CHECK

JEW( GMOS/3/2 FCTNL TST 3
JTAT
S (HECK SUBROUT
INE
P

7 051634

8 051642

9 051644

0 051650
051656
051662
051664
051670
051672
051700
051702

NO N

051714
051720
051726

051732
0517%

051740

040000

112776
162716

000004
000054
000002

162716

000010

062716

004736

000240
032737
001420
005037
013737
062716

000200

112776
162716

001140
001490
000004
000055
000002

162716

000010

004736
000240

001142

&4-APR-81 01:15:59 PAGE 2 9-2

:REPORT ERROR IF SKI

BIT

BEQ
ADD
Movs
Su8
JSR
SuB
NOP

001460

54%
#4, (SP)
#54 ,a(SP)
a2, (SP)
PC.a(SP)+
#10. (SP)

;REPORT ANY DEVICE

54%:

001142

BIT
BEQ
(LR
MoV
ADD

MOVB
suB
JSR
suB

000000

NOP

S SETY

#SK] ,SBDDAT

CHECK

#DVC ,RMERZ]
63
$GDDAT
RMERZ] ,$8DDAT
#4,(SP)

#55,a(SP)
#2,(SP)
PC,a(SP)+
710, (SP)

W, IV, LV
LV, IV [V, RO TV DN

062716
112776
032737
001403

(O IV IV TV

POPOUNRIPUNUN)
—
et D=
2 —d
(=]
o
o

032737
001427
005037

013737

020000

001140
001352
000004
000052
010000

112776
162716

000053
000002

162716
000240

000010

013746
042716

001350
047677

004736

001352

JNO = SKI IS OK
;MOVE (SP) TO ERROR
;LOAD ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
;REPORT SEEK ERROR
SRESTORE (SP)

;WAS THERE DVC DURING SEFK??
:NO!!
JEXPECTED STATUS
;RECFIVED STATUS

;ERROR #55
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;RESTORE SP

BEQ
CLR
MoV
ADD
]

000600
001350
7%:

N\JNVNNSV
F

AUNUNU
NN N —

:NO!!
JEXPECTED STATUS
;RECEIVED STATUS
;MOVE (SP; TO ERROR
;LOAD ERROR NUMBER

7$
#53,3(SP)
#2,(SP)

JNO!!
;YES - CHANGE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

#MOL ,RMDS

JSR
SUB

PC,a(SP)+
#10,(SP)

BEQ
MOVB
suB

0PI

8%
$GDDAT
RMER1]1,8BDDAT
#4, (SP)
#52,3(SP)

817

NOP

;WAS MEDIUM ON LINE??

SREPORT ‘'OPI'‘ ERROR
JRESTORE (SP)

;SEE IF 'PIP'" = 0, AND “ATA’', "MOL'" AND "‘WVV'' = 1

8%:

110100

052402

0. OR

;BECAUSE ON CYLINDER LATCH DIDN'T RESET
6S$:
BIT
#0P1 ,RMER1]
;"OPI"" ERROR??

001142

000000

SEQ 0220

;1S SK] SET 2?2

;JREPORT ANY ‘OPI'' ERROR AS OPI WITH MOL

[elelololelelelelalelelole)

A N

WO 2OV NC NN

¥ oF 230, TV NV IO T

—=C 000 NO il

051706

032737
001413

—= OOV

fs Yo JE, TV T YU TV TC, IV, PO N0 W

[

MACRD ¢04.00

010000

001350

020000

001352

001350
010000
001350
000004
000062
000002

001140
001140
001142
000000

MOV
BIC
(MP
BNE
JMP

RMDSI ,-(SP)
(SP)
MOL
!VV>,
H*C<ATA!PIP.
HATAIMOL!'VV, (SP)+
;ERROR IN RMDS
9%
JRMDS IS OK
143

;REPORT ERROR IF MOL = O AND OP] = 0

9%:

BIT
BNE
BIT

#MOL ,RMDS
10%
#0P] ,RMER11

;IS MOL RESET??
:NO - MOL IS SET
;WAS OP] SET

BNE
MOV

108
RMDSI ,$GDDAT

;YES - DONT REPORT ERROR
JEXPECTED STATUS

Mov

RMDSI , $BDDAT

;RECEIVED STATUS

Mova

#62,a(SP}

8IS
ADD

SUB

L
, SGDDAT
#MO
#4, (SP)

¥2,(SP)

;MOVE SP TO RETURN FOR ERROR

[4%0B0 AM05/3/2 FCTML TST 3

Eie STATUS (HECK SUBROUT INE

173 05213
1;45- 052140

JSR

004736

SUR
NGP

162716 (00010
000240

17¢,

177 052162 032737 020000 00135C
178 052150 001430

179 052152
‘80 052160
181 052162
182 052170
133 052176
184 052206
185 052210

032737
001024
013737
042737
013737
062716
112776

187 052222
188 052224

004736
162716

186 052216

;gg 052230

191

162716

000240

0
20¢ 052304

;82 052310
205

J06 052312
‘72 052320

JOB 0%2%22

000010

162716

000240

032737
001030

032737

062716

000240

06716
105776
001403

Cof 052416 062716
ST NG
~

11%:

0GR

001140
001142

000010

001400

001350
000100

001140
001140
001142

001350

000004

000064
000002

:MOVE SP 10 RETURN FOR ERROR

:REPORT "PIP'' SET AFTER SEEK
:RESTORE (SP)

RMDSI ,$GDDAT

:WAS '‘ATA'' SET 2?2
JYESH!
EXPECTED STATUS

#6,(SP)
#57,3(SP)
#2,(SP)

:MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR

#ATA'MOL 'DPR!DRY,$GDDAT
RMDS] ,$BDDAT
:RECEIVED STATUS

NOP

010000

;RECEIVED STATUS
:MOVE (SP) TO ERROR
;LOAD ERROR NUMBEP

8IS
MOV

suB

001350

JWAS "SKI'SET??
SYES-DONT REPORT PIP
SEXPECTED STATUS

#ATA RMDS
138

JSR

000100

#2,(SP)

;IS *PIPT” STILL SET2?
sNO!!

BIT
BNE

ADD
MOVA
su8

004736

:REPORT ERROR VIA USER

:REPORT AN ERROR IF ‘"ATA'" IS NOT SET

000000

110600
001350

PC,a(SP)+

#10,(SP)

;QEEOR;EQ;TENTION NOT SET DURING
.

RESTORE (SP)

:REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO

13%:

81T
BNE

Tu$:

JISw =0
JNOH!

14%
RMDSI ,$GDDAT
#VV,SGDDAT
RMDS],$BDDAT

;NO - IvC IS SET
EXPECTED STATUS

#1V(C,RMERZ]

ADD

#4,(SP)

MOVR
SUR
JSR
SUR

000000

#VV ,RMDS]
14%

2381

BNE
MOV
BIS
MOV

000010

RAY OSan«
S04 050410
208 052614

NOP

000004
000057
000002

112776
162716
QU47%6
1627216

W 092402

PC.a(SP)+
#10, (SP)

062716
112776
162716

Ja 052360
218 052366
2lé 85 372
L1272 052%74

ARY

JSR
SUB

SuB

MOV

001024
013737
052737
013737

218 0526400
glg 05240¢

000000

#PIP RMDS]
118

#SK] , RMER2]
118
RMOSI ,SGDDAT
#P1P,SBDDAT
* RMDS], $BDDAT
#4,(SP)
#56,a(SP)

001140

209 052330
M0 ossssz
J11 052%0
M1 092346
M8 052385

000056

000002

270,(SP)

BIT
BNE
MOV
BIC
MOV
ADD
MOVB

001350

052737
013737

§0? 052302

001149
001142
001142

BIV
BEQ

013737

15 082250
196 052256

197 052264
198 052270
199 052276

001350
020000
001350
000004

10%:

001350

032737
001024

194 0622642

001409

:REPORT AN ERROR IF ‘PIP"* IS STIL SET AND SKI NOT SET

100000

052232
(052240

192
19%

040000

P, a(SP)+

NOP

266 ,3(SP)
#2,(SP)
PC.a(SP)+
#10,(SP)

;IS IvC ALSO 0 ??
:RECEIVED STATUS

;ERROR #64
:MOVE SP TO RETURN FOR ERROR

;MODIFY THE RETURN ADDRESS If AN ERROR WAS DETECTED
000004
0000GO

000004

NOP

ADD
1518
BEQ

#4,(SP)
a(SP)
158

108

ADD

8L, (SR

- —uba®p

172 052132

(RO ¢06.00

4&-APR-B1 01:75:59 PAGE 29-3

:MOVE (SP) TO ERROR (ALL
:WAS ERROR CALLED??
INO!!

:MOVE TO ERROR RETURN

“JRMOBO RMOS5./3/2 FCTNL 'ST 3

SEER STATUS (HECK SUBROUTINE

229 052624
230 0526430

16276
000207

232 052432

300000

23!

000004

MACKO v04.00

&=-APR-81 (1:75:59 PAGE 29-4

'5%:
16$:

SuB
RTS

#4,(SP)
PC

;MOVE (SP) TO NO ERROR RETURN
JRETURN

300%:

.WORD

JERROR FLAGS

s
—_—

OOV

N =D ed wd D =

N = OV NN
- NP

JSMOB] WMGS/372 FOTINL

MACRO v04.00

4-APR=81

LSBTTL

01:15:59 PAGE

SEQ 0223

CONTROLLER C(LEAR SUBROUT INE

;THIS SUBROUTINE

CLEARS THE MASSBUS (ONTROLLER, MASSBUS ADAPTERS,

JAND DRIVES, THEN SELECTS THE DRIVE.

ECALL:

052434
052434
052436
052440
052644
052450
052456
052464
052470
052476
052502
052506

21 052510
052512
052520
052526
052534
052534
052540
052544
052546
26 052550
a¥1,¥1a81,
V)
VNN

TST 3

010045
010146
013746
013746

012737
012737
013700
012760
013701
111160

000412

022626
062766
112776

CNTCLR:

000004
000096
052510
000300
001276
0C0040
001466
000010

000004

700007

162766

000002

012637
012637
012601

000006
000004

012600
000207

JSR
BR
NOP
ERROR
m

MOV

MOV
MOV

000004
000006

MOV

000010

000610
000010
000610

MoV
MOV
MOvB
BR
10%:

20%:

mP
ADD
MOvVB
SuB

MOV
MOV
MOV
MOV
RTS

PC,CNTCLR
MM

RETURN HERE
RETURN HERE

[F
[F

NO ERROR fOUND
ANY ERROR FOUND

SUB DEFINES ERROR NUMBFR

RO,=~(SP)

::PUSH RO ON STA(K

ERRVEC,=(SP)
ERRVE(C+2,=(SP)

:2PUSH ERRVEC ON STA(K

R1,=(SP)

#4108 ,ERRVE(
#PR6,ERRVE(+?

$BASE ,RO
#CLR,RMCS2
(RO)

;:PUSH R1

ON STAC(K

;:PUSH ERRVE(C+2 ON STACK

;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS

R
TSTQUE

;CLEAR MASSBUS
;GET DEVICE UNDER TEST
JSELECT DEVICE

(SP)+,(SP)+
#4,10(SP)
#7,810(SP)

;ADJUST STA(K
;MOVE SP TO USER'S ERROR (ALl
JWRITE THE ERROR NUMBER

(R1) ,RMCS2(R0)
208

#2,10(SP)

(SP)+ ,ERRVE(+2

(SP)+ ERRVE(

(SP)+ R
(SPY+ RO
PC

;ADJUST SP TO RETURN TO ERROR

;:POP STACK INTO ERRVE(+?

;;POP STACK INTO ERRVEC(

;sPOP STACK INTO R1
;;POP STACK INTO RO

MACRO v04.00
~IRMOBO RMOS/3/2 s2TNL ST 3
FCNTROL.ER ZTLEAR STATUS (HE(K SUBROUT]NE

D oad

—d

o
e
d

JO NS WY

.SBTTL

CONTROLLER CLEAR STATUS (HEfK SUBROJTINE

;THIS SUBROUTINE VERIFIES THAT THE
;STATUS STORED IN THE GET BUFFER.,

SUBSYSTEM IS INITIALIZED BASED ON
THIS SUBROUTINE SHOULD ONLY BE

JUSED FOLLOWING A CONTROLLER CLEAR OPERATION, I.t., WRITING A 1 [N BIT
;S OF RM(CS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT (ONDiTION.
;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
;FOLLOWING STATUS BITS ARE NOT (HECKED:

OO NO NS WA= OO®@

—

4-APR-81 (01:15:59 PAGE

[N PARTICULAR,

THE

ATA,ERR,PIP ,MOL ,WRL ,LBT ,PGM,VV,0M, UNS,SK],DV(

JSR
BR
NOP
ERROR
JSR
279

PC,CLRSTS
7

PC,3(SP)+

RETURN HERE [F NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(KS
RETURN HERE

NO MORE

ERRORS

CLRSTS:

052552

052552
052556
052562

062716

052566
052574
052602
052610
052616
052620
052624
052632
052636
052640
052644

013737
042737
012737
023737
001413
062716
112776

105076
162716

001336
100000

004200
001140

162716

000004
000126
000002

162716

000010

052646
052652
052660
052662
052666
052674
052700
052702
052706

005037
013737
001413
062716

001140
001342

052710
052716
052720
052722
052726
95 052730
57 052734

013737
010146
005046
013701

004736
000240

112776
162716

004736
162716
000240

111116

052716

012637

;CLEAR USER'S ERROR CALL
ADD
CLPB

000004
000000
000004

000004
000127
000002

SuB

001142
001142
001140
001142

;REPORT ERROR

A ¥

P
BFQ

000000

001142

00146¢

000109

001140

‘MOVE SP BACK TC NO ERROR

RMCS11,88BDDAT
:VERIFY RMCS1
#SC,$BDDAT
S IGNORE SPECIAL CONDITION
#DVA 'RDY,SGDDAT :EXPECT DVA & RDY
SGDDAT,S8DDAT
5%

¥4, (SP)
#126,a(SP)
#2,(5P)

332

#10, (sP)

PC.a(SP)+

- COMPARE EXPECTED, RECEIVED
‘BRANCH IF EQUAL

*MOVE SP TO USER'S ERROR CALL
‘WITE ERROR NUMBER IN CA.L
‘MOVE SP TO RETURN FOR ERROR
"HEPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR

;REPORT ERROR IF RMBA NOT RESET
5%:
CLR
$GDDAT
;VERIFY RMBA IS ZERO

MOV

| , $S8DDAT
RMBA

MOVB

#127.3(SP)

)
ADD

000000

SuB

JSR

5£

001142

¥4, (SP)

:MOVE SP TO ERROR
‘CLEAR ERROR NUMBER

IF RMCS1 NOT INITIALIZED

ADD
MOVE
SUB
JSR

000010

001346

MOV
BIC
MOV

¥4, (SP)
a($P)

;REPORT

I ¥

7
#4, (SP)

:BRANCH IF ZERO
*MOVE SP TO USER'S ERROR CAL.

#2,(SP)

'MOVE SP TO RETURN FOR ERROR

#10, (SP)

‘MOVE SP BACK TO NO ERROR

PC.a(SP)+

*WITE ERROR NUMBER IN CALL

‘REPORT ERROR VIA USER

ERROR IF RMCS2 NOT INITIALIZED

MOV
MOV
CLR

RMCS2],$8DDAT
R1,=(SP)

:VERIFY RMCS2
::PUSH R1 ON STA(K
‘R1 = ADDRESS OF

MOV

TSTQUE,R1
(R1),(SP)
#IR, (SP)

(SP3+,$GDDAT

MOV
MOVB
BIS

-(SP)

“EXPECT IR & UNIT NUMBER

TEST GUE

MACRO v04.00
TST 3
CNTROLLER CLEAR STATUS (HECK SUBROUT INE
JRMOBC HMOS/2/2 FCTINL
58 052740
59 052742
60 052750
61 052752
62 052756
63 052764
64 052770
5 05¢772
66 052776
67
68 053000
o9 053004
70 053012
71 053020
72 053022
73 053026
74
75
76
7?7

053034

000010

205037
013737
042737
001413
062716

001140
051352
040000

112776
162716

000004
000131
000202

79 053050

013737
042737
012737
023737
001413
062716
112776

001362
000046
000010
001140

001142
001142
001140
001142

000004
000133
000002

000000

162716

004736

16276
000240

000010

053130
053134
052142
053144
053150
053156
053162
053164
53170

005037
013737
001412
062716

001140
001404

162716
000240

000010

053172

013737
042737
012737
023737
001413
062716

001376

053200

053206
053214
053222
053224
053230
053236
053242
053244
053250

053252
053256

112776
162716

004736

000004
000135
000002

140000

011777
001140

162716

000004
000136
000002

162716

000010

005037
013737

001140
001400

112776

004736

000240

*BRANCH IF EQUAL
*MOVE SP TO USER'S ERROR (ALL

SUB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

C00000

$GDDAT,$BDDAT

;.POP STACK INTO Rl
:COMPARE EXPECTED © RECEIVED

(SP)

:REPORT ERROR IF

001142
001162

(SP)+ R

9
a4,

MOVB

9% :

2
31-°

BEQ
ADD

JSR
582

000010

Fan2o3RIIRARSSE

h —D
b —d
d =d ad e
ed
b
D

162716
000240

(MP

000000

162716
000240

053056
053064
053072
053100
053102
85 053106
053114
053120
053122
053126

004736

000004
000130
000002

MOV

001142

004736

80
81
82
83

112776
162716

(01140

053040
053042
C53046

’8

—d

012601
023737
001413
062716

£
&-APR-B1 01:'5:59 PAGE

#130.a(sP)
PC.a(SP)+
#10, (SP)
RMER1

‘wITE ERROR NUMBER IN CALL
*REPORT ERROR V]A USER
‘MOYE SP BACK TO NO ERROR

NOT RESET- JGNOKE UNS

CLR
MOV
BIC
BEQ
ADD

$GDDAT
RMER11, $BDDAT
#UNS , SBDDAT
138
25, (SP)

:VERIFY PMER1

suB
JSR
agg

#2,(SP)
PC.RISP)+
#10, (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

MOVB

#131,a(sP)

: IGNORE UNSAFE
‘BRANCH IF ZERO

“MOVE SP TO USER'S ERROR CALL

‘WITE ERROR NUMBER [N CALL

;REPORT ERROR IF RMMR1 NOT INITIALIZED=-IGNORE WC,LS,LST
13%:
MOV
RMMR11.$8DDAT
;VERIFY RMMR
MIC'LSILST, SBDDAT
BIC
:IGNORE WORD (LOCK, S(CT,

MOV

#MID . SGDDAT

;EXPECT WRITE DATA BIT

BEQ

17%

SBRANCH IF 0

cMP

$GDDAT,SBDDAT

ADD

#6,

SUs

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

SUB

#10,(SP)

JMOVE SP BACK TO NO ERROR

MovB
JSR

NOP

(SP)

:COMPARE EXPECTED AND RECEIVED

#153.a(sP)
PC,a(SP)+

*MOVE SP TO USER'S ERROR (ALL

SWITE ERROR NUMBER IN CALL
;REPORT ERROR VIA USER

;REPORT AN ERROR IF RMEC2 IS NOT RESET

001142

17%:

000000

(LR

$GDDAT

JEXPECT Z2EROS

BEO
ADD

19¢
#6, (SP)

;MOVE SP TG USER'S ERRUR CALL

SuB

#2,(SP)

MOV

movR
JSR
SUB

NOP

001142
001142

001140

001142

000000

#1%5.3(sP)
PC,a(SP)+
#10, (SP)

:VERIFY RMEC2-0
JWITE ERROR NUMBER

IN CALL

;MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER

JMOVE SF BACK TO NO ERROR

;REPORT ERROR IF RMMRZ NOT INITIAL]ZED-IGNORE RQA,RGB

19%.

MOV
8IC

MOV

RMMR2] ,$BDDAT
:VERIFY RMMR?
#RQA'ROB, $8DDAT
#TSTI1777,$GDDAT
JEXPECT TEST BIT ON

MOVB

#136,a(SP)

CMP
BFQ
ADD

SuB
JSR
SUB

NOP

001142

RMEC21,$BDDAT

$GDDAT, $BDDAT
218

24,

(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

;MOVE SP TO USER'S ERROR CALL
JWITE ERROR NUMBER IN (ALL
;JMOVE SP TO RETURN FOR ERROR

JREPORT ERROR VIA USER

;MOVE SP BACK TO NO ERROR

;REPORT ERROR [F RMERZ2 NOT RESET-IGNORE SKI,DV(
JEXPECT ALL ZEROS
$GDDAT
CLR
21%:

MOv

RMER21,$BDDAT

;VERIFY RMER?Z

TRK

JRMOBO RMOS/3/2 FCINL TST 3

MACRO v04.00

W WA FINOPOUNOPOUNOPUR) — b

s a2

nN—=O 00 NO NS WN SO0V~

"CNTROLLER CLEAR STATUS CHECK SUBROUT INE

053264
053272
053274
053300
053306
053312
053314
053320

Db ed

053322
053330
053336
053344
0%335¢2
053354
053360
053366
053372
133 053374
053400
135 053402
053406
137 053412
138 053414
139 053420
140 053422
141 053426
‘4 053430

042737
001413

040209

162716

000004
000174
000002

162716

€c00010

013737
042737

001350

062716
112776

004736

000240

012737

023737
001413
062716
112776
162716

004736
162716
000240
062716
105776

001403
062716
00402
162716

000240
000207

77177

8I(
BEQ

ADD
mMovB

000000

SuB
JSR

;REPCRT

215%:

BIC

MOVB

SUB
JSR
Su8

2 2%:

NOP
ADD
1ST8R

BEQ

000004
2 3%:
2
[4 (s:

~£Q 0226

#SK]!DVC,$BDDAT

; IGNORE

¥4

‘MOVE

2158

(SP)

#174,8(SP)
#2, (5P,
PC.a(SP)+

#10, (5P)

DEVICE ERRORS

*BRANCH If OTHER BITS 0

SP TO USER'S ERROR CALL

*WITE ERROR NUMBER [N CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERKOR VIA USER

“MOVE SP BACK TO NO ERROR

ERROR IF RMDS NOT INITIALIZED
RMDS]1,$BDDAT
;TEST DRIVE STATUS REGISTER

MOV

{MP
BEQ
ADD

000010

000004

sud
NGP

MOV

000004
000134
0000C2

4-APR-81 01:75:59 PAGE 31-2

001142

000600
001140

000004
000000

ADD
BR

SuB

NOP
RTS

#~C<DRY!DPR>, $BDDAT
#DPR.DRY ,$SGDDAT ;EXPECTED DRIVE

STATUS

$GDDAT,$BDDAT
22%

;COMPARE EXPECTED & RECEIVED
‘BRANCH IF EQUAL

#15%4.3(5P)

‘WRITE ERPOR NUMBER

#4,

(SP)

a2, (5P)

PC.R(SP)+

#10, (SP)

"MOVE

SP TO USER'S ERROR (ALL

‘MOVE

SP TO RETURN FOR ERROR

"REPORT ERROR TO USER

‘MOVE SP BACK TO NO ERROR

#4,(SP)

;MOVE

gzi(sp>

“YES - MOVE

a(SP)
238

¥4, (SP)
PC

SP TO ERROR CALL

*WAS AN ERROE DETECTED??
INO?.
:MOVE

TO ERROR RETURN

TG NO ERROR RETURN

“IRMOBC RMOS./ 372 FiTNL "ST 3

PACK ACKNOWLEDGE

MAZR) yO6.00

= OO0 NN
NN -2

STATUS CHECK

(HECKS THE

RESULTS OF

A PACK A(KNOWLEDGE

;COMMAND USING THE STATUS STORED IN THE GET BUFFER,
JREPORTED

;:CALL:

eD)
;

s s

NN
N = OO0

PACK ACKNOWLEDGE

;THIS SUBROUTINE

JSR

NOP

ERROR
SR
279

053432
062716

000004
000000
000004

V53446
053454
053456
053464
053472
053500

032737
001024
013737
052737
013737
062716

000100

001350

001350
000100
001350
000004
000155
000002

001140
001140
007142

05351<

053516
053520
0535264
053526

B B

105076
162716

112776
162716

004736

162716
000240

032737
001024
013737
052737
013737
062716

PC.ACKSTS

ERRORS ARE

273

RETURN HERE

PC.Q(SP)+

ERROR NUMBER DEF IMNED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(KS

RETURN HERE

016000

162716

000010

000000

001350

001140
001140
001142

#155,8(SP)
#2,(SP)

SuB

#10,(SP)

032737

040000

001352

013737

001352

001142

MOV
BIS
MOV

RMDS! ,$GDDAT
, SGDDAT
#MOL
RMDSI, $BDDAT

MOVB
SuB
JSR
5uB

#41,3(SP)
#2,(5P)

ADD

2%:

001352

NOP

PC,a(SP)+

:REPORT AN ERROR IF 'MOL'" 1S 0
BIT
#MOL ,RMDS |
8NE
2%

000000

060007

k4, (SP)

MOVR
SUB
JSR

032737
001570

001424

ADD

1¢:

112776
162716

004736

REPORT AN ERROR
IF ‘W' IS 0
BIT
#VV ,RMDS]
1%
BNE
RMDSI, $GDDAT
MOV
#VV ,SGDDAT
BIS
RMDSI,$BDDAT
MOV

000010

001350
010000
001350
000004
000041
000002

000240

053616
56 053624
57 053626

US ER'S ERROR CALL.

:CLEAR USER'S [RROR CALL
#4, (SP)
ADD
D(SP)
C.RB
#4,(SP)
SUB

053432
053436
053442

053504

THE USER VIA THE

NO ERROR

TO REFORT

AN ERROR

NO MORE

ERRORS

A(KSTS:

2 = Dt
NN NN NN N WNWNAN U N PONMONVUNINONIRAY)

01:15:59 PAGE

STATUS (HE(K
.SBTTL

8 H B

SN — -=2OV NN
WAL 2O 00 ~NO WV

4-APR-B1

NOP

#4,(SP)

PC,a(SP)+
#10,(SP)

;MOVE SP TO ERROR (ALL
;CLEAR LOW ORDER BYTE
JMOVE SP BA(K
;1S VOLUME VALID SET??
JYES!'!
JEXPECTED STATUS

JRECEIVED STATUS

;MOVE SP TO ERROR C(ALL
JWRITE NUMBER IN ERROR
;REPORT

THE

ERROR

:MOVE SP BACK TO BRANCH

;IS MOL SET??
JYES!!
JEXPECTED STATUS

JRECEIVED STATUS
;JMOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR IN CALL
;MOVE SP TG RETURN FOR ERROR
JREPORT TH ERROR
JMOVE SP TO BRANCH

;SEE IF "UNS'','OPI','RMR'',"'ILR"’, OR "ILF'' IS SET
#UNS .OP] .RMR_ILR.ILF
,RMER1]
BIT
7%
8EQ
;REPORT AN ERROR IF "WUNS'' IS SET

BIT

BEQ
MoV

#UNS ,RMERT]

33
RMER1T1,$BDDAT

CALL

JMOVE SP TO RETURN FOR ERROR

;USS UNS SET??
;NO..

JRECEIVED STATUS

JRMOBS AMOS/3/72 FCINL T1ST 3
CALK ACKNOWLEDGE STATUS (HECK

58 0533&
§9 053642
60 053650

013737
062737
062716

001352
(40000
000004

62 053662
63 053666
66 053670

162716
004736
162716

000502

61 053656

65 053674
?9 053676
68

MACRD v04.00

001140
001140

112776 000062 000000

000240

3%,

RMERT[,$GDDAT
#UNS,SGDDAT
26, (SP)

EXPECTED STATUS

SUB
JSR
SuB

#2,(SP)
PC.a(SP)+
#10, (SP)

'MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

NOP

;REPORT ANY OPI

ERROR

032737
001424

020000

001352

72 053714

013737

001352

001142

042737

001352

020000

001140

BIC

#0P],$GDDAT

112776

000043

000000

MO8

#43,3(SP)

73 053722

76 053730

062716

76 053742
77 C53746
78 053750

162716
004736
162716

75 053734
79 053754

g? 053756
82
83 053756

000240

000004

000002

001352

001352
001352
000004
000004
000044
000002

001142
001140
001140

92 054030

162716

(00010

gg 054036
9
97 054036
08 054044
99 054046
100 054054
101 054062
102 054070
103 054074
104 054,02
105 054106
106 054110
107 054114
108 054116
109

110
111 054116
112 054124

113 054126
114 054134

000240

001352

013737
013737

001352
001352

001142
007140

062716
112776
162716
004736
162716

000004
000045
000002

000000

000240

032737
001424

013737
013737

0G*140

€00010

000001

001352

001352
001352

001142
001140

*WRITE NUMBER OF ERROR IN (ALl

‘NO..

RMER11.$GDDAT

:EXPECTED STATUS

RMER1],$8DDAT
24,

(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

;WAS OP] SET 27
:RECEIVED STATUS
;MOVE SP TO ERROR (ALL

*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

BEQ
MOV
MOV
BIC
ADD
MOVB
SUB

13
RMER11,$BDDAT
RMER11.$GDDAT
#RMR , $GDDAT
#4, (SP)
#44,3(SP)
#2,(SP)

:WAS RMR SET??
INOY.
-RECEIVED STATUS
:EXPECTED STATUS
A
;MOVE SP TO ERROR CALL
SWRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR

SUB

#10,(SP)

*MOVE SP TO NO ERROR RETURN

NOP

:REPORT ANY
BIT
BEQ
MOV
MOV
8IC
ADD
MOVB
SUR
JSR
SUB
6%

:MOVE SP TO ERROR (ALL

#OP1 ,RMER1]
43

:REPORT ANY RMR ERROR
BIT
#RMR , RMER1 ]

5¢:

000002

NOP

JSR

000002

042737

SUB
JSR
SuB

000000

032737
001424

ADD

4$:

000004

93 054034

MOV

000010

032737
001424
013737
013737
042737
062716
112776
162716
00436

MOV

001140

84 053764
85 053766
86 053774
87 056002
88 054010
89 054014
90 054022

91 054026

BIT
BEQ

#42,3(SP)

o9 053676
70 053704
71 053706

£EQ 0228

MOV
BIC
ADD

MOVR

LO0V'0

4-APR=81 (1:'5:59 PAGE 32-!

NOP

:REPORT ANY

BIT
BEQ

MOV
MOV

PC.a(SP)+

*REPORT THE ERROR VIA USER

ILR ERROR
#ILR.RMER1]

:WAS ILR SET??

RMER1],$8DDAT
RMFR1],$GDDAT

:RECEIVED STATUS
;EXPECTED STATUS

#ILR,$GDDAT

#4, (SP)
#45,3(SP)
#2, (SP)
PC.a(SP)+
#10, (SP)

ILF ERROR

#ILF,RMER1]
7%

RMER1I,$BDDAT
RMER11.$GDDAT

INO'!

:MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
‘MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

:WAS ILF
INO.
.

SET??

:RECEIVED STATUS
-EXPECTED STATUS

JAMOBU RMOS/372 FOINL

“A v

ACKNOWLEDCE

054142
N54150
054154
054162
119 054166
120 054170
NS4174
054176
115

MACRO V04.00

000001
(00004
000046
000002

001140

8IC

#1LF ,SGDDAT

000000

MOvVB

866 ,8(SP)

2
32-2

560 0029

STATUS (ME(K

042737
062716
112776
162716

004736
162716
000240

062716

105776

001403
062716
000402
162716

000240
000207

SUB

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

SUB

#10,(SP)

NOP

PC,a3(SP)

;AUGMENT RETURN ADDRESS
ns, (SP)
ADD

1S1R

000C04
000004

sJMOVE SP TO ERROR (ALL

JSR

7%:

000004
000000

#s, (SP)

ADD

000010

123

124
129 054176
126 054202
127 0354206
1¢8 054210
129 054214
13C 054274
131 0542¢c
‘32 054224

1
4-APR-81 (1:15:59 PAGE

TST 3

8%:
9% :

a(sSP)

BEQ
ADD

8$
#4, (SP)

SUR

846, (SP)

B8R

NOP
RTS

JWRITE

NUMBER OF

:REPORT

THE

ERROR

IN (AL

ERROR VIA USER

;MOVE SP 10 NO ERROR RE TURN

ERROR WAS FOUND
;MOVE

TO ERROR (ALL

;WAS ERROR FOUND??
JNO!.

JYES = MOVE

TO ERROR RETURN

;MOVE SP TO NO FRROR RETURN

4&-APR-B1

J
2
(01:15:59 PAGE 33

.SBTTL

:THIS SUBROUTINE

STATUS (HECK SUBROUTINE

CHECKS THE RESULTS OF

A RECALIBRATE OPERATION

;CALL:

11¢

JSR
B8R
NOP
ERROR
JSR
27?2

b
b d
S e

-—

RECAL IBRATE

JUSING THE STATLS STGRED IN THE GET BUFFER.

b ed

COWNO
N LW 2O 000 NN
WA

MACRO v04.00
rIRMOBO RMOS/ 370 SrINL TST 3
~E (K SUBROUTINE
RECAL
ATE STATUS
|

PC,RCLSTS
2?
PC,a(SP)+

RCLSTS:

0542¢6

054226
054232
(54236

062716

054242
054250

032737
C01553

105076

162716

;CLEAR USER'S ERROR NUMBER
ADD
(LRB
SuB

000004
000000
0C0004

22
022011

001352

;SEE

#4,(SP)
a(SP)
#6, (SP)

;IPARI.

054270
054272
054300

054306
054314
054320
054326
054332
054334
054340
054342
054342
054350
054352
054360
054366
054374
054400
52 054406
93 054412
056414
054420
056422

000010

001352

000010

001400

001140
001140
001142

112776
162716

001352
000010
001352
000004
000050
000002

162716

000010

032737
001430
032737
001024
013737
042737

013737
062716

BIT
BEQ

H#OP1.PAR.ILF.IAE ,RMERT]
4%
JNONE ARE SET - GO TO NEXT (HECK

004736
000240

03273%7

001424
013737
042737

013737
062716

001352

001140
001140
001142

000001

112776
162716

001352
000004
000071
000002

162716

00000

004736
000240

BIC
MOV
ADD
MOVB
SUB
JSR
Sgg
1%:

000001

00000

CONTROL BUS PARITY ERROR,

1 AND ‘DPE'" - 0
BIT
APAR ,RMER11
BEQ
1$
BIT
#DPE ,RMERZ]
1$
BNE
MOV RMER1],$GDDAT

0000vV0

;CLEAR USER'S ERROR CALL
JMOVE SP BACK TO BRANCH

IF “PAR'' OR "'ILF’' OR "OPI'* OR ''IAE'" IS SET

;REPORT ANY MASSBUS

054252
054260
054262

: CALL SUBROUT INE
RETURN HERE If NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(CKS
RETURN HERE ]F NO MORE ERRORS

BEQ
MOV
BIC
MOV
ADD
MOVB

SuB
JSR
Sgg

JWAS "PAR'" SET??
;NO.!

JWAS 'DPE'" SET??

JYES - NOT A REGISTER ERROR
JEXPECTED STATUS

#PAR, $GDDAT
RMER1],$8DDAT
;RECEIVED STATUS
#4,(SP) .MOVE SP TO USER'S ERROR (ALL
;WRITE ERRGR NUMBER IN (ALL
#50,3(SP)
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR
PC,a(SP)+
;MOVE SP BACK TO BRANCH
110, (SP)

SREFORT ANY “'Ii F*' ERROR

BIT

I.E..

#ILF ,RMER1]

2%
RMER1],$GDDAT
#RLF ,3GDDAT
RMER1],$RDDAT
¥4, (SP)
#71,a(SP)

#2,(SP)
PC,a(SP)«
410, (SP)

JWAS “'ILF'* SET??

sNO!!
;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN (CALL

JMOVE SP TO RETURN FOR ERRCR
JREPQRT ERROR V]A USER
;MOVE SP BA(K TG BRAN(H

JRMOBC WMGS/ %72 s(TNL "o 2

MACRD 4046.00

RECALIBRATE S5TATUS (HE{K SUBROUTINE
58

032737
007433
013737
042737
013737
062716
112776
032737
001403
112776

72 054510
73 (054512

004736
162716

74 054516

;2 054520
77

162716

000240

020000

001352

001352
020000
001352

001140
001140
001142

000004
000072
010000
000073
000002

009000
001350
000000

31%:

032737

002000

001352

80 054530
81 054536
82 054544
83 54552

013737
042737
013737
06271€

001352
002000
001352
000004

001140
001140
001142

162716
C04736
162716

C00002

84 054556
85 054564
86 054570
87 054572

88 054576
gg 054600

91
92 054600
gz 054606

001424

000240

032737
001517

001400
010000

001140
001140

104 054642
105 054646
106 054654

062716
112776
032737

000004
000074
000100

'12 054704
113 054706
14

001403

112776
162716
004736
162716
000240

(00075
000002

BIT

#1AE ,RMER1]

;1S "'IAE'' SET??

MOV
8I1C
MOV
ADD

RMER1],$GDDAT
, $GDDAT
#1AE
RMER1]1,$BDDAT
#4,(SP)

;EXPECTED STATUS

sus
JSR
suB

#2,(SP)
PC,a(SP)+
#10,(SP)

NOP

#70.a(SP)

:NO!!

;RECEIVED STATUS
;sMOVE SP TO ERROR (ALL

JWRITE ERROR NUMBER IN USFR'S CALL
;sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR
sJMOVE SP BACK TO NO ERROR RETURN

;REPORT ANY “‘IVC'' ERROR AS
:
JVCO WITH v = 0
.ERRONEOUS IV( ERROR
BIT
#1VC,RMERZI
BEQ
63
MOV
RMER2] ,$GDDAT
BIC
#1V(C, SGDDAT

001400

107 054662

;NO = CHANGE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VJA USER
;MOVE SP BA(CK TO BRANCH

;SEE IF ''SKI''
OR ''IVC'" OR ‘DVC'’ 1S SET
BIT
#SK1!1VC!DVC,RMER2]
BEQ
3s
;NONE OF THE BITS ARE SET

010000

001400

#73,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

001400

032737
001433
013737
042737

013737

NOP

MOVB

4%:

050200

MovR
SuB
JSR
SuB

BEQ

000010

96
97
98
99 054610
100 054616
101 054620
102 054626

108 054664
109 054672
110 054676
111 056700

SEQ 02%1

. OP] DUE TO ‘MOL""
O
. OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET
JWAS OP] SET:?
#OPI ,RMER1]
8Ir
;NO!!
318
BEQ
EXPECTED STATUS
RMER11,8GDDAT
MOV
#0P] ,$GDDAT
BIC
;RECEIVED STATUS
RMER11,$BDDAT
MOV
ADD
#4, (SP)
JMOVE SP TO USER'S ERROR (ALL
mMovB
472,3(SP)
JWRITE ERROR NUMBER IN USER'S CALL
;WAS 'MOL'' = 07?
AMOL ,RMDS |
BIT
JYES!!
38
BEQ

;REPCRT AN ERROR IF ''IAE'’ IS SET

112776 000070 000000

103 054634

3%:

000010

78 054520

79 054526

;REPORT ANY 'OP1'' ERROR AS

59
¢0
61 054422
62 054430
63 054432
64 0564440
65 054446
66 054454
67 054460
68 054466
09 054474
70 0564476
71 054504

4-APR-8" (7:'5.59 PAGE 33-1

001142

MOV

ADD
MOvVB
BIT

000000
001350
000000

BEQ

5%:

000010
6%:

MOvB
SUB
JSR
SUB
NOP

RMERZ] ,$8DDAT

JWAS IVC SET??
JNOL!
;EXPECTED STATUS

;RECEIVED STATUS

#4, (SP)
#74,3(SP)
#VV RMDS |

;MOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN CALL
JWAS Vv = 0??

#75,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;NG = CHANGE ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO BRAN(CH

JYES!!

3 PAG% 3%-2

MACRO v04.00
~IRMOBO RMOS/3/2 FCINL TST 3
SUBROUTINE
RECAL [BRATE STATUS (MECK

013737
042737
013747

001140
001140
001142

162716

001400
040000
001400
000004
000076
000002

102716

C00010

0627 6
112776

004736
000240

032737
001424
013737
042737
013737
062716
112776
162716

004736
162716
020240

013746

042716
0c2726
001002
00013/

7%:

000200

001400

001400
000200
0C1400
000004
000077
000002

001140
001140
001142

R+

A5k,,

[MER?

R21

;zgs SKi

BGDDAT

-EXPECTED STATUS

.$BDDAT

:RECEIVED STATUS

JDDAT

#76,3(5P)
#2,(SP)
PC.R(SP)e

#10, (SP)

BIC
MoV

ADD
MOVB

Su8
JSR
sus
NOP

SET??

*MOVE SP TO USER'S ERROR (AL
‘WRITE ERROR NUMBER
‘MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

‘MOVE SP 10 BRANCH

#DVC ,RMER2]
8s
RMER2],$GDDAT

:WAS 'DVC'’ SET??
JNO!!
-EXPECTED STATUS

RMERS],$BDDAT

:RECEIVED STATUS

#DVC, SGODAT

#4,

(SP)

#77.3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO USER'S ERROR CALL

SWRITE ERROR NUMBER

‘MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USEP
‘MOVE SP TO USER'S BRANCH

;SEE IF "PIP'" AND 'OM* ARE 0, AND '‘ATA'',"MOL’’ AND ‘'VV'’ ARE 1
RMDS] ,=(SP)
:PUT RMDS ON STA(CK
MOV

001350
047676
110100

055500

85%:

001352

013737
052737
013737
062716

001140
001140
001142

112776
162716

001350
010000
001350
000004
000100
000002

162716

000010

NO~N

MOV

8%:

020000

000240

MOVR
SuB
JSR
SuB
NOP

BIT
BEQ

000010

001350

004736

Bl
BE
MOV
BIC
MOV

JREPORT ANY 'Dv('* ERROR

000000

010000

001024

ADD

000000

032737
001030
032737

&
oo
NS ONO

383

b —
d
b
md
D wod
b
d cud
b

-l
b —

OV
S NINND = =

olelolelelélelelole Q

NOOr

VAN VNI YAl
(LI IV IV IV RV AV IV IV V) W

055079
055076
055100

001400

\NE;A

055052
055056
055062
055064
055070

040000

N =Y
NO~N

055046

VAN

N AN NN

054766
054774
054776
055004
G55012
055020
055024
055032
055036
052040
055044
055046

OO0

—
—

~ oo

) — —-—&-—Q—D—A—A—A——)—J_J—ad_a—a_l—l—l_b—l_l—h—l._..s—d_a—d._A_)—l—-‘-i—l—l_d-.l

VB
WA 2OV NO VNS WOV NC N WOV
NN SWA
= o Voo~ ggrgyrom>0wnunnvununnunmunb:\b:\b;\bt\bxnuuuugf

054766

032737

001424

j=lela

054706
054714
054716
054724
054732
054740
054744
054752
054756
054760
054764

sREPORT

<0 02%2

010000

001400

85%
13%

BIT
BNE
BIT
BNE

ggOL.RMDSl

;gé?‘MOL DROP??

#OP1 ,RMER11

*WAS OP] ERROR REPORTED??

BIS

RMDSI,$GDDAT
AMOL
, $GDDAT

JEXPECTED STATUS

MOV

MoV
ADD
MOVR
SuB

9%:

001350

#~C<PIP!MOL!VV!OM!ATA>,
(SP)
HATA!MOL !VV,(SP)+

;REPORT AN ERROR IF MOL = O AND OP] = O, I.E , MEDIUM WENT OFF
;LINE AFTER RECALIBRATE WAS INITIATED

000000

000100

8IC
cMP
BNE
JMP

sREPORT

JSR
su8
NOP

‘YES - DON'T REPORT MOL 0

RMDSI,$BDDAT
JRECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#100,a(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

;WRITE ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
;MOVE SP BA(K TO USER'S BRAN(CH

AN ERROR IF ''w'' = 0 AND “'IV('' = 0

BIT
BNE

BIT

#VV ,RMDS]
10%
#1VC,RMERZ!

;DID "' DROP??
:NO!.
;WAS THERE A [v(C ERROR??

MACRO v04.00
rZRMOB0 RMOS/3/2 FCINL TST 3
SUBROUTINE
(MECK
STATUS
RECAL [BRATE
055176
055200
055206
055214
176 055222
177 055296
178 055234
179 055240
180 055242
181 055246
182 055250
172
173
174
175

133
184

185 055250

186 055256

87 055260
188 055266

189 055274

190 055302
191 055306
192 055314

193 055320
194 055322
19
055320
196

001024
013737
013737
052737
062716
162716

(01350
001350
000100
000004
000101
000002

162716

000010

112776

004736
000240

032737
001024
013737
052737
013737
062776

100000

001350
100000
001350

001140
001140
001142

112776
162716

162716

000010

000240

000000

108

MOV
MOV

RMDS I ,$GDDAT
RMDS] ,$BDDAT

ADD
MOVB

#4, (SP)
#101,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

BIS

00$:

000024
000102
000002

004736

BNE

001140
001142
001740

001350

&~APR-81 01:15:59 PAGE 33-3

suB
JSR
SuB
NOP

#VV,SGDDAT

;REPORT AN ERROR IF ATA IS NOT
q?;A,RFDSI
BIT
BNE
RMDSI,$GDDAT
MOV
#ATA,$GDDAT
BIS
RMDS] ,$8DDAT
MOV
#6,(SP)
ADD
#102,9(SP)
MOvVB
#2,(SP)
SUB
JSR
SUB
NOP

PC,a(SP)+

#10, (SP)

JYES

SEQ 0733
- DONT REPORT

JEXPECTED STATUS
JRECEIVED STATUS

vv-0

:MOVE SP TO USER'S ERROR C(ALL
;WRITE ERROR NUMBER IN (ALL
:MOVE SP TO RETURN FOR ERROR

:MOVE

SP BACK TO USER'S BRAN(H

SET
;Ueg‘eTA SET DURING RECALIBRATE??
sy

JEXPECTED STATUS
JRECEIVED STATUS
JMOVE SP TO USER'S ERRCR CALL
;WRITE ERROR NUMBER IN (ALL
;MOVE

SP TO USER'S BRANCH

197 055330

118:

199

JREPORT AN ERROR IF ''OM'‘ IS NOT ZERO BECAUSE RECALIBRATE SHOULD

AU AUNINUF NNV N NL NN NN

NN NN N NN
B0 BB

OO
KON
OOOO

= O OO NN
IS SN

VATV

lelelelololalelelalalels)

POPOPONIIONINON)
—2 =8 —8 b od =0 —2 —3 s =000 [e]olelalele]
L Ny —
NO NS NN = SO0 N
— OOV~ AN

LU NN NN NINLTND

200

VAN
T AN
WA

198

255472
228 055476

032737
001424
013737
042737
013737
062716
112776
162716
004736

162716
000240

000001

001350

001350
000001
001350
000004
000103
000002

001140
001140
001142

;ALWAYS CLEAR OFFSET MODE
#0M_RMDSI
8IT
12%
BEQ
MOV
RMDSI ,$GDDAT
#0OM, $GDDAT
BIC
MOV
ADD
MovB
SUB
JSR

000000

000010
12%:

SuB
NOP

JWAS "OM'" RESET??
JYES!!
JEXPECTED STATUS

RMDSI ,$BDDAT
#4, (SP)
#103,3(SP)

JRECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
;WRITE ERRCR NUMBER

PC,3(SP)+
#10, (SP)

;JREPORT ERROR VIA USER
JMOVE SP TO USER'S BRANCH

#2,(SP)

;MOVE SP TG RETURN FOR ERROR

:REPORT AN ERROR [F "'PIP'" IS STIL ON, I.E.. DRIVE NOT ON
032737
001430
032737

020000

001350

040000

€01400

013737
042737
013737
062716

001350

001140
001140
001142

001024

112776
162716
004736
162716

000240

020000
001350
000004
000104
000002
000010

000000

s CYLINDER

BIT
BtQ
BIT
BNE

qgéP,RHDSI

B81C

#P1P, $GDDAT

MOV

MOV
ADD
MOVB
SUB
JSR
SuB
NOP

#SK] ,RMER2]
13%

RMDS1 ,$GDDAT

:IS'QRIVE OFF

JNO!!

CYLINDER??

JWAS “'SKI' DETECTED??
;YES-DONT REPORT 'PIP"
JEXPECTED STATUS

;RECEIVED STATUS
RMDS1,$BDDAT
#4,(SPY ;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
#1064 ,a(SP)

#2,(SP)

JMOVE SP TO RETURN FOR ERROR

410, (SP)

;MOVE SP BACK TO USER'S BRANCH

PC,a(SP)+

MACRO v04.00
rIRMOBO HAMOS/3/2 FOTNL TST 3
RECAL IBRATE STATUS (MECK SUBROUTINE

235
236 055510
2%7 055516
238 055520
239 055526
2.0 055534

241 055542
242 055546
263 055554
264 055560
265 055562

246 055566
Szg 055570

249

250 055570

032737
001514
032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

263

264 055650

162716
004736
162716
000240

275 055732

2726 05523¢
S;g 055740

279
280 055740
281 055746

282 055750
<83 055752
o84 055756
285 0557260

000004
001352
000002

001352

BEQ

001140

MoV

000000

ADD
MOVB

15%:

000200

001400

062716

001352
040000
001352
000004
000107
000002

001140
001140
001142

162716

000010

162716

00000«

#RMR ,RMER1]
158

RMER11,$GDDAT

8IC
MOV

, $GDDAT
#RMR
RMER11,$8DDAT

SuB
JSR
SuB
NOP

#2.(SP)
PC.R(SP)+
#10, (SP)

#4,(SP)
#106,3(SP)

:WAS RMR SET??

;NO!!

JEXPECTED STATUS
:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER [N USER'S CALL
:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

REPORT AN ERROR [F "UNS'' IS SET AND 'DVC'' IS O

81T

#UNS ,RMER11

BIT

#DVC ,RMER?]

ADD

#4,(SP)

BEQ

BNE
MOV
BIC
MOV

000000

MOVB
SuB
JSR

SUB

16%:

00000«
(00000

000402

8IT

000010

062716
105776
001403
062716

NOP

#4_(SP) ;MOVE SP TO USER'S ERROR (ALL
#105.a(SP)
;WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN FOR ERROR
#2.(SP)
PC,a(SP)+
:MOVE SP TO USER'S BRANCH
#10, (SP)

:REPORT AN ERROR IF '"RMR'' IS SET

001140
001142

032737

000240

ADD
MOVB
SUB
JSR
SuB

14$:

001352

112776
162716
004736

:REPORT AN ERROR [F ‘°ILR'' IS SET
BIT
#ILR.RMERT]
;WAS ILR SET DURING RECALIBRATE??
N
143
8EQ
MOV
RMCR11.8GDDAT
:EXPFCTED STATUS
#ILR,SGDDA[
RIC
:RECEIVED STATUS
RMER1],$BDDAT
MOV

000010

040000

001024
013737
042737
013737

SSEE IF “"ILR° OR "RMR'° OR "UNS'' IS SET
#ILR'RMR'UNS RMER1]
BIT
16%
BEQ

000000

032737

267 055666
268 055670
269 055676
270 055,04
Sl? 0557216
7?3 055724
274 055730

000105
000002

000004
000106

001430

271 055712

001140
001140
001142

062716
112776

265 055656

266 0556697

001352
000002
001352
000004

0C1%52

042737
013737

257 055634
258 055640
259 055642
26U 055646
52} 055650

001352

013737

253 055606
254 055614

001352

000002

000004

001424

255 065622
256 055626

0460006

032737

251 055576

252 055600

138:

g%g 055500

23
232 055500
g%z 055506

&4-AFR-81 01:15:59 PAGE 33-¢

NOP

:WAS UNSAFE ON??

16%

;NO:!

16%
RMER1]1,$GDDAT
, SGDDAT
#UNS
RMER11,$8BDDAT

YES - DON'T REPORT UNSAFE
;EXPECTED STATUS

#10/7,a(SP)
#2,(SP)
PC.a(SP)+

#10, (SP)

:WAS THERE A DEVICE CHECK??
;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

JWRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:MOVE SP BACK TO USER'S BRAN(H

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
:MOVE SP TO USER'S ERROR (ALL
#4, (SP)
ADD
:WAS AN ERROR REPORTED??
3(SP)
1S18

000004
i

BEQ
ADD
KR
SUR

17%
86, (SP)
18%

INO!'!
DYES - AUGMENT SP RETURN

84, (SP) :NO ERROR - RETURN SP TO BRAN(H

SEQ 023

“IRMOBC RMOS5/3/2 FCINL TST 3
MACRO v04.00
RE"AL [BRATE STATUS (MECK SUBROUTINE
286 055764

287 055766

000240

000207

18%:

4&-APR=-B1 01:15:59 PAGE 33-5
NOP

RTS

JSTATUS CECK IS (OMPLETE

SEQ 0235

MACRO V04.00
CZRMOBO RMOS5/3/2 FCINL TST 3
DRIVE CLEAR STATUS (MECK SUBROUTINE

¢
3
4-APR-81 01:15:59 PAGE 34

SEQ 023¢

;

.SBTTL

DRIVE ClEAR STATUS (HECK SUBROUTINt

5
6
g

H
;
.

ERROR
JSR
2?

12 055770

062716

000004

*4 056300

162716

000004

16 056004
17 C560Q12
"8 056020

013737
042737
012737

001336
173700
004010

13 055774
15

19 056026
20 G56034

21 05603¢

22 056042
23 056050
26 056054

25 056056

105076

023737
001443
062716

112776
162716
004736

000000

001140
000004

000141
000002

001142
001142
001140

001350
021101

001142
001142

31 056106

023737

061140

001142

000240

0212737

001413
062716

112776
162716

36 056134

004736

38 056142

000240

37 056136

010600
000004

000142
000002

16271€¢

000010

39
40 056144

005037

001140

4¢3 056160

062716

000004

004736
162716

000010

41 056150
42 056156

446 056164
45 056172

46 056176
47 056200
48 056204

013737
001413

112776
162716

000240

001352

000143
000002

S0 056206
51 056214
52 056216

013737
010146
010246

001354

56 056224
55 056230
56 056234

116102
042702
005102

000001
177400

53 056220

57 056236

013701

001466

040237

001142

4%:

SuB

#4,(SP)

Mov
BIC
MOV

RMCS11,88DDAT
;CHECK RMCS1
#~C<DVA'FNCMSK>, $BDDAT
;CLEAR DONT CARES
#DVA!DRVCLR,SGDDAT
JEXPECT DVA

(MP
BEQ

000000

013737
042737

36 056122
35 056130

TO REPORT AN ERRCR

#4, (SP)

NCT

sMOVE SP TO USER’S BRAN(CH

INITIALIZED

ADD

;COMPARE EXPECTED & RECEIVED
JBRANCH [F EQUAL
sMOVE SP TO ERROR CALL

SuB

#10, (SP)

;MOVE SP TO NO ERROR RETURN

#141,3(SP)
#2,(SP)
PC,a(SP)+

JWRITE NUMBER OF ERROR IN (ALL
;JMOVE SP 10 RETURN FOR ERROR
JREPORT THE ERROR V]A USER

NOP
;REPORT ERROR JF RMDS NCT INITIALIZED

5%:

MoV
8I(

RMDS1,$BDDAT
: CHECK RMDS
#PGM!OM!VV!PIP, SBDDAT
;CLEAR DONT CARES

MOV

#MOL !DPR!DRY, SGDDAT

8EQ
ADD

63
¥4, (SP)

000000

;EXPECT DRY & DPR

SGDDAT ,$8DDAT

;COMPARE EXPECTED € RELEIVED

MOov8
SUB

#162,9(SP)
#2,(SP)

JWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR

suB

#10,(SP)

JSR

NOP

PC,8(SP)~

;BRANCH [F EQUAL
;MOVE SP TO ERROR CALL

;REPORT THE ERROR VIA USER

JMOVE SP TG NO ERROR RETURN

JREPORT ERROR [F RMER1 NOT INITIALIZED
6%:
(LR
$GDDAT
JEXPECT 0°'S

000000

MOV
BEQ
ADD

RMER1] ,SBDDAT
8s
#4, (SP)

;CHECK RMER!
;BRANCH [F EQUAL
;JMOVE SP TG ERROR CALL

JSR
SuB

PC,a(SP)+
#10,(SP)

;REPORT THE ERROR VIA USER
;MOVE SP TO NG ERROR RETURN

MOvVB
SuB
NOP

001742

;CLEAR ERROR CALL

SGDDAT ,$BDDAT
63
#4,(SP)

MOovB
suB
JSR

001140

001142

;MOVE SP TO ERROR C(AIL

a(SP)

;REPORT ERROR IF RMCS1

001142

28 056064
29 (56072

32 056116
33 056116

PC,a(SP)+

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FCR MORE ERROR (HECKS
RETURN HERE IF NO MORE ERRORS

RETURN HERE

ADD

CLRB

000010

30 056100

RETURN HERE IF NO ERROR

;CLEAR USER'S ERROR CALL

162716

26 056067
27

DRVSTS:

18 055770
1

NOP

#1463,3(SP)
#2,(SP)

JWRITE NUMBER OF ERROR [N (ALL
JMOVE SP TO RETURN FOR ERROR

;REPORT ERROR IF ATA NOT INITIALIZED

8$:

MOV
MOV
MOV

RMAS |, $BDDAT
R1,=(SP)
R2,~(SP)

MOvB
BI(
(OM

1(R1) ,R2
#*CATNMSK
,R2
R2

MOV

BIC

TSTQUE
R

RZ,$BDDAT

;CHECK ATTENT(ON BIT

;;PUSH R1 ON STACK
;.PUSKH R2 ON STA(K

JRMOBU RMOS/3/2 FCINL TST 3

DRIVE

MACRD v04.00

CLEAR STATUS (HECK SUBROUTINE

58 056242
59 056244

60 056246
61 056252
62 056254
63 056260
64 056266
£S5 056272

56 US6274
67 056300
68

o9 056302
70 056310

71 056316
72 056324

73 056332
76 056334
75 056340

76 056346

77 056352

78 056354
79 056360
80
81 056362

012602
012601

005737
001613
062716
112776
162716
004736

162716
000240
.
013737
042737
012737
023737

001413
062716
112776

162716

004736

MOV

001142
000004
000144
000002

000000

000010

001362
000046

000010
001140
000004
000145

000002

001142
001142

001140
001142

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716

00i376
140000
011777
001140

005037

001140

013737
001413
062716
112776
162716
004736
162716

001404

001142

000004
000150
000002

000000

056504

013737

001400

06 056520
107 056526
108 056532

112776
162716
004736

85
86
87
88

056412
056414
056420
056426

89 056432

90 056434
91 056440

92 056442

93
9% 356446

95 056454
96 056456
97 056462

98
99
100
101
102
103
104
105

056470
C56474
056476
056502
056512
056514

109 056534
110 056540

1}; 056542
113 056542
114

000240

001413
062716

162716
000240

000004
000146
0000C2

MOV
CMP

BFG
ADD
MOVB

Sus

JSR

000010

001142
001142
001140
001142

MOV
CMP

8EQ
ADD
MovB
Su8

JSR

000010

000147
000002

(SP)+,R2
(SP)+ R

::POP STACK
“iPOP STACK

INIO R2
INTO R1

#MD , $GDDAT

JEXPECT WRITE DATA ON

118

;BRANCH [F

$GDDAT ,$8DDAT

#4, (SP)

#145,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;COMPARE EXPECTED AND RECEIVED
;MOVE

ZERO

SP TO ERROR CALL

JWRITE NUMBER OF ERROR N CALL
JMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR ViA USER

SuB
NOP

#TSTi1777 SGDDAT

SEXPECT TEST BIT ON

SGDDAT ,$8DDAT

;COMPARE EXPECTED & RECEIVED

¥4, (SP)
#146,3(SP)
#2,(SP)
PC.a(SP)+

*MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
‘MOVE SP TO RETURN FOR ERROR
"REPORT THE ERROR VIA USER

15$%

nd, (sp)

‘BRANCH IF EQUAL

‘MOVE SP TO NO ERROR RE TURN

$GDDAT
;EXPECT ZEROS
CLR
;REPORT ERROR IF RMEC2 NOT RESET
RMEC2],$BDDAT
;CHECK RMEC?
MOV
178
‘BRANCH IF 0
8EQ
¥, (SP)
‘MOVE SP TO ERROR CALL
ADD

15%:

Mov8
SuB
JSR
SUB
NOP

000010

000004

SEQ 0237

sMOVE SP TO NO ERROR RETURN
SuB
NOP
sREPORT ERROR IF RMMR2 NOT INITIALIZED
RMMR?2] ,SBDDAT
. CHECK RMMR?
11$:
MOV
#RQA !RQB,$BDDAT ;CLEAR REQA, REQB
8I(

000000

001142

1ST
$8DDAT
‘1S ATTENTION CLEARED??
9
“BRANCH IF ATTENTION CLEARED
BEG
¥, (SP)
*MOVE SP TO ERROR CALL
ADD
#144,3(SP)
"WRITE NUMBER OF ERROR IN (ALL
MovB
#2,(SP)
'MOVE SP TO RETURN FOR ERROR
Su8
PC.a(SP)+
"REPORT THE ERROR VIA USER
JSR
#10, (5P)
‘MOVE SP TO NO ERROR RFTURN
SuB
NOP
;REPORT ERROR IF RMMR1 NOT INITIALIZED
RMMR1] ,SBDDAT
;(CHE(K RMMR
O$:
MoV
MWC!LS.LST, $BDDAT
;CLEAR DONT (ARES
8IC

000000

162716
000240

82 056370
83 056376
84 056404

4-APR-81 01:15:59 PAGE 34-1

#150,a(sP)

SWRITE NUMBER OF ERROR IN CALL

PC.alSP)+

‘REPORT THE ERROR VIA USER

#2,(5P)

»0, (sP)

- REPORT ERROR IF RMERZ NOT RESET

17%:

000000

MOV

BEQ
ADD

MOovB
suB
JSR

000010

18%:
19%:

SuB
NOP

‘MOVE

SP TO RETURN FOR ERROR

“MOVE SP TO NO ERROR RETURN

RMER2],$BDDAT
18%

;(HECK RMERZ
JBRANCH [F NO ERROR

#1467 ,a(SP)
#2,(SP)
PC,a3(SP)+

JWRITE NUMBER OF ERROR IN (ALl
;MOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER

#4,(SP)

#10,(SP)

;MOVE SP TO ERROR CALL

:MOVE SP TO NO ERROR RETURN

R MOBO RMOS/372 FUINL T1ST 3
MACRO
DR VvE (LEAR STATUS (MECK SUBROUTINE

162716

000240
000207

000004

ADD
TSTR

#6, (SP)

ADD

&4, (SP)

BEQ
2]

001403
062716
000402

(00004
000000

N Eand

120 056560
121 056562
122 (56566
123 £5657C

105776

noro

18 056552
119 056554

062716

3
E
4-APR-81 01:15:59 PAGE 34-2

. AUGMENT RETURN ADDRESS

[ 2

16 056542
17 056546

Vv04.00

BR
SUB
NOP
RTS

a(SP)
21%

233

N6, (SP)
PC

SEQ U238

ANY ERROR WAS fOUND

JMOVF SP TO ERROR (ALL

;UGS’AN ERROR DETE(TED??
N0,

JYES = MOVE SP TO ERROR RETURN

;MOVE SP BACK TO NO ERROR RETURN
JRETURN TO USER

MACKRO v04.00 4-APR-B1
rZRMOBO RMOS/3/2 FCTNL IST 3
DATA TRANSFER (OMMANC STATUS CHECK SUBROUTINE
NN -

.SBTTL

DATA TRANSFER C(OMMAND STATUS (HECK SUBROUTINE

O N

;STORED IN THE PUT BUFFER.
;THE

ERROR NUMBER

IN THE

ERRORS ARE REPORTED BY WRITING

USERS ERROR

;1)

()

D D e

(%)
s (&)
$(5)
; (6)

JSR

NOP
ERROR
JSR
??

PC,DTASTS

PC.a(SP)+

e
d —d e

CALL.

JUSER'S SUBROUTINE CALL:

056572
056576
22 056602
23 056606

RETURN HERE
RETURN HERE

SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE (HECKS
SJB RETURNS HERE AFTER ALL
ERRORS ARE REPORTED

062716
105076
162716
005037

;CLEAR USER'S ERROR CALL AND ERRCR FLAGS
#4,(SP)
ADD
;MOVE SP TO USER'S ERROR
a{SP)
CLRR
;CLEAR LOw ORDER BYTE OF TRAP
(SP)
#4,
SUB
JRESTORE SP TO NO ERROR

0C0004
000000
000004
062166

(IR

5008

;CLEAR ERROR FLAGS

;JREPORT ANY CO?TROL BUS PARITY ERROR WHILE

27 056612

032737

(20000

001336

29 056622
30 056630
31 056636

013737
042737
013737

001336
(020000
001336

001°40

28 056620

32
33
34
35

056644
056650
056656
056662

36 056664
37 056666

IF NO DATA ERRCRS
TO REPCR! AN ERRCR

DTASTS:

056572

-0 NOTO

SEQ 0. 37

;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER (OMMANDS
JUSING STATUS STORED [N THE GET BUFFER AND TEST PARAMETERS

NN BN = O D00

01:15:59 PAGE

(001422

062716
112776
162716
004736

000004
000013
(000002

001740
001142

;I1.E., MCPE
BIT
BEQ
MOV
81C
MOV

ADD

MOVR

0060000

000466

SUB
JSR

10%:

B8R

#MCPE ,RM(ST]
10%
RM(CS11,8GDDAT
MMCPE ,$GDDAT
RMCS1],8BDDAT
#4,(SP)

#13,a3(SP)

#2,(SP)
PC,a(SP)+

30¢

READING REMOTE REGISTERS,

:UA§ THERE A PAR]TY ERRORTM?

.
sNO!
JEXPECTED STATUS

JRECEIVED STATUS
JMOVE SP TG USER'S ERROR (ALL
JWRITE ERROR NUMBER
JMOVE SP TO RETURN [F ERROR
;REPORT

FRROR AND RETURN

;REPORT ANY (DNTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,
000010

001352

000010

001400

013737

001352

001140

47 05672
48 056730

013737
062716

001352
000004

S0 056742
51 056750

032737
001003

53 056760
56 056764
55 056766

162716
004736
000425

056666

L2 056674
43 056676
44 056704

45 056706
46 056714

49 056734

52 056752

032737
001435
032737
001031

042737

112776
112776

;1.E., PAR - 1 AND DPE = C

001140
001142

BIT
8EC
BIT
BNE
MOV
BIC
MOV

#PAR ,RMER1]
20%
#DPE ,RMERZ ]
20%
RMER1] ,$GDDAT
#PAR, $GDDAT
RMER1],$BDDAT

001000

000000
001346

MOvVB
slT

#50,a(SP)
AMXF ,RMCS2!

000274

000000

000010

000059

000002

ADD

15%:

BNE
MovB
SuB

JSR
BR

44, (SP)

:WAS

JNO!!

THERE A PARITY ERROR??

:DATA FPARITY ERRGR ?

JYES!!
JEXPECTED STATUS

JRECEIVED STATUS

:MOVE SP YO USER'S ERROR
:WRITE ERROR NUMBER

;DID MXF GET SET??

158
#274,(SP)

JYES!!

PC,a(SP)+
308

JREPORT ERROR AND RE TURN

42, (SP)

:NO - (CHANGE ERROR NUMBER
;MOVE SP TO RETURN [F ERROR

;LOOK FOR ANY ERRORS WHI(M MAY HAVE OCCURRED DURING COMMAND [N[7IAT('N

“7RMOBQ RMCS/3/72 FOINL

TST 3

MACRO v04.00

LATA TRANSFER (OMMAND STATUS (HECK SUBROUTINE

4-APR-8"

6 3
(1:75:59 PAGE 35-1

:MECHANICAL POSITIONING

SFIRST

€2 056770

032737
001425
013737
042737

001000

001346

001346
001000

001140
001 40

68 057022
o9 057026
70 057034

062716
172776
162716

000004
000275
000002

67 057016

71 057040

;g 057042

74,

75 057042

;g 057046

TEST MXF

WHICH WwOULD

8IT
BEO
MOV
BIC

#MXF ,RMCS21
408
RMCS21,$GDDAT
, SGDDAT
MMXF

;WAS "MISSED TRANSFER'* SET>?
NO.
EXPECTED STATUS

ADD
MOVR
SUB

#4, (SP)
#275.,a(SP)
#2,(SP)

*MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR

CODE AND GO BiT WERE LOADED

63 056770
6b 056776
€5 057000
66 057006

013737

004736

162716

000137

001346

20$:

001142

MOV

0000G

JSR

308 :

SEQ Oc4u

INDICATE

(OMPOSITE

ERROR SET WHEN FUNCTION

RM.S31.$BDDAT

,RECEIVED STATUS

PC.A(SP)+

*REPORT ERROR AND RETURN

:RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING

000010

sUB

062140

JMP

210, (SP)

380%

;MOVE

SP TO NO ERROR

YSKIP TO END OF SUB

;g 057052

408%:

:REPORT AN ERROR IF ''OPI'' ERROR OCCURRED DUE

10 "MOL'’ - 0,

:5#8 "MOL'* ARE SET, BUT 'VV'' IS RESET, INDICATING AN xNTERMXTTENT

057052
(57060

057062
057070
057076
057106

057112
057116
057122
057126

057130
057136
057142
057144

97 057150

gg 057152

100
101

032737
001447

013737
042737
013737
032737

001404
032737
001013
062716

112776

162716
004736
162716

000413

020000

001352

001352
020000
001352
010000

(01140
001140

000100

001350

000004

000276
000002

000004

106 057164

162716

000002

105 057170

106 057172
107 052176

112776

004736

001162
001350

000277

000000

B8R

RMER11,$GDDAT
#0°] $GDDAT
RMERTI,$BDDAT
#MOL , RMDS |

45%
#VV.RMDS |
508
#,(SP)

#276.@(SP)
#2,(5P)
PC.3(SP)+
#10, (sP)

608

;1S "OPI'’ SET??
*NO.!

-EXPECTED STATUS

:RECEIVED STATUS
*WAS MEDIUM OFF LINE??
IYES!!

*WAS “MOL'* INTERMITTENT??
INO'!
‘MOVE SP TO USER'S ERROR CALL

SWRITE ERROR NUMBER IN CALL

*MOVE SP TG RETURN IF ERROR
"REPORT ERROR AND RE TURN
'RESTORE SP TO NO ERROR

ADD

#6,(5P)

;MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

‘MOVE SP TO RETURN IF ERROR

MOVE
JSR

110
111 057200

032737

010000

001400

13
114 057210

013737

001400

001140

001432

SUB
JSR
SUB

000000

000010

112 057206

MOVB

#OPI,RMER1]
60$

;REPORT 'OPI'* ERROR, WHICH IS DUE 70 'ON CYLINDER'' NOT DROPPING OR
“URUN'' TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS)

162716
000240

}83 057200

BIT
eEQ

BEQ
BIT
BNE
ADD

508

062716

MOV
BIC
MOV
8IT

000010

102 057152

103 057156

"OPI"’

608 :

SUB
“NOP

#277.3(SP)
PC.R(SP)+

#10, (SP)

‘WRITE ERROR NUMBER IN CALL
*REPORT ERROR AND RE TURN
*RESTORE SP TO NO ERROR

;LOOK FOR *‘IVC'* ERROR DURING (OMMAND INIYXA'XON
.
8IT
#1VC,RMER2]
uAs THERE AN ''IVC'' ERROKTM?

BEQ

708

:NO

MOV

RMER2],$GDDAT

;EXPECTED STATUS

;REPORT "'Iv(** ERROR DUE T0 ‘VV'*= 0, OR REPORT ERRONEGUS ''I,"''

{#=7F

JHMOBL RM05/372 FCINL

TATA

TRANSFER (OMMAND

115 057216
116 057226
117 057232

“18 057236
119 057244

042737
013737
062716

112776

000301

000000

162716

126 057270

125 057274

001140
001142

SUBROUTINE

000000
001350

122 057262

123 057266

010000
(01400
000004

STATUS (HECK

000300
000100

001403

057254

MACRO v0&.00

112776
032737

120 057252

121

1ST 3

004736

162716

000002
000010

128 057274

032737

000007

001352

000002

001352

001352
000002

001140
001140

000004
000302
000002

000000

057302

001510

057304
057312
057314
(57322

032737
001424
013737
042737

136
137
138
139
140

057336
057342
057350
057354
057356

062716
112776
162716
004736
162716

135 057330

141

013737

001352

001142

000010

057362

000240

145 057364

032737

000001

001352

013737
042737

001352
000001

001140
001140

112776
162716
004736
162716
000240

000303
000002

000000

142 057364

144

146 057372

147 057374
148 057402

149 057410
*50 057416
D
e
e
el e
d md
i
—
)
D
—t
—

LY
LY
[ Jo
oAl O NV
SN
— [Wele JNTe RV, ¥ J VI,V

“51 057422
057430
057434
057436
057442
057444

057444
057452
057454
057462
057470
057476
057502

166 057510
; 6 7 057514
68 057516

69 057522
1 70 05752
t

MOV
ADD

MOvR

817
BEQ

001424

013737
062716

032737
001424
013737
042737
013737
062716
112776

162716
004736
162716

000240

MOVR
SuB
JSR

65%:

129
130
131
132
133
134

4&~-APR-B1 (':75:59 PAGE

suB

70%:

126
127

;JSEE

SEQ 074°

#]v(,$GDDAT
RMERZ2] ,$BCDAT
4, (SP)
#300,a(SP)

;RECEJVED STATUS
JMOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER IN (ALL

#301,a(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

. CHANGE ERROR NUMBER
;MOVE SP TO RETURN [F ERROR
JREPORT *‘Iv(’'' ERROR AND RE TURN
JRESTORE SP TO NU ERROR

zg;.RMDSl

OR "RMR'' IS SET
“'ILF'**

BIT
BEQ

35-¢

#ILR!'ILF.RMR,
1008

::SS VOLUME VALID??

RMER1!
;NO ERRORS DETECTED

;REPORT AN ERROR [F "'ILR'" IS SET
#ILR,RMER1]
LWAS "'ILR'' DETECTED??
BIT
80%
:NO.!
BFQ
RMER11,$GDDAT
:EXPECTED STATUS
MoV
#ILR,SGDDAT
BIC
MoV
RMERT1,$8DDAT
:RECEIVED STATUS
#4, (SP)
*MOVE SP TO USER'S ERROR CALL
ADD
#302.3(SP)
‘WRITE ERROR NUMBER IN CALL
Movs
#2,(SP)
*MOVE SP TO RETURN If ERROR
SUB
PC.D(SP)+
*REPORT ERROR AND RETURN
JSR
#10,
(SP)
*RESTORE SP TO NO ERROR
SUB
NOP

80%:

001352
000004

;REPORT AN ERROR IF '‘ILF'' IS SET
#ILF ,RMER11]
JWAS "'ILF"" DETECTED??
BIT
908
JNO.!
BEQ

001142

000010
G0$:

000004

001352

001352
000004
001352
000004
000304

001140
001140
001142

000002

MoV
BIC
MOV
ADD
MOVB
SuB
JSR
SUB
NOP

RMER1]1,$GDDAT

JEXPECTED STATUS

RMER11,$BDDAT
#4,(SP)
#303,3(SP)
42, (SP)
PC,a(SP)+
#10, (SP)

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERRCR NUMBER IN CALL
;MOVE SP TO RETURN IF ERROR
;REPORT ERORR AND RETURN

#ILF ,$GDDAT

;RESTORE

SP TO NO ERROR

;REPORT AN ERROR IF "RMR'' IS SET
H#RMR ,RMER1]
JWAS 'RMR'' DETECTED??
BIT
BEQ

1008
RMER1],$GDDAT

JNO!.
;EXPECTED STATUS

MOV

RMER11,$8DDAT
#4,(5P)
#304,a(SP)
#2,(SP)
PC,a(SP)+

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL
;JMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

MOV
BIC

ADD
MOvVB
SU8

000900

000010
1008

JSR
SuU8
NOP

ARMR
, $GDDAT

#10, (SP)

JRESTORE

TO NO ERROR

:DETERMINE WHETHER OR NOT ‘‘IAE'® SHOULD BE SET AND (HE’K FOR ERKOR

JRMOBC RMOS/3/72 FCINL T1ST 3

SATA

MACRO v04.00

TRANSFER COMMAND STATUS (HE(K SUBROUT!NE

172 057524
173 057532
176 057540

175 057546

012737
052737
023727
101025

002000
(40000
001446

1
4-APR-81 (C1:75:59 PAGE

001140
062166
001466

3
35-3

SEQ 024¢

MOV
BIS
CMP
BHI
BIC

#]AE ,$GDDAT
#5K]1,500%
RMD(CO,#B22.

1
;SETUP FOR “‘JAE""
SSETUP FOR "'sk]'*- 1
;GREATER THAN (AST (YLINDER ?

#5Kk],500%

JRESET SKI

1108

JYES = CYLINDER IS

FLAG

INVALID

;Z? 057550

042737

040CO0

062166

178 057556

123737

0071421

001335

(MP8B
BHI

RMDAD+1,LSTRK+1
1108

;GREATER THAN LAST TRA(K
JYES = TRACK [S INVALID

181 057566

123727

001420

000035

032737
001406

010000

001446

(MPR
BLOS

RMDAQ, #29.
105%

;1S SECTOR > 29.
;NO

0016420

000037

RMDAD, #31.

;1S SECTOR > 31,

]gg 057564
182 057574

'83 057576
184 057604

155 057606
186 057614

101016

101410

123727
101002

}gg 057616

005037

001140

189 057622

013737

001352

191 C57636
192 057644

023737
001004

0C1140

040000

062166

195
196
197
198
199

062716
112776
162716
004736
162716

000004
000305
000002

000000

013737
042737
013737
042737
032737
001417
032737
001032
062716
112776
162716
004736
162716

001400
137777
062166
137777
040000

001142
001142
001140
001140
001400

040000

062166

000004
000306
000002

000000

190 057630

193 057646
194 057654

057656
057662
057670
057674
057676

200 057702

042737

042737
000412

175777

001142

—h
b —
)
b md wd
el

Vole - RNTo XV P

LS LIV 1 VT,NT, N1, V1,91, N1, ¥}

SV, S

205 057702
204 057710
205 057716
206 057724
207 057732
208 057740
209 057742
210 057750
057752
057756
057764
057770
057772

22C

057776

000417

000010

110%:

MoV

115%:

1208:

000010

;REPORT

BIC
CMP
BNE
BIC
BR

ADD
MOovR

SUB
JSR
suB

#FMT16,RMOFO
110%

110%

$GDDAT
RMER1],$8DDAT
#~( IAE , $8DDAT

;18 BIT FORMAT 2
YES - SECTOR IS

INVALID FOR 18 BIT MODE

YES - SECTOR

INVALID

J'TAE"* SHOULD = 0

;GET RECEIVED STATUS

$GDDAT ,$8DDAT

;IS "'IAE'‘ STATUS 0K??

:gg;.soos

;JAE OK - SK] SHOULD BE 0O

#6, (SP)
#305,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO USER'S ERROR (ALL
:WRITE ERROR NUMBER
:MOVE SP TO RETURN [f ERROR
:REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

115%

;NO!
.

AN ERROR [F "'SKI‘'* IS SET AND '°IAE'® STATUS WAS Ok

MOV
81C
MOV
BIC
BIT

BEQ
BIT
BNE

ADD
MOVR
suB
-

060000

221 060000
222 060006
223 060010
224 060014
225 060022
226 060026
227 060C30
228 060034

105%:

001142

201

202

BI7

BEQ
{MP8
BHI
(LR

JSR
SuB
BR

RMERZ] ,$BDDAT
A#~CSK],$BDDAT

;RECEIVED STATUS

5008 ,$GDDAT

JEXPECTED STATUS

#SK] ,RMER2I

JWAS "'SK]'' SET??

#4, (SP)
#306,3(SP)
#2,(SP)

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN [F ERROR

#~(SK]1,8GDDAT

1408
#5K1.500%
1508

PC,a{SP)+
q;gi(sp)

JNO!!
;WAS SKI CAUSED BY IAE - 0??
JYES - DON'T REPORT SKI

;REPORT ERROR AND RETURN
;JMOVE SP TO NG ERROR

140%:

032737
001413
G62716
112776
162716
004736
162716
000240

040000
000004
000307
000007
000010

062166

000000

;REPORT AN ERROR IF
BIT
BEQ

ADD
MOVB

SUB
JSR
SUB
NOP

SKI
O AND JAE WAS NOT DETECTED
#5K]1,500%
;SHOULD SK] BE SET??
150%
#4,(SP)
#307,3(SP)
#2,(SP)
PC,a(SP)+
#10, (5P)

JNO!
.
JMOVE SP TO USER'S ERROR (CALL
:WRITE ERROR NUMBER [N CALL
JMOVE SP TO RETURN [F ERROR
JREPORT ERROR AND RETURN
JRESTORE

SP TO NO ERROR

3
J
MACRO V04.00 4-APR-81 01:75:59 PAGE 35-4
(2RMOBO RMOS5/3/72 FCTNL TST 3
DATa TRANSFER COMMAND STATUS (HECK SUBROUTINE

&N'\Jmf\)
W
W
mwgvu\

2<9 060034
230
23
232 060036
233 060044
060046
060054

060056
239 060064
240 060072
241 060100
242 060104
263 060112
264 060116
245 060120
246 060124
247 060126
250 060126

251 060134
252 060136
253 060144
25 060146
255 060154
256 060162
257 060170
258 060174

259 060202
26V 060206
261 060210
262 060214
263 060216

264
265
266 060216
267 060224

268 060226
265 0602324
270 060242
271 060256
272 060254
273 060262
274 060264
275 060270
276 060272
277
278
279 060272
280 060300
281
282 060302
283 060310
284 060312
285 060320

SEQ 0243

1508

032737
001512

006200

001400

032737
0014624
013737
042737
013737
062716

000200

001400

001140
001140
001142

112776
162716

001400
000200
001400
000004
000310
000002

162716

000010

004736
000240

032737
001430
032737
C01424
013737
042737
013737
062716
112776
162716

004736

SLOOK FOR 'LSC'*
OR "1LBC'*
OR ‘DVC'* IN ERROR REGISTER #2
#LSCILBC!DVC,RMER2]
8IT
BEQ

-REPORT ANY DEVICE FAULT,

I.E., "DVC'*
= 1

81T
8EQ

#DVC,RMER2]
1608

SIS 'DVC'= 122
‘NO!!

MOV

RMER31,$BDDAT

;RECEIVED STATUS

#3710.a(sP)
#2,($P)
PC.a(SP)+

‘WRITE ERROR NUMBER IN CALL
‘MOVE SP TO RETURN IF ERROR
"REPORT ERROR AND RETURN

MOV
BIC
ADD

MOVE
SUB
JSR

000000

:NO ERRORS SET

1808

agg

RM:R2],$GDDAT
#DVC,$GDDAT
#6, (SP)

#10, (5P)

:EXPECTED STATUS
‘MOVE

SP TO USERS ERROR

‘RESTORE

SP TO NO ERROR

160%:

002000

001400

010000

001350

001400
002000
001400
000004
000311
000602

001140
001140
001142

;REPORT LOSS OF BIT CLOCK,

#LBC.RMERZ]

MOV
BIC

RMER2],$GDDAT
#LBC,SGDDAT

ADD

#4, (SP)

BEQ
BIT
BEQ

MOV

000000

000010

032737
001422
013737
042737
013737
062716
112776
004736
162716
000240

004000

001400

001400
004000
001400
000004
000312

001140
001140
001142

032737
001527

054000

001352

032737
001427
032737
001023

040000

001352

000200

001400

1708
#MOL , RMDS I
1708

;1S LBC SET??

INO!!
‘WAS LBC ERROR BY MOL = 0
SYES!!
-EXPECTED STATUS

RMER1,$8DDAT

:;RECEIVED STATUS

move
SUB

#311.a(sP)
#2,(SP)

382

#10, (SP)

“WRITE ERROR NUMBER IN CALL
‘MOVE SP TO RETURN IF ERROR
‘REPORT ERROR AND RE TURN

JSR

162716
000240

I.E.; 'iBC'' =1, IF "MOL"" = 1

BIT

PC.A(SP)+

‘MOVE SP TO USER'S ERROR (ALL

*RESTORE SP TO NO ERROR

170%:

;REPORT LOS OF SYSTEM CLOCK, I.E., "1LSC" = 1
BIT
BEQ

#LSC,RMER2]
180%

MOV

RMER2] ,$BDDAT

MOV
BIC

ADD
MOvB
JSR

000000

382

000010

RMER21,$GDDAT
#LSC, $GDDAT

¥, (SP)
#312.a(SP)
PC,a(SP)+
#10, (5P)

iis Usct
= 122
‘NO!!

:EXPECTED STATUS

;RECEIVED STATUS

‘MOVE SP TO USER'S ERROR CALL
"WRITE ERROR NUMBER
‘REPORT ERROR AND RE TURN
'RESTORE SP TO NO ERROR

180%:

OR 'WLE'' IN ERROR REGISTER #1
;LOOK FOR “UNS'* OR ‘DTE’"
BIT
BEQ

HUNS 'DTE .WLE ,RMERT]
220%
:NO BITS SET

BIT
BEQ

#UNS ,RMER1 |
)
1908

SIS "UNS'' SET??
*NO!.

BNE

190$

TYES..

:REPORT "UNS'' ERROR IF 'DVC'' - 0

BIT

#DVC . RMER2 ]

‘WAS "UNS'' (AUSED BY ‘DvV('TM?T

JRMOBO RMC5/3/2 FCINL

TST 3

MACRO V(04.00

001352
649000
001352
000004
000313

001140
001140
201142

LATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 060322
287 060330
288 060336
289 060344
290 060350
291 060356
292 060362
293 060364
294 060370
295
296
297 060370
298 060376
299 060400
300 060406
301 0604614
302 060422
303 060426
060434
305 660440
060442
060446

060446
060454
060456
060464

060472
060500
060504
060512
060520
060522
060530
060532
060540
060546
060552
060554

013737
042737
013737
062716
112776
162716

004736

162716

032737
001423
013737
042737
013737
062716
112776
162716

004736
162716

032737
001441
013737
013737
052737

062716

112776

032737
001404
032737
001406
112776
042737
162716
004736
162716

000002

010000

001352

001352
010000
001352
000004
000314
000002

001140
001140
001142

000010

001352

001352
001352
004000
000004
000315
004000

001142
001140
001140

000010

001412

000316
004000
000002

000000
001140

339
340 060606
341 060614
342 060622

RMERT
1, $8DDAT

JRECEIVED STATUS
JMOVE SP TO USERS ERROR CALL

ADD

#6, (SP)

sUB

#313.a(sP)
#2,(5P)
PC.a(SP)+

#10, (SP)

:REPORT ANY DRIVE

TIMING ERROR,

BIT
BEQ
MOV
BIC
MOV

#DTE ,RMERT |
2008
RMER11,$GDDAT
#DTE,$GDDAT
RMER1
1, $BDDAT

MOVE
sUB

#314,a(SP)
#2.(SP)

ADD

200%:

004000

JEXPECTED STATUS

#UNS , SGDDAT

MOve
SUB
JSR

000000

RMER11,$GDDAT

BIC

MOV

190%:

JSR
suB

#4, (SP)

PC.R(SP)+
#10, (SP)

JWRITE ERROR NUMBER

JMOVE SP _TO RETURN IF ERROR
JREPORT

ERROR AND RETURN

JRESTORE SP TO NO ERROR
1.€., 'DIE"" =1

;1S DTE SET??
JNO!!
JEXPECTED STATUS
JRECEIVED STATUS

JMOVE SF TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN (ALIL
JMOVE SP TO RCTURN [F ERROR
JREPORT ERROR ‘WD RETURN
;MOVE SP TO NO ERROR

:REPORT AN ERROR IF WRITE LOCK ERROR IS SET.
SEE
"WRITE PROTECTED, OR 1F FUNCTION WAS NOT A WRITE

BIT
BEQ
MOV
MOV
BIS

MILE ,RMERT]
2208
RMER11,$8DDAT
RMER1], SGDDAT
MJLE, SGODAT

movB

#315,a(sp)

ADD

000000
001350

2058:

2108:

000010

BIT
BEQ
8IT
BEQ

24,

(SP)

MJRL ,RMDS |
2058
#8173 AMCS10
2108

DRIVE

sWAS CWLE'' SET??

:NO!!

sJRECEIVED STATUS
JEXPECTED STATUS

:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER IN CALL

;:3§‘onxve WRITE PROTECTED??

%ggm A WRITE??

MOVB

#316.a(SP)

" CHANGE ERROR NUMBER

SUB

#2,(SP)

JMOVE SP TO RETURN IF ERRCR

suB

#10, (5P)

sMOVE SP TO NO ERROR

BIC

JSR

#JLE ,$GDDAT
PC.a(SP)+

iS5 NOT

JREPORT ERROR AND RETURN

220%:

060560

060560
060564
060570
06057
060576
060602

MOV

060000

000010

4-APR-81 01:15:59 PAGE 35-5

062716
105776
001404
162716
000137
162716

013737
042737
022737

;OMIT DATA ERROR (CHECKS [F ANY PREVIOUS ERRORS HAVE BEEN DETELTED
#6, (SP)
ADD
:MOVE SP TO USER'S ERROR

000004
000000

ISTB

000004
061600
000004

001412
177700
000063

225¢:

062170
062170
062170

BEQ
SUB
IMP
SUM

3(SP)

225%
¥4, (SP)
3408
¥4, (SP)

;WAS ERROR DETECTED??

:NO - DO DATA CHECKS

JRESTORE SP
;SK]P DATA CHECKS
JRESTORE SP

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND CATA, AND
*IF HEADER COMPARE IS NOT INHIBITED
MOV

RMCS10,5108

JSTRIP AND STORE FUNCTION "7DE

GO, 5108
#WH!

JWAS FUNCTION WR]TE WEADEF

BIC

#~CFNCMSK, 5108

. DATAY?

~ZRMOB0O RMOS5/3/2 FCINL TST 3

MACRO v04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

343 060630

346 060632

345 060640

37
28 060642
349 060650
N

352 060652

353 060660
3564 060662
355 060670
356 060676
357 060704
358 060710
359 060716
360 060722
361 060724

362 60726

001512

032737
001106

(32737
001533
032737

001422
013737
042737
013737
062716
112776
162716
004736

(02000

000620

000400

001352

001352
000400
001352
000004
000317
000002

001140
001140
001142
000000

000501

032737
001422
013737
042737
013737
062716
112776
162716
004736
000453

378 061002
379 061010
380 061012
381 061020
382 061026
383 061034
384 061040
385 061046
386 061052

032737
001453
013737
042737
013737
062716
112776
162716
004736

376
377

387 061054

388
389
390
391 061056
392 061064
393 061066
394 061074
395 061102

000020

001352

001352
000020
001352
000006
000320
000002

001140
001140
001142

JYES = S5K]P HEADER (HE(CKS
JWAS HC] SET??
;YES ~ SK]P HEADER (HE(KS

OR "H(R('' OR "H(E'’
IF ANY HEADER ERRORS ARE SET, I.E., ''FER'*
BIT
MHCRC!FER.HCE ,RMERT]
sNO ERRORS SET
270%
BEQ

sSuB

JSR
BR

#2,(SP)

PC,a(SP)+
2608

;REPORT FORMAT ERROR [F SET
BIT
#FER,RMERTI
BEQ
2408
MOV
BIC
MOV
ADD

RMER1],$GDDAT
#FER,$GDDAT
RMER11,$8DDAT
#4,(SP)

SUB

#2,(SP)

MOVB
égn

#320.a3(SP)
ggbgcsp>‘

JMOVE SP TO RETURN If ERROR
JREPORT [RROR AND RETURN

;WAS 'FER'' SET??
INO!!

;EXPECTED STATUS
;RECEIVED STATUS
‘MOVE SP TO USERS ERROR

“WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
"REPORT ERROR AND RETURN

:
2408

000200

001352

001352
000200
001352
000004
000321
000002

001140
001140
001142

000000

000625

000620

001352

396 061110

001352
000620
001352

001140
001140
001142

398 061122
390 061126

162716
004736

000322
000002

000000

112776

2508
WHC ] ,RMOF |
2508

:REPORT HEADER C(RC ERROR |F SET
B8IT
#HCRC ,RMER1]
WAS HCR(C SET??
BEQ
2308
NO!!
MOV
RMER11,$GDDAT
EXPECYED STATUS
#HCRC,SGDDAT
BIC
MOV
RMER11,$8DDAT
;RECEIVED STATUS
ADD
#4, (SP)
sMOVE SP TO USERS ERROR
Movs
#317,3(SP)
;JWRITE ERROR NUMBER

000000

032737
001425
013737
042737
013737
062716

397 061114

JSEE

230%:

363

364
365 060726
366 060734
367 060736
368 0650744
369 060752
370 060760
371 060764
372 060772
373 060776
374 061000
375 061002

8EQ
BIT
BNE

001370

001352

L
3
& ~APR-81 01:15:59 PAGE 35-6

000004

;REPORT HEADER COMPARE ERROR [F SET

BIT

NHCE ,RMER1!

MOV
BIC
MOV
ADD

RMER1],8GDDAT
#HCE ,$GDDAT
RMER1],$8DDAT
¥4, (SP)

JWAS “HCE'' SET??

270%

sNO!!

MovB

#321,3(SP)

260s

;RECEIVED STATUS
JMOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RE TURN

BEQ

SuB
JSR

#2.(SP)
PC,a(SP)+

EXPECTED STATUS

:THERE SHOULD BE NO HEADER ERRORS BECAUSE
:
.COMMAND WAS WRITE HEADER AND DATA, OR
:
"HEADER COMPARE INMIBIT WAS SET
2508:
BIT
#HCE ' FER'HCRC ,RMER1]
:NO ERRORS WERE SET
2708
BEQ
MOV
RMER1],$GDDAT
:EXPECTED STATUS
BIC
NHCE ' FER'HCRC, SGDDAT
MOV
RMER1],$BDDAT
;RECEIVED STATUS

ADD

¥, (SP)

'MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2, (SP)
PC,a(SP)*

'MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

MOVR

#322.3(SP)

‘WRITE ERROR NUMBER

SEQ 0245

~7RMOBO RMQS/3/2 FCINL

NATA

T1ST 3

MACRO v04.00

TRANSFER (OMMAND STATUS (HECK SUBROUTINE

400 061130
401 061134

«02

16276

000137

2608:

0000:0
061600

4-APR-B1 01:'5:59 PAGE 35-7
SUB

JMP

#10, (SP)
3409

SEQ 024t

JMOVE SP TO NO ERROR
JOMIT FURTHER DATA (HE(CKS

403 061140

270%:

605

;1F COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR (HE(KS, OTHERWI]SE
;DO READ ERROR CHECKS
BIT
#173,510%
;WAS TH]S A WRITE (OMMAND?

604

606
407 061140
408 061146

409 061150
610 061154

&1
612

413 061154

614 061162

415
416
417
418
419
420
621
422
423
424
625
426
427
428
429
430
431
432

061164
061172
061200
061206
061212
061220
061226
061230
061236
061244

061246
061254
061256
061262
061264
061272
061276
433 061300
434
435 061304
436
437
438 061304
439 061312
440 061314
441 061322
442 061330
443 061336
444 061342
445 061350

646 061354
447 061356
448 061362

449
450 061366
455
452

453 061366
656 061374
455 061376
456 061404

032737
001002
000137

000010

032737
001450
013737
042737
013737
062716

100000

001352

001140
001140
001142

112776

032737
001021
112776
032737
001007

032737
001406
162716
000410

061366

100000

001352
000004
000323
004000

275%:

000000
001370

000324
000100

000000
001352

000020

062170

000004

112776
162716

000325
000002

162716

000010

004736

062170

000000

8NE
JMP

275%
310%

;REPORT DATA (CHECK

INO..
;GO DO WRITE STATUS CHECK

SET

BIT
BEQ

#DCK ,RMER1]
290%

BIC

#DCK ,$GDDAT

MOV

ADD
MOVB

RMER11],$GDDAT

RMER1]1,$BDDAT
#4, (SP)
#323,8(SP)

;DATA (HECK FRROR??
.NO.!

JEXPECTED STATUS

;RECEJVED STATUS

;MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER

JWAS ECC CORRECTION DISABLED??
JYESH!
#3264 ,a(SP)
MOvVB
;CHANGE TO RECOVERABLE ERROR
;1S ERROR RECOVERABLE??
#ECH,RMER1]
BIT
BNE
276%
JNO Y
:DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND
;UAS‘IHIS A READ COMMAND °?
#MIT4,510%
8l7
8EQ
2808
JNO !
BIT

B8NE

276%:
280%:

#EC] ,RMOF |

280s

SuB
BR

#4,(SP)
2908

JSR

PC,a(SP)+

MOVR
SuUB
Sus

#325.,3(SP)
#2,(SP)
#10,(SP)

;RESTORE SP

;SKIP ERROR - DATA WILL BE CORRECTED

;CHANGE TO NON RECOVERABLE

;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR

290%:

032737
001423
013737
042737

013737
062716
112776
162716

004736
162716

000137

000400

001346

001140
001140
001142

000400

001346
000004
000326
000002

;REPORT DATA BUS PARITY ERROR ;F SET, I.E., MDPE - 1
BIT
MMDPE ,RM(S21
:PARITY ERROR SET??
BEQ
3008
JNO'!

MOV

BIC
MOV
ADD
MOVB
SuB
JSR

000000

000010
061600

300%:

SUB
JMP

RM(CS21,8GDDAT
#MDPE ,$GDDAT
RMCS2I ,$BDDAT
#4,(SP)
#326,3(SP)
#2,(SP)
PC,a(SP)+

#10,(SP)
340%

JEXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER

sMOVE SP TO RETURN [F ERROR

:REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR
;SKIP WRITE STATUS (HECK

310%:

000001

001350

001350
000001

001140
001140

:TEST TO SEE THAT OFFSET MODE WAS RESET, REPORT ERROR [F ‘oMTM’
BIT

BEQ
MOV
BIC

#0OM, RMDS |

3208
RMDSI,$GDDAT
#0M,$GDDAT

;1S OFFSET ON??

;NO
JEXPECTED STATUS

MMACRO v04.00 _ 4-APR-81 01:15:59 PAGE 35-8
CIRMOBO RMOS/3/2 FCINL TST 3
DATA TRANSFER COMMAND STATUS (HECK SUBROUTINE
457 0614612
458 061420
659 0614624

460 061432
461 061436

462
463
464
465
466
467

4o8
469
470
471
472

473
476
475
476
477
478

061440
061444

061444
061452

061454
0616462
061470
061476
061502

061510
061514
061516
061522

479 061522

480 061530

481
482
485
484
485
486

061532
061540
061546
061554
061560
061566

488
489
490
491
492
493

061574
061600

4,87 061572

494

061600
061606
061610
061616
061624
061632
061036

495
496
497
498
499 061644

500 061650
501 061652

013737

001142

162716

001350
000004
000327
000002

162716

000010

032737
001423
013737
042737
013737
062716

000010

001400

001400
000010
001400

001740
001140
001142

000330
000002

000000

062716
112776

004736

112776
162716

004736

000004

320%:

162716

000010

032737
001423
013737
042737
013737
062716
112776

000040

001352

001140
001140
001142

162716

004736

000040
001352
000004

000331

000002

000000

000010

100000

001346

001140
001140
001142

502 061656

0137246
042716
022726
001522

001346
000004
000332
000002

BIT
BEC

L 01Y
BIC
MOV
ADD
MovBe
SuB

JSR
SuB

#DPE ,RMERZ]

3308
RMERZ2] ,$GDDAT
, $GDDAT
#DPE
RMERZ2I ,$BDDAT
#4,(SP)
#330,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;TEST FOR WRITE CLOCK FAJLURE;
#WCF ,RMERT ]
BIT
3408
8EQ
RMER1] ,$GDDAT
MoV
HWCF ,$GDDAT
8IC
RMER1]1,$BDDAT
MOV
#4,(SP)
ADD

MOVB

340%:

SRECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN (CALL
sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
MOVE SP TO NO ERROR

suB
JSR
SuB

#331,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;DATA PARITY ERROR??

;NO!!
;EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

REPORT ERROR IF ‘W(F''
- 1
;IS "NCF'' SET??
;NO!!
;EXPECTED STATUS

;RECEIVED STATUS
;MOVE

SP TO USERS ERROR CALL

JWRITE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
;REPORT ERRCR AND RETURN
;MOVE SP TO NO ERROR

;REPORT ‘DATA LATE'' ERROR IF 'DLT"" = 1
BIT
BEQ
MOV
BIC
MOV
ADD

000000

000010

JSR
SuB

RMDS 1 ,SBDDAT
#4,(SP)
#327 ,8(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

SEQ 024

;TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF ‘DPE'’ = 1

330%:

162716

100000

MoV
ADD
MOVB
Su8

000000

O
= OOOO0O00
OO
=2 —-2OW
NS NINUNDNNIN
=Y
NNNNNNNNS
N
- g b N = NN AN
NN NNNWNN

MOVB
suB
JSR

3508:

#DLT ,RMCS2]

3508

;1S 'DLT'' SET??

‘NO!!

RMCS21.8GDDAT

-EXPECTED STATUS

RMCS21,$8DDAT

:RECEIVED STATUS

#DLT,$GDDAT

#4,

(SP)

#332 a(sP)

#2,(5P)
PC.a(SP)+
#10, (SP)

*MOVE SP TO USERS ERROR CALL

"WRITE ERROR NUMBER

'MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
'MOVE SP TO NO ERROR

;100K FOR UNEXPECTED CHANGES IN DRIVE STATUS
:STACK DRIVE STATUS
RMDSI ., -(S5P)
MOV

001350
147¢ 77
010100

BIC
Mp
8tQ

#°C<PIP'MOL'VY>,(SP)

MOL 'YV, (SP)+
380%

:CLEAR DONT CARES

;1S DRIVE STATUS 0K??
YES!.

JREPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE FKROR,
0327%7
001430
u3c737

020000

001350

040000

001400

JI1.E. PIP - 1 AND SKI
'

BIT
BtQ
B.7

#P1P_RMDS |

3608
#SK] . RMER?!

;1S "PIP'* SET??

NO.!
WAS *SK]'* ERROR REPORTED??

MACRO v04.00
“JRMOBO RM(QS/372 FCINL TST 3
DATA TRANSFER (OMMAND STATUS (HECK SUBROUTINE
4 061712

5 061714

6 061722

7 061730

8 061736

9 0617462

0
521
522
523
524

061750
061754
061756
061762
061764

001024
013737
042737
013737
062716
112776
162716

004736

162716

000240

(01350
020000
001350
000004
000333
000002

4
8
PAGE
01:15:59
4-APR-81
35-9

3608
RMDS],$GDDAT
#P1P.$GODAT
RMDS] ,$BDDAT

001140
007140
001142

BNE
MOV
8IC
MOV

000000

MOVB

ADD

SUB

061764
0K1772
261774
(62002
062004
062012
062020
062026
062032
06¢040
062044
002046
062052

032737
001027
032737
001023
013737
052737
013737
062716
112776
162716

004736
162716

PC.a(SP)+

001350

020000

001352

001350
010000
001350
000004
000334

001140
001140
001142

BIT
BNE
BIT
BNE
MOV
BIS
MOV

000000

MOVB

000002

000010

544
545
546
547
548
549
550
551
552
553
556
555
556
557
558
559
560

062052
062060
062062
062070
062072
062100
262106
062114
062120
062126
062132
062134
062140

032737
001027
032737
001033
013737
052737
013737
062716

062140
062144
062150
062152
062156
062160

561
562
563
564
565
366 062164
567
568 062166
569 262170

ADD

#MOL ,RMDS |
3708
#OP] ,RMER1 ]
3708
RMDSI,$GDDAT
, $GDDAT
#MOL
], SBDDAT
RMDS
#4 . (SP)

#334.a(sP)

ON LINE

AND OP]

ERROR WAS NQOT

.
;IS MEDIUM ON LINE??
JYES!!

:Uég OP] ERROR REPORTED??

JYES.

JEXPECTED STATUS
JRECEIVED STATUS
JMOVE SF TO USER'S ERROR
JWRITE

“RROR NMBER

IS NOT VALID AND "'IV('" ERROR WAS NOT

001400
001140
001140
001142

112776
162716

001350
000100
001350
000004
000335
000002

000000

MOYB

162716

000010

062716

000004
000000

ADD

380$:

#2. (SP)
PC.a(SP)+

su8
JSR
suB

#VV
. RMDS |
3808
#IVC ,RMER2]
3908
RMDS]
. SGDDAT
#VV,SGDDAT
, SBDODAT
RMDS]
24,

(SP)

#335.a(sP)

#2,(SP)
PC,a(SP)+
#10,(S5P)

:{ESYQLUME VALID??

'WAS ]VC ERROR REPGRTED®?
LYES!!
TEXPECTED STATUS

SRECEIVED STATUS
;JMOVE SP TO USERS ERROK C(ALL
JWRITE ERROR NUMBER
sMOVE SP TO RETURN [F ERROR
;REPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
7SiB

¥4, (SP)
a(SP)

ADD

#4, (SP)

BEQ

000004

3908

390%:

BR
SuB

400%
#4, (SP)

000207

400%:

RTS

000009
0003000

5008 :
510%:

.WORD
.WORD

000004

= 0

;REPORTED, I.E., WV = IvC =0

010000

162716

IS NOT

= OP]

;REPORT ERROR IF VOLUME

BiT
BNE
BI1
BNE
MOV
BIS
MOV

001403
062716
000402

MOL

#10, (SP)

370%:

001350

105776

MEDJUM

ERROR NUMBER

JMOVE P TO RETURN IF EKROK
JREPOR/ ERROR AND RETURN
;MOVE SP TO NO ERROR

SUB
JSR

000100

004736

I.E.,

010000

562

543

;REPORTED,

JRECEIVED STATUS
;MOVE SP TO USERS ERROR (ALL
;JMOVE SP TO RETURN [f ERROR
REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

#10.(5P)

NOP

s YES-DONT REPORT PIP
JEXPECTED STATUS

JWRITE

#2.(SP)

sU8

360%:

(SP)

#333 a(sP)

JSR

000010

;REPORT ERROR

528
529
530
531
532
533
534
535
536
537
538
539
540

SEQ 024+

:MOVE SP TO ERROR CALL
;ANY ERROR??

JNO!Y
:YES - MOVE SP TO ERROR RETURN

;MOVL SP TO NO ERROR RETURN
JRETURN TO USER
;ERROR FLAGS

; TEMPORARY STORAGE

rZRMOBO RMOS5/3/2 FCTINL

STATIC DRIVE

TST 3

SUBROUTINE

SFQ 0249

STATUS CHECK SUBROUTINE

LOOKS FOR UNEXPECTED CHANGES

IN DRIVE

;STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID.

ThE SUBROUTINE

;CAN BE USED BY HOUSEKEEPING AND OTHER (OMMANDS DURING wHICH THERE
;SHOULD NOT Bt ANY DRIVE ERRORS OR CHANGES IN STATE.
:}?ET’EO%LOUING CONDITIONS ARE TESTED AND REPORTED AS &RRORS
bE:

MOL

YHAT MOL

INDICATES DRIVE WENT OFFLINE, NOTE
TO HAVE BEEN SET

IS A SUMED

Pip
.SK1
.DVC

. INDICATES THE DRIVE LOST VOLUME VALID

"o+

b
=D
e
D
et —ad
ed

STATIC DRIVE

LSBTTL
;THIS

4-APR-81 01:15:59 PAGE 36

STATUS (MECK SUBROUTINE

0O NP NS WA — OO0 YORNE WA

MACRO v04.00

1,
1,
1.

INDICATES THAT THF DRIVE IS OFF CYLINDER
INDICATES THE DRIVE HAS AN UNEXPECTED SKI
INDICATES AN UNEXPECTED DEVICE FAULT

ERROR

;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

JSR
BR
NOP
ERROR
JSR

2 (N

PC,STCDRVSTS

PC,a(SP)+

2?7

062172
062176
062202

062716

062206
062212
062216
062222

013746
042716
022726
001524

062314

06232¢

GO BACK TO SUB FOR MORE ERROR (HE(KS
RETURN HERE IF NO MORE ERRORS

STCDRVSTS:

062172

0622264
062232
062234
062242
062244
062252
062260
062266
062272
062300
062304
062306
062312
062314

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

105076
162716

;CLEAR USER'S ERROR CALL

000004
000000
000004

;SEE

001350
010100

010000

001359

020000

001352

001350
010000

001140
0011490
001142

162716

000002

112776

004736
162716
000240

032737
001030

001350
000004
000207

RMDS],~(SP)
;PUT DRIVE STATUS ON STACK
#°C<PIP!MOL
! VV>, (SP)
MOL 1YV, (SP)+
;ARE MOL,VV AND PIP 0.K.27

BIT

BNE
BIT
BNE
MOV
BIS
MOV

ADD
MOvVB

000000

10%:

001350

MOV
8IC
M
BEQ

.REPORT AN ERROR

000010

000100

#4,(SP)
a(SP)

;MOVE

6, (SP)

SP TO USER'S ERROR CALL
;CLEAR ERROR NUMBER
;MOVE

SP BACK

IF MOL'* = "' =1, AND 'PIP'' = 0

147677

032737
001030
032737
001024
013737
052737
013737
062716

ADD
CLRB
sU8

JREPORT

su8
JSR
SuB
NOP

308

TO NO EPROR RETURN

;YES!!

IF MOL = O AND 'OPI'* = 0

AMOL ,RMDS |
108

#0P1 ,RMER1]
108

RMDS I ,$GDDAY
#MOL
, SGDDAT

RMDS] ,$BDDAT
#4,(SP)
#207 ,8(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

;IS MOL ON 22
JYES!!

JWAS "OP]'" SET??
;YES=DONT REPORT 'MOL''
JEXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CA.L
sMOVE SP TO RETURN FOx ERROR
JREPORT ERROR VIA USER
;MOVE SP BA(CK TO NO ERROR RETURN

AN ERROR [F VOLUME VALID 1S NOW ZERQ AND "‘[v(''

BIT
BNE

#VV ,RMDS]
0%

JIS vt = 02
INO.

rZRMOBO RMO5/3/2 FCTINL

STATIC

DRIVE

TST 3

MACRO v04.00

010000

001400

001350
000100
001350
000004
000210
000002

001140

STATUS CHECK SUBROUTINE

58 062324
59 062332
60 062334
6)
062342
62 062350
63 062356
64 062362
65 062370
66 062374
67 062376
68 0624602
o9 062404

032737
001024
013737
052737
013737
062716
112776
162716

004736
162716

060240

73 062412
062414

74
75
76
77
78
79

#[v( ,RMER?]
208

JWAS 'Iv('T SET??
;YES=DONT REFORT ‘‘yyv*'

001350
001142

BIS
MOV

#VV ,RMDS]
RMDS1,$BDDAT

JRECEIVED STATUS

000000

MOVRB

062422
062424
062432
062440
062446
80 062652
81 062460
82 062464
83 062466
84 062472
85 062474

86
87
88 062474
89 062500
90 062504
91 062506

040000

001400

001350

001140
001140
001142

020000
001350
000004
000211
000002

9 062506

95 062514
96 062516
97 062524
98 062532
062540
100 062544
062552
062556
062560
062564
062566

162716
000240

000010

013746
042726
001460

001400

032737

000200

001400

001400
000200
001400
000004
000212
000002

001140

001424
013737
042737
013737
062716
112776
162716
004736

162716

000240

»s,(SP)

#210,a(5P)

JEXPECTED STATUS
;MOVE

SP TO USER'S ERROR C(ALL

JWRITE ERROR NUMBER [N CALL

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

PC,3(SP)+

;REPORT ERROR VIA USER

#1),(SP)

:REPORT AN ERROR [F

JMOVE

8l17
B8NE

#SK] ,RMERZ]
30

SP BA(CK

TO NO ERROR

:NO.!

RMDSI ,SGDDAT
#PIP,$GDDAT
RMDS] ,$8DDAT
#6,(SP)
#211,8(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

JEXPECTED STATUS

;PUT ERROR REG 2 ON STA(K

H8EQ

60%

;BRANCH IF NO ERROR

2°C<SKIIDVC>, (SP)+

50%:

IS A DEVICE

FAULTY

#DVC ,RMERZ2]

;ANY DEVICE FAULT??

MOV

RMERZ2 1, $GDDAT

JEXPECTED STATUS

BIC
MOV
AND
MOVB
SUR
JSR
SUR

)10

THERE

BIT

BEQ

000000

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN USER'S CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

RMERZ] ,-(SP)

:REPORT AN ERROR IF

001140
001142

JWAS ''SK]'’ SET??
;YES=DONT REPORT 'PIP""- 1

MOV
BIC

408%:

(YLINDER AND *'SKI'' - 0

;1S DRIVE OFF CYLINDER??

30s

JSEE IF "SKI'
= 'pv('' = 0

137577

[S OFF

#P1P ,RMDS]

MOV
BIC
MoV
ADD
MOVB
SUB
JSR
Sgg

30%:

DRIVE

B8IT

8EQ

000000

RMDS![,$GDDAT

20%:

032737

004736

Sus

00001C

001350

112776
162716

ADD

agg

020000

001024
013737
042737
013737
062716

MOV

JSR

032737
001430

8IT
BNE

71
72 062404

4-APR-81 01:15:59 PAGE 36-1

NOP

508

#DV(,SGDDAT
RMERZ] ,$BDDAT
#4,(SP)
#212,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;NO!!

JRECEIVED STATUS
:MOVE SP TO USER'S CALL
JWRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
:MOVE SP BACK TG NO ERROR

062566
062574
062576
062604
062612
062620
062624

032737
001424
013737
042737

013737
062716
112776

040000

001400

001400
040000
001400
000004
000213

001140

:REPORT AN ERROR IF

8IT

BEQ

MOV

''SkI" = 1

#SK] ,RMERZ]

;1S THERE A SEEK INCOMPLETE ERROR

RMERZ2] ,$GDDAT

JEXPECTED STATUS

60%

001140

BIC

#SK 1 ,8GDDAT

000000

MOvR

#213,2(5P)

001142

MOV
ADD

RMERZ] ,$BDDAT
#6,(SP)

NO!!

:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER [N USER'S ERROR AL.

JRMOBO RM0O5/3/2 FCINL
TATIo

DRIVE

TIST

MACRG v04.00

STATUS (HECK SUBROUTINE

'15 062632

116 062636
117 062640

118 062644
79 062646
120
121

162776

004736
162716

000240

000002

000004
000000

062716
000402

000004

1¢8 062672

00024C

129 062674

162716

000207

SEQ 0291

#c,{SP)

JMOVE SP TO RETURN FOR ERROR

ggg

#10, (SP)

sMOVE SP BA(K TO NO ERROR

PC,a(SP)+

JREPORT ERROR V]A USER

:
6508

062716
105776

127 062666

&
36-2

su8

JSR

000010

12% 062646
123 062652
2 4 062656
125 062660
126 062664

001403

E
&-APR-81 01:15:59 PAGE

000004

JAUGMENT

THE

ADD

ISTR

70¢:

80%:

RETURN ADDRESS

#6,(SP)
a(SP)

ANY ERROR WAS DETECTED

JMOVE

SP TO USER'S ERROR CALL

JWAS AN ERROR DETECTED??

8EQ
ggD

703
ggs(fip)

JNO!.
;YFS = MOVE SP TO USER'S ERROR RE TURN

ggg

84, (SP)

JNO = MOVE

RTS

JRETURN

TO NO ERROR RETURN

TO USER

“JRMOBO RMOS/3/2 FLTINL 1ST 3

SALE

AND RESTORE RO-RS ROUTINES
:

MAIRO v04.00

4-APR-81 01:15:59 PAGE 37

.SBTTL

SAVE AND RESTORE RO=RS5 ROUTINES

""..".'...'."..."'."".......'.....'..'.".'....."..'..l"'.

:*SAvVE RO=RS

s*CALL:
o

SAVREG

;*UPON RETURN FROM S$SAVREG THE STA(K WiLL LOOK LIKE:
.

P eTOP===(+16)
:'

02---('18)

;%
;*

+4---RS
+6=-=--R4

;v +8---R3

;*+10~---R2
J*e12---R1
;*+14--=R0

062676

062676
062700
062702
062704
062706
062710

010046
(010746
010246
010346
010446
010546

062716

016646

062712
062722
062726
062732

$SAVREG:

(016646

000022

016646
016646

000027
000022

000002

MOV
MoV
MoV
MOV
MOV
Mov

RO,-(SP)
R1,-(SP)
R2.=(SP)
R3,-(5P)
R4 ,-(SP)
R5,=(SP)

;sPUSH RO
:;PUSH R1
;:PUSH R2
;:PUSH R3
;;PUSH R4
;;PUSH RS

MOV

22(SP) ,-(SP)

;:SAVE P( OF MAIN fLOw

Mov

000022

MOV
MOV
RTI

22(SP) ,=-(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)

ON STA(K
ON STA(K
ON STA(CK
ON STA(K
ON STACK
ON STACK

;;SAVE PS OF MAIN FLOW
s :SAVE PS OF CALL
;s SAVE P(C OF CALL

:*RESTORE RO-R5S

;*CALL:

062734

062734
062740
062744
062750
062754
062756
062760
62762
062764
062766
062770

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

RESREG
i
$RESREG:

MOV
MOV
MoV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
RT]

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(5P)
(SP)+ ,22(SP)
(SP)+,R5
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
{SP)+ R
(SP)+ RO

;JRESTORE PC OF CALL
J:RESTORE PS OF (ALL
;sRESTORE PC OF MAIN FLOW
:;RESTORE PS OF MAIN FLOW
;;POP STACK INTO RS
;;POP STACK INTO Ré
;;POP STACK [NTO R3
;;POP STA(K [NTO R?
;1POP STACK [NTQ R1
;.POP STA(K INTO RO

MAIKD

.04.00

4-APR-81 01:15:%9 PAGE 38

SRTTL

BINARY

SEQ 0253

TO ASCI1 AND TYPE ROUTINE

e 2222228322222
RdRRRR R
RRRRRRRRRRRRZRRRRRRRRRNZ Q)

T*THIS ROUTINE IS USED TO CHANGE A 16-B]T BINARY NUMBER 10 A 16=-B]’
;*BINARY=-ASCI]
«(A.L:
*
.

NUMBER AND TYPE

]T.

062772
2774

063000
063002

063010
063012
063014
063020
063024
063026
63030
063032
063040
063042
(63044,

010146

016601
000261

000060

105537
104401
000241
000765
012601
016666
012614
000002
000

043044
063044

001406

$TYPRN: MOV

MOV

000006

112737
006101

00002
000

MOV
TYPBN

063044

1%:

SEC
movs
ROL

BEQ

ADCB
TYPE
(L

C00004

2%:

$RIN:

B8R
MoV
MOV
MOV
RTY]
BYTE

NUMBER,=(SP)
R1,-(SP)

6(SP) ,R1

#'0,$8IN

J:NUMBER T0 BE TYPED

J2TYPE

;:SAVE K1 ON THE STA(CK
JoGET THE INPUT NUMBER

::SET "'C'' SO CAN KEEP TRACK OF THE NUMBER Of BITS
::SET CHARACTER TO AN ASCIT 'O,
THIS BIT

J:GET

:sBIN

;G0 TYPE

2%
$3IN
1%

s cDONE?
;:NO==-SET THE CHARACTER EQUAL
THIS BIT

TO THIS BIT

;sCLEAR "'C'" SO CAN KEEP TRA(CK OF BITS
;.60 DO THE NEXT BIT

2(SP) ,4(SP)

:;POP THE STACK INTO R1
;sADJUST THE STACK

0.0

;sRETURN 7O USER
. :STORAGE FOR ASCII (HAR. AND TERMINATOR

{SP) +,R1

(SP)+, (SP)

’

'4
-

MACRD

TYRPE

04 00
.

ROJT iN £

&-APR-E" (':15:59 PAGE

.SBTTL
e

(ONVERT BINARY

L2233 22 2222222

TO DECIMAL

AND

TYPE

ROUTINE

ARARARRRRRR ARl
Rl
R AN R

;*THIS ROUTINE IS USED TO (HANGE A 16-BIT BINARY NUMBER T0O A 5-DIGIT
;*SIONED DECIMAL (ASCII) NUMBER AND TYPE [T, DEPENDING ON WHETHER THF
.*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN wiLL BE TYPED
;oBEFORE THE FIRST DIGIT OF THE NUMRER. LEADING ZEROS WIL. ALWAYS BF

;*REPLACED WITH SPACES.
seCALL:
;'
,
= (SP)
NU4
MOV
i

9630466
063046
263050
063052
063054
063056
063060
63064
063070
063072
063074
063102
063104
063110

063114

063116

063122
063124
063126
063130
063132
063134
063136
063140
063142
063144
063146
063150
063156
n63162
263166
063170
063172
063176
063200
063202
063204
063206

063210
063212
063220
063222
063224
063226
063230

TYPDS

$TYPDS:

010046
010146
010246
010346
010546

012746
016605
100004

005405
112766
005000
12703
"12723
005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003

116663
052702
052702
110223
005720
020027
002746
003002
010502
000764

020200
0C0020

000055

000001

063262
000040

2%:

06325¢

3%:

4%:

5%:

000001
000060
000040

172777

012605
012603
0126G2
012601

6%:
7%:

0G0010

8%:

105726

100003
116663
105013

1%:

177777

177776

G%:

MOV
MOV
MOV
MOV
MOV
MOV
Mov
8PL
NEG
MOVB

CLR

MOV
MOVB

(LR

MOV

SUB

BLT

RO,=~(SP)
R1,=(5P)
R2,-(SP)
R3,-(SP)
RS5,-(SP)

#20200,=(SP)

20(SP) RS
1%

#'=,1(5P)
RO
#$DBLK ,R3
&' _(R3)+

R2
$DTBL (RO ,R1
R1.R5
4%

INC
B8R
ADD

MOV
MOV

;:PUSH R3 ON STACK
;:sPUSH RS ON STACK

J:SET BLANK SWITCH AND SIGN
;2GET THE INPUT NUMBER
;:BR IF INPUT 1S POS.
;JMAKE THE BINARY NUMBER P(OS.
;cMAKE THE ASCI] NUMBER NEG.
;. ZERO THE CONSTANTS INDEX
J:SETUP THE OUTPUT POINTER
;;SET THE FIRST CHARACTER TO A Bt ANr
;s CLEAR THE BCD NUMBER
J:GET THE CONSTANT
;;FORM

THIS B(CD

DIGIT

;:BR IF DONE
;: INCREASE THE BCD DIGIT BY 1
THE

CONSTANT

;o(HECK ]F BCD DIGIT O
::FALL

THROUGH IF

;3STILL DOING LEADING 0°S?

.;BR IF YES

;:MSD?

1(SP) ,=1(R3)
#'0,R2
#' R2
R2,(R3)+
(RO)
+
RO, 410

::BR IF NO

:;YES=-=SET THE SIGN
JJMAKE THE BCD DIGIT

ASCII

::MAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS (HARACTER IN THE OUTPUT BUFFER
:
;o JUST INCREMENTING

;s CHECK THE TABLE

INDEX

::G0 DO THE NEXT DIGIT

;260 TO EXIT
::GET THE LSD
;G0 CHANGE TO ASCIlI

iSIB

8PL
MOVB
CLRB
MOV
MOV

;:PUSH RO ON STACK
;:PUSAH R1 ON STA(K
;:PUSH R2 ON STA(K

:;ADD BACK

TST

B8NE
TSTIR
8M]
ASLB
B((
MOovB
BIS
8IS
Movs
TST
{MP
BLT
BGJ
MOV
B8R

JJPUT THE BINARY NUMBER ON THE STA(r
.:GO TO THE ROUTINE

=1(SP),=2(R3)

::WAS THE LSD THE
;sBR IF NO

FIRST NON-ZERQ?

;IYES==SET THE SIGN FOR TYPING
TERMINATOR

(R3)

::SET THE

(SP)+ ,R3
(SP)+ ,R?2

:2POP STACK INTO R3
;POP STACK INTO R?

+ RS
(SP)
(SP)+,R"

;;POP STACK INTO RS

;JPOP STA(K

INTO R

J4MOBD RMOS/3/2 FCINL T1ST 3

"NJRT

BINARY

063232
063234
063240
063266
063250
063252
063254
063256
063260
063262

TO DECIMAL

012600

10440
016666

012616
000002
023420
001750
000144
000012

AND

(63262
000002

MACRO v04.00

TYPE KOUTINE

MOV

(SP)+,RO

::POP STACK

MOV

2(SP) ,4(SP)

SADJUST THE STACK

TYPE

000004
$DTRL:

$DBLK:

4-APR-81 01:15:59 PAGE 39-1

MOV
RY]
10009.
1000.
100.

10.

BLKW

$DBLK

(SF)e. (SP;

JNOW TYPE

INTO RO

THf

NUMBER

;:RETURN 10 USER

CZRMOBO RMOS/3/2 FCTINL
TO G(TAL

(ASCID)

AND TYPE

MACKRO v04.00

&=-APR-81

.SRTIL

01:15:59 PAGE 40

BINARY TO OCTAL

(ASCII) AND TYPE

L T

;*THIS ROUTINE

;*0CTAL

IS USED TO CHANGE A 16-B]T BINARY NUMBER TO A 6-DIGIT

(ASCJ]) NUMBER AND TYPE

;*$TYPOS--=-ENTER HERE
MOV
TYPOS
.BYTE

.BYTE

,
= (SP)
NUM
N

J*$TYPON--=--ENTER HERE
;*$TYPOS OR $TYPOC

;*CALL:
]

]

MOv

“YPON

DIGITS TG TyPE

. :NUMBER TO BE TYPED
“CALL FOR TYPEOUT
FINT 106 FOR NUMBER OF DIGITS 10 TYPE

®*

;*CALL:

[T,

TO SETUP SUPPRESS ZEROS AND NUMBER OF

BINARY

TST 3

;:1=TYPE LEADING ZEROS

*.0=SUPPRESS LEADING ZEROS

TO TYPE OUT WITH THE SAME PAPAMETERS AS THE (AST

,
= (SP)
NUM

;.NUMBER 10 BE TYPED
;. CALL FOR TYPEOUT

'--srvpoc—--emsn HERE FOR TYPEQUT OF A 16 BIT NUMBER
'CALL

. w

063272
063276
063304
063310
063314
063316
063324
063332
063340

063342

063344
063346
063352
063354
063360
063364
63370
063374
063376
063400
063402
063404
063406
063410
063412

063414
063420
063422
063426
063430
63432
063434

017646

116637
112637

062716
(00406
112737
112737
112737
010346
010446
010546
113704
005404
062704

110437
113704

016605

005003

000000
000001

063515

000001
000006
000005

063515
063217
063514

063517
000602

042703
001002
005704
001403
005204

MOV
MovAa
MOVB
ADD
B8R

8(SP) ,-(SP)
1(SP) ,$0F ILL
(SP) +,$0MODE
+1
#2,(SP)
$TYPON
#1,80FILL
#6, SOMODE +1

;<PICKUP THE MODE
J:LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

R3,-(SP)
Ré&,~(SP)
RS,~(SP)
SOMODE +1,R4
R4

;:SAVE R3
1 SAVE Ré

MOV
MOV
MOV

MOovB

1%:

2%:

063516

. ;NUMBER TO BE TYPED
;;CALL FOR TYPEOUT

MOvVB
$TYPON: MOVA

000006
063516
063515
000012

006105

= (SP)
NUM,

TYPO(

$TYPOC: MovB

063517

006105
000404
006105

006105
010503
006103
105337
100016

$TYPOS:

MOV

3%:

177770

#5,80CNT

JiSET THE ZERO FILL SWITCH

JsSET FOR SIX(6) DIGITS

2:SET THE

ITERATION COUNT

;3SAVE RS
::GET THE NUMBER OF DIGITS TO TYyPpE

NEG
ADD

#6 R4

::SUBTRACT IT FOR MAX

MOVS

$OFILL R4

J:GET THE ZERO FILL SWITC(H
;;PICKUP THE INPUT NUMBER
.. CLEAR THE OUTPUT WORD
:JROTATE MSB INTQ ''C**

Mov8

R4 , SOMODE

MOV
(LR

12(SP) RS

ROL

IT FOR USE

ALLOWLD
-

;GO DO MSB
J:FORM THIS DIGIT

B8R

ROL
ROL
ROL
MOV
ROL

DECB
BPL
BIC
BNE
TST
BEQ
INC

::SAVE

#177770,R3
4%
R4

;. TEST FOR Q
;s SUPPRESS THIS Q?

;sDON'T SUPPRFSS ANYMORE O'S

:iBR IF YES

SINARY

TQ OCTAL

(ASCII)

063436
063442
063446
063452
063456
063462
063464
063466
063470
063472
063474
063476
063500
063506
063510
063512
063513
063514
063515
063516

052703
052703
110337
104401
105337

003747
002402

005204
000744
012605
012604
012603
016666
012616
000002
000
GO0
000
000
000000

TST

AND

TYPE

MACRO v04.00

000060
(00040
063512

063514

7%:

063512

4-APR-81

#'0,R3
#'
RY

R3,8%

2%
(S7)+,RS

6%:

000002

(SP)+ ,R4

(SP)+,R3
2(SP) ,4(SP)

000004

(SP)+,(SP)

8%:
$OCNT:

$OF ILL: .

$OMODE:

01:15:59 PAGE 40-1

SOODO

" 25M0OBO RMOS/3/2 FCINL

;sMAKE
;JMAFE

SEQ 0257
THIS DIGIT ASCI]
ASCII [F NOT ALRLADY

2:SAVE FOR TYPING

::GO TYPE THIS DIGIT
2 2COUNT BY 1
;:BR IF MORE T0 DO
;:BR [F DONE
JoINSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;;RESTORE RS
::RESTORE R4

:RESTORE R3
::SET

THE STACK FOR RETURNING

s sRETURN

;sSTORAGE FOR ASCII DIGIT

;: TERMINATOR FOR TYPE ROUTINE

:;0CTAL DIGIT COUNTER
;. ZERO FILL SWITCH
s :NUMBER OF DIGITS TO TYPE

CZRMOBO RM0O5/3/2 FCINL TST 3
TYPE

ROUTINE

MACRO v04.00

.SBTIL
S

4=-APR=-81 01:15:59 PAGE 41

SEQ 0258

TYPE ROUTINE

3322220202222 222N
R RERRRRRRERSRRRRER N QS

"*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST
;*THE

ROUTINE

WILL

;*NOTE1:

INSERT A NUMBER OF

NULL

TERMINATE WITH A O BYTE,
(HARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARACTER.
SFILLS CONTAJNS THE NUMBER OF fFILLER CHARA(CTERS REQUIRED.

;*NOTEZ:
J*NOTE3:

SFILLC CONTAINS THE CHARA(TER TO FILL AFTER.

]

s*CALL:
;*1) USING A
I
TYPE
;*0R
.
TYPE

TRAP INSTRUCTION
.MESADR

ME SADR

$TYPE:

TSTIB
8PL

;oMESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

.“

V63520
063524
063526
063530
063532
063534
063540
063546
063550
063556
063560
063564
063570
363572
063602
063604
063606
063610
063612
063616
063620
063624
063626
063632
063634
063636
063640
063642
063646
063650
063654
063660
063662

063666
063672
063674
063700
063704

105737

100002

000000
000430
010046
017600
122737

001011
132737
001405
010037

004737
000000
132737
001003

001173

HALT

000002
000001

001242

000100

001243

063570
070166
000040

122716

001430
122716
001006
005726

001243

105366
002770
004737
105337
000779

MOV

61%:
62%:

33
.

RQ,=(SP)

;218 THERE A TERMINAL?

2:BR IF YES
;:HALT HERE IF NO TERMINAL
;.LEAVE

:;SAVE RO
:.GET ADDRESS OF AS(CIZ STRING
;JRUNNING IN APT MODE

MOV

82 (SP) RO

BNE
8l18

62%
23NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;:SPOOL MESSAGE TO APT

B8EQ

MOV
JSR
LWORD
8l18
BNE
Mova
BNE
TST

NAPTENV,SENV

62%

RO,618
PC,SATY3
O
NAPTCSUP, SENVM
603
¢ ,~(SP}
(RO)
43
(SP)+

:iNO,GO CHECK FOR CONSOLE
;:SETUP MESSAGE ADDRESS FOR APT
::SPOOL MESSAGE TO APT

:JMESSAGE ADDRESS
:;APT CONSOLE SUPPRESSED
JIYES,SKIP TYPE OUT

;:PUSH CHARACTER TO BE TYPED IONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
1F TERMINATOR POP IT OFF THE STACK
;2

;;RESTORE RO
;:ADJUST RETURN PC

000002

60%:
3s:

MOV
ADD

(SP)+ RO
¥2,(SP)

000011

4%:

(MP8

AT, (SP)

: JRETURN
;IBRANCH [F <HI>

(MPB

, (SP)
ACRLF

; ;BRANCH [F NOT <CRLF>

ST
TYPE

(SP)+

:;POP <CR><LF> EQUIV
;3TYPE A CR AND LF

$CHARCNT

:;CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
;260 TYPE THIS (HARACTER
2:21S IT TIME FOR FILLER CHARS.”
;1F NO GO GET NEXT (HAR.
::GET # OF FILLER CHARS. NEEDED
JsAND THE NULL (HAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OfFF Of STACK
;GO TYPE A NULL
;D0 NOT COUNT AS A (OUNT

000200

SCRLF

5%:
£$:

001170

000001
063732
064050

BEQ

(CLRB

064050

063732
001172

RT]

BNE

104401

001217
105037
000755
004737
123726
001350
013746

B8R

(MPB

2%:

112046
001005
005726

012600
062716
000002

18:

$STPFLG
18

7%:

BR
JSR
(MPB
BNE
MOV

s
PC,S$TYPEC
SFILLC,(SP)+
23
$NULL ,-(SP)

DE(R

1(SP)

8Ly
JSR

63
PC,S$TYPEC

DEC(B

$CHARCNT

.. LOOP

(ZRMOBO RMO5/3/2 FCTNL

TYPE

ROUTINE

MACKRO v04.00

;HORIZONTAL

063706
063712

063716
063724
063726

063730
063732
063732

063736
063740
063744
063750
063754
063756
063756
063762
063764
063770
063774
064000
064002
064002
064004
064004
064010
064012
064020
064026
064030
064034
064036
064044
064046
064050
064052

112714

004737
132737

001372
005726
000724

105777
100022

017746
042716
122716

001012

105777
100375
117716
042716
122716

001366

000040
063732
000007

8$:

064050

BITB

#7.$CHARCNT

JSR

PC,$TYPEC

1018:

115176
115172

TSTR

a$TKS

108
A$TKB,~(SP)

000021

1028
:

10%:

115154
115146

000002

064050

000002

#177600, ($P)

CMPB

WSXOFF, (SP)

ISTB
8PL
MOVE

a$TKS
1018
@$TKB, (SP)

CMPR

#SXON., (5P)

BNE

BIC

177600

000012

BIC

000023

000002
000915

(SP)+

BPL
MOV

115216
177600

1028

#177600, (SP)

;;REPLACE TAB WITH SPA(E

;. TYPE

A SPA(E

s sBRANCH IF NOT AT
;. TAB STOP
;;POP SPACE OFF STA(CK
2 2GET NEXT (HARA(CTER
::CHAR IN KYBD BUFFER?
::BR IF NOT
;:GET CHAR
;2STRIP EXTRANEOUS BITS
;s WAS (HAR XOfF
;¢BR IF NOT
;sWAIT FOR (CHAR

:;GET (HAR

JISTRIP 1T

1018

JoWAS IT XON?
;:BR IF NOT

(SP)+

JJFIX STACK

ISTB

as$TPS

;2WAIT UNTIL PRINTER IS RFADY

MOVB

2(SP).asTPB

;:LOAD (HAR TO BE TYPED INTO DATA REG.

BNE

BPL

(MPB
BNE
CLRB
BR
MPB
1%:
BEQ
INCB
$CHARCNT: .WORD
$TYPEX:

,(SP)

MOVB
BNE

$TYPE(:

005726
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

9% :

SEQ 025-

TAB PROCESSOR

115222

&-APR=81 (01:15:59 PAGE 4 1= 1

RTS

108

#CR,2(SP)
18
S$CHARCNT
$TYPEX

#LF,2(SP)
$TYPEX
(PC)+
0
PC

1S CHARACTER A CARRIAGE RETURN?
;2

;;BRANCH IF NO
::g;?;‘CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?
;BRANCH IF YES
;. COUNT THE CHARACTER
;s CHARACTER COUNT

STORAGE

rZRMOBO RMOS5/3/2 FCINL TST 3

SCOPE

HANDLER ROULTINE

MACRO v04.00

4-APR-871 01:15:59 PAGE. &2

.SBITL

SEQ 0264

SCOPE HANDLER ROUTINE

2222223323323 22222222Z2RAR0ARRRRRRRRRRRStRRRdRRRRRRRRRRtRRlsdd
)

'THIS ROUTINE

CONTROLS THE LOOPING OF

:*AND LOAD THE TEST NUMBER(STSTNM)
;*AND LOAD THE ERROR FLAG (SERFLG)
S«THE SWITCH OPTIONS PROVIDED BY
;-sw14=1
LOOP ON TEST

;*SW11=1

INHIBIT

104410

004737
032777
001402
000137

064076

000416

064100
064104
064112
064116

013746
012737
005737
012637
000561
022626
012637
000521

064122
064124

064126
064132
064134
064134
064142
064144
064146
064152
064154
064160
064162
64166
064170
064172
064176
064202
064204
064206
064212
064214

064222
064224
064230
064236
064244
004246
064254

:
$SCOPE

064672
040000

115064

1%:
9%

064522

CKSWR
JSR

PC,STOP

BEQ
JMP

9%
$OVER

B8IT

$XTSTR: BR

000400

MOV
TST
MOV

5%:

000004
115012

000025

064540
001122

1772777
064262

MoV

8%:

2%:

065230

J;TEST

#B1T14,3SWR

CODE

FOR

THE

FOR CHANGE

IN SOFT-SWR

::LOOP ON PRESENT TEST?

;oNO IF SW14=0
;. JUMP OVER SCOPE ROUTINE
XOR

TESTERAAAAN

;2
]F RUNNING ON THE 'XOR'' TESTER CHANGE

QN¥ERRVEC,-(SP)

;:THIS INSTRUCTION TO A "NOP'*' (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VECTOR

$SVLAD

;:G0 TO THE NEXT TEST

#5% ,a#ERRVEC
a#177060
(SP)+ ,a#ERRVEC

(SP)+,(SP)+

(SP)+ ,a#ERRVE(C

:2SET FOR TIMEOUT
;s TIME OUT ON XOR?
;:;RESTORE THE ERROR VECTOR

::CLEAR THE STACK AFTER A TIME OUT
i RESTORE THE ERROR VECTOR

::BR IF NO

MOVB
BEQ

aSWR, (SP)
8%

;sPICKUP THE DESTRED TEST NUMBER
::BRANCH [F BAD TEST NUMBER IN SWR

065230
°2G0CS:

-(SP)

{MpP

#25,(SP)

MOV

{(SP) ,$TSTNM

DEC
ASL
ADD
MOV

(SP)
(SP)
#$SWOBTBL,
(SP)
a(SP) + ,SLPADR

1518
8EQ

SERFLG
3%

B8R
TST

$OVER
(SP)+

;:CLEAR A TEMP. LOCATION

;s CHECK THE NUMBER IN THE SWR

;;BRANCH IF TEST NUMBER IS OUTM OF RANGE

; ;UPDATE THE TEST NUMBER

:;BACKUP BY ONE
:2SCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER
;2SET LOOP ADDRESS TO DESIRED TEST

:2GO LOOP ON THE TEST
::CLEAN THE BAD TEST NUMBER OFF OF THE STA(K
::HAS AN ERROR OCCURRED?
;:BR IF NO

mMpP

#-1,CPSAVE

Mov
MOV
gov

ERRVE(C,-(SP)
#2000% ,ERRVEC
;gg¥g6.CPSAVE

,.SAVE CONTENTS OF ERROR VECTOR
:SETUP "TRAP' RETURN ADDRESS
MOVE CPU ERROR REGISTER TO (PSAVE FOR TEST

MOv

#-1,CPSAVE

:2SET (PU ERROR REGJSTER TIMEQUT INDICATOR
;:SETUR RETURN ADDRESS

BEQ

000014

065230

ITERATIONS

BEQ

BLT

001116

000004
064246
177766

CMP

CLR

001117

ARE:

;LOOP ON THE PRESENT TEST
73
BR
TESTERAMAANN
XOR
THE
6% #aRRREND OF CODE FOR
8IT
#1708 ,aSWR
;.LO0OP ON SPEC. TEST?

115002

177777

MOV

000604

THIS ROUTINE

::SCOPE-10T

SCOPE

sHMRRASTART

000004
064124
177060
000004

INCREMENT

LOOP ON TEST IN SWR<7:0>

;*SW08-1

064054
054054
064056
064062
064070
064072
064076

IT WIiL

LOOP ON ERROR

2 *SW09=1

;*CALL
%

SUBTESTS.

INTO THE DISPLAY REG.(DISPLAY<7:0>)
INTO DISPLAY<15:08>

MOV

2003s

#2001%, (5P)

::SEE IF TIMFOUT WAS PREVIOUSLY RECORDED

.,KICK AROUND ROUTINE IF SO

~ANDLER ROUT INE

064260
064262
064266
064274
064276
064 304
064306
064314
064320
064324
064332

064336
064346
064366

064352
064356
064356
064364
064366
064374

064376

064404
064406
064412
064416
064420
064426
064430
064434
064436
064442
064450
064452
064460
064466
064472
064500
064504
064510
0646514
064522

064530
064534
06436
064540

0064540
064542
064544
064546
064550
064552
064554
064556
064560
064562

000002

MACRO v04.00

RY]

012637

(00004

022737
001430
032737

1272777

065230

000001

065.30

000001
001154
000000
000176

177766

001154

SWR,~(SP)
a(5P),=(SP)
#176,SWR

001000

114610

#31709,aSWwR

001424
042737
013746
017646
012737
011677
062777
104177

114616

012676
012637

000000
001154

123737
101015

0G1131

00117

0C1000

114560

001124

001122

032777

001404
013737
000446
105037
005037
0C0415
032777
001011
005737
001406
005237
023737
002024
012737

013737

105237
113737
011637
011637

005037

112737

013777
013716
000002
000005

001117
001206
004000

20018$:

MOV

(SP)+ ERRVEC

:;RESTORE CONTENTS OF

2002%-

(mp

#-1,CPSAVE

;sSEE IF CPSAVE HAS (PU ERR REG TIMEOUTTM [ND]ICATION
JJBRANCH IF SO

BEQ
BIT
BEQ
BIC

2003$

#31700, CPSAVE

2003s
#B]T00,177766

(SP) ,aSWR

177
(SP)+,5(SP)

2003s:

000001
064536
001116
0011176
001122
001124
001210
000001
001116
001122

THE POWER MONITOR 81T

IS ON

;:CLEAR THE BIT FOUND T0O BE SET
;.SAVE SWR ADDRESS

(LEAR

::SAVE SWR VALUE
;sGET SOF TWARE SWR ADDRESS

;oGET CURRENT SWR VALUE
JsDON'T ALLOW LOOP ON ERROR ON THIS ERROR

%ERMAX.SERFLG

;;MAX.

2§1T09.85UR

;:LO0P ON ERROR?
;sBR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

#3711 ,3SWR

ERRORS

;:BR IF NO

FOR

THIS

TEST QCCURRED?

;. JERC THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE
J;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
::BR IF YES
;IF FIRST PASS OF PROGRAM

001230
001120
001206

;BRANCH TO CONTINUE ROUTINE

(SP) +,>WR

SERFLG
$TIMES
1$

3%:

JISEE

ERROR VECTOR

38CALL SPECIAL POWER FAJL BJT ERROR (ALL
2JRESTORE SWR TO ORIGINAL VALUE
23RESTORE SWR ADDRESS

$LPERR, $LPADR
$OVER

7%:
A ¥

114526

&-APR-8:1 01:15:59 PAGE 42-1

00122¢

001131

1146426

SOVER
#1,$1CNT
SMXCNT ,STIMES
$TSTNM

;:BR IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER
;sSET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS

STIMES SICNT

001120

001120
001206

$ICNT

INHIBIT JTERATIONS
;
..INCREMENT ITERATION COUNT

1%:

$SVLAD:

$TSTNM_ STESTN
(SP) ,$LPACR
(SP) ,$LPERR

MOV
RT]

5.
$SWOBTARL:
$IN-1
-REPT

SMX(NT:

. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD

[TERATIONS MADE

:sSET

TEST NUMBER IN APT MAILBOX

;;SAVE

ERROR LOOP ADDRESS

;. SAVE SCCPE LOOP ADDRESS

;;CLEAR THE ESCAPE FROM ERROR ADDRESS
#1, SERMAX
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM QDISPLAY ;;DISPLAY TEST NUMBER
$LPADR, (SP)
;sFUDGE RETURN ADDRESS
;:FIXES PS
;:MAX. NUMBER UF ITERATIONS
SESCAPE

$OVER:

;s CHECK THE NUMBER OF

TST1+2
TST2+2
TST342
TST4+2
TST5+2
TST6+2
TST7+42
TST10+2
TST11+2
TST12+2

;:STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
;. STARTING ADDRESS
:;STARTING ADDRESS
:;STARTING ADDRESS
;. STARTING ADDRESS
;. STARTING ADDRESS
;. STARTING ADDRESS
;;STARTING ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TESY
TEST
TEST
TEST
TEST

i
2 A VAR L ¥ 1S T

SCOPE

ST 3

=20

“IRMOBR) RMOS5/3/2 FCTNL

~ANDLER ROUTINE

0646564
064566
064570
064572
064574
064576
064600
064602
0666064
064606
5 064610

022270
023312
025160
026564
027604
030522
031560
032564
033572
034600
035626

.WORD
.WORD
LWORD
LMWORD
L.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
LWORD

TST13+2
TST14+2
TST15+2
TST16+2
TST17+42
TS5120+2
TST21+2
TST22+42
TST23+2
TS724+2
TST25+2

;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
;. STARTING ADDRESS OF
;STARTING ADDRESS OF
s STARTING ADDRESS OF
;:STARTING ADDRESS OF
. STARTING ADDRESS OF
s STARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
;;STARTING ADDRESS OF

TEST
TEST
TF<,
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT

5 064612

064612
0646616

]

4-APR-81 01:'5:59 PAGE 42-2

064622
064624

(12746
012746
000002

000140
0645264

STOP:

648:

SRAISE

9 0646246

064630
064634
064636

U 064636

012746

012746
00002
000207

000240

064636
65%:

MOV
MOV
RTI

PRIORITY

#PR3,-(SP)
#64%,-(SP)

INHIBIT

;;PUT NEW PS ON STA(CK
;;PUT NEW PC ON STA(K
;;POP NEW PC AND PS

CONSOLE

INTERRUPT

MOV

4PR5,~(SP)

;;PUT NEW PS ON STA(CK

RTS

;RETURN

MOV
RT!

#658,-(SP)

;;PUT NEW PC ON STA(K
::POP NEw PC AND PS

VB W)= OOV
S W

UPE

MACRO v04.00

PORLNONLPNOND)
=2 = -3 — —2

JRMOB0 RMCS/ 972 FCINL TST 3

(ZPMOBO RMOS/3/2 FCTNL TST 3

ERROR HANDLER ROUT iNE

MAZRO v04.00

D
3
4-AFR-81 01:15:59 PAGE 43

.SBTTL

[

SEQ 0263

ERROR HANDLER ROUTINE

""'.."l".".'..."fi.""".."t'...t..t"'tt't't..t.tttl'...'t.'

;*THIS ROUTINE WILL

INCREMENT

THE

ERROR FLAG AND

THE

ERROR (OUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR (ALL
;*AND GO TO ERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15=1
;*SW13=]
;*SW10=1
; *SW09=1
;*CALL
. %

064640
C64644
066646
064652
0646654
G6L£562
064670

064672
064676
064702

064736
064714
064722
064730
064732

064740
064742

064746
064750
064756
064760
064764
064772

105037
104410
105237

001775
013777
032777
001402
104401

005237
011637
162737
117737
032777
001060

065232

$ERROR:

001117

7%:

001116
002000

001212
001126
001132
000002

114274
114264

114212
001000

122737

000177

001130

105737
001047
022737
001445
013746
012737
013737
000406

065232

001454

065230

000004
065002
177766

000004
065230

177777

065230

012737
012716
000002
012637

065022
065030
065032
065040
065042
065050
065056
065064

022737
001420
032737
001414
042737
113737
112737
000402

065066
065072
065072
065100
065102

105037

065232

032777
001004
004737

020000

065016

000004

065230

000001

065230

000177

065234

CLRB
CKSWR
INCB
BEQ

1BSAVE

::CLEAR THE

$ERFLG

;:SET

177766

065232
001130
1003$:
114054

:
10048

ITEM BYTE SAVE LOCATION

THE ERROR FLAG

:;DON'T LET THE FLAG GO TO ZERO

STSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

;;BELL ON ERROR?

INC

LSBELL

$ERTTL
(SP) ,$ERRP(

;s sRING BELL

TYPE

MOV
suB
MOVB
BIT
BNE
CMPB

MOV
MOV
MOV

1002%:

7’3

ITEM NUMBER

23TEST FOR CHANGE IN SOFT-SWR

#3]1T10,3SWR

BNE
mp
BEQ

1000$:

; sERROR=EMT AND N=ERROR

BIT
BEQ

BEQ

1001$:

177777

000001
001130

ERROR

TSTB

177777

065000
065002
065010
065014
065016

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

MOV

1%:

001132
001130
1146224

HALT ON ERROR

#2,8ERRPC

OSERRPC,$ITEMB
#BIT09,aSWR

;:NO - SKIP

;;COUNT THE WUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

1004%

;:STRIP AND SAVE THE ERROR ITEM CODE
;:SEE IF LOOP ON ERROR IS SET
; ;BRANCH AROUND ROUTINE IF SO

1004%

; sBRANCH AROUND ROUTINE IF

#1777 .81TEMB
IBSAVE

1003$

#-1,(PSAVE
1004$

ERRVEC,-(SP)
#10008 ,ERRVE(
}55¥26.CPSAVE

:;SEE IF THIS IS THE POWER FAIL CALL
IT IS

::SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINF
::BRANCH [F SO

;2SEE IF CPSAVE HAS CPU ERR REG TIMEOUT
;:BRANCH IF SO

INDICATION

;s SAVE CONTENTS OF ERROR VECTOR
;:SETUP 'TRAP' RETURN ADDRESS
2 :MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MOV
MOV
RTI
MoV

#-1,CPSAVE
#1001, (SP)

;:SET CPU ERROR REGISTER TIMEOUT
2:SETUP RETURN ADDRESS

(SP)+ ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

(mP
BEQ
BIT
BEQ
BIC
MOVR
MOvB
BR

#-1,CPSAVE
10048

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT
; :BRANCH IF SO

1004%

;2BRANCH [F OK

$1TEMB, IBSAVE
”77,81TEMB
1004%

: :MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL
;:SET SITEMB TO SPECIAL POWER FAIL POINTER
:;BRANCH OVER IBSAVE CLEARING

#8]1700, CPSAVE
#M1700,177766

CLRB

1BSAVE

BIT

#BIT13,aSwR

BNE
JSR

20%

PC,ERRTYP

INDICATOR

INDICATION

;:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG

;;CLEAR THE BIT FOUND SET

:;CLEAR IBSAVE SO 2ND TIME THRQUGH EXITS
;:SKIP TYPEOQUT IF

::SKIP TYPEQUTS

SET

;.G0 TO USER ERROR ROUTINE

(ZRMOBO RMOS/3/2 FCTNL

fFROR HANDLER ROUTINE

065106
065112
065112
065120
065122
065130
065134
065135
065136
065140
065144
065146
065152
065154
065156
065160
065160
065166
065170
065174
065200
065202
065206
065206
065214
065216
065220
0€5220
065224
065226
065230
065232

1ST

MATRO v04.00

104401

001217

122737

000001

001242

113737

001130
070176

065134

001007
004737
000
000
000777
105737
001005
005777
100002
000000

508

21s:

22%:
2%:

065232
114007

032777
001402
013716
005737
001402
013716

001000

022737
01001
000000

037242

105737

065232

TYPE

.SCRLF

(MPR
8NE

MOVB

AAPTENV, SENV
28
SITEMB,21%

BYTE
BYTE

0
¢

JSR

B8R

TSTR

B8NE
TST

8PL

104410

001210
000002
000009
000000

S
E
4-APR-81 01:15:59 PAGE 43-1

113766

HALT

P({,3ATY4

. sBRANCH IF NOT = NO HALT OM PWR MON BIT ERROR
;sHALT ON ERROK

::SKIP IF CONTINUE
. sHALT

ON ERROR.

[N 350F T=-SWR

:;BR [F NONE

$ESCAPE, (SP)

{MpP

#SENDAD ,an4?2

$LPERR, (SP)
$ESCAPE

TSTR
BNE

IRSAVE
7%

.WORD
.WORD

0
O

RT]

IS LOADED

MOV

(PSAVE:
[RSAVE:

IBSAVE

;:LOOP ON ERROR SWIT(H SET?
;:BF IF NO

HALT

#31T09,aSwR
43

001210

;;SEE

;. TEST FOR CHANGE

MOV
TST

BNE

;;REPORT FATAL ERROR TO APT

33
aSWwR

4%:

000042

;oSET JTEM NUMBER AS ERROR NUMBER

;:APT ERROR LOOP

|B5AVE

001124
061210

BEQ

JsRUNNING IN APT MODE
2:ND,SKIP APT ERROR REPORT

229

(KSWR

BIT
BEQ

SEQ 0264

;;FUDGE RETURN FOR LOOPING
;s CHECK FOR AN ESCAPE ADDRESS

;sFUDGE RETURN ADDRESS FOR ESCAPE

:sACT=11 AUTO~ACCEPT?
; ;BRANCH IF NO
23YES

;oSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
;;BRANCH BACK TO CALL ORIGINAL ERROR
: JRETURN

;.LOCATION TO SAVE (CPU ERROR REG CONTENTS
;sLOCATION TO SAVE [TEM BYTE

"IRMOBO RMOS/3/2 FTINL

tHROR

TYyPEQUT ROUT INE

Mik0 v04.00

@
s
s
B md
e
b

LVEX alVels RNTLRV P YV L .VESYa Vo1, ENT. IV ¥

NV L

.SBTTL

ALNINY
= — —

4-APR-B1 01:15:59 PAGE 44
ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
;*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

LUNIT NUMBER, PRIVE

.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTEC ON

.PAIRED _INES OF ERROR HEADERS AND ERROR DATA ARE PRINTED

: «PROGRAM COUNTER ARE

TYPE,

TEST NUMBER, ERROR NUMBER AND

PRINTED ON THE

FIRST LINE;

J*ONE OR MORE SUCCEEDING LINES:
:*AFTER THE

065234
065236
065264
065246

106414

032777
001402
000137

020000

113710

ERRTYP:

1046401
104401

013746

046074

1%:

066110

001234

065266
065270
065271

104403

065272

065276
065302
065306
065314
065320

013700
016000
042700
012737
022700
001414

001276

071453
000024

06536¢

065322
065330
065334

012737
022700
001406

071446
000025

065360

065336
065344
065350
065352
065356
065360

012737
022700
001004

071460
000027

065360

104401
1044601

066145

065362
065366
065374
065400

005037
013737
104401
013746

066100
001226
066115
066100

065404
065406

104403

065407
065410
065614

003
000

;TYPE

3s:

113737

sTYPE

06610C

48:

TYPE,

.SCRLF

JNO.
.
JYES!.

TEST NUMBER,

ERROR NUMBER,

SUNIT,=(5P)

;TYPE 'DRvA’

TYPQOS
BYTE
.BYTE

3
0

;e TYPE DRIVE N'MBER
;.60 TYPE=--OCTAL ASCII
J:TYPE 3 DIGIT(S)
2 :SUPPRESS LEADING ZEROS

AND

::SAVE SUNIT FOR TYPEOUT

°*DRIVE TYPE' RMO5, RMO3 OR RMOZ FOR UNIT UNDER TEST
MOV

$BASE RO

;GET RM BASE ADDRESS

BIC
MOV
(MP
8EQ

#177740,R0
#$RM03, 3%
#24 RO
’3

:SAVE DRIVE TYPE BITS AND
;GET ASCI] DRIVE TYPE
;1S DEVICE AN RMQO3 2
JYES !

MOV

#SRMO2, 3%

;SAVE ASCII] DRIVE TYPE

BEG

MOV
(mp
BNE

TYPE

1YPE

. WORD

RMDT(R0O) ,RO

#25,R0O

#SRM0S, 3%
227 ,R0
4%

LJERTYOS

TEST NUMBER,

(LR

MOV
YPE
MOV

.BYTE
.BYTE

Go610¢

DRIVE

JINHIBIT TYPEQUTS??

MOV

TYPOS

066102
001130

1%
2’$

LERTY00

TYPE

(mp

2%:

000000

003
009
005037

TYPE

MOV

000026

#5W13,aSwR

UNIT NUMBER,

. PROGRAM (COUNTER

0C1217

177740

SAVRtG

BlT

BEQ
JMP
JTYPE

065252
065256
065262

ERROR MESSAGE.

(LR

MOVR

;GET DRIVE TYPE REGISTER

;1S DEVICE AN RMO? ?
.

;SAVE ASCI] DRIVE TYPE
;IS DEVICE AN RMOS ?
JNO !

JTYPE 0 = "
;TYPE

:DRIVE

DRIVE

TYPE

TYPE MFSSAGE

IS STORED HERE

ERROR NUMBER AND PROGRAM COUNTER

TSTAMB

JLCAD TEST NUMBER FOR

$TESTN,TSTNMB
,ERYYOI
TSTNMB,~(SP)

:TYPE “'TST#"
::SAVE TSTNMB FOR TYPEOQUI

3
0

;:VTYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZERQS

$SITEMB,FRRNMS

:TYPEQUT

£ RRNMB

;. TYPE TEST NUMBER

;260 TYPE=-=OCTAL ASClI

;LOAD ERROR NUMBER FOR

JRMOBO RMOS/3/2 FCINL

FRRUR

TYPEQUT ROUTINE

p) C 065422
S T 065426
b) 2 065430

104401

013746

065444

013746

065450
065452
065453

104403

57 065454
58 045460
59 065462

005737
001002
000137

066102

61
62
63
64

065466
065472
065476
065502

104401
105037
105037

66
67
68
€9
70

065512
065514
065520
065522
06524

0C1217
066106
066107
066102
000177

65 065506

013700
122700

/3 065534

75 065536

001507

78 065540
79 065542

012102
001505
010237
005037

065526

80 065544
81 065550
82 065554
83 065556
84 065560
85 065564
86 065566
87 065572
88 065574
89 065600
90 065602
91 065606
92 065610
93 065614
94 065622
95 065624
96 065626
97 065632

78 065636

—
—

S%:

112203

001454
122703
001003
105037
000770
122703
001765
122703
001007
05237
132737
001372
000407

10523%7
122703

001002

BYTE
BYTE
TYPE

MOV

TYPOS

BYTE
BYTE

00¢
001

01003
012700
000405
006300
006300
006300
062700
011001

/2 065530

-0

000

003

(]

TYPE
MOV
TYPOS

104403

104401

6 5
4-aPR-87 (Q1:75-59 PAGE 44-1
fFQ

(66125
066102

065434
065436
065437

2 065440

001406

MARD v04.00

T or 3

7%:

JTYPE ""RRA'
;2SAVE ERRNMB FOR
..G0

3
0
LERTYO3

8%:

$ERRPC,=-(SP)

:: TYPE PROGRAM (OUNTER
;:GO TYPE-=OCTAL ASC!I]

JITYPE 6 DIGIT(S)
;:TYPE LEADING ZEROS

6
1

9% :

TYPE

LSCRLF

:YES=TYPE

BOTFLG
CHRCNT
ERRNMB RO

ggv

;szrH.RO

10%:

065712
066104

118:

000015
065107

“2%:

000012

000011

066107

13%:

14%:

2177 ,R0
8s

ASL
ASL

RO
RO

ADD

#SERRTB-8.
,R0

MOV

BEQ
:TYPE

UNLESS ERROR NUMBER S O

:BR IF YES
JNO=-=EX1T

CLRB
CLRB
MOV

THE

(RO) ,R1

19%

ERROR MESSAGE

MOV

(R1)+,R2

BEQ
MOV
(LR
MOVR
BEQ
(MPR
BNE
(LRB

19%
R2, 8%
BOTADR
(R2)+,R3
17%
#(R,R3
12%
CHRCNT

(MPR

#LF ,R3

BNE
INCB
BITR

14%
CHRCNT
#7,CHR(NT
13%$

B8R

BEQ
(MPB

BNE
B8R
INCB
(MPR
BNE

118
#HT ,R3

15%

CHR(NT
~ ,R3Y
15%

ASCil

;:SAVE SERRPC FOR TYPENUT

7%
27%

ASL

001572

TYPE-<OCTAL

JTYPE 3 DIGIT(S)
; ¢« SUPPRESS LEADING ZEROS
JTYPE 'PL="f

ERRNMB

BNE
JMP

TYPECUT

:2TYPE ERROR NUMBER

TST

CMPB
BNE

066152

066107
000040

JSKIP IF NO ERROR CALLED

JERTYD?
ERRNMB , - (SP)

:GENERATE POINTER TO ERROR TABLE

69%:

066074

066107
000007

;WAS AN ERROR CALLED?

(CRLF

;CLEAR BOT FLAG
:CLEAR CHARACTER COUNTER
o;R0O POINTS T0 FIRST OF

JSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
JBRANCH [F NOT
:MOVE POWER FAJL ERROR CALL
;FOUR ENTRIES
;TABLE
:?1

PglNTS

TABLE

IN ERROR

TO ERROR MESSAGE

;s TABL
JBRANCH IF NO ERROR MESSAGE
:R2-ADDRESS OF MESSAGE

STRING

;BRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
:END OF STRING??
JYES!!
;CARRJAGE RETURN??
JNO!!
JYES=CLEAR CHAR COUNT

;GET NEXT CHARACTER
:LINF FEED??

JYES-GET NEXT CHARACTER
;HORIZONTAL TAR??
JNO.
.
JADJUST CHARACTER COUNT

; INCREMENT (HARACTFR COUNT
;SPACE??
sNO.

T0 RO

" /RMOBC RMOS/3/2 FLTNL

FRROR

"YPEQUT

95 065640

NN — (&}
IO N
2OV
~NOwn» S NN

D e

= 2
[qV1, V1,V POPONUNIUNY

d D e —d ek e ol

2 ed =

100 065644
065652
102 065654
103 065660
104 065662
105 65666
'06 065672
“07 065676
08 065700
199 065702
065710
065712
065714
065720
065722
065726
065732
06573%6
C65742
065746
065752
065754

—

065756
065762
065764
065770
128 065774
129 066000
130 066004

131
132 066006
133 066010

13, 066012
*35 266016
136 066020
137 066022
138 066024
“39 066026
066030
141 066032
162 066034
143 066036
144 066040
145 066042
146 066044
147 066046
066050
149
150
151
152
153
154
'35

06€052
066054
066056
066060
066064
066066
066072

MACRO v04.00

4-APR=-8B1

H
5
(':15:59 PAGE 44-2

stu uct

ROUTINE

019237

066104
C00100

013794
001007

066104

122737
103340

10440
105037

013702
000726
105044

112737
104401

000000
105737
001707
104401
105C37
105037

013702
010237
112742
105722

066107

15%:

001217
066107
065712
177777

066106

016002
016003
012137
001433

104401
000000
1046401

005702
001767
012204
012305
105725

001217
000004
000006
066010

001217

066106

16%:

17%:
18%:

:TYPE
19%:

20%:

21%.

104405

23%:

104406

104401

06€142

104401

061217

006742

;SAVE ADDRESS OF

118
BOTADR,R&

16%

JNO.!
;GET ADDRESS OF LAST SPACE
:BRANCH IF SPACE DETEC(TED

CHRCNY
}?%,R?

:CLEAR CHARACIER CNUNT
:SET UP R2 FOR TESTING

LSCRLF

~-(4)

#-1,B0TFLG

JEND OF

JTYPE

LINE??

SPArE

CRLF

JREPLACE SPACE
;SET BOT FLAG
;TYPE

ERROR MESSAGE

STRING

BOTFLG

:STRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??

TYPE

LSCRLF

:YES=-TYPE

108

CLRB
CLRB
MOV

BOTFLG
CHRCNT
BOTADR,R?

MOVR
TSTB
BR

#' ,-(R2)
(R2) +
118

R2,18%

JNO!!

CRLF

;CLEAR BOT1 FLAG
;CLEAR CHARACTER COUNT
;SETUP R2 FOR TESTING

;SETUP 18% FOR TYPING
JRESTORE SPACE
:RESTORE R?
;TYPE REST OF STRING

ERROR HEADER AND ERROR DATA

MOV

2(R0O) ,R?

:R1 POINTS TO ERROR HEADER TARLE

TYPE

LSCRLF

; (ASSUME

NO DATA)

: (ASSUME

END OF

BEQ

MOV
MOV
MOV
BEQ

TYPE

278

4 (RO) ,R2
6(R0),R3
(R1)+,21%
27%

.WORD

BEQ .
MOV
MOV

20%
(R2)+,R4
(R3)+,RS

TYPE
TSY

TSTB

8M]
BEQ

LSCRLF
R2

(R5) +

24%
23

MOV

a(R4L) +,=-(SP)

BR
MoV

25%
D(R4)+,=-{SP)

TYPOC

24%:

MoV

25%:

TST

TYPRN

:R2 POINTS TO DATA ADDRESS TABLE
:R3 POINTS TO FORMAT TARLE
:PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
DATA)

;HEADER ADDRESS GOES HERE
:DATA WITH HEADER??

JNO!!
;R4 POINTS TO DATA ADDRESS
:R5 POINTS TO FORMAT
JWHAT KIND OF

;BINARY
;OCTAL

DATA??

;DECIMAL

25%

(R4)

;MORE

LERTYO4

JYES=TYPE

26%

22%

20%

TYPE

;BRANCH IF NO HEADER

A(R4)+ ,=(SP)

BEQ

TYPE

J68:

R2,BOTADR

#64 . ,CHRCNT

.WORD
TSTR

TYPDS

000405
013446
104402
000402
013446

000760

TYPE

MOV

013446

005714
001483

CLRB

MOVR

8EQ

22%:

100407
001403

BHIS
MoV
BNE

(LRR
;gv

001217
066106
066107
066104
065712
000040

000002

(MPR

TYPE

000677
016001
001444
104401

LSCRLF

;NO.!

DATA??

2 SPACES

JAND CONTINUE

:TYPE ONE BLANK { INE

:BEFORE NEXT HEADER

RMOB(

SRRGR

QmMO5/7342 FUTNL

TYPEQUT

'S6 066076
157 066076
158
169 066100
"60 066102
161 066104
162 066106

‘63 066107
164
165 066110
166 066175
066125
168 066134
169 066142
066145

171
172 066152
173 066162
174 066166
175
176 066250

177 066254
178
179 066266

180 066270
181 066274
182 066276

Ter

ROUT INE

MACRD v04.00

1064°5

27%:

RESREG
RTS

¢00000

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

.WORD
.WORD
.WORD
.BYTE
BYTE

000207

122

040

040
C40
040
(40
055

0661¢2
066166

066250
000000

066254

000000

120

103

066270
065230
066276
o0¢

117

120

000000
000

126
124
105
120
000
040

066266

127
125

4<~APR-B® (01:15:59 PAGE 44=3

ERTYO0:

ERTYOY:

ERTY0D3:

ERTYOZ2:

ERTYO4:
ER*YODS:
.EVEN
PFECH:
PFECH:

PFECHZ:
PFECHS:
PFECHS:

.
.

SEQ 0268

(TEST NUMBER

.ERROR NUMBLR
JHEGINNING OF
¢

TEXT ADDRESS

;BOT FLAG
s CHARACTER COUNT

aDvaa
a, TESTA#
a, ERR¥Q
a3, PC=a
a
3
2 -a

PFECHT ,PFECH2 ,PFECH3,PFECH4 ;WORDS DEF INING TABLES BELOW
.+6,0
7POWER MONITOR BI” IN (PU ERROR REGISTER FOUND SET?
LASCIZ
.EVEN

.*6,0
LASCIZ
LEVEN
.WORD
.+
BYTE

?CPUERREG?
CPSAVE
O

0.0

JIMB0 RMOS5/3/2 FITNL

“Ty

INPUT ROUTINE

*PACRO v04.00

4-APR-81

J
5
01:15:59 PAGE 4>
bY SVERNPH

LSBTITL

TTY

INPUT

ROUTINE

':'.'...t.t'..'lt.t!."""'Q'.Q.t...tttt"'ttQ'Q"lt'.'t.t.'t.t'

N66300
066302
066304
066306

"ENABL

LSB

000000
000000

$TKCNT:
$TKQIN:

066307

$TKQEND=.
.EVEN

$TKQOUT:
$TKQSRT:

000000

.WORD
.WORD

.WORD
,BLKB

;:NUMBER OF TEMS [N QUEUE
;3 INPUT POINTER
J:0UTPUT POINTER

0
0

2:TTY KEYBOARD QUEUE

J*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL

;*SETUP THE

TeCALL:
M

066310
066314
066322
066330
066336
066344
066350
066356

005037
012737
013737
012737
012737
005777
012777
000207

066300
066306
066302
066360
000200
112612
000100

066302
066304
000060
000062

$TKINT:

JSR

PC,STKINT

CLR

$TKCNT
#$TKOSRT,$TKQIN
$TKQIN,$TKOOUT
#$TKSR
,a# TKVE(
V

RE TURN
MOV

MOV
MOV
MOV
TST
MOV
RTS

112602

INITIA_IZE

THE

TTY KEYBOARD

INPUT

QUFUE

INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

#200,3#TKVE(+2
as$TkB
#100,3%TKS
PC

;s CLEAR (OUNT OF ITEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT B OUTPUT POINTERS.
;2 INITIALIZE THE KEYBOARD VECTOR
:2'BR" LEVEL 4
;:CLEAR DONE FLAG
:2ENABLE TTY KEYBOARD INTERRUPT
J:RETURN TO CALLER

;*"K SERVICE ROUTINE
s*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'' (*() STKINT IS CALLED AND
;*UUPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'' RESTART ADDRESS (SHUT?2)

066360
066370
066374
066376
066402
066402
066406
066410
066414

066420
066422
066426
066432

066442
066444
066444
066452
066454

117746

042716
021627
001002
005726
000002

021627
001007
104401

004737
005726
000137
021627
001004
022737
001500

BIC
cme
BNE

30%:

000003
067506
066310

000176

000001

104401

001212

1S7
RTI

001154

066300

2%:

#AC177,(5P)
(SP) ,#$XON

308

(SP)+

(SP) ,#3
1%

JSR

PC.STKINT

JMP

SHUT2

BNE
(MP
BEQ

TSTY

1%:

3$TKB, ~(5P)

(MP
BNE

TYPE

067550
000007

022737
001004

$TKSRV: MOVR

112576
177600
00021

(MP

cmMpP
BNE

TYPE

;:PICKUP THE CHARACTER
::STRIP THE JUNK
;:1S 1T A RANDOM XON?
JsBRANCH [F NO
; :CLEAN RANDOM XON OFF STACK
s sRETURN

::1S IT A (ONTROL C?

: JBRANCH IF NO

LSCNTLC

2 TYPE A CONTROL-C

(SP)+

;:CLEAN UP STACK
;2CONTROL C RESTART

;o INIT THE KEYBOARD

(*O)

(SP) 47

J:1S IT A CONTROL G?

#SWREG, SWR

2:1S SOFT-SWR SELECTED?
26N TO SWR CHANGE

#1,8TKCNT

LEBELL

; sBRANCH IF NO

;o 1S THE QUEUE FULL?
;BRANCH IF NO
JoRING THE 7Ty BELL

{2ZRMOBO RMOS/3/72 FCTNL

TTY

INPUT ROUTINE

066460
066462
066464
066470
066472
066476
066500
066504
066506
066512
066516
066522
066524
66532
065534
066540
066544
066546
066552
G66554
066560
066564
366570
066576
066600
066606

005726
000451
021627
001021
005077
005726
105777

100375
117746
042716
022627
001366
012777
000002

005237
021627

002405
021627
003002
042716
112677
005237
023727
001003
12737
000002

TST 3

MACRO v04.00

000023

022737
001124
105777
100121
117766
042716
021627
001300

(MP
BNE
CLR

112462

21¢:

112450
177600

000100

112426

320%:

066300
000140
000175
0G0040

A ¥

177516

066302
066302

066307

066306

066302

000176

001154

TST

ISR

B8PL
MOVB

BIC
CMP
BNE

000021

MOV
RT!

INC

CMP
BLT
CMP
BGT
BIC
MOVB
INC
CMP
BNE
MOV

5%:
S

066610
066616
066620
066624
066626
066632
066636
066642

1ST
BR

3%:

112454

4~-APR-81 01:15:59 PAGE 45-1

RT]

(SP)+

b} |
(SP)
, 423

SEQ 0270

::EkE?N CHARACTER OFF OF STA(K

2218 1T A CONTROL~-S?
JJBRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
(SPY+
;:CLEAN CHAR OFF STACK
QA$TKS
JsWAIT FOR A (CHAR
218
;.LOOP UNTIL ITS THERE
Q$TKB,=(SP)
;:GET THE CHARACTER
#2177, (SP)
;:MAKE T 7-BIT ASCJI
(SP) +,#21
;:JS IT A CONTROL-Q?
31s
;JBRANCH IF NO
#100,2%TKS
;;REENABLE TTY KEYBOARD INTERRUPTS
;;RETURN
$TKCNT
;:COUNT THIS CHARACTER
(SP)
, #4140
;218 1T UPPER CASE?
48
; JBRANCH IF YES
(SP) ,#175
;318 IT A SPECIAL (CHAR?
4%
:JBRANCH IF YES
#60, (SP)
s JMAKE IT UPPER (ASE
(SP)+,a$TKQIN
J:AND PUT IT IN QUEUE
$TKQIN
: JUPDATE THE POINTER
$TKQIN,#$TKQEND ;:G0 OFF THE END?
5%
::BRANCH ]F NO
#$TKQSRT,S$TKQIN :¢RESET THE POINTER
32¢
2$TKS

; JRETURN

2323222822328 223223232222232220232
2322823223 282228222R2822R3822¢28280¢8 83}

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR:

112334

(MP

BNE

1STB
BPL

112330
177600

#SWREG,
SWR

158
asTKsS
15%
a$TkB, - (SP)

#*C177,(SP)

(SP) ,#7

000007

:21S THE SOFT~SWR SELECTED
JEXIT IF NOT
:; 1S A CHAR WAITING?
J3IF NOT, EXIT
22 YES
J:MAKE IT 7-BIT ASCIlI
;218 IT A CONTROL-G?
;o1F NOT, PUT IT IN THE TTY QUEUE
JAND EXIT

::ttt.'t*tttttltt"l!t!itittl'tt'.i*fifi'itlttfiit.t't'ttt'tt!'t‘ttt

;=CONTROL IS PASSED TO THIS POINT rROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
066644
066652
066654
066656
066662
066666

066674
066700
066704
066710

123727

001674
005726
004737
005077
112737
104401
104401

013746

104402

001150

000001

«ONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

6%:

066310
112272
000001

067520
067525
000176

001151
$GTSWR:

CMPB

BEQ
1ST
JSR
CLR
MOVR
TYPE
TYPE
MoV
TYPOC

#1
SAUTOB,
23
(SP)+
PC,S$TKINT

987KS

#1,3INTAG

LSCNTLG
. SMSWR
= (SP)
SWREG,

;oARE WE RUNNING IN AUTO-MODE?

:sBRANCH If VYES
;o CLEAR CONTROL-G OFF STACK
:oFLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR

;:ECHO THE CONTROL-G (*G)
;:TYPE

CURRENT CONTENTS

;:SAVE SWREG FOR TYPEQUT
;160 TYPE-=OCTAL ASCII(ALL DiGITS)

“JRMOBC RMQS/3/2 FCTNL

"TY

INPUT

ROUTINE

066212
066716
066720

066722
066726

104401

005046
005046
105777
100375

MACRO v04.00

067536

19%
-

112232

7%:

&-APR-81
TYPE

CLR
CLR
1STB
BPL

066730
066734

117746
042716

112226
177600

MOvA
BIC

066740
066744
066746
066752
066756
J66764
066766
066774

021627
001015

000003

CMp
BNE
TYPE
ADD
CMPB
BNE

104401

062706

123727

001003
012777
000137

67000
067004
067006
067012
067016

021627
001005

067020
067024
067026
067032
067034
067042
067046
067052
067060
067062
067070
067072
067076
067102
067104
67110
067112
067116
067122
067124
067126
067130
067132
067136
067142
067144
067150

021627
001022
005766
001403
016677
062706

104401

062706
000737

104401
123727
001003
012777
000002
004737

021627
002420
021627
003015
042726
005766

001403
006316
006316
006316
005266
056616
000667
104401

000720

067506
000006
001151
000i90
067550

000001
112164

8%:
9%:

000025

067513

000006

20%:

000015

10%:

000004
112112

000002
000006
001217
001151

000001

000100

112070

17%:

001216

18%:

177776

.DSABL

::1F NOT TRY AGAIN

a$TKB, = (SP)

s:PICK UP CHAR

(%), 43

;1S IT A CONTROL-C?
;:BRANCH F NOT

d$TKS

#AC177,(SP)
9%

L$CNTLC

#6,SP

$INTAG,#1
8s

FOR NEW SWR

;:CLEAR COUNTER
J:THE

NEW SWR

;sCHAR THERE?

JJMAKE [T 7-BIT ASCII

;2YES,

ECHO CONTROL=-C

;218 1T A CONTROL-U?

19%

;;LET'S TRY IT AGAIN

BNE

TYPE
ADD

SHUT?

LSCNTLU
#6,SP

(~()

s CLEAN UP STACK
:JREENABLE TTY KEYBOARD INTERRUPTS?
: ;BRANCH IF NO
JcALLOW TTY KEYBOARD INTERRUPTS
;:CONTROL~C RESTART

(SP) ,#25
108

; BRANCH 1F NOT

::YES, ECHO CONTROL-U (*U)
;- IGNORE PREVIOUS INPUT

MOV

#100,38TKS

22IS IT A <CR>?
;:BRANCH IF NO
;JYES, IS IT THE FIRST (HAR?
:;BRANTH [F YES
. :SAVE NEW SWR
;s CLEAR UP STA(X
;ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
; :BRANCH [F NOT
JJRE~-ENABLE TTY KBD INTERRUPTS

JSR

PL,.STYPEC

; sECHC CHAR

CMP
BGT
8I(
TST
BEQ

#60, (SP)+

; sBRANCH [F YES
::STRIP=-OFF ASCI]

ctmp
BNE
TST
BEQ
MOV

cMP
8LT

000002

:;PROMPT

(MP

RT]

000060
000002

i
. SMNF
-(SP)
=(SP)

#100,987TKS

JMP

BNE

000067

SEQ 0271

MOV

ADD
TYPE
CMPB

063732
000060

5
L
01:15:59 PAGE 45-2

ASL
ASL
ASL

{SP) ,aSWR

SINTAG,#1
15%

(SP)
. #60
18%
(SP) ,#67
18%

2(SP)
17%
(SP)
(SP)

2 IRETURN

;;CHAR < 0?
:;BRANCH F YES
2:CHAR > 7?

;31S THIS THE FIRST (HAR
::BRANCH [IF YES

2:NO,

SHIFT PRESENT

INC
BIS
BR

2(SP)
-2(SP), (SP)
7%

CHAR OVER TO MAKE
HH
ROOM FOR NEW ONE.
MK
;;KEEP COUNT OF (HKAR
J:SET IN NEW CHAR
;oGET THE NEXT ONE

BR
LSB

20%

;s SIMULATE (ONTROL-U

TYPE

(SP)

L,B0QUES

::TYPE

2<CR><LF>

:"Qfltitit'itt'ttflfi.tfi"i"Qt"i"Q'Qt'lfi‘t't.'tltw"t.!t!tt'ttttt

“JRMOB) RMOS/372 SCTINL
TTy INPU!t ROUTINE

TST 3

MACRO v04.00

4-APR-B1

(1:15:59 PAGE 45-3

SEQ 0277

:'g:IS ROUTINE WwllL INPUT A SINGLE C(HARA(TER FROM THE TTY
s*CALL:

I
X

M
67152
067154
067162
067166

0672170

067174
067176
067176
067202
067204
067210
067216
067222
067230
067232
067240

011666
016666
005066
005046

(000004
000004

012746

067176

005737
001775
005337
117766
005237
023727
001003
012737

066300

000002

066300
177070
066304
066304
066306

000002

RDCHR
RETURN HERE

$RDCHR: MOV
MOV
(LR
CLR

MOV
RTI

64%:

1%:

1ST
BEQ
DEC
MOVB
INC
CMP
BNE
MoV
RTI

000004

066307
066304

2%:

L (5P)
-(SP)

#6469 ,-(SP)

;*
o¥

067262
067264
067270

112613
122713
001022

067256
067260

067272
067276
067276
067304
067310
067314
067316
067322

067324
0h7330
067334
067336
067340
067342
067350

06735¢
067356
067362

010346

101456
104411

005716
001007
112737
104401
012716
005303
020327
103434

111337
104401
000746
005716
001406
112737
104401

005016
122713
001003

;:PUSH DOWN THE PC AND
;. THE PS
:2GET READY FOR A (HARACTER
$PUT NEW PS ON STACK

J2PUT NEW PC ON

STACK

;:POP NEW PC AND PS

STKCNT
J:WAIT ON A CHARACTER
1%
$TKCNT
;:DECREMENT THE COUNTER
STKQOUT,4(SP)
;;GET ONE CHARA(CTER
$TKQOUT
:JUPDATE THE POINTER
$TKQOUT ,#STKQEND ;:DID IT GO OFF OF THE END?
23
;:BRANCH IF NO
#STKQSRT ,$TKQOUT ::RESET THE POINTER
; SRETURN

2 23 2 2323 322332332223220223222323%22238232322822332222223232322228232¢82¢32}]

. *

005046
012703
022703

J:WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)
4(SP) ,2(SP)

*Egis ROUTINE WILL

067242
067244
067246
067252

J2GET A (HARAUTER FROM THE QUEUE
;s CHARACTER IS ON THE STACK

RDL IN
RETURN HERE

$RDLIN: MOV
067476
067506

1%:
2%:

000177

10%:

000134
067474
177777

6%:

067476

067474
067474
5¢:
000134
067474

000025

067474

7%:

;:TERMINATOR WILL BE A BYTE OF ALL 0°S

;sSAVE R3

;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY

-{(SP)
#STTYIN,R3
HSTTYIN+8.
,R3

MovBe
(MP8
8NE

(SP)+,(R3)
#177,(R3)
5%

MOV
DEC
CMP
BLO
MOVB
TYPE
BR
TST
BEQ
MOVR
TYPE
(LR
CMPR
BNE

#-1,(SP)
R3
R3,4STTYIN
4%
(R3),9%
,9%
2%
(SP)
7%
#'\,9%
.9%
(SP)
#25, (R3)
8¢

8LOS
RDCHR

;2 INPUT A STRING FROM THE TTY
;sADDRESS OF FIRST CHARA(CTER WILL BE ON THE STA(K

R3,-(SP)

CLR
MOV
(mP

TST
BNE
MOVR
TYPE

067474

INPUT A STRING FROM THE 1TY

(SP)
6%
#'\,9%
,9%

.;CLEAR THE RUBOUT KEY
;oGET ADDRESS
;;BUFFER FULL?
2sGET CHARACTER
;1S IT A RUBOUT
;:BR IF NO

;]S THIS THE FIRST RUBOUT?
;:BR IF NO
:2TYPE A BACK SLASH

;:SET THE RUBOUT KEY
; ;BACKUP BY ONE
;:STACK EMPTY?
;:BR IF YES
::SETUP TO TYPEQUT THE DELETED (HAR.
::G0 TYPE
;GO READ ANOTHER CHAR.,
:sRUBOUT KEY SET?
JIBR IF NO
::TYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
;: 1S CHARACTER A (CTRL U?
::BR IF NO

(ZRMOBO RMOS/3/2 FCINL
ROUTINE

067364
067370
067372
067376
067400
067602
067406
067612
067414
067620
067422
067426
067432
0676436
067640
067444
067450
067452
067454
667656
067464
067472
067474
067475
067476
067506
067513
067520
067525

067536

104401

000726
122713
001011
105013
104401

TYPE

8%:

0006022

104401

001217
067476

104401

001216

4%:

104401
122723

067474
067474
000015

3s:

000717
000712
111337

001305
105063
104401
005726
212603
011646
016666
012766
000002
000
000
136

136
136
015

040

012737
105737
001002
000137
000002

001220

000002
000004
9%:

177777

001326

001116
037262

B8R
{MPB
BNE
CLRB
TYPE
TYPE

177777

0C0004
067476

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
SMSWR:
SMNEW:
.EVEN

SHUT?:

1%:

4-APR-81 01:15:59 PAGE 45-4

067513

OO0
PN
D —a
[0 WLV,
LV, AV, )

INPUT

MACRO Vv04.00

OO
H-=20N00
ON NI

TTY

LSCNTLU
13
#22.(R3)

3
(R3)
LSCRLF
2%

BR
MOVB
TYPE
{MPB
BNE
CLRB

TYPE

TYPE
TST
MoV
MoV
MOV
MOV
RTI

;;TYPE A CONTROL L'
;G0 START OVER
;oIS CHARACTER A "TMR'%?
;:BRANCH IF NO
;s CLEAR THE (HARACTER

JSTTYIN

SEC 0273

J:TYPE A "'CR" & ‘LF"
;s TYPE

THE

INPUT

STRING

;GO PICKUP ANOTHER CHACTER

., SQUES

JcTYPE A 2!

(82),95

;;ECHO THE CHARACTER

#15 (R3)+
2%
-1(R3)
JSLF

(sP)+

(SP)+ ,R3

(SP),-(SP)
4(SP) ,2(SP)

#STTYIN,L(SP)

;s CLEAR THE BUFFER AND LOOP

;s CHECK FOR RETURN
;;LO0P IF NOT RETURN
;cCLEAR RETURN (THE 15)
;;VYPE A LINE FEED

;:CLEAN RUBOUT KEY FROM THE STACK
;RESTORE R3

: sADJUST THE STACK AND PUT ADDRESS OF
:.
FIRST ASCII CHARACTER ON IT
; JRETURN

.BYTE
.BYTE
.BLKB
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ

0
0

Mov

#-1,CI1LFG

;SET THE CONTROL-C FLAG

BNE

;BR

1578

JMP

RTI

/2C/<15>< 2>
/2U/<15><12>
/2G/<15><12>

<15><12>/SWR - /
/
NEW =

$TSTNM

SHUT

;:STORAGE FOR ASCII
;s TERMINATOR

CHAR.

TO TYPE

:;RESERVE 8 BYTES FOR TTY INPUT
2 CONTROL ‘'’
;:CONTROL 'V’
::CONTROL ''G""

;DOING ANY TESTS
IF

YES

;NO-=RESPOND TO *C

JEXIT FROM INTERRUPT

THE

HMOBO FMOS/3/2 FCINL TST 3

READ AN COTAL

NUMBER FROM THE

MACRO v04.00
TTY
LSBTTL

IS4

4-APR-81 01:15:59 PAGE 4¢

SEQ (. 74

READ AN OCTAL NUMBER FROM THE

1323222222022

TTY

RS2l

RRRRRRERRR

S«THIS ROUTINE wlLL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
S«CHANGE IT TO BINARY.
seCALL:
RDOCT
RETURN HERE

o
ie
>N

067572
067574
067602
067604
067606
067610
067612
067614
067616
67620
067622
067624
067626
067630
067632
067634
067636
067640
067644
067645
067650
067652
067656
067662
067664
067666
067670
067672

011646
016666
010046
010146
010246
104412
012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716

062601

000764
005726
01016¢
010237
012602
012601
012600
000002
000000

000004

0000C2

$RDOCT: MOV
MoV

MOV

2%:

MOV
MOV

R1,-(SP)
R2.=(SP)

MoV
CLR
(LR

(SP)+,R0O
R1
R2

BEQ

MOVB
ASL
ROL

000012
067672

::PUSH RO ON STA(K

:sPUSH R1 ON STACK
;sPUSH R2 ON STACK

;sREAD AN ASCIZ LINE

::GET ADDRESS OF 1ST (HARAZTER
. ;CLEAR DATA WORD
;;PICKUP THIS (HARACTER
;:1F ZERO GET oOUT
®

;o8

BIC

#4C7,(SP)

J:STRIP THE ASCII

BR
TST

(SP) +,R1

2%
(SP)+

MOV
MOV
MOV

R1,12(SP)
R2,$410CT

MOV

(SP)+,R0O

MoV

$HICCT:

R1
R2

;¢ INPUT NUMBER

R1
R2
R1

ADD

3%:

(RO) +,=(SP)

::PRCOVIDE SPACE FOR THE

ASL
ROL
ASL

ROL

177770

(SP) ,~(SP)
4(SP) ,2(SP)
RO,=(SP)

OCTAL NUMBER
s JREAD
BITS ARE ON TOP GF THE STACK
ORBDER
;;LOW
BITS ARE N SHIOCT
ORDER
. ;HIGH

RT]

.WORD

(SP)+ ,R2
(SP)+
R

JUNK

;;ADD IN THIS DIGITY
. :LO0OP
;;CLEAN TERMINATOR FROM STA(CK
. sSAVE THE RESULT
:;POP STACK

INTO R2

2sPOP STACK INTJ R1

$2POP STA(K INTC RO
22RETURN
23HIGH ORDER BITS GO HERF

CZRMOBO RMOS/372 F(INL T1ST 3

TRAP DECODER

MACRO v04.00

&-APR-81 (01:°5:59 PAGE 47

.SBTTL

SFO 0275

TRAP DECODER

:«TH]IS ROUTINE will

PICKUF

THE LOWER BYTE OF

THE "'TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF

THE DESIRED ROUTINE.

;*G0 TO THAT ROUTINE.

067676
067700
067706
067710
067712
067714

016646
042716
012746
000002
010046
016600

067722
067726
067726
067732

111000
006300
016000
000200

267720

067736
067736

067744

005740

011646
C16666

000002

000002
000020
067712

S$TRAP:

1%:

00000¢

000004

000002

RO,=(SP)
2(SP),RO

MOVR
ASL
MOV
RTS

(RO) ,RO
RO
$TRPAD(RO)
RO
RO

::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;:INDEX TO TABLE
::GO TO ROUTINE

IS USE

$TRAP2:

MOV
MoV

-(R0O)

TO HANDLE

THE "'GETPRI'* MACRO

(SP),=(SP)
4(SP),2(SP)

RTI

1 :BACKUP BY 2

;:MOVE
::MOVE

THE PC DOWN
THE PSW DOWN

::RESTORE

THE PSW

TRAP TABLE

:*THIS

TABLE

CONTAINS

;

ROUT INE

THE

STARTING ADDRESSES OF

>*BY THE ‘‘TRAP’' INSTRUCTION.

067746

067734

$TRPAD: .WORD

067764

06700

067766
067270
067776
070000

067750
067752
067754
067756
067760
067762

067772
06777«

063520
063316
063272
063332
063046 .
062772

IT WIitlL

2(SP),~(SP)
#2), (SP}
#1$,-(SP)

;:THIS

.SBTTL

ADDRESS OBTAINED

MOV
BIC
MOV
RTI
MOV
MOV

06774¢

THEN USING THE

$TRAP2

ROUTINES CALLED

:;CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
::CALL=TYPON
;;CALL=TYPDS
;;CALL=TYPBN

TRAP+1(104401)
TRAP+2(1046402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBFR (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL®
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

$GTSWR

:;CALI =GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

066610
067152

$CKSWR
$RDCHR

;;CALL=CKSWR
;;CALL=RDCHR

TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE

062676
062734

$SAVREG ::CALL=SAVREG
$RESREG .:(ALL-RESREG

067242
067572

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS
$TYPBN

THE

SRDLIN
$RDOCT

;:CALL=RDLIN
::CALL=RDOCT

TRAP+12(104412) TTY TYPEIN STRING ROUTINE
TRAP+13(104412) READ AN OCTAL NUMBER FROM TTY

TRAP+14(104414) SAVE RO-RS ROUTINE
TRAP+15(104415) RESTORE RO-R5 ROUTINF

JRMOBC RM(QS/3/2 FCINL 1ST 3

OCWER DOWN AND UP ROUTINES

MACRO v04.00
LSBTTL
a2

070142
000340

170002
070010
070016
070020
070022
070024
670026
070030
070032
070036
070042
070050
070052

000024
000026

SEQ 027¢

POWER DOWN AND UP ROUTINES

2232320000222 RARRARRRRRRdRRRRRRNEEARRRRARRRRRRRRRRRRRNS
AN

*POWER DOWN ROUTINE

$PWRDN: MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MoV
MOV

111116

070146
070054

&-APR-81 01:15:59 PAGE 48

000024

HALT

#SILLUP
, Q#PWRVEC

;;SET

FOR FAST UP

#340,a#PWRVFC+2 ;:PRIO:7
RO,-(SP)
;;PUSH RO ON STACK
R1,-(SP)
;sPUSH P1 ON STACK

R2,=-(SP)

:2PUSH R2 ON STACK

RS,=~(SP)

:2PUSH R5 ON STACK

R3,-(SP)
R4 ,~(SP)
aSWR,~(SP)
SP,$SAVR6

#SPWRUP ,2#PWRVEC

::sPUSH R3 ON STA(CK
;;PUSH R4 ON STA(K
::PUSH aSWR ON STACK
;. SAVE SP
;;SET UP VECTOR

;s HANG UP

":'ifitttl'titt'fittttttt"ittQt'tttfit'ttt't*ttfittttflfitt"t'"Qttt'

070054
070062
070066
070072
070076
07010C
070104
070106
070110
070112
070114
070116
070120
070126
070134
070136
070140
070142
070144
070146
070150

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

070150
000002
000000
060776
006000
015

070142
070146
070146
070146

000024

111050

070002
000340

000024
000026

;POWER UP ROUT INE
ASILLUP,Q#PWRVEC

$PWRUP: MOV
MoV
CLR
1%:
INC
BNE
MOV
MoV
MOV
MoV
MoV
MOV
MOV
MOV
MoV
TYPE
$PWRMG: . WORD
SILLUP:

012

120

RT]

HALT
B8R
$SAVRG6: 0
$POWER: LASCIZ
.EVEN

; SET FOR FAST DOWN

$SAVR6,SP

;:GET SP

$SAVR6
18
(SP)+,aSWR
(SP)+ RS
(SP) + R4

:sWAIT FOR THE INC
;:0fF
WORD
;:POP STACK INTO aSWR
::POP STACK INTO RS
:;POP STACK INTO R4

€3AVR6E

(SP)+ ,R3
(SP)+,R2
(SP)+ ,R1

(SP)+ RO

JWAIT LOOP FOR THE TTY

:;POP STACK INTO R3
;:POP STACK INTO R?
:;POP STACK INTO R1

.;POP STALK INTO RO

#SPURDN ,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#3640 ,3#PWRVEC+2 ;:PRIO:7
;REPORT THE POWER FAILURE
SPOWER
;;POWER FAIL MESSAGE POINTER

.~2
<15><12>' POWER"’

;. THE

POWER UP SEQUENCE WAS STARTED

;;PUT

THE

;. BEFORE

THE POWER DOWN WAS (OMPLETE

SP HERE

{ZRMOBO RM0S5/3/2 FCTINL

APT

T1ST 3

COMMUNICATIONS ROUTINE

MA{RG v04.00
LSBTTL

4&-APK-~81 01:75:59 PAGE 49

SEQ 027

APT COMMUNICATIONS ROUTINE

".'tt..t.".'tfitt"""'ttt.tfittt'ttttt.ttit'i'tt.t"tt.t.

07G160
070166
070174
070176
070204
070204
070206
070210
070214
070216
070224
070226
070234
070236
070242
G7V2s0
70254
070256
070262
070264
070266
070272
070274
070300
070306
070310
070316
070324
070330
070334
070336
070336
070342
070344
070350
070352
070356
070369
70366
070374
070400
070404
070410
070414
070416
070420
070422
070423
70424

000001
000001

070424
070422

$ATY1:
$ATY3:

00000

070424

$SATYL:
SATY(:

070422
0092001

001242

000100

001243

000004
000002
001222

000004

001236

1%:

2%:

001236
001240
000004

000000
105737

001416
005737
001413
005737
001375
017637
062766
005237
105037

105037
105037

012601
012600
000207
000
000
000

000200
000001
000100
000040

000004
000002
177776
063520

3%:

5%:

10%:

001242

BEQ
(MPB
BNE
BITR
BEQ
MOV
ADD
TST
BNE
MOV

T1ST8B
BNE
SuB
ASR
B8R

11%:

001224
00000«

$MFLG:
$LFLG:
$FFIG:

#APTENV , SENV

RSN}

;.70 ONLY REPORT

FATAL

ERROR

;.PUSH RO ON STACK
;.PUSH R1 ON STACK
;sSHOULD TYPE # MESSAGE”
;:IF NOT:
BR
. ;OPERATING UNDER APT?

3%
;s]F NOT:
BR
#APTSPOOL ,$ENVM ; ;SHOULD SPOOL MESSAGES?

3
24 (SP) RO

#2.,4(SP)

$MSGTYPE
1%
RO, $MSGAD
520)*

;21F NOT:
BR
;sGET MESSAGE ADDR.
;:BUMP RETURN ADDR.
:3SEE IF DONE W/ LAST XMISSION?
;21F NOT:
WAITY
;;PUT ADDR IN MAJLBOX
;:FIND END OF MESSAGE

$MSGAD ,RO
RO

;:SUB START OF MESSAGE
;:GET MESSAZE LNGTH IN WORDS

gg.$M$GTYPE

JsTELL APT TO TAKE MSG.

RO, $MSGLGT

;:PUT LENGTH IN MAJLBOX

a4 (SP) ,4%
#2.4(SP)

;:PUT MSG ADDR IN JSR L INKAGE
: :BUMP RETURN ADDRESS

JSR

SC,STVPE

;:CALL

TSTR
BEQ

$FFLG
12%
SENV
12%
$MSGTYPE
11%
D4 (SP) ,$FATAL
”2,4(SP)

;:SHOULD REPORT FATAL ERROR?
;:IF NOT:
BR
; sRUNNING UNDER APT?
;oIF NOT:
BR
;sFINISHED LAST MESSAGE?
:2IF NOT:
WAIT
;3GET ERROR »
J:BUMP RETURN ADDR.

JsFATAL FLAG

.WORD

8EQ
TST
BNE

MOV
ADD

12%:

SATY(
#1,8FFLG

LA R

2270 REPORT FATAL ERROR
;;T0 TYPE A MESSAGE

ADD

MOV

TS7

001222
000004
000002
001222
070424
070423
070422

RO,-(SP)
R1,-(SP)
SMFLG
5%

MOV

4%:

070424

MOV
MOV
TSTR

MOV
MOV

001222

070334
000004

MOVB
MOVR
BR
MOVB

#1,8FFLG
#1,8MFLG

INC
CLRB
CLRB
(LRB
MOV
MoV
RTS
.BYTE
.RYTE

L.RYTE
.EVEN
APTSIZE = 200
APTENV
= 001
APTSPNOL= 100
APT(SUP -

040

177776,~(SP)

$MSGTYPE
$FFLG
$LFLG
SMFLG
(SP)+ ,R1
(SP)+ R0
PC
0
0

2:PUSH 177776 ON STACK
TYPE MACRO

;2TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;sCLEAR LOG FLAG
:;CLEAR MESSAGE FLAG
:;POP STACK INTO R1
::POP STACK INTO RO
:sRETURN
:sMESSG. FLAG
2 :LOG FLAG

JRMOBO RMCS5/3/2 €. TINL

CNSLUE MESSAGES

TST 3

MACRO v04.00

>
2 070426

200

S 070514
6 070521

8 070530
9 0706106

6 070512
7 070525

10 070704

LASCIZ
ASCIZ

@ALLAI<CRLF>
@ ?a

200
200

124
120

117
101

MSHELP:

.ASCI]
.ASCIl

<CRLF>®T0 ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa
<CRLF>3PACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (“()d

054

200

00
20C

000

040
103

000

110

122
114
115
114

115
111
126
11

124

131

101

116

040

077

111

26 071446
25 071453
26 071460

122
122
122

115
115
i15

060
060
060

114
116
116

117
117
117

200
104
200

27 071665

040

31
3¢
33
34
35
3¢
27

071557
071570
071600
071627
071634
°
071636
071640

040
040
200
116
116
13
040

071643

040
040
040

040
040

040

104
122
125

117
117
104
117

000
009

0GO

EQUALS:
comma:

117

127

20 $71365

.ASCIZ

ALL:
QUES:

200

38 071641
39 071642

SCTMSG:

114
040

18 071307

28 071506
29 071523
30 071540

CONSOLE MESSAGES

114
077

200
040
122
040

21 071406
22 071422
23 071430

.SBTTL

SEQ 0¢78

101
G40

13 071105
‘4 071115
15 071157
16 071166
19 071364

4-APR-81 01:15:59 PAGE 50

200

17 071222

103

07%

11 070772

12 071054

.ASCIZ
ASCIZ
LASCII

LASCI]

(NSLO1:
(NSLO2:
(NSLO3:
CNSLO4:

(NSLO7:

CNSLOB:

(NSLO9:

LASCIZ

.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ*

.ASCI1

LASCIZ
.ASCII

AS A RESULT,

.ASCIZ
.ASCIZ
_ASCIZ

106
116
122
116

UNTOFF:
UNTON:
DRIVES:
NONE:
N:
y:
BLNKS4:

.ASCIZ
_ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIT

BLNKS1:

,ASCIZ

_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

ASCII
.ASCII

THE PROGRAM WILL

BE HALTED®

<CRLF>QTYPE HELP TEXT (L) N? 3

<CRLF>IRM(S1=3
& LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
aRMVE(=a
@ LIMITS = LO= 0, HI= 10008<CRLF><LF>

<CRLF>aTYPE 'A"* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRJAGE RETURN.3

<CRLF>

/RMO2/
/RMQ3/
/RMOS/

NOTRM:

EVEN

<CRLF>aWHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.@<(RLF>

.ASCIZ
_ASCIZ
.ASCIZ

117

BLNKS3:
BLNKSZ2:

<CRLF>aCONTROL

@ ?ILLEGAL INPUT@<CRLF>

MSDRVS:
MSGDRV:
SYSTAT:

LODEv:
NOTPRS:
NOTAVL:

o, @

.ASCIZ

122
111
116

SRMOZ2:
SRMO3:
SRMOS:

<CRLF>QCANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVI(Eta

a=d

<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/

@ NOT AN RM05/3/23
/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
<CRLF>/DRIVE(S)
/NONE/
/N/
v/
/ 7/

7/ 7/
7 7/
/

TO BE TESTED/

“CRMOB( RMGS/3/2 FOTINL
"ABLE

ed
e
D
D ed
e
e
D md

JTHE

FUNCTION CODE

TABLE

JEACH FUNCTION CODE.

1S USED

TO DEFINE

STATUS

BIT USAGE IS AS FOLLOWS:

CONDITIUNS FOR

:
ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION (CODE
PIF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,
:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
INOTE

SLOVONPNB WOV

—

Ty7

&-APR-81 (071:15:59 PAGE 51

MACRO v04.00
.SBTTL

yTP NN o

FONCTION CODE

THAT ATA MAY BE

SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

;1T 1S NOT EXPECTED AS A RESULT OF
WCE = BIT

IS SET

THE COMMAND.

IN THE ENTRY FOR A GIVEN FUNCTION (ODE

IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF

THC COMMAND.

;
OP]1 - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
11F OP] ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
;
:1F

IvC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION (CODE
IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

;

WLE = BIT

'S SET

IN THE ENTRY fOR A GIVEN FUNCTION (ODE

:IF WRITE ERRURS ARE NABLED DURING THE EXECUTION OF

THAT COMMAND.

JTHE WRITE ERRORS WHICH ARE ENABLED ARE 'WLE'', 'WCF'', "DPE'’, "UPE"'.

PIF

IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION (ODE

INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

:
AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:iF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE

:(CMMAND.
THE FRRORS ENABLED BY THIS BIT ARE “‘TRE'', 'DLT"’, 'NEN',
STMXFT, LBT'', AND TAOE'‘.

BIT 08 IS NOT USED.

;
HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
*1F HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
*HEADER ERRORS INCLUDE **HCRC'', "MCE'', 'FER'', AND "BSE''.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
lF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION QOF THAY

STOMMAND.

;

BIT 05 IS NOT USED.

;

BIT 04 IS NOT USED.

81T 03 IS NOT USED.

;

BIT 02 IS NOT USED.

BIT 01 IS NOT USED.

;
55 071646
56
57 ¢ 1666

e
.

ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

FNCDTB:
02000C

THESE ERRORS INCLUDE 'MDPE'", 'DCK'', AND "ECH''.

.WORD

;FUNCTION (ODE TABLE

OP]

.NOP

rIRMOBO RMOS/3/¢ ¢

FUNCTION CODE

58 071650

071652
071654
071656
071660
071662
071664
071666
071670
071672
071674
071676
071700
071702
071704
071706
071710
071712
021714
Cc71716
071720
071722
071724
071726
071730
071732
071734
071736
071740
071742
)71744

TABLE

2
)

47k v04.00

130001
132000
130000

0¢0000
30000
130000
130000

020000
020000
130001
130001

132000
130001

130001
130001
130001
130001
130001

120001

073300
073300
130001
130001
037200
¢37000
130001
130001
033300

03330¢
130001
130001

’

.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

4=-APR-81

)

(01:15:59 PAGE

S1-1

OP]'ATA ILF.IVC
ATA . OPL!]1VC!IAE
ATA OP].IV(
oP]

oPI!1Iv(
OP].ATA.
IV(
OP].ATA.
IV(
OP]
OPl

IVC
1 LF
OPI!ATA!I
OPI!ATA.ILF!IVC
ATA!OPI!IVC.
IAE
OPI!ATA!ILF.IV(C
OP].ATA.ILF!IVC

OP]'ATA!ILF
! IVC
OP] .ATA!ILF!IVC
OPI!ATA!ILF!IVC

OP]!ATA!ILF!]IVC
OPI!ATA!ILF
1 IVC
WCE!OPI!IVC!IAE!AQE !HCE'ECH
WCE!OPI!IVC!]AE
!AOE !HCE.ECH
OPI'!ATA!ILF!IVC
OP]'ATA!ILF!IVC
OPI'IVC!WLEJAE
@ AQE 'HCE
OPI!IVC!WLE
! 1AE ! AOE
OPI!ATA!ILF!IVC

LOPI!ATA!ILF!]IVC

QE
!HCE .ECH
“OP1!IVC!IAE!A
E
'HCE ! ECH
OP]!1VC!IAE!AO
OPI!ATA!ILF!IV(
OPI.ATA!ILF!IVC

SEQ 0280

JILLEGAL FUNCTION (2)
s SEEK

JRECAL IBRATE
;DRIVE CLEAR
;RELEASE
:OFFSET

JRETURN TO CENTERL INE

;READ IN PRESET

;PACK ACKNOWLEDNGE

JJLLEGAL FUNCTION (24)
JJLLEGAL FUNCTION (26)
:SEARCH

JILLEGAL
JILLEGAL
JILLEGAL
;ILLEGAL
JILLEGAL

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION

(32)
(34)
(36)
(40)
(42)

JILLEGAL FUNCTION (44)
JILLEGAL FUNCTION (46)
;WRITE CHECK DATA
JWRITE

CHECK HEADER AND DATA

;WRITE

DATA

JILLEGAL FUNCTION (54)
;ILLEGAL FUNCTION (56)

;WRITE HEADER AND DATA
;ILLEGAL FUNCTION (64)
JILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA

JILLEGAL FUNCTION (74)

JILLEGAL FUNCTION (765

RWS/ 30

(ATA;

ODOW

NO NN,

ATTENTIUN

071746

071747
N7*750
071751
Q71762

971763
071754

271758

£TN

TABLE

st 3

MACRO v04.00

<-APR-81 01:15:959 PAGE 52

SBTTL

ATTENTION

ATNTRL:

BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE

S OWN—=00
NN —
PNODROONs o o o

JRMNE.

(ATA)

TABLE

2R 2

VB WN—=O0V0 N S

072122
072124
57 072126

077777
037777
017777
007777
003777
001777
000777
000377
006177
000077
000037
000017
000007
0000V3
000001
000000
000000
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
(10000
02000C
040000

100009
100000

040000

ONES:

.WORD

ZEROS:

. 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

¢
¢
00— \N~NJiNes

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

177777

.WORD
.WORD

[

000000
000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

RGDTPT:
MIXED:

DATA PATTERN TABLE

—= OO
2NN S ONN A NW—=O
O OOO=2NNIN—Ne v s @

.SBTTL

0721756
071756
071756
071760
071762
071764
071766
071770
071772
071774
071776
072000
072002
072004
072006
072010
072012
£72014
072016
072020
072022
072024
072026
072030
072032
072034
072036
072040
072042
072044
072046
C72050
072052
072054
072056
072060
072062
072064
072066
072070
072072
072074
072076
072106
072102
072104
072106
072110
072112
072114
072116
072120

4-APR-81 01:15:59 PAGE 53

NPO N

EaE Al 2B Ak o NN N NWWWWNI PONUNUNONUNUNUN)
NN
S ed b 2 b cd b s
AN — OO0~ VIS WAN 2O 00~
NOWVEBWN—=OV0NO
NN

D00 NN

“ATA DETTERN TABLE

MACRO v04.00

JRMOBU RMOS/3/2 FCTINL TST 3

5tu veo

072270
072272
072274
072276
072300
072302
072304
072306
072310

53-1

174000
170000

EARLY:

s
e
s

177777
177776
177774
177770
177760
177740
177700
177600
177400
177000
176000

000002
000001
003000

[ LSNP NV,

000004

.WURD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NN
SO0O
s s
QONLND
S

Stuw

020000
010000
004000
002000
007000
000400
000200
000100
000040
000020
000010

160000
140000
100000
000000
000000
100000
140000
160000
17000G
174000
176000
177000
177400
177600
177700
177740
1777€0
177770
77774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

(01:75:59 PAGE

58 072130
59 072132
60 072134
61 072136
£2 072140
63 072142
(XA 072144
65 072146
66 072150
67 07215.
68 072154
o9 072156
70 072160
71 072162
72 072164
73 072166
74 072170
75 072172
76 072174
77 072176
78 072200
79 072202
80 072204
81 072206
82 072210
83 072212
84 072214
85 072216
86 072220
87 072222
88 072224
89 072226
90 072230
91 072232
92 072234
93 072236
94 072240
95 072242
96 072244
97 072246
98 072250
99 072252
100 072254
101 072256
072260
072262
072264
072266

4-APR=§1

POANIANIAN

TABLE

MACRO v04.00

OCONONO=2MNIH00
2 WO = PO
=Y

NATA PATTERN

TST 3

[V, 1V, LV, LV, |
AV, AV, LV, 1V, )

~ZRMOBO RMO5/3/72 FCINL

urs

~JRMOBO RMOS5/3/2 FCINL TST 3
5 072312
072314
972316

S WN=O0V00 VO

QS QA

PONORNIPUR)
= — o a

DATA PATTERN TABLE

072320
072322
0723264
072326
72330
072332

072334
125 072336
072340
072342
0723446
072346
0723250
072352
072354
072356
C72360
072362
072364
072366
072370
072372
072374
072376
072400
072402
072404

MACRO v04.00

177757
1772737
172677
177577
177377
176777
175777
173777
167777
157777
137777

077777
077777
137777

157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776
177777

4-APR-81 01:15:59 PAGE 53-2

ENRGDT:

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

51.

SEQ 028«

TABLE

MACRO v04.00

100247
100275
100324

100352

100401
100430
100503

077576

103170
103271
100711
100711
100711
100711
101205
077464
100546
100711
100711

100653
103766

100774
101400
103147

000000
103354
100701
103725
103725

100004
100004
100004
100004
100004
100004

100004
100004
100004
100004
00000G
101465
101413
101465
1 01465
1 1465
1

1465

0 0000
1 1157
1
1
1
1
1
1
1
1
1
1

1
1
1
1

YeR e )

100043
100072
100120
100171
100220

077773
077773
100004
100004
100004

[

100014

100004
1000u4

WWSON

100575
100624
103216

077706
077735
077752

000000
077773

— e NJON

077442
077370
100575

101205
077621
077644
077660

0000G0
077464
000090

SOOOOOOOO
NSNS KRS
-t
P

101271
101457
103261
100575
101516
101544
101572
101223

000000
000000
077401
077453

N\
— —d -2 O
DN
NIWNNIWN

077326
077370
077442
077536
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
0/7370
077370
077370
077370

—_, e
HENW

101753
077261

101205
104013

000000
000000
000000
000000
000000
000000

eolelalelelelelele)

103766

000000
077056
077121
077214
077326

52 073222
53 073236
54 073240
55 073260
56 073300
57 073312

076772
077041
077041
077164
077164

&S
e
T
AN NN NN N NN N A N N NN
RO N NONNO
N AN I
BESDNEDSDSDWW
2OV
NN N
IS NN
= Q000 NV
[V,]
V0NN — WNI—=OO0 ~} VWA

[

QU S

NN = OO NN

072604
072410
072416
072424
072432
072440
072446
072454
072460
072464
072472
072504
072512
072520
072530
072540
072550
072560
072570
072600
072610
072620
072630
072640
072650
072660
072670
072700
072710
072720
072730
072740
072746
072756
072770
073000
073010
073020
073030
073036
073046
073060
073076
073114
073124
073136
073154
50 073164
51 073202

——

FRROR MESSAGE

1sT

4-APR-81

01:15:59 PAGE

.SBTTL

ERROR MESSAGE

EMTI:
EMT?:
EMT3:
EMTS:
EMTS:
EMT6:
EMT7:
EMT10:
EMT11:
EMT12:
EMT13:
EMT14:
EMT15:
EMT16:
tMT17:
EMT20:
EMT21:

.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

EMT22:
EMT23:
EMT24:
EMT25:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT35:
EMT36:
EMT37:
EMT4O:

EMT4T:
EMT42:
EMT4L3:
EMT4S:
EMT4S:
EMT46:
EMT47:
EMTS50:
EMTST:

EMTS2:
EMTS53:
EMT54:
EMT55:
EMTS56:
EMTS7:
EMT6O0:
EMT61:
EMT62:

EMT63:

EMT64:
EMT65:
EMT66:
EMT67:

SEQ 008"

TABLE

EMS1,0

EMS2.EMS3,0
EMS2.EMS&
.0
EMSS.EMS6.0

EMSS EMS10.,0

EMS167,EMS64,0
EMS110.EMS170,0
EM57,0
EMs10,0
EMS11.EMS12,0
EMS13.EMS14.EMS15,EMS16,0
EMS17.EMS64
.0
EMS11,EMS21.0
EMS11.EMS22.EMS27,
EMS11.EMS23.EMS30.
EMS11.EMS24
. EMS30,
EMS11.EMS2S EMS27.
EMS11.EMS26.EMS27.
EMS11.EMS31.EMS30.
EMS11.EMS32.EMS30.
[elalolelelalololololololololololole)

"IJRMOED RMOS/3/2 FCTNL

EMS11.EMS33.EMS30.
EMS11.EMS34.EMS30,
EMS11.EMS35.EMS3C.
EMS11.EMS36.EMS30.
EMS11.EMS37.EMS30.
EMS11.EMS4L0.EMS30.
EMS11.EMS41.EMS30.
EMS11.EMS42.EMS30.
EMS11.EMS43.EMS30.
EMS11.EMS
. EMS30.
44
EMS11.EMS4S
. EMS30.
EMS66.EMS20,0
EMS75 EMS141,EMS76.0

EMS144 ,EMS145, EMS72,EMS76.,0
EMS47,EMS53,EMS76,0
EMS77 EMS53 EMS76.0

EMS100.EMS55,EMS76.0

EMS101.EMS53,EMS76.0
EMS6S, EMS64 .0

EMS13.EMS15.EMS63,0
EMS17 . EMS46.EMS30,EMS67,0
EMS4L7 EMSS3.EMS67.EMS115,EMS140,EMS141,0
EMS47 EMS53.EMS67.EMS115
. EMS141,EMS164.0
EMSSO0EMSS3.EMS67.0

EMS142,EMS143,EMS53, EMS67,0

EMSS1,EMS72,EMS67,EMS115,EMSSO,EMS70,0

EMS167.EMS73,EMS67.0

EMSS6,EMS67,EMST115.EMS150, EMS152,EMS70,0
EMS71 EMSS56 EMS67.EMS115,EMS150, EMS152.EMS72.0

67
. EMS70.0
0.EMS
. EMS115S,EMS47
EMS14

EMS150,EMS152,EMS70.EMS115,EMSS6,EMS73,EMS67,0
EMS52 ,EMS205, EMS214 .EMS206 . EMS115,EMS51,EMS72,0

EMS165,EMS103.EMS72.EMS124.0
EMS165 .EMS103.EMS72.EMS171.0

r ZRMOBO RMOS/3/2 FCINL 1ST 3

FRRUR MESSAGE

€8 073324

TABLE

100546

077576

100575
100575
100774
101400
100624

101413
101413
100711
100774
100711

101457
101457
103766
103337
100653
103725
103725
103261

103170
103354
101423
103372
10144C
101544
101516
103271

MATRO VO4.00
103620

EMI70:

103620
103620
103620
103620
103620

EMT72:
EMT73:
EMT74:
EMT75:
EMT76:

103620
103620
103620
101440
103620
103620
103620
100711

EMT100:
EMT101:
EMT102:
EMT103:
EMT104:
EMT105:
EMT106:
EMT107:

$9 073334

101400

65 073440

103216

74 073606
75 073620
76 073626

101753
102077
102077

102013
077121
077056

102156
000000
000000

78 073650
79 073656

102077
102251

102230
102711

000000
102735

102711

102760

60 073344
61 073362
62 073400
63 07310
64 073630

66 072452
67 073670
68 073506
09 073516
70 073530
71 073546
72 073556
73 073566

77 07334

80 073666
81 073676
82 073706
83 073716
86 073726
85 073736
86 073746
87 073756
88 073766

89 074000

90 074012
91 074024
92 074036
93 074050
94 074062
95 074074
96 074106
97 076120
98 074130
99 074140
100 074150
101 074160

102 074170

103 074200
104 0764210

105 0724220
106 074230
107 074240
108 074252

109 024264
110 076302

111 074320
"12 074332
113 0726344
"4 (26356

101753

102314
102351
102414
102446
102511
103112
102613
102651
102251
102314

102351
102414
102646
102511
103112
102613
102651
102251
102351
102251
103112
102414

102446

102511
102651

104042
102613
103147
103216

103261
103261

103354

103337
103337
103570

_.WORD

101572

103420 EMT71:

.WORD

103233

100711

.WORD

102153

102711
102711
102711
102711
102711
102711
102711
102711
102711

102711
102711
102711
102711
1027171
102711
102711
102711
102711
102711
102711
102711

102711

102711
102711

102711
102711
102153
102153

102156

102735
102735
102735
102735
102735
102735
102735
102735
102760
102760
102760
102760
102760
102760
102760
102760
103022
103022
103065
103065
103065
103065

103065
103065

103065
103065
103170
103233

103271
103271

103320
077576

103372
103372
103520

103464
103520
103553

103416

103464

4-APR-81 01:15:59 PAGE 54-1

EMT77:

EMT110:
EMT111:
EMT112:

EMT113:

EMT114:
EMT115:

EMT116:
EMT117:
EMT12C:
EMT121:
EMT122:
EMT123:
EMT124:
EMI125:
EMT126:
EMT127:

EMS71.EMS101,EMS16%5,0

EMS4L7,EMS72,EMS163,EMS115,EMS140,EMS141,0
EMS47,EMS72,EMS163,EMS115,EMS141,FMS72,0
EMS56,EMS53,EMS163,0
EMS71,EMS56,EMS163 EMS115,EMS150,EMS152,EMS72,0
EMS50,EMS53,EMS163,0

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

EMS75,EMS141,EMS163,EMS115
EMS47 EMS70.0
EMS75,EMS150,EMS163,EMS115,EMS56,EMS73,0
EMS167,EMS73,EMS163,0
EMS147,EMS151,EMS74,EMS163,0
EMS51,EMS74,EMS163,EMS115,EMS50,EMS70,0
EMS165,EMS100,EMS163,0
EMS165,EMS77,EMS163.0
EMS144 EMS145,EMS53,EMS163,EMS115,EMS143,EMS70,0

.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

EMT145:
EMT146:

.WORD
.WORD

WORD

EMT147: .WORD
EMT150: .WORD
EMT151: "WORD
EMT152: .WORD

EMT153: _WORD
EMT154: .WORD

EMT155: .WORD
EMT156:
EMT157:
EMT160:

EMS46,EMS20,EMS163,0

.WORD
.WORD
_WORD
.WORD
.WORD

EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:
EMT142:
EMT143:
EMT144:

SEQ 028¢

.WORD
_WORD
.WORD

EMS142,EMS143,EMSS3,EMS163.0

EMS110,EMS112,EMS116,EMS111,0
EMS113,EMS4.0
EMS113,EMS3,0

EMS110,EMS115,EMS116,EMS117,EMS114,0
EMS113,EMS120,0
EMS121,EMS132,EMS133,0

EMS122,EMS132,EMS133.0
EMS123,EMS132,EMS133,0
EMS124,EMS132,EMS133,0
EMS125,EMS132,EMS133,0
EMS126,EMS132,EMS133,0
EMS137 EMS132,EMS133,0
EMS130,EMS132,EMS133.,0
EMS131,EMS132,EMS133,0
EMS121,EMS132,EMS134,EMS123.0

EMS122,EMS132,EMS134,EMS123,0

EMS123,EMS132,EMS134,EMS123,0
EMS124,EMS132,EMS134
,EMS123 O
EMS125,EMS132,EMS134 ,EMS123,0
EMS126,EMS132,EMS134,EMS123,0
EMS137,EMS132,EMS134 ,EMS123,0
EMS130,EMS132,EMS134,EMS123,0
EMS131,EMS132,EMS134,EMS123.0
EMS121,EMS132,EMS135,0
EMS123,EMS132,EMS135,0
EMS121,EMS132,EMS136.0
EMS137,EMS132,EMS136,0
EMS124,EMS132,EMS136,0

¢
.

EMS125,EMS132,EMS136,0

EMS126,EMS132,EMS136,0
EMS131,EMS132,EMS136.0

EMS171,EMS132,EMS136.0
EMS130,EMS132,EMS136,0
EMS140,EMS115,EMS141,EMS70,0
EMS142,EMS115,EMS143,EMS72,0

)
:

EMS144,EMS145,EMS146,EMS115,EMS163,EMS72,0
EMS144,EMS145,EMS20,EMS115 EMS143,EMS70,0

EMS150.EMS152.EMST54,EMS153,0

EMS147,EMS151,EMS154,EMS155,0
EMS147,.EMS151 EMS156,EMS157,0
EMS161,EMS156,EMS160,0

()

RO v04.00

EMT162:

cMT103:

103620

077576
077576
077576
077576
103170
103464
103464
102711
102711
104215
104254

100653
104365
100624
103233

101457
101457
100653
103216
100624
100701
100701

EMT164:

EMT165:
000000

104452

0C0000

EMT250:
EMT257:

103536
103500
102735
102760
000000
000000
100004

100004
100004
100004

104322
101413
104322
102153
000000
102153
102153
100711
103741

XS]

b =t —b

103766
103766
104526

103766

—

000000

102206

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
009000

EMT166:
EMT 167

EMT170:
EMT171:
EMT172:
EMT173:
EMT174:
EMT175:
EMT176:
EMT177:
EMT200:
EMT201:
EMT202:
EMT203:
EMT204:
EMT20CEMT206:
EMT207:
EMT210:
EMT211:
EMT212:
EMT213:
EMT214:
EMT215:
EMT216:
EMT217:
EMT220:
EMT221:
EMT222:
EMT223:
EMT224:
EMT22S:
EMT226:
EMT227:
EMT230:
EMT231:
EMT232:
EMT233:
EMT234:
EMT23S5:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:
EMT244:
EMT245:
EMT246:

109004

100774

100546
100014
100575
100701
100701

4-APR-81

EMT161:

(7777%

075146

000000
104352
104352
104352
104352
103354
100624
101656

&N
WV
N

171

100575
100575
100774
100546
105114
104352
103766
103766
1040642
104042
102077
104237

077773

—

168 075110
169 075120
170 075132

077735
077752

—d

2O 00NN
WA
QO NO N

b ad

D s
A

D ed e

D
D

076366
07464600
076612
076422
0744630
74436
3746444
374452
074464
074474
074504
076514
076526
074534
129 074562
130 074564
131 076556
132 074570
133 074602
134 076614
135 074632
13¢ 074642
137 074652
138 076664
139 Q746672
148 074706
14° 074722
16¢ 074732
074752
144 074764
165 074774
144 075004
147 075014
148 075024
149 075034
1Y 075044
‘€
075046
142 075050
183 075052
4 075054
155 075056
156 075060
157 075062
158 075064
159 075066
160 075070
161 075072
"62 075074
163 075076
164 075100
165 075102
075104
167 075106

[dleleole]

ANAUNIPUNUPUNIRONAY
4 3 0o o

RMOS5/3/2 FCTINL
SSAGE TABLE

104477
104477

. WORD
. WORD
-WORD
.WORD
.WwORD
. 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
.WOPD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD

7
8
(Q1:15:59 PAGE 54-2

EMS25,EMS27 ,EMS156,EMS160,0
EMS2% EMS27 EMS156 EMS160.0

EMS47.EMS16%,EMS140,0

EMS47.EMS20.0
EMSS6.EMS20.0
EMS4L6
. EMS20.0
EMS224 ,EMS20,0
EMS203.EMS141,EMS30,EMS202,0

EMS167.EMS1564.EMS157.0

EM5167.EMS154.EMS155.0
EMS171.EMS132.EMS133.0
EMS171.EMS132.EMS134,EMS123,0
EMS113.EMS177.0
EMS200, EMS201.0

EMS203,EMSST,EMS30,EMS202,0
EMS203,EMS204 ,EMS30,EMS202,0
EMS203.EMSS0,EMS30, EMS202,0

EMS203.EMS145,EMS30,EMS202,0

EMS150.EMS74, EMS202.EMST15.EMS152,EMS72,0
EMSS0,EMS103.FMS72,0
EMS104 ,EMS73.EMS202,0
EMS75,EMST4T.EMST15 EMS140,0
EMS75.EMS150.0
EMS51 _EMS72.Er ,115.EMS50,EMS70.0

EMS142,EMSSS,
EMS115, EMS 143, EMS72.0

EMSSO,EMS103
. EMSS3. 0
EMS52 . EMS205 . EMS 166, EMS206,EMS115,EMSST,EMS72,0
EMS52.EMS117.EMSS56,EMS163.0

EMSS6.EMS30,
EMS6S .0

EMS46
. EMS30 . EMSE4 .0
EMS31.EMS30.EMS64
.0
EMS47 ,EMS3S0,EMS64,0

EMS52.EMS117.EMS77.0

EMS52 EMS117.EMS63.0

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

.WORD

EMT247: .WORD

.WORD
.WORD

EMS167,.EMS132,EMS207,0
EMS167 ,EMS132 ,EMS210,EMS125,0
MS207
EMS167 ,EMS21* [EMS210,E,EMS2(6,0
EMS212,EMS213,0

SEQ 0287

~IRMOB0O RMQS/3/2 FCINL TST 3

FRROR MESSAGE

172 075154

TABLE

103725

MACRO v04.00

104526

000000

EMT252:

101572
103766

100006
100004

EMT254:
EMT255:

102206
104413

100774
104716

100774

101620

73 075162

103337

176 075220
177 075230

104352
077370

101544
100546

180 075274
181 075304
182 0753164
133 775334

101656
100626
100774
101400

101423
100711
100711

185 075366

100624

187
188
189
190

075420
0756436
075456
075472

100575
101457
100653
101157

100711
103170
101440
100711

192
193
194
195

075522
075536
075554
075574

100575
100575
100774
101400

100711
100711
100711
100774

103725
103725
100546

101572
101516
100004

101647
101647
101205

103216

103233

100711

<74 075200
175 075210

178 075242
179 075354

184 0753564

186 075404

191 675510

196 075616

197 075630
198 075642
199 075654

104352
104352

100701
100701

206 075776
207 076006
208 076020

100352
100014
101400

212 076062

EMT262:
EM1263:
EMT264:

100324

101656
101705

210 076042
211 076052

104322
101620
101620

100711

205 075730
204 075742

209 076032

.WORD
.WORD

101620

103725

103261
100401

100503
100430

101544

100711
103320
101647
101647

103271

101547
101647
100014

101647

101647
101647

102153

101620
101620
101620
101051

101051
101051
101051
100711

101647

101051
102153
100711
100711

101271

100711

220 076176
221 076210

100275
100653

222 076226
223 076244
204 076264

225 076274

226 076304
227 076316
228 076324

101457
101457

101077

102156
100120
100745
100701

101647

101647
101440

103170
103354
101112

102206

100711
100120
102206

EMT275: .WORD
EMI276:
EMT277:
EMT300:
EMT301:

.WORD
.WORD
.WORD
.WORD

EMT302Z:
EMT304:
EMT305:

.WORD
.WORD
.WORD

EMT302: .WORD

EMT306: .WORD
EMT307: .WORD

EMT310: .WORD

FMS47.EMSS53.EMS102,EMS115.EMS140.0

EMS47.EMSS53.EMS102.EMS115.EMS141.EMS72,0
EMS75.EMS141,EMS102,EMS115,EMS47.EMS73.0
EMSS1.EMS74,EMS102,EMS115,EMS50,EMSTM0,0
EMS63.EMSS3.EMSS7,EMS115,EMS4T,EMS146.0

EMS116€,EMS5S,EMS41,EMSS7.0

EMS47,EMS53,EMSS57.EMS115.EMS140,0
EMS47.EMSS53.EMS57.EMS115,EMS141,EMS72,0
EMSS6.EMS53.EMS57.EMS115.EMS1S0.EMS152,EMS70,0
EMS?7.EMSS56, EMS53 EMSS7,EMS115 EMS150,EMS1S52.EMS 2,0

EMS165.EMS100.EMS103,EMS57.0

EMS165.EMS101.EMS103,EMSS7.0
EMS165.EMS77.EMS103,EMS57,0
EMS46,EMSZ0,EMS64,EMSS7,0

EMSSO.EMSS3.EMSS7.0
EMS50,EMS146,EMS175,EMSS2,EMS117,EMS46,EMSS7,0

EMS142.EMS145.EMSS3 EMSS7.0

EMT320:
EMT321:

218 076154

100072

.WORD
.WORD
.WORD
.WORD

EMSSQ,EMS146,EMS115,EMSS2,EMS117,EMS46,0

101051
101051

101051

100220
304132

219 076164

EMT271:
EMT272:
EMT273:
EMT274:

.WORD

EMS142,EMS143,EMSSS,EMS102,0

EMS42,EMS103.EMSS3, EMSS7.0
EMS3T.EMS103.EMSS53.EMS57.0
EMS71.EMS31,EMS103.:MS57.0

1064075
077442

103372

.WORD

EMT270:

EMS71.EMSS6.EMS102,.EMS115.EMS150,EMS152.EMS72.0

EMT314: .WORD
EMT315: .WORD
EMT314: .WORD

215 076112
216 076124

103337

EMT267:

EMS104,EMS73.EMS202.0
EMSS50,EMS53.EMS102,0
EMSS56.EMS53.EMS102.EMS115,EMS150,EMS152,EMS70,
U

100711
100711
101647

000000
101051

217 076142

.WORD

EMT266: .WORD

EMS52.EMS117,EMSS6,EMS102,0
EMSS52.EMS205.EMS220.EMS206,EMS115,EMSST,EMS72,0

101647 EMT313: .WORD EMS144.EMS145.EMS105,EMSS7. EMS115,EMS143,EMS70,0

(77576
101647

100220

EMT265:

.WORD
.WORD
.WORD

EMS203.EMS100,EMS30.0
EMS11,EMS46,EMS30,EMS102,0

EMS104.EMS103.EMSS3.EMS57.0
EMS105.EMS103.EMSS3.EMSS7.0

101734
100220

104115

EMT260: .WORD
EMT261: .WORD

EMS147.EMSTST.EMS'S56,EMS210,EMS26,EMS27,0

EMT311: .WORD
EMT312: .WORD

213 076070

214 076100

EMS203.EMS101.EMS30.0
EMS203.EMS167.EMS30.0

EMT256:
EMT257:

100711

102155

.WORD
.WORD

1000064
100004

100575

103320

EMS165,EMS212.0

.WORD

100711

.WORD

EMT253:

103233

100024
100624

205 075756

103520

103216

200 075666
207 075676

202 075716

103372

4-APR-81 01:15:59 PAGE 54-3

EMT317: .WORD

.WORD
.WORD

EMS43.EPS105.EMSS7.0

EMS45.EMS103.EMS57.0
EMS44.EMS103.EMS57.0

EMT322: .WORD
EMT323: .WORD

EMS106,EM520.0
EMS36,EMS103,EMS57,0

101647
077464

EMT325: .WORD
EMT326: .WORD

EMS172.EMS36.EMS103.EMS57.0
EMS13,EMS174,.EMS1S,EMS35, EMS53,EMS175,0

104140

EMT330: .WORD

100711
101051

EMT332: .WORD
EMT333: .WORD

101647 EMT324: .WORD
101460 EMT327: .WORD

100711

101051
103416
101141

EMT331: .WORD
EMI334: .WORD
EMT335: .WORD
EMT336:

.WORD

EMT340:
EMT341:
EMT342:

.WORD
.WORD
.WORD

100120 EMT337: .WORD

1007235
000000
100774

EMS173.EMS36.EMS10%.EMS57.0

EMS147,EMS151,EMS74,EMS175,0
EMS66.EMSS3,EMS175,0

EMS33.EMS1035,EMSSI.EMS175.0

EMS40.EMS103.EMSS53.EMSS7.0
EMSS51.EMS74 EMS57 EMS115,EMSSO,EMS70,0

EMS75.EMS141,EMSS? EMS115,EMS47 EMS75,0
EMS75.EMS150,EMS152,EMS57
EMS115 EMS56,EMS73,0
EMS60.EMS61,EMS62,0

EMS11é,EMS117,EMSS54.0

EMS34,EMSS53,EMS54,EMS111,0
EMS55,EMS34.0
EMSS52.EMS117,EMS56,EMSS57,0

SEuL Lebs

"7R%W0B0 RMOS/3/72 FCTNL
ER%OR MESSAGE TABLE

229 076336
230 076350
231 076362
232 076372
233 076406
234 076420
235 076436
236 076446
237 076452
238 076462

100701
100701
100701
101734
100701
101457
103766

104612

104663

104736

1sT

MACRO v04.00

102206
102206
102¢06

077576
104413

103354
101423
000000
104352
077576

104633
0C0000

4-APR-81

EMT343:
EMT 344
EMT345:
EMT 346:
EMT347:
EMT350:
EMT351:
EMT352:
EMT353:
EMT354:

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

D
(01:15:59 PAGE

7
54-4

EMS52 ,EMS117,EMS4S ,EMSS7,0
7
,EMS44 ,EMSS57,0
EMSS52,EMS11
EMS52,EMS117 ,EM5221,0
EMS106,EMS20,EMS115,EMS223
,EMS72,0
EMS52,EMS205,EMS222,EMS206,0
EMS75,EMS150,EMS102,EMS115,EMS56,EMS73,0
EMS167 ,EMS73,EMS102,0
EMS215,0
EMS217 ,EMS203,EMS216.0
EM5221,EMS20,0

SEQ 0289

JRMOBC RMOS/3/7¢ FCTNL

FRROR MESSAGE

b
e
b ed ad
—

N8 WN = OO0 NN S NN

' 076470
076502

TABLE

105166
105772

1ST

105772
106047

076512
076516

000000
000000

076522

000000
105772

076526
0765640

(RO v04.00
106047
106174

105772

106047
106047

106047
106047
106047

076552
076564
376576

105364
105423
105560

105772
105772
105772

076610

105716

000000

&-APR-81 01:15-59 PAGE 55

EHTY:

EHTZ:

.WORD
.WORD

EH],STSH1,STSH2,STSHe,
0

ENT110:
EHT111:

.WORD
. WOKD

EH110.0
EH11 1,0

EHT114:

.WORD
.WORD

STSH1,STSH2,5TSH&,0

EH114,0

.WORD

EH223,STSHY,STSH?,STSH4, 0
EH256,STSH1,STSH2,STSH4, 0

EHT336:
EHT337:

EHT344:

.WORD
.WORD
.WORD

EH336,STSH1,STSH2,STSH4, 0
EH337,STSH1,STSH2,STSH4, 0
EH344,STSHT,STSH2,STSH4, 0

EHT353:

.WORD

EH353.0

EHT223:
EHT256:

SEQ 0290

MACRO v04.00

CISMOBO RMOS/3/72 FCTINL

FRRTIR MESSAGE

106232
106326

5 076634

076632

106240
106244

I4 076636
8 076640

106252
106262

Dt
o
b

9
9 076650

076660
é 07667C
3

4 076702

TABLE

' 076614
2 076624
¢

4=-APR-81 01:15:59 PAGE

106272

106304
106304

106316

10€344

.WORD
.WORD

106376

106326

106344

106326
106326
106326

106344
106344

106344

:
:

.WORD
.WORD

:
:

.WORD
.WORD

.WORD

EDT344:

.WORD
.WORD

EDT353:

+WORD

STSD1,S7TSD2,57SDé
STSD1,S7SD2,STSD4
STSD1,S75D2,STSD4
STSD1,S7SD2,STSD4,0

SRMOB,

XMCS/3/¢ B

FRi
R MESSAGE

076706

TABLE

TNL

10641

TST 3

MACRO v04.00

106427

% 076774

106427

& 076722
g 076724

064610
106411

7 076726

3066413

106413

106427

10 076740

11 076750
3% 076760

106416
106416
106416

106427
106427
106427

106427

‘6 076770

106413

g C76730

106427

106427
106427

G 7
4=-APR=-81 01:15:59 PAGE 57

EFTY:

.WORD

EFT110:
EFT111:

.WORD
WORD

EFT114:

_WORD

FEFT2:

EFT223:

.WORD

EF111,STSF STSF,STSF

STSF,STSF,STSF

EF110
EF111
EF114

.WORD

EF114,STSF,STSF,STSF

.WORD
EFT337: .WORD
EFT344: .WORD

EF336,STSF,STSF,STSF

EFT353:

EF114

EFT336:

.WORD

SEQ 029¢

EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

CAVOBO RMOS/3/2 FUTNL TST 3

FRRUR MESSAGE

STRINGS

MACRQC v04.00

117

EMST:

.ASCIZ

QWRONG UNIT SELECTED (RMCSZ2. BITS 0-2) o

EMS3:
EMS4:

LASCIZ
LASCIZ

QUNAVAILABLE ‘DVA'' (RMCS1, BIT 11) a
QNONEXISTENT 'NED'' (RMCS2, BIT 12) a

122

5 077056
6 077121

125
116

116
117

101
11¢

8 077214
9 077261
10 077326

103
104
107

117
122
117

116
111
040

106

125

116

7 077164

103

11 077370

13 077442
“4 077453

115
103

12 077401

15 077464

23
24
25
26

104
103
101
123

27
28
29
30

042

100014
100043
100072
100120

042
042
042
127

32
33
34
35
36
37
38
39

100220
100247
100275
100324
100352
100401
100430
106503

042
042
042
042
042
C42
110
106

42
43
44
45
46
47

100624
100653
100701
100711
100723
100745

100171

40 100546
41 100575

48 100774
49 101051

50
51
52
53
54

101077
101112
101141
101157
101205

55 101223
56 101271
7 01341

042

042
042
042
042
124
104
101
111
111
104
104
104
104

115

126

123
116

115
122
110

103
101
117

117

102
0L2

126

101
117

127

20 C77644
21 077660

077735
Q77752
077773
100004

116

125

042
124
123

22 077706

117

102

16 077506
17 077536
'8 077576

9 077621

105

125
114

101

111
131
104
124

123

122

123
102

117
123
114
104
101

127
125
127
12¢

“114
120
103
111

104
105
104
115
104
110
105
117

103
103
114
130
124
103
101
122

115

104

EMS2:
EMSS:

EMS6:
EMS7:
EMS10:

EMS11:
EMSi2:

EMS13:
EMS14:
EMS15:

EMS16:
EMS17:
EMS20:
EMS21:

EMSZZ2:
EMS23:

EMS24:

EMSZ5:
EMS26:
EMS27:
EMS30:

EMS31:
EMS32:
EMS33:
EMS34:

EMS35:

EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS45:

123
120
110
105
124
116
116
125
101
117
01

101
EMS46:
120 EMS47:
113
EMS50:
111
EMS51:
105
EMS52:
124
EMS53:
040
EMS54:
103
EMSS5:
126 EMSS56:
122
EMS57:
124 EMS60:
105 EMS61:
124 ‘EMS62:

123

040

104

125

122

042

103
104

1
117

120

117
101

SEQ 0293

ERROR MESSAGE STRINGS

17
104

.SRTTL

2 Q76772

4 077061

4~APR-81 01:15:59 PAGE 58

101

EMS63:

115
124

EMS65:
EMS66:

EMS64:

EMS67:

LASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
ASCIZ

L_ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
L.ASCIZ

L.ASCIZ
_ASCIZ
.ASCIZ
(ASCIZ

.ASCIZ
(ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ

L(ASCIZ
L.ASCIZ
_ASCIZ
_ASCIZ
L.ASLIZ

.ASCIZ
L.ASCIZ
.ASCIZ
(ASCIZ
_ASCIZ
L_ASCIZ
_ASCIZ
_ASCIZ

.ASCIZ
_ASCIZ

QDEVICE WENT o
QCOMMAND NOT

COMPLETED,

QCONTROLLER NOT READY (RMCS1, BIT 7) a
QDRIVE NOT READY ‘DRY’'‘ (RMDS, BIT 7) a
@GO NOT RESET ''GO'' (RMCS1, BIT 0) @
@QINVALID &

@QFUNCTION CODE

QMASSBUS a
QCONTROL @

(RMCS1,

BITS

1-5)

aBUS PARITY ERROR a

Q@'MCPE'’ (RMCS1, BIT 13) 3
QTRANSFER ERROR (RM(CS1, BIT 14) 3
QSHOULD NOT BE SET @
QWORD COUNT

(RMWC)

a@BUS (RMBA) 3
@a'LBT'' (RMDS, BIT 10) 3

Q''AOE'' (RMER1, BIT 09) @
aDISK (RMDA) a
AQCYLINDER (RMDC) a
QADDRESS a
aSTATUS @

@'WLE'' (RMER1, BIT 11) @
@'UPE'' (RMCSZ2, BIT 1% a
Q@'WCF'' (RMER1, BIT 5) a
QWRITE CHECK ERROR-"WCE'' (RM(SZ2, BIT 14) a
@ 'MDPE’" (RMCSZ, BIT 8) a

@' DCK'' (RMER1, BIT 15) a
Q@'ECH'' (RMER1, BIT 6) a
@'DLT'' (RMCS2, BIT 15) &
o' 'MXF'' (RM(CSZ2, BIT 9) @'
'DTE'" (RMER1, BIT 12) a
a@'HCRC'' (RMER1, BIT 8) a
aHEADER COMPARE ERROR 'HCE'' (RMER1, BIT 7) a
QFORMAT ERROR 'FER'' (RMER1, BIT 4) @

L.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
L.ASCIZ
.ASCIZ
L_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

@''IAE'' (RMER1, BIT 10) a
@'OPI'' (RMER1, BIT 13) a
@''SKI'' (RMERZ, BIT 14) @
a&'PIP' (RMDS, BIT 13) &
QTHE RM a
QDETECTED o
QAT AN UNEXPECTED @
QINCORRECT DATA DURING a
@INVALID COMMAND ERROR ''IV('' (RMERZ, BIT 12) @
aDURING DATA TRANSFER a
aDATA READ a
oDOES NOT COMPARE WITH @
aDATA WRITTEN a

ASCIZ

@IS INCORRECT @

_ASCIZ

.ASCIZ
.ASCIZ

L.ASCIZ

@ PAR'' (RMER!, BIT 3) a
,

]

QCOMPOSITE ERROR 'ERR'' (RMDS, BI" 14) a
@DATA PARITY ERROR ‘DPE'' (RMERZ, BIT 3) a
@DURING SEEK

COMMAND a

JRMOBC RMOS5/3/2 FCINL TST 3

F-ROR MESSAGE

58
59
60
61
€2
63
64

101366
101400
101413
101423
101440
101457
101465

65 101516
66 101544
67 101572

68 101620
09 101647
70 101656
71 101705
72 101734

123
122
123
1M
1B
117
125

040
122
040
106
104
123
122

EMS?0:
EMS71:
EMS72:
EMS73:
EMS74:
EMS75:
EMS76:

.ASCIZ
L_ASCIZ
LASCIZ
_ASCIZ
L_ASCIZ
L,ASCIZ
LASCIZ

@IS RESET a
QERRONEOUS @
QIS SET a
aDID NOT SET @
QDID NOT RESET d
aLOST @
QDURING PACK ACK COMMAND a

104
105
042

125
122
114

122
122
102

EMS102:
EMS103:
EMS104:

.ASCIZ
.ASCIZ
.ASCIZ

QDURING SEARCH COMMAND @
QERROR @
@'LBC' (RMLRZ, BIT 10) @

042
042
042

122
11
11

115
114
114

73 101753

114
105

123
101

77 102077
78 102127

101
127
101

015

110
117

704
105
040

79 102153

124
116

104
110
124
012

000

82 102230

116

117

126

80 102156
81 102206
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

102251
102314
102351
102414
102446
102511
102554
102613
102651
102711
102735
102760
103022
103065
103112

98 103147

124
106

103
102
103
105
101
115
105
105
115
116
125
103
122
104
104
115

99 103170

042

101 103233

042

112 103520
113 103536
114 103553

116
122
122

100 103216
102
103
106
105
106
107
108
109
110
111

103261
103271
103320
103337
103354
103372
103416
103442
103464
103500

7
[
4-APR-81 01:15:59 PAGE 58-1

1M
105
m
104
104
114
104

042
110
102

76 102002
75 102013
76 102055

e —

STRINGS

MACRO v04.00

104

125
042
123
117
126
042
042
120
116
117

125

110
101

123

EMS105:
EMS106:
EMS110:

105
116

EMS113:
EMS114:

105
111

EMS116:
EMS117:

117
125
117
122
124
101
703
103
101
117
116
117
110
122
122

116
123
116
122
124
111
103
103
111
124
111
116
057
111
111

115

117

104

126

105

122
116
125
110
106
17
117
126
101
117
106

117
124
m

EMS77:
.ASCIZ
EMS100: .ASCIZ
EMS101: .ASCIZ

104

117

123
116
117
106
114
115
126
103
124
106
124
103
120

EMS111:
EMS112:

EMS115:

EMS120:

.ASCIZ
.ASCIZ

.ASCIZ

@'LSC'' (RMERZ2, BIT 11) @
@HEADER ERRCRS @
aBUS TIMEQUT (04 TRAP) @

_ASCIZ
_ASCIZ

QNONEXISTENT DEVICE @

.ASCIZ
.ASCI1
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

EMS121: .ASCIZ
EMS122: .ASCIZ
EMS123: .ASCIZ
EMS124: _ASCIZ
EMS125: .ASCIZ
EMS126: .ASCIZ
EMS127:
.ASCIZ
EMS130: .ASCIZ
EMS131: _ASCIZ
EMS132: .ASCIZ
EMS133: ._ASCIZ
EMS134: _ASCIZ
EMS135: .ASCIZ
EMS136: .ASCIZ
EMS137: .ASCIZ
EMS140:

.ASCIZ

EMS142:

.ASCIZ

EMS141:

EMS143:

EMS144:
EMS145:
EMS146:
EMS147:
EMS150:
EMS151:
EMS152:
EMS153:
EMS154:
EMS155:
EMS156:
EMS157:
EMS160:

Q'RMR'' (RMER1, BIT 2) a
Q''ILR'’ (RMER1, BIT 1) 3
@''iLF'' (RMER1, BIT 0) a

.ASCIZ

_ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QADDRESS @
QWHEN READING/WRITING RH REGISTERS &
@AT THE FOLLOWING @
QTHE SELECTED DEVICE IS a
<CR><LF>

QTHE MASSBUS CONTROLLER a
QFAILED TO DETECT @

aNOT AN RM0S/3/2 @

SCONTROL STATUS REGISTER 1, RM(S1, @
aBUS ADDRESS REGISTER, RMBA, a3
QCONTROL STATUS REGISTER 2, RM(SZ2, 3
QERROR REGISTER 1, RMER1, a
QATTENTION SUMMARY REGISTER, RMAS, a
QMAINTENANCE REGISTER #1, RMMR #1, o
@ECC POSITION REGISTER, RMEC1, @
®ECC PATTERN REGISTER, RMECZ2, o
QMAINTENANCE REGISTER 2, RMMRZ, a
aNOT INITIALIZED BY a
QUNIBUS INITIALIZE @
QCONTROLLER CLEAR, I.E. BIT 5 OF @
@RH/RM ERROR CLEAR (RM(S1, BIT 14) a
aDRIVE CLEAR COMMAND a
@DRIVE STATUS REGISTER, RMDS @
QMEDIUM OFF LINE a

'MOL'' (RMDS, BIT 12) a
aDRIVE FAULT @

a'DVC'' (RMERZ2, BIT 7) a

QUNSAFE a
@ UNS'' (RMER1, BIT 14) a
aSHOULD BE SET a
QOFFSET MODE a
aVOLUME VALID @
o''OM'' (RMDS, BIT Q) @
@''VVv'' (RMDS, BIT 6) a
@PACK ACK COMMAND a
a@NOT SET BY @
QOFFSET COMMAND a
@NOT RESET BY @
QRTC COMMAND a
QRIP COMMAND a

TJRMOBO RMO5/3/2 FCINL "ST 3

FRRCUR MESSAGE

115
116
117
1°8

STRINGS

103570
103620
103620
103644

'19 103713
120 103725
121 103741

1°7

106

104
m

125
123

122
040

103
125
122

131
116
105

_ASCIZ

101
125
117
116
101

124
122
120
040
116

125
116
127
130
111

122
103
122
105
124

104

133
134
135
136
137

104322
104352
104365
104413
104425

104
M
042
105
127

139 104477

127

132 104254

138 104452
1640
141
142
143
144
145
146
147

042

104510
1046526
1046551
104574
104612
104633
104663
104716

127
120
127
123
120
104
114
123

149 105006

101

148 104736

190 105037
*51 105114

102

110
116

@Q''ATA'" (RMDS, BIT15) a
QWHEN READING REGISTER @

EMS171:

117
105

104
104
042
111
103

.ASCIZ
.ASCIZ

122

116
122

106132
104140
104166
104215
104237

.ASCIZ
_ASCII

QOFFSET REGISTER (RMOF) a
s SUNUSED>
QDURING RECALIBRATE @
@IS INTERMITTENT OR DRIVE DIDNT DROP ON a

122

125 104075
126 104115

127
128
129
130
131

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

101
110

105

EMS161:
EMS162:
EMS163:
EMS164:
EMS165:
EMS166:

042
127

107
122

101
122
01
105
122
125
117
105

101

040

105
117

124
105

EMS167:
EMS170:

116
103

EMS172:
EMS173:

101

EMS201:

117
111

123
117
123
105
117
122
117
101

104

101
116

&4-APR-81 01:15:59 PAGE 58-2

114
105
103

122 103766 _
123 104013

124 104042

MACRG v04.00

EMS174:
EMS175:
EMS176:
EMS177:
EMS200:
EMS202:
EMS203:
EMS204:
EMS205:
EMS206:

EMS207:

EMS210:

EMS211:
EMS212:
EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:

EMS221:
EMS222:

EMS223:
EMS224:

.ASCIZ
_ASCIZ

_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

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

.ASCIZ

.ASCIZ
.ASCIZ

QCYLINDER a
QUNEXPECTED @
QRECALIBRATE (OMMAND @

QERROR REGISTER #2, RMERZ,
oNONRECOVERABLE 3
QRECOVERABLE 3

QDATA @
QDURING WRITE COMMAND @
®@'OPE'’' (RMER2, BIT 13) a
QIN WRITE PROTECT &
a@CAN NOT SET a

a@DIAGNOSTIC MODE 'DMD’‘ (RMMR1, BIT 0) a
@DURING DIAGNOSTIC MODE a
@INCORRECT @
Q'WRL'' (RMDS, BIT 11) @
QEXECUTED @
QWITH COMP ERROR SET @

a''60'’' (RMCS?, BIT 0) @
QWRITING 3

aWAS RESET BY a
SPROGRAM INTERRUPT a
aWAS NOT GENERATED a
QSEEK COMMAND a
oPROGRAM TIMEOUT a
QDURING LOOK AHEAD TEST @
QLOOK AHEAD REGISTER,RMLA, 3
QSEARCH COMMAND a

aBAD SECTOR ERROR ‘BSE'’ (RMERZ, BIT 15) a
@A DATA TRANSFER COMMAND a

GHEADER COMPARE INHIBIT ‘HCI'® (RMOF, BIT 10) a
SNONEXISTENT MEMORY ‘NEM'' (RMCSZ2, BIT 11) a

( ZJRMOBO RMOS/3/2 FUINL TST 3

ERROR MESSAGE STRINGS
'

105166

105

130

3 105214

S 105233
6 105062

2 105205

102

120

EM1:

115

EW111:

040

125

122

123

122
105
105

105
130
130

103
120

7 105310
§ 105336

123

124

10 105364

107

104

1 105423

MACRO v04.00

120
101

101

103

EW337:

130

120

15 105560
16 105620

122
137

115
137

105
137

EH344:

18 105716
19 105735

165
074

130
103

120
122

EH353:

21 105772

040

115

STSH1:

22
23
24
25

106037
106047
106114
106136

26 10617
27

040
040
040
040

040

130

122

040
122
040
122

122

120

040
115
040
115

115

RECEVDA

.ASCIZ

@ RMCS2

RM(S1a

.ASCIZ
.ASCIZ
.ASCI]

BRECEVD
QEXPCTD
REXPCTD

SNGPRT
RECEVD

QSTATUS

RECEVD
STATUS

.ASCIZ

@GDADRS

GDDATA

EH114:
EH223:
EH2S6:

105

@EXPCTD

.ASCIZ

EH336:

STSH2:

STSH3:
STSH&:
.EVEN

.ASCIZ

EH110:

13 105521

17 105656

4-APR-81 01:15:59 PAGE 59

ASCIZ

LASCH
.

@BUSADRa

GRNCS2"

STATUS

SEQ 0296

DULPRTa
DATAa
RGSTR@<CRLF>
INDEX@

BDADRS

FAILING

BDDATA3

DATAJ<CRLE >

.ASC1Z

QERPTTDTM"RETFVD

~~BIT~~~ADRESSa

.ASCII
ASCID

SRMER1
@

HEADER
WORD

.ASCII
ASC1Z

@EXPCTD RECEVD@<CRLF>
@<CRLF> RMLA
RMLA

ASC1Z

.ASCI]

ASCIZ
.ASCI]
ASCIZ
.ASCIZ

.ASCIZ

STATUS

QERPTIDTM"RECEVD

@ RMCS1

RMCS2

NUMBER

RMDS

@
RMASa
@ RMWC
RMBA
RMDA
@
RMEC1
RMEC23
@ RMDA
RMDC_
RMOF

3 RMMR1

RMMR2

RMDT

FAJLINGA<CRLF>
BITa<CRLF>

POSITON®
RMOF @

RMER1

RMER2a

RMOF

RMD(a

RMLA@
RMSNa

ED336:

.WORD

$CDADR, $GDDAT ,$8DADR,
$BDDAT, 0

001174
001444

ED337:
ED353:

.WORD
.WCRD

$GUDAT,$B8DDAT,$TMPQ,$TMP1,0
$GDDAT,$BDDAT
,RMOF 0,0

001350
001344

STSD1:
STSD2:

.WORD
.WORD

RMCS11,RMCS2]
. RMDS] ,RMER1 ], RMER2] RMAST D

001370
001364

STSD3:

001176
001142

001200
001174

106272

001134

001140

001136

10€ 304

001140
001140

001142
001142

106326
106344
106360
106364
106376

001336
001340

001346
001342
000000
001372
001376

106316

001404
001344
001362

001364
001140

106252
106262

—

000000

RMDT],$TMP1,$TMP2,0

106240

.WORD
.WORD

1062464

—_

S$GDDAT ,$BDDAT,0

001142
¢00000
001176

b —

OO0

.WORD
.WORD
.WORD

000000

001140
001276
001174

106232

7
L
01:15:59 PAGE 60

mmm

4-APR-81

U
N\ ~>
ny) —
(IR

NS AN
s

SO0
WA

DB
A9
4

STRINGS

MACRO v04.00

1 JRTMMOBO RMOS/372 FCTNL

ERROR MESSAGE

STSD4:

.WORD
.WORD
.WORD

$RASE
.0

$TMPO,$TMP1,0
$GDDAT,$BDDAT,$TMPO,0

RMWC ], RMBAT,RMDA]
,RMOF | ,RMDC 1 ,RMEC 1]

RMEC21,0
RMDA] ,RMDC I ,RMOF
I ,RMLAI ,0

RMMR11,RMMR2]
,RMDT I ,RMSN],0

“IRMOBO RMOS/3/2 FLINL

ERROR MESSAGE STRINGS

1 1064610

2 106411
3 106613

106416

2106422

7 106427

000
000
000
000

000

°ST 3

MACRO v04.00

)

EF110:

.BYTE

EF336:

.BYTE

0,0,0,0

000
0C0

000

£F111:
EF114:

000

EF337:

000

&4-APR-B1 01:15:59 FAGE 61

STSF:

.EVEN

.BYTE
.BYTE

.BYT'E

.BY'E

0.9
0.0.0

0,0,0,0,0

0.,0.0.0.,0.0.0

s6Q 0298

CZRMOBO RMOS/3/2 FCINL
STRINGS

TST 3

000000

107416
107461
107543
107604
107645
107700

44 107766
45 107767

10023

1
n
1"

52 N
"
n
n
n

1
1"

[eolelelelolelolelole
o]
S WWNINONIN)
— = Oo
n NN B WOWVILIN v
W = NHNOWN—
N~

055
124
124
124
124
124
124
124

124
124

124
124
124
124
124

124
124

055
061
062
063
064
065
066
067
061
061
061
061

120

055

123

055

040
040
040
040
¢ O
040
040
040
040

011

061
061
061
061

117

200

111

HELP:
LASCII

1264
124

124

-1

;TERMINATOR

FILE

IS FuLl

0,0
256.
-1

;2 HEADER WORDS
:256. WORDS OF DATA
:TERMINATOR IF

FILE

IS FULL

.=BUFFER

062
062
062
062
062
062

124

.WORD
.BLKW
.WORD

—d md e —d e = \
—b b end md b =2 \

106456

106474
106526
106553
106607
106660
106704
106737
107007
107057
107117
107170
107244
107301
107330
107365

114

258.
258.

:STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE

USRFIL:

000000

106436

200
200

.BLKW
.BLKW

.WORD

177777

106440

SEQ 0299

MFGFIL:

177777

106436
106436
106437

7
N
01:15:59 PAGE 62

;STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE
.WORD
0,0
;2 HEADER WORDS
.BLKW
256.
:256. WORDS OF DATA

000000

[alelelelelele
b

NI
NN
)

= OO0

000000

d e
Vomd e

38
39
40
41
42

BUFFER:
BUF ONE :
BUF TWO:

106436
106436
107442

NRP N

—2—

N = OV

23
24
25
26
27
28
29
20
31
32
33
34
35
36
37

&-APR-81

;STORAGE FOR GENERAL DATA TRANSFERRS

FRROR ME SSAGE

MACRO v04.00

JASCIT
JASCIT
ASCII
JASCII
LASCII
JASCII
JASCII
ASCII
JASCIT
JASCII
LASCII
JASCII

JASCIL

LASCEI
JASCIT
ASCII
JASCIT
JASCID
JASCIT
LASCII
ASCII

.ASCI1

055
127
055
040
040
040
040
040
040
040
040
040

.ASCI1
LASCI1
LASCID

040

@LIST OF TESTSa<CRLF>
@=——m———————ee a<CRLF>
CONTROLLER ACCESS TEST@<CRLF>
anl
aT?2
WRITE, READ ZEROSa<CRLF>
QT3
WRITE, WRITE CHECK ZEROSQ@<CRLF>

aTé
aTs
aTé

WRITE, WRITE CHECK ZEROS W/ WCE ERRORQ<(CRLF>
WRITE, READ ONESa<CRLF>
WRITE, WRITE CHECK ONES@<CRLF>

at10
8Tl
aT12
aT13
aTl4
a8T15
aTi1é

WRITE,
WRITE,
WRITE,
WRITE,
WRITE,

at7z

WRITE, WRITE CHECK ONES W/ WCE ERRORa<(RLF>

WRITE CHECK MULTIPLE SECTORSa<(RLF>
READ W/ IMPLIED SEEKa<CRLF>
WRITE CHECK W/ HEAD SWITCHINGa<CRLF>
WRITE CHECK W/ MID-TRANSFER SEEK@<CRLF>
READ W/ HCE ERRORQ<CRLF>
WRITE, READ W/ HCIa&<CRLF>
WRITE, READ W/ I1VC ERRORA<CRLF>

aT17
aT20
at21
aT22
ar?
aTeée
@125

<CRLF>

WRITE, READ W/ ABORTa<CRLF>
WRITE, READ EACH CURRENT LEVELQ<CRLF>
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING@<CRLF>
WRITE, READ EARLY PEAK SHIFT@a<CRLF>
WRITE, READ MIXED PEAK SHIFTa<CRLF>
WRITE, READ EACH TRACKQ<CRLF>
READ., WRITE CHECK MULTIPLE SECTORS IN OFFSET MODEQ<CRLF>

.ASCI]
ASClI
LASCII
JASCIT
ASCII
LASCIT
LASCITI
JASCIT
ASCII
LASCIT
CASCII

QOPERATIONAL SWITCH SETTINGSa<(RLF>
@e=—m—mmeem—c—ccr
s e a<CRLF>
USEQ<CRLF>
@SWITCH
@v= = =
=
escecccccccecescae——- a<CRLF>
HALT ON ERRORa<CRLF>
15
@
LOOP ON TESTa<CRLF>
14
@
INHIBIT ERROR TYPEQUTS@<CRLF>
13
a
a<CRLF>
12
@
INHIBIT ITERATIONSQ<CRLF>
N
@
ON ERROR@<(CRLF>
BELL
10
@
ON ERRORa<CRLF>
LOOP
9
@

LASCII

ASCI]

LOOP ON TEST IN SWR<7:0>a<CRLF>
TN128a<(CRLF>

MACRO v04.00

:
8B 8
4-APR-81 (1:15:59 PAGE 60-1

040
040
040
040

040
040
€40
04t
040
040

200

ElaVIV
R SRV, T o

040

0460

[JF-bY-341Y 3y

IV R

e JV T o

SEPEER
&l

Y
P
R S
(S

¢S

sr3

b e d d d —p

2222858 ,5

RMO 5/3/¢ FCINL
L)
S
GE STRINGS

>
TNG64R<CRLF

IN32@<(RLF>
TN16a<(RLF>

>
INBR<(RLF

TNGa<(RLF
>,

>
TN2a<CRLF

<EQ 0300

“JRMOBD RMOS/3/2 FCTINL TST 3

MACRO /04.00

SYMBOL TABLE

ABASE = 176700

ACDW!

= 000000

A(DWZ = 00000V

ArKSTS 053432
ACPUOP= 000000

ADDWQ =
ADDW1 =
ADDW10=
ADDW11=

GO0000
000000
000000
000000

ADDW12= 000000

ADDW?3= 007000
ADDW1+= 000000
ADDW15= 000000

ADDWZ
ADDW3
ADDW4
ADDWS
ADDW6
ADDW7
ACOW8

=
=
=
=
=
=

ADDWS =
ADEVCTADEVM
ACR
AENV =
AENVM =

000000
000000
000000
000000
000000
000000
G00000

000000
000000
000000
000001
000000
000000

AFATAL= 000000

ALL
AMADR1=
AMADR2=
AMADR3=
AMADR4=
AMAMS1AMAMS?2

070514
000000
000000
000000
000000
000000
000000

AMAMS3 000000
AMAMSS= 000000

AMSGAD= 000900
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2- 000000
AMTYP3- C00020
AMTYP4= 000000
AOE
- 001000
APASS = 000000
APE
- 100000
APRIOR= 000000
Ar TCSU= 000040
APTENV= 000001
APTSiZ- 000200
APTSPO= 000100
ARGS = 000004
ASNDA
001516
ASNDC
001514
ASWRE
G= 000000
ATA
= 100000

ATESTN= 000000

ATNMSK

000377

ATNTBL

071746

AUNIT = 000009

AUSWR = 000000
AVECT1= 120256

AVECTZ2=
Ale
=
A17
=
BACK =
BADSCT

000000
000400
001000
000001

040242

BADTMO 005342
BAl
= 000010
8800 = 000001

8801
8802
8803
8804
BBOS
8806
8507

BB08
8809
BITO
BITO0
BITO1
BITQ2

=
=
-

000002
000004
000010
000020
000040
= 000100
- 000200

(

4-APR-81 01:15:59 PAGt

BUFONE

BUF TWO

106436

EBL

- 004000

ECI

107442

CH
- 002000
CHGADR 001330

CHRCNT
(KSWR =
CLKADR
CLKVCT

066107
104410
001520
001522

TLRSTS
CMNSTA
(MPBUF

052552
007476
042432

CLR

= 009040

CMPERR
CNSLO1
CNSLOZ2
CNSLO3
CNSLO4
CNSLO7
CNSLO8

000400
001000
000001
000001
000002
000004

BIT04 =
BITO5 BIT06 =
BIT07 BIT08 =
81709 =
BIT1
=

000020
000040
000100
000200
000400
001000
000002

CTLFG
CYLMSK=
DBCK =
DBEN =
DBL
=
DCK
=
DDISP =

BIT12 =
BIT13 =
BIT14 8IT15 BIT2 =
BIT3 =
BIT4 =
BITS BIT6 -~
BIT7
8178 BIT9
BLNKS1
BLNKS2
BLNKS3
BLNKS4
BOTADR
BOTFLG
BPTVEC=
BSE

010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
0717643
071642
071641
071640
066104
066106
000014
100000

DISPLA 001156
DISPRE 000174
DLT
= 100000
DML
= 000001
DPE
= 000010
DPEHI = 040000
DPELO = 020C00
DPR
= 000400
DRIVES 071600
DRQ
= 004000
DRVCLR= 000010
DRVSTS 055770
DRY
= 000200
DSWR = 177570
DTASTS 056572
DTE
- 010000
DTO
- 010000
DULPRT= 024024
DVA
- 004000
DvC
000200

BIT10 = 002000
B8IT11 = 004000

BUFFER

106436

CNSLO9
CNTCLR
COMMA
CONT =
(PSAVE
(R
=

050550
071105
071115
071157
071166
071222
071364

=
=

BITO3 - 000010

CRLF

071365
052434
070525
000100
065230
000015

= 000200

001326
001777
100000
040000
002000
100000
177570

DEBL
= 020000
DEVSEL
050762

EARLY

62-2

07227¢

SEQ 03M

- 020000

EH344

105560

= 004000

EMSI

076772

EMS101
EMS102
EMS103
EMS104

101572
101620
101647
101656

ECH

= 000109

ECRC
EDTI

= 001000
076614

EDTI10
EDT111
EDT 14
EDT2
EDT223

EDT336
EDT337
EDT344
EDT353
ED1
ED110
ED111
ED114
ED223
ED33¢

ED337
ED353
EECC =
EFTT
EFT110
EFT11T
EFT114

EFT2
EFT223
EFT336
EFT337
EFT344
EFT353
EF110
EF111
EF114

EF336
EF337
EHTT
EHT110
EHTI11
EHT114
EHT2
EHT223
EHT256
EHT336
EHT337
EHT344
EHT353
EH1
EH110
EH111
FH114
EH223
EHZ256
EH336

EH337

076632
076634
076636
076624

076640

076650
076660
076670

076702
106232
106240
106244
106252
106262
106272

106304
106316
000020
076704
076722
076724
076726

076714
076730
076740
076750
076760
076770
106410

106411
106413
106416
106422
076470
076512
076516
076522
076502
076526
076540
076552
076564
076576
076610
105166
105205

105214
105233
105262
105310
105364
105423

EH3IS53

EMS10
EMS100

EMS105

EMS106
EM311
£MsS110

105716

077326
101544

101705

101734
077370

EMS12
EMS120
EMS121
EMS122
EMS123
EMS126

101753
102002
102013
102077
102127
102153
102156
102206
077401
102230
102251
102314
102351
102414

EMS126
EMS127
EMS13
EMS130
EMS131
EMS132
EMS133

102511
102554
077442
102613
102651
102711
102735

EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS14S
EMS146
EMS147
EMS15S
EMS150
EMSI51
FMS152
EMS153
EMS154
EMS155
EMS156
EMS157

103065
103112
077453
103147
103170
103216
103233
103261
103271
103320
103337
077464
103354
103372
103416
103442
103464
103500
103520
103536

EMS111
EMS112
EMS113
EMS114
EMS11S
EMS116
EMS117

EMS125

EMS134
EMS135

EMS16

102446

102760
103022

077506

EMS30

EMS31

EMS32
EMS33
EMS34
EMS35
EMS36
EMS37
FMS4

077041
G77576
104237
104254
104322
104352
104365
104413
104425
104452

077621

104477

104510
104526
104551
104574
104612
104633

104663
977644
104716
104736
105006
105037
105114
077660

077706
077735
077752
077773
077056
100004
100014

100043

100072
100120

EMS56
EMSS57
EMS6
EMS60
EMS61
EMS62

EMS63

EMS64
EMS65
EMS66
EMS67

EMS?7
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77

EMT10

EMT100
EMTION

EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMT
EMTI110
EMTIT
EMT112
EMT113
EMT114

EMT115
EMT116
EMT117

077121

EMT120

100247

EMTiZ

073706

WIN W
N NN NN NN N N
SN
2O
NN SN

1
1

EMT 1
EMT 1
EMT1

EMTVEC=
EMT1

100171
100220

—

104013
1064042
104075
104115
104132
104140
106166
104215

077536

103766

e O

103741

h wd

EMS166
EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS?2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EMSZ27
EMS3

EMS42
EMS43
EMS44
EMS4S
EMS46
EMS47
EMSS
EMSS0
EMS51
EMS52
EMSS3
EMS54
EMSS55

b —d d e

EMS164
EMS165

4-APR-81

EMT1
EMT]
EMT]
EMT]
EMTI
EMT1
EMTI
EMT1

EMS4O
EMS4T

EMS163

103553
103570
103620
163620
193644
103725

MACRO v04.00

d O

EMS160
EMS161
£EMS162

TABLE

SYMBOL

TST

—d med e

TIRMOBO RMOS/3/2 FCTINL

EMT135
EMT136
EMT137
EMT14
EMT140
EMT 141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152

EMT153
EMT154
EMT155
EMT156

EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT20]
EMT202

D
8
01:15:59 PAGE 62-3

073716
073726
073736
073746
073756
073766
074000
072472
074012
074024
074036
074050
074062
074074
074106
074120
072504
074130
074140
074150
074160
074170
074200
074210
074220
072512
074230
074240
074252
074264

074302
074320
074332
074344
072520
074356
074366
074400
074412
074422

074430
074436
074444

072530
074452
074464
0764474
074504
074514
074526
074534
074542
072410
072540
074544
074556
074570

SEQ 020¢

EMT203
EMT204
EMT205
EMT206
EMT207
EMT21

074602
074614
074632
074642
074652
072550

EMT 266
EMT267
EMT27
EMT270
[mr271

EMT21
EMT212

074672
074706
074722
074732
074752
074764
074774
072560
075004
075014
075024
075034
075044
075046
075050
075052
072570
075054
075056
075060
075062
075064
075066
075070
075072
072600
075074
075076
075100
075102
075104
075106
075110
075120
072610
075132
075146
075154
075162

EMT274
EMT27S
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT302
EMTZ02
EMT304
EMT30S
EMT 306
EmM1307
EMT31
EMT310
EMT311
EMT312
EMT313
EMT 314
EMT315
EMT316

EMT210

EMT213
EMT214
EMT215

EMT216
EMT217
EMT22
EMT20
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT 24
EMT240
EMT24

EMT242
EMT243
EMT244
EMT245
EMT 246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT 254
EMT255
EMT256
EMT2S7
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265

074664

075200
075210
075220
075230
072620
075242

075254
075274
075304
075314
075334

EMT272

EMT273

EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT 324
EMT32S
EMT326
EMT327
EMT33
EMT330
EMT331
EMT 33?2
EMT333

EMT 334
EMT335
EMT336
EMT337
EMT 34
EMT340
EMT 341
EMT 342
EMT343
EMT 344
EMT 345
EMT 346
EMT347

075354

075366
072630
075404
075420
075436
075454
075472
075510
075522
075536
072416
072640
075554
075574
075616
075630
075642
075654
075666
075676
072650
075716
075730
075742
075754
075774
076006

076020
076032
072660
076042
076052
076062
0760/
076100
076112
076124
076142
072670
076154
076164
076176
076210
076226
076244
076264
076274
072700
076304

076316
076324
076336
076350
076362
076372
076406

000001
072016
020000
020000
000200

N
T}
[T

000340
177776
0020C0
177776

043330
001412
001553
000024
070521
054226
000070
104411
104412

104413
000200
007679
000006

104415

000010
010000
040000
071756
000072
000020
000012
000016
001354
001430
000004
000950

001406

001462

RM(CST

001342
001416
= 000200

RMCS1]
001336
RM(CS10
001412
RM(S? = 000010
RM(S2]
001346
RMCS20
001422
RM(CS3 = 000052
RM(S3]
001410
RM(S30
001464
RMDA
000006
RMDA|
001344
RMDAO
001420
RMDB
000022
RMDB
001360
RMDBO
001434
RMDC
-~ 000034
RMDCI
001372
RMDCO
001446
RMDS]
RMDSO
RMDT
RMDT
I
RMDTO
RMEC1

000012
001350

RhR
wh
L)

|and

R
P

P
(]

100000
160000
000200
000014

RE CAL
RESREG
RESVEC
REX

Hon

OFFSET
oM
ONES
OPE
OP]
OR

115760
010000
004000
071627
000000
071540
071523
071465

pel

NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA
occ
OFD

001000

NEM

071422
070530
001000
000010
000010
071634

NDTMSK
NED

100000

000200

X
<

[

MSE
MSER
MSGDRV
MSHELP
MUR
MWD
MWP
MXF

MSDRVS

000004
071756
000400
020000
010000
002000
000040
000002
071406

002000
001000
000200
020000
177772
000240
002000
044056
000000
000040
000100
000140
000200
000240
009300

RMBA]
RMBAQ

001424
000026

001364
007440
000044

001402
001456
000046
001404
001460
000014
001352
001426
000042
001400
001454
000036
RMHR
]
001374
RMHRO
001450
- 000020
RMLA
RMLA]
001356
RMLAO
001432
RMMR1 = 000024
RMMR1]
001362
RMMR10
001436
RMMR? = 000040
RMMRZI
001376
RMMR20
001452
RMOF
000032
RMOF|
001370
RMOF
O
001444
RMR
000004
RMSN
000030
RMSN]
0013%60
RMSNO
001442

RMEC1]
RMEC10
RMEC?2 =
RMEC2]
RMEC20
RMERT RMER1]
RMER10
RMER2 =
RMERZ]
RMERZ20
RMHR

BN
HHH

no*n

N
HoH
"

[}
T

MSC

MOL
MRD
MS

[

MIXED
MoC
MOH

1
A
1 B
B
O
T
Hornut

T S

1 N

000052
000054
000056
000060
000062
000064
000066
000070
000072
ILRG74- 000074

066274

110446

MFGFIL

far

I
I

—

043060
001336
001524
042774
000001
104407
000200
002000
000400
106436
= 000011
0020C0
065232
200077
000100
000001
000002
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000054
000056
000064
000066
000074
000076
000002
000050

042174

Hnannna

000004
000010
000020
000040

= 000002

O
F1
F2

066125
066134
066142
066145

FNCDTB
071646
FNCMSK= 000077

000022
0000¢?
000010
000020
000400
066152
066162
066250
066266

&
>

ERTYO1
ERTYO2
ERTYO3
ERTYO4
FRTYOS

066110
066115

010000

FMT16

ILRG76~ 000076
000020
10TVEC
000001
IPCKO
K1
000002
1PC
000004
IPCK2
000010
IPCK3
000100
IR
010000
IvC
002006
LBC
002000
LBT
000012
LF
LODEV
071506
000004
LS
004000
LSC
000002
LST
001334
LSTRK
MCLK
004000
MCPE
020000
MDF
000100
MDPE
000400
MEDENS
001512

SEQ 0303

P )

ERTYOO

004000
000020
000001

8
E
&4-APR-81 01:15:59 PAGE 62-4

LI E I T

ERROR = 104000
ERRTYP 065234
ERRVEC= 000004

ESRC

FER
F IND

—

072710
076420
076436
076446
076452
076462
072720
072730
EMIS
072424
EMT40
072740
EMT4)
072746
EMT&2
072756
EMTL3
07277C
EMTLS
073000
073010
EMT4S
073020
EMTLE
EMTSL7
073030
072432
EMTS
EMTSO
073036
EMT51
C73046
EMTS2
073060
073076
EMTS3
073114
EMT 54
073124
EMTS5S
EMTS56
073136
073154
EMTS7
EMT6
072440
073164
EMT60
073202
EMT61
073222
EMTE2
073236
EMT63
EMTOL
073240
EMT6ES
073260
073300
EMTE6
073312
EMT67
072446
EMT7
EMT70
073324
073334
EMT71
EMT72
073344
73
073362
EMT
EMT74
073400
7S
073410
EMT
EMT76
073430
EMT77
073440
ENRGDT
072404
070512
EQUALS
040000
ERR
066102
ERRNMB

[

EmM135
EMT350
EMT351
EMT3S2
EMT353
EMT 354
EMT 36
EMT37

TABLE

MACRO Vv04.00

SYMBOL

TST 3

—

rZRMOBO RMOS/3/2 FCTINL

000002
001340

SW04

000020
000040
000100
000200
000400
001000

nanoen

sC1

000200
000400

001000
002000

000030
044710
000004
051174

037262
067550
043550

040000
020024
001100
007020
005432
005422
005436
062172
STKLMT= 177774
STOP
064612
106326
STSD1
106344
STSD2
106364
STSD3
106376
STSD4
106427
STSF
105772
H1
STS
106047
STSH2
106136
STSH3
106174
H4
STS

DR
TR I B T

SwR

001154
000176
000001
000001
000002
000004
0000°0

T
T
T O
O
T R
O
1
O
1Y
O
¥ T
B
T
T I
T
T

SC
SCOPE
SCTMSG
070426
SCTMSK= 003700
00100
Sco

T
T I T A TR
T
T
T S
T
T

SA8

SWié
SW15
SWe
Sw3
SWé
SWS
SW6
SW7
Sw8
SW9

Sw12

SW13

SA16
SA2

Swi
SwW10
Sw1?

TI ¥ I

R7
SADMSK
SAVREG
SA1

SW05
SwW06
SwQ?7
Sw08
SW09

SYSTAT

TADMSK
=
TAG
=
TAGADR
TAP

TA1
TA16
TA2

TA4

TA8

TBITVE=

TIMOUT
TKVEC TPVEC
TRAPVETRE
TRTVEC-

TST
=
TSTNMB

TSTPRP
TSTQUE

TSTI
TST10
TST1
TST12

TST13
TST14

TST15

TST16

TST17
TSTZ2
TST20
TST21
T1ST122
18123
TST24

000002
002000
004000
010000

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
071430
1774609
020000
001114
040600
000400
010000
007000
002000
004000
000014
043672
000060
000064
000034
040000
000014
010000
066100

037316
001466
010066
016630
017634
021060
022266

023310
025156

026562
027602
010266

TST25

SINTLU
$(PUOP
$CRLF
$DBLK

TST4

TSTS
1ST6
18717

$DOWO

TYPBN
TYPDS
TYPE
TYPO(
TYPON
TvYPOS

UNS
=
UNTMSK
UNTOFF
UNTON
UPE
USE
USRF IL
uo
ul
vV
w(

040000
111454

000001
000002

000004
000100
000040

000050
040000
WCEH!
010009
WCELO
004000
WCF
000040
W(H
000052
WD
000060
WH
000062
WLE
004000
WRL
004000
XS12
006464
XXDP
001332
Y
071636
ZEROS
072060
$SAPTHD
001100
SATY(
070204
$ATY1
070160
SATY3
070166
$SATYS
070176
$AUTOR
001150
$BASE
001276
$8DADR
001136
001142
$8DDAT
$BELL
001212
063044
$8IN
$CDW]
001302
$CDW?
001304
$CHARC
064050
$CKSWR
066610
$CMTAG
001114
$CM3
000000
$(M
= 000005
$CNTLC
067506
WCD

WCE

001270
001222
001252
001256
001262
001266
001102
0704272
067536
001236
001240
001222
067525
001253
001257
SMTYP3 001262
MTYP4
001267
SMXCNT
064536
SNULL
001170
SNWTST= 000001
SOCNT
063514
SOMODE
063516
$OVER
064522
$PASS
001230
SPASTM 001106
$SPOWER
070159
070002
070136
070054
001216
067152
067242
067572

SMADR&
$MA]L
$MAMS1
SMAMS
SMAMS
4
SMAMS
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR
MTYP1
MTYP2

SCNTLG

1513

uel

SEQ 0304

$DDW1
$ODV/2
$DDW3
$DDW4
$DDW5
$DDW6
$DDW?
$DEVCT
$DEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
SEOP
SEOPCT
$EOSP
SERFLG
SERMAX
SERROR
$ERRPC
SERRTB
SERTTL
SESCAP
$FTABL
SETEND
SFATAL
SFFLG
$FILLC
$FILLS
$GDADR
$GDDAT

000010

$GET42

SGTSWR

$GT42P

$HD
$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
SITEMB
SLF
SLFLG
$LPADR
$LPERR
$MADR1

$MADR2
$M~DR3

RMW(
RMWC|
RMCO
RQA
RQB
RT(
)

&4~APR-81 01:15:59 PAGE 6 2=5

TABLE

MACRO v04.0C
1§

SYMBOL

TST 3

rZRMOBO RMOS/3/72 FCTINL

062734
071446
071453
071460
SRTNAD
037254
$SAVRL
062676
$SAVR6
070146
$SCOPE
064054
$SETUP= 000137
$STUP = 177777
$SVLAD
064466
$SvP(
000210
$SWR
$SWREG
=
SSWRMK
$Sw08T
S$TESTN
STIMES
$TkB
$TKCNT
STKINT
$TKQEN
$TKQIN

167400
001244
006000

064540

001226
001206

001162
066300
066310
066307
066302

"IRMOBC RMGS/37¢ F

TNL

TST 3

MACRO v04.00

SYMBOL

TABLE

$TkQOU
$TKQASR
$TKS
$TKSRY

066304
066306
001160
066360

$1MP4
$IN
=
$TPR
$TPFLG

001204
000026
001166
001173

$TRPAD
$TSTM
STSTAM
$TTYIN

067746
001104
001116
067476

STYPEX
$TYPOC
$TYPON
$I1YPOS

(064052
063315
(63332
063272

SVECT2
$XOFF =
$XON =
$XTSTR

$TMP1
s$TMP2

001176
001200

$TRAP
$TRAPZ

067674
(067734

$TYPDS
STYPE

063046
063520

SUNITM
$USWR

001110
001246

$35W08= 000026
$OFILL 063515

$ TMPO

$TMP3

. ABS.

001174

$TPS

001202

$TRP

112462

000000

ERROKS DETECTED:

&-APR-81 01:75:59 PAGE 62-6

001164

= 000016

200

001

vIRTUAL MEMORY USED:
62208 WORDS
( 243 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(ZRMOB.BI(,{ZRMOB/ (-CZRMOB.DOC, (ZRMOB,SYSMA(/M

$TYPRN

$TYPEC

062772
(63732

SUNIT

SVECT1

SEQ 0305

00123%&

001272

001274
(00023
000021
064076

$$GET4= 000000
.$X

= 001100

$CMTAG
$CNTLC
$CNTLG
$CNTLY
$CPUOP
$CRLF

$OBLK
$DDWO
$0DwW1

$0DwWS
$DDW3

41-1
45-1#

6-0
6-0
6-0#
6-0n

45-1
45-1
45-1

6-0n
6-0#
43-1
36-1
6-0#
6-0n
6=0#
6-0#

"\J’})'\JN

b
——d
—

[P
o o o

—a

o8
oW o

NN'}’N

P 2

)
—

Nf}fl})'\)'u

el —D

SEQ 0306

RNy
o o

——d
b
b

L R

aF
f oW o

h
b
b

LR]

—

NN'}JNN

'\JN'})NN

o
2R
Fa¥ o

b
e
md
—

]

[R X

kol
o o o
AVIgE
1 N 1,8 1,
|I I
I
I |

ONN'})NN
!

o
o
ol ok o

L=
42-14
40-1+

431

38-1#

41-1+

47-1

00
-

ot
unn\nawruuu WA
TR0

60-8

%
»

[}
UL
W= =000
HPOOMNPYS
ANNOSTMONNO

L
B )

2541+
25-142
25256+
25-387%
2610~
29-37+
29-196+
31-101»
32-113+

b
—

13-A73%
13-F72%

oW
Co —

—

Nelo wh
1t

N NONONININ)
— 2 —

!
~

33-254+

33-205+
(o]

34-72
35-189+
35-395+
36-112+

§
o

»
»*
*

#
%

13-322
13-K05

31-80+
W
v

3*0‘0'\)"'\11—‘
KN

45-1

=471

&o»

33-159¢
341
3567+
35-288+
35-534+
43-1
38-1x

25=344n
25-470~
26=-150+
29-143+
31-79+
32-57*
33-189«
34-57~
35-116+
35-313«
36-46+

25329+
25455+
26~137+
29-117
31-69+
3227~

25-200*

NOOOVWS
O:00 00 wwvio

2475
25-87

25~86+
25-184+
25-315+
25433~
26-122
29-106
31-59
31-127
33-134»
34-31
35=47»
35-270~
35-517«

PPN
— = = O — —0
N

28-2%

13-477x«
13=-465~
13-D34»
24~69+

45-1
11-33
13-238
30-15
12-478»
13-473=
13-p37#

AV 1V,

13->88

AN
r

$CDW1?

$CDW2
$CHAR(
$CKSWR
(M3
(ML

6~0n
38-1
6-0n
6-0#

42-1
42-1
42-?

)

35-135+
35-356+
36-62*

45-1

42-1

42-1
G2=1n

42=1
L2=14

421

4«2=1

42+

42-1
42=14

42-1
&2-1#

42~1

42-1

13-969
20-36

42-1

10-23
45-1
45-14

10-80
43-1
39-14

13-497
13-L50

13-645
13-M95

13-790
13-046

13~A84»
13-G27+

13-849+
13-G82+

13-B66+
18-82+

25<53»
25-156+
25-257+
25-388+
26=34~
29-66*
29-212~
31-102+
33-35+
33-270~
34-81+«
35-190«
35-417+
60-1

25-54*
25-157+
25 271x
25-402%
26-92*
29-67+
31-29+
31-104
33-49+
34-16%
34-82+
35-191
35-442%
60-6

6-0

6=-0#

13-B77+
24—~47+
25-64*
25-65*
¢5-158
25-170+
25-272«
25-284*
25-403*
25-417«
26-93+
26-94
29-68
29-88+
31-30~
31-32
31-114+
31-115+
33-65
,33-82+

34-17+
34-84
35-203+
35-457+
60-8

34-19
34-94x
35-204+
35-470+
60-10

6-C#

6-0»

13-;20
21-30
13-D30+
2448
25-67
25-171+
25~285+
25-418+
26-120~
29-99«
31-4¢"
31-124~
33-103~

34-28»
34-103~
35-240v
35-483~
60-11

41-1

$BELL

$8IN

35-256~
35-496+

L(9-1#%
L9-1a
49-12
10-28»
10-75

(]

24-51
25-85+
25-183~
25=-314+
25-432+
26=121+
29-100+
31-51»
31=-125»
33-120+
34-29+
35-31»

vO1-05

&-APR-81 01:15:59 PAGE S-1

S84

\nvuncx>qerqT

13~D31x

MACRO v04.00

491

43-1
46-1
6=-0#
6-0#
13-=05
23-12
6-0n
6-0#

43-1

— &
oo

(9-1»
411

IARY

$8DADR
$6DDAT

401
42-1
5-8
(9-1

Lo-1#
L2=1a

SOF ILL
$40CAT
$APTHD
$ASTAT
$ATY1
$ATY3
$ATYSL
SATY(C
$AUTOB
$RASE

14-204

42-1
42-1
42-1

42-1a
L2=1a

(CREF

"4-20
62~1
421
42+1

OW
i
[

$8GE T4
$2S.08

TABLE

N ‘\-—l

"ROSS REFERFNCE

TST 3

EaB

C(ZRMOBO RMGS/372 FCTNL

10-23

11-28
44=104

11-62
44-114

14-20
45-1

47-1
451

411
45-1

41-1
45-1

“IRMOBO RMOS5/3/2 FCTINL TIST 3

"ROSS REFERENCE
$SDODWe
$ODWS
$DOWE
$0DW?7
S$DEV(CT
$DEVM
$O0AGN
$OTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
SEOP(CT
$SEOSP
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
$ESCAP
$E TABL
$E TEND
SFATAL
SFFLG
SFILLC
$FILLS
$GDADR
$GDDAT

6~0n
6=0
6=-0#
6=0n
6=0#
6~0#

14=20

$itLUP
$INTAG

v01-05)

10-117»

10=67+
14-2C

39-1#
10-28
14=20#

6~-0n
6-0#

10-28
10-23
146=20#
"4-20

43-1
41-1

42-1
10=-23«
L(3-14

42-1
42-1

10-23
16=20#
13-30
10=-23+
14-9#
6-0#

6-0#

10-23
6-=-0¥

8-0#
6-0n
6=-0#
6-0#
5-8
6=-0n

(91

6-0#
6~0n
6-0#

6~0n
13-850+

29~36%

$GTSWR
$HD
$HIBTS
$HIOCT
$ICNT

(CREF

39-1
5-§

24=49*
24=150~
25-139«
26=91+

$GE 142
$GT42P

TABLE

MACRO v04.00

29=~210»
31-126*
32-114»
33-132*
73-252+
35=-29»
35-161»
35=287+
35<415¢+
35-532+
60-6
12-3¢6

14=20
45-1#
4-480

10=121+

11-63+

11-70s

11=97+

11-98

12=4

42-1+

6£3-1

63-1

43-1e

12-38

13=29.

1408+

431

43-1
4472
14-20
10=23+

6-04
49-1+
49-14
41-1
41~1
13-476%
13-463+
13-865+

24=50+
24-151+
25-142
26-94
29-47+
29-211»
31-127

32-115+
33-133«
33-253+
35-30»
35-162+

35-299+

35-416*
35-533«
60-8
12-43
14-20#

8
|
&-APR-B1 01:15:59 PAGE S-¢

14-20#

47-1
4~-480

47-1
4-480

46-1*
42-1
48-1
45-1

42-1
48-14
45-1

43-1

43-1»

446-54

14-20* b
43-1

43-1
43-1

431+
43-1

49-1x
41-1

49-1~

13-948+
13-474»
13-D26*

13-951
13-475%

18-83*

24=67~*
25-55«
25-155+«
26=117+
29-68
31-32
32-26+
33-34»
33-158+
33-269«
35-46*
35-187~
35-314+
35441~
35-549+

24-68x%
25-66+
25-158
26~122
29-87+
31-41+
32-39»
3347+
33-173»
34-18%
35-65+%
35-191
35-315+

24~74
25-67
25-165+
26-134+
29-101+
31-57+
32-40«
3348+
33-175+

35-455«
36~44«

34-19
35-66+
35-205+
35-323«
35-456+
36~45

42-1

42-1+

42-1%

45-1

45-1+

60-11

13-D88*

13-483
13-F11+

13-934«

13-F 70+

24-88+
25-84+
26-23«
26=136+
29-129x
31-68+
32-59+
33-64+
33-188+
34-31
35-86+
35-238+
35-355+
35~469+
36-76+*

13-947+
13-G25+*

24=90*
25-98+

26=-25+
26~148+
29-166*
31-82
32-73«
33-8ir
33-204+
34-71x
35-115+
35-254«
35-368+
35-482+
36-96+

13-955

13-G26+
24-106+
25-106+
26=-26*
26-149+
29-167+
31-91»
32-86+
33-101~=
33-220+
34-72
25=-133«
35-255+
35-380x
35-494~
36-97+«

13~-A72+
13-G81+

26-122+
25-135¢
26-32
27-40»
29-194+
31-104
32-100+
33-118+
33-238+
34-84
35-147~
35-26G+
35-393=
35-515»
36=-111»

(ZRMOBO RMOS/3/2 FCTINL TST 3

(ROSS REFERENCE

TABLE

(CREF

MACRO v04.00

v01-05

)

4-APR-B1 01:15:59 PAGE S-9$

SEQ 0308

w—ONEONMNTRSTEDWURSO-MONCONSYSDGUML«YWPPNLS~F400axxe

W—eeMOxMOnU2—=—rFazey~aWw)A-V—ONMT~—Q—U>-—M@Ag—0uM

44-49

~sXNMO )U MyM

]

R_n

NUnO

* B

¥R

5089M *

—

~y SXRN2koltkUK <5 —

O N %4

N
w
M
r
—
A
e
V
D
n
O
&SRQAPAaRARAERHKERARGAE5GE55E OVONMMMONOINWNVVW0OMNNOUNOO W/Ix*oWL&OMON
T

b
4

'w*

L~zR4ANX*goOAlaNnVdaOnkNaQndoOlILoko#—V}V41O9IOdUNo%l,o3lTa8nIdNo3WlNb7AOt9T7SEXSN«S*EXXaX0XNXOOWMANO¥tRMoOoO4NANRoOlBLMoOkMMRONRRMNO-N3NN4NB«R
4XANN[OD0AIN—DOM0\O—r—0e-P—NO4[4PRkRX|[MO—W~304NKNacnkLoMniOy<K2NN-~ANMe—¢[—
MN)¥So AR RN SR ARA>RESH=2ZR2D@xVALARAONARA-RoDRoOIVwa

WaSNAxW”VaNeA-xAWN“RO¥R%&¥S"K4AMARgRN&x*A(~R2—}xN&"VRxRM4A[LVMNAVAENVIMRMAPSMVIARmYS*XAR-tAVEPm3OAN3RAdNKCL>uR>mA¥£x ARQ-aMwRRNLAUPLRU
TABLE

WOTNMNOT=IRANOUTO

(({REF

Vv01-05

MACRO v04.00

TN IVPTTT Y OITTTTOTT T TETTRIIYT vaouT 5

L*%Y

)

4-4PR~81
01:15:59 PAGE

>N NN N

Ty Y TRITT

ToaT TITYN AT

8
S-4

U M W M M M MM M ~

YT IVTT T2

S& A& TYIYTENS Sin T
-oyS VT T S RN

TOLTeNVeY YTk T
q
WA
G
DRYT YOETT&&2l TA ARVY % ke

YTV ITT¥TT T N9 T ORI Y rTeT T

— 1] o N 1 N~ Mo

ROSS REFERENCE

= & X * &* &x

ZRMOBO RMQS/$8/2 FCINL TST 3
SEQ 0309

®€*W&¥x

O337).5[66]66]6[6]6[6663VoN]SVeXXYVARNeoVXolXRVeVoValVelLo_lwm.=RONOVN773.
-

MANAND ' N

- - TITS TTTgSM RV

—ree — SNX LK NNSSNXZXSXZXRSNAXAALA

[}NeNO[AWE[[N eM—otP!~-[w—]yNU—cR—U—rR—eR—eL—eRUNTL~ttUX-TXT[CRX

£>0<0OxMAebo~aqBO2nMM0kF4tA06nO—0ulNt:M7aOIMn"ZSA——E¥NR[l.«OA03>oKAT3nRAOO3RAC3OOORA30r2O38A302A3r32A23AO8AOE0—VLNoa!)8lIMOsAN8OoV])rwSSxo0RnSC—RSFv-]m.—S.EAXo0—]3)AA—(eoOo5a]V]CPR®AOALRNA3e25AN0CSNAUTAO0VAA>4eR4NEPOCU4on“~ERULL—~NNQA-—N"eR*4—AAU®2S—NNSeU—ZXCXeNUN—URZEXXUn—UI-E[XX
oxXwQTu<Z-x=~2oNaZgMn2n ‘u“x®&(g'3oXwLv=&NRr1l' LoVR]NOYAo—-WMAV0NeMRE—Nl)MNNA
&R

(CREF

v01-05

MACRO V04.00

)

£3

4-APR-81

¥v

01:15:59 PAGE S-5

OxWNR
¥

ORI~

~nSFO
3b
=

! ] (K LU

CZRMOB0O RMOS5/3/2 FCTNL TST 3
TABLE

[ 0) 10

CROSS REFERENCE

SEQ 0310

»n-

MACRO v04.G0
CZRMOBO KMOS/3/2 FCTINL IST 3
CROSS REFERENCE TABLE (CREF v01-05 )

25-326

49-1

25-341

25-356

25-360

SEQ 0311

26=117

26-121

51-77

51-78

51-81

51-82

51-85

49-14

7BI829F:AI.F.EST(:BN)T?I«GAI‘.*SUCDIEAFGBHOIRJQRA1R.A2S3N%I5

A1MQn2gf9Mi7C5D2FG4070H;IS0.NM7INiMI5EA2=CN5S1ANV9S6O5-N~2OM8AF7NTI“NT—3O7N9O68%N0,1'398=4-—

A:finOucgf—VIAN=s;NbMrNFuOCtRNl

4-APR-81 01:15:59 PAGE S-6

>7.aneC0VfiUCNFDEM02F=GHOI0I OQ0ANNAMMNRe—MNrA—eN— >?3AO£CDFMeAE=NrFvIGNVHOINJ tert xR&VyR aoATYLllllt.aloalila.aiaA.RT Rb.YPy3RE Loa2l.TVl]ae.,N(ANU, ‘.R«‘-XEMNRER

TTT eTPPPTMTPPPoTTPPoo

D—~MNAINNOOAVUIMNN0N3OVM=—OMN—
'

CZRMOBO RMOS/3/2 FCINL TST 3

13-K94H

ASNDA
ASND(
ASWREG
ATA

7-0#
7-04

6-0
4=552#
51-60
51-80
6-0
4-5894
10~-78

MACRO v04.00

v01-05

)

13-J494

4-APR-81 01:15:59 PAGE S-7

13-N38#
13-020#
13-088#
13-P61

13-4534
13-Kk434
13-L114
13-L90#
13-M72#4
13-N4 14
13-023#
13-092#4
13-P614

13-J66
13-K454
13-L274
13-L93#
13-M754
13-N45#

16-331

6-0
25-138

16-358«
16~366+

25-139

51-83
6~0
34-55
10-117

51-64
51-84

10-121

13-0434

13-x13#

13-K96#
13=-L69#
13-M430
13-N33#
13-004
13-083#
13-P47H
16~299*
16=-298+

51-63

NVolVolVolVel ol al al al,al ol al alalal ol ol alalalal ol al, al, o'

ATESTN
ATNMSK
ATNTBL

13~-L58#
13-M41H
13~N15#
13-NS1#
13~-020#
13-P45#
13-Q10#

(CREF

-—

13=J474
13-K244
13-K98#
13-L8S#
13-M56
13-N36#

13~-004#
13-085#

13-P4LN

16-330

SEQ 0312
13-4874
13-K65#
13-L39#4
13-M274
13-M86#

13-482#
13-K52#
13-L324
13-M10
13-M80#

13-P74A

13-J664
13-K484
13-L 304
13-L974
13-M774
13-N58
13-028#
13-PO5S#
13-P834

13-032#
13-P174
13-P86#

13-K65
13-L354
13-M10#
13-MB4#
13-N754
13-0344
13-P234
13-P94n

16-35%
16-367

16-361+
16-369+

16-362+
16-396

16-363

16-365«

16~397

25-141
51-67
51-87

29-156
51-68
51-88

29-157

29-192
51-70

29-195
51-71

33-145
51-72

33-146
q=‘73

11-97

12-17

52-34

13-k40#
13-L11
13-188#
13-M564

13-025#
13-PQ5

51-69

13-N58#

13-J85#

13-N784
13-0364
13-P26#
13-P974

13-m30#
13-M88#
13-N8O#
13-038#
13-P33#
13-P9S#

13-J944
13-k85#
13-1L434
13-M32#
13-M90¥
13-N83#
13-053
13-P36#
13-002#

13-496#4
13-x87#
13=-L45#
13-M35#
13-N03
13-N87#

13-053#
13-P38#
13-Q06#

13-k0C#
13-K90#
13-158
13-mM39#
13=-NO3#
13-N89#
13-064#
13=-P4L 14
13-008#

33-185
51-74

33-188
51-75

51-58
51-76

51-59
51-79

13-090#
13-k82#
13-L414

6-0

MYMMM

64
1

34
582
~622

OWT2AN—M—0NON

o ¢ COCO NON

13=0404
13-k13

TABLE

ol Loael

CRCSS REFEREN £

174

13-301#

13-<24#
13-<S3
13-<89#
13-=434
13- =88
13->21

13->52

13->81#

i3-237

13-304#

13-330
13-381#

13-330M
13-398
13-4144

13-542#
13-58%¢
13-630#
13-664
13-7254
13-754
13~785
13-835#
13-883#
13-927#
13-:09#
13-:63#
13-;:02#
13-.28#4
13-.88
13-<28
13-<55#
13-<9
13-=464
13-=88#
13=>21#
13->52#
13->83
13=-2374

13546
13-N
.
13-634
13
13-72
13-754
13-785
13-839
13-88
13-927
13-:114

134144
13-461#

o6n
13-:63
13-:99#
13-,28
13-.834

13-63
13-126
13-169
13-218#
13=265#

13-4614

13-:67

1 3‘: 0‘0‘

13-:40
13-.884
13=-<2 84
13-<58

13-<914

13-=484
13--92

13=>214
13->524
13->834
13-2374

“ZRMOBO RMOS/3/2 FCTINL TST 3
TABLE

(CREF

v01-05

)

4-4PR-81

01:15:59 PAGE

S-8

SEQ 0313

4=742

4-760

42-1

43-1

8800
8801
8802
B&03

8804
8805
8806
8807
8808
8809
BITO
81700

BITO1
BIT102
BIT03

=739

10-25
26-28

L~6704
L=-6704
L=670#4

4-6704

4=6704
L4=670
L{=-670#
L=-6704
L-4L8LH
4-484
43-1
4-484
4-48¢6
4-484

23-18
4-484k

4=496

4=544

4=562

4-581

4-618

4-636

4-670

42-1

AP oS F I T r X F TP I R 005449F

BADTMO
BA]

S B B R A VDO AR A A AR

ococaam.yHlJJKLfiflWOVCOQWLIL783A%

R
111’1111111111111111’111111111’1111111111

—e Te eeTsT eTPTTTTTe A P

— g =Y P eP P TT eP T T T TT T T T T T T e

R PP T I T P XXXP e P RT R T TRT T—
R
P
T
T
e
e
T
P
T
e
T
P
P
P
P
T
e
e
P
e

AQUG
P T -TY
T T ePYYe T TIe TIRT e FFEOOPGL
e T e PI PPP
e e eL PQFIT
— P P T T CPPO
o~| BACL

3%2k¥494R659363*®r5%M415094b2739%8R3635RyYNAOOxMROMN
X P PR F FFPOOVGG QP
TR D PYUE
L PRIPRR
RALLPO

VMWAN)DVN[N?IAT33n£}RECDonEcFoGcHIaJqKaKLo%n2 73%“95274OAM2M07O1WTN69CO5MI%9OMA

AR AR
IR R 333333
ONITR A 333333
AN333333
AR333333
R AR}33333
33
}}}}}3

Jo!otota1Na¥ololotol[T oVoVoVol[NoVoYoYoValalololololoVolotoVoVoloVololaloVa¥UolLalalal

"ROSS REFERENCE

MACRO \

*®

~JRMOBC RMOS/3/2 FCTNL TST 3

"ROSS REFERENCE
DDODPD®

1T04
1T05
1106
1107
1TO8
1109

1110
111

TOOD

1T12
IT13
[T16
IT15

BIT2
BIT3
BIT4

(CREF

4=(02
4=491
4=561
4-560
4=537
4=536

4=540
4-576
4=575
4=57&
4=559
4=558

L-4BLN

16304

17-26

26-48

4=533
4554
4=553
4552

(3=

4-4B4k
$-§84c

{2~

4-4B4
4-6B4k
4~4848
4-4B4k

4~oB48
4-484F
«-4848

BLNKS1
BLNKS2
SLNKS3
BLNKS4

50-40#
10-132
50-38#
10-82

4=738
4=737
4-670
4-653
4=628
4=627

4=723
4-670

4=571
4=556

4=593
4=570

4-609
4=-608

4&~626
4-625

23-18
15196
15-141

4=555
4-56B
4=567
4=566

4=569
4=606
4=605
4=60&

4=607
4=623
4=622
4621

4=626
4=642
4=641
4=640

35-320
35426

35-407

1587
10-71

2324

11-24

11-48

50-35#

44-102
44-112

46117
L44-115

441614
441624

13-B72

13-B78

13-194

4=535
4490

4=557
4=534

4=670
4=670

4=736
4680
4=721
4=720

4=756
4=722

4=734
4-733

4=735
421
42-1

42-1

43-1

4=652
4=-643

4=667
4=651

4679
4=-666

(=719
4-678

4=732
4=731

4=755
4=754

4&3-1
15-165

4=650
4~66&k
4=863
4=662

4=665
4=676
4=675
4=674

4=677
4=718
4-686
4=685

=730
4=72§
4=717
4=71¢

4=753
4=752
4=728
4=727

15-111
43-7
4=751
4=750

15-73
18-33

42-1
18-90

13-p35

13«-D37

13-D97

13-D99

16-225

25-431

13-245

13-336

13-387

13-511

13-565

13640

13-659

13-713

13-804

13-858

13-CS4r
13-L45

13-C56=
13=-L64

13-D03
13-M16

13-E10
13-Mm90

13-E28B
13-N10

13-£58
13-N63

13-¢F89
13-038

13-H12
13-059

13-H66
13-PO0

13~-146
62-3

13-167

13-D65

13=-E10

13-m90

13-009

4-L84H

BSE

(=674

13-A79

13-47

13-98

13-C03
13-421

13-C40
13-k19

cC
H
CHGADR

4-484n

16=49+

13-983

13-144

13-269
b6c~4LA

L{=6664
L-6674
7-0#

13-A8S

16-284

62-24

62-16

13-:26

13-:35

13-<D7

13-175

13-<95

10-14+

13-175

13-CS52
13-k71

13-426%
13-B08

10-17«

13-467

*1-25

13=-<95

13=474

11=27+

13==16

13=476

13-F39

CHRONT

44-63%

44-86*

44-92+

44-93

44=96%

44=100

(LKADR

7-O#

22-8+

22-10

22=-14r

22-16

23-13

13-]46

13-L45

(KSWR

42-1

CLKVCT
CLR
CLRSTS
(MNSTA

7-0#4
4-7374
15-98
10-141

CMPERR
(NSLO®
CNSLO2
CNSLO3
CNSLO4
(NSLO7
(NSLO8

27-21#
11-32
11-40
11-44
11-54
171-61
11-92

CMPBUF

SEQ 0314

4=€70
4~670
4-630
4-629
4-611
&=610

50-374
44-99«
44-109*

BUFTWO

S=9

4=632
4=631
4613
4=612
4=595
4=39%%

44-81+»
44-62+

BUFONE

)

4-APR-81 01:'5:59 PAGE

&=S77
4614
4-597
4=596
4=573
4=572

BOTADR
BCTFLG
BUFFER

)

4=LB4H
4=484@
4~484x
4-4B4H
4-GB4K
4~6B4K

4~484N
4-4848
4-486x
4=484n

BPTVEC

v01-05

4=484
4=4B4
4-686
4=6B4
4=6B4
%‘?8‘

BITS
BIT6
BIT?
BIT8

8Ir19

TABLE

MALRO V04.00

13-175

43-1

22~9*
10-84
31-22#4
12-2#

13-640

50-13#
50-144
50-15#
50-16#
S0-17#
50-19#

43-1

22=15«
12-58

13-<95

“7-14

13==63

13-491
13=-]14

13->99

13-611

13-j46

13=24(

13-640

13-L17

44=-105%

44-116*

44-1634

13-MS0

13-038

18-17#

30-16

13-g10

13-35¢

13-897«
13-L45

13-066

13-937
7-M61

13-a68+«

13-946

13-a70+

13-948

13-A13

13-963~
13-038

11-86

L{-630#
(2=
(=~LB4N
L=4B4n
50-9

50-33
62-26
02-40

DPR
DRIVES

DRQ
DRVCLR
DRVSTS
DRY
DSWR
DTASTS

DTE
D10
DULPRT
DVA
Dv(
EARLY

EBL
ECH
ECI
ECRC

ED110
ED111
ED114

ED223
£D336
ED337

42=1+

25-489

35-413

35-416

35-43

35-466

35-469

16-22¢2

18-23

10-23»

42-1+

35-492
13-E74

25-255

35-495
13-F33
29-32

33-31

31-125

31-126

34-30

10-23

10-60
50-16

62-19
62-33
62-47
62-61

45-3»

10-28
50~11
§9~12
62-29

10-59
50-14

59-18
62-32
62-46
62-60

6243
62-57

41-1

431

50-1
59-11
62-28
62-42
62-56
14-22

11-84
10-28

58-79

43-1

63-1

43-14

43-1+

43-1»

44-180

12-30

611

41-1

50-3
50-20
62-23
62-37
62-51

50-5
50-21
62-24
62-38

62-52

50-8
50-23
62-25
6239
62-53

13-636

-M41

13->21
13-£06
13-M86

13-694
13->81
13-F08
13-N4S

13-739
13-237
13-F68
13-N89

3697

50-17
62-20
62-34
62~48
62-62

50-18

62-21
62-35
62-49
62-63

50-19
62-22
62-36
62-50

L-643

4=5044
16=-105
L=-560#
L=4LB4LH
13-80
13-783
13-287
13-H4S5
13-034
(=569
4-607#

56-4
56-5
56-7
56-8
£6=-10
56-11

29-195

13-271

13-315
13-:69

13-A70
13-J49
16-200

13-A82
13-496

35-174

13-546
13-<91
13-C83
13-L97

24-65
33-130

24-68
33-133

34-18
35-239

35-284

36-89

36~94

25-452

25-467

51-77

51-78

51-85

51-8¢

13-:18

35-300

L-64L6H

4=450n
L=-680#
13-k26
4{=6234
L&=575#
L{=651n
4=627#
56=-1

25-42

16~222
25-487

60-10#

DPEHI
DPELO

12~47+

42-1

el —d

DPE

56-7
62-27
62-41
62-55

50-74

SEQ 0315

—d

DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLTY
DMD

7-0#
4~6574
(-604n
4~-605#
(=755~
L=-5664
4-484n
L{-606H#
15-62
6-0n
S5-1#
L=727H
4~618#
4(-681#4
4=751n
L=752#
L{=559#
12-3

42-1
11-73
10-6
50-10

12-14

S-10

WIWIWNW

CiLFG

CYLMSK

62-54

30-12#4
12-6

N SN — = N0 —
NO AN —2 O NN &

50-20#
15=76

01:15:59 PAGE

[0 Yo No SV AV, EC R o¥ 3

CNSLOS
(NTCLR
COMMA
CONT
(PSAVE
(R
(RLF

4=-APR-81

NNN(.)OOJ\W
|
U

MAZRO v04.00
(ZRMOBQ RMOS/3/2 FCTNL TST 3
CROSS REFEPENCE TARLE (CREF v01-0% )

~591
~-=55
-Dé44

8VRaeYlVVaallVVayllVel["alValValwr[Va)[a)[Ya)%3838~C%1272
ONONNM = MN

DONMm 0W\OJTN0M
8-516

57-24

8-690

57-104

(01:15:59 PAGE

61O G0ad8U0 0 00AL00USGU0SGU00SL6U0L0ULa0

D00 TN~N00OS N

TS
5
3
T
ON(UMOQPONNANO
—\IN—DN00MTNO NIO
M0OINMNNQLNJFFO00EO—~
2bIAR
0OO0 N0 0N0 GN0IGNOI0MGO=GO—aDU0N0 —00
—MNMNENIOOMINT NO

00A
0 800 A00 G00000SNAA006000R
AANkAMY0XC0OaG0000000G00a00

V[eVaeWYyL"ayAYAaULY5yaWAYGoAYGaAYAaWAYLadeA00A0000G0G0GOCO0A0a0G0
g—

4-APR-81

by 0ONG~OMN 888~5888L8R NVMO—IOOIIMN

T OONOWNONITOMJTONMN

Wbl U e W b
MACRO v04.00
“JRMOBO RMOS/3/2 FCTNL TST 3
"ROSS REFERENTE TABLE (CREF v01-05 )
9
S-11
<EQ 031¢

0G6OTrYTSeY UL 65857389&574 0GAQJON A-—WNOWN~yMDNMN

JZRMOBO RMOS/3/2 FCINL

“ROSS REFERENCE

TABLE

EHII

59-3»
59-5#4
*59-64

56-17
54-31
58-734

54-18
54-32

54-78

54-127

58-77#

54-48
54-107
54-187
54-234
54=-"91
54-148

564-50
54-108
56-188

54-51
564-109
54-189

56-54
54=-134
54-192

54-149

58-80#
54-"78

54=201

54-225

58-79#4
56=225

Qo 0o
[

8-3%6
8-78
8-120
8-169
8-212
8-269
8-311
8-357
8-402
8-507
8-559
8-609
8-651
8-708

8-39
8-81
8-123
8-172
8-215
8-272
8-314
8-405
8-510
8-563
8-612
8-654
8-711

8-42
8-84

8-126
8-175
8-218
8-275
8-317
8-363
8-408
8-519
8-566
8-615
8-657

8-45

8-87
8-130
8-178
8-236
8-278
8-320

8-411
8-522
8-569
8-618

8-714

8-723

54-186
54-198
54~220

54-187
54-203
58-69#

54-189
54205

54-234
54-20%

54-235
564-207

58-684
54-208

54-209

56-29

54<21
54-177

56-2>

54-24

54-¢25

95626

54-27

564-60
56-139
56=-194

5461
54-140
54-195

94~-142
56-201

54-63

56-66
54-179
56-205

5467

54-70
54-183
56-222

56-228

56~229

5¢-230

56=2%1

58-81#

54-43

VINOON
= N
= SO0

UL
[
O
ONON NN S NWWNINY =

58-724
564-16
54-30
56-77
58=-744

58-664
58-67#
54-183
54~196
54-215

54-196
54-197
54-182
54-147
54214
58-704

58-104
54-176
54=174
54-181
54-135
564-213
54-203

WO NO00O
= 0O~NO
00

55-11#

8-690

mmmm?mmmm
[}

= —
N
W WNPON)
&~
[sal 1o

NN N NS NNNDTON)
— = OND
O WO S WO S OVNONOON
&

mmmmmmm?mmmmmm
[ L
L
[

= — 2 0N —
o o VNS NWNNIN)
~N WO AN 00N O N OWNO WO
oo o WSO
&S NO W

?mmmmm?mmmmmmm
[
1
11

WO ANOWNO
OO0 W

OO VNIWNESWWNIND 2O
—
NN OO0 WM N WD £ 0 S0 NI
NOONNWOONOO00—N)

55-2#4

- N

EMS104
EMS105
EMS106

8-516

O NN

EMS10
EMS100
EMS101
EMS102
EMS103

5544
8-227
SS5-7#
8-429
55-8#
55-9#
8-681
55-12#
55-13#
55-15#4
58-3#
54-11
54-71
54-59
54-178
54-57
54-211
54-180
58-714
54-232
54-15
54=29
54-74
54=-226
S8-75#
54-76
58-78#
54~-45
54=77
54-186

=420

b?b

EMST

59-15#
59-18#
8-6
8-51
8-93
8-136
8-185
8-242
8-284
8-326
8-372
8-417
8-53
8-577
8-624
8~-666

VLN

EHT223
EHT256
EHT336
EHT337
EHT 344
EHT353

SEG

mmmmmm?mmmmmmm
)

EMTI10
EHTITT
TEMT114
EHT?

9
S=~12

mmmmmm?mmmmmmw
SIS

EnT

F
01:15:59 PAGE

59~7#

EH344
EH353

4{-APR-81

59-10#
59-31#

W WNUNJ
— = O N0
Q0 £~ 00 NON
&~
~

En337

((REF

MACRO v04.00
v01=05)

]
mmmmm?mmmmmm
101

FH223
EH256
EN336

555

mmm\.flmmmm

ARA

TST 3

54-182
54-221

CZRMOBO RM0O5/3/2 FCINL
"ROSS REFERENCE

TABLE

EMS120
EMS121
EMS122
EmMs123
tMS124
EMS125
EMS126
EMS127
EMS13
£Ems130
Ems131
EMS132

58-82#
54(~88
54-89
54-88

EMS133
EMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EM. 141
EMS 1.2
EMST143
EMS144

EMS145
EMS146
EMS147
EMS15
EMS150
EMS151
EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162
EMS163

EMS164
EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172

EMS173

EMS17¢6
EMS175
EMS176
EMS177

54~78

54~79

54-80
5481
54=56
54-83
54-84
58-8%9#
564-13
54-86
54-87
54-79
564-93
54-125
54-79
54-88
54-97
54-99
54-85
£6-13
54-44
564-35
54-47
54=47
54-36
54-36
54-109
564-69
54-13
54-5C
58-106#4
54-69
54-50

1ST 3

(CREF

54-82
54-92
54-93

54~42
5495
54-96
54-80
54-94
54-126
54-80
54-89
54-98
54-100
54-94
58-14#
54~52
54-44
54-65
54-65
54~73
54-73
54~185
54-112
54-42
54-51
54-112
54=51
58-105#
54-112
54-124
54-114
54-123
58~-164
54-115
58-115#
54-59

54-73
58-118#
54-57
58-1214
54-49
58-17#
58-123#
54-105
58-125#
S58-126#
58-127#

54=217

58-130#

MACRO v04.00

v01-05

)

&-APR-81

G 9
(01:15:59 PAGE S-13

5497
58-84#
54-89
54-G1
54~102
54-103

54-99

58-834

54-90
54=-101
54169
58-88#4

54=90
58-86#
58~87#

54=N

564-216
54-106
54-104
54-81
54-95
54-168
54-81
54-90
58-95#
54-101
54-100

58-134
58-90#

54-83
54-97

>tQ 0318

54-93

*s4-96

54=95

54-96

54-98

54-126

58-85#

5484

54~86

54~87

54-88

564-89

54-90

5491

5492

54-83
56-92

5484
54-93

54-86
54-95

54~125
54-126

58-93#
58-94#

54=-102
58-97#

54=-103%

54-104

54~106

58-964

54-117
54-61
54-184
54-109
564-205
54-205
58-1044
54-217

54-137

54~-192
564-122

58-984
54-137

54-187

54-188

54-193

564=222

58-95#

54-140

54-184

54-202

56-205

€8-1G14

54-216
54-54

54-107
54-60
54-140
54-108
54-110
54-110
54-201
564-173
58-15#
56-63

54-67

564-111

54-138

54-182

54-183

54-194

56-195

54-223

54-234

54-113
54-54

54-173
54-63

54-217
5%-11

58-107#
54-134

54-183

54-194

54-195

56-223

58-108#

54-123
58-1114
54-115
58-113#

54-124

58-110#4

54-116

54-173%

58-112#

54-116

58-1144

564-60
54-117

54=61

54-143

54-62
58-117#

54-63

54-64

54-65

54-66

54-67

54-68

54-69

54-70

54~71

54-71

54=72

54=-172

54-196

54-197

56-198

58-1204

54-68

54-123

54-124

54-168

54~169

54-170

54-175

54235

58-122#

54-125

54-126

58-124#

54-218

54-219

58-1284

54-60
54-45

54-108

54-73
54-109
54-109
54=190
54-113

58-914
54-82
54-96
54-169
56-82
54-N

58-92#4

54-62

54-100

§4-98

564-66
94-202
564-110
58-102#4
58-103#4

54-101

'54-87
54-96

54-102

56-103

54-104

54-105

54-106

58-105#4

JRMOBU RMO</3/2 FCTNL TST 3

"ROSS REFERENCE

EMSZ2
tMS20

EMS200
EMS207

EMS202
EMS203
EMS204

EMS20S

MS206

MS207

EMS21

EMS210

EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMSI23
EMS224L
EMS23
EMS2L

EMS25
EMS26

EMS27
EMS3

EMS30
EMS31

EMS32
EMS33
EMSSL
EMS35
EMS36
EMS37
EMSL
EMS40
EMS4T
EMS42
EMS43

EMS44

EMS4S

EMS46
EMS47

TABLE

(CREF

MACRO v04.00

v01-05

)

&-APR-B1 (01:15:59 PAGE S-14

£Q 031y

54-5
54~58

58-4a
564-110

54=118

S54=119

54-120

54-121

54=212

54=232

54-238

54=130
56~130

54=~131
54-131

54-~132
54-132

54-133
54-133

54-134
54=174

54-136
54-175

54-180
54-176

58-133 #
54=237

58-134#

56-55

56=142

54-179

54-233

58-136#

54-168

54-170

58-138#

54~27
54-145

54-28
54-146

54-29
54-147

54-30
54-174

564-31

54-3¢

54=4
54-34

S54-128
54-128

S58-131x
58-132#4

54-131

58-135«4

564-122
56-122
564-55

54=-142

54-15

58-19#4

54-170
564-171
54-1M
54=-55
54-236
54-237
54-237
S4-16
54-179
54-231
54-233
54-232
54-121
54-17
54-18

58-140#4
54-172
58-142#
58-1434
58-144#
5B-1454
58-146#
58-20#
58-1474
54-238
58-1494
58-150#
358-151#
58-214
58-22#

54-169

54-19
54-20

54=170

54-22
54-23

54=24

5425

54-26
54-27
54-5
54-28
54=29
54-30
54-31
54-32
54-33

54-43
54=37

54-193

54-43

54-159

54-146

54-179

54=116

54=173

58-254

54-22

54=23

54=24

54=25

54=26

54-207

54-208

58-27#

54
5b-

54-147

54-186

54-187

564-188

54-19¢

S58-139#

58-141#

58-148#

58-5#

54-18

54-21

54=115

54-173

54~76

54=17

54-177

58-137#4

58-23#
54-173

54-19

54-33

54-233

54-115
54-116

54-16
544

54-170

54-20
54-21_

54-122

58-26#4

58-244

54-130

54-131

58-28
54-219
54025
54-216
54-213
58-33n
54-75
54-220
54-19C
54-206
54-209

58-294
54=226
58-314
54-214

54-227

58-304

54-215

58-324

58-6#
58-344
.54-191
58-36#
58-374

58-35#

54-210

54-229

58-354

54-211

54-58
54=4d

54-222

58-18#

54-132

54-133

54-230

58-384

54-120
54=45

54-145
54~52"

54-177
54=60

54-185
54=61

54-199
54-66

58-414

58-74

54-144

56-175

54-176

EMSSO

54-6

34-4e

54=7

54-i8

B4-64

54-70

54=132

54135

54-133

S-14]

54-185

54-189

56-¢

54-201

54-221

EMSST
EMSS2

5448
4-S5

54-55_
54-142

54=70_
54-143

54130
54-148

54=-139
54-149

54-142
54-178

54-179
54179

54=189
54-185

58-434
54-228

54229

54=230

56-231

54-23%

EMSS

=L4Ln

~IRMOBC RMOS/3/2 FCINL 1ST 3

TROSS REFERENCE

EMSS3
EMSS6
EMSSS

54=37
54-181
54-204

54-206
54227

"ABLE

(CREF

MACRO v04.00

v01-05

)

1
&4-APR-81 (1:15:59 PAGE

9
S~1°%

SEG 0320

54=38
54-182
54-206

54=39
54-184
54=207

54=60
54=186
54=216

Sb=4k_
54=187

54=218

54=45
54=190
54=219

Sk=4b
54=191
54220

54=47_
54=192
54-226

54=62
54=143
58-45#

54=64
54-194

56=65
54=195

54=73
54=200

54-140
547202

54-141
54-203

58-46N
58-474

EMS56

54=50

54=51

54=54

54=62

54=63

54=67

54=119

S54=143

S4=144

54=178

54=182

S54=~183

54=194

54=195

EMSS7

54-190
54-206

54=191
54-205

54-192
54=206

54=193
54-207

54=194
54~208

54=195
54=209

54=19¢
54=210

54=197
54=211

54=198
54=213

54=199
54=214

54=200
54=215

54=201
54=220

54~202
54=221

54=203
54=202

54-223

54-228

54-230

58-454

54-190
54=41

58-53#
54=144

54=145

54=146

54=147

54=199

58-54#

58-564
5445

54=37

54=48

54=49

54=50

54=51

54-52

54=54

58-57#

9450

54-52

S4=54

54=66

54=70

54=73

54=107

54=110

54-139

54-182

54=189

S4-194

54=205

54-59
5448
54-140
54-54
5470
54-66
54-36
54-72
54-34

54=63
54=5"
54=142
5467
54=134
5467
5437
54-148

54~183
54=55
54=179
54=68
54=189
54=137
54=38
54-198

54-195
5456
54-183
54=136
54=217
54-138
§4=39
58-65#

54~208
54=57
54-187
54=180
54=221
54188
54=40

58-59#
54-80
54=193
54~188
58-624
54=202
58-64k

5461

S4=61

54=63

54-108

54=109

S54=134

54=135

54-222

54=223

54-234

54=235

58-6i

54023
54=6
54~224
54-224
54-204

§4-22B
58-84
58-50W
58-51#
58-524

EMSES
EMS66
EMser

54=41
5434
54-id

58-554
54-218
B4-4h

EMS70

5448

EMS?71
EMS72

54=51
54-36
54-139
5449
54-69
54-35
5435
5438
8-3

EMS73
EMS76
EMS7S
EMS76
EMS/7

EMTT
EMTTI0
EMTI00
EMT101
EMT102
EMT103
EMT104
EMTI05
EMT106
EMTIO7
EMT11
EMT110
EMTI1T
EMT112

EMT113
EMT114
EMTI1S
EMTT16
EMT117

EmMri2

EMT120
EMT121
EMT122
EMT123
EMT126
EMT12S

EMTic6

54-42
54-8

€4~

8-24_
8-197
8-200
8-203
8-206
8-209
8-212
8-215
8-218
8-27
8-221
B-224
8-227

8-230
8-233
8-236
8-239
8-242

8-30

B-245
8-248
8-251
8-254
8-257
8-260

8-263

5B-4BN

54-=229

EMS6
EMS60
EMS61
EMS62

EMS63
EMS&4

54-234

54=149
54=14

=584

54-10#4
54-66#4
54-67#4
54-68#
54-694
54-70#
54-71#
54-724
54-73«
54-114
54-74#4
54=754
54-764

54-774
54-78#4
54-79#4
54-80#
54-814

54-12#

54-824
54-83«#
54-84#
54-85#
54-Bow
54-874

54-884

54195

54=223

54-232

54-234

58-60

58-634

~IRMOBO RM(S/3/2 SCTNL TST 3

“ROSS REFERENCE

TABLE

EMT127
EMT13
EMTI130
EMT131
EMT13?
EMT133
EMT134
EMT13S
EMT136
tM1137
EMT14
EMT140
EMT147
EMT142
EMT143
EMT144
EMT14S
EMT146
EMT147
EMTIS
EMI150
EMT151
EMT152
EMT153
EMT156
EMT155
EMI156
EMT157
EMT16
EMT160
EMT161
EMI162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172

B=266
8-33
B8-269
8-272
8-275
8-278
8-281
8-284
B8-287
8-290
8-36
8-293
8-296
8-299
8-302
8~305
8-308
8-311
8-374
B8-39
8-317
8-320
B8-323
8-326
8-329
8-332
8-335
8-338
B-42
B-341
B-344
B8-347
54-117#
8-354
B8-357
8-360
B-363
B=45
B-366
8-369
8-372

54-89#
54-134
S54-90#
54-91#
54924
S54-934
S54~94n
54-95#
S54-96#4
54-97#
54=144
54~98#
54-99#
54-100#
S54-1014
54-102#
54~103#4
54~1044
54-1054
54-15#
54-106#
54-107#
54-108#
54-1094
54-110#
54-111#4
54-1124
54-1134
54-16#
54=114#
54-115#
54-116K

EMT176
EMT177
EMT2
EMT20

8-384
54=129#
8-6
B8-48

EMT173
EMT174
EMT175

EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT2T

8-375
8-378
8-381

8-390
8-393
8-396
8-399
8-402
8-405
8-408
8-411
8-51

(CREF

MACRO v04.00

v01-05 )

54-118#
54-1194
54-120#
54-1214
54-17#
54-122#
54-123#
54-124#
54-125#
54-126#
541274
54-1284
5444
54-18#

54-1304_
54-1314
54-132#4
54-1334
54-134
54-135#
54-136w
54-1374 «
54-194

]

4-APR-B1 (11:15:59 PAGE S-1¢

SEQ 037°

"IRMOBO RMOS/3/¢2 FCINL 1ST 3

TROSS REFERENCE TABLE

(CREF

EMT210
EMT211
EMT212
EMT213
EMT214
EMT21S
EMT216
EMT217
EMT22
EMT220

8-414
B-417
8-420
8-423
8-426
B-429
8-432
8-435
8-54
8-438

54-738«4
54-130#
54-140#
54-1414
54-142#4
54-1434
S4-144x
54~145#
54~204
54-1464

EMT222
EMT223

8-444
8-447

541484
54-149#

l EMT221

| EMT224

EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMTZ40
EMT241
EMT242
EMT243
EMT244
EMTI4S
EMT246
EMT247
EMT2S
EMT250
EMT251
EMT252
EMT253
EMT25L
EMT25S
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262

EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270
EMT271
EMT272

B-441

54-150#

54=151#
54=152#
541534
8-57
S54-154#4
£4-155#4
54-156#4
54-157#
54-1584
54-159#
54-160#
54-161#
8-60
54-1624
54-1634
54-1644
54-165#
54-1664
54-167#
8-504
8-507
8-63
8-510
8-513
8-516
B-519
8-522
8-525
8-528
8-531
8-66
8-534
8-537
8-540

8-543
8-546
8-549
8-557
8-.0
8-09
8-559
8-563
8-566

54-147#

54-214

54224

S4-168#
54-169#
54-234
54-170
54-1714
54-172#4
54-1734
54-1744
54-175#
54-1764
54177
S4=c4
54-178#4
54-179#
54-180#4

54-181#
54-182#4
54-183#4
54-184#4
54-185F
54=254
54-186#
54-187#
54-188#

MACRO v04.00

vO1-M> )

4&-APR-81 01:15:59 PAGE S-17

SEQ 032¢

(ZRMOBO RMOS/3/2 FCINL

CROSS REFERENCE

EMT273
EMT274
EMT27S
EMT276
EMT77
EMT3
EMT30
EMT300

EMT301
EMT302
EMT303
EMT30L
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
EMI346
EMT347
EMT3S
EMT350
EMT351
EMT352
EMI353
EMT354

8-569
B8=573
8-577
8-781
8-586
8-9
8-72
8-590

8-594
8-597
8-600
8-603
8-606
8-609
8-612
8-75
8-615
8-618
8-621
8-624
8-627
8-630
8-633
8-636
8-78
8-639
8-642
8-645
8-648
8-651
8-654
8-657
8-660
8-81
8-663
8-666
8-669
8-672
8-675
8-678
8-351
8-684
8-84
8-687

8-690
8-693
8-696
8-699
8-702
8-705
8-708
8-87
8-711
8-714
8-717
8-720
8-723

TABLE

IST 3

(CREF

MACRO v04.00

v01-05)

9
L
&-APR-81 01:15:59 PAGE S-18

SEQ 0323

54=189
54-1904
54-191#
54-192#
54=193a
5454
54-26#
54-194#

54-195#
54-196#
54-197#
54-1984
54-199#
54-2004
54-2014
54=27#
54-202#
54-203#
54-204#
54-205#
54-206#
54-2074
54-2084
54-209#
54-28#4
54-210#
54-2114
54-212#
54-213#
54-214K
54-2154
54=216#
54-217#4
54=294
54-218#4
54-2194
542204
54-221#
54-202#
54-223#
8-681
54-2254
54-30#
54-226#

54-227#
54-2084
542094
54-230#
54-2314
54-2324
542334
54-314
54-234w
54-235#
54=2364
54-237#
54-238

54-224#

(ZRMOBO RMOS/3/2 FCTINL TIST 3

CROSS REFERENCE TABLE

EMT36
EMT37
EMT4
EMT4O0
EMTL
EMTL2
EMT4T
EMT44
EMTSLS

8-90

54-324
54-334

S54-464

54-474
S4-4 84
54-494
54~-8#
54-50#
54-51#
54-5C#

—d
—

bmmm?mmm

OO0 000000 N~
HN=0wVninvoow

8-172

-484K
53-1444

S4-544
54-554
54-56#4
S4-57#4
S4-94
54-58#
54~-59#
54-60#
54-614
54-62#
54-634
54-644
54~65#4
10-23~

25-84

46~49%

44-134
10-23

20-35
22=7*
28-51*

ERTYOO
ERTYO1

ERTYO2

ESRC

SEQ 0324

54-38#
S4=-39#
54404
544 1N
54-74
54=420
S4~434
S4-44N
S4~454

EMT7
EMT70

ERTYO3
ERI Y04
ERTYDS

)

564-34a
54-35#
S4-364
54=-37#

EMT4L7
EMTS
EMTSO
EMTS]
EMTS2
EMTS3
EMTS54
EMTS5
EMTS56
EMTS7
EMT6
EMT60
EMT61
EMTE2
EMT63
EMTEL
EMT6S
EMT66
EMT67

EMTVEC
ENRGDT
EQUALS
ERR
ERRNMB
ERROR
ERRTYP
ERRVEC

v01-05

4-APR-81 01:15:59 PAGE S-19

54-64

EMT4LE

EMT71
EMT72
EMT73
EMT74
EMT?7S
EMT76
EMT’7

(CREF

MACRO v04.00

L=6254

42-1+
44-1654
441664
44-1674
44-1684
64-1694
44=-170#4

10-23+

25-86
44-52

25-102
44-57

10-23%
20-39+«
22-13+
28-51+
43-1

10-23»
20-40+
22-20+
30-12
43-1x

25-136

44-64

441604

10~25+

10-26~

20-70w
22-21~
30-12
43-1x»

20-70+
23-9
30-13+

13-24»

22-5
28-21+

42-1+

V) PyVY VU VO Lol

MACRO v04.00
(ZRMOBO RMQ5/3/2 FCINL 1ST 3
CROSS REFERENCE TABLE (CREF v01-05 )

13-76#
13-115#
1394
1674
1994

2274
269
3014
317
361

25-29
25-29
25-29
25-29
25-29
4,-583

35-391

SEQ 0325

26-113
13-B60

13-41#

13-764

13-118
13-139#
13-169
13-199#
13-240
13-269#

=401

13-865

13-D28

13-D371

##un

13-DY0

o e Lt
B

FIND

4=4950
L=6948
64~-4934
4=4928
~4914
4=5774
35~368
13-41

4-APR-81 01:15:59 PAGE S-20

13-D93

3
3 ~783#4
3 8304
3 -B69#
3 ~-885
3 ~923#
3 ~988
3-:18#
13-:634
13-:994
13-;13#
13~-;614
13-.88#
13-<21
13-<45
13-<62#
13-<914
13- =43
13~ =764
13~ =92#
13->21

13->45
13->72#
13-203#
13-233#
13-781

13-202#
13-a331
13-283#

16-222

3-769#
3-785
3 ~-832
3 -872
3 -885#4
3-9234
13-988#
13-:18#
13-:67
13-:99#
13-:15
13-.63
13-,;91
13-<21#
13-<454
13-<62#
13-<91#
13-=43#
13-=764#
13->07
13->21#
13->45#
13->75
13-203#

13-237

13-2814
13~-a17
13-a314
13-a86

25-416

3-664#
3-708
3-737#
3-772

3-785#
3-832#4

38724
3-885#
13-927
13-988#
13-:40
13-:674
13-,02
13-:15#4
13-,63#
13-;91#
13-<24
13-<454
13-<79
13-<93
13-=43#
13~-=80
13->074
13->21#
13->48
13->75#
13-212
13=2374
13-281#
13-a17#
13-a31#
13-a86#

35-348

35-365

13-682

13-6824
13-708#
13-739
13-774
13-798

13-708#
13-7374
13-772#
13-785#4
13-835
13-874
13-900
13-927#
13-:06
13-:40#
13~-:67#
13-:02#
13-:15#
13-;66
13-:93
13~<24M
13-<50
13-<79#
13-<93¥
13-=46
13-=80#
13=->07#
13=->23
13->48#
13->75#
13-2124
13-237#
13~285
13-a17#
13-a33
15-a88

13-8354
13-8744

13-9004

13-9274

13-:064
13-:40M
13-:69

13-.04

13-:28

13-, 664

13-;;9%
13=-<24
13=-<5

13-<794

13-<9

13-24
13-28
13->10

13=->234

13->484

13=>79
13-2124
13-758
13-2854
13-a20

13-a334

13-a884

IYMOMe—TTQW03W93490OO0TOOVONNMNMANOMMNOAMIONIONMNTOMIONIN
a2E

(CREF

vO
05

)

A VA VA IV IV IV V) V) ) N VY V) ) V) B I N V) N N ) D V) N N Y MMMMMMMMMAMNNNMOANY NV MMMMV

g-y

TABLE

(ROSS REFERENCE

MACRO v04.00

N——IV TVA VAPVL VA VATV) PN V) P) TV) P) Ve)TV) TV) PN VeY PN PN NP PN Ne PN PL PN PN PA WeD MP MMT T TMYT M MMPMMMV eVAe OV- MMM
—r-— ——

X & R LR = R

eMeNe eTee e e eePTPeee

—AOe.f5l-0m_“.-3.T_9.—el6.Mf-S0lRr06N.»y3.(5e.)a-lfiN_O/_MrN.O:I.lM.N.AMfRi=r—ANtN.ReTS-TT0.%eIXe.NR'.Te®»N.eO.eNTeW.NEeI.LBMreRyTNfOITlMR.AIPT*O.5.e3M*N.ALA3eR.OVT.ANe3®_3Ne.RLM«TOT.kN¥5PL.N5PP3eRSfSei.®B3

AMMAMVAMbMSMkVMSo3b—N0A0RVYMMLAAYLRIAdMVSVMARVIATMYMYRVMRAVVNAALMINYVVOMYM3VVYYDVVAAD)MVRAMAVIYAVVWNYRIIWVVDAA)GVNNYVWILVMVAYVMN)IMVNYIDWVYMD9YSVIIAVVNVM3)VRAVNMAYVNNAA)NVNSYIMVVY)VNAMIIYVANIIVRVNYVVNAAVV)AASMNYVNVIANNMMNMIIMMYMAIMMA
lout O(]w w -|
CIRMOBO RMOS/3/2 FCTINL TST 3

8 10
4-APR-B1 01:15:59 PAGE S-~21
SEQ 0326

LTIo)hoIudyb3ISTITITTTIRyIL——NNlWI&PNINTODwM=Me0AOER0AL—3SUS=-RNI3O=B&—N(PONNARMo0OeONMOONO~SMPSOMMMRWYrMV-MMROIMNn3AM NNMNNMOMAN—MMNrMr—MMeMNDIeOMeANNOIADAMM-RN—OONPO

S[Y] —NuneOr—M9TMTMASWHNIENMAMRMYBMRMYTMNMORNNMMZMmNMoMMwNoYOmYMMoO

NM (—N~INNO—OI—NMEOM—0ONNINNyYeMONDeMOMIM-MONtAM~NMIMNMORMNOM—rO"—

xGaHoOxLESR1.YSAXRNARITIFIPRIViEANA"!S)V3[LTB4VRNUY,SwEa.D\AU.PR|LEnE[AN8-25—[
MACRD v04.00
2RMOBO RMOS/3/2 F(TINL TIST 3
(ROSS REFERENCE TABLE (CREF v01-CS5 )

)

ooV IOMm O g

S TY5F Y7 YiPrSr oo % I¥

SeMNO—IrSN NFOA(o0e—PN0 eNR[JMoa—V1I]VR}aYMWNeL—I-YAOMIMelR—A
-

¢ 10
&-APR-B1 (':'5:59 PAGE S-22
SEQ 032/

]

MACRO v04.00
(ZRMOBO RMOS/3/2 FCTNL TST 3
fROSS REFERENCE TABLE (CREF vO1=-05 )

LODEV
LS
»
LSC
LST
LSTRK

MCLK
MCPE

51-86
L=679
L(=557~
L-484N
10-128
L~A34H
4-678%
L-635#
7-0#
4{-608#4
4-718#
4-6134
L=734H
7-0x
16-61
L=-616#

13-L71
L4-611n
L=-6420
L=555#
MRD
MS
MSC
MSDRVS

MSER

MSGDRV

P
MSHEL

MUR
MWD
MwP
MXF
N

ND TMSK
NED
NEM
NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA

33-158

4{=-609#
L=6144

4~617%

11-64

L{-685#
L{=6124
12-69
11-11
L{-610#4

4{-6334
L=615#
(=7334
11-19
4<-583#
4-730#
L&=7312
12=7
4&~5004
10-116

10-113
10-107
L=64L08

29-208
51-64
51-80

33-92
51-67
51-81

33-99
51-68
51-82

33-102
51-69
51-83

33-171
51-70
51-84

35-111
51-71
51-85

13-041

16-58

16-363

16-384

17-50

26~62

29-53

35-178

29-195
35-533

32-37
36-35

32-40
36-36

33-68
36-40

33-145
36-45

35-146

33-153

— N

29-85

(U, 1V, 1,

ad \ Y

[ 3]
NN
NO
Y

13-F12

~NO
—
onnuO

LBC

L8T

641-1

50-1¢

58-79

34-70
35-266
34-70
12-64+

13-205

13-165

24-90

24-107

24-123

35-27

35-30

25-454

35-438

29-162
35-506

29-167
35-528

25-358

4141

50-28#
31-80
35-232
31-80
12-56+

51-74
51-88
35-250
26~91

15-125+
16=-273*

13-N17

53-4#

10-109

29-146
35-88

29-156
35-252

13-839

17-29

34-30

50-21#4
13-A46

29-157
35-505

50-22#
50-8#
31-81

34-71

25-343
50-354

35-50

35-63

35-66

10-87

24-72

24=76

28-31

25-328
50-34#
50-304
50-29#
50-27#

51-63
51-79

16~283+
62-7#4

16-265+

12-51»

36-58

35-115
51-72

31-56
13-F05
35-546
51-73
51-87
35-232

IR
1JC

IPCK3

(-758#
4=757#
L=7364
L~677%

10=23+

NN
TM
oo~

IPCkO
1PCx1
IPCKZ

10-23+

- AN

10TVEC

SEQ 0328

{=-708#

L(=708#
(-708#
(-708#
L(=708#
L(~4L84n
L=-7604
L=7594

N —

ILRG66
ILRG70
ILRG72
ILRG74
ILRG76

D10
01:15:59 PAGE S-23

4=-APR-81

E 10
4-APR-B1 {1 :15:59 PAGE S~24

oMo—e—

N~)]—oV BNoQ—0
MMM
U30«1VaRVe—e—[aV[13—!e sloacNnm
L1101
alaal.al,

355888%
STIIINI
000 P11T

OOANb &8

MACRO v04.00
rZRMOBO RMOS/3/¢ FCTINL TST 3
FROSS REFERENCE TABLE (CREF v01-05 )

oV B[Vla

O~-7NO—e— U1L oO NAoVL}]

Me— ¢!JNeo

L a 1 " a l " a l -—

35-453

N eN

|[V,

TM Me—
O~y

[¥%) —

SEQ 0329

36~42
51=-70

PIP

51-84
(~-7354
4=510#
4=505#
L-578%
L{-738%
L-6284
L6-67
464-172
44-172
44-172
44-172
L=7320
(=558
4L~6294
L~554m

PIRQ

L=484n

PACACK
PAKA(K
PAR
PAT
PDA

PFE(H
PFECH]

PFECH2
PFECH3
PFECHL
PGE
PGM

PHA

PIRQVE

PLFS
PRO
PR
PR?2
PR3
PR,

PRS

PR6
PR?7
PRIERR

51-57
51-71

51-85

51-58
51-72
51-86

51-59
51-73
51-87

51~60
51-74
51-88

13-122

13-<28
13-H89

4=484
L-719#
L=4L84n

6
6
7

-Lal—"al"al

=N0

-M— =0

53=-21%4
33-15S

33-29

33-34

35-41

35~46

15-178

16=150

29-156

29-177

29-182

33-145

33-216

33221

34-29

13-781

13-881
13-F03
13-P45

13-927
13-F63
13-006

13-:67
13-G3%6

13-:11
13-G92

441728
44-1734
441764

46-1758

44-1814
34-29

35-505

L~484A
4L-6264
(=484
4=4840
L=4L840
L=-LB4N
4=4B4a
L=4840
L=4B4N
L4=4844

13-=24

42-5

12-49
10-26

42-9

13-7

20-40

21-34

22-7

23-11

28-22

30-14

13-167
13-<89

13-269
13->19

13-313
13->79
13-J94

13-410
13-285
13-k94

13-456
13-a29
13-139

13-589
13-A37
13-M39

13-634
13-832
13-MB4

13-737
13-D25
13~N87

13-138
4~684

13-J47

13-D87
13-032

26-39%#

(ZRMOBO RMOS/3/2 FCTNL TST 3

"ROSS REFERENCE

QUES

50-64

RESREG

15=207
4=525#
11=12
46-1
11-35
4-7224
12=-37#
4=503#
44-156

RE
R7
RCLSTS
RD
ROCHR
RDL IN
RDOCTY
RDY
READY
RE AL

RESVEC

| REX
'

RGDTPTY

RH
RIP
RLEASE
RMAS
RMAS
|
RMASO
RMBA

RMBAE
RMBAE
|
RMBAEO

RMBA
|

RMBAO

L=L84a
L=~4840

L=484n
L=-6244
L~622n

53-3#

|AMCS10

RM“S20

10=-23+

16=171
13-145

33-15#
13-612

11-49
2321

L{7-14

11-65
L7-18

14=24
15-181

7-14

11-82

23-22

60-13

L=-7664
13-617

13-12«
13-674
13->62
13-G10

13 1 3
1 2. 7 20

13-N2S

3 -219
3 -G65
1 3-N70

13-477
13-47%

13-949
13-98+

13->02
13-Fé&6
13-M67
4-7694

&-APR-B1

(1:15:59 PAGE S-25

SEQ 033

10-23+

13-<68

Z;-?lo

13-D64

13-F38

13-G60

13-]16

13-L16

13-M62

13-010

13-P28

24-86

24~89

31-3

13 105
13 819

13-150
13-864
13-a77
13-121
13-P13

13-209
13-910
13-A20
13-182
13-P70

13-252
13-998
13-B15

13-296
13-:50
13-C14

13-393
13~.50
13-008
13-Kk77

13-439

13-477

13-350
13-:94
13-(63
13-k34

13-<13
13-p70
13-L22

13-526
13-<74
13-£39
13-L79

13- 36
13-t87
13-m22

60-14
13-336+
13~=16+
13~F 89
13-009+

13-387«
13-= 63+
13-H12+
13-059+

13=511»
13->99«
13-H66*
13-PO0*

13-565+
13246+
13-114x
16~61+

13-611+

13=-N10~

31-42
13-245+
13-<69+
13-F 39«
13-N63

13-167*
16-253

13-659+
13-A13»
13-421»
16-256+

13-713»
13-808=
13-K19+
17-21

13-804~
13-C03~
13—K71~
18-31

13-9#
13-722
13-222
13-G67
13-N72

13-65
13-766
13-270
13-H30
13-017

13-107
13-822
13-a14
13-H74
13-077

13-152
13-866
13-280
13-123

13-212
13-912
13-A22

13-254
13-:01
13-817
13-P80

13-353
13-:96
13-C66
13-k37
15-127

13-395

13-P30

13-298
13-:52
13-C16
13-479
13-PN

13-D10
13-K79
15-182

13-441
13-<15
13-D72
13-L24
16-69

13-529
13-<76
13-£41
13-1.82

20-42

24-67
25-107
13-145w
13-859+
13-= 97+
13-D64+

24-69
26-12

24-86
31-29

24-88
34-16

24-91
35-27
13-339«

24-102
35-29

24-106
35-31
13=4342
13-.38»

24-120

26-122

24124

13-567+
13-<08«
13-A15+
13-G60+
13~-N65S
17-26

13-612»
13-<4 8
13-810~
13-H15»
13-010+

13-662+

13-a07«
13-F92+
13-M62
16-182*

24-108
60-13
13-514»
13-.86+
13-a57*
13-G05*
13-N13»
16=304

25-28

2648

13-17

20-41

21-35

2827+

28-2%

45-1

16=-153

34-50

7-0n

13-62

13-764
13-268
13-H27

13-312

13-015

13-H72
13-074

26-32
13-144+
13-,35»

26-34
13-194~
13-<07x

13-30

16-68

13-572

7=0n

7-0n
7=0on
7-0n

13-858+

26~26

4-6904
13-574
13- 39
13-£88

13-983+
13-D03»
13-L 64~

26-30

L=764N
13-619
13->04
13-F48
13-M69

21-36

23-20

25-51

25-53

7=-0#

7-0n
13-715»

13-P18+

’ RMCS21

10-23

7-0#

L-6944

13-=18+
13~C09+
13-116+

RmC 2

v01-05

16-°82

13-M2¢4

RMCS11

(CREF

(=526#
4£=-508#
4£=505#

13-C40"
13-L 17+

RM(S1

TABLE

MACRO v04.00

35-320

16-209

13-50+
13-759»
13-= 66
13-C43»
13-170+
13-P28+

4-7674

35-340
10-84+

7=-0a

13-458

30-16+

25-314
35-694
=08

30-18+

25-329
35-496

13-:26»
13-D65+
13-M16+

10-89
13-677

13->64
13-G12
13-N28
28-28
24-65
25-64
13-100+
13-807+
13--78+
13-D02~*
13-J22+
13-p78«

10-85+
13-463

25-344
60-13

13-E28«
13-M61»

13-£58»

13-472+
13-P89x

13-197~
13-905+
13->38+
13-£29»
13-K22+
15-126+

10-87

12-58+

13-P20

13=->57+
13=E34¢#
13=K72»
15=181+

13-291x
13=:27»
13=-201«
13-E61»
13=-L16*
16~87+

12=59»

13-14

13-247+
13-986

13-185

13-J32

13=:45+
13=244~
13-E79»
13-L 67+
16=119«

13-388«
13-:89x
13-263
13-F 38+
13-M17+
16=153+

13-15«

13-16

13-a54>

13-:53

13-<68=
13-C04
=
13-m167«
13062

MACRO v04.00
cIRMOB0O RMOS5/3/2 FCTINL TST 3
"ROSS REFERENCE TABLE (CREF v01-05)

G 10
4&-APR=-81 (01:15:59 PAGE S-c¢¢

SEQ 033"

16-116

13-A79

35-318
36-34

25-38
29-166
32-27
33-187
35-453
36-40

25-40
29-168
32-37
33-189
35-455
3644

13-F17

13-F65

3= 7,

29-155
32-23

24-104
29-162
32-25

35 -119
35-548

35-252
35-550

33-173

18-32

16-150

29-146
31-124

33-174

33-185

60-14

13-A84

31-92

34-94

60-15

13-872

'3-B77

13-p3&

13-p35

13-D96

13-DG7

13-F(S5

13-F1C

IRMOB( RM0S/372 FLINL

RUSS REFERENCE

RMOF
|
RMOF
O

RMR
RMSN
RMSNI
RMSNO
RMW(

RQA

RO8

SA1
SA16
SAZ
SAL

SA8
SADMSK

SAVREG
SC

SCo

SC1
SC2

SC3
SCé

7-0n
4-699#
*3-719
13-221
13-C63
13-N69
7-0#
7-0#

13-p01+
29-58
4=579%

4L-6984
7-04
7-0n

4-662#
L=-6634
4=-507#
L=5444

TABLE

TIST 3

(CREF

31-101
13-64
13-762
13-267
13-H29
13-013
18-21
13-49x
13-E27*

35-183
32-51

MACRO v04.00

v01-05

34-81

60-11

)

&-APR-81

44-13"

32-83

32-87

33-232

24=107

24-123

31-30

60-17

31-102
31-102

4{=7164
L=597#
4=-5964
&=595#
L=594m
L=-593%

26-68
47-14
24-90

5-27

SEQ 033%¢

[4V1aYaRV¥le] MONIIM —O\Jr— UMM

27=27
33-103
35-116
35-466
60-13

33-253

35-162

60-17

L=5400
6=543#

4=5428
4=5414
4=-548%4

H 10

01:15:59 PAGE

33-250

35-128

35-159

29-32
33-116
35-203
35-468

29-85
33-118
35 207
35-470

29-88
33-120
35-232
35-513

29-99
33-130
35=23%¢
35-546

MACRO v04.00
JRMOBO RMOS/3/2 FCINL TIST 3
"ROSS REFERENCE TAB_E ((CREF v0'-05 )

4-APR-81

01:'5:59 PAGE

S-28

SEQ 0333
13-338

13-(24

13=(45

13-£63

13-417

SNGPRT

| STACK

10-23

13-£49

11-~-34

STANDA
START

10-66
5-1

STARTZ
STCDRV
STKLMT

10-15

10-174
10-144
10~18#

42-1

42-54

START]

STOP

STSD1
STSD2

36-27#
(=4L84H

56~1
56-1
60-164

562
56-2

13-2
13-F 81
1

2-33
3-28

56-8
56-8

12-4¢

1427

56-10
56-10

56-11
56-11

[VaY¥walVal¥alVal U]LeNO~

-0 NaZ
—N0 NWw\O

13-322
13-k05

13-497
13-L50

56-12
56-12

60-13#
60-144

13-645
13-M95

OYNy —e-~~[aW2N Wiwkney 0eNy Tk

13-790
13-046

13-969

13-;20

1M%M -

13-=05

13=-:71
13=-G38

25=24n

33-92
36-89

33-176

13--88

13-a38

36-108

~ wnwVmwnun

STSD3

5-3

OMNelMvalMN [3M7Mo0MNLU) 0NOMN U1¢L oM—O t[ o—cM a0[MeDJe]

w 00 —

060~a0oLOada0a0a0o000000 00 N-v0 oAWIVTaYRYoIJVNRLX(AoNolAalaAloEal,[Tal
N ON AN

3oo¥~O]N,MMNl[Na1—74—R2MWrN]lO—PM—MeO—Mr—MsgM—ItNaWUPN ¥
NelLael —-Ov-——

NNeNC\JXReg——Mger———s—yrXNVMe—=-——eM—®

NANOANKH-VK AnoNa

13-a59

13=->88

- r—

OO -VO 0 N

WWUUUWUWUTTWWWW—

OLosARSYNaTI2Vukl0iRaE a3Rd TIYeNMRl[|VbeNt0GaA<dNTwPn 0—O—0o~0<~

[74) ~N a0
U

7~ - o
)

[79) N - o
U

7o N - o
U

["a) ~ -— -—
|

wN - 1
U

MACRO Vv04.00
CIRMOB0O RMOS/3/2 FCTNL T1ST 3
TROSS REFERENCE TABLE (CREF v01-05 )

Sw7

Sw8

Sw9
SWR

SWREG
SYSTAT
TAl
TAl1S
TA2
TAL
TA8

TADMSK
TAG
TAGADR
TAP

5-1#
10-76
L=537#
4~533%
4L=536H
4-535#
L=S534m
L=5478
4~6644

42-1
45-1

10-23
42-1+

45-1

TKVEC
TPVEC
TRAPVE
TRE
TRTVEC
TST
TST1

TST10

TST11

TST1S
TST13
1ST14

TST1S
T1ST16
TST17
1812
1S120
1ST21
1ST22
TST23
TST24
TST25
18713
T1ST4
1STS
1ST16
1877
TSTNMB

TSTPRP

13->88%
13-a38#
13=C244

13-E49#4

13-F81#
13-334
13-G99¥
13-1540
13-K05#
13-L50#
13-MO54
13-0464
13-180#4
13-322#¢
13-4978
13-6454
13-790#

44-44r
13-41
13-75¢4

45~1

6-0

L=4LB4H

16-162
4-4BLN
4=4840
L=484H
&=7174
4L=48LK
4-665#
13-24
13-969#4
13-,;204
13-=05#

4248~

26-66

5-9%
L=-64L14

23-5#

16-191
45-1%

45-1+

10-23+
16-209

10=-23=
24-90

31-103
42-1
42-1
42-1
42-1
42-~1
42-1
42-1
42— 1
42- 1
42- 1
42- 1
42- 1
42- 1
42- 1
42- 1
42- 1

34-83

4h=45*
13-93
13-798

44-47
13-139
13-852

42~ 1
42- 1
42— 1
42- 1
42-1

LQsA

TNeO

e-NMNMoyO

42-1
45=1-

12-64
12-64
12-56

KMRALOE

TBITVE
——m

6~0n

42-1+
48-1x

24-107

24-123

44-1594
13-188
13-900

13-240

13-977

25-106

25-108

26-12

13-286

13-330
13=:84

13-381
13-:28

13~:40

13-429
13=;83

13-505
13=<45

13-560
13-=29

MMMMMNO

SwH
Swé

L=4L84n
4=4B4a
4=4L84n
(=484
L=684n
L~48LA

SEQ 0334

nwvoaa
VRS (YAl

. Swk

J 10
4&-APR-81 (01:15:59 PAGE S-29

Q2|

13- 76

13-653

13->36

13-730
13-= 85
13-£45

13-L90

16-128

13-708
13-23

CZRMOBO RMOS/3/2 €CTNL

CROSS REFERENCE

TABLE

TST 3

(CREF

MACRO v04.00

v01-05

4-APR-81

)

K 10
01:15:59 PAGE S-~30

SEG 0335
13-G51

WC
wCD
WCE
WCEHI
wCELO
WCF

WCH
wh
wH

wLE

WRL
XSlZ
XXDP
Y

Z2EROS

-120
-131
4-729%
4-6864
1€-253
L=-5614
33-169
4-6314
4=-5174
4-728#
4=753#
G4=754#
4=5764
4-518#
4=-521#

13-A15
45224
13-C43
4=5704
4=5564
10-70#
7=-0#
50-36#
13-5¢4

3Ne
&o -]

o> OMw

eNN—r—r eOO N~—e

=ML=) LA L—_-—tr

F—Cer—r——N

13-N58

[AYISY)

N—er\ [¢A3oR eN—rT—r
O—

44-52

4454

47-14

32-59

33-232

33264

33-269

35-279

35-282

35-287

29-156

29-157

29=206
35-544

29- 211
35-549

32=23
36-35

32-26
36-36

33-106
36-56

33-145

33-146

13-:89

13->57
51-77

13-a07

13-472

13-P89

13-715
13-G0S
13-662
13-k 22

13-859
13-H67
13-807

13-<08
13-M17
13-=18
35-342

13-=66
13-MN65
13-201

13--97

13-244

13-263

13-a57

13-C04

13-C09

35-323

51-81

51-82

10-56

10-81

12-16

12-70

4422

L4-47

13-G00
24-48
50-314
50-32#4
25-270
13-A46
16-256
15-122
33-175
31-80
13-291
13-458

13-G55
24-50

31-70

32-57

32-55

13-839
16-266+

1 7 -29
1 6 =274+

16-325

62-124

16-116
34-29
34-70
13-434
13-464

2 5 -196
3 5 -50

29-91
35-119

13-759
13-929

13-905
13-934

4-583

25-240

35-479

35-482

13-100

13-388
13-€79
13-339
13-H15

25-225

3 567
1 3 F92
1 3 514
1 23-170
2 5-238

25-253

27-2h8

13-L67

13-:27
13-422
13-986
13~N13

35-279

13=-:45
13-k72
13-,38
13-062
35-311

11-71
10-33+

3 247
3 €61
1 3 -197
1 3 -£34
2 5 221
3 5 318
1 1 -101
1 0 -36*

10-37

10-39+

10-64

-5

10~-124

10-126

13-201

13-343

13-990

13--64

13-207

15-@61

13~-H19

13-066

13-D02

13-50
13-€29

4-583
25-223

;

35-505

25-169

35-506

51-78

35-315

53-38#

36-61

MACKRO v04.00
/RMOBC RMOS/3/72 FCINL IST 3
(RUSS REFERENCE TABLE (CREF v0'-05 )
6=0

6-0

L 10
4=-APR-81 01:15:59 PAGE M-1

6-0
13-497
13-L50
47-1

L=4764
4=4764
L=476H
L=4768
L=4L72N
L=473%

13-790
13046
67-1

13-969

13-,20

12-205

13->88

13-338

13=(2¢

47-1

47=1

“7-14

6=04

6
5
49
5
S
1

13=-645
13-M95
47=1

43
48-

L=473N
4-473%8
L=4L75K8
L4=4748

SEQ 033¢

71234H5ArC%aCe@7sBOaAOVD8O T0FNMO=eA—NI0MIMT - RAN

20:<=>7A%CEFGHIJL0ONN—MJFOJE20aWOITIT—HY
MTN5O86A47NO89IM8AN3e5~6eM8%NO0T2NeMO32DTN53eI5NT%OTO10MA94TNN28eM31T52NI9Me34MeI8MT0%MTA2T1MN43eM64%909NoWNd3M7oo4%ONl8eo~k7Mol6M5@M0o03P8lOM360oD05AlMO94oNOo83MlNGL6aDnl
Ry

NYNMAA4RWMDAOIYN—WSNDRTYVROX)TSNAOTNDMNVTNTWINMARN—TRMTNNTOADVTNPNMADPT=RTANTYMNVOTTPDTNSNTIVAINATYRTNNTVYTeMT=NRAMTNFPeSNNR=MORVTNMTAMeNQM—NO=MITARVoTNIDMeAAMON~UMRMeNNMM3—N3gIAFG—NN—PTRARV—MNE—TIeM(UROMDTQA:MOTRTMYNMOTOIMIVTeMBODMTNNOMMTQAATMROMM=O A
(ROSS REFERENCE

CZRMOBO RMOS5/3/2 FCTNL
TABLE

(CREF

TST 3
v01-05

MACRO v04.00
)

736541710~8931TO1N=6416OF%807369 LoamenTP—aldE512G4567H89I:<J:>K13L£C%EFNGHOIJL%PNOP

&4=-APR-81
01:°5:59 PAGE M-?2

]

)

17-20

18-17
19-10

RRk 3 G ScRROR AR MO W AR AR AT R AR

13-.20

R SN R d R AR AR A TR A SR AN AN R

16-297

YT TI T0 S AL Y A PRSIPRTRT
TPE
ToITIFITIE00S TN e Y AT NI YIRIRT

SEQ 033/

13- =05

19-1

13->88
13-338
13-C24

13->88

13-a38
13-C24

19-12

20-35
21-29

)

MACRO V04.00
“ZRMOBO RMOS5/3/2 FCTNL TST 3
"ROSS REFERENCE TABLE (CREF v01-05 )
22-4
48-1

PUTREG

REPORT
RGBF M(

49-1

70
12-49
47-1
10-23

7-0

13-F33

42-5
47-1

49-1
13-G00

42-9
67-1

25-128

28-20

30-12

31-52

34-51

34-52

37-1

29-1

46-1

48-1

47-1

47-14

13-G55
45-1
47-1

BLE>>>>>>>0A

.n RR x

6DA0G0G0G0G0&a0a00G006009080<327~~FTTI0§IMMMMNI

awX——r-X——u—Ew3FaD2-3MSVVEOESXAolelookkoolleekkolsleLl—orLl—l[<x 7¢]

47-1
4~484H
4=484H
4~484H

49-1

13-£7¢4

26-141

SEQ 0338

—— O

SETPR]
SETTRA
SETUP
SKIP
SLASH

L4420
4~4BLN
4=~6W
4~4BLn

23-9

22-%

N 10
4-APR-81 01:15:59 PAGE M-3

~oVSOoWONWrMNINMAN—MION

vM-e—J$

-“

]