Digital PDFs

AH-F928B-MC-0GR

August 1981

340 pages

Original

162MB

view download

OCR Version

211MB

view download

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

OCR Text

RH02/03/05

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

CZRMOBO RM05/3/2 FCTNL TST 3

MACRO v04.00

.REM

AN -2

)

WM =OD00 NN

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

;

]'
|

IDENTIFICATION
=S OV

PRODUCT CODE:

AC=F927B=-MC

PRODUCT NAME:

CZRMOBO

PRODUCT DATE:

APRIL 1981

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR :

MIKE LEAVITT

g
31
32
33
;‘So

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

THE SOF TWARE DESCRIBED

LICENSE

%g
40
41

RM05/3/2 FUNCTIONAL TEST, PT 3

TERMS OF

AND

MAY

THIS DOCUMENT

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

SUCH LICENSE.

DiGITAL EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE
OR RELIABILITY OF ITS
SOFTWARE
ON EQUIPMENT THAT IS NOT

SUPPLIED BY DIGITAL.
COPYRIGHT

(C)

1980,1981 DIGITAL EQUIPMENT CORPORATION

N—=OVONONSWN—=O0ONPND
NN -

(ZRMOBO RMOS5/3/2 FCTNL TST 3

NININ) =D wd b wd od e wd and e

MACRO V04.00

1
C
4-APR-81 01:15:59 PAGE 2
CONTENTS
INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.
2.
3.

HARDWARE REGUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1. LOADING

2.
3.
4.

SWITCH OPTIONS
STARTING

HALTING

RESTARTING

OPERATOR INTERFACE
1.

PROGRAM I1.D.

PERFORMANCE REPORTS

2.
3.

5.
6.
7.

CONSOLE DIALOGUE
PROGRESS REPORTS
PROGRAM HALTS
ERROR REPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT
1.

2.
3.

4.
5.
6.
7.

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE

MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
;
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

SEQ 0002

OVONONH
NN = OV
NN NN

CZRMOBO RM05/3/2 FCINL TST 3

—

PIN) = = —d d b =d ) o =

MACRO V04.00

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

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RM05/3/2

1
SEQ 0003

SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM

WHICH
USES
FUNCTIONAL
MEANS
TO VERIFY
RMOS5/3/2 DISK
SUBSYSTEM.
IN PARTICULAR,

OPERABILITY OF
PROGRAM SERVES

THE
THE

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF

THE

FOLLOWING PURPOSES:

8;?21\71(&5%%,

INCLUDING

MECHANICAL

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE:

THE
THE

POSITIONING

CONFIDENCE

AND
THE

DATA

TRANSFER

DRIVE/ADAPTEK

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 TESTS 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 RM05/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
sg? 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 RM05/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 RMOS5'S, RMO3'S OR RMOZ'S)

CZRMOBO RM0S5/3/2 FCINL TST 3
58
59
60
61
62
63

MACRO V04.00

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

SEQ 0004

MEDIA REQUIREMENTS

2.2

EACH UNIT BEING TESTED MUST BE LOADED WiTH A SCRATCH DISK PACK
BEFORE TESTING BEGINS ON THAT UNIT.
THE DISK MUST BE FORMATTED AND
CONTAIN A

2.3

READABLE COPY OF THE MFG AND USR BAD SECTOR FILES.

PREREQUISITE DIAGNOSTIC PROGRAMS

RMO5/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

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

SW15
SW14
SW13

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

Sw10

BELL ON ERROR

Sw12
SW11

Sw09
SW08

UTILITY

UNUSED
INHIBIT TEST ITERATIONS

LOOP ON ERROR

LOOP ON TEST IN SWO7-00

THE LOW ORDER 8 SWITCHES (SWO7-SW00), ARE
USED
IN CONJUNCTION WITH
Sggg OIIIO
SPECIFY
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL

3.3

STARTING

200

WILL BE THE NORMAL STARTING ADDRESS.

i o

el e o

)

) i

) o) =P

Fan o38IRIRIC2BERIR

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

MACRO v04.00

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

aue

0005

NN PDPININD ~2 = —d
d
gwwwg PPN
NI NS WA —=O 00NN

CZRMOBO RM0S/3/2 FCINL TST 3

3.4

HALTING

THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE.

NOTE:

IF THE
PROGRAM IS
HALTED
BY ANY OTHER MEANS,
BAD HEADER
INFORMATION MAY BE LEFT ON THE DISK PACK.
THIS OF
COURSE
&EPENDS ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE

LT.

3.5

RESTARTING

(SEE SECTION 3.3

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID
THE PROGRAM TYPES

ITS

TITLE AND MAINDEC NUMBER THE

FIRST

TIME

IS STARTED AFTER BEING LOADED.
ALSO,
A WARNING MESSAGE IS
TYPED,
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 IS RESTARTED.

4.2

CONSOLE DIALOGUE

51
52

i S R

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

THE FIRST QUESTION TYPED OUT IS: ‘“‘TYPE HELP TEXT (L) N ?''.
THE OPERATOR RESPONDS WITH A °‘Y'', THE PROGRAM WILL TYPE A BRIEF

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

58
59

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

53
54
55
29

12(1)
'{g%

164
}gg

}gg

169
};(1)

EXAMPLE 1

RMCS1=176700 <CR>
RMVEC=000254 <CR>

;NO CHANGE IN ADDRESS
;NO CHANGE IN ADDRESS

EXAMPLE 2

RMCS1=176700 177200<CR> ; CHANGE BASE ADDRESS TO 177200
RMVEC=000254 260<CR>
; CHANGE VECTOR ADDRESS TO 260

B
e
e

WNWWWWW

NO ND WA =2OVONONEWN=O0VR

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204.

48
28

I Y S

‘

CZRMOBO RMOS5/3/2 FCTNL TST 3

MACRO v04.00

ON THE INITIAL START,

4-APR-81 01:15:59 PAGE 3-3
THE NEXT QUESTION

DRIVE NUMBER(S)

TYPED IS,

AND TERMINATE

'TYPE "'A'" 10

INPUT WITH

D e o

OR TYPE

A CARRIAGE RETURN'.

TEST ALL DRIVES,

SEQ 0006

STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A

TYPE AN '‘A'',

'DRIVE(S):'

TO TEST

IS TYPED

AND

ALL POSSIBLE DRIVES

WAITS

FOR THE

OR TYPE

ANY

“'CARRIAGE RETURN''.
NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER.
ON ALL SUBSEQUENT
STARTS, ONLY THE °'DRIVE(S):' PROMPT IS TYPED.
THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE

DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FCLLOWING
IS AN EXAMPLE PRINTOUT:
NONWVNESWN—=O

'"UNIT STATUS:

ONLINE

RMO3

LOAD DEVICE
OFFLINE
RMOS5
NOT PRESENT
NOT PRESENT

NOT AN RM05/3/2
NOT PRESENT
NOT PRESENT'

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

—d

- cad

O N0 YO O O O OO O 00 0o 0o 0o oo

D e

0o 0o

OPERATOR TO

THEN,

= 7 WILL NOT BE TESTED.

199

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

'DRIVE(S) TO BE TESTED, O'
IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE

TYPED TO THE OPERATOR:

OV NITWVNS~WN—

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'

il =

sl el

DS LSS LAS LAV S TS LN 1S 18]

'DRIVE(S) TO BE TESTED, NONE'

AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.

NOTE:

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
D=DECIMAL, 0=0CTAL AND
OFLg$§EgNSE REQUIRED BY THE USER,
L=

4.3

PROGRESS REPORTS

CZRMOBO RMOS5/3/2 FCTNL TST 3

MACRO v04.00

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

SEQ 0007

AN END OF PASS REPORT OCCURS EACH TIME THE

FOR ALL DEVICES

IN THE

TEST QUE.

'END OF PASS

OCCUR IF

'TOTAL ERRORS SINCE LAST REPORT

NC PERFORMANCE REPORTS ARE GIVEN

THERE WERE ERRORS SINCE

0’

DURING

THE

EXECUTION

THE

PROGRAM HALTS

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

4.6

EXECUTED

PERFORMANCE REPORT

PROGRAM.

4.5

IS AS FOLLOWS.

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

4.4

PROGRAM

THE END OF PASS REPORT

THE PROGRAM.

ERROR REPORTS

THE FIRST LINE OF

THE ERROR REPORT CONTAINS

THE

NUMBER

THE

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 COMPREHENSIVE DESCRIPTION OF
THE ERROR.
THE
ERROR MESSAGE
IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR,
INCLUDING
EXPECTED AND ACTUAL TEST RESULTS.
THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM:

DRV# O - RMO3, TEST# 14, ERRA 326, PC=016654
MASSBUS DATA BUS PARITY ERROR "MDPE'' (RMCS2, BIT 8) DETECTED
DURING WRITE COMMAND
RECEVD
EXPECTD

040300

040700

144252
RMWC
177403
RMMR1
000010

040700
RMBA
104604
RMMR2
011777

RMCS1

4.7

RMCS2

RMDS

010700
RMDA
000002
RMDT
024026

;

RMER1

000000
RMOF
010000
RMSN
177777

RMER2

000000
RMDC
000000

RMAS

000000
RMEC1
004066

.
RMEC?2

000000

EXECUTION TIME

TIME FOR RMO5:

PASS 1 OF THE PROGRAM TAKES ABOUT 15 SECONDS.

PASS 2 AND

CZRMOBO RMOS5/3/2 FCTINL TST 3
286
287
288
289
290
29
292
293
294
295
296
297

MACRO v04.00

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

SEQ 0008

SUBSEQUENT PASSES TAKE 1 MINUTES 10 SECONDS.
TIME FOR RM02/3:
PASS 1 OF

THE PROGRAM TAKES ABOUT 6 SECONDS.

SUBSEQUENT PASSES TAKE 40 SECONDS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

PASS 2 AND

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11
PROCESSOR,
PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE
MET, AND PROVIDING THAT DATA THROUGHPUT ON TKE SYSTEM IS SUFFICIENT TO
SUSTAIN DATA TRANSFER OPERATIONS.

5.2

— e

—d

b e

WWWWWWW

b —d

DUAL

DUAL PORT CONFIGURATIONS

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

_PORT

LOGIC

THE

RM05/3/2

ADAPTER

BUT

EXECUTABLE

EXECUTION OF

THE

RMO5/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.

5.4

MEMORY MANAGEMENT HARDWARE

MEMORY

MANAGEMENT

HARDWARE

SUSBYSTEM FUNCTIONAL TEST.

5.5

NOT

USED

DURING

THE RMO5/3/2

CAPABILITIES OF THE MASSBUS CONTROLLER.

ACT11, APT11 COMPATIBILITY

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

5.6

DUMP

XXDP COMPATIBILITY

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN

AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE

THE RMO5/3/2 1S THE XXDP LOADING DEVICE.

| CZRMOBO RM0S5/3/2 FCTINL TST 3
343
344
345

MACRO v04.00

5.7

%29

3323

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

SEQG 0009

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

350
351

6.0

352

353
354
355
356
357
ggg

TEST DESCRIPTION

TEST 1

CONTROLLER ACCESS TEST

332?

PURPOSE :

362
3322

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

3322

PROCEDURE :

267

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

368
369
%;(1)

372
373
374
375
g;;
378
379
380
381
%g%

SUBSYSTEM

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND
ALONE ENVIRONMENT, I.E., LOCATION 42 IS O, THE PROGRAM WILL JumP
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $BASE
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES T0O
THE END OF PASS HANDLER.

VEST & ~

WRITE/READ DATA TESTS

33%?

PURPOSE :

386
387
3333

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

;8?

PROCEDURE :

392
393

ALTHOUGH EACH
GENERAL PROCEDURE

395
396
397
398
399

THERE 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

394

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

CZRMOBO RMOS/3/2 FCINL TST 3

MACRO v04.00

400
401
402

K
_1
4-APR-81 01:15:59 PAGE 3-7
THE CONDITIONS OF

THE TEST.

DATA

COMMAND

EXECUTED.

ERRORS

WHICH

THE TEST STORES ALL

403

404
405
406
407
408
409
410
411
412
413
414
415
416

SEQ 0010

PRIMARY ERRORS,

TEST

THE

WRITE

WHEN THE WRITE COMMAND IS COMPLETE,

SUBSYSTEM

PRECLUDE
THE

REGISTERS ARE PRESET AND

OTHER

STATUS

VERIFIES

THE

AND

(HECKS

CHECKS.

RESULTS

FOR

PRIMARY

IF THERE ARE NO
OF

THE

WRITE

COMMAND AND THEN CHECKS FOR SECONDARY ERRORS.
LOOP ADDRESSES ARE
MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF THE WRITE COMMAND
IN ORDER
TO
SHORTEN EXECUTION TIMES AND ENHANCE SCOPING LOOPS,
THEN THE PROGRAM EXECUTES THE READ
DATA PORTION OF
THE
TEST,
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND.
NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE
PROGRAM
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR,
IF
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE.

417

418
419
420
421
422

TEST 2

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.

423
424
425
426
427
428
429
430
43
432
433
434,
435
436
437
438
439

TEST 3

WRITE, WRITE CHECK ZEROS TEST

THE TEST WRITES AND WRITE CHECKS AN ALL
VERIFYING THAT THERE ARE .0 ERRORS.

TEST 4

440
441
442

DATA

FIELD,

WRITE, WRITE CHECK ZEROS W/ WCE ERRCR TEST

EACH

THE TEST WRITES AN ALL ZEROS DATA

BIT

IN THE LAST WORD

OF THE

COMMAND IS EXECUTED AND THE TEST
CHECK ERROR IS DETECTED.

443
444
445

ZEROS

FIELD,

THEN

WRITE BUFFER.

COMPLEMENTS

A WRITE CHECK

VERIFIES THAT THE CORRECT WRITE

4L6

447
448
449
450
451
452

453

454
455
456

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.

CZRMOBO RMOS5/3/2 FCTNL TST 3
457
458
459
460
461
462
463
464

465

466

467

SEQ 0011

TEST 6 WRITE, WRITE CHECK ONES TEST

THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD.

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

408

469

470
471
472
473
474
475
476
477
478
479
480
481

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

MACRO v04.00

WRITE

CHECK ERROR IS DETECTED.

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,
WITH THE WORD COUNT EQUAL TC MULTIPLE SECTORS.
ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

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 OF
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,
THT WRITE DATA COMMAND STARTS WITH
CYLINDER O, TRACK 0, SECTOR 31.
HE WORD COUNT IS EQUAL TO
“MULTIPLE SECTORS WHICH CAUSES THc SUBSYSTEM TO SWITCH FROM TRACK
0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN.
THE SAME
SECTORS ARE VERIFIED WITH A WRITE
CHECK DATA COMMAND,
USING THE SAME WORD COUNT AND STARTING SECTOR.

CZRMOBO RMOS/3/2 FCINL TST 3

MACRO v04.00
TEST

&-APR-81 01:15:59 PAGE 3-9
13 WRITE, WRITE CHECK WITH MID-TRANSFER SEEK TEST

LAST

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

FIRST SECTOR IS
WRITTEN.
WRITE CHECK DATA COMMAND.

TEST 14 WRITE,

TEST

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

SAME SECTORS

ARE VERIFIED WITH A

READ W/ HCE ERROR TEST

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

CORRECT ERROR IS DETECTED.

EACH

WORDS IS TESTED IN THIS MANNER.

TEST 15 WRITE,

BIT

POSITION

BOTH

HEADER

READ W/ HCI TEST

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

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
IT):?‘T‘ éw COMMAND STATUS SETS.
THE TEST IS REPEATED FOR READ

TEST 17 WRITE,

READ W/ ABORT TEST

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES

WRITE DATA COMMAND VERIFYING THAT ‘PIP'' REMAINS INACTIVE.
SAME PROCEDURE 1S USED FOR READ DATA COMMAND.

TEST 20 WRITE, READ EACH CURRENT LEVEL

THE

TEST

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

| CZRMOBO RM0S/3/2 FCTNL TST 3

MACRO V04.00

571
572
573
574
575
576
577
578

579
580
581
582
583
584,
585
586
587
588
589
590
591
592
593
59
595
596
597
598
599
600
601
602
603
604
605

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

CYLINDER
=
i

=
-

0
128
256
384
512
640
768

SEQ 0013

110 MA
104 MA
97 MA
91 MA
84 MA
77 MA
70 MA

TEST 21 WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING TEST

THE TEST WRITES 2 SECTORS STARTING WITH THE LAST

CYLINDER

383.

SECTOR

THE FIRST SECTOR IS WRITTEN AT ONE CURRENT LEVEL

AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT LEVEL.
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND.

BOTH

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,

USING

DATA

USING

DATA

MIX

READ MIXED PEAK SHIFT TEST

THIS TEST WRITES AND READS A

SINGLE

SECTOR

" PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIFT.

TEST 24 WRITE, READ EACH TRACK TEST

THE TEST WRITES AND READS WITH EACH

EARLY, NORMAL AND LATE WRITE GATES.

TEST

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.

;
|
|

£ZRMOBO RM0S/3/2 FCTNL TST 3

628

MACRO v04.00

B 2
4=-APR-81 01:15:59 PAGE 3=11

SEQ 0014

CZRMOBO RMOS5/3/72 FCINL TST 3

MACRO v04.00

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

SEQ 0015

;*LAST REVISION 04-APR=-81

479
480

LTITLE CZRMCBO RMQO5/3/2 FCTNL TST 3
:*COPYRIGHT (C) 1981

:*DIGITAL EQUIPMENT CORPORATION

'COLORADO SPGS., 0. 80919

~PROGRN'| BY MIKE LEAVITT
-THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
-PACKAGE (MAINDEC-11-DZQAC~C5), 18-MAR-81

O=NWSH
N NOOVO—=NIWS

P
N

SWITCH

B
B
BE BRI
B
B
BN IR B

.SBTTL

001100

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

TN128
TNG4
TN32
TN16
TN8
TNG
TN2
TN1

;*INITIAL ADDRESS OF THE STACK POINTER *** 17100 %«

STACK

104000

ERROR
SCOPE

000011
000012
000015
000200
177776
177776
177774
177772
177570

000004

USE

BASIC DEFINITIONS

= 1100
nn

483
484

482

TR TR TR TR TR TR TR TE TR TE PE

OPERATIONAL SWITCH SETTINGS

AR BE B

AR AN

.SBTTL

481

EMT
107

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

'HISCELLANEOUS DEF INITIONS

=
=
=
=

STKLMT

= 177774

::STACK LIMIT REGISTER

177570

DSWR
DDISP

= 177570
= 177570

,.HARDHARE SWITCH REGISTER
; sHARDWARE DISPLAY REGISTER

000000
000001
000002
000003

RO
R1
R2
R3

PIRQ

12
15
200
177776

;;CODE FOR HORIZONTAL TAB

LF
CR
CRLF
;g e

= 1727772

;.CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
_
;sCODE FOR CARRIAGE RETURN-LINE FEED
; ;PROCESSOR STATUS WORD
:PROGRAM INTERRUPT REQUEST REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS
=
=
=
=

%0
%1
%2
X3

; ;GENERAL
; ;GENERAL
s ;GENERAL
s sGENERAL

CZRMOBO RMOS5/3/2 FCTINL TST 3

BASIC DEF INITIONS

MACRO v04.00

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

000004
000005
000006
000007
000006
000007

R4
RS
R6
R7
SP
PC

000000
000040
000100
000140
000200
000240
000300
000340

PRO
PR1
PR2

=0
= 40
= 100

;:PRIORITY
LEVEL O
;:PRIORITY LEVEL 1
;:PRIORITY LEVEL 2

PR4

= 200

;:PRIORITY LEVEL 4

100000

Sw1s

040000

=
=
=
=
=
=

%
3
%6
§7
%6
B¢

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

;*PRIORITY LEVEL DEFINITIONS

PR3
PRS

PR6

PR7

= 140
= 240
= 300

= 340

:sPRIORITY LEVEL 3
:sPRIORITY LEVEL S

::PRIORITY LEVEL 6

::PRIORITY LEVEL 7

;*''SWITCH REGISTER'' SWITCH DEF INITIONS

SW14
SW13
Sw12

SwWi1

= 100000

= 40000
= 20000
= 10000

= 4000

SW10
SW09
Sw08
Sw07
SW06

=
=
=
=
=

SW04

= 20

SWO05

2000
1000
400
200
100

= 40

Sw03

= 10

=4
Sw02
SWO1
g
& 5
SW00
SW9=Sw09
SW8=SW08

SW7=SwW07
SW6=SW06
SW5=SW05
SW4&=SW04
SW3=SW03
SW2=Sw0?2
SW1=SWw01
SWO=SW00

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT1S
BIT14
BIT13
BIT12
BIT11
BIT1I0
BIT09
BITO8
BIT07
BITO6
BITOS

=
=
=
=
=
=
=
=
=
=
=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

SEQ 0016

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

SEQ 0017

BASIC DEFINITIONS

MACRO v04.00

0
BITO4
0
BITO3
BIT02
BITO1
=
BITO0
BIT9=BITO
BIT8=BIT08
BIT7=BIT07
BIT6=BIT06
BIT5=BITO5
BIT4=BIT04
BIT3=BIT03
BIT2=BITO2
BIT1=BITO1
BITO=BITOO
L

CZRMOBO RMOS/3/2 FCTNL TST 3

thnnn

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
= &
;:TIME OUT AND OTHER ERRORS
= 10
"?$§-E§‘,’$° AND ILLEGAL INSTRUCTIONS

ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC

= 14
= 14
= 14

IOTVEC

= 20

EMTVEC

= 30

PWRVEC

= 24

TRAPVEC = 34
TKVEC
= 60

487

:2EMULATCR TRAP (EMT) #*ERROR**
::"'TRAP'' TRAP

::TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR

TPVEC

= 64

.SBTTL

RM REGISTER BIT DEF INITIONS

PIRQVEC = 240

485

: :TRACE TRAP
: :BREAKPOINT TRAP (BPT?
;2 INPUT/0UTPUT TRAP (JOT) #=SCOPE==
:;POWER FAIL

; PROGRAM INTERRUPT REQUEST VECTOR

;*RMCS1 CONTROL STATUS REGISTER
004000
000020
000010
000001

000077

DVA
Fé
F3
F2
F1
FO

= BIT11
= BITOS
= BITO4
= BIT03
= BIT02
= BITO1

FNCMSK

= 000077

= BIT00

;DEVICE AVAILABLE~READ ONLY
sFUNCTION CODE
sFUNCTION CODE

sFUNCTION CODE
sFUNCTION CODE
;FUNCTION CODE
;GO BIT
sFUNCTION CODE MASK

;FUNCTION CODES (BITS 01-05 OF RMCS1)

NOP

= 000000

sNOP_COMMAND

= 000006

JRECALIBRATE COMMAND
:DRIVE CLEAR COMMAND
;RELEASE COMMAND
;OFFSET COMMAND
INE COMMAND
JRETURN TO CENTERL
;READ IN PRESET COMMAND

ILFO2
SEEK

= 000002
= 000004

DRVCLR
RLEASE
OFFSET

= 000010
= 000012
= 000014

RECAL

RTC
RIP
PAKACK

PACACK

ILE24
ILF26

= 000016
= 000020
=.000022
= PAKA(CK

= 000024
= 000026

s ILLEGAL COMMAND
;SEEK COMMAND

;PACK ACKNOWLEDGE COMMAND

s ILLEGAL COMMAND
s ILLEGAL COMMAND

CZRMOBO RM0S/3/2 FCINL TST 3

RM REGISTER BIT DEFINITIONS

513

516

MACRO v04.00

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

SEQ 0018

SEARCH
ILF30
ILF32
ILF34
ILF36
ILF40
ILF42
ILF44
ILF46

=
=
=
=
=
=
=
=
=

000030
000030
000032
000034
000036
000040
000042
000044
000046

s SEARCH COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND

ILF54
ILF56

= 000054
= 000056

;ILLEGAL COMMAND
s ILLEGAL COMMAND

wCD
WCH

WD
WH
ILF64
ILF66

= 000050
= 000052

ILF74
ILF76.

=
=
=
=
=
=
=
=

;*RMDA

DISK ADDRESS REGISTER

RD
RH

000060
000062
000064
000066
000070
000072
000074
000076

: TRACK ADDRESS DEF INITIONS
TA16
TA8
TA4
TA2
TA1

=
=
=
=
=

BIT12
BIT1
BIT10
BIT09
BIT08

:SECTOR ADDRESS DEF INITIONS

;WRITE CHECK DATA COMMAND
JWRITE CHECK HEADER AND DATA
;WRITE DATA COMMAND
;WRITE HEADER AND DATA COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
;READ DATA COMMAND
JREAD HEADER AND DATA COMMAND
;ILLEGAL COMMAND
;ILLEGAL COMMAND

:TRACK
:TRACK
;TRACK
;TRACK
:TRACK

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

SA16

= BIT04

;SECTOR ADDRESS 16.

SA4
SA2
SA1

= BIT02
= BITO1
= BIT00

;SECTOR ADDRESS 4
;SECTOR ADDRESS 2
;SECTOR ADDRESS 1

SA8

= BIT03

:TRACK & SECTOR MASKS

:SECTOR ADDRESS 8.

TADMSK

= 177400

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR

= BIT15
= BIT14

SATTENTION ACTIVE
;COMPOSITE ERROR

MOL

= BIT12

JMEDIUM ON LINE

PGM

= BIT09

SADMSK

PIP

WRL
LBT

DPR
DRY
Vv
oM

; *RMER1

= 000377

= BIT13

= BITI
= BIT10
=
=
=
=

BITO8
BIT07
BIT06
BIT00

ERROR REGISTER #1

s TRACK ADDRESS MASK

;SECTOR ADDRESS MASK

sPOSITIONING IN PROGRESS

JWRITE LOCK
sLAST BLOCK TRANSFERRED
: PROGRAMMABL
E

;DRIVE PRESENT
;DRIVE READY
;VOLUME VALID
;OFFSET MODE ACTIVE

CZRMOBO RMOS5/3/2 FCTINL TST 3
RM REGISTER BIT DEFINITIONS

565
566

567

568
569
570
571
572
573
574

100000

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

DCK

SEQ 0019

= BIT1S

;DATA CHECK ERROR

= BIT06

JECC_"HARD'' ERROR

=
=
=
=
=
=
=
=

BIT14
BIT13
BIT12
BITN
BIT10
BIT09
BIT08
BIT07

PAR
RMR

000001

ILR
ILF

=
=
=
=
=
=

BITOS
BIT04
BITO3
BIT02
BITO1
BIT00

115760

ND TMSK

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

:*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

:*RMLA

LOOK AHEAD REGISTER

002000
001000
000400
000200
000100

SC4
SC3
SC2
SC1
sco

= BIT10
= BITO9
= BITO8
= BIT07
= BIT06

;SECTOR
sSECTOR
;SECTOR
;SECTOR
sSECTOR

003700

SCTMSK

= 003700

sSECTOR COUNT MASK

040000
020000
0100G0
004000

UNS
OPI
DTE
WLE
IAE

AOE
HCRC
HCE

ECH
WCF
FER

575

576
577
578

579
580
581
582
583
584
585
586
587
588
589
590
591

MACRO v04.00

000377

;DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
sADDRESS OVERFLOW ERROR
JHEADER CRC ERROR
JHEADER COMPARE ERROR
;WRITE CLOCK FAILURE
F 4
T ERROR
;PARITY ERROR
JREGISTER MODIFICATION REFUSEC
s ILLEGAL REGISTER
s ILLEGAL FUNCTION

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

;MASK FOR ATTENTION BITS

COULNT
COUNT
COUNT
COUNT
COUNT

=
=
=
=
=

16
8
4
2
1

;*RMMR1 MAINTENANCE REGISTER #1
;WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14

RR2

b o

et e

4 OO NV

) e

W=D

607

;DEBUG CLOCK
;DEBUG CLOCK ENABLE

DEBL
DTO

= BIT13
= BIT12

MRD
MUR
MOC

= BIT10
= BIT09
= BITO8

;READ DATA
sUNIT READY
:ON _CYLINDER

= BIT06

;DRIVE FAULT

MwP

= BIT03

JWRITE PROTECT

DMD

= BIT00

MCLK

MSER

MDF
MS

MI
MS(

=BITN

= BITO7

= BITO0S

= BIT02
= BITO1

;READ ONLY BITS
= BIT15

ocC

;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
JMAINTENANCE CLOCK

:SEEK_ERROR

sSECTOR PULSE

s INDEX PULSE
:SECTOR COMPARE

;DIAGNOSTIC MODE
sOCCUPIED

RM REGISTER BIT DEFINITIONS

622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639

MACRO v04.00

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

SEQ 0020

= BIT14

JRUN AND GO

DMD

=
=
=
=
=
=
=
=
=
=
=
=

JENABLE SEARCH
;LOOKING FOR SYNC
;ENABLE CRC our
;DATA AREA
JHEADER AREA
s CONT INUE
sWORD CLOCK
;ENABLE ECC OuT
;WRITE DATA BIT
;LAST SECTOR
;LAST SECTOR AND TRACK
;DIAGNOSTIC MODE

;*RMDT

DRIVE TYPE REGISTER

040000
020000
004000

100000

NSA
TAP
MOH
DRQ

=
=
=
=

020024
024024

SNGPRT
DULPRT

= 020024
= 024024

: *RMOF

OFFSET REGISTER

FMT16
ECI

HC1
OFD

= BIT12
=BITN
= BIT10
= BITO7

: *RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

EBL
REX
ESRC

PLFS

ECRC

PDA

PHA

000020
000010
000004
000002
000001

010000
004000
002000
000200

001777

CONT
w(
EECC
MWD
LS

LST

= BIT13
= BIT1?

BITN
BIT10
BIT09
BITO8
BITO7
BIT06
BITO0S
BITO4
BITO3
BIT02
BITO?
BIT00

BIT15
BIT14
BIT13
BITN

;END OF BLOCK
JEXCEPTION

;NOT SECTOR ADDRESSED = 0
;TAPE DRIVE = 0
;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

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

;16 BIT WORD FORMAT
;ECC INHIBIT
;HEADER COMPARE INHIBIT
;OFFSET FORWARD

:MASK FOR CYLINDER ADDRESS

; *RMMR2 MAINTENANCE REGISTER #2
ROA
RQB
TAG

TST
cC
CH

8809
8808
BBO7
BBO6
B80S
B804

8803

8802
8801
8800

= BIT15
= BIT14
= BIT13

= BIT12
= BITN
= BIT10
= BIT09
= BITO8
= BIT07
= BIT06
= BITO05
= BIT04
= BIT03
= BITQ2
= BITOY
= BIT00

;PORT A REQUEST
;PORT B REQUEST
:TAG CONTROL
;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
: TAG BUS

CZRMOBO RMOS/3/2 FCINL TST 3

CZRMOBO RMOS/372 FCINL TST 3

RM REGISTER BIT DEFINITIONS

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

MACRO Vv04.00

; *RMER?2 ERROR REGISTER 2

672
673

674
675
676

BSE
OPE
IvC
LSC
LBC
DVC
DPE

100000

040000

000000
000006
000012
000014

= BIT07
= BIT03

:DEVICE CHECK
*DATA PARITY ERROR

*SEEK INCOMPLETE
*OPERATOR PLUG ERROR
*INVALID COMMAND ERROR
*LOSS OF SYSTEM CLOCK
*L0SS OF BIT CLOCK

PROGRAM MNEMONICS

MSE

USE

= BIT15
= BIT14

.SBTTL

RM REGISTER INDEX VALUES

RMCS1

= 00
= 06
=12
= 14
= 16
= 20
= 24
= 26
= 30
= 32
= 3
= 36
= 40
= 42
= 44
= 46

RMDA
RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN

RMOF

RMMR2
RMER2
RMEC1
RMEC2

:MANUFACTURING DETECTED SECTOR ERROR
*USER DETECTED SECTOR ERROR

;CONTROL STATUS REGISTER #1
:DISK ADDRESS REGISTER
*DRIVE STATUS REGISTER"
*ERROR REGISTER #1
*ATTENTION SUMMARY REGISTER
*LOOK AHEAD REGISTER
:MAINTENANCE REGISTER
:DRIVE TYPE REGISTER
*SERIAL NUMBER REGISTER
*OFFSET REGISTER
:DESIRED CYLINDER REGISTER
:HOLDING REGISTER
*MAINTENANCE REGISTER #2
:ERROR REGISTER #2
:ECC POSITION REGISTER
*ECC_PATTERN REGISTER

= 50
= 52
= 54
= 56
= 60
= 62
= 64
= 66
= 70
= 72

:ILLEGAL REGISTER 50
:ILLEGAL REGISTER 52
*ILLEGAL REGISTER 54
*ILLEGAL REGISTER 56
*ILLEGAL REGISTER 60
:ILLEGAL REGISTER 62
*ILLEGAL REGISTER 64
:ILLEGAL REGISTER 66
*ILLEGAL REGISTER 70
:ILLEGAL REGISTER 72

= 76

*ILLEGAL REGISTER 76

1DXMSK

=77

:MASK FOR REGISTER INDEX NUMBER

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

s *RMCS1

CONTROL STATUS REGISTER #1

The

= BIT14

ILRG50
ILRG52
ILRG54
ILRG56
ILRG60
ILRG62
ILRG64
ILRG66

ILRG70
ILRG7?2
ILRG74
ILRG76

002000

;BAD SECTOR ERROR

BIT14
BIT13
BIT12
BITI
BIT10

.SBTTL

RMDC
RMHR

100000
040000

BIT15

=
=
=
=
=

SKI

677

709
710
711
712
713
714
715
716
717
718
719

SEQ 0021

MCPE
PSEL

= 74

BIT15

- BIT13
- BIT10

*ILLEGAL REGISTER 74

sSPECIAL CONDITION-READ ONLY

*TRANSFER ERROR

MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
*PORT B SELECT

CZRMOBO RMOS5/3/2 FCINL TST 3

MACRO V04.00

RH CONTROLLER REGISTER BIT DEFINITIONS

720

721

722
723

724

725
726
727
728

729
730
73

733

001000
000400
000200
000100

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

A17

= BIT09

;ADDRESS EXTENSION

= BIT07

sREADY=READ ONLY

A16

= BITO8

= BITO06

RDY

SEQ 0027

;ADDRESS EXTENSION

s INTERRUPT ENABLE

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

DLT

= BIT15

;DATA LATE=READ ONLY

UPE

= BIT13

JUNIBUS PARITY ERROR

WCE

NED
NEM
PGE

= BIT14

= BIT12
= BITN

= BIT10

JWRITE CHECK ERROR=READ ONLY

sNONEXISTANT DRIVE=-READ ONLY
sNONEXISTANT MEMORY~READ ONLY
;PROGRAM ERROR-READ ONLY

MXF
MDPE
OR
IR
CLR

= BIT09
= BITO8
= BITO7
= BIT06
= BITO5

;MISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY-READ ONLY
: INPUT READY=READ ONLY
;CONTROLLER CLEAR

BAI
u2

= BIT03
= BIT02

;UNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT

= BIT00

PAT

= BITO4

= BITO1

sPARITY TEST

sUNIT SELECT

JUNIT SELECT

SUNIT SELECT MASK
000007

UNTMSK

= 7

JUNIT SELECT MASK

;*RMCS3 RH70 CONTROL STATUS REGISTER #3
APE
DPEHI
DPELO
WCEHI
WCELO

= BIT15
= BI114
= BIT13
= BIT12
= BITI

.SBTTL

RH CONTROLLER REGISTER INDEX VALUES

000000
000002
000004
000010
000022
000050
000052

RMCST
RMW(
RMBA
RMCS2
RMDB
RMBAE

=
=
=
=

176700
120254

ABASE
AVECT1

= 176700
= 120254

100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

DBL
1E
IPCK3
IPCk2
IPCK1
IPCKO

RMCS3

= BIT10
= BIT06
= BITO3
= BITO2
= BITO1
= BITOO

;ADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD
:DATA PARITY ERROR LOW WORD
;WRITE CHECK ERROR HIGH WORD
sWRITE CHECK ERROR LOW WORD

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

00
02
04
10

;CONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
3
;CONTROL, STATUS REGISTER #2

= 52

;CONTROL, STATUS REGISTER #3

= 22
= 50

;DATA BUFFER
;BUS ADDRESS EXTENSION

JUNIBUS ADDRESS
JUNIBUS VECTOR ADDRESS AND PRIORITY

CZRMOBO RMOS/3/2 FCTNL TST 3

TRAP CAT(HER

MACRO V04.00

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

SEQ 0023

{

.SBTTL

TRAP CATCHER
=0

000000

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘', 42, HALT"’

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
000174
000176

'LOCATION194C0NTA1NS 0O TO CATCH IMPROPERLY LOADED ''“TTORS

1000174

DISPREG: .WORD

000000
000000

SWREG:

.SBTTL

.WORD

;:SOFTWARE DISPLAY REGISTER

;:SOFTWARE SWITCH RECISTER

STARTING ADDRESS(ES)

> 000200

000137

005432

JMP

A#START

;:JUMP TO STARTING ADDRESS OF PROGRAM

3 000204

000137

005422

JMP

A#START1

; CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11 HOOKS

Ittttt'*tt'titttt!tt""‘t.ttttt.tttfitit.'ttttttit"tttttttitfit

000046

000052
o~

000210
000046
037242
000052
000000
000210
001100

HOOKS REQUIRED BY ACT11
sszgc-

;SAVE PC

$E§3AD

WORD

.=$SVPC
.=1100
.SBTTL

;21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

2:2)SET LOC.52 TO ZERO
22 RESTORE PC

APT PARAMETER BLOCK

fiitt'itt.ltt..'t't".t""'.Qt‘.'.'.ttfitt.tttt.t.ttt'tttt.tt'tt

ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT

't't.t'."."fi.t..'.t.'..".'...."t'.t.tttt'..t..i"'i'ttttfi't

.$X=.
=24~

200

;:SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM

*:FOR APT START UP

.=44
::POINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER
.=.8X

000044

::t'tt't'.'.*.'.t..""'t't""l*".".'l*.t"i..'.tl.t'tlt"t't'

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

8838888
2333355

$APTHD:

$HIBTS: .WORD
$MBADR: .WORD
$TSTM:
$PASTM:

_WORD
.WORD
SUNITM: .WORD
TAGADR=.

.WORD

O
$MAIL
6
6

:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
..ADDRESS OF APT MAILBOX (BITS 0-15)

s:RUN TIM OF LONGEST TEST
s:RUN 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-ETABLE (WORDS)

COMMON TAGS

MACRO Vv04.00

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

.SBTTL

2
SEQ 0024

COMMON TAGS

':t.tt....tt..fiitt*tt't"""".i.fi"t"t".t'.tttttttt't't.'l'tt

S*THIS

TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.BYTE
.
.
.
.WORD

$AUTOB:
$INTAG:

SWR:
DISPLAY: .WORD
$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG:

$TMPO:

$TMP3:

N = = =3 =

NSLAS LS LS TN TS 1S TN

(=]

STMPY:
$TMP2:

377
000

377

.
.WORD

$TMPG:
.
$TIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
$LF:
LASCIZ
e

;;AUTOMATIC MODE INDICATOR
;; INTERRUPT MODE INDICATOR

; ;ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
:;TTY KBD BUFFER

DDISP

;:TTY PRINTER STATUS REG. ADDRESS

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

22 INSERT FILL CHARS. AFTER A "LINE FEED'’
;2 'TERMINAL AVAILABLE'®' FLAG (BIT<07>=0=YES)
;;USER DEF INED
s JUSER DEF INED
; :USER DEF INED
; sUSER DEF INED
; ;USER DEF INED
;:MAX. NUMBER OF ITERATIONS
;;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/?/
:QUESTION MARK
<15>
<12>

2222223322232

"SBTTL

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

001140

.WORD
.BYTE
.BYTE
.WORD
.

s :START OF COMMON TAGS

[elelelelelelelelelellelolelelelelsle]

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$BDDAT :

.=TAGADR

OOOOOOR‘,NO

$CMTAG:

& RRLERRNSIa~r

S
sY

e
e T
il e

T
e
- P

8888388888888

: *USED IN THE PROGRAM.

o
o

CZRMOBO RMOS5/3/2 FCINL TST 3

88838888888

2 :CARRIAGE RETURN

22222

APT MAILBOX-ETABLE

;:LINE FEED

2322222

202ttt

Rttt

ddd

:;fi.tti'ttfifitttttfit*titi""t"'fit.ltittt.tttiltttttttttl'tfit.llt

000000

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

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

; sAPT MAILBOX

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

CZRMOBO RM0S5/3/2 FCTNL TST 3
APT MA[LBOX-ETABLE

000
000

$PASS:
.WORD
$DEV(T: . WORD
SUNIT:
. WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
.BYTE
$ENV:
.BYTE
$ENVM:
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

APASS

AMAMS1
AMTYP1

.BYTE

BYTE

.WORD

:
:

.BYTE
BYTE

-WORD
BYTE

: .BYTE

WWWWWWWW§
A NOONSNO

ANORORIN)
= = =3 —a

533535353535848

.BYTE

001304

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

: .BYTE

83833888

MACRO v04.00

ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV

AENVM

ASWREG
AUSWR
ACPUOP

SEQ 0025

; ;PASS COUNT

::DEVICE COUNT
::1/0 UNIT NUMBER
: ;MESSAGE ADDRESS
; ;MESSAGE LENGTH
;sAPT 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.PDA=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
;:HIGH ADDRESS ,M.S. BYTE
: sMEM. TYPE ,BLK#1
MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003

:sHIGH ADDRESS ,BLKA#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'® ABOVE
;;HIGH ADDRESS.M.S. BYTE

..'EH TYPE ,BLKA?

sMEM.LAST ADDRESS ,BLK#?
::HIGH ADDRESS,M.S.BYTE

: tMEM. TYPE ,BLKA3

: sMEM.LAST ADDRESS ,BLK#3
;:HIGH ADDRESS M.S.BYTE

::’Efl TYPE ,BLK#4

sMEM.LAST ADDRESS ,BLK#4

..INTERRU’T VECTORA1,BUS PRIORITYA1
; : INTERRUPT VECTOR#2BUS PRIORITYA2

; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
:sDEVICE MAP
;s CONTROLLER DESCRIPTION WORD#1
: ;CONTROLLER DESCRIPTION WORD#?2
:;DEVICE DESCRIPTOR WORD#0
s ;DEVICE DESCRIPTOR.WORD#1
;;DEVICE DESCRIPTOR WORDA2
;:DEVICE DESCRIPTOR WORDA3
s :DEVICE DESCRIPTOR WORDA#4
s:DEVICE DESCRIPTOR WORDA'S
;:DEVICE DESCRIPTOR WORDA6
s sDEVICE DESCRIPTOR WORDA7

| C ZRMOBO RMOS/3/2 FCTNL 7ST 3
ju SER DEF INED TAGS
!

000000
000000
000000
000
000

MACRO v04.00

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

.SBTTL

USER DEFINED TAGS

CTLFG:
CHGADR:
XXDP:

.WORD
.WORD
.WORD

LSTRK:

.BYTE

)
0
¢
0

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 CONTAINS THE

;"XXDP' DEVICE CODE FOR THE RMO05/3/2.
:LO BYTE = 0
HI BYTE,

CONTAINS LAST TRACK ADDRESS OF UNIT

:UNDER TEST. RM02/3
= 4., RMOS5
= 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

RMCS11:
RMWCI:
:
RMBA]

.WORD
WORD
WORD
:
RMDAI
WORD
RMCS2I: WORD
:
RMDSI
WORD
RMER11:
WORD
:
RMAS]
WORD
:
RMLAI
WORD
:
RMDBI
WORD
:
RMMR1I .WORD
:
RMDTI
:
RMSNI
I
RMOF:
:
RMDCI
:
RMHR]

:
RMMR2]
RMER2]:
RMEC11:
:
RMEC2I
:
RMBAE]

RMCS31:

[elelelelelelelelololelolololelalelelelelele)

;REGISTER INPUT BUFFER

;CONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER

;CONTROL, STATUS REGISTER #2
;DRIVE STATUS REGISTER
;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
:DATA BUFFER
;MAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
:HOLDING REGISTER

:MAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER

':ECC PATTERN REGISTER
:BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

:THE REGISTER OUTPUT BUFFER IS USED FOR

:ASSEMBLING DATA GOING. TO REGISTER
PUTBUF:

RMWCC:
RMBAO:
RMDAQ:

. WORD
.WORD

RMCS20:

RMDSO:

RMER10: .
RMASO:
RMLAO:
RMDBO:
RMMR10:

-WORD

[slelelelelelololels
o]

;REGISTER OUTPUT BUFFER

RMCS10:

;CONTROL, STATUS REGISTER #1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER

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

CZRMOBO RMOS5/3/2 FCINL TST 3

USER DEF INED TAGS

MACRO v04.00

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

RMDTO:
RMSNO:

001440
001442
001444
001446

RMOFO:
RMDCO:
RMHRO:
RMMR20:

001450
001452
001454

RMER20:

.WORD
.WORD
.WORD
.WORD
.WORD

RMEC20:
RMBAEO:
RMCS30:

.WORD
.WORD
.WORD

RMEC1O:

001456
001460
001462
001464

.WORD
.WORD

.WORD

SEQ 0027

O
O

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER

;ERROR REGISTER #2

0
O
O
O
C

O
O
O

;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
JMAINTENANCE REGISTER #2
;ECC POSITION REGISTER

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

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
;IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
;END OF THE QUE.
001466
001470
001510

TSTQUE:

000000

.WORD

.BLKW
.WORD

sMEDIA ENABL:
001512

001514
001516
001520
001522

000000

8.
O

;CONTAINS DEVICE POINTER

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

;ALL 8. DEVICES ARE UNDER TEST.

IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED

;FOR iHE UNIT UNDER TEST, OTHERWISE IT IS ZERO.

MEDENB:

.WORD

;MEDIA ENABLE

;LOCATIONS ‘ASNDC'' AND ‘'ASNDC’‘ CONTAIN THE CYLINDER, TRACK AND SECTOR
;ADDRESS ASSIGNED BY THE BAD SECTOR MODULE.

ASNDC:
ASNDA:

.WORD
.WORD

CLKADR: .WORD
CLKVCT: .WORD

O
0

O
O

sASSIGNED DESIRED CYLINDER
;ASSIGNED TRACK, AND SECTOR

;UNIBUS ADDRESS OF KW11l CLOCK
;VECTOR ADDRESS OF KW11 CLOCK

;THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
001524

001553

;ARE READ BY THE GET SUBROUTINE.
;A NEGATIVE BYTE.

GETINX: .BLKB

23.

THE LIST IS TERMINATED BY

;GET INDEX TABLE

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

PUTINX:

.BLKB

;PUT TAGS HERE

23.

;PUT INDEX TABLE

CZRMOBO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

MA(RO V04.00

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

.SBTTL

3
SEQ 0028

ERROR POINTER TABLE

:«THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE

INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

T«NOTE1:

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

LaNOTE2:
e
P
e
.--

: 001602

S$ERRTB:

:ERROR

001602
01604
001606
001610

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT
DF

::POINTS
*IPOINTS
*:POINTS
*IPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

WRONG UNIT SELECTED

EMT1
EHT1
EDT1
EFT1

072404
076470
076614
076704

.
001612
001614
001616
001620

072410
076470
076614
076704

:ERROR

g
001622
001624

001626
001630

072416
076470

;5
001632
001634
001636
001640

001642
001644
001646
001650

DEVICE WENT NONEXISTENT

CONTROLLER NOT READY

EMT4
EHT1
EDT1
EFT1

:ERROR

;ERROR

072424
076470
076614
076704

DEVICE WENT UNAVAILABLE

EMT3
EHTT
EDT1
EFT1

076614
076704

2
EMT2
EHT1
EDT1
EF T

:ERROR

072432
076470
076614
076704

DRIVE NOT READY AND GO NOT RESET

EMTS
EHT
EDT1
EFT1

;:ERROR

UNEXPECTED VALUE FOR '‘ATA'* STATUS

ERROR POINTER TABLE

001652
001654
001656
001660

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

EMT6

072440
076470
076614
076704

EHTI
EDT1
EFT1
:ERROR

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

M17

072446
000000
000000
000000

ooom

MACRO v04.00

(ZRMOBO RMOS5/3/2 FCTNL TST 2

DRIVE NOT READY BUT GO IS RESET

;ERROR

EMT10
EHT1

072454
076470
076614
076704

EDT1
EFT1

;ERROR

GO NOT RESET BUT DRIVE IS READY

EMT11
EHT]
EDT1
EFT1

072460
076470
076614
076704
;ERROR

INCORRECT FUNCTION CODE

EMT12
EHT]
EDT1

072464
076470
076614
076704

EFT1

;ERROR

PARITY ERROR READING REMOTE REGISTERS

EMT13
EHTT
EDT1

072472
076470
076614
076704

EFT1

;ERROR

TRANSFER ERROR IS INCORRECT

EMT14
EHT]
EDT1
EFTI

072504
076470
076614
076704
;ERROR

INCORRECT WORD COUNT

SEQ 0029

CZRMOBO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

001742
001744
001746
001750

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

072512
076470
076614
076724

EHT]
EDT1
EFT1
:ERRCR

.ERROR

076614
076704

;ERROR

072540
076470

INCORRECT LBT STATUS

INCORRECT AOE

EMT20
EHT1
EDT1
EFT1

076614
076704

:ERROR

INCORRECT DISK ADDRESS

EMT21
EHT]
EDT1
EFT1

072550
076470
076614
076704
;ERROR

INCORRECT CYLINDER ADDRESS

EMT22
EHT1

072560
076470
076614
076704

EDT?
EF11
;ERROR

INCORRECT WLE STATUS

EMT23
EHT1
EDT]

072570
076470
076614
076704

EFT1

;ERROR

072600

EMT17
EHT1
EDTI]
EFT1

072530
076470

002032

INCORRECT BUS ADDRESS

EMT16
EHT1
EDTI
EFT1

072520
076470
076614
076704

002030

EMT24

INCORRECT UPE STATUS

SEQ 0030

CZRMOBO RMOS/3/2 FCTNL TST 3

ERROR POINTER TABLE

MACRO v04.00

-3

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

SEQ 0031

076470
076614
076704
s ERROR

INCORRECT W(F

STATUS

:ERROR

INCORRECT WCE STATUS

;ERROR

INCORRECT MDPE STATUS

:ERROR

INCORRECT DCK STATUS

:ERROR

INCORRECT ECH STATUS

;ERROR

DLT SHOULD NOT BE SET

s ERROR

MXF

072610
076470
076614
076704

072620
076470
076614
076704

072630
076470
076614
076704

072640
076470
076614
076704

072650
076470
076614
076704

072660
076470
076614
076704

0726790
076470

SHOULD NOT BE

SET

002126
002130
82
83
84

MACRO v04.00 4=-APR-81 01:15:59 PAGE 8-4
EDTI
EFT

076646
076704

:ERROR
002132
002134
00c . 36
002140

INCORRECT HCRC STATUS

EDTI
EFT1

076614

076704
;ERROR

INCORRECT HCE STATUS

EMT36

072720
076470
076614
076704

EHT1
EDT1
EFT1

;ERROR

INCORRECT FER STATUS

EMT37

072730
076470
076614
076704

EHT1

EDT1

EFT1
:ERROR

DPE SHOULD NOT BE SET (NOT A DATA COMMAND)

EMT40
EHTI

072740
076470
076614
076704

EDT1
EFTI1

:ERROR

LOST "MOL'* DURING PACK ACKNOWLEDGE

EMT41

072746
076470
076614
076704

EHTI
EDT1
EFT1
;ERROR

072756
076470
076614

EMT35
EHTI

072710
076470

002172
002174
002176
002200

DTE SHOULD NOT BE SET

EHT1
EDT1
EFT1
:ERROR

002162
002164
002166
002170

EMT34

072700
076470
076614
076704

CZRMOBO RMO5/3/2 FCINL TST 3
ERROR POINTER TABLE

EMT4?2

EHTI

EDT

UNSAFE ERROR DURING PACK ACKNOWLEDGE

SEQ 0037

ERROR POINTER TABLE

002220
103

002222
002224
002226

002230

~NO D
[aX
] )

COMPOSITE ERROR STATUS IS INCORRECT

EMT47
EHT1
EDT1
EFT1
;ERROR

073036

PARITY ERROR WRITING REMOTE REGISTERS

EMT50
EHTI
EDT1
EFT1

076470
076614
076704

INCORRECT JAE STATUS DURING SEEK COMMAND

002310

b =2\

073046
076470
076614
076704

"oOI=R

002302
002304

]

;ERROR

—d

EMT46
EHT]
EDT1
EFT1

073030
076470
076614
076704

n——

"'ILF'" ERROR DURING PACK ACKNOWLEDGE

mmmMmm

——0
—-O0

ol s
i

ol
—
e

—

073020
076470
076614
076704

el
el

"'ILR"" ERROR DURING PACK ACKNOWLEDGE

EMT4S5
EHT1
EDT1
EFT1

073010
076470
076614
076704

:ERRCR

002272
002274
002276
002300

"RMR'' ERROR DURING PACK ACKNOWLEDGE

EMT44
EHT1
EDT1
EFT1

;ERROR

002262
002264
002266
002270

‘OP1"" ERROR DURING PACK ACKNOWLEDGE

EHTI
EDTI
EFTT

:ERRCR

002252
002254
002256
002260

EMT43

072770
076470
076614
076704

073000
076470
076614
076704

002250

EFT1

;ERROR

002242
002244
002246

4=-APR-81 (01:15:59 PAGE 8-5

:ERROR

104

105

MACRO V04.00

076704

nonono
W
—

CZRMOBO RMOS5/3/2 FCTNL TST 3

SEQ 0033

CZRMOBO RM(S5/3/2 FCTINL TST 3

ERROR POINTER TABLE

124

SB®N

4-APR~B1

;ERROR

who
=

b
b

WWWN

VIS

—
—

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

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

EDTI
EFT1

073124
076470

DEVICE CHECK DURING SEEK COMMAND

EMT55
EHT1
EDT1
EFT1

076614
076704

—

OP] ERROR DURING SEEK = MEDIUM [S NOT ON L INE

EMT54
EHTI

073114
076470
076614
076704
. ERROR

;ERROR

002352
002354
002356
002360

SEQ 0034

EDT1
EFTT

;ERROR

002342
002344
002346
002350

EMTS3
EHTI

073076
076470
076614
076704

002332
002334
002336
002340

01:15:59 PAGE 8-6

EMTS52
EHT1
EDT]
EFT1

073060
076470
076614
076704

wnhuno

—

MACRO v04.00

;ERROR

125

126

PIP

STiLL

SET AFTER SEEK = SKI

IS RESET

EMT56
EHTI
EDT1
EFT1

073136
076470
076614
076704

F o 2l o
ro—0

;ERROR

ATA DID NOT SET DURING SEEK COMMAND

—

002362
002364
002366
002370
143
144
145

146

EMTS57
EHT1

073154
076470
076614
076704

EDT1
EFT1

; ERROR

002372
002374
002376

073164
076470
076614

EMT60
EHT1
EDT

IVC ERROR DURING SEEK COMMAND - LOST

VOLUME VALID

CZRMOBO RMOS5/3/2 FCTNL TST 3

FRROR POINTER TABLE

002400

HWN—

076470
076614
076704

~NOND

—
2 2

158
159
160

002432
002440

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

;ERROR

UNUSED

;ERROR

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

:ERRCR

DRIVE EXECUTED A SEEK WITH ERROR SET

;ERROR

UNEXPECTED ERROR SET IN RMER?

;ERROR

UNEXPECTED ERROR SET IN RMER?

000000
000000
000000

073240
076470
076614
076704

161

162

163

ERRONEOUS IVC ERROR DURING SEEK COMMAND =
VOLUME VALID IS STIL SET

EMTE2
EHTI
EDT1
EFT1

073222

wviwvuon

002422
002424
002426
002430

EMT61
EHTI]
EDTI
EFT1

073202
076470
076614
076704

:ERROR
002412
002414
002416
002420

EFTH

s ERROR
002402
002404
002406
002410

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

076704

147
148
149
150

MACRO V04.00

073260
076470
076614
076704

073300
076470
076614
076704

073312
076470

SEQ 0035

| CZRMOBO RMOS/3/2 FCTNL TST 3
ERROR POINTER TABLE

002466
002470

RBRB3I

— b

SR&

076614
076704

‘OPI'' ERROR DURING RECALIBRATE BECAUSE ON
CYLINDER DIDNT DROP

*IVC’" ERROR DURING RECALIBRATE - ‘W' = 0

ERRONEOUS "‘IVC'' ERROR DURING RECALIBRATE = "'WV'' = 1

EMT75
EHT]
EDT1
EFT1

073410
076470
076614
076704

*'Sk1'" ERROR DURING RECALIBRATE

;ERROR
073430
076470

“'OPI'* ERROR DURING RECALIBRATE DUE TO ‘MOL'' = 0

EMT74
EHT]
EDT1
EFT1

073400
076470

EMT73
EHT1
EDTI
EFT1

073362
076470
076614
076704

;ERROR

002552
002554

“ILF'" ERROR DURING RECALIBRATE

EMT72
EHT1
EDT1
EFT1

073344
076470
076614
076704

;ERROR

002542
002544
002546
002550

EDT]
EFT1

sERROR

002532
002534
002536
002540

ERRONEOUS ''IAE‘'' ERROR DURING RECAL IBRATE

EMT71
EHT]

073334
076470
076614
076704
;ERROR

002522
002524
002526
002530

EMT70
EHTI]
EDT1
EFT1
s ERROR

002512
002514
002516
002520

EDTT
EFT

076614
076704

073324
076470
076614
076704

002510

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

:ERROR

MACRO v04.00

EMT76
EHT

SEQ 0036

'
| CZRMOBO RMO5/3/2 FCTINL TST 3
ERROR POINTER TABLE

002556

002560

MACRO v04.00

b 3
4-APR-81 01:15:59 PAGE 8-9
EDTI

076614

EFT1

076704

192

%3‘3'

:ERROR

002562
002564
002566
002570

112(;

:ERROR
002572
002574
002576
002600

073452
076470
076614
(76704

198

12896
073470
076470
076614
076704

38%

:ERROR
002612
002614
002616
002620

073506
076470
076614
076704

204

%82
002622 073516
002624- 076470

002632
002634
002636
002640

073530
076470
076614
076704

210

%1112

002646

073546
076470
076614

102

“'ATA'* DID NOT SET DURING RECALIBRATE

103

‘OM'* DID NOT RESET DURING RECAL IBRATE

104

"PIP'* IS STIL SET AFTER RECALIBRATE

EMT104
EHT1
EDT1
EFT1

:ERROR
002642
002644

LOST ''VV'' DURING RECALIBRATE - "'IVC'' = 0

EDT1
EFT1

:ERROR

58‘8;

101

- EMT103
EHT1

076614
076704

207

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

EMT102
EHTI
EDT1
EFT1
;ERROR

002626
002630

100

EMT101
EHTI
EDT1
EFT1
:

201

"DVC'* OCCURRED DURING RECAL IBRATE

EMT100
EHT1
EDTI
EFT1

:ERROR
002602
002604
002606
002610

EMT77
EHTI
EDTT
EFT1

073440
076470
076614
076704

195

SEQ 0037

105
EMT105
EHTI

EDT?

UNEXPECTED ''ILR'' ERROR DURING RECAL IBRATE

'
-

CZRMOBO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

d
—

—d

nnNnN

4~-APR-81 01:15:59 PAGE 8-10
EFT1

076704

wHWw

002650

MATRO V04.00

;ERROR

UNEXPECTED "RMR'' ERROR DURING RECAL IBRATE

:ERROR

"UNS'‘ ERROR DURING RECALIBRATE = AC POWER IS LOW

:ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

;ERROR

NONEXISTENT DEVICE

;ERROR

DEVICE NOT AVAILABLE

073556
076470
076614
076704

073566
076470
076614
076704

073606
076512
076632
076722

073620
076516
076634
076724

073626
076516
076634
076724
;ERROR

113

BUS TIMEOUT-NED STATUS FAILURE

073634

;ERROR

073650
076522
076636
076726

DEVICE NOT AN RMO05/3/2

SEQ 0038

!
|

3
l

CZRMOBO RMOS5/3/2 FCTNL TST 3

ERROR POINTER TABLE

MACRO v04.00

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

234
235
236

237
238
239

;ERROR

002742
002744
002746
002750

241
242

076614
076704

243
244
245

INITIALIZED BY UNIBUS

RMCS2 NOT INITIALIZED BY UNIBUS

EDT1

EFTT

RMERT NOT INITIALIZED BY UNIBUS

EMT120
EHT1
EDT1
EFT1.

073706
076470
076614
076704

;ERROR

121

RMAS NOT

INITIALIZED BY UNIBUS

EMT121
EHT]
EDT1
EFT1

073716
076470
076614
076704
:ERROR

122

~ RMMR1 NOT INITIALIZED BY UNIBUS

EMT122
EHT1
EDT1
EFT1

073726
076470
076614
076704

;ERROR
073736
076470
076614
076704

RMBA NOT

EMT117
EHTI]

073676
076470
076614
076704

246

247
248

116

;ERROR 120

002772
002774
002776
003000

INITIALIZED BY UNIBUS

EFT1
;ERROR

002762
002764
002766
002770

NOT

EMT116
EHT]
ECTI

073666
076470

240

RMCS1

EMT115
EHT1
EDT1
EFT1

073656
076470
076614
076704
;ERROR

002752
002754
002756
002760

115

123

EMT123
EHT]
EDT1
EFT1

RMDS NOT INITIALIZED BY UNIBUS

SEQ 0039

mem~

RM0S/3/2 FCINL TST 3
INTER TABLE

MACRO Vv04.00

:ERROR

124

RMEC2 NOT

INITIALIZED BY UNIBUS

RMMR2 NOT

INITIALIZED BY UNIBUS

EMT124
EHT]
EDT1
EFT1

073746
076470
076614
076704
:ERROR

125

EMT125
EHTI]
EDT1
EFT1

073756
076470
076614
076704
;ERROR

073766

126

RMCST

NOT CLEARED BY CONTROLLER CLEAR

EMT126
EHT1
EDT
EFT1

076470
076614
076704

;ERROR

127

RMBA NOT CLEARED BY CONTROLLER CLEAR

EMT127
EHT1
EDT?
EFT1

074000
076470
076614
076704
;ERROR

130

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

EMT130

074012
076470
076614
076704

EMT1
EDT1
EFT1
;ERROR

RMERT NOT CLEARED BY CONTROLLER CLEAR

EMT137
EHTI

074024
076470
076614
076704

EDT1
EFT1

;ERROR
074036
076470
076614
076704

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

132

EMT132
EHTT
EDT1
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

SEQ 0040

|
-

CZRMOBO RMOS5/3/2 FCTINL TST 3

ERROR POINTER TABLE

MACRO v04.00

|
|

|
‘

277
278

:ERROR

003122
003124
203126
003130

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

133

RMMR1

NOT CLEARED BY CONTROLLER CLEAR

EMT133

074050
076470
076614
076704

EHT1
EDTI
EFT1
:ERROR

134

RMDS NOT CLEARED BY CONTATM LER CLEAR

EMT134
EHTI
EDT1
EFT1

074062
076470
076614
076704

;ERROR

135

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EMT135
EHT1
EDT1
EFT1

074074
076470
076614
076704
;ERROR

136

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHT1
EDTI
EFT1

074106
076470
076614
076704

;ERROR

137

RMCS1 NOT CLEARED BY ERROR CLEAR

EMT137

074120
076470
076614
076704

EHT1
EDT1
EFT1
;ERROR

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHT
EDTI]
EFT

074130
076470
076614
076704
;ERROR

141

RMCS1 NOT CLEARED BY DRIVE CLEAR

EMT141
EHT1
EDTT
EFT1

074140
076470
076614
076704
:ERROR

142

RMDS NOT CLEARED BY DRIVE CLEAR

SEQ 0041

(ZRMOBO RMOS5/3/2 FCTINL TST 3

ERROR POINTER TABLE

003212
003214
003216
003220

MACRO v04.00

EMT142
EHTT
EDTI
EFT

074150
076470
076614
076704
:ERROR

003222

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

143

RMER1 NOT CLEARED BY DRIVE CLEAR

EMT143
EHTI
EDT1
EFT1

074160
076470
076614
076704
;ERROR

144

RMAS NOT CLEARED BY DRIVE CLEAR

EMT144
EHT1
EDT1

074170
076470
076614
076704

EFT1
;ERROR

145

RMMR1

NOT CLEARED BY DRIVE CLEAR

EMT145
EHTI

074200
076470
076614
076704

EDT1

EFT
:ERROR

146

RMMR2 NOT CLEARED BY DRIVE CLEAR

EMT146
EHT1
EDT1
EFT1

074210
076470
076614
076704
;ERROR

147

RMERZ NOT CLEARED BY DRIVE CLEAR

EMT147

074220

EHT1
EDTI
EFT1

076470
076614
076704

:ERROR
074230
076470
076614
076704

150

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
EHT1
EDTI
EFT1
;ERROR

151

MEDIUM NOT ON LINE

SEQ 0047

CZRMOBO RMOS5/3/2 FCTINL TST 3

ERROR POINTER TABLE

003202
002304

003310

MACRO v04.00

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

EMT151
EHTI
EDT1
EFT1

074240
076470
076614
076704
;ERROR

152

DRIVE FAULT

EMT152
EHT
EDTI
EFT1

074252
076470
076614
076704
:ERROR

153

UNSAFE SHOULD BE SET BECAUSE DVC IS SET

EMT153

074264

EHTI
EDTI
EFT1

076470
076614
076704

.ERROR

154

UNSAFE SHOULD NOT BE SET, AC

IS LOW

EMT154

074302
076470
076614
076704

EHT1
EDTI
EFT1

:ERROR

155

VOLUME VALID NOT SET BY PACK ACK

EMT155
EHT?
EDT
EFTI

074320
076470
076614
076704
;ERROR

156

OFFSET MODE NOT SET BY OFFSET COMMAND

EMT156
EHT]

074332
076470
076614
076704

EDT1
EFT1

;ERROR

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHT]
EDT1
EFT1

074344
076470
076614
076704
;ERROR

074356

SEQ 0043

160

EMT160

RMOF NOT RESET BY RIP COMMAND

" CZRMOBO RM0S/3/2 FCTNL TST 3
ERROR POINTER TABLE

076470
076614
076704

m
T
Ti

"oxX

;ERROR

161

RMDA NOT RESET BY RIP COMMAND

EMT161

074366
076479
076614
076704

EHTI
EDT1
EFT1

:ERROR

162

RMDC NOT RESET BY RIP COMMAND

EMT162
EHT]
EDT1
EFT1

074400
076470
076614
076704

;ERROR 163

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH

WRITE BUFFER

EMT 336
EHT336
EDT336
EFT336

076264
076552
076650
076740

;ERROR

164

OP]

SHOULD NOT BE SET

EMT 164
EHT1
EDT1

074422
076470
076614
076704

EFT1
;ERROR

165

IvC SHOULD NOT BE SET

EMT165
EMTI
EDT1

074430
076470
076614
076704

EFT1

;ERROR

074436
076470
076614
076704

166

IAE SHOULD NOT BE SET

EMT166
EHT]
EDTI
EFTT
;ERROR

074444

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

003374
003376
003400

.MACRO v04.00

167

EMT167

NEM SHOULD NOT BE SET

SEQ 0044

MACRO v04.00 4=-APR-81 01:15:59 PAGg 8-17

076470
076614
076704

"oIx

:ERROR

;ERROR

003502
003504
003506
003510
370
37
372

373
374
375

003526
003530
376
377
378

074474
076470
076614
076704

172

"ATA'" NOT SET BY OFFSET COMMAND

173

RMERZ NOT

INITIALIZED BY UNIBUS INIT

EMT173
EHT1

074504
076470
076614
076704

EDT1
EFT1
174

RMER2 NOT INITIALIZED BY CONTROLLER CLEAR

EMT174
EHT1

074514
076470
076614
076704

EDTI
EFT1
;ERROR

175

SELECTED DEVICE IS IN WRITE PROTECT

EMT175

074526
076470
076614
076704

EHT]
EDTI
EFT1

;ERROR
074534
076470

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

EHT1
EDT1
EFT1

:ERROR

003532
003534
003536
003540

171

EMT172

:ERROR

003522
003524

INCORRECT “MOL"" STATUS DURING DIAGNOSTIC MODE

EMT171
EHT]
EDT1
EFT1

074464
076470
076614
076704
;ERROR

003512
003514
003516
003520

170

EMT170
EHTT
EDT1
EFT

074452
076470
076614
076704

003472
003474
003476
003500

—
—

mmm

003464
003466
003470

TST

———

CZRMOBC RMOS5/3/2 FCINL

ERROR POINTER TABLE

176

EMT176
EHTI

CANNOT SET DIAGNOSTIC MODE

SEQ 004°

(ZRMOBO RMQS5/3/2 FCTINL
ERROR POINTER TABLE

003556
003560

MACRO v04.00

000000
;ERROR

074544
076470

400
401
402

403
404
405

201

INCORRECT "WRL'' STATUS DURING DIAGNOSTIC MODE

202

INCORRECT "'SK1'" STATUS DURING DIAGNOSTIC MODE

203

INCORRECT "DVC'" STATUS DURING DIAGNOSTIC MODE

204

"WV'* WAS NCT RESET BY MAINTENANCE UNIT READY

EMT204
EHT]

074614
076470
076614
076704

074632
076470
076614

INCORRECT "PIP'" STATUS DURING DIAGNOSTIC MODE

EDT1
EFT1

EDTi
EFT1

;ERROR
003642
003644
003646

200

EMT203
EHTI

074602
076470
076614
076704

;ERROR
003632
003634
003636
003640

FAILURE=-

EMT202
EHT1
EDT1
EFT1

074570
076470
076614
076704
;ERROR

003622
003624
003626
003630

==RESERVED FOR POWER MONITOR BIT

EMT201
EHT1
EDTI]
EFT1

074556
076470
076614
076704

:ERROR

397
398
399

177

EHTI
EDT1
EFTI
;ERROR

003612
003614
003616
003620

SEQ 0046

EMT200

076614
076704

003606

EpN
EFT1

076674
076704
:ERROR

003562
003564
003566
003570

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

[elelele]

385
386
387

TST 2

205

EMT205
EHT]
EDTT

SELECTED DEVICE HAS A PERSISTENT ''SKI'' ERROR

(ZRMOBO RM0S5/3/2 FCINL TST 3

ERROR POINTER TABLE

003650

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

EF T

076704

406

:ERROR

407

408

MACRO v04.00

003652
003654
003656
003660

;ERROR

003704
003706
003710

418
419
420

421
422
423

426

076624
076714

212

UNEXPECTED DEVICE FAULT = "DVC'" = 1

213

UNEXPECTED SEEK INCOMPLETE ERROR = ''SKI'' = 1

EMT213
EHTI

074722
076470
076614
076704

074732
076502

UNEXPECTED MECHANICAL MOTION - ‘PIP"" = 1

EDTI
EFT1

EDT1
EFTI

;ERROR

003732
003734
003736
003740

EMTZ212
EHT1

074706
076470
076614
076704

424
425

UNEXPECTED LOSS OF VOLUME VALID - "W'' =0

EFT1

;ERROR

003722
003724
003726
003730

210

EMT211
EHTI
EDTI

074672
076470
076614
076704

;ERROR
003712
003714
003716
003720

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

EMT210
EHTT
EDT1
EFT1

074664
076470
076614
076704

;ERROR
003702

207

EMT207
EHTI

074652
076470
076614
076704

415
416
417

“LBC'" DID NOT SET DURING DIAGNOSTIC MODE

EMT206
EHTI
EDT1
EFTT

074642
076470
076614
076704
;ERROR

003672
003674
003676
003700

206

214

EMT214
EHTZ
EDT2
EFT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

SEQ 0047

ERROR POINTER TABLE
627
428
429

MACRO v04.00

;ERROR
003742
003744
003746
003750

439
440
441

075004
076470
076614

EDT1
EFT1
;ERROR

075014
076470
076614
076704
;ERROR

222

RM DID NOT DETECT RMR ERROR

EMT222
EHT1
EDT]
EFT1

;ERROR
075034
076526
076640
076730

INCORRECT "'OPI'" STATUS

EFT

075024
076470
076614
076704

445

221

EMT221
EHT1
EDT1

446

INCORRECT "WLE'' STATUS

EMT220
EHT1

076704

443

INCORRECT ‘‘IAE'' STATUS

EMT217
EHT1
EDT1
EFT1

074774
076470
076614
076704

442

444

217

;ERROR 220
003772
003774
003776
004000

INCORRECT ‘‘IVC'* STATUS

EHT1
EDT1
EFTI

436

438

216

EMT216

074764
076470
076614
076704

;ERROR
003762
003764
003766
003770

DRIVE DID NOT DETECT °*‘IVC'' ERROR DURING RECAL IBRATE

EFT2

433
435

215

EDT2

;ERROR
003752
003754
003756
003760

EMT215
EHT?

074752
076502
076624
076714

430

431
632

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

223

EMT223
EH1223
EDT223
EFT223

RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

SEQ 0048

CZRMOBO RM0S5/3/2 FCINL TST 3

ERROR POINTER TABLE
448

‘l:lgg

000000
000000
000000
000000

451

22%

000000
000000
000000
000000

454

222
000000
000000
000000
000000

457
ll:gg

000000
000000
000000
000000

460

004072
004074
004076
004100

000000
000000
000000
000000

463

22?

000000
000000
000000
000000

466
22;

000000
000000
000000
000000

UNUSED

227

UNUSED

230

UNUSED

231

UNUSED

0
0
0
0
;ERROR

004112
004114
004116
004120

226

0
0
0
0

;ERROR
004102
004104
004106
004110

UNUSED

0
0
0
0

;ERROR

2212

225

0
0
0
0
»ERROR

004062
00406«
004066
004070

UNUSED

0
0
0
0
;ERROR

€04052
004054
004056
004060

224
0
0
0
0

;ERROR

004042
004044
004046
004050

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

;ERROR
004032
004034
004036
004040

469

MACRO v04.00

232

0
0
0
0

UNUSED

[elele
o]

233

UNUSED

[elelele]

;ERROR

000000
000600
000000
000000

000000

UNUSED

[eolelele]

:ERROR

000000
000000

000000
000000
000000
000000

UNUSED

lelelele]

:ERROR
000000

000000
000000

UNUSED

(elele
o]

;ERROR

240

UNUSED

QOO0

;ERROR

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

ERROR POINTER TASLE

MACRO v04.00

;ERROR

CZRMOBO RMOS5/3/2 FCINL TST 3

UNUSED

(olele
o]

;ERROR

242

UNUSED

SEQ 0050

212
214
216
220

SEQ 0051

[elelele

492

000000

UNUSED

o000

;ERROR

QOO0

;ERROR

ERROR POINTER TABLE

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

;ERROR

MACRO v04.00

UNUSED

lelelole]

CZRMOBO RMOS5/3/2 FCTNL TST 3

502

503

504

:ERROR

507

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

EMT246
EHT]
EDT1
EFT1

075110
076470
076614
076704

505

246

. ERROR

247

*'ATA’"" NOT RESET BY WRITING RMAS

EMT247
EHT1
EDT1
EFT1

075120
076470
076614
076704

;ERROR

250

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

EMT250
EHT1
EDT1
EFT1

075132
076470
076614
076704
;ERROR

251

PROGRAM INTERRUPT WAS NOT GENERATED

CZRMOBO RM0S5/3/2 FCTINL TST 3

ERROR POINTER TABLE

004302
004304
004306
004310

MACRO v04.00

514

:ERROR

004312

004314
004316
004320

075154

517

004324
004326
C04330

075162

520

004334
004336
004340

075200

25’;

004344
004346
004350

075210

004352 075220

004362
004364
004366
004370

532

004372

075242

256

EHT256
EDT223
EFT223

:ERROR

075230
076470
076614
076704

INCORRECT “‘ATA'* STATUS

INCORRECTM "'ILR'* STATUS

EMT256

076540
076640
076730
:

529

233.(1)

255
EHT1
EDT1
EFT1

s
;ERROR

004354
004356
004360

INCORRECT **ILF'* STATUS

EMT255

076470
076614
076704

526
ggg

254

EMT254

:ERROR

004342

OFFSET MODE WAS NOT RESET BY WRITING RMDC

EHT1
EDT1
EFT1

076470
076614
076704

523

253
EHT1
EDT1
EFT1

:ERROR

004332

EMT253

076470
076614
076704

2312

SEQ 0052

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

EHT2
EDT2
EFT2
:ERROR

004322

252

EMT252

076502
076624
076714

g}g

EMT251
EHT2
EDT2
EFT2

075146
076502
076624
076714

g%g

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

257

INVALID IAE STATUS DURING SEARCH COMMAND

EMT257
EHT1
EDT1
EFT1

:ERROR

260
EMT260

“IVC'' WAS NOT DETECTED DURING SEARCH COMMAND

(ZRMOBO RM0S5/3/2 FCTINL TST 3 ' ERROR POINTER TABLE

004376
004376
004400

MACRO v04.00

535

538

;ERROR

004412 075274

004414
004416
004420

:ERROR
004422
004424
004426
004430

075304
076470
076614
076704

544,

g:g
075314
076470076614
076704

547

ssll'.g

004442
004444

004446
004450

075334
076470
076614
076704

004452
004454
004456
004460
553

075366

“*IVC'* ERROR DURING SEARCH - LOST VOLUME VALID

266

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID
:

DEVICE FAULT (DVC) DURING SEARCH

EMT266
EHT1
EDT1
EFT1

004462

264

EMT265
EHT1
EDT1
EFT1

:ERROR

ggg

*'SKI'* ERROR DURING SEARCH COMMAND

:ERROR 265

075354
076470
076614
076704

554,

263

EMT264
EHTT
EDT1
EFT1

:
:ERROR

550
2212

*LBC'' ERROR NOT SET DURING DIAGNOSTIC MODE

EMT263
EHT1
EDT1
EFT1

:ERROR
004432
004434
004436
004440

262
EHTI
EDT1
EFT1

541

DRIVE EXECUTED SEARCH WITH ERROR SET

EMT262

076470
076614
076704

g:%

261

EMT261
EHT1
EDT1
EFT1

075254
076470
076614
076704

%13.3

SEQ 0053

EHT1
EDT1
EFT1
:ERROR

004402
004406
004406
004410

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

076470
076614
076704

g%g

267
:

EMT267

SK]. SHOULD HAVE BEEN SET BECAUSE CYLINDER

ADDRESS IS TOO LARGE

CZRMOBO RMOS/3/2 FCINL TST 3

~ ERROR POINTER TABLE

MACRO v04.00

004466
004470
ggg

:ERROR

004472
004474
004476
004500

075404
076470
076614
076704

560

561

004502
004504
004506
04510

075420
076470
076614
076704

564
ggg

004516
004520

075436
076470

ggg
004522
004524
004526
004530
571

004534
004536
004540

075472

272

LOST MOL DURING SEARCH, OPI IS NOT SET

273

PIP STIL SET AFTER SEARCH

274

REGISTERS BUT MXF DID NOT SET

PARITY ERROR OCCURRED WHILE WRITING REMOTE

EMT274.
EHT1
EDT1
EFT1

575

:ERROR

g;g
004542
004544
004546
004550

579

DIDN'T DROP

EMT273
EHT1
EDT1
EFT1

076470
076614
076704

574

578

;ERROR

:ERROR

004532

OP1 ERROR DURING SEARCH BECAUSE ON CYLINDER

EDT1
EFT1

075454
076470
076614
076704

570

271

EMT272
EHT1

076614
076704

567

OP1 ERROR DURING SEARCH BECAUSE MOL = 0

EMT271
EHT1
EDT1
EFT1
:ERROR

004512
004514

270

EMT270
EHT1
EDT1
EFT1
:ERROR

gg%

EDT1
EFT1

076614
076704

557

SEQ 0054

EMT1

004464 076470

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

075510
(76470
076614
076704

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA

COMMAND STARTED

EMT275
EHTT
EDT1
EFT1

;ERROR

276

“'OPI'* ERROR DURING DATA TRANSFER BECAUSE 'MOL'' WAS

CZRMOBO RMQS5/3/2 FCTNL T1ST 3

ERROR POINTER TABLE

MACRO V04.00

ZERO

580
581

EMT276
EHTI
EDTI]
EFT1

075522
076470
076614
076704
:ERROR

076614
076704

:ERROR
004572
004574
004576
004600

300

"'IvC’'' ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

EDT1
EFT1

:ERROR
075574
076470
076614
076704

301

ERRONEOUS ‘‘IVC'" ERROR DURING DATA TRANSFER - VOLUME
IS VALID

EMT301
EHT1
EDT1
EFT1

;ERROR

302

"ILR'" ERROR DURING DATA TRANSFER

EMT302

075616
076470
076614

EHT]
EDT1
EFT1

076704
:ERROR

303

"ILF'" ERRCR DURING DATA TRANSFER

EMT303
EHT!
EDT1
EFT1

075630
076470
076614
076704

;ERROR
075642
076470
076614

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

EMT300
EHT1

075554
076470
076614
076704

591
592

277

EMT277
EHTT
EDT1
EFT1

075536
076470

593
594

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

304
EMT304
EHT1
EDTT

“RMR'* ERROR DURING DATA TRANSFER

SEQ 0055

(ZRMOBO RM0S5/3/2 FCINL TST 3

ERROR POINTER TABLE

004640

MACRD v04.00

NNNN
N = = =
OoNro

307

DRIVE DID NOT DETECT SKI

ERROR DUE TO CYLINDER

310

DEVICE FAULT DURING DATA TRANSFER

EHT1
EDT1
EFT1

311

LOSS OF BIT CLOCK DURING DATA TRANSFER

EMT311
EHT1

075730
076470
076614
076704

EDT1
EFT1

312

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

EMT312

075742
076470
076614
076704

EHT1
EDTI
EFT1
;ERROR

Q75754
076470
076614
076704

"'SKI'" ERROR DURING DATA TRANSFER

EMT310

075716
076470
076614
076704

:ERROR

004722
004724
004726
004730

306

EMT307
EHT1
EDT1
EFT1

075676
076470
076614
076704

;ERROR
702
704
706
710

INCORRECT "‘IAE"" STATUS DURING DATA TRANSFER

EMT306
EHTI]
EDT1
EFT1

075666
076470
076614
076704

:ERROR

004672
004674
004676
004700

305

EHT]
EDTI
EFT1

:ERROR
004662
004664
004666
004670

SEQ 0056

EMT305

075654
076470
076614
076704
;ERROR

004652
004654
004656
004660

-5

EFT1

076704
;ERROR

004642
004644
004646
004650

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

313

EMT313
EHTI
EDT1
EFT1

UNSAFE ERROR DURING DATA TRANSFER (DVC = Q@)

(ZRMOBO RMOS5/3/2 FCTINL TST 3

ERROR PCINTER TABLE

625
626
627

628
629
630

MACRO v04.00

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

;ERROR

004732
004734
004736
004740

315

WRITE LOCK ERROR

EMT315
EHTI
EDT1
EFTI

sERROR

316

ERRONEOUS WRITE LOCK ERROR

EMT316

076020
076470
076614
076704

EHTI
EDT1
EFT1

;ERROR

317

HEADER CRC ERROR DURING DATA TRANSFER

EMT317
EHTT
EDT1
EFT1

076032
076470
076614
076704
; ERROR

320

FORMAT ERROR DURING DATA TRANSFER

EM1320
EHT]
EDTT

07604c
076470
076614
076704

EFT?

;ERROR

321

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT 321
EHT]

076052
076470
076614
076704

EDTY
EFT1

;ERROR

076470
076614
076704

DRIVE TIMING ERROR DURING DATA TRANSFER

EHTI
EDTI
EFT1

076006
076470
076614
076704

076062

314

EMT314

075774
076470
076614
076704
;ERROR

004742
004 744
004746
004750

F-3

322

EMT322
EHTI
EDT1
EFT1

HEADER ERRORS SHOULD NOT BE SET

SEQ 0057

CZRMOBO RMOS5/3/2 FCINL 1ST 3

FRROR POINTER TABLE

646

gzg

005026
005030

076070
076470

649

:ERROR

005032
005034
005036
005040

076100
076470
076614
076704

652

222
076112
076470
076614
076704

655
229

076124
076470
076614
076704

658
228

076142
076470
076614
076704

661
gg%

076154
076470
076614
076704

564

222

005110

(076164
076470
076614
076704

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

326

DATA PARITY ERROR DURING READ COMMMAND

327

OFFSET MODE NOT RESET BY WRITE COMMAND

330

DATA PARITY ERROR DURING WRITE COMMAND

EMT330
EHT1
EDT1
EFT1
:ERROR

005102
005104
005106

325

EMT327
EHTI
EDT1
EFT1
:ERROR

005072
005074
005076
005100

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT326
EHT]
EDT1
EFT1
:ERROR

005062
005064
005066
005070

324

EMT325
EHT]
EDT1
EFT1
:ERROR

005052
005054
005056
005060

DATA CHECK ERROR DURING DATA TRANSFER

EMT324
EHT]
EDT]
EFT1

:ERROR
005042
005044
005046
005050

323

EMT323
EHTI
EDT1
EFT1

076614
076704

gg?

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

:ERROR

005022
005024

667

MACRO v04.00

331

EMT331
EHTI
EDT1
EFTI

WRITE CLOCK FALURE DURING WRITE COMMAND

SEQ 0G0S&

rZRMOBO RMQS5/3/2 FCTINL

ERROR POINTER TABLE

;ERROR
005172
005174
005176
005200

335

LOST VOLUME VALID DURING DATA TRANSFER = IVC(

336

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

337

WRITE CHECK ERROR NOT DETECTED

EMT337
EHT337
EDT337
EFT337

076274
076564
076660
076750

685

LOST MOL DURING DATA TRANSFER = OPI = 0

EMT336
EHT336
EDT336
EFT336
;ERROR

005162
005164
00516€
005170

334

EHTI
EDT1
EFT1

076264
076552
076650
076740

682
683

= 0

EMT335

;ERROR
005152
005154
205156
005160

SET AFTER DATA TRANSFER = SKI

EHTI
EDT1
EFT1

076244
076470
076614
076704

PIP STIL

EMT334

076226
076470
076614
076704

679

333

EMT333
EHTI
EDT1T
EFT1

076210
076470
076614
076704

. ERROR
005142
005144
005146
005150

DATA LATE ERROR DURING DATA TRANSFER

EDT1
EFTT

;ERROR

005132
C05134
005136
005140

332

SEQ 005%

EMT332
EHTI

;ERROR

005130

687

076176
076470
076614
076704

670
671
672

676
677
678

MA(RO v04.00 4-APR-81 01:15:59 PAGE 8231
;ERROR

668
669

673
674
675

ST 32

076304
076552
076650
076740

340

WRITE CHECK ERROR AT UNEXPECTED ADDRESS

EMT340
EHT336
EDT336
EFT336
;ERROR

341

INCORRECT DATA DURING WRITE (HECK ERROR

(ZRMOBU RMOS/3/2 FCTINL

fRROR POINTER TABLE

MACRO v04.00

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

EMT 341
EHT336
EDT336
EFT336

076316
076552
076650
076740

:ERROR

703

705

706
707
708

"BSE'' NOT DETECTED DURING DATA TRANSFER

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT 346
EHTI
EDT]
EFT1

076372
076470
076614
076704

;FRROR
005262
005264
005266
005270

345

EFT1

;ERROR

005252
005254
005256
005260

“MCE'* NOT DETECTED DURING DATA TRANSFER

EMT345
EHT1
EDT1

076362
076470
076614
076704

704

344

EMT 344
EHT 344
EDT344
EFT344
:ERROR

005242
005244
005246
005250

"FER'* NOT DETECTED DURING DATA TRANSFER

EHTI
EDT1
EFTI

076350
076576
076679
076760

700

701
702

343

EMT343

076336
076470
076614
076704

:ERROR
005232
005234
005236
005240

"IVC'" ERROR NOT DETECTED DURING DATA TRANSFER

EHTI
EDT1
EFTI

;ERROR

697
698
699

342

EMT342

076324
076470
076614
076704

005222
005224
005226
005230

SEQ 0060

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347
EHT1

076406

076470
076614
076704

EDT1]
EFTI

;ERROR

350

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

(ZRMOBO RMOS5/3/2 FCINL TST 3

ERROR POINTER TABLE

005272
005274
005276
005300

5
Jd
4-APR-81 01:15:59 PAGE 8-33

EHTI
EDTI
EFT1

:ERROR

005302
005304
005306
005310

718
719
720

725

724
725

076462
076470
076614
076704

352

PROGRAM TIMEOUT WHILE

353

LOOK AHEAD TEST FAILS

EMT353
EHT353
EDT353
EFT353
.ERROR

005332
005334
005336
005340

SET DURING SEARCH

0
0
0

076452
076610
076702
076770

721
722

"ATA"* DID NOT

EMT352

076446
000000
000000
000000
;ERRCR

005322
005324
005326
005330

351

EMT351
EHT1
EDT]
EFT1

076436
076470
076614
076704

;ERROR
005312
005314
005316
€05320

SEQ 0061

EMT350

076420
076470
076614
076704

712
713

714

MACRO v04.00

354

BSE SHOULD NOT BE SET

EMT 354
EHT1
EDT1
EFTi

;PUT ERROR TABLE HERE

TESTING RMLA

I
T
e
e
e

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

.SBTTL

TETR

SEQ 0067

ERROR TABLE USAGE

;THE ERROR TABLE ABOVE CONSISTS OF
;NUMBER, I.E.,

USAGE

MACRO v04.00

ERROR TABLE
OVONONDWN
OV
NN NN -2

CZRMOBO RMOS5/3/2 FCINL TST 2

EMT
EHT
EDT
EFT

=
=
-

ERROR
ERROR
ERROR
ERROR

FOUR WORD ENTRIES FOR EACH ERROR

MESSAGE TABLE ADDRESS
HEADER TABLE ADDRESS
DATA TABLE ADDRESS
FORMAT TABLE ADDRESS

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

EACH ERROR MESSAGE TABLE LISTS

THE ADDRESS

;OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND
;TYPED BY THE ERROR TYPE SUBROUTINE.
IF THE EMT ENTRY IS ZERO, THERE IS
;NO MESSAGE TO BE TYPED FOR THE ERROR.

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

THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,

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

*IN SUMMARY,
:
:
:

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

|
'

CZRMOBO RMOS/3/2 FCTNL TST 3
ERROR TABLE USAGE

MACRO V04.00

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

SEQ 0063

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

3 005342

011600

S 005346
6 005350
005354

022626
104401
000417

4 005344

005414
7 005414
8 005416

9 005420

BADTMO: MOV

005740

005356

;;658:

648:

010046
104402

000240
.SBTTL

14 005422

012737

177777

17 C05432

005037

01330

18 005436
19 005440
20 005444
21 005446

000402

000240
005227
001375
000005

001330

005456
005462
005464

000000

001114
001154

005470
005476
005504

012737
012737
012737

064054
000340
064640

000020
000022
000030

005520

012737

067674

000034

005526
005534
005542

005550
005556
005562
005566
005574
005602

012737

012737
012737
012737

013737
005037
005037
112737
012737
012737

005610
005614
005622
005630
005636

013746
012737
012737
012737
022777

005646

000403

005644

001012

001100

000340

000340
070002
000340

037100
001206
001210
000001
005574
005602

000004
005650
177570
177570
177777

:ADJUST PC =2

(SP)+,(SP)+
:RESTORE STACK POINTER
658
::TYPE ASCIZ STRING
648
::GET OVER THE ASCIZ
<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/
;SETUP FOR TYPING OUT PC

;PUT 'HALT(0)' INSTRUCTION HERE IF YOU WISH

:TO STOP ON UNEXPECTED TIMECUT.

START OF PROGRAM
#=1,CHGADR

;CHANGE RH/RM BUS ADDRESS

START:

CHGADR

:NO CHANGE IN ADDRESS

40
=4

:TTY LOOP, WAIT FOR INCREMENT
:OF WORD
:RESET THE WORLD

(LR

START2

INITIALIZE THE COMMON TAGS

::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV ~ ASCMTAG.R6
::FIRST LOCATION TO BE CLEARED
CLR
(R6) +
::CLEAR MEMORY LOCATION

022706
001374
012706

005512

RO,=(SP)

;SAVE PC WHERE THE TIME OUT OCCURED

START1: MOV

.SBTTL

012706
005026

MOV
TYFOC

CMP
TYPE
B
.ASCIZ

START2: NOP
INC
BNE
RESET

005450
005454

=(RO)

NOP

15 005430

(SP) RO

000032

000036

000024
000026
037072
001131
001122
001124

000004
001154
001156
173310

CMP
#SWR,R6
: :DONE?
BNE
.~6
::LOOP BACK IF NO
MOV
#STACK,SP
::SETUP THE STACK POINTER
;:INITIALIZE A FEW VECTORS
MOV
W$SCOPE,@#IOTVEC ;:I10T VECTOR FOR SCOPE ROUTINE

MOV
#340,a#1OTVEC+2 ;:LEVEL 7
MOV
A#SERROR,@#EMTVEC ::EMT VECTOR FOR ERROR ROUTINE
MOV
340, QWEMTVEC+2 ;:LEVEL 7
MOV
ASTRAP,@WTRAPVEC ;:TRAP_VECTOR FOR TRAP CALLS
MOV
#340,@#TRAPVEC+2:LEVEL 7
MOV
ASPWRDN,@#PWRVEC ::POWER_FAILURE VECTOR
MOV
#340,a#PWRVEC+2 ;:LEVEL 7
MOV
SENDCT,SEOPCT
::SETUP END-OF -PROGRAM COUNTER
CLR
STIMES
::INITIALIZE NUMBER OF ITERATIONS
(LR
SESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB . A1,SERMAX
::ALLOW ONE ERROR PER TEST
MOV
#..SLPADR
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#..SLPERR
::SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
*FQUAL TO A *=1"", SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
Q#ERRVEC,-(SP)
~;;SAVE ERROR VECTOR
MOV
W64S,QHERRVEC
::SET UP ERROR VECTOR
MOV
ADSWR,SWR
:ISETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER
CMP
#-1,3SWR
::TRY TO REFERENCE HARDWARE SWR
BNE
66$
:IBRANCH IF NO TIMEOUT TRAP OCCURRED
:AND THE HARDWARE SWR IS NOT = =1
B
658
:iBRANCH IF NO TIMEOUT

INITIALIZE

THE COMMON TAGS

MACRO v04.00

005656

005650
005654
005656
005664
005672

012716
00000 2
012737

005676
005702
005710
005712
005720

005037
132737
001403
012737

001230
000200

001243

001244

001154

25 005720
¢6 005726

012737
012737

005342
000300

000004
000006

012737
012637

000176
000174
000004

001154

001156

005734
005740
005742
005750
005752
005756

005227
001035
022737
001431

:?Y

#65%, (SP)

;sSET UP FOR TRAP RETURN

65%:

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

668%:

MOV

(SP) + ,@#ERRVEC

;;RESTORE ERROR VECTOR

$PASS

;s CLEAR PASS COUNT

104401

000426

CLR

678

MOV
MOV

36295:
.SBTTL

000042
001242

000001

001154

000176

;:TEST USER SIZE UNDER APT
;:YES ,USE NON-APT SWITCH
;:NO,USE APT SWITCH REGISTER

#BADTMO,ERRVEC
#PR6,ERRVEC+2

;SETUP FOR UNEXPECTED TIMEOUT
;LEVEL 6

INC
BNE
CMP
BEQ

#-1
68%

::FIRST TIME?
2 sBRANCH IF NO

.69%

68%

;2TYPE ASCIZ STRING

.ASCIZ

001150

71%:

;:ALT=112
;:BRANCH IF YES

::GET OVER THE ASCIZ

<CRLF>aCZRMOBO = RM05/3/2 FUNCTIONAL TEST, PT 3a<(CRLF>

CMPB

SENV ., #1

CMP
BNE

SWR ,#SWREG
718

MOVB

#1,8AUTOB

BEQ

70%:

#SENDAD ,a#42
68%

GET VALUE FOR SOF TWARE SWITCH REGISTER
TST
awé2
;;ARE WE RUNNING UNDER XXDP/ACT?
BNE
70%
;sBRANCH IF YES

g;SUR

000001

HAPTSIZE ,$ENVM
67%
#$SWREG, SWR

TYPE PROGRAM NAME

TYPE

005760

104407

000403
112737

BITB
BEQ
MOV

#DISPREG,DISPLAY

:SETUP "'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

000042

006034

005737
001012
123727
001406
023727
001005

MOV

;. TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

037242

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

64%:

.SBTTL

::ARE WE RUNNING UNDER APT?

708

;:BRANCH IF YES

;2GET SOFT=-SWR SETTINGS

::SOFTWARE SWITCH REG SELECTED?
s 2BRANCH IF NO
;:SET AUTO-MODE INDICATOR

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE
:
;PAPER TAPE (MANUAL), ‘ACT11, XXDP CHAIN OR DUMP

REERRRNGSKER

ss38 s38888es :

CZRMOBO RMOS5/3/2 FCINL TST 3

46 006202

001332
000016

000041

000040
000007

001332
001332

001332

000042

1%:

006146

5523"

001332

CLR
(MPB
BNE
MOV
CMPB
BHIS
CLRB
ST
BEO

XXDP
#16.an41

728

:CLEAR 'XXDP' LOAD DEVICE STORAGE
*LOADED FROM AN RM05/3/2 ?
*BRANCH IF NOT
*GET DEVICE INDICATOR AND NUMBER
*IS IT A VALID NUMBER ?
YES
*NO, DEFAULT TO DRIVE 0
*CHAIN MODE OR ACT11 AUTO ACCEPT ?
*BR IF NEITHER

TYPE

3$
a#40, XXDP
47.,XXDP
18
XXDP
L2
2%
738

LASCIZ

<CRLF>/NOT TESTING DRIVE /

CLR
MOVB
TYPO

BYT

-(SP)
XXDP, (SP)

*:TYPE ASCIZ STRING

*:GET OVER THE ASCIZ

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

SONLY | CHARACTER

SEQ 0064

MACRC v04.00
CZRMOBO RM05/3/2 FCTNL ST 3
GET VALUE FOR SOF TWARE SWIT(H REGISTER
47 006203
48 006204
gg 006210

51 006212
52 006216
53 006220
006224

006246

54 006246

55 006250
56 006254
57 006256
58 006257
59 006260
006264

006350
60 C06350
006354
006450
64
65 006450

65 006454
67 006456

000

104401

001217

005227
001114

177777

000517

104407

000410
005046
113716

104403
001
000
104401

000431
104401

000435

005737

001561
012737

.BYTE

TYPE
BR

2%:

006226
=758

74%:

001332

INC
BNE

TYPE
BR

LASCIZ

2 l7%:
76%:

006356

: - 78

$CRLF

#-1

3$
75%

748

SEQ 0065

:SUPRESS LEADING ZEROS
*CR=LF

*GET NUMRER OF DRIVES
:FIRST TIME

THRU HERE

*NO
;i TYPE ASCIZ STRING

“GET OVER THE ASCIZ

<CRLF>/T0 TEST DRIVE /

CLR
MOVB

-(SP)
XXDP, (SP)

.BYTE
.BYTE
TYPE
BR
.ASCIZ

1
0

TYPOS

006266

77%

76%

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE DRIVE ADDRFSS

*ONLY 1 CHARACTER
*SUPRESS LEADING ZEROS
::TYPE ASCIZ STRING

“GET OVER THE ASCIZ

/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

.78%

TYPE
BR
.ASCIZ

BEQ
MoV

STANDALONE
#377 ,$DEVM

IT/<CRLF>

..TYPE ASCIZ STRING

;sGET OVER THE ASCIZ

7WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

3%:
;CHECK FOR AUTO MODE OR STANDLONE MODE
TST
ansl
sRUNNING IN AUTO MODE ?

000042

000377

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

001300

:BR _IF NO
sSET DEVICE MAP FOR ALL DRIVES

;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

132737
001146

005001
013700
104401
136137
001531
104401

010146

000200

001243

001276
071430

071746

001300

001217

012760
010160
005760
032760
001051
032760
001450
016002
012737
022702
001430

BITB
BNE

#B1T7,SENVM

;SIZING ALLOWED ?

CLR
MOV
TYPE

;START FROM DRIVE 0

BITB
BEQ

ATNTBL (R1), SDEVM
;1S DEVICE PRESENT IN MAP ?
118
;BR IF NO
sCR=LF
LSCRLF
R1,-(SP)
::SAVE R1 FOR TYPEOUT

TYPE

MOV

104403

002
000
104401

XS1Z:

TYPOS

.BYTE
.BYTE

071640

TYPE

000040
000010
000012
010000

000010

004000

000000

000026
071446
020025

000010

00677¢

MoV
Mov
TST
BIT
BNE
BIT
BEQ
MoV
MOV
CMP
BEQ

128

$BASE ,RO
SYSTAT

;NO

;LOAD THE BASE ADDRESS
:TYPE 'UNIT STATUS:®

.
2
0
BLNKS4

;:G0 TYPE--OCTAL ASCII
]
;:TYPE 2 DIGIT(S)
; :SUPPRESS LEADING ZEROS
;TYPE 4 BLANKS

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

CLEAR MASS BUS
;LOAD THE DRIVE ADDRESS

#NED ,RMCS2 (R0O)

?
.lS DRIVE PRESENT

RMDS (RO)

3%
#DVA,RMCS1(RO)
4%

RMDT (RO) ,R2
#$RM02,10%
#20025 ,R2
2%

;ACCESS DRIVE REGISTER
:BR IF NO
;IS DRIVE AVAILABLE ?
;BR IF NO

:SAVE DRIVE TYPE REGISTER IN R2

ASSUME RMO2 DEVICE
:SINGLE PORT RMOZ2
?
BR IF YES

CZRMOBO RMOS/3/2 FCTNL TST 3

MACRD v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

95 006612

022702

9% 006616
97 006620

001425
012737

99 006632
100 006634
101 006640
102 006642
103 006650

001417
022702
001414
012737
022702

104 006654

105 006656
106 006662
107 006664
108 006670
109 00€,
2
110 00670C

H; "M6702

022702

001405

024025

071453

006776

071460

020027

022702
001403
104401
000412
032760
001412

024027

000012

010000

104401

071523

116 006712
117 006716

071540

118 006724

104401
146137

000425

071746

001300

120 006726
121 006732
122 006740

104401
146137
000413

071557
071746

001300

124 006742
125 006746
126 006750
127 006754
128 006756
129 006762

005737
001406
123701
001360
104401
000755

001332

131 006764
132 006770
133 006774

104401
104401
104401

071570
071642

136 007000
137 007002

005201
020127

000007

140 007010
141 007014

104401
000137

001217
007476

138 007006

2%:

100417

000402

134 006776

003637

:DUAL PORT RMO2 ?

CMP
BEQ

*SINGLE PORT RMO3 ?
‘BR IF YES

BEQ
MOV
CMP
BEQ
CMP
BEQ

#20024 .R2
28
#24024 ,R2
28
#$RMOS . 108
#20027.R2
2$
#26027 ,R2
2

B8R

TYPE

071465

114 006710

113 006704

#24025.R2

CMP

024024

3$:

4$:

5%:

68:

001332

B8R

BEQ
TYPE

TYPE

BICB
BR
TYPE

BICB
ST

*DRIVE NOT AN RM05/3/2

*CHECK NEXT DRIVE

:IS MEDIUM ON LINE ?
‘BR IF NO

:DRIVE NOT PRESENT

.NOTAVL

:DRIVE NOT AVAILABLE

,UNTOFF

;DRIVE OFFLINE

;PRINT DRIVE TYPE

XXDP

:LOADED FROM RM0S/3/2 ?

XXDP.R1

*1S THIS THE DRIVE ?

*CHECK NEXT DRIVE

ATNTBL(R1),$DEVM
:CLEAR DEVICE FROM BIT MAP
118
;CHECK NEXT DRIVE
ATNTBL(R1),SDEVM

BNE

LODEV

TYPE
TYPE
TYPE

,UNTON
.BLNKS2

.WORD

11%:

" INC
CMP
BLE

R1
R1.47
1%

TYPE

BR IF YES
*ASSUME RMOS DEVICE
*SINGLE PORT RMOS ?
‘BR IF YES
*DUAL PORT RMOS ?
‘BR IF YES

NOTPRS

JMP

*DUAL PORT RMO3 ?

§s

10%:

12%:

*BR IF YES
*ASSUME RMO3 DEVICE

BEQ

TYPE

8$:
9%:

NOTRM

#MOL ,RMDS(R0O)

CMPB

071506

28
#SRM03, 108

BIT

B8R
7%:

SEQ 0066

CMP

BEQ
MOV

006776

020024

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

,S$CRLF

CMNSTART

:CLEAR DEVICE FROM BIT MAP

*NO

*BR IF NO

*DRIVE IS LOAD DEVICE

:DRIVE ONLINE
*TYPE 2 BLANKS
*PRINT DRIVE TYPE

*MESSAGE ADDRESS HERE

- INCREMENT THE DRIVE ADDRESS
*ALL DRIVES ARE CHECKED ?
*BRANCH IF NOT
;CR=-LF

*JUMP TO COMMON START

MACRO V04.00

)
R
e
S
I
T
e

007020
007020

NANS WA =00

.SBTTL

C ZRMOBO RMOS5/3/2 FCTNL TST 3
S TAND
ONE INPUT FOUTINES

004737

066310

005227
001023

177777

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

SEQ 0067

STANDALONE INPUT ROUTINES

ONEL:
STANDA

JSR

PC,STKINT

sINITIALIZE CONSOLE

INC

;FIRST TIME THRU HERE

BNE

*BR IF NO

:SEE IF OPERATOR WANTS HELP TEXT
104401
104411

012637

123727

001005

104401
104401
000414
104401
104401

000407

070530
001176
001176

020131

,MSHELP

CMPB

STMP1.#'Y

TYPE
TYPE

,$TMP1
HELP

BNE

001176
106436
1$:

071634
0C1217

TYPE

RDCHR
MOV

‘NO

TYPE

$CRLF

“GET RESPONSE
*SAVE AND ECHO RESPONSE

TYPE

:WANT HELP ?

.
(SP)+,$TMP1

“WAS IT A YES RESPONSE ?

STYPE 'y
“YES - TYPE HELP TEXT

;TYPE

*CR-LF

fiee IF USER WANTS TO CHANGE UNIBUS ADDRESS

27 007106
28 007112
29
30
31 007116
32 007116
33 007122
007126
34 007130

005737
001457
005037
104401

001330

CHGADR

;CHANGE RH/RM BUS ADDRESS ?

CLR

CHGADR

*NO CHANGE NEXT TIME

BEQ

001330
001217

TYPE

,SCRLF

:BR IF NO
*CR-LF

égmosus TO CHANGE THE UNIBUS ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY
104401

013746
104402
104401
104413

001176

022737

160000

101403
104401

000756
013737
104401

005046
113716
104402
104401
104413

012637
001412
022737
101003

113737

001176

071115

001176

001276

071157

48:
5%:

0010C0

001176

TYPE

CLR

001272

6$:

::SAVE $BASE FOR TYPEOQUT
1360 TYPE--OCTAL ASCIICALL DIGITS)
:CARRIAGE RETURN ?
:BASE ADDRESS IN 1/0 PAGE ?
*YES
*TYPE WARNING MESSAGE
STRY AGAIN
:
*STORE NEW BUS ADDRESS

SYES-SKIP TO NEXT ENTRY

,CNSLO3

Z(sP)

SVECT1, (SP)

:GET CURRENT VECTOR ADDRESS

TYPE

,BLNKS2

;TYPE 2 BLANKS

MOV
BEQ
CMP
BHI

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

*CARRIAGE RETURN?
LYES=SKIP TO NEXT ENTRY
*VECTOR ADDRESS < 1000 ?
SYES!!

§s

*RETRY

TYPE

071166

STYPE 2 BLANKS
*GET NEW BUS ADDRESS

(SP)+,$TMP1
#160000,8TMP1
4$
CNSLO2
s
$TMP1, SBASE

RDOCT

001176

,BLNKS2

MOV
BEQ
cMP
BLOS
TYPE
BR
MOV

071642

;TYPE CURRENT BUS ADDRESS

$BASE , ~ (SP)

nraopvgc

001272

,CNSLO1

MOV
TYPOC

TYPE
RDOCT

071642

012637
001412

TYPE

071105
001276

MOVB

CNSLO4

$TMP1,$VECT1

*GET NEW VECTOR ADDRESS

*TYPE WARNING MESSAGE

:STORE NEW VECTOR ADDRESS

’
'

CZRMOBO RMOS5/3/2 FCINL TST 3

STANDALONE

INPUT ROUTINES

59 007244

005227

177777

61 007252
62 007256
63 007262
64 007266

104401
104401
005037
104401

071222
001217
001300
071406

60 007250 001002

65 007272

104411

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

MACRO v04.00

SEQ 0068

-DIALOGUE TO INPUT DEVICE NUMBERS

7$:

INC

#=1

:FIRST TIME THRU ?

TYPE
TYPE
CLR
TYPE

LCNSLO7
"$CRLF
$DEVM
,MSDRVS

*TYPE INPUT INSTRUCTIONS
:CR=LF
:CLEAR DEVICE MAP
*TYPE 'DRIVE(S): '

BNE

8% :
9%:

RDCHR

“BR IF NO

66 007274 012637 001176
67 007300 023727 001176 000101
68 007306 001007

MOV
CMP
BNE

(SP)+,$TMP1
$TMP1,4#°A
108

:GET RESPONSE
“1S INPUT 'ATM 2
:NO

70 007314

012737

- MOV

#377 ,$DEVM

:SET DEVICE MAP FOR ALL DRIVES

74 007334
75 007336
76 007342

001436
104401 001176
023727 001176

000060

BEQ
TYPE
cMP

12$%
LSTMP1
$TMP1,#'0

78 007352

023727

000067

cMP

$TMP1,#'7

128

69 007310

104401

070514

000377

;5 007322 000137 006464
73 007326 023727 001176 000015
77 007350

79 007360

002430

003427

001176

TYPE

001300

JMP
CMP

10$:

BLT

BLE

g? 007362 000423
82 007364

104411

85 007400

001432

91 007430
92 007432

003403
104401

071364

128:

95 007440 013701

001176

13$:

97 007450

071746

83 007366 012637 001176
84 007372 023727 001176 000015

11$:

RDCHR

32 007436 000711
9 007444

042701

98 007456

122737

99 007464

100 007466
101 007472

156137

101337

104401
000137

177770

000377
001217
006464

13%

:NUMBER > 7 ?
:NO

:ILLEGAL INPUT

,COMMA
.STMP1
$TMP1,#'0
128
STMP1 47

STYPE *, '
“ECHO RESPONSE
*NUMBER < 0 ?
:YES
*NUMBER > 7 ?

148

138
,CNSLO8

$TMP1 ,R1

:YES

:NO
:TYPE CR-LF '’ ?ILLEGAL INPUT''

:RETRY

:R1 = DRIVE NUMBER

BIC

#*C7.R1

CMPR

#377.$DEVM

:DONE ?

LSCRLF
XS1Z

“CR-LF
:GO SIZE DEVICES

BHI
.

:YES

TYPE
TYPE
cMP
BLT
P

BISB
148

:YES
:ECHO RESPONSE
*NUMBER < 0 ?

:GET RESPONSE
*CARRIAGE RETURN ?

MoV

001300

12%

*AUTO SIZE.
:CARRIAGE RETURN ?

(SP)+,$TMP1
$TMP1,#CR

BLE
TYPE

001300

XS12z
$TMP1,#CR

*YES, TYPE "‘ALL'‘ AND GO

MoV
CMP
BEQ

86 007402 104401 070525
87 007406 104401 001176
88 007412 023727 001176 000060
89 007420 002404
90 007422 023727 001176 000067

LALL

TYPE
JMP

ATNTBL(R1),$DEVM

)

:SET DEVICE IN MAP

CZRMOBO RMOS/3/2 FCINL TST 3

STANDALONE

MACRO v04.00

INPUT ROUTINES

2 007476
3 007476

104401

S 007506

001004

7 007514

104401

071600

104401

070525

012701

001470

10 007530 012702
11 007534 005003

000001

8 007520
9 007526

010137

12 007536
13 007540
14 007542
15 007546

030200
001413
104401
010311

007552
007554
007555

104403
001
000

18 007564
19 007570

062701
006302

116361

071627

1%:

001466

28:
070525

,
071746

52 007604

27
28 007610

29 007614
30 007616
007622

007652
31 007652
32 007656

33 007660
3% 007664

32 007670

004737
000425
104401
000413
005737
001002

000137
000137

043550

005432
037232

000240 .
105737 001300
001007

41 007704

001002

42 007706

4$:

005737

000042

000137

005432

105037
005037
005037
004737
012746

001116
001206
001326
066310
000240

64$:

6$:

READY:

45 007716
46 007722
47 007726
48 007732
49 007736

2%:

007750

STYPE ', °

MOV

#TSTQUE+2,R1

MOV
CLR

#1.R2
R3

TYPE

MOV

BIT
BEQ
TYPE
MOV

.NONE

R1, TSTQUE
R2,RO
38
. COMMA
R3, (R1)

R3.=-(SP)

*BR IF DRIVES TO TEST %
“TYPE 'NONE'

;R1 = ADDRESS OF FIRST ENTRY IN QUE
*INITIALIZE ENTRY POINTER

*R2= DEVICE POINTER
*R3 = DEVICE NUMBER

:1S THIS DEVICE IN MAP ?
iNO !
STYPE ', °
*YES - ENTER DEVICE NUMBER IN QUE

*:SAVE R3 FOR TYPEOUT

1
0

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

#2,R1
R2

*ADVANCE ENTRY POINTER
*ADVANCE DEVICE POINTER

LSCRLF

*TYPE CR-LF

MOVB

ATNTBL(R3),1(R1):ENTER ATTENTION 8IT IN QUE

ISTB
BEQ
INC
BR
CLR

R2
43
R3
2%
(R1)

ADD
ASL

TYPE

*DONE ALL DEVICES ?
SYES
*ADVANCE DEVICE NUMBER
*ENTER NEXT DEVICE
*TERMINATE TEST QUE

_ASCIZ

:SEE IF CLOCK PRESENT
*YES - CLOCK IS PRESENT
*:TYPE ASCIZ STRING
64$
*:GET OVER THE ASCIZ
<CRLF>/NO 'L' OR 'P' CLOCK/

ST
BNE

G2
5%

JMP
JMP

NOP
TSTB
BNE

6%
,65%

START

:ANY MONITOR PRESENT ?
‘BR IF YES

$GET42

;JUMP TO START
*RETURN CONTRGL TO MONITOR

$DEVM
2%

;READY TO START TEST
*ANY DRIVES IN MAP ?
‘BR IF YES

‘BR IF YES

TST

aNs2

JMP

START

BNE

1%:

012746
000002

connA

BR
TYPE

22 007712 000137 037232

007742
007746

TYPE

:SIZE FOR CLOCK
JSR
PC.SIZCLK

::65%:

37 007670
38 007672
39 007676

40 007700

007624

000042

*RO = DEVICE MAP

TYPOS
BYTE
BYTE

104401 001217

iosvn RO

MOV

000001

000002

20 007572 105702
21 007574 001402
22 007576 005203
23 007600 000756
26 007602 005011

SEQ 0069

MOV
BNE

16 007550 010346

17 007556

:ASSEMBLE TEST QUE FROM DEVICE MAP
CMNSTART:
TYPE
DRIVES
:TYPE *DRIVE(S) TO BE TESTED'

& 007502 013700 001300
6 007510

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

;ANY MONITOR PRESENT ?
:JUMP TO START

JMP

$GET4L2

RETURN CONTROL TO MONITOR

CLRB
(LR
CLR
JSR
MOV

S$TSTNM
$TIMES
CTLFG
PC,STKINT
#PRS ,~(SP)

:RESET TEST NUMBER
*INITIALIZE NUMBER OF ITERATIONS
*CLEAR CONTROL-C FLAG
“INITIALIZE TTY
::PUT NEW PS ON STACK

MOV
RTI

#64%,-(SP)

;:PUT NEW PC ON STACK
;;POP NEW PC AND P3

CZRMOBO RMOS/3/2 FCINL TST 3

STANDALONE

INPUT ROUTINES

007750
50 007750
51 007756
52
53
54
55
56 007762
57 007770
58 007774
59 010002
60 010010
61 010014
62 010020
63 010024
64 010026
65

117737

005037

171512

001512

001234

MOvB
CLR

;OF
12737
1

12760
117760

012737

002000
001276
000040
171460

000026
177770
000007
011000

001334

MOV
MCV
MOV

000010
000010

MOvB
MOV
BIC
CMP
BNE
MOV

001334

;LOAD DRIVE NUMBER

sCLEAR MEDIA ENABLE

#TAL ,LSTRK

;ASSUME LAST TRACK FOR RM02/3 = 4.

#CLR,RMCS2(RO)

;CLEAR MASSBUS

$BASE ,RO

104401
104401

0Cc1217
071422
001234

3%:

TYPE

TYPE
MOV

010050
010052

104403

TYPOS

71 010054
72 010056
73 010060

005004

CLR
DEC
BNE
DEC
BNE

002

005304

001376
005304
001376

.BYTE
.BYTE

;RO = UNIBUS ADDRESS

@TSTQUE ,RMCS2(R0)
;SELECT DEVICE UNDER TEST
RMDT (RO) ,R2
;JGET _RMDT AND
#177770,R2
#7.R2

;SAVE DRIVE TYPE BITS
;IS IT AN RMOS ?

JNO, MUST BE AN RM0O2 OR RM03

#TA16!TA2 ,LSTRK ;YES==SET LAST

;TYPE DRIVE NUMBER TO BE

013746

74 010062
75 010064

@TSTQUE ,SUNIT

MEDENB

SEQ 0070

THE DIFFERENT DRIVE TYPES

70 010044

010053

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

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRAC(K

67
68 010034
69 010040

MACRO v04.00

TRACK = 18.

TESTED(SUNIT)

s CR=LF
;TYPE 'DRIVE'
;sSAVE SUNIT FOR TYPEOUT
;. TYPE DRIVE NUMBER
::GO TYPE=--OCTAL ASCII
;:TYPE 2 DIGIT(S)

R4
R42

;THESE TWO LOOPS ARE ADDED TO
sWAIT FOR TTY

.SCRLF
.MSGDRV
$UNIT,=-(SP)

;s SUPPRESS LEADING ZEROS

CZRMOBO RMOS/3/2 FCTINL TST 3

STANDALONE

INPUT ROUTINES

(RO v04.00

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

5EQ 0071

."-tttl.'Q...'ttt'ii"t'"Q'..Q..Q'Q..t‘t..tfit".t.'tttit.'t.'..tt

TRTEST 1

CONTROLLER ACCESS TEST

:.'ttttltt't't'tt"t.t""t".'.ttttttfitt..tfittfl“ttttttt.ttttt'.tt

010066
010066
010070
010072
010076
010102
i 010106

000004
000240

012706
013700
013701
012737

4 010114

005001

5 010116
010122

18112

001100
001276
001466
000001

6 010126
g 010134

013746
013746

012737
012737

000004
000006

9 010142
10 10146
11 010152
12 010156

110160
010160
016002
010160

14 010166

016046

000010

16 010176
17 010202
18 010206
19 010212

016002
012660
010160
016002

000010
000010
000022
000022

010222
55 010226

012637
000417

000004

23 010230

022626

010236

012637

13 010162
15 010172

016002

010160

001226

SCOPE
NOP
MOV
- MOV
MOV
MOV

27 010250
28 010252
29 010256
30 010262
gg 010266

001002
000137
005037
000137

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

MOV
MOV

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

#18 ERRVEC
#PRb ,ERRVEC+2

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

000001
000002
000002

MOVB
MOV
MOV

R1,RMCS1+1(RO)
R1.RMWC (RO)
RMWC (RO) ,R2

:MOVE HI BYTE TO RMCS1
:MOVE WORD COUNT REGISTER

000004

MOV

RMBA (RO) ,R2

010230
000300

000004
000006

000004

MOV

000010

MOV

MOV
MOV
MOV
MOV

MOV

18:

24 010232 012637 000006
104110
005737

CLR

MOV
MOV

20 010216 012637 000006

25 010242
26 010244

#STACK , SP
SBASE , RO
TSTQUE,R1
#1,$TESTN

:SCOPE CALL
*START OF TEST

000004

000042
005422
007300
037044

2%:
3$:

R1,RMBA (RO)

RMCS2 (RO) , = (SP)

R1,RMCS2(R0)

RMCS2 (RO) ,R2
(SP) +,RMC$2 (RO)
R1,RMDB(RO)
RMDB (RO) , R2

(SP)+,ERRVE(C+2

;MOVE BUS ADDRESS REGISTER

; :PUSH RMCS2(R0) ON STACK

;MOVE CONTROL STATUS REGISTER

;:POP STACK INTO RMCS2(RO)
:MOVE DATA BUFFER

::POP STACK INTO ERRVEC+2

MOV
BR

(SP)+.ERRVEC
38

;;POP STACK INTO ERRVEC
:NO BUS TIMEOUT OCCURRED

(SP)+,(SP)+

;ADJUST STACK

MOV

(SP)+.ERRVEC

;:POP STACK INTO ERRVEC

28
START1
$DEVM
$EOP

NO!!
{YES-GO GET $BASE
*FUDGE NO DRIVES IN MAP
*RETURN TO $EOP

MOV

EMT
ST
BNE
JMP
CLR
JMP

(SP)+,ERRVE(C+2

110
w42

::POP STACK INTO ERRVE(C+2

.
;STAND ALONE MODE ?

.'"l‘ttt**'fitt*tttflt*tt*ti"tt.tt..t.’tti'i*tlttti'tttt'ttlttttt*it

WRITE, READ ZEROS

SRTEST 2

":'ttttl’*tt*tt**ttt*ttttit'i't't".fitfitttt‘ttfilttt*ttittttt"ttt.

010266
010266
010270

010272
010276
010302
" 010306
SS

000004
000240

012706
013700
013701
012737

812:

001100
001276
001466
000002

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK ,SP
$BASE ,RO
TSTQUE ,R1
#2,STESTN

:SCOPE CALL
*START OF TEST

*INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
*:SET TEST NUMBER IN APT MAIL BOX

"".!Ql'tttitttt'fitfitttt'i"t'ifi!'fi*"i'ttt"t'ltttt"ltit'!.l""

:Loop #1

FORMAT ,WRITE ,READ

"ZPM(BO RMOS/3/2 FCINL TST 3
T2

WRITE, READ ZEROS

MACRO v04.00

37
gg 010314

40
41 010314

010320

004737

;PREPARE DEVICE FOR TEST
JSR
PC,TSTPRP

037316

154130

000404

> 010330

000137

43
44 010334

45 010334
46 010342
47 010350
48 010356
49 010364
2(1) 010372

000240
104000

.WORD

154130

012737
012737
012737
012737
012737
012737

000000
000000
106436
177376
010000
000063
:

004737

010406
010412

070426

53 8}82:1?8

104401
104000

000137

011274

54 010420
55 010426

012737
012737

072060
000001

012702
112722
112722

001553
000034
000006

112712

000200

010404

gg 010434

58
59 010440
60 010444
61 010450
62 010454
63 010460
64 010464
65 010470

g(; 8;815‘7)16

68 010500
010504
010506
010510
010512
98 010516

010516

000405

112722
112722
112722
112722

001446
001420
001416
001414
001444
001412

000004
000002
000032
000000

004737
000404
000240
104000
000137

043330

004737

042774

011274

JMP

25%

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

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

;GO TO 2% IF NO ERROR

RETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUT INE

;GO TO 25% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:

MOV
MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0 ,RMDAO
#BUF ONE , RMBAO
#-258. ,RMWCO
H#FMT16 ,RMOFO
#WH!GO,RMCS10

:VERIFY THAT SECTOR IS NOT BAD

040242

004737 042174

NOP
EMT

011274

010400

SEQ 007;

1%:

010322

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

010324
010326

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

JSR.

PC,BADSCT

:CALL BAD SECTOR MODULE

TYPE
EMT

.SCTMSG

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

*
001174
001176

;CYLINDER = 0
;TRACK = 0, SECTOR = 0
;BUS ADDRESS
;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JMP

25%

MOV
MOV

#ZEROS ,$TMPO
#1,$TMP1

JSR

;GO TO 3% IF NO ERROR

;GO TO 25% IF ERROR

;STARTING ADDRESS OF PATTERN
RANGE OF PATTERN

PC. GENBUF

;GG GENERATE BUFFER FOR FORMAT

;SETUP PARMETERS AND EXCUTE COMMAND
#PUTINX ,R2
HOVB
HRMDC, (R2)+
MovB
HRMDA
, (R2) +
Mov8
HRMBA, (R2) +
MOvB
H#RMWC
, (R2) +
MOvVB
#RMOF
, (R2) +
MOvB
H#RMCST, (R2) +

5%:

MovB

#200, (R2)

JSR
BR
NOP
EMT
JMP

PC,PUT
5%

25%

;R2 = BYTE ENTRY POSITION

s 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 25% IF ERROR

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

CZRMOBO RMOS/3/2 FCTINL TST 3

WwRITE, READ ZEROS

72
73

010522

004737

043672

76 010526

004737
000404
000240

043060

000137

011274

004737
000405
000240

056572

74
75

010532
010534
010536
010540

010544

010544
010550
010552
010554
010556
010560
81 C10564

010564
85 010572

104000

MACRO Vv04.00 4-APR-81 01:15:59 PAGE 12-2
I

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO GET REGISTER STATUS
JSR

NOP
EMT

6%:

012737
000410

011274

010574

25%

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

;GO TO 6% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

;GO TO 25% IF ERROR

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

104000

004736
000137

JMP

PC,GET

SEQ 0073

001124

NOP
EMT
JSR

JMP

PC,a(SP)+

25%

;GO TO 7% IF NO ERROR

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

;GO TO 25% IF ERROR

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

:SKIP TO WRITE OPERATION

"""t*'.'fifi*."t‘fi"..""*t'."Q".fi."."‘fi‘.'.fi'fi.'.*.""t"i'

S0 010574
N
92
93 010574
010600

8%:

WRITE ,READ

;LOOP #2

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 IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

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

OO O

NNNN%NNNN
n

011274

9%:

BR
NOP
EMT
JMP

25%

:VERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND

e
D h
) —d

3ERREREE
ON&SNJ*J*

000404
000240
104000
000137

—h it ek —d =2

S
»HO &R

ke ot o

elslelelelelelslele]

s —a

KEREV2SBLERR

010602

106442
177400
000061

001553
000006
000034
000032
000004
000002

10%:

MOV
MOV
MoV
MOV
MOVB
MOvVB
MOvB
MOVB
MOovB

#BUF ONE +4 ,RMBAO

#-256. ,RMWCO
#WD ! GO,RMCS10

#PUTINX ,R2

#RMDA, (R2) +
#RMDC, (R2) +
#RMOF , (R2)
+
HRMBA, (R2) +
#RMWC
, (R2) +

:;MOVE MEMORY ADDRESS

_
; CHANGE WORD COUNT
;WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

CZRMOBO RM0S/3/2 FCINL TST 3
T2
WRITE, READ ZEROS

107 010666
}83 010672

112722
112722

000000
(00200

110 010676

004737

043330

010710
”5 010714

000137

011274

(004737

042774

116 010720

004737

043672

117
118 010724

004737

043060

010732
010734

000240
104000

010702 000404
010704 000240
010706 ' 104000

113

vk 010714

115

010730

010736

000404

000137

011274

122 010742

004737

044056

010752
010754

104000
004736

};8 010742
121

010746
010750
010756

000405
000240

125 010762
124 010762

000137

011274

004737

056572

010772
010774

104000
004736

010766
010770

010776

000405
000240

125 011002
126 011002

000137

011274

004737

044710

011012
011014

104000
004736

011006
C11010

000405
000240

MACRO v04.00

130 011022
%%} 011030

012737
000410

011032

#RM(CS1,(R2)+
#200, (R2)+

JSR

PC,PUT

;GO WRITE REGISTFR(S) WITH PUT SUBROUT INE

JMP

25%

;GO TO 25% IF ERROR

118%:

;SETUP GET INDEX TABLE

JSR
JSR

TO READ ALL REGISTERS

PC,GETSTS

;GO TO GETSTS SUBROUTINE

PC,TIMOUT

;GO GET REGISTER STATUS
JSR
PC,GET

12%

JMP

25%

NOP
EMT

12%:

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

;GO TO 12% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINC

;GO TO 25% IF ERROR

;VERIFY RESULTS OF WRITE COMMAND

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

EMT
JSR

PC.a(SP)+

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

JSR

:
PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO0 BACK FGR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

BR
NOP

13%

JMP

13%:

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

25%

BR
NOP

;GO TO 25% IF ERROR

15%

JMP

15%:

;GO TO 25% IF ERROR

14%

JMP

14%:

;GO TO 13% IF NO ERROR
;RETURN HERE IF ERROR

25%

B8R
NOP

001124

;TERMINATE TABLE
;GO TO 11% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

011016 000137 011274

SEQ 0074

MOVB
MOvB
BR
NOP
EMT

;gg 011022
129

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

;GO TO 15% IF NO ERROR
;RETURN HERE IF ERROR

25%

1GO TO 25$ IF ERROR

; CHANGE LOOP ADDRESSES

MOV
BR

#16%, SLPERR
17%

133

A AR

KRR

;%‘S'

;LOOP #3

;;g 011032

16%:

138

:PREPARE DEVICE FOR TEST

READ

;SKIP TO NEXT OPERATION

R AR R A AR AR R AR AR R R

AR R AR KRR AR AR R AR A N R

(ZRMOBO RMQS5/3/2 FCTNL TST 3

WRITE, READ ZEROS

129 011032

011036

004737

1564130

MACRO v04.00

037316

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

.WORD

PC,TSTPRP

SEQ 0075

;PREPARE DEVICE FOR TEST

154130

s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE 1F VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

011040 000404

011042
011044

000240
104000

011046 000137 011274

NOP
EMT

JMP

JRECALIBRATE IF ''SKI'* OR 'PIP'" IS SET
;VERIFY RECALIBRATION

17%
25%

*GO TO 17% IF NO ERROR

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUT
INE

“GO TO 258 IF ERROR

}29 011052

17%:

142
143 011052

:SETUP PARAMETERS AND EXCUTE COMMAND
18$:

144 011052 012737 107446 001416
145 011060 012737 000071 001412
146 011066 012702 001553

147 011072
148 011076

112722
112722

000006
000032

}gz 011122

112712

000200

149 011102
150 011106
151 011112
152 011116

112722
112722
112722
112722

MOV
MOV
MOV

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000034
000004
000002
000000

155 011126 004737 043330
011132 000404
011134 000240
011136

104000

011140 000137 011274

;gg 011144
158
e 011144

()4737

042774

19%:

JSR
B8R
NOP
EMT
JMP

#BUF TWO+4 , RMBAO
#RD ! GO,RMCS10
#PUT INX ,R2

HRMDA, (R2)+
MRMOF
. (R2)+
MRMDC.(R2)+
#RMBA. (R2)+
#RMWC. (R2)+
MRMCST,(R2)+
#200, (R2)

PC,PUT
19§

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 19% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

258

*GO TO 25% IF ERROR

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

160
6 011150 004737 043672

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

162

:GO GET REGISTER STATUS

163 011154

004737

043060

011160 000404
011162 000240
011164
104000
011166 000137 011274
;gls. 011172
166
167 011172

004737

011202
011206

104000
004736

011176 000405
011200 000240

044056

011206 000137 011274

168 011212

;CHANGE MEMORY ADDRESS
*READ DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

JSR

BR
NOP
EMT
JMP

PC,GET

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

208

*GO TO 208 IF NO ERROR
*RETURN HERE IF ERROR
‘ERROR # DEFINED BY GET SUBROUT INE
‘GO TO 25$ IF ERROR

25%
208 :
;VERIFY RESULTS OF READ COMMAND
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS
B8R
21%
160 TO 218 IF NO ERROR
NOP
‘RETURN HERE IF ERROR
EMT
JSR

21%:

JMP

PC,A(SP)+

258

“ERROR # DEF INED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

‘GO TO 25% IF ERROR

CZRMOBO RMOS/3/2 FCTNL TST 3

WRITE, READ ZEROS

169 011212

011216

004737

000405

MACRO v04.00 4=-APR-81 01:15:59 PAGE 12-5
L

056572

JSR

011220 000240

011222
011224

011226 000137 011274
004737

011240
011242
011244

000240
104000
004736

011236 000405

044710

011246 000137 011274

; ;g 011252
174

)

175 011252

004737

011260

107446

011256

106442

22%

NOP

104000
004736

170 011232
171 011232

PC,DTASTS

042432

011262 000404
011264 000240
011266 104000
011270 000137 011274

PC,a(SP)+

JSR

PC,SECERR

25%

B8R

JMP
JSR

.WORD

"WORD

24$:

} ;g 011274

258%:

180

*ERROR # DEF INED BY DTASTS SUBROUTINE
“GO BACK FOR MORE ERROR CHECKS

‘GO TO 25$ IF ERROR

;GO CHECK FOR SECONDARY ERRORS

*GO TO 23$ IF NO ERROR

PC,a(SP)+

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

PC.,CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

258

;GO VERIFY DATA

} ;9 011274

“GO TO 228 IF NO ERROR

238

NOP
EMT
JSR

23%:

:GO VERIFY RESULTS OF DATA TRANSFER

‘RETURN HERE IF ERROR

EMT
JSR

IMP

22%:

B8R
NOP
EMT
JMP

“GO TO 258 IF ERROR

BUF ONE +4

;STARTING ADDRESS OF WRITE BUFFER

BUF TWO+4

*STARTING ADDRESS OF READ BUFFER

248

:GO TO 24$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPBUF SUBROUT INE
*GO TO 258 IF ERROR

25$%
AR RN AR

S*TEST 3

SEQ 0076

AN R R

AR AR

RRRAAARA AR IR AN AAARARARAR AR AR

WRITE, WRITE CHECK ZEROS

.'.'ttttltttttttttitttttttt'tl’tttt.ttttitttttttttttttttttttttttt't'

011274

011274
011276
011300
011304
011310
- 011314

000004
000240
012706 001100
013700 001276
013701 001466
012737 000003 001226

1573:

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP

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

:SCOPE CALL
*START OF TEST
;INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
*:SET TEST NUMBER IN APT MAIL BOX

182

";ttttttttttttttttttt'tttttitttttttltttttlttttttttttttttttt'ttttt

}gz

‘LooP #1

}g(s> 011322

1$:

187
188 011322

011326

004737
154130

037316

FORMAT ,WRITE,WRITE CHECK DATA

: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
‘RECALIBRATE IF ''SKI'* OR 'PIP"' IS SET

011330 000404

B8R

011334

EMT

011332

000240

104000

011336 000137 012252

NOP

JMP

2%
24%

*VERIFY RECALIBRATION

*GO TO 28 IF NO ERROR

‘RETURN HERE IF ERROR

“ERROR # DEF INED BY TSTPRP SUBROUTINE

‘GO TO 24% IF ERROR

|
|

€2 RMOBO RMOS5/3/2 FCINL TST 3

MACRO V04.00 4-APR-81 01:15:59 PAGE 1%-6
M

WRITE, WRITE CHECK ZEROS

189

190

191 011342

:LOAD PARAMETERS AND GENERATE DATA BUFFER

192 011342

012737

000000

001446

}gg 011400

012737

000063

001412

193 011350
194 011356
195 011364
196 011372

199

012737
012737
012737
012737

000000
106436
177376
010000

011406

004737

040242

011414

104401

070426

011412

000405

011420
o] 8}}255

104000
000137

201 011426
202 011434

012737
012737

072060
000001

206 011446
207 011452
208 011456
209 011462
210 011466
211 011472
212 011476

012702
112722
112722
112722
112722
112722
112722

001553
000034
000006
000004
000002
000032
000000

215 011506
011512

004737
000404

043330

011516
011520
549 011524

104000
000137

012252

004737

042774

004737

043672

004737
000404
000240
104000
000137

043060

004737
000405
000240
104000

056572

5}2 81%28%

011514

218
i 011524
220

iy 011530

222

223 011534
011540
011542
011544
011546
55; 011552

226

227 011552
011556
011560
011562

112712

28:

001420
001416
001414
001444

MOV

#C,RMDCO

:CYLINDER = 0

MOV

#WH ! GO,RMCS10

“WRITE HEADER AND DATA COMMAND

MOV
MOV
MOV
MOV

001174
001176

“TRACK = 0, SECTOR = 0
*BUS ADDRESS
:2 + 256. WORDS (2'S COMP}
216 BIT FORMAT

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

012252

EMT
JMP

248

MOV
MOV

#ZEROS , $TMPO
#1,$TMP1

JSR

*GO TO 3% IF NO ERROR

*ERROR # DEFINED BY BADSCT SUBROUTINE
“GO TO 24$ IF ERROR

:STARTING ADDRESS OF PATTERN
*RANGE OF PATTERN

PC ., GENBUF

“GO GENERATE BUFFER FOR FORMAT

:SETUP PARAMETERS AND EXCUTE COMMAND

000200

000240

MOV
#PUTINX ,R2
MOVB . #RMDC, (R2)+
MOVB
'* #RMDA. (R2)+
MOVB #RMBA. (R2)+
MOVB #RMWC. (R2)+
MOVB
#RMOF
. (R2)+
MOVB
#RMCS1.(R2)+

5%:

:R2 = BYTE ENTRY POSITION

MOVB

#200, (R2)

JSR
BR

PC,PUT
5%

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 58 IF NO ERROR

EMT
JMP

248

*ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 24$ IF ERROR

NOP

012252

#0.RMDAO
#BUF ONE , RMBAO
#-258. ,RMWCO
#FMT16,RMOF O

:VERIFY THAT SECTOR IS NOT BAD

582 011442 004737 042174

205

SEQ 0077

:TERMINATE TABLE

*RETURN HERE 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 GET REGISTER STATUS

JSR

6$:

BR
NOP
EMT
JMP

ACBET
6$
248

:VERIFY RESULTS OF WRITE COMMAND

JSR
BR
NOP
EMT

PC.DTASTS
7

;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
:GO TO 24$ IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
“GO TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR
# DEFINED BY DTASTS SUBROUTINE

C
' %RMOBO RMOS5/3/2 FCINL TST 3

WRITE, WRITE (HECK ZEROS

011564

004736

011566

000137

(12252

231 011572
5%% 011600

012737
000410

011602

Sgg 011572
230

MACRO Vv04.00

JSR

JMP

7%:

001124

23‘,

4-APR-81 01:15:59 PAGE 13-7
PC,a(SP)+

SEQ 0078

;GO BACK FOR MORE ERRCR CHECKS

24%

GO TO 24% IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

#8%, SLPERR
9%

:SKIP TO WRITE OPERATION

::ttttttttttttttttttttttttttttttttitttttttt.ttt.'tttttttttttttttt

WRITE ,WRITE CHECK DATA

:LOOP #2

5;2
g%g 011602

239
240 011602

011606

004737
154130

8%:

:PREPARE DEVICE FOR TEST
JSR
PC,TSTPRP

037316

.WORD

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

JVERIFY PACK ACKNOWLEDGE

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

011610

011612
011614
011616

52; 011622

000404

000240
104000
000137

012252

012737

106442

001416

247 011636

012737

000061

001412

246 011630

248 011644
249 011650
250 011654
251 011660
252 011664
253 011670
254 011674

%gg 011700

257 011704
011710
011712
011714
011716
ggg 011722

260

s 011722

262

288 011726

264

012737

177400

012702 001553
112722 000006
112722 000034
112722 000032
112722 000004
112722 000002
112722 000000
112722

:
9%:

243
244 011622
245 011622

B8R
:

004737

042774

004737

043672

24%

:VERIFY RECALIBRATION

:GO TO 9% IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUT INE
:GO TO 24% IF ERROR

:SETUP PARAMETERS AND EXCUTE COMMAND
10%:

001414

MOV

#BUF ONE +4 ,RMBAO

MOV

#\WD ! GO,RMCS10

MOV

000200

004737 043330
000404
000240
104000 .
000137 012252

NOP
EMT
JMP

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

JSR
BR
NOP
EMT
11%:

JMP

#-256. ,RMWCO

#PUTINX ,R2
: #RMDA, (R2)+
#RMDC, (R2) +
#RMOF
., (R2) +
H#RMBA, (R2) +
#RMWC
, (R2)+
#RMCS1,(R2)+
#200, (R2) +

PC,PUT
11%

24%

_
:CHANGE MEMORY ADDRESS

;CHANGE WORD COUNT

:WRITE DATA COMMAND

:LOAD PUT REGISTER INDEX TABLE

;TERMINATE TABLE

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

:SETUP GET INDEX TABLE TN READ ALL REGISTERS

JSR

PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

:GO GET REGISTER STATUS

:GO TO GETSTS SUBROUTINE
:GO TO TIMOUT SUBROUTINE

4 RMOBO RMOS5/3/2 FCINL TST 3

WRITE, WRITE CHECK ZEROS

265 011732

004737

043060

011762

104000
000137

012252

268
269 011750

004737

044056

011756

000240

011736
011740

011744
529 011750

011754

011760
011762

000404
000240

000405

104000
004736

056572

011776

000240

012002

004736

012004

272 012010
273 012010

012014
012016
012020

012022

012024
g;‘sv 012030
276

277 012030

%;g 012036

EMT

104000

004737

044710

104000

004736

;

012737

012040

000410

280

JERROR # DEFINED BY GET SUBROUTINE

24%

;GO TO 24% IF ERROR

;GO TO 13% IF NO ERROR

EMT
JSR

PC,a(SP)+

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

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BR
g

14%:

EMT

JSR

JMP

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

PC,SECERR

. BR
NOP

;GO TO 24% IF ERROR

14%

JSR

15%:

24%

PC,a(SP)+

001124

JRETURN HERE IF ERROR

JSR

JMP

012252

;G0 TO 12% IF NO ERROR
;RETURN HERE IF ERROR

13%

JMP
i
JSR

13%:

000137

;GO READ REGISTER(S) WITH GET SUBROUT INE

12%

EMT

012252

PC,GET

SEQ 0079

;VERIFY RESULTS CF WRITE COMMAND
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY FRRORS

NOP

000137
000405
000240

JMP
e

12%:

004737

012000

JSR

BR
NOP

000137 - 012252

000405

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

NOP

011764
270 011770
271 011770

011774

MACRO V04.00

;ERROR # DEFINED BY DTASTS SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS

248

;GO TO 24% IF ERROR

.
:
;GO CHECK FOR SECONDARY ERRORS

15%

;GO TO 15% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERRCR CHECKS

24%
‘

:GO TO 24% IF ERROR

; CHANGE LCOP ADDRESSES

MOV

#16%,SLPERR

17%

;SKIP TO NEXT OPERATION

:"..‘.’.'."'*‘""..."".'..'....‘.."'..“’.."""'.'.'."."'Q

Sg;

;LOOP #3

ggz 012040

16%:

285
286 012040
012044

004737
154130

012046

000404

012054

000137

012050
012052

ggg 012060
289
290 012060

000240
104000

037316

012252

WRITE CHECK DATA

;PREPARE DEVICE FOR TEST
JSR
PC,TSTPRP
.WORD
154130

17%:

17%

JMP

24%

NOP
EMT

;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 ACM.EDGE
IS SET
'PIP'"
OR
"'SKI'*
:RECALIBRATE IF
RATION
;VERIFY RECALIB

;GO TO 17% IF NO ERROR

;RETURN HERE IF ERROR
;ERRPR # DEFINED BY TSTPRP SUBRM' ITINE

:GO 10 24% IF ERROR

;SETUP PARAMETERS AND EXCUTE COMMAND
18%:

% RMOBO RM0S/3/2 FCTNL TST 3

WRITE, WRITE CHECK ZEROS

MACRO v04.00

e,
4-APR-81 01:15:59 PAGE 13-9

291 012060 012737 000051 001412
292 012066 012702 001553

293 012072
29 012076
295 012102
296 012106
297 012112
298 012116
2& 012122

112722
112722
112722
112722
112722
112722
112712

MOV
MOV

301 012126
012132
012134
012136
012140

004737 043330
000404
000240
104000
000137 012252

JSR
B8R
NOP
EMT
JMP

%8% 012144

304

1 012144

004737

000006
000032
000034
000004
000002
000000
000200

042774

306

b 012150 004737 043672
308

309 012154

004737

043060

012160 000404
012162 000240
012164
104000
012166 000137 012252

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

19%:

#JCD ' GO,RMCS10
#PUTINX.R?

;WRITE CHECK DATA DATA COMMAND
“LOAD PUT REGISTER INDEX TABLE

#RMDA, (R2)+
. (R2)+
WRMOF
#RMDC.(R2)+
#RMBA. (R2)+
. (R2)+
ARMWC
#RMCSi, (R2)+
#4200, (R2)

PC,PUT
19§

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 198 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUT INE
‘GO TO 24% IF ERROR

248

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO GET REGISTER STATUS

JSR

B8R
NOP
EMT
JMP

PC,GET

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

208
248

;GO TO GETSTS SUBROUTINE

208 :

312

:VERIFY RESULTS OF WRITE CHECK COMMAND

012202
012206

104000
004736

315 012212

004737

012222
012224

104000
004736

- 8}55(1’3 000137 012252
012216 000405
012220 000240

056572

012226 000137 012252

316 012232
317 012232

004737

012242
012244

104000
004736

012236 000405
012240 000240

044710

012246 000137 012252

JSR
B8R
NOP

PC,.PRIERR
21%

IMP

24$

;
PC,a(SP)+

JSR

PC.DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC.A(SP)+

:ERROR # DEFINED BY DTASTS SUBROUTINE
16O BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

EMT
JSR

;
PC.a(SP)+

*ERROR # DEF INED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JMP

BR
NOP

g;g 012252

23%:

220 012252
321
322

24$:

;GO CHECK FOR PRIMARY ERRORS
:GO TO 218 IF NO ERROR
*RETURN HERE IF ERROR

EMT
JSR

BR
NOP
22%:

*GO TO 208 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE
*GO TO 24$ IF ERROR

g;? 012172

313 012172 004737 044056
012176 000405
012200 000240

SEQ 0080

JMP

22%

24$
238
24%

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

1GO TO 24$ IF ERROR

160 TO 228 IF NO ERROR
*RETURN HERE IF ERROR

1GO TO 248 IF ERROR

260 TO 238 IF NO ERROR
*RETURN HERE IF ERROR

“GO TO 24% IF ERROR

""‘t"fi't*tfi'fi'i'tt*'t'Q"'tfii!fi'tttt"'..it't.t't'ttIlt't'it't.'

czanoeo RMOS5/3/72 FCINL TST 3

MACRO Vv04.00

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

0D 7
4-APR-81 01:15:59 PAGE 13-10

*TEST 4

WRITE, WRITE

SEQ 0081

CHECK ZEROS W/ WCE

ERROR

2322322323222
2202222 iRt
222232322l

012252

012252
012254
012256
012262
012266
- 012272

000004
000240
012706
013700
013701
012737

t814;

001100
001276
001466
000004 001226

32‘

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK, SP
$RASE , RO
TSTQUE ,R1
#4,STESTN

flQltttttttfitttl'ttt"'t""'tfltt'tt'tfi'it""'.'t"'ttt.t"ttt"

%gz

‘{oop 1

ggg 012300

1$:

329
330 012300

012304

004737

154130

FORMAT ,WRITE,WRITE CHECK DATA

:PREPARE DEVICE FOR TEST
JSR
PC,TSTPRP

037316

.WORD

154130

;

012306 000404
012310 000240
012312 104000
- 012314 000137 013446
332
333 012320

334 012320
335 012326
33 012334
337 012342
338 012350
3313.8 012356
341

:SCOPE CALL
*START OF TEST
:INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
:;SET TEST NUMBER IN APT MAIL BOX

012737
012737
012737
012737
012737
012737

000000
000000
106436
177376
010000
000063

BR
NOP
EMT
JMP

001446
001420
001416
001414
001444
001412

000405

012376

104000

012372

104401

MOV
MOV
MOV
MOV
MOV
MOV
BR

TYPE

- 8}528‘0 000137 013446
012737

072060

348 012430
349 012434
350 012440
351 012444
352 012450
353 012454

112722
112722
112722
112722
112722
112722

000034
000006
000004
000002
000032
000000

“
001174

34 012412 012737 000001 001176
3322 012420 004737 042174
347 012424 012702 001553

:TASK DESCRIPTOR AS FOLLOWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLFAR OPERAJION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI”" OR ‘PIP'* IS SET
:VERIFY_RECAL IBRATION

:GO_TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 29% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2s:

070426

3,3 012404

298
#0,RMDCO
#0,RMDAO
#BUF ONE , RMBAO
#-258. ,RMCO
#FMT16,RMOF O
#uH!GO,RMCS10

:VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

012364 004737 040242
012370

;PREPARE DEVICE FOR TEST

EMT

,SCTMSG

JMP

298 ¢

MOV.

#ZEROS,$TMPO

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RMDC, (R2)+
ARMDA. (R2)+
#RMBA.(R2)+
#RMWC.(R2)+
#RMOF
, (R2) +
#RMCST,(R2)+

MOV
JSR
MOV

#1,$TMP1
PC . GENBUF
#PUTINX ,R2

:CYLINDER = 0
:TRACK = 0, SECTOR = 0
:BUS ADDRESS
12 + 256. WORDS (2'S COMP)
116 BIT FORMAT
*WRITE HEADER AND DATA COMMAND

;CALL BAD SECTOR MODULE
:G0 TO 38 IF NO ERROR

*TYPE BAD SECTOR MESSAGE

*ERROR # DEFINED BY BADSCT SUBROUTINE

*GO TO 29% IF ERROR

:STARTING ADDRESS OF PATTERN

RANGE OF PATTERN
1GO GENERATE BUFFER FOR FORMAT
:R2 = BYTE ENTRY PGSITION

MACRO V04.00

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

ggg 8;5222

112712

000200

355 012464 004737 043330
012470

012472

000240

012476

000137

012474

ggg 012502

000404

104000

MOvB

#200; (R2)

JSR

PC,PUT

NOP
EMT

013446

5%:

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

JMP

SEQ 0082

;TERMINATE TABLE

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

JERROR # DEFINED BY PUT SUBROUT INE

29%

;GO TO 29% IF ERROR

359
350 012502

004737

042774

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

361
362 012506

004737

043672

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

3646 012512

004737

043060

012520
012522

000240
104000

363

012516
012524

3322 012530
. 367
368 012530

012534
012536

012540
012542

012544

267:8 012550

371

372 012550
%;2 012556

000404

000137

013446

004727

056572

000405
000240

000137

013446

6%:

012564

012566
012570
012572
8}52(7)8

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT

;

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

JMP

012737
000410

012560

29%

BR
NOP

JSR

PC,a(SP)+

JMP

7%:

001124

;GO TO 6% IF NO ERROR
;GO TO 29% IF ERROR

29%

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

;ERROR # DEF INED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

381 012560

PC,GET

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

380

JSR

EMT

-;LOOP #2

;;g 012560

QIry

;GO EGT REGISTER STATUS

104000

004736

375

%;9

;GO TO TIMOUT SUBROUT INE

#8%,SLPERR
9%

AR RN AR AR AR AR R AR

;SKIP TO WRITE OPERATION
AR R RR AR RRRARR R AR A RNRRN AR AR R AR AR A AR

WRITE,WRITE CHECK DATA

8%:

004737

154130

000404
000240
104000
000137

037316

013446

;PREPARE DEVICE FOR TEST
JSR

.WORD

BR
NOP
EMT
JMP

PC,TSTPRP

154130

9%
29%

;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

;RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 29% IF ERROR

(————

CZRMOB() RMOS5/3/2 FCINL TST 3

CZRMOBO RMOS5/372 FCTNL TST 3

MACRO v04.00

WRITE, WRITE CHECK ZEROS W/ WCE ERROR

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

SEQ 0083

\I\I\IVR’I\JVV\J\‘

~
n nononOND
n rnororoN n

sl
v

e (o (o

il s
i

il sl il
il

[

012656

LASLAS IS ST N I NTNT N TN TN 1,8)

;SETUP PARAMETERS AND EXCUTE COMMAND

177400
106442

000061
001553
000006
000034
000032
000004
000002
000000
000200

001 414
001 416
001 412

10%:

MOV

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#-256. ,RMWCO

#BUF ONE +4 , RMBAO

#\uD ' GO,RMCS10
#PUT
INX ,R2
#RMDA, (R2)+
ARMDC.(R2)+
. (R2)+
ARMOF
A#RMBA. (R2)+
WRMWC
. (R2)+
#RMCST, (R2)+
#200, (R2)+

s CHANGE WORD COUNT
; CHANGE MEMORY ADDRESS
JWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

;TERMINATE

TABLE

012662
012666
012670
012672
012674
G12700

004737
000404
000240

043330

000137

013446

012700

004737

042774

012704

004737

043672

012710
012714
012716
012720
012722
407 012726

004737
000404
000240

043060

000137

013446

;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
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUT INE
JMP
29%
;GO TO 29% IF ERROR

004737
000405

044056

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

408
409
410 012726

NIV
NN &H

104000

e
o

358

i o
e
o o

415

2774
2776

11%:

JSR

013446

004737
000405
000240
104000
004736
000137

056572

JSR

004737
000405
000240

044710

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

;GO TO 29% IF ERROR

PC,GETSTS

PC, TIMOUT

;GO TO GETSTS SUBROUTINE

;GC TO TIMOUT SUBROUTINE

13$

;GO TO 138 IF NO ERROR

JMP

:
PC.a(SP)+
298

13%:

;GO TO 29% IF ERROR

JSR
BR

PC.DTASTS
14%

JSR
JMP

PC,a(SP)+
29%

14%:

JSR
BR

PC,SECERR
15§

JSR

PC.A(SP)+

NOP
EMT

013446

;GO TO 118 IF NO ERROR

NOP
EMT
JSR

104000

004736
000137

29%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

12%:

NOP
EMT

013446

:WAIT FOR COMMAND TO COMPLETE

104000

004736
000137

NOP
EMT
JMP

PC,PUT

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

000240

) e

purd

n
~

[slaelelslelelelolelelele]

012732
012734
012736
012740

104000

JSR

15%:

JMP

29%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 14$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 29% IF ERROR
;GO CHECK FOR SECONDARY ERRORS

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

CZRMOBO RMOS/3/2 FCTNL TST 3

WRITE, WRITE

MACRO v04.00

CHECK ZEROS W/ WCE ERROR

416

417

418 013006

012737

013014

001124

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

SEQ 0084

: CHANGE LOOP ADDRESSES

MOV

#16S,SLPERR

420

::'t't.'tt'..’i"Q't.t'ti't'tt‘t't.t'.'.'ti"'""t"fit't‘..'t""t

-{00P #3

423 013014

168$:

425 013014

426 013020

428

429 013024

013030

012703

000001

004737

037316

050337

154130

107440

178:

WRITE CHECK DATA

MOV

BIS

#1.R3

:PREPARE DEVICE FOR TEST
JSR

WORD

:R3+WCE BIT POSITION

R3.BUFTWO-2
PC,TSTPRP

154130

*CHANGE LAST WORD GF BUFFER

;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 VAL ID
*VERIFY PACK ACKNOWLEDGE

013032

000404

013040

000137

013446

188:

012737
012702
112722

000051
001553
000006

438 013066
439 013072

112722
112722

000034
000004

441 013102
442 013106

112722
112712

000000
000200

444 013112

004737

043330

013120
013122

000240
104000

001412

198

437 013062 112722 000032

000404

000137

013446

004737

042774

oo 013134

004737

043672

451
452 013140

004737

043060

447

g 013130

449
[

013144
013146

298

GO TO 29% IF ERROR

000404
000240

MOV
MOV
MOVB

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

MOVB
MOVB

ARMDC.(R2)+
WRMBA. (R2)+

MOVB
MOVB

ARMCST, (R2)+
#200, (R2)

MOVB

440 013076 112722 000002

013124

JMP

RETURN HERE IF ERROR
*ERROR # DEF INED BY TSTPRP SUBROUTINZ

:READ DATA FROM DEVICE

433 013044
434 013044
435 013052
436 013056

445 013130

188

NOP
EMT

432

G13116

:WRITE CHECK DATA DATA COMMAND
“LOAD PUT REGISTER INDEX TABLE

#RMOF
. (R2)+

MOVB ARMWC, (R2)+
JSR

208

298

NOP
EMT

208:

PC,PUT

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

G0 TO 208 IF NO ERROR

RETURN HERE IF ERROR
ERROR # DEF INED BY PUT SUBROUT INE

GO TO 29% 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 CHECK DATA OPERATION
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP

21§

GO TO 218 IF NO ERROR
*RETURN HERE IF ERROR

430 013044

000240
104000

013034
013036

OR 'PIP'* IS SET
*RECALIBRATE IF ‘'SKI'*
*VERIFY RECALIBRATION
GO TO 188 IF NO ERROR

CZRMOBO RMOS5/3/2 FCINL TST 3

WRITE, WRITE

013150

MACRO v04.00

CHECK ZEROS W/ WCE

104000

000137

(13446

456 013156

004737

044056

013172

457 013176
458 013176
439 013204

000137

013446

032737
001030

040000

461 013206

004737

056572

013214
013216
013220
013222

000240
104000
004736
000137

013446

463 013226

013737

001348

001140

465 013242

013737

001346

001142

455

13162
013164
013166
013170

013212

462 013226
464 013234

466 013250
467 013254

468 013262

469 013264
470 013266
471 013266

013276
013302
013306
013310
013312
013314

472 013320
473 013320
474 013326

000405
000240
104000
004736

000405

052737

010337
012737

104337

040000

001174
107440

218:

112737
004737
000404
000240
104000
000137

000022

000200
043060

JSR

001346

23s:

G0 T0 298 IF ERROR

22%

PC,a(SP)+

BIT
BNE

#WCE,RMCS2I
248

;WAS ‘WCE'* DETECTED??
SYES!!

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+
29§

:RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
G0 TO 298 IF ERROR

29§

001524

001525

013446

001140
:

001142

489 013412

004737

044710

238

NOP
EMT
JSR
P

25%:

001134
001136
001136
001136

26$:

27%:

G0 TO 29% IF ERROR

G0 TO 238 IF NO ERROR

MOV

RMCS2I,SGDDAT

:EXPECTED STATUS

MOV

RMCS2I,$BDDAT

;RECEIVED STATUS

MWCE,SGDDAT

MOV
MOV
)
48:

;GO CHECK FOR PRIMARY ERRORS

:G0_TO 228 IF NO_ERROR
:RETURN HERE IF ERROR
‘ERROR # DEF INED BY PRIERR SUBROUT INE
GO BACK FOR MORE ERROR CHECKS

BIS

001176

476 013340
477 013346
478 013354
479 013362
480 013370
481 013372
482 013374
483 013376
484 013404
485 013406
486 013410

000405
000240

228:

001140

001142
001140

013416
013420

;ERROR # DEF INED BY GET SUBROUTINE

PC,PRIERR

001360
107440
001140
107440
001342
0000C2
001134

487 013412

298

BR
NOP
EMT
JSR

013737
013737
040337
012737
013737
162737
023737
001402
104340
000424
023737
001402
104341
000416

475 013334

JMP

SEQ 0085

:CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION

000470
112737

4-APR-81 01:15:59 PAGE 13-14
EMT

013152

433 013156

ERROR

EMT

R3,S$TMPO
#BUFTWO-2,$7MP1
.

MOVB

MOVB
JSR
BR
NOP
EMT
JMP

337

:FAILING BIT POSITION
:FAILING ADDRESS

29%

#RMDB,GETINX

#200,GETINX+1
PC,GET
25§

298

;SETUP GET INDEX TABLE

:SETUP TERMINATOR BYTE
GO READ RMDB VIA GET SUBROUTINE
G0 _TO 25$ IF NO ERROR
*RETURN HERE IF ERROR
:ERROR DEFINED BY GET SUBROUTINE
G0 TO 29% IF ERROR

MOV
MOV
BIC
MOV
MOV
SUB
(MP
BEQ
EMT
BR
(MP
BEQ
EMT
BR

RMDBI,SBDDAT
BUF TWO-2,S$GDDAT

;RECEIVED DATA
:EXPECTED DATA

#BUF TWO-2, SGDADR
RMBAI,SBDADR
#2,SBDADR
$GDADR,SBDADR
26%
340
298
SGDDAT.SBDDAT
27%
341
298

;EXPECTED ADDRESS
*RECEIVED ADDRESS
:ADJUST BUS ADDRESS
:ADDRESSES OK??
SYES!!

JSR

PC,SECERR

BR
NOP

R3,SGDDAT

288

:DATA 0K??
FYES!!

;G0 CHECK FOR SECONDARY ERRORS

G0 TO 288 IF NO ERROR
JRETURN HERE IF ERROR

CZRMOBO RMOS/3/2 FCINL TST 3
14

WRITE,

WRITE

013422
013424

104000
004736

013426

490 013432

491 013432
492 013436
493 013440
494 013442

295 013446

489

CHECK

ZEROS W/ WCE

000137

013446

040337
006303

107440

001402
000137

MACRO v04.00

ERROR

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

28%:

013020

29%:

EMT
JSR

PC,a(SP)+

BIC
ASL

R3,BUF TWO=2
R3

JMP

BEQ
JMP

29%

SEQ 0086

;ERROR # DEF INED BY SECERR SUBROUTINF
;GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

RESTORE DATA PATTERN
sSHIFT TO NEXT BIT

29%
17%

EXIT IF DONE
JREPEAT TEST FOR NEXT DATA BIT

:;tattttttttttttttttttQttttittttttttttttttttttttttttt.tnttttttttt
WRITE, READ ONES

;*TEST S

_;:.Qtttt'tttttttttttttt'ttttttttttttttitt*ttttttttt'tttt't.tt'ttl

013446
013446
013450

000004
000240

sika C13466

012737

013452
013456
013462

012706
013700
013701

TSTS:

001100
001276
001466

0C0005

SCOPE
NOP

MOV
MOV
MOV

001226

MoV

#STACK,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

1,99

;:ttttttt.t!tttttttttt'tt'itt.nttt'tti'it'ttnttttttttttttttttttt'

28?

:LOOP #1

gg% 013474
504

505 013474
013500

:
004737
154130

FORMAT ,WRITE ,READ

1%:
:PREPARE THE DEVICE FOR TEST

037316

JSR
.WORD

PC,TSTPRP
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

013502
013504

000404
000240

506 013510

000137

013506

507
508 013514

509 013514
510 013522
511 013530
512 013536
513 013544
g}lé 013552
516

013560

013564
013566
013572

013574

517 013600

104000

000000
000000
106436
177376
010000
000063

004737

040242

000405
104401
104000

000137

JMP

25%

001446
001420
001416
001414
007444
001412

;ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 25% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2%:

MoV
MoV
MOV
MoV
MOV
Mov

#0,RMDCO
#0,RMDAO
#BUF ONE ,RMBAO
#-258. ,RMWCO
#FMT16 ,RMOFO
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

3%:

;CYLINDER = 0
;TRACK = 0, SECTOR = 0
:BUS ADDRESS
;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

JMP

25%

;G0 TO 25% IF ERROR

BR
TYPE
EMT

070426

014454

EMT

014454

012737
012737
012737
012737
012737
012737

BR
NOP

;RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR

3%
.SCTMSG

;GO TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

g b4 RMOBO RMOS5/3/2 FCTNL TST 3
5
WRITE, READ ONES

518 013600

519 013606
gg? 013614

522

523 013620

524 013624
525 013630

526 013634

527 013640
528 013644
5§29 013650
530 013654
2%; 013660

012737

072016

012737
004737

(€00001
(42174

012702

001553

112722

000004

112722
112722

000002
000032
000000
000200

533
534 013660

004737

043330

13670

104000

013672

ggg 013676
537

000404
000240

000137

004737

042774

539
i 013702

004737

043672

004737

:
043060

013720

222 013724
545
546 013724

013730
013732
13734
013736

013740

gzg 013744

549
550 013744
gg} 013752

000404

000240
104000

MOV

MOV
JSR

014454

004737
000405
000240
104000
004736

056572

#PUTINX ,R2

MOVR

H#RMBA, (R2) +

4$:

MOVB
MOVR
MOVB
MOVR

014454

012737
000410

013754

SEQ 0087

:STARTING ADDRESS OF PATTERN

sRANGE OF PATTERN
:GO GENERATE BUFFER FOR FORMAT

JMP

25%

5%:

:SETUP GET INDEX TABLE

JSR

H#RMWC
, (R2) +
#RMOF
, (R2) +
#RMCS1, (R2)+
#200, (R2)

BR
NOP
EMT

:R2 = BYTE ENTRY POSITION

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

:FORMAT THE DRIVE
JSR
PC,PUT

:TERMINATE TABLE

:GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 58 IF NO ERROR
;RETURN HERE IF ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

:GO TO 25% IF ERROR

TO READ ALL REGISTERS

PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE
JSR «
PC,TIMOUT

;GO TO GETSTS SUBROUT INE
:GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR FORMAT OPERATION
JSR
PC,GET
:GO READ REGISTER(S) WITH GET SUBRCUTINE
BR
63
:GO TO 6% IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
:ERROR # DEF INED BY GET SUBROUTINE
6%:

JMP

25%

:GO TO 25% IF ERROR

:VERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
:GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT

000137

#ONES ,$TMPO

#1,8TMP1
PC, GENBUF

MOV

MOVB
MOV8

000137

4 L
4-APR-81 01:15:59 PAGE 13-16

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

014454

013676

541
542 013706
013712
013714
013716

001174

001176

000034
000006

112722
112722
112722
112772

013664
013666

MACRO Vv04.00

JSR

7%:

001124

JMP

PC,a(SP)+

25%

:GO TO 7% IF NO ERROR
:RETURN HERE IF ERROR
“ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 25% IF ERROR

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

:SKIP TO WRITE OPERATION

SSS

;"ttttttttitttttttttttttttt'tttt'.ttt!tt'itl‘ltttlt't"tlt'tttttt

22;

:LOOP #2

556 013754
557
558
559

8%:

WRITE ,READ

;PREPARE DEVICE FOR TEST

4 RMOBO RMOS5/3/2 FCINL TST 3
T5
WRITE, READ ONES
,

560 013754
013760

004737
154130

MACRO Vv04.00

JSR

037316

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

LWORD

PC,TSTPRP

154130

SEQ 0088

;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 NCT VALID
JVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
013762
013764
013766
013770
561 013774

562
563
564 013774
565 013774
566 014002
567 014010
568 014016
569 014022
570 014026

571
572
573
574
575

104000

000137

NOP

014454

012737
012737
012737
012702
112722
112722
112722
112722
112722

112722

014454

004737

042774

004737

043672

004737
000404
000240

043060

000137

014454

e
—d

—

h ok

FIT ok 2F 2P o F o

N_a..a—i—;?
nNOVSNO

000137

043330

JMP

104000

MOV
MOV

000061
001553
000006
000034
000032
000004
000002
000000
0002C0

004737
000404
000240

587
588
589 014122

9%:

106442
177400

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

585

EMT

25%

;VERIFY RECALIBRATION
;GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO T0 25% IF ERROR

%gglre DATA TO THE DRIVE

(elelelelole]

576

014032
014036
014042
014046
014052

000404
000240

044056

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

#WD ! GO, RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC.(R2)+
#RMOF
. (R2)+
#RMBA. (R2)+
#RMWC. (R2)+

;WRITE DATA. COMMAND
;LOAD PUT REGISTER INDEX TABLE

MOVB

#200, (R2)+

: TERMINATE TABLE

MOVB
JSR

B8R

NOP
EMT

11%:

JMP

#RMCST.(R2)+
PC,PUT

11$

258%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 118 IF NO ERROR
sRETURN HERE IF 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 SUBROUTINE

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR WRITE COMMAND
JSR

B8R

NOP
EMT

12%:

JMP

PC,GET

12§

25%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 12% IF NO _ERROR
;JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% IF ERRCR

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

B8R

13§

EMT
JSR

PC,a(SP)+

NOP

014454

#BUF ONE +4 , RMBAO
; CHANGE MEMORY ADDRESS
#=256. ,RMWCO
; CHANGE WORD COUNT .

JMP

25%

;GO TO 13% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

|
]

%%RMOBO RMOS/3/2 FCTNL TST 3
WRITE, READ ONES

MACRO v04.00

R
4-APR-81 01:15:59 PAGE 13-18

SEu 0089

590 014142
591 014142
014146
014150
014152
014154
014156
592 014162
§93 014162
014166
014170
014172

014174
014176
594 014202
595
596
597 014202
598 014210
599
600
601
602
603 014212
604
605
606 01

004737
000405
000240

13%:

056572

104000

004736
000137

014454

004737

044710

000405
000240
104000
004736
000137

012737
000410

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,R(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

JMP

NOP
EMT
JSR

014454

014212

JSR

JMP

15%:

001124

14$

25%

‘GO TO 258 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

15%

:GO TO 158 IF NO ERROR

PC,a(SP)+
25%

:GO TO 258 IF ERROR

:CHANGE LOOP ADDRESSES
MOV
#16%,SLPERR

:GO TO 14$ IF NO ERROR

178

:RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:SKIP TO NEXT OPERATION

.': l'ttt’tt*.'tttfitt*fi.'tittl"ttttttti'ttttttttttt!ttttttttttt;tttt

READ

:LOOP #3

16%:

004737
154130

:PREPARE DEVICE FOR TEST
JSR

037316

.WORD

PC,TSTPRP

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

*RECALIBRATE IF ''SKI''
OR 'PiP'* IS SFT
000404
000240

NNNNQNNNNN
n

737

d =D

e —d —d =2 QOO

612 014240

b d e e ok
o

611 014232

17%

EMT
JMP

25%

NOP

014454

17%:

:VERIFY RECALIBRATION

107446
000071
001553
000006
000032
000034
000004
000002
000000
000200

043330

001416
001412

MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

‘JSR
BR

NOP

#BUF TWO+4 , RMBAD
#RD ! GO,RMCS10
#PUT INX,R2
#RMDA, (R2)+
#RMOF, (R2)+
ARMDC,(R2)+
#RMBA, (R2)+
WRMWC,(R2)+
#RMCST1, (R2)+
#200, (R2)

PC.PUT
19%

:GO TO 178 IF NO ERROR
*RETURN HERE IF ERROR

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

%QEAD DATA FROM DEVICE

— e

610 014232

— ik

607

000137

:CHANGE MEMORY ADDRESS
:READ DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 198 IF NO ERROR
*RETURN HERE IF ERROR

CZRMOBO RM0S5/3/2 FCTINL TST 3

WRITE, READ ONES

014316
014320
623 014324

104000

000137

014454

014324

004737

042774

014330

004737

043672

004737
000404
000240

043060

000137

014454

004737
000405
000240

044056

624

625

6
627
628

629
630 014334
014340
014342
014344
014346
631 014352
63
63
634 514352
014356
014360
014362
014364

014366
635 014372
636 014372
014376
014400
014402
014404
014406
637 014412
638 014412
014416
014420
014422
014424

014426

639 014432
640 014432
C14436

014440
014442
014444
014446

014450
641 014454
642
643 014454

104000

004736
000137

014454

004737
000405
000240
104000
004736
000137

056572

004737
000405

044710

014454

MACRO Vv04.00

19%:

EMT
JMP

JSR

014454

004737

042432

JSR

PC,GETSTS

PC, TIMOUT

.GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUT INE

:GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
208
;GO _TO 208 IF NO ERROR
.
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
25%
JMP
;GO TO 25% IF ERROR
‘

208:

;CHECK FOR ERRORS DURING READ OPERATION
PC.PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
21§
BR
;GO TO 218 IF NO ERROR
NOP
sRETURN HERE IF ERROR
T
EM
;ERROR # DEF INED BY PRIERR SUBROUT INE
218:

JSR
JMP

PC.a(SP)+
258

;GO BACK FOR MORE ERROR CHECKS

JSR

PC.DTASTS

NOP
EMT
JSR

228

GO VERIFY RESULTS OF DATA TRANSFER
GO TO 228 IF NO ERROR

PC,a(SP)+

25$

;ERROR # DEFINED BY DTASTS SUBROUTINE
G0 BACK FOR MORE ERROR CHECKS

;G0 TO 25% IF ERROR

JSR

PC,SECERR

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

22%:

JMP

JSR

23%:

238

PC.a(SP)+

JMP

258

JSR
.WORD
"WORD

PC, CMPBUF
+4
BUFONE
BUF TWO+4

BR
014454

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

25%

;WAIT FCR COMMAND TO COMPLETE

NOP
EMT

004736
000137

SEQ 0090

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

000240
104000

106442
107446
000404
000240
104000
000137

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

NOP
EMT

24%:

JMP

248

25%

;GO TO 25% IF ERROR

RETURN HERE IF ERROR

;GO TO 25% IF ERROR

;GO COMPARE WRITE, READ DATA BUFFERS

:STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER

<G00 TO 24$ IF NO ERROR
*RETURN HERE IF ERROR

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

25%:

644
645

::ttit*tttttttttttttttit'*tt*ttttfi'i*tt"ttttttfiittit'tt.ttfitt'lt

WRITE, WRITE CHECK ONES

S*TEST 6

*'*tttitfltitttttQ'lt*t'tttt*ttfittfit*ttttittttit*ittttt'l'ltt!lt

014454
014454
014456

000004
000240

t416:

SCOPE
NOP

:SCOPE CALL

;START OF TEST

| CZRMOBO RMOS5/3/2 FCTNL TST 3

WRITE, WRITE CHECK ONES

014460
014464
014470
g 014476

012706
013700
013701
012757

001100
001276
001466
000006

MACRO v04.00

4-APR-81

MOV
MOV
MOV
MOV

001226

6[,7

01:15:59 PAGE 13-20

#STACK,SP
$BASE , RO
TSTQUE ,R1
#6,STESTN

SEQ 0091

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

ttttttt'iti*fit".ttt""ti*'tlttti't't.'tfi.'tt!ttt"'t!"tt"'t

648

‘Loop 1

650 014502

18:

652

653 014502

014506

004737

154130

:PREPARE

037316

FORMAT ,WRITE ,WRITE CHECK DATA

THE DEVICE FOR TEST

JSR

.WORD

PC, TSTPRP

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

:RECALIBRATE IF ''SKI'°
OR ‘PIP* IS SET

014510

014512
014514
g5 014516
655
656 014522

657 014522
658 014530
659 014536
660 014544

661 014552
662 014560

664

000404

000240
104000
000157

012737
012737
012737
012737

012737
012737

BR
015432

000000
000000
106436
177376

040242

014574
014600
014602

104401
104000
000137

070426

666 014606
667 014614
668 014622

012737
012737
004737

072016
000001
042174

670
671 014626
672 014632

012702
112722

001553
000034

674 014642
675 014646
676 014652
677 014656
678 014662

112722
112722
112722
112722
112712

000004
000002
000032
000000
000200

665 014606

673 014636

679 014666

680
681

112722

MOV
MOV
MOV
MOV

010000 001444
001412

004737

000405

001446
001420
001416
001414

MOV
MOV

#0,RMDCO
#0.RMDAO
#BUFONE ,RMBAO
#-258. ,RMWCO

AFMT16.RMOFO
#WH'GO.RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

015432

000006

248

001174
001176

:VERIFY_RECALIBRATION

:GO _TO 28 IF NO ERROR

RETURN HERE IF ERROR
*ERROR # DEF INED BY TSTPRP SUBROUTINE
GO TO 24$ IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
2s:

000063

014566

014572

NOP
EMT
JMP

38:

TYPE
EMT
JMP

MOV
MOV
JSR ~

,SCTMSG

WONES,STMPO
#1,STMPT
PC.GENBUF

:CYLINDER
= 0
:TRACK
= 0, SECTOR
= 0
:BUS ADDRESS
;2 + 256. WORDS (2'S COMP)

116 BIT FORMAT
*WRITE HEADER AND DATA COMMAND
:CALL BAD SECTOR MODULE

16O TO 3% IF NO ERROR

*TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUTINE
GO TO 24$ IF ERROR

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

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
HPUTINX,R2
:R2 = BYTE ENTRY POSITION
MOVB
#RMDC, (R2)+

MOVB #RMDA. (R2)+

48:

MOVB
MOVB
MOVB
MOVB
MOVB

#RMBA.(R2)+
#RMWC.(R2)+
ARMOF
. (R2)+
WRMCST,(R2)+
#200, (R2)

:FORMAT THE DRIVE

|
; TERMINATE TABLE

_
‘

CZPMOBO RMOS/3/2 FCTINL TST 3

WRITE, WRITE CHECK ONES

Té

682 014666
014672
014674
014676
014700
683 014704
684
685
014704
686
687
014710
688
689
690 014714
014720
014722
014724
014726
691 014732
692
693
694 014732
014736
014740
014742
014744
V14746
695 014752
696
697
698 014752
699 014760

004737

MACRO v04.00 4-APR-81 01:15:59 PAGE 13-21
8

043330

JSR

015432

S%:

NOP
EMT
JMP

243

:WAIT FOR COMMAND TO COMPLETE

043672

JSR

;GO WRITE RE GISTER(S) WITH PUT SUBROUT INE

;GO TO 58 IF NO ERROR

;RETURN HERE IF _ERROR
;ERROF. # DEF 1 NED B8Y PUT SUBROUT INE

;GO TO 248 | F

ERROR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT CPERATION

043060

JSR
BR

PC,GET
5%

;GO READ REGISTER(S) WITH GET SUBROUT INE

JMP

248

*ERROR
# DEF INED BY GET SUBROUTINE
GO TO 24$ IF ERROR

NOP
EMT

015432

6%:

:VERIFY NO ERRORS DURING FORMAT

056572

GO TO 6% IF NO ERROR

*RETURN HERE IF ERROR

JSR
BR

PC.DTASTS
78

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR
JMP

PC,a(SP)+
248

;GO BACK FOR MORE ERROR CHECKS

NOP

014762

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUT INE

042774

015432

PC,PUT

SEQ 009¢

;GO TO 78 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO TO 24% IF EPROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
BR

#8S$, SLPERR
9¢

sSKIP TO WRITE OPERATION

i"'"'Q.t'.ttt."t.""i'.'..'.fi't'..'.'t.'ttt.'t"i""tt't.ttt

LOOP #2

WRITE ,WRITE CHECK DATA

8%:
707
708 014762

014766

004737
154130

037316

:PREPARE DEVICE FOR WRITE OPERATION
“JSR

.WORD

PC,TSTPRP

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,_

:RECALIBRATE IF “'SKI*

—

014770
014772
014774
.
014776
709 015002

EMT
JMP

248

NOP

015432

9%:

;WRITE DATA TO THE DRIVE

:VERIFY RECALIBRATION

OR 'PIP' IS SET

:G0_TO 98 IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE
60 TO 248 IF ERROR

015050
015054
015060

R <8 FNIIRRNEFREERNSHRE

8 soocon

—
D —d e
)
—_—

NN
— =

)

—

e
e
d ek b

Vi
i

elelelelsle]

D
D e
e
e
e
el o

Vi
OR

Mova

#BUF ONE +4 ,RMBAD

#-256. ,RMWCO
#uD !GO,RMCS1D
#PUTINX ,R2
#RMDA, (R2) +
#RMDC
, (R2) +

SEQ 0093

; CHANGE MEMORY ADDRESS
s CHANGE WORD COUNT
;WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMOF
,
(R2)
+

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

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

JSR

015432

004737

042774

004737

043672

004737

043060

015432

044056

015432
056572

BR
NOF

EMT
11%:

JMP

JSR

044710

JSR

248

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 11$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INF
;GO TO 24% IF ERROR

PC,GETSTS

PC,TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
B8R
128
;GO TO 128 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUT INE
12%:

JMP

24%

;GO TO 248 IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
8R
13§
;GO TO 138 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEF INED BY PRIERR SUBROUT INE
13%:

JSR

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JMP

B8R

14%:

14$

;GO TO 24% IF ERROR

;GO TO 148 IF NO.ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
3

K FOR_MORE ERROR CHECKS

PC,a(SP)+

24%

;GO TO 248 IF ERROR

JSR

PC,SECERR

:GO CHE%K FOR SECONDARY ERRORS

JMP

B8R

15%:

24$

JSR

NOP

015432

11$

sWAIT FOR COMMAND TO COMPLETE

NOP
EMT

015432

PC,PUT

; TERMINATE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

740
741

d cd o

d e

d o

niinn

[elelelelelolelolelololololelolelelele
el

FHR

NN~

739

MOV
MOV
MOV
MoV
MOVB

015070
015072
015074
015076
726 015102

737

043330

015064

727
728

MACRO v04.00 4-APR-81 01:15:59 PAGE 1?-22

NNNNN%NNNN‘U
n

721
722
723
724
725

ol b oD o

vl il il i wnld

712 015002

D 9

ggmmo RMO5/3/2 FCINL TST 3
WRITE, WRITE CHECK ONES

EMT
JSR
JMP

15§

PC,a(SP)+
24$

IF ERROR

EF INED BY SECERR SUBROUT INE
OR MORE ERROR CHECKS
IF ERROR

CZRMOBO RM05/3/2 F(TME IST 3
WRITE, WRITE

012737
000410

HEC K ONES

(15220

MACRO v04.00 4-APR-81 01:15:59 PAGE 12-23
D

001124

SEQ 0094

;CHANGE LOOP ADDRESSES
MOV
BR

#16% ,SLPERR

:SKIP TO NEXT OPERATION

17%

:.'l'tt't.....tt!...'.".""'t.'.'t.t""'ttttttt.tttt"tttttt'..

:LOOP #3
16%:

751 015220
752

753

754 015220

015224

WRITE CHECK DATA

004737
154130

:PREPARE DEVICE FOR WRITE CHECK DATA OPERATION

037316

JSR
.WORD

PC,TSTPRP

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

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

015226
015230
015232
_
0152%
755 015240

000404

000240
104000

000137

015432

17%:

756

001412

wd el

b wd

12737
12702
12722

2722
2722
2722
2722

12722
112712

000200 *

004737

043330

104000
000137

015432

042774

043672
043060

015432

MOV
MoV

24%

;VERIFY RECALIBRATION

;G0 TO 178 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 24% IF ERROR

19%:

#\WCD !GO,RMCS10
#PUTINX ,R2

;WRITE CHECK DATA DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

MOVB
MOVB
MOVB
MOvB
MovB
MOvB
MovB

#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC
, (R2) +
#RMBA, (R2)+
H#RMWC
, (R2) +
#RMCST, (R2)+
#200, (R2)

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP
EMT

:RETURN HERE IF ERROF

000240

777 015334
015340
015342
015344
015346
778 015352

17%

%ggllf CHECK DATA DATA FROM DEVICE
—e
e OO

757
758 015240
759 015240
760 015246
761 015252
762 015256
763 015262
764 015266
765 15272
766 015276
767 015302
768
769 015306

BR
NOP
EMT
JMP

JMP

198

248

:G0 TO 198 IF NO ERROR

:ERROR # DEF INED BY PUT SUBROUTINE

;GO TO 24% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;WAIT FOR COMMAND 7O COMPLETE

JSR

PC.TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE CHECK DATA OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 208 IF NO ERROR
BR
208
:RETURN HERE IF ERROR
NOP
;ERROR # DEF INED BY GET SUBROUTINE
EMT
20%:

JMP

24%

1GO TO 24$ IF ERROR

CZRMOBO RMOS5/3/2 FCINL TIST 3

vav,

372

;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION
PC.PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
21%
BR
;GO _TO 218 IF NU_ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUT INE

044056

3333

il el s
e vl
e
WD eub

782
783

oo
W

781

Vi
W
oy
n

779
780

elolelololelele)

WRITE, WRITE CHECK ONES

MACRO Vv04.00 4-APR-81 01:15:59 PAGE 1%-24

015432
004737
000405
000240

21%:

056572

104000

784 015412
785 015412

015424
015426
786 015432
787

004736
000137
004737
000405
000240

015432

22%:

044710

104000

004736
000137

015432

23%:

JSR
JMP

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

PC,a(SP)+

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

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

24%

22%

24$

238

PC,a(SP)+
24%

;GO TO 24$ IF ERROR

;GO TO 24% IF ERROR

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

;ERROR # DEF INED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 24% IF ERROR

24%:

788 015432
789

790

':'t'tt'.t't.Qt.ttt'."""tfi.*t'!'lt..i..flt-t"tttt'..tttilt'ttt

LATEST 7

WRITE, WRITE CHECK ONES W/ WCE ERROR

':tt.ttttttfiiti.'tii""‘i'.'t't"t....'.....tttti.fittfit.tttttttt

lelele)

15432
15432
15434

015436
015442
015446
015452

?ST?:

000004

000240
012706
013700
013701
012737

001100
001276
001466
000007

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

SP
#STACK,

$BASE ,RO
TSTQUE ,R1

#7,STESTN

:SCOPE CALL
;START OF TEST
sINITIALIZE STACK POINTER

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

::t!ttt."i'ttttfi.tt'.t""'t'Q'.t.'..Qt"*tt.t'tt.'itlt'tt'it.tt

;LOOP #1

FORMAT ,WRITE ,WRITE CHECK DATA

1%:

795 015460
798 015460
015464

004737
154130

015466
015470
015472
015474
799 015500

000404
000240
104000

000137

037316

016630

;PREPARE THE DEVICE FOR FORMAT OPERATION
PC,TSTPRP
JSR
:PREPARE DEVICE FOR TEST
154130
-WORD
:TASK DESCRIPTOR AS FOLLOWS:

2%:

BR
NOP
EMT
JMP

SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY ‘CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI" OR 'PIP'* IS SET
:VERIFY_RECAL IBRATION
GO TO 28 IF NO ERROR

29%

‘ERROR # DEF INED BY TSTPRP SUBROUTINE
G0 TO 29% IF ERROR

:RETURN HERE IF ERROR

SEQ 0095

CZRMOBO RMO5/3/2 FCINL 1ST 3
17

WRITE, WRITE

MACRO v04.00 4=-APR-81 01:15:59 PAGE 72-25
F

(HECK ONES W/ WCE ERROR

800

801

802 015500

803 015506
804 015514
805 015522
806 015530
ggg 015536
809

012737

000000

004737
000405

040242

012737
012737
012737
012737
012737

000000
106436
177376
010000
000063

001446

;LOAD PARAMETERS AND GENERATE DATA BUFFER

MOV

001420
001416
001414
001444
001412

MOV
MOV
MOV
MOV
MOV

#0,RMDCO

104401
104000
000137

070426

016630

012737

072016

816 015604

012702

001553

821 015630
822 015634
823 015640
ggg 015644

112722
112722
112712

015552
015556
810 8}22&0

811 015564

812 015572
g}z 015600

815

817 015610
818 015614
819 015620
820 015624

826

827 015644

015650
015652
015654

015656
ggg 015662
830

831 015662

832

833 015666

834

835 015672
015676
015700
015702
015704
g;g 015710
838

839 015710

015714
015716

012737
004737

112722
112722
112722
112722

004737

000404
000240

104C00

000001
042174

001176

000032
000000
000200

043330

016630

004737

042774

004737

043672

004737
000404
000240
104000
000137

043060

004737

056572

JMP

29%

MOV

#ONES , $TMPQ

MOV
JSR

MOV

MOVB MOvB
MOVB
MovB

4%:

MOVB
MCVB
mMovB

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

;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUT INE
;GO TO 29% IF ERROR

;STARTING ADDRESS OF PATTERN

#1,8TMP1
PC,GENBUF

;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

#PUT INX ,R2

;R2 = BYTE ENTRY POSITION

#RMOF
, (R2) +
#RMCS1, (R2)+
#200, (R2)

; TERMINATE TABLE

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

;FORMAT THE DRIVE

JSR

BR
NOP
EMT

5%:

JMP

PC,PUT
5%

29%

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

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 29% 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 FORMAT OPERATION

JSR
BR

NOP
016630

sTRACK = 0, SECTOR = 0
;BUS ADDRESS
sWORD COUNT = 1 SECTOR
;16 BIT FORMAT
JWRITE HEADER AND DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

000034
000006
000004
000002

000137

000405
000240

001174

EMT

sCYLINDER = 0

#0,RMDAO
#BUF ONE ,RMBAO
#-258. ,RMWCO
#FMT16,RMOFO
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
3%
TYPE
.SCTMSG

015544
015550

SEQ 0096

EMT

6%:

JMP

PC.GET
6%

29%

JVERIFY NO ERRORS DURING FORMAT

JSR

BR
NOP

PC,DTASTS
7%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 6% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 29% IF ERROR

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

015720
015722
015724
840 015730
841
842
843 015730
844 015736
845

000

137

016630

012737
000410

015740

g3 2

-y

TNL TST 3
MACRO v04.00
WRITE, WRI E CHECK ONES W/ WCE ERROR

CZRMOBO RMOS5/3/2 F

736

846

847
848
849 015740
850
851
852 015740
015744

EMT
JSR

JMP

7%:

001 124

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

PC,a(SP)+

29%

SEQ 0097

JERROR # DEFINED BY DTASTS SUBROUTINEL
;GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
B8R

#8$, SLPERR
9%

':tttt'tt*'k't't*t*lt.t' AR AR

;SKIP TO WRITE OPERATION
AR A AR A AR

WRITE,WRITE CHECK DATA

‘LooP #2

AAAAAAARAAANAAAA

ARSI AN

8%:

004737

154130

037316

;PREPARE DEVICE

JSR

.WORD

FOR WRITE OPERATION
PC,TSTPRP
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
154130

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATICN
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

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

015746
015750
015752
015754
015760

015760
015760
015766
015774
016002
016006
016012
016016
016022
016026
016032
016036

016042
016046
016050
016052
016054
870 016060
871
872
016060
873
874
016064
875

000404
000240
104000

000137

016630

9%:

BR
NOP
EMT
JMP

29%

;VERIFY RECALIBRATION

;GO TO 9% IF NO ERROR

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

;GO TO 29% IF ERROR

;WRITE DATA TO THE DRIVE
10%:
MOV
s CHANGE WORD COUNT
MOV
#BUF ONE +4 ,RMBAO
; CHANGE MEMORY ADDRESS
;WRITE DATA COMMAND
#WD ! GO,RMCS10
MOV
#PUTINX ,R2
MOV
;LOAD PUT REGISTER INDEX TABLE

012737
012737
012737
012702

000200

043330

016630

11%:

MOVB
MOVB
MOVB
MOVB
MOVB
MOVR
MOVB

#RMDA
, (R2) +
#RMDC, (R2) +
#RMOF , (R2)
+
#RMBA, (R2) +
#RMWC
, (R2) +
#RMCS1,(R2)+

JSR
BR
NOP
EMT
JMP

PC,PUT

#200, (R2)+
11%

29%

s TERMINATE

TABLE

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

;GO TO 29% IF ERROR

004737

042774

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

004737

043672

;WAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

;GO TO TIMOUT SUBROUTINE

MACRO v04.00
- CZRMOBO RMQOS/3/2 FCINL TST 3
i4
WRITE, JRITE CHECK ONES W/ WCE ERROR
876

877 016070
016074
016076
016100
016102
878 016106

004737
000404
000240

043060

000137

016630

044056

104000

NNN—‘—'—‘g
oo
N

126

004737
000405
000240

056572

000137

016630

004737
000405
000240

044710

b
e
b
e
e
—

(elelololololélels]

882
883

004737

000405
000240
104000
004736
000137

104000
004736

:CHECK FOR ERRORS DURING WRITE OPERATION

13%:

;GO CHECK FOR PRIMARY ERRORS

JSR
JMP

PC,a(SP)+
29%

;GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRCRS

NOP
EMT

012737

016174

001124

;GO TO 29% IF ERROR

PC,a(SP)+

JMP

JSR
JMP

15%:

;GO TO 13% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE

EMT
JSR

NOP

14%:

13%

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

104000

887
888
889 016166
890
891
892
893
894 016174
895
896 016174
897 016200
898

PC,PRIERR

JSR

016630

SEQ 0098

12%:

NOP
EMT

004736
000137

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

879

880
881

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

14%

;GO TO 29% IF ERROR

29%

;GO TO 158 IF NO ERROR

15%

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

PC,a(SP)+
29%

;GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

; CHANGE LOOP ADDRESSES
MOV

#16%,SLPERR

2222222222220

R22R

2222

Rt Rttt
d S

WRITE CHECK DATA

:LOOP #3
16%:

012703

040337

000001
107440

004737

037316

154130

17%:

000137

BIC

;PREPARE DEVICE

JSR

.WORD

000404
000240
104000

MOV

18%:

R3,BUF TWO=2
FOR WRITE

PC,TSTPRP

154130

18%

EMT
JMP

29%

NOP

016630

#1,R3

CHECK

;R3+WCE BIT POSITION

;CHANGE LAST WORD OF BUFFER

DATA OPERATION

: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

:RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
:VERIFY RECALIBRATION
;GO TO 188 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUTINE
;GO TO 29% IF ERROR

“

000137

016630

004737

042774

004737

043672

004737

043060

000137

016630

004737
000405
000240

044056

ek
d e
b
d

104000

9
922

923 016320
016324
016326
016330
016332

924 016336
925
926
927 016336

016342
016344
016346
016350
016352
928 016356
929 016356
930 016364
931 016366
016372
016374
016376
016400
016402
932 016406
933 016406
934 016414
935 016422
936 016430
937 016434
938 016442

000404
000240
104000

001412

;READ DATA FROM
19%:
MoV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOvB
MOvB

20%:

032737
001030
004737
000405
000240

JSR

013737
052737
013737
010337
012737
104337

20%
29%

sLOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

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

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 29% IF ERROR

PC,GETSTS

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION

001346

016630

107440

PC,PUT

JWRITE CHECK DATA DATA (OMMAND

21%:

22%:

056572

001346
040000
001346
001174

#WCD!GO,RMCS10
#PUTINX
,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +
H#RMWC, (R2) +
#RMCST, (R2)+
#200, (R2)

;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
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
29%
;GO TO 29% IF ERROR

104000

004736
000137

DEVICE

;WAIT FCR COMMAND TO COMPLETE
PC, TIMOUT
JSR

016630
040000

JSR
BR
NOP
EMT
JMP

SEC 0099

sSETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

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

001140
001140
001142
001176

23%:

JSR
BR
NOP
EMT
JSR
JMP

BIT
BNE
JSR
BR
NOP
EMT
JSR
JMP

MOV
BIS
MOV

MOV
MOV

EMT

PC ,PRIERR

22%

PC,a(SP)+

29%

#WCE ,RMCS2]
24%
PC,DTASTS

23%

PC,a(SP)+

29%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 228 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 29% IF ERROR

;egg':UCE" DETECTED??

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 23% IF NO ERROR

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

RMCS21,$GDDAT

JEXPECTED STATUS

RMCSZ2I, $BDDAT
R3,$TMPQ
#BUF TWO=2, $TMP1
337

JRECEIVED STATUS
sFAILING BIT POSITION
sFAILING ADDRESS

#WCE
, SGDDAT

—

043330

— e

16246
16252

n
N

NNNN'&NNN

004737
000404
000240

e e OO

000051
001553
000006
000032
000034
000004
000002
000000
000200

— el

¢
eP

Fis P

OO OO OO

VIBWN—=O

3883 3

MACRO v04.00
CZRMOBO RMO5/3/2 F( TNL 1 ST 3
17
WRITE, WRIT EC HE (K ONES W/ WCE ERROR

{

CZRMOBO RM0S5/3/2 FCINL TST 3

WRITE, WRITE

3438 016444
941 016446

000471
112737
112737
012737

016476
016476

000402
000240

%43 016500
944 016502

945 016502
946 016510

004737

013737
013737

050337
012737

952 016552
953 016554

001402
104340

954 016556
955 016560

956 016566
957 016570
958 016572
823 016574

013737
162737
023737

000424
(23737
001402
104341
000416

961 016574

004737

016604
016606

104000
004736

016600
016602
016610

962 016614

963 016614

964 016620
965 016622
966 016624

ggg 016630

000022
000200
016630

043060

001524
001525
001360

24%:

000405
000240

001140
107440

001342
000002
001134

001140

001142
001140

25%:

MOVB
MOVB
MOV

#RMDB, GE T INX
#200,GETINX+1
#29% ,RMDB 1

sSETUP GET INDEX TABLE
;SETUP TERMINATOR BYTE
;SET RMDB INPUT BUFFER = 29%

BR
NOP

25%

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

001136
001136
001136

001142

26%:

016630

050337

107440

RMBAI , $8DADR
#2,$BDADR
$GDADR, $8DADR

BR
CMP

29%
S$GDDAT, $BDDAT

BEQ
EMT
BR

016640

016644
970 016650

;RESTORE DATA PATTERN

AR AR

371

MOV
MOV

MOV

A AR

974 016656

1%:

975

;GO TO 28% IF NO ERROR
;RETURN HERE IF ERROR

29%

;GO TO 29% IF ERROR

R3
29%
17%

AR AR

AR AR KRR RN

001466
000010

.LOOP #1

28%

sSHIFT TO NEXT BIT
sEXIT IF DONE
;REPEAT TEST FOR NEXT DATA BIT

RR RN

AR RARRA IR R ARRRRRR AR R AR

WRITE, WRITE CHECK MULTIPLE SECTORS

013701
012737

g;%

sYES!!

R3,BUF TWO=2

001100

001226

;DATA 0K??

27%
341
29%

BIS

012706

001276

;YES!

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

SCOPE
NOP
MOV

013700

26%
340

PC,a(SP)+

000004
000240

JRECEIVED ADDRESS
;CORRECT MEMORY ADDRESS
;ADDRESSES 0K??

EMT
JSR

;*TEST 10

TST10:
;

JEXPECTED ADDRESS

;GO CHECK FOR SECONDARY ERRORS

ASL
BEQ
JMP

29%:

R3,$GDDAT
#BUF TWO-2, $GDADR

PC,SECERR

JMP

28%:

JRECEIVED DATA
JEXPECTED DATA

JSR

BR
NOP

016200

sERROR DEFINED BY GET SUBROUTINE

MOV
SUB
CMP

KRR

016632
016634

;GO READ RMDB VIA GET SUBROUTINE

RMDBI , $BDDAT
BUF TWO=-2, $GDDAT

BEQ
EMT

044710

969

016630
016630

PC,GET

MOV
MOV

BIS
MOV

001134

27%:

000137

006303
001402
000137

29%

EMT

001360
107440

SEQ 0100

JSR

104000

947 016516
948 016522

949 016530
950 016536
951 016544

CHECK ONES W/ WCE ERROR

942 016446
016454
016462
016470

MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-29

AR AR

AR AR AR

AR RANRAR AR RAARA

AR RAANR

:
;SCOPE CALL
#STACK,SP

;START OF TEST
JINITIALIZE STACK POINTER

TSTQUE ,R1
#10,8TESTN

;(R1) = DEVICE BEING TESTED
;2SET TEST NUMBER IN APT MAIL BOX

$BASE ,RO

AR AR AR A AR AR

AR AR

RO = UNIBUS ADDRESS

KRR AR AR

AR AR RRRR AR AR AR ARR AR R R C R NN

FORMAT ,WRITE ,WRITE CHECK

$1z R MOBO RM0S5/3/2 FCINL TST 3
0

MACRO V04.00

WRITE, WRITE CHECK MULTIFLE SECTORS

976
977 016656

016662

004737

154130

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

SEQ 0101

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

(37316

.WORD

154130

: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

016664
016666
016670

016672
g;g 016676

000404
000240
104000

BR
NOP
EMT

000137

017634

981 016676
982 016704
983 016712

012737
012737
012737

000000
000000
106436

001446
001420
001416

985 016726
ggg 016734

012737
012737

010000
000063

001444
001412

016742

004737

040242

016750
016754

104401
104000

070426

980

984 016720 012737
988

016746

000405

176774

. 016756

000137

017634

990 016762
991 016770

012737
012737

072060
000001

012702

001553

989 016762

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

017060

004737

112722
112722
112722
112722
112722
112722
112712

004737

000404
000240
104000
000137

004737

042174

000034
000006
000004
000002
000032
000000
000200

043330

017634

042774

2%:

JMP

JRECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO _TO 2% IF NO ERROR

24%

;GO TO 24$% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

001414

MOV
MOV
MOV

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

sCYLINDER = 0
;TRACK = 0, SECTOR = 0
;BUS ADDRESS

MOV
MOV

#FMT16,RMOFO
#WH!GO,RMCS10

;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

MOV

#-258, %2 ,RMWCO

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
3%
TYPE
.SCTMSG
EMT

001174
001176

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

38:

JMP

24%

MOV
MOV

#ZERQS ,$TMPO
#1,8TMP1

JSR

PC,GENBUF

;WORD COUNT FOR 2 SECTORS (2'S COMP)

;CALL BAD SECTOR MODULE

;GO TO 3% IF NO ERROR

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

;GO TO 24% IF ERROR

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

;GO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

MoV

4%:

MOVB
MOvB
MOvB
MOVB
MOV8
MovB
MovB

#PUTINX ,R2

#RMDC, (R2) +
#RMDA, (R2) +
#RMBA, (R2) +
A#RMWC, (R2)+
#RMOF , (R2) +
#RMCS1,(R2)+
#200. (R2)

;FORMAT THE DRIVE
JSR

5%:

BR
NOP
EMT
JMP

PC,PUT

24%

;RZ = BYTE ENTRY POSITION

; 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 24% IF ERROR

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

CZRMOBO WRITE,
RM0S/3/2WRITE
FCINLCHECK
TST MULTIPLE
3 MACROSECTORS
v04.00 4-APR-81 01:15:59 PAGE 1%-31
110
L

1017

1012 017064

004737

(43672

1013
1014 017070

Q04737

043060

017076

000240

017074

017100

017102
}8}2 017106
1017
1018 017106

017112
017114
017116
017120

000404

104000

017634

004737

056572

104000
004736

JSR

EMT

BR
NOP
EMT
JSR

017634

}85% 017126

012737

017200

001124

1025 017134
1026 017142
1027 017150

012737
012737
012737

177000
106436
000060

001414
001416
001412

1030 017172

004737

042174

1024

1028 017156
1029 017164

]'8312 017176

012737
012737
000410

072016
000001

;GO TO TIMOUT SUBROUTINE

24%

;GO TO 6% IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 24% IF ERROR

;VERIFY NO ERRORS DURING FORMAT
JSR
PC.DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

000137

1021

JMP

6%:

017122

;1853 017126

PC, TIMOUT

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

NOP

000137

000405
000240

;WAIT FOR COMMAND TO COMPLETE

SEQ 0102

JMP

7$:

PC,a(SP)+

24%

;GO TO 78 IF NO ERROR
JRETURN HERE IF ERROR

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

;GO TO 24$ IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV

#8% ,SLPERR

;REGENERATE DATA BUFFER

001174
001176

1033

MOV
MOV
MOV

#-256.%2 ,RMWCO
#BUF ONE ,RMBAO

JSR

PC ., GENBUF

MOV
MOV

#\WD ,RMCS10
#ONES , $TMPO
#1,8TMP1

;CHANGE WORD COUNT
; CHANGE BUS ADDRESS
:WRITE DATA

;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;SKIP TO WRITE OPERATION

l’ttt.titttfi'.'itt."fi'f'*'fi*tititti.t'ttt.ttittttttittl’ttttittt

‘}8’3’»;3

LOOP #2

1036 017200
1037
1038

8%:

1039
1040 017200
017204

004737
154130

WRITE ,WRITE CHECK

.PREPARE DEVICE FOR WRITE OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154120
s TASK DESCRIPTOR AS FOLLOWS:

037316

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

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

OR 'PIP'* IS SET
*RECALIBRATE IF ‘'SKI'*
017206
017210
017212
017214

1041 017220

000404
000240
104000
000137

017634

9%:

1042

1043

1044 017220

1045 017220

BR
NOP
EMT
JMP

0%
‘
24%

;VERIFY RECALIBRATION

;GO TO 98 IF NO ERROR
:RETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 24% IF ERROR

;WRITE DATA TO THE DRIVE
012737

000061

001412

108:

MoV

#WD!GO,RMCS10

JWRITE DATA COMMAND

|
.
|

MOBO WRITE,
RMOS5/3/2WRITE
FCINLCHECK
TST MULTIPLE
3 MACROSECTORS
v04.00 4-APR-81 01:15:59 PAGE 12-32
M

CZR
T10

1046 017226

012702

001553

MOV

1048 017236

112722

000034

MOVB

1047 017232

112722

000006

1049 017242
1050 017246
1051 017252

112722
112722
112722

000032
000004
000002

}822 017262

112722

000200

1052 017256

112722

000000

#PUT INX ,R2

MOVB

#RMDA, (R2)+

MOVB
MOVB
MOVB.

#RMOF
. (R2)+
ARMBA.(R2)+
MRMWC
. (R2)+

MOVB

:LOAD PUT REGISTER INDEX TABLE

#RMDC, (R2) +

#RMCST, (R2)+

#200, (R2)+

004737
000404
000240
104000
000137

043330

1058
e 017304

004737

042774

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

1060
i 017310

004737

043672

:WAIT FOR COMMAND TC COMPLETE
JSR
PC, TIMOUT

1062
1063 017314

004737

043060

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

017322
017324

000240
104000

017320 000404
017326

017634

000137

017634

1066
1067 017332

004737

044056

017340
017342
017344

000240
104000
004736

;82? 017332

017336

017346

000405

1068 017352
1069 017352

000137

017634

004737

056572

017360
017362
017364
017366

1070 017372
1071 017372

000240
104000
004736
000137

017634

004737

044710

017400
017402
017404
017406

000240
104000
004736
000137

017356 000405

017376 000405

1072 017412
1073
1074
1075 017412

1076 017420
1077

118:

000410

JMP

248

;GO TO TIMOUT SUBROUTINE

:GO TO 128 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE

*GO TO 248 IF ERROR

13§

PC.a(SP)+
24$

*RETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUSROUTINE
*G0 BACK FOR MORE ERROR CHECKS
160 TO 24$ IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

13$:

B8R

148:

NOP
EMT
JSR
JMP
JSR

017634

017422

128

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
260 TO 118 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUT INE
1GO TO 24$ IF ERROR

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC.PRIERR
:GO CHECK FOR PRIMARY ERRORS

012737

248

B8R

NOP
EMT

12%:

PC,PUT
11$

: TERMINATE TABLE

1055 017266
017272
017274
017276
017300

}829 017304

JSR
BR
NOP
EMT
JMP

SEQ 0103

001124

158%:

NOP
EMT
JSR
JMP

14$

26O TO 148 IF NO ERROR

24$

*RETURN HERE IF ERROR
*ERROR # DEF INED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
‘GO TO 24$ IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC.a(SP)+
24$

*RETURN HERE IF ERROR
‘ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
‘GO TO 24$ IF ERROR

PC,a(SP)+

15%

: CHANGE LOOP ADDRESSES
MOV
#16%, SLPERR

*GO TO 13$ IF NO ERROR

17$

*GO TO 158 IF NO ERROR

:SKIP TO NEXT OPERATION

CZRMOBO WRITE,
RMOS/3/2WRITE
FCINLCHECK
TST MULTIPLE
3 MACROSECTORS
v04.00 4-APR-81 01:15:59 PAGE 1%-33
N

SEQ 0104

{110

1078
1079
1080
1081 017422
1082
1083
1084 017422
017426

':l"ltl’tQtttttfiitttlt"t""‘*"it'.'lttfittttitfittttit..ttttttlttt

WRITE CHECK

‘{oop #3

‘

16%:

004737
154130

:PREPARE DEVICE FOR READ OPERATION
PC,TSTPRP
JSR
:PREPARE

037316

_WORD

154130

DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

017430
017432
017434
017436

1085 017442
1086
1087
1088 017442
1089 017442
1090 017450
1091 017454
1092 017460
1093 017464
1094 017470
1095 017474
1096 017500
1097 017504
1098

004737
000404
000240
1046000
000137

043330

17526

004737

042774

017532

004737

043672

Q&S K& R=8

_——

—

—
——

017536
017542
017544
017546
017550

17%

JMP

24%

17%:

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 24% IF ERROR

%ggAD DATA FROM DEVICE

000051
001553
000006
000032
000034
000004
000002
000000
000200

017514
017516
017520
017522
017526

NOP
EMT

017634

0 12737
0 12702
1 12722
1 12722
1 12722
1 12722
1 12722
112722
112712

1099 017510

—_—

000404
000240
104000
000137

JRECALIBRATE IF ''SKI'' OR "PIP'" IS SET
:VERIFY RECALIBRATION
;GO _TO 17$% IF NO ERRCR
sRETURN HERE IF ERROR

004737
000404
000240
104000

017634

043060

000137

017634

004737
000405

044056

001412

mov

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR
BR

NOP
EMT

19%:

JMP

#JCD!GO,RMCS10

#PUTINX
.R2
#RMDA, (R2)+
ARMOF, (R2)+
#RMDC. (R2)+
#RMBA, (R2)+
ARMWC, (R2)+
MRMCS1,(R2)+
#4200, (R2)
PC,PUT
198

248

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 _TO 198 IF NO ERROR
sRETURN HERE

IF ERROR

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

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE
PC. TIMOUT
JSR

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
20$
BR
;GO TO 20% IF NO ERROR
NOP
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
EMT
24%
JMP
;GO TO 24% IF ERROR

20%:

;CHECK FOR ERRORS DURING READ OPERATION
S%;PRIERR
égn
;GO CHECK FOR PRIMARY ERRORS
;GO TO 21% IF NO ERROR

MACRO v04.00
TST 3
WRITE, WRITE CHECK MULTIPLE SECTORS

(2 R MOBO RM0S/3/2 FCINL

TM 0

017562

B 9
4-APR-81 01:15:59 PAGE 13-34

000240
104000

NCP
EMY

017570 000137 017634

017564

17566

004736

1112 017574
1113 017576

004737

017606

004736

017600
017602
017604
017610

000405
000240
104000

056572

000137

017634

1115 017614

004737

044710

017622
017624
017626
017630
;”9 017634

000240
104000
004736
000137

1114 017614

017620 000405

218:

PC,a(SP)+

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

;ERROR # DEF INED BY DTASTS SUBROUT
INE
;GO BACK FOR MORE ERROR (HECKS

JSR

PC,SECERR

GO CHECK FOR SECONDARY ERRORS

PC,a3(SP)+
248

:RETURN HERE IF ERROR
:ERROR # DEF INED BY SECERR SUBROUT INE
;GC BACK FOR MORE ERROR CHECKS
;GO TO 24$ IF ERROR

1118 017634

24$:

1120

R AR

SRR

R A AR AR AR AR

000004
000240
012706
013700
013701
012737

001100
001276
001466
000011

1122

AR PR AR

'
SCOPE
NOP
MoV
MOV
MOV
MoV

001226

;60 TO 238 IF NO ERROR

AR RN R AR

AR R AR AN AN ANRANARARARANAR AR

WRITE, READ W/ IMPLIED SEEK
AR

YST‘H

;GO TO 24$ IF ERROR

238

S*TEST 11

017634
017634
017636
017640
017644
017650
1121 017654

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

248

NOP
EMT
JSR
JMP

23%:

:GO TO 248 IF ERROR

22%

017634

;GO BACK FOR MORE ERROR (HECKS

248

JMP

22%:

JRETURN HERE IF ERRCR
;ERROR # DEF INED BY P"ILRR SUBROUT INE

JSR

BR
NOP
_

SEQ 0105

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#11,STESTN

R R

AR AR

ANA RN AANR AN R AN

:SCOPE CALL
:START OF TEST
;INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
;:SET TEST NUMBER IN APT MAIL BOX

"titfittttitttttttttttttt'.tt*tt'tttl.ttt'tttttttttttttttttfit‘t

HS:".’

LOOP 1l

HSZ 017662

1%:

1127
1128 017662

017666

004737

154130

FORMAT ,WRITE ,READ

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

037316

.WORD - 154130

: TASK DESCRIPTm AS FOLLOWS:
:SELECT DEVICE
& VERIFY DEVICE AVAILABLE
& SELECT DEVICE
CONTROLLER
:CLEAR
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKMM..EDGE
L

:RECAL IBRATE IF ‘'SKI*

017670
017672
017674

1129 017676

000404
000240
104000

000137

1130

1131 017702

1132 017702
1133 017710

BR
NOP
EMT

021054

JMp

.012737
012737

000000
000000

318

‘®IFT 1S SEY

VERIFY RECAL IBRATION
GO TO 28 IF NO ERROR
RETLRN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 31% IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER

001446
001420

2%:

- MoV
MoV

#0,RMDCO
#0 ,RMDAQ

sCYLINDER = 0
;TRACK = 0, SECTOR = 0

gflmeo RM0S5/3/2 FCINL T1ST 3

MACRO VC4.00

WRITE, READ W/ IMPLIED SEEK

1134 017716

1135 017724

1136 017732
1137 017740
H%g 017746
1140

017754
017760
017762
017766

013737
012737
012737
012737
012737

001446
106436
177376
010000
000063

004737
000405

040242
070426

194 8};;;2

104401
104000

000137

021054

1142 017774

012737

072016

”2’; 020010

CO4737

042174

1143 020002

1146

012737

000001

1147 020014

012702

001553

1149 020024
1150 020030
1151 020034
1152 020040
1153 020044
1154 020050
”gg 020054

112722
112722
112722
112722
112722
112712

000006
000004
000002
000032
000000
000200

004737
000404

043330

1148 020020

1157

1158 020054
020060

020062
020064
020066
Hzg 020072

1161

1162 020072

1163

1164 020076

112722

000240
104000
000137
¢

004737

021054

042774

043672

1166 020102

004737

043060

020114

000137

K
021054

004737

058572

020106
020110
020112

”gg 020120
1169
1170 020120

020124
020126
020130
020132
020134

000404
000240
104000

000405
000240
104000
004736
000137

MOV
MOV
MOV
MOV
MOV

021054

RMDCO, 32%
#BUF ONE ,RMBAO
#-258. ,RMWCO
#FMT16,RMOF O
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

38
001174

001176

SEQ 0106

:SAVE DESIRED CYLINDER

;BUS ADDRESS

;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JSR
BR
TYPE

PC,BADSCT
3%

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

JMP

318

;GO TO 318 IF ERROR

MOV

#ONES ,$TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC ., GENBUF

;GO GENERATE BUFFER FOR FORMAT

cMT

MOV

.SLTMSG

:TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUT INE

#1,$TMP1

;RANGE OF PATTERN

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

0C0034

004737

1165

021056
001416
001414
001444
001412

&-APR-81 (1:15:59 PAGE 13-35

MOV

#PUT INX ,R2

:RZ2 = BYTE ENTRY POSITION

MOovB
MovB
MOvB
MOVB
MOVB
move

#RMDA, (R2) +
#RMBA, (R2) +
#RMWC
, (R2) +
#RMOF
, (R2) +
#RMCS1, (R2)+
#200, (R2)

;TERMINATE TABLE

MovB

48:

#RMDC , (R2)+

;FORMAT THE DRIVE

5%:

JSR
BR
NOP
EMT
JMP

PC,PUT
5%

318

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

JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUTINE
;GO TO 318 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 FORMAT OPERATION

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

. JMP

318

;GO TO 31$ IF ERROR

BR
NOP
EMT

6%:

;GO TO 6% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;VERIFY NO ERRORS DURING FORMAT
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
31%

;GO TO 78 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 31% IF ERROR

CZRMOBO RMO5/3/2 FCTINL TST 3

WRITE, READ W/

1174 020140
H;Z 020146

012737
000410

020150

;MOVE LOOP ADDRESSES TO NEXT OPERATION

001124

MOV
BR

1178

:LOCP #2

1180 020150

RSy

1179

020154

SEQ 0107

7%:

1177

1182
1183 020150

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

IMPLIED SEEK

1111;3 020140
1173

MACRO v04.00

004737

154130

AR AR

#8% ,$LPERR
9%

R AR R R AR AR

;SKIP TO WRITE OPERATION

R AR AR AR

AR AR AR

AR AR AN

RS AAAARAR

WRITE ,READ

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

037316

.WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ‘'SKI'* OR ‘PIP'’ IS SET

020156
02016C

000404
000240

020164

000137

021054

1185 020170
”g? 020176

012737
012737

001466
000005

1188 020204

004737

043330

020162
1184 020170

020210
020212
020214

104000

(000404
000240
104000

020216

000137

1192 020222

004737

042774

1193
1196 020226 . 004737

043672

”38 020222
1191

1195

021054

1196 020232

004737

043060

020244

000137

021054

1200 020250

004737

051174

020256
020260
020262
020264

000240
104000
004736
000137

020236
020240
020242

”gg 020250

1199

020254

000404
000240
104000

000405

021054

ER
NOP

JMP

318

MOV
MOV

#822. ,RMDCO
#SEEK!GO,RMCS10

JSR

PC,PUT

EMT

001446
001472

9%:

BR
NOP
EMT

JMP

10%:

108

31%

;VERIFY RECALIBRATION

GO TO 9% IF NO ERROR
RET&RN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

.‘GO TO 318 IF ERROR

;SEEK TO LAST CYLINDER
JWRITE SEEK COMMAND
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:GO TO 108 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 318 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

JSR

PC.GETSTS

UAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT
;GO GET REGISTER STATUS

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

318

;GO TO 31% IF ERROR

JVERIFY RESULTS OF SEEK COMMAND
)

;GO TO TIMOUT SUBROUTINE

JSR

BR
NOP
EMT
11%:

;GO TO GETSTS SUBROUTINE

JSR

NOP
EMT
JSR
JMP

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

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+
31%

RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
:GO TO 318 IF ERROR

12%

GO TO 12% IF NO ERROR

CZRMOBO RMOS5/3/2 FCINL TST 3
111

WRITE. READ W/

MACRO v04.00

IMPLIED SEEK

E 9
4-APR-81 01:15:59 PAGE 13-37

SEQ 0108

11385 020270

128:

1203
1204 020270

:SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND
i3s:

1205 020270
1206 020276
1207 020304
1208 020312
1209 020320

013737
012737
012737
012737
012702

021056
177400
106442
000061
001553

1212 020334
1213 020340
1214 020344
1215 020350

112722
112722
112722
112722

000032
000004
000002
000000

1218 020360

004737

1210 020324
1211 020330

15}9 020354

020364

112722
112722

112722

000404

001446
001414
001416
001412

MOV
MOV
MOV
MOV
MOV

000006
000034

MOVB
MOVB

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

MOVB

#200, (R2)+

MOVB
MOVEB
MOVB
MOVB

000200

043330

020366 000240
020370 104000
020372 000137 021054

328 ,RMDCO
#-256. ,RMWCO
#BUF
ONE +4 ,RMBAO
#uD ' GO,RMCS10
#PUT INX ,R2

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

JSR

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

31$

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
“GO TO 31$ IF ERROR

14%

NOP
EMT
JMP

148:

1221

:WAIT FOR COMMAND TO COMPLETE

1223
1224 020402

004737

043060

020406 000404
020410 000240
020412 104000
020414 000137 021054
;gg{s’ 020420
1227

1228 020420 004737 044056
020424 000405
020426 000240
020430
020432

1230 020440

004737

020444 000405
020446 000240
020450
020452

056572

004737

020466
020470
020472

000240
104000
004736

020464 000405

B8R
NOP
EMT
JMP

15§

31s

JSR
B8R
NOP

16$:

PC.PRIERR
168

020474 000137 021054

GO TO 158 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE
2GO TO 318 IF ERROR

PC,a(SP)+

:ERROR # DEF INED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR

PC.DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

JMP

31§

B8R
NOP

17$

JSR

17%:

JMP
JSR

B8R

NOP
EMT
JSR

188 :

;GO CHECK FOR PRIMARY ERRORS
*GO TO 168 IF NO ERROR
*RETURN HERE IF ERROR

EMT
JSR

EMT

044710

;GO TO TIMOUT SUBROUT INE

:CHECK FOR ERRORS DURING WRITE OPERATION

104000

020454 000137 021054

1233 020500

15$:

004736

1231 020460
1232 020460

PC,TIMOUT

:GO TO 14$ IF NO ERROK

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

104000
004736

020434 000137 021054

1229 020440

JSR

:TERMINATE TABLE

PC,PUT

}538 020376

o 020376 004737 043672

;RESTORE CYLINDER
*CHANGE WORD COUNT
:CHANGE BUS ADDRESS
‘WRITE DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

JMP
.

PC,a(SP)+
:

31$

*GO TO 318 IF ERROR

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

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

“GO TO 31$ IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
‘GO BACK FOR MORE ERROR CHECKS

18%

31$

*GO TO 188 IF NO ERROR
‘GO TO 31% IF ERROR

020500
020506

012737
000410

020510

001124

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

;CHANGE LOOP ADDRESSES
MOV
#19% ,SLPERR

B8R

20%

SEQ 0109

+SKIP TO NEXT OPERATICN

:.'t".QQtttt"'t'tt.t"""'t'tt'tt.tt...t"'t"t't.'l.'Q."".t..

READ

;LOOP #3

no
»H

— T
N

SVBIFAR

MACRO v04.00
CZRMOBO RMOS5/3/2 FCTNL 1ST 3
TM
WRITE, READ W/ IMPLIED SEEK

19%:

020510
020510
020514

004757
154130

;PREPARE

037316

DEVICE

JSR

.WORD

FOR READ OPERATION

PC,TSTPRP

;PREPARE DEVICE FOR TEST

154130

: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

1249
1250 020544

020550
020552
020554
020556
020562

000404
000240
104000

000137

021054

012737
012737

001466
000005

004737
000404
000240

043330

104000
000137

021054

020562

004737

042774

020566

004737

043672

1258 020572

004737
000404
000240

043060

000137

021054

004737
000405
000240

051174

020576
020600
020602
020604
1259 020610

1260
1261

1262 020610
020614
020616
020620
020622
020624
1263 020630

104000

20%

JMP

31%

MOV
MOov

#822. ,RMDCO
#SEEK!GO,RMCS10

JSR

PC,PUT

NOP
EMT

001446
001412

20%:

NOP
EMT

21%:

JMP

JSR

;RETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUT INE

;GO TO 318 IF ERROR

;SEEK TO LAST CYLINDER
;WRITE SEEK COMMAND

21%

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

318

;GO TO 318 IF ERROR

sRETU~N HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

PC.GETSTS

;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO GET REGISTER STATUS
JSR

NOP
EMT

22%:

JMP

22%

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

318

;GO TO 31$ IF ERROR

23%

EMT

PC.a(SP)+

JSR

23%:

;GO TO TIMOUT SUBROUTINE

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

PC,GET

JVERIFY RESUTS OF SEEK COMMAND
JSR
PC,SEKSTS

NOP

021054

;GO 70 20% IF NO ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

;GC VERIFY RESULTS OF SEEK OPERATION
;GO TO 23% IF NO ERROR

JRETURN HERE IF ERROR

JERROR # DEFINED BY SEKSTS SUBROQUTINE

"GO BACK FOR MORE ERROR CHECKS
60 T0 31% IF ERROR

318

020516
020520
020522
020524
1246 020530
1247 020530
1248 020536

;RECAL IBRATE IF ''SKI'* OR ‘PIP'" IS SET
;VERIFY RECALIBRATION

MACRO v04.00
CZRMOBO RMOS/3/2 FCTNL IST 3
TM
WRITE, READ w/ {MPLIED SEEK

1267

020712
020716
020720
020722
020724
020730

SIS LS LAS AN LN T N ST N TV
NNNN NNNNN
n n NN
O WWWN
n n NN NINN

1264

1265
1266 020630

021056
000071

107446

001553
000006

000032
000034
000004
000002
000000
000200

001446
001412
001416

;SETUP PARAMETERS AND EXCUTE READ DATA COMMAND
24%:
MOV
32% ,RMDCO
JRESTORE CYLINDER
MOV
#RD !GO,RMCS10
sREAD DATA COMMAND
MOV
#BUF TWO+4 ,RMBAD
JLOAD STARTING BUFFER ADDRESS
MOV
#PUTINX
,R2
JLOAD PUT REGISTER INDEX TABLE
MOVB
#RMDA, (R2) +
MOVB
#RMOF
, (R2) +
#RMDC, (R2) +
MOVB
MOVB
#RMBA, (R2) +
MOVB
#RMWC
, (R2) +
#RMCS1, (R2)+
MOVR
#200, (R2)
MOVB

043330

000137

021054

020730

004737

043672

020734
020740
020742
020744
020746
020752

004737
000404
000240
104000
000137

043060

020752
020756
020760
020762
020764

004727

044056

000405

021054

JSR

B8R

NOP
EMT

JSR

004737
000405
000240

056572

000137

021054

004737

044710

JMP

26%:

042432

31%

PC,TIMOUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO TO 25% IF NO ERROR

sRETURN HERE IF ERROR
;ERRCR # DEFINED BY PUT SUBROUT INE

;GO TO 31% IF ERROR

;GO TO TIMOUT SUBROUTINE

318

:GO TO 318 IF ERROR

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

27%:

27%

JSR
JMP

PC,a(SP)+
31%

JSR

PC,DTASTS

NOP
EMT

NOP

021054

25%

;GO READ STATUS FOR READ OPERATION
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
26%
BR
;GO TO 268 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
sERROR # DEFINED BY GET SUBROUTINE

021054

PC,PUT

;WAIT FOR COMMAND TO COMPLETE

104000

104000
004736

JMP

25%:

000240
004736
000137

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

28%:

EMT
JSR
JMP

PC,a(SP)+
318

JSR
BR

PC,SECERR
29%

NOP
EMT
JSR

29%:

28%

JMP

JSR
.WORD

;GO TO 27% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 318 IF ERROR

:GO VERIFY RESULTS OF DATA TRANSFER
,
1GO TO 288 IF NG ERROR
ERROR
IF
HERE
:RETURN
INE
ERROR # DEF INED BY DTASTS SUBROUT
CHE'KS
ERROR
MORE
FOR
BACK
GO
GO TO 318 IF ERROR
;GO CHECK FOR SECONDARY ERRORS

318

;GO TO 29% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 31$ IF ERROR

PC,CMPBUF
BUF ONE +4

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

PC,a(SP)+

SEQ 0110

WRITE, READ W/ IMPLIED SEEK

021040
021042
021044
021046

021050

1296 021054

1298 021054

107446
000404
000240
104000

000137

(000401

021056

(000000

1299 021054

sl
sl
il

MACRO v04.00

.WORD
BR
NOP

EMT

021054

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

JMP

31%

33%

.WORD

30%:
31%:

BUF TWO+4
30%

32%:

SEC 0111
; STARTING ADDRESS OF READ BUFFER

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

SJERROR # DEFINED BY CMPBUF

;GO TO 31$ IF ERROR

SUBROUT INE

33%:

021060

2222222232322
2222
2R
2222
2222
2R R

LRTEST 12

WRITE, WRITE CHECK W/ HEAD SWITCHING

':ttfitttttt'tttttt*'t'i'tfii'ttt.fittfit'ttfittttt*ttttt'tt'ttttfitt't

1306
1307

021060
21060
021062
021064
021070
021074
021100

000004
000240
012706
013700
013701
012737

TST12:

001100

001276
001466
000012

MOV

MOV
MOV
MOV

001226

#STACK,SP

$BASE
, RO
TSTQUE ,R1
#12,$TESTN

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

';itttttttttlIttttkt't*'tttttttit'tttttfittt*t't*ttttitttttttwtt't

;LOOP #1

1308

1309
1310
1311
1312
1315
1314
1315

SCOPE
NOP

021105
021706
021114
021122
021130

1316 021136
1317 021144

1318 021152
1319
1320

;LOAD PARAME TERS AND GENERATE DATA BUFFER

012737
112737
112737
012737

012737
012737
012737

000000
000000
000037
010000

001446
0071421
001420
001444

176774

001414

106436

000063

2%:

001416

1324 021210
1325 021216
1326 021224
1327
1328
1329 021230
021234

001412

#0,RMDCO
#0.RMDAO+1
#31..RMDAO
#FMT16,RMOFO

MOV

#=-258.
%2 ,RMWCO

MOV

#BUF ONE ,RMBAO

#WH!
GO, RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

040242

B8R

JMP

308

CMPB

RMDAO,#31.

g;fie

022266

123727
001345
012737
012737
004737

001420

000037

072016
000001
042174

001174
001176

004737

037316

154130

MOV
MOVB
MOVB
MOV
MOV

070426
1321 021200
1322 021200
1323 021206

FORMAT ,WRITE ,WRITE CHECK

BNE
MOV
MOV
JSR
;PREPARE

“SCTMSG

2%
#ONES
, $TMPO
#1,$TMP
PC .,GENBUF

;CYLINDER = 0

;TRACK = 0

;SECTOR = 31.
;16 BIT FORMAT
;BUS ADDRESS

:WORD COUNT FOR 2 SECTORS (2'S COMP)
sWRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE

;GO TO 3% IF NO ERROR

;TYPE BAD SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE

;GC TO 308 IF ERROR

;IS LAST TRACK ASSIGNED ?
:BR IF NO
;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN

;GO GENERATE BUFFER FOR FORMAT

THE DEVICE FOR FORMAT OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP

JSR
.WCRD

154130

;TASK DESCRIPTOR AS FOLLOWS:

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

———

CZRMOBO RM0S/372 FCTINL IsT 3

[————e
e

MACRO v04.00
CZRMOBO RMOS5/372 FCTNL 1ST 3
112
WRITE, WRITE C HECK W/ HEAD SWITCHING

9
1
4-APR-81 01:15:59 PAGE 13-41
p

SEQ 0112

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

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

n
n

NNNN%NNN

b ol v

—

wild

sl v

d ek 2 O

¥S

W -=O0N00~N

e
ek
o
e
e
D
D el

021236
021240
021242
021244
330 021250

JVERIFY RECALIBRATION
GO _T0 4$ IF NO ERROR

JMP

308

G0 T0 308 IF ERROR

NOP
EMT

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

022266

001553
000034

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIICN
MOV
HPUTINX,R2
:R2 = BYTE ENTRY POSITION
MOVB ARMDC, (R2)+

MOVB

000006

000004
000002
000032
000000
000200

#RMDA. (R2)+

MOVB
#RMBA.(R2)+
MOVB ' MRMWC. (R2)+
MOVB
WRMOF
. (R2) +
MOYB #RMCST, (R2)+
MOVB #200, (R2)
;FORMAT THE DRIVE

: TERMINATE TABLE

004737
000404
000240

043330

000137

022266

021326

004737

042774

021332

004737

043672

1351 021336

004737
000404
000240

043060

000137

022266

004737
000405
000240

056572

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

—

021310
021314
021316
021320
021322

1344 021326

1345
1346

1347
1348
1349
1350

wH W

wviavion

V00~

VIO

021344
021346
021350
021354
021354
021360
021362

021374

104000

104000
004736
000137

JMP

PC,PUT
5%

308

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
G0 TO 58 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # 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 FORMAT OPERATION
JSR
BR
NOP
EMT

JMP

PC,GET
6%

308

NOP

EMT

022266

021374

021446

001124

021402
021410

177000
106436

001414
001416

£XEE
&

—

—
d o
e
etk

WWWW

b el

WWWW

021342

104000

JSR
BR
NOP
EMT

JSR

JMP

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUTINE

;GO TO 30% IF ERROR

JRETURN HERE IF ERROR

PC,a(SP)+

30§

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

GO TO 308 IF ERROR

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV

#8$, SLPERR

:REGENERATE BUFFER
MOV
#-256.+2 ,RMWCO
MOV
#BUF ONE , RMBAO

: CHANGE WORD COUNT
*CHANGE BUS ADDRESS

MACRO V04.00
CZRMOBO RMO5/3/2 FCINL TST 3
WRITE,
WRITE
CHECK
W/
HEAD
SWITCHING
Y.

WWNIN
N NN

SISEELEEE

012737
012737
012737
004737

000410

072060
000001

001174
001176

MOV
JSR
B8R

042174

#2EROS
, $TMPO
#1,$TMP

SEQ 0113
sSTARTING ADDRESS

; RANGE
JWRITE DATA
:GENERATE BUFFER

#uD ,RMCS10
PC , GENBUF
13

;SKIP TO WRITE OPERATION

2222222222222t
iRttt
R0
222
R RR 2T ]

WRITE,WRITE CHECK

‘LooP #2

»
»H

NNN

MOV
MOV

000060 001412

8%:

73 021446
[« SV
P

d
9
4(-APR=-81 01:15:59 PAGE 13-42

021452

004737

154130

:PREPARE DEVICE FOR WRITE OPERATION

037316

JSR
LWORD

PC,TSTPRP
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
021454
021456
021460
021462

000404

000240
104000
000137

022266

1378 021466
1379
1380 C21474
021500

012737

000005

004737
000404
000240

043330

000137

022266

021512

004737

042774

021516

004737

043672

388 021522
021526
021530
021532
021534

004737
000404
000240
104000
000137

043060

1392 021540

004737
000405
000240
104000
004736
000137

051174

1377 021466

021502
021504
021506

381 021512

1389 021540

021544
021548
021550
021552
021554

1393 021560

104000

022266

JMP

30$

;GO TO 308 IF ERROR

MOV

#SEEK 'GO,RMCS10

JSR

PC,PUT

NOP
EMT

”

001412

;RECALIBRATE IF ''SKI'' OR ‘PIP'" IS SET
:VERIFY RECALIBRATION
;GO TO 9% IF NO ERROR

NOP
EMT
10%:

JMP

108

308

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;LOAD SEEK COMMAND

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # 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
BR

PC,GET
11§

JMP

308

NCP
EMT
118:

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 118 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 30% IF ERROR

;VERIFY RESULTS OF SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION
12%
BR
;GO TO 12% IF NO ERROR
NOP
EMT
JSR

12%:

JMP

PC,R(SP)+

30§

;RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 30% IF ERROR

888IR RR

)

vyNN NN NN

— o

1402
1403
1404
1405
1406
1407

000061

001553

001412

13%:

000006
000034

000032

021606
021612
021616
021622

000004
000002
000000
000200

021626

043330

021632
021634
021636
021640
021644

K 9
4-APR-81 01:15:59 PAGE 13-43

SEQ 0114

;WRITE DATA TO THE DRIVE

021560
021560
021566
021572
21576
1
021602
o0

MACRO V04.00

WRITE, WRITE CHECK W/ HEAD SWITCHING

104000

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#WD ! GO,RMCS10
#PUTINX
,R2
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
#RMBA, (R2) +
#RMWC, (R2) +
#RMCS1, (R2)+
#200, (R2) +

JSR

PC,PUT

NOP

EMT
JMP

14%

JWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

s TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 14% IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 30% IF ERROR

022266

021644

004737

042774

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

021650

004737

043672

;WAIT FOR COMMAND TO COMPLETE
PC, TIMOUT
JSR

021654
021660
021662
021664
021666
021672

004737
000404
000240
104000
000137

043060

021672
021676
021700
021702
021704
021706
1420 021712
1421 021712
021716
021720
021722
021724
021726
021732
021732
021736
021740
021742
021744
021746
1424 021752

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240

056572

Nole
- RNTe N
W

—_ e

Hoe

——

Fol
o F oF

—_—

— —

—

)

F R ol SRo
SN

—

P o o

_——

widHw - cfi%%%

000137

—_——t

—4 TM

MOBO RMOS5/3/2 FCINL TSi 3

1425

022266

14%:

15%:

;CHECK FOR ERRORS DURING WRITE OPERATION

16%:

004737
000405
000240

PC,.PRIERR
16%

JSR.
JMP

PC,a(SP)+
308

JSR

PC,DTASTS

022266

044710

17%:

;GO BACK FOR MORE ERROR CHECKS

;GO TO 308 IF ERROR

PC,a(SP)+

'
JSR

30%

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JMP
BR

18%:

;GO TO 16% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

JSR

NOP
EMT

022266

;GO CHECK FOR PRIMARY ERRORS

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 178 IF NO _ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 308 IF ERROR

NOP
EMT

104000

004736
000137

JSR
BR

104000

004736
000137

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUTINE
15%
BR
;GO TO 158 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
30%
;GO TO 308 IF ERROR

NOP
EMT

022266

30%

JSR
JMP

17%

18%

PC,a(SP)+
30%

;GO _TO 188 IF NO _ERROR

JRETURN HERE IF ERROR

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

;GO TO 30% IF ERROR

MACRO V04.00
MOBO RMOS/3/2 ;C TNL 1ST 3
iEL HECK W/ HEAD SWITCHING
NN

012737

001124

WIWNWNI

000410

(21762

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

SEQ 0115

s CHANGE LOOP ADDRESSES
MOV
BR

#19%,$LPERR
20%

;SKIP TO NEXT OPERATION

‘-.'Q"ttt....tttt't.tl’t"it"‘tfittttt'tt.t'tt"'fi'fi"fi".'*'tt"'.'

WRITE CHECK

:LOOP #3
19%:

004737
154130

:PREPARE DEVICE FOR READ OPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

037316

.WORD

154130

sTASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

621770
021772
021774
021776

1437 022002
1438 022002
1439

1440 022010
022014
022016

022020
022022

1441 022026
1442
1443
022026
1444
1445
022032
1446
1447
1448 022036

022042
022044
022046
022050

1449 022054
1450
1451
1452 022054

;RECALIBRATE IF ''SKI'' OR ‘PIP'* IS SFT
JVERIFY RECALIBRATION

;GO TO 208 IF NO ERROR

000404
000240
104000
000137

022266

012737

000005

004737
000404
000240
104000
000137

043330

022266

004737

042774

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

004737

043672

004737
000404
000240

043060

104000
000137

004737
000405
000240

004736
000137

NOP
EMT
JMP

308

001412

#SEEK'GO,RMCS10

JSR

PC,PUT

NCOP

022266

051174

EMT

JMP

213

30%

JWAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO READ REGISTER STATUS
JSR
PC,GET
BR
22%
NOP
EMT

22%:

JMP

30%

;GO VERIFY RESULTS OF SEEK
JSR
PC,SEKSTS

23%

EMT
JSR
JMP

PC,a(SP)+
308

NOP

022266

30%

MOV
BR

104000

1453 022074
1454
1455

208

238

;READ DATA FROM DEVICE

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 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 # DEFINED BY PUT SUBROUTINE

;GO TO 30% IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO0 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 22% IF NO ERROR

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

;GO TO 30% IF ERROR

;GO VERIFY RESULTS OF SEEK OPERATION

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

;ERROR # DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 30% IF ERROR

5
;
»

CZR MOBO RMOS/3/2 FCINL TST 3

MACRO V04.00

WRITE., WRITE CHECK W/ HEAD SWITCHING

1456 022074
1457 022074

012737

}zgg 022136

112712

1458 022102
1459 022106
1460 022112
1461 022116
1462 022122
1463 022126
1464 022132

000051

012702
112722
112722
112722
112722
112722
112722

001553
000006
000032
000034
000004
000002
000000

1467 022142

004737

043330

022150
022152

000240
104000

022146 000404

022154

001412

248:

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

MOV

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

000200

JSR

NOP
EMT

#PUT INX .R2
A#RMDA, (R2)+
#RMOF
. (R2)+
#RMDC
. (R2)+
WRMBA. (R2)+
HRMWC
. (R2)+
A#RMCST, (R2)+

;READ DATA COMMAND

*LOAD PUT REGISTER INDEX TABLE

#200, (R2)
PC,PUT

258

*GO TO 25% IF NO ERROR

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

022266

1470
e 022160

004737

042774

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUT INE

1472
1 022164

004737

043672

:WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

1474
1475 022170

004737

043060

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

022176
022200

000240
104000

022174

022202

}2;9 022206

1478
1479 022206

022212
022214
022216
022220

022222

000404

000137

022266

004737

044056

000405
000240
104000
004736

1480 022226
1481 022226

000137

022266

004737

056572

022240

004736

022232
022234
022236
022242

1482 022246
1483 022246

022252
022254
022256
022260
022262

1484 022266
1485
1486 022266
1487

000405
000240
104000

26%:

022266

004737

044710

022266

“GO TO 308 IF ERROR

;GO TO TIMOUT SUBROUTINE

26$

:GO TO 26% IF NO ERROR

JMP

308

:GO TO 308 IF ERROR

NOP
EMT

*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE

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

27%:

000137
000405
000240
104000
004736
000137

25%:

308

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

000137

ngg 022160

JMP

#JCD ' GO,RMCS10

SEQ 0116

28%:

29%:
30$:

BR
NOP
EMT

27§

JMP

30$

*GO TO 278 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

JSR

PC,a(SP)+

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JSR

PC.a(SP)+

*GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

BR
NOP
EMT
JMP
BR
NOP
EMT
JSR
JMP

28%

308

29%

PC,a(SP)+
30$

*GO BACK FOR MORE ERROR CHECKS

*GO TO 308 IF ERROR

*GO TO 288 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY DiASTS SUBROUTINE
160 TO 308 IF ERROR

;GO CHECK FOR SECONDARY ERRORS

“GO T) 298 IF NO ERROR
*RETURN HERE IF ERROR
*ERRCR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 308 IF ERROR

RMOBO RMC5/3/2 FC T NL TST 3

MACRO v04.00 4-APR-B1 01:15:59 PAGE 13-46
WRITE, WRIT E CHECK W/ MID-TRANSFER SEEK

AR R A A A AR

S*TEST 13

A A A AR AR

SEQ 0117

AR A AR AR AR AR AR R AR AR RN A AR

AR AR AR AR

WRITE, WRITE CHECK W/ MID=TRANSFER SEEK

':t.'itt.t.ttitttt'tt""t.i'fitt".tfi'.t."it'ttt.t!tttttttt't".

000004
000240

012706
013700
013701
012737

TST13:

001100
001276
001466
000013

MOV
MOV
MOV
MOV

001226

1490
1491

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

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

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

::fitt.tttt**fi*"fi*fi.*'tt"tfifi.t*fi'**fi*'t'fi"fi'fi".it'fifitfi"t'tttt

1492
1493
1494 022314
1495 022314
1496 022322
1497 022330
1498 022336
1499 022344
1500 022352
1501 022360

022436
022442

FORMAT ,WRITE,WRITE CHECK

:LOOP #1

%EOAD PARAMETERS AND GENERATE DATA BUFFER

001446
001334 001420
000037 001420
010000 001444

012737
013737
112737
012737
012737
012737
012737

000000

004737
000405
104401
104000
000137

040242

123737
001342
012737
012737
004737

001421

001335

072060
000001
042174

001174
001176

004737
154130

037316

106436
176774

000063

2%:

001416

MOV
MOV
MOVB
MOV

#0,RMDCO
LSTRK ,RMDAO
#31. ,RMDAO
#FMT16 ,RMOFO

sCYLINDER = 0
:SET LAST TRACK AND
;LAST SECTOR
;16 BIT FORMAT

MOV

#-258.*é.RMUCO

;WORD COUNT FOR 2 SECTORS (2' COMP)

MOV

001414

001412

MOV

023310

:WRITE HEADER AND DATA COMMAND

TYPE
EMT

.SCTMSG

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

CMPB
BNE
MOV
MOV
JSR

25%

;GO TO 3% IF NO ERROR
;GO TO 25% IF ERROR

RMDAO+1,LSTRK+1
2%
#ZEROS , $TMPO
#1,.8TMP1

;1S LAST TRACK ASSIGNED ?
:BR IF NO
:STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT

PC ,GENBUF

;PREPARE THE DEVICE FOR FORMAT OPERATION

JSR

..WORD

NOP

001553
000034
000006

#WH'!GO,RMCS10

;CALL BAD SECTOR MODULE

JMP

;BUS ADDRESS

PC ,BADSCT

[)

,RMBAO

JSR

070426

023310

#BUF ONE

;VERIFY THAT SECTOR IS NOT BAD

022444
022446

SCOPE
NOP

4%:

EMT
JMP

PC,TSTPRP
154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JRETURN HERE IF ERROR

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

25%

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

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
MOV
#PUTINX ,RC
:R2 = BYTE ENTRY POSITION
MOVB
MOVB

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

Bt WY
s
b cud wd wd

ST 3

MACRC v04.00

C K W/ MID-TRANSFER SEEK

000004
000002
000032
000000
000200

043330

1526 022534
1527
1528

022550
022552
022554
022556

1534 022562

A
, (R2)+
#RMB
#RMWC
, (R2) +
#RMOF , (R2)+
#RMCST,(R2)+

JSR

PC,PUT

023310

SEQ 0118

#200, (R2)

25%

;TERMINATE

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 6% IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEF INED BY PUT SUBROUT INE
;GO TO 25% IF ERROR

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

042774

SWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERAT.ON
PC,GET
JSR
;GO READ REGISTER(S) WITH GET SUBROUT INE
7%
;GO TO 78 IF NO ERROR
BR
NOP
sRETURN HERE IF ERROR
;
EMT
;ERROR # DEFINED BY GET SUBROUTINE
JMP
25%
;GO TO 25% IF ERROR

043060

023310

JMP

022654

001124

4 022610

000060
177000
106436
072016
000001
042174

001412
001414
001416

WN—O

022652

9 022646

022654

001174
001176

PC,DTASTS

IF NO ERROR

TURN HERE

IF ERROR

DEF INED BY DTASTS SUBROUTINE

Mi mRROERRm CHECKS

PC, a(SP)+

25%

NOP
EMT
JSR

1 022602

wviun
~

JSR

023310

;MOVE LO%VADDRESSES TO NEXT OPERATION
#9% ,SLPERR

;REGENERATE BUFFER
MOV
MOV
MOV
MOV
MOV
JSR
BR

#JD RMCS10

#-256.%2 .RMICO
#BUF
ONE , RMBAO
WONES ,$TMPO

;WRITE DATA
; CHANGE WORD COUNT
; CHANGE BUS ADDRSS
;PATTERN ADDRESS

;PATTERN RANGE

#1,8TMP1
PC, GENBUF
108

;SKIP TO WRITE OPERATION

'.'.ltlt.tt..t'.."t.t."""."..".Q.t."t'i".‘t.Q..Q‘Qit"ttt'

“iooP #2

WRITE ,WRITE CHECK

VIV

;VERIFY NO ERRORS DURING FORMAT

056572

022566
022570
022572
022574
022576
022602

5 022616
46 022624
7 022632
8 022640

- ———

rbbbbbw
W
—=O o

153
1536
1537 022562

MOVB
MOVB
MOVB
MOVB
MOVB
BR
NOP
EMT
JMP

043672
1532
1533 022544

B 10
4-APR-81 01:15:59 PAGE 13-47

022654

022660

037316

;PREPARE DEVICE FOR WRITE OPERATION
;PREPARE DEVICE FOR TEST
PC,TSTPRP
JSR
154130
.WOR
sTASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE

MACRO v04.00 4-APR-81 01:15:59 PAGE1%-48

CZRMOBO RMOS/3/2 FCINL TIST 3
T3
WRITE, WRITE (HE(K W/ MID-TRANSFER SEEK

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ‘'SKI'"
OR "PIP'" 1S SET

022662 000404

B8R

108

022670 0CO137 023310

JMP

25%

022664
022666

000240
104000

NOP
EMT

;VERIFY RECALIBRATION

:G0_TO 108 IF NO_ERROR
:RETURN HERE

:ERROR # DEF INED BY TSTPRP SUBROUT INE

‘GO TO 258 IF ERROR

; ?33 022674

108:

1561

:WRITE DATA TO THE DRIVE

1562 022674

1563 022674 012737
1 001412
1564 022702 012702 001553
1565 022706

112722

1566 022712
1567 022716

112722
112722

000034
000032

1569 022726
1570 022732
}gyz 022736

112722
112722
112722

000002
000000
000200

1573 022742

004737

022750
022752

000240
104000

1568 022722

112722

022746 000404

i1s:

MOVB

MOVB
MOVB

000004

MOVB

MOVB
MOVB
MOVB

043330

022754 000137 023310

MOV
MOV

JSR

B8R

NOP
EMT

JMP

#uD!GO,RMCS10
#PUT
INX ,R2

#RMDA, (R2)+

JWRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

#RMDC.(R2)+
#RMOF
. (R2)+
#RMBA.(R2)+

#RMWC
. (R2)+
#RMCST, (R2)+
#200, (R2)+
PC,PUT

12%

;TERMINATE

;GO TO 128 IF NO ERROR
sRETURN HERE

258

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

Bt 022764 004737 043672

1580
:
1581 022770 004737 043060

022774 000404

022776
023000

000240
104000

1585 023006

004737

023014
023016
023020

000240
104000
004736

023002 000137 023310
;gg 023006
1584
023012 000405

044056

023022 000137 023310

1586 023026
1587 023026

004737

023034
023036

000240
104000

023032 000405

056572

PC,GETSTS

- ;WAIT FOR COMMAND TO COMPLETE

JSR

ERROR

16O TO 258 IF ERROR

1576

1578

;ERROR # DEFINED BY PUT SUBROUTINE

128:

JSR

TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

11;;;. 022760

o 022760 004737 042774

IF ERROR

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

B8R

NOP
EMT

13§

;GO TO 13$ IF NO ERROR
*RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE

JMP
258
160 TO 258 IF ERROR
138:
;CHECK FOR ERRORS DURING WRITE OPERATION
JSR

NOP
EMT
JSR

148:

JMP
JSR

NOP
EMT

148

;GO CHECK FOR PRIMARY ERRORS
;GO TO 148 IF NO ERROR

PC,a(SP)+

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

PC.PRIERR

25%

JRETURN HERE IF ERROR

PC.DTASTS

15§

GO TO 258 IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

:G0 TO 158 IF NO ERROR
*RETURN HERE

IF ERROR

JERROR # DEFINED BY DTASTS SUBROUTINE

SEQ 0119

CZRMOBO RM0S5/3/2 FCINL TST 3

D 10
4-APR-81 01:15:59 PAGE 13-49

SEQ 0120

WRITE, WRITE (HECK W/ MID-TRANSFER SEEK

004736
000137

004737
000405
000240

(23310

15%:

044710

004736
000137

012737
0004710

PC,a(SP)+

;GO BACK FOR MORE ERRCR (HECKS

JSR

PC,SECERR

16%

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

PC,a(SP)+

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

NOP
EMT
JSR

023310

023076

JSR

JMP

104000

JMP

16%:

001124

25%

;GO TO 25% IF ERROR

JRETURN HERE

IF ERROR

;GO TO 25% IF ERROR

:CHANGF LOOP ADDRESSES
MOV
BR

#17%,8LPERR
18%

;SKIP TO NEXT OPERATION

':tlt'.ti.Q.t"l'ttt""'t"tt".'ti.i't'ttifi't'ttt"'ttt."tfit't

—

WRITE CHECK

;LOOP #3

1599 02307%
1600
1601
1602 023076

023102

17%:

004737
154130

;PREPARE

03731¢

DEVICE

JSR

.WORD

FOR READ OPERATION

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 IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

sRECALIBRATE IF ‘'SKI'' OR ‘PIP'" IS SET

000404
000240
104000

3 co $8888

000137

oy
@

023310

188: §

SRR

001412

3160

023202

JMP

18%
25%

;VERIFY RECALIBRATION

;GO TO 188 IF NO ERROR
sRETURN HERE

IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

023310

042774

sREAD DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

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

JSR
BR

PC,PUT
20%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

25¢%

;GO TO 25% IF ERROR

NOP
EMT

20%:

MICD !GO,RMCS10
#PUTINX ,R2

MOVB
MOVB
MOvB
MOVB

MOVB
MOVB
MOVB

1619

NOP
EMT

MOV
MOV

3150

1618 023202

igEAD DATA FROM DEVICE

=B
b sl
i
b

NOWVMSWN—-O

O0O0O0O0O0000
oo
NN

il
sl ol sugld W
il il il il

ilh sl o

ooooorrOr
O OO

MACRO v04.00

#RMWC
, (R2) +
#RMCS1, (R2)+
#200, (R2)

;G0 TO 20% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;GO TO GETSTS SUBROUTINE

,
;

;
|

CZRMOBO RMQS5/3/2 FCTINL TST 3

113

WRITE, WRITE

>3 023206

004737

043672

1624
1625 023212

004737

043060

023224

000137

023310

1629 023230

004737

044056

023236

000240

023216
023220
023222

;gg; 023230

1628

023234

023240

023242
023244

1630 023250
1631 023250

023254
023256
023260

000404
000240

104000

000405

004736
000137

023310

004737

056572

000405
000240

21%

JMP

25%

218:

044710

023304

000137

023310

;GO TO TIMOUT SUBROUTINE

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

JERROR # DEF INED BY GET SUBROUTINE

;GO TO 25% IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
JSR

22%:

PC,DTASTS

248:

;ERROR # DEFINED BY PRIERR SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

23%

JSR
JMP

PC,a(SP)+
25%

JSR

PC,SECERR

JMP

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

JSR

BR
NOP
EMT
JSk

;GO CHECK FOR PRIMARY ERRORS

22%

PC,a(SP)+
25%

BR
NOP

23%:

PC,PRIERR

JSR
JMP

EMT

004737

000405
000240
104000
004736

BR
NOP
EMT

104000

1633 023270

PC, TIMOUT

SEQ 0121

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

EMT

023310

1634 023310
1635
}g%(; 023310

JSR

104000

004736
000137

023274
023276
023300
023302

;WAIT FOR COMMAND TO COMPLETE

NOP

023262
023264

1632 023270

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

CMECK W/ MID-TRANSFER SEEK

1621

1622

E 10

MACRO v04.00

;GO VERIFY RESULTS OF DATA TRANSFER

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

;ERROR # DEFINED BY DTASTS SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

248

;GO TO 24% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+

25%

;GO TO 25% IF ERROR

25%:

1638

;*TEST

A A A

A AR

A AR AR AR AR AR

AR A AR

AR AR R KRR

RN AR A&

WRITE, READ W/ HCE ERROR

:'-tttttt'ttttifittttt'tttttt'tttttttt'ttttttt'ttttttt!ttttttttfittt

023210
023310
023312
023314
023320
023324
1639 023330

TST14:

001100
001276
001466
000014

001226

SCOPE
NOP
MoV
MOV
MoV
MoV

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#14,$TESTN

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

16‘0

:_'tttt'tttttttt'ntttfittttttttttt'ttttt'ttttttttttttttlt'ttttl'tit

;g:;

;LOOP #1

1643 023336
1644 023342

(12704
012703

000000
000001

1647
1648 023346

004737

037316

;222 023346

000004
000240
012706
013700
013701
012737

——

1%:

2%:

FORMAT ,WR!TE ,READ
MOV
MoV

#0,R4
#1,R3

;R4 = 1ST HEADER WORD
;R3 = HCE BIT

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

CZRMOBO RMOS/3/72 FCINL TST 3

WRITE, READ W/ H(E

023352

ERROR

Fi0

MACRO v04.00

4-APR-B1 (01:15:59 PAGE 13-51

154130

.WORD

154130

SEQ 012¢

;TASK DESCRIPTOR AS FCLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT

:VERIFY PACK ACKNOWLEDGE

VALID

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

023354 000404

023356
023360
it 023362

000240
104000
000137

B8R

NOP
EMT
JMP

025156

1650

1651 023366

012737
012737

000000
000000

001446
001420

;ggg 023424

012737
012737

010000
000063

001444
001412

1659

023432
023436
023440
023444
023446

012737
012737

106436
177376

040242

1660 023452
1661 023452
1662 023460

004737
000405
104401
104000
000137
012737
012737

072060
000001

1665
1666 023472

030364

106436

}ggz 023466

1667 023476
1668 023500
1669 023504
;g;? 023506
1672
1673
1676
1675
1676

023512

004737

001403
040364
000402
050364

042174

001553

1678 023532
1679 023536
1680 023542

112722
112722
112722

000002
000032
000000

1681 023546
1682 023552
1683 023552

023556
023560
023562
023564

1684 023570

*RETURN HERE IF ERROR
“ERROR # DEFINED BY TSTPRP SUBROUT
INE
:GO TO 46% IF ERROR

468

112712

004737

000404
000240
104000
000137

;VERIFY

001174
001176

48:
:

043330

025004

#0,RMDCO
#0.RMDAO

;CYLINDER = 0
:TRACK = 0, SECTOR = 0

MOV
MOV

#FMT16,RMOFO
#WH'GO.RMCS10

:16 BIT FORMAT
:WRITE HEADER AND DATA COMMAND

#BUFONE ,RMBAO
#-258. ,RMJCO

THAT SECTOR

IS NOT BAD

:BUS ADDRESS
:2 + 256. WORDS (2'S COMP)

JSR
BR
TYPE
EMT
JMP

PC,BADSCT
48
,SCTMSG

42%

;CALL BAD SECTOR MODULE
:GO TO 4$ IF NO ERROR
:TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUT INE
:GO TO 42% IF ERROR

MOV
MOV

#ZEROS,$TMPO
#1.8TMP1

:STARTING ADDRESS OF PATTERN
:RANGE OF PATTERN

JSR

PC, GENBUF

:GO GENERATE BUFFER FOR FORMAT

:CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ
8IT
R3,BUFONE(R4)
;SET OR RESET FOR HCE??

5% :

BEQ
BIC
BR

BIS

5%
R3,BUFONE (R4)
6%
R3,BUFONE(R4)

;RESET BIT FOR HCE

:SET FOR HCE

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION
68
i

MOV

000034
000006
000004

000200

MOV
MOV

106436

001416
001414

025004

012702

112722
112722
112722

070426

023512

023516
023522
1677 023526

GO TO 38 IF NO ERROR

-LOAD PARAMETERS AND GENERATE DATA BUFFER

1652 023366
1653 023374
1654 023402
1655 023410
1656 023416

;VERIFY RECALIBRATION

8%:

:R2 = BYTE ENTRY POSITION

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

MOVB

#200,(R2)

:TERMINATE TABLE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

MOVR
MOVB
MOVB

#PUT INX ,R2

MOVB
MOVB
MOVE

JSR

BR
NOP
EMT
IMp

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

42%

GO TO 8% IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY PUT SUBROUTINE
G0 TO 42% IF ERROR

CZRMOBO RMOS/3/2 FOTNL

114

WRITE, READ W/

1685

1686

1687
1688

1689

023570

004737

062774

023574

004737

043672

004737
000404
000240

043060

000137

025004

004737

056572

1690
1691

104000

1692
1693

1694

1695

000405
000240

MACRO v04.0C

;WAIT

023636
023636
023644

FOR COMMAND

JSR

TO COMPLETE

PC,TIMOUT

025004

012737
000410

023646

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

PC,GET

B8R

NOP
EMT

JMP

9%:

42%

;GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 9% IF NO ERROR

;RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

;GO TO 42% IF ERROR

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

000137

SEG 0123

sSETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUT INE

104000

004736

G 10
4-APR-B1 01:15:59 PAGE 13-52

EMT
JSR
JMP

10%:

;RETURN HERE

PC,a(SP)+
42%

ERROR

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

;MOVE LOOP ADDRESSES TO NEXT OPERATICN
MOV
#11%,8LPERR

001124

12%

:SKIP TO WRITE OPERATION

"."Q‘fi...Q!"'fi'.‘.'.'"‘"'.t"..'.*"fi'fi'fifi‘..".'fifi"'t'*ttfi'tfii

WRITE ,READ

;LOOP #2
11%:

023646

023646
023652

004737
154130

037316

;PREPARE DEVICE FOR WRITE OPERATION
JSR

‘

.WORD

PC,TSTPRP

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

’

023654
023656
023660
023662

12%

:RECALIBRATE IF "'SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 12% IF NO ERROR

EMT
JMP

42%

:ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 42% IF ERROR

NOP

025004

12%:

;RETURN HERE IF ERROR

iggITE DATA TD THE DRIVE

106442
17740?

00006
001553
000006
000034

001416
001414
001412

MOV
MOV
MOV
MOV
MOVBR

MGvS

#BUF ONE +4 ,RMBAQO
#-256. ,RMW(O
#WD'!GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2) +

; CHANGE BUS ADDRESS
;CHANGE WORD COUNT
;WRITE DATA COMMAND
:LOAD PUT REGISTER INDEX TABLE

(ZRMOBO RM0S5/3/2 FCINL TST 3
T14

WRITE, READ W/ HCE ERROR

1719 023724

112722

&4=-APR-81 01:15:59 PAGE 13-53

000032

MOVR

172C 023730
1721 023734
1722 023740
};52 023744

112722
112722
112722
112722

(COCG004
000002
000000
000200

MOVB
MOVB
MOVB
MOVB

1725 023750
023754
023756

004737
000404
000240

043330

JSR
BR
NOP

000137

025004

004737

042774

004737

043672

1733 023776

004737

043060

024004
024006

000240
104000

023760
023762

;;59 023766
1728

vne 023766

1730

1283 023772

1732

024002

024010
;;%g 024014
1736
1737 024014

024020
024022
024024
024026

- 024030

104000

000404

000137
i

025004

004737

044056

000405
000240

104000
004736
000137

005704

1744 024040
1745 024044

032703
(001037

};2; 024052

001061

1746 024046
1749
1750 024054

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

TO READ ALL REGISTERS

PC,GETSTS

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO GETSTS SUBROUTINE

:GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR WRITE (OMMAND
JSR

PC,GET

158

NOP
EMT

JMP

15%:

:GO READ REGISTER(S) WITH GET SUBROUT INE

‘

428

;GO TO 15% IF NO ERROR

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

;GO TO 42% IF ERROR
~

:CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS

BR
NOP

16%

EMT
JSR

PC,a(SP)+
423

JMP

16%:

001006

032703

BNE
010000

000200

1754 024064

004737

056572

0264100

000137

025004

000405
000240
104000
(004736

BIT
BNE

140000

032737
001102

1755 024104

:GO WRITE REGISTER(S) WITH PUT SUBROUT
INE
;GO TO 14% IF NO ERROR
;RETURN HERE IF ERROR

42%

JSR

025004

1751 024054
;;g% 024062

024070
024072
024074
024076

PC,PUT
14%

;TERMINATE TABLE

;GO TO 16% IF NO ERROR
;RETURN HERE IF ERROR

:ERROR # DEF INED BY PRIERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 42% IF ERROR

:DECODE THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3

1740 024034
1741 024034

;;2% 024036

#RMBA, (R2) +
#RMWC
, (R2) +
RRM(S1,(R2)+
#200, (R2)+

:SETUP GET INDEX TABLE

SEQ 0124

#RMOF
, (R2) +

EMT
JMP

14%:

1739

H 10

MACRO v04.00

BIT

BNE

001352

:1S THIS THE FIRST HEADER WORD ?

#FMT16,R3
20%

:SHOULD FER BE SET ?
2 YES: 1!

22%

INES bl

17%

#MSE ' USE ,R3

:NO !

;SHOULD BSE BE SET ?

:VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED
17%:

18%:

BIT BNE

#HCE ,RMER1]
24%

:WAS HCE DETECTED ??
JYES !

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT
JSR

JMP

18%

PC,a(SP)+

42%

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

:GO TO 42% IF ERROR

CZRMOBO RMOS5/3/72 FCTINL ST 3

114

WRITE, READ W/ HCE ERROR

1756 024104

013737

001352

1757 024112
1758 026120

012737
010437

(00200
001174

1760 024726

V05237

001174

1759 024124

1761 024132

1762 026136
1;22 024140

(J1002

010337

104344
000137

001142

MOV

19%:

1770 024156

004737

056572

024166

004736

024160
024162
024164

024170

1771 024174
1772 024174

1773 024202
1774 024210

};;2 026212

001046

000405
000240
104000

000137

025004

012737
013737
104343

000020
001352

000137

001352

100000

1782 024226

004737

056572

001021

000405

024234 000240
024236- 104000
024240 004736
1783 024246
1784 024246
1785 024254
1786 024262

};gg 024264

000137

025004

013737

001400

000137

025004

012737
104345

1789
1790 024270
1791 024270

004737

024276
024300
024302

000240
104000
004736

024274

024304
;;gg 024310
1794

1795 024310
'

1797

344
42%

000405

100000

012737

024316

PC,DTASTS

;GO VERIFY RESULTS OF

JSR

PC,@(SP)+

;GO BACK FOR MORE ERROR CHE(CKS

MOV
MOV
EMT

#FER,$GDDAT
RMER11,$BDDAT
343

JMP

22%:

001400
.

;EXPECTED STATUS
;RECEIVED STATUS

42%

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

MoV

JMP

248

23%

;GO TO 23% IF NC ERROR

PC,a(SP)+
RMER2] ,$BDDAT

;RECEIVED STATUS

42%

#BSE ,SGDDAT
345

:GO TO 42% IF ERROR
;EXPECTED STAIUS

42%

25%

JMP

PC,a(SP)+
42%

NOP
EMT
JSR

JYES I}

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

_;CHECK FOR OTHER ERRORS
PAT
JSR
PC,SECERR

001124

;GO TO 42% IF ERROR

JSR

MOV
EMT

25%:

;GO TO 21$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUT INE

;WAS BSE DETECTED ??

JMP

001140

TRANSFER

#BSE ,RMER2]

NOP
EMT
JSR

001142

42%

DATA

BIT

23%.

21%

JYES !!

THAT A BAD SECTOR ERROR WAS DETECTED

BNE

025004

JSR

JMP

218:

001140
001142

044710

000137

;WAS FER DETECTED ??

24%

;GO CHECK FOR SECONDARY ERRORS

;GO TO 258 IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK _FOR MORE ERROR CHECKS

;GO TO 42% IF ERROR

; CHANGE LOOP ADDRESSES

MOV

'
!

;

;R3 = BIT POSIITON

#FER ,RMERT ]

BR
NOP
EMT

;VERIFY

032737

024242

R3,$TMP1

SJEXPECTED STATUS
;R4 = HEADER WORD NUMBER AND

BIT

BNE

025004

1778 024216
1779 024216

024232

;ADJUST NUMBER.

$TMPO

EMT
JMP

208:

1777

};g? 024224

19%

INC

SEQ 0125

;VERIFY THAT A FORMAT ERROR WAS DETECTED

000020

;RECEIVED STATUS

#HCE ,$GDDAT
R4, $TMPO

MOV

025004

RMER11,$BDDAT

MOV
MOV

BNE

001176

032737

};2§ 024152

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

001140

1765

1766 024144
1767 (24144

110

MACRO v04.00

#26$, $LPERR

“.".....t.ttt".'t'.'fi"""'!..Q"tl.ttt't'tt‘tttttttt.i'i'ttttt

CZRMOBO RMOS/3/2 FCINL TST 3

114

WKITE, READ W/ H(E ERROR

MACRO v04.00

1798

:LOOP #3

138? 024316

268$:

1799

1302

1803 024316

026322

004737

154130

J 10

4=-APR-B1 01:15:59 PAGE 13-55

SEQ 0126

READ

;PREPARE DEVICE FOR READ OPERATION

037316

JSR

PC,TSTPRP

.WORD

154130

;PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILASBLE
;CLEAR CONTROLLER & SEIECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

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

024324

024326
024330
024332
;gglso 024336

000404

000240
104000
000137

BR
025004

27%:

1806
1807 024336
1808 024336

:
012737

012737
(012737
012702
112722
112722
112722
112722
112722
112722
112712

177400
000071
001553
000006
000032
000034
000004
000002
000000
000200

1820 024420

004737

043330

1809 024344
1810 024352
1811 024360
1812 024364
1813 024370
1814 024374
1815 024400
1816 024404
1817 024410
}g}g 024414

024424
024426

024430

000404
000240

104000

107446

024432

000137

025004

1823
1824 024436

004737

042774

1826 024442

004737

043672

1827
1828 024446

004737

043060

;gsg 024436

1825

024452
024454
024456
024460
;g.s?g 024464
1831
1832 024464

000404
000240
104000
000137

004737

025004

044056

:
001416

NOP
EMT
JMP

27%
.

42%

;VERIFY RECALIBRATION

;GO TO 27% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT
INE
;GO TO 42% IF ERROR

;READ DATA FROM DEVICE

28$:

001414
001412

MOV

#BUF TWO+4 ,RMBAO ;CHANGE BUS ADDRESS

MOV
MOV
MOV
MOVB
MOvVB
MOVB
MOVB
MOvB
MOvVB
MOVB

#-256. ,RMWCO
#RD!GO,RMCS10
#PUTINX ,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC
, (R2) +
#RMBA, (R2) +
H#RMUC, (R2) +
#RMCST, (R2)+
#200, (R2)

: CHANGE WORD COUNT
;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

JSR
BR
NOP

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

42%

29%

EMT

29%:

;GO TO 29% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 42% IF ERROR

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

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

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

30%:

BR
NOP
EMT
JMP

308

42%

;GO TO 308 IF NC ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
;GO TO 42% IF ERROR

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

S%RMOBO RMOS5/3/2 FCINL TST 3
114

WRITE, READ W/ HCE ERROR

024470

024472
024474
024476

000405

000240
104000
004736

000137

025004

1834 024504
}ggg 024506

005704
001006

1837 024510
1838 024514
1839 024516
}gzg 024522

032703
001037
032703
001061

010000

31$:

140000

1842

1843 024524

032737

000200

1847 (24534

004737

056572

024542

000240

024540
024544
024546

024550

1848 024554
1849 024554
1850 024562

1851
1852
1853
1854

024570
024574
024576
024602

1855 024606

}gg; 024610
1858
1859 024614

001102

000405

104000
004736

000137

025004

013737
012737

001352
000200

010437
(001002
095237
010337
104344

000137
:

001174

1863 024624

004737

056572

1864 024644

1865 024644

1866 024652
1867 024660
}ggg 024662

1872 024666
1873 024674
1874

IS8T
BNE

R4
328

;1S THIS THE FIRST HEADER WORD ?
INO !

BIT
BNE
BIT
BNE

RFMT16,R3
358
#MSE ! USE ,R3
378

:SHOULD FER BE SET ?
SYES !
*SHOULD BSE BE SET ?
LYES !

42%

“GO TO 42% IF ERROR

000405
000240
104000
004736
000137

001142
001140

33§:

34$:

001352

025004
001352

#HCE ,RMER1 ]

:WAS HCE DETECTED ??

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

398

SYES !

33§

GO TO 33% IF NO ERROR
;RETURN HERE IF ERROR

EMT
JSR

PC,a(SP) +

;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

MOV
MOV

RMER11,$BDDAT
#HCE , $GDDAT

;RECEIVED STATUS
*EXPECTED STATUS

JMP

MOV
BNE
INC
MOV

42%

:GO TO 42% IF ERROR

R4, $TMPO
34$
$TMPO
RZ,$TMP1

EMT

344

JMP

012737 000020 007140
013737
104343
000137

BIT

NOP

:R4 = HEADER WORD NUMBER AND
*ADJUST NUMBER.
:
:R3 = BIT POSITION

428

:VERIFY THAT A FORMAT ERROR WAS DETECTED
358

BIT

#FER,RMER11]

;WAS FER DETECTED ??

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BNE

248$:

001142

BR
NOP
EMT
JSR
JMP

MOV

MOV
EMT
JMP

025004

1870

1871 024666

PC,a(SP)+ -

JMP

BNE

025004

000020

024630
024632
024634
024636
024640

;GO TO 31$ IF NO ERROR

*RETURN HERE If ERROR
*ERROR # DEF INED BY PRIERR SUBROUT INE
*GO BACK FOR MORE ERROR CHECKS

001174
001176

032737
001046

001352

32%:

1860 024614

}ggg 024622

318

NOP
EMT
JSR

:VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED

1844 024524

}gzg 024532

K 10
4-APR-81 01:15:59 PAGE 13-56

024500

1833 024504

MACRO v04.00

39¢

SYES !

36%

‘

‘
PC.a(SP)+

42%

#FER, $SGDDAT

RMERTI,$BDDAT
343
42%

:GO TO 36$% IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

:GO TO 42% IF ERROR

:EXPECTED STATUS
:RECEIVED STATUS

:VERIFY THAT A BAD SECTOR ERROR WAS DETECTED

032737
001021

100000

001400

37%:

BIT
BNE

#BSE ,RMER2]
398

:WAS BSE DETECTED ??
TYES !

SEQ 0727

CZRMOBO RMOS/3/2 FCTNL TST 3

WRITE, READ W/ HCE ERROR

1875 024676

024702
024704

024706
024710

024712

1876 0264716

004737

000405
000240
104000
004736

000137

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

056572

025004

104345

1882

004737

024746
024750
024752

000240
104000
004736

004744 000405

39%:

044710

}% 024762
1889 024764
1890 024766
1891 024770
1892 024774
1893 025000
1894 025000
1895 025004

1896 025004
1897

PC,a(SP)+

sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK _FOR MORE ERROR CHECKS

MOV
MOV

RMER21,$BDDAT
#BSE , $GDDAT

:RECEIVED STATUS
*EXPECTED STAIUS

JMP

350

JSR

42%

345

;GO TO 38% IF NO ERROR
;RETURN HERE IF ERROR

;GO TO 42% IF ERROR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

ASL

;SHIFT TO NEXT BIT

46%

;EXIT IF ERROR

B8R

NOP
EMT
JSR

024754 000137 025004

1886 024760

EMT
JSR

38%

:CHECK FOR OTHER ERRORS

1884 024740

1885 024760

;GO VERIFY RESULTS OF DATA TRANSFER

EMT

}w 024734 000137 000350
1883 024740

PC,DTASTS

JMP

38%:

SEQ 0128

JSR

BR
NOP

1877 024716 013737 001400 001142
1878 024724 012737 100000 001140
1879 024732

L 10

MACRO v04.00

JMP

408:

006303

001006
005704
001006
012704 000002
012703 000001
000137 023346

BNE
ST
BNE
MOV
MOV
JMP

418:

42%:

000464

408%

428%

418
R&4
423
#2.R4
#1.R3
2s

“GO TO 40% IF NO ERROR

*G0 TO 42$% IF ERROR
'

*REPEAT IF NOT DONE
:SECOND HEADER WORD DONE??
SYES!!
*SETUP FOR 2ND HEADER WORD
*SETUP FOR HCE

t'ttttttttttttt'tttittttt'ttitttttttttittttttttttttttttttttt*t*

1898

tREFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

1900 025006

i3s:

1899

1901 025006 012737 177776 001414
1902 025014 012737 010000 001444
1903 025022 012737 106436 001416
1904 025030

012737

000062

1907
025042

004737

037316

}% 025036 004737 042174
025046

054130

22822 22283 2 22282222 23222323 323323 2332223233333 333332332333 32333

001412

MOV
MOV
MOV

#-2,RMJCO
#FMT16,RMOFO
#BUF ONE ,RMBAD

;ONLY TWO HEAD WORDS
:ALWAYS IN 16 BITS MODE
*BUFFER ADDRESS.REFORMAT THE SECTOR

JSR

PC, GENBUF

SSET UP THE BUFFER

MOV

JSR

.WORD

#WH,RMCS10
PC,TSTPRP

054130

000404

025054

104000

1908 025062

1909 025062

1910 025070

012737 000063
012702

001553

001412

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

025056 000137 025062

*TASK DESCRIPTOR AS FOLLOWS:
*CLEAR CONTROLLER & SELECT DEVICE

RECALIBRATE IF “'SKI"

025052 000240

;PREPARE DEVICE FOR TEST

*VERIFY CONTROLLER CLEAR OPERATION

025050

;JWRITE HEAD AND DATA COMMAND

NOP
EMT

44%:

443

JMP

448

MOV

#WH'GO,RMCS10

MoV

#PUTINX ,R2

VERIFY RECALIBRATION

OR 'PIP"* IS SET

“GO TO 44$ IF NO ERROR

*RETURN HERE IF ERROR

.‘ERROR # DEFINED BY TSTPRP SUBROUT INE

*GO TO 44$ IF ERROR

:FORMAT THE SECTOR
;SET UP THE REGS

CZRMOBO RMOS5/3/2 FCTNL TST 3

WRITE, READ W/ HCE ERROR

1911 025074
1912 025100
1913 025104
1914 025110
1915 025114
1916 025120
1917 025124

1918 025130

025134
025136
025140

112722
112722
112722
112722
112722
112722
112722

004737

000404
000240

104000

043330

000137

025156

1920 025150

004737

043672

1921 025154

}35% 025156

000240

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

000006
000032
000034
000004
000002
000000
000200

025142

1919 025146

M 10

MACRO Vv04.00

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +
H#RMWC
, (R2) +
#RMCST, (R2)+
#200, (R2)+

B8R
NOP

45%

JSR

EMI

45%:

JSR

PC,TIMOUT

A AR AR R

;*TEST 15

025160
025162
025166
025172
1925 025176

15115:

000004

000240
012706
013700
013701
012737

001276
001466
000015

001226
.

Jlggg
1930 025210

}3;; 025214
1933
1934 025214

025220

012704

012703

004737

154130

AR AR R

AR AR

:LOOP #1

000000

1%:

000001

sWAIT FOR FINISH

AR AR AR AR

WRITE, READ W/ HCI
R AR

R R

AN AR

;PREPARE

#STACK,SP

$8ASE ,RO

TSTQUE ,R1
#15,8TESTN

AR AR AR AR R

1938 025234
1939 025242
1940 025250
1941 025256
1942 025264

KA AR

AAAARAA A AN

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

FORMAT ,WRITE ,READ

#0,R4

MOV

#1,R3

AR AN AR AN KA AN A RN

RAR

;HEADER WORD

JHCE BIT

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

.WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

000404
000240
104000
000137

B8R
NOP
EMT
JMP

026562

1936

1937 025234

AN AR AR

AR AN AR AN AR AR KRN R R AN

025222
025224
025226
1935 025230

AN KA RRRARNAARRAANAARAAARAA
AN

;SCOPE CALL

MOV

2%:

:
037316

;GO TO 46% IF ERROR

SCOPE

NOP
MOV
MOV
MOV
MOV

001100

1926

1929 025204

AR R

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

JERROR # DEFINED BY PUT SUBROUTINE

46%

NOP

SEQ 0129

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

JMP

NOP

46%:

1924

025156
025156

PC,PUT

;RECALIBRATE IF ‘'SKI'' OR 'PIP'" IS SET
;VERIFY_RECALIBRATION
;GO TO 3% IF NO ERROR

41%

;GO TO 41% IF ERROR

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

:LOAD PARAMETERS AND GENERATE DATA BUFFER

012737
012737
012737
012737
012737

000000
000000
106436
177376
010000

001446
001420
001416
001414
001444

3%:

MoV
MoV
MoV
MOV
Mov

#0,RMDCO
#0,RMDAO
#BUFONE ,RMBAO
#-258, ,RMWCO
#FMT16,RMOFO

sCYLINDER = 0
;TRACK = 0, SECTOR = 0
;BUS ADDRESS
;2 + 256. WORDS (2' (OMP)
216 BIT FORMAT

CZRMOBO RMOS5/3/2 FCTNL TST 3
115
WRITE, RZAD W/ HCI
1943 025272
1944
1945

7 025320

o
Y
wn
W
v
n

040242

000405
104401
104000
000137

030364
001403
040364
000402
050364

106436

MOV

001174

;

001176

SEQ 0130

;WRITE HEADER AND DATA (OMMAND
;CALL BAD SECTOR MODULE
;GO TO 4$ IF NO ERROR

TYPE

.SCTMSG

JMP

37%

MOV -

#ONES ,$TMPO

;STARTING ADDRESS OF PATTERN

JSR

PC,GENBUF

;GO GENERATE BUFFER FOR FORMAT

EMT

MOV

;TYPE BAD SECTOR MESSAGE

ERROR # DEFINED BY BADSCT SUBROUT INE

;GO TO 37% IF ERROR

#1,8TMP1

;RANGE OF PATTERN

; CHANGE HEADER WORD TO FORCE ERROR DURING WRITE

106436

#WH!GO,RMCS10

sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
48

026410

072016
000001
042174

5%:

BIT
BEQ
géc

R3,BUFONE(R4)
5%
Q3 BUF ONE (R4)

;SET OR RESET BIT??

BIS

R3 .BUF ONE (R4)

;SET BIT

JRESET BIT

043330

b
d
b
b e
e

702
722
722
722

712

104000
000137

026410

004737

042774

004737

043672

004737
000404
000240

043060

000137

026410

004737
000405

056572

~
n

1973

1978
1979 025446

025452
025454
025456
025460

025470

104000

MOV
MOVB

‘PUTINX R2
#RMDC, (R2)+

MOVB
MOVB
MOVB
MOVB

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

MOvVB

’e

MOVB

MA.(RZ)**

#200, (R2)

;FORMAT THE DRIVE

JSR
BR
NOP
EMT

JMP

;R2
= BYTE ENTRY POSITION

PC,PUT
8%

37%

;TERMINATE TABLE
:

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 8% IF NO ERROR
;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

JWAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO 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 9% IF NO ERROR
9%
BR
NOP

9%:

EMT
JMP

;RETURN HERE

37%

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 37% IF ERROR
i

JVERIFY NO ERRORS DURING FORMAT
;GO VERIFY RFSULTS OF DATA TRANSFER
PC,DTASTS
JSR
;GO TO 10% IF NO ERROR
10%
BR
[m——

LASLASTASTASTANT
ST N1,V
NNN
nornoro
S LAVIN]

004737
000404
000240

d 2 O

001553
000034
000006
000004
000002
000032
000000
000200

25400
25404

-—

001412

070426

012737
012737
004737

— et e

OOOOO%OOOO

004737

\0‘8
&
~N

D e
b

000063

N 10

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

6&0AD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

25360

o
n

D
b
b
D
nd
e
D e
el

D e

NVONONDWN—-=O0

18 025326
025334

0000000000

D s

FRRIREL2E mmmwmmmmmm?lef

025300
025304
025306
025312
025314
46 025320

012737

MACRO v04.00

f{gmeo RMOS/3/2 FCINL TST 3
WRITE, READ W/ WCI

MACRO v04.00

025472 000240

025474
025476

B 11

4-APR-B81 01:15:59 PAGE 13-60

NOP

104000
004736

EMT
JSR

PC,a(SP)+

“ERROR # DEF INED BY DTASTS SUBROUT
INE
1GO BACK FOR MORE ERROR CHECKS

:MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
#118.SLPERR

19%

:.‘.ttt'tt.tt.'.'..l.i'"'..Q'.....'...'.."...Q""'........'.."

1991

108:

378

:RETURN HERE If ERROR

025500 000137 026410
;ggg 025504
1986
1987 025504 012737 025514 001124

;333 025512 000410

JMP

SEC 0131

B8R

128

*LooP #2

1992

}332 025514

1995

1996 025514

025520

GO TO 37% IF ERROR

:SKIP TO WRITE OPERATION

WRITE .READ

118:
004737

154130

037316

:PREPARE DEVICE FOR WRITE OPERATION
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

025522 000404
025524 000240
025526 104000
025530 000137 026410

]gg; 025534
1999

2000 025534

2001 025534 012737 012000 001444
2002 055542 012737 000061 001412
2003 025550 012737 106442 001416
2004 025556 012702 001553
2005 025562

2006 025566

112722

000006

112722
112722

000032
000004

BR
NOP
EMT
JMP

378

13%:

MoV
MOV
MOV

#FMT16'HC] ,RMOFO
#\D ' GO_RMCS10
#BUF
ONE +4 ,RMBAD

MOV

2009 055602 112722 000002

MOVB

112722
112722

000000
000200

2013 025616
025622
025624
025626

004737
000404
000240
104000

043330

s 025634

004737

042774

004737

043672

“GO TO 12 IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO T0 378 IF ERROR
-

;INHIBIT HEADER COMPARE
*WRITE DATA COMMAND
*LOAD STARTING BUFFER ADDRESS
*LOAD PUT REGISTER INDEX TABLE

#RMDA,(R2)+

#RMDC, (R2) +

MOVB
MOVB

#RMOF
. (R2)+
#RMBA. (R2)+

MOVB
MOVB

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

JSR
BR
NOP
EMT

*VERIFY RECALIBRATION

#PUTINX ,R2

MOVB

2010 025606
58}5 025612

128

128:
:WRITE DATA TO THE DRIVE

000034

2007 025572
2008 025576

112722

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

WRMWC.(R2)+

PC,PUT
14§

:TERMINATE TABLE

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 14$ IF NO ERROR
‘RETURN HERE IF ERROR
»
*ERROR # DEFINED BY PUT SUBROUTINE

025630 000137 026410
gg;g 025634
2016

JMP
37%
‘GO TO 37$ IF ERROR
148:
:SETUP GET INDEX TABLE TO READ ALL REGISTERS

2018

:WAIT FOR COMMAND TO COMPLETE

025640

JSR

PC,GETSTS

PC,TIMOUT

:GO TO GETSTS SUBROUT INE

;GO TO TIMOUT SUBROUTINE

$1znmeo RMO5/3/2 FCINL TST 3
5

WRITE, READ W/ H(]

2019
2020
2021 025644

004737

025652
025654

000240
104000

025650 000404

MACRO v04.00

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

SEG 01372

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

043060

158

GO TO 158 IF NO ERROR

JMP

37%

“GO TD 37% IF ERROR

NCP
EMT

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

025656 000137 026410
gggg 025662

158%:

2024
2025 025662

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

004737

025666 000405
025670 000240
025672

044056

104000

004736

5859 025702

005037

001140

2028 025706
2029 025714
2030 025716

032737
001407
013737

000220

001352

001142

025676 000137 026410

2038 025760
2039 025760

042737
000412
013737
032737
001406
042737

2044 025766

004737

025776
026000

104000
004736

001400 001142
100000 001400
077777 001142

;

056572

004737

026016
026020

104000
004736

026012 000405
026014 000240

$GDDAT

BIC
BR
MOV
BIT
BEQ
BIC

17%:

188%:

EMT

:
198
:
208

044710

:RECEIVED STATUS
SANY BAD SECTOR ERROR ?
‘NO !!
*SAVE BSE FOR ERROR

EMT
JSR

PC.a(SP)+

*ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY SECERR SUBROUT INE
*GO BACK_FOR MORE ERROR CHECKS

218
37%

22%

37%

2055
2056 026036

23%:

:LooP #3

*CLEAR DONT CARES

346

2053

2054

;RECEIVED STATUS

;GO VERIFY RESULTS OF DATA TRANSFER

;ANY ERROR?:

PC_,DTASTS

JMP

;EXPECTED STATUS

#~C<HCE 'FER>, SBDDAT
18$
.
RMER21 , SBDDAT
#BSE , RMER2]
198
#~CBSE , SBDDAT

: CHANGE LOOP ADDRESSES
MOV
#23%, SLPERR

000410

*GO TO 37$% IF ERROR

#HCE ! FER,RMER1]
178
RMER11,$BDDAT

2049
2050 026026 012737 026036 001124
228?5 026034

:GO BACK FOR MORE ERROR CHECKS

JSR

B8R
NOP
22%:

;ERROR # DEFINED BY PRIERR SUBROUTINE

37%

JMP

21%:

37%

*GO TO 16% IF NO ERROR
*RETURN HERE IF ERROR

JMP
B8R
NOP

026022 000137 026410

2047 026026
2048

CLR

BIT
8E0
MOV

026002 000137 026410

2045 026006
2046 026006

PC,a(SP)+

JMP

177557 001142

104346

025772 000405
025774 000240

JSR

168:

2040 025762 000137 026410

2041 025766
2042
2043 025766

168

EMT

025674

2031 025724
2032 025732
2033 025734
2034 025734
2035 025742
2036 025750
2037 025752

B8R
NOP

:GO TO 218 IF NO ERROR
*RETURN HERE IF ERROR
26O TO 37% IF ERROR

*GO TO 22% IF NO ERROR
*RETURN HERE IF ERROR
“GO TO 37% IF ERROR
:

248

AR A AR AR AR R AR A AR AR RN C R AR

READ

IR AR AR AR

A TR AR TR

RMOBO RM0S5/3/2 FCTINL 1ST 3
5
WRITE, READ w/ HCl

2057
2058
2059 026036
026042

MACRO v04.00

DN
4-APR-81 01:15:59 PAGE 13-62

SEQ 0133

;PREPARE DEVICE FOR READ OPERATION
JSR

037316

.WORD

PC,TSTPRP

;FREPARE DEVICE FOR TEST

154130

:TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

026044
026046
026050
026052
2060 026056
2061
2062
2063 026056

000071

001553
000006
000032
000034

001412
001416

JMP

37%

MoV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000004
000002
000000
000200

2075 026132
026136
026140

2084 026176
2085
2086
2087 026176
026202
026204
026206
006210

24%:

:GO TO 24% IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUT iNE

:GO TO 37% IF ERROR

é?EAD DATA FROM DEVICE

2068 026102
2069 026106
2070 026112
2071 026116
2072 026122
2073 026126
2074

026170
026172

248

NOP
EMT

026410

107446

026142
026144
2076 026150
2077
2078
026150
9
207
2080
026154
081
2082
2083 026160
026164
026166

OR ‘PIP'* IS SET
sRECALIBRATE IF ‘'SKI'°
N
:VERIFY RECALIBRATIO

JSR
BR

043330

NOP

EMT

026410

004737

004737
000405
000240

044056

004736

JSR

37%

PC.GETSTS

:WAIT FOR COMMAND TO COMPLETE

043672
043060

PC,PUT
26$

:READ DATA COMMAND
:LOAD STARTING BUFFER ADDRESS
:LOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:GO TO 26% IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 37% IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

042774

004737
000404
000240
104000
000137

104000

26%:

JMP

#RD ! GO,RMCS10
#BUF TWO+4 , RMBAD
#PUTINX ,R2
#RMDA, (R2)+
#RMOF, (R2)+
#RMDC, (R2) +
#RMBA, (R2)+
#RMWC, (R2)+
#RMCS1,(R2)+
#200, (R2)

JSR

PC, TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION
JSR

NOP

026410

27%:

EMT
JMP

PC,GET

27%
37%

:GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 27% IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 37% IF ERROR

sCHECK FOR ERRORS DURING READ OPERATION
JSR

NOP

EMT

JSR

PC,PRIERR

28%

PC,a(SP)+

:GO CHECK FOR PRIMARY ERRORS

:GO TO 28% IF NO ERROR
SRETURN HERE IF ERROR

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

'lgHOBO RMOS/3/2 FCINL TST 3

MACRO v04.00

WRITE, READ W/ H(!

026212

000137

026410

sggg 026216

005037

G01140

2090 026222
2091 026230
2092 026232
2093 026240
2094 026246
2095 026250

032737
001407
013737
042737
000412

000220

001352

001352
177557

001142
001142

013737
032737
001406
042737

001400
100000

001142
001400

077777

001142

2096 026250
2097 026256
2098 026264
2099 026266
2100 026274
2101 026274
2102 026276

2103 026302

104346
000137

026410

004737

056572

28%:

026306

026310
026312
026314

026316
2107 026322
2108 026322
026326
026330
026332
026334
026336
2109 026342

000405

000240
104000
004736
000137
004737
000405
000240
104000
004736
000137

32%:

026410

106442
107446

026354
026356
026360
2111 026364
2112 026364
2113 026366
2114 026370
2115 026372

000240
104000
000137

026352 000404

2116 026374

2117 026400
2118 026404
2119 026404
2120 026410
2121 026410

2122
2123

006303
001006
005704
001006

012703
012704

000137

34%:

'
35%:

000001

2125 026412

—

BIT
BEQ
MOV
BIC
BR

#HCE ' FER,RMER1]
29%
RMER11,$BDDAT
#~C<HCE 'FER>, $BDDAT
308

:ANY ERROR ?
:NO!!
:RECEIVED STATUS
:CLEAR DONT CARES

MOV
BIT
BEQ
BIC

RMZR21 , $BDDAT
#BSE ,RMER2]
31%
#~CBSE , $BDDAT

;RECEIVED STATUS
:ANY BAD SECTOR ERROR ?
:NO !
;CLEAR DONT CARES

EMT
JMP

346
37%

JSR

PC.DTASTS

NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR
JMP

JSR

NOP
EMT
JMP

36%:

025214

37%:

000464

338

PC.a(SP)+
37%
PC,SECERR
34$

SEXPECTED STATUS

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 33% IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
GO TO 37% IF ERROR

PC.a(SP)+
37%

:GO CHECK FOR SECONDARY ERRORS
:GO TO 34% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 37% IF ERROR

PC ., CMPBUF

;GO COMPARE WRITE, READ DATA BUFFERS

35%

:GO TO 358 IF NO ERROR

BUFONE
+4
BUF TWO+4
:

:STARTING ADDRESS OF WRITE BUFFER
-STARTING ADDRESS OF READ BUFFER

37%

*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPBUF SUBROUT INE
GO TO 37% IF ERROR

ASL
BNE
TST
BNE

R3
36%
R4
37%

:SHIFT HCE BIT
;CONTINUE IF NOT DONE
:SECOND HEADER DONE??
JYES!!

MOV

#2 R4

:DO SECOND HEADER WORD

MOV

000002

:GO TO 37% IF ERROR

$GDDAT

026410

37%

SEQ 0134

CLR

.WORD
.WORD

#1.,R3

JMP

41%

:START WITH BIT 0

:EXIT IF ERROR

R AR RRAARRRRRRE AR RRAERRAAR KA R RRERARE AR AR AR R AR R ®
'RErORMT SECTOR THAT WAS WRITTEN WITH BAD HEADER

2124

2126 026412
2127 026420

JMP

33%:

044710

2110 026342 004737 042432
026346
026350

30%:
31%:

2104

2105 026302
2106 €26302

29%:

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

B 222 222222222222 22222223322333333 3333333233223 33333332222222R2 22 2

012737
012737

177776

010000

001414
001444

$8s:

MOV

MoV

#-2 ,RMWCO

#FMT16 ,RMOFO

;WORD COUNT

;IN 16 BIT MODE

IST 3
WRITE, READ W/ HCI

(ZRMOBO RMOS/3/2 FCTNL

115

n—

21 28 026426
21 29 026434
21 %0 026442
21
21 32 026446
026452

012737
012737

004737

004737
054130

106436

000062
042174

MACRO v04.00
001416

MOV

001412

4-APR-81 01:15:59 PAGE 13-64
#BUF ONE ,RMBAD

MOV

#WH,RMCS10

JSR

PL,TSTPRP

JSR

037316

.WORD

PC,GENBUF

054130

SEQ 0135
;BUFFER ADDRESS

. FORMAT (COMMAND
sSET UP BUFFER

;PREPARE DEVICE FOR TEST

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

026466

S
R

—_ e e

026500
026504
026510
026514
026520
026524
026530

s 2

WNNWN

xu«»~c><fi£~u8&n¥fiu

—
—
e
—

DD DN

NONUNINLNDNL
PPN NN

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

026534

R el
Voo ~NONS

—

ronurOrONONY

001412

000034
000004
000002
000000
000200

39%

;VERIFY RECALIBRATION
;GO TO 39% IF NO ERROR

JMP

39%

;GO TO 39% IF ERROR

MOV
MOV
MOVB
MOVB

#WH'!GO,RMCS10
#PUTINX ,R2
#RMDA
, (R2) +
#RMOF
, (R2) +

JSR
BR

PC.PUT
40%

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

EMT
JMP

41%

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

JSR

PC, TIMOUT

NOP
EMT

MOVB
MOVB
MOVB
MOVB
MOVB

043330

026540
026542

026544
026546
026552
026554
026560
026562

000063
001553
0C0006
000032

398

NOP

026562

000240

40%:

043672

41%:

NOP
NOP

#RMDC, (R2) +
#RMBA
, (R2) +
H#RMWC
, (R2) +
#RMCS1, (R2)+
#200, (R2) +

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUT INE

; TABLE ADDRESS

;RETURN HERE

IF ERROR

::'t't*tfifi'*‘ttfi"flfi.""t*tfl***'***"fi‘t‘fli*fi'*fifittt‘t'*i‘tttfil.

;*TEST 16

WRITE, READ W/ IVC ERROR

026562
026562
026564
026566
026572
026576
026602

000004
000240
012706
013700
013701
012737

IST16:

001100
001276
001466
000016

SCOPE

NOP
MOV
MOV
MOV
MOV

001226

;SCOPE CALL

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

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

::.ifi'fi*ttt'*fifit***flit'ti*t**tt*t.fi"'**"‘ifitt""'i'Qttittt‘."

WRITE ,READ

;LOOP #1

AR
— —
RN&OO

%§0AD PARAMETERS AND GENERATE DATA BUFFER

SRO&

026610

000000
000000

001446
001420

MOV
MOV

006640

010000

001444

MOV

0000
ONONONY

SrnunnuunvnnunnuO
NYO
D W —O

et e

LSS LS

LN LS L S LN N T ST ]

;:.."fi**fit'*'tt*i'*fifi'tt'.ttfififi*'***‘t**t*‘*'t*'ttifit*ifiii't"tt

106436
177400

001416
0014174

MOV
MOV

#0,RMDCO
#0,RMDAO

#BUFONE ,RMBAO
#-256. ,RMW(O
#FMT16,RMOFO

;CYLINDER = 0
;TRACK = 0, SECTOR = 0
;BUS ADDRESS
:256. WORDS (2'S COMP)

;16 BIT FORMAT

CZRMOBO RMOS5/372 FCTINL TST 3
16

WRITE, READ W/

5125 026646
2163

026654
026660
026662
026666

026670

2164 026674

2165 026676
2166 026702
5}2; 026710
2169

2170 026714

026720

IVC ERROR

012737

000060

004737
000405
104401
104000

040242

MACRO v04.00
001412

027602

012737
012737

001420
000001

004737

037316

004737

042174

154130

MOV

#D ,RMCS10

001174
001176

28:

JNP

223

MOV
MOV

#RMDAO,$TMPO
#1,$TMP1
PC . GENBUF

JSR

SEQ 0136

;WRITE HEADER AND DATA COMMAND

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC.BADSCT
BR
28
TYPE
,SCTMSG
EMT

070426

000137

6 Nn

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

:CALL BAD SECTOR MODULE
:G0 TO 2$ IF NO ERROR
:TYPE BAD SECTOR MESSAGE
*ERROR # DEF INED BY BADSCT SUBROUTINE

160 TO 22$ IF ERROR

;USE SECTOR FOR CATA PATTERN
.
;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR WRITE OPERATION
JSR

LWORD

PC, TSTPRP

;PREPARE DEVICE FOR TEST

154130

*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

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

026722
026724

000404
000240

026730

000137

2174 026734
026742
026750

112737
112737
012737

026762
026764

000404
000240

026726

2171 026734
2172
2173

026756
026766

026770

g; ;2 026774

2177
2178 026774

2179 026774
2180 027002

2181 027010
2182 027014
2183 027020
2184 027024
2185 027030
2186 027034
2187 027040
2188 027044
g}gg 027050

104000

004737
104000

000137

012737
012737

012702
112722
112722
112722
112722
112722
112722
112722
112722

2191 027054

004737

027062

000240

027060

000404

043330

3%:

001553
001554
001436

001553
000024
000006
000034
000032
000002
000004
000000
000200
043330

JMP

22%

;GO TO 3% IF NO ERROR
sRETURN HERE IF ERROR
~

‘

;ERROR # DEFINED 8Y TSTPRP SUBROUTINE

;GO TO 22% IF ERROR

MOVB
MOovB
MOV

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

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

BR
NOP

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

JSR

4%:

001412
001436

;VERIFY_RECALIBRATION

;RESET VOLUME VALID

EMT

027602

000061
000000

EMT

027602

000024
000200
000001

BR
NOP

JMP

PC,PUT

22%

;GO WRITE RMMR1 VIA PUT SUBROUTINE
;ERROR DEFINED BY PUT SUBROUTINE

;GO TO 22% IF ERROR

;SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND
5%:

MOV
MoV

MOV
MOvB
MOvB
MOVB
MovB
MOVB
MOVB
MOVB
MOVB
JSR

NOP

#WD !GO,RMCS10
#0,RMMR10_ '
#PUTINX ,R2
#RMMR1, (R2) +
#RMDA, (R2) +
#RMDC, (R2) +
#RMOF , (R2) +
#RMWC , (R2) +
#RMBA, (R2) +
ARMCST, (R2)+
#200, (R2) +
PC,PUT

sWRITE DATA COMMAND
;RESET DIAGNOSTIC MODE

;LOAD PUT REGISTER INDEX TABLE

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

;GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR

MACRC v04.00
CZRMOBO RMOS5/3/2 FCTNL 1ST 3
116
WRITE, READ W/ IVC ERRCR
104000

027602

027072

004737

042774

027076

004737

043672

027102
027106
027110
027112
027114
2200 027120

004737

043060

2203 027120
027124
027126
027130
027132

004737
000405
000240

<
b
Sl

bl S ks SR
s

8L F8 R3S

000137

027064
027066
027072

027134
2204 027140
2205 027140
2206 027146
2207
2208 027150
027154
027156
027160
027162
027164
2209 027170
2210 927170
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
2225

000404
000240
104000
000137

EMT

6%:

JSR

056572

013737

013737
052737
104342
000137

004737
000405
000240
104000
004736
000137

001400

8%:

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

BIT
BNE

#1VC ,RMERZI
108

;WAS "‘IVC"' DETECTED??
SYESL!

JSR

PC,.DTASTS

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

PC.,a(SP)+
22%

;GO TO 22% IF ERROR

NOP
EMT
JSR

027602

9%:

001400
001400
010000
027602

JMP

MOV
MOV
BIS

EMT
JMP

RMERZ1 ,$BDDAT
RMERZ2] ,$GDDAT
#1VC,$GDDAT
342
22%

JSR

PC,SECERR

10%:

044710

BR
NOP
EMT
JSR

027602

027250

PC,GETSTS

;CHECK FOR ERRORS DURING WRITE OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
BR
8%
;GO TO 8% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUT INE
PC,a(SP)+
JSR
;GO BACK _FOR MORE ERROR CHECKS
JMP
22%
;GO TO 22% IF ERROR

104000

004736
000137

;GO TO 22% IF ERROR

7%:

027602

004737
000405
000240

;ERROR # DEFINED BY PUT SUBROUTINE

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

044056

010000

22%

:WAIT FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

027602

032737
001024

JMP

SEQ 01%7

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
C00137

H 11

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

118%:

001124

JMP

PC,a(SP)+
22%

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

;JRECEIVED STATUS
JEXPECTED STATUS

;GO CHECK FOR SECONDARY ERRORS

;GO TO 11$ IF NO ERROR

sRETURN HERE IF ERROR

sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS

;GO TO 22% IF ERROR

; CHANGE LOOP ADDRESSES
#12%,8LPERR
MOV
BR
13%
'"tfl'!"'thtfl'".t‘fi"t""!'tlt'l!ttit't'i""".Q.'Q'tll"lit.'t

;LOCP #2

READ

gZ R MOBO RMOS5/3/2 FCTINL T1ST 3
16

WRITE, READ W/

IV(C ERROR

MACRO v04.00

2226 027250
2227

2228

2229 027250

027254

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

12%:
004737

154130

SEQ 0135

{

:PREPARE DEVICE FOR READ OPERATION

037316

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
:VERIFY PACK ACKNOWLEDGE

OR 'PIP'' IS SET
:RECALIBRATE IF ''SKI'*

027256

000404

027264
gg;? 027270

000137

027602
.

112737
112737
012737
004737
000404
000240
104000
000137

000024
000200
000001
043330

027260
027262

2232
2233 €27270

027276
027304
027312
027316
027320
027322

027324

2234 027330
2235
2236
2237 027330

000240
104000

012737

000071

2243 027362
2244 027366
2245 027372

112722
112722
112722

2239 027336
2240 027344
2241 027352
2242 027356

2246 027376
2247 027402
2248 027406
Sggg 027412

012737
012737
012702
112722

112722
112722
112722
112712

=
001553
001554
001436

;RESET VOLUME VALID
MOVR
#RMMR1,PUTINX

MOVB
MOV
JSR
BR

#200,PUTINX+1
#DMD ,RMMR 10
PC,PUT
14%

JMP

22%

NOP
EMT

14%:

001412

:READ DATA FROM DEVICE
15%:

MOVB
MOVB
MOVB

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

JSR
BR

PC,PUT
16%

JMP

22%

001416
001436

MOV
MOV
MOV
MovB

000004
000002
000000
000200

2254
" 027434

004737

042774

004737

22%

000006
000032
000034

043330

’ 027440

JMP

#RD!GO,RMCS10

004737
000404
000240
104000
000137

256

13%:

MOV

107442
000000
001553
000024

2251 027416
027422
027424
027426
027430
gggg 027434

13%

NOP
EMT

027602

2238 027330

027602

043672

MOVB
MOVB
MOVB
MOVB

NOP
EMT

16%:

#BUF TWO,RMBAO
#0,RMMR10
#PUTINX ,R2
#RMMR1, (R2) +

;VERIFY RECALIBRATION

;GO TO 13% IF NO ERROR

:RETURN HERE IF ERRCOR
:ERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 22% IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUT INE
:GO TO 14%$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUT INE
:GO TO 22% IF ERROR
.

:READ DATA COMMAND

:LOAD STARTING BUFFER ADDRESS
;RESET DIANOSTIC MODE
:LOAD PUT REGISTER INDEX TABLE

#RMBA, (R2) +
#RMWC
, (R2) +
#RMCS1,(R2)+
#200, (R2)
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:GO TO 16$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 22% IF 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

MACRC v04.00
CZRMOBO RMOS5/3/2 FCTNL 1ST 3
116
WRITE, READ W/ IvC ERROR
2258
2259 027444
027450
027452
027454
027456
2260 027462
2261
2262
2263 027462
027466
027470
027472
027474
027476
2264 027502
2265 027502
2266 027510
2267
2268 027512
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

J 1
4-APR-81 01:15:59 PAGE 13-68

:GO READ STATUS FOR READ OPERATION
JSR

NOP
EMT

17%:

JSR

032737
001024

010000

001400

004737
000405
000240
104000

056572

027602

013737
052737
013737

001400
010000
001400

000137

027602

004737
000405
000240

044710

104342

s
|

*GO TO 178 IF NO ERROR
‘RETURN HERE

IF ERROR

*ERROR # DEFINED BY GET

22%

*GO TO 22$ IF ERROR

SUBROUT INE

;GO CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

PC,A(SP)+

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

BIT
BNE

#1VC,RMER2]
208

;WAS "‘IVC'* DETECTED??
SYES!!

JSR

PC.DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

JMP

NOP
EMT
JSR

JMP

001140
001140
001142

MoV
BIS

MOV
EMT
JMP

NOP
EMT
JSR

104000

004736
000137

:GO READ REGISTER(S) WITH GET SUBROUTINE

17$

PC.PRIERR

027602

004736
000137

JMP

PC,GET

:CHECK FOR ERRORS DURING READ OPERATION

104000

004736
000137

SEQ 0139

027602

21%:

JMP

18§

“GO TO 188 IF NO ERROR

22%

*GO TO 22 IF ERROR

198

*GO TO 19% IF NO ERROR

‘RETURN HERE IF ERROR
*ERROR # DEF INED BY DTASTS SURROUTINE
*GO BACK FOR MORE ERROR CHECKS

;
PC,a(SP)+
22%

*GO TO 22% IF ERROR

RMER21 , $GDDAT

;EXPECTED STATUS

RMER21, SBDDAT
342
228

:RECEIVED STATUS

#1VC,$GDDAT

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

PC,R(SP)+

*RETURN HERE IF ERROR
“ERROR # DEF INED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

21%

22%

G0 TO 218 IF NO ERROR

GO TO 22% IF ERROR
.

22%:

.‘".'tt'tl'*fl'.*tt.Qt'tt'ttttfiitttti'fi‘l'fi'fi'itfii'titfitt'ttttttt.t.it
LRTEST 17

WRITE, READ W/ ABORT

":.l'itl’tt"tt*fit.t*.t"t'"lfittti*fi'*'ttfl't‘t't""tl.t.tt.tt't'

2282
2283

2285
2286

027602
027602
027604
027606
027612
027616
027622

000004
000240
012706
013700
013701
012737

1ST17:

001100
001276
001466
000017

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK, SP
$BASE , RO

TSTQUE ,R1
#17.$TESTN

:SCOPE CALL
‘START OF TEST

“INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

“(R1) = DEVICE BEING TESTED
1;SET TEST NUMBER IN APT MAIL BOX

""fit'tttt"it..’Q’tl‘ttttt"tl.tt't.ttttitttittl’fittt'tfi!litttt'ttt't

“LooP #1

WRITE ,READ

;LOAD PARAMETERS AND GENERATE DATA BUFFER

CZRMOBO RM0S/3/2 FCTINL TST 3

117

WRITE, READ W/ ABORT

2287 027630
2288 027636
2089 007644
2290 027652

2291 027660
2292 027666

2293 02767
2295
2296 027674

027700

012737
012737
012737
012737

012737
012737
004737

154130

000000
000000
106436
177400

010000
000061

MACRO v04.00

K 11

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

SEQ 0140

001446
001420

MOV
MOV

#0.RMDCO
#0.RMDAO

:CYLINDER = 0
TRACK = 0, SECTOR = 0

001414

MOV

#-256.,RMWCO

:256. WORDS (2'S COMP)

001416

001444
001412

MOV

18:

MOV
MOV

#BUFONE ,RMBAO

#FMT16,RMOF O
#WD!GO,RMCS10

*BUS ADDRES$S

;16 BIT FORMAT
JWRITE DATA COMMAND

;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 IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE

027702
27704
027706

027710

000404
000240
104000

000137

030520

2300 027714
027722
027730

112737
112737
012737

000014
000200
040000

027746
027750
2301 027754
2302

104000
000137

030520

2297 027714
2298

2299

027736
027742
027744

2303

004737
000404
000240

043330

:
012737

000061

2307 027766
2308 027772
2309 027776
2310 030002
2311 030006
2312 030012
2313 030016

112722
112722
112722
112722
112722
112722
112722

000006
000034
000032
000004
000002
000000
000200

2315 030022
030026
030030
030032
03003
2316 030040

2318

012702

004737
000404
000240
104000
000137

004737

001553
001554
001426

001553

001412

'
042774

218

GO TO 28 IF NO ERROR
‘RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 218 IF ERROR

MOVB
MOVB
MOV

A#RMER1,PUTINX
#200,PUTINX+1
WUNS.RMER10

;SETUP PUT INDEX TABLE
-SET TERMINATOR BYTE
-SET RMER1 OUTPUT BUFFER = UNS

EMT
P

218

ERROR DEF INED BY PUT SUBROUTINE
GO T0 218 IF ERROR

JSR
BR
NOP

PC.,PUT
3s

;GO WRITE RMER] VIA PUT SUBROUT INE
GO TO 38 IF NO ERROR
;RETURN HERE IF ERROR

;WRITE DATA TO THE DRIVE

4$:

MOV

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

043330

030520

;SET UNSAFE ERROR

38:

2304 027754
2305 027754

2306 027762

28:

BR
NOP
EMT
M

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

5%
:

JSR
BR
NOP
EMT
M

#WD!GO,RMCS10

#PUTINX ,R2

#RMDA, (R2)+
ARMDC.(R2)+
#RMOF
. (R2)+
A#RMBA. (RQ)+
ARMWC
. (R2)+
ARMCS,(R2)+
4200, (R2)+

PC,PUT
5%
218

:WRITE DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
GO TO 58 IF NO ERROR
RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
GO T0 218 IF ERROR

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

CZRMOBO RMOS/3/2 FCINL T1ST 3
Tz

WRITE,

2320
2321 030044

030050

030052
030054
030056
2322 030062
2323 030062
2324 030070
2325 030072
2326 030100
2327 030106
2328 030114
2329 030116
2330

233

004737

000404

000240
104000
000137
032737
001432
013737
042737
013737
104347

020000

001350

001350
020000
001350

001140
001140
001142

2333
2334 030122

004737

043060

030130
030132

000240
104000

030134

030174

2339 030200
2340
2341
2342 030200
ggzz 030206

000404

000137

030520

004737

044056

000405

000240
104000
004736

000137

:
030520

004737

044710

000405

000240
104000
004736

000137

012737
000410

030210

21%

BIT
BEQ
MOV
BIC
MOV
EMT

7%:

#P1P ,RMDS ]
7%
RMDSI,$GDDAT
#P1P,$GDDAT
RMDS I, $BDDAT
347

;WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO GET REGISTER STATUS
JSR
PC,GET

JMP

21%

JSR

PC.PRIERR

NOP
EMT

8%:

NOP
EMT
JSR

9%:
'

030520

NOP
EMT
JMP

6%:

043672

2335 0350140
2336 030140
030144
030146
030150
030152
030154
2337 030160
2338 030160
030164
030166
030170
030172

030520

004737

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

;GO GET REGISTER STATUS
JSR
PC,GET

(43060

2332 030116

030126

MACRO v04.00

READ W/ ABORT

10%:

001124

JMP

PC,a(SP)+
21%

JSR

PC,SECERR

NOP
EMT
JSR

;
PC,a(SP)+

10%

JMP

21%

SEQ 0141

;GO READ REGISTER(S) WITH GET SUBROUT INE

;GO TO 6% IF NO ERROK

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUT INE
;GO TO 21% IF ERROR
;WAS COMMAND EXECUTED?
;NO, GO WAIT
JFXPECTED STATUS
;RECEIVED STATUS

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

;GO TO 8% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 21% IF ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 9% IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 21% IF ERROR
=

;GO CHECK FOR SECONDARY ERRORS

;GO TO 10% IF NO ERROR

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

;GO TO 21% IF ERROR

.
; CHANGE LOOP ADDRESSES
MOV
#118 SLPERR
BR
12%

23‘5

""til"l.l'tttfi'fi"fi*fl"""tt.t‘fi"*t*."tAti*t.fi'ii"fi*iil’tfiltttt

2346

;LOOP #2

2348 030210

11%:

2347

2349
2350
2351 030210
030214

004737
154130

037316

READ~

;PREPARE DEVICE FOR READ OPERATION
'
JSR
PC,TSTPRP
;PREPARE DEVICE:FOR TEST
.WORD
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

READ W/

|
N

WRITE,

-l

|
T17

CZRMOBO RMOS/3/2 FCTNL

MACRO v04.00

4-APR-81

M n

01:15:59 PAGE

13-71

SEQ 0142

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

030216

BR
NOP

000404

030224
030230

030520

030230
030236
030244
030252
030256
030260
030262
030264
030270

000014

030270
030270

040000
043330

12%:

001553
001554
001426

030520

012737
012702

112722
112722
112722
}12722

000071
001553
000006
000032
000034
000004
000002
000000
000200

030520

030354

004737

042774

004737
000404
000240

043060

104000
000137

032737
001414
013737

. 042737

104347

000137

15%:

H#UNS ,RMER10
PC,PUT

138

21%

MOV
MoV
MOVB
MovB
MOVB
MOvVB
MOvVB
MOvB
MOvB

#RD !GO,RMCS10
#PUTIN
,R2
X
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
#RMBA, (R2) +

JSR
BR
NOP
EMT
JMP

PC,PUT

JSR

JRETURN HERE

ERROR.

sERROR # DEFINED BY TSTPRP SUBROUT INE

;GO TO 21$ IF ERROR

;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE
;SET RMERT OUTPUT BUFFER = UNS
;GO WRITE RMER1 VIA PUT SUBROUTINE
;GO TO 13% IF NO ERROR
JRETURN HERE

ERROR

sERROR DEF INED BY PUT SUBROUTINE

;GO TO 21% IF ERROR

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

HRMWC
, (R2) +
#RMCS1, (R2)+
#200, (R2)
15%

21%

PC,.GETSTS

JSEE IF DEVICE STARTED COMMAND

020000

001350

001140
001140
001142

030520

#RMER1,PUT
INX

#200,PUTINX+1

sVERIFY RECALIBRATION
;GO TO 12% IF NO ERROR

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

:G0_TO 158 IF NO ERROR

:RETURN HERE

IF ERROR

ERROR # DEFINED BY PUT SUBROUTINE

:G0 TO 218 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

030520

013737

MOVB
MOvB
MOV
JSR
BR
NOP
EMT
JMP

;READ DATA FROM DEVICE
14%:

043330

030354

21%

sSET UNSAFE ERROR

13%:

001412

EMT
JMP

12%

16%:

JSR
_ BR
NOP
EMT
JMP

16%

218

BIT
BEQ

#PIP ,RMDS]

BIC
MOV
EMT
JMP

#PIP,$GDDAT

MOV

17%:

PC,GET

17%
SI
, $GDDAT
RMD

RMDSI,$BDDAT
347
21%

;GO TO GETSTS SUBROUTINE

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 168 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 21% IF ERROR
:UG§'COMMAND EXECUTED??
:NO!!
;EXPECTED STATUS

JRECEIVED STATUS

E
|

CZRMOBO RM0S/3/2 FCTNL IST 3

117

WRITE, READ W/ ABORT

2387

030436

004737

043672

2390 030442
030446
030450
030452
030454
2391 030460
2392 030460

004737
000404
000240

043060

000137

030520

004737
000405

044056

2388

2389

. 2393 030500
2394 030500

030514
2395 030520

104000

000240
104000
004736
000137

030520

004737

044710

000405
000240
104000
004736
000137

MACRO v04.00

N 1

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

:WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

JSR

NOP
EMT

;GO TO 18% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # 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
JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS

JMP

20%:

;GO READ REGISTER(S) WITH GET SUBROUT INE

18%

21%

NOP
EMT
JSR

030520

PC,GET

JMP

;

239

;GO TO 21% IF ERROR

21%

;GO TO 21% IF ERROR

20%

;GO TO 20% IF NO ERROR

21%

;GO TO 21% IF ERROR

21%:
(R

2222222222222

L*TEST 20

232

000004
000240
012706
013700
013701

012737

1ST120:
001100
001276
001466
000020

READ EACH CURRENT LEVEL

e ok o o A

o o o o

SCOPE
NOP
MOV

:
#STACK,SF

MOV
MOV

TSTQUE ,R1
#20,$TESTN

_MOvV
001226

22t 2222220ttt
2Rt
R sl sl s

WRITE,

= = g o ok e e d o ok e S ok o ok e ok o i S

030554
030556
030560
030562
2607 030566
2408

;GO TO TIMOUT SUBROUTINE

:GO READ STATUS FOR READ OPERATION

2397 030520
2398
2399
030520
030520
030522
030524
030530
030534
030540
2400 030546
2401
2402
2403
2404
2405
2406 030546
030552

SEQ 0143

$BASE ,RO

o s o es o o o o o

o o o o

o o ok o e ok o o

ok o o ok ok o

;SCOPE CALL
;START OF TEST
sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MAIL BOX

::"t*fit'*fi'itfi*t*fifit*""*'ti***‘*fii*i*'tttt***tt*‘**'t****‘*ttt

FORMAT ,WRITE ,READ

;LOOP #1
004737
054130

037316

;PREPARE THE DEVICE FOR FORMAT OPERATION
JSR.
- PLISIPRP
;PREPARE DEVICE FOR TEST
.WORD
054130
;TASK DESCRIPTOR AS FOLLOWS:

000404
000240

104000
000137

EMT
JMP

28%

NOP

031556

2%:

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
,
JVERIFY PACK ACKNOWLEDGE
IS SET
'PIP''
OR
"'SKI''
IF
RATE
JRECALIB
RATION
RECALIB
JVERIFY
;GO TO 2% IF NO ERROR
;RETURN HERE IF ERROR

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

B 1

CZRMOBO
RMOS5/3/2 FCTINL TST 3 MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-73
120
WRITE, READ EACH CURRENT LEVEL
2609
2610 030566
26411 030574
2412 030602

012737
012737
012737

(000000
000000
106436

001446
001420
001416

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

3$:

2613 030610 012737 177376 001414
2614 030616 012737 010000 001444
gflg 030624 012737 000063 001412
2617

030632
030636

004737
000405

030646

000137

031556

2619 030652
2420 030660
5255 030666

012737
012737
004737

072060
000001
042174

2424 030672
2425 030676
2426 030702
2427 030706
2428 030712
2429 030716
26430 030722

012702
112722
112722
112722
112722
112722
112722

001553
000034
000006
000004
000002
000032
000000

2633 030732
030736

004737
000404

043330

030640
030644
2618 030652

2423

523} 8338;%3

030740

104401
104000

112712

gz%g 030750

2436
2437 030750

2438

000137

004737

2440

:
004737
000404
000240
104000
000137

2444

2445 030776
031002
031004
031006
031010
031012

MOV
MOV

070426

004737
000405
000240
104000
004736
000137

001174
001176

4%:

sCALL BAD SECTOR MODULE
;GO TO 4% IF NO ERROR

JMP

28%

;GO TO 28% IF ERROR

MOV
MOV
JSR

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

.SCTMSG

MOV
MOVB
MOVB
MOvVB
MOVB
MOVB
MOVB

#PUTINX ,R2
#RMDC, (R2) +
#RMDA, (R2)+
#RMBA, (R2) +
H#RMWC
, (R2) +
#RMOF
, (R2) +
#RMCS1, (R2)+

JSR

PC.PUT
6%

mMovB

EMT

6%:

;TYPE BAD SECTOR MESSAGE
:ERROR # DEF INED BY BADS"T SUBROUT INE

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

JMP

#200, (R2)

;R2 = BYTE ENTRY POSITION

28%

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 6% IF NO ERROR
:RETURN HERE IF ERROR

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

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

;WAIT FOR COMMAND TO COMPLETE

043672

031556

;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

031556

056572

#-258. ,RMWCO
#FMT16,RMOFO
#WH!GO,RMCS10
PC,BADSCT
4%

NOP -

031556

sTRACK = 0, SECTOR = 0
;BUS ADDRESS

JSR
BR

TYPE
EMT

000200

043060

#0,RMDAO
#BUF ONE , RMBAO

;VERIFY THAT SECTOR IS NOT BAD

S
004737 042774

2439 030754

2441 030760
030764
030766
030770
030772
gz:g 030776

MOV
MOV

MOV

000240

030742 104000
030744

040242

SEQ 0144

JSR

- PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION

7%:

JSR
BR
NOP
EMT
JMP

PC.GET
7%
28%

;VERIFY NO ERRORS DURING FORMAT

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
8%
PC,a(SP)+
28%

;GO READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO 78 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUT INE
;GO TO 28% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 288 IF ERROR

CZRMOBO RMOS/3/2 FCTNL TST 3

120

MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-76
C1

WRITE, READ EACH (CURRENT LEVEL

221‘:29 031016
2448

2449 031016
Szg? 031026

8s:

012737
C€00410

031026

;MOVE LOOP ADDRESSES TO NEXT OPERATION

001124

MOV
BR

26452

A AR

2453
2654
2455 031026
2456
2457
2458

2659 031026
031032

SEQ 0145

AR AR

#9% ,SLPERR
108

AN R AR AR AR

LOOP #2

AR R R

;SKIP TO WRITE OPERATION
AR A AR AR AR AN AN AR RAR R

RN RANTANRRN RS

WRITE ,READ

9%:

004737
054130

;PREPARE DEVICE FOR WRITE OPERATION

037316

JSR
.WORD

PC,TSTPRP
054130

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

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

031034
031036

000404
000240

031042

000137

031040
2460 031046
2461
2462 031046

104000

:
031556

012737
012737
012737
012702

177400
106442
000061
001553

112722
112722
112722
112722
112722
112722

000034
000032
000004
000002
000000
000200

2477 031130
031134
031136

004737
000404
000240

043330

031142

000137

031556

%81 031146

004737

042774

2483 031152

004737

043672

2484
2485 031156

004737

043060

031140

Sz;g 031146

2480

2482

112722

104000

000006

001414
001416
001412

108

JMP

28%

EMT

108:

;

2463

2464
2465 031046
2466 031054
2467 031062
2468 031070
2469 031074
2470 031100
2471 031104
2472 031110
2473 031114
2474 031120
52;2 031124

BR
NOP

;VERIFY RECALIBRATION

;GO TO 108 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 28% IF ERROR

118:

;WRITE DATA TO THE DRIVE
MOV
#-256. ,RMWCO
MOV
#BUF ONE +4 ,RMBAQ
MOV
#\WD !GO ,RMCS10
MOV
#PUTINX,R2
#RMDA, (R2)+
MOvVB
MovBs
#RMDC
, (R2) +
:
MOvB
#RMOF
, (R2) +
MOVB
ARMBA, (R2) +
MOVB
ARMWC
, (R2) +
MOVB
#RMCS1, (R2)+
mMovB
#200, (R2)+
JSR

PC,PUT
12%

JMP

28$%

BR
NOP
EMT
12%:

:256. WORDS (2'S COMP)
; CHANGE ADDRESS
;WRITE DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

: TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 128 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SLBROUTINE

;GO TO 28% 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

ggHOBO RMOS/3/2 FCTINL TST 3

MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-75
D1

SEQ 0146

WRITE, READ EACH CURRENT LEVEL

000404
000240
104000

2486

NOP

000137

031556

004737
000405
000240

044056

EMT

13%:

2487

2488

2489 031174

031224
031226
031230
2492 031234
2493
2494 031234
2495 031234
031240
031242
031244
031246
031250
2496 031254
2497
2498
2499 031254
2500 031262

004737
000405
000240

JSR
BR
NOP
EMT
JSR

031556

14%:

056572

JSR

PC,DTASTS

004737
000405
000240
104000
004736
000137

044710

012737
000410

031264

15%:
16%:

031556

ERROR

sERROR # DEFINED BY GET SUBROUT INE
;GO TO 28% IF ERROR

17%:

001124

15%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 148 IF NO ERROR
JRETURN HERE

IF ERROR

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

;GO TO 28% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 15% IF NO ERROR
;RETURN HERE IF ERROR

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

PC.a(SP)+
28%

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

22
PC,a(SP)+

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

JMP

17%

28%

; CHANGE LOOP ADDRESSES
MOV
#18%,$LPERR
19%
BR

;GO TO 28% IF ERROR

;GO TO 178 IF NO ERROR

;GO TO 28% IF ERROR

;SKIP TO NEXT OPERATION

2222222222320 2228202323322
22d2 3223223232202 222 ]2

READ

:LOOP #3

2
2505 031264
2506

JSR
JMP

2507
2508 031264
031270

PC,a(SP)+
28%

NOP
EMT

031556

PC,PRIERR
14%

JMP

104000

004736
000137

28%

;GO TO 13% IF NO ERROR

sRETURN HERE

:CHECK FOR ERRORS DURING WRITE OPERATION

104000

004736
000137

JMP

13%

18%:

004737
054130

037316

;PREPARE DEVICE FOR READ OPERATION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
.WORD
054130
s TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF ‘'SKI'*
OR 'PIP'* IS SET
031272
031274
031276
031300
2509 031304

2510

2511 031304
2512

000404
000240
104000
000137

031556

19%

JMP

28%

NOP
EMT

19%:

20%:

;

;VERIFY RECALIBRATION

:G0 _TO 198 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 28% IF ERROR

E 1

CZRMOBO WRITE,
RM0OS/3/2READ
FCTNL
TST 3 MACRO v04.00 4-APR-81 01:15:59 PAGE 1%-76
| T20
EACH CURRENT LEVEL
012737

107446

001416

2516 031320
2517 031326
2518 031332
2519 031336
2520 031342
2521 031346
2522 031352
2523 031356
gggg 031362

012737
012702
112722
112722
112722
112722
112722
112722
112712

000071
001553
000006
000032
000034
000004
000002
000000
000200

001412

004737

043330

2515 031312

2526 031366

031372
031374

031376

031400
gggg 031404

012737

000404
000240

104000

177400

000137

031556

004737

042774

2632 031410

004737

043672

2533
2534 031414

004737

043060

2529
2530 031404
2531

031420
031422
031424

031426

gggg 031432

2537
2538 031432
031436
031440
031442
031444
031446
2539 031452
2540 031452
031456
031460
031462
031464

031466

2541 031472
2542
2543 031472
2544 031472
031476
031500
031502
031504
031506

000404
000240

104000

000137

031556

004737
000405
000240
104000
004736
000137

044056

004737
000405
000240
104000
004736

056572

031556

000137

031556

004737
000405

044710

000240

104000
004736
000137

;READ DATA FROM DEVICE

(001414

#BUF TWO+4 ,RMBAO

s CHANGE ADDRESS

MOV
MOV
MOVB
MOvB
MOVB
MOVB
MOVB
MOVB
MovB

#RD!GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
H#RMBA
, (R2) +
H#RMWC
, (R2) +
H#RMCS1, (R2)+
#200, (R2)

sREAD DATA COMMAND
sLOAD PUT REGISTER INDEX TABLE

JSR

PC,PUT

MOV

BR
NOP
EMT

21%:

JMP

#-256. ,RMWCO

21%

28%

:256. WORDS (2'S (OMP)

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 218 IF NO ERROR
;sRETURN HERE IF ERROR

sERROR # DEFINED BY PUT SUBROUTINE

;GO TO 28% 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 READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE

BR
NOP

22%

;GO _TO 22% IF NO ERROR
sRETURN HERE IF ERROR

JMP

28%

;GO TO 28% IF ERROR

EMT

22%:

;ERROR # DEFINED BY GET SUBROUTINE

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
23%
;GO TO 238 IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
28%
;GO TO 28% IF ERROR
23%:
JSR
PC,DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER
BR
24%
;GO TO 24% IF NO ERROR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY DTASTS SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
24%:
25%:
y

031556

MOV

JMP

28%

;GO TO 28% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
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 CHECKS
;GO TO 28% IF ERROR

JRETURN HERE IF ERROR

oo e

2513

2514 031304

SEQ 0147

;_z,gmeo RMOS5/372 FCINL TST 3

F 12

MACRO v04.00

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

WRITE, READ EACH CURRENT LEVEL

2545 031512

2546 031512

031516
031520

004737
106442
107446

26%:

(42432

JSR

.WORD
.WORD

031522 000404

000240
104000
000137

031556

062737

000200

2550 031550

101002

2559 031542

2551 031552

ggg% 031556

023727

000137

007446

NOP
EMT
JMP

27%:

001446

28%:

5554

031562

012706

001100

031572
031576
gggg 031604

013701
(€12737

001466
000021

031560

031566

000240

013700

28%

JYES!!

;DONE??

;DC NEXT CURRENT LEVEL

AR KRR

WRITE, WRITE

MOV

1%:

DI RRE KRR

;LOOP #1
'

MOV
MoV
AR KRR

RR AR AR AT A R NN

CHECK W/ CURRENT LEVEL SWITCHING

IR AR

SCOPE

MOV

001276

037316

;ADVANCE TO NEXT THRESHOLD

gggg
004737
054130

#128. ,RMDCO

R R R AR R AR AR AR

2557

2560 031604
031610

;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE
;GO TO 28% IF ERROR

JMP

NOP

001226

;STARTING ADDRESS OF WRITE BUFFER
: STARTING ADDRESS OF READ BUFFER

AR R AR AR AR AR

-5 278 3

000004

;G0 _TO 27% IF NO ERROR

RMDCO,#768.

S*TEST 21

031556
31556

27%

cMP

BHI

030574

;GO COMPARE WRITE, READ DATA BUFFERS

28%

ADD

001400

PC,CMPBUF

BUFONE
+4
BUFTWO+4

031524
031526
031530
031534
2547
2548 031534

SEQ 0148

R T AR AR AR R

A RN

RAN

AN AR

;SCOPE CALL

#STACK ,SP

$BASE ,RO

TSTQUE ,R1
#21,8TESTN
AR AR R

;START OF TEST

JINITIALIZE STACK POINTER

;RO = UNIBUS -ADDRESS

;(R1) = DEVICE BEING TESTED
;2SET TEST NUMBER IN APT MAIL BOX

AR E AR RN AR AR AR AR R RARR A RRR AR

AR NS

FORMAT ,WRITE ,READ
JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
~ ;TASK DESCRIPTOR AS FOLLOWS:

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

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

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

JMP

26%

;GO TO 26% IF ERROR

031612

000404

£31620

000137

032562

2564 031624

012737

000577

001446

2568 031654

012737

176774

001414

MOV

001412

MOV

031614
031616
ggg} 031624

2563

2565 031632
2566 031640
2567 031646
2569 031662

%g;? 031670
2572

031676
031702
031704

000240
104000

013737
112737
012737

001334
000037
106436

012737

010000

004737
000405
104407

040242

012737

000063

070426

NOP
EMT

2%:

001420
001420
001416
001444

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

;LOAD PARAMETERS AND GENERATE DATA BUFFER

MOV

#383. ,RMDCO

;CYLINDER = 383.

l-?SB.'é.RHUCO

;2 SECTORS (2'S COMP)

MOV
MOVB
MOV

LSTRK,RMDAO
#31. ,RMDAO
#BUF ONE ,RMBAO

MOV

#FMT16,RMOF O

#WH'!GO,RMCS10

JVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADS(T
BR
3%
TYPE
,SCTMSG

;SET LAST TRACK AND
;LAST SECTOR
;BUS ADDRESS
;16 BIT FORMAT

:WRITE HEADER AND DATA COMMAND
;CALL BAD SECTOR MODULE
;GO TO 3% IF NO ERROR
;TYPE BAD SECTOR MESSAGE

2589 032014

2591
2592
2593

032014

m .-

W
N

—"

031710
031712
2573 031716
2574 031716
2575 031724
2576 031732
2577
2578
2579 031736
2580 031742
2581 031746
2582 031752
2583 031756
2584 031762
2585 031766
2586 031772
2587 031776

—

WRITE

T ST

032562

nono
NNN
WWW
NNN

121

G 12
MACRO v04.00 4-APR-81 01:15:59 PAGE 13-78
3
3 (K W/ CURRENT LEVEL SWITCHING

§OO 83 2.
S oF

£ ZRMOBO RMOS/ 3 /

072016
000001
042174

001174

;

001176

000004
000002
000032
000000
000200

004737

042774

032020
2594
2595
2596 032024
032030
032032
032034
032036
2597 032042
2598
2599
2600 032042
032046
€32050
032052
032054
032056
032062

004737

043672

004737
000404
000240

043060

000137

032562

004737
000405
000240

056572

032062
032070

012737
000410

104000

s
i

#ONES , $TMPO

:STARTING ADDRESS OF PATTERN

JSR

PC . GENBUF

GO GENERATE BUFFER FOR FORMAT

JSR

NOP
EMT

JMP

JSR

;

#1,3TMP1

*RANGE OF PATTERN

#PUTINX,R2
#RMDC, (R2)+
#RMDA. (R2)+
A#RMBA. (R2)+
#RMWC.(R2)+
. (R2) +
ARMOF
#RMCS1, (R2)+
#200, (R2)

PC,PUT
5%

26%

:R2 = BYTE ENTRY POSITION

;TERMINATE TABLE

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

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

*GO TO 26% IF ERROR

PC,GETSTS

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR

6%:

BR
NOP
EMT
JMP

PC,GET

26%

:VERIFY NO ERRORS DURING FORMAT
JSR

032562

032072

MOV

:ERROR # DEF INED BY BADSCT SUBROUT
INE
“GO TO 26% IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

104000

004736
000137

26%

MOV
MOVB
MOVR
MOVB
MOVB
MOVB
MOVB
MOVB

043330

032562

EMT
JMP

:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

001553
000034
000006

000137

SEQ 0149

001124

BR
NOP
EMT
JSR.
JMP

PC.DTASTS

PC.a(SP)+
26%

:GO READ REGISTER(S) WITH GET SUBROUT INE

“GO TO 6% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 26% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

2GO TO 7% IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 26% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV
BR

#8$, $LPERR
9%

:SKIP TO WRITE OPERATION

.'"Q"t"ttifittllfilt*.i'i'.'il"fitttfi'ti!"l"tttt"tt't'ttttt""Q't

2609
2610 032072
2611
2612

“LooP #2
8%:

WRITE ,READ

gg?MOBC RMOS/3/2 FCINL TST 3

MACRO Vv04.00

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

WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

2613

2674 032072

032076

004737

054130

SEQ 0150

;PREPARE DEVICE FOR WRITE OPERATION

(37316

JSR

PC,TSTPRP

.WORD

054130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

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

032100

000404

032106

000137

2615 032112

000240
104000

032562

012737
012737
012737
012737
012737
004737
012702
112722

177000
106436
000061
072016
000001
042174
001553
000006

2629 032170
2630 032174
2631 032200

112722
112722
112722

000032
000004
000002

112722

000200

2632 032204

Sggz 032210
2635 032214
032220
032222
032224

032226

9%:

JMP

26%

;GO TO 26% IF ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

108:

2620 032112
2621 032120
2622 032126
2623 032134
2624 032142
2625 032150
2626 032154
2627 032160

2628 032164

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

NOP
EMT

2616

2617 032112
2618
2619

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

a
032102
032104

;WRITE DATA TO THE DRIVE

001414
001416
001412
001174
001176

112722 000034

112722

004737
000404
000240
104000

000000

MOV
MoV
MOV
MOV
MoV
JSR
MOV
MOVB

#-256.*2 ,RMWCO
#BUF ONE , RMBAQ
#WD !GO,RMCS10
#ONES ,$TMPO
#1,8TMP1
PC, GENBUF
#PUTINX ,R2
#RMDA, (R2) +

MOVB
MOV3
MovB

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

mMovB

#RMDC, (R2) +

MOvB

043330

A#RMCS1, (R2)+

mMovB

#200, (R2)+

JSR
BR
NOP
EMT

PC ,PUT
11%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 11$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUTINE

032562

2638
2639 032232

004737

042774

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

2640
2641 032236

004737

043672

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

2643 032242
032246

004737
000404

043060

032254
ggtg 032260

000137

032562

004737
000405

044056

2642

032250
032252

2646

2647 032260
032264

000240
104000

11%:

26$%

;:TERMINATE TABLE

000137

gg%g 032232

JMP

;2 SECTORS (2°'S COMP)
; CHANGE ADDRESS
;WRITE DATA COMMAND
;STARTING ADDRESS OF PATTERN
;RANGE OF PATTERN
;GO GENERATE BUFFER FOR FORMAT
;LOAD PUT REGISTER INDEX TABLE

;GO TO 26% IF ERROR

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR WRITE COMMAND

JSR
BR

PC,GET
12%

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

JMP

26%

;GO TO 26% IF ERROR

NOP
EMT ..

12%:

JRETURN HERE IF ERROR
;JERROR # DEFINED BY GET SUBROUTINE

;CHECK FOR ERRORS DURING WRITE OPERATION

JSR
BR

PC,PRIERR
13%

;GO CHECK FOR PRIMARY ERRORS
;GO TO 13% IF ND ERROR

MACRO v04.00 4-APR-81 01:15:59 PAGE111%-80

CZRMOBO RMOS5/3/2 FCINL TST 3
T
WRITE, WRITE (HECK W/ CURRENT LEVEL SWITCHING
.

032266

000240

NOP

032272

004736

JSR

PC,a(SP)+

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

;ERROR # DEF INED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHE(KS

JSR
BR

'
PC,SECERR
16%

;GO CHECK FOR SECONDARY ERRORS
;GO _TO 16% IF NO ERROR

EMT
JER

PC,a(SP)+

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

032270

032276

|
-

|
'

104000

EMT

2648 032300
2649 032300

000737

(032562

004737

056572

032310
032312

104000
004736

032304
032306

SEQ 0157

032314

000405
000240
000137

2650 032320
2651
2652 032320
2653 032320
032324

004737
000405

032330
032332

104000
004736

032326

032334

Sggé 032340

2656

2657 032340
gggg 032346

JMP

138:

BR
NOP

032562

JMP

148:

15%:

044710

000240

NOP

000137

032562

012737
000410

032350

JMP

16%:

001124

MOV
BR

2661

;LOOP #3

2663 032350

i7%:

2665
2666 032350
032354

004737
054130

;GO BACK FOR MORE ERROR CHECKS

26$

:GO TO 26% IF ERROR

14%

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

26%

;GO TO 26% IF ERROR

;RETURN HERE IF ERROR

26%

:GO TO 26% IF ERROR

#17% ,SLPERR
18%

AR AR AR A AR

;SKIP TO NEXT OPERATION

AR AR AR AR AR AR AR AR AR R AR AR AR ARANRA NN

READ

2664

;ERROR # DEF INED BY PRIERR SUBROUTINE

: CHANGE LOOP ADDRESSES

2660

2662

JRETURN HERE IF ERROR

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

037316

.WORD

054130

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

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

000404

032364

000137

C32360
032362

2667 032370
2668
2669 032370
2670
2671
2672 032370

2673 032376

2674 032402
2675 032406
2676 032412

2677 032416
2678 032422
2679 032426

000240
104000

18%:

112722
112722
112722

000006
000032
000034

112722
112722

000002
000000

012702

112722

001553

000004

JMP

26$

;VERIFY RECALIBRATION
;GO TO 18% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 26% IF ERROR

19%:

,
000051

18%

NOP
EMT

032562

012737

001412

;READ DATA FROM DEVICE
MOV
#WCD!GO,RMCS10

MOV

#PUT INX ,R2

MOVB
MOVB
MOVB

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

MOVB
MOVB

ARMWC, (R2)+
#RM(S1,(R2)+

MOvB

#RMBA, (R2) +

;READ DATA COMMAND

;LOAD PUT REGISTER INDEX TABLE

MACRO v04.00

J 12
4-APR-81 01:75:59 PAGE 13-81

CZRMOBO RMOS5/3/72 FCINL IST 3
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING

T2l

5239 032432

112772

000200

2682 032436

004737

043330

032442
032444

032446

000404
(000240

104000

032450

000137

032562

2685
2636 032454

004737

042774

2688 032460

004737

043672

2689
2690 032464

004737

043060

032472
032474

000240
104000

gggz 032454

2687

032470

032476

ggg; 032502

2693
2694 032502
032506

032510

000404

00037

032562

004737
000405

044056

000240

032512
032514
032516
2695 032522
2696 032522

004737

032532
032534

104000
004736

032526
032530

032536

2697 032542

2698
2699 032542

2700 032542
032546
032550
032552
032554
032556
2701 032562
2702
2703 032562

104000
004736
000137

000405
000240

MOVB

#200, (R2)

JSR

PC,PUT

BR
NOP
EMT

20%:

JMP

000137

032562

004737
000405
000240
104000
004736
000137

044710

032562

2705

JERROR # DEFINED BY PUT SUBROUTINE

26%

;GO TO 26% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO0 TO GETSTS SUBROUT INE
;WAIT FOR COMMAND TO COMPLETE

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

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

21%

;GO TO 21% IF NO ERROR

JMP

26%

;GO TO 26% IF ERROR

NOP
EMT

'
21%:

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

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
22%
;GO TO 22% IF NO ERROR

228:

PC,a(SP) +
26%

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE. ERROR CHECKS
;GO TO 26% IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC,a(SP)+

JERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

BR
NOP

23%:
24%:

25%:

;RETURN HERE IF ERROR

EMT
JSR
JMP

JMP

JSR
BR
NOP
EMT
JSR
JMP

IR AR AR R

J*TEST 22
R

032562

;GO TO 208 IF NO ERROR
JRETURN HERE IF ERROR

23%

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

26$%

;GO TO 26% IF ERROR

PC,SECERR
25%

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 25% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FCR MORE ERROR CHECKS
;GO TO 26% IF ERROR

PC,a(SP)+

26%

26%:

2704

032562
032564
032566

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

20%

NOP

032562
2
05657¢

SEQ 0152

000004
000240
012706

TST122:

001100

AR IR

AR AR A AR AR RN

WRITE, READ EARLY PEAK SHIFT

AR R

SCOPE
NOP
MOV

R AR

R R AR R

#STACK,SP

RN R AR AR

AR AN N AP R AR R RN

AR AR AR AR

R R

R AR R R AR RN RNN

sSCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

MACRO V04.00
CZRMOBO RMOS/3/2 FCTNL TST 3
WRITE, READ EAF ¢ PEAL SHIFT
122
032572
032574
03260¢

2706
2707
2708
2709
2710 032610
2711
2712
2713 032610
032614

001276
001466
000022

013/

013701
012737

K 12

4-APR-81 01:15:59 PAGE 13-82
MOV
MOV
MOV

001226

$BASE ,RO

TSTQUE ,R1
#22 ,$TESTN

SEQ 0153

;RO = UNIBUS ADDRESS

s(R1)

= DEVICE BEING TESTED

ssSET TEST NUMBER IN APT MAIL BOX

':tt'fit!fi'ttt'tttttttt"'tltttfi*tttt'!fl.fifltttt*""'t't'ttti"...

:LooP #1

FORMAT ,WRITE ,READ

1%:

004737

;PREPARE THE DEVIC:E FOR FORMAT OPERATION
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
154130
.WORD
;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

037316

154130

;RECAL IBRATE IF ''SKI'* OR 'PIP'" IS SET

033000
033002

000000
000000
106436
177376
010000
000063

004737
000405

040242

000137

033570

012737
012737
004737

072272

NNN%NNNN
N

Y g )

e s

e TR

2%:

001446
001420
001416
001414

JMP

25%

MOV

MOV
MOV
MOV

001444
001412

#BUF
ONE ,RMBAO

#-258. ,RMWCO
#FMT16,RMOFO
#WH'!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

;GO TO 28 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

PC.BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

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

EMT
3%:

:BUS ADDRESS
;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;WRITE HEADER AND DATA COMMAND

JSR

JMP

25%

MOV
MOV
JSR

#EARLY,$TMPO
#1.,8TMP1
PC,GENBUF

;GO TO 3% IF NO ERROR

;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
;R2 = BYTE ENTRY POSITION
Mov
#PUTINX ,R2
+
(R2)
#RMDC,
MOVB
MOVB
#RMDA, (R2) +
MOVB
#RMBA, (R2) +
MOVB
H#RMWC
, (R2) +
MOVB

“
043330

;VERIFY RECALIBRATION

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
:TRACK = 0, SECTOR = 0
MOV
#0 ,RMDAO

000001
042174

001553
000034
000006

NOP
EMT

070426

104401
104000

2732 032740
2733 032744
2734 032750
2735 032754
2736 032760
2737 032764
2738 032770
2739 032774
2740 032774

012737
012737
012737
012737
012737
012737

2730
2731 032734

033570

2727 032722
2728 032730
2729

000240
104000
000137

—3

032616
032620
032622
032624
2714 032630
2715
2716
2717 032630
2718 032636
2719 032644
2720 032652
2721 032660
2722 032666
2723
5724
032674
032700
032702
032706
032710
032714
2725
2726 032714

000404

|
p

#RMOF
, (R2) +

MOVB
MOVB

#RMCS1,(R2)+
#200, (R2)

JSR
BR

PC,PUT
5%

NOP

; TERMINATE TABLE

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

JRETURN HERE

IF ERROR

CZRMOBO RMOS5/3/2 FCTINL TST 3
ree

MACRO v04.00

WRITE, READ EARLY PEAK SHIFT

033004

033006

3;23 033012
2763

526k 033012

€

2745

2746 033016

2747
2748 033022
033026
033030
033032

033034

104000

000137

004737

043060

000404

000137

033570

2751
2752 C33040

004737

056572

033050
033052

104000
004736

5;?8 033040

033044
033046

033054

g;gz 033060
2755

2756 033060

g;gg 033066

000405
000240

000137

033570

012737

033070

000410

JMP

5%:

;SETUP GET

042774
043672

000240
104000

(33570

004737

L 12
4-APR-81 01:15:59 PAGE 13-83

JSR

;ERROR # DEFINED BY PUT SUBROUTINE

25%

;GO TO 25% IF ERROR

INDEX TABLE

TO READ ALL REGISTERS

PC,GETSTS
PC,TIMOUT

JMP

6%:

25%

;GO TO 25% IF ERROR

;VERIFY NO ERRORS DURING FORMAT
JSR
PC.DTASTS
;GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT
JSR

JMP

7$:

001124

;GO TO 78 IF NO ERROR
;RETURN HERE IF ERROR

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

PC,a(SP)+

25%

;GO TO 25% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION

MOV
BR

#8% ,SLPERR
9%

PRI

A AR

2760
2761
S;g% 033070

;LOOP #2

WRITE ,READ

2765 033070
033074

;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR FORMAT OPERATION
JSR
PC.GET
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
6%
;GO TO 6% IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE

2759

2764

;GO TO GETSTS SUBROUTINE

;WAIT FOR COMMAND TO COMPLETE

JSR

SEQ 0154

A R AR R

AA AR

KA RARAR R

KR AR

8%:
A

004737
154130

037316

;PREPARE DEVICE FOR WRITE OPERATION

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 IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

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

033076
033100

000404
000240

033104
2766 033110
2767
2768
2769 033110
2770 033110
2771 033116
2772 033124

000137

033102

104000

012737

012737
012737

106442
000061

JMP

25%

EMT

033570

177400

BR
NOP
9%:

001414
001416
001412

:WRITE DATA TO THE DRIVE
108:
MOV
#-256. ,RMWCO

MOV
MOV

#BUF ONE +4 ,RMBAOD
#wD!GO,RMCSTO

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

;GO TO 25% IF ERROR

;CHANGE WORD COUNT

; CHANGE ADDRESS
;WRITE DATA COMMAND

CZRMOBO RMOS/3/2 FCTINL TST 3
122

MACRO v04.00

WRITE, READ EARLY PEAK SHIFT

2773 033132
2776 033136
2775 033142
2776 033146
2777 033152
2778 033156
2779 033162
s;g? 033166

012702

112722
112722
112722
112722
112722
112722
112722

000006
000034
000032
000004
000002
000000
000200

2782 033172

004737

043330

033176
033200
033202

000404
000240

104000

001553

033204

000137

033570

2785
2786 033210

004737

042774

2788 033214

004737

043672

2789
2790 033220

004737

043060

g;gz 033210

2787

033224
033226
033230
033232
g;g; 033236
2793
2794 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
2800

2801
2802 033316
33324

000404
000240
104000
000137

004737

000405
000240

104000
004736

MOV

MOVB
MOVB
MOvB
MOVB
MOVB
MOVB
MOvB
JSR

BR
NOP
EMT

118:

004737
000405
000240
104000
004736

056572

000137

033570

004737
000405

044710

JSR

000137

012737
000410

033570

033326

; TERMINATE TABLE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

11%

;GO TO 11$ IF NO ERROR
sJRETURN HERE IF ERROR

JERROR # DEFINED BY PUT SUBROUTINE

25%

;GO TO 25% IF ERROR

PC.TIMOUT

;GO TO TIMOUT SUBROUTINE

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

12%:

BR
NOP
EMT
JMP

128

;GO TO 12% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% IF ERROR

25%

;CHECK FOR _ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
138
;GO TO 138 IF NO ERROR
NOP
sRETURN HERE IF ERROR

13%:

14%:

000240

104000
004736

;LOAD PUT REGISTER INDEX TABLE

#RMDA, (R2) +
#RMDC, (R2) +
#RMOF , (R2)+
#RMBA, (R2) +
H#RMWC
, (R2) +
#RMCST, (R2)+
#200, (R2)+

;WAIT FOR COMMAND TO COMPLETE

044056

033570

JMP

#PUTINX ,R2

SEQ 0155

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

033570

000137

M 12

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

001124

EMT
JSR

JMP

PC,DTASTS
148

JSR
BR
NOP

PC,SECERR
15%

EMT
- JSR

15%:

25%

JSR
BR
NOP
EMT
JSR

JMP

;GO TO 25% IF ERROR
:
;GO VERIFY RESULTS OF DATA TRANSFER
;GO _TO 148 IF NQ ERROR
sRETURN HERE IF ERROR

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

PC,a(SP)+ |

25%

PC,a(SP)+

25%

; CHANGE LOOP ADDRESSES
MOV
#16%,$LPERR
BR

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

PC,a(SP)+

17%

;GO TO 25% IF ERROR
:

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

JRETURN HERE IF ERROR

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

;GO TO 25% IF ERROR

CZRMOBO RMOS/3/2 FCTNL TST 3

122

MACRO Vv04.00

WRITE, READ EARLY PEAK SHIFT

2805
2806
2807
2808 033326
2809
2810
2811 033326
033332

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

‘:ttlt.tlt.**...ltttt""'tt.ttl.tfitt'i'fl.t'.'..t.tttt.t.Q.ttt"l

READ

;LOOP #3
16%:

004737
154130

:PREPARE DEVICE

JSR

037316

.WORD

FOR READ 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
sVERIFY PACK ACKNOWLEDGE

2834
2835 033450
033454
033462
2836 033466
2837
2838
2839 033466

000404
000240
104000

000137

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

17%

;VERIFY RECALIBRATION
;GO TO 17% IF NO ERROR

JMP

25%

;GO TO 25% IF ERROR

NOP
EMT

033570

17%:

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

2722

112712

000071
107446
001553
000006
000032
000034
000004
000002
000000
000200

004737
000404
000240

043330

000137

033570

004737

042774

004737

043672

004737
000404
000240

043060

104000

104000
000137

033570

004737

044056

0014

%ggAD DATA FROM DEVICE
oo

033334
033336
033340
033342
2812 (033346
2813
2814
2815 033346
2816 033346
2817 033354
2818 033362
2819 033366
2820 033372
2821 033376
2822 033402
2823 033406
2824 033412
ZgZS 033416
2826
2827 033422
033426
033430
033432
033434
2828 033440
2829

SEQ 0156

MOV
MOV

#RD 'GO,RMCS10
#BUF TWO+4 ,RMBAO

MOvVB

#200, (R2)

MoV
MOVB
MOVB
MOVB
MOVB
MOVB .
~MOVB

#PUTINX ,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC
, (R2) +
#RMBA, (R2) +
A#RMWC
, (R2) +
#RMCS1,(R2)+

JSR
BR

PC,PUT
19%

JMP

25%

NOP
EMT

19%:

;READ DATA COMMAND
; CHANGE BUFFER

;LOAD PUT REGISTER INDEX TABLE

'
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 19% IF NO ERROR
JRETURN HERE IF ERROR
:
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 25% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC.GETSIS

JWAIT FOR COMMAND TO COMPLETE
JSR

PC,TIMOUT

;GO TO GETSTS SUBROUTINE
;GO TO TIMOUT SUBROUTINE

;GO READ STATUS FOR READ OPERATION

20%:

JSR
BR
NOP
EMT
JMP

PC,GET
20%

25%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 20% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% IF ERROR

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

033472
033474

033570

2840 033506
2841 033506

21%:

056572

033570

22%:

044710

033570

23%:

042432

2846 033570

000137

033570

24%:

033622

SEQ 0157

;GO 10 218 IF NO _ERROR

PC,a(SP)+

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

RETURN HERE

IF ERROR

;GO TO 25% IF ERROR

25%
22%

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

PC,a(SP)+

;ERROR # DEFINED BY DTASTS S/'BROUTINE
;G0 BACK _FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

;GO CHECK FOR SECONDARY ERRCRS

JSR
.WORD
.WORD

PC,CMPBUF

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

RETLRN HERE IF ERROR

;GO TO 25% IF ERROR

25%

;GO _TO 23% IF NO ERROR

23%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 25% IF ERROR

PC,a(SP)+

25%

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

BUF ONE +4
BUF TWO+4

;STARTING ADDRESS OF READ BUFFER
;GO TO 24% IF NO ERROR

24%

sRETURN HERE IF ERROR

;ERROR # DEFINED BY CMPBUF

;GO TO 25% IF ERROR

25%

JMP

>UBROUTINE

25%:
(S

222332222222

2222222332322

S*xTEST 23
TST23:

033570
033570
033572
033574
033600
033604
033610

2858 033616

B8R
NOP
EMT
JSR
JMP

EMT

2847
2848 033570
2849
2850

2851
285
285
2854
2855 033616
2856
2857

B 13
4-APR-B1 01:15:59 PAGE 13-86

000405

001100
001276
001466
000023

001226

SCOPE
NOP
MoV
MOV
MoV
MoV

2222203222223

223222

ittt

]

WRITE, READ MIXED PEAK SHIFT
23

222323022

#STACK,SP

$BASE ,RO

TSTQUE ,R1

#23,$TESTN

2023320222020

ts 2

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

: ttttttttt**tttttttt't"'ti't!.t!i.ttfi".'.ttttt*tttttttt"ttt.'

:LooP #1

FORMAT ,WRITE ,READ

1%:
-~y

MACRO v04.00

WRITE, READ EARLY PEAK SHIFT

-0

l
|

T2 4

]

€z RMOBO RMOS5/3/2 FCINL TST 3

037316

:PREPARE THE DEVICE FOR FORMAT OPERATION
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 IF VOLUME NOT VALID

VERIFY PACK ACKNOWLEDGE|
.
:RECALIBRATE IF “'SKI" OR "PIP'* IS SET
:VERIFY RECALIBRATION

T23

MACRO v04.CO

WRITE, READ MIXED PEAK SHIFT

032624
033626

000404
000240

i
?

033632
5323 033636

000137

034576

2861
2862 033636
2863 033644

012737
012737

000000
000000

001446
7420

2865 033660
2806 033666

012737
012737

177376
010000

001414
001444

C33702
033706

004737
000405

040242

033716

000137

034576

2871 033722
2872 033730
%g;z 033736

012737
012737
004737

071756
000200
042174

012702
112722

001553
000034

033630

104000

2869

033710
033714
2870 033722

2875

2876 033742
2877 033746

2878 033752
2879 033756
2880 033762
2881 033766
2882 033772
%ggz 8%43&7)3

012737

104401
104000

000063

BR
NOP

JMP

25%

EMT

2%:

2864 033652 012737 106436 001416

Sggg 033674

£ 3

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

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;€0 TO 258 IF ERROR

MOV

#BJF ONE , RMBAO

:BUS ADDRESS

MOV

#WH!GO,RMCS10

;WRITE HEADER AND DATA COMMAND

MOV
MOV

#-258. ,RMWCO
#FMT16,RMOFO

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC.BADSCT
BR
3%
TYPE
EMT

001174
001176

;GO TO 2% IF NO ERROR
sRETURN HERE IF ERROR

;LOAD PARMETERS AND GENERATE DATA BUFFER
#0,RMDCO
sCYLINDER= 0
nov
#0 ,RMDAO
sTRACK = 0, SECTOR = 0

001412

070426

SEQ 0158

3%:

.SCTMSG

JMF

25%

MOV
MoV
JSR

#MIXED,$TMPO
#128. ,$TMP1
PC ., GENBUF

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

;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
MOVB

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

004737
000404
000240
104000
000137

043060

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

2888

2892
2893 034030

034034
034036
034040
034042

gggg 034046
2896

034576

5%:

JSR
BR
NOP
EMT
JMP

#RMDA, (R2) +
#RMBA
, (R2) +
#RMUC, (R2) +
#RMOF , (R2)+
#RMCS1, (R2)+
#200, (R2)

;R2 = BYTE ENTRY POSITION
:

112722
112722
112722
112722
112722
112712

2885 034002
034006
034010
034012
034014
gggg 034020

MOVB
MOVB
MOovB
MOVB
MOVB
MOvVB

#PUTINX ,R2
#RMDC, (R2) +

PC.PUT
5%
25%

: 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 TABLE TO READ ALL REGISTERS
JSR

6%:

BR
NOP
EMT
JMP

PC,GETSTS

25%

;GO TO GETSTS SUBROUTINE

;GO TO TIMOUT SUBROUTINE

;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 25% Ir ERROR

:VERIFY NO ERRORS DURING FORMAT

CZRMOBO RMOS5/3/2 FCTINL TST 3

CZRMOBO RMOS5/3/2 FCTINL T1ST 3

123

MACRO v04.00

WRITE, READ MIXED PEAK SHIFT

2897 034046 004737 056572

D13

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

JSR

034052 000405
034054 000240

BR
NOP

034060

JSR

034056

034062

gggg 034066

104000

EMT

004736

000137 034576

7%:

2900

PC,a(SP)+

25%

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

:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 258 IF ERROR

MOV
#8%, SLPERR
BR
9%
:SKIP TO WRITE OPERATION
:"ttttflfttttttttttttt*t"tttttttttttttttttttttt'lttt""ttt't't't
:LooP #2
WRITE ,READ

2906

538; 034076
2910 034076
034102

:MOVE LOOP . DDRESSES TO NEXT OPERATION

2901 034066 012737 034076 901124
%% 034074 000410
290(,
2905
2909

JMP

PC.DTASTS

SEQ 0159

8%:
004737
154130

:PREPARE DEVICE FOR WRITE OPERATION

037316

JSR
- _WORD

PC.TSTPRP
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

sVERIFY PACK ACKNOWLEDGE

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

034104 000404
034106 000240
034110

034112

3911 034116

2913
2914 034116

104000

000137

012737
012737
012737

177400
106442
000061

2919 034144
2920 034150
2921 034154
2922 03.160
2923 034164
24 034170
2925 034174

112722
112722
112722
112722
112722
112722
112722

000006
000034
000032
000004
000002
000000
000200

2918 034140

2927 034200
034204
034206
034210
034212
2928 034216

2930

3 034216

012702

001553

004737
000404
000240
104000
000137

043330

004737

042774

034576

JMP

25%

EMT

034576

2915 034116
2916 034124
2917 034132

BR
NOP
9s:

001414
001416
001412

;VERIFY RECALIBRATION

:60_T0 98TMIF NO ERROR
:RETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 25% IF ERROR

sWRITE DATA TC THE DRIVE
108:
MOV
#-256.,RMWCO
;CHANGE WORD COUNT
MOV
ABUFONE +,RMBAO
: CHANGE ADDRESS
MOV
#WD!GO.RM(S10
:WRITE DATA COMMAND

MOV

MOVB
MOVB
MOVB
MOVE
MOVB
MOVB
MOVB

118:

JSR
BR
NOP
EMT
JMp

#PUTINX ,R2

ARMDA’ (R2)+
ARMDC.(R2)+
ARMOF
. (R2)+
WRMBA. (RJ)+
ARMWC, (R2)+
ARMCST, (R2)+
#200, (R2)+

PC,PUT
1%

258

;LOAD PUT REGISTER INDEX TABLE
»

; TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
260 _TO 118 IF NO_ERROR
;RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
G0 TO 258 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

;GO TO GETSTS SUBROUT INE

R
d

MACRO v04.00
CZRMOBO RMOS5/372 FCTNL TST 3
123
WRITE, REAP MIXED PEAK SHIFT
2932

2933

034222

2934
2935 034226

004737

043672

004737
000404
000240

043060

000137

034576

004737
000405
000240

044056

104000

E 13
4-APR-81 01:15:59 PAGE 13-89

;WAIT FOR COMMAND TO COMPLETE
JSR
PC, TIMOUT

2940 034264
2941 (34264
034270
034272
034274
034276
034300
2942 034304
2943 034304
034310
034312
034314
034316

034320
2944 034324
2945

2946

2947 034324
2948 034332
2949
2950
2951
2952
2953 034334
2954
2955
2956 034334
034340

034342
034344
034346
034350

0304005

JSR

NOP
EMT
12%:

JSR

034576

056572

104000

004737
000405
000240

034576

012737
000410

044710

JMP

128

25%

138

PC.a(SP)+

25%

PC.DTASTS
14$

:GO READ REGISTER(S) WITH GET SUBROUTINE

GO TO 12$ IF NO ERROR

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

GO TO 258 IF ERROR
g

JMP

15%:

:GO CHECK FOR PRIMARY ERRORS

:GO TO 13% IF NO ERROR

*RETURN HERE IF ERROR
SERROR # DEF INED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
GO TO 25% IF ERROR

JSR

PC.a(SP)+

25%

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 14$ IF NO ERROR
:RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 25% IF ERROR

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

001124

PC,PRIERR

JSR
BR
NOP
EMT

034576

034334

NOP
EMT
JSR

104000

004736
000137

JMP

PC,GET

:CHECK FOR ERRORS DURING WRITE OPERATION

00024

0C 736
000137

;GO TO TIMOUT SUBROUT INE

:GO READ STATUS FOR WRITE COMMAND

104000

004736
000137

SEQ 0160

JMP

158

258

:GO TO 158 IF NO ERROR

:GO TO 25% IF ERROR

;CHANGE LOOP ADDRESSES
#168, SLPERR
MOV
BR
178

;SKIP TO NEXT OPERATION

'-.'tttt'!.'tttttttt!.l'tt'I"t"itttit't.'tttttt'tt'tttt't'.!tttt'.

READ

:LOOP #3
16%:

004737
154130

037316

000404
000240

000137

:PREPARE

DEVICE FOR READ OPERATION

JSR
LWORD

:PREPARE DEVICE FOR TEST
“TASK DESCRIPTOR AS FOLLOWS:

“SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION
“PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE

17%

SRECALIBRATE IF ''SKI'* OR 'PIP'' IS SET
*VERIFY RECALIBRATION
:GO TO 17% IF NO ERROR

EMT
JMP

25%

“ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 25% IF ERROR

NOP

034576

PC,TSTPRP
154130

*RETURN HERE IF ERROR

—

CZRMOBO RMOS/3/2 FCTNL TST 3

123

WRITE, READ MIXED PEAK SHIFT

2957 034354
2958
2959
2960 034354

|
,
|
:
|

MACRO v04.00

SEQ 0161

178:

2961 034354
2962 034362
2963 034370
2964 034374
2965 034400

012737
012737
012702
112722
112722

112722
112722
112722
112722
112712

000034
000004
000002
000000
000200

2972 034430

004737

043330

034442

000137

034576

2975
ik 034446

004737

_
042774

e 034452

004737

043672

2979
2980 034456
034462
034464
034466

004737
000404
000240

043060

034470

000137

034576

2983
2984 034474
034500
034502
034504
034506
034510
2985 034514
2986 034514

:
004737
000405
000240
104000
004736
000137
004737

034522
034524

000240
104000

2966 034404
2967 034410
2968 034414
2969 034420
gg;? 034424

F13

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

107446
000071
001553
000006
000032

001416
001412

:READ DATA FROM DEVICE
i8$:
MOV
#BUF TWO+4 , RMBAQ
MOV
#RD ! GO,RM(S10
MOV
#PUT INX ,R2

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RMDA, (R2)+
ARMOF
. (R2)+
ARMDC.(R2)+
ARMBA. (R2)+
#RMWC
. (R2)+
#RMCST, (R2)+
#200, (R2)

; CHANGE BUFFER
*READ DATA COMMAND
*LOAD PUT REGISTER INDEX TABLE

!
'
|

034434 000404
034436 000240
034440 104000

53;2 034446

2977

533; 034474

104000

034520 000405

——

;
|

034530

034526

004736
000137

2988 034534
034540
034542
034544
034546

004737
000405
000240
104000
004736

2987 034534

034550

000137

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

JMP

25%

“GO TO 258 IF ERROR

B8R
NOP
EMT
198:

*GO TO 198 IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUT INE

:SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC,GETSTS
;GO TO GETSTS SUBROUT INE
:WAIT FOR COMMAND TO COMPLETE

JSR

PC, TIMOUT

;GO TO TIMOUT SUBROUT INE

:GO READ STATUS FOR READ OPERATION
JSR
PC,GET
;GO READ REGISTER(S) WITH GET SUBROUT INE
BR
20§
26O TO 208 IF NO ERROR
NOP
*RETURN HERE IF ERROR
EMT
*ERROR # DEF INED BY GET SUBROUTINE

20$:

JMP

25%

160 TO 258 IF ERROR

;CHECK FOR ERRORS DURING READ OPERATION
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS
BR
21%
‘GO TO 218 IF NO ERROR
NOP
*RETURN HERE IF ERROR
EMT
*ERROR # DEF INED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
*GO BACK FOR MORE ERROR CHECKS
JMP
258
GO TO 25% IF ERROR
21$:
JSR
PC.DTASTS
:GO VERIFY RESULTS OF DATA TRANSFER

044056

034576
056572

B8R

22%

GO TO 228 IF NO ERROR

JSR

PC,a(SP)+
25%

‘GO BACK FOR MORE ERROR CHECKS
‘GO TO 25% IF ERROR

JSR
BR
NOP

PC,SECERR
23%

JSR

PC,a(SP)+

NOP
EMT

034576

22%:

044710
:

034576

JMP

EMT

JMP

25%

*RETURN HERE IF ERROR
‘ERROR # DEF INED BY DTASTS SUBROUTINE

:GO CHECK FOR SECONDARY ERRORS
‘G0 TO 23% IF NO ERROR
"RETURN HERE IF ERROR
“ERROR # DEF INED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHE(KS

*GO TO 25% IF ERROR

MACRO v04.00
CZRMOBO RMOS/3/2 FCTINL TST 3
WRITE, READ MIXED PEAK SHIFT
123
2989 034554
2570 034554

034560
034562
034564
034566
034570
034572
2991 034576

004737
106442

G 13
4-APR-81 (1:15:59 PAGE 13-91

23%:

(42432

107446
000404
000240
104000

000137

JSR
.WORD
.WORD

NOP
EMT

034576

24%:

2992
2993% 034576

JMP

PC,CMPBUF
BUFONE
+4
BUF TWO+4

24%

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

25%

SEQ 016,

;GO TO 24% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF

;G0 TO 25% IF ERROR

SUBROUT INE

25%:

2995

.'.‘"Q"'."".."....’."""."."."."'.".“'.."'.'."Q‘"'."

;*TEST 24

WRITE,

READ EACH TRACK

""""*.’."'t...""..'.'."'fi"."""'.,".""'.fi'."'..t."'..'

034576
034576
034600
034602
034606
034612
034616

2996
2997
2998
2999
3000 034624
3001

3003 034624
034630

000004
000240
012706
013700

013701
012737

TST24:

001100
001276
001466
000024

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP

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

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

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

".'!'.*'.".'."...'.""""'.*Q...'.'."'."'..'."'..’."'i.....'

:LOOP #1

FORMAT ,WRITE ,READ

1%:

004737
154130

:PREPARE

037316

THE DEVICE

JSR

.WORD

FOR FORMAT OPERATION

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

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

;RECAL IBRATE IF ''SKI'' OR 'PIP'' IS SET

NN
WW
NNV

004737

040242

104401

070426

) ed

106436
177376
010000

NNNN
WWWW
NNNN

034710
034714
034716

035624

000000
000000

b
o
d

VI
W —=O

o
et ol ol b

3007 034644
034652
034660
034660
034666
034674
034702

000137

JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

EMT
JMP

26%

;ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 26% IF ERROR

NOP

rororone

sssssgg g

034636
034640
3004 034644
3005

104000

OO00O

034632
034634

000404
000240

000063

2%:
001446
001420

001416
001414
007444
001412

:RETURN HERE IF ERROR

;LOAD PARAMETERS AND GENERATE DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
5
MOV
#0 ,RMDAO
;TRACK = 0, SECTOR = 0
MOV

#BUF ONE , RMBAO

;BUS ADDRESS

MOV

#FMT16,RMOFO

;16 BIT FORMAT

MOV

#-258. ,RMWCO

#WH'!GO,RMCS10

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

,SCTMSG

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

:WRITE HEADER AND DATA (OMMAND
;CALL BAD SECTOR MODULE
;GO TO 4% [F NO ERROR

:TYPE BAD SECTOR MESSAGE

ingOBO RMOS/3/72 FCINL

1ST 3

WRITE, READ EACH TRA(K

N NN
WLNN
NN N

07175€¢

001553
000034
000206
000004
000002
000032
000009
000200

3031
3032
3033 (35010
035014

043330

035016

035022

000137

035624

035026

004737

042774

004737

043672

004737
000404
000240
104000
000137

043060

004737

056572

3034 035026

3037
3038

G020
0460774

004737
000404
000240

035020

3035
3036

el cd

3029 035004
3030 035010

—d
ed

b wnh

e ek a O

— =

Q00

(35624

S LAS LS LA NN N 1 N1V
NNNNNNNN
A
A
A AN LAV [\ V=]
NN

104000

000137

3039
3040
3041

104000

MACRO v04.00

H 13

4-APR-B1 (01:15:599 PAGE 13-92
EMT

001

A ¥

001

JMP

26%

MOV
MOV

#MIXED,$TMPO
#128.,8TMP1

JSR

;GC TO 26% IF ERROR

;STARTING ADDRESS OF

PATTERN

;RANGE OF PATTERN
. GO GENERATE BUFFER FOR FORMAT

PC, GENBUF

MOV

#PUTINX ,R2

MOvVB

#RMDA, (R2) +

MOVB

MOVB
MOVB
MOVB
MOVS
5%:
:FORMAT

MOVRB

EMT

;

6%:

JMP

;R2 = BYTE ENTRY POSITION

#RMDC, (R2) +

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

#200, (R2)

THE DRIVE
PC,PUT
JSR

26%

s TERMINATE TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 6% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 26% IF ERROR

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

JSR

TO COMPLETE

~PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

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

JMP

26%

NOP
EMT

035624

7%:

;VERIFY NO ERRORS DURING FORMAT
JSR

NOP

035624

3050 035102
3051
3052
3053
3054
3055 035104

JERROR # DEFINED BY BADSCT SUBROUTINE

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION

NOP

035104

SEQ

8%:
001124

EMT
JSR
JMP

PC,DTASTS

PC,a(SP)+
26%

;GO TO 7% IF NO ERROR

;JRETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 26% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 8% IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 26% IF ERROR

;MOVE LOOP ADDRESSES TO NEXT OPERATION
MOV

#9% ,$LPERR

10%

;SKIP TO WRITE OPERATION

""t."""".'l'tl’"""".'.*'tfi.t"lt'tt'l'.t'i!tl."t"'l'l"

;LOOP #2
9%:

WRITE ,READ

0163

CZRMOBO RM0OS/3/2 FCINL

TST 3

WRITE, READ EACH TRALK

2056
3057
3058 8 35104
35110

004737
154130

MACRO v04.00

113

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

SEQG 0164

;PREPARE DEVICE FOR WRITE CPERATION
JSR
PC,TSTPRP
;PREPARE DEVICE

037316

.WORD

154130

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECAL IBRATE

000404
000240

104000

000137

10%

JMP

26%

;GO TO 26% IF ERROR

NOP
EMT

035624

10%:

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

;VERIFY RECALIBRATION
;GO TO 108 IF NO ERROR

;RETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SLIBROUT INE

106442

737

—d

— et et

D e

D d B L O OO0

i#leE DATA TO THE DRIVE
177400

000061
001553
000006
000034
000032
000004
000002
000000
000200

043330

000137

035624

035224

004737

042774

035230

004737

043672

3083 035234
035240
035242
035244
035246
3084 035252
3085

004737
000404
000240

043060

000137

035624

3087 035252
035256
035260
035262

004737
000405
000240

044056

3076 035224
3077
3078
3079
3080
3081

104000

001416
001414
001412

MOV
MOV
MOV
MOV

MOVB
MOVB

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

MOVB

#RMBA, (R2) +

MOVB

MOVB
MOVB
- MOVB
JSR

NOP
EMT

12%:

#BUF ONE +4 ,RMBAO
;CHANGE BUS ADDRESS
#-256. ,RMWCO
;CHANGE WORD COUNT
#WD !GO,RMCS10
;WRITE DATA COMMAND
#PUT INX ,R2
;LOAD PUT REGISTER INDEX TABLE

~- - JMP

, (R2) +
#RMOF

, (R2) +
#RMWC
#RMCS1,(R2)+
#200,(R2)+
PC ,PUT

12%

26%

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

;GO TO 12% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;GO TO 26% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR

PC,GETSTS

JWAIT FOR COMMAND TO COMPLETE

JSR

PC., TIMOUT

;GO TO GETSTS SUBROUT INE

;GO TO TIMOUT SUBROUTINE

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

B8R

13%:

NCOP
EMT
JMP

13%

26%

;GO TO 13% IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 26% IF ERROR

;CHECK FOR ERRORS DURING WRITE OPERATION
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS
;GO TO 14% IF NO ERROR
14%
BR
NOP

EMT

:RETURN HERE IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

CZRMOBO RMOS5/3/72 FCINL TST 3
WRITE, READ EACH TRA(K
T4

035264

3088 035272
3089 035272

004736
000137

3091 035312

035624

004737
000405
000240
104000

056572

000137

035624

004737
000405
000240

044710

004736

MACRO v04.00

J 13
4-APR-81 01:15:59 PAGE 13-94

012737
000410

PC,(SP)+

;GO BACK FOR MORE ERRCR CHECKS

JSR

PC,.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

JMP

“ 348

BR
NOP
EMT
JSR
JMP
JSR

NCP
EMT

104000

035342

JSR

16%:

001124

JMP

26%

15%

;GO TO 26% IF ERROR

26%

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

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

16%

PC.a(SP)+

26%

;GO TO 16% IF NO ERROR
JRETURN HERE

IF ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 26% IF ERROR

; CHANGE LOOP ADDRESSES
MOV
BR

#17% ,SLPERR
18%

:SKIP TO NEXT OPERATICN

".'"‘..'*"fi.."..*‘."""'.".Q't..t.'l"l""..'."'Q‘.fi'fi."'.'

READ

;LOOP #3
17%:

3092 035332
3093
3094
3095 €35332
3096 035340
3097
3098
3099
3100
3101 035342
3102
310
3104

JSR

004736
000137 035624

SEQ 0165

004737

154130

;PREPARE DEVICE FOR READ OPERATION

037316

JSR

.WORD

PC.TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR CPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

000404
000240
104000

000137

18%

JMP

26%

NOP
EMT

035624

18%:

;RECALIBRATE IF ''SKI'" OR "PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 18% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 26% IF ERROR

NNNNNQNNNN
N

737
n

e b
i e e o
e
b

— e e k-2 OO
O

iggAD DATA FROM DEVICE

wwwwgwwuw
H
&\fl

e B slelelelolelelelels
o]

035350
035352
035354
035356
5 035362

OCOVONOVSWN—=O

AN NN N N NN AN NN N NN N

;VERIFY PACK ACKNOWLEDGE

VALID

107446

000071
001553
000006
000032
000034
000004
000002
000000
000200

043330

0014 16
0014 12

MOV

#BUF TWO+4 ,RMBAOD

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

#RD !GO ,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMOF
, (R2) +
#RMDC, (R2) +
H#RMBA, (R2) +
C+
, (R2)
#RMW
#RMCS1, (R2)+
#200, (R2)

JSR

PC,PUT

; CHANGE BUS ADDRESS

;READ DATA COMMAND
;LOAD PUT REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBRQUTINE

(ZRMOBO RMO5/3/2 FCTNL TST 3
1264
WRITE, READ EACH TRACK

MACRO V04.00

035442 000404

K 13

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

B8R

208

;GO TO 208 IF NO ERROR

035444
035446
035450

000240
104000
000137

035624

2124 035454

004737

042774

3125
e 035460

004737

043672

;WAIT FOR COMMAND 7O COMPLETE
JSR
PC,TIMOUT

3127
3128 035464

004737

043060

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

035472
035474
035476

000240
104000
000137

035624

313
%132 035502

004737

(44056

;}gg 035454

3123

035470 000404

;ggg 035502

035506
035510
035512
035514
035516
3133 035522
3134 035522
035526
035530
035532
035534
035536
3135 035542
3136 035542
035546
035550
035552
035554
035556
3137 035562
3138 035562
035566
035570

000405
000240
104000
004736
000137

208:

056572

004737
000405
000240
104000
004736
000137

044710

004737
106442
107446

042432

JSR

B8R

218:

3143 035620

ggzg 035624
3146

000240
104000
000137

105237
123737
101002
000137

NOP
EMT
JMP

PC,GETSTS

21%

26%

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

“GO TO 218 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUT INE
‘GO TO 268 IF ERROR

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

BR
NOP

:
22%:

035624

23%:

PC,a(SP)+
26%

JSR
BR

PC,DTASTS
23%

24%:

035624

25%:

001421
001421

001335

034660
.

26%:
IR

*ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 26% IF ERROR

26%

JSR
BR

PC,SECERR
24%

:GO CHECK FOR SECONDARY ERRORS
*GO TO 24% IF NO ERROR

JMP

PC.a(SP)+
26%

1GO TO 26$ IF ERROR

JSR
.WORD
.WORD

PC, CMPBUF
BUFONE
+4
BUF TWO+4

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

26%

*RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPBUF SUBROUTINE
‘GO TO 26% IF ERROR

JMP

BR
J

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

;GO 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
16O TO 26 IF ERROR

NOP
EMT
JSR

035624

22%

EMT
JSR
JMP

NOP
EMT
JSR

035572 000404

035574
035576
035600
3139 035604
3140 035604
3141 035610
3142 035616

26%

;RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 268 IF ERROR

:SETUP GET INDEX TABLE TO READ ALL REGISTERS

035624

004737
000405
000240
104000
004736
000137

NOP
EMT
JMP

SEQ 0166

NOP
EMT
JMP
INCB
CMPB
BH]

JMP

PC.a(SP)+

25%

RMDAO+1
RMDAO+1,LSTRK+1
26%
38

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

;GO TO 258 IF NO ERROR

:ADVANCE TO NEXT TRACK
*DONE ?
TYES!!
*TEST NEXT TRACK

AR KRR AR KR AN R AR R A A T RN AR AR A AR AR AR AR AR AR AR

AR AR

AR AR AR

AR RN

CZRMOBO RM05/3/2 FCTNL TST 3

Brs

MACRO v04.00

L 13

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

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE
;*TEST 25

SEQ 0167

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

:"ttttt.'...fi'tt.t..'.'Qtt'..t"fi".'fifitt."'.'.'."'tlfi""'.fi"

035624
035624
035626
035630
035634
035640
3147 03004

000004
000240
012706
013700
013701
012737

tsr2s:
001100
001276
001466
000025

001226

SCOPE
NOP
MOV
MOV
MOV

#STACK , SP
$BASE ,RO
TSTQUE ,R1
#25,$TESTN

MOV

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

31‘8

.';tttttttt'itt'tfittttt"tlt.'Qtfi.ittttfi.t't'tt'tttt'tfitt'ttttt"t

3149
3150 035652

:LooP #1
is:

3152
3153 035652

035656

004737
154130

FORMAT ,READ OFFSET,WRITE CHECK OF7SET IN BOTH DIRECTIONS

:PREPARE DEVICE FOR FORMAT 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 IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

035660

000404

S 035666

000137

035662
035664

000240
104000

BR
037006

JMP

012737
012737
012737

000000
000000
106436

001446
001420
001416

3161 035722
g}g% 035730

012737
012737

010000
000063

001444
001412

035736

004737

040242

035744
035750
035752
3165 035756
3166 035756
3167 035764
%}gg 035772

104401
104000
000137

070426

012737
012737
004737

072060
000001
042174

3170
3171 035776

012702

001553

3174 036012

112722

3164

035742

3172 036002
3173 036006
3175 036016

3176 036022

3177 036026

012737

000405

176774

000034
000006

112722

000002

112722

000004

000032

000000

MOV
MOV
MOV

MOV

MOV
MOV

#0,RMDCO
#0 ,RMDAO
#BUF ONE , RMBAQ

#=-258,*2 ,RMWCO

#FMT16,RMOF O
#WH!GO,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

:G0 TO 28 IF NO ERROR

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

:GO TO 288 IF ERROR

3%:

:CYLINDER = 0
:TRACK = 0, SECTOR = 0
:BUFFER ADDRESS

:WORD COUNT FOR 2 SECTORS (2'S COMP)

116 BIT MODE
*WRITE HEADER

JSR

PC.BADSCT

‘3CALL BAD SECTOR MODULE

TYPE
EMT
JMP

,SCTMSG

28%

:TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 28% IF ERROR

MOV
MOV
JSR

#ZERQS , $TMPO
#1,$TMP
PC.GENBUF

001174
001176

:VERIFY RECAL IBRATION

;LOAD PARAMETERS AND GENERATE DATA BUFFER
5s:

001414

037006

112722
112722

NOP
EMT

3155
3156 035672
3157 035672
3158 035700
3159 035706

3160 035714

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

;GO TO 3% IF NO ERROR

:DATA PATTERN
:TO GENERATE BUFFER FOR FORMAT

;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION
MOV
#PUT INX ,R2
:BYTE ENTRY TABLE

MOVB
MOVB

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

MOVB

ARMBA. (R2)+

MOVB

#RMOF
, (R2) +

MOVB

H#RMWC
, (R2) +

#RMCST, (R2) +

M13

4-APR-81 01:15:59 PAGE
MACRO v04.00
C 4 RMOBO RMOS5/3/2 FCTNL IST 3
T25
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

3179 036036
3180 036036

3178 036032

112772

000200

004737

043330

036044
036046

000240
104000

036042

036050
-351135 036054
318
3134 036054
3185

000404

000137

037006

004737

042774

3186 036060

004737

043672

3187
3188 036064
036070
036072
036074

004737
000404
000240
104000

043060

036076
;}gg 036102

000137

037006

3192 036102
036106

004737
000405

056572

3193 036116

000137

037006

3191

036110
036112
036114

3194
3195 036122

g]lg? 036122
3198

3199 036130
3200 036136
3201

000240
104000
004736

3205 036144
036150

5%:

JSR

PC,PUT

JMP

SEQ 0168

;TABLE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 58 IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

28%

;GO TO 28% 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
BR
6%
;GO TO 6% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY GET SUBROUTINE

6%:

JMP

28%

;GO TO 28% IF ERROR

;VERIFY NO ERROR DURING FORMAT

JSR
BR
NOP
EMT
JSR

JMP

001124

012737
012737

177000
106436

001414
001416

PC,.DTASTS
7%

PC,a(SP)+

28%

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

:RE"URN HERE IF ERROR
,cPROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;GO TO 28% IF ERROR

:MOV LOOP ADDRESSES TO NEXT OPERATION
7$:

MoV

#8%,SLPERR

;ERROR LOOP ADDRESS

;LOCATE BUFFER ADDRESS AND WORD COUNT

MOV
MOV

#-256.%2 ,RMWCO
#BUF ONE ,RMBAO

;TWO SECTORS

:BUFFER ADDRESS

tt*t**tt*ttttfi*'l’tt'ii'ttittttt**fiifilt**tt*tt**ttittt'ttttttttt

LOOP 2
8s:
037316

#200, (R2)

NOP
EMT

036144

004737
154130

MOVB
BR

012737

3202
3203 036144

3204

4%:

13-97

READ AND WRITE CHECK IN OFFSET MODE

;PREPARE DEVICE FOR READ OFFSET OPEATION
JSR
.WORD

PC,TSTPRP
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

*RECALIBRATE IF ‘'SKI"" Ok 'PIP'* IS SET

036152

000404

036160
320% 036164
3207 036164

000137

036154
036156

000240
104000

037006

JMP

28%

NOP
EMT

9%:
10%:

;VERIFY RECALIBRATION

:GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 28% IF ERROR

CZRMOBO RM0S5/3/2 FCTNL TST 3

125

MACRO v04.00

N 13

4-APR-B81 01:715:59 PAGE 13-98

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

3208

3209 036164
3210 036170
3211 036174
3212 036200
3213 036204
3214 036210
gg}g 036214

012702
112722
112722
112722
112722
112722
112722

001553
000006
000034
000032
000004
000002
000200

3217 036220

004737

043330

036224
036226

036230

000404
000240
104000

036232
3218 036236
3219 036244
3220 036250
gsg% 036254

000137
012737
012702
112722
112722

037006
000015
001553
000000
000200

3223 C36260

004737

043330

036266
036270

000240
104000

036264

036272
ggg? 036276

000404

000137

037006

3226
3227 036276

004737

043672

3228 036302

012737

000071

3229 036310
3230 036314
gg%} 036320

012702
112722
112712

3233 036324

004737

036332
036334

000240
104000

036330

036336
gg;ls' 036342

000404

001553
000000
000200

;READ OFFSET

MOV
MOV3
MOvB
MOVB
MOVB
MOvVB
MovB

#PUTINX ,R2
#RMDA
, (R2) +
#RMDC, (R2) +
, (R2) +
ARMOF
#RMBA
, (R2) +
HRMWC
, (R2) +
#200, (R2) +

;LOAD THE TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

BR
NOP
EMT

001412

118%:

JMP
MOV
MoV
. MOvB
MOovB
JSR

NOP
EMT

12%:

JMP

11%

MoV

MOV
MovB
mMovB -

043330
:

;GO TO 11$ IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

28%

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

12%

;GO _TO 12% IF NO ERROR

GO TO TIMOUT SUBROUTINE

#RD !GO ,RMCS10

;READ DATA COMMAND

#PUTINX ,R2
#RMCS1,(R2)+
#200, (R2)

JSR
BR

PC,PUT

JMP

28%

NOP
EMT

;TABLE TERMINATOR

28%
;GO TO 28% IF ERROR
#OFFSET!GO,RMCS10
;OFFSET COMMAND
#PUTINX ,R2
#RMCS1, (R2) +
#200, (R2) +

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT

001472

SEQ 0169

13%

;TABLE INDEX

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

;GO TO 13% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

000137

037006

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

;WAIT FOR COMMAND TO COMPLETE
JSR
PC,TIMOUT
-

3241 036352

004737

043060

036360

000240

3240

036356

036362
32‘2 036364

3243
3244 036370
3245 036370

000404

104000
000137

004737

13%:

044056

;GO TO TIMOUT SUBROUTINE

;READ STATUS FOR READ OFFSET OPERATION

JSR

NOP

037006

;GO TO 28% IF ERROR

EMT
JMP

PC,GET

14$

28%

;GO READ REGISTER(S) WITH GET SUBROUTINE

;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%:
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS

B 14

94 RMOBO RMOS/3/2 FCINL

TST 3
MACRO v04.00 4-APR-B1 01:15:59 PAGE 13-99
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

125

036374 000405
036376 000240036400
036402

B8R
NOP

104000
004736

EMT
JSR

036406 000137 037006

3246 036410
3247 036410

004737

036414 000405
536416 000240
036420
036422

0364264

104000
004736

056572

000137

037006

004737

044710

036440
036442

104000
004736

JMP

16$:

28%

GO TO 288 If ERROR

EMT
JSR

PC,A(SP)+

*ERROR # DEFINED BY DTASTS SUBROU!INE
*GO BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

JMp

JMP

168

17$

17%:

3252

:CHANGE LOOP ADDRESS

MOV
BR

288

036444 000137 037006
ggg? C36450

3256

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

PC,a(SP)+

PC,DTASTS

BR
NOP

ggss 036450 012737 036460 001124
322‘5 036456 000410

:G0 TO 158 IF NO ERROR
*RETURN HERE IF ERROR

JSR

B8R
NOP

3248 036430
3249 036430

036434 000405
036436 000240

158

28%

#18%, SLPERR
198

;GO VERIFY RESULTS OF DATA TRANSFER

:GO TO 168 IF NO ERROR
“RETURN HERE IF ERROR
*GO TO 288 IF ERROR

“GO TO 17% IF NO ERROR
*RETURN HERE IF ERROR
16O TO 28% IF ERROR

;TO NEXT OPERATION

'tt.ltt't.ttt.tt.'tt"'ttt."..'ttt!lttt.ttttttttt'ttt.tttttt"

3257

LOOP 3 WRITE CHECK OFFSET

gggg 036460
3260
3261 036460

036464

i8s:
004737
154130

:PREPARE DEVICE FOR READ OPERATION
JSR
-PC,TSTPRP
;PREPARE DEVICE FOR TEST

037316

LWORD

154130

STASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATICN

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI'* OR 'PIP'" IS SET
036466
036470
036472
036474
326% 036500

000404
000240
104000
000137

037006

326

3265 036500

3266 036500
3267 036504
3268 036510
3269 036514
3270 036520
3271 036524
%s;% 0365

012702
112722
112722
112722
112722
112722
112712

001553
000006
000032
000034
000004
000002
000200

3274 036534
036540

004737
000404

043330

19%:

19%
28%

;VERIFY RECALIBRATION

;GO TO 198 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SLBROUTI'E
;GO TO 28% IF ERROR

;WRITE CHECK DATA IN OFFSET MODE

208:

BR
NOP
EMT
JMP

MOV
MOvVB
MOvVB
MOvB
MOVB
MOVB
MOVB

#PUT
INX ,R2
#RMDA
, (R2) +
#RMOF
, (R2) +
#RMDC
, (R2) +
#RMBA, (R2) +
H#RMWC
, (R2) +
#200, (R2)

;TABLE TERMINATOR

JSR

PC,PUT
21%

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

SEQ 0170

C 14

MACRO Vv04.00 4-APR-81 01:15:59 PAGE 13-100
CZRMOBO RMOS5/3/2 FCTINL TST 3
125
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE
036542
036544
036546

JRETURN HERE

NOP

EMT

037006

3275
3276
3277 036552
3278 036552

JMP

SEC 0171

28%

ERROR

SERROR # DEFINED BY PUT SUBROUT INE
;GO TO 28% IF ERROR

;SETUP OFFSET MODE FIRST

000015
001553
000000

001412

21%:

000200

043330

037006

004737

043672

012737
012702
112722
112712

000051

001553

043330

000137

037006

004737

042774

004737

043672

004737

043060

037006

044056

037006

056572

#OFFSET !GO,RMCS10
#PUT
INX ,R2
#RMCS1, (R2) +
#2200, (R2)

JSR
BR
NOP
EMT
JMP

PC,PUT

22%
28%

;WAIT FOR COMMAND TO COMPLETE
PC.TIMOUT
JSR

001412

;OUTPUT BUFFER

;GO WRITE REGISTER(S)

WITH PUT SUBROUT INE

;GO TO 22% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 28% IF ERROR

;GO TO TIMOUT SUBROUTINE

;EXECUTE WRITE CHECK DATA COMMAND

000000
000200

004737
000404
000240
104000

22%:

MOV
MOV
MOVB
MOVB

23%:

MOV
MOV
MOovB
mMovB

#WCD!GO,RMCS10
#PUTINX,R2
#RMCS1,(R2)+
#200, (R2)

JSR
BR
NOP
EMT
JMP

PC,PUT

23%

28%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 23% IF NO ERROR
sRETURN HERE

IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 28% 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

;READ STATUS FOR WRITE CHECK OFFSET OPERATION

24%:

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WIiTH GET SUBROUTINE

28%

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 28% IF ERROR

24$%

;GO TO 24$ IF NO ERROR
:RETURN HERE

IF ERROR

;CHECK ERROR DURING WRITE CHECK OFFSET OPERATION

25%:

“JSR
BR
NOP
EMT
JSR
JMP

PC ,PRIERR

28%

:GO TO 288 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

25%

PC,a(SP)+

;GO CHECK FOR PRIMARY ERRORS

:GO_TO 25 IF NO ERROR
:RETURN HERE

IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

CZRMOBO RM)5/3/2 FCTNL T1ST 3

MACRO v04.00

D 14

4-APR-81 (01:15:59 PAGE 13-101

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE

036730 000405
036732 000240
03673¢
036736

8R
NOP

104000
004736

036740 000137 037006

3309 036744
3310 036744

004737

036750 000405
036752 000240

036754

036756
036760
3311 036764
3312 036764
3313 036772
3314 036774
gg}g 8;;88%

064710

268%:

104000

004736
000137
032737
001005
052737
000137

;GO TO 26% IF NO ERROR
*RETURN HERE IF ERROR

EMT
JSR

PC.A(SP)+

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

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

JMP

BR
NOP
EMT

037006
27%:
000200 001444
000200 001444
036122
-

268

JSR
JMP
BIT
BNE
BIS
IMP

28%
27%

PC.aA(SP)+
28%
#OF D , RMOF O
28%
#0FD ,RMOF O
7%

‘GO TO 288 IF ERROR

:GO TO 27% IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE

*GO BACK FOR MORE ERROR CHECKS
‘GO TO 288 IF ERROR
:IN FORWARD DIRECTION OF OFFSET ?
*BRANCH IF SO
*SET TO FORWARD DIRECTION
*CHANGE OFFSET DIRECTION TEST AGAIN

SEQ 017¢

CZRMOBO RMOS5/3/2 FCINL TST 3

END OF SUB=PASS ROUTINE

MACRO v04.00

E 14

4-APR-81 01:15:59 PAGE 14
.

SEQ 0173

;

.SBTTL

;THIS IS THE END OF

sSELECT THE NEXT DEVICE FOR TEST.

;‘

;1S MADE TO "SHUT' ROUTINE.

END OF SUB-PASS ROUTINE

SUB~PASS ROUTINE.

THIS ROUTINE

IS USED TO

:TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND

IF THERE ARE NO MORE DEVICES

:TO TEST, EXIT IS MADE TO 'SEOP' ROUTINE.

9 037006
10 037010

CO00004
000240

15 037030

001402

11 037012
12 037016
13 037022
14 037026

16 037032

17 0370%6
;g

$EOSP:

013700
062700
010037
005710

001466
000002
001466

000137

037262

012737

001470

SCOPE
NOP

MoV
ADD
MOV
TST

TSTQUE ,RO
#2.R0
RO, TSTQUE
(RO)

;GET POINTER TO TSTQUE
;ADJUST PCINTER TO NEXT DEVICE
;SAVE POINTER TO TSTQUE
;ANY MORE DEVICES FOR TEST ?

JMP

SHUT

;JUMP TO 'SHUT' ROUTINE

BEQ

001466

20
‘:\

1%:

MoV

.SBTTL

END OF PASS ROUTINE

OTHERWISE, RETURN

*BR IF NO

flSTOUE*?.TSTQUE

JINITIALIZE POINTER TO FIRST DEVICE IN

;TEST QUE TABLE

2222232323333 2232233333333 33333323332332333332233223323333232323232322321

'INCRE"ENT THE PASS NUMBER ($PASS)

:*TYPE "“END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'

:'UHERE XXXXX AND YYYYY ARE Dt CIMAL NUMBERS
;«IF THERES A MONITOR GO TO IT
;*]F THERE ISN'T JUMP TO SHUT

037044
037044

000240

037052
037056
037062
037070
037072

005037
005237
042737
005327
000001

037046

037074

037076
037100
037102
037104
€37110

005037

001116

001206
001230
100000

003066

012737
000001
037072
104401
000407

037130
037130

013746

037134
037136
037142
037144
037150

104405
005737
001431
104401
000421

037214

$EOP:

037214

013746

037220
037222

104405
005037

NOP

CLR

001230

STIMES
$PASS
#100000,$PASS
(PC)+
1

MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR
L.ASCIZ
::65%:
64%:
MOV
>
TYPDS
TST
BEQ
TYPE
BR

(PC)+,a(PC)+
1

BGT

037112

007230

001126
037152

;:67%:

001126
001126

$TSTNM

CLR
INC
BIC
DEC
$EOPCT: .WORD

66%:

$DOAGN

:72EPO THE TEST NUMBER

;:ZERO THE NUMBER OF ITERATIONS
;2 INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;.LO0P?

YES

..RESTORE COUNTER

,65%
64%

;2TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<12><15>/END PASS #/

$ERTTL
$GT42P
,67%
66%

;:SAVE $PASS FOR TYPEOUT
;:TYPE PASS NUMBER
:.‘GO TYPE=--DECIMAL ASCII WITH SIGN
;SEE IF ANY ERRORS THIS PASS
BR IF NO ERRORS TO REPORT
,,TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MOV

$ERTTL ,~-(SP)

::SAVE SERTTL FOR TYPEOUT

TYPDS
CLR

$ERTTL

1:CLEAR ERROR TOTAL

_ASCIZ

$PASS ,-(SP)

/
TOTAL ERRORS SINCE LAST REPORT

,,TOTAL NUMBER OF ERRORS

;GO TYPE--DECIMAL ASCII WITH SIGN

CZRMOBO RMOS/3/2 FCTNL 1ST 3

END OF

PASS ROUTINE

037226
037232
037236
037240
037242
037244
037246
037250
037252
037252
037254
037256
21

22 037262
23 037266
24 037270
25 037274
26 037300
27 037302
28 037306
29 037312

104401

013700
001405
000005
004710
000240
000240
000240

MACRO v04.00

001217
00004

$GT4L2P: TYPE
$GET4L2: MOV
BEQ

RESET

RETURN,

;WAS CONTROL

ane?
2%
START
$DEVM
$EOP

;ANY MONITOR PRESENT

000137
005737
001002
000137
005037
000137

007670
000042

1%:

2%:

TST
BNE

JMP
TST
BNE

JMP
(LR
JMP

LINE

; sBRANCH IF NO MONITOR
;sCLEAR THE WORLD
2:G0 TO MONITOR
;s SAVE ROOM

CTLFG
1%

SHUT:

037044

CARRIAGE

.+GET MONITOR ADDRESS

s JRETURN

001326

005432

$DOAGN

;s TYPE

al{rC)+
SHUT
-1.-1.0

005737

001300

.SCRLF
a#é42 RO

SEQ 0174

PC, (RO)

377

000

$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
$ENULL: BYTE
.EVEN

000137
037262
377

001002

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

;2FOR

JsACT1

READY

;sNULL CHARACTER STRING

:BR IF

YES

C FLAGGED ?

s CONT INUE

;BR IF YES
;GO TO START
;FUDGE NO DRIVES IN MAP
JRETURN TO SEOP

FEED

JRMOBO RMOS/372 FCINL
TELT PREPARATION MODUL
£

1ST

MACRO v04.00

G 14
4&-APR-B1 (01:15:59 PAGE E 1 15

NN SN

.SBTTL

USING SUBROUTINES.
sCALL2

PONUNOND
—b
D e bbb
i e b

:
:
;
:

YN
2O 0O
WM

000000
000006
000000
000004

46 037340

042774
043060

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEF INED BY MODULE

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

BIT 14 = 1

BIT 13
BIT 12 = 1

CLEAR CONTROLLER AND SELECT DEVICE

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

g{; }8 =1

RECALIBRATE IF POSITIONING IN PROGRESS

BIT 8

BIT 7
BIT6

VERIFY CONTROLLER CLEAR OPERATION

BIT 5
BIT &4
BIT 3

=1
=1

(RESERVED FOR DRIVE CLEAR)
VERIFY PACK ACKNOWLEDGE
VERIFY RECALIBRATION

BIT 2
BIT 1
BIT 0

TSTPRP:

41 037316
42 037324
43 037330

5SS 037374
56
57

NNANNN
22

BIT 9

5¢ 937362
Sz 037370

PC,TSTPRP

BIT 15 = 1

:
:

38 037316
39

49 037352
50 037354
51 037356

"WORD
BR
NOP
ERROR

47 037344
4«8 037350

JSR

- TASK/VERIFY DESCRIPTOR

;
;

22 037334

TEST PREPARATION MODULE

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,
THE USER
REPORTING AN ERROR TO THE USER IF AN ERROR IS
DETECTED.
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES

SEQ 0175

040236

:STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL
MOV

a(SP) , 5008

:STORE DESCRIPTOR

CLRB
SUB

a(5P)
#4. (SP)

*CLEAR ERROR CALL
*MOVE SP TO NO ERROR RETURN

ADD

000000

001400

040240

*MOVE SP TO USERS ERROR CALL

JSR
JSR
BR

PC,GETSTS
PC.GET
15§

:SETUP TO READ ALL REGISTERS
“GET RMER?2
‘BR IF NO ERROR DETECTED

JWORD

‘ERROR DEFINED BY GET SUBROUTINE

<GET RMER2 AND SAVE FOR LATER

000004
037354
040226

#6, (SP)

108

108:

ADD
MOVB
JMP

#4, (SP)
108-2,a(SP)
4008

15%:

MOV

RMER2],505%

*GET OVER ERROR NUMBER

*XFER ERROR TO USER AND
‘GET ERROR NUMBER.

':."'.'Q.."'t""'."l""...t."'.t"..tt'.'..lt".'l'l't"'t'

CIAMOBO RMOS/3/72 FCTINL TST 3
TEST PREPARAT
[ON MODULE
5
§5 037402

005737

(40236

€2 037410

004737

050762

g? 037406
63 037414

100014

000411

MACRC v04.00

5 037420

000000

062716
113776

000004
037420

°3 037434 000137 040226

000000

032737

040000

76 037450

004737

052434

78 037456

000401

79 037460
80 037462
81 037466
gg 037474

001451

000411

000000
062716
113776
000137

000004
037460
040226

0402326

000000

032737
001431

000100

90 037510
91 037514
92 037516

004737
000411
000401

043060

94 037522
95 037526

062716
113776

000004
037520

004737
000412

052552

000000

$ovn40mwrow&6
100 037546
101 037550
102 037552
103 037554
104 037560
;82 037566

000401
000000
005726
062716
113776

000137

000004
037550

040226

040236

;GO SELECT DEVICE

B8R

208

ADD
MOVB

24, (SP)
205-2,a(SP)

.WORD

JMP

308

*NO ERRCR - CONTINUE

;ERROR NUMBER FROM DEVSEL

*TRANSFER ERROR TO USER

4008

2 22233233233 22323 2233232232332 222332232333233322322333222233322222320221

308:

BIT

#BIT14,500%

JCLEAR CONTROLLER??

JSR

PC,CNTCLR

;GO CLEAR CONTROLLER

508

BEQ

40%:
50%:

608:

70%:

000000

80%:

.WORD
ADD
MOVB
JMP

120%

60%

JNO!!

*CONTINUE = NO ERROR

0
#4,(SP)
40%.3(SP)
4008

;ERROR NUMBER FROM CNTCLR
;TRANSFER ERROR TO USER

BIT
BEQ

#8176,5008
1208

:VERIFY??
*NO! !

JSR
BR
BR
.WORD
ADD
MOVB

PC,GET
S0%
80%

;GO GET STATUS
;NO ERROR GETTING STATUS

#4,(SP)
70%,a(SP)

:TRANSFER ERROR TO USER

JSR
BR
BR
.WORD
TST
ADD
MOVvB
JMP

PC,CLRSTS
1208

JMP

90%:
100$:
110%:
000000

107

;ERROR FROM GETTING STATUS

4008%

;GO VERIFY STATUS CLEAR
;NO FRROR IN CLEAR

1108
0
(SP) +
#4,(SP)
100%.3(SP)
400%

5
:ERROR IN STATUS CLEAR
;STRIP RETURN ADDRESS TO
;s SUBROUTINE AND TRANSFER
*ERROR TO USER

R 2222222222232 322323222223233332 2223233322333 232322232233223222220R0 02

108

ExECUrE PACK ACKNOWLEDGE

109

NOT VALID

110 037572
111 037572

032737

010000

114 037602

004737

043060

;;g 037600

PC,DEVSEL

VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK

87 037500
gg 037506

98 037540
99 (037544

JSR

- Q'ttt'!tttttttt.tittt'tt.tltttittttfittttttntttttttttttttttttt“

93 037520

IND!!

86 037500

308

CLEAR CONTROLLER IF BIT 14 IS SET IN TASK

7% 037440

77 037454

208 :

;g 037446

8PL
&R

72 037440

SEQ 0176

SSELECT valcs AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK
ST
5008
sSELECT DEVICE??

66 037416 000401
66 037422
67 037426

H 14
4-APR-B1 (01:15:59 PAGE 15 15-1

001503

040236

1208
:

IF BIT12 SET IN TASK AND VOLUME

BIT

#B1T12,5008

JSR

PC,GET

BEQ

240%

:PACK ACKNOWLEDGE??

‘NO!!

CIRMOBO RMOS/3/2 FCINL TST 3
TEST PREPARATION MODULE
115 037606
7 037612

B
d
B
D e
h e
D
e
D el o
el e
D e e
)
e e
e
e
e o e
—

oo
NS WN—=0O 0V NN
wro = OV NOINDAN—=OYONT

B e

D ek

D o

el ok

NN NN PO PNONO PO -3 —a
Owrvununnu“nu“nuunbl\bt\b:\b:\btwuuunuhflgf WNWIWNIWWNI
W
=O O NV
NN =000

116 037610

000411
000401
000000
062716
000137

037632
037640

032737
001063

000100

037642
037646
037654
037662
037670
037674
037676
037700
037702
037706
037714

005037
012737

001512
000023
000000
000200
043330

037716

004737

112737
112737

004737
000410
000401
000000
062716
113776
000544

130%:
140%:

000004
037612
040226

037614
037620
037626

113776

MACRO v04.00

000004
037700

150%:

00000

043672

160%:
170%:

180%:

4-APR-81

1
01:15:59 PAGE

15-2

SEQ 0177

1508
1408

sNO ERROR GETTING RMDS

ADD

#4,(SP)

MOVB
JMP

1308 .,a(SP)
400%

; TRANSFER ERROR

BIT
BNE

#VV RMDSI

CLR
MOV
MOVB
MOVB
JSR
BR
BR
.WORD

MEDENB
;CLEAR MEDIA ENABLE
#PAKACK !GO,RMCS10
;LOAD PACK ACK COMMAND
#RMCS1,PUTINX
;SETUP REGISTER INDEX TABLE
#200,PUTINX+1
PC,PUT
;GO WRITE COMMAND
180%
;NC ERROR LOADING REGISTER

MOvB
BR

160%.,a(SP)

BR
BR
.WORD

ADD

JSR

TO USER

;1S VOLUME VALID??

2408

SVES!!

170%
0

;ERROR FROM PUT SUB

#4,(SP)

s TRANSFER ERROR TO USER

400%

;WAIT FOR COMMAND TO CCMPLETE

PC,TIMOUT

':'i.'tt.'tt.'fi.'t.t"'t'".tl't‘i't‘t'ttttttttl'ti'ttttt'ttttfit'

037722
037730

032737
001427

000020

037732
037736
037740
037742
037744
037750
037756

004737
000410

043060

037760
037764
037766
037770

004737
000411
000401
000000
005726
062716
113776
000507

164 040010
165 040010
166 040016

167

168 040020

169 040024

170 040026
171 040030

0004017
000000
062716
113776
000523

000004
037742

040236

000000

BIT

#B1T4,500%
240%

JSR
BR
BR
.WORD

PC,GET

MOovB
BR

190%,a(SP)
4008

BEQ

:
1908

:
2008

2108:

053432

000004
037770

“VERIFY PACK ACKNOWLEDGE !F #BIT4 SET IN TASK

220%:
230%:
000000

210%
2008
0

ADD

#4, (SP)

JSR
BR
BR
. WORD
1ST
ADD
MOvB
BR

PC,ACKSTS

240%
2308
0

+
(SP)
#4,(SP)

220%,a(SP)

sVERIFY PACK ACKNOWLEDGE??

;NO!!

;GO GET STATUS
sNO ERROR GETTING STATUS
;ERROR FROM GET SUB
; TRANSFER ERROR

TO USER

;GO CHECK ACKNOWLEDGE
:NO ERROR
sPACK ACKNOWLEDGE ERROR

;STRIP RETURN TO SUB AND
s TRANSFER ERROR TO USER

400%

:;'t."'fi*"'t.fi'ttfi"fi""ttflt"tltl‘!ttttfl"'fii't‘.it'ttttt'ttt

IS SET
;RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ''SKI''
;OR "PIP'" IS ACTIVE.

032737
001505

004000

004737
000419
000401
000000

043060

040236

240%:

2508:

BIT
BEQ
JSR
BR
BR
.WORD

#B1T711,500%

JRECALIBRATE??

PC,GET

;GO GET RMDS
;NO ERROR GETTING RMDS

;ERROR FROM GET SuB

410%

270%
260%

;NO!!

C 4 RMOBO RMOS5/3/2 FCINL TST
T 3 ST PREPARATION MODULE

172 040032

000000

032737
001004
032737

040000

040240

020000

001350

012737

000007
000000
000200

001412
001553
001554

113776

001462

112737
112737

004737
000410

191
192 040136

193
194
195
196 040142

197 040150
198

199 040152

200 040156
201 040160

202 040162
203 040164
204 040170
205 040176
207 040200
208 040204

—r

)

e ls JRNTe AV ¥

) —

D -

AW NP o

LSSV
NN SLNT, NN

209 040206
040210
040212
040214
040220
040226

000401
000000
062716
113776
000434

004737

043330

000004
040120

000000

043672

4L-APR-81

J 14
01:15:59 PAGE 15-3

SEQ 0178

260%:

ADD
MovB
BR

#4,(SP)

: TRANSFER ERROR TO USER

270%:

BIT
BNE
BIT
BEQ

#SK1,505%

sWAS SKI

MOV
MOovB
mMovB
JSR
BR
BR
.WORD
ADD

#RCCAL !GO,RMCS10
;LOAD RECAL IBRATE COMMAND
#RMCS1,PU
INX
T
JAND REGISTER INDEX

280%:

290%:

300%:

2508 ,a(SP)
400%

280%

#P1P ,RMDS

4108

#200,PUTINX+1

#4,(SP)

290%-2,a(SP)
4008

JSR

PC,TIMOUT

MOVB

SET

;YES, GO RECALIBRATE
:AS'EIP ACTIVE??

;GO ISSUE RECALIBRATE
;NO ERROR

JERROR IN REGISTER TRANSFER
; TRANSFER ERROR TO USER

;WAIT FOR COMPLETION

‘;"tttttQ'ii.t"."t."'i"'i"'.*i'fi'tttt'tt*."'ttt'tttfitttttt

032737
001430

000010

004737
000410

043060

000401
000000
062716
113776
000413

004737
000412
000401
000000
005726
062716
113776
162716

040232
040234

000240
000207

040236

000000
000000

040240

MACRO v04.00

000004
040030

062716
000470

189 040126
190 040134

040236

*VERIFY RECALIBRATE IF BIT 3 SET IN TASK

310%:
320%:

054226

330%:

3408:
000004
040210
000002

350%:

000000

#B173,500%

;VERIFY RECALIBRATE??

JSR
BR
BR
.WORD
ADD
MOVB
BR

PC,GET

;GO GET STATUS

BEQ

000004

040162 000000

8IT

400%:
4708%:

500%:
505%:

4108

3308
3208
0

#4,(SP)

3108.a(SP)
400%
PC,RCLSTS

;NO!!

;NO ERROR GETTING STATUS
;ERROR FROM GET

;TRANSFER ERROR TO USER

;GO CHECK RECALIBRATE
;NO ERROR DURING RECALIBRATE

JSR
BR
BR
. WORD
ST
ADD
MOVAB
SuB
NOP
RTS

#2,(SP)

;MOVE SP BACK BEFORE ERROR

JRETURN TO USER

.WORD
.WORD

0
0

;TASK/VERIFY DESCRIPTOR

410$

350$
0

(SP)+
#4,(SP)

3408 ,a(SP)

;ERROR DURING RECALIBRATE
:STRIP RETURN TO SUB AND
; TRANSFER ERROR TO USER

;CONTAINS RMER?

CZRMOBO RMOS/3/72 FCTINL 137

BAD SECTOR MODULE

MACRO v04.00
.SBTTL

WN = OO0NN
W 200NN
N -2

K 14

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

SEQ 0179

BAD SECTOR MODULE

:THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER

:GENERATOR SUBROUTINE, AND PRESERVES THE 'PUT BUFFER'' SO THAT THE
gg;££¥13550 ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT
:THE MODULE RETURNS TO THE (ALLING TEST WITH THE APPROVED OR ASSIGNED

i ad

*SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘‘ASNDA’’ AND ‘‘ASNDC'’
SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER.

.THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS:

i s

:
;
:

(1)
(2)

ELECTED IS NOT AVAILABLE FOR USE.

b e

RECOVER THE BAD SECTOR FILES AND
APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN
THE BAD SECTOR FILES CR ASSIGN A NEW SECTOR IF THE ONE

; INFORMATION REQUIRED BY THE MODULE INCLUDES:

;

:
:

(1)
(2)

.RMDCO = THE DESIRED CYLINDER,
.RMDAD - THE TRACK AND SECTOR ADDRESS,

(4)
(5)

.RMCS10 - THE COMMAND,
L.RMOFO - THE FORMAT MODE

(3)

sCALL:

:
:
3
:
3
:

33 040242
34 040242
5 040246
36 040252

062716
105076
162716

BADSCT:

000006
000000
000006

.RMWCO - THE WORD COUNT,

JSR
BR
TYPE

PC ,BADSCT
222
.MESSAGE

ERROR

ADD

#6, (SP)

SuB

#6,(SP)

CLRB

a(SP)

;CALL SUBROUTINE
;RETURN HERE IF NO ERROR
;RETURN HERE IF THE BAD SECTOR FILE
s CANNOT BE RECOVERED.
;THE EMT OFFSET NUMBER 'N' IS DEF INED
;BY BAD SECTOR MODULE.
;CLEAR ERROR NUMBER IN USER'S
sERROR CALL.

sTEST 'MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES
40 040256

41 040262
42 040264

005737
001402
000137

:HAVE BEEN RECOVERED.

001512

TST
BEQ
JMP

041542

MEDENB
1%
56%

sHAS BAD SECTOR FILES BEEN RECOVERED ?
:BR IF_NO
sYES, BAD SECTOR FILE IS AVAILABLE

;RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 822

;TRACK = LAST TRACK (RM02/3 = 4 AND RMO5 = 18.). ALSO, SAVE THE USER' §’

47 040270

040270

48 040272
49 040274

50 040302
51 040306
52 040312

%:UT BUFFER

010046
005000
016060
062700
022700
103370

001412
000002
000046

106436

2%:

MoV
CLR
MOV
ADD

CMP

BHIS

RO,-(SP)
;;PUSH RO ON STACK
;START WITH RMCS1
RO
PUTBUF (RO) ,BUF FER(RO)
#2,R0
;ADVANCE TO NEXT BUFFER POSITION

#46,R0
2%

:END OF BUFFER
sNO !

;SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE
56 040314

012737

000003

042160

;SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS)
MoV

#3,68%

JRETRY COUNT

CZRMOBO RMOS5/3/2 FCINL TST 3

MACRO v04.00

BAD SECTOR MODULE

57 040322
58 040330
59 040336
60 040344
g} 040352

012737
013737
012737
012737
012737

001466
001334
177376
010000
110446

63 040360
64 040364
65 040370
66 040374
67 040400
68 040404
69 040410

012700
112720
112720
112720
112720
112720
112720

001553
000006
000034
000002
000032
000004
000000

;12 040420

012600

70 040414

112720

73
74 040422
75 040422
76 040426

004737
004737

78 040434
79 040436

000401
000000

77 040432

80 040440

000411

000200

000006

g% 040452

000137

041246

glé 040456
86
87 040464
88 040472
89 040476
90 040500
91 040502
92 040504

93 040510
gg 040516

113776

013737

001400

042172

012737
004737
000411
000401

000011
043330

001412

113776
000137

041246

96 040522

004737

043672

98 040532

000411

97 040526

99 040534
100 040536
101 040540
102 040544

;82 040552

105 040556
106 040562
107 040564
108 040566
109 040570

110 040572
111 040576

”% 040604

004737

000401
000000
062716
113776

000137

004737
000412
000401
000000
005726

062716
113776

000137

000000

000006
040536

000000

055770

041246

MOV
mMovB
MOVB
MOVB
MOvB
MovB
MOVB

#PUT INX ,RO
#RMDA
, (RO) +
#RMDC
, (RO) +
#RMWC
, (RO) +
#RMOF , (RO)+
#RMBA, (RO) +
#RMCS1, (RO) +

;RO POINTS TO REGISTER INDEX TABLE

MOV

(SP)+,RO

;;POP STACK INTO RO

#200, (RO) +

5%:

000000

;BR IF MO ERROR

#6, (SP)

;XFER ERROR TO USER AND

BR
.WORD

3]
0

MOVB

4%$-2,a(SP)

ADD

JMP .

MoV

42%

RMER21,73%

;JUMP OVER ERROR NUMBER
;ERROR DEF INED BY GET SuB

:GET ERROR NUMBER.

;GET RMER2 AND SAVE FOR LATER

;CLEAR THE DEVICE USING DRIVE CLEAR COMMAND
MOV
#DRVCLR!GO,RMCS10
;LOAD COMMAND IN PUT BUFFER
JSR
PC.PUT
;OUTPUT COMMAND
BR
8%
sJRETURN HERE IF NO ERROR
BR
7%
;GET AROUND ERROR #

6%:
7%:

.WORD
ADD
MovB

O
#6,(SP)
6%,a(SP)

;ERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

JSR

PC, TIMOUT

;WAIT FOR COMPLETION

118

JRETURN HERE IF NO ERROR

JMP

9%:
108:

JSR

11%:

42%

PC,GET

BR
.WORD
ADD
MOVB

108
0
#6, (SP)
9%,a(SP)

JSR
BR
BR
.WORD
TST
ADD
MOvB

PC,DRVSTS
14%
13%
0
(SP) +

JMP

128:
13%:

000006
040566

4%:

8%:

043060

041246

;DESIRED CYLINDER = 822.
;STARTING LAST TRACK, SECTOR = 0
;2 + 256. WORDS (2'S COMP)
;16 BIT FORMAT
;POINT TO MANUFACTURES FILE BUFFER

000000

000006
040502

#822. ,RMDCO
LSTRK ,RMDAC
#-258. ,RMWCO
#FMT16 ,RMOFO
#MFGF
IL ,RMBAD

:SET GET INDEX TABLE FOR READING STATUS
3%:
JSR
PC.GETSTS
;SETUP GET INDEX REGISTER FOR STATUS
JSR
PC.GET
;GET REGISTERS

040436

000000
062716

MOV
MOV
MOV
MOV
MOV

MOvB

042774
043060

062716

81 040444

001446
001420
001414
001444
001416

L 14

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

JMP

42%

#6, (SP)
12%.3(SP)

42%

;MOVE ERROR NUMBER TO USER

;GO GET STATUS

;GET AROUND ERROR #
;ERROR # GOES HERE
sMOVE SP TO USERS ERROR CALL
;MOVE ERROR # TO USERS ERROR CALL

;GO VERIFY DRIVE CLEAR COMMAND
JRETURN HERE IF NO ERROR
;GET AROUND ERROR
sERROR # GOES HERE
sSTRIP RETURN TO SUBROUT INE
;MOVE SP TO USERS ERROR CALL
;MOVE ERROR # TO USER CALL

SEQ 0180

o000
oo

;

040652

000006
040636
041246

§§&§% 32 858

001412

ER KRR

WN =0V~

000023
043330

000000

000006
040672
041246

000000

053432

062716
113776

000137

000006
040722
041246

14%:

BIT
BNE

#VV ,RMDS ]
23%

MOV

#PACACK !GO,RMCS10

BR
BR

17%
16%

JSR

15%:
16%:

17%:

043672
043060

040666
040670
040672
040674
040700
040706

040712
040716
040720
040722
040724
040726
040732
, 040740

M 14
4-APR-81 01:15:59 PAGE 16~2

SEQ 0187

g SSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET

001350

® WN=O VRN

MACRO v04.00

000100

18%:
19%:

20%:

21%:
22%:
000000

;IS VV RESET ??
JNO !

s LOAD COMMAND

PC,PUT

;GO PUT COMMAND TO DRIVE

WORD
ADD

O
#6, (SP)

JERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

JMP

42%

JSR
JSR

PC,TIMOUT
PC,GET

;WAIT FOR COMPLETION
;GO GET STATUS FOR PACK ACK

.WORD
ADD

O
#6, (SP)

JERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

MOVB

- BR
BR

MOVB
JMP

15%.a(SP)

208
19%

18%.9(SP)
42%

JRETURN HERE IF NO OUTPUT ERROR
;GET AROUND ERROR #
;MOVE ERROR # TO ERROR CALL

;RETURN HERE IF NO ERROR
;GET AROUND ERROR #
;MOVE ERROR # TO CALL

JSR

PC,ACKSTS

;GO VERIFY ACKNOWLEDGE STATUS

ADD

#6, (SP)

;MOVE SP TO USERS ERROR CALL

BR
BR
.WORD
TST
MOVB
JMP

23%
22%
O
(SP) +

218.a(SP)
42%

JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE
;STRIP RETURN TO SUBROUTINE

;MOVE ERROR # TO USERS ERROR CALL

&s
NSO

e e

OO0O0O00O
WWRON

OO
==

)

3%& ~
RRRRRRRR RRRRR

é%ECALIBRATE THE DRIVE IF ''SKI'' OR 'PIP IS SET

) D s
el sl vk il o

NNI NI PO NI NI N A NI NN == = b =

il i el ol il il el s

ol il il el s
D D il lD i

D el il il S

oo UNNUMNVNMUVTINMES
D DB DDA
DWW WWWL

il sl <kl ot Sk el il il o) ol il il ) i sl il ol D A
e
il

CZRMOBO RM05/3/2 FCTNL IST 3
BAD SECTOR MODULE

032737
001004
032737
001452

040000

042172

020000

001350

012737
004737

000007
043330

001412

000137

000006
041002
041246

000411
000401
000000
062716
113776

004737
004737
000411
000401
000000
062716
113776
000137

000000

25%:

26%:

043672
043060

000006
041036
041246

24%:

27%:
G00000

288%:

BIT
BNE
BIT
BEQ

#SK1,73%
24%
#PIP ,RMDSI
32%

MOV
JSR

#RECAL 'GO,RM(CS10
;LOAD RECAL IBRATE COMMAND
PC,PUT
;PUT THE RECAL COMMAND
26%
25%
O
#6, (SP)
25%-2,a(SP)
42%

;RETURN HERE IF NO ERROR
;GET AROUND ERROR #
:ERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL
:MOVE ERROR # TO USERS CALL

JSR
JSR
BR
BR
.WORD

PC,TIMOUT
PC,GET
29%
28%
0

;WAIT FOR RECALIBRATE TO COMPLETE
;G0 GET RECAL STATUS
sRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE

MggB

ES%.B(SP)

:MOVE ERROR TO USERS CALL

BR
BR
.WORD
ADD
MOvB
JMP

ADD
J

#6, (SP)

;WAS SKI SET ?
;YES,
GO RECALIBRATE
;1S PIP SET ??
INO &}

sMOVE SP TO USERS ERROR CALL

CZRMOBO RM0S5/3/2 FCTINL TST 3

MACRO v04.00

' BAD SECTOR MODULE
171 041056

172 041062
173 041064

176 041066
175 041070
176 041072
177 041076

;;3 041104

004737

000412
000401

000000
005726
062716
113776

000137

054226

29%:

30%:
31%:

000006
041066

000000

041246

1%? 041110
012737
004737

185 041124
186 041126

000401
000000

187 041130

188 041134
}gg 041142
191 041146

192 041152

000411

000073
043330

062716

000006

004737

043672

113776
000137
004737

193 041156 000411

000006

}gg 041176

000137

041246

200 041202
201 041206
202 041210
203 041212

004737
000412
000401
000000

056572

205 041216

062716

000006

206 041222

113776

005726

000000

041162

000000

39%:

;

408%:

ggg 041230

000137

000000

209 041234

032737

040000

001336

001001
000446

36%:
37%:

38%:

041212

041246

33%:
34%:

35%:

113776

210 041242
g}% 041244

.WORD
TST
ADD
MOvB

O
(SP) +
#6,(5P)
30%.a(sP)

;GO VERIFY RECALIBRATE STATUS

32%
318

JRETURN HERE IF NO ERROR
:GET AROUND ERROR #
sERROR # GOES HERE
sSTRIP RETURN TO SUBROUT INE
sMOVE SP TO USERS ERROR CALL
sMOVE ERROR # TO USERS CALL

428

MOV
JSR

#RH!GO,RMCS10
PC,PUT

;LOAD READ HEADER AND DATA COMMAND
;PUT COMMAND

BR
.WORD

34%
0

;GET AROUND ERROR #
;ERROR # GOES HERE

043060

000401
C00000
062716

204 041214

PC,RCLSTS

JMP

001412

041126
041246

194 041160
195 041162
196 041164

197.041170

JSR

BR
BR

JRETURN HERE IF NO ERROR

ADD

#6,(SP)

JSR

PC,TIMOUT

;WAIT FOR READ OPERATION TO COMPLETE

38%

JRETURN HERE IF NO ERROR

MOvV3
JMP
JSR

;sMOVE SP TO USERS ERROR CALL

33%.a(SP)
42%

sMOVE ERROR # TO USERS ERROR CALL

PC,GET

;GO GET STATUS FOR READ OPERATION

BR
.WORD
ADD

37%
0
#6,(SP)

JMP

42%

JSR
BR
BR
.WORD

PC,DTASTS
41%
40%
0

;GO VERIFY RESULTS OF READ OPERATION
sRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE

ADD

#6, (SP).

;sMOVE SP TO USERS ERROR CALL

JMP

42%

MOvB

TST

MOVB

41%:

35%

BIT

BNE
BR

:GET AROUND ERROR #
;ERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

36%.,a(SP)

;MOVE ERROR # TO CALL
'

(SP) +

;STRIP RETURN ADDRESS TO SUBROUTINE

39%.a(SP)

;MOVE ERROR # TO USERS CALL

#TRE ,RMCS1I

428
48%

;BR IF YES
:NO ERRORS DETECTED

IIERE AR

S}g

;THE SECTOR WILL BE RETRIED IF POSSIBLE.

214

AAA A AAA AR AR

;ANY CONTROLLER ERRORS ?

213

217 041246
S;g 041252

SEQ 0187

%SEAD THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA

182 041110
183 041116

184 041122

N T4

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

RA AR IR AR AR RARIEN R

)

AR AR IR RERR AR R ARk *

*AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.

DEC
BPL

68%
45%

S%?
222 041254 032737 100720 001352 43%:
ggz 041262

001004

BIT

#DCK!'HCRC!HCE !FER!ECH,RMER1I
44%

JYES, GO TRY NEXT AVAILABLE SECTOR

225 041264
226 041272

032737
001422

BIT
BEQ

#BSE ,RMERZ2
46%

;ANY MEDIA RELATED ERRORS ?
;NO, EXIT AND REPORT ERROR ON RETURN

227

005337
100026

042160

42%:

:YES, DECREMENT RETRY COUNT AND
JRETRY IF COUNT NOT NEGATIVE.

;THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED

100000

001400

BNE

;ANY MEDIA RELATED ERRORS ?

CZRMOBO RMOS/3/2 FCINL 1sT 3

BAD SECTOR MODULE

;DUE TO THE MEDIA.
000002
000012

001420
001420

000040

001420

000003

042160

000006
040422

241
262
2643
264 041340

44%:

45%:

ADD
CMPB

BEQ

(MPB
BEQ

MOV
SuB
JMP

245 041342
246 041350
247 041352
248 041356

020000
000004
042154

249
250
251
252

4L6%:

47%:

NOP

BIT
BNE
SuB
JMP

CAN BE RECOVERED FROM

#2 ,RMDAD

;ADVANCE SECTOk ADDRESS BY 2

468
#32. .RMDAO
468

SQUIT IF ALL USER SECTORS HAVE BEEN

#10. ,RMDAO

#3,68%
#6, (SP)

;THE BAD SECTOR FILE

137604

SEQ 0183

TRYING TO RECOVER T4E BAD SECTOR FILE ARE

SEE IF THE BAD SECTOR FIL:
;ANOTHER AREA ON THE LAST TRA(K

233 061302
23 041310
235 041312
236 0641320
237
238 041322
239 041330
2640 06133

CANNOT BE

#5W13,aSWR
47%

#4,(SP)

67%

;gg};olr ALL MFG SECTORS HAVE BEEN
;TRIED.

SREINSTATE RETRY COUNT FOR THIS SECTOR
sMOVE SP BACK TO NO ERROR
sRETRY THE READ OPERATION
READ

s INHIBIT MESSAGE ?
JYES
;MOVE SP TO ERROR RETURN
;GO TO MODULE EXIT

;THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF
;THIS IS THE MGF FILE OR ELSE DONE.

253 041362
254 041370
255 041372
256 041400
257
258 041406

111454

001416

000012
111454

001420
001416

000003
040422

042160

48%:

cMP
BEQ
MOVB
MOV

#10. ,RMDAO
#USRF
IL ,RMBAO

;WAS THE USER FILE READ ??
;¥ES = READ IS COMPLETE
;READ THE USER FILE LAST TRACK, SECTOR = 10.
;POINT TO USERS FILE BUFFER

MoV
JMP

#3,68%
33

sRELOAD THE RETRY COUNT FOR THIS SECTOR
;GO READ THE USER FILE

#USRF
IL ,RMBAO

52%

e D
s
el
el
i

49%:

NNNN°§

:DUMMY THE BAD SECTOR FILES

Soooooo

041420
041422
263 041424
264 041430
265 041434
266 041442
267 041450
268 041452
269 041454
270
271 041456
27§ 041462
273 041464
274 041470
275 041474
276 041476
277 041500
278 041502
041504
279
280
281 041506

B 15
4-APR-B1 01:15:59 PAGE 16-4

;THE ERRORS DETECTED WHILE

228
229
230
231
232 1274

259 041414
260
261
262 041420

MACKRO v04.00

000374
000014
177777
177777

508:

MOV
MOV
MOV
MOV
MOV
MOV
TST

DEC
BNE

0C0006
110446
111454

51%:

MOV
CLR
CLR
CLR
TST
DEC
8NE
MOV
MOV

RO,-(SP)
R1.-(5P)

;:PUSH RO ON STACK

;:PUSH R1 ON STACK

R1
#252.

;R1 = NUMBER OF ENTRIES IN FILES

508

JENTER ALL ONES IN MFG FILE
;ENTER ALL ONES IN USER FILE
;ADVANCE ADDRESS
;DECREMENT COUNT
;CONTINUE IF NOT DONE

#14 RO
#-1.MFGF
IL (RO)
#-1_USRF
IL (RO)
(RO)
+
R1

;RO = ADDRESS INDEX TO FILE

;CLEAR HEADER, CLEAR ID & SERIAL NUMBERS

MF GF IL (RO)

F
IL (RO)
USR
(RO)
+
R1
51%
+ ,R1
(SP)
(SP)+,RO

;ADVANCE ADDRESS

;;POP STACK INTO R1

;;POP STACK INTO RO

;SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER

528

STORAGE

CZRMOBO RMOS/3/2 FCTNL 1ST 3

BAD SECTOR MODULE

041506
282 041510
83 041512
284 041520
285 041526

010046
005000
012737
016060
062700

177777
106436
000002
000046

MACRO V04.00

001512

001412

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

53%:

MOV
CLR
MOV

299 041556
300 041564
301 041566
302 041572
303 041574
304 041600
305 041606
306 041610
307 041614
308 041616
309 041620
310 041622
311 041624
312 041626
313 041630
314 041632
315 041634
316 041636
317

::PUSH RO ON STACK
;RO IS REGISTER INDEX

#46,R0

:DONE ??

(SP)+,R0

::POP STACK INTO RO

BUFFER(RO) ,PUTBUF (RO)
#2 RO
:ADVANCE RO

BrIS

53%

MoV

290
P44
292
293
294
295
296
297 041542
041542
041544
041546
298 041550

RO,=(SP)
RO
#-1,MEDENB

MOV
ADD
CMP

SEQ 0184

:'-ttttttt.tttttt't.ttttt'tttfittttttttttttttt*tttttt'tttt.'ttttt't

:VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE
:AND NOT

IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF

:SECTOR IS IN ANY OF THE FILES.

THE

:;tttttttttttttttttttttttttittttttttttttttttt*ttttt-ttttttttl'ttt

%%gAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF

010046
010146
010246

013737
013737
005002
013700
005400
012701
032737
001402

001446
001420

001514
001516

001414
000400
000002

012701
020100
101404
005700
001405
00520¢
000403
160100
005202

000402

010237

042160

000767

MoV
MOV
MOV
MOV
MOV
CLR
MOV
NEG
MOV
BIT

001412

318

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:LOAD REQUESTED CYLINDER, TRACK,
;AND SECTOR ADDRESS IN ASSIGNED STORAGE
:R2 = NUMBER OF SECTORS
;RO = WORD COUNT
:MAKE NUMBER POSITIVE
:R1 = NUMBER OF WORDS PER SECTOR
:1S THIS A HEADER AND DATA COMMAND ??

CMP

55%
#258. ,R1
R1,RO

ST
BEQ
égc

RO
57%
ggs

56%:

SuB
égc

R1,RO
ggs

:SUBTRACT ONE SECTOR FROM WORD COUNT
: INCREMENT SECTOR COUNT

57%:

MOV

R2,68%

:SAVE SECTOR COUNT

55%:

BEQ
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
RMDCO,ASNDC
RMDAO , ASNDA
R2
RMWCO,RO
RO
#256. ,R1
#BIT1,RMCS10

SECTORS

BLOS

56%

:NO !!
:CHANGE WORDS PER SECTOR

;1S THERE A FULL SECTOR ??

- :YES !!

:1S RO ZERO ??
;YES !!
: INCREMENT FOR PARTIAL SECTOR

:LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
:ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE
:SECTOR COUNT IS MORE THAN OME.

319
320
321
322 041642
323
324 041650
%sg 041654

012737

110462

004737
012737

041672
111470

327 041662
%gg 041666

004737
000137

041672
042132

30 041672
31 041700
041706

013737
013737
013737

001514
201516
042160

042170

MOV

#MFGFIL+14,728

;THE STARTING ADDRESS OF MFG FILE

042170

JSR
MoV

PC,58%
MUSRFIL+14,72%

JMP

66%

:GO SEARCH FILE
:LOAD STARTING ADDRESS OF USR FILE
:TO BASE ADDRESS STORAGE.
:GO SEARCH FILE
:DONE WITH ALL FILE SEARCHES '!

MoV

ASNDC,70%

:LCAD COMPARING CYLINDER ADDRESS

MOV

68%,69% :LOAD NUMBER OF SECTORS TO CONFIRM

JSR

042164

042166

042162

58%:

:TO BASE ADDRESS STORAGE.

MOV

PC,58%

ASNDA,771$

:LOAD COMPARING TRACK, SECTOR ADDRESS

;SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING

BAD SECTOR MCDULE

337 041714
338 041720
339 041724
340 041726
g:; 041732
343
344
345 041734

013700
022710
001446
021037
001010

MACRO v04.00

042170
177777

60%:

042164

126037
001004

000003

042167

349 041744
gg? 041752

126037
001402

000002

042166

352 041754
%gz 041756

022020
(C00760

359 041764
360 041772
361 041774
362 042000
363 042004
364 042012
365 042014
366 042020
367 042024
368 042032
369 042034
;;? 042040

72%,R0
#-1,(RO)
648
(RO),70%
62%

;LOAD THE BASE ADDRESS IN RO
;1S THIS FILE TERMINATOR ?
:BR _IF YES
sDOES TABLE ENTRY = COMPARING CYLINDER ?
;BR IF NO

62%:

SEE IF THE NEXT ENTRY EQUALS

CMPB
BNE

3(RO),718+1
62%

;DOES TABLE ENTRY = COMPARING TRACK ?
:BR IF NO

CMPB
BEQ

2(R0),71%
63%

;DOES TABLE ENTRY = COMPARING SECTOR ?
;BR IF YES

CMP
BR

(RO) +, (RO) +
60%

;NO, ADJUST CYLINDER POINTER IN BAD FILE
;AND CONTINUE SEARCH.

;THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE.
;ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER.

105237

122737
103337
105037
105237
123737
103327
005037
005237
022737
103317
005037
000714

001516

000037

001516
001514

001466

001516

042162

379 042050
380 042054

105237
122737

042166
000037

382 042064
383 042070
384 042074
385 042102
386 042104
387 042110
388 042114
389 042122
042124

105037
105237
123737
103012
005037
005237
022737
103002
005037

042166
042167
001335

042166
042164
001466
042164

INCB -

CMPB
BHIS
CLRB
INCB
CMPB
BHIS
CLR
INC
CMP
BHIS
CLR
BR

001514

005337
001442

103022

63%:

001516°
001537
001335 001517

372
373
374
375 042042
376 042042
g;g 042046

381 042062

MOV
cMP
BEQ
CMP
BNE

;FILE ENTRY EQUALS COMPARING CYLINDER.
:THE COMPARING TRACK, AND SECTOR.
61%:

355
356

357 041760

SEQ 0185

;CYLINDER, TRACK AND SECTOR ADDRESS
59%:

346 041734
332; 041742

358 041760

D 15
4-APR-81 01:15:59 PAGE 16-6

ASNDA

#31. ,ASNDA
58%
ASNDA
ASNDA+1
LSTRK+1,ASNDA+1
58%
ASNDA
ASNDC
#822. ,ASNDC
58%
ASNDC
58%

; INCREMENT SECTOR

;SECTOR OK 2?7
YRS 3
;CLEAR SECTOR AND ADVANCE TRACK
;TRACK OK ?
s¥ES !
;CLEAR TRACK AND SECTOR
s INCREMENT CYLINDER
;CYLINDER OK ??
NS I
: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

042166

71%
#31..71%

; INCREMENT THE COMPARING SECTOR
;SECTOR OK ??

CLRB
INCB
CMPB
BHIS
CLR
INC
CMP
BHIS
CLR

£1s
.
71941
LSTRK+1,71%+1
65%
71%
70%
#822.,70%
65%
70%

;CLEAR SECTOR
; INCREMENT TRACK;TRACK OK ??
sYES !
;CLEAR SECTOR TRACK
s INCREMENT CYLINDER
sCYLINDER OK ??
JYES !
;START AT CYLINDER Q

BHIS

042167
'
042164
.

INCB
CMPB

65%

sYES- 1t

e
I

335
336 041714

CZRMOBO RM05/3/2 FCTINL TST 3

CZRMOBO RM0S5/3/2 FCINL TST 3

BAD SECTOR MODULE

192 042130
394
395 042132
396 040132
397 042140

000671

398 042146
042150
- 042152

013737
013737
012602
012601
012600

400 042154

000240

401 042156

000207

403

405 042160
406 042162
407 042164
408 042166
409 042170
410 042172

MACRO v04.00
658:

001514
001516

001446
001420

¢
£ 13
4-APR-B1 01:15:59 PAGE 16-7
BR

598

:SEARCH NEXT SECTOR

;ASSIGN THE SECTOR AND RETURN TO USER
66%:
MOV
ASNDC ,RMDCO
;LOAD CYLINDER
MOV
ASNDA . RMDAO
:LOAD TRACK AND SECTOR

MOV
MOV
MOV

678:

NOP

RTS

(SP)+.R2
(SP)+.R1
(SP)+.RO

:;POP STACK INTO R2
1:POP STACK INTO R1
::POP STACK INTO RO

:THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE

000000
000000
000000
000000
000000
000000

688:
698:
708:
71$:
728:
738:

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

O
0
O
0
O
O

:RETRY COUNT/ NUMBER OF SECTORS REQUIRED
:NUMBER OF SECTORS TO COMPARE
:COMPARING CYLINDER
:COMPARING TRACK AND SECTOR
:BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED
*CONTAINS RMER2

SEQ 0186

CZRMOBO RMOS5/3/2 FCTINL TST 3

BUFFER GENERATOR SUBROUT INE
NS WN-2O 000 NP NS WM -

.SBTTL

SEQ 0187

BUFFER GENERATOR SUBROUTINE

;THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS.
THE BUFFER
;BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG.

THE

;CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS
;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO.

OQOVON

nonnnh

2
n

b d —d b e ed d d )

sHEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,
sRMDA AND RMOF.
ADDRESS OF DATA BUFFER
LENGTH OF DATA BUFFER
ADDRESS OF DATA PATTERN
LENGTH OF DATA PATTERN
SECTOR COUNT

JSR

PC.GENBUF

MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
Mov

RO,=(SP)

BIT
BEQ
MOV
BIS
MoV

#BIT1,RMCS10

:xg{fe HEADER & DATA??

60$, (RO)
#MSE
! USE , (RO)
#29. .R2

‘WRITE HEADER WORD 41

RETURN HERE

042174
042174
042176
042200
042202
042204
21 042206
22 042212
23 042216
24 042224
25
26 042232

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

MACRO v04.00

001416
001414
001446
001420

042426
042430

032737
001445
013710

000002

001412

012702

000035

32 042256
33 042264
34 042266
gz 042272

032737
001404
052710
012702

010000

37 042276
;g 042300

005201
001443

40 042302

005720
013720
005201
001436
012703

27 042240
28 042242
29 042246
30 042252
31

052710

105213

10%:

042426

140000

001444

BIT
BEQ
BIS

010000
000037

MoV

15%:

042430

120213
103013

000001

25%

#FMT16,RMOFO

15%
HEMT16, (RO)
#31.,R2

:;PUSH R3 ON STACK
:;PUSH R4 ON STACK

;LOAD DATA BUFFER ADDRESS
;LOAD WORD COUNT

;LOAD STARTING CYLINDER ADDRESS

;LOAD STARTING TRACK,SECTOR ADDRESS

*SET BAD SECTOR FLAGS FOR GOOD SECTOR

‘R2 = MAXIMUM SECTOR ADDRESS (29.)

:lgsa{{ FORMAT??

*SET 16 FORMAT BIT IN HEADER

*CHANGE MAXIMUM SECTOR ADDRESS (31.)

; INCREMENT WORD COUNT
JEXIT IF DONE

TST
MoV

+
(RO)
65%, (RO)+
R1
508

;MOVE RO TO HEADER WORD #?2

CMPB

000001
001335

R2.=(SP)
R3,-(SP)
Ré4 ,=(SP)
RMBAQ,RO
RMWCO,R1
RMDCO,60%
RMDAO,65%

;;PUSH RO ON STACK
;;PUSH R1 ON STACK
:;PUSH R2 ON STACK

INC
BEQ

INC
BEQ
MoV
INCB

042430

R1,=(SP)

BHIS
CLRB
INCB
CMPB
BHIS
CLRB

50%

(R3)
R2, (R3)

25%

(R3)
1(R3)

LSTRK+1,1(R3)
25%
1(R3)

;WRITE HEADER WORD #2

; INCREMENT WORD COUNT AND
SEXIT IF DONE

;ADVANCE SECTOR ADDRESS

:sgcrgk OVERFLOW 2?

INO

*YES = CLEAR SECTOR ADDRESS
“ADVANCE TRACK ADDRESS
;L3A55 OVERFLOW 2?2

;
;
|

*YES- CLEAR TRACK ADDRESS

CZRMOBO RMOS5/3/2 FCINL TST 3

BUFFER GENERATOR SUBROUT INE

53 042350
54 042354
55 042360
56 042364

57 042370

105237
012704
013702
013703

012220

58 042372
59 042374
60 042376
61 042400

005201
001405
005304
001714

o4 042406
65 042410
042410

000770

62 042402
63 042404

042412

042426
(00400
001174
001176

MACRO v04.00

25%:
30%:

408%:

005303
001765
012604
012603
012602

042414
042416
042420
66 042422
gg C42424

012601
012600
000240
000207

69 042426
70 042430

000000
000000

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

INCB
MOV
MOV
MOV

60%
#256. ,R4
$TMPO,R2
$TMP1,R3

sADVANCE CYLINDER ADDRESS
;LOAD SECTOR DATA COUNT
;LOAD PATTERN ADDRESS
;LOAD PATTERN COUNT

INC
BEQ
DEC
BEQ

R1
50%
R4
108

s INCREMENT WORD COUNT AND
SEXIT IF DONE
;DECREMENT SECTOR COUNT
;START NEXT SECTOR IF 0

40%

MOV

DEC
BEQ

50%:

MOV
MOV
MOV

MOV
MOV
NOP
RTS

60%:
65%:

.WORD
-WORD

(R2)+,(RO)+

R3
308

(SP) +,R4
(SP)+,R3
(SP)+,R2

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

JWRITE DATA PATTERN

;DECREMENT PATTERN COUNT
JRESTART PATTERN IF 0
;CONTINUE DATA PATTERN

;:POP STACK INTO R4
;;POP STACK INTO R3
::POP STACK INTO RZ

;:POP STACK INTO R1
;;POP STACK INTO RO

PC
;CYLINDER ADDRESS STORAGE
;TRACK, SECTOR ADDRESS STORAGE

SEQ 0188

CZRMOBO R’M05/3/2 FCINL T1ST 3

COMPARE BUFFER SUBROUT INE

MACRO v04.00

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

SEQ 0189

.SBTTL

:THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,

8
S

SCALL$
(1)

JSR

PC ., CMPBUF

11
12
13
14

:
(3
T (&)
1 (5)

.WORD
BR
NOP
ERROR

READ BUFFER ADDRESS
27
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEFINED BY SUBROUTINE

A
5
9

“ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN
*AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER
*COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL.

2(2)

15
16

17 042432

1(6)

CMPBUF
:

042432
042434
042436
042440
}g 042442

010046
010146
010246
010346
005037

042772

20
21 0462446

033737

004000

001370

100000

001352

22 042454
23 042456
24 042464

001063
032737
001457

30
31 042506

001416
001402

37 042530
38 042532
39 042536

022701
103004
162701
005720

000020

41 042542

012702

32 042512
gz 042516

35
36 042524

40 042540

2% 042546
&4

052737

000771

010203

45 042550

020301

47 042554
48 0462556
49 042560

006302
005203
000773

46 042552

g? 042562

100000

:;PUSH RO ON STACK
*:PUSH R1 ON STACK
*:PUSH R2 ON STACK
*:PUSH R3 ON STACK
:CLEAR CORRECTION FLAG

80%
#DCK ,RMER11
80$

INO !
JWAS THERE A DATA (CHECK ??
INO !

BEQ

80$

iNO !

#ECH,RMER11]
80$
#FMT 16, RMOF I

*IS ERROR CORRECTION HARD SET ?
SYES !!
*1S THIS 16 BIT FORMAT 2?

RMEC11.R1
#81715.1508

*R1 = ECC POSITION
*SET CORRECTION FLAG

:MOVE RO TO WORD BOUNDARY OF ERROR BURST
108 :
CMP
#16..R1
;1S BIT POSITION > 1 WORD

208

BHIS
SUB
ST

20%
#16. .R1
(RO) +

IND !
*SUBTRACT 1 WORDS WORTH
*ADVANCE BUFFER ADDRESS 1 WORD

MOV

#1,R2

:R2 = BIT POINTER

MOV

108

R2.R3

*R3 = BIT NUMBER

MOVE R2 TO STARTING BIT OF ERROR BURST

000013

358:

§3 042566 030237 001404

L08:

§2

RO,=(SP)
R1.-(SP)
R2.=(SP)
R3.=(SP)
1508

BNE
BIT
BEQ

MOV
BIS

042772

30%:

001403

012703

MOV
MOV
MOV
MOV
CLR

WRiTE BUFFER ADDRESS

:CORRECT DATA USING ECC INFORMATION
MOV
RMBAO, RO
;RO = STARTING BUFFER ADDRESS

000020
000001

222

BIT
BNE
BIT

001447

013700
013701

.WORD

:DETERMINE IF DATA SHOULD BE CORRECTED
BIT
ECI,RMOF |
;WAS ECC CORRECTION ALLOWED ??

25 0462466 032737 000100 001352
26 042474 001053
27 042476 032737 010000 001370
Sg 042504

(COMPARE BUFFER SUBROUTINE

CMP

R3,R1

;IS R3 SAME AS R1 ??

ASL
INC
BR

R2
R3
308

*SHIFT BIT POINTER
*INCREMENT BIT NUMBER

BEQ

MOV

358

#11..R3

:CORRECT THE ERROR BURST

BIT

R2,RMEC?2]

SYES

:R3 = LENGTH OF ERROR BURST

;1S THIS BIT SET IN ECC PATTERN ??

COMPARE BUFFER SUBROUT INE

S4 042572
55 042574
56 042576
57 042600
58 042602
59 042604
60 042606

508:
60%:

61 042610
62 042612
63 042616
64 042620
65 042622
66

68 042624
69 042630
70 042636
71 042642
72 042650
73 042654
74 042660
75 042662
76 042664

77 042666
78 042670

000001
70%:

000010
000002
000010
000002
001340
001414

000010
000010

042772

000163
000002

000010
000010

001140
001142
001134
001136
001174
000004
000336

90
91
92
93
94

042732
042740
042742
042750
042756

032737
001403

100000

042760
042762
042764
042766
96 042770

012603
012602
012601
012600
000207

97
98 042772

037
137
037
137

237

6 766
776
3

112776
162766
000240

00000

115

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

BEQ
BIT
BEQ
BIC
BR
BIS
ASL
BNE
MOV
TST
DEC
BNE

60%
R2, (RO)
50%
R2, (RO)
60%
R2. (RO)
R2
70%
#1,R2
(RJ)
+
R3
40%

SEQ 0190

sNO - DO NOT CORRECT THIS BIT
:1S THE BIT PRESENTLY SET 2?
:NO
SRESET THE BIT
;SET THE BIT
JSHIFT TO NEXT BIT
sCONTINUE WITH FIRST BIT OF NEXT WORD
;END OF BURST ??
;NO !!

;COMPARE WRITE BUFFER TO READ BUFFER

017600
062766
017601
062766
013702
163702
022021
001003
005302
001374
000433

81 042672
82 042676
83 042702
84 042706
85 049712
86 042716
87 042724

95 042760

MACRO v04.00

001405
030210
001402
0460210

oo
o NN

CZRMOBO RMOS/3/2 FCINL T1ST 3

—OCOO0Q0C

000010

80%:

000010

908%:

MOV

ADD
MOV
ADD
MOV
SUB

CMP

BNE
DEC
BNE
BR

a@l0(SP) ,RO

;RO = WRITE BUFFER

(RO)+,(R1)+

; COMPARE DATA WORDS

#2,10(SP)
al0(SP) ,R1
#2,10(SP)
RMWCI ,R2
RMWCO,R2
100%
R2
90%
1108

:DATA COMPARE FAILED

1008$:

MoV

MOV
MOV
MOV
MOV
ADD

MovB

sMOVE
;R1 =
sMOVE
;R2 =

SP TO READ ADDRESS
READ BUFFER
SP TO RETURN ADDRESS
NUMBER OF WORDS TRANSFER

SEXIT IF NOT EQUAL
;DECREMENT WORD COUNT
sCONTINUE IF NOT DONE
;DONE COMPARE - NO ERROR

-(R0O) ,$GDDAT

;STORE GOOD DATA FOR TYPEOUT

#336,210(SP)

;WRITE ERROR NUMBER IN CALL

=(R1) ,$BDDAT
RO, $GDADR
R1,$BDADR
R2,$TMPO
#4,10(SP)

:STORE BAD DATA FOR TYPEOUT
;STORE ADDRESS OF GOOD DATA
;STORE ADDRESS OF BAD DATA
:STORE WORD COUNT OF ERROR
;MOVE SP TO USER'S ERROR CALL

; CHANGE ERROR NUMBER IF ECC CORRECTION FAILED
BIT
#BIT15,150%
;WAS ECC CORRECTION USED ??
BEQ
105%
JNO !!
MOVB
#163,310(SP)
;ECC CORRECTION FAILED
105¢%:
agg
#2,10(SP)
;MOVE SP TO RETURN IF ERROR
110%:

MOV
MOV
MOV

(SP)+,R3
(SF) +,R2
(SP) + ,R1

::POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1

RTS

;RETURN TO USER

MOV
150%:

.WORD

(SP)+,R0O

;:POP STACK INTO RO
JECC CORRECTION FLAG

CZRMOBU RMOS5/3/2 FCTINL

GET STATUS SUBROUT INE

TST 3

MACRO v04.00

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

SEQ 0191

;

.SBTTL

;THIS SUBROUTINE SETS UP THE '‘GET INDEX TABLE'' AND THE ‘'GET

;CALL:

4
2

;BUFFER'' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE
;AND THEN RETURNS TO THE USER.

10 042774
042774
11 042776
12 043000
13 043002

010046
010146
010246
012700

15 043012
16 043016

012702
110220

000046

162702
100405

000002

14 043006

17 043020

18 043022
19 043026

20 043030

21
22
23
24

GET STATUS SUBROUTINE

012701

005041

022702

043034
043036
043040
0643042

001370
005041
000770
112720

27 043052

012600

25 043046
26 043050

gg 823054
3056

012602
012601

000240
000207

GETSTS:

001524

001406

PC,GETSTS

MoV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)
#GETINX,RO

;:PUSH RO ON STACK
;;PUSH R1 ON STACK
:;PUSH R2 ON STACK
;RO = ADDRESS OF INDEX TABLE

MoV
MOvVB

#RMEC2,R2
R2, (RO) +

;R2 = REGISTER INDE
;sWRITE REGISTER INDEX IN TABLE

MOV
2%:
3%:

000022

000200

JSR

CLR

=(R1)

suB
B8M]

#2.R2
43

BNE
CLR
BR
MOVB

2%
=(R1)
33
#200, (RO) +

CcMP

4%:

H#RMEC21+2,R1

MOV
MOV

MOV

NOP
RTS

#RMDB ,R2

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

(SP)+,R0O

RETURN HERE

;R1 = ADDRESS OF GET BUFFER

;CLEAR CORRESPONDING LOCATION

;DECREMENT TO NEXT INDEX
sBRANCH OUT IF DONE

;DONT WRITE RMDB INDEX

WRITE TERMINATOR
::POP STACK INTO R2
::POP STACK INTO R1

;:POP STACK INTO RO

CZRMOBO RMOS/3/72 #CTINL TST 3
SUBROUT INE
S WO 0NN
NN 2OV NN DWN -

.SBTTL

K 15

4-APR-81 01:15:59 PAGE 20
GET SUBROUTINE

:"'GET INDEX TABLE'' AND STORES THEIR VALUES IN THE CLRRESPONDING
;LOCATION IN THE "'GET REGISTER BUFFER''.
FOR EXAMPLE, AN
;ENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO
SREAD "RMBA’" AND STORE ITS CONTENTS AT THE LOCATION IN

;THE BUFFER ASSIGNED TO THAT REGISTER.
THE NUMBER OF
;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX
;TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200)
SWHICH SHOULD FOLLOW THE LAST ENTRY.
s SUBROUTINE CALL:
1)
"'GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX
:
VALUES AND TERMINATED WITH A CONTROL BYTE

s 42)

"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.

UNUSED LOCATIONS, I.E..ENTRIES IN BUFFER CORRESPONDING

:(3)
:

JSR
BR

;
H

TO REGISTERS NOT READ,

NOP
ERROR

PC,GET
mn?

Ter

;RO = REGISTER BASE ADDRESS
‘R1 = REGISTER ADDRESS

2
%8

:R3 = BUFFER ADDRESS
;R4 = POINTER TO REGISTER INDEX

043102
043104
043106
043110
043114
36 043120

37 043124

38 043130
39 043134

40 043142
41 043150
42 043156

43 043164

44 043172

45 043174
46 043202

47 043210
48 043212
49 043214

50 043216
51 04322C

(NOTE THAT

25
26

31 043060
32 043062
33 043066
3% 043072
35 043076
043100

SEQ 019¢

;THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE

PNONUNGNUN)
= 3 2 s
b a

GET

MACRO v04.00

ARE NOT

CHANGED.)

RETURN HERE IF NO ERROR FOUND

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

;R2 = BUFFER BASE ADDRESS

000240
062716
105076
162716
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737
016037

016037

032737

001007

062766
112776

000423
105714
100433

111401
042701

GET:

000004
000000
000004

000004
000006
001276
001336
001524
043242
000300
000010

000000

004000

000004
000112

MOV
MOV
MOV
MOV
MOV
MOV
MOV

000004
000006
001174
001176

MOV
MOV
1$:

001176

MOV
MOV
MOV

BIT
BNE

000016
000016

ADD
MOVB

' 3%:

177700

NOP
ADD
CLRB
SUB
MOV
MOV

BR
TSTB
BMI

MOVB
BIC

#4,(SP)
;CLEAR ERROR NUMBER IN USER'S
@(5P)
:ERROR CALL
4, (SP)
RO.-(SP)
:;PUSH RO ON STACK
R1,-(SP)
;:PUSH R1 ON STACK
R2.-(SP)
1iPUSH R2 ON STACK
R3.-(SP)
::PUSH R3 ON STACK
R4 ,-(SP)
;;PUSH R4 ON STACK
ERRVEC ,-(SP)
;;PUSH ERRVEC ON STACK
ERRVEC+2,-(SP)
: PUSH ERRVEC+2 ON STACK
$BASE,RO
HGETBOF ,R2
#GETINX.R4
#5$,ERRVEC
:SETUP FOR TIMEOUT
#PRG,ERRVEC+2
g
RMCS3(RO),STMPQ ;GET 'NED'' STATUS
RMCS1(RO) ,$TMP1

;GET ‘DVA'' STATUS

SYES!
!

#DVA,STMP1

#4,16(SP)
#1i2,316(SP)
7s
(R4)
9%

(R4) R
#*CIDXMSK ,R1

sDEVICE AVAILABLE??
;WRITE ERROR NUMBER IN USER'S
:ERROR CALL
sDONEZ
T
SYES!]

*R1 = REGISTER ADDRESS
;CLEAR ANY SIGN EXTENSION

66 063274
67 043276
68 043300
69 043302
70 043304

043304
043310
043314
043316

043320

043322
043324

71 043326

MACRO v04.00

177700

000002

W
NN

RRRRR RRRRRR
S IS

042703

AV IV IV, ] Vion
S8 SR2BB3
AN
S Svit

1sT

000016
000016
000016

5%:

7%:
8%:

L 15

4-APR-81 (01:15:59 PAGE 20-1
ADD
MOvVB
BIC
ADD
MOV
BR

RO.R1

(R4)+,R3
#~CIDXMSK
,R3
R2.R3
(R1),(R3)

;R3 = STORAGE ADDRESS FOR REGISTER

cMP
ADD
MOVB
SuB
TSTB
B8M]

(SP)+,(SP)+
#4,16(SP)

sRESTORE STACK
sWRITE ERROR NUMBER IN

CLR

000771

012637
012637
012604
012603
012602
012601
012600
000207

000006
000004

:
9%

SEQ 0193

MOVB
ADD
CLR
BR
MOV
MoV
MOV
MOV
MOV
MOV
MOV
RTS

#7,216(SP)
#2,16(SP)
(R4)
9%
R3
(R&)+,R3
R2,R3

sCLEAR ANY SIGN EXTENSION

;READ REGISTER

JUSER'S ERROR CALL

"382‘5. (CLEARING??
“CLEAR REMAINING STORAGE
*LOCATIONS

(R3)
8%

(SP) + ,ERRVEC+2
(SP)
+ ,ERRVEC
(SP)+,R4

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

;:POP STACK INTO ERRVEC+?2

;.POP STACK INTO ERRVEC
;;POP STACK INTO R4

;:POP STACK INTO R3
;:POP STACK INTO RZ2
;:POP STACK INTO R1

;.POP STACK INTO RO
:RETURN

CZRMOBO RMOS/3/72 FCINL
SUBROUT INE

TST 3

(RO v04.00

xf\)r\)_n-a-a_._;_a_._a_a—n
—= OV
NP NS W
= O 000 NN NN -

.SBTTL

M15

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

SEQ 0194

PUT SUBROUTINE

;THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

;"PUT INDEX TABLE'' WITH THE CONTENTS OF THE CORRESPONDING
;LOCATION IN THE 'PUT REGISTER BUFFER''.
THE NUMBER OF

sREGISTERS WRITTEN IS VARIABLE;

THE

INDEX

TABLE MUST

;BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
*FOLLOW THE LASi ENTRY.

*SUBROUTINE CALL:
N

"PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

2
:

: (3)

OF REGISTERS TO BE WRITTEN.

"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH

JSR

ERROR

:
2

NOP

PC,PUT

273

RETURN HERE
RETURN HERE

IF NO ERROR FOUND
IF ANY ERROR FOUND

SUB DEFINES ERROR NUMBER

‘RO = REGISTER BASE ADDRESS
‘R1 = REGISTER ADDRESS
‘R2 = BUFFER BASE ADDRESS

*R3 = BUFFER ADDRESS

‘R4 = POINTER TO REGISTER INDEX
000240
010046
010146

000004

001176

8
g

—

000006
001174 1%:
001176
062766
112776

000004
000112

000016

X
=1

3%:

28 043330
29 043332
043334

NS e NG GRAN EEBEIF
AR ZS
RRR R R R R R RRRRRRRRRRRRRRR
NN
N NN
)9 3 2 F D DD D e
e 9qeds
PINE S SN
NSSR

PUT

N et

042703
105724

RO,-(SP)
R1,-(SP)
R2.-(SP)
R3.-(SP)
R4 ,~(SP)
ERRVEC,-(SP)
ERRVEC+2,-(SP)
$BASE ,RO
#PUTBUF ,R2
,R4
#PUTINX

MOV
MOV
MOV
BIT
BNE
ADD
MOVB
BR
TSTB
BMI

#PR6, ERRVE
C +2
RMCS2
(RO) , $TMPO :GET "NED'* STATUS
RMCS1(RO) .$TMP1 *GET ‘DVA'* STATUS
#DVA, $TMPT
:eg\sqgs AVAILABLE 2?
3$
#4,16(SP)
*WRITE ERROR NUMBER IN
#112.316(SP)
*USER'S ERROR CALL
7%
(R&4)
;DONE??
$YES
)]
9

;:PUSH ERRVEC ON STACK

;:PUSH ERRVEC+2 ON STACK

#5% ,ERRVEC

;SETUP FOR TIMEOUT

;R1 = REGISTER ADDRESS

ADD

(R4) ,R1
#*CIDXMSK,R1
RO,R1

ADD

R2,R3

MOV

177700

MOvB
BIC

177700

MOvB
BIC
4$:

::PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH R4 ON STACK

MoV
MOV
MOV
MOV
MoV
MOV
MoV
MOV
MOV
MOV

MOV

TSTB

(R4) ,R3
#*CIDXMSK,R3

(R3). (R1)
(R&)+

;CLEAR ANY SIGN EXTENSION
;R3 = STORAGE ADDRESS

;CLEAR ANY SIGN EXTENSION

;WRITE REGISTER
JADJUST REGISTER POINTER

CZRMOBO RMOS/3/2 FCTINL TST 3

PUT SUBROUT INE

52 043476
53
54 043500
55 043502
56 04351C
gg 043516
56 043524

60 043546

MACRO v04.00

000763
022626

000004
000002

012637
012637
012604
012603
012602
012601
012600
000207

000006
000004

000016
000016
000016

5%:

7%:
9%:

N 1 15
4-APR-B1 01:15:55 PAGE 2 1-1

SEQ 0195

CMP
ADD
MOVB
SuB

(SP)+,(SP)+
#4,16(SP)

#7.,316(SP)

;USER'S ERROR CALL

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP) + ERRVE(+2
(SP)+ ,ERRVEC
(SP) + ,R4

;:POP STACK INTO ERRVE(+2
;;POP STACK INTO ERRVEC
:;POP STACK INTO R4

JRETURN

#2,16(SP)

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

sADJUST STACK
JWRITE ERROR NUMBER IN

::POP
:.POP
;:POP
;;POP

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R3
R2
R1
RO

CZRMOBO RMOS/3/2 FCINL TST 3

\h:fl\ll
r38E
LYY
8

000004
00152C
001522

FERFS
< %Og SO
g
RISaro

N—=

SIZCLK:

000004
000006
001520
001522

000002

012637
012637
000207

000006
000004

000004

1%:

2%:
3%:

B 16

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

.SBTTL

RERRRRRRRRRRRRRRRRRRIR

—

OVENTNHWN-=OL

NN -

CLOCK SUBROUT INE

LAV
1, ¥ T

SIZ€

MACRO V04.00

SEQ 0194

SIZE CLOCK SUBROUTINE
MOV
MOV
MOV
MOV
MOV
MOV
TST
BR
CMP
MOV
MOV
MOV
TST
B8R
cMp
ADD

MOV
MOV
RTS

ERRVEC ,=(SP)
ERRVE(C+2,-/SP)

:2PUSH ERRVEC ON STACK

#177546, CLKADR

;LOAD ADDRESSES FOR KW11-L

#1$ ERRVEC
#PR6, ERRVEC+2
#100, CLKVCT
@CLKADR

(SP)+,(SP)+
#2% ERRVEC

#172540, CLKADR

#104,CLKVCT

@CLKADR
3$
(SP)+, (SP)+
#2.4(5P)
(SP)+ ,ERRVE(C+2

égP)*.ERRVEC

;sPUSH ERRVEC+2 ON STACK

;SET UP FOR BUS TIMEOUT

sTEST FOR KW11=L PRESENT
JYES = KW11-L
;RESTORE SP

IS PRESENT

;SET UP FOR BUS TIMEOUT
;LOAD ADDRESSES FOR KW11-P (CLOCK
;TEST FOR KW13=P PRESENT

;YES = KW11=-P IS PRESENT
;RESTORE SP
;MOVE RETURN TO ERROR

::POP STACK INTG ERRVE(+2

;:POP STACK INTO ERRVEC
JRETURN TO USER

(ZRMOBO RMOS/3/2 FCINL TST 3

TIMEOUT SUBROUT
INE

MACRO v04.00

C 16

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

SEQ 0197

.SBTTL

:THIS SUBROUTINE WAITS FOR RDY = 1

:
g

‘CALL:
:

TIMEOUT SUBROUT INE
AND GO = 0 OR FOR A TIMEOUT

*GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

043672

043672
043674
043676
063700
043704

010046
010146
010246
013746 000004
013746 000006

10 043710
11 043716
1% 043724
13 043730
14 043734
15 043740
16 043744
17 043746
}g 043754
20 043760
21 043764
22 043770
23 043774
24 043776
25 0464002
26 044004
27 044006
28 044010
29
30 044012

012737
012737
013700
013701
012702
020127
001003
012761
012711
016046
042716
022726
001420
032711
001766
005302
001354
000412
022626

;2 044030

162766 000002 000012

31 044014
32 044022

35 044036

044036
044042
044046
044050

044052
36 044054

062766
112776

044012 000004
000300 000006
001276
001520
000036
172540
1$:
.
000001 000002
000005
000000
3:
177576
000200
000200

000004
000007

012637 000006
012637 000004
012602
012601
012600
000207

TIMOUT:

000012
000012

4$:
5%:

JSR
272

PC, TIMOUT

MOV
MOV
MOV
MOV
MOV

RO, ~(SP)
R1.-(SP)
R2,-(SP)
ERRVEC,-(SP)
ERRVEC+2,~-(SP)

::PUSH RO ON STACK
**PUSH R1 ON STACK
1:PUSH R2 ON STACK
::PUSH ERRVEC ON STACK
; :PUSH ERRVEC+2 ON STACK

#4,12(SP)
#7.212(SP)

IMOVE SP TO USER'S CALL
*WRITE ERRGR NUMBER

RETURN HERE

MOV
MOV
MOV
MOV
MOV
CMP
BNE
MOV
MOV
MOV
BIC
CMP
BEQ
BIT
BEQ
DEC
BNE
BR
cMp

#4$ ,ERRVEC
;SETUP FOR BUS TIMEOUT - 04 TRAP
#PR6 ,ERRVEC+2
$BASE , RO
;RO=BASE ADDRESS
CLKADR ,R1
*R1=CLOCK ADDRESS
#30. ,R2
:R2=NUMBER OF CLOCK CYCLES
R1.#172540
*KW11=P CLOCK??
2s
INO!!
#1,2(R1)
*SET COUNTER
#B1T2'BITO,
(R1) :START COUNTER
RMCS1(R0) ,-(SP) ;GET STATUS
#~C<RDY !GO>, (SP)
#RDY, (SP) +
:RDY=1,G60=07?
5%
YES!!
#B1T7,(R1)
:TIMER DONE??
3$
INO!!
R2
*DEC NUMBER OF CYCLES
1$
*CONTINUE IF NOT DONE
5%
:TMRDY'' DID NOT SET OR ''GO’' DID NOT RESET
*WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.
(SP)+,(SP)+
*ADJUST STACK

SUB

#2.12(SP)

ADD
MOVB

MOV
MOV
MOV
MOV

MOV
RTS

(SP)+ ,ERRVEC+2
::POP STACK INTO ERRVE(C+2
(SP)+.ERRVEC
;:POP STACK INTO ERRVEC
(SP)+.R2
::POP STACK INTO R2
(SP)+.R1
*:POP STACK INTO R1

(SP)+.RO
PC

1:POP STACK INTO RO
*RETURN TO USER

| CZRMOBO RM0S5/3/2 FCINL TST 3

PRIMARY ERROR (HECK SUBROUTINE

MACRO v04.00

2
3

4-APR-B1 01:15:59 PAGE 24

.SBTTL

SEQ 0198

PRIMARY ERROR CHECK SUBROUTINE

;THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND
;THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.
THE

:FOLLOUING CHECKS ARE MADE:

5
6
7

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RMCS2
(BITS 0-2) EQUAL THE UNIT BEING TESTED:

13
14
15
}9

:
.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS
*READY (BRIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT O OF RMCS1) OR THE
DRIVE READY BIT (BIT 7 OF RMDS) IS SET.
x.
Mcgg PAngY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

;;

.SELECTED UNIT

IS AVAILABLE,

.AND NED (BIT 12 OF RMCS2) IS RESET;

OF RMCS1)

1.5

THE SUBROUTINE ASSUMES THAT:

= 0, OR, PAR
= DPE = 1

.STATUS HAS BFEN STORED IN THE REGISTER INPUT BUFFER,

25
59

1~ PARTICULAR, RMCS1. RMCS2 AND RMDS HAVE BEEN STORED IN THEIR
CORRESPONDING LOCATIONS OF THE ''GET'' BUFFER.

§?

:THE SUBROUTINE IS CALLED AS FOLLOWS:

32
33

(D
:

JSR
BR

ERROR

Zg 044056
41
42 044056

43 044062
22 044066

46
47 044072

48 044100
49 044106
50 044114
51 044122
52
53 044130

54 044132
55 044136
56 044144
57 044150

IS SET

o PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

I.E., DVA (BIT 11

.(SUNIT) CONTAINS THE DRIVE NUMBER

PC.PRIERR
272

NOP

JSR

272

PC.a(SP)+

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:
062716

000004

013737
042737
013737

001346
177770
001234

001415
062716
112776
162716
004736

000004
000001
000002

105076
162716

042737
123737

:CLEAR USER'S ERROR CALL
ADD
#4,(SP)

000000
000004

177770
001140

CLRB
SUB

001142
001142
001140

001140
001142

000000

a(SP)
#4, (SP)

:MOVE

(SP)

TO ERROR CALL

:CLEAR ERROR NUMBER
;MOVE (SP) TO NO ERROR RETURN

:REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS21 ,$BDDAT
:CORRECT UNIT SELECTED??

BIC
MOV
BIC
CMPB

BEQ
ADD
MOVB
SUB
JSR

#~CUNTMSK
, SBDDAT
SUNIT,$GDDAT
:GOOD DATA FOR TYPEOUT
#~CUNTMSK
, SGDDAT
$GDDAT ,$BDDAT
;COMPARE EXPECTED AND RECEIVED
:DRIVE NUMBERS
1%
JYES!!

#4,(SP)
#1,3(SP)
#2,(SP)
PC,a(SP)+

;ERROR 1
:MOVE SP TO RETURN FOR ERROR
:REPORT WRONG UNIT SELECTED

CZRMOBO RMOS5/3/2 FCTINL TST 3

PRIMARY

ERROR

CHECK

SUBROUTINE

58 044152
59 044156
60 044160
61 044164
62
63

162716
000240
000137

65 044164
66 044172
67 044174
68 044202
69 044210

032737

70
71
72
73

0442156
044222
044230
044236

74 0644240
75 044246
76 044254
77 044262
78 044270
79 044274

84
85
86 044306
87 044314
88 044316
89 044324
90 044332
91 044340
92 044346
93 044352
94 044360

el ot

) ol e el el v

i ol

00
01
02
03
04
05
06 044416
07
08
09
10
n

12
13
14

MACRO v04.00

000010
044700

1%:

004000

001336

001336
004000
001336
000004
000002
010000

001140

001346
001346
010000
000003
000002

80 944276
81 044302
82 044304
83 044306

ol el

BIT

BNE
MOV
BIS
MOV
ADD
MOvB
BIT
BEQ
MOV
MOV
BIC

000000
001346

001140
001142
001140
2%:

000010

032737
001030
013737
052737
042737
013737
062716
112776
162716

004736

000200

001336

001336
000200

001140
001140
001140
001142

160001

001336
000004
000004
000002

000000

162716
000240
000541

000010

032737
001431
032737
001025
013737
042737
013737
062716
112776
162716
004736

000001

001336

000200

001350

001336

000005
000002

162716

000240

000010

#10, (SP)

sRESTORE (SP)

108

;SKIP OTHER CHECKS

MOvVB
SuB

JSR
Sgg

#DVA,RMCS1I

5%
RMCS11,$GDDAT
#DVA, $GDDAT
RMCS11,$BDDAT
#4,(SP)
#2,3(SP)
#NED ,RMCS2I
2%
:
RMCS21,8GDDAT
RMCS21,$BDDAT
#NED
, $GDDAT

IS NOT AVAILABLE OR

SEQ 0197

sDEVICE AVAILABLE??
YES!:
;EXPECTED STATUS

;RECEIVED STATUS
;ERROR #2
;WAS NED SET??
;NO!!
;EXPECTED STATUS
;RECEIVED STATUS

#3,9(SP)

;YES = CHANGE ERROR NUMBER

PC,a(SP)+
#10, (SP)

sREPORT DEVICE NOT AVAILABLE
;RESTORE (SP)

#2,(SP)

108

;MOVE SP TO RETURN FOR ERROR

:SKIP OTHER CHECKS

;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY
BIT
#RDY ,RMCS11
;CONTROLLER READY??
BNE
7$
4, 144
MOV
RMCS11,$GDDAT
;EXPECTED STATUS
BIS
#RDY
, $GDDAT
BIC
#SC! TRE !MCPE ! GO, $GDDAT
MOV
RMCS1]1 ,$BDDAT
;RECEIVED STATUS
ADD
#4,(SP)
MOVB
#4 ,a(SP)
;ERROR #4
SuB
#2,(SP)
sMOVE SP TGO RETURN FOR ERROR

160001
001336
000004

SuB
NOP
JMP

;REPORT AN ERROR IF THE DEVICE
;THE DEVICE IS NONEXISTANT

001140
001142

000000

E 16
4-APR-81 01:15:59 PAGE 24-1

JSR
agg

PC,a(SP)+
#10, (SP)

;REPORT CONTROLLER NOT READY
JRESTORE (SP)

108

;SKIP OTHER CHECKS

;REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
#GO,RMCS11
8%

001140
001140
001142

BIT
BEQ
BIT
BNE
MOV
BIC
MOV

000000

MOVB

#5,a(SP)

;ERROR #5

#10, (SP)

;RESTORE (SP)

ADD

SuB
JSR

Sgg

;GO RESET??
SYES!
#DRY ,RMDS |
;DRIVE READY??
8%
:¥ESI
RMCS11,$GDDAT
;EXPECTED STATUS
#SC! TRE !MCPE ! GO, $GDDAT
RMCS11,$BDDAT
;RECEIVED STATUS
#4, (SP)

#2,(SP)
PC,a(SP)+

sMOVE SP TO RETURN FOR ERROR
sREPORT DRIVE NOT READY

PRIMARY ERROR CHECK SUBROUTINE

S 044466

1 16 044470
1 17
18

000504

8%:

1 27
18
1 29

1
1

1
1
1

]

1
1

001336

001336
160001

001336

001140
001140
001142

000013

006000

1
1

032737
001451
032737
001045
032737
001413
010046
012700
122710
001002
012600
31
0004

162716

044706

SEQ 0200

108

001352

000010

001400

000010

001426

001553
000014

000240
062716
000240
000207

000010

001352
000004
000050
000002

MOV
ADD
MOVB

RMCS11,$BDDAT
#4,(SP)

SRECEIVED STATUS
;MOVE STACK TO USER'S ERROR

JSR
SuB

PC,a(SP)+
#10, (SP)

BEQ
91%:

001140
001140
001142

BEQ
BIT
BNE
BIT

93%:

000000

000010
000010

;NO!!
EXPECTED STATUS

#SC!TRE
!MCPE ! GO, $GDDAT

15.9(SP)
#2,(SP)

;ERROR #13

sMOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER
;RESTORE STACK

108

;REPORT AN ERROR IF DET CTED A CONTROL BUS PARITY ERROR
BIT
#PAR ,RMER11
:zS§ITHERE A PARITY ERROR??

92%:

001352

9%
RMCS11,$GDDAT

NOP

000010

BEQ
g?g

SuUB

9%:

012600
013737
042737
013737
062716
112776
162716
004736

;PARITY ON THE MASSBUS CONTROL BUS
sPARITY ERROR
BIT
#MCPE ,RMCS1]

000010

105720
100371

020000

000002

044542

1264
25
1 25

032737

n
n

1 23

_—

44476

1 20
1 21

ggg22222 RERR:
g
25

o
IS
n
o

F 16

4-APR-B1 01:15:59 PAGE 24-2

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD

—=0Q
AA

MACRO v04.00

CZRMOBO RMOS5/3/2 FCINL TST 3

OVONC
N WN—=0O00~N

MOV
MoV
CMPB

BNE
MOV
BR

1STB
BPL
MOV
MOV
BIC
MOV
ADD
MOVB
SuB
JSR
SuB
NOP
ADD
NOP
RTS

1%
#DPE ,RMER2I
11%
#PAR ,RMER10
93%
RO,=(SP)
#PUTINX
RO
#RMER1, (RO
92%
(SP)+,RO
11%
(RO)
+
91%
(SP) +,RO
RMER11,$GDDAT
H#PAR, $GDDAT
RMER11,$BDDAT
#4,(SP)
#50,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)
#10, (SP)
PC

IT THE CONTROL BUS??
*WAS
*NOT SURE!!

*DID TEST SET PAR ??
;NO!!

*:PUSH RO ON STACK
*RO POINTS TO INDEX TABLE
*SEARCH TABLE FOR RMER1

;;POP STACK INTO RO

:PAR WAS SET BY TEST
;END OF TABLE??
;NO!!

:;POP STACK INTO RO
;EXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
;JREPORT THE ERROR
;MOVE SP TO NO ERROR RETURN
JRETURN TO ERROR
JRETURN TO NO ERROR

CZRMOBO RMO5/3/2 FCTNL TST 3

1
1

}
1
1
1
1

;

MACRO v04.00

N=O VNPV WN—=OD0
NN NN -2

SECONDARY ERROR CHECK SUBROUT INE

4-APR-81 01:15:59 PAG 25

.SBTTL

SEQ 0201

SECONDARY ERROR CHECK SUBROUTINE

;THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS
;SUCH AS UNEXPECTED ERRORS AND UNEXPECTED 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

;TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE
;MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOCKS FOR
;OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE

JRETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.
;CALL:
:
:
:

JSR
BR
NOP
ERROR

JSR
e

PC,SECERR
72

PC.,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

2
5%

JNOTE:
THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE
s INPUT REGISTER BUFFER.

gg 044710

SECERR:

)

G 16

27
28 044710
29 044716
30 044724
31 044730
gg 044734

t*ttitt'ttt'ttfitI’fittitt*tttt*iifitt*fi*fi'ifitt*tt*t*i***ttt*tititt

013737
042737
062716
105076
162716

001412
177701
000004
000000
000004

050544
050544

:
032737
001024

000200

001350

062716

000004

013737
042737
012737

001350
177577
000200

001142
001142
001140

44 044776

112776

000010

000000

45 045004
46 045010
47 045012
zg 045016

162716
004736
162716
000240

50
51 045020

032737

5¢ 045026
53 045030
54 045036
55 045044
56 045050
57 045054

ADD
CLRB
Sus

#AC<FOIF11F2!F3!F4>,5158

#4, (SP)
a(SP)
#4, (SP)

;MOVE (SP) TO ERROR CALL
;CLEAR ERROR NUMBER
;MOVE (SP) TO NG ERROR RETURN

CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

40 044750
41 044756
42 044764

43 044772

BIC

tl’t*ttt.tttttttttt**it*t'tlfitititt*tttfit*tit**fifittttt*ttttt'*tt

gg
37
38 044740
39 044746

STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER
MoV
RMCS10.515%
;STORE FUNCTION CODE.

001423
013737
042737
005037
062716
112776

000002
000010

000001

001336

001336
177776
001140
000004
000011

001142
001142
000000

;REPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0
BIT
#DRY ,RMDSI
;DRIVE READY??
BNE
5%
iYES1?
MOV
BIC
MoV

RMDSI ,$BDDAT
#*~CDRY, $BDDAT
#DRY ,$GDDAT

;BAD DATA FOR TYPEOUT

MOVB

#10,9(SP)

;ERROR NUMBER

ADD

SuB
JSR
SUB
NOP

#4, (SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

;GOOD DATA FOR TYPEOUT

;MOVE SP TO RETURN FOR ERROR
;REPORT NOT READY
;RESTORE (SP) TO ERROR N

;REPORT ERROR IF GO BIT IS NOT RESET
J
5%:
BIT
#GO,RMCS1I
;GO BIT RESET??

BEQ
MOV
BIC
CLR
ADD
MOvVB

10$
RMCS11,$BDDAT
#~(CGO, $8DDAT
$GDDAT
#4, (SP)
#11,a(SP)

i¥ES!!
;BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT

;ERROR NUMBEFK

CZRMOBO RMOS5/3/2 FCINL TST 3

SECONDARY ERROR CHECK SUBROUT INE

58 045062
59 045066

162716
004736

61 045074

000240

162716

000010

64 045076
65 045104
66 045112
67 045120
68 045126
69 045130

013737
042737
013737
023737
001413
062716

001336
177701
050544
001142
000004

162716

000002

70 045134

045142

72 045146
73 045150
74 045154
75 045156

112776

004736
162716
000240

MACRO v04.00

NOP

001142
001142
001140
001140

005037

84 045176
85 045204
86 045212
87 045220
88 045226
89 045230

005737
001003
005737
001403
052737
013737
042737
023737
001412
062716

92 045246
93 045250

004736
162716

95
9%
97
98 045254
99 045260
100 045264
101 045270
102 045272
103 045300
104 045302
105 045310
106 045312
107 045320
108 045326
109 045334
110 045342
111 045344
112 045350
113 045356
114 045362

112776
162716

10%:

JSR
SUB

001140

001352

001400

000004

000047
000002

MOVB
SUB

15%:

040000
001350
137777
001140

MoV
BIC
MOV
CMP
BEQ
ADD

000010

80 045162
81 045166
82 045170

;REPORT ERROR

000000

78
79 045156

#2,(SP)
PC,a(SP)+
#10, (SP)

suB
JSR
SuB

000002

000012

H 16
4-APR-81 01:15:59 PAGE 2 5- 1

001140
001142
001142
001142

NOP

SEQ 020¢

sMOVE SP TO RETURN FOR ERROR
SREPORT DEVICE NOT AVAILABLE
sRESTORE (SP)

FUNCTION CODE READ FROM DEVICE

IS NOT

CORRECT

RMCS11,$BDDAT
#~(76,$BDDAT
515%, $GDDAT
$BDDAT, SGDDAT
15%

;IS FUNCTION CODE CORRECT??

#12,3(SP)
#2,(SP)

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

#4, (SP)

PC.a(SP)+
#10, (SP)

JEXPECTED FUNCTION CODF
sYES!!

;REPORT WRONG FUNCTION CODE

;RESTORE (SP)

;JREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
*OTHER ERRORS ARE SET
CLR
$GDDAT
JEXPECT "ERR'' = 0
ST
RMER1I
;IS RMERT1 = 0??
BNE
208
sNO!!
TST
RMER21
;1S RMERZ = 0??
2YES!!
BEQ
25%
20%:
BIS
#ERR, SGDDAT
;"ERR'' SOULD BE SET
25%:
MOV
RMDS] , SBDDAT

000000

BIC
CMP
BEQ
ADD

#~CERR, $BDDAT
$GDDAT
, $BDDAT
308
#4, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+
#10, (SP)

MOVB
SuB

000010

#47.3(SP)

;1S "ERR'' 0K??

SYESL?

:MOVE SP TO USER'S ERROR

:WRITE ERROR NUMBER

sMOVE SP TO ERROR RETURN
;REPORT INVALID COMP ERROR

;REPORT AN ERROR IF ''TRE'' IS SET AND NONE OF THE BITS WHICH SET
sTRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

005037
013746
042726
001010
032737
001407

022737
103003

052737
013737
042737
023737
001413
062716
112776

162716
004736

SET TRE IS SET

308 :

001140
001346
000377
040000

001350

000030

050544

040000
001336
137777
001140

001140
001142
001142
007142

000004
000074

000000

000002

35%:
40%:

CLR

$GDDAT

MOV
BIC
BNE
BIT
BEQ
CMP
BHIS
BIS
MoV
8IC
CMP
BEQ

RMCS21,-(SP)
#377.(SP)+
:
35%
#ERR ,RMDS I
408%
#SEARCH,515%
40$
#TRE ,$GDDAT
RMCS11,$BDDAT
#*CTRE
, $BDDAT
SGDDAT, $BDDAT
45%

MOVB
SuB
JSR

#14 ,3(SP)
#2,(SP)
PC,a(SP)+

ADD

#4,(SP)

;EXPECT *"TRE'" = 0
‘WAS DLT, WCE,

UPE, NED,

‘PEE:.”XF OR MDPE SET
TYEST!

NEM

:ze§lexcsprxo~ RECEIVED??

Ez3$:DATA TRANSFERRED??

:"'TRE'* SHOULD BE SET

BAD DATA FOR TYPEOUT
;1S ''TRETM OK??
sYBS!!

;MOVE SP TO USER'S ERROR CALL

JWRITE ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
JREPORT TRE ERROR

CRO v04.00

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

SuUB

000010

NOP

45%:
AR

A A

AR R

#10, (SP)

A A A A A

SEG 0203

;RESTORE (SP)

A A

A A A A AR AR AR A AR AR

AR AR

AR AR R AT AR AR

*USING T HE 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 T HAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
*STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET

sWRITE LOCK IS ON AND THE COMMAND IS A WRITE.

045372
045374
045400

045406

045410
045416
045424
045426
045434
045442

050544
071646

013737
032737
001403
052737
042737
013737
042737

001140
001350

100000

001140
001140
001142
001142
001142

000004
000006
000002

MOV

RO, =(SP)

MOV
MOV

FNCDTB(R0) ,5008 :STORE ENTRY
(SP)+,R0
*:POP STACK INTO RO

MOV

050536

050536
040000

077777
001350
077777
001140

062716
112776
162716
004736
162716
000240

515%,R0

::PUSH RO ON STACK

*GET FUNCTION CODE

JREPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF
;ATA IS NOT SET AND SHOULD BE SET.
MGV
5008, $GDDAT
sGET EXPECTED ATA STATUS

50%:

BIT

#ERR ,RMDS 1

;IS COMPOSITE ERROR SET ??

MOV
BIC

RMDSI ,$BDDAT
#*CATA,$BDDAT

;GET RECEIVED ATA
;STRIP DONT CARES

BEQ
BIS
BIC

CMP
BEQ

ADD
MOVB

000000

SUB

JSR
zgg

000010

50%
#ATA,$GDDAT
#*CATA,SGDDAT

$GDDAT , $BDDAT
55%

#4, (SP)
#6,9(SP)

#2,(SP)

PC,a(SP)+
#10,(SP)

NG L)
JEXPECT AN ATTENTION
;STRIP DONT CARES

;IS ATA OK ??
s¥ES !

:MOVE SP TO USERS ERROR CALL
;LOAD ERROR # IN CALL

;MOVE SP TO ERROR RETURN
;REPORT ERROR
;RESTORE SP

55%:

sREPORT ERROR IF ILF
Voo

;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE

010046
013700
016037
012600

023737
001413

RKRRRRIJXRVKIRK]R

23SEAERR

) S

)

139

162716

000240

013737
042737
013737
042737
023737
001412
062716
112776

;WITH FUNCTION CODE

IS INCORRECT,

TABLE

I.E.,

ILF DOES NOT COMPARE

500%, $GDDAT
#*CILF ,$GDDAT
RMER11,$BDDAT
#*CILF ,$BDDAT
$GDDAT, $BDDAT

:GET EXPECTED ILF

001352
177776
001140

MOV
BIC
MOV
BIC
CMP

000004

ADD

#4,

sMOVE SP TO USERS ERROR CALL

050536

177776

BEQ

MOVB

000254
000002
000010
001140

60%:

RERR

o
i
) o
o
) o
i
S D
) D D e e o
e
D e
D
e
) D
e
e e e e sT S S N
S Y
Y Y
—y - d
OOVNNV
DN NS
DD D N NN N NN
NN NN N AN NONUNI N = =
s
WN—=OVONO
VNS WN—=OV~No Wn S A2 OVRNONDWN=OVO
N NS WA -0V NN

CZRMOBO RMO5/3/2 FCINL TST 3
SECONDARY ERROR (HECK SUBROUTINE

el ol el

|
-

050536
137777

001346
00114c¢

001142

SuB
JSR
SuB
CLR

603%

(SP)

#254,8(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)
$GDDAT

;CLEAR ALL OTHER BITS
;GET RECEIVED ILF
;CLEAR ALL OTHER BITS
235 ILF OK 27

JYES !}

;WRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN

sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR
;CLEAR EXPECTED STATUS

JREPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET
MOV
500%,-(SP)
JGET WCE STATUS ENABLE
BIS
#*CWCE, (SP)
;SET ALL OTHER BITS
MoV
RMCS21,$BDDAT
;RECEIVED STATUS
BIC

(SP)+,$BDDAT

;CLEAR WCE

IF ENABLED

CZIMOB0O RMO5/3/2 FCTNL TST 3
MACRO Vv04.00
SECONDARY ERROR CHECK SUBROUT INE
172 045626

20000000
< w/

g BRIRAREN
28 BRIRRR N ROOBIFAN
222
£

—l—l—l—l—l—I—I—l—l-fl—‘—l—l—l—l-—l—d—l.—l—a—l—l—ld—‘—l -

173 045630

045650
045654

045654
045660
045664
045672
045676
045700
045704
045712
045716
045720
045724

045724
045730
045736
045740
045744
045750
201 045756
202 045762
203 045764
204 045770
205 045776
206 046002
207 046004
208 046010

001472

062716
112776
162716

(00004
000026
000002

162716

000010

004736

013746
052716
013737
042637
001412
062716
112776
162716
004736
162716

050536
157777
001352
001142
000004
000164

000002

BEQ

001142

1008

010000
167777
001400
001142
000004
000165
000002

001350

001142

#4,(SP)

;MOVE SP TO USER'S ERROR CALL

SuB
JSR
SuB

#2,(SP)
PC,a(SP)+
#10, (SP)

100%

#164 ,a(SP)

IVC

IS SET AND

1108

;BRANCH IF OPI OK

sWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR
JRESTORE SP
IS NOT ENABLED OR

IVC

#VV ,RMDSI

;1S Vv SET

BIC
BIS
MOV
BIC

#1VC, (SP)
#*CIVC, (SP)
RMER2I ,$BDDAT
(SP) +,$BDDAT

;YES = IVC SHOULD BE 0
sSET ALL OTHER BITS
:GET RECEIVED STATUS
;CLEAR IVC IF ENABLED

ADD
MovB

#4, (SP)
#165,a(SP)

105%

1108

SuB

#2,(SP)

suB

#10, (SP)

JSR

PC,a(SP)+

;GET IVC STATUS ENABLE

BIT

BEQ
105%:

SFT

ADD

;SET AND VV IS NOT RESET
MOV
5008,-(SP)

000600

OVONOWN
S W) —

IS SET AND SHOULD NOT BE

;GET OPI STATUS ENABLE
sSET ALL OTHER BITS
;GET RECEIVED STATUS
sCLEAR CPI IF ENABLED

BEQ

000010

STATUS

500%,-(SP)
#*COPI, (SP)
RMER11,$BDDAT
(SP) +,$BDDAT

mMovB

000000

OPI

MOV
81S
MOV
BIC

BEQ

000010

050536
000100

#10, (SP)

;REPORT ERROR IF

JREPORT ERROR

013746
032737
001402
042716
052716
013737
042637
001412
062716
112776
162716
004736
162716

#26.3(SP)
#2.(SP)
PC.R(SP)+

SUB

SEQ 0204

;BRANCH IF WCE OK
sMOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER
;MOVE SP TO ERROR RETURN
;REPORT ERROR
;RESTORE ERROR

#4, (SP)

MOVB
SUB
JSR
90%:

;NO !

sBRANCH IF IVC OK
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

;MOVE SP TO ERROR RETURN
sREPORT ERROR
;RESTORE SP TO NO ERROR

;BIT 11

(WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

;

RMER2 - DPE

: ALL WRITE ERRORS, I.E.
RMERT - WLE, WCF’
H

) e

LSS ST NS LETNTNT,§Y

90%

ADD

000000

210

b aud o

:
RMCS2 - UPE.
*EACH OF THESE ERRORS IS CHECKED TO SEE
;WRITE ERROR ENABLE BIT

IS RESET.

IF AN ERROR IS SET WHEN THE

;REPORT AN ERROR IF WLE IS SET AND WRITE ERROi> ARE NOT ENABLED, OR IF
;THE DRIVE

220 046010

177777

004000

050536

737

004000

001350

2716
13737
042637
001412

004000
001352
001142

001142

228 046052

J 16
4-APR-81 01:15:59 PAGE 25-3

1158:
1208:

MOV
BIT
BEQ
BIT
BNE
BIC
MOV

BIC
BEQ

IS NOT WRITE PROTECTED

#=1,-(SP)
#WLE , 5008
115%
#WRL ,RMDS I
120%

;ASSUME WRITE ERRORS ENABLED
;ARE WRITE ERRORS ENABLED ??
;NO !!
;1S THE DRIVE WRITE PROTECTED ?2?
IS

(SP) +,$BDDAT
125%

;CLEAR WLE IF ENABLED
;BRANCH IF WLE OK

#WLE , (SP)
RMER1I,$BDDAT

JRESET WLE ENABLE
;GET RECEIVED STATUS

| CZRMOBO RMOS5/3/2 FCTNL TST 3

SECONDARY ERROR CHECK SUBROUTINE

229 046054
230 046060
231 066066
232 046072
233 046074
234 046100
235
236
237 046100

238 046104
239 046112

240 046114
241 046120
242 046126
243 046132
244 046134
245 046140
246 046146
247 046152
248 (046154
249 046160
250
251
252 046160

253 046164
254 046172

255 046174
256 046200
257 046206
258 046212
259 046214
260 046220
261 046226

262 046232
263 046234
ggg 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
5;3 046320

281
282 046320

283 046324
284 046330
285 046336

062716
112776
162716
004736
162716

000004
000023
000002

012746
052737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
004000

000010

012746

177777

032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

013746
052716
013737
042637

MACRO v04.00

000004
000025
000002

050536
001142

135%:

000010
001400
001142

001142

000004
000040
000002

000000

000010

000004
000024
000002

SUB

#2, (SP)

SUB

#10, (SP)

sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

050536
001142

MOV
BIT
BNE
BIC
MOV
BIC
BEQ
ADD
MovB
SuB
JSR
SuB

#2%3.3(sP)

PC.a(SP)+

140%:

BIC

MOV
BIC
BEQ
ADD

MOvB
SuB
JSR
sus

IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED
#1,-(5P)
sASSUME WRITE ERRORS ENABLED

#W_E, 5008
130%

, (SP)
HWCF
RMER11,$BDDAT
(SP) +,$BDDAT

135%

#4, (SP)
#25,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;ARE WRITE
JYES !!

ERRORS ENABLED ??

;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
sMOVE SP TO ERROR RETURN
sREPORT ERROR
JRESTORE SP TO NO ERROR

#DPE
, (SP)

RMERZ21
, $BDDAT
(SP) +,$BDDAT
145%

#4, (SP)

#40,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

:RESET DPE ENABLE
;GET RECEIVED STATUS
JRESET DPE IF ENABLED
;BRANCH IF DPE OK
;MOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
sREPORT ERROR
JRESTORE SP TO NO ERROR

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
#-1,-(SP)
MOV
sJASSUME WRITE ERRORS ARE ENABLED
BIT
MILE
, 5008
;ARE WRITE ERRORS ENABLED ??
s¥ES L)
BNE
1508
BIC
#UPE, (SP)
;DISABLE UPE ERROR
150%:
MOV
RMCS21
, SBDDAT
;GET RECEIVED STATUS
BIC

BEQ

000000

155%:

ADD
MOVB
SUB
JSR
SUB

(SP)+,$BDDAT

1558

#4, (SP)
#24,3(SP)

#2,(SP)

PC.a(SP)+
#10, (SP)

' ;REPORT AN ERROR IF
001142

;WRITE ERROR NUMBER IN CALL

:REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME WRITE ERRORS ARE ENABLED
BIT
#WLE 5008
;ARE WRITE ERRORS ENABLED ??
Z¥ES L)
BNE
1408

145%:

000010

050536
175777
001352
001142

130%:

000000

050536

020000
001346
001142

;MOVE SP TO USERS ERRCR CALL

;REPORT ERROR

004000

177777
004000

#4,(SP)

JSR
125%:

SEQ 0205

ADD

MOVR

000000

000010

000040
001352
001142

K 16

4-APR-81 (01:15:59 PAGE 25-4

MOV
BIS
MoV
BIC

JRESET UPE IF ENABLED
:BRANCH IF UPE OK
sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

IAE IS SET AND IS NOT ENABLED
500%,-(SP)
;GET IAE ENABLE
#*C1AE, (SP)
sSET ALL OTHER BITS
RMER11,$BDDAT
;GET RECEIVED STATUS
(SP)+, $BDDAT
;CLEAR IAE IF ENABLED

|
.

CZRMOBO RMOS/3/2 FCTINL TST 3

SECONDARY ERROR CHECK SUBROUTINE

286 046342
287 046344
288 046350
289 046356
290 046362
291 046364
292 046370
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310 046370
311 046374
2 046402
3 046404
4 046410
5 046416
6 046422
7 046424
8 046430
9 046436
320 046442

325 046450
326 046454
327 046462
328 046464
329 046470
330 046476
331 046502
32 046504
33 046510
gk 046516

001412
062716
112776
162716
004736
162716

(00004
000166
000002

MACRO Vv04.00

L 16
4-APR-81 01:15:59 PAGE 25-5
BEQ

000000

000010

160%:

ADD
MOVB
SUB
JSR
SUB

160%

#4,(SP)
#166,a(SP)
#2.(SP)
PC.A(SP)+

#10, (SP)

SEQ 0206

;sBRANCH IF

IAE

IS OK

sMOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;81T 09 (ADE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
; ALL READ/WRITE ERRORS, I.E.,
RMCST1 = TRE
:
RM(CS2 - DLT,NEM,MXF
:
:

sNOTE:

RMDS

-~ LBT

RMER1 - AOE
LBT

IS NOT CHECKED BECAUSE

“CYLINDER REGISTER IS WRITTEN

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
001000
100000
001346
001142
000004

000032

000002

177777
001000

162716

000012

2746

177777

??37

AOE CANNOT BE SET IF LBT IS NOT ALSO SET

TRE

IS CHECKED AS A FUNCTION OF

OTHER ERROR CONDITONS ABOVE

001142

MOV

#-1,-(SP)

;ASSUME ERRORS ARE ENABLED

BNE
BIC
MOV
BIC
BEQ
ADD
MOVB
SuB
JSR
SuB

165%
#DLT, (SP)
RMCS2I,$BDDAT
(SP) +,$BDDAT
170%
#4, (SP)
#32,9(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

+¥ES 1!
JRESET DLT ENABLE
;GET RECEIVED STATUS
;CLEAR DLT IF ENABLED
;BRANCH IF DLT IS OK
;MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

BIT

050536
165%:

000000

170%:

#AOQE ,500%

;ARE ERRORS ENABLED ??

;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
050536

004000
001346
001142

001142

000004
000167
000002

000000

001000

;NOTE:
:NOTE

;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

IT ONLY RESETS WHEN THE DESIRED

175%:

180%:

050536

MOV
BIT
BNE
BIC
MOV
BIC
BEQ
ADD
MOVB
SuB
JSR
SUB

#-1,-(SP)
#AQE , 5008
175%
#NEM, (SP)
RMCSZ21,$8DDAT
(SP) + ,$BDDAT
180%
#4,(SP)
#167 ,9(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;ASSUME ERRORS ARE ENABLED
;ARE ERRORS ENABLED ??
SYES !}
;DISABLE NEM
;GET RECEIVED STATUS
;CLEAR NEM IF ENABLED
;BRANCH IF NEM IS OK
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED

BIT
BNE

#AOE , 500%
185%

;ARE DATA ERRORS ENABLED ??
:YES !

CZRMOBO RM0S/3/2 FCINL TST 3

SECONDARY ERROR CHECK SUBROUT INE

343 046544
344 046550
345 046556
346 046562
347 046564
348 046570
349 046576
350 046602
351 046604
352 046610

356 046614
357 046622
358 046624
359 046632
360 046634
361 046640
362 046646
363 046652
364 046654
365 046660
366 046666
367 046672
368 046674
369 046700
370

042716

013737
062637
001412
062716
112776

001000

001346
001142

MACRO v04.00

001142

162716
162716

000010

012746
032737
001404
032737
001002
042716
013737

177777
001000

050536

002000

001350

004736

042637
001412
062716
112776
162716
004736
162716

1858:

M16
4-APR-81 01:15:59 PAGE 25-6
#MXF , (SP)

:DISABLE MXF ERROR

BIC

(SP)+,$BDDAT

:CLEAR MXF

MOV

RMCS21,$8DDAT
1908

ADD

#4,

SUB

#2,(SP)

MOVB

000000

001000
001352
001142

001142

000004
000020
000002

000000

000010

MOV
BIT
BEQ
BIT

1918:
195%:

200%:

BNE

BIC
MOV
BIC
BEQ
ADD

movB
SuB
JSR
SuB

*MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

IS SET AND DATA ERRORS ARE NOT ENABLED

#-1,-(5P)
#AOE , 5008
191%

;ASSUME DATA ERRORS ARE ENABLED
*ARE DATA ERRORS EANBLED ??
‘NO ')

195%

‘YES !

#LBT,RMDSI

#AOE , (SP)
RMER11,$BDDAT
(SP)+,$BDDAT
2008
#4. (SP)

#20.a(sP)
#2.(SP)
PC.R(SP)+
#10, (SP)

*IS LBT ALSO SET 27

*DISABLE AOE
:GET RECEIVED STATUS
:CLEAR AOE IF ENABLED
*BRANCH IF AOE IS OK
*MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

:BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
*HEADER ERRORS,

§§:§82928

w—

N
A LY. AS B 1aN 1,8
~
NNNNNSAONNN
w
— N =
s NN
o~
OONONNONIN
OO NON

388 046744
389 046750
390 046752
391 046756
392 046764
393 046770
394 046772
395 046776
396
397
398 046776
399 047002

AOE

IF ENABLED

*BRANCH IF MXF IS OK

*WRITE ERROR NUMBER IN CALL

#10, (SP)
IF

-GET RECEIVED STATUS

*MOVE SP TO USERS ERROR CALL

PC.a(SP)+

SUB

:REPORT ERROR

(SP)

#33.3(SP)

JSR
190%:

SEG 0207

BIC

BEQ

000004
000033
000002

012746
032737

002000

001370

000200

050536

177777

RMER2 - BSE

;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET

BIT

BEQ
BIC

#HCI ,RMOF

050536

000400
001352
001142

001142

000004
000035
000002

000000

000010

205%:

210%:

MOV

#-1,-(SP)

MOVB

#35,3(SP)

BIT
BNE
BIC
MOV
BIC
BEQ
ADD

SUB
JSR
SUB

;IS HCI SET 22

201$
#HCE , 5008

:REPORT AN ERROR IF HCRC

000200

177777
000200

I.E..

RMER1 = HCRC.HCE.FER

INO )
*YES - DISABLE ALL HEADER ERRORS
IS SET AND HEADER ERRORS ARE NOT ENABLED

#HCE , 5008
205$
#HCRC, (SP)
RMERT],SBDDAT
(SP)+,$BDDAT
2108
#4,(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

:ASSUME ERRORS ENABLED

“ARE HEADER ERRORS ENABLED ??
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 RETURN
*MOVE 5P TO NO ERROR

:REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED
050536

MOV
BIT

#-1,-(SP)
#HCE , 5008

:ASSUME ERRORS ENABLED
*ARE ERRORS ENABLED 22

CZRMOBO RMOS5/3/2 FCTINL TST 3
MACRO v04.00
SECONDARY ERROR (HECK SUBROUT INE

400 047010
401 047012
402 047016
403 047024
404 047030
405 047032

001002
042716
013737
042637
001412
062716

407 047044
408 047050
409 047052
410 047056
411
412
413 047056
414 047062

162716
004736
162716

406 047036

I
N R
T

5 047070
6 047072
7 047076
8 047104
9 047110

0 047112

1
422
423
424
425

047116
047124
047130
047132
047136

428 047136

429 047142

000200
001352
001142

000004
000036
000002

112776

012746
032737
001002
042716
013737
042637
001412

062716
112776
162716
004736
162716

012746

001142

000020
001352
001742

000004

000037
000002

220%:

BIC

(SP) +,$BDDAT

;CLEAR HCE IF ENABLED

ADD

#4,(SP)

sMOVE SP TO USERS ERROR CALL

JSR

PC,a(SP)+

MOV

SuUB

;DISABLE HCE

RMER11,$BDDAT

;GET RECEIVED STATUS

220%

JBRANCH IF HCE IS OK

#36,a(SP)
#2,(SP)

JWRITE ERROR NUMB:ER IN CALL
sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

#10,(SP)

;MOVE SP TO NO ERROR

;REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED
050536
001142

MoV

#-1,-(SP)

BNE

225%

BIT

225%:

000000

BIC

230%:

431 047152
432 047156
433 047164

042716
013737
042637

100000
001400
001142

001142

435 047172

062716
2776
2716

000004
000354
000002

000000

62716

000010

050536

#FER, (SP)

RMER11,$BDDAT

MOVB
SuB

#37,3(SP)
#2,(SP)

BIC
BEQ
ADD

SUB

;ASSUME FER IS ENABLED

#HCE ,500%

MOV

JSR

000200

J¥ES !!

#HCE , (SP)

MOVB
SuB

000000

000010

177777

215%:

215%

SEQ 0208

BIC

BEQ

000010

177777
000200

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

BNE

032737

(SP) +,$BDDAT
2308
#4,(SP)
PC,a(SP)+

#10, (SP)

;ARE HEADER FRRORS ENABLED ??

;YES !}

;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
sREPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

;REPORT ERROR IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED
MoV
#-1,-(SP)
;ASSUME ERRORS ENABLED
BIT

#HCE ,500%

;ARE THEY ENABLED ??

BIC

#BSE, (SP)

;DISABLE BSE

BIC
BEQ
ADD

(SP) +,$BDDAT
2408
#4,(SP)

suB

#2,(SP)

sMOVE SP TO ERROR RETURN

#10, (SP)

;MOVE

BNE

235%:

MOV

MOVB
2408

JSR

235%

RMERZ2I , $BDDAT

’354.3(SP)
PC,a(SP)+

2NES S

;GET RECEIVED STATUS

sCLEAR BSE IF ENABLED
;BRANCH IF BSE OK
;MOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER

;REPORT ERROR AND RETURN
SP TO NO ERROR

;BIT 06 OFf THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA
sFIELD ERRORS, I.E.,

RMCS2 - MDPE

RMER1 - DCK,ECH

‘ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND

<NOTE:

NN NO

;DCK IS/ SET.

~
&

177777
000100
000400
001346
001142

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED
MOV
BIT

050536
001142

245%:

#-1,-(SP)
#ECH,500%

;ASSUME ENABLED
;ARE DATA FIELD ERRORS ENABLED ??

RMCS21,$BDDAT

;GET RECE!VED STATUS

BNE
BIC

245%
#MDPE , (SP)

BIC

(SP)+,$BDDAT

MOV

IYES !
;DISBALE MDPE

;CLEAR MDPE IF ENABLED

JRMOBO RMOS5/3/2 FCTNL TST 3

"t CONDARY ERROR CHECK SUBROUTINE
457 047250

458 047252
45% 047256

460 047264
461 047270
462 047272

463 047276

001412
062716
112776
162716

000004
000027
000002

162716

000010

004736

MACRO V04.00

BEQ

250%:

483

047276
047302
047310
047312
047316
047324
047330
047332
047336
047344
047350
047352
047356

484
485
486
487
488
489
490
491
492
493

047356
047362
047370
047372
047400
047402
047410
047412
047416
047424

496
497
498
499

047436
047444
047450
047452

494 047430
495 047432

S00 047456

012746
032737
001002
042716

177777
000100
100000

013737
042637

001352
001142

062716
112776
162716
004736

000004
000030
000002

001412

162716

012746
032737
001410
032737
001004
032737
001002
042716
013737
042637
001412
062716
112776

162716
004736
162716

(SP)

#4,

SUB
JSR

#2,(SP)
PC.A(SP)+

SuB

#27,3(SP)
#10, (SP)

sBRANCH IF MDPE OK
JMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RE TURN
;MOVE SP TO NO ERROR

;REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED

001142

255%:

260%:

;REPORT
:
:
:
050536

004000
100000

#=1,-(SP)

JASSUME ENABLED

BIC
MOV
BIC
BEQ
ADD

#DCK, (SP)
RMERT1, SBDDAT
)
+, $BDDAT
(SP
2608
#4, (SP)

;DISABLE DCK

SUB
JSR

#2,(SP)
PC.a(SP)+

mMove

000000

177777
000100

MOV

BIT
BNE

050536

000010

sUB

#ECH, 5008
2558

#30.a(SP)
#10, (SP)

001370

#ECH,500%
265%
#ECI ,RMOF I

001352

BIT

#DCK ,RMER1]

001142

000004
000031
000002

000000

BNE
265%:
270%:

265%

BNE
BIC
MOV
BIC
BEQ

2708
#ECH, (SP)
RMER11,$BDDAT
(SP)+,$BDDAT
275%

MovB
SUB

#31,3(SP)
#2,(SP)

sus .

#10,(sP)

ADD

JSR

275%:

JARE THEY ENABLED ??

sYES !}

JGET RECEIVED STATUS

;CLEAR DCK IF ENABLED
;BRANCH IF DCK 1S OK
;MOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

ERROR IF ECH IS SET AND,
DATA FIELD ERRORS ARE NOT ENABLED, OR
ECI IS SET, OR
DCK IS NOT SET.
#=1,-(SP)
MOV
;ASSUME ENABLED
BIT
BEQ
BIT

000100
001352
001142

000010

2508

ADD

MOVB

000000

464

465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482

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

#4,(SP)

PC.(SP)+

:QSE.gRRORS ENABLED ??

:1S EC1 SET 22

;YES &1
;1S DCK ALSO SET ??
JYES 28
sDISABLE ECH
;GET RECEIVED STATUS
;CLEAR ECH IF ENABLED
sBRANCH IF ECH IS OK

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

SEQ

020"

“ZRMOBQ RM05/3/2 FCINL TST 3

LnuuxggxgynuunuuunnunnvNflvNNunpa-oa-a—na.fid_.4
VNN
W 2OV~
WN = OV
NN
WA
OO0 NN

NN -2

SE CONDARY ERROR CHECK SUBROUTINE

MACRO V04.00
e

2222332333222 2222222200ttt
Al

000030

000137

050510

013737
001421
032737
001015
062716

001340

001142

040000

001336

103402

112776

005037
162716

004736

000004
000015
001140
000002

047572
047600
047602

032737
001403
013737

000010

001346

001416

001140

047610
047616
047620
047626
047632
047640
047644
047646
40 047652

023737

001140

001342

013737
062716

001342
000004
000016
000062

001142

43 047654

005046
013746

nN—

047560
047564

L 047656

45 047662

004736
162716
000240

163716

000400
000002

52 047706
53 047712
54 047716
55 047720

005266

000004
000002

161666

001140

;WAS DATA TRANSFERRED ?
;BR IF YES
;NO - EXIT

IF RMWC NOT ZERO AND TRE IS ZERO
RMWCI,$BDDAT
;WORD COUNT ZERO??
285%
YES
#TRE ,RMCS1]
*TRANSFER ERROR DETECTED??
285$
TYES!!

MOVB
CLR
SUB
JSR

NOP

#4.,

(SP)

#15,3(SP)

;ERROR NUMBER

#10, (SP)

*RESTORE (SP)

$GDDAT
#2,(SP)
PC.A(SP)+

*GOOD DATA FOR TYPEOUT
“MOVE SP TO RETURN FOR ERROR
*REPORT WORD COUNT NOT ZERO

;REPORT ERROR IF RMBA IS NOT CORRECT
MOV
RMWCI,$GDDAT
:GET WORD COUNT AT END OF TRANSFER AND
285%:
SUB
RMWCO.$GDDAT
-SUBTRACT STARTING WORD COUNT.
ASL
$GDDAT
ix 2
ADD
RMBAO,$GDDAT
:ADD STARTING BUS ADDRESS

BIT
BEQ

#BA] ,RMCS2]
2908

:WAS BUS ADDRESS INHIBIT (BAI) SET ??
INO !

CMP
BEQ
MOV

$GDDAT,RMBAI
295%
RMBA],$SBDDAT
#4, (SP)
#16,3(SP)
#2,(SP)
PC.a(SP)+

;BUS ADDRESS 0K??
SYES!!
:BAD DATA FOR TYPEOUT

MOV

290%:

ADD
MOVB
suB
JSR

000000

382

; COMPUTE NUMBER
295%:
CLR
MOV
SuB

001340
001414

012746
032737
001402
062716

003373
022626

ADD

000010

047666
047672
047700
047702

MOV
BEQ
BIT
BNE

#SEARCH,515%
280%
355%

SUB

001140
001140

112776
162716

:REPORT ERROR

280%:

000000

001340
001414
001140
001416

001416

CMP
BLO
JMP

050544

022737

013737
163737
006337
063737

(E‘l

;:t'ttttttt.fi"tttt.Qt't't.t"l"'ttt't'fiitt'tt'tt.'t'tt"t.'t"t

000010

47
48
49
50

“*PEKFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

162716
000240

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

001412

300%:

#10, (SP)

-ADDRESS SHOULD NOT HAVE CHANGED

:ERROR NUMBER
“MOVE SP TG RETURN FOR ERROR
*REPORT UNEXPECTED ADDRESS

*RESTORE (SP)

OF SECTORS TRANSFERRED FROM WORD COUNT
-(SP)
sNUMBER OF SECTORS TRANSFERRED
RMWCI ,=(SP)
;GET WORD COUNT AT END OF TRANSFER AND
RMWCO, (SP)
;SUBTRACT STARTING WORD COUNT.

MoV
BIT

#256.,-(5P)
#BIT1,RMCS10

;ASSUME 256. WORDS PER SECTOR
JHEADER & DATA COMMAND ??

ADD

#2,(SP)

;CHANGE TO 258. WORDS PER SECTOR

INC
SUB
BGT
cMP

4(SP)
(SP) ,2(SP)
300%
(SP)+,(SP)+

BEQ

000002

RMBAO,$GDDAT

3008

s INCREMENT SECTOR COUNT
;SUBTRACT ONE SECTOR'S WCRTH
;CONTINUE IF NOT DONE
JRESTORE STACK

:COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

“ZRMOBO RM0S5/3/2 FCTINL TST 3

SECONDARY ERROR CHECK SUBROUTINE

MACRO v04.00

§9 047722

013737

001446

050536

61 047736
62 047744
€3 047752
gé 047756

013737
013737
000337
005237

001420
001334
050546
050546

050542
050546

66 047762
67 0647770

042737
000337

000377
050540

050540

60 047730

68 047774
98 050002

013737

042737
062637

001420

050542

71 050006
72 050014
73 050016
74 050022
;2 050030

023727
103406
005237
162737
000766

050542

000040

050540
000040

050542

77 050032

023737

050540

050546

79 050042

005237

050536

gg 050056

000240

78 050040

80 050046
81 050054

103407

163737
000766

050546

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 050154

100 050156
}83 050162

103

104 050164

;STORE ORIGINAL TRACK

ADD

(SP)+,5108

#AC<SADMSK>,510%

;SAVE SECTOR ADDRESS BITS

C(MP
BLO
INC
SuB
BR

5108, #32.
315%
505%
#32.,510%
310$

;SECTOR OVEFLOWED??
*NO!!
* INCREMENT TRACK
*ADJUST SECTOR
*TRY AGAIN

CMP

505%,520$

:TRACK OVERFLOWED??

INC

500$

*INCREMENT CYLINDER

BLO

3208

*NO!!

520$,505%
3158

*ADJUST TRACK
“TRY AGAIN

:REPORT ERROR IF ‘'LBT'' IS NOT CORRECT

005037
023727
101407
032737
001003
012737
013737

042737
023737

001413
062716

112776

162716

004736
162716
000240

001140
050536

001466

002000

001352

002000
001350
175777

001140
001142
001142

001140

000004

000017
000002

000000

001466

001413

BEQ
ADD

3308
¥4, (SP)

SuB
JER

#2,(SP)
PC,a(SP)+

BIC
CMP

:SET GOOD DATA FOR LBT =0
*SHOULD LBT BE SET??
*NO!!
:WAS IAE SET ??
:YES - LBT SHOULD NOT BE SET
*SET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT

#~CLBT,$BDDAT
$GDDAT.$BDDAT

;IS LBT CORRECT??

SYES!!

#17,3(SP)

;ERROR NUMBER

#10, (SP)

*RESTORE (SP)

;MOVE SP TO RETURN FOR ERROR
:REPORT LBT IS WRONG

:REPORT ERROR IF '"‘AOE'' IS INCORRECT

050536
050540
050542
000010

$GDDAT
5008 ,#822.
325%
#1AE ,RMER1]
325%
#LBT,SGDDAT
RMDSI,$BDDAT

SUB
NOP

107 050200 023727

101425
005737
001012
005737
001007
032737

CLR
cMP
BLOS
BIT
BNE
MOV
MOV

MOVB

000010

001352

032737
001031

325%:

001142

002000

114 050232

*STORE ORTGINAL SECTOR
*STORE LAST TRACK,
*GET TRACK ADDRESS TO LO BYTE AND
:INCREMENT TO GET TOTL # OF TRACKS.

#~C<TADMSK>,505%
;SAVE TRACK ADDRESS BITS AND
505%
:SWAP TRACK ADDRESS TO LOW BYTE.

suB
BR

3208:

001140

108 050206
109 050210
110 050214
111 050216
112 050222
113 050224

RMDAO.510$
LSTRK .520$
520%
520%

BIC
SWAB
BIC

315%:

:STORE ORIGINAL CYLINDER

RMDAO, 505%

MOV
MOV
SWAB
INC

3108:

RMDCO, 5008

MOV

NOP

005037

105 050170
106 050176

MOV

050540

85 050060

:NUMBER OF SECTORS

050540

177400
050542

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

050544

330$:

CLR

$GDDAT

SSET FOR AOE = 0

5008 ,#822.

*SHOULD AOE BE SET??

BIT
BNE

#1AE ,RMER1]
3408

BLOS
ST
BNE
ST
BNE
BIT

340%
505%
335%
510$
3358
#F2,515%

CMP

BEQ

340%

:WAS "'IAE'' DETECTED??
“YES-"'AOE’' SHOULD BE ZERO
*NO!!
*MAYBE
*YES
©

;YES !!
:WAS THIS READ OR WRITE CHECK ??
:NO

CZRMOBO RM0S5/3/2 FCINL TST 3

St CONDARY ERROR CHECK SUBROUT INE

D e

aoogwgmawm—-oowwombum—-oomwo mawm—aoomwgmfum—-gomwowaum_.o.om ~
elelelelelololelelolololels]
OOO00
OO0O0OO0O0O
OOOOgOOOOOO
v
ViVL=

NINOPNINDFINUNINININ) — — = 2

115 050234

) e
D
D e

D oD e

KKR 33
228
nN—=0
&
L¥Ta orc
Po
R8 oS

D d

001000
050540
000001

001140

176777

001142
001142

001352
001140

000004
000020
000002

162716

000010

032737
001062
013737
000337

002000

000240

50372

001340

112776
162716

004736

113737

013737
023737
001413
062716
112776
162716

004736
162716
000240

050540
001140
050542
001344
001140
000004
000021
000002

050542
001142

001352

R
w1

unan

wnroron —_—
ooNNO ~

Vi v

lelelale] o

000022
000002
000010

062716

000004
000000

001403
062716

000402
162716
000207

000000
000000
000000
000000

505%

#AOE , SGDDAT

“SET FOR AOE = 1

MOV

#1.5108

*EXPECT SECTOR = 1

BIC
cMP

OE
, SBDDAT
#~CA
$GDDAT .$BDDAT

ADD

#4, (SP)

JSR
suB

PC.a(SP)+
#10, (SP)

MOV
MOV

*CLEAR EXPECTED TRACK
:BAD DATA FOR TYPEOUT

;IS AOE CORRECTY??

3458

SYES!!

#20.a(SP)
#2,(SP)

;ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

3558

SWAB

$GDDAT

MOVB
MOV
CMP
BEQ

505$, SGDDAT

*REPORT AOE IS WRONG
“RESTORE (SP)
'

#21,9(SP)
#2,(SP)

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

#10, (SP)

*RESTORE (SP)

JSR

PC.a(SP)+

NOP

-REPORT ERROR IF RMDC

350%:

MOV

000000

IS INCORRECT

;SETUP EXPECTED CYLINDER

RMDCI,$BDDAT
$GDDAT,$BDDAT
3558

;SETUP RECEIVED CYLINDER
: COMPARE CYLINDERS
*BRANCH IF EQUAL

#~C1777 .$GDDAT

ADD

MOVB
SUB
JSR
SUB

*REPORT BAD DISK ADDRESS

500$ , SGDDAT

BIC

MOV
cMP
BEQ

*SETUP EXPECTED DISK ADDRESS
;SETUP RECEIVED DISK ADDRESS
:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

., (SP)
#4

MOvVB
SuUB

*YES = DONT CHECK RMDA,RMDC

510$,SGDDAT
RMDAI ,$BDDAT
$GDDAT,$BDDAT
3508

ADD

SuB

001140

RMER11,$8DDAT

BNE

MOV

(SP)

#22.a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT BAD CYLINDER
*RESTORE (SP)

#4, (SP)
a(SP)
3608
#4,(SP)
3658
#4, (SP)

:MOVE (SP) TO ERROR CALL
:WAS ERROR FOUND??

3603:

ADD
ISTB
BEQ
ADD
BR
SUB

500$:
505:
5108:
515%:

.WORD
.WORD
.WORD
.WORD

O
0
0
O

:CYLINDER
*TRACK
*SECTOR
*FUNCTION CODE

NOP

355%:

000604

000004

CLR

;WAS ALL DATA TRANSFERRED ??
SYES !
b

-REPORT ERROR IF RMDA IS NOT CORRECT
345%:
BIT
#1AE ,RMER1]
:WAS THERE AN IAE ERROR ??

000000

001142
001142

000004

RMWCI
3408

move
SUB

001140
001142
001142

001372
001140

176000

TST
BEQ

BEQ

001140

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

NOP

050536

162716
000240

105776

340%:

000010

D el
D
D e
)
D
D
b

) i

NNOO

)

D e

)

50474

013737
042737
013737
023737
001413
062716
112776
162716
004736

335%:

000000

D e

D =D

D e

OO ANNUIVVNINIVIVIVME
D DD DN DN DD DWW

005737
001410
012737
005037
012737
013737
042737
023737
001413
062716

MACRO v04.00

365%:

RTS

:MOVE (SP)

TO ERROR RETURN

:MOVE (SP) TO NO ERROR RETURN

JRMOBO RMOS5/3/2 FCINL 1ST 3

38 CONDARY ERROR (HECK SUBROUT INE

172 050546

000000

MACRO v04.00
520%:

4-APR-81 01:15:99 PAGE 26-3
.WORD

STOTAL # OF TRACKS = LAST TRA(K +1

Bf'\d ’A.

“JRMOBO RM0S/3/2 FCINL 15T 3

"OMPOSITE ERROR (HECK SUBROUT INE

MACRO v04.00

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

;

.SBTTL

COMPOSITE ERROR CHECK SUBROUTINE

g
4
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

:THE MASKS ARE APPLIED.

;CALL:

JSR
.WORD
.WORD
BR
NOP
ERROR
JSR

PC,CMPERRSTS

9
10
1
1%
1
14
15

P
:
e
2
3
:
3

18
58

:NOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD
;BE ZERO

S; 050550

CMPERRSTS:

23
24 050550
25 050556
26 050564
27 050570
gg 050576

:MASK AND STORE THE CONTENTS OF
MoV
RMER1I,$TMP1
BIC
a(SP) ,$TMP1
#2,(SP)
ADD
RMERZ2I ,$TMP2
MOV
BIC
a(SP) ,$TMP2

013737
047637
062716

013737

047637

001352
000000
000002

001400

000000

32 050604

33 050610
;g 050614

36
27 050620

38 050624
39 050626
40 050634

41 050640
42 050644
43 050652

44 050656
45 050660

46 050664
47 050666

001200

PC,a(SP)+

RETURN HERE IF NO MORE ERRORS

RMER1 AND RMER?
;STORE RMER1 AT TEMP STORAGE
sMASK
RMER1
JMOVE SP TO NEXT MASK
:STORE RMER2 AT TEMP STORAGE
;MASK RMERZ2

001176
001176

27?

22?

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

062716

105076
162716

005737
001420
013737
005037
062716
112776
162716

004736
162716
000240

:CLEAR USER'S ERROR CALL

0@0006

ADD

0®0000
0?0004

CLRB
SuB

1176
1140

0004
0066
00002

a(SP)
#4,(SP)

BEQ
MoV
CLR

001142

ADD
MOVB
SUB

000000

JSR
SUB

00010
5%:

005737
001420

001200

54 050674
§S 050702
56 050706
57 050712

013737
005037
062716
112776

001200
001140
000004
000067

;CLEAR ERROR NUMBER
;LEAVE SP AT NO ERROR RETURN

NOP

5%
$TMP1,$BDDAT
$GDDAT

E,
:RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS FOR TYPEOUT

PC,a(SP)+
#10, (SP)

;REPORT ERROR VIA USER
;MOVE SP BACK TO BRANCH

#4, (SP)
#66,9(SP)
#2,(SP)

:MOVE SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #
;MOVE SP TO RETURN FOR ERROR

50
51 050666
gg 050672

;MOVE SP TO USER'S ERROR CALL

:SEE IF THERE WERE ANY ERRORS IN RMER1, I1.E., $TMP]
TST
$TMPT
;ANY ERRORS TO REPORT??

!
001176

#6,(SP)

:SEE IF THERE ARE ANY ERRORS TO REPORT IN RMERZ ($TMP?2)
TST
$TMP2
:ANY ERRORS IN RMERZ2?
BEQ
108
;NO!!

001142
000000

MOV
CLR
ADD
MOVB

$TMP2, $BDDAT
$GDDAT
#4,(SP)
#67,a(SP)

;RECEIVED STATUS FOR TYPEOUT
:EXPECTED STATUS FOR TYPEOQUT
:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN USER'S CALL

JRMOBO RMOS/3/2 FCINL TST 3

TOMPOS ] TE ERRU!'JCHECK SUBROUT INE

MACRO v04.00

SuB
JSR
SUB

S8 050720 ‘162716 000002
§6 050724 004736
60 050726 162716 000010
61 050732

2% 050734

000240

65 050734
66 050740
67 050744
68 050746

062716
105776
001403
062716

71 050760

000207

108:

000004
000000

NOP

#2,(SP)
PC,a(SP)+
#10, (SP)
,

£0 0215

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

-AUGMENT THE RETURN ADBRESS IF ANY ERROR WAS DETECTED

000004

69 050752 000402
70 050754 162716 000004

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

20%:
30%:

ADD
TSTB
BEQ
ADD

#4, (SP)
a(SP)
20%
#4,(SP)

RTS

BR
SUB

308
#4,(SP)

:MOVE SP TU USER'S ERROR CALL
:WAS THERE AN ERROR CAI LED??
:NO!!
:YES = MOVE SP TO ERKOR RETURN

:MOVE SP TO NO ERROR RETURN
JRETURN TO USER

CJRMOBO RMOS/3/2 FCTNL TST 3
SELECT SUBROUT INE

;

b sl
b <

(1)

:(35)
:(4)

013746
013746

ADD
CLRB

000004
000000
000004

SUR

000004
000006

Ooo
s W
OO

o
Wi
S~O0e

001466

000004
000111

000010
000010

004000

001176

000004
000112

000010
000010

W—=—=0O
oSS
Vv

orosNrN

(V.

'\3800

ONONVWDY
T

—
— it e e
et e
el
il

— D
il el

il
-

O
o

- D B

RETURN IF NO ERROR

RETURN IF ERROR
ERROR DEF INED BY SUBROUTINE

032737
001021
062766
112776

000407

022626

000004

000113

000002

#4, (SP)
2(SP)

#4,(SP)

;MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF CALL
;MOVE SP BACK

MOV

ERRVEC,=(SP)

;sPUSH ERRVEC ON STACK

MoV
MOV
MOV
MOV
MoV

R1,-(SP)
#20% ,ERRVEC
#PR6,ERRVEC+2
$BASE ,RO
TSTQUE ,R1

;.PUSH R1 ON STACK
;SETUP FOR BUS TIMEOUT

MOV
MOV

001174

Vil

;SAVE USER'S INFORMATION AND SETUP REGISTERS

000004
000006

051132
000300
001276

—_,L AL aad

jelelelelql
WNON) — — 8\1
~

loleolelolelalelel

AV LV RV AV LV LV AV LV

105076
162716

010000

ovt

[elelslelellelsolelelecelels]

062716

001176
001174

(alelele]

NOP
ERROR

PC,DEVSEL

:CLEAR USER'S ERROR CALL

000010
000000
000010

NANAN

JSR

:
DEVSEL

050762

OCOO

TEST QUEUE.

Lol

wob
Pkl

A
LaS LS
LS TN LV
R Ls SN
VLV
tg

DEVICE SELECT SUBROUTINE

THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

;CALL:

050762

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

.SBTTL

[aRVe T RNTe RV, E NV LVEST s IVe 1o URNTo VLI SNUV

£LICE

MACRO v04.00

000010
000010
000010

ERRVEC+2,-(SP)
RO,=(SP)

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

;RO = UNIBUS ADDRESS
;R1 POINTS TO DEVICE NUMBER

sSELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MOovB
(R1) ,RMCS2(R0O)
;WRITE UNIT SELECT BITS
MOV
RMCS1(RO) ,$TMP1 ;GET 'DVA'' STATUS
MoV
RMCS2(R0) ,$TMPO ;GET 'NED'' STATUS
BIT
BEQ

108:

ADD
MOVB
BR

ANED , STMPO
108

#4,10(SP)
#111,310(SP)
308

;1S DEVICE NONEXISTENT ?
INO!!

BIT
BNE
ADD
MOVB
BR

#DVA, STMP1
358
#4,10(SP)
#112.210(SP)
308

;1S DEVICE AVAILABLE ?
YES!!
*MOVE 'SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

;HANDLE BUS TIMEQUT
(SP)+, (SP)+
C(MP
208:
ADD
#4,10(SP)
#173,810(SP)
MOVB

308:

SUB

#2,10(SP)

MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

;ADJUST SP
MOVE SP TO USERS ERROR CALL

:WRITE BUS TIMEOUT ERROR NUMBER
*ADJUST RETURN TO "NOP® PRECEDING
*THE ERROR CALL

g?ES’ORf USERS DATA AND RETURN TO ADDRESS ON STACK

mov

MOV
MOV

(SP)+,R1

(SP) +,R0O
(SP) + ,ERRVE(+2

::POP STACK INTO R1

;;POP STACK INTO RO
;;POP STACK INTO ERRVE(+2

!
-

S/3%/
FCTNL TST 3
‘RMOBO AMOS5/3/2

£L,10F SELECT SUBROUTINE

051166 012637 000004

< 081172

(00207

MACRO v04.00

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

MoV
RIS

(SP)+ ERRVEC

::POP STACK INTO ERRVE(
EXIT

$EG 0217

JRMOBC AM0S/3/2 FCINL TST 3

Efe

STATUS (HECK SUBROUT INE

MACRO v04.00
.SBTTL

P4
?

:
:
:

:
:

i3
18

22 051174
051176

000240
062716

000004

5 051206
6 051212

162716
005037

000004
052432

4 051202

105076

000000

032737

000010

001352

¢ 951026

032737

000010

001400

005037
Q13737
062716
110776
162716
004736
162716

001140
001352
00000¢
000050
000002

05123
[ Q81242
8 051030
§1254
40 051262
41 05166
4¢ 081
051274

00142

001020

4«8
49
50
31

051276

051304
051312
051
051

PC.a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED 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

000437

012737

052737
023727
10105
042737

001142

000000

000010

002000

040000
001446

001140
052432
001466

040000

052432

§%

051330
3 05133

123737

001421

001335

3 051340
§7 051346

123727
101410

001420

000035

101016

;LOCAL REGISTERS, I.E., "PAR'"

gég

:’;AR.RHER‘II

BIT

#DPE ,RMER2I

BNE

=1 AND 'DPE'' = 0

:%%PARITY ERROR DETECTED??

;WAS IT DUE TO CONTROL BUS??

sNOT SURE'!

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL

JSR
277

273

;TEST FGR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING

05123

PC,SEKSTS

;CLEAR ugggs' ERROR CALL
ADD
#4, (SP)
a(SP)
CLRB
#4, (SP)
SUB
3008
CLR

29
%0 051216
5| 081226

JSR

B8R
NOP
ERROR

SEKSTS:

19 051174

:STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

(1)

12
1%

:THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS

.:CALL:

SEEK STATUS CHECK SUBROUT INE

:AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE 'ERROR'' TRAP
;OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS:

ZTHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED

4-APR-B1 01:15:59 PAGE 29

CLR

$GDDAT

sEXPECTED STATUS

MOV
ADD

RMER1] ,$BDDAT
#4, (SP)

;RECEIVED STATUS
;MOVE STACK TO USER'S ERROR

suB
JSR
SuUB
BR

#2,(SP)
PC,a(SP)+
#10, (SP)
33

;MOVE SP TO RETURN FOR ERROR

MOVB

#50,a(SP)

;ERROR #50

JRESTORE STACK
;IAE SHOULD BE ZERO

;DETERMINE THE VALUE OF '‘IAE‘' STATUS BASED ON TRACK, SECTOR AND CYLINDER
;ALSO, SET "'SKI'* IF CYLINDER ADDRESS IS TOO LARGE.
;SETUP FOR IAE =1
#1AE , $GDDAT
MOV
18:
BIS
#5K1,300%
;SETUP FOR SKI = 1
tMP
RMDCO,#822.
;GREATER THAN LAST CYLINDER ?
;YES - CYLINDER IS INVALID
;CLEAR SKI ERROR FLAG

BHI
8IC

3%
#5K1,300%

CMPB

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRA(CK ?

CMPB

RMDAO, #29.

BHI

BLOS

;YES = TRACK IS INVALID

;SECTOR > 29. ?

:BR IF NO

CIRMOB0 AMOS/3/2 FCINL TST 3

SEEx STATUS (HECK SUBROUTINE

<8 051350
56 051356
60 051
61 051

MACRC v04.00

032737 010000 001444
001406
123727 001420 000037
101002

§§ 051370 005037 001140
&5

b6 051374

013737 001352 001142
175777

001142

67 051402

042737

70 051420

042737 040000 052432

7
74 051432

062716

77 (51446

004736

79 051454

000240

BIT
BEQ

2%:

75 0514
76 051442

78 051450

g? 051456

sg
g
4

000413

112776
162716

000004

000051
000002

000000

(MP8
BHI

CLR

38:

cMP
BNE

$GDDAT ,$BDDAT
35%

:CORRECT ''IAE'' STATUS ?
:BR IF NO

;GO CHECK NEXT ERROR

BIC

BIC
e

5%:

#51,3(SP)
#2,(SP)

:ERROR 51
:MOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

:RESTORE (SP)

NOP

BIT

33 821500
1;04.

062716
115776

000004
000060
000100

001350

000000

ADD
MOVB

9% 051522
9 8515 0

112776
162716

000061
000002

000000

MOVB
sus

004736

162716
000240

000010

051544

013737

0014

001142

181

§156

013737

052432

001140

51576
5168:

032737
1032

040000

109 051612
110 O

112776
162716

000267
000002

9 0515
gg 051542
100

51555

04§737

1 g
1566 042737
;8‘ 051574 001417
105

109
10

108

111

0516

051624

n% S1
113 0516

114 051634

716

004736

162716
000443

137777
137777

000004

.
001142

51%:
/

52%:

001140

001142

:REPORT INCORRECT IAE

PC,a(SP)+

:REPORT ANY IVC ERROR AS
IVC ERROR WITH VOLUME VALID ZERO
:
:
ERRONEOUS IVC ERROR, VOLUME VALID IS SET

86 051464 001427
87 051466 005037 001140
88 051472 013737 001400 001142

51522

;CLEAR SKI FLAG

#SK1,3C0%

MOVB
SuB

010000

;SAVE IAE BIT FOR (OMPARE

#~CIAE,SBDDAT

:REPORT INCORRECT ''IAE'" STATUS VIA USER'S ERROR CALL
#4,(SP)
ADD

162716 000010

032737
001403

;"'IAE'" SHOULD = 0

$GDDAT

;IS IAE 0K??

032737

051 18
515

:18 BIT FORMAT ?
:YES = SECTOR IS INVALID FOR 18 BIT MODE
:SECTOR > 31. ?
:YES - SECTOR IS INVALID

#FMT 16 ,RMOFO
3
RMDAD, #31.
3s
RMFR11,$BDDAT

85 051456

91
9;

SEQ 021%

MOV

JSR

001400

- COMPARE EXPECTED AND RECIEVED "‘IAE'' STATUS

68 051410 023737 001140 001142
69 051416 001004
;1 82}2 6

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

#1VC ,RMER2]

:1VC ERROR??

#4, (SP)
#60,3(SP)

:MOVE SP TO USER'S ERROR
;ERROR 60 IF v =0

BEQ
CLR
MOV

52%
$GDDAT
RMER2I ,$BDDAT

BIT
BEQ

#VV ,RMDSI
51%

#61,3(SP)
#2,(SP)

;NO!!
:EXPECTED STATUS
;RECEIVED STATUS

:ERROR 61 IF VW =1
:MOVE SP TO RETURN FOR ERROR

:REPORT ERROR VIA USER

JSR

PC,a(SP)+

#10, (SP)

:RESTORE SP

MOV

RMER2]1,$BDDAT

;RECEIVED STATUS

MOV

300%, SGDDAT

:GET EXPECTED SKI STATUS

SuB
NOP
BIC

BIC
BEQ

#~CSKI,$BDDAT
#~CSKI,$GDDAT
53%

;CLEAR DONT CARES

;CLEAR DONT CARES
;BRANCH IF O EXPECTED

:REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)

BIT
BNE

000000

53%:

:WAS SKI DETECTED ??
S 1!

#267 ,8(SP)
#2,(SP)

:WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN

ADD

#4,(SP)

JSR

PC.a(SP)+

MOVB
SUB

000010

#5K1,$BDDAT
54%

SUB
BR

#10, (SP)
6%

:MOVE SP TO USERS ERROR CALL

:REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR
:GO TO NEXT ERROR CHECK

JRMOB0 RMOS/3/2 FCINL T1ST 3

Q§§°s
SRR
S 3 31

8IT
BEQ
ADD
MOVB
suB
JSR
suB

000010

000200

orNONO ng 8~

—d
D e wd
—d
—

:REPORT ERROR IF SKI IS SET

000004
000054
000002

NNNNNNNN NN

—

d e

e e

VAWMV AWV

jelelelelelelolelele]

001142

001140
001490
000004
000055
000002

4-APR-B1 01:15:59 PAGE 29-2

NOP

001400

#5K1,$BDDAT
548
#4. (SP)
#54.3(SP)
#2.(SP)
PC.a(SP)+
#10. (SP)

-REPORT ANY DEVICE CHECK

§48:

001142

BIT
BEQ
CLR
MOV
ADD
MOVB
SuB

#DVC ., RMER2]
63
$GDDAT
RMER21 ,$BDDAT
#4. (SP)
#55.3(SP)
#2,(SP)

SuB

#10, (SP)

JSR

000010

NOP

PC.a(SP)+

001140
001352
000004

001142

:WAS THERE DVC DURING SEEK??
*NO'!
*EXPECTED STATUS
-RECEIVED STATUS
:ERROR

p—y

6$:

7%:

000010

NOP

001350
001352

112776
162716

MOV
BIC

cMP
BNE
JMP

052402

52737
13737
716

= 0, OR

OPI

#OPI ,RMER1I
8$
$GDDAT
RMER11,$BDDAT
#4, (SP)

:"OPI" ERROR??
*NO!!
*EXPECTED STATUS
-RECEIVED STATUS
MOVE (SP; TO ERROR

#MOL ,RMDS I
78
#53,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

*WAS MEDIUM ON LINE??
*NO'!

#52,3(SP)

*LOAD ERROR NUMBER

*YES - CHANGE ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*RESTORE (SP)

*REPORT ''OPI'' ERROR

-SEE IF "PIP"" = 0, AND '‘ATA"', "“MOL'' AND ‘WV'' = 1

8%:

001350
047677
110100

010000

BIT
BEQ
CLR
MOV
ADD
MOVB
BIT
BEQ
MOVB
SUB
JSR
SUB

#55

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*RESTORE SP

*BECAUSE ON CYLINDER LATCH DIDN'T RESET

000000
001350

000053
000002

>ororS

oo~

PUNUNINININY
— —3 — —2—3 —a—2
NNNNNNN
oo
—

ATTATT
ATV VAV AT YT LY

jelelelelelelelolelelolele]

001352

000052
010000

VAIVIVE

o000
O

020000

SEQ 02720

;IS SKI SET 2?
INO - SKI IS OK
MOVE (SP) TO ERROR
*LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT SEEK ERROR
*RESTORE (SP)

:REPORT ANY 'OPI'* ERROR AS OPI WITH MOL

(=4

040000

~ WWNIN
-0 0

SEXRRRRR

DVAAAAUIANAN D B DD DS DD DDy NN NN
N
PNONGPVININUNINUNIND =2 —> s 2
-'308\08\.»2\‘%—‘000%0!5@—-00@\40
mbw—-OOOngfiw—'%m
NGO NS W -300- NTENS

STATUS CHECK SUBROUT INE

MACRO v04.00

001140
001140
001142

RMDSI ,~(SP)
(SP)
#AC<ATA!PIP!MOL'VV>,
(SP)+
'VV,MOL
#ATAI
:ERROR IN RMDS
9%
*RMDS IS OK
148

-REPORT ERROR IF MOL = O AND OPI = 0

BIT
BNE
BIT
BNE
MOV
BIS
MOV
ADD

MOVB

SUB

#MOL , RMDS I
108

#OPI,RMER1]
108
RMDSI .SGDDAT
L
, $GDDAT
#MO
RMDSI .SBDDAT
#4, (SP)
#62.3(SP)
#2.(SP)

;1S MOL RESET??
*NO - MOL IS SET
*WAS OPI SET
“YES - DONT REPORT ERROR
-EXPECTED STATUS
:RECEIVED STATUS

:MOVE SP TO RETURN FOR ERROR

C7AMOB0 AM05/3/2 FCINL 1ST 3

INE
SEEx STATUS (HECK SUBROUT

JSR
NOP

172 05 1;2 004736
162716 000010
173 05213
; ;‘s' 052140 000240

176,

177 052142
178 052150
179 gg 152
052160
180
181 05 1%

1 i 82 1
176
1

1
186
187
18

185

020000
001350

04
716 000004
112776 000056
052216 162716 000002
052222 004736
0522264 162716 000010
052210

191

wi 05 35
19 g 4
194
42
195 052250
19? 52256
19
94
0
133
73
1
8? 082302
@ 835;04

032737
8010 4
013737
0557 7
81 737
716
112776
162716
004736
162716

10 000240

100000
001350
110600
001350
000004
000057
000002

001142
001142

001350 11$:
001140
01140
001142
000000

000010

NOP

207 050422

#VV . RMDS

14%
#1VC . RMER2]
148

SUB
SUB

#2,(SP)
PC.a(SP)+
#10, (SP)

000240

204 052410 1

BIT

#VV,SGDDAT

eei 052402 ooo;«o
008 052416

;1S "PIP" STILL SET??
*ND!!
SWAS SKI'SET??
SYES-DONT REPORT PIP
-EXPECTED STATUS
:RECEIVED STATUS

*MOVE (SP) TO ERROR
*LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT 'PIP'' SET AFTER SEEK
;RESTORE (SP)

#ATA,RMDS |
:WAS "ATA'* SET 2?2
138
SYES!!
RMDSI .SGDDAT
-EXPECTED STATUS
#ATA 'MOL ' DPR ' DRY . SGDDAT
RMDSI,SBDDAT
-RECEIVED STATUS
#4, (SP)
MOVE
(SP) TO ERROR
*LOAD ERROR NUMBER
#57.3(SP)
*MOVE SP TO RETURN FOR ERROR
#2,(SP)
"S‘E'EER}EQ}TE””W NOT SET DURING
PC.R(SP)+
*RESTORE (SP)
#10, (SP)

8IS

ool

205 052414

#4 (SP)
#56.3(SP)
#2.(SP)
PC.a(SP)+
#10, (SP)

001140

100

MOV

MOV
ADD
MOVB

162716 000002
e 004736
264 162716 000010

20 88 04

#PIP, $BDDAT
- RMDSI.SBDDAT

BNE
BIT
BNE

001350 001142
6 013737
5 0627216 000004
0 ngm 000064 000000
00

#PIP RMDSI
118
#5K1 . RMER2]
118
RMDSI_SGDDAT

1o§9
2737 010000 001400

052737

BIT
BNE
MOV
8IS
MOV
ADD
MOVB

SUB
JSR
suB

l%‘
7 001350 001140

{;3

:REPORT ERROR VIA USER

:REPORT AN ERROR IF "‘ATA'' IS NOT SET

p)
a?
218
19
1

BIC
MOV

NOP

32737 000100 001350 13%:

21;
3
4

BIT
BEQ
BIT
BNE
MOV

ADD
MOVB
suB
JSR
SUB

000000

gog 5 315
i

#10. (5P)

-REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO

207
¢

oC.a(SP)+

-REPORT AN ERROR IF "PIP"" IS STIL SET AND SKI NOT SET

000240

}88 05

[}

SUB

032737 020000 001350 10$:
og;a
032737 0460000 001409
001024
013737 001350 001140

84;71&7
013737

MACRD v04.00 4-APR-B1 01:15:59 PAGE 29-3

16 000004

773 000000

00140

716 000004

JSR

14%:

NOP

RMDSI.SGDDAT

RMDS],$BODAT
#4, (SP)
#64,3(SP)

IS w =0 22
*NO!!
YIS 1VC ALSO 0 ??
*NO - IVC IS SET
-EXPECTED STATUS

;RECEIVED STATUS
:ERROR #64

“MOVE SP TO RETURN FOR ERROR

sMODIFY THE RETURN ADDRESS If AN ERROR WAS DETECTED

NOP
ADD

#4,(SP)

ADD

#, (SFY

ISTB

BEQ
BR

a(5P)

15%
168

:MOVE (SP) TO ERROR CALL

*WAS ERROR CALLED??
:
:MOVE TO ERROR RETURN

INO! !

CZRMOBO RMOS5/3/72 FCINL TST 3

SEEK STATUS (HECK SUBROUTINE

2§3 0524264
53 0524

16276
000207

232 052432

Q00000

(000004

MACRO v04.00

4=APR=-81

£8

(01:15:59 PAGE

15%:
16$:

RTS

#4,(SP)

JMOVE (SP) TO NO ERROR RETURN

3008:

.WORD

JERROR FLAGS

SUB

;RETURN

SEQ

C(ZRMOBO RMOS5/3/2 FCINL TST 3
"ONTROLLER CLEAR SUBROUTINE

MACRO v04.00 4=-APR-81 01:15:59 PAGE 38
C

SBTTL

JAND DRIVES, THEN SELECTS THE DRIVE.

WS
ok
-

N = OO0 N

CONTROLLER CLEAR SUBROUTINE

sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

ECALL:

052434
052434
052436
052440
052444

13 052450
14 052456

15
16
17
18
19
20

SEQ 0223

052464
052470
052476
052502
052506

21 052510
22 052512
23 052520
24 052526
25 052534
052534
052540
052544
052546
26 052550

010046
010146

013746
013746
012737
012737
013700
012760
013701
111160

000412

022626
062766
112776
162766

012637
012637
012601
012600
000207

CNTCLR:

000004
000096
052510
000300
001276
000040
001466
000010

000004
000007
000002

000004

000006
000010

000010
000010
000010

10%:

20%:

JSR
BR
NOP
ERROR
n?

PC,CNTCLR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB
BR

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

IF NO ERROR FOUND
IF ANY ERROR FOUND

SUB DEFINES ERROR NUMBFR

ERRVEC,=(SP)

ERRVEC+2,~(SP)

#108 ,ERRVE(C
#PR6,ERRVEC+2

$BASE ,RO
#CLR,RMCS2(R0O)
TSTQUE ,R1

(R1) ,RMCS2(R0O)
208
(SP)+,(SP)+

cMP
ADD
MOvVB
Sus

#4,10(SP)
#7,810(SP)
#2,10(SP)

MOV
MOV
MOV
MOV

(SP)+ ,ERRVE(C+2
(SP)+ ,ERRVEC
(SP)+,R1
(SP)+ RO

RTS

RETURN HERE
RETURN HERE

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH ERRVEC ON STACK
;:PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
;CLEAR MASSBUS
;GET DEVICE UNDER TEST
;SELECT DEVICE
;ADJUST STACK
sMOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
;ADJUST SP TO RETURN TO ERROR

;:POP STACK INTO ERRVE(C+2

;:POP STACK INTO ERRVEC

;;POP STACK INTO R1
;;POP STACK INTO RO

CZRMOBO RMQS/3/2 FCINL TST 3 MACRO v04.00 4=-APR-81 01:15:59 PAGE 3%
CONTROLLER CLEAR STATUS (MECK SUBROUTINE
D

SEQ

.SBTTL

:THIS SUBROUTINE VERIFIES THAT

‘USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT
1§ OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDiTION.

:
|

g
13

;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
*FOLLOWING STATUS BITS ARE NOT CHECKED:

+CALL

16
17
18

:
:
:

BR
NOP
ERROR

272

(1)

25 052552
26 052556
27 052562
28
29 052566
30 052574
31 052602
32 052610
23 052616
3%, 052620
35 052624
36 052632
37 052636

062716
105076
162716
013737
042737
012737
023737
001413
062716
112776
162716
004736

39 052644
40

000240

43 052660
44 052662

001413
062716

000004
000000
000004
001336
100000
004200
001140
000004
000126
000002

112776

000004

000127

46 052676 162716 000002
47 052700 004736
48 052702 162716 000010

001142
001142
001140
001142
000000

000240

JSR

PC,CLRSTS

JSR

PC,a(SP)+

273

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHE(CKS

RETURN HERE iF NO MORE ERRORS

111116
052716

SUB

#10, (5P)

*MOVE SP BACK TO NO ERROR

CLR
MOV

$GDDAT
RMBA]
, SBDDAT

;VERIFY RMBA IS ZERO

000000

MOVB

#137.3(SP)

*WITE ERROR NUMBER IN CALL

BEQ
ADD

SUB
JSR
SUB

NOP

7%
#6, (SP)

:BRANCH IF ZERO
“MOVE SP TO USER'S ERROR CALL

#2, (SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

-REPORT ERROR IF RMCS2 NOT INITIALIZED

000100

57 052734 012637 001140
L

ATA,ERR,PIP,MOL ,WRL,LBT,PGM,VV,OM,UNS,SKI,DVC

NOP
:REPORT ERROR IF RMBA NOT RESET

51 052710 013737 001346 001142 7%:
52 052716 010146
53 050720 005046
54 052722 013701 001466
55 052726
56 052730

IN PARTICULAR, THE

ADD
#4, (SP)
:MOVE SP TO ERROR
CLRB
a(SP)
:CLEAR ERROR NUMBER
SUB
#4, (SP)
“MOVE SP BACK TO NO ERROR
:REPORT ERROR IF RMCS1 NOT INITIALIZED
4$:
MOV
RMCS11,$8DDAT :VERIFY RMCS?
BIC
#SC, SBDDAT
*IGNORE SPECIAL CONDITION
MOV
#DVA'RDY,$GDDAT :EXPECT DVA & RDY
cMP
SGDDAT,SBDDAT :COMPARE EXPECTED, RECEIVED
BEQ
58
*BRANCH IF EQUAL
ADD
#4, (SP)
“MOVE SP TO USER'S ERROR CALL
MOVB
#126,a(SP)
‘WITE ERROR NUMBER IN CALL
SUB
#2,(SP)
*MOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
*REPORT ERROR VIA USER

41 052646 005037 001140
&g
42 052652 013737 001342 001142

THIS SUBROUTINE SHOULD ONLY BE

:CLEAR USER'S ERROR CALL

38 052640 162716 000010

49 052706

SUBSYSTEM IS INITIALIZED BASED ON

CLRSTS:

5% 052552

45 052666

THE

*STATUS STORED IN THE GET BUFFER.

g?
24

CONTROLLER CLEAR STATUS CHE(CK SUBROUT INE

MOV
MOV
CLR
MOV

RMCS21,$BDDAT
R1,=(SP)
-(5P)
TSTQUE ,R1

MOV

(SPJ+,$GDDAT

MOVB
BIS

(R1),(SP)
#1R, (SP)

:VERIFY RMCS2
1:PUSH R1 ON STACK
TEXPECT IR & UNIT NUMBER
‘R1 = ADDRESS OF TEST QUE

CZRMOBO RMQS/272 FCTINL TST 3

MACRO v04.00

CONTROLLER CLEAR STATUS (HECK SUBROUTINE

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

58 052740

012601

MOV

(SP)+ ,R1

;:POP STACK INTO R1

60 052750
61 052752

001413
062716

000004

BEQ
ADD

9%
#4,(SP)

*BRANCH IF EQUAL
:MOVE SP TO USER'S ERROR C(ALL

63 052764 162716 000002
64 052770 004736
65 052772 162716 000010

SUB
JSR
SUB

#2,(SP)
PC.R(SP)+
#10, (S5P)

§5 052742 023737 001140 001142

CMP

62 052756 112776 000130 000000

66 052776

000240

68 053000

005037

71 053020

001413

73 053026

112776 000131

NOP

062716

001140

000004

74 05303 162716 000002
75 053040 004736
76 053042 162716 000010

77 053046

78
79 053050

000240

CLR

‘WITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN FOR ERROR
“REPORT ERROR VIA USER
‘MOVE SP BACK TO NO ERROR

RMER11, SBDDAT
#UNS , SBDDAT

ADD

#4, (SP)

SUB
JSR
SUB

#2, (SP)
PC.RISP)+
#10, (SP)

MOVB
NOP

001142

$GDDAT

MOV
BIC
BEQ

00000

13$

#131,a(sP)

:VERIFY RMER1

: IGNORE UNSAFE

*BRANCH IF ZERO

‘MOVE SP TO USER'S ERROR CALL

‘WITE ERROR NUMBER IN CALL

“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

:REPORT ERROR IF RMMR1 NOT INITIALIZED=-IGNORE WC,LS.LST
13%:
MOV
RMMR11,$BDDAT
;VERIFY RMMR

013737

001362

83 053100
8, 053102

001413
062716

000004

BEQ
ADD

86 053114
87 053120

162716
004736

000002

SUB
JSR

89 053126

000240

80 053056 042737 000046 001142
81 053064 012737 000010 001140
82 053072 023737 001140 001142
85 053106 112776 000133 000000

88 053122 162716 000010

90
91 053130
92 053134
93 052142
9% 053144
95 053150
9 053156
97 053162
98 053164
99 053170
100

#1%0.a(SP)

:COMPARE EXPECTED & RECEIVED

:REPORT ERROR IF RMER1 NOT RESET~IGNORE UNS

69 053006 013737 001352 001142
70 053012 042737 040000 001142
72 053022

MOVB

$GDDAT,SBDDAT

BIC
MOV
CMP

MIC!LSILST,$BDDAT
: IGNORE WORD CLOCK, SCT, TRK
#MID , SGDDAT
:EXPECT WRITE DATA BIT
$GDDAT,$BDDAT :COMPARE EXPECTED AND RECEIVED

MOVB

#133.3(sP)

SUB

NOP

17%
#4, (SP)

*BRANCH IF 0
“MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#10, (SP)

*WITE ERROR NUMBER IN CALL

‘MOVE SP BACK TO NO ERROR

:REPORT AN ERROR IF RMEC2 IS NOT RESET
005037 001140
i7$:
CLR
$GDDAT
;EXPECT ZEROS
013737 001404 001142
MOV
RMEC21,8BDDAT :VERIFY RMEC2=0
001412
BEQ
19
062716

000004

ADD

#4,(SP)

;MOVE SP TO USER'S ERRCR CALL

162716 000002
004736
162716 000010

suB
JSR
SUB

#2, (SP)
PC.a(SP)+
#10, (SP)

‘MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER
‘MOVE SF BACK TO NO ERROR

112776 000135 000000

000240

101 053172
102 053200

013737
042737

105 053222

001413

107 053230

112776

001376
140000

MOVE
NOP

001142
001142

#135.3(sP)

*WITE ERROR NUMBER IN CALL

:REPORT ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA,RGB
19%:

MoV
BIC

RMMR2],$BDDAT
;VERIFY RMMR?
#RQA'RGB, SBDDAT

103 053206 012737 011777 001140
104 053214 023737 001140 001142

MOV
CMP

106 053224

ADD

#4, (SP)

:MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

‘MOVE SP TO RETURN FOR ERROR

062716

000004

000136

108 053236 162716 000002
109 053242

004736

111 053250
112
11% 053252

000240

110 053244

000000

162716 000010

005037

001140

114 053256 013737 001400 001142

BFQ

MOVB
JSR

SUB

#TST11777.$GDDAT
$GDDAT, SBODAT
218

#136.a(SP)
PC.A(SP)+

#10, (5P)

:EXPECT TEST BIT ON

‘WITE ERROR NUMBER IN CALL
‘REPORT ERROR VIA USER

*MOVE SP BACK TO NO ERROR

NOP
;REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC
21%:
CLR
$GDDAT
:EXPECT ALL ZEROS

MOV

RMER2],$BDDAT

:VERIFY RMER?

(ZRMOBO RMOS/3/2 FCTINL TST 3

MACRO v04.00

CONTROLLER CLEAR STATUS (HECK SUBROUTINE
115 053264

116 053272

117 053274

118 053300

119 053306
120 053312

042737

040200

062716

000004

001413
112776

000174

;g% 053320

000240

124 0533%8
125 0533
126
053336
127 053344

013737
042737
012737
023737

001350
177177
000600
001140

001142
001142
001140
001142

062716
112776
162716
004736
162716

000004
000134
000002

000000

121 053314

1¢<8 053352

129 053354
130 053360
131 053366
132 053372
133 053374

134 053400
135 053402
136 053406
137 053412
138 053414
139 053420
140 053422
141 053426

142 053430

001413

000240
062716

105776
001403
062716
000402
162716
000240

000207

ADD

000000

000002

NCP

:REPCRT ERROR
MOV
BIC
MOV

215%:

(MP
BEQ
ADD
MOVB
SuB
JSR
SuB

000010
000000

22%:

BEQ

000004

NOP
ADD
TSTB

23%:
268

ADD
BR
SUB
NOP
RTS

SEQ 0226

#SK1!DVC,$BDDAT ; IGNORE DEVICE ERRORS

215%

JBRANCH IF OTHER BITS 0

#174,8(SP)

:WITE ERROR NUMBER IN CALL

#4,

(SP)

#2,(SP)
PC.a(SP)+

(C00010

000004

4-APR-81 01:15:59 PAGE 31-2
BIC
BEQ

001142

162716
004736
162716

E-

#10, (SP)

“MOVE SP TO USER'S ERROR CALL

“MOVE SP TO RETURN FOR ERROR
‘REPORT ERKOR VIA USER

“MOVE SP BACK TO NO ERROR

IF RMDS NOT INITIALIZED
RMDS I, SBDDAT

:TEST DRIVE STATUS REGISTER

#~C<DRY 'DPR>, $BDDAT

#DPR!DRY,$GDDAT ;EXPECTED DRIVE STATUS

$GDDAT,$BDDAT
22%

:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

#1%4,3(SP)

‘WRITE ERROR NUMBER

#4,

(SP)

#2,(5P)
PC.R(SP)+

#10. (5P)
#4, (SP)

a(sP)
23%
52;(59)
#4,(SP)
PC

*MOVE SP TO USER'S ERROR CALL

“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR TO USER

*MOVE SP BACK TO NO ERROR
:MOVE SP TO ERROR CALL

*WAS AN ERROE DETECTED??
sNO!!

*YES = MOVE TO ERROR RETURN
:MOVE

SP TO NO ERROR RETURN

CZRMOBQ RMOS/3/2 FLINL TST 3

PACK

ACKNOWLEDGE

STATUS

(HECK

MACRD v04.00 &4-APR-B1 01:15:59 PAGE 35
G

PACK ACKNOWLEDGE STATUS CHECK

.SBTTL

:THIS SUBROUTINE

:REPORTED TO THE USER VIA THE USER'S ERROR CALL.

CHECKS THE RESULTS OF

A PACK ACKNOWLEDGE

:COMMAND USING THE STATUS STORED IN THE GET BUFFER.

;CALL:

(1)

10
11
1§

;2 053432

ACKSTS:

18 053432

062716

000004

5(1) 053442

162716

000004

19 053436

105076

23 053446
24 053454

032737
001024

26 053464

052737

28 053500

062716

25 053456

GO BACK TO SUB FOR MORE ERROR C(HE(KS

RETURN HERE IF NO MORE ERRORS

ADD

#4, (SP)

:MOVE SP TO ERROR (ALL

SUR

#4, (SP)

:MOVE SP BACK

CLRB

001350

a(SP)

:REPORT AN ERROR

BIT
BNE

:1S VOLUME VALID SET??
:YES!'!

RMDS] ,$BDDAT

;RECEIVED STATUS

112776 000155 000000

MOVB

#155,a(SP)

;WRITE NUMBER IN ERROR CALL

31 053516

004736

JSR

33 053524
;g 053526

000240

37 053526

000002

162716

000010

032737

001024
013737

41 053552

013737

43 053564
44 (053572

112776
162716

42 053560

052737

062716

«5 053576

004736

47 053604

000240

46 053600
zg 053606

50
51 053606

000004

162716

38 053534
39 053536

40 053544

000100

162716

001140

IF 'W'' IS 0

#VV ,RMDS |
1%

:CLEAR LOW ORDER BYTE

MOV

32 053520

001350

PC,a(SP)+

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

0071142

30 053512

013737

272

RETURN HERE IF NO ERROR

RMDS1,$GDDAT

29 053504

001350

JSR

272

MOV

27 053472

013737

NOP
ERROR

PC,ACKSTS

:CLEAR USER'S ERROR CALL

000000

000100

JSR

ERRORS ARE

PC,a(SP)+

#10, (SP)

:REPORT AN ERROR IF "MOL'' IS 0

001350

001142

MOV

RMDS]I , $BDDAT

;RECEIVED STATUS

MOVB
SuB

#41,3(SP)
#2,(SP)

:WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

000004

9000041
000002

001140

BIS

ADD

000000

JSR

000010

SuB

040000

001352 -

§7 053626

013737

001352

001142

2%:

NOP

#MOL ,RMDS ]

:REPORT THE ERROR

;MOVE SP BACK TO BRANCH

001140

010000

BIT

:MOVE SP TO RETURN FOR ERROR

001350

032737
001424

#2,(SP)

:MOVE SP TO ERROR CALL

8NE
MOV

55 053616
56 053624

#4,(SP)

JEXPECTED STATUS

001350

001352

NOP

#VV,SGDDAT

010000

001570

SuB

1%:

060007

053614

ADD

SuB

032737

BIS

001140

2%
RMDS ! ,$GDDAT
#MOL
, $GDDAT

#4,(SP)

PC,a(SP)+

#10, (SP)

;IS MOL SET??

SYES!!
EXPECTED STATUS
:MOVE SP TO ERROR CALL
:REPORT TH ERROR

:MOVE SP TO BRANCH

:SEE IF "UNS'',"OPI'',"'RMR'',"‘ILR'‘, OR "'ILF'' IS SET
BIT
HUNS'OP]'RMR'ILR!
ILF ,RMER1]
BEG

;REPORT AN ERROR IF "UNS'' IS SET

BIT

#UNS ,RMERTI]

MOV

RMER11,$BDDAT

BEQ

JWAS UNS SET??

JNO!!

;RECEIVED STATUS

CIRMOBO RMOS/3/2 FCINL ST 3

PALK ACKNOWLEDGE STATUS (HECK

58 053634
§9 053642
60 053650

013737
042737
062716

001352
(40000
000004

62 053662
63 053666

162716
00473€

000002

65 053674
gg 053676

000240

MACRO v04.00 4-APR-B1 01:15:59 PAGE 3%-1
H

001140
001140

61 053654 112776 000062 000000

69 053676
70 053704
71 053706
72 053714

73 053722
76 053730

75 053736

76 053742
77 053746

78 053750
79 053754

032737

001424
013737
013737
042737
062716

020000

001352

001352
001352

001142
001140

000004

001352

001352
001352
000004
000004
000044
000002

001142
001140
001140

91 054026

032737
001424
013737
013737
042737
062716
112776
162716
004736

93 054034

000240

9%
97 054036
98 054044
99 054046
100 054054
101 054062
102 054070

032737
001424
013737
013737
042737
062716

000002

001352

001352
001352
000002
000004

001142
001140
001140

106 054102

162716

000002

84 053764
85 053766
86 053774
87 054002
88 054010
89 054014
90 054022

103 054074

105 054106
106 054110
107 054114
}83 054116

112776

48:

004736
162716
000240

000000

001352

114 054134

013737

001352

001142

054126

013737

BIC
ADD

#OP] ,$GDDAT
#4, (SP)

SUB
NOP

001140

4%
RMER11,$BDDAT
RMER11 S$GDDAT

#43,3(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

:MOVE SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL
“MOVE SP TO NO ERROR RE TURN

:WAS OP] SET 77

‘NO!!
-RECEIVED STATUS
:EXPECTED STATUS
: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

BEQ
MOV
MOV
BIC
ADD
MOVB
SuB

5%
RMER11,$BDDAT
RMER11,$GDDAT
#RMR , SGDDAT
#4, (SP)
#44,a(5P)
#2,(SP)

:WAS RMR SET??
*NO!!
-RECEIVED STATUS
;EXPECTED STATUS
.
:MOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
‘MOVE SP TO RETURN FOR ERROR

suB

#10., (SP)

*MOVE SP TO NO ERROR RETURN

NOP

MOVB
SUB

6$:
000001

ERROR

#OPI ,RMER1]

:REPORT ANY
BIT
BEQ
MOV
MOV
BIC
ADD

00010

032737
001424

#10. (SP)

BIT

JSR

110
111 054116
11{ 0541264

113

NOP

#42.3(SP)

;REPORT ANY RMR ERROR
BIT
#RMR , RMER |

5%:

000045

‘MOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER

SUB
JSR

92 054030 162716 (00010
gg 054036

#2,(5P)
PC,a(SP)+

MOVB

000002

000010

82
83 053756

SUB
JSR

BEQ
MOV
MOV

001140

162716
000240

g? 053756

;EXPECTED STATUS

:REPORT ANY OP]

112776 000043 000000

162716
004736

RMER11,$GDDAT
, SGDDAT
#UNS
24, (SP)

SUB

020000
000004

MOV
BIC
ADD

MOVB

64 053670 162716 000010

£G 0228

JSR
SUB
NOP

:REPORT ANY
BIT
BEQ

MOV
MOV

PC.a(SP)+

*REPORT THE ERROR VIA USER

:
ILR ERROR
#ILR,RMER1]
6%
RMER1],$BDDAT
RMER1].$GDDAT
#ILR,$GDDAT
#4, (SP)

#45,3(SP)
#2,(SP)

PC.R(SP)+
#10, (SP)

:WAS ILR SET??
*NO!!
:RECEIVED STATUS
:EXPECTED STATUS

: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

ILF ERROR
#ILF ,RMER1]
7%

:WAS ILF
*NO! !

RMER11.$GDDAT

:EXPECTED STATUS

RMER11,$BDDAT

SET??

:RECEIVED STATUS

JRMOBO RMOS/372 FCINL TST 3

PACx

ACKNOWLEDCE

STATUS (HECK

115 054142
16 054150
117 056154
118 054162
119 054166

042737
062716
112776
162716
004736

121 054174

000240

00000"
(00004
000046
000002

MACRO v04.00

BIC
ADD
MOVB
SUs
JSR

001140

000000

054170 162716 000010

}gi 054176

124

125 054176

000004

128 054210
129 054214

062716
000402

000004

’131 0542¢¢

240

15
127

054202
054206

130 0542'¢
32 054224

105776
001403
16 716

000207

SuUB

7%:

062716

NOP

#ILF ,SGDDAT
#4,(SP)
#46,9(SP)
#2,(SP)
PC,a(SP)+

N().(SP)

;MOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR [N CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

;AUGMENT RETURN ADDRESS IF ERROR WAS FOUND

000000

000004

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

ADD

#4, (SP)

:MOVE SP TO ERROR CALL

ADD
B8R

#4,(SP)
9%

:YES = MOVE TO ERROR RETURN

1STB
BEQ

8%:

9%:

SUB

NOP
RTS

a(SP)
8$

#4,(SP)
PC

;WAS ERROR FOUND??
sNO!!

;MOVE SP TO NO ERROR RETURN

AMOS/3/7¢ FOINL TST 3 MACRO v04.00 4-APR-B1 01:15:59 PAGE 3%
CIJRMOBO
CALIBRATE STATUS (HECK SUBROUTINE
J

;

JSBTTL

:THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION

;

;CALL:

(1)

ls.

1§

ERROR

17
18 054226

062716

000004

g? 054236

162716

000004

JSR

272?

105076

000000

CLRB

SuUB

032737
C€01553

022011

001352

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

a(SP)

#4,(SP)

;CLEAR USER'S ERROR CALL

;MOVE SP BACK TO BRANCH

:REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E..

001024
013737

3% 054

042737

001352
000010

36 054314

062716

000004

#PAR ,RMER11
1%
#DPE , RMER2]

BIC

#PAR, SGDDAT

ADD

#4,(SP) :MOVE SP TO USER'S ERROR CALL

BNE
1%
MOV RMER1I,$GDDAT

001140
001140

MOV

37 054320

MovB

112776 000050 000000

38 054326 162716 000002

SUB

39 054332

004736

JSR

41 054340

000240

NOP

162716 000010

SUB

1%:

45 054342 032737 000001 001352
46 054350 001424
47 054352 013737 001352 001140
48 054360

042737

000001

001140

S0 054374
51 054400
52 054406
§3 054412

062716
112776
162716
004736

000004
000071
000002

00000

§5 054420
2(} 064422

000240

;RECEIVED STATUS

#50.a(sP)

;WRITE ERROR NUMBER IN CALL

PC.a(SP)+

*GO REPORT ERROR

#2,(SP)

#10, (SP)

*MOVE SP BACK TO BRANCH

#ILF ,RMER1]
2%
RMER1],$GDDAT

;WAS ‘‘ILF'* SET??
*NO!!
:EXPECTED STATUS

MOV

RMER1],$BDDAT

;RECEIVED STATUS

#10, (5P)

‘MOVE SP BACK TG BRANCH

ADD
move
SuUB
JSR

SUB

2%:

*MOVE SP TO RETURN FOR ERROR

BIT
BEQ
MOV
BIC

§4 056414 162716 000010

;YES - NOT A REGISTER ERRCR
*EXPECTED STATUS

RMER1],$BDDAT

;REPORT ANY “‘ILF'' ERROR

49 054366 013737 001352 001142

:WAS "PAR'* SET??
*NO!!
*WAS "DPE'' SET??

BIT
BEQ
BIT

35 054306 013737 001352 001142

2% 054342

PC,a(SP)+

;CALL SUBROUT INE

:SEE IF 'PAR'' OR “‘ILF'' OR "OPI'* OR ''IAE'' IS SET
BIT
#OP] 'PAR' ILF ! IAE ,RMER1 ]
;NONE ARE SET = GO TO NEXT CHECK
A 3
BEQ

29 054252 032737 000010 001352
30 054260 001430
31 054262 032737 000010 001400

40 054334

273

:CLEAR USER'S ERROR NUMBER
ADD
#4, (SP)

32 054270
33 054072

NOP

PC.RCLSTS

RCLSTS:

12 054226

23
24 054242
Sz 054250

JSR

;‘

19 054232

RECALIBRATE STATUS CHECK SUBROUTINE

:USING THE STATUS STCRED IN THE GET BUFFER.

SEQ 023

NOP

#8F ,$GDDAT

#4, (SP)
#71.a(sP)
#2,(SP)
PC,a(SP)+

‘MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERRCR
;REPORT ERROR VIA USER

MACRDO v04.00 4-APR-81 01:15:59 PAGE 3%-1
K

(ZRMOBO RMOS/3/2 FLTNL IST 3
RECALIBRATE STATUS (HECK SUBROUTINE
-

58
59
60

61 054422
62 054430
63 054432
64 054440
65 054446
66 054454
67 054460
68 054466
69 054474
70 054476
71 054504
72 054510
73 054512
74 054516

75 054520

76
77
78 054520

79 054526

80 054530
81 054536
82 054544
83 054552

84 054556
85 054564
86 054570
87 054572
88 054576
89 054600

90
91

92 054600

93 054606
94

;REPORT

032737
007433
013737
042737
013737
062716
112776

032737
001403
112776
162716
004736
162716
000240

032737
001424
013737
042737
013737
06271€

112776
162716
(004736
162716
000240

032737

001517

009000
001350

MOVB

#72.3(SP)

000000

001352
020000
001352
000004
000072
010000

001140
001140
001142

102 054626

103 054634
104 054642
105 054646
106 054654
107 054662
108 054664
109 054672

0 054676

1 054700

2 054704
2 054706

#MOL ,RMDS |

MOVB

#73.a(SP)

“NO - CHANGE ERROR NUMBER

JSR

PC.a(SP)+

BIT

BEQ
3%:

000010

:WAS OP] SET??
‘NO!!
EXPECTED STATUS
;RECEIVED STATUS

JMOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN USER'S CALL
JWAS ‘MOL'" = 077

ADD

SuB

gol%

#4,

(SP)

#2,(SP)

#10, (SP)

TYES!!

“MOVE SP TO RETURN FOR ERROR
“REPORT ERROR VIA USER

“MOVE SP BACK TO BRANCH

31%:
002000

001352

001352
002000
001352
000004

001140
001140
001142

000010

;REPCRT AN ERROR IF ''IAE'' IS SET
#1AE ,RMER1 ]
BIT
;1S "'1AE'" SET??
4$
BEQ
:NO!!

MOV
BIC
MOV

RMER11,$GDDAT
#1AE ,$GDDAT
RMERT I, SBDDAT

;RECEIVED STATUS

move

#70.3(sP)

*WRITE ERROR NUMBER IN USER'S CALL

ADD

000000

000070
(00002

SUB

JSR

zot%

#4,

(SP)

#2,(SP)

PC.a(SP)+

#10, (5P)

;EXPECTED STATUS
‘MOVE SP TO ERROR CALL

“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR

‘MOVE SP BACK TO NO ERROR RETURN

4%:
050200

001400

95
9%

97
98
99 054610
100 054616
101 054620

" OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET

#OP] ,RMER1]
31s
RMER11,$GDDAT
#0P] ,$GDDAT
RMER11,$8DDAT

001352

000073
000002

ANY 'OPI'' ERROR AS
. OPI DUE TO '‘MOLTM = 0

BIT
BEQ
MOV
BIC
MOV

020000

SEQ 0231

;SEE I¥ "'SKI'* OR "'IVC'* OR 'DVC'' IS SET

BIT

BEQ

#SK1!1VC'DVC,RMER2]

;REPORT ANY “IVC'' ERROR AS
LAVC WITH v = 0
-ERRONEOUS IVC ERROR

;NONE OF THE BITS ARE SET

032737
001433
013737
042737
013737
062716
112776
032737
001403
112776
162716

004736
162716

000240

010000

001400

001400
010000
001400
000004
000074
000100

001140
001140

000075
000002

000000

8IT
BEQ

#1VC RMER2]

, SGDDAT
RMER2]
2]
, $BDDAT
RMER

001142

MOV
BIC
MOV

#1VC,$GDDAT

000000
001350

BIT

#VV.RMDS

ADD
MOVB

5%:

000010

6%:

BEQ
MOVB

SUB
3@
JSR

;WAS IVC SET??
sNO!!

;EXPECTED STATUS

#4, (SP)
#74,a(SP)

;RECEIVED STATUS
‘MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER IN CALL

5¢
#75.3(SP)

:YES!!
‘NO - CHANGE ERROR NUMBER

#2,(SP)
PC.(SP)+
#10, (SP)

‘WAS WV = 0?7

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER
*MOVE SP BACK TO BRANCH

? PAG% 3§-2

MACRO Vv04.00
CZRMOBO RMOS/3/2 FCTINL TST 3
SUBROUTINE
RECAL IBRATE STATUS CHECK

001140
001140
001142

RM+©2. BGDDAT

;EXPECTED STATUS

PMER?, $BDDAT

;RECEIVED STATUS

112776
162716

001400
040000
001400
000004
000076
000002

000000

‘WRITE ERROR NUMBER
“MOVE SP TO RETURN FOR ERROR
“REPORT ERROR VIA USER

162716

C00010

#76,3(SP)
#2,(SP)
PC.A(SP)+

000240

T T S S

R
—
S
R

001140
001140
001142

112776
162716

001400
000200
001400
000004
000077
000002

162716

000010

055046
055052
055056
055062
055064
055070

013746
042716
0c2726
001002
000137

004736
000240

I
e e
e R
B

BFNBRRRNGS
388

VAV
VAWV
I
I IV NIV VIV IV

-t

e S
T

ololololelelelelele]

L
B

elele]

—————
S
SR S
N
T AT SO

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716

8%:

*MOVE SP TO USER'S ERROR CAL:

‘MOVE SP TO BRANCH

BEQ
MOV
BIC
MOV
ADD
MOVB
SuB
JSR
SuB
NOP

#DVC ,RMER2]
8%
RMER2],$GDDAT

;WAS ‘DVC'’ SET??
JNO!!
:EXPECTED STATUS

RMER2],$BDDAT

;RECEIVED STATUS

#77.3(SP)

*WRITE ERROR NUMBER

#DVC , SGDDAT

#4, (SP)

#2,(SP)
PC.a(SP)+

#10, (SP)

‘MOVE SP TO USER'S ERROR CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP TO USER'S BRANCH

SEE IF "PIP'' AND ‘OM'* ARE O, AND '‘ATA'',"MOL'' AND *‘VV'' ARE 1

001350
047676
110100

055500

85%:

001350

BNE
BIT
BNE

001352
001140
001140
001142

000000

162716

000240

9%:

001350
001400

MOV
BIC
cMP
BNE
JMP

RMDSI,=(SP)

;PUT RMDS ON STACK

#*C<PIP!MOL'!VV!OM!ATA>,
(SP)
#ATA!MOL
!VV, (SP)+

85%
138

;REPORT AN ERROR IF MOL = O AND OP] = 0, I.E., MEDIUM WENT OFF
;LINE AFTER RECALIBRATE WAS INITIATED
:%?‘FDL DROP??
zgou..nnosx
BIT

004736

32737

;REPORT ANY "DVC'' ERROR

000000

001400

032737
001424
013737
042737
013737
062716

JDDAT

7%:

000200

054766
054774
054776
055004
055012
055020
055024
055032
055036
055040
055044
055046

ASK,

#10, (SP)

128

;=3§‘sx1 SET??

001400

004736

055106

R21

040000

032737
001424
013737
042737
013737
062716

MOV
BIS
MOV
ADD
MovB
suB
JSR
SuUB
NOP

#OP] ,RMER1I

;WAS OP] ERROR REPORTED??

RMDSI ,$GDDAT

;EXPECTED STATUS

#MOL
, SGDDAT

sYES = DON'T REPORT MOL=0

RMDSI,$BDDAT
;RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL

#100,3(SP)

;WRITE ERROR NUMBER

#10, (SP)

‘MOVE SP BACK TO USER'S BRANCH

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

= 0 AND ''IVC'' = 0
;REPORT AN ERROR IF *'WW''
#VV ,RMDS ]
:DID ''vV'' DROP??
BIT
10%
:NO!!
BNE
#I1VC,RMERZ]
;WAS THERE A IVC ERROR??
BIT

SEQ 02%2

CZRMOBO RMOS5/3/2 FCINL TST 3 MACRO v04.00 &~-APR-81 01:15:59 PAGE 35-3
RECAL IBRATE STATUS CHECK SUBROUT INE
M

172 055176
17% 055200

001024
013737

001350

001140

BNE
MOV

175 055214

052737

000100

001°40

BIS

177 osssgz 112776 000101

000000

MovB

174 055206

176 055222
178 055

013737

062716

162716

179 055240

004736

181 055246

000240

180 055242

;gg 055250
184

185 055250
186 055256

i87 055260
188 055266
189 055274
190 055302
191 055306
192 055314
193 055320
194 055322
}gb 055326

001350

000004

000002

001142

032737
001024

013737
052737
013737
062716
112776
162716
004736
162716
000240

108:

100000

001350

001140
001140
001142

100000
001350
000004
000102
000002

RMDS I ,$BDDAT

ADD

#4,(SP)

:MOVE SP TO USER'S ERROR CALL

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

SuB

:YES - DONT REPORT vv=0
:EXPECTED STATUS

MOV

JSR

162716 000010

108
RMDSI,$GDDAT

SEQ 0233

SuB

NOP

#VV,SGDDAT

#101.a(sP)
PC.a(SP)+

#10, (SP)

;RECEIVED STATUS

*WRITE ERROR NUMBER IN CALL

:MOVE SP BACK TO USER'S BRANCH

:REPORT AN ERROR IF ATA IS NOT SET

BIT
BNE

MOV
BIS
MOV
ADD
movB
SUB
JSR
suB
NOP

000000

000010

#ATA ,RMDS]
118

RMDSI,$GDDAT
#ATA,SGDDAT
RMDSI,SBDDAT
#4,(SP)
#102.a(sP)
#2.(SP)
PC.a(SP)+
#10, (SP)

;WAS -ATA SET DURING RECALIBRATE??
TYES!!
:EXPECTED STATUS

:;RECEIVED STATUS
:MOVE SP TO USER'S ERRCR CALL
‘WRITE ERROR NUMBER IN CALL

:MOVE SP TO USER'S BRANCH

;3; 055330

11$:

199

:REPORT AN ERROR IF "OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD

200

501 055%30
02 055336
205 055340

204 ossgas
205 055354

206 055362
207 055366
208 055374
209 055400

032737
001424
013737

042737
013737

062716
112776
1627]6
004736

000001

001350

001140

000001
001350

000004
000103
000002

;ALWAYS CLEAR OFFSET MODE

000000

000240

12%:

032737
001430

0 055430

013737 001350 001140

1 0554

i 055444
055452
4 055456
S 055464

6 055470

5 7 055472

#4,(SP)
#103.a(sP)
#2,(SP)
PC.a(SP)+

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

NOP

#OM, SGDDAT
RMDSI,$BDDAT

#10, (SP)

*MOVE SP TO USER'S BRANCH

:REPORT AN ERROR IF ‘PIP'' IS STIL ON, I.E.., DRIVE NOT ON

16 055410
17 055416

18 055420
19 055426

ADD
move
SuUB
JSR

SUB

;WAS "OM'' RESET??
SYES!!
JEXPECTED STATUS

BIC
MOV

001140
001142

210 055402 162716 000010

511 055406
2}% 055410

MOV

#0M,_RMDS I
12%
RMDSI,$GDDAT

BIT
BEQ

020000

001350

032737
001024

040000

CO1400

o«grs7

020000

013737
716
112776
162716
004736

162716

8 055476 000240

001350
000004
000104
000002

000010

001140

001142

000000

;CYLINDER

BIT
BEQ

BIT
BNE

MOV

#PIP,RMDS]
13$

#SKI,RMER2]
138

RMDSI,$GDDAT

BIC

#P1P, $GDDAT

JSR

PC.a(SP)+

MOV
ADD
MOVvB
SUB

SuB

NOP

;1S DRIVE OFF CYLINDER??
INO!!
.

“WAS ‘'SKI'' DETECTED??
*YES-DONT REPORT 'PIP"’

:EXPECTED STATUS

RMDSI,$BDDAT
:RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#104.a(SP)
:WRITE ERROR NUMBER
#2,(SP)
:MOVE SP TO RETURN FOR ERROR

#10, (SP)

:MOVE SP BACK TO USER'S BRANCH

!
| CZRMOBO RM0S/3/2 FCTNL TST 3
MACRO v04.00
| RECALIBRATE STATUS CHECK SUBROUTINE

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

5323 055500

13s:

:SEE IF “"ILR*° OR "RMR'" OR "UNS'' IS SET

%i 055500 032737 040006 001352

i 055506

001514

055510 032737 000002 001352
055516 001424
013737 001352 001140
gg 0555
055526

w0 0555
41 055542
4; 055546
43 055554

BIT

BEQ

042737

013737
062716
112776
162716

44 055560 0047
45 055562 162716
"? 055596 000240

000002

001352
000004
000105
000002

#ILR'RMR'UNS, RMER1]
16%

:REPORT AN ERROR IF ""ILR'" IS SET

000000

#ILR,RMER1]
143
RMZR11,SGDDAT

MOV
ADD
MOVB
SUB

RMER1],$BDDAT
:RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#105.3(SP)
;WRITE ERROR NUMBER IN CALL
#2.,(SP)
:MOVE SP TO RETURN FOR ERROR

JSR
SuB

000010

NOP

#ILR,SGDDAT

PC.a(SP)+
#10, (SP)

25 055570

148:

:REPORT AN ERROR IF "RMR'' IS SET

50 855570 032737 000004
’
51 055576 001424
S; 055282
055
5%

013737
045737

001352

55
Sg
57

062716
112776
162716

000004
000106
000002

001352

055622
55626
0556

Ss sge«o
5 85 642

60 055646
81 055650

6§

004736
162716

000240

JSR
SuB

15%:

05566

275

055732

55740

;RECEIVED STATUS

112776 000107 000000

move

#107.a(sP)

*WRITE ERROR NUMBER

062716

001352
040020
001352
000004

162716

000002

162716

000010

004736

557

000240

055740

oogno 000004

€750 001403

79
81

055744

~83% 055752
gg& 055756
S 055760

:YES - DON'T REPORT UNSAFE
;EXPECTED STATUS

BEQ

32757 000200 001400

055730

279

;REPORT BIT
AN ERROR#UNS
IF "UNS''
IS SET :WAS
AND UNSAFE
'DVC'' ISON??
0
,RMER1]

001140
001140
001142

’§8
74

:REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

168
RMER1] ,$GDDAT
#UNS , SGDDAT
RMER11,$8DDAT

19;4
13737
737
013737

5724

NOP

PC,2(SP)+
#10, (SP)

:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN USER'S CALL
:MOVE SP TO RETURN FOR ERROR

BNE
MOV
BIC
MOV

567
5
63 256
ggn
3
0 85 04
?

;RECEIVED STATUS

#4,(SP)
#106,a(SP)
#2,(SP)

;EXPECTED STATUS

:NOi!

8014,0

216

RMER11,$BDDAT

RMER1]1,$GDDAT
, SGDDAT
#RMR

16%

2712

MOV

000000

gggo 0327§7 040000 001352

:WAS RMR SET??
;NO!!

ADD
MOVB
SuB

#RMR,RMER11
15%

MOV
BIC

000010

:MOVE SP TO USER'S BRANCH

BIT
BEQ

001140
001140

54 055614 013737 001952 001142

;WAS ILR SET DURING RECALIBRATE??
:NO!!
;EXPECTED STATUS

BIT
8EQ
MOV
RIC

001140

001142

SEQ 0234

BIT

ADD

SuB

JSR

SUB

16%:

105776

Q00000

062716
000402
162716

000004

NOP

#DVC ,RMER2]

#4,(SP)

#2,(SP)

PC,a(SP)+

#10, (SP)

:WAS THERE A DEVICE CHECK??

;MOVE SP TO USER'S ERROR CALL

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:MOVE SP BACK TO USER'S BRANCH

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

ADD

#4,(SP)

:MOVE SP TO USER'S ERROR CALL

BEQ

17%

:NO!!

TSTR

17%:

ADD
BR
SUB

a(sP)

:WAS AN ERROR REPORTED??

4, (S
:YES ES - AUGMENT SP RETURN
#4,(SP)
18%
#4,(SP) :NO ERROR - RETURN SP TO BRAN(CH

(ZRMOBC R’MOS/3/72 FCINL TST 3

MACRO v04.00 4-APR-B1 01:15:59 PAGE 3%-5
8

RECALIBRATE STATUS (HMECK SUBROUTINE
286 055764

287 055766

000240

18%:

NOP

RTS

sSTATUS CECK IS COMPLETE

SEQ 0235

CZRMOBO RMOS5/372 FCTINL TST 3
MACRO Vv04.00
DRIVE CLEAR STATUS (HECK SUBROUTINE

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

SEQ 0236

;

.SBTTL

DRIVE CLEAR STATUS CHECK SUBROUTINE

277

RETURN HERE If NO ERROR

5
6

:
:

ERROR
JSR

PC,a(SP)+

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

18 055770
1
12 055770
13 055774

14 056000
15
16 056006
17 056012
18 056020
19 056026

20 056034
21 056036
22 056042
23 056050
26 056054
25 056056

26 056062
27

28 056064
29 056072
30 056100
31 056106
32 056114
33 056116
3%, 056122
35 056130
36 056134
37 056136
38 056142

NOP
272

RETURN HERE TO REPORT AN ERROR
RETURN HERE IF NO MORE ERRORS

DRVSTS:
062716
105076

162716
013737
042737
012737
023737

:CLEAR USER'S ERROR CALL
ADD
#6, (SP)
CLRB
a($P)

000004
000000

000004
001336
173700
004010
001140

001443
062716 000004
112776 000141
162716 000002
004736
162716 000010

000240

001350
021101
010600
001140
000004
000142
000002
000010

#4, (SP)
“MOVE SP TO USER’S BRANCH
RMCS11,$BDDAT ; CHECK RMCS?
#~C<DVA'FNCMSK>,$BDDAT ;CLEAR DONT CARES
#DVA'DRVCLR, SGDDAT
*EXPECT DVA
$GDDAT,$BDDAT ; COMPARE EXPECTED & RECEIVED

:REPORT ERROR IF RMCS1 NOT INITIALIZED

001142 4$:
001142
001140
001142
000000

000240

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716

SUB
MOV
BIC
MOV
CMP

;MOVE SP TO ERROR CALL
*CLEAR ERROR CALL

BEQ
ADD
MOVB
SUB
JSR
SUB

68
#4, (SP)
#141,a(SP)
#2,(5P)
PC.a(SP)+
#10, (5P)

*BRANCH IF EQUAL
‘MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
*MOVE SP 10 RETURN FOR ERROR
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

NOP
-REPORT ERROR IF RMDS NGT INITIALIZED

001142 58:
001142
001140
001142
000000

MOV
BIC
MOV
CMP
BEQ
ADD
MOVB
)
JSR
SUB
NOP

RMDS] ,$BDDAT
:CHECK RMDS
#PGM'OM'VV'PIP, SBDDAT ;CLEAR DONT CARES
#MOL
| DPR ! DRY , SGDDAT
*EXPECT DRY € DPR
$GDDAT,SBDDAT :COMPARE EXPECTED & RECEIVED
6$
*BRANCH IF EQUAL
#6, (SP)
‘MOVE SP TO ERROR CALL
#142,3(SP)
SWRITE NUMBER OF ERROR IN CALL
#2,(5P)
“MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT THE ERROR VIA USER
#10, (SP)
*MOVE SP TG NO ERROR RETURN

:REPORT ERROR IF RMER1 NOT INITIALIZED

40 056144
41 056150
42 056156
43 056160
4 056164
45 056172
46 056176
47 056200

005037
013737
001413
062716
112776
162716
004736
162716

001140
68:
001352 001142
000004
000143 000000
000002
000010

CLR
MOV
BEQ
ADD
MOVB
SUB
JSR
SUB

$SGDDAT
RMER1]1,$BDDAT
13
#6, (SP)
#143.a(SP)
#2.(5P)
PC.a(SP)+
#10, (SP)

SEXPECT 0°S
:CHECK RMER1
*BRANCH IF EQUAL
‘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

50 056206
51 056214
52 056216
53 056220

013737 001354 001142 8S%:
010146
010246
013701 001466

MOV
MOV
MOV
MOV

RMAS],SBDDAT
R1,-(5P)
R2,=(SP)
TSTQUE ,R1

;CHECK ATTENTION BIT
1:PUSH R1 ON STACK
*“PUSH R2 ON STACK

CoM

48 056204
49

54 0562264
55 056230

000240

116102
042702

000001
177400

040237

001142

56 056234 005102
57 056236

NOP
:REPORT ERROR IF ATA NOT INITIALIZED

MOVB
BIC
BIC

1(R1),R2
#*CATNMSK
,R2
R2,$BDDAT

(ZRMOBO RMOS/3/2 FCTINL TST 3

MACRO v04.00
DRIVE CLEAR STATUS (HMECK SUBROUTINE

58 056242
59 056244

012602
012601
005737

MOV
MOV

001142

b
sl o

000004
000146
000002

b
b
d
—

il ol

P2l 2k o
o

011777
001140

140000

00i376

000010

005037

001140

013737
001413
062716

001404

001142

112776
162716

000004
000150
000002

000000

162716

000010

000240
013737
001413
062716
112776
162716

004736
162716
000240

001400
000004

000147
000002

9%:

#144,a(SP)

#2,(5P)
PC.a(SP)+
#10, (5P)

;sPOP STACK INTO R2

;;POP STACK INTO R1
;1S ATTENTION CLEARED??
;BRANCH IF ATTENTION CLEARED
sMOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR VIA USER
JMOVE SP TO NO ERROR RFTURN

RMMR1 NOT INITIALIZED

MOV
BIC
MOV
CMP
BEG
ADD
MOVB
SUB

1 , SBDDAT :CHECK RMMR
RMMR1
;CLEAR DONT CARES
MJC'LSILST,$BDDA T
, SGDDAT
#MJ
JEXPECT WRITE DATA ON
AT ;COMPARE EXPECTED AND RECEIVED
, SBDDAT
$GDD
118
JBRANCH IF ZERO
#4, (SP)
;MOVE SP TO ERROR CALL
#145.,a(SP)
JWRITE NUMBER OF ERROR IN CALL
#2,(SP)
JMOVE SP TO RETURN FOR ERROR

aotg

#10, (5P)

PC.a(SP)+

g?\cr

RMMR2] , SBDDAT

MOV

#TST11777,SGDDAT

CMP
BEQ
ADD
MOVB
SUB
JSR
suB

;REPORT THE ERROR VIA USER
JMOVE SP TO NO ERROR RETURN

NOP

;CHECK RMMRZ2

#RQA !RQB,$BDDAT ;CLEAR REQA, REQS

$GDDAT, SBODAT
15$
#4, (SP)
#146.,3(SP)
#2,(5P)
PC.a(SP)+
#10, (5P)

SEXPECT TEST BIT ON

;COMPARE EXPECTED & RECEIVED

;BRANCH IF EQUAL
;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

CLR
$GDDAT
;EXPECT ZEROS
;REPORT ERROR IF RMEC2 NOT RESET
15%:

MOV
BEQ
ADD
movB
SUB
JSR
SUB
NOP

001142

SEQ 0237

:REPORT ERROR IF RMMR2 NOT INITIALIZED

11%:

000000

162716
000240

004736

;REPORT ERROR IF

JSR

b o

013737
042737
012737
023737
001413
062716

Pl
b oF o
o

8000
OO

000000

000010

004736

e —

000004
000145
000002

162716
000240

112776
162716

056542

001362
000046
000010
001140

004736

#4, (SP)

NOP

112776
162716

ADD

SUB
JSR
SUB

8888

013737
042737
012737
023737
001413
062716

$8DpAT

MOVB

000010

(SP)+,R2
(SP)¢+ R1

BEQ

000004
000144
000002
000240

D 3
&=-APR-81 01:15:59 PAGE 34-1

2]
, SBDDAT
RMEC
17%
#6, (SP)
#150.a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

- REPORT ERROR IF RMER2 NOT RESET
17%:

000000

000010
18%:

19%:

MOV
BEQ
ADD
MOVB
SUB
JSR
SUB
NOP

2]
, SBDDAT
RMER
188
#4, (SP)
#147.3(SP)
#2,(5P)
PC.A(SP)+
#10, (5P)

;CHECK RMEC2
;BRANCH IF 0

;MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

s CHECK RMERZ2
;BRANCH IF NO ERROR
;MOVE SP TO ERROR CALL

;WRITE NUMBER OF ERROR IN CALL

JMOVE SP TO RETURN FOR ERROR

sREPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

“ZIM0OBO RMOS/372 FCINL TST 3

DRIVE

MACRO v04.00

(LEAR STATUS (MECK SUBROUTINE

15
116 056542
117 056546

118 056552

119 056554

062716
105776

(00004
000000

062716

000004

162716
000240
000207

000004

001403

120 056560 000402

121 056562
122 056566
123 56570

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

;AUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
#4, (SP)
;MOVF SP TO ERROR (ALL
1STB
a($P)
:WAS AN ERROR DETE(TED??

BEQ

213:
2%8:

218

#4,

SUB
NOP
RTS

#4,(SP) ;MOVE SP BACK TO NO ERROR RETURN

23%
PC

(SP)

iNO!!

ADD

*YES = MOVE SP TO ERROR RE TURN

;RETURN T0 USER

(ZRMOB0 RMQS/3/2 FCTINL TST 3

MACRO Vv04.00

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

.SBTTL

:THE

DATA TRANSFER COMMAND STATUS (HECK SUBROUT INE

ERROR NUMBER IN THE USERS ERROR CALL.

JUSER'S SUBROUTINE CALL:
: (1)

(%)
2 (4)
:(5)

2 (6)

T JE G
Rt

VLSV
WN)
=

SEQ 023%

;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER (OMMANDS
JUSING STATUS STORED IN THE GET BUFFER AND TEST PARAME TERS
JSTORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING

——y

3 OGO NN P AN — OO0 O N IS NN -

DATA TRANSFER (OMMAND STATUS CHECK SUBROUTINE

PC,DTASTS

NOP
ERROR
JSR

PC,a(SP)+

2?2

RETURN HERE
RETURN HERE

IF NO DATA ERRORS
TO REPCOR! AN ERROR

SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE (HECKS
SUB RETURNS HERE AFTER ALL
ERRORS ARE REPORTED

DTASTS:

056572
056572
056576
056602
056606

JSR

062716

105076
162716

005037

;CLEAR USER'S ERROR CALL AND ERROR FLAGS
#4,(SP)
ADD
;MOVE SP TO USER'S ERROR
a(SP)
CLRB
;CLEAR LOW ORDER BYTE OF TRAP
#4, (SP)
SUB
JRESTORE SP TO NO ERROR
CLR
5008
;CLEAR ERROR FLAGS

0C0004
000000
000004
062166

;REPORT ANY CO?TROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS,

27 056612

28 056620

29 056622
30 056630
31 056636
32 056644
33 056650
34 056656
35 056662
36 056664
37 056666

41 056666

42 056674
43 056676

44 056704
45 056706
46 056714
47 056722
48 056730
49 056734

50 056742
51 056750
52 056752
53 056760
56 056764
056766

032737
001422
013737
042737
013737
062716
112776
162716
004736
000466

032737
001435
032737
001031
013737
042737
013737
062716
112776
032737
001003
112776
162716

004736
000425

020000

001336

001336
020000
001336
000004
000013
000002

001140
001140
001142

000000

:1.E.., MCPE
BIT
BEQ
MOV
BIC
MOV
ADD

MOVB
SUB

JSR

10%:

001352

#MCPE ,RMCS1]
108
RMCS11,$GDDAT
, $GDDAT
#MCPE
RMCS11,$BDDAT
24, (SP)

#13,3(SP)
#2,(SP)

PC.a(SP)+

308

“EXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

;REPORT ANY (CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,
;1.E.., PAR = 1 AND DPE = C

001142

BIT
BEC
BIT
BNE
MOV
BIC
MOV

#PAR,RMER1]
208
#DPE ,RMER2]
208
RMER1]
, SGDDAT
#PAR, SGDDAT
RMER11,$BDDAT

000000

MOvB

#50.3(SP)

BNE
MOVR

158
#274,3(SP)

308

001400
001140

001140

ADD

001346
000000

;:s§'ruene A PARITY ERROR”?

BIT

15¢:

SUB
JSR

#4,

(SP)

#MXF ,RMCS2]
#2,(5P)
PC.a(SP)+

;WAS THERE A PARITY ERROR??
.mll

EDegé'PARlTV ERROR ?
TYES!!

*EXPECTED STATUS

;RECEIVED STATUS
JMOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER
:Dég qxr GET SET2?

;YES!!
sNO = (CHANGE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

;LOOK FOR ANY ERRORS WHI(H MAY HAVE OCCURRED DURING COMMAND INITIATION OF

C7RMOBO RMOS5/3/2 FCINL TST 3

MACRO v04.00

DATA TRANSFER (OMMAND STATUS CHECK SUBROUTINE

G 3
4-APR-81 01:15:59 PAGE 35-1

SEQ O

:MECHANICAL POSITIONING

SFIRST TEST MXF WHICH WOULD INDICATE (OMPOSITE ERRCR SET WHEN FUNCTION

€2 056770

20%:

“CODE AND GO BiT WERE LOADED

63 056770

032737

001000

001346

65 057000
66 057006

013737
042737

001346
001000

001140
001740

64 056776

001425

BIT

#MXF ,RM(CS2I

;WAS 'MISSED TRANSFER'® SET??

MOV
BIC

RMCS21,$GDDAT
#MXF ,SGDDAT

:EXPECTED STATUS

JSR

PC.R(SP)+

BEO

67 057014 013737 001346 001142
68 057022 062716 000004
69 057026 112776 000275 0000C0
70 05703 162716 000002
71 057040 004736
30$:
;g 057042

MOV
ADD
MOVB
SUB

408

RMCS21,$8DDAT
#4, (SP)
#275.a(SP)
#2, (SP)

*NO!!

,RECEIVED STATUS
“MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN

:RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING

;g 057052

408 :

:REPORT AN ERROR IF ''OPI'' ERROR OCCURRED PUE TO ‘MOL’‘ = 0, OR IF "DPI""

75 057042 162716 000010
;9 057046 000137 062140

SUB
JMP

:MOVE SP TO NO ERROR
*SKIP TO END OF SUB

"“,",:3 “MOL'* ARE SET, BUT ''WW'' IS RESET, INDICATING AN INTERMITTENT
:l

83 057052
84 057060
85 057062
86 057070
87 057076
88 057104
89 057112
90 057114

032737
001447
013737
042737
013737
032737
001404
032737

020000
001352
020000
001352
010000
000100

92 057124-

062716

000004

91 057122 001013
93 057130

#10, (SP)
380$

112776

000276

9% 057136 162716 000002
95 057142 004736
9% 057144 162716 000010
97 057150 000413

001352
(01140
001140
001142
001350
001350
000000

45%:

LO'

BIT
BEQ
MOV
BIC
MOV
BIT
BEQ
BIT

#OP] ,RMER1]
608
RMER11,8GDDAT
#0P] ,$GDDAT
RMERTI,$BDDAT
#MOL , RMDS |
45%
#VV.RMDS ]

;1S "OPI'' SET??
*NO!!
:EXPECTED STATUS
;RECEIVED STATUS
*WAS MEDIUM OFF LINE??
SYES!!
“WAS "MOL'* INTERMITTENT??

ADD

24, (SP)

*MOVE SP TO USER'S ERROR CALL

SUB
JSR
SUB
B8R

#2,(SP)
PC.R(SP)+
#10, (SP)
608

BNE
MOVB

508

#276.a(SP)

INO'!

*WRITE ERROR NUMBER IN CALL

*MOVE SP TG RETURN IF ERROR
“REPORT ERROR AND RE TURN
‘RESTORE SP TO NO ERROR

33 057152

508 :

100

:REPORT ‘OPI'* ERROR, WHICH IS DUE TO 'ON CYLINDER'' NOT DROPPING OR

101

102 057152

062716

106 057164

162716 000002

103 057156

112776

105 057170

004736

107 057176

000240

106 057172

;% 057200

000004

000277

“"RUN'' TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS)

000000

162716 000010

:MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

‘MOVE SP TO RETURN IF ERROR

- SUB

608 :

111 057200 032737 010000 001400
112 057206 001432
114 057210 013737 001400

#4,(SP)

JSR

110

113

ADD

MOVB

001140

‘ NOP

#277.3(SP)
PC.R(SP)+

#10, (5P)

*WRITE ERROR NUMBER IN CALL
"REPORT ERROR AND RE TURN

"RESTORE SP TO NO ERROR

;LOOK FOR *'IVC'* ERROR DURING COMMAND INITIATION

BIT
BEQ

#1VC,RMER2]
70$

:WAS THERE AN ''IvC'* ERROR??
*NO!!
o

MOV

RMER2],$GDDAT

;EXPECTED STATUS

:REPORT "“IVC** ERROR DUE TO 'VV'' = 0, OR REPORT ERRONEOUS

''IV(''

E&=OM

MACRO v04.00 4-APR-81 01:15:59 PAGE
“7RMOBO RMOS/3/2 FCINL TST 3
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

115 057216
POPONON)
— —a —

116 057226

7 057232
8 057236

el
——

9 057244

0 057252
1 057254
2 057262

124 057270

wgwwwww

nonaN) n
o

e
R

]
Y
T

2
N

2k 2t
D
Y

Iy I

IV IV L

N L L
[

———
i
p—

062716
112776

032737

001403
112776
162716
004736

010000

(001400

001140
000000
001350

00G301

000000

000002

000007

001352

057304
057312
057314
057322
057330
057336
057342
057350
057354
057356
057362
057364

032737
001424
013737
042737
013737
062716

000002

001352

001140
001140
001142

000002
001352
000004
000302
000002

032737
001424
013737
042737
013737
062716

000001

001352

001140
001140
001142

112776
162716
162716

000010

112776
162716

004736
162716
000240

001352
000004
001352
000004
000304
000002

001140
001140
001142

#VV . RMDS |

‘WAS

#300,a(sP)
65%

#301,a(5P)
#2,(5P)

PC.A(SP)+

#1), (SP)

MOV
BIC
MOV
ADD
MOVB
SuB
JSR
SuB
NOP

RMER11,$GDDAT
#ILR,8$GDDAT

RMER11,$8DDAT
#4,(SP)
#302,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

BIT
BEQ
MOV
BIC
MoV

#ILF ,RMER1]

MOVB
SuB
JSR
SuB

#303,a(SP)

ADD

G0$%:

001352

‘MOVE

;REPORT AN ERROR IF "‘ILF'' IS SET

000000

000004

;RECEIVED STATUS

(SP)

SP TO USER'S ERROR

‘WRITE ERROR NUMBER IN CALL
JNO!!

VOLUME

VALID??

*CHANGE ERROR NUMBER
“MOVE SP TO RETURN IF

ERROR

*REPORT “‘IVC'' ERROR AND RE TURN

“RESTORE SP TO NU ERROR

OR "RMR'' IS SET
I¥ “ILF'*
#ILR!ILF!RMR, RMER1]
BIT
100%
;NO ERRORS DETECTED
BEQ
;REPORT AN ERROR IF "'ILR'' IS SET
#ILR,RMER1]
JWAS "'ILR'' DETECTED??
BIT
80%
;JNO!!
BFQ

80%:

000001
001352
000004
000303
000002

SuB
JSR
SuB

RMERZ],$BDDAT

SEE

000000

000010

032737
001424
013737
042737
013737
062716

65%:
70%:

162716
000240

000240

#4,

MOvB
BIT
BEQ
MovB

032737
001510

004736

ADD

000004
000300
000100

057274
057302

004736

#1v(,3GDDAT

MOV

000010

112776
162716

31(

001142

162716

125 057274

042737

013737

35-2

NOP

sREPORT AN ERROR

BIT
BEQ
MOV
BIC

MOV
ADD
MOvB

000000

000010
100%:

SuB
JSR
SUB
NOP

90$
RMER11,$GDDAT
#ILF ,SGDDAT

JEXPECTED STATUS

JRECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL
JMOVE SP TQO RETURN IF ERROR
;REPORT ERROR AND RETURN
;RESTORE SP 7O NO ERROR

:WAS "'ILF'* DETECTED??

*NO!!
:EXPECTED STATUS

RMERT1,$BDDAT
#4, (SP)

:RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

#2.(SP)
PC.R(SP)+
#10, (SP)

*MOVE SP TO RETURN IF ERROR
"REPORT ERORR AND RE TURN
“RESTORE SP TO NO ERROR

*WRITE ERROR NUMBER IN CALL

IF "RMR'' IS SET
#RMR ,RMER1]
;WAS ‘RMR'' DETECTED??
;NO!!
100%
RMER1],$GDDAT
;EXPECTED STATUS
#RMR
, $GDDAT

RMER11,$BDDAT
#4,(SP)
#304,9(SP)
#2,(SP)
PC,a(SP)+
#10, (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
JRESTORE SP TO NO ERROR

;DETERMINE WHETHER OR NOT ‘‘IAE'® SHOULD BE SET AND (HECK FOR ERROR

CRO v04.00 4-APR-81 01:15:59 PAGE
CZRMOBO RM0S5/3/2 FCINL T1ST 3
DATA TRANSFER COMMAND STATUS (HECK SUBROUTINE
0575264
057532
057540
057546

012737
052737
023727
101025

002000
(40000
001446

001140
062166
001466

#1AE ,$GDDAT

sSETUP FOR "'IAE'" =

#Sk1,500%

JRESET SKI

042737

040000

062166

057556

123737

0071421

001335

(MPB

RMDAO+1,LSTRK+1

;GREATER THAN LAST

23727

001420

000035

010000

001444

057606

123727

001420

000037

57616

005037

001140

(MPB
BLOS
BIT
BEQ
CMPB
BHI
CLR

RMDAO, #29.
105%
#FMT16,RMOFO
1108
RMDAO, #31.
1108

;1S SECTOR > 29.
sNO
:18 BIT FORMAT ?
“YES - SECTOR IS
YIS SECTOR > 31,
SYES - SECTOR IS

0 57622

013737

001352

001142

191 C57636

023737

0C1140

001142

193 057646
194 057654
1 95 057656

042737
000412
062716

040000

197 057670
198 057674
199 057676

162716
004736
162716

000002

057564

EIFIRRRARNZB
3

_n‘-;—n_n—a_a_‘—o_.—d..a_ad-a_a
~

6 057550

MOV
BIS
CMP
BHI
BIC

QO -

172
173
174
175

3
35-3

857614

057630

192 057644

196 057662

200 057702

201
202

101016
01410
32737

101002

042737

001004

112776

175777

000004

000305

105%:

001142

000000

000010

203 057702
204 057710
205 057716
206 057726
207 057732
209 057742

032737

040000

062166

000004
000306
000002

000000

-3
2
e
e
= —h

001032
062716
112776
162716
004736
162716
000417

000010

224 060014
225 060022
226 060026
227 060030
228 060034

ADD
MovB

SuB

1108

$GDDAT

sSETUP FOR "'sk]''= 1
;GREATER THAN LAST CYLINDER ?
JYES = CYLINDER IS INVALID

FLAG

JYES = TRACK

TRA(K ?

INVALID

*'IAE'’ SHOULD = 0

?
INVALID FOR 18 BIT MODE

INVALID

RMER11,$BDDAT

;GET RECEIVED STATUS

$GDDAT.SBDDAT

;IS ''IAE'* STATUS 0K??

135£.soos

*IAE OK - SKI SHOULD BE 0

#C 1 AE . $BDDAT

1158

#4,

(SP)

#305,a(SP)
#2,(5P)
PC.R(SP)+

#10, (SP)

INO!!

: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 AN ERROR IF “'SKI'' IS SET AND '‘IAE'' STATUS WAS OK
MOV
BIC
MOV
BIC

BIT
BEQ
BIT
BNE

ADD
MovB
su8
JSR
SuB
BR

RMERZ2] ,$BDDAT

;RECEIVED STATUS

500%,$GDDAT

;EXPECTED STATUS

#SK] ,RMERZ2]

;WAS "'SKI'" SET??

#4,(SP)
#306,3(SP)
#2,(SP)

sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR

#*CSK],$BDDAT
#~(CSK1,8GDDAT

1408
#5K1,500%
1508

PC,a(SP)+
:;8§(SP)

;NO!!
;WAS SKI CAUSED BY IAE = 0??
JYES = DON'T REPORT SKI

sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

140%:

060000

220
221 060000
222 060006
223 060010

BNE
BIC
BR

SuB

1208:

001142
001142
001140
001140
001400

057750
057752
057756
057764
057770
057772
057776

115%:

MOV
BIC
CMP

JSR

001400
137777
062166
137777
040000

001417

110%:

062166

013737
042737
013737
042737
032737

208 057740

BHI

#Sk1,500%
RMDCO,#822.
1108

032737
001413
062716
112776
162716
004736
162716
000240

040000

062166

000004
000307
000002

000000

000010

;REPORT AN ERROR IF SKI = O AND IAE WAS NOT DETECT%Q
:SHOULD SKI BE SET
#SK1,5008
BIT
BEQ
1508
*NO!!
ADD
#4, (SP)
*MOVE SP TO USER'S ERROR CALL

MOVR

#307.a(sP)

sgg

#10, (5P)

SUB
JSR

#2,(SP)
PC.a(SP)+

*WRITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN IF ERROR
‘REPORT ERROR AND RETURN

'RESTORE SP TO NO ERROR

J 3
MACRO V04.00 &4-APR-81 01:15:59 PAGE 35-4
CZRMOBO RMOS5/3/2 FCTNL TST 3
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE
<9 060034
230
231
232 060036
233 060044

150%:

032737
001512

032737
001424
013737
042737
013737
062716

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

001400

000200

001400
001140
001140
001142

112776
162716

001400
000200
001400
000004
000310
000002

162716

000010

004736

246 060124
247 060126
248
249
250 060126
251 060134
252 060136
253 060144
254 060146
255 060154
256 060162
257 060170
258 060174
259 060202
260 060206
261 060210
262 060214
263 060216
264
265
266 060216
267 060224
268 060226
265 060234
270 060242

006200

000240

032737
001430
032737
001424
013737
042737
013737
062716
112776
162716

004736
162716
000240

OR "DVC'' IN ERROR REGISTER #2
;LOOK FOR “'LSC'' OR "LBC''
BIT

BEQ

#LSC!LBC'DVC,RMER2]
1808
;NO ERRORS SET

:REPORT ANY DEVICE FAULT,

#DVC ,RMER2]
1608
, SGDDAT
RMZR21

SIS 'DvC' = 122

MOV

2]
, SBDDAT
RMER

MOVvB

#310,a(SP)

JRECEIVED STATUS
;MOVE SP TO USERS ERROR
;WRITE ERROR NUMBER IN CALL
JMOVE SP TO RETURN IF ERROR

SUB

#10, (SP)

BIC

ADD

000000

SUB
JSR

160%:

I.E., "ove't = 1

BIT
BEQ
MOV

NOP

#4,

(SP)

#2, (SP)
PC.A(SP)+

:REPORT LOSS OF BIT CLOCK,

#LBC ,RMER2]

001350

BIT

#MOL
, RMDS I

001400
002000
001400

001140
001140
001142

MOV

000311
000602

000000

001400

010000

BEQ

170%:

032737
001422
013737
042737
013737
062716
112776
004736
162716
000240

004000

001400

001400
001400

001140
001140
001142

000312

000000

032737
001527

054000

001352

032737
001427
032737
001023

040000

001352

000200

001400

JRESTORE SP TO NO ERROR

I.E.

1708

1708
2]
, SGDDAT
RMER
#LBC, SGDDAT

ADD

#4, (SP)

SUB

000010

JREPORT ERROR AND RETURN

BEQ
MOV
BIC

move
SUB
JSR
NOP

“EXPECTED STATUS

#DVC, SGDDAT

BIT

002000

-NOOO

llsccl

IF 'MOL" = 1

;1S LBC SET??
.hnl !

Evgglgsc ERROR BY MOL = 0
SEXPECTED STATUS

, SBDDAT
RMER2]

;RECEIVED STATUS

#311.a(sP)
#2,(SP)
PC.a(SP)+

;MOVE SP TO RETURN IF ERROR

#10, (SP)

sMOVE SP TO USER'S ERROR (ALL
;WRITE ERROR NUMBER IN CALL
sREPORT ERROR AND RETURN
sRESTORE SP TO NO ERROR

:REPORT LOS OF SYSTEM CLOCK, I.E., '1SC'* =1
218 "18C" = 177
BIT
#LSC,RMER2]
.ml!
180%
BEQ
2]
, $GDDAT
RMER
MOV
‘EXPECTED STATUS
BIC
#LSC, SGDDAT

MOV
ADD
movB

RMER2] , SBDDAT
#4, (SP)
#312.a(sP)

SUB

#10, (SP)

JSR

000010
180%:

NOP

PC,a(SP)+

;RECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;REPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

;LOOK FOR "UNS'* OR 'DTE'’ OR 'WLE'' IN ERROR REGISTER #1
BIT
#UNS ' DTE 'WLE ,RMER1]
:NO BITS SET
BEQ
2208
0
=
'DVC''
IF
ERROR
:REPORT ‘UNS'*
:&S.:UNS“ SET??
#UNS ,RMER1 |
BIT
BEQ
BIT
BNE

1908
#DVC
, RMER2]
190%

SWAS UNS'' CAUSED BY ‘DVC'TM?
!
J¥ES!

MACRO V04.00

(ZRMOBO RMQ5/3/2 FCTNL TST 3
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 060322
287 060330

013737
042737

001352
040000

162716

000002

001140
001140

288 060336 013737 001352 001142
289 060344 062716 000004
290 060350 112776 000313 000000
291 060356

292 060362

004736

300 060406

304 060434
305 060440

162716
004736

RMER11,$GDDAT
#UNS , SGDDAT

;EXPECTED STATUS

SuB

#2,(SP)

;MOVE SP TO RETURN IF ERROR

MOV
ADD
MOV

1908 :

gg’g 060370

032737
001423
013737
042737

MOV
BIC

JSR

293 060364 162716 000010

296
297 060370
298 060376
299 060400

K
3
4&-APR-81 01:15:59 PAGE 35-5

010000

001352

001352
010000

001140
001140

;RECEIVED STATUS
/MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER

PC,a(SP)+

JREPORT ERROR AND RE TURN

#10, (SP)

;REPORT ANY DRIVE TIMING ERROR,
BIT
#DTE ,RMER1]
BEQ
200%
MOV
RMER11,$GDDAT
BIC

301 060414 013737 001352 001142
302 060422 062716 000004
303 060426 112776 000314 000000
000002

306 060442 162716 000010

suB

RMER11,$BDDAT
#4,(SP)
#313,a(5P)

#DTE ,$GDDAT

JRESTORE SP TO NO ERROR
I.E., 'DTE"' = 1
;1S DTE SET??
JNO!!
;EXPECTED STATUS

MOV
ADD
MOvVB

RMER11, $BDDAT
#4,(SP)
#314,a(sP)

;RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL

suB

#10, (SP)

;MOVE SP TO NO ERROR

sus
JSR

#2,(SP)
PC,a(SP)+

;JMOVE SP TO RCTURN IF ERROR
;REPORT ERROR WD RETURN

333; 060446

200%:

309
310

;REPORT AN ERROR IF WRITE LOCK ERROR 1S SET. SEE IF DRIVE iS NOT
JWRITE PROTECTED, OR IF FUNCTION WAS NOT A WRITE

311 060446

312 060454
313 060456
314 060464
315 060472
316 060500

317 060504

032737

001441
013737
013737
052737
062716

004000

001352

001352
001352
004000
000004

001142
001140
001140

032737

004000

001350

320 060522

032737

000010

001412

000316
004000
000002

000000
001140

319 060520

321 060530
322 060532
323 060540
324 060546
325 060552

001404

001406
112776
042737
162716
004736

#MWLE ,RMER1]

MOvVB

#315,a(sP)

BEQ
MOV
MOV
BIS
ADD

112776 000315 000000

318 060512

BIT

2108:

ggg 060554 162716 000010

sNO!!
;RECEIVED STATUS
;EXPECTED STATUS

sMOVE SP TO USERS ERROR CALL

;WRITE ERROR NUMBER IN CALL

#WRL ,RMDS |

;WAS DRIVE WRITE PROTECTED??

BIT

#B173,RMCS10

;WAS COMMAND A WRITE??

BEQ
MOVB
BIC
SuB
JSR

suB

%gg 060560

sWAS “WLE'' SET??

BIT

BEQ

205%:

2208
RMER11,$8DDAT
RMER1]1,$GDDAT
#MILE ,SGDDAT
w4, (SP)
205%

2108
#316,a(SP)
#MWLE
, SGDDAT
#2,(SP)
PC,a(SP)+

#10, (5P)

sNO!!

s¥ES!!
s CHANGE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

220%:

320
331 060560
332 060564
333 060570
334 060572

062716
105776
001404
162716

000004
000000
000004

;OMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED
ADD
#4,(SP)
sMOVE SP TO USER'S ERROR
TSTB
a(SP)
;WAS ERROR DETECTED??
BEQ
225%
;NO = DO DATA CHECKS
SuB
#4,(SP)
;RESTORE SP

g%{; 060602

162716

000004

225%:

335 060576 000137 061600

338

339

340 060606
341 060614

JMP

SUB

3408

#4,(SP)

;SKIP DATA CHECKS
;RESTORE SP

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND

013737
042737

001412

177700

062170

342 060622 022737 000063 062170

;IF HEADER COMPARE IS NOT INHIBITED

MOV
BIC

cMP

RMCS10,510%

#*CFNCMSK, 5108

#uH! GO, 5108

;STRIP AND STORE FUNCTION "TDE

JWAS FUNCTION WRITE HWEADEF o DATA??

SEQ

07244

MACRO V04.00 4=-APR=-81 01:15:59 PAGE 3§-6
L

CZRMOBO RMO5/3/2 FCTINL IST 3
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE
343 060630
344 060632
345 060640

001512
032737
001106

002000

032737
001533

000620

001352

032737
001422
013737
042737
013737
062716

000400

001352

001352
000400
001352
000004
000317
000002

001140
01140
001142

112776
162716

004736

375 061002
376
377
378 061002
379 061010
380 061012
381 061020
382 061026

162716
004736
000453

032737
001453

013737
042737
013737
062716
112776
162716
004736
000425

JREPORT MEADER CRC ERROR

BIT
BEQ
MOV

BIC
MOV
ADD
MOVB
SUB
JSR

230%:
000020

001352

001352
000020
001352

001140
001140
001142

000320
000002

000000

BIC

MOV
ADD
MOVB
:
2408

001352

001352
000200
001352
000004
000321
000002

001140
001140
001142

JYES = S5KIP HEADER (MECKS
JWAS HC] SET??
JYES = SKIP HEADER CHE(CKS

C
, $GDDAT
#HCR
RMER1] , SBDDAT
#4 ., (SP)
#317.a(sP)

#2,(SP)
PC.a(SP)+

2608

#FER,SGDDAT

RMERT1, SBDDAT
#4, (SP)
#320,a(SP)
2608

;WAS HCRC SET??

"EXPECTED STATUS
JRECEIVED STATUS
JMOVE SP TO USERS ERROR
JWRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
;REPORT CRROR AND RETURN

;WAS "FER'' SET??
;NO!!
sEXPECTED STATUS
JRECEIVED STATUS
sMOVE SP TO USERS ERROR
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

;REPORT HEADER COMPARE ERROR IF SET

BIT

sggg.RflER1l

MOV
BIC
MOV

RMER11,8GDDAT
E
, SGDDAT
#HC
RMER11, $BDDAT

SuB
JSR

#2,(SP)
PC,a(SP)+

BEQ

ADD
MOVB

000000

#4, (SP)
#321,a(SP)

2608

:HA§.'HCE“ SET??

:NO:!

;EXPECTED STATUS

sRECEIVED STATUS

“MOVE SP TO USER'S ERROR
*WRITE ERROR NUMBER

“MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;THERE SHOULD BE NO HEADER ERRORS BECAUSE

032737
001425
013737
042737
013737
062716

000620

001352

001140
001140
001142

162716

0000G2

004736

IF SET

#HCRC ,RMER1 |
2308
RMER11, $GDDAT

sREPORT FORMAT ERROR IF SET
BIT
#FER,RMER1]
BEQ
2408
RMER11,$GDDAT
MOV

112776

000200

2508
#HC I, RMOF |
2508

:SEE IF ANY HEADER ERRORS ARE SET, [.E., "FER'' OR "HCRC'' OR "MCE"’
BIT
#HCRC!FER!MCE ,RMERT]
sNO ERRORS SET
2708
BEQ

000000

000501

032737
001422
013737
042737
013737
062716
112776

BEQ
8IT
BNE

001370

001352
000004
000322

000000

2508

.COMMAND WAS WRITE HEADER AND DATA, OR
"HEADER COMPARE INMIBIT WAS SET
BIT
#HCE 'FER'HCRC ,RMERT |
;NO ERRORS WERE SET
2708
BEQ
MOV
RMER11,$GDDAT
;EXPECTED STATUS
#HCE 'FER'HCRC, SGDDAT
BIC
MOV
RMER1],$8DDAT
;RECEIVED STATUS
ADD
#4, (SP)
‘MOVE SP TO USER'S ERROR CALL

MOVB
SUB
JSR

#322,a(SP)
#2,(5P)
PC.R(SP)+

‘WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
‘REPORT ERROR AND RETURN

SEQ 0245

CZRMOBO RMQS5/3/2 FCTINL TST 3

MACRO v04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUT
INE
400 061130

162776

000010

2608:

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

405

:1F COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE

‘DO READ ERROR CHECKS

407 061140 032737 000010 062170
408 061146 001002
409 061150 000137 061366
275%:
2;9 061154
412

413 061154 032737 100000 001352
414 061162 001450
415 061164 013737 001352 001140
416 061172 042737 100000 001140
417 061200 013737 001352 001142
418 061206

062716

000004

423 061236
424 061244
425
426 061246
427 061254
428 061256
429 061262

112776

000324

000000

430 061264
431 061272
432 061276

112776
162716
004736

000325
000002

000000

032737 000100 001352
001007
3
032737 000020 062170
001406
162716 000004
000410

439 061312
440 061314
441 061322
442 061330
443 061336
4h 061342
445 061350
446 061354
447 061356
223 061362

;WAS THIS A WRITE COMMAND?
*NO!!
:GO DO WRITE STATUS CHECK

#DCK ,RMER1]
2908
RMER1]1,$GDDAT
#DCK
, SGDDAT
RMERTI,$BDDAT

;DATA CHECK ERROR??
“NO!!
:EXPECTED STATUS
;RECEIVED STATUS

MOVB
BIT
BNE

#323,a(SP)
#EC1,RMOF |
2808

*WRITE ERROR NUMBER
*WAS ECC CORRECTION DISABLED??
SYES!!

MOVB

#4, (SP)

#324,3(SP)

“MOVE SP TO USER'S ERROR

*CHANGE TO RECOVERABLE ERROR

BIT
#ECH,RMER1]
*1S ERROR RECOVERABLE??
BNE
2768
INO !
:DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND
BIT
#B1T4,5108
;WAS THIS A READ COMMAND 27
BEQ
2808
INO !!
SUB
#4, (SP)
*RESTORE SP
BR
2908
*SKIP ERROR - DATA WILL BE CORRECTED

276%8:
280$:

MOVB
SUB
JSR

SUB

2;2 061304

#BIT13,5108
275%
3108

“OMIT FURTHER DATA (HECKS

BIT
BEQ
MOV
BIC
MOV
ADD

2;2 061300 162716 000010
437
438 061304

BIT
8NE
JMP

:REPORT DATA CHECK If SET

419 061212 112776 000323 000000
420 061220 032737 004000 001370
421 061226 001021
422 061230

3408

:MOVE SP TO NO ERROR

2708 :

406

JMP

#10, (SP)

285 061134 000137 (61600
282 061140

#325,a(SP)
#2.(SP)
PC.a(SP)+

#10, (SP)

*CHANGE TO NON RECOVERABLE
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN

“RESTORE SP TO NO ERROR

2908 :
032737

001423
013737
042737
013737
062716
112776
162716
004736
162716

000137

000400

001346

001346 001140
000400 001140
001346 001142
000004
000326 000000
000002
000010
061600

:REPORT DATA BUS PARITY ERROR iF SET, I.E., MDPE = 1
BIT
#MDPE ,RMCS2]1
:PARITY ERROR SET??

300$:

BEQ
MOV
BIC
MOV
ADD
MOVB
SUB
JSR
SUB
JMP

3008
RMCS21,$GDDAT
#MDPE
, $GDDAT
RMCS21,$BDDAT
#4, (SP)
#326.,a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)
3408

*NO!!
;EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR
*WRITE ERROR NUMBER
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR
*SKIP WRITE STATUS CHECK

229 061366

3108 :

452

:TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF "M = 1

453 061366 032737 000001 001350
454 061374 001423
455 061376 013737 001350 001140
456 061404

042737

000001

001140

BIT
BEQ
MOV
BIC

#0M,RMDS I
320$
RMDSI.$GDDAT
#OM, $GDDAT

SIS OFFSET ON??
*NO
-EXPECTED STATUS

SEQ 0246

MACRO v04.00 4-APR-B1 01:15:59 PAGE 35-8
' CZRMOBO RM05/3/2 FCINL T1ST 3
| DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE
|

457 061412

013737

001350

001142

MOV

459 oeugt.

112776 000327 000000

MOVB

461 061436

004736

458 061420 062716 000004

460 061432 162716 000002
462

061440

zg‘ 061444

162716

000010

3208 :

465

466 061444 032737 000010 007400
467 061452 001423
468 061454 013737 001400 001340

469 061462

470 061470
471 061476

472 061502

0462737

013737
062716

000010

001400
000004

478
479 061522

000010

032737

000040

001142

480 061530 001423
061532 013737 001352 001140
t.ai 1540 04§737 000040 001140
1546
061554

013737
065716

001352
000004

4
0615
487 061572
488 061574

162716
004736
162716

000002

000010

832737
001423
013737
oagr 7
&2737
716
115776
162716

100000
001346
100000
001346
000004
000332
000002

485 061560 112776 000331

238 061600
491

49 821600
493
061606
49 061610
061616
495
4
16;4
497
061632
498 831636
499 061644
200

01
soi

1653

004736

506 061

013746
042716
022726

_ gor 061672 001522

000000

001346
001140
001140
001142

3508 :

MOVE SP TO NO ERROR

#DPE ,RMER2]
3308
RMER2I,$GDDAT

:DATA PARITY ERROR??
*NO!!
-EXPECTED STATUS

MOV
ADD

RMERZ2I ,$BDDAT
#4,(SP)

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

*MOVE SP TO RETURN IF ERROR

JSR
SuB

, SGDDAT
#DPE

#330.a(SP)
PC,a(SP)+
#10, (SP)

*WRITE ERROR NUMBER

;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

3408
MICF , SGDDAT

*NO!!

#331.3(SP)

*WRITE ERROR NUMBER

RMER11,$GDDAT

;EXPECTED STATUS

MOV
ADD

RMER11,$BDDAT
#4,(SP)

JRECEIVED STATUS
;MOVE SP TO USERS ERROR CALL

SuB
JSR
SuB

#2,(SP)
PC.a(SP)+
#10, (SP)

;MOVE SP TO RETURN IF ERROR
;REPORT ERRCR AND RETURN
;MOVE SP TO NO ERROR

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
SUB
JSR
sUB

#DLT,RMCS21
3508
RMCS21,$GDDAT
#DLT, SGDDAT
RMCS21,$BDDAT
#4, (SP)
#332,3(SP)
#2,(5P)

;1S 'DLT' SET??
INO!!
-EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USERS ERROR CALL
“WRITE ERROR NUMBER
“MOVE SP TO RETURN IF ERROR

#10, (SP)

*MOVE SP TO NO ERROR

PC,a(SP)+

:REPORT ERROR AND RETURN

1LLOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS
MOV
RMDSI ,-(SP)
:STACK DRIVE STATUS
BIC
#~C<PIP'MOL!VV>,(SP) :CLEAR DONT CARES

001350
147¢77
010100

BEQ

§11 061674 032737 020000 001350
§12 061202 001430
.
.
040000

;REPORT ERROR AND RETURN

;REPORT "DATA LATE'' ERROR IF ‘DLT'' =1

000000

510

032737

*MOVE SP TO RETURN IF ERROR

BIT
BEC
MOV

MOVB

3408

383

§13 061704

#10, (SP)

BEQ
MOV
BIC

001142

061652 162716 000010
1656

§0
gO‘ 061656
05 061662

SuB

PC,a(SP)+

*MOVE SP TO USER'S ERROR CALL

:TEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF "WCF'' =1
BIT
#WCF ,RMER11]
;IS "WCF'* SET??

481
4
4

*WRITE ERROR NUMBER IN CALL

#2.(SP)

MOvB

3308 :

001352

#327.a(SP)

SUB

BIC

001140

112776 000330 000000

004736
162716

sRECEIVED STATUS

24, (SP)

:TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF 'DPE'' = 1

473 061510 162716 000002

474 061514
475 061516
2;9 061522

RMDSI ,SBDDAT

ADD

JSR

SEQ 0247

001400

#MOL 'VV, (SP)+

3808

;IS DRIVE STATUS 0K??

TYES!!

;REPORT ERROR IF POSiTIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR,
“1.E. PIP = 1 AND SKI = 0

BIT
BEQ
B:T

#P1P,RMDS]
3608

#SK],RMERZ2!

SIS ‘PIP"* SET??
IND:!

sWAS *SK]'° ERROR REPORTED??

CZRMOBO RMOS/3/2 FCTNL TST 3

MACRO v04.00

DATA TRANSFER COMMAND STATUS (HECK SUBROUTINE

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

SEQ 024%

514 061712
§15 061714
516 061722
§17 061730

001024
013737 (01350 001140
042737 020000 001140
013737 001350 001142

BNE
MOV
BIC
MOV

3608
RMDSI,S$GDDAT
#P1P, $GDDAT
RMDS] ,$BDDAT

:YES=DONT REPORT PIP
:EXPECTED STATUS
;RECEIVED STATUS

519 061742

112776

MOVB

#333,a(sP)

“WRITE ERROR NUMBER

518 061736

062716

000004

ADD

000333 000900

520 061750 162716 000002
521 061754

004736

523 061762

000240

502 061756

25‘5’ 061764

JSR

162716 000010
3608 :

*MOVE SP TO RETURN If ERROR
*REPORT ERROR AND RE TURN

#10. (SP)

NOP

*MOVE SP TO USERS ERROR (ALL

*MOVE SP TO NO ERROR

:REPORT ERROR IF MEDIUM IS NOT ON LINE AND OPI ERROR WAS NOT

557

§28 061764 032737 010000 001350
506 061772 001027

§30 061774
531 (062002
§32 062006
533 062012
5§34 062020

032737 020000 001352
001023
013737 001350 001140
052737 010000 001140
013737 001350 001142

536 062032
537 062040

112776 000334
162716 000002

538 062044

#2,(5P)

PC.a(SP)+

sus

526

535 062026

SUB

#4, (SP)

062716

000004

:REPORTED,

BIT
BNE

000000

004736

1.E.,

BIT
BNE
MOV
BIS
MOV
ADD
MOVB
SUB
JSR
suB

MOL

= OPI

#MOL , RMDS |
3708

= 0

#OP] ,RMER1]
3708
RMDSI,$GDDAT
#MOL
, $GDDAT
RMDS],$BDDAT
#4, (SP)

#3%4.a(sP)
#2.(SP)
PC.a(SP)+

“WAS OP1 ERROR REPORTED??
SYES!!
:EXPECTED STATUS
:RECEIVED STATUS
*MOVE SP TO USER'S ERROR

*WRITE “RROR NUMBER
*MOVE <P TO RETURN IF EKROR
*REPORT ERROR AND RETURN

539 062046 162716 000010
552? 062052

370$:

542

:REPORT ERROR IF VOLUME IS NOT VALID AND '‘IVC'’ ERROR WAS NOT

543
544 062052
545 062060
546 062062
547 062070
548 062072
549 062100
§50 062106
551 062114

032737
001027
032737
001033
013737
052737
013737
062716

553 062126

162716 000002

552 062120
554 062132
555 062134

ggg 062140

112776

004736
162716

000100
010000
001350
000100
001350
000004
000335

000010

558

559 062140 062716 000004
560 062144
561 062150
562 062152

105776
001403
062716

000004

§2’§ 062160

162716

000004

2267 062164

000207

568 062166
569 062170

000000
000000

563 062156 000402

001350
001400
001140
001140
001142
000000

#10, (SP)

;1S MEDIUM ON LINE??
SYES!!

*REPORTED, 1.E., W = IVC = 0
BIT
#VV ,RMDS |
BNE
3808
BIT
#1VC ,RMER2]
BNE
3908
MOV
RMDSI,$GDDAT
BIS
#VV,S$GDDAT
MOV
RMDS],$BDDAT
ADD
#4, (SP)
MOVB

#335,a(sP)

JSR

PC.a(SP)+
#10, (SP)

SUB

3808 :

#2.(SP)

*MOVE SP TO NO ERROR

;1S VOLUME VALID??
SYES!!
*WAS IVC ERROR REPORTED??
SYES!!
;EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
“MOVE SP TO NO ERROR

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND

ADD

000000

TSiB
BEQ
ADD

3908:

#4, (SP)
@(SP)
3908
#,, (SP)

4008

:MOVE SP TO ERROR CALL

*ANY ERROR??
NO!!
*YES - MOVE SP TO ERROR RETURN

SUB

#4,(SP)

:MOVC SP TO NO ERROR RETURN

400%:

RTS

;RETURN TO USER

500$:
510$:

.WORD
.WORD

:ERROR FLAGS
*TEMPORARY STORAGE

CZRMOBO RMOS/3/72 FCINL TST 3

MACRO v04.00

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

STATIC DRIVE STATUS (HE(CK SUBROUTINE

.SBTTL

sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE

;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE

“

STATIC DRIVE STATUS CHECK SUBROUTINE

;STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID,

€7>

THE SUBROUTINE

;SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

sTHE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS &RRORS

11
12
13

.MOL = O, INDICATES DRIVE WENT OFFLINE, NOTE
YHAT MOL IS _ASSUMED TO HAVE BEEN SET
:
. INDICATES THE DRIVE LOST VOLUME VALID

;(7!

;IF

14
15

:
:

TRUE:

PIP = 1,
.SKI = 1.

INDICATES THAT THE DRIVE IS OFF CYLINDER
INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR

.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT

sTHE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

21
22
23

062716
105076
162716

000004
000000
000004

013746

001350

36 062216

022726

010100

39
40 062224

032737

010000

001350

42 062234

032737

020000

001352

001350

gg 062222

41 062232
43 062242
44 062244

45 062252

042716

001524

001030

001024
013737

052737

46 062260

013737

48 062272

112776

47 062266

062716

49 062300
50 062304

162716
004736

52 062312

000240

51 062306

22 062314

55
56 062314

57 062322

JSR

PC.a(SP)+

£ £

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SuB

GO BACK TO SUB FOR MORE ERROR (HECKS

RETURN HERE IF NO MORE ERRORS

;CLEAR USER'S ERROR CALL

30 062172
31 062176
32 062202
33
34 062206

35 062212

PC,STCDRVSTS

BR
NOP
ERROR

STCDRVSTS:

gg 062172
29

JSR

:
:
:

162716

032737
001030

ADD
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
CLRB
a(SP)
;CLEAR ERROR NUMBER
sus
¥4, (SP)
:MOVE SP BACK TO NO ERROR RETURN
SSEE IF "MOL'" = "WW'' =1, AND 'PIP" = 0
MOov
RMDSI ,-(SP)
;PUT DRIVE STATUS ON STACK

147677

010000

000004

BIC

cMP

BEQ

308

;ARE MOL.VV AND PIP 0.K.2?

VSt

;REPORT AN ERROR IF MOL = O AND 'OPI'' = 0
BIT
#MOL ,RMDS |
;IS MOL ON 2?

BNE

108

VES"

001140

BNE
MOV

108
RMDSI,$GDDAT

YES-DWT REPORT ‘MOL""
:EXPECTED STATUS

001142

MOV

RMDS ], SBDDAT

;RECEIVED STATUS

MOvVB

#207,3(SP)

;WRITE ERROR NUMBER IN CALL

BIT

001140

BIS

ADD

000207 000000
000002

SuB
JSR

000010

SuB

108:
000100

#~C<PIP!MOL
!VV>, (SP)

#MOL !VV,(SP)+

001350

NOP

#0P] ,RMER1]

#MOL
, SGDDAT

#4,(SP)

#2, (SP)
PC,a(SP)+

#10, (5P)

‘OPI"" SET??

= 0

:MOVE SP TO USER'S ERROR CALL

sMOVE SP TO RETURN FOr ERROR
;REPORT ERROR VIA USER

sMOVE SP BACK TO NO ERROR RETURN

;REPORT AN ERROR IF VOLUME VALID IS NOW ZERQ AND "‘IV('' = 0
BIT
#VV ,RMDSI
IS 'W = 0”2
BNE

20%

NO!!

(ZRMOBO RMOS5/3/2 FCTNL TST 3

STATIC DRIVE

MACRO v04.00

STATUS (HECK SUBROUTINE

58 062324
59 062332
60 06233&
61 062342
62 062350
63 062356
64 062362

72 0626404
73 062412
74 062414
75 062422
76 062424
77 062432
78 062440
79 062446

80 062452

BIT
BNE
MOV
8IS
MOV

#1VC,RMER2]
208
RMDSI,$GDDAT
#VV,RMDS|
RMDS1,$BDDAT

;WAS “'IVC'* SET??
*YES=DONT REFORT 'WV'' = 0
:EXPECTED STATUS
;RECEIVED STATUS

000000

SUB
JSR
SUB

#2,(5P)
PC,a(SP)+
#13, (5P)

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

062716
112776

000004
000210

032737
001430
032737
001024
013737
042737
013737
062716
112776

000211

000000

408 :

100 062544

112776

000004

000212

101 062552 162716 000002
102 062556 004736
102 062560 162716 000I10
104 062564

000240

107
108 062566
109 062574

032737
001424

040000

111 062604

042737

040000

113 062620

062716

000004

}82 062566

SUB
JSR
suB

#2,(5P)
PC.R(SP)+
#10, (SP)

NOP

MOV

137577

032737 000200 001400
001424
013737 001400 001140
042737 000200 001140
013737 001400 001142
062716

#PIP,RMDS I
308
#SK1,RMER2]
308
RMDSI,SGDDAT
#P1P,$GDDAT
RMDST ,$BDDAT
#4, (SP)

BIC
BEQ

MOVB

#212.a(SP)

SUB
SUB

NOP

MOV

#2,(5P)
PC.a(SP)+
#10, (SP)

RMER2]1,$GDDAT

BIC

#SK1,SGDDAT

ADD

#4, (SP)

MOV

114 062624

movB

000000

#4, (SP)

:REPORT AN ERROR IF "'SKI'' = 1
BIT
#SK1,RMER2]
BEQ
608

112 062612 013737 001400 001142
000213

RMER2],-(SP)

#DVC . RMER21]
508
RMER21,$GDDAT
#DVC, SGDDAT
RMER2],$BDDAT

ADD

508 :

001140

‘MOVE SP BACK TO NO ERROR

;1S DRIVE OFF CYLINDER??
‘NO!!
“WAS ''SKI'’ SET??
*YES=DONT REPORT ‘PIP'* = 1
:EXPECTED STATUS
:RECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER’S CALL
;JMOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

:PUT ERROR REG 2 ON STACK

#°C<SKTIDVC>,
(SP)+
608
:BRANCH IF NO ERROR

BIT
BEQ
MOV
BIC
MOV

JSR

001400

JMOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER IN CALL

:REPORT AN ERROR IF THERE IS A DEVICE FAULT

000000

110 062576 013737 001400 001140
112776

#211.a(sP)

sSEE IF "'SKI' = 'DVC'' = 0

9% 062506
95 062514
9 062516
97 062524
98 062532

99 062540

BIT
BEQ
BIT
BNE
MOV
BIC
MOV
ADD

move

308 :

88 062474 013746 001400

35 062506

NOP

#4, (SP)
#210.a(5P)

:REPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ‘‘SKI'' = 0

001350 001140
020000 001140
001350 001142
000004

042726
001460

ADD
MOVB

208 :

020000 001350
040000 001400

81 062460 162716 000002
82 062464 004736
83 062466 162716 000010
84 062472 000240
gg 062474
89 062500
90 062504

032737 010000 001400
001024
013737 001350 001140
052737 000100 001350
013737 001350 001142

65 062370 162716 000002
66 062374 004736
67 062376 162716 000010
68 062402 000240
gg 062404
71

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

RMERS],$BDDAT
#213.a(sP)

;ANY DEVICE FAULT??
*NO!!
:EXPECTED STATUS
;RECEIVED STATUS

*MOVE SP TO USER'S CALL
sWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR

;!IM(SJ'IHERE A SEEK INCOMPLETE ERROR
*NO!!

:EXPECTED STATUS

:RECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN USER'S ERROR CALL

CZRMOBO RMOS5/3/2 FCTINL TST 3

STATIC DRIVE

STATUS (HECK SUBROUTINE

115 062632

162716

000002

162716

000010

116 062636

004736

118 062644

000240

121
122 062646
123 062652

062716
105776

000004
000000

125 062660

062716

000004

162716 000004

117 062640

} 58 062646

062664

2
3

IRW

124 062656

126

MACRO v04.00

062672
062674

001403

000402
000240
000207

SUB

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

SuB

#10, (SP)

*MOVE SP BACK TO NO ERROR

JSR

608 :

4-APR-B1 01:15:59 PAGE 36-2

NOP

PC.R(SP)+

‘REPORT ERROR VIA USER

SEQ

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR CALL
ISTB
a(SP)
*WAS AN ERROR DETECTED??

BEQ

708 :

80%:

70%

‘NO!!

ADD

#4, (SP)

SuR

#4, (SP)

:NO - MOVE SP TO NO ERROR RE TURN

JRETURN TO USER

NOP
RTS

80%

*VES = MOVE SP TO USER'S ERROR RE TURN

0251

CZRMOBO RMOS/3/2 FCTINL 1ST 3

SAVE

AND RESTORE RO=-RS ROUTINES

MACRD v04.00

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

.SBTTL

SAVE AND RESTORE RO-RS5 ROUTINES

.'""".'.."..'.."..""'.'.'............"...'..'....'."..."'

:*SAVE RO=-RS

;«CALL:
3%

SAVREG

;*UPON RETURN FROM $SAVREG THE STA(K WILL LOOK LIKE:
- "

LeTOP===(+16)
;* #2===(+18)
;* +4===RS

+b===R4

;% +8---R3
s *+10--<R2

fe+12===R1
Pe414===RO

062676

062676
062700
062702

010046
010746
010246

062706

010446

062706

062710

062712
062716
062722
062726
062732

$SAVREG:

010346
010546
(016646
016646
016646
016646
000002

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

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK

MOV

R4 ,-(SP)

2 :PUSH R4 ON STACK

MOV
000022
000022
000022
000022

MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV
RTI

R3,-(SP)

R5,=(SP)

22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

;:PUSH R3 ON STACK

;:PUSH R5 ON STACK
;:SAVE
;2SAVE
. :SAVE
;:SAVE

PS
PC
PS
PC

OF
OF
OF
OF

MAIN FLOW
MAIN FLOW
CALL
CALL

:*RESTORE RO-RS

062734

062734
062740
062744
062750
062754

012666
012666
012666
012666
012605

062760
062762
062764
062766

012603
012602
012601
012600

062756

062770

012604

000002

000022
000022
000022
000022

.*CALL:
RESREG
it
$RESREG:

MOV
MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(5P)
(SP)+,22(SP)
(SP)+,R5

:2RESTORE PC OF CALL
;sRESTORE PS OF CALL
;JRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
;:POP STACK INTO RS

MOV
MOV
MOV
MOV

(SP)+,R3
(SP)+,R2
{SP)+ R1
(SP)+ RO

;;POP
;;POP
;:POP
;:POP

MOV

RTI

(SP)+ R4

;.POP STACK INTO Ré

STACK
STA(CK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

2 FCTNL

AND

TYPE

ROUTINE

MACKD v04.00
.SBTTL
e

4-APR-B1 01:15:59 PAGE

it 2

BINARY TO ASCII AND TYPE ROUTINE
iRl

S*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 16=-B]T

;*BINARY=ASCI] NUMBER AND TYPE IT.

062772
062774
063002
063010
063012
063014

063020
063024
063026
063030
063032
063042
063044

010146

016601
000261

000006

112737

000060

105537

063044
063044

006101
001406
104401

000241
000765
012601
016666
012616
000002
000

00002
000

063044

000004

s+(CALL:
o
MOV
i*
TYPBN

NUMBER,=(SP)

;sNUMBER TO BE TYPED
337vPg 7

$TYPBN:

R1,=(SP)

;:SAVE R1 ON THE STACK
;:GET THE INPUT NUMBER

1%:

2%:

$BIN:

MOV
MOV
SEC

MOVB
ROL

BEQ
ADCB
TYPE
cLc
BR
MOV
MOV
MOV
RT]

BYTE

6(SP) ,R1

c;O.SBXN
R

;sSET ''C"" SO CAN KEEP TRACK OF THE NUMBER Of BITS
;;SET CHARACTER TO AN ASCII "0

2%
$3IN
.$BIN

J:GET THIS BIT
; ;DONE?
;:NO==SET THE CHARACTER EQUAL TO THIS BIT
;:G0 TYPE THIS BIT

1%
+ ,R1
(SP)

::POP THE STACK INTO R1

2(SP) ,4(SP)
(SP)+,(SP)

;:CLEAR ''C'" SO CAN KEEP TRA(CK OF BITS
;:G0 DO THE NEXT BIT
;3ADJUST THE STACK

;;RETURN TO USER
;;STORAGE FOR ASCII CHAR. AND TERMINATOR

15T 3
IMAL AND

MACRD v04.00

TYPE ROUTINE

4-APR-E1 01:15:59 PAGE 39

.SBTTL

(ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2oCHER YRR

RAARARRARNNAAR

:*THIS ROUTINE

AN RN

AN AARAARAAARARRAAR

RSN

RRR AR

IS USED TO CHANGE A 16=BI1T BINARY NUMBER TO A 5-DIGIT

"SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THF
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN wWILL BE

TYPED

:«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:*REPLACED WITH SPACES.
s«CALL:
,
= (SP)
NUM
MOV
;sPUT THE BINARY NUMBER ON THE STA(kK
‘e
TYPDS
;:GO TO THE ROUTINE
$TYPDS:

010046
010146

010246
010346
010546
012746
016605
100004

005405

112766

005000
012703
112723
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%:

063252

3%:

4%:

5%:

000001
000060
000040

17T

012605
012603
012602
012601

6%:
7%:

8%:

177777

177776

G%:

RO,=(SP)
R1,=(SP)
R2.,=-(SP)
R3,=(SP)
RS5,=(SP)
#20200,-(SP)
20(SP) ,RS
1%
R5
#'-,1(SP)

#$DBLK ,R3

# ,(RY+

R2
$DTBL (RO) ,R1
R1,RS
48

BNE
TSTRB
BM]
ASLB
BCC
MOVB
BIS
BIS
MOVB

CMP
BLT
BGJ
MOV
BR

1STB

BPL
MOVB
CLRB
MOV
MOV
MOV
MOV

;:sPUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
;;PUSH R3 ON STACK
::PUSH R5 ON STACK
;2SET BLANK SWITCH AND SIGN

;sGET THE INPUT NUMBER
;.:BR IF INPUT IS POS.
; sMAKE THE BINARY NUMBER POS.
;JMAKE THE ASCI] NUMBER NEG.
;:ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;2GET THE CONSTANT
,,FORH THIS BCD DIGIT

:BR IF DONE

..INCREASE THE BCD DIGIT BY 1

;;ADD BACK THE CONSTANT
;;CHECK IF BCD DIGIT=
::FALL THROUGH IF 0
;:STILL DOING LEADING 0°S?
::BR IF YES

TST

000010

105726

100003
116663
105013

1%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
8PL
NEG
MOVB
CLR
MOV
MOVB
CLR
MOV
SUB
BLT
INC
BR
ADD

;:MSD?

1(SP) ,=1(R3)
#'0,R2
#' ,R2
R2,(R3)+
(RO)+
RO,#10

;:BR IF NO

::YES=-=SET

THE

SIGN

::MAKE THE BCD DIGIT ASCII
;MAKE

IT A SPACE IF NOT ALREADY A DIGIT

..PU1 THIS CHARACTER IN THE QUTPUT BUFFER
;2 JUST INCREMENTING
;sCHECK THE TABLE INDEX
;:GO DO THE NEXT DIGIT
;:G0 TO EXIT
::GET THE LSD

::G0 CHANGE TO ASCII

9
=1(SP) ,=2(R3)
(R3)
(SP)+ ,RS

(SP)+ ,R3
(SP)+ ,R2
(SP)+,R1

:;WAS THE LSD THE FIRST NON-ZERQ?
--BR IF NO
;YES==SET THE SIGN FOR TYPING

..SET THE TERMINATOR

..POP STACK INTO RS

;POP STACK INTO R3
,,POP STACK INTO R2
:POP STACK INTO R

MACRO v04.00
“ZRMOBO RMOS/3/2 FCINL TST 3
CCNVERT BINARY TO DECIMAL AND TYPE ROUTINE
063232
063234
063240
063246
063250
063252
063254
063256
063260
063262

012600
104401
016666
012616
000002
023420
001750
000144
000012

(63262
000002

MOV
TYPE

MOV

000004

:?Y
$DTBRL:

$DBLK :

4-APR-B1 01:15:99 PAGE 39-1
(SP)+,RO
$DBLK

2(SP) ,4(SP)
(SF)+. (SP)

100090.
1000.
100.

10.
BlkW

::POP STACK INTO RO
JINOW TYPE THF NUMBER

LIADJUST THE STACK
;:RETURN 10 USER

CZRMOBO RMQS5/3/72 FCINL
TO OCTAL

(ASCID)

AND TYPE

MACRO v04.00

4-APR=-81

&
J
01:15:59 PAGE 40

.SRTTL

BINARY TO OCTAL

L L
TR T

;*THIS ROUTINE

(ASCII) AND TYPE

IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT

;s*0OCTAL (ASCI1) NUMBER AND TYPE IT.
;*$TYPOS-=-=ENTER HERE

s=CALL:

o
e

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE

MOV

(SP)
NU=M,

BYTE

N
M

TYPOS

.BYTE

;sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

JiN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;iM=1 OR 0

;;1=IVPE LEADING ZEROS

.‘.

;0=SUPPRESS LEADING ZEROS

."
'

:*$TYPON-==-ENTER HERE
:*$TYPOS OR $TYPOC

:'CALL:
.
MOV

TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

,
= (SP)
NUM

:sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

L e8TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
e
063272
063276
063304
063310
063314
063316
063324
063332

017646
116637
112637

000000
000001
063517
000602

112737
112737
112737
010346
010446

000001

113704

063517

110437
113704

000006
063516
063515
000012

062716

010546

005404
062704

016605
005003
006105
000404
006105
006105
006105
010503
006103

105337
100016

042703
001002
005704
001403
005204

000005

063515

063515
063517
063514

$TYPOS: MOV
MOVB
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB
MoV
MOV
MOV
MOVB
NEG
ADD
MOvVB
MOVB
MOV
(LR
1%:

2%:

063516

TYPOC

3%:

177770

4%:

= (SP)
NUM,

;:NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

a@(SP) ,=(SP)
1(SP),SOFILL
(SP) +,$OMODE +1
#2,(SP)
$TYPON
#1,S0FILL

;:PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

::SAVE R3

;:SAVE R4

;2SAVE RS
;2GET THE NUMBER OF DIGITS TO TYPE

SOFILL, RL

;:SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
J:GET THE ZERO FILL SWITCH ;:PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

..ROTATE MSB INTO ''C**

ROL

GO DO MSB

BR
ROL

..rORn THIS DIGIT

ROL
ROL

MOV

;;GET LSB OF THIS DIGIT
::TYPEFTHIS DIGIT?

ROL

DECB
BPL
BIC
BNE

;sSET THE ZERO FILL SWITCH
;sSET FOR SIX(6) DIGITS
;2SET THE ITERATION COUNT

.*CALL:
S*
MOV

BINARY

TST 3

;:GET RID OF JUNK

TST

#177770,R3
4%
R4

INC

;:DON'T SUPPRESS ANYMORE Q'S

BEQ

::TES! FOR 0

;SUPPRESS THIS 0?

::BR IF YES

CZRMOBO RMO5/3/2 FCTNL TST 3
TO OCTAL

(ASCID)

AND TYPE

063436
063442
063446
063452
063456
063462
063464
063466
063470
063472
063474
063476

052703
052703

000060

063500
063506
063510
063512
063513
063514

063515
G63516

110337
104401
105337

0033247
002402
005204
000744
012605

012604
012603
016666
012616
000002
000
000
000
000
000000

c:o RS

5%:

000040
063512
063512
063514

R3 és
13
ioc~r
[}

7%:

2%
o$
R

(S2)+,RS
(SP) +.R&

6%:

000002

(SP)+,R3

000004
8%:
$OCNT:

4-APR=-81 01:15:59 PAGE 40~-1

$OFILL:

RTI

.BYTE
.BYTE

.BYTE
$OMODE: .WORD

2(SP)
.4 (5P)
(SP)+, (SP)
[elelelele)

BINARY

MACRO v04.00

;iMAKE THIS DIGIT ASCII
; sMAKE ASCI1 IF NOT ALREADY

;:SAVE FOR TYPING
;:GO TYPE THIS DIGIT
;:COUNT BY 1
;:BR IF MORE TO DO

$iBR _IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT

; sRESTORE R5
s ;RESTORE R4

; JRESTORE R3

;:SET THE STACK FOR RETURNING
; sRETURN
;3STORAGE FOR ASCII DIGIT

;s TERMINATOR FOR TYPE ROUT INE

;;0CTAL DIGIT COUNTER
;sZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

SEQ 0257

CZRMOBQ RM05/3/2 FCINL TST 3
TYPE

ROUTINE

MACRO v04.00
.SBTTL
AR

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

ARE

SEQ 0258

TYPE ROUTINE
R

RRRl

'ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
*«THE ROUTINE WILL

TNOTE1:
T*NOTE2:
-Norex

INSERT A NUMBER OF NULL

CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.,
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

feCALL:

-1) USING A TRAP INSTRUCTION
ta

TTPE

,ME SADR

;;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

TSTB

STPFLG

::1S THERE A TERMINAL?

CMPB

WAPTENV,SENV

::RUNNING IN APT MODE

TYPE

ME SADR

063520

105737

001173

063524
063526
063530
063532
063534

100002
000000
000430
010046
017600 000002

063546
063550
063556
063560
063564

001011
132737 000100
001405
010037 063570
004737 070166

063540

063570
063572

063600
063602
063604
063606
063610
063612
063616
063620

122737

000000
132737

000001

000040

001003
112046
001005
005726
012600
062716 000002
000002
122716

063624 001430

063626
63632

122716
001006

063636
063640
063642

104401
001217
105037

063650
063654
063660

004737
123726
001350

18:
.001242
001243

001243

000200

61$:
628

2s:
60$:
3$:

000011

063634 005726

063646 000755

STYPE:

4$:

063662 013746 001170
063666
063672

105366
002770

000001

063700

105337

064050

063674
063704

004737
000779

063732

7$:

::BR IF YES
::HALT HERE IF NO TERMINAL
: LEAVE
: :SAVE RO
::GET ADDRESS OF ASCIZ STRING

628
*:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL,SENVM ;;SPOOL MESSAGE TO APT
62%
:iNO,GO CHECK FOR CONSOLE
RO,61%
: :SETUP MESSAGE ADDRESS FOR APT
PC,SATY3
::SPOOL MESSAGE TO APT

BNE
MOVB
BNE
ST
MOV
ADD

608
(RO)+,~(SP)
48
(SP)+
(SP)+,RO
#2,(SP)

.WORD
BITB

RTI
CMPB

BEQ

5%
6%:

18
33
RO,=(SP)
@2(SP) ,RO

BNE
BITB
BEQ
MOV
JSR

(MPB
BNE

064050
063732
001172

BPL
HALT
BR
MOV
MOV

0
WAPTCSUP,SENVM

: IMESSAGE ADDRESS
;:APT CONSOLE SUPPRESSED

#HT,(SP)

: :RETURN
: :BRANCH IF <HT>

#CRLF,(SP)
5%

::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
$:BR IF IT ISN'T THE' TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
*RESTORE RO
+:ADJUST RETURN PC
; ;BRANCH IF NOT <CRLF>

TYPE
$CRLF
CLRB

(SP)+

;:POP <CR><LF> EQUIV

SCHARCNT

:;CLEAR CHARACTER COUNT

JSR
CMPB
BNE

PC,STYPEC
SFILLC,(SP)+
2%

1:G0 TYPE THIS CHARACTER
::IS IT TIME FOR FILLER CHARS.?
s+1F NO GO GET NEXT CHAR.

MOV

$NULL ,=(SP)

DECB
BLT

1(SP)
63

DECB

$CHARCNT

JSR

PC,STYPEC
7$

$:TYPE A CR AND LF

*iGET NEXT CHARACTER

$:GET # OF FILLER CHARS. NEEDED

[IAND THE NULL CHAR.
;iDOES
A NULL NEED {0 BE TYPED?
‘BR IF NO=-GO POP THE NULL OFF OF STACK
1160 0 TYPE A NULL
::D 0 NOT COUNT AS A COUNT
::LOOP

CZRMOBO RMOS/3/2 FCTNL

TYPE

ROUTINE

ST 3

MACRO V04.00

JHORIZONTAL

000040
063732
000007

8s:

064050

9% :

$TYPEC:

115222

001366

101%:

115176

1STB

10%:

115154
115146

000002

064050

000002

18:

PC,$TYPEC

98
(SP)+
2%

@$TKS

108
a$TKB, = (SP)

;;REPLACE TAB WITH SPACE
;s TYPE A SPACE
;:BRANCH IF NOT AT
;:TAB STOP

;:POP SPACE OFF STACK

J2GET NEXT CHARACTER

;:CHAR IN KYBD BUFFER?
J:BR IF NOT

BIC

#177600, (SP)

BNE

1028

;:GET CHAR
;:STRIP EXTRANEOUS BITS
s :WAS CHAR XOFF
;:BR IF NOT

@$TKS

;;WAIT FOR CHAR

TSTB

#SXOFF , (SP)

101%

@$TKB, (SP)

#177600, (SP)

;:GET CHAR

;:STRIP IT

101%

JsWAS IT XON?
;:BR IF NOT

(SP)+

;:FIX STACK

TSTB

@$TPS

;sWAIT UNTIL PRINTER IS READY

2(SP),asTPB

;;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT

CMPB

102%:

000012

#7.$CHARCNT

BIC

000021

000002
000015

BITB

BNE
ST
B8R

MOVE

115172

005726
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

JSR

8PL

177600

,(SP)

MOVB

CMPB

000023
105777
100375
117716
042716
122716

TAB PROCESSOR

BPL
MOV

115216
177600

&4-APR=81 01:15:59 PAGE 4 1e 1

BNE

BPL
MOVB
(MPB
BNE
CLRB
B8R
CMPB
BEQ

INCB
$CHARCNT: .WORD
$TYPEX: RTS

#SXON, (5P)

108
#CR,2(SP)
1$
SCHARCNT
$TYPEX
WLF,2(SP)
$TYPEX
(PC)+
0
PC

;1S CHARACTER A LINE FEED?
; ;BRANCH IF YES
;:COUNT THE CHARACTER
;; CHARACTER COUNT STORAGE

SEQ 025%

CZRMOBO RMOS5/3/2 FCINL TST 3
HANDLER ROUTINE

4-APR-81 01:15:59 PAGE. 42

.SBTTL

SEQ 0260

SCOPE HANDLER ROUTINE

':"t'ltt.'t..'.'....""tt'.t....Q.t"l.'.."".'."."..".'.'Q

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

;*=AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s *SW14=1
LOOP ON TEST
INHIBIT ITERATIONS
;*SW11=
LOOP ON ERROR
; *SW09=1
;*SW08=1
LOOP ON TEST IN SWR<7:0>

;*CALL
*

104410

004737
032777
001402
000137

$SCOPE:

064672
040000

115064

064522

NNNSH NNV
WWES
NWO W S W

8883
W=y -

b
—

~N -~
— A

——

(e lele]

8 NNOWVNNUNOINNO
OOV =N

000400

fon FERVRS

el il el
sl
il
il il
D
D il

CKSWR
JSR
BIT
BEQ
JMP

$XTSTR: BR

000004
064124
177060
000004

MOV
MOV
TST

000004

BEQ

CLR
MOVB
BEQ
CMP
BLT
MOV
DEC

115002

000025
001116

06454 0
00112 2
8%:
2%:

001117
177777

000004
064246
177766

177777
064262

065230

ASL
ADD
MOV
BR
TST
TSTB
BEQ
CMP

BEQ

Mov

000004
065230

065230

PC,STOP

;:TEST

FOR CHANGE IN SOFT=SWR

#BIT14,3SWR

;;LOOP ON PRESENT TEST?

$OVER

;:JUMP OVER SCOPE ROUTINE

;:NO IF SW14=0

CODE FOR THE XOR TESTERKARAA

- (SP)
SHERRVEC

#5$ ,a¥ERRVE

177060

;2IF RUNNING ON THE ''XOR'' TESTER CHANGE
2;THIS INSTRUCTION TO A "NOP'' (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
;;SET _FOR _TIMEOUT
;s TIME OUT ON XOR?

(SP) + ,@#ERRVE(
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
;:G0 _TO THE NEXT TEST
(SP)+,(SP)+
5%:
cMP
;;CLEAR THE STACK AFTER A TIME OUT
(SP)+ ,a#ERRVE(
MoV
;;RESTORE THE ERROR VECTOR
7$
BR
;:LOOP ON THE PRESENT TEST
6%: ; ARRAREND OF CODE FOR THE XOR TESTERAANAN
#B1T08,aSwWR
BIT
;;LO0OP ON SPEC. TEST?
MOV

115012

;:SCOPE=]OT

SCOPE

s ARRBHSTART OF

000004

il
D

NN
s

rONUNY

013746
012737
005737

VIS

R R R R P R R R R PR LR AR AR RRRE

S DN
— —

064100
064104

1%:

9%:

000416

SCOPE

MACRO v04.00

2000%:

MOV
MoV
BR
MOV
MOV

=(SP) .
gShR. (SP)
$

#25,(SP)
8%
(SP) ,$TSTNM
(SP)
(SP)

#$SWOBTBL , (SP)
a(SP)+,$LPADR
$OVER
(SP)+
$ERFLG
33

#-1,CPSAVE

2003$

ERRVEC,~(SP)

#2000$
. ERRVE C
177766 ,CPSAVE

20018

#-1,CPSAVE
#2001%. (SP)

;:BR IF NO

;:CLEAR A TEMP. LOCATION
;sPICKUP THE DESYRED TEST NUMBER

;sBRANCH IF BAD TEST NUMBER IN SWR
;:CHECK THE NUMBER IN THE SWR

;2BRANCH IF TEST NUMBER IS OUT OF RANGE
;;UPDATE THE TEST NUMBER
; ;BACKUP BY ONE
::SCALE THE TEST NUMBER AS AN INDEX
;:FORM THE ADDRESS OF TEST POINTER
:2SET LOOP ADDRESS TO DESIRED TEST
;:GO LOOP ON THE TEST

;:CLEAN THE BAD TEST NUMBER OFF OF THE STACK
:;HAS AN ERROR OCCURRED?
;:BR IF NO

::SEE IF TIMEOUT WAS PREVIOUSLY RECORDED

;:KICK AROUND ROUTINE IF SO

;;SAVE CONTENTS OF ERROR VECTOR
::SETUP °'TRAP" RETURN ADDRESS
::MOVE CPU ERROR REGISTER TOQ CPSAVE FOR TEST

;:SET CPU ERROR REGISTER TIMEOUT INDICATOR

;:SETUR RETURN ADDRESS

064260
064262

000002
012637

0646266
064274
064276
064 304
064306
064314
064320
064324
064332
064336
064344

022737
001430
032737
001424
042737
013746
017646
012737
011677
042777
104177

000004
177777

065230

000001

065230

000001
001154
000000
000176

177766

001154

001000

114610

114616

012676
012637

000000
001154

123737
101015

00113

001117

0C1000

114560

001124

001122

032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
(02024
012737
013737
105237
113737

011637
011637
005037

112737
013777
013716
000002
000005

000025
010070
010270
011276
012254
013450
014456

015434
016632
017636

021062

001117
001206
004000

MOV

(SP)+ ,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

2002%:

(MP
BEQ
BIT
BEQ
BIC
MOV
MOV
MOV
MOV
BIC
EMT
MOV
MOV

#-1,CPSAVE

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
; sBRANCH IF SO
;:SEE IF THE POWER MONITOR BIT IS ON

177
(SP)+,a(SP)

:CALL SPECIAL POWER FAIL BIT ERROR CALL

CMPB
BHI
BIT
BEQ
MOV
BR
CLRB
CLR

gERMAX.SERFLG

..HAX ERRORS FOR THIS TEST OCCURRED?
:BR IF NO

2003%:

7%:
A ¥

114526

RTI

2001%:

3%:

BIT

001230

001120

001120
001206
00122¢

001131

114426

18:
$SVLAD:

$OVER:
:
$MXCNT

$SWOBTBL:
-REPT

20058

#B1T00, CPSAVE
2003s
#B1T00,177766
- (SP)
SWR,
a(5P) ,=(SP)
#1176, SWR
(SP)

.@aSWR

#B1T709,aSWR
(SP)+. SWR

#B1T09,aSWR
4%
SLPERR, $LPADR
$OVER
SERFLG
$TIMES
1%
#BIT11,aSWR
1%
$PASS

18
$ICNT
S$TIMES,SICNT
SOVER
#1,81CNT
SMXCNT ,STIMES
STSTNM

;;BRANCH TO CONTINUE ROUTINE

;2CLEAR THE BIT FOUND TO BE SET
;.SAVE SWR ADDRESS
;:SAVE SWR VALUE
;:GET SOF TWARE SWR ADDRESS
..GET CURRENY SWR VALUE

CLEAR

+DON'T ALLOW LOOP ON ERROR ON THIS ERROR

;dRESTORE SWR TO ORIGINAL VALUE
33RESTORE SWR ADDRESS

..LOOP ON ERROR?
:BR _IF NO

::SET LOOP ADDRESS TO LAST SCOPE

;:ZERO THE ERROR FLAG
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST

::IMIBIT ITERATIONS?
;BR IF YES

..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

..INCREHENY ITERATION COUNT
;;CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER
;2SET NUMBER OF ITERATIONS TO DO
:sCOUNT TEST NUMBERS
STSTNM, STESTN
;;SET TEST NUMBER IN APT MAILBOX
(SP) ,SLPADR
;.SAVE SCOPE LOOP ADDRESS
(SP) ,SLPERR
;;SAVE ERROR LOOP ADDRESS
$ESCAPE
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$STSTNM,aDISPLAY ::DISPLAY TEST NUMBER
$LPADR, (SP)
;;FUDGE RETURN ADDRESS
;:FIXES PS
;:MAX. NUMBER OF ITERATIONS
TST1+2
TST2+2

TST3+42

TST4+2
TST5+2
TST6+2
TST7+42
TST10+2
TST11+2
TST12+42

s sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
2 :STARTING ADDRESS OF
;;STARTING ADDRESS OF

;STARTING ADDRESS OF
;:;STARTING ADDRESS OF

;:STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

HANDLER ROUT INE

B 5
4-APR-Bi 01:15:59 PAGE 42-1

SCOPE

MACRO v04.00

N OV
nN—=O

CZRMOBO RMOS5/3/2 FCTNL ST 3

AR
AV 1,V

064564
064566
064570
064572
064574
064576

£ %
4-APR-81 01:15:59 PAGE 42-2
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

02%%70
023312
025160
026564
027604
030522
031560
032564
033572
034600
035626

TST13+2
TST14+2
TST15+2
T1ST16+2
TST1742
TS120+2
TST2142
TST22+2
TST23+2
1S724+2
TST25+2

SEQ

;:STARTING ADDRESS OF

TEST

;:STARTING ADDRESS OF TEST
::STARTING ADDRESS OF

TF€i

;:STARTING ADDRESS OF
;:STARTING ADDRESS
;:STARTING ADDRESS
;s STARTING ADDRESS
::STARTING ADDRESS

TEST
TEST
TEST
TEST
TEST

;:STARTING ADDRESS

TEST

;:STARTING ADDRESS

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT
012746
012746
000002

000140
064624

STOP:

64%:

MOV
MOV
RTI]

#PR3,-(SP)
#64% ,-(SP)

;:PUT NEW PS ON STACK
;sPUT NEW PC ON STACK
;;POP NEW PC AND PS

sJRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT
012746
012746
000002

000207

000240
064636

65%:

MOV
MOV

#PRS5 ,-(SP)
#65%,-(SP)

;sPUT NEW PS ON STACK

RTS

sRETURN

RTI

::PUT NEW PC ON STACK
;;POP NEW PC AND PS

TEST

W
VLN —_ONOWnSs

SCOPE WANDLER ROUTINE

MACRO v04.00

QRAKKKKR

CZRMOBO RMOS/S$/2 FCTINL TST 3

TEST 25

CZRMOB) R]MO5/3/2 FCTINL TST 3

ERROR HANDLER ROUT INE

MACRO v04.00

D 5
4-APR-81 01:15:59 PAGE 43

.SBTTL

SEQ 0267

ERROR HANDLER ROUTINE
AR AR AN AR AN ARAA AN TR RN R AR RANARAARARRANE AR RN

s*THIS ROUTINE WILL

RRAN NIRRT AR

INCREMENT THE ERROR FLAG AND THE ERROR (OUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
;*AND GO TO ERRTYP ON ERROR

THE ERROR CALL

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

s *SW15=1
;«SW13=1
;*SW10=1

INHIBIT ERRCR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

; *SW09%9=1

s*CALL
.

064640
064644
064646
064652
064654
064562
064670
064672
064676
064702
064706
064714
064722
064730
064732
064740
064742
064746
064750
064756
064760
064764

064772
065000

105037
104410
105237

001775
013777
032777
001402
104401

005237
011637

162737
117737
032777
001060
122737
001454
105737
001047
022737
001445
013746
012737
013737
000406

065232

$ERROR:

001117

7%:

001116
002000
001212
001126
001132
000002
114212
001000

000177

114274
114264
1%:

001132

001130
114224

001130

177777

065230

000004
065002
177766

000004
065230

177777

065230

012737
012716
000002
012637

000004

065022
065030
065032
065040
065042
065050
065056
065064

022737

177777

065230

032737
001414
042737

000001

065230

065066
065072
065072
065100
065102

105037

065232

032777
001004
004737

020000

113737
112737
000402

065016

000001
001130

000177

065234

:
10008
1001%:

1002%:

177766

065232
001130

114054

ERROR

CLRB
CKSWR
INCB
BEQ
MOV
BIT
BEQ

IBSAVE

TYPE

INC
MOV
Sus
MOvB
BIT
CMPB
BEQ
TSTB

065232

065002
065010
065014
065016

001420

L ]

1003%:
1004%:

; ;ERROR=EMT AND N=ERROR ITEM NUMBER
;:CLEAR THE

ITEM BYTE SAVE LOCATION

;:TEST FOR CHANGE IN SOFT=SWR

$ERFLG
;:SET THE ERROR FLAG
7%
::DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

#BIT10,aSWR

;:BELL ON ERROR?

LSBELL

;sRING BELL

@SERRPC,SITEMB
#BIT09,aSWR

;:;STRIP AND SAVE THE ERROR ITEM CODE
;;SEE IF LOOP ON ERROR IS SET

$ERTTL
(SP) ,$ERRPC
#2,$ERRPC

JINO - SKIP

2 sCOUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

1004$
#177 ,8$1TEMB

; sBRANCH AROUND ROUTINE IF SO
;;SEE IF THIS IS THE POWER FAIL CALL

IBSAVE

:2SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE

1004%
1003%

CMP
BEQ
MOV

#-1,CPSAVE

MOV

}55;26.CPSAVE

1004%
ERRVEC ,-(SP)

#1000% ,ERRVEC

; ;BRANCH AROUND ROUTINE IF IT IS
;;BRANCH IF SO

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT

;:BRANCH IF SO
;:SAVE CONTENTS OF ERROR VECTOR

INDICATION

::SETUP 'TRAP' RETURN ADDRESS

;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MOV
MOV
RTI
MoV

#-1,CPSAVE
#1001%, (SP)

22SET CPU ERROR REGISTER TIMEOUT
::SETUP RETURN ADDRESS

(SP) + ,ERRVEC

;:RESTORE CONTENTS OF ERROR VECTOR

CMP
BEQ
BIT
BEQ
BIC
MOvB
MOvB
BR

#-1,CPSAVE
1004%

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
;:BRANCH IF SO

1004%

;:BRANCH IF OK

#177 ,$1TEMB
1004%

::SET SITEMB TO SPECIAL POWER FAIL POINTER
:;BRANCH OVER IBSAVE CLEARING

#81700, CPSAVE
#B1T700,177766
$ITEMB,IBSAVE

INDICATOR

;:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG

;.CLEAR THE BIT FOUND SET
;:MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

CLRB

1BSAVE

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

BIT

#BIT13,aSWR
20%

;:SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS

BNE
JSR

PC,ERRTYP

;.G0 TO USER ERROR ROUTINE

(ZRMOBO RMOS/3/2 FCTNL ST 3

ERROR HANDLER ROUTINE

MACRD v04.00

104401

001277

122737

000001

001242

001130
070176

065134

001007
113737
004737
000
000
000777
105737
001005
005777
100002

3
g
4-APR-81 01:15:59 PAGE 43-1

208:

21%:

22%:
2%:

065232
114002

000000
104410

032777
001402
013716
005737
001402
013716

001000

022737
001001
000000

037242

105737
001210

065232

000002
000000
000000

113766

001124
001210

3%:

4%:

001210
000042

5%:

6%:

:
CPSAVE
:
IRSAVE

TYPE

.SCRLF

(MPB
BNE
MOVB
JSR
.BYTE
.BYTE
BR

5APTENV.$ENV
$
$ITEMB,21%

TSTB

BNE

TST
BPL
HALT
CKSWR

PC,8ATYL

0
¢
22%
IBSAVE
33
aSWR

SEQ 0264

;:RUNNING IN APT MODE
;:NO,SKIP APT ERROR REPORT
;:SET ITEM NUMBER AS ERROR NUMBER
; REPORT FATAL ERROR TO APT

;;APT ERROR LOOP

;sSEE IF IBSAVE IS LOADED
;sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
;:HALT
::SKIP
;:HALT
;:TEST

ON ERROK
IF CONTINUE
ON ERROR!
FOR CHANGE IN SOFT=SWR

2?1T09.GSUR

..LOOP ON ERROR SWITCH SET?

$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

::FUDGE RETURN FOR LOOPiNG
..CHECK FOR AN ESCAPE ADDRESS

CMP
BNE
HALT

#SENDAD ,a#42

;:ACT=11 AUTO-ACCEPT?
::e?gNCH IF NO

BNE

TSTB

IBSAVE
7%

..SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL

.WORD
. WORD

0
0

;.LOCATION TO SAVE CPU ERROR REG CONTENTS
;:LOCATION TO SAVE ITEM BYTE

BIT
BEQ
MOV
TST

BEQ
MOV

RTI

:BR IF NO

;BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

;BRANCH BACK TO CALL ORIGINAL ERROR
: RETURN

CZRMOBO RMOS/3/2 FCINL

tHROR

TYPEQUT ROUT INE

1ST

MACRO v04.00

Nd (e lVele SR NTe

nunN L
I

TYPEOQUT ROUTINE ASSEMBLES AND PRINTS

UNIT NUMBER, PRIVE TYPE,

: *PROGRAM COUNTER ARE

TEST NUMBER,

PRINTED ON THE

INFORMATION

ERROR NUMBER AND

FIRST LINE;

e
.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTEC ON
'ONE OR MORE SUCCEEDING LINES;

PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED
'AF TER THE ERROR MESSAGE
.

065234
065236
065244
065246

065252
065256
065262

104414

032777
001402
000137

104401
104401

013746

020000

113710

E RRTYP:

066074

0C1217
066110
001234

TYPE
MOV

TYPOS

25 065272
26 065276

013700
016000
042700
012737
022700
001414

001276
000026
177740
071453
000024

32 065322
33 065330
34 065334
35
065336
065344
065350
065352
065356
065360

012737
022700
001406

071446
000025

065360

012737
022700
001004

071460
000027

065360

000000

3$:

065362
065366
065374
065400

005037
013737

065404
065406
065407
“8 065410
&9 065414

104403

104401
104401

104401

013746

;TYPE

065360

2%:

;TYPE

001226
066115
066100

06610C

WO
onrn

113737

066102

TYPE,

-ERTY00
$UNIT,=(SP)

BEQ

sINHIBIT TYPEOUTS??
JNO!!
sVES:!
TEST NUMBER,

ERROR NUMBER,

;TYPE "DRVA''
;:SAVE SUNIT FOR TYPEOUT
;. TYPE DRIVE NUMBER

;:TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS
RMOS5,

RMO3 OR RMO2 FOR UNIT UNDER TEST

$8ASE ,R0
RMDT (RO) ,RO
#177740,R0
#SRMO3, 38
#24 R0

:GET RM BASE ADDRESS
“GET DRIVE TYPE REGISTER
“SAVE DRIVE TYPE BITS AND
*GET ASCI] DRIVE TYPE
*1S DEVICE AN RMO3 ?

MOV
(MP

#$RMO2 ., 38
#25 RO

:SAVE ASCII DRIVE TYPE
*1S DEVICE AN RM02 ?

MoV
cMP
BNE
TYPE
T1YPE

#SRMOS , 38
#27 .R0
48

:SAVE ASCII DRIVE TYPE
*1S DEVICE AN RMQS 2
IND !
sTYPE ** - "
*TYPE DRIVE TYPE

LWORD

LERTYOS

SYES

“DRIVE

TYPE MESSAGE IS STORED HERE

TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER

(LR

TSTNMB

;LOAD TEST NUMBER FOR

LERTYOT

;TYPE "'TST#"’

MOV

$TESTN,TSTNMB

MOV

TSTNMB, - (SP)

i YPE

AN
BYTE
(LR

MOVB

AND

::GO TYPE--OCTAL ASCII

3
0
TYPE'

MOV
MOV
BIC
MOV
(MP

TYPOS

003

000
005037

#5W13,aSWR
18
27%

°"DRIVE

BEQ

066145

-t

000

27 065302
28 065306
29 065314
30 065320

BYTE
BYTE

003

SAVREG

BIT
BEQ
JMP

sTYPE UNIT NUMBER, DRIVE
:PROGRAM COUNTER
is:
TYPE
.SCRLF

104403

’3

ERROR

065266
065270
065271

ERROR TYPEOUT ROUTINE

."REGARD!NG THE DETECTION OF AN ERROR AS FOLLOWS:

W, P SV L VBT iVels URNTa V. IVYL

.SBTTL
;*THE

4-APR-B1 01:15:59 PAGE 44

3
O
ERRNMB

;:SAVE TSTNMB FOR TYPEOQUT
;. TYPE

TEST NUMBER

;260 TYPE==QCTAL ASCII

s:TYPE 3 DIGIT(S)
; : SUPPRESS LEADING ZEROS
;LOAD ERROR NUMBER FOR

$ITEMB,ERRNMB ; TYPEQUT

“JRMOBO RMOS/372 FCTNL

FRROR

IsT

TYPEQUT ROUTINE

50 065422
51 0654%4
52 065430

065434
065436
065437

5% 065440
56 0656444

001406
104401

013746

013746
104403

57 065454
58 055460
59 065462

005737
001002
000137

61 065466
62 065472
63 065476
64 065502
65 065506
66 065512
67 065514
68 065520
€9 065522
70 065524
71 065526

104401

735 065534
74

75 065536
76
77
78 065540
79 065542

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
9% 065626
97 065632

8 065636

066134
Cco1132

S%:

001003
012700
000405
006300
006300
006300
062700
011001

001003

B,
- (SP)
ERRNM

BYTE
BYTE

TYPE
MOV

6%:

066074
Fo §

000177
066152
8%:

001572

9%:

TST

BNE
JMP
TYPE

CLRB
CLRB
MOV

CMPB
BNE
MOV
BR
ASL
ASL
ASL
ADD
MOV

BEQ
:TYPE
10%:

065712
066104

11$%:

000015
065107

122703
001765
122703
001007
105237
132737
001372
000407
105237
122703
001002

000012

i2%:

000011

066107
000007
066107
000040

LJERTYD?2

3
O
LERTYO3
$ERRPC ,=(SP)
6
1

;SKIP IF NO ERROR CALLED

JTYPE ""RR#A'’
;:SAVE ERRNMB FOR TYPECOUT
;s TYPE

ERROR NUMBER

::G0 TYPE==OCTAL ASCil

J3TYPE 3 DIGIT(S)
; +SUPPRESS LEADING ZEROS
;TYPE 'PC='"

;:SAVE $ERRPC FOR TYPEOUT
;s TYPE PROGRAM COUNTER

;.60 TYPE=-=OCTAL ASCII
;:sTYPE 6 DIGIT(S)
;:TYPE LEADING ZEROS

s GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0

066102

105037

000770

MOV

BYTE
BYTE

001507
012102
001505
010237
005037
112203
001454
122703

b} 3

TYPOS

00¢
001

105037
105037
013700
122700

REQ

TYPQOS

003

000
104401

G S
4-APR-B1 (01:15:59 PAGE 44-1

TYPE

(66125
066102

104403

065450
065452
065453

72 065530

MACRD v04.00

066107

13%:

;WAS AN ERRCR CALLED?

,SCRLF

JYES=TYPE CRLF
;CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER

7%
27%

MOV
BEQ
MOV
CLR

MOVRB
BEQ
CMPB
BNE
CLRB
BR
CMPB
BEQ

CMPB
BNE
INCB
BITB

INCB

(MPR
BNE

:BR IF YES
JNO=-=EXIT

BOTFLG
CHRCNT
ERRNMB ,RO

«;RO POINTS TO FIRST OF

#PFECH,RO
9%
RO
RO

;FOUR ENTRIES IN ERROR
s TABLE

#177.,R0O
8%

;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;BRANCH IF NOT
;MOVE POWER FAIL ERROR CALL TABLE TO RC

#S$ERRTB-8.
R0
(RO) ,R1

:?;BPglNTS TO ERROR MESSAGE

19%

;BRANCH IF NO ERROR MESSAGE

THE ERROR ME SSAGE

BNE
14%:

ERRNMB

(R1)+,R2
19%
RZ,18%
BOTADR
(R2)+,R3

17%

#CR,R3
12%
CHRCNT
11%
#LF ,R3
11%
#HT ,R3
14%
CHRCNT
#7,CHRCNT

TABL

;R2=ADDRESS OF MESSAGE STRING

;BRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING
:CLEAR BOT ADDRESS

;END OF STRING??
YE3:
:CAeelAGE RETURN??
:NO:!!

;YES=CLEAR CHAR COUNT
;GET NEXT CHARACTER
sLINE FEED??
sYES=GET NEXT CHARACTER
.‘HO‘H IONTAL TAB??
JNO!!
JADJUST CHARACTER COUNT

13$

15%

CHRCNT

#' ,R3
15%

s INCREMENT CHARACTER COUNT
:SS@(E??
JNO:!

CZRMOBO RMOS/3/2 FETNL ST 3

FRROR

TYPEQUT ROUTINE

G5 065640

010237

101 065652
102 065654

103340
013704

104
105
106
107

104401
105037
013702
000726

001217
066107
065712

112737
104401

177777

100 065644

103 065660
065662
065666
065672
065676

108 065700
109 065702
110 065710

111 065712
112 065714

113 065720
114
115
116
117
118

122737

001007

105044

000000
105737
001707
104401

065722
065726
065732
065736
065742

013702
010237

120 065752
;S; 065754

105722
000677

119 065746

123

105037
105037
112742

066104

(00100

066106

128 065774

016003

000006

104401
016002

001217
000004

012137
001433

066010

104401
000000

135 066016
136 066020
137 066022
138 066024
139 066026
140 066030
141 066032
142 066034

005702
001767

134 066012

143 066036

104401

001217

012204
012305
105725

147
148
149
150
151

066046
066050
066052
066054

066056

152 066060

178:
18%:

19%:

066142

104401

001217

155 066072

000742

11%
BOTADR,R4

JNO!!
;GET ADDRESS OF LAST SPACE

BNE

16$

BHIS
MOV

TYPE
CLRB
MOV
8R

CLRRB

MOVR
TYPE

.WORD
TSTB

JSCRLF
CHRCNT
18%,R2
1%

-(R4)

#-1,BOTFLG

BOTFLG

108

TYPE
CLRB
CLRB
MOV
MOV

,$CRLF
BOTFLG
CHRCNT

ISTB
BR

(R2)+
1%

BOTADR,R2
R2,18%
#'

,-(R2)

‘END OF LINE??

“BRANCH IF SPACE DETECTED
;TYPE CRLF
“CLEAR CHARACTER COUNT
“SET UP R2 FOR TESTING

;REPLACE SPACE

;SET BOT FLAG
*TYPE ERROR MESSAGE STRING

;STRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??
*NO!!
“YES=TYPE CRLF
*CLEAR BOT FLAG
;CLEAR CHARACTER COUNT

“SETUP R2 FOR TESTING
*SETUP 188 FOR TYPING
;RESTORE SPACE

‘RESTORE R2
;TYPE REST OF STRING

MOV
BEQ

2(R0O) ,R1
27%

:R1 POINTS TO ERROR HEADER TABLE
;BRANCH IF NO HEADER

MOV

6(R0O) ,R3

:R3 POINTS TO FORMAT TABLE

TYPE
MOV

208:

21%:

24%:
:
25%:

104401

;SAVE ADDRESS OF SPACE

#6k.,CHRCNT

:TYPE ERROR HEADER AND ERROR DATA

23%:

000402
013446
104406
005714

RZ2 ,BOTADR

(MPR

MOV
BEQ
TYPE
.WORD
TYPE
TST

BEQ _
MOV
MOV
TISTB
BM]
BEQ
MOV

TYPDS

013446
104402

000760

MOV

MOVB

104405

001403

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

BEQ

013446

153 066064

154 066066

16%:

228:

100407
001403

144 066040 000405
145 066042
146 066044

066106

(000040

000002

132 066006
133 066010

15%:

001217
066106
066107
066104
065712

016001
001444

129 066000
130 066004
131

06€107

066104

124 065756
125 065762
126 065764
127 065770

MACRO v04.00

(R1)+.21%
27%

R2
208

;DATA WITH HEADER??
*NO!!

24$
23%

*BINARY
;OCTAL

(R2)+,R4
(R3)+,RS
(R5)+

a(R&)+,-(SP)

BR MOV
TYPBN
TST

25%
a(R4)+,-(SP)

;R4 POINTS TO DATA ADDRESS
;RS POINTS TO FORMAT
*WHAT KIND OF DATA??
:DECIMAL

a(R4)+,-{SP)

(R4)

;MORE DATA??

ERTYO4

SYES=TYPE 2 SPACES

BEQ

26%

22%

20%

TYPE

*PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
; (ASSUME END OF DATA)
;HEADER ADDRESS GOES HERE

,$CRLF

25%

MoV
TYPOC

*(ASSUME NO DATA)
*R2 POINTS TO DATA ADDRESS TABLE

B8R

TYPE

268%:

,S$CRLF
4 (RO) ,R2

_$CRLF

‘NO!!

*AND CONTINUE

“TYPE ONE BLANK L INE
JBEFORE NEXT HEADER

SEU Ut

T/RMOBO RMOS/3/2 FCTINL

FRROR

TYPEQUT ROUTINE

156 066074
;?g 066076

bl‘r'\)-'—‘ o
]
RV,
1 S0 RV, [V,
[

3 S g\l\
LAS

? 383 588

RBBIFIANINIISS ~

ol
il sl
il

N NN
~

il el vl
il
il s
il

NNNN

il
il
il
i

00 0o

TST

MACRO v04.00

=
4-APR-B1 01:15:59 PAGE 44-3

10445

?73:

RESREG
RTS

C00000
000000
000000
000
000

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

.WORD
«WORD
.WORD

000207

040
040

ERTYO0O:
ERTYO1:
ERTYQ2:

040
040

040
055

ERTYOQ4:
ERTYOS:

066162
066166
120

066250

066266

117

127

066254

103

000000
120

125

066270
065230

000000

00C

000

104

054
054
054

066276

122

ERTYO03:
.EVEN

.BYTE

0
0
0
0
C
aDRv#a
@, TEST#a
@, ERR#a
@, PC=a
a
2
2 - a

;TEST NUMBER
,ERROR NUMBER
JBEGINNING OF TEXT ADDRESS
;BOT FLAG
s CHARACTER COUNT

PFECH1 ,PFECH2 ,PFECH3,PFECH4 ;WORDS DEF INING TABLES BELOW
.+4,0
?POWER MONITOR BIT IN (PU ERROR REGISTER FOUND SET?
LASCIZ
.EVEN
PFECH2: .+6,0
?CPUERREG?
ASCIZ
.EVEN
PFECH3:
CPSAVE,O
.WORD
PFECHG:
+2
0.0
BYTE

PFECH:
PFECHT:

CZIMOBO RMOS/3/2 FCINL

TTy

INPUT ROUTINE

TST

J
5
4-APR-81 01:15:59 PAGE 45

MACRO V04.00
LSBTTL

1
]

SEG U6

TTY INPUT ROUTINE

:;t...Q'Qt..'".""'.""".'.tt'.t.'.'ttlt.tt..'..t'tt.tt.....'

066300

066304
066306

LSB
.WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
LENABL
$TKCNT:

000000
000000
000000

066307

$TKQEND=.
.EVEN
;*TK

;sNUMBER OF

O
O
1

INITIALIZE ROUTINE

s*THIS ROUTINE WILL

ITEMS IN QUEUE

;s INPUT POINTER
2:0UTPUT POINTER
;. TTY KEYBOARD QUEUE

INITIALIZE

THE

TTY KEYBOARD INPUT QUEUE

s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S+CALL:
i

066310
066314
066322
066330
066336
066344
066350
066356

005037
012737
013737
012737
012737
005777
012777
000207

066300
066306
066302
066360
000200
112612
000100

066302

JSR

RE TURN

$TKINT: CLR

066304

;:CLEAR COUNT OF ITEMS IN OUEUE

#STKOSRT,$TKQIN ::MOVE THE STARTING ADDRESS OF THE

MoV

#200,a#TKVEC+2

;;'BR'’ LEVEL 4

#100,38TKS

;;ENABLE TTY KEYBOARD INTERRUPT

MOV

112602

$TKCNT

MOV
MOV
MOV

000060
000062

PC,STKINT

RTS

$TKQIN,$TKQOUT
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV ,@#TKVEC ;;INITIALIZE THE KEYBOARD VECTOR

as$TkB
PC

;;CLEAR DONE FLAG

J2RETURN TO CALLER

:*7K SERVICE ROUTINE

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:+BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:«IT IN THE QUEUE.

«IF THE CHARACTER IS A ''CONTROL=C'' (*C) STKINT IS CALLED AND
:+UPON RETURN EXIT IS MADE TO THE '‘CONTROL-C'' RESTART ADDRESS (SHUT2)
066360

066370
066374
066376
066402
066402

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
022737
001004
104401

112576
177600
000021

$TKSRV: MOVB

@$TKB,-(SP)

::PICKUP THE CHARACTER

CMP

(SP) , #$XON

2:1S IT A RANDOM XON?

BIC
BNE

30%:

000003

cMP

067550
000007

1%:

000176

001154

000001

066300

30%

(SP)+

(SP) ,#3

L:STRIP THE JUNK
;;BRANCH IF NO

*:CLEAN RANDOM XON OFF STACK
; sRETURN

;215 IT A CONTROL C?

BNE

s ;BRANCH IF NO

JSR
TST
JMP

PC,$TKINT
(SP) +
SHUT2

;o INIT THE KEYBOARD
;s CLEAN UP STACK
;sCONTROL C RESTART

BNE
CMP
BEQ

2%
#SWREG, SWR
6%

; sBRANCH IF NO
;.15 SOFT-SWR SELECTED?
;260 TO SWR CHANGE

(MP
BNE

#1,8TKCNT
3%

;+1S THE QUEUE FULL?
;BRANCH IF NO

TYPE

067506
066310

001212

ST
RTI

#°C177,(5P)

CMP

TYPE

LSCNTLC

(SP) 47

JIBELL

;:TYPE A CONTROL-C

(*O)

2:1S IT A CONTROL G?

JJRING THE

TTY BELL

CZRMOBO RMOS5/3/72 FCTNL

TTY

INPUT

ROUTINE

066460
066462
066464
066470
066472
066476
066500
066504
066506
066512
066516
066522
066524
066532
0686534
066540
066544
066546
066552
066554
066560
066564
066570
066576
066600
066606

005726
000451
021627
001021
005077
005726
105777
100375
117746

042716

1ST 3

MACRO Vv04.00

000023

K
5
4-APR-81 01:15:59 PAGE 45-1

3%:

112462

31%:

112454
112450
177600
000021

000100

112426

32%:

066300
000140

TST
BR
(MP

BNE
CLR

TST
TSTB
BPL

MOVB
BIC
CMP
BNE
MOV
RTI
INC
CMP

BLT

000175
000040
177516

4%:

066302
066302

066307

066306

066302

CMP
BGT
BIC
MOvVB
INC
CMP
BNE
MOV
RTI

SEQ G270

(SP)+

5%
(SP) ,#23
329
asTKS
+
(SP)
$TKS

218
a$TKB, - (SP)

Ac177,(SP)

(SP)+ #21
318

#100,3$TKS
$TKCNT
(iP).#140

(SP) ,#175

43
#40, (SP)
(SP)+,@8TKQIN
$TKQIN
g;KQIN,liTKOEND

CHARACTER OFF OF

STAC(K

A CONTROL=~S?

E TTY KEYBOARD INTERRUPTS

;s CLEAN CHAR OFF STACK

JsWAIT FOR A CHAR

;:LOOP UNTIL ITS THERE
;:GET THE CHARACTER

;sMAKE IT 7-BIT ASCII

;:1S IT A CONTROL=-Q?
; sBRANCH IF NO
; REENABLE TTY KEYBOARD INTERRUPTS
; RETURN

;sCOUNT THIS CHARACTER
;218 1T UPPER CASE?
; ;BRANCH IF YES
..JS IT A SPECIAL CHAR?
sBRANCH IF YES

:iMAKE IT UPPER CASE
;:AND PUT IT IN QUEUE
;;UPDATE THE POINTER
;:G0 OFF THE END?
; ;BRANCH IF NO
#STKQSRT,$TKQIN ;;RESET THE POINTER
; ;RETURN

QQ."....'!Qt.t.'t".t't'.fit.'t..'l.'t..t'.'ti"t.t...t'tttt"t

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED

022737
001124
105777
100121
117746
042716
021627
001300

000176

001154

112334

112330

FROM THE TRAP HANDLER, AND WILL

:«SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
#SWREG,
SWR
$CKSWR: cMP
;:1S THE SOFT-~SWR SELECTED
158
BNE
sEXIT IF NOT
TSTB
asTks
::1S A CHAR WAITING?
15%
BPL
..lFsNDT EXIT
MovB

177600

BIC
(MP

000007

BNE

as$TKB,~(SP)

#7C177,(SP)
(SP) 47
2%

: MAKE IT

7-BIT ASCII

A CONTROL-G?
IS IT
IF NOT, PUT IT IN THE TTY QUEUE

.’

AND EXIT

tttttt.'.'.ttt't.*tt".t".'fi"tt..."‘tttilt.t""t.t.t""t't

'CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

066644
066652
066654
066656

066674
066700
066704
066710

123727

001674
005726
004737
005077
112737
104401
104401

013746
104402

001150

066310
112272
000001

067520
067525
000176

000001

;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
:«CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
CMPB
SAUTOB, #1
68:
;;ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
; ;BRANCH | F YES
+
(SP)
ST
::CLEAR CONTROL-G OFF STACK
JSR
CLR
MOvB

001151
$GTSWR:

TYPE
TYPE
MOV
TYPOC

as$7KS

:2FLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS
:2SET INTERRUPT MODE INDICATOR

.SCNTLG
. SMSWR
SWREG,=(5P)

,,TYPE CURRENT CONTENTS

PC,STKINT

#1,8INTAG

;;ECHO THE CONTROL=G (*G)
:SAVE SWREG FOR TYPEOQUT

::GO TYPE-=OCTAL ASCIICALL DiGITS)

CZRMOBQ RM0S/3/2 FCTNL
INPUT

ROUTINE

066712
066716
066720
066722
066726
066730
066734
066740
066744
066746
066752
066756
066764
066766
066774

104401

MACRO v04.00

067536
112232

CLR

7%:

TSTR
BPL

a$TKS
7%

;sPROMPT FOR NEW SWR
;sCLEAR COUNTER
;:THE NEW SWR
;sCHAR THERE?
J+1F NOT TRY AGAIN

A$TKB, = (SP)

;:PICK UP CHAR

(SP) ,#3

;218 IT A CONTROL~C?
; ;BRANCH IF NOT
JJYES, ECHO CONTROL=C (*(C)
;:CLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
; ;BRANCH IF NO
;sALLOW TTY KEYBOARD INTERRUPTS
s sCONTROL=C RESTART

TYPE

(LR

117746

112226
177600

MOovB
BIC

021627
001015

000003

CMP
BNE
TYPE

042716

104401

062706
123727
001003
012777
000137

067506
000006
001151
000190
067550

ADD
CMPB

000001
112164

8%:

67000
067004
067006
067012
067016

021627
001005

104401
062706

067513

000006

20%:

067020
067024
067026
067032
067034
067042
067046
067052
067060
067062
067070
067072
067076
067102
067104
67110
067112
067116
067122
067124
067126
067130

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667

000015

10%:

067132
067136
067142
067144
067150

3
L
4-APR-81 01:15:59 PAGE 45-2

19%:

104401

000720

9%:

000004

000001

000100

112070

063732
000060

O -

112112

000002
000006
001217
001151

000737

000025

TTY

1sST 3

BNE
MOV
JMP

16%:

000067

000060
000002

001216

18%:

.DSABL

+SCNTLC

#6,SP
$INTAG,#1

#100,a$7KS

SHUT2

ADD

#6,SP

TYPE

cmP

BNE

TST
BEQ
MOV
ADD
TYPE

,SCNTLU

19$

(SP)
. #15

16$
4(SP)
118

2(SP) ,aSWR

#6,SP

.SCRLF

SINTAG,#1
15%

MOV

#100,38TKS

JSR

PC,STYPEC

RTI

CMP
BLT
CMP
BGT
BIC
BEQ
ASL
ASL

17%:

(SP) ,#25
108

TST

000002
177776

#AC177,(SP)

CMP
BNE

CMPB
BNE

15%:

W
. SMNF

-(SP)
=(SP)

ASL

INC
BIS
BR

TYPE

BR
LSB

(SP) ,#60

18%

(SP) ,#67
18%
#60,(SP)+
2(SP)
17%
(SP)
(SP)
(SP)

2(SP)
;2(SP).(SP)
$
$OUES

208

JiMAKE IT 7-BIT ASCII

;218 IT A CONTROL=-U?
; sBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;s IGNORE PREVIOUS INPUT
:2LET'S TRY IT AGAIN

::1S IT A <CR>?
2 2BRANCH IF NO
;2YES, IS IT THE FIRST CHAR?
;;BRANCH IF YES
;:SAVE NEW SWR
;:CLEAR UP STACK
:2ECHO <CR> AND <LF>
;sRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT
;RE~-ENABLE TTY KBD INTERRUPTS
2 :RETURN

;sECHO CHAR
;2CHAR < 0?
;:BRANCH IF YES

;2CHAR > 7?
;;BRANCH IF YES

;:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
;:BRANCH IF YES
:2NO, SHIFT PRESENT
CHAR OVER TO MAKE
sa
ROOM FOR NEW ONE.
::
;;KEEP COUNT OF (HAR
;:SET IN NEW CHAR
;3GET THE NEXT ONE
JTYPE ?2<CR><LF>
;sSIMULATE CONTROL-U

""Q.l.'..'tt'.tttt.'t".".'!t‘t".l'Ql"..l..t"l".thtlttittt'

SEQ 0277

CZRMOBO RMOS5/37/2 FCTINL TST 3
TTY INPUI ROUTINE

MACRO v04.00

;'E:IE ROUTINE WILL
s+«CALL:

RDCHR

RETURN

011646

067162
067166
067170

005066
005046
012746

067154

067174

016666

000002

067176
067176
067202
067204
067210

005737
001775
005337

067232

012737

117766

000004
000004

000002

$RDCHR: MOV

MOV
CLR
CLR
MOV

067176

64%:
1%:

066300
066300

177070

000004

066306

066304

067216 005237 066304
067222 023727 066304 066307
067230 001003
067240

000002

RTI

HERE

J3GET A CHARACTER FROM THE
2 sCHARACTER

THE

QUEUE

(SP) ,=(SP)

:sPUSH DOWN THE PC AND

L(5P)
-(SP)
#64%,-(SP)

::GET READY FOR A CHARACTER
“:PUT NEW PS ON STACK
;:PUT NEW PC ON STACK

4&(SP) ,2(SP)

;.THE PS

;:POP NEW PC AND PS

$TKCNT
1%
$TKCNT

MOV

#STKQSRT,$TKQOUT ;;RESET THE POINTER

RTI

STACK

J:WITH PARITY BIT STRIPPED OFF

TST
BEQ
DEC
MOVB

iINC
CMP
BNE
28:

SEQ 027¢

INPUT A SINGLE CHARACTER FROM THE TTY

067152

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

A$TKQOUT ,4(SP)

;iWAIT ON A CHARACTER
; sDECREMENT THE COUNTER

;:GET ONE CHARACTER

$TKOOUT
*:UPDATE THE POINTER
$TKQOUT ,#STKQEND :;DID IT GO OFF OF THE END?
2$
; *BRANCH IF NO
; ;RETURN

'-:tt't.tt'tttttttttttttQtt'tttttltttttt'ttttttttQttt.ttt.tttt.tt'

'Z:II-E ROUTINE WILL INPUT A STRING FROM THE 1TY

e
%

067242

010346

067244

005046

067252
067256

022703
101456

067246

067260
067262

067264

012703

104411
112613

067476
067506
%

122713

000177

067276

112737

000134

067310
067314
067316
067322
067324
067330

012716
005303
020327
103434
111337
104401

177777

067336
067340
067342
067350
067354
067356

005716
001406
112737
104401
005016
122713

067270 001022
067272 005716
067274 001007
067304

104401

067334 000746

067362

001003

067474

::SAVE R3

1%:

MOV

#STTYIN,R3

;:GET ADDRESS

RDCHR
MOVB

(SP)+,(R3)

10%:
067474

CLR

P
BLOS

6%:

067474
7%

-(SP)

#STTYIN+8.,R3
4%

;;CLEAR THE RUBOUT KEY

:BUFFER FULL?
BR IF YES

::G0 READ ONE CHARACTER FROM THE TTY
;GET CHARACTER

CMPB

#177.,(R3)

..IS ITA RLBOUT

MOVB

#'\,9%

“:TYPE A BACK SLASH

BNE
TST
BNE

TYPE

000025

*:TERMINATOR WILL BE A BYTE OF ALL 0°S

R3,=(SP)

067474
067474

000134
067474

;2 INPUT A STRING FROM THE TTY
;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

$RDLIN: MOV
2%:

067476

RDLIN
RETURN HERE

58
(SP)
6$
,9%

S:BR IF NO
::1S THIS THE FIRST RUBOUT?
2:BR IF NO

MOV
DEC
CMP
BLO
MOVB
TYPE

#-1,(SP)
R3
R3,#$TTYIN
43
(R3),9%
9%

;:SET THE RUBOUT KEY
; ;BACKUP BY ONE
::STACK EMPIY?
*:BR IF YES
:2SETUP TO TYPEOUT THE DELETED CHAR.
1:GO TYPE

ST
BEQ
MOVB
TYPE
CLR
(MPB

(SP)
78
#'\,9%
.9%
(SP)
425, (R3)

:RUBOUT KEY SET?
Z:BR IF NO
::TYPE A BACK SLASH

BNE

*:GO READ ANOTHER CHAR.

;;CLEAR THE RUBOUT KEY
*%IS CHARACTER A CTRL U?
;:BR IF NO

INPUT ROUTINE

067440
067444
067450
067452

067454
067456
067464
067472
067474
067475
067476

067513

122713

000022

001011

105013
104401

TYPE

8s%:

104401

001217
067476

104401

001216

4%:

111337
104401
122723

067474
067474
000015

3%:

105063
104401
005726

177777
001220

000717

000712

001305

012603
011646

000004
067476

000002
000004
9%:

012737

177777
001116

000137
000002

037262

105737
001002

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:
$MNEW:
.EVEN

001326

SHUTZ2:

067432
067436

104401

000726

—_ P\ = -

067364
067370
067372
067376
067400
067402
067406
067412
067414
067420
067422
067426

1%:

4-APR-B1 01:15:59 PAGE 45-4

-=2000

TTY

OO
H 2000
oWV

MACRO v04.00

CZRMOBO RMOS5/3/2 FCINL TST 3

BR
CMPB
BNE
CLRB
TYPE
TYPE
BR

L SCNTLU

1%
#22,(R3)

3%
(R3)

.SCRLF

$TTYIN

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
MOV
TSTB
BNE
JMP
RTI

:sTYPE A CONTROL ‘LU

;:G0 START OVER

;:1S CHARACTER A "TM“R'%?
;sBRANCH IF NO
;;CLEAR THE CHARACTER
;:TYPE A '"'CR"'
& "LF"'
;ssTYPE

THE

INPUT STRING

;G0 PICKUP ANOTHER CHACTER
J2TYPE A *Y°

TYPE

BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
TST
MoV
MOV
MOV
MOV
RTI
.BYTE
.BYTE

SEC 0273

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER
#15,(R3)+
2%
=-1(R3)
JSLF
(SP)+
(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)

#STTYIN,4(SP)

0
0
8.
/2C/<15><12>
/*U/<15><12>
/2G/<15><12>

<15><12>/SWR
/

;sCLEAR RETURN (THE 15)

;:TYPE A LINE FEED

;;CLEAN RUBQUT KEY FROM THE STACK
;;RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT
33
s sRETURN

;:STORAGE FOR ASCII CHAR. TO TYPE
; ; TERMINATOR

;;RESERVE 8 BYTES FOR TTY INPUT
::CONTROL '‘C"'
;sCONTROL 'VU"

/.’ ;CONTROL ''G"'

NEW =

#-1,CILFG

$TSTNM
1%

;sCHECK FOR RETURN
;:;LOOP IF NOT RETURN

SHUT

;SET THE CONTROL=-C FLAG
;DOING ANY TESTS ?
BN IF YES
;NO=-=RESPOND TO *C
SJEXIT FROM INTERRUPT

CZRMOBO RMOS5/3/2 FCINL TST 3

READ AN QOCTAL NUMBER FROM THE

MACRO v04.00

4-APR-B1 01:15:59 PAGE 46

TTY

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

::..'....'."......'.'.".I......'Q'..".'.'.'..'.."'........"'

;*THIS ROUTINE WILL READ AN OCTAL

s*(CHANGE IT TO BINARY.

011646

067574

016666

067604
067606

010146
010246

067602
067610

010046

067612
067614
067616

104412
012600
005001
005002

067622
067626
067626
067630

001412
006301
006102
006301

067634

006301

067640
067644

042716
062601

067620

067632
067636

067645

067650

067652
067656
067662
067664

067666
067670
067672

000004

0000C2

;3HIGH ORDER BITS ARE 'N SHIOCT

RETURN HERE

$RDOCT: MOV

2%:

005726

010166
010237
012602
012601

012600

(000002
000000

000012
067672

)

. ;READ AN ASCIZ LINE

(SP)+ R0
R
R2

;:GET ADDRESS OF 1ST CHARACZTER
;:CLEAR DATA WORD

(RO)+,=-(SP)

;:PICKUP THIS CHARACTER

ASL

;:*8

R~C7,(SP)
(SP)+ R1

;sSTRIP THE ASCII JUNK
;:ADD IN THIS DIGIT

(SP) +

;;CLEAN TERMINATOR FROM STACK

TST

;:PUSH R1 ON STACK
;sPUSH R2 ON STACK

3%
R1
R2
R1

BIC
ADD

3%:

;2 INPUT NUMBER

BEQ
ASL
ROL
ASL

ROL

000764

;:PUSH RO ON STACK

R1,=-(SP)
R2,=-(SP)

ROL

177770

RO,=(SP)

MOV
MOV

MOVR

ER BITS ARE ON TOP OF

;PROVIDE SPACE FOR THE

4(SP) ,2(SP)

RDL IN
MOV
CLR
(LR

;.LOW

(SP) ,~(SP)

MOV

006102

TTY AND

;
:;READog OCTAL NUMBER

i $:

112046

NUMBER FROM THE

;«CALL:
i
RDOCT

067572

(ASCII)

MOV
MOV
MOV
MOV

MOV

RTI
$HIOCT: .WCRD

;:1F ZERO GET OuT
PFL "
L

R2
R2

; sLOOP

R1,12(SP)
R2,$410CT
(SP)+ ,R2
(SP)+ ,R1

(SP)+,R0O

;sSAVE THE RESULT

:;POP STACK INTO R2
. +aPOP STACK INTO R1
"~

::4
POP STACK INTC RO

. 32RETURN
23HIGH ORDER BITS GO HERE

THE STACK

CZRMOBO RMOS/3/2 FCINL TST 3

TRAP DECCDER

MACRO v04.00

C
6
4-APR-81 01:15:59 PAGE 47

.SBTTL
i

TRAP DECODER

i 2RSSRttt
Rl] )

:*THIS ROUTINE WILL PICKUF THE LOWER BYTE OF THE "‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
067674
067700
067704
067710
067712
067714

067720
067722
067724
067726
067732

016646

042716
012746

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002
000020
067712

MOV
BIC

MOV
1%:

000002

067736
067744

011646
016666
000002

#18%,-(SP)

RTI

MOV
MOV
TST

RO,-(SP)
2(SP) ,RO
-(R0O)

ASL

RTS

MOVB

000004

(RO) ,RO

MOV

067746

;:THIS IS USE
067734

2(SP) ,~(SP)
#2J,(SP)

000002

$TRPAD (RO) ,RO

;: T=BIT TRAPS

;;SET THE NEW STATUS

::SAVE RO
;:GET TRAP ADDRESS
; ;BACKUP BY 2

::GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING

23 INDEX TO TABLE
;:G0 TO ROUTINE

TO HANDLE THE ''GETPRI'' MACRO

$TRAP2: MOV

MOV
RTI

.SBTTL

;s JASSUME THE STATUS OF
;s THE CALLER==DO NOT ALLOW

(SP) ,=(SP)

4(SP) ,2(SP)

;sMOVE

THE PC DOWN

;;MOVE THE PSW DOWN
;:RESTORE

THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "‘TRAP’' INSTRUCTION.
5

ROUT INE

067746
067750
067752
067754
067756
067760
067762

067734
063520
063316
063272
063332
063046 .
062772

067764

066700

$GTSWR

067766
067770
067772
067774
067776
070000

066610
067152
067242
067572
062676
062734

$CKSWR
$RDCHR
$SRDLIN

$TRPAD:

.WORD

$TRAP2

$TYPOC
$TYPOS
$TYPON
$TYPDS
$TYPBN

;.;CALL=TYPOC
. .CALL=TYPOS
;.CALL=TYPON
;;CALL=TYPDS
.CALL=TYPBN

$TYPE

2 ;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

;;CALL=CKSWR
;;CALL=RDCHR
;:CALL=RDLIN
$RDOCT ;;CALL=RDOCT
$SAVREG ;;CALL=SAVREG
$RESREG . CALL=RESREG

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TYPE
TYPE
TYPE
TYPE
TYPE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL?
DECIMAL NUMBER (WITH SIGN)
BINARY (ASCII) NUMBER

TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
TRAP+12(104412) TTY TYPEIN STRING ROUTINE

TRAP+13(104473) READ AN OCTAL NUMBER FROM TTY
TRAP+14(104414) SAVE RO-RS5 ROUTINE
TRAP+15(104415) RESTORE RO-RS5 ROUTINE

027°¢

CZRMOBC RMCS/3/2 FCINL TST 3

POWER DOWN AND UP ROUTINES

MACRO v04.00

D 6
4-APR-81 01:15:59 PAGE 48

.SBTTL

SEQ 027¢

POWER DOWN AND UP ROUTINES

‘:..‘...Q""'.""..""".Q.l.".tt..t'tt....'t'.ttt.ttt'.ttt.'

070002
070010
070016
070020
070022
070024
070026
070030
070032
070036
070042
070050
070052

070142
000340

010446
010546
017746
010637
012737
000000
000776

000024
000026

*POWER DOWN ROUTINE
#SILLUP @#PWRVEC
$PWRDN: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HAL T
BR

111116

070146
070054

000024

;;SET FOR FAST UP

#340,a#PWRVFC+2 ;;PRIO:7
RO,=(SP)
:sPUSH RO ON STACK

R1,=(SP)

;:PUSH R1 ON STACK

R3,-(SP)

;:PUSH R3 ON STACK

R2,-(SP)

R4 ,=(SP)
RS,=(SP)

aSWR,~=(SP)

;:PUSH R2 ON STACK
2 :PUSH R4 ON STACK
;sPUSH R5 ON STACK

2 :PUSH @SWR ON STACK

. :SAVE SP
SP,$SAVR6
#$PWRUP ,9#PWRVEC ;;SET UP VECTOR

-2

; HANG UP

R AR AR AR AR R A AR A AR R AR R R AR AR A AR AR

070054
070062
070066
070072
070076
07010C
070104
070106
070110
070112
070114
070116
070120
070126
070134
070136
070140
070142
070144
070146
070150

WS—

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

070142
070146
070146
070146

000024

‘POWER UP ROUTINE

$PWRUP: MOV
MOV
CLR
1%:
INC

111050

070002
000340

012

(SP) +,aSWR

;;POP STACK INTO aSWR

(SP) + ,Ré4

;:POP STACK INTO R4

(SP)+,R3
(SP)+,R2
(SP) + ,R1
(SP)+ RO

$PWRMG:

070150

120

TYPE

.WORD

RTI

$POWER

$POWER:

<15><12>''POWER"’

.ASCIZ
.EVEN

;:POP STACK INTO RS

:;POP
;:POP
;;POP
;;POP

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

#SPWRDN ,a#PWRVEC ;.;SET UP THE POWER DOWN VECTOR
#3640 ,9#PWRVEC+2 ;:;PRIO:7

$ILLUP: HALT
BR

$SAVR6: 0

AT A AR,

#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN
;:GET SP
$SAVR6, SP
£5AVR6
;:WAIT LOOP FOR THE TTY
$SAVR6
;:WAIT FOR THE INC
1%
;:0F
WORD
(SP)+,R5

000024
000026

A AR AARAAAAAAARAAA AR

;REPORT THE POWER FAILURE

; ;POWER FAIL MESSAGE POINTER

;;THE POWER UP SEQUENCE WAS STARTED
;: BEFORE THE POWER DOWN WAS COMPLETE
;sPUT

THE SP HERE

(ZRMOBO RMOS5/3/2 FCINL TST 3

APT

COMMUNICATIONS ROUTINE

MACRO v04.00

4-APK-81 01:15:59 PAGE 49

.SBTTL

SEQ 0277

APT COMMUNICATIONS ROUTINE

‘.’.'.'..."Q'tt"'fitt"""t"'tfit.tt""'."'t"t"'.tt.‘ (A2

070160
070166
070174
070176
070204

000001
000001

070424
070422

$ATY:

000001

070424

$ATYS:
$ATYC:

070204

070210
070214
070216
070224
070226
070234
070236
070242
0670250
070254
070256
070262
070264
070266
070272
070274
070300
070306
070310
070316
070324
070330
070334
070336
070336
070342
070344
070350
070352
070356
070369
C70366
070374
070400
070404
070410
070414
070416
070420
070422
070423
070424

$ATY3:

MOvVB
MOVB
BR
MOovB

#1,8FFLG
#1,8MFLG

;270 REPORT FATAL ERROR
;70 TYPE A MESSAGE

#1,8FFLG

2:T0 ONLY REPORT FATAL ERROR

MOV
MOV

RO,=(SP)
R1,-(SP)
SMFLG

;:PUSH RO ON STACK
;sPUSH R1 ON STACK
;:SHOULD TYPE A MESSAGE?

H#APTENV, SENV

s ;OPERATING UNDER APT?

TSTB

070422
000001

001242

000100

001243

000004
000002
001222

000004

001236

000004
000002
177776
063520
105737

001416
005737
001413
005737
001375
017637
062766
005237
105037

1%:

2%:

RO, SMSGAD
+
(RO)

;sPUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

105037
105037
012601

012600
000207
000
000
000

000200
000001
000100
000040

A ¥

5%:

10%:

001242

000004
000002
001222
070424
070423
070422

;:IF NOT: BR
;:GET MESSAGE ADDR.
;:BUMP RETURN ADDR.

070334
3%:
000004

001222

;:1F NOT:

38
34 (SP) ,RO
#2.4(SP)
?gscrvpe

2%
$MSGAD
, RO

11%:

001224
000004
12%:

$MFLG:
$LFLG:
$FFLG:
APTENV
APTSPOOL
APT(CSUP

;:SEE IF DONE W/ LAST XMISSION?

;:IF NOT:

WAIT

RO
RO, $MSGLGT

gg.SMSGTYPE

;;SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;;PUT LENGTH IN MAILBOX
;:TELL APT TO TAKE MSG.

34(SP) 4%

::PUT MSG ADDR IN JSR LINKAGE

177776,~(SP)

::PUSH 177776 ON STACK

TSTB

$FFLG

TST

SENV
12%
$MSGTYPE
11%
@24 (SP) ,$FATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+,RO

2 :SHOULD REPORT FATAL ERROR?
231F - NOT: BR
2 sRUNNING UNDER APT?
;sIF NOT: BR
;sFINISHED LAST MESSAGE?
:oIF NOT: WAIT
;:GET ERROR #
;:BUMP RETURN ADDR.
TO TAKE ERROR
APT
;sTELL
FLAG
FATAL
;:CLEAR
FLAG
LOG
2 sCLEAR
:;CLEAR MESSAGE FLAG

001222

070424

;:1F NOT:
BR
3%
#APTSPOOL
, SENVM 2 2SHOULD SPOOL MESSAGES?

001236
001240
000004

SATY(

MOV
ADD
MOV
JSR
.WORD

BEQ

BEQ
TST

BNE

MOV
ADD
INC
CLRB
CLRB
(LRB
MOV
MOV
RTS

BYTE

#2,4(SP)

Sc.srvpe

12%

0
0
0

- -BUMP RETURN ADDRESS

::CALL TYPE MACRO

::POP STACK INTO R1
::POP STACK INTO RO
2 JRETURN
;sMESSG. FLAG
;:L0G FLAG
;sFATAL

FLAG

CZRMOBO RMOS/3/ 2 FCINL
MESSAG ES

& \J-‘g
oo

070616
070704

ON) =
=S

) o

QONS

d
b
D d d b b )
R
e
A Y 1AY L= RN |
NN~
NNNNNE N

40 071643
41

— el

071540
071557
071570
071600
071627
071634
°
3¢ 071636
37 071640
38 071641
39 071642

83 TM B

30
31
3¢
33
34
35

o
»H
o

070772
071054

27 071465
28 071506
29 071523

oold sl e v TM
Lo T
= = NI
ndrosN WOSHhONS~O

070530

071105
071115
071157
071166
071222
071307
071364
C71365
071406
071422
071430
071446
071453
26 071460

TST 3

103

070426
070512
070514
070521
070525

n
no

NN
AN
d ed b b cd
=d ad o o
N8 NN
— QOO NI NS WA = OV

NP NN

CONSOLE

(RO v04.00

4&-APR-81

01:15:59 PAGE

.SBTTL

CONSOLE MESSAGES

SCIMSG:

.ASCIZ

114

ALlL:

.ASCIZ

@ALL@<CRLF>

117

MSHELP:

.ASCII

<CRLF>aTO

111

CNSLO1:
CNSLO2:

117
131

CNSLO4:
(CNSLO7:

101

040
000
101
117
110
13
115
126

116

EQUALS:

QUES:
cOoMmMA:

CNSLO3:

CNSLO8:

111
122
111
116

CNSLO9:
MSDRVS:
MSGDRV:
SYSTAT:

117
117
117
106
116
122

LODEvV:
NOTPRS:
NOTAVL:
UNTOFF:
UNTON:
DRIVES:

060
060
060
117

116

S$RMO2:
S$RMO3:
SRMOS:
NOTRM:

NONE:

N:
Y:
BLNKS4:

BLNKS3:
BLNKSZ2:

BLNKS1:
-EVEN

.ASCIZ

ASCIZ
.ASCIZ
LASCI]
LASCII
JASCI]
{ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

SEQ 0278

<CRLF>QCANNOT RECOVER

@=a

@70
@, @

ENSURE

THE BAD SECTOR FILES ON THIS DEVI(Ea

THAT NO

BAD HEADERS ARE

LEFT

ON THE

DISKka

<CRLF>APACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (*()a
<CRLF>3CONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTEDa
<CRLF>aWHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.a@a<CRLF>
<CRLF>QTYPE HELP TEXT (L) N ? 3
<CRLF>aRMCS1=a

@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
@QRMVE(C=d

.ASCIZ* @ LIMITS = LO= 0, HI= 1000@<CRLF><LF>
.ASCII
<CRLF>QTYPE "‘A"* TO TEST ALL DRIVES, OR TYPE DRIVE WUMBER(S)a
JASCIZ

<CRLF>®AND TERMINATE

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

@ ?ILLEGAL INPUTQ<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
LASCIZ
LASCIZ
JASCIZ
_ASCII

/ LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFFLINE/
/ ONLINE/
<CRLF>/DRIVE(S) TO BE
/NONE/
/N/
7Y/
7/ /

.ASCII

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

.ASCII
.ASCII
.ASCIZ

<CRLF>

INPUT WITH A CARRIAGE RETURN.a

/RMQ2/
/RMO3/
/RMOS/
@ NOT AN RM05/3/23

7/ /
7 /
/ 7/

TESTED/

JRMOBO RMOS5/3/2 FCINL

FUNCTION CODE

TABLE

TST 3

MACRD v04.00

.SBTTL

;

1
}
1

3
ATA = BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
;1F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE,

:BIT 15 1S ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
INOTE

THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

;1T IS NOT EXPECTED AS A RESULT OF THE COMMAND.
:

ucs - BIT 14 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

1r WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

:
OPI = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
“1F OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
xr

2
22
SZ

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 11 'S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
xr WRITE ERRORS ARE LNABLED DURING THE EXECUTION OF THAT COMMAND.
*THE WRITE ERRORS WHICH ARE ENABLED ARE 'WLE'', "WCF'*, “DPE’", "UPE"".

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

ge’,

comwo

INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE = BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:1F READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF

BIT 08 IS NOT USED.

HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

*IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

*HEADER ERRORS INCLUDE "‘HCRC'', "MCE'', 'FER'', AND 'BSE'".

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF

:COMMAND.

THESE ERRORS INCLUDE 'MDPE'', 'DCK'', AND "ECH'".

IZZ

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

2‘5

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

ILF = BIT 00 IS SET IF

gs 071646

FNCDTR:

V'A

57 071646

THE

THE ERRORS ENABLED BY THIS BIT ARE “'TRE'’, "DLT"", "NEM",

36
'

FUNCTION CODE TABLE

sTHE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
JEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS:

=HOVONPNL
NN OO0
4N

1’:

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

020000

.WORD

THAT

BIT 01 IS NOT USED.
THE FUNCTION CODE IS ILLEGAL.

:FUNCTION CODE TABLE
OP]

:NOP

CZRMOBO RMOS/3/¢2 FCTINL

FUNCTION CODE

58 071650
59 071652
60 071654
61 071656
62 071660
63 071662
64 071664
€5 071666
66 071670

67 071672
68 071674
09 071676
70 071700
71 071702
72 071704

73 071706

74 071710
75 071712
76 071714

77 C71716
78 071720

79 071722

80 071724
81
82
83
84
85
86

071726
071730
071732
071734
071736
071740

87 071742
88 171744

TST 3

MACRO v04.00

4=-APR-81

;
H
6
01:15:59 PAGE 511

TABLE

13000!
132000
130000
0¢0000
(030000
130000
130000
020000
020000

130001
130001
132000
130001
130001
130001

130001

130001
130001
120001

073300
073300

130001

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

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

130001

.WORD

130001
130001

.WORD
.WORD

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

OP]:!ATA!ILF!IVC
ATA!OP]:]VC'!IAE
ATA!OP]!IV(
OPI
OPI!IVC
OP]!ATA!IVC
OPI'!ATA!IVC
OPI
OPI

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
ATA!OPI'!IVC!IAE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

OPI!ATA!ILF!IVC

OPI!ATA!ILF!IVC
OPI!ATA!ILF:!IVC
OPI!ATA!ILF!IVC

WCE!OPI!IVC!IAE'!AOE
!HCE ECH
WCE!OPI!IVC!IAE'AOE !HCE'ECH

OPI:!ATA!ILF!IVC

OPI'!ATA!ILF!IVC

OPI!IVC!WLE!IAE:@AOE
HCE
OPI!IVC!WLE!:IAE!AOE
OPI!ATA!ILF!IVC
_OPI!ATA!ILF!IVC
“OPI!IVC!IAE!AQE'!HCE
.ECH
OPI.IVC!IAE!AOE'HCE
ECH

OPJ!ATA!ILF!IVC
OPI!ATA!ILF!IVC

JILLEGAL FUNCTION (2)
s SEEK
;RECAL IBRATE
;DRIVE CLEAR
/RELEASE
JOFFSET
JRETURN TO CENTERL INE
JREAD IN PRESET
;PACK ACKNOWLEDGE

;ILLEGAL
J1LLEGAL
; SEARCH
;ILLEGAL
JILLEGAL

FUNCTION (24)
FUNCTION (26)
FUNCTION (32)
FUNCTION (34)

;ILLEGAL FUNCTION (36)

;ILLEGAL FUNCTION (40)

JILLEGAL FUNCTION (42)
JILLEGAL FUNCTION (44)
sILLEGAL FUNCTION (46)

;WRITE CHECK DATA
;WRITE CHECK HEADER AND DATA

JILLEGAL FUNCTION (54)

;ILLEGAL FUNCTION (56)

;WRITE DATA
sWRITE HEADER AND DATA
sILLEGAL FUNCTION (64)
;JILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA

;ILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

071747
071750
0717%1
071752
o7175%

071754

071755

15T 3

MACRD v04.00

4-APR-81 (01:15:59 PAGE 52

LSBTTL

ATTENTION (ATA)

ATNTBL
:

BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

—=SOW—=00
NN —
PNOBPOONs = o o

071746

8883 ge2

JRMOBO RMOS/ 372 FOINL
ATTENTION (ATA) TABLE

TABLE

“ZRMOBO RMOS5/3/2 FCTNL TST 3

DATA

PATTERN

TABLE

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

;

.SBTTL

3 071756

RGDTPT:

4 071756

5 971756
6 071760
7 071762

8 071764

000000
000001

000003
000017

11 071772
12 071774
13 071776

000077
000177
000377

14
15
16
17
18
19

072000
072002
072004
072006
072010
072012

20 C72014
21 072016
22 072020
23 072022
24 072024
25 072026
26 072030
27 072032
28 072034
29 072036
30 072040
31 072042
32 072044
33 072046
34 72050
35 072052
36 072054
37 072056
38 072060
39 072062

40
41
42
43
44
45
46
47
48
49

072064
072066
072070
072072
072074
072076
072106
072102
072104
072106

50 072110
51 072112
52 072114
53 072116
54 072120
55 072122
56 072126
57 072126

077777
177777
177777
077777
037777
017777
007777
003777
001777
000777
000377
000177
000077
(000037
000017
000007
000C03
000001
000000
000000

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

002000
004000
(10000
02000C
040000
100000
100000
040000

.WORD
LWORD

0.
1.

.WORD

000037

000777
001777
003777
007777
017777
037777

DATA PATTERN TABLE

.WORD

000007

9 071766

10 071770

MIXED:

.WORD

ONES:

JEROS:

SEG

.WORD
.WORD
.WORD

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WOR
.WOR
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

15.

31.

63.
127.
255.

511,
1023.
2047.
4095.
8191.
16383.

32767.
65535.
65535.
32767.
16383.
8191.
4095.
2047.
1023.
9t1.
£33,
127.
63.
31.
15.
7.
3.
1.
0.
0.

1.
2.

4.
8.
16.

32.

64.

128.
256.
512.

1024.
2048.
4096.
8192.
16384.
32768.
32768.
16384,

‘

’
]

(8-

CZRMOBO RMO5/3/2 FCINL TST 3
DATA PATTERN TABLE

MACRO v04.00 4=-APR-81 01:15:59 PAGE 52-1
K

S8 072130
59 072132
60 072134
61 072136
€2 072140
63 072142
64 072144
65 072146
66 072150
67 07215.
68 072154
69 072156

020000
010000
004000
002000
001
000400
000200
0007
Q00040
000020
000010
000004

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

8192.
4096.
2048.
1024.
518,
256.
128.
64.
L &8
16.
8.
4.

73 072166
74 072170
75 072172

177777
177776
177774

.WORD
.WORD
.WORD

65535.
65534.
65532.

70 072160
71 072162
72 072164

76 072174
77 C72176
78 072200

000002
(000001
003000

177770
177760
177740

79 072202
80 072204
81 072206
82 072210
83 072212
84 072214
85 072216
86 072220
87 072222
88 072224
89 072226

177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000

92 072234

140000

90 072230
91 072232

93 072236
94 372240
95 072242
96 072244
97 072246
98 072250

99 072252
100 072254
101 072256
102 072260
103 072262

104 072264
105 072266
106 072270
107 072272
108 072274
109 072276
110 072300
111 072302
112 072304
113 072306
114 072310

.WORD
.WORD
.WORD

.WORD

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

000000
100000

WORD
WORD

JWORD

160000
170000
174000
176000
177000
177400

177600
177700
177740
177760
177770
177774
177776
177777
125252
152525
125252
177777
177776
177775
177773

177767

WORD
WORD
WORD
WORD
.WORD
.WORD

EARLY:

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

2.
i
0.

65528.
65520.
65504.

65472.

65408.
65280.
65024.
64512.
63488.
61440.
57344.
49152.
32768.
0.

0.
32768.

49152.

57344,
61440.
63488.

64512.
65024.
65280.

65408.
65472.
65504.
65520.
65528.
65532.
65534,
65535.
43690.
43690./2
43690.
65535.
65534.
65533.
65531.
65527.

SEG UeB?Y

b p
e
e o
b d e
e e
b D e

V'\l§

W
4

o
~
n

o [elele]

~N NNN
n nNN
W WW
~N
~H nNOo

gw FRRURLS

b D

b e e
e e
WWNINNWN

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

077777
077777

141
142
143
144

072376
072400
072402
072404

.WORD
.WORD

177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

b d e

HWwW
o D00~

——

137777
157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776
177777

ENRGDT:

WS NS
W0 =N YO NO —
O W= NN=WON=
WO N—=WO

DATA PATTERN TABLE

MACRO v04.00 4-APR-81 01:15:59 PAGE 52-2
o Lottt
oanlonion
WS
wVomn
H S

CZRMOBO RMOS5/3/2 FCTINL TST 3

SEQ 0284

CZRMOEQ RMOS/3/2 FCINL TST 3

FRROR MESSAGE

TABLE

MACRO Vv04.00

;

3 072404
L 072410

076772
077041
077041

000000
077056

077164

077326

000000

5 072416
6 072424

077164

077121
077214

000000
000000

8 072440

103766

101205

000000

7 072432

000000

9 072446 101753 104013 000000
10 072454 077261
000000
1 072460 077326 000000

.SBTTL

ERROR MESSAGE TABLE

EMT1:
EMT2:
EMT3:

.WORD
.WORD
.WORD

EMS1,0
EMS2.EMS3.0
EMS2,EMS4.0

EMTS:

.WORD

EMSS.EMS10,0

EMT4:
EMT6:

EMT7:
EMT10:
EMT11:

2 072464
3 072472
Z 072504
5 072512
6 072520

077370
077442
077536
077370
077370

077401
077453
101205
077621
077644

000000
077464
000000
000000
077773

19 072550
20 072560
21 072570
22 072600
23 072610
24 072620
25 072630
26 072640
27 072650
28 072660
29 072670
30 072700
31 072710
32 072720
33 072730
3, 072740
35 072746

077370
077370

077735
077752

077773
077773

103271

101413 EMT42:

7 072530
18 072540

3% 072756

37 072770
38 073000

39 073010

077370
077370

077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
077370
101271
101457

103261

100575
101516

101544

077660
077706

100014
100043
100072
100120
100171100220
100247
100275
100324
100352
100401
100430
100503
077576
103170
100711
100711

100711

100004
100004

100711
100711

101341
101341

49 073154

50 073164
51 073202

52 073222

53 073236

103233

100653

101413

100774
101400

101341
100774

103766

103147

101423

101341

100711
101341

101341

102153
101341

103354

103416

101366

57 073312

103725

101647

101413

100701
103725

EMT45:

EMTS52:

EMTS53:
EMTS4:

EMT55:

EMT56:

EMIS7:
EMT60:
EMT61:

102153 EMT62:

54 073240

55 073260
56 073300

.WORD
.WORD

EMT46:
EMT47:
EMTS50:
EMT51:

101465

100575
100624

103216

.WORD
.WORD

45 073076
46 073114

48 073136

.WORD
.WORD
.WORD
.WORD
.WORD

EMT43:
EMT44:

101465
000000
101157
100004

47 073124

EMT21:
EMT22:

.WORD
.WORD
.WORD

101465
101465

100711
101205
077464
100546

100711

EMT17:
EMT20:

.WORD

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

101572
101223
077442
077370

100575

EMT12:
EMT13:
EMT14:
EMT15:
EMT16:

.WORD

100004 EMT23:
100004 EMT24:
100004 EMT25:
100004 EMT26:
100004 EMT27:
100004 EMT30:
100004 EMT31:
100004 EMT32:
100004 EMT33:
100004 EMT34:
100004 EMT35:
100004 EMT36:
100004 EMT37:
000000 EMT40:
101465 EMT41:

40 073020
41 073030
42 073036
43 073046

44 073060

EMT63:

EMT64:

104413 104574 EMT65:
101647 101413 EMT66:

EMT67:

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

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD

.WORD

.WORD
.WORD

EMSS.EMS6,0

EMS167,EMS64,0

EMS110.EMS170,0
EMS7,0
EMS10,0

EMS11.EMS12,0
EMS13.EMS14.EMS15,EMS16.0
EMS17.EMS64.0
EMS11,EMS21.0
EMS11,EMS22.EMS27.,0
EMS11,EMS23.EMS30.0
EMS11.EMS24,EMS30.0

EMS11,EMS25,EMS27.0
EMS11,EMS26.EMS27.0

EMS11.EMS31.EMS30.0
EMS11.EMS32.EMS30.0
EMS11,EMS33.EMS30.0
ens11.snss4,snsso.8
EMS11,EMS35,EMS3C
EMS11.EMS36.EMS30 'o
EMS11.EMS37.EMS30 .0
EMS11.EMS40,EMS30.0
EMS11.EMS41.EMS30.0
EMS11.EMS42.EMS30.0
EMS11.EMS43.EMS30.0
EMS11.EMS44.EMS30.0
EMS11.EMS45.EMS30.0
EMS66.EMS20,0
EMS7S.EMS141,EMS76,0

EMS144,EMS145,EMS72,EMS76.,0
EMS47.EMS53,.EMS76.0
EMS77.EMS53.EMS76.0

EMS100,EMSSS.EMS76.0

EMS101.EMS53,EMS76.0
EMS6S,EMS64,
EMS13.EMS15.EMS63,0
EMS11.EMS46.EMS30.EMS67,0

EMS47.EMSS3.EMS67.EMS115,EMS140,EMS141,0
EMS47.EMS53.EMS67.EMS115.EMS141,EMS164.0
EMSS0,EMSS53.EMS67.0

EMS142,EMS143,EMS53,EMS67,0

EMSS1,EMS72,EMS67,EMS115,EMSS0,EMS70,0

EMS167,EMS73.EMS67.0

EMSS6,EMS67,EMS115,EMS150,EMS152,EMS70,0
EMS71,EMS56,EMS67,EMS115,EMS150,EMS152,EMS72,0

EMS140,EMS67.EMS11S,EMS47,EMS70.0

.WORD

EMS150,EMS152,EMS70,EMS115,EMSS56,EMS73,EMS67,0

.WORD

EMS165.EMS103.EMS72.EMS171.0

.WORD
.WORD

EMS52,EMS205,EMS214.EMS206.EMS115,EMSST,EMS72,0
EMS165,EMS10%5,EMS72.EMS124.0

SEQ 0785

CZRMOBO RMOS/3/72 FCTINL TST 3
| ERROR MESSAGE TABLE

58 073324

100546

077576

b4 073430

100575
100575
100774
101400
100624

101413
101413
100717
100774
100711

66 073452
67 073470

101457
101457

69 073516
70 073530

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

SEQ 0286

103620

EMT70:

.WORD

EMS46.EMS20,EMS163,0

103620
103620
103620
103620
103620

EMT72:
EMT73:
EMT74:
EMT75:
EMT76:

.WORD
.WORD
.WORD
.WORD
.WORD

EMS47.EMS72.EMS163.EMS115,EMS140,EMS141,0
EMS47.EMS72.EMS163.EMS115.EMS141.EMS72,0
EMSS6.EMSS3.EMS163.0
EMS71.EMSS56.EMS163.EMS115,EMS150,EMS152,EMS72,0
EMSS0,EMS53.EMS163.0

103170
103354

103620
103620

EMT100: .WORD
EMT101: .WORD

103337
100653

103372
101440

101440
103620

EMT103: .WORD
EMT104: .WORD

72 073556

103725

101516

103620

EMT106:

76 073626
77 C73634
78 073650

102077
101753
102077

000000
102156
000000

EMT112:
EMT113:
EMT114:

.WORD
.WORD
.WORD

EMT116:
EMT117:
EMT120:
EMT121:
EMT122:
EMT123:
EMT124:
EMT125:
EMT126:
EMT127:
EMT130:
EMT131:
EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:

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

EMT143:
EMT144:
EMT145:
EMT146:
EMT147:
EMT150:
EMT151:
EMT152:

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

§9 073334
s

o
N

60 073344
61 073362
62 073400
W

MACTRO V04.00

101400

101572

103420 EMT71:

65 073440 103216 103233 100711

EMI77:

.WORD

68 073506 103766 101423 103620 EMT102: .WORD
71 073546

73 073566
74 073606
75 073620

79 073656
80 073666
81 073676
82 073706
83 073716
84 073726
85 073736
86 073746
87 073756
88 073766
89 074000
90 074012
91 0740246
92 0740
93 074050
94 074062
95 074074
9 074106
97 074120
98 074130
99 074140

100 874150

101
074160
102 074170
103 074200
104 074210
105 074220
106 074230
107 074240
108 074252

109 074564

110 074302

103725

103620

103261
101753
102077

103271
102013
077121

100711
102156
000000

102251

102711

102735

102314
102351
102414
102446
102511
103112
102613
102651
102251
102314
102351
102414
102446
102511
103112
102613
102651
102251
102351
102251

103112
102414
102446
102511
102651
104042
102613
103147
103216

103261

103%61

m 0743§0

103354

114 074356

103570

112 074332
113 0764344

101544

103337
103337

077056
102153
102230

102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711
102711

102711

102711
102711
102711
102711
102711
102711
102153
102153

103271

102735
102735
102735
102735
102735
102735
102735
102735
102760
102760
102760
102760
102760
102760
102760
102760
102760
103022
103022
103065
103065

103065
103065
103065
103065
103065
103065
103170
103233

103320

103271

077576

103372
103372

103464
103520

103416

103520

103464

103553

EMT105:

.WORD

EMT107: .WORD
EMT110: .WORD
EMT111: .WORD

EMT115: .WORD

EMT142:

.WORD

EMT153: .WORD

EMT154: .WORD

EMS71.EMS101,.EMS16%5.0

EMS142,EMS143,EMS53,EMS163.0

EMS75.EMS141,EMS163.EMS115.EMS47
,EMS70.0
EMS75.EMS150.EMS163.EMS115.EMSS6.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
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.0
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

EMT160:

.WORD

)
:

EMS144.EMS145,EMS146,EMS115,EMS143,EMS72,0
EMS144,EMS145,EMS20,EMS115,EMS143,EMS70,0

EMT155: .WORD EMS150.EMS152.EMS154 EMS155.0
EMT156: .WORD
EMT157: .WORD

‘
¥

EMS147,EMS151,EMS154,EMS155,0
EMS147,EMS151,EMS156,EMS157,0
EMS161,EMS156,EMS160,0

CZRMOBO RMOS/3/2 FCINL TST 3

ERROR MESSAGE

115 076366

MACRO v04.00

TABLE

077735

077773

103520

EMT161:

103620
077576

103147
000000

EMT163: .WORD
EMT164: .WORD

116 0764600

077752

119 074430
120 074436

100774
100546

077576
077576

103766

103464

1064042
102077
104237

117 074412
118 074422

100575
100575

B 7
4&-APR-81 01:15:59 PAGE 54-2

(77773

103520

.WORD

EMT162:

.WORD

000000
000000

EMT165:
EMT166:

.WORD
.WORD

103500

EMT172:

.WORD

102711
104215
104256

102760
000000
000000

EMT174: .WORD
EMT175: .WORD
EMT176: .WORD

121 J744k4
122 074452
123 074464

105114 077576 000000 EMTi67: .WORD
104352 103170 100004 EMT170: .WORD
103766 103464 103536 EMT171: .WORD

125 074506

104042

124 0744764

126 074514
127 074526
128 074536

102711

102735

EMT173:

.WORD

129 074542
130 0764544

104352

100653

100004

EMT177:
EMT200:

132 074570

104352

100624

100004

EMT202: .WORD

133 074602
13, (74614

135 074632

136 074642

104352

104365

103233

100004

EMT203: .WORD

100624

101647

101413

EMT205:

103170
103354
101413

102153
000000
102153

103354

101656

101440

101423

101457
101457
100653

147 074722
142 0764732
143 074752
144 074764
145 074774
146 075004
147 075014

100624
100701
100701
100774
100546
100014
100575

101647
104413
102206
100004
100006
100004
100004

100701
000000

102206

148 075024

149 075034
150 075044

103216

100701

151 075046

000000

153 075052
154 075054
155 075056
156 075060
157 075062
158 075064
159 075066
160 075070
161 075072
162 075074
163 075076
164 075100
165 075102

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

152 075050

166 075104

167 075106
168 075110
;
!

EMT201: .WORD

104352

137 074652
138 074664
139 074672

140 074706

100004

100711

102206

104322

.WORD
.WORD
.WORD

100711
103741
100774
101205
101205
101205
101205

EMT213:
EMT214:
EMT215:
EMT216:
EMT217:
EMT220:
EMT221:

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

101157

EMT223: .WORD
EMT22%: .WORD

102153

101516

000000

EMT212: .WORD

EMT222: .WORD
EMT225:

.WORD

EMT227:
EMT230:
EMT231:
EMT232:
EMT233:
EMT23%:
EMT235:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:

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

EMT244:

10
57

.WORD

EMT206: .WORD

EMT226:

1
11

.WORD

EMT207:
EMT210:
EMT211:

000000

000000
103766

EMT204:

104452
104477
104477
000000

EMT245:
EMT246:
EMT247:

EMT250:
EMT251:

EMS26.EMS27 .EMS156.EMS160.0

EMS47.EMS163,EMS140,0
EMS47.EMS20,0
EMS56.EMS20.0
EMS&L6.EMS20,0

EMS224.EMS20,0
EMS203.EMS141,EMS30,EMS202,0
EMS167.EMS154.EMS157.0
EMS167.EMS154.EMS155.0
EMS171.EMS132.EMS133.0

EMS171.EMS132.EMS134.EMS123,0
EMS113.EMS177.0
EMS200,EMS201.0
EMS203,EMSS1,EMS30,EMS202,0

EMS203.EMS204,EMS30,EMS202,0
EMS203.EMSS50,EMS30,EMS202,0

EMS203.EMS1435,EMS30,EMS202.0

EMS150,EMS74,EMS202,EMS115.EMS152
,EMS72,0
EMSSO,EMS103.EMS72,0

EMS104,EMS73.EMS202,0

EMS?S,EMS141.EMS115.EMS140,0
EMS75,EMS150,0
EMSS51.EMS72,Er ;115,EMSS0,EMS70,0

EMS142,EMSSS,EMS115,EMS143,EMS72.0

EMSS0,EMS103.EMSS3.0
EMSS52.EMS205.EMS166,EMS206,EMS115,EMSST,EMS72,0
EMS52.EMS117.EMSS6,EMS163.0
EMS56.EMS30,EMS64.0
EMS46.EMS30.EMS64.0
EMS31.EMS30.EMS64.0
EMS47.EMS30.EMS64 .0

EMSS2.EMS117.EMS77,0

EMS52.EMS117.EMS63.0

.WORD

.WORD
.WORD
.WORD

.
.WORD

131 074556

.WORD
.WORD

EMS25,EMS27.EMS156.EMS160,0

EMS167,EMS132,EMS207,0
EMS167.EMS132.EMS210.EMS125,0
EMS167 ,EMS211 ,EMS210,EMS207,EMS206,0
EMS212,EMS213,0

CZRMOBO RMOS/3/2 FCTINL TST 3
172 075154

TABLE

103 725

104 526

FRROR MESSAGE

101572

1000064

102206
104413

100774
104716

173 075162

103337

175 075210
176 075220
177 075230

104352
104352
077370

103766
101544
100546

180 075274

101656

101423

174 075200

178 075242
179 075256
181 075304

104352

100701
100701

100624

103372

100711

182 075314

100774

184 075354

103216

103233

101457

103170

133 075334

101400

185 075366
186 075404
187 075420

100624
100575
100575

189 075454
190 075472

100653
101157

188 075436

191 075510

192 075522
193 075536
194 075556
195 075574

196 075616

197 075630
198 075642
199 075654

102155

100575
100575
100774
101400

103725

206 075774
207 076006
208 076020

100352
100014
101400

209 076032

210 076042
211 076052

103261
100401

100503
100430

100004
100004
100004

104322

101620

101620
101620

100711

102153
101620
101620

101440
100711

101620
101051

100711

100711
100711
100711
100774

101544

103233

101656
101705

103520

103320
100711
100711

103216

20% 075730
204 075742

205 075754

100774

101572
101516
100004

100624
100624

202 075716

100711

103725
103725
100546

200 075666
201 075676

MACRO V04.00

100711
103320

101620

100324
101051
101051
101051
100711

101647

101647
101647
101205

101051
102153

100711

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

EMT252:

EMT253:

.WORD

EMT254: .WORD
EMT255:
EMT256:
EMT257:

.WORD
.WORD
.WORD

EMT260: .WORD
EMT261: .WORD
EMT262: .WORD

EMT1263: .WORD
EMT264:

EMT265:

.WORD
.WORD

EMT266: .WORD

EMT267: .WORD
EMT270: .WORD
EMT271: .WORD

EMT272: .WORD

EMS203.EMS101.EMS30,0

EMS203.EMS167.EMS30.0
EMS203.EMS100,EMS30.0
EMS11,EMS46,EMS30,EMS102,0

EMSS52.EMS117,EMSS6,EMS102,0
EMSS52.EMS205.EMS220,EMS206,EMS115,EMSST,EMS72,0
EMS104,EMS73.EMS202.0

EMSS0,EMSS3,EMS102,0

EMS56.EMS53.EMS102.EMS115,EMS150,EMS152,EMS70,0
EMS71,EMS56, nswg EMS115.EMS150.EMS152.EMS72.0

EMS142,EMS143,EMSSS,EMS102,0

EMSSO,EMS146,EMS115,EMSS2,EMS117,EMS46,0
EMS47.EMS53,EMS102,EMS115.EMS140.0
EMS&47.EMSS3.EMS102,EMS115,EMS141.EMS72,0

EMS7S.EMS141,EMS102,EMS115,EMS47.EMS73.0

.WORD
.WORD

EMT276:
EMT277:
EMT300:
EMT301:

.WORD
.WORD
.WORD
.WORD

EMS47,EMS53,EMSS7,EMS115.EMS140.0
EMS47.EMSS53.EMSS7.EMS115.EMS141.EMS72,0
EMSS6.EMS53.EMS57.EMS115,EMS150,EMS152
EMS70,0
EMS71,EMS56,EMSS53,EMSS7,EMS115,EMS150,EMS152.EMS72,0

EMT303:
EMT304:
EMT305:

.WORD
.WORD
.WORD

EMS165.EMS101.EMS103.EMSS7.0
EMS165.EMS77,EMS103,EMS57,0
EMS46,EMS30,EMS64,EMSS7,0

EMT275: .WORD

EMT302: .WORD

EMT306: .WORD
EMT307: .WORD

EMT310: .WORD

EMSS1.EMS74,EMS102,EMS115,EMS50,EMS70,0
EMS63.EMSS53.EMSS7,EMS115,EMS4T,EMST146.0

EMS116,EMS5S,EMS4T,EMSS7.0

EMS165,EMS100,EMS103,EMSS7.0

EMSSO.EMSS3.EMS57.0
EMSS0.EMS146,EMS115,EMSS2,EMS117,EMS46,EMSS7,0

EMS142,EMS145,EMSS3.EMS57.0

101647
101647

100711
100711

EMT311: .WORD
EMT312: .WORD

EMS104.EMS103.EMS53.EMS57.0
EMS105.EMS103.EMSS3.EMSS7.0

101647
101647
100014

100711
100711
101647

EMT314: .WORD
EMT315: .WORD
EMT31%6: .WORD

EMS42,EMS103,EMS53,EMS57.0
EMS31.EMS103.EMS53.EMS57.0
EMS71.EMS31,EMS103.EMS57.0

101647
101647

101051
101051

EMT320: .WORD
EMT321: .WORD

103271

101647 EMT313: .WORD

101647 101051

EMT317: .WORD

215 076112
216 076124

104075
077442

100220
104132

101647
077464

EMT325: .WORD
EMT326: .WORD

220 076176
221 076210

100275
100653

101647
101440

100711
101051

EMT332: .WORD
EMT333: .WORD

100120
100745
100707

100711
100120
102206

100723
000000
100774

EMT340: .WORD
EMT341: .WORD
EMT342: .WORD

103337 103372 101440 EMT327: .WORD
101271 100711 104140 EMT330: .WORD
100072 101647 100711 EMT331: .WORD

222 076226 101457 103170 101051 EMT33%: .WORD
223 076244 101457 103354 103416 EMT335: .WORD
224 076264 101077 101112 101141 EMT336: .WORD
225 076274 102156 102206 100120 EMT337: .WORD
206 076304
227 076316
228 076324

EMS147.EMS151.EMS156,EMS210,EMS26,EMS27,0

EMT273:
EMT274:

212 076062 101734 077576 . 000000 EMT322: .WORD
213 076070 100220 101647 1071051 EMT323: .WORD
214 076100 104115 100220 101647 EMT32%4: .WORD
217 076142
218 076154
219 076164

EMS165,EMS212,0

EMS144.EMS145.EMS103,EMSS7 EMS115,EMS143,EMS70.0
EMS43.EMS105,EMSS7.0
EMS45.EMS103.EMS57.0
EMS44.EMS103.EMS57.0

EMS106,EMS20.0
EMS36,EMS103.EMS57,0
.
EMS1735,EMS36.EMS1035,.EMSS7.0

EMS172.EMS36.EMS103.EMS57.0
EMS13,EMS174.EMS15,EMS35,EMSS3,EMS175,0

EMS147,EMS151,EMS74 EMS175,0
EMS66,EMSS3,EMS175,0
EMS33.EMS1035,EMSS3.EMS175,0

EMS40.EMS103.EMS53.EMSS7.0
EMSS1.EMS74,EMS57,EMS115,EMSS0,EMS70,0

EMS75.EMS141,EMSS? EMS115,EMS47 EMS7$,0
EMS75.,EMS150,EMS152,EMSS7
EMS115 EMSS6,EMS73.,0
EMS60.EMS61,EMS62,0
EMS116,EMS117,EMS34,0
EMS34,EMS53,EMS54,EMS111,0
EMS35.EMS34.0
EMS52.EMS117,EMS56,EMS57,0

SEC 0c88

(ZRMOBO RMOS/3/2 FCTNL
ERROR 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 3
102206
102206

MACRO v04.00
100503
100430

EMT343:
EMT344:

.WORD
.WORD

EMSS52,EMS117,EMS4S,EMS57,0
EMSS52.EMS117.EMS44.EMS57.0

102153
105006
101620

EMT346:
EMT347:
EMT350:

.WORD
.WORD
.WORD

EMS106,EMS20.EMS115.EMS223,EMS72,0
EMSS52,EMS205.EMS222.EMS206.
0
EMS75.EMS150.EMS102.EMS115.EMS56,EMS73,0

EMT352:

.WORD

102206

104736

104413
103354
101423

101620

077576

000000
104352
077576

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

104633

000000

EMT345: .WORD

EMT351: .WORD
EMT353:

.WORD

EMT354: .WORD

EMS52.EMS117.E%5221,0

EMS167,EMS73.EMS102.0

EMS215.0

EMS217.EMS203,EMS216,0

EM5221.EMS20,0

CZRMOBO RMOS/3/¢ FCTINL 1ST 3

FRROR MESSAGE

OO0
WA
N

e
e e ey

TABLE

076502

076470

105772
106047

076512
076516

000000
000000

076522
076526
076540

000000
105772
105772

076552
076564
076576

105560

105772
105772
105772

076610

105716

000000

MACRO Vv04.00

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

EHT:
EHTZ:

.WORD

EHT110:
EHTT 11::

.WORD
JWORD

106047
106047

EHT114:
EHT223:
EHT256:

.WORD
. WORD
.WORD

106047
106047
106047

EHT336:
EHT337:
EHT344:

.WORD
.WORD
.WORD

EH336,STSH1,STSH2,STSH4,0
EH337,STSH1,STSH2,STSH4,0

EHT353:

.WORD

EH353,0

106047
106174

TSH1,STSH2,STSH4,0
TSH1,STSH2,STSH4,0

EH344,STSH1,STSH2,STSH4,0

SEQ 0290

106232
106326

L 076632

2 076634

106240
106244

7 076636
8 076640

106252
106262

9
10 076650

106272

11 076660
}% 076670

106304
106304

14 076702

106316

106326
106344

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

106344

.WORD
.WORD

ED
ST

:
:

.WORD
.WORD

ED
ED

106376

106326

106344

:
:

.WORD
.WORD

ED
ED

106326
106326
106326

106344

JWORD

106344

EDT344:

.WORD
.WORD

EDT353:

.WORD

ED353

106344

ED
ED

TSD1,STSD2,STSD4
TSD1,STSD2,STSD4
TSD1,STSD2,STSD4
TSD1,STSD2,STSD4,0

076614

% 076624

TABLE

MACRO v04.00

ERROR MESSAGE

wmwununmw

JRMOBO RMOS/3/2 FCTNL 1ST

CZRMOBO RMQS/3/2 FCTNL

FRROR MESSAGE

076706

106627

106427

G 7
4=-APR=-81 01:15:59 PAGE 57

EFT1

JWORD

EF111,STSF,STSF,STSF

EFT110:

.WORD

EF110

106627

& 076722

106410

7 076726
8 076730

106413
106613

106427

EFT114:
EFT223:

.WORD
.WORD

EF114
EF114,STSF,STSF,STSF

10 076740
11 076750

106416
106416

106427
106627

106427
106427

EFT336: .WORD
EFT337: .WORD
EFT344:

.WORD

EF336,STSF,STSF,STSF
EF336.STSF.STSF,STSF

14 076770

106413

EFT353:

.WORD

EF114

3; 076760

— =

106471

MACRO v04.00

% 076714

g 076724

TABLE

TST 3

106411

106416

EFT2:

EFT111:

106427

.WORD

STSF,STSF,STSF

EF111

EF336.STSF.STSF.STSF

JRMOBO RMOS/3/2 FCINL TST 3

FRROR MESSAGE

1
2

STRINGS

MACRQ v04.00

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

.SBTTL

ERROR MESSAGE

STRINGS

T 076772

127

122

117

EMS1:

.ASCIZ

@WRONG UNIT SELECTED (RMCS2, BITS 0-2) @

5077056
6 077121

125
116

116
117

101
116

EMS3:
EMSk:

.ASCIZ
.ASCIZ

@UNAVAILABLE 'DVA'' (RMCS], BIT 11) @
aNONEXISTENT 'NED* (RMCS2, BIT 12) a

8 077214
9 077061
10 077326

103
104
107

117
122
117

116
111
040

106

125

116

EMS12:

EMS14:
EMSIS:

4077041

7 077164

104

103

11077370

111

13 077442

115

12 077401

14 077453
15 077464

110
117

117
122

123

124

27 100014
28 100043
29 100072
30 100120
31 100171
32 100220
33100267
3% 100275
35 10032
36 100352
37 100401
38 100430
39 100503

042
042
042
127
042
042
042
042
042
042
042
110
106

41 100575

042

48 100774

111

100624
100653
100701
100711
100723
100745

49
50
51
52

101051
101077
101112
101141

042
042
042
124
104
101
111

125
114
101
111
131"
104

103
101

123
102
117
123
114
104
101

127
125
127
122
115
104
105
104
115
104
110
105
117

“114
120
103
111
104
103
108
114
130
124
103
101
122

117

120

111

101

EMSS:

EMSé:
EMS7:
EMS10:

EMS11:

EMS13:

EMS16:
EMS17:
EMS20:
EMS21:

EMS22:
EMS23:
EMS24:
EMS25:
EMS26:
EMS27:

EMS30:

EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMSSr:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS45:

EMS4é:

123

040

106

125

122

55 101223
56 101271

103
104

120

117
101

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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

.ASCIZ

.ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

111

126

.ASCIZ
.ASCIZ
.ASCIZ

EMS56:

122 'EMS57:
124 (EMS60:
105 /EMS61:
124 ‘EMS62:

116

.ASCIZ

125
101
117
101

104
104
104
106

.ASCIZ

EMS47:

113
111
105
124
040
103

042

7 101341

115
122

EMS2:

123
120
110
105
124
116

53 101157
54 101205

123

123
127

102
042
042
104
103
101

42
43
44
45
46
47

101

126

116
123

20 C77644
21 077660
22 077706
23077735
2 077752
25 077773

40 100546

116

115

117
125

042
124

26 100004

117

126

103
102

16 077506
17 077536

18 077576
19 077621

105

EMSS0:
EMS51:
EMS52:
EMS53:
EMSS4:
EMS35:

101

EMS63:

115
124

EMS65:
EMS66:

EMS64:

EMS67:

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

.ASCIZ
.ASCIZ

.ASCIZ

QDEVICE WENT @

@COMMAND NOT COMPLETED,

@CONTROLLER NOT READY (RMCS1, BIT 7) @
QDRIVE NOT READY 'DRY'' (RMDS: BIT 7) @
@GO NOT RESET ''GO'* (RMCS1, BIT 0) @
QINVALID @

@FUNCTION CODE

QMASSBUS @

(RMCS1, BITS 1-5) @

QCONTROL @
@BUS PARITY ERROR @

Q@MCPE'' (RMCS1, BIT 13) @
QTRANSFER ERROR (RMCST, BIT 14) 3
@SHOULD NOT BE SET @
QWORD COUNT (RMWC) @

@BUS (RMBA) @
@ LBT'' (RMDS, BIT 10) @
@''AOE'' (RMERT, BIT 09) @
@DISK (RMDA) @
@CYLINDER (RMDC) @
QADDRESS @
QSTATUS @

@ WLE'' (RMER1, BIT 11) @
@UPE'' (RMCS2, BIT 13) @
@'WCF'' (RMERT, BIT 5) @
@WRITE CHECK ERROR-"WCE'' (RM(S2, BIT 14) @
@' MDPE'' (RM(S2. BIT 8) @
@' DCKTM (RMER1, BIT 15) @
QECH (RMERI. BIT 6) 3
@' DLT' (RMCS2. BIT 15) @
@MXF'' (RMCS2, BIT 9) @’
@'DTE'’ (RMER1; BIT 12) @
@ MCRC''
(RMERi, BIT 8) @
@HEADER COMPARE ERROR 'MCE'' (RMER1, BIT 7) @
QFORMAT ERROR 'FER'' (RMER1, BIT 4) @
@''IAE'' (RMER1, BIT 10) @

@ 'OPI'* (RMER1. BIT 13) @

@ 'SKI'* (RMER2, BIT 14) a
@&'PIP'"" (RMDS, BIT 13) &
QTHE RM @
QDETECTED @
QAT AN UNEXPECTED 3
@INCORRECT DATA DURING 8

QINVALID COMMAND ERROR ''IVC'‘ (RMER2, BIT 12) @
@DURING DATA TRANSFER @
@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @

@ PAR'' (RMER1, BIT 3) @
@IS INCORRECT'@

@COMPOSITE ERROR '‘ERR'* (RMDS, BIT 14) @
@DATA PARITY ERROR 'DPE'
(RMER2, BIT 3) @
@DURING SEEK COMMAND a

CZRMOBO RMQS5/3/2 FCINL TST 3

E~ROR MESSAGE

58 10136¢€

STRINGS

111

59 101400
60 101413
61 101423
62 101440
63 101457
64 101465
65 101516
66 101544
67 101572
68 101620
09 101647
70 101656

105
m
104
104
114
104
042
042
042
104
105
042

73 101753

102

71 101705
72 101734

74
75
76
77

042
110

MACRO Vv04.00

122
123
m
111
117
125
122
11
111
125
122
114

.04G
122
040
104
104
123
122
115
114
114
122
122
102

EMS?70:
EMS71:
EMS72:
EMS73:
EMS74:
EMS?75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:
EMS104:

LASCIZ

.ASCIZ
L.ASCIZ
_ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

alS RESET a
QERRONEOUS @
QIS SET a
QDID NOT SET a
QDID NOT RESET @
aLOST @
@DURING PACK ACK COMMAND a
Q'RMR'' (RMER1, BIT 2) a
@a''ILR'' (RMER1, BIT 1) @
@Q''iLF'' (RMER1, BIT 0) @
QDURING SEARCH COMMAND a
QERROR @
@'LBC'' (RMERZ2, BIT 10) @

125

123

EMS110:

.ASCIZ

a@BUS TIMEOUT (04 TRAP) @

123

114
105

123
101

102002
102013
102055
102077

101
127
101
124

104
110
124
110

104
105
040
105

79 102153

015

012

000

81
82
83
84
85
86

106
116
103
102
103
105

101
117
117
125
117
122

111
124
116
123
116
122

78 102127

80 102156

87
88
89
90
91
92
93
94
95
96
97

102206
102230
102251
102314
102351
102414

102446
102511
102554
102613
102651
102711
102735
102760
103022
103065
103112

98 103147

116

124

101
115
105
105
115
116
125
103
122
104
104
115

99 10317C

042

101 103233

042

103 103271

042

107 103372
108 103416

042
042

112 103520

116

100 103216
102 103261

104 103320
105 103337
106 103354

109 103442
110 103464
111 103500

113 103536

114 103553

104

125

123
117
126

117

110

116
105

EMS105:
EMS106:
EMS111:
EMS112:

.ASCIZ
.ASCIZ

EMS113:

.ASCIZ
.ASCII
ASCIZ
_ASCIZ

EMS115:

.ASCIZ

EMS114:
EMS116:

.ASCIZ

QATTENTION SUMMARY REGISTER, RMAS, a
QMAINTENANCE REGISTER #1, RMMR #1, a
QECC POSITION REGISTER, RMEC1, @
QECC PATTERN REGISTER, RMEC2, @
QMAINTENANCE REGISTER 2, RMMRZ, a
@NOT INITIALIZED BY @
QUNIBUS INITIALIZE @
QCONTROLLER CLEAR, I.E. BIT 5 OF @
@RH/RM ERROR CLEAR (RMCS1, BIT 14) a
aDRIVE CLEAR COMMAND a
QDRIVE STATUS REGISTER, RMDS a

EMS141:

.ASCIZ

104

126

EMS143: _ASCIZ

116

EMS145:

116

125

120
116
117

122

124

117
m

111

123

117
106
114

115
126

103
124
106
124

103
120

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
._ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

117

122

QNONEXISTENT DEVICE @

EMS125:
EMS126:
EMS127:
EMS130:
EMS131:
EMS132:
EMS133:
EMS134:
EMS135:
EMS136:
EMS137:

115

104

QADDRESS a
QWHEN READING/WRITING RH REGISTERS @
QAT THE FOLLOWING @
QTHE SELECTED DEVICE IS @

QTHE MASSBUS CONTROLLER a

124
111
103
103
111
124
111
116
057
111
111

105

@'LSC'' (RMERZ, BIT 11) @
@HEADER ERRCRS @

.ASCIZ

EMS117: .ASCIZ
EMS120: .ASCIZ
EMS121: .ASCIZ
EMS122: .ASCIZ
EMS123: .ASCIZ
EMS124: .ASCIZ

124
101
i03
103
101
117
116
117
110
122
122

110
106
117
117
126
101
117
106

122

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

EMS140:

.ASCIZ

EMS142:

.ASCIZ

EMS144:

.ASCIZ

EMS146:
EMS147:
EMS150:

EMS153:
EMS154:
EMS155:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

EMS157:

.ASCIZ

EMS151:
EMS152:

EMS156:
EMS160:

.ASCIZ

QFAILED TO DETECT @
@NOT AN RMO5/3/2 @
QCONTROL STATUS REGISTER 1, RMCS1, @
@BUS ADDRESS REGISTER, RMBA, a
QCONTROL STATUS REGISTER 2, RM(SZ2, a
QERROR REGISTER 1, RMER1, a

QMEDIUM OFF LINE @

@'MOL'' (RMDS, BIT 12) @
@DRIVE FAULT @

Q@'DvC'’ (RMERZ2, BIT 7) @
QUNSAFE a

@'UNS'' (RMER1, BIT 14) @
@SHOULD BE SET @
QOFFSET MODE @
Q@VOLUME VALID @

Q@'OM'' (RMDS, BIT 0) @
@''VV'' (RMDS, BIT 6) @
@PACK ACK COMMAND a
aNOT SET BY @
QOFFSET COMMAND @
@NOT RESET BY a

Q@RTC COMMAND @

QRIP COMMAND a

CZRMOBO RMO5/3/2 FCTINL TST 3

FRROR MESSAGE

STRINGS

115 103570

117

118 103644
119 103713

11
103

116 103620
117 103620

105

EMS165:

EMS167:
EMS170:
EMS171:

040
114

105

103

116

122 103766 =
123 104013
124 104042

042
127
105

101
110
122

124
105
122

126
127
128
129
130

104115
104132
104140
104166
104215

122
104
104
042
111

105
101
125
117
116

103
124
122
120
040

132 104254

104

101

131

133
134
135
136
137

104237

122

116

103

117

101

116

104322
104352
104365
104413
104425

104
111
042
105
127

125
116
127
130
111

139 104477

127

122

111

101

106

138 104452
140
141
142
143
144
145
146
147

042

107

104510
104526
104551
104574
104612
104633
104663
104716

127
120
127
123
120
104
114
123

149 105006

101

040

116

117

148 104736
150

151

105037
105114

102

110

101
122
101
105
122
125
117
105

105

EMS161:

122

123
131

122
103
122
105
124

117

123
117
123
105
117
122
117
101
104

101

116

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

EMS162:
EMS163:

125

103741

125 104075

125

106

120 103725

121

104

106

MACRO v04.00

EMS164:

.ASCIZ

QUNEXPECTED @

.ASCII
.ASCIZ
.ASCIZ

EMS172:

.ASCIZ

EMS200:

.ASCIZ
.ASCIZ
.ASCIZ

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

EMS201:

.ASCIZ

EMS207:

.ASCIZ

EMS202:
EMS203:
EMS204:
EMS205:
EMS206:
EMS210:

EMS211:
EMS212:
EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:

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

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

EMS221: .ASCIZ
EMS222:

.ASCIZ

EMS224:

.ASCIZ

EMS223:

(RMOF)

; <UNUSED>
QDURING RECALIBRATE a

EMS166:

EMS173:
EMS174:
EMS175:
EMS176:
EMS177:

QOFFSET REGISTER

.ASCIZ

@IS INTERMITTENT OR DRIVE DIDNT DROP ON @
QCYLINDER @
QRECALIBRATE COMMAND @

Q''ATA"' (RMDS, BIT15) a
QWHEN READING REGISTER @
QERROR REGISTER #2, RMERZ, a
QNONRECOVERABLE a

QRECOVERABLE @
QDATA @
@DURING WRITE COMMAND @
Q''OPE''
(RMER2, BIT 13) a
QIN WRITE PROTECT @
QCAN NOT SET &

Q@DIAGNOSTIC MODE

'DMD'‘ (RMMR1, BIT 0) @

Q@DURING DIAGNOSTIC MODE a
QINCORRECT @
@'WRL'' (RMDS, BIT 11) @
QEXECUTED @
awITH COMP ERROR SET @

@''GO'' (RMCS1, BIT 0) @
QWRITING @

QWAS RESET BY @
QPROGRAM INTERRUPT a
aWAS NOT GENERATED @
QSEEK COMMAND @
QPROGRAM TIMEOUT a
QDURING LOOK AHEAD TEST @
@LOOK AHEAD REGISTER,RMLA, @
QSEARCH COMMAND a

@BAD SECTOR ERROR 'BSE'' (RMERZ, BIT 15) @
@A DATA TRANSFER COMMAND
a

QHEADER COMPARE INHIBIT 'HCI'' (RMOF, BIT 10) &
QNONEXISTENT MEMORY "NEM'® (RMCSZ2, BIT 11)

(ZRMOBO RMOS5/3/2 FCINL TST 3

ERROR MESSAGE

105166

105

2 105205
z 105214

102
040

S 105233

122

7 105310
g 105336

105
123

6 105262

10 105364

125
122

130

120

123
115

EH1:

105

103

EH114:

130
124

120
101

105

130

107

104

101

}%;

}2 105521

105

130

120

15 105560

122

115

105

17 105656

i05

130

120

137

18 105716
;3 105735

105
074

21 105772

040

};;

120

}5 }83223

16 105620

137

130
103

122

}g;

137

59 106174

040

122

115

040
122

040
115

QEXPCTD

.ASCIZ

QRECEVD

EH2S4:

.ASCII
LASCIZ

QEXPCTD
@QSTATUS

EM336:

.ASCIZ

EH223:

EH337:

EHW344:

STSH1:

040
115

LASCIZ

@BUSADRA
@ RMCSZ

115

040
122

STSH2:
STSH3:

sgegx:

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

.ASCIZ
(ASCIZ

EH353:

040
040

EH110:
EH111:

120
122

22 106037
23 106047

24 106114
25 106136

STRINGS

MACRO v04.00

.ASCIZ

.:gg}{

RECEVDA

.
RM(S13

SNGPRT

DULPRT®

RECEVD
STATUS

RGSTR@<CRLF>
INDEXa

GDDATA

BDADRS

QEXPCTD

RECEVD

@QGDADRS

gancsz

STATUS

DATAd

FAILING

BDDATAd

DATAg<E§t:>
<

ASCIZ2

QERPTTDTM"RETEVD

~~BITTM~ADRESSa

.ASCII

@RMER1

STATUS

HEADER

FAILINGA<CRLF>

LASCIZ

QEXPTYD

"RECEVD

NUMBER

POSITON®

ASCI]

.ASCII
.ASCIZ

or.

WORD

QEXPCTD RECEVD@<CRLF>
@<CRLF> RMLA
RMLA

.ASCII

@ RMCS1 RMCS2

ASCIZ
.ASCIZ

RMDA
@
RMEC1
RMEC23
@ RMDA
RMDC
RMOF

LASCIZ
.ASCIl

LASCIZ

@
RMASa
@ RMWC
RMBA

@ RMMR1

RMMR2

RMDS

RMDT

B1Ta<CRLF>

RMOF a

RMER1T

RMER2a

RMOF

RMDCa@

RMLAQ

RMSNa@

(ZRMOBO RMOS/3/2 FCTNL TST 3

STRINGS

$GDDAT,$BDDAT,0

$BASE,(

001176
001142

001200
001174

ED 114:
ED 223:

.WORD
.WORD

RMDTI,$TMP1,$TMPZ2,0
$GDDAT,$BDDAT,$TMPO,0

001134

001140

001136

ED336:

.WORD

$GDADR,$GDDAT,$BDADR,$BDDAT,0

106304
106316

001140
001140

001142
001142

001174
001444

ED337:
ED353:

.WORD
.WORD

S$GDDAT,$BDDAT,$TMPO,$TMP1,0
$GDDAT,$BDDAT,RMOFO,0

106326
106344

001336
001340

001346
001342

001350
001344

STSD1:
STSD2:

.WORD
.WORD

RMCS1I,RMCS2I,RMDSI,RMER1],RMER2I,RMAS],0D
RMWC],RMBAI,RMDAI ,RMOF
I ,RMDCI,RMECT]

1063664

001344

001372

001370

STSD3:

.WORD

RMDAI,RMDCI,RMOFI ,RMLAI,0

AN -

000000

.WwORD

001142
000000

001176

= OO0 NN

.WORD

001140
001276

106252
106262

001364
001140

106272

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

ED
ED 110
ED m

106232
106240

ke
D et o
=D

ERROR MESSAGE

MACRO v04.00

106244

106360

106376

001174

001404

001362

000000
001376

000000

001364

STSD4:

"WORD

.WORD
.WORD

$TMPO.$TMP1,0

RMEC2i,0

RMMR1I,RMMR21,RMDTI,RMSNI,O

CZRMOBU RMOS/3/2 FCTINL TST 3

ERROR MESSAGE

STRINGS

MACRO v04.00

1 106410
2 106411

000
000

000

& 106416
2 106422

000
000

0CO

000

3 106413

7 106427

000

000
000

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

EF110:
EF111:

.BYTE
.BYTE

0
0.9

EF336:
EF337:

.BYTE
.BYTE

0.0.0,0
0,0,0,0.0

.BYTE

0,0,0,0.,0,0.Q

EF114:
STSF:

.EVEN

.BYTE

0,0.0

SEQ 0298

CZRMOBO RM0S5/3/2 FCINL TST 3

ERROR MESSAGE

STRINGS

MACRO V04.00

S 1S T 3

ViV

8?’”‘
oNn

000000

N — —
HE

wilbiond s

—
-

BUFONE: .BLKW
BUFTWO: .BLKW

.BLKW
.WORD

177777

124

124
124

WR—=O
=

124
124
124
124
124
124

HELP:
(elelelelelele
L

[@ 21V e ¥

124
124
124
124
124

LASCII
CASCII
CASCII
JASCII
JASCII

COO00O0DOOOVIWN

RERRORRRRGRS

R <>CNDCND<>CKDE§S
gyuanvnnv-ha
R N—=NHNOWM—=N
mrq&flnsrnurflv‘

—b —

ik —b
D

—
—

e
o

b —
s

e
)
)

s TERMINATOR IF FILE IS FULL

.WORD

0,0

:2 HEADER WORDS

WORD

-1

“TERMINATOR IF FILE

BLKW

256.

:256. WORDS OF DATA

IS FULL

<CRLF>
<CRLF>
@LIST OF TESTS@<CRLF>
@<CRLF>
@
ACCESS TEST@<CRLF>
CONTROLLER
aT1

READ ZEROS@<CRLF>
WRITE CHECK ZEROS@<CRLF>
WRITE CHECK ZEROS W/ WCE ERROR@<CRLF>
READ ONES@<CRLF>
WRITE CHECK ONES@<CRLF>
WRITE CHECK ONES W/ WCE ERROR@<CRLF>
WRITE CHECK MULTIPLE SECTORS®<CRLF>
READ W/ IMPLIED SEEK@<CRLF>
WRITE CHECK W/ HEAD SWITCHING@<CRLF>
WRITE CHECK W/ MID-TRANSFER SEEK@<CRLF>
READ W/ HCE ERRORQ<CRLF>
READ W/ HCI@<CRLF>
READ W/ IVC ERRORQ<CRLF>

@12
aT3
aTé
arTs
aTé
Q17
@rT10
ar11
@T12
aT13
aT14
aTi15
aTlé

WRITE,
WRITE,
WRITE.
WRITE.,
WRITE.
WRITE.
WRITE,
WRITE.
WRITE,
WRITE,
WRITE,
WRITE,
WRITE,

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

aT20
ar21
aT22
ar23
aT24
@125

WRITE, READ EACH CURRENT LEVEL@<CRLF>
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING@<CRLF>
WRITE, READ EARLY PEAK SHIFTa@<CRLF>
WRITE, READ MIXED PEAK SHIFT@<CRLF>.
WRITE, READ EACH TRACKa<CRLF>
READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE@<CRLF>

.ASCII
LASCII
LASCII
ASCI1
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII

QOPERATIONAL SWITCH SETTINGS@<CRLF>
a<CRLF>
@
USEQ<CRLF>
QSWITCH
@<CRLF>
=
F>
ERROR@<CRL
ON
HALT
@ 15
LOOP ON TEST@<CRLF>
@ 14
INHIBIT ERROR TYPEOUTS@<CRLF>
@ 13
a<CRLF>
@ 12
INHIBIT ITERATIONS@<CRLF>
@ 1
ON ERROR@<CRLF>
BELL
@ 10
ON ERROR@<CRLF>
LOOP
9
@

LASCII
LASCII
JASCII
JASCII
LASCIT
LASCII
JASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

LASCII

b —d — B

:256. WORDS OF DATA

.=BUFFER

d b b b b \N)
IR b
—
e e b = \ NN

N o N BNTe No N

e e B
e
N
S
e
S
R
N

jolele]

N
B

114

055
124
124

256.

-1

;STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE

USRFIL:

000000

177777

200
200

258.
258.

;STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE
MFGFIL: .WORD
90,0
;2 _HEADER WORDS

000000

106436

SEQ 0299

:STORAGE FOR GENERAL DATA TRANSFERRS

000000

7057
7117

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

BUFFER:

106436
106436
107442

it ol

NN
= =
v D
HWN =SOVRNO
NN —=OV0 NN NN

ASCII
ASCII

ar17

WRITE, READ W/ ABORT@<CRLF>

<CRLF>

@
@

8
7

LOOP ON TEST IN SWR<7:0>a<CRLF>
TN128a<CRLF>

LASCI
LASCI
LASCI
LASCI
.ASC]
LASC]

—POW SN

040
040
040
04C
040
040

4=-APR-81 (1:15:59 PAGE 62-1
g b0 b

PVSVEER
S

58 1106

STRINGS

WMACRO v04.00

ERROR MESSAGE

TST 3

PN 00

CIRMOBO RMOS/3/2 FCTINL

>
TN64R<CRLF
TN328<CRLF>
TN16a<CRLF>
TNBa<CRLF>
TN4a@<CRLF
>,

TN2@<CRLF
>

SEQG 0300

MACRO v04.00 4-APR-81 01:15:59 PAGE 63'2
C

BIT13

[
O
L
O
I

000002
000004
{1

8800
8801
BB02
BBO3
8804
BBO5
BB06
8807
BB08
8809
BITO
BITOO
BITO1
BITQ2
BITO3
BIT04
BITOS5
BITO6
BITO7
BITO8
BITO9
BIT1
BIT10
BITN
BIT12

BIT14
BIT15
BIT2
BIT3
BIT4
BITS
BITé
BIT7
BIT8
BITY
BLNKS1
BLNKS2

CNSLO1
CNSLO2
CNSLO3

CNSLO4

CNSLO7
CNSLO8
CNSLO9

EMS114

EMS115
EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123

ED33¢

CNTCLR
COMMA
CONT
CPSAVE
(R
CRLF
CTLFG
CYLMSK=
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
DMD
DPE
DPEHI
DPELO
DPR
DRIVES
DRQ

EMS124
EMS125
EMS126
EMS127

EMS13
EMS130
EMS131
EMS132
EMS133
EMS134
EMS135
EMS136
EMS137
EMS14

B WWNONINON)
—
NN =N IWN—=OO
WHROMNWES
N

e
D
d

——d ——d
e
D

nin

—

000200
072272

—t

106436

[elelelelelelele]

BUFFER

001000
071643
071642
BLNKS3 071641
BLNKS4 071640
BOTADR 066104
BOTFLG 066106
BPTVE(C= 000014
BSE
= 100000

EH344
EH353
EMS1
EMS10
EMS100
EMS101
EMS102
EMS103
EMS104
EMS105
EMS106
EM511
EMS110
EMS111
EMS112
EMS113

EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15
EMS150
EMS151
EMS152
EMS153
EMS154

EMS155
EMS156
EMS157
EMS16

(o)
N
o

020000
000109
004000
001000
076614
076632
076634
076636
076624
076640

s
e

= 0O
wWwHNoMw

A17

BACK
BADSCT
BADTMO
BAI

CHGADR
CHRCNT
(KSWR =
CLKADR
CLKVCT
=
CLR
CLRSTS
CMNSTA
CMPBUF
CMPERR

004000
002000
001330
066107

Al6

WNWNNON)
= = —

AVECT?

106436
107442

BUF ONE
BUF TWO
cC

b —d b —f —4 —— N == DT

AVECT1

000377
071746
000000
000000
120254
000000
000400
001000
000001
040242
005342
000010
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000001

PR—= ==
WHh=O

ATNMSK
=
ATNTBL
AUNIT
AUSWR

ABASE = 176700

ACDW! = 000000
ACDW2 =
ACKSTS
053432

SEQ 03017

M) =

TABLE

SYMBOL

mmmmmm mmmm
\=A-A-iw
il e [C1-1-1-) ivlvivliel-Totatal")

CZRMOBO RMOS/3/2 FCINL TST 3

CZRMOBO RMOS/3/2 FCTNL TST 3

EMS164
EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS2
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
EMS27
EMS3
EMS30
EMS31
EMS32
EMS33
EMS34
EMS35
EMS36
EMS37
EMS4

077536
104013
106042
075
15

104215

077041
077576

104237
104254
104322
104352
104365
104413
104425
104452
077621
104477
104510
104526
104551
104574
104612
104633

104663
077644

104716
104736
105006
105037
105114
077660
077706
077735
077752

077773
077056
100004

100014
100043

100072
100120

100171
100220

100247

077121

D 8
4&-APR-81 01:15:59 PAGE 62-3
073716
073756
073736
073746
073756
073766
074000
072472
074012
074024
074036
074050
074062
074074
074106
074120
072504
074130
074140

EMS40
EMS41

EMS42
EMS43
EMS44
EMS45
EMS46
EMS47
EMSS
EMS50
EMS51
EMS52
EMS53
EMS54
EMS55
EMS56
EMS57
EMS6

EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS7
EMS70
EMS71
EMS72
EMS73
EMS74

EMS75
EMS76
EMS77

00701

00774
7214

owns—=N
WVIN=NON

EMS163

103553
103570
103620
163620
103644
103725
103741
103766

.l
ol <l
) il amd

EMS160
EMS161
EMS162

TABLE

RRRRR

SYMBOL

MACRO Vv04.00

074150
074160
074170

074200
074210
074220
072512
074230
074240
074252
074264
074302
074320
074332
074344
072520
074356
074366
074400
074412
074422

01440

EMTVEC=

EMT1
EMT10
EMT100
EMT101
EMT102
EMT103
EMT104
EMT105
EMT106
EMT107
EMT11

074430
074436

EMT110

EMT111
EMT112
EMT113
EMT114
EMT115
EMT116
EMT117
EMT12
EMT120

072464
073706

EMT202

074444
072530
074452
074464
074474
074504
074514
074526
074534
074542
072410
072540
074544
074556
074570

EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212

SEQ 030«

074602

074614
074632

EMT266 075354
EMT267 075366
EMTZ27
072630
EMT270 075404
tm1271
075420
EMT272 075436
EMT273 075454
EMT274 075472
EMT275 075510
EMT276 075522
EMT277 075536
EMT3
072416
EMT30
072640
EMT300 075554
075574
EMT301
EMT302 075616
EMT303 075630
EMT304 075642
EMT305 075654
EMT306 075666
EMT307 075676
072650
EMT31
0
EMT31
075716
075730
EMT311
EMT312 075742
EMT313 075754
EMT314 075774
EMT315 076006
EMT316 076020
EMT317 076032
072660
EMT32
076042
EMT320
076052
EMT321
EMT322 076062
EMT323 076090
EMT324 076100
EMT325 076112
EMT326 076124
EMT327 076142
072670
EMT33
EMT330 076154
076164
EMT331
EMT332 076176
EMT333 076210
EMT334 076226
EMT335 076244
EMT336 076264
EMT337 076274
072700
EMT34
EMT340 076304
EMT341 076316
EMT 342 076324
EMT343 076336
EMT 344 076350
EMT 345 076362
EMT 346 076372
EMT347 076406

ERRNMB
ERROR =
ERRTYP 065234
ERRVEC=

ERTYOO
ERTYO1
ERTYO2
ERTYO3

ERTYO4
FRTYOS

ILR

NOTPRS
NOTRM
NSA

OFFSET
ONES
OPE
OP]
OR

§§°§§
]

3
«

Wunun

o)
=4

NOTAVL

occ
OFD

T
L
LU
]

NEM

ILRG50=
ILRGS2=
ILRG54=
ILRG56=
ILRG60=
ILRG62=
ILRG64=
ILRGES=
ILRG70=
ILRG72=
ILRG74= 000074

PUT

000014
000001
072016
020000
020000
000200

Hunn

ERR

PS
PSEL
PSW

o0
niuwnn

ENRGDT
EQUALS

PR4

PRS
PR6
PR7

EMT75S
EMT76
EMT77

PR2
PR3

MEDENS
MFGF IL
MI
=
MIXED
MOC
MOH
MOL
MRD
MS
MSC
MSDRVS
MSE
MSER
MSGDRV
MSHELP

EMT74

IBSAVE
IDXMSK=
IE
ILF

PRO
PRI

EMT73

PRIERR

EMT64

EMT65S
EMT66
EMT67
EMT?7
EMT70
EMT?71
EMT72

HCE
HCI
HCRC
HELP
HT
IAE

ILFO2
ILF24
ILF26
ILF30
ILF32
ILF34
ILF36
ILF40
ILF&42
ILF&4
ILF46
ILF54
ILF56
ILF64
ILF66
ILF74
ILF76

PLFS

EMT6E2
EMT63

MCLK

MCPE
MDF
MDPE

EMT61

GO
GTSWR

001410

PGE
PGM
PHA
PIP
PIRQ
PIRQVE

[%]

EMTS
EMTS0
EMTST
EMTS2
EMTS3
EMTS54
EMTSS
EMTS6
EMT57
EMT6
EMT60

,GETSTS

PFECH2
PFECH3
PFECH&

EMTS6

EMTL7

PDA
PFECH
PFECH1

EMT44

EMT4S

LF
LODEV
LS
LSC
LST
LSTRK

wnnnmun

EMT4
EMT42
EMT43

PACACK= 000022
PAKACK=
PAR
PAT

§§ 3573485

EMT40

ILRG76= 000076
IOTVEC= 000020
000001
IPCKO
K1
000002
IPC
000004
IPCK2
000010
IPCK3
IR
000100
010000
IvC
002000
LBC
002000
LBT

AEZ%

EMTS

nnnn

EMT354
EMT 36
EMT37

EMT353

FER
F IND
FMT16
FNCDTB

SEQ 0303

004000

ESRC

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

—

072710
076420
076436
076446
076452
076462
072720
072730
072424
072740
072746
072756
07277C
073000
073010
073020
073030
072432
073036
073046
073060
073076
073114
073124
073136
073154
072440
073164
073202
073222
073236
073240
073260
073300
073312
072446
073324

EMT3S
EMT350
EMT 351
EMT352

naun

TABLE

SYMBOL

MACRO V04.00

(ZRMOBO RM05/3/2 FCTNL TST 3

001462

001442

CZRMOBO RMOS5/3/2 FCTNL TST 3

MACRO v04.0C

SYMBOL

TABLE

RMWC
RMWCI
RMWCO
RQA
RGB
RTC

= 000002
001340
001414
= 100000
= 040000
= 000016

Sw04
Sw05
Swo6
Sw07
Sw08
Sw09

=
=
=
=
=
=

=%000007

SW10

= 002000

TRE

= 040000

TST21
15122
15123
TST24

031556
032562
033570
034576

. k6

=%000006

Swl

000020
000040
000100
000200
000400
001000

= 000002

TST25
1ST3
TST4
TSTS
1STé
1ST7

035624
011274
012252
013446
014454
015432

TYPBN = 104406

SW11 = 004000
swi2 = 010000
Sw13 = 020000
Sw14 = 040000
Sw15 = 100000
sw2
= 000004
Sw3
= 000010
Sw4
= 000020
Sw5
= 000040
Sw6
= 000100
Sw7
= 000200
Sw8
= 000400
Sw9
= 001000
SYSTAT 071430
TADMSK= 177400
TAG
= 020000
TAGADR= 001114
TAP
= 040000
TA1
= 000400
TA16 = 010000
TA2
= 001000
TA4
= 002000
TA8
= 004000
TBITVE= 000014
TIMOUT 043672
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034

TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UNS
= 040000
UNTMSK= 000007
UNTOFF 071557
UNTON
071570
UPE
= 020000
USE
= 040000
USRFIL 111454
uo
= 000001
Ul
= 000002
ue
= 000004
A4
= 000100
wC
= 000040
wcd
= 000050
WCE
= 040000
WCEHI = 010000
WCELO = 004000
WCF
= 000040
WCH
= 000052
WD
= 000060
WH
= 000062
WLE
= 004000
WRL
= 004000
XS12
006464
XXDP
001332

START2 005436
STCDRV 062172
STKLMT= 177774
STOP
064612
STSD1
106326
STSD2
106344
STSD3
106364
STSD4
106376
STSF
106427
STSH1
105772
STSHZ
106047
STSH3
106136
STSH&
106174
SwR
001154
SWREG
000176
Sw0
= 000001

TRTVEC= 000014
TST
= 010000
TSTNMB 066100
TSTPRP 037316
TSTQUE 001466
TST1
010066
TST10
016630
TST11
017634
1ST12
021060
TST13
022266
TST14
023310
TST15
025156
TST16
026562
T1ST17
027602
TST2
010266
1ST20
030520 -

ZEROS
$APTHD
SATYC
$ATY1
SATY3
$ATY4
$AUTOB
$BASE
$8DADR
$8DDAT
$BELL
$BIN
$COW1
$COW2
$CHARC
$CKSWR

005422

w00
w01
SwQ2

= 000001
= 000002
= 000004
= 000010

072060
001100
070204 070160
070166
070176
001150
001276
001136
001142
001212
063044
001302
001304
064050
066610

$CMTAG 001114
$CM3 = 000000
$(M4 = 000005
SCNTLC 067506

067520
067513
001250
001217
063%62
001306

$MADR4
$MAIL
$MAMST
$SMAMS2
$MAMS3
$MAMSS

001270
001222
001252
001256
001262
001266

$DDW2

001312

SMFLG

070422

$DDW3
$DDW4
$0DW5
$DDWé6
$DDW7
$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
$ENULL
$ENV
SENVM
$EOP
SEOPCT
$EOSP
$SERFLG
SERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL
SESCAP
$ETABL
SETEND
SFATAL
$FFLG

071636

$FILLC

SEQ 0304

$CNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK
$DDWO

$0DW1

TYPDS = 104405

SADMSk= 000377
SAVREG= 104414
SA1
= 000001
| SA16 = 000020
SA2
= 000002
SAs
= 000004
SA8
= 000010
SC
= 100000
SCOPE = 000004
SCTMSG 070426
SCTMSK= 003700
sC0
= C00100
SC1
= 000200
sC2
= 000400
SC3
= 001000
SC4
= 002000
SEARCH= 000030
SECERR 044710
SEEK = 000004
SEKSTS 051174
SHUT
037262
SHUT2
067550
SIZCLK 043550
SkI
= 040000
SNGPRT= 020024
STACK = 001100
STANDA 007020
START
005432

START1

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

001310

001314
001316
001320
001322
001324
001232
001300
037252
063252
(037242
037100
037256
001242
001243
037044
037072
037006
001117
001131
064640
001132
001602
001126
001210
001242
001326
001224
070424

001172

$FILLS 001171
$GDADR 001134
$GDDAT 001140
$GET42 037232
$GTSWR 066700
$GT42P 037226
$HD
= 000000
$HIBTS 001100
$HIOCT 067672
$ICNT
001120
$ILLUP 070142
$INTAG 001151
$ITEMB 001130
SLF
001220
SLFLG
070423
$LPADR 001122

$LPERR
$MADR1
$MADRZ2
$MADR3

001124
001254
001260
001264

$MBADR

001102

SMNEW
067536
$MSGAD 001236
$MSGLG 001240
$MSGTY 001222
$MSWR
067525
sMTYP1 001253
sMTYP2 001257
SMTYP3 001263
SMTYP4 001267
SMXCNT 064536
SNULL
001170
SNWTST= 000001
SOCNT
063514
SOMODE 063516
SOVER
064522
$PASS
001230
$PASTM 001106
SPOWER 070159
$PWRDN 070002
SPWRMG 070136
$PWRUP 070054
$QUES
001216
SRDCHR 067152
SRDLIN 067242
SRDOCT 067572
$RDSZ = 000010
SRESRE 062734
$RMO2
071446

SRMO3

071453

SRMO5
071460
SRTNAD 037254
$SAVRE 062676
$SAVR6 070146
$SCOPE 064054
$SETUP= 000137
$STUP = 177777
$SVLAD 064466
$SVPC = 000210
$SWR = 167400
$SWREG 001244
$SWRMK= 000000
$SWOBT 064540
STESTN 001226
$TIMES 001206
$TKB
001162

$TKCNT 066300
$TKINT 066310
$TKQEN= 066307
$TKQIN 066302

.
C
|

|
|
|

CZRMOBO RMOS/3/¢2 FOTNL

SYMBOL

TABLE

TST 3

MACRO v04.00

$TKQOU
$TKQSR
$7kS
$TKSRY
$TMPO

066304
066306
001160
066360
001174

$IMP4
$IN
=
$TPR
$TPFLG
$TPS

001204
000026
001166
001173
001164

$TMP1
$TMP2

$TMP3

Q01176
001200
001202

112462
000000
ERRORS DETECTED:

$TRAP
$TRAP2

$TRP

. ABS.

067674
067734
= 000016

000
001

vIRTUAL MEMORY USED:

62208 WORDS

4-APR-81 01:15:59 PAGE 62-6

( 243 PAGES)

DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
(ZRMOB.BI(,ZRMOB/(=CZRMOB.DOC,(ZRMOB,
SYSMAC/M

$TRPAD
$1STM
$TSTNM
$TTYIN
$TYPBN
$TYPDS
$TYPE

$TYPEC

067746
001104
001116
Q67476
062772
063046
063520

(63732

$TYPEX
$TYPOC
$TYPON
$TYPOS
$UNIT
SUNITM
$USWR

SVECTT

064052
0633154
063332
063272
001234
001110
001246

001272

SVECT2 001274
$XOFF = 000023
$XON = 000021
$XTSTR 064076
$$GET4= 000000
$$5W08= 000026
$OFILL 063515

= 001100

SOF ILL
$40CAT
$APTHD

SASTAT

$ATY1
$ATY3
$ATYS
SATYC

SAUTOB
$BASE

$BDADR
$EDDAT

$BELL
$8IN
$COW1
$COW2
$CHARC
$CKSWR

$CM3
$CMs

42-1#

43-1
5-8#

45=1
12=57
13-E49
60~

13-935%

13-945«

42=1
42=1
42-1
4214
4214

421
42-1
421
42=14

13=2
13-F81

13-180
13=-154

13-322
13-K0S

13=949+

13-950+

13-D93x
24-108+*
25-108+
25-226%
25-344%
25-470%
26-150%
29-143+
31-79%
32-57«
33-189*
34-57+
35-116%

13-D9b+
24-124*
25-109
25-227+
25-345«
25-471+
26-151
29-168+
31-80*
32-71»
33-205+
34~60
35-135+«

18-84~
13-A56*
13=F10*

60-8
13-A73«
13-F72+

42-1
42-1
42-1

L2=14

42-1
42-1
42-1
4o=14

13-645
13-M95

13-790
13-046

20~-36

21-30

13-B49+*
13-G82+
25=54*
25-157*
25-271*
25-402+
26-92*
29-67*
31-29~
31-10¢4
33-49+
34-16+
34-82+
35-191
35-442+
60-6

13-B66+
18-82+

13-B77
24=47*

13-D30+
24-4L8«

4«2-1
42-1
42-1
42-14

49-1

L9-1#
49-14
4914
10-28+
10=75
13->88

28-23

13=-477%
13-465«
13-D34x
24~69*
25-86*
25-184*

25-315+
25-433x
26-122
29-106
31-59
31-127
33-134*
34-31
35-47x%
35=270*
35-517~

43-1
38-1#
41-14
47-1

6-0#
6-0
6-0#

45-1
11-33
13-238
30-15
13-478+
13-473+
13-D37+

24-75+
25-87

25-200*
25-329»
25-455*
26-137+
29-117
31-69+
32-27+
33-159+
34-41%
35-67+
35-288+
35-534x
43-1
38-1+

45-1
11=42*
13-(24
§4=25
13-479
13-483
13-D92+

264=91*
25-107*
25-201*

25-330«
25-456%
26-138
29-130+
31-70%

32-41x
33=174*
34-50*
35-87*
35-301+
35-550%
43-1
38-1+

35-313%

36-46%

45-1

25=40%
25-141+
25-242%
25-362%
25-493*
27=54%
29-183«
31-92«
2=99+
33-240%
34=70
35-163«
35-382*
36-98+

35-356+

36-62+

45-1

41-1+

41-1%

6-0

€-0

6-0

10-23
45-1

10-23
45-14

10-23

11-20

11-28

11-62

11=100

47-1

$CMTAG
SCNTLC
$CNTLG
SCNTLY
$CPUOP
$CRLF

10-23
45-1
45-14
45-1

45-14

$DBLK

10-48
43-1

39-1

10-80
43-1

$DDWO
$0DW1
$0DWS
$0DW3

42-1
42=1
421
4o-14
4o-1a

N'})N’\J

42-14
42-14
40=1x

42=1
42-1
42=1
4o-18
4o=14

40-14

42-1
42-1
42=1

R
O o

40-1

14=204

)

N ——

42<-1
42-1
42-1
42-14

vO01-05

14=20
42-1
42-1
42-1
42-14

(CREF

&=-APR-81 01:15:59 PAGE S~1

DUNINLNN

$EGE T4
$8SW08

TABLE

MACRO v04.00

CROSS REFERENCE

TST 3

PN NN

CZRMOBO RMGS5/3/2 FCTNL

39-14

L4=61

44=104

L4-

44=126

25-41+
25-142
25-256+
25-387«
26~10*
29-37«
29-196%
31-101~
32-113«
33-254«
34~72
35-189«
35-395+
36-112«

25-64*
25-158
25=272%
25-403~
26-93+*

25-65*
25170+
25-284*
25-4617«
26-94
29-88+
31-30~
31-32
31-114+
31-115
33-65~
e 33-82+
34-19
3417~
34-94*
35-204*
35-203+
35-470*
35-457~
60-8
60-10

6=-0

6-0

6-0#

6-Cw

12-25

12-68
44-154

14-20
45-1

1-1

44-134

13-969

(451

6-0n

41-1

45=1

13-;20

25-67
25-171«
25-285+
25-418«
26-120~
29-99+
3142+

31-124~
33-103~
34-28*
34-103~
35-240+
35-483~
60-11

6=0#

411

45-1

CZRMOBO RMOS/3/2 FCTINL TST 3

CROSS

REFERENCE

$0DW4
$DDWS

6~04
6=0#

$DDW6

$0DW?7
SDEVCT
$DEVM
$D0AGN
$DTBL

$ENDAD

SENDCT
SENULL

SENV

SENVM
$EOP
SEOPCT
$EOSP
$ERFLG
$ERMAX
$ERROR

$ERRPC
$ERRTB
SERTTL
$ESCAP

$E TABL
$E TEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

TABLE

(CREF

MACRO v04.00

vO01=05

)

10=67+

10=117»

39-1#
10-28
14=204

43-1

10-28
10-23

43=1
41-1

14=2C

14=-20#

8
1
4-APR=-B1 01:15:59 PAGE S-¢

10=121+

11=63

41-1

49-1
49-1

SEQ

11-70s

12=4

43=1+

12-38

13=29+

14=28+

13-955
13-G26+

13-A57+
13-G80+

13-A72+
13-G81+

14=20

42-1
10-23+
43-14

43-1
44-72
14-20
10-23+

6-04
491+
49-14
41-1
41-1
13476+

431

L3=1~

44-54

43-1

43-1
43-1

43=1=
43-1

13-475~*

13-D88+

24-68*

25-66*

25-158
26-122
29-87+
31-41~
32-39«
33-47%
33-173%
34~18+
35-65%
35-191
35-315+
35-455+
36-44x

32-115+

33-133«
33-253«
35-30+

46=1~
42-1
48-1
45-1

42-1+

13-951

31-127

47-1
4-480

42-1

42-1w

49-1+

13-463*
13-865+
2450+
24-151+
25-142
26-94
2947+
29-211+

42-1
42-1

18-83+
13-483
13-F11+

2474+
25-67
25-165+
26=134+
29-101+
31-57%
32-40%
3348+
33-175+
34-19
35-66%
35-205+
35-323«
35-4,56%
3645+

14-204

47-1
4-480

42-1

48-1#4
45-1

42-1

42-1%

42-1+

45-1

45-1+

13-947+

13-G25+
24=90+

25-98+
26-25+*
26~-148+
29-166+
31-82
32-73
33-8i~
33-204+
34-71%
35-115+
35-254+
35-368«
35-482~
36-96+

24=106+
25-106*
26-26*
26-149+
29-167+
31-91=
32-86*
33-101~
33-220+
34-72
35-133+
35-255+
35-380~
35-494+
36-97+«

24=107~
25-109
26-30*
26-151
29-181«
31-103+
32-87+
33-102+
33-221+
34-83+
35-134+
35-268+
35-381«
35-495+
36-110+

24-122+
25-135+
26-32
27-40*
29-194+
31-104
32-100+
33-118+
33-238+
35-147+
35-265+
35-393~
35-515~
36-111»,

(

CZRMOBO RMOS/3/2 FCTNL TST 3
TABLE

(CREF

MACRO Vv04.00

v01-05 )

4-APR-B1 01:15:59 PAGE S-3

MmMN —V-eTM—M O oaUVla Lal’alOO0’a)— oagLla"aB,Ea

SMAIL

T
MAMS

2
$MAMS
SMAMS
3

SMAMSS
$MBADR
SMFLG

SMNEW

SMSGAD
SMSGLG
$MSGTY
$MSWR
MTYP1

TMTYP2
SMTYP3
SMTYP4
SMXCNT
L
SNUL
ENWTST

6=0#
6-0#
6=-0#
6~0n
5-8

13->88

13-238

6-0#

10-23

49-1
45-1
6~-0#

L9-14
4514
49-1
49-1»
49-1
4514

49-1«

491+

49=1

49-1%

42-1
41-1
13-2#
13-645
13-=05#
13-F81#
13-M95

42-1
41-1
13-2#
13-6454
13->88
13-F814
13-M954

42-1a
41-1

43-1
604
6=-0#4
6-0#
6-0#
5-8#

6-0#
6-0#
45-1
6-0#4
6-04
6-0#
6-04
42-1

6-0#
13-2
13-497#
13-=05#
13-F81
13-L50#

5-8

M & & X '27&

FLwWa2x

13-=05

13-(24

«&%

SEQ 0308

X3MM

13-597+
13-A95+
13-N95+

13-698+
13-(87+«

13=745+
13-D50+

13-P53«

13-843+
13-F 20+
42-1

13-889+
13=G42o+
42-1

13-322

13-322#
13-;20
13-C24#
13-K05#

13-322%#
13-.20#
13-E49
13-k05#

13-497
13-.20#
13-E49#
13-L50

13-497#

13-096*

49-1+

2ONNO3VN3O34DVOOWN2O43

$MADR?2
$MADR3
$MADR4

NOVO
NNy*f

| $MADR1

La81oYInRLV0fItk>

x2S IT M«&NON

13-33

13-645#
13->88#
13-G99%
13-M95#

49=1»

13-334
13-790
13->88#
13-G99%#
13-046

13-334
13-7904
13-238
13-G99%#
13-046#

13-180
13-790#4

13-3384
13-154
13-0464

13-180#
13-969
13-238#
13-154#4

13-180#
13-9654
13-C24
13-1544

13-969#
13-C24#
13-k05

N~—

o *

SLPERR

o *

SLFLG
$LPADR

& *

$1TEMB

OSLF

TNO4LS

*tNTO v
O\ — ®« K

M
e
—
O
O
O
M
M
A
N
[NaV]ag0V¥ = - — -x —ooe—xkS0Jx O‘IeMH—MM=N0Y =e~=

CROSS REFERENCE

] i-C-— ~

~ [a¥] -—
|

13-=05
13-E494

13- 504

AEETS I
$RTNAD

$TMP3

$TMPS

$TRAP

$TRAP?

6-0#
6-0#

*o"e)3

10-23

47-1

47-14
L7-14

47-1
47=1
47=1
67-1
47-1

0O MO

NOOOONO

w M —MMN

47-1

M N o M

47-1

70”90

47-1

B MM MM

47-1

MrAW—rO—
M@O

b AA Smedh A W

N Qe

@OM

-y Ny -

47-1"

NOQ—O

4w.l\~z/1

A0NOJONOD

4-APR-B81

8 T YPETT T OOV T

47-i
b3

0RTBMO&NOMOM0NMONOZ—®* YOSMA=UNAAI-IMATIInE
OTYTYTY
TYT IIPTTIt 1Y ATST TAR

$TRP

14-204

N NN === =

N0%54O~3”32O8R-ATMOW0m63oM%o0yENMAMNONNNk3
SRRA ASRMRAERTIRBR08N
M M M M M W >> - VW

LW0—Ae8W—olN7OUyNO2TeUNO4,0NeNOL4W—]INNm4R[ey2WPA5>TbAR2osoIw4noA&To¥NN3Rmei*4C=eN2Ieib2AI3O*bRR0seAb4YUo=SNoVO2ow-n3v2As=eoAT0NPR1GOmr5YAe2id5iT2oeS5isM:~XoAm%7,1R-X7,5A—X7,3AaoN7,[AVN"al3(NP"a2Y)1o=MT3RDwv>WN70wA7AV~lRTO«
MACRO v04.00
CZRMOBO RMOS/5/2 FCTNL TST 3
(ROSS REFERENCE TABLE (CREF v01-05 )
8
01:15:59 PAGE S-4
SEQ 0309

UMM L UMI~ON

47-1
47-1
47-1

4-APR-81

01:15:59 PAGE S=-5

SEQ 0310

U|1L & LNO~ T~Nr -— U:L-—>r

SUNITM
$SUSWR
SVECT]
SVECT?2
F
$XOF
$XON
SXTSTR

.SASTA
.8X

A16

A17
ABASE
ACDW1

ACDW2

ACKSTS
ACPUOP

ADDWO
ADDW1
ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15
ADDW2

ADDW3

ADDW4

ADDW5

ADDW6

ADDW?7
ADDW8
ADDW9

ADEVCT
ADCVM
ADR

AENV

5-84
604
6-0#
6-0#

41-1
41-1

42-1#
49-1
5-8
L=7214
4-7204
L=772#4
6-0
6-0
15-152
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

6-0
6=0
6-0
6-0
6-0
6-0
6-0
6-0
6-0

13-2

13-497#
13-=05#
13-F81
13-L504

6-0

1146

41-

11-56+

45-1

3&o ¥~A7g iLI1U[¥—ca

RAg~ N~yNMFENS L~R L|U—~
U

had

13-322#
13-;20%
13-E49

13-497
13-;20%
13-E45#
13-L50

13-4974
13-=05
13-E454
13-L504

- k-3

ool NN———
N NN
o NN
3

PTO>SARRP>AA=SRT>AIROeRA>RI»ATRNCAVRVONANO NSANEI s

~I e1O o[ NNLU

NO——N|-V(aAe—E®INeN—=~~TAeNkIOBIINoUTlSIoOVTIlVoIIWlNT~oIAAlInNYSSRRIANa|a8TuNNTksIkLlIsN—lTUI—LTol

T~8oo~'N5Y4U=T~|2.4TIRVIyY4wg-Tn.—eAUZTy4£2U03o-TV4u5&o5UfnmTlMw42ETrNF-33IMeEIYNsT.aMTtL

MACRO v04.00
CZRMOBO RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

49-1
5-8#4

6-0

6-0
6-0
16-137
6-0
6-0
6-0

6-0

32-15#

6-0
6-0
6-0

6-0
6-0
13-2#
13-645
13-=05#
13-F81#
13-M95
6-0

13=-2#
13-645#4
13->88
13-F81#
13-M95#

3-322
3-9694
3-C24H
3-k05

13-322#
13-.20
13-C24#
13-k05#

13-k05#4

4-APR-81 01:15:59 PAGE S-6

SEQ

SA
ESRE S 5

P T LTTITIIITRR R R E ]

10$Aam5%2mewL03WO5‘Aw01fo82a530YO‘%EA5@0YX6OAX'50YN18%ODA20NY35ONA‘8Y0fOlA8“MOY%Y%O

MACRO Vv04.00
CZRMOBO RMO5/3/2 FCTINL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

AOE
APASS

4-583

25-311

25-326

25-341

25-356

25-360

26-117

26-121

51-77

51-78

51-81

51-82

51-85

6-0

L..Rl._l12R11-1¥!1®-1-1 11 111u1 1BR 1 1 1 1

%"alCal.DalEoFSGHILAlAC—DNWINVOs0*V¢+OMe==CUMFTWNO1NG7O6D

RC—DVEMSFN%O*MNIAOJRN,S1R7AI5RG&SIWsRsaSV,*+N—OWNSVBOINMROI=ONAR=1M76

4=5724
51-86
6-0

[«SN N alalalal alalalalal alalalalal alalalal alalalialal al alalal ol al gl

482535g

3Q%CDQs5EeF%NaGV7H0IHACS Tm4S2ot5ABuImA=ayBRw .l11!1.1.'1-1.1111!1!1.l.lql.l.lql.l-l.l.l.l b¥r®3 mNRoT7Iksq
1-

MACRO v04.00
CZRMOBO RMOS5/3/2 FCTNL TST 3
CRCSS REFEREN'E TABLE (CREF v01-05 )

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

SEQ 0312

AUNIT
AUSWR
AVECT]

AVECT2

@ < o ¥4

7=04

6-0
4=552#
51-60
51-80
6-0
4=5894
10-78
6-0
6-0
4=7734
6-0

16-299+*
16-298+

6-0
25-138

51-63

51-83
6-0
34-55

10-117

16-331

16-358+
16-366+*

16-359
16-367

16-361~
16-369+

16-362+
16-396

16-363

16-365«

16-397

25-139

25-141
51-67

29-157

51-87

29-156
51-68
51-88

29-192
51-70

29-195
51-71

33-145
51-72

33-146
5i=73

11-97

12-17

52-3#4

16-330

51-64
51-84

10-121

51-69

33-185
51=74

33-188
51-75

51-58
51-76

51-59
51-79

6-0

‘IT302R-Bnd5SeA2tn0 4“.5“‘R¥4.‘:.,RS‘E|)T

T 0 T T 0= 0 1 P 0 T P 0 P P= = = =

ATESTN
ATNMSK
ATNTBL

13-Q10#
7=0#

ASNDA
ASNDC
ASWREG
ATA

2133

JKL*%OP

aAI\LIJ3KRA0L3J[]%3I*2AIM3X

Sm3B2A232 Rb P¥TTIOTS TMMMU[ e JKL*NaWP

MMM] e- MMMiMPPg- CELPLMS
l oo ol ol ololol Lol
YMNMMMMNMN
o oOlolO0olel Lol
3}3333333
q-Tx«&«wmw¢
NOO0oloMMMlolo0lOVMMMMl =Noo ol Ll
VOO O\NN~

CZRMOBO RMOS/3/2 FCTNL TST 3
TABLE

(CREF

v01-05

)

4&-aPR-81 01:15:59 PAGE S-8

SEQ 0313

33oX3dol3o3olo3lolo3lol3olo3lol3oolo3lolo3lo3l3olo3le3lo3lo3le3lo3lo3lo3lo3lo3lo3lo3l}Lo3kl
8800
8801
8802
B&03
8804
8805
8806
8807
8808
8809
BITO
81100

BITO1
BIT02
BITO3

10-3#4
10-25
4=-739%% 26-28
4-6704
4-6704
4=6704
4-670# 4-6704
4-6704

4=6704
4=-6704
4-6704
4=6704
4-484H
4-484
43-1
4=484
4-484
L=484

23-18
4=484H

4=496

4=544

4=562

4-581

13-H17#

13-108#

13-1440

13-k408

4-618

4-636

4-670

4=742

4-760

4-759
4-758
4-739

10‘757

421

13-634
13-G76#
13-H33
13-H82#
13-126
13-1448
13-J00#

13-J944

13-G87#
13-H33#
13~H85
13-126#
13-146
13~J00#
13-49#
13-J94#

13-K

13-kK4384

BADTMO
BAI

13-G31#

e
PX TT PRP PR eRe 700941

BADSCT

ST SRR RARSO A RER R AR
GRS

RMNP,*fLlRMIlRRJIJ*ILNfl%03G%BNA%%Nont0CDAD3E{TNFEcA-eN.®

OMONOMOMmNM“OyORNINM-N783”52

BR-yoololoGlTi[ doilolGgol0eTo0oNISlo=lko[olo=lhol0olo=lgo=lo=lo0olPoRl0el=A[ol=SololSolo(oAUlekRolTolPoglTeo)loolLolOULl

e gP ge

P
RyPP TRP T
T

LT1RIU.N,IELold RSBe3oRA2R3I2gNTR01T

P e
T

.o0]alaol3alIarlanlaglal&ealnalda2lnaldalBoalalnSinalealdalanalsalhalaRlaola3lalaa2laladlalalnolLadlabal@alabaslalal

CROSS REFERENCE

MACRO v(4.00

42-1

13-K45#

7v3y

43=1

MACRO Vv04.00
CZRMOBO RMOS/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

CNSLO?

CNSLO2

CNSLO3
CNSLO4
CNSLO7
CNSLO8

4-626
4=625

4=667
4=651

4=555
4-568
4=567
4-566

4=569
4-606
4-605
4-604

4-607
4-623
4-622
4=621

4=650

35-320
35-426

35-407

(=4 84N
L=4LB4H

16-304
4=535
4=490

17-26
4=557
4=534

26-48

L=484H

4-533

4=577
4=614
4=597
4=5%96

4=664

4-563
4-662

4~736

4=756
4=722
4=734
4~733

4~735
42-1
42-1

4=666

4=679

4=719
4~678

4=732
4=731

4=677
4-718
4-686
4-685

=730
4=729
4=717
4=716

4~=753
4=752
4-728
4=727

15-111

4-680

4=721
4=720

50-35#

10-82
44-81+
L4-62+

44-102
44-112

44-117
44-115~

44-1614
44-1624

L=6744
16=49+
13-47
13-983
13-C03
13-J21
13-144
13-<69

13-A85
62-2#
13-175
13-:35
13-C52
13-k71
13-426%
13-808

13-B72
62-16
15-194

13-878

13-D35

13-p97

13-D99

16-225

25-431

13-245

13-L45
13-467

13-L64
13-474
13-E10

13-336
13-=16
13-D03
13-M16
13-476
13-F39

13-511
13->99
13-E28
13-N10
13-611
13-146

13-565
13-246
13-£58
13-N63

13-640
13-a54
13-F89
13-038
13-897+
13-145

13-659
13-a66
13-H12
13-059
13-937
13-M61

10-17~
44-92*

11-25
44-93
L7-14

44-105»

44=116+

46-1634

13-M90

13-038

18=-17#

62-4%

4=751
4=750

42-1

43-1

4=755
4=756

43-1
15-165

15-73
18-33

42-1
18-90

23-24

11-48

L4844

CLRSTS
CMNSTA
CMPBUF
CMPERR

4-593
4=570

4=540
4=576
4=575
4=574
4=559
4-558

50-38#

cC
CH
CHGADR
CHRCNT
CKSWR
CLKADR
CLKVCT
CLR

4=571
4-556

4=492
4=49N
4-561
4=560
4-537
4-536

L=4B4H
44844
L=484H
4~4 844
L=484n
4=4L84H
L{=4L84H
L=484n
L=484H
4=4844
L=4844
50-404
10-132

BUF TWO

4-57%
4=572

4=723
4=670
4=670
4=670

4=(B4n
4=4L84H
4L=484a
4=-4LB4H
4-LB4LA
L=4B4N

L=4LB4H
42+

SEQ 0314

4=£70
4=670
4=630
4=629
4=611
4=610

(=484
(=484
4=484
4484
4484
L=484

43-1

9
c
4-APR-81 01:15:59 PAGE S=9

43-1

22-10
22-15+
12-58
13-<95

13-<07
13-C54*

13-D65

22=14+

13-<95
13-C56=

1127+

44-96~

44-100

22-16

23-13

13-146

13-L45

13-640
13-117

30-16
13-E10

13-713
13-268+
13-H66
13-P00
13-946
13-mM90

13-804

13-858

13-a70+

13-A13

13-948
13-009

13-963~
13-038

13-146
62-34

13-167

MAZRO Vv04.00
CZRMOBO RMOS5/3/2 FCTNL TST 3
CROSS REFEPENCE TABLE (CREF v01-0% )

CNSLOS

CNTCLR
COMMA

CONT
CPSAVE
(R
CRLF

CTLFG
CYLMSK

DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
DMD
DPE
DPEHI
DPELO
DPR
DRIVES
DRQ
DRVCLR
DRVSTS
DRY
DSWR
DTASTS

DTE
D10

DULPRT
DVA
DvC
EARLY

ECH
ECI
ECRC

ED1
ED110
ED111
ED114

ED223
ED336
ED337

50-20#
15-76

11-86

4(~630#
42-1
L~4B4n
L=4(B4H

50-9
50-33
62-26
62-40
62-54

7=0%
4~657#
L(-6044
4-605#
L=755#
L=566#
4=4B4a
4{-606#
15-62
6-0#
S5-1#
L4=7274
4L-618#
4{-681#
4(=751#
L=752#
L=559%

30-12#4
12-6

12=14

50-7#

42-1

42=1+
41-1
10-28

11-73
10-6

50-10
59-7

62-27
62-41
6255

12=47+

10-42
50-12
59-15

14-22

45<3

62-44
62-58

16-222

18-23

25-469

10-23+

42-1»

43-1+

35-492
13-E74
25-255

35-495
13-F33
29-32

33-31

31-125

31-126

34-30

59-11

62-28
62-42
62-56

S-10

431
58-79
10-59

42=1»
41-1

50-1
59-12
62-29
62-43
62-57

50-11

01:15:59 PAGE

50-14
59-18
62-32
62=46
62-60

62-30

25-489

35-413

35-416

35-43

35-466

35-469

SEQ 0319

43-1

43~1

43=1»

43=1

44-180

12-30
50-17
62-20
62-34
62-48
62-62

41-1

50-3
50-20

50-5

50-8
50-23
62-25

50-18
62-21
62-35
62-49
62-63

62-23
62=37
62-51

62-39
62-53

34-18

4=504#
16-105
4L-560#
L=4L84LH
13-80
13-783
13-287
13-H4S

25-38

25-42

29-195

31-125

31-126

13-169
13-883
13-295
13-140
13-P47
35-279

13-271
13-:18
13-A70
13-J49
16-200
35-300

13-315
13-:69
13-A82
13-J96
35-17#

13-368
13-;13
13-B47
13-k52

13-412
13-,70
13-863
13-K96

13-546
13-<91
13-C83
13-L97

13-591
13-=55
13-D44
13-M41

13-636
13->21
13-E06
13-M86

13-694
13->81
13-F08
13-N4S

13-739
13-237
13-F68
13-N89

10-89

20-43
31-115

24-65

28-37

31-31
35-232

34-18
35-239

35-284

36-89

36-94

36~97

4£-583
18-21

16-222
25-487

25-452

25-485

25-4N

51-77

51-78

51-85

51-8¢

10-23

13-034

4(=5694

4=-607#

56=1
56=¢4
56=5
56=7
56-8
56=10
56-11

10-28

10-23

12-3
46434

L{-6464
4=490%
L-680#
13-K26
4=6234
L=575#
4=6514
4=6274

11-84

4=-APR-81

29-127
53-107#

60-1#
60-2#
60-3#

60-5#4
60-64
60-8#4
56-12

60-10#

33-130

33-266

MACRO Vv04.00
CZRMOBO RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF Vv01-05 )
ED353

EDT1

56-14

8-3

8-48
8-90

8-133

5-182
8-239
8-281
8-323
8-369
8-414
8-525
8-573
8-621
8-663

60=-114
8-6

8-51
8-93
8-136
8-185
8-242
8-284
8-326
8-372
8-417
8-531
8-577

8-624
8-666

8-15
8-60
8-102
8-146

8-245
8-287
8-32%
8-375
8-420
8-534
8-581
8-627
8-669

8-12
8-57
§-99
8-142
8-191
8-248
8-290
8-332
8-378
8-423
8-537
8-586
8-630
8-672

8-513

8-516

56-2#

8-690

56=104

8-516

57=24

8-690

57-10#4

8-9

8-54

8-96
8-139
8-188

4-APR-81 01:15:59 PAGE S~11

SEQ 0316

EMST1T 6
EMST1 7
EMS12

54-77
54=12

8-678

8-39
8-81
8-123
8-172
8-215
8-272
8-314

8-42

8-651
8-708

8-405
8-510
8-563
8-612
8-654
8-711

8-126
8-175
8-218
8-275
8-317
8-363
8-408
8-519
8-566
8-615
8-657
8-714

8-169
8-212
8-269
8-311
8-357
8-402
8-507
8-559

8-45
8-87
8-130
8-178
8-236
8-278
8-320

8-411
8-522
8-569
8-618
8-723

55-5#
8-513

8-516

8-687

8-690

58-10#
54-176
54-174
54-181
54-135
54-213
54-203

54-196
54-197
54-182
54-141
54-214
58-70#

58-664
58-67#
54-183
54-196
54=215

54-184
56-197
54-219

564-186
54-198
54-220

54-187
54-203

54-189
54-205

54-234
54-2056

564-235
54-207

58-68#4
54-208

54-209

58-72#
54-16
54-30
54=-77
58-74#

54-17
54-31
58-73#

54-18
54-32

54-19
54-33

54-20

54-21
54-177

564-25

54-24

54-25

54-26

54-27

54-78

54-127

58-77#

54-48
54-107
54-187
54-234
54=-191
54-148

54=50
54-108
54-188
58-794
54=225
54=149

54-51
54-109
54-189

54=-60
54-139
56-194

54-61
54-140
54-195

564-1462

564-63

56-201

54-66
54-179
564-205

5467
54-182
§4=221

54-70
54-183
54-222

56-228

56229

54-230

56=2%1

58-81#

58-80#
54=178

54-43

58-69#

54=54
54-134
54-192

54-185

564=201

54=225

EMST14
EMS115

8-594

EMS113

8-543

—

EMS110
EMST1
EMS112

54-232
54-15
54-29
54=74
54-226
58-75#
54-76
58-78#
54=45
54=77
54-186
54=232
54=77
54=143
58-12#

8-78
8-120

8-444
8-552
8-603
8-645
8-702

O AW

EMS104
EMS105
EMS106
EMST1

8-332
8-378
8-423
8-557
8-586
8-630
8-672

I\J.\l*

EHTZ223
EHT256
EHT336
EHT337
EMT 344
EHT353
EMST
EMS10
EMS100
EMS101
EMS102
EMS103

8-36

8-263
8-305
8-347
8-396

55-4#
8-227
S5-7#
8-429
55-8#
55-9#
8-681
55-12#
55-13#
55-15#
58-3#
54-11
54-71
54-59
54-178
54-57
54=211
54-180
58-71#4

EMTI10

EHTIT
EHTT14
EHT2

8-139
8-188
8-245
8-287
8-329
8-375
8-420
8-534
8-581
8-627
8-669

8-30
8-72
8-114
8-163
8-206

(=le)

8-136
8-185
8-242
8-284
8-326
8-372
8-417
8-531
8-577
8-624
8-666

SEQ 0317

8-12
8-57
8-99
8-142
8-191
8-248
8-2%0

ENW3S3

OEMTY

)

O =N

EH336
EHW337
EH344

N =2 -t

|
|

EH223
EH256

v01-05

&-APR-81 01:15:59 PAGE S-12

— -

59-3#
59-54
*59-64
59-7#
59-104
59-11#
59-15#
59-18#
8-6
8-51
8-93

mmm\{v\'m.nmm w!

(CREF

MACRO v04.00

‘\Tl\

EHIN

EHITG

2 D00 N w

TABLE

(ROSS REFERENCE

TST 3

(ZRMOBQ RMOS5/3/2 FCTINL

MACRO v04.00
(ZRMOBO RMOS/3/2 FCTINL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

EMS120
EMS121
EMS122
EMS123
tEMS124
EMS125

EMS126

EMS127
EMS13
EMS130

EmMS131

EMS132

EMS133
EMS134
EMS135
EMS136
EMS137

EMS14
EMS140
EM:T141
EMSis2
EMSi43
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
EMS174
EMS175
EMS176
EMS177

54-78
54-79
54-80
54-81
54=56
54-83
54-84
58-89

54-13

54-86

54-87

54=79
54-93
54-125
54-79
54-88
54-97
54-99
54-85
°4-13
54-44
54-35
54-47
54-47
54-36
54-36
54-109
54-69

58-82#
54-88
54-89
54-88
54-82
54=92
54-93

G'9
4<APR=-81 (01:15:59 PAGE S=13

54<-97
58-84#
54-89
54-G1
54=102
54-103

54-99

58-83#4

54-90
564-1N
54-169
58-88#

54=90
58-864
58-87#

54=91

54-216
54-106
54-104
54-81
54-95
54-168
54-81
54-90
58-95#
54-101
54-100

58-13#
58-90#
58-91#
54-82
54-96
54-169
54-82
54-91

54-83
54-97
58-924
54-83
54=92

54-102
58-97#

54-60
54-45
54-108
54-73
54-109

5EQ 0318

54-93

*54-94

54=95

54=96

54-98

54-126

58-85#

54-84
54-98

54=86
54=100

54-87
54=101

54-88
54=102

54=89
54=103

54=90
54=104

54-91
54=105

54-92
54=106

564-84
5493

54=86
54=95

54=125
54-126

58-934
58=-94#

54-103

54=104

54=106

58-964

54-117

54=137
5466

54=192
54=122

58-984
54-137

54-187

54-188

54-793

54=222

58-55#

54=140

54-184

54-202

54-205

S&-101#

54-109
54-190
54-113
54-216
54-54

54-107
54-60
54-140
54-108
54-110
54-110
54-201
54-173
58-154
54-63

54=-67

54=111

54-134

54-138

54-182

54-183

54-194

54-195

54-223

54-234

54-112
54-51
58-109#
54-112
54-124
54-114
54-123
58-16#
54-115
58-115#

54-113
54=-54

54-173
54-63

54-217
5%-11

58-107#
54-134

54-182

54-183

54-194

54-195

54-223

58-108#

54-123
58-111#
54-115
58-113#

54-124

58-110#4

54-116

54-173

58-112#

54-116

58-1144

54-59

54-60
54=117

54-61
54-143

5462
58-117#

54-63

54-64

54-65

54-66

54-67

54-68

54-69

S4-70

54=71

54-71

54-72

54-172

54-196

54-197

54-198

58-120#4

54-68

54-123

54-124

54-168

54=169

54-170

54=175

564-235

58-122#

54-125

54-126

58=1244

54-218

54=219

58-128#4

54=42
5495

54-96

54-80

54-94

54-126
54-80
54-89
54-98
54-100
5494
58-14#
54=52
54-44
54-65
54-65
54-73
54-73
54-185
54-112
54-42
54-51

54-73
58-118#
54-57
58-121#
54-49
58-17#
58-123#
54-105
58-125#
58-126#
58-127#
54=217
58-130#

54-61
54-184
54-109
54-205
54=205
58-104#
54-217

564=92

54=-202
54=110
58-102#
58-103#

'54-87
54=96

58=1054

CZRMOBO RM0S/3/2 FCINL TST 3

EMS2

EMS20

EMS200
. EMS207

544

54-34

EMS21

| EMS210

EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMSO3
EMSo4

EMS25
EMS26
EMSO7
EMS3

54=119

54=120

54=121

54=212

54=232

54=13C

54=131

54=132

54-133

54-134

54-136

54-180

58-1334

58-135#4
54=142
54=142

54=170

54-179

54-233

58-13¢#

54=173

58-139%#

54=130

54-131
54-55
54-55

MSo07

54=118

54-122

EMS204
MS205
MS206

54-168

54-15

54-169

54-170
54-171
54-171
54-55
54-236
54-237
54-237
54-16
54-179
54-231
54-233
54-232
54-121
54-17
54-18

54-19
5420
54-16
544

58-4a

54-170

58-194

54=170

58-140#
54=172
58-142#
58-1434
58-1444
58-145#
58-146#
58-20#4
58-147#
54-238
58-149#
58-150
58-1514
58-214
58-024

54=131

54=179

58-1384

54=173

58-25#

54=21
54=122

54=22
54=130

54=23
54=131

S54=24
54=132

54=25
54=133

54=26
54-144

54=27
54=145

54-207

54-208

58-27#

54-226

54-227

58-304

54=214

54-215

58-32

58-5#

EMS43
EMS44
EMS45

5426
54-27
54=5
54-28
54=29
54-30
54=31
54-32
54=33

54-213
58-334
54-75
54220
54=19C
54-206
54-209
54=-211
54=210

58-34#
.54-191
58-364

EMSS

54=-193
54-6

23:23’

54-222
54-7

54-48

58-41#
58-74

EMSST
EMS52

54=48
gg-sz

54=55
54-142

EMS50

-LLn

54-199

54-216

54=58
Sh=bh

58-1344

58-137#

54=116

54-76

EMS36
EMS37

5443
54=37

54=237

58-24#
54=115

54-146
58-284.
54-219
54=025

EMS46
EMS47

54=176

58-23#
54173
54=20

5421
54-22
54-23
54=24

EMS40
EMS41
EMS42

54=175

54-115
54-116
54=19

EMS31
EMS32
EMS33
EMS34

EMS4

54-233

54=174

58-18#

54-18
54=43

54-25

54=133

SEQ 0319

58-1484

54-17
54-33

EMS35

54=132

54-23%38

{

58-1414

EMS30

54-177

‘

54=110

58-1314
58-132#

54-122

EMS203

54=5

4-APR-81 01:15:59 PAGE S-14

54-58

54-128
54-128

| EMS202

MACRO Vv04.00

(CREF Vv01-05 )

58-26#4

58-29#
58-31#4

54=28
54=146

54=29
54=147

54=30
54=174

54=31
54-175

54=32
54-176

58-6M

58-374
54-230
54-229

54-100
54=45

58-35#
;
58-38#
58-3%#

54=145
54=52°

54-177
54=60

54=185
54=61

54=199
54-66

54=201
54=117

S
5

54-147

54-186

54-187

54-188

54-19¢

54-64

54=70

54=132

54=135

54=139

54=141

54=181 = 54=185

54-189

54=2
-

54=201

54=221

54=70
54-143

54=130
54-148

54=139
54=149

S54=142
54-178

54=179
54-179

54=189
54=185

54=221
54=201

54=229

54=230

54=231

54=233

58-43#
54=228

p—

CROSS REFERENCE TABLE

*+'

MACRO v04.00
CZRMOBO RMQS/3/2 FCTINL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )
EMSS3

EMS54
EMSS5S
EMS56

. EMSS7
- EMS6

EMSE0

EMS61

EMS62
EMS63
EMS64
EMSES
EMS66
EMS70

EMS71
EmMS72

&
O

NoOuvwsnWNN—=O

—

54-34
54-43
°4-10
54-48
54-221
54-51

EMS73
EMS74 EMS75
EMS76
EMS77
EMT1
EMT10
EMT100
EMT10T
EMT102
EMT103
EMT104
EMT105
=

54224
54-224
5442

54-8
54=41

EMSE7
EMS?7

564-37
54~181
54-204
54-226
564-227
54-50
54-223
54-190
564-204
54-223
546
54-224

EMTic6

54-36
54-139
54-49
54-69
54-35
54-35
54-38
8-3
8-24
8-197
8-200

8-203
8-206
8-209
8-212
8-215
8-218
8-27
8-221
8-224
8-227
8-230
8-233
8-236
8-239
8-242
8-30
8-245
8-248
8-251
8-25¢4
8-257
8-260

8-263

54-38
54-182

54~206
58-4L64
S8=47#
54-51
54228
54-191

54=205
54-228
58-8#
58=-50#

58-51#4
58-524
54-149
54-14
58-=55#
54-218
54-44
S8-9#
54-50
58-58#
54-59
54-48
54=-140
54=54
54-70
54-66

54-36
54=72
54-34
54=-10#

54-664
54-67#
54-68#
54-69#
54=70#4
54=714
54=724
54-734
54=-114

54=744
54=75#
54=764
54=77#
54-784
54=79#
54-80#
54-81#
54124
54-82#
54-83#4
54-84#
54-85#
54-86#
54-87#
54-88#

9
1
4-APR-81 (01:15:59 PAGE S-15

SEG 0320

54-39
54-184

54=44
54-187
54-218

54=45
54=190
54-219

S54-46

54-191
54-220

5447
54-192
54=226

54=62

54=64
54=194

54=65

54-207

54-40
54-186
54=216

54=195

54=73%
54=200

54=140
54+202

54-141
54-203

5454
54234
54-192
54=206
54229

54-62
58-48#
564-193
54-207
54-230

54-63

54=67

54-119

54-143

54=144

54-178

54-182

54-183

54=194

54-195

54=194
54-208
58-49#

54=195
54-209

54=19¢
54-210

54-197
54=211

54=198
54-213

54-199
54=214

54=200
54-215

56-201
54-220

54=202
54=221

54-203
54=222

54-190
54-41

58-53#
54=144

54=145

54=146

54=147

54-199

58=54#

58-56#4
54-45

5446

54=47

54-48

54=49

54=50

54=51

54-52

54=54

58-57#4

54-52

54=54

54-66

54-70

54-73

54=107

54-110

54-139

54-182

54-189

54-194

54-205

54-63
54-51
54-142
54-67
54-134
54-67
54-37
54-148

54-183
54=55
54-179
54-68
54-189
54-137
54-38
54-198

54-195
54-56
54-183
54-136
54-217
54-138
54-39
58-65#4

564-208
54-57
54-187
54-180
54-221
54-188
5440

58-59#
54-60
54=193%
54-188
58-62#
54=222
58=-64#

54195
54-222

54-61
54-232
54-223

54-63
58-60#
54=234

54-108

54-109

54-134

54=135

54-235

58-614

54-223

564-234

58-63#4

54=61

54=193
58=45#

CZRMOBO RMOS/3/2 FCTINL TST 3
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

EMT?2

EMT20
EMT200
EMT201
EMT202
EMT203
EMT204

EMT205
EMT206
EMT207
EMT21

54-92#
54-934
54-94#
54-954
54-964
54-97#
54-144
54-98#
54-994
54-100#
54-101#4
54-102#4
54-103#
54-1044
54-105#4
54154
54-106#
54-107#
54-108#
54-109#
54-110#
54-1114
S54-112#4
54-113#
54-164
54-1144
54-115#4
54-1164

8-272

54-91#

54-118#
54-119#
54=120#

54=174
54-122#
54-123#
54-124#4
54-125#4
54-126#
54=127#4
54-128#

8-48
8-390
8-393
8-396
8-399
8-402

54-184
54-130#.
S54-131#
S54-132#4
54-133#
54-134#

8-6

8-405
8-408
8=411
8=51

8-363
8-45
8-366
8-369
8-372
8-375
8-378
8-381
8-384
54-129#

EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT17S
EMT176
EMT177

8-275
8-278
8-281
8-284
8-287
8-290
8-36
8-293
8-296
8-299
8-302
8-305
8-308
8-311
8-314
8-39
8-317
8-320
8-323
8-326
8-329
8-332
8-335
8-338
8-42
8-341
8-344
8-347
54-117#
8-354
8-357
8-360

—_

EMT131

EMT132
EMT133
EMT134
EMT13S
EMT136
tMT137
EMT14
EMT140
EMT147
EMTI42
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMI150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166

54-85#

54-134
54-904

S
|

B=266

8-33
8-269

EMT127

EMT13
EMT130

S4=-44

54-135#
54-136#
54=1374 «
54=194

4-APR-B1 01:15:59 PAGE S-1¢

SECQ 0327

CZRMOBQ RMQ5/3/2 FCTINL TST 3

CROSS REFERENCE

8-414
8-417
8-420
8-423
8-426
8-429
8-432
8-435
8-54
8-438
8-441
8-444
8-447
54=150#
54=1514
54=152#
54~-153#
8-57
54=154#
S4=-1554
54=156#4
54=157#
54-158#
54-159#
54-160#

54-161#
8-60

54-162#
54-163454-164#

TABLE

(CREF

S4-138#4
54-139#
54=1404
54=1414
54=142#
54=-1434
541444
54=145#4
54=204

54=1464
54=1474#
54-148#4
54=149#

54=21#4

54-224

54-168#4
54-169#
54-234
54-170#4
54=1714
541724
54-1734
54-1744
54=175#
54-176#4
54=177#
S54=24#
54-178#
54=179#
54-180#
54-181#4

EMT272

54-182#4
54-183#
54-184#
54-185#
54=25#
54-1864
54-187#
54-188#

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

v01-05

'
|

CZRMOBO RMOS5/3/2 FCTNL IST 3

CROSS REFERENCE TABLE
EMT273

EMT274

8-569

8-573

EMT27S
EMT276
EMT277
EMT3
EMT 30
EMT300
EMT301
EMT302
EMT303

8-577
8-581
8-586
8-9
8-72
8-590
8-594
8-597

EMT305
EMT306
EMT307
EMT31
EMT310

8-606
8-609
8-612
8-75
8-615

EMT304

EMT311
EMT312

EMT313
EMT314
EMT31S
EMT316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323

EMT324
EMT325
EMT326
EMT327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335

EMT336
EMT337

EMT 34
EMT340
EMT 341
EMT342
EMT343
EMT344
EMT345
EMT346
EMT347

EMT35
EMT350
EMT351
EMT352
EMT353
EMT354

8-600

8-603

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
B8-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

MACRO v04.00

(CREF v01-05 )

&-APR-81 01:15:59 PAGE S-18

SEQ 0323

54-189#

54-190#

54-191#
54-192#
54-193#
54-5#
54-264
54-194#
54-195#
54-196#

54-197#

54-198#

54-199#
54-200#
54-201#
54274
54-202#

54-203#
54-204#
54-205#
54-206#
54-207#
54-208#
54-209#
54-28#
54-210#
54-211#
54-212#
54-213#
54-214#
54-215#4
54-216#4
54-217#
54=294
54-218#
54-219#
54-220#
54-221#
54-222#
54-223#
8-681
54-225#
54304
54-226#
54-227#
54-228#4

54-22%%
54-230#

54-231#
54=2324
54-233#
54-314
54=2344
54=235#
54-236#
54-237#
54-238#

54=2244

MACRO v04.00
(ZRMOBO RMOS5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

EMTS

5464

EMT40
EMT4]
EMTS2
EMT43
EMT4LS

EMT4S

EMT46

EMT47
EMTS
EMTS0
EMTS51
EMTS2
EMT53
EMT54
EMTS5
EMTS56
EMTS7
EMT6
EMT60
EMT61
EMTE2
EMT63
EMT64
EMT65
EMT66
EMT67
8-21
EMT?7
8-172
EMT70
8-175
EMT71
EMT72 / 8-178
8-182
EMT73
8-185
EMT74
8-188
EMT75
8-191
EMT76
8-194
EMT77
4-484LK
EMTVEC
53-1444
ENRGDT
50-4#
EQUALS
4=553#4
ERR
ERRNMB 4448+
L-4 84K
ERROR
ERRTYP 43-1
4=484K
ERRVEC

20-35
22-6*
28-22*

ESRC

SEQ 0324

54=-324
54-334

EMT36
EMT37

ERTYOO
ERTYO1
ERTYO2
ERTYO3
ER1Y04
ERTYOS

M9
4-APR-81 01:15:59 PAGE S-19

L2-1*
44-21
44-46
44-51
44-53
44-152
44-39
L=6254

54=344
54=35#
54-364
54374
54~-38#
54-394
S4=404

S4=-414

S54-74
54=424
54=434
54-44M
54-45#

54=464

54-47#
54-48#4
54-49#4
54-8#
54-50#
54-514
54=52#

54-544
54-55#
54-564
54=574
54-9#4
54-58#
54-59%
54-60#
54-61#
54-62#
54-634
54644
54-65#
10-23+

25-84

L4-49%

44134
10-23
20-35
22=7*
28-51*
42-1*
44-165#4
44-166#4

441674

44-168#
L4-1694
44-1704

10-23+

25-86
44-52
10-23*
20-39+

22-13»
28-51*
43-1

25-136

4464

44-1604

10-25+

10-26*
20-70+
2
30-13«

20-70+
22-21*
30-12
43-1+
>

13~5
21-29
7
30-14+

13~5

21-29
23-10%
30-25«

13-6+
21-33+

23-11
30-25*

13-7~
21-34»
23-35+
42-1

13-20)x
21-59«

23=-75%

42-"

13-20+
21-59+
28-20
42-1+

13-24+
22-4
28-2C

42-1+

MACRO V04.00
CZRMOBO RM05/3/2 FCINL T1ST 3
CROSS REFERENCE TABLE (CREF v01-05 )
4=495¢
L=494K8
4~4938
4=4928
4=46914
L4=577H4

26-113
%g-ggz

13-A72

13-B60

13-B65

13-D28

13-D31

13-D90

13-D93

16-222

25-416

35-348

35-365

RAR AL ORRORN N NI NN AR RCROROROR EN
ORIANNCA

g e e e P P e e e eT eT TT T T T T T

AR R R AR AR A N RN AN RN R AR R AR ORIR1

35-391

SEQ 0325

1.43“4333333333333333333333333333333333333333333333333

35-368

25-29
25-29
25-29
25-29
25-29
4£-583

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

- R ¥ B TR Ry
[

TT T e e

.IW.)W“W%aWZSR-tJWy?m.)”W”&597”7917142&92”2594”57

,w¥'RTrw3L3WQW"“W'W",

aSnuRnegmainaynaodies,z.MRs8e3rNa8s0oa3x0n8iNadnteda2dlei8ni3a33fnelneitditeatadnaliateiacp
oAlARoBR28U82R3oS38RaR0g3Ny4s0lSORcNnONeTAniTaIORTIOns9diR040oeIdUn0drSdR
-AN—~A—eR0y=SRRRAe®r0Rk[0SR0SP=A0P=A=TTMNTMTByTATRPeRTG3TLTTMR3RATRT¥RBDTNR
3M333e33RA3e33ee3R3..)P3eL.5e.5¥e.0R50P3TPRe3T%3TT3!0P0T3e3TPeP3e03e0e03=0=P3PT3=P43=P3X=P7L.TP\e=.=P.=P.l=P.=O~n=Pl=P.R=;P3=P3eP3e.5P3

g2 e
CZRMOBO RMOS5/3/2 FCTINL TST 3
CROSS REFERENCE TABLE (CREF vO

RARECR R AR AR OISR S

ummmu4

AFeRaudnte3FABBR

- BB odBe

1111111111

]1111111111

111‘1111111
lqlql11!111
clalcl1-clc

B8 10
4-APR-B1 01:15:59 PAGE S-21

~—

o Rum®

al oolalalalalalalal
L ab lgal oLl gl oLle
T el iaiaaialia
PT
—e e e aN a1,-of MMMMMN
e eleU Ugal ataUa
g P giaaaalalaL

$£82=

-05 )

MACRO V04.00
SEQ 0326

“JRMOBO RMOS5/3/2 FCTINL IST 3
MACRD V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

c 10

4-APR-81 (':15:59 PAGE S-22

SEQ 0327

13-002

MmN TNl —MMANE

—&0N0O NOLWN N=ON2

47-14

NOnw—o®nR

33-236

33-2%9

15=114

15-144

-~1%81MM

$TNREMOITEIIRIOLIYM

15-90

25-399

aM~Nen

NCALN9m181%wa<MmM

—NNe— NN AN

—NOy

ewn

15=47

32-97

32-101

33-232

35-128

35-131

51-69

51-67
51-88

35-134

CZRMOBO RMOS/3/2 FCTNL TST 3

ILRG74

ILRG76

10TVEC

IPCK1
IPCK2

IPCKO

1PCK3
IR
IvC

LBC
LBT
LF

LODEV
LS
LSC 4
LST
LSTRK

MCLK
MCPE
MDF
MDPE
MEDENB
MFGF IL
mI
MIXED

35-115
51=-72

51-86
L=6794
4=557#
4-4844
10-128
4=4344
L-6784
L-6354

7-04
4-608#

10-23+

31-56
13-F05
35-546
51-73
51-87
35-232
25-358

41-1

50-28#
31-80
35-232
31-80
12-56+

v01-05

)

13-F12

36-58
51=74
51-88
35-250
26-91

13-F 65

51-58
51=75

35-255
26=93

44-88

34-70
35-266
34-70

35-269

12-64*

13->96

13-205

13-165

13-041

35-27

35-30

29-162

29-167
35-528

24-90

24-107

24-120

24-123

25-454

35-438

35-441
16-40
16-322

16-283+
62=74#

13-N17

53-4#

MOH
MOL

13-L71
4=6114
4=6428
4=555#

10-109

MRD
MS
MSC
MSDRVS

4=-609#
L=6144
L=-6178
11-64

34-30

29-146
35-88

29-156
35-252

29-157
35-505

50-21#
13-A46

13-839

17-29

NSER

MSGDRY

MSHELP
MUR
MWD
MwP
MXF
N

ND TMSK
NED
NEM
NONE

NOP
NOTAVL
NOTPRS

NOTRM
NSA

L=-616#

33-158

46854
4=6124
12-69
11-11
L=-610#4

4L-6334

4=615#
4{=7334
11-19
4-583#
4=730#
4=7314
12-7
4=500#
10-116
10-113
10-107
L=64L0#

15-125+
16-273%

35-506

50-22#
50-8#

31-81

34-71

25-343
50-35#

35-50°

35-63

35=66.

10-87

24=72

24=76

28-31

25-328
50-34»#

50-304
50-29#
50=27#

33-102
51-69
51-83

33-171
51-70
51-84

35-111
51=-71
51-85

26-62

29-53

35-178

33-145
36-45

33-146

33-153

58-79

41-1

4(-718#
4-6134
4=7344
7-0#
16-61

12-51x
16-265*

SEQ 0328

10=23+

I\
NON—
NO Y

4-708#
4=-708#
4(-708#4
4=708#
4<-708#
L=4LB4LH
L7604
L=759%
4-758#
L=7574
4L=7764
L=677H

(CREF

— s\

ILRG66

ILRG70
ILRG72

TABLE

D 10
4-APR-81 01:15:59 PAGE S-23

wvwnng

CROSS REFERENCE

MACRO v04.00

...

MACRO v04.00
CZRMOBO RMQOS5/3/2 FCTNL 1ST 3
CROSS REFERENCE TABLE (CREF v01-=05 )

36-42
51=-70

PACACK
PAKA(CK
PAR

PFECH]

PFECH2
PFECH3
PFECH4
PGE
PGM

PHA
PIP

PIRQ
PIRQVE

PLFS
PRO
PR
PR2
PR3
PR

PRS

PR6
PR7
PRIERR

PS
PSEL
PSW

PUT

PUTBUF
PUTINX

51-84
L(=7354
4=5104
L=509#
L=-5788

4-738#
L-628#
46-67
44-172
44-172
44-172

44-172

L=7324
L-558#
L~629%
L=5544

35-505

L-4848

L=4L84K
L-626#
L=-4844
L=484H
L(=4L844
L=LB4H

L=4LB4LH
L=4L84H
L=484LH
L=484H

13-122

13-<28
13-H89
4=484
4L-719#
L=4L84LK
13-68
13-769
13->07
13-E74
13~k40
13-P83
7-04

16= 119
&=

13=247

13=C47

13=174

13-J23

29-30

33-2¢4

33-29

33-34

35-41

35-46

13-G78

36-35

13-G81
36=72

15-178
36-77

16=150

29-156

29-177

29-182

33-145

33-216

33-221

34-29

13-781
13-D87
13-032

13-881
13-F03
13-P45

13-927
13-F63

13-:67
13-G36

13-:11
13-G92

13-:28

34=29
13=:42

29-140
51-58
51=-72
51-86

29-164
51-59
51-73
51-87

32-51
51-60
51=-74
51-88

24-13%

24=-151

13-G26
35-516

15-126

510

24~ 135

35=456

33-204

53214

L4-17248
44-173#
L4=176%

L4-179%

44-1814

34-29
13-G23

35-511

42-5
12-49
10-26

42-9

13-7

20-40

21-34

22-7

23-1

28-22

30-14

13-167
13-<89
13-138
L4=484H

13-269

13->19
13-J47

13-313
13=>79
13-J94

13-410
13-285
13-k94

13-456
13-229
13-L39

13-589
13=-A37
13-M39

13-634
13-832
13-M84

13-737
13-D25
13-N87

13-11C
13-827
13->40
13-£91

13-155
13-869
13->67
13-F33
13-L27
15-129
16=284*

13-215
13-915
13-225
13-F51
13-L85
15-184
21-31

13-257
13-:06
13=273
13-G00
13-M27
16-88

13-301
13-:55
13-217
13-G15
13-M72
16~120

13-356
13-:99
13-283

13-398
13-:58
13-A25
13-670
13-N75
16-183

13-444

13-k 82
13-P94
16-49

13-G55
13-N33
16-154

24-39#

13-Q06

13-,88
13-820
13-H33
13-020

21-284

U 0—MOV MMMN —OMN - M ML -

PWRVE(

&OMe—0O MMMNORN 0*—MON

oN
y xa

el e

—e—MN

®&

M0MN —W0\0N
—

te FNURERS O=V~ON
*

TS LAY

n—00@uMJrO—M M—N0IN@aUDO
0MO M MN
000MM==T—MMMMMMMONO WnN—

2.%7:.3t%'l7p

25-182
51-57
51-71
51-85

35-453
13- =24

33-201
13-811

SEQ 0329

(o] wvw
ow=—Ql ol oWl Ll
UL
o 38'
MVoo
MMNMNN
O 00— =N

4-5624
13-518
L=6764
4~568%

13-Q14
13-P78

13-Q012
13-P18
33-145
13-666

E 10
01:15:59 PAGE S=-24

O0\MMMMMN
— —r
—O\ VRO

4~6214
L6534
4=5064

4-APR-B1

|
|
|
|

RDLIN

RDOCT
RDY
READY

RECAL

RESREG

RESVEC

| REX

f
|

46-1
11-35
4=-722#8
12-37%
4=503#
44-156
4-4B4n
L~6244

RGDTPTY

L=6224
53-3#

RIP
RLEASE
RMAS

L-6944

RMASI

RMASO
RMBA

RMBAE
RMBAE
|
RMBAEO

RMBAI

10=23+

16-171
13-145

33-154
13-612

11-65
47-14
11-49

47-14

14-24
15-181

16=153

11-82

23=22

23-21

47-14

(=526#
4-508#
4£=505#

16-182

7-0#

34-50

60-13

4L=7664
13-617
13->02
13-F46
13-M67
L=769%
7-0#
7-0#
7=0#
7=-0#

13-12+
13-674
13->62
13-G10
13-N2S

13-13
13-720
13-219
13-G65
13-N70

13-477
1347+

13-949
13-98+

7=0#

10=23~

45=1

47-14

13-810

13-D64

24-86

24-89

-3

13-764
13-268
13-H27
13-015

13-105
13-819
13-a12
13-H72
13-074

26-32
13-144+

26-34
13194+

13-<68

13-6é

13-F38

13-G60

13-]16

13=-L16

13-M62

13-010

13-P28

13-150
13-864
13-a77
13-121
13-P13

13-209

13-296

13-:50
13-C14
13-477

13-350
13-:94
13-C63
13-K34

13-393
13-.50
13-p08
13-K77

13-439

13-A20
13-182
13-P70

13-252
13-998
13-B15
13-J30
16-68

13-<13
13-p70
13-L22

13-526
13-<74
13-£39
13-L79

31-42
13-245+«

60-14
13-336+

13-387+«

13-511+

13-565*

13-611+

13-659+

13-713+«

13-804~

13-910

- heol al I] Re~lNed«*x - U] -aoLl]|iJrAN MM[] oO8=*NO0«~ - MTMOT Y

MWe=n0 - 5¥[o- -—r— MT M ONe—oM—

ON - -|UI —%*f(lB|=fiMF|l mvTdL%M|OComnD

13-£87

13-mM22

[*%k AW.| D]*

«&

«®

O7“wv160«161%6&(V]d?=gN

RMCS1T

&"«

U=M0LMeO}0oMVIRO~e~o—NMOa=lVNa=Mol=Aa(l=NoDl=oNTl=SOOV\elN(=BLaN=—ralrl=marl—eel<E*
oHmn

1 124

OUONAOnMVNNNM00*ANeMMVNWMaYOIM~NOMWMZVYNANVYOY=ORN-g&7:MgDL4ag.l*M.i*aUlTO-0l¢TET

OM M

W\00—®&=«

13-572

13- 36

nTM MwnownOv
~}— |[ [ -)
0\ — Y -

PTT~—0 VYNI
&&.
—ee—0O
MMM
TN
WOVO
O bNOe—=
e- eliale)
No] MMMelUL
2w-in olNOLaOolw8onaeil—
OO
o)l olLalal[
—r—r—al
)- ATLAl
N]oV MM
SLoala¥le

RMBAO

10-23

SEQ 0330

O-

L=4(B4n
4=484n
15-207
L=525#
11-12

* LalaV]

50-64

(CREF

- -

QUES

RE
R7
RCLSTS
RD
RDOCHR

TABLE

- ——r—

CROSS REFERENCE

F 10

4-APR-81 (1 :15:99 PAGE S=2S

MACRO v04.00
v01-05

552

(ZRMOBO RMOS/3/2 FCTNL TIST 3

7=0n

S-S E——

(Ner~oepnrNeme [)e|

M OMe—0WNO— - WM

RM(S20

N-—r—r—0r\ 2NO“NSTWn7OOD 929N%3M@O2e2— 6&w3N&0n (U=—M= LeU[]dOIi—eN~lOM—
NoOZ Or-e—iIiaTMA 0 I\

oKX&¥

MACRO v04.00
CZRMOBO RMOS5/3/2 FCTNL TST 3
"ROSS REFERENCE TABLE (CREF v01-05 )

G 10
4&-APR-81 01:15:59 PAGE S=26

13-942

13-G27

18-32

13-G78

SEQ 03%1

19-20

13-G80

25-140
29-192
33-106
33-216
35-515
36-61%

25-196
29-194
33-144
33-220
35-517
36-62

25-223
29-196
33-153
33-222
35-528
36-72

31-92

34=94/

60-15

13-B77

13-D34

13-G82
25-358
29-206
33-157
34-28
35-532
36-76

26-92
29-210
33-159
35-88
35-534
36-78

15-122

15-178
29-91
29-212
33-169
35-90
35-544
60-13

29-146
31-124
33-173
35-119
35-548

29-155
32-23
33-174
35-252
35-550

16-150

24-104
29-162
32-25
33-185
35-318
36-34

25-38
29-166
32-27
335-187
35-453
36-40

25-40
29-168
be
33-189
35-455
36-44

13=p35

13=D96

13=pG7

13-FQ5

13-F10

13-F11

13-F6S

13- 70

16-116

60-14

CZRMOBO

RMOS/372

FCTINL

"ROSS REFERENCE

TABLE

29-58
4=579%

32-51

(CREF

MACRO v04.00

v01-05

60-11
32-83

)

32-87

H 10

4-APR-81 01:15:99 PAGE $-27

33232

33-250

SEQ 033¢

35-159

35-128

35-253

35-162

RQA
ROB
RTC

SA1

SA16
SA2
SAL
SA8
SADMSK

SAVREG
SC

SCO
SC1
Sc2
SC3
SC4é

«&

4L=507#
4=5444

4L=5404
4=5434

4=5424

4=5414
4=5484

44-13"

4{=7164

4{=5974
4=5964

4=595#
4=5944

4=-5938

26-68
L7-14
24=90

24=-107

24-123

0eJ\ 1831*137.J4 ON—M~ 3”o6N1O

31-30

®&

«&

[20 LI OM MM

O—* N0N
*%

~OS NN

8RE maoY

*¥

OO —e=(JO N

STMMNNMO TEARNTY

DRI
RMWC
I
RMW(CO

MM—NMONNTOIMNMONO

BIRREY

RMSN
RMSNI
RMSNO
RMW(C

TST

15“o5 YPT9

MM[Jr|-N._.

MACRO v04.00
CZRMOBO RMOS/3/2 FCTINL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )
SCOPE

SCTMSG

|
|
|
|

SCTMSK
SEARCH
SECERR

SEEK
SEKSTS
SHUT
SHUTZ
SIZLLK
SK1

SNGPRT
STACK
STANDA
START

START1
STARTZ
STCDRYV
STKLMT
STOP

STSD1
STSD2

STSD3

STSD4
STSF

STSH1
STSHZ

STSH3

STSH4
SwO
SwW00
SwO1
Sw02
SwO3
SWO4
SwO5
Sw06
SwQ7

Sw08
SwWO9
Sw1
SW10
Sw11
Sw12

Sw13
Sw1é

Sw15
Swe
Sw3

L{~4B4H

1 3-E49

} 3-52
3-172

L=5954
4-513#
13-126
13-<32
13-H95
4=502#
13-<00
14-16
45-1
12-28
L=6754

33-,19
36-111
L4=645#

4=484H

3-C24

13-341
13-L69

25-104

26=5

13-171
13-<93
13-144
13-.86

13-<62
14=20
45-1

22-3#4
15-176
33-218

4=4L84LH
4-484
4-484
4=484

4=484

4=484
4-484
4=484
4=484
4=484
4=484
L{=4L84a
4=L84K
L=484H
L=484M
4=4L844
L=4L84LH
L=484H
4=4844
L=4LB4LH

13-<48
15~ =92

14=22#
45-34

13-k05

13-497
13-L50

13=(24

13-=20

13=203

13-359

13=(45

13-£63

13-H17

13-961
13=F76
13-010

13=-:71
13-G38

25=24N

13=:15
13=-G9%4

=741
13=7
13-D
=D46
13-N 91

13-785

13-E08
13-036

13-885
13-F16
13-P49

13-322

13-497
13-L50

13-645
13-M95

13-790
13-046

13-969

13-;20

13-=05

13->88

13-a38

56=12
56-12

60-13#

56-12

60-17#
57-8

57-8

57-10

57-11

55-13

59-264

29-19#

56-10
56-10

56-11
56-11

56=2

56-8

56-10

56-11

57-2

55-2

57-12
55-8
55-8

57-12
55-9
55-9

61-7#4
55-11
55-11

57<2

55-2

55-8

55-9

55-11

55-12

44=-14

13-a38

13-638
13-R84
13-M88

56-8
56-8

16-245

13->88

13-593
13-A91
13-M43

56-2
56-2

4=484K
4=4L844
4-484H
4=4L84K
4=4L844
4=484K
4L-484n
L=4844
4=484a
L=4L84H

13-=05

13-489
13-a33
13-L43

13-289
13-K98
13->38

14=27

57-12
55-2

13=,20

13=414

12-42

13=969
14=9

13=317
13->83
13-k00
13-= 78
13->52
45-6

12-33

37=1

13=046
13=:40

13-809
50-34

13-064

13-180
13-154

13-28

13=790

13-M95
13-988

13-664

13-N15

13-G99

3 5-173

13-645

SEQ 0333

13-516

13-33

42-5#

56~1
56-1
60-16#
56~1
57-1
57-11
551
55-1
59-254
55-1

13->23
13-J53

13-322

13-2
13-F 81

10-23

4=48LH
42-1

36-27#

13-273

13-180
13-15¢4

29-48
35-176

5-1
>3
10-15

10-66

13-G99

1 6-148

13-E49
11-3#
10-17#
10-144
10-18#

13-33

13-2
13-F81
13-199
13-Kk24

I 10
4-APR-81 01:15:59 PAGE S-28

S7=g

13-k05

60-14#

MACRO v04.00
CZRMOBO RMOS/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

SU8
Sw9
SWR

SWREG
SYSTAT
TA1
TA16
TA2
TA4
TA8

TADMSK
TAG
TAGADR
TAP

TBITVE
TIMOUT

TKVEC
TPVEC
TRAPVE
TRE
TRTVEC
TST
TST1

TST10
TST11
1ST12
TST13
T1ST14
TST15
TST16
TST17
1ST2
15120

TST21

1ST22
TST23
TST24
TST2S
TST3
TST4
TSTS
T1ST6
1877

TSTNMB
TSTPRP

L=4L84LH

6=0#

(2=
48-1+

5-1#
10=-76
L(=537#
(=533

L2-1+

42-1*

10=23+

10-23*
43=1

10-28

45-1

45=1

13-160
13-874
13-372
13-631
13-N38

13-220
13-920
13-230
13-G87
13-N80

10-23

SWS
SU6

SEQG 0334

L=4LB4A
L=4L B4
A
4=4LB84
44
4=48
(RN
TA
1
e aY]

| Swh

J 10
4-APR-81 01:15:59 PAGE S-29

42-1
45=1

42-1
45-1

42-1
45-1¢

42-1
48-1

13-582
13-<55
13-C76
13-k45
15-137

13-627
13-<82

13-687
13-=48
13-D80
13-L32
16-96

13-730
13-=85
13-£45
13-L90
16-128

13-653

13-708

(=5364
4=535#

L~5344
L=5474

L{~664L4

5-94%
L-6414

L4844

13-73
13-774
13->12
13-E96
13-M32
16=162
(=4L844
L=484H
L=484H
L=717#
L=4L 84K
L-6654
13-2#
13-9694
13-,20#
13-=05#
13->88#
13-a38#4
13-C24#
13-E49%
13-F814

23-9#

13-306
13-:60
13-a22
13-H82
13-085

13-361
13~-;04
13-288
13-131

25-106

25-108

26-12

13-286
13-:40

13~330
13-:84

13-381

13-P26

13-449
193
13-825
13-J40
13-P86

13-539
13-<21
13-C20
13-J87
13-P99

13=429
13-.83

13-505
13=<45

13-p18

13-k87
15-192

45-1+

10-23+
24-90

24-107

24-123

34-83

13-334
13-G99#
13-154#

13-K05#

13-L50#
13-M95#
13-0464
13-180#
13-322#
13-4974
13-6454
13-790#4

L4=44n
13-41
13-754

L44=47
13-139
13-852

44-1594
13-188
13-900

13-,28

13->36

13712

K 10

4-APR-81 01:15:59 PAGE S-30

Q&R

N wE

L)alal

AlLoA ne— olL4a

13-G51

.._..._.m...&...AW..-_|.%.I\.w.BPRYi1

O4 R M(m> —y MN &00 N0Vw

N—OOr r rL Nuwwn oD

N—IMOOOMMMAIMD

OUTMMA0NDY~S Hfl8>121lfi1.7.11 e NMOM—AIMeO—U. WMOw~ BRPN MOoRVy —er\

SEQ 0335

MosSO1N0MNATUI—3I tOW8TO9T ¥85OPg8IMTOVFMYrOE~V8T5IYT8Vn28Yo58541—353N-gATeeSeNO—oN0IIMrM OSSoO]>NSRRMDA>oM&MAnb.U0(%I]—MyeI—aNr
TsoN3\ N —r =— =N

MACRO v04.00
CZRMOBO RMOS/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

v A = o

_81.47757176251v%57755A5C57 R¥Tby hODNw~Sd wX0<a@A.-onN0
-

—-\

TVM —

)

MM M

£3ea3

13=-NS8

C/RMOBC RMOS/3/2 FCINL TIST 3

CRUSS REFERENCE

(CREF

v01-05 )

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

SEQ 0336

&)I—WwReaR|b—Ri0ToaRAAORtDIwIPwIoIhaoDRwDaIPLIRBBTaU—%~2D3I3S>3BU[3SLE%[EsFEo@gYs—

5N~4gMg”3g72e@6s45(e2R4@(e9(e4%e5(e4N(3R4Ig4W-%4Me4%ST4444444%3333333333333333<33®s333

| $SCMRE

TABLE

MACRO v04.00

O4TY4PIT%4I6NT%T4O%VI9TfNIlYfTl«¢»o4.%w 7a12*O3—‘csAF5va%oV7 9a12A3&4%5cVCa7A8EV9 oM70~(AOTN—=LUFWT

Ry ¥ & LR

xo o 85MO21%MO32%8N7%”8O5M4I1N8O—M%e0—=7tnO

|
|

YT 7Y TR YYATPETeY

AggNgeAeeRe(RA(R(RR(Rg(-N(ARMN(U(RN(i(sIPR-ARAARRARRRRAARARA<oRRI
|

O—0WVNINMIN\AWIMIe=WINonMN

MACRO v04.00

CZRMOBO RMO5/3/2 FCTNL TST 3
CROSS REFERENCE TABLE (CREF v01-05 )

13-33
13-G99
13-33
13-G99
13-20
22-21
48-1
13-14

13-180
13-154
13-180
13-154
13-24

23-35

49-1
1647

M 10

4-APR-31 01 :15:59 PAGE M=2

13-322
13-K05
13-322
13-K05
16-71
24=-145
49-1
16-262

13-497
13-L50
13-497
13-L50
16-278
24=-149

16-288
25-131

16-281

16=297

13-645
13-M95
13-645
13-M95

SEQ 0337

13-790

13-969

13-:20

13-=05

13->38

13-238

13-C2¢

13-790
13-046

13-969

13-.20

13-=05

13->88

13-238

13-C24

16-398
28-51

17-65

30-25

18-95
31-58

19-25
34-58

19-26
34-59

19-27
37-1

20~-70
39-1

17-20

18-17

19-10

19-1

19-12

20-35

£1=¢9

13-046

CZRMOBO RMOS5/3/2 FCTINL TIST 3
MACRO V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

22=4

| PUTREG
REPORT
RGBFM(

SETPRI

SETTRA

4=~44208

L~484H
L-694
L~4LBLn
471
4=484H
4-4L84H
4=4B4LH

22-5

23-9

23:}41

25-128

13-733

13-G00

13-G55

49-1
13-E74

49-1

7-0
12-49
47-1
10-23

7-0
42-5
47-1

47-1
10-23
6-0

oLo]Xgl 0ON—l wnoNnNININT Lokl]MOVM.57.0581%8“—1N2 M—=)a3l["VllaYoae

4=4844
4=4B4H
4=4728

14-20
4L=484H

14-20
10-28

4=124.
8-42
8-84

10-81
11-33
10-6
8-3
8-45
8-87

12-16
45-1
10-42
8-6

SEQ 0338

28-20

30-12

31-52

34-51

34-52

37-1

39-1

46~1

48-1

47-1

L7-14

Ne—eOrWnON0 )CM\r~WLy

O—WTN0ONM NOONON

SWRSU
TAGS
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

XPER

461
4=484n
4=1034
47-1#

4=4L84K
4=4L 84K
4=4848
4=484K

8-126
8-172
8-215
8-257
8-299
8-341
8-384

8-130
8-175
8-218
8-260
8-302
8-344
8-387
8-429
8-471
8-513
8-556
8-606
8-648
8-690

48-1
10-23#

8-48
8-90
8-133
8-178
8-221
8-263
8-305

. 8=347

8-390
8-432
8-474
8-516
8-559
8-609
8-651
8-693

Xg olel ol Xl adLl

250%40

Ce‘Jd}3 3333—_4e6

NOM M N NO ’MMM331-

&357&%%50

SETUP
SKIP
SLASH
v—g

48-1

N 10

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

48-1

49-1

12-70

44-22

10-53
8-9
8-51
8-93
8-136
8-182
8-224
8-266
8-308

10-59
8-12
8-54
8-96
8-139
8-185
8-227

8-351
8-393
8-435
8-477
8-519
8-563
8-612
8-654
8-696

8-269
8-311
8-354
8-396
8-438
8-480
8-522

8-566
8-615"
8-657
8-699

}

4447

44=52

44=54

10-60
8-15

12-30
8-18
8-60
8-102
8-146
8-191"

14-20
8-21

8-57
8-99
8-142
8-188
8-230
8-272
8-314
8-357
3-399
8-441
8-483
8-525
8-569
8-618
8-660
8-702

8-233
8-275
8-317
8-360
8-402
8-444
8-486
8-528
8-573
8-621
8-663
8-705

8-63
8-105
8-150
8-194

8-236
8-278
8-320
8-363
8-405
8-447
, 8489
8-531
8-577
8-624

8-666
8-708

14-20

8-24
8-66
8-108
8-154
8-197
8-239
8-281
8-323
8-366
8-408
8-4590
8-492
8-534
8-581
8-627
8-669
8-711

8-27
8-69
8-111
8-157
8-200
8-242
8-284
8-326
8-369
8-411
8-453

8-495
8-537
8-586
8-630
8-672
8-714

8-30
8-72
8-114
8-160
8-203
8-245
8-287
8-329
8-372
8-414
8-456
8-498
3-540
8-590
8-633
8-675
8-717

8-33
8-75
8-117
8-163
8-206
8-248
8-290
8-332
8-375
8-417
8-459
8-501

8-543

8-594
8-636
8-678
8-720

8-36
8-78
8-120
8-166
8-209
8-251
8-293
8-335
8-378
8-420
8-462
8-504
8-546
8-597
8-639
8-681

8-723

8-39
8-81
8-123
8-169|
8-212
8-254
8-296|
8-338
8-381
8-423
8-507
8-549
8-600
8-642
8-684