Digital PDFs

AH-9126F-MC

April 1982

205 pages

Original

106MB

view download

OCR Version

146MB

view download

Document:	CZR6JF0 RK611,RK06,RK07 UNIBUS RK6 DR-3 APR 1982 bw
Order Number:	AH-9126F-MC
Revision:	000
Pages:	205
Original Filename:	CZR6JF0__RK611,RK06,RK07__UNIBUS_RK6_DR-3__AH-9126F-MC__APR_1982_gray.pdf

OCR Text

RKO6

RK611

. RKO7

UNIBUS

RK6

CZR6JFO

DR-3

AH-9126F -MC

FICHE 1 oF 1

APR 1982

msne
e HTEHEN

04-JAN-82

13:06

PAGE 2

.REM %

NN 2OV

NON NS NN —

CZR6JFO UNIBUS RK6 DR-3 HACVH 30(1046)
CZR6JF .P11
04=JAN-82 12:48

NN P e

d e

WN 2O VNN

d e =D e e

IDENTIFICATION

PRODUCT CODE:

PRODUCT NAME:

AC=9125F-MC

CZR6JFO UNIBUS RK6 DR-3

DATE:

JANUARY 1982

MAINTAINER:

STORAGE SYSTEMS SOFTWARE TEST APPLICATION

AUTHOR:

LEBLANC

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

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A

LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIED BY DIGITAL.

SEQ 0001

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046)
CZR6JF .P1
04=JAN-82 12:48

&
Lé

04-JAN-82

13:06

PAGE 3

SEQ@ 0002

REVISION

CHANGES

DATE

CZR6JFO

IMPLEMENTED XXDP LOAD MEDIA OPTION

JAN 82

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1
2.2

5.0

—t o

—

4.7

ACT/AP
APT ETABLE DEF INITIONS
DUAL ACCESS
MEMORY MANAGEMENT
PARITY CHECK ENABLED

BAD SECTORS
EXECUTION TIME

FAULT ISOLATION

ERROR CORRECTION & FAILURE RATE ANALYSIS
DEFAULT UNIBUS ADDRESSES & VECTORS

PROGRAM LOADING
STARTING LOCATIONS
CONSOLE SWITCH REGISTERS
SOFTWARE SWITCH REGISTER
INPUT DIALOGUE
PROGRAM EXAMPLE
HALTING THE PROGRAM

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION
5.1
5.2

6.0

PDS-" FAMILY COMPATIBILITY

OPERATING PROCEDURE & CONTROL FUNCTIONS
4.1
4.2
4.3
4.4
4.5
4.6

83
gg

PROGRAM CONSIDERATIONS
.

HARDWARE
PRELIMINARY TESTING AND PROGRAMS

NO NS W —>

3.0

4.0

GENERAL
TEST DESCRIPTIONS

ERROR REPORTING

6.1

6.2

ERROR INTERPRETATION

ERROR PRINTOUT EXAMPLE

SEQ 0003

(Y)

PAGE 4

TABLE OF CONTENTS

71
72
73
74
75
76
77
78
878

13:06

- =200

JTLLBORORSSILIRNAROLLEE
LSS ¢

04~JAN-82

NN WN NN NN NN NN

CZR6JFO UNIBUS RK6 DR-3 HACYH 30€1046)
04~JAN-82 12:48

CZR6JF .P1T

4=JAN-82

1.0

13:06

PAGE 5

SEQ 0004

ABSTRACT
THIS PROGRAM PERFORMS PART 3 OF THE DRIVE DIAGNOSTICS TO
INSURE THAT THE DISK IS CAPABLE OF PROPERLY PERFORMING
ALL OPERATOR INTERVENTION FUNCTIONS.
ERROR DETECTION LOGIC IS CHECKED BY MANUAL & SOFTWARE ERROR FORCING.

QRER

AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS PART,
PRECEEDED BY THE SUCCESSFUL RUN OF PARTS 1 & 2,

00O

IT CAN BE ASSERTED THAT THE RK06 DRIVE WILL WORK SUCCESSFULLY
IN THE STAND-ALONE MODE.
SYSTEMS INTERACTION, & ERROR RATE
ANALYSIS ARE LEFT TO OTHER PROGRAMS.
THE

kxk**CAUTJON®*tan

HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF A PASS,
MAY LEAVE THE HEADERS IN THE DISK CARTRIDGE IN AN
UNDETERMINED STATE.

2.0

REQUIREMENTS

2.1

HARDWARE
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC:

b h wd e e e

= e b

TESTING IS BASED ON A HIERARCHY APPROACH STARTING WITH
BASIC LOGIC TESTS AND PROCEEDING THRU DYNAMIC TESTING.
TESTS WILL BE KEPT SMALL TO FACILITATE SCCPING LOOPS.
THIS PROGRAM WILL TEST RKO6 & RKO7 WITHOUT NEED OF
OPERATOR INPUTS.

WWNWWWWWWNI
N NN

PDP=11
CONSOLE TELETYPE
16K MEMORY
KW11-L OR KW11=P CLOCK
RKO6 UNIBUS CONTROLLER (RK611)
1 T0 8 RKO6/RKO7 DRIVES

NOTES:

IF NEITHER KW11-L OR P CLOCK IS USED,

TESTS WILL BE BYPASSED.

ALL TIMING

A MESSAGE Af THE

BEGINNING OF THE TESTS WILL CONFIRM THIS.

2.2

THE PROGRAM CAN WORK OFF EITHER FORMATTED OR

NON-FORMATTED PACKS.

PRELIMINARY TESTING & PROGRAMS

THE RK611 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU
FOLLOWED BY THE RKO6 DRIVE DIAGNOSTICS - PARTS 1 & 2.

3.0

PROGRAM CONSIDERATIONS

(ale)

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046)
CZR6JF .P1
04=JAN-82 12:48

CZR6JFO UNIBUS RK6 DR-3 Hsczy 30(1046)
CZR6JF .P1
04-JAN-82 1

147

04-JAN-82

3.1

13:06

PAGE 6

SEQ@ 0005

PDP=11 FAMILY COMPATIBILITY
THIS PROGRAM 8”‘ 8; USED BY THE PDP-11/04,05,10,20,

34,35,40,45,50, &

70.

IT IS COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST
THE RKO6 ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611.

3.2

XXDP

THIS PROGRAM SHOULD NOT BE CHAINED BY XXDP.
CHAIN MODE OPERATION (MONITOR)
B8Y DEFINITION, ANY PROGRAM THAT REQUIRES
OPERATOR INTERVENTION SHOULD NOT BE CHAINED.

NNNNNNNNY

DUMP MODE OPERATION (MANUAL)
1.

3.3

INPUT DIALOGUE IF STARTED FROM 220.

DRIVE O CAN BE TESTED, BUT THE OPERATOR IS FIRST GIVEN

A MESSAGE TO REPLACE THE PACK IN DRO WITH A SCRATCH
PACK & TYPE <CR> WHEN DONE.

ACT/APT

THIS PROGRAM IS ACT COMPATIBLE.
HOWEVER, IT SHOULD NOT BE RUN IN THE AUTO MODE.
AUTOMATIC MODE (MONITOR)

BY DEFINITION, ANY PROGRAM THAT REQUIRES
OPERATOR INTERVENTION SHOULD NOT BE
RUN IN THE AUTO MODE.

DUMP MODE (MANUAL):

3.3.1

INPUT DIALOGUE IF STARTED FROM 220.

APT ETABLE DEFINITIONS

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL
TABLE (ETABLE) ENTRIES, VIA RUNNING THE APT UTILITY PROGRAM ‘‘TSP'':

SOF THARE ENVIRONMENT:
=1 IF APT SCRIPT MODE
=0 IF STANDALONE MODE

ENVIRONMENT MODE:
BIT7 =1
ETABLE DOES SIZING
6
BIT

=1
0

PROGRAM DOES SIZING

SPOOL *SSAGES TO_APT IF SCRIPT MODE
DON'T SPOOL TO APT

04-JAN-82

13:06

CZR6JFO UNIBUS RK6 DR-3 Hsczal 30(1046)
CZR6JF .P1
04-JAN-82 1

PAGE 7
BIT 5 =

8 NOAWVS

BITS 4=0

SEQ@ 0006

SUPPRESS CONSOLE OUTPUT

ALLOW CONSOLE
OUTPUT

NOT USED

3.
SWITCHi (SOFTWARE SWITCH REGISTER)
IF ENVIRMNT MODE BIT 7 (SIZING BIT) IS SET 10 1,

NtVNV
eded e b D WO
B b b
N=0O

THE SOF TWARE SWITCH REGISTER WILL BE USED,

INSTEAD’

OF THE HARDWARE CONSOLE SWITCH REGISTER.
REGARDLESS
OF WHICH ONE IS USED, ALL BITS DEFINED IN SECTIONS

4.3 % 4.4 (SWITCH REGISTER OPTIONS) MAY USED

WHEN RUNNING IN STANDALONE MODE.

IN APT SCRIPT MODE,

HSUSVER BIT 14 (LOOP ON TEST) MUST ALWAYS BE SET

SWITCH 2 (USER SWITCH REGISTER)
NOT USED

CPU OPTIONS:

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES

INTERRUPT VECTOR 1:
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210

BUS PRIORITY 1:
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = §

INTERRUPT VECTOR 2:
NOT USED

NOT USED
NOT USED

10. BUS PRIORITY 2:
NOT USED
11. BASE ADDRESS:

USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440

12. DEVICE MAP:
USED WHEN ENVIRONMENT MODE BIT 7 = 1.
EACH BIT
SET TO 1 IN BITS 0-7 WILL SELECT THE CORRESPONDING
DRIVE TO BE TESTED.
BITS 8-15 ARE NOT USED.
13.CONTROLLER DESCRIPTOR WORDS:
NOT USED

14. DEVICE DESCRIPTOR CODES (IN WORDS):
NOT USED

3.4

DUAL ACCESS
THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS.
A DRIVE
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TO THE PORT UNDER
TEST TO PREVENT CONTENTION WITH THE OTHER PORT.

DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM

CZR6JFO UNIBUS RK6 DR=3 MCY‘I‘I 30(1046)
CZR6JF .P11
04=JAN-82 12:48

04~JAN-82

259

%gg

13:06

PAGE 8

SEQ@ 0007

AT A LATER DATE.
3.5

MEMORY MANAGEMENT
MEMORY MANAGEMENT NOT USED

3.6
2

IF _THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM,

%98

r44
%;%

THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED.

3.7

274
275

OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT.
3.8

281
%gg
284
%gg

589

3.9

2239

298
299
338?

APPROX 5 MINUTES TO DO ALL THE TESTS
(BASED ON THE PDP 11/50)

FAULT ISOLATION

TO BE DETERMINED.

3.10

292
293

595

EXECUTION TIME
TOTAL TIME:

287

223(1)

BAD SECTOR
THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR
INFORMATION CONTAINED ON CYLINDER 410, HEAD 2. PRINTOUTS

%;9

278
%gg

PARITY CHECK ENABLED

ERROR CORRECTION AND FAILURE RATE ANALYSIS

THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE
ANALYSIS.
3.n

DEFAULT UNIBUS ADDRESSES & VECTORS

THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS
OF ALL HARDWARE TO BE USED & THEIR MEMORY ADDRESSES

WHERE THEY CAN BE CHANGED.

338%

304
305
306
307
308
309
310
311
312
313
314

RKO6 BUS ADDRESS
CONTROLLER INTERRUPT VECTOR
CONTROLLER PRIORITY
P-CLOCK STATUS REG
P-CLOCK SET BUFFER
P=-CLOCK READ BUFFER
L=CLOCK STATUS REG
L=CLOCK INTERRUPT VECTOR
P=CLOCK INTERRUPT VECTOR
TTY KB STATUS REG
TTY KB BUFFER

LOCATION

DEFAULT CONTENTS

1264
1334
1336
1340
1342
1344

177440
%10
40
172540
17%542
172544

1 48
135
1352
1144
1146

177546
100
1
177560
177562

CZR6JFO UNIBUS RK6 DR-3 "ch;1 30€1046)
04-JAN-82
1

e ey
L

CZR6JF .P1

04=JAN-82

13:06

PAGE 9

TTY PRINTER STATUS REG
TTY PRINTER BUFFER

SEQ@ 0008
177564
177566

1150
1152

4.0

OPERATING PROCEDURE & CONTROL FUNCTIONS

4.1

PROGRAM LOADING

THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA

SUPPORTED BY XXDP.

4.1.1

LOAD THE STARTING ADDRESS (SEE SEC 4.2).

4.1.2

SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3).

4.1.3

SET DRIVES TO BE TESTED IN THE °'LOAD' CONDITION & WITH THE
APPROPRIATE PORT SELECTED & WRITE LOCK DISABLED.
DRIVES
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED.

4.1.4

NOTE:

THE DRIVE WILL NOT RESPOND TO THE °'START SPINDLE'
ggg???gulf THE RUN/STOP SWITCH IS IN THE °*STOP'

PRESS

°'START'

THE PROGRAM WILL IDENTIFY ITSELF AND WILL BEGIN
A
QEEEOSEE 21;? THE OPERATOR TO DETERMINE DRIVES TO BE TESTED
THE
THE
THE
WAS

PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED 8Y
INPUT DIALOGUE.
IF A SPECIFIED DRIVE CANNOT BE FOUND BY
PROGRAM IT WILL BE FLAGGED AS AN ERROR THAT THE DRIVE
NOT AVAILABLE.
THEN BEGINNING WITH THE LOWEST NUMERICAL

DRIVE AND PROCEEDING IN SEQUENTIAL ORDER,

WILL BE TESTED.

ALL VALID DRIVES

ONE PASS THROUGH THE TEST SEQUENCE WILL BE

PERFORMED ON EACH DRIVE BEFORE MOVING TO THE NEXT DRIVE
IN SEQUENCE.
THE DRIVE TQ BE TESTED WILL BE TYPED AT THE

BEGINNING OF EACH PASS.
TESTING ALL DRIVES.

4.2

"END OF PASS''

WILL BE TYPED AFTER

STARTING LOCATIONS

LOCATION 200 = STARTING ADDRESS TO DEFAULT THE BUSS
ADDRESS & THE CONTROLLER INTERRUPT VECTOR
OOLEfT ALL DRIVES IN THE °DRIVE PRESENT'
C
TION.

NOTE:

THE DRIVE PRESENT CONDITION IS:

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046)
CZR6JF .P11
04-JAN-82 12:48

04-JAN-82

13:06

oD
>»

PAGE 10

SEQ@ 0009

HEADS MANUALLY LOADED

CORRECT PORT SELECTED

WRITE LOCK DISABLED
DRIVE READY INDICATOR ON

LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS
VIA THE INPUT DIALOGUE.
BUSS ADDRESS &
CONT. lgTERRUPT VECTOR INPUTTED ONLY ON
1ST PAS

IMPORTANT:

FOR VARIATIONS OF THE ABOVE

sse xxop ACT/APT

CONSIDERATIONS IN SECTIONS 5.2 € 3.3.

ALSO, THE PROGRAM WILL DETERMINE IF THE DRIVE

IS AN RKO6 OR RKO7 WITHOUT OPERATOR INPUT.

4.3

SWITCH REGISTER
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS.

b
d
d
e
e
—

4.3.1

VO =NOWHWN

SWITCH

FUNCTION
HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUT

BYPASS DRIVE AFTER 20 ERRORS
INHIBIT ITERATION
BELL ON ERROR
LOOP ON ERROR

SW<15>
THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT
THE ERROR MESSAGE AND PERTINENT INFORMATION.

PRESSING '‘CONTINUE'®' CONTINUES NORMAL OPERATION OF THE PROGRAM.

4.3.2

SW<14>
THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN
THE SWITCH IS PUT ON.
THIS SWITCH IS NORMALLY USED ALONG

WITH Sw15.

4.3.3

SW<13>
THIS SWITCH INHIBITS ALL ERROR MESSAGES.

NORMALLY USED WHEN

LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9).

4.3.4

SW<12>

CZR6JFO UNIBUS RK6 DR-%
MCYH 30€1046)
CZR6JF .P1
04~JAN-8

04~JAN-82

13:06

PAGE 11

SEQ@ 0010

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE
BEEN DETECTED.

4.3.5

SW<11>
EACH TEST WILL BE EXECUTED ONLY ONCE.
FIRST PASS

(USUALLY50,

NORMALLY AFTER THE

EACH SUBTEST IS ITERATED A NUMBER OF TIMES

N SOME CASES).

SETTING THIS SWITCH INHIBITS

ITERATIONS, SO THAT QUICK PASSES CAN BE MADE.
4.3.6

SW<10>
RINGS A BELL ON ERROR.

4.3.7

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

SW<09>
THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR

ERRORS.

IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK

TO THE BEGINNING OF TEST.

4.4

'SOFTWARE®' SWITCH REGISTER
IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/04 OR 11/34)
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS

NOT PRESENT AND WILL USE A °SOFTWARE' SWITCH REGISTER.
THE
'SOFTWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE ‘SOFTWARE' SWITCHES ARE CONTROLLED TMGJGH
A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A °CONTROL G°.
THE PROGRAM WILL RECOGNIZE THE "CONTROL G' AT ANY TIME EXCEPT WHEN
THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT.
THE °'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER
IN RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

SWR = NNNNNN

NEW
=

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED

'RUBOUT® AND °"CONTROL U®' FUNCTIONS MAY BE USED TO CNREfT TYPING

ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE *SOF TWARE
'
SWITCH REGISTER MAY BE USED.
IF THE PROGRAM FINDS ALL 16 SWITCHES

IN THE 'UP® POSITION, ALL SWITCH REGISTER REFERENCES WILL BE
;BS}HEE"S:giImE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE

4.5

INPUT DIALOGUE
THE DIALOGUE WILL BE DONE INTERACTIVELY.
THE PROGRAM WILL
REQUEST A PARAMETER BY CONSOLE TYPEOUT.
THE PARAMETER MAY
THEN BE ENTERED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT

CZR6JFO UNIBUS RK6 DR=g:\sczy 30(1046)
CZR6JF .P11
04-JAN-8

04-JAN-82

483

13:06

PAGE 12

SEQ 0011

BY A CARRIAGE RETURN.

UNRECOGNIZED OR ILLEGAL RESPONSES WILL
BE ECHOED BACK FOLLOWED BY ‘“2°'.
THE PROPER RESPONSE MAY
THEN BE ENTERED.

IMPORTANT:

4.5.1

FOR VARIATIONS OF THE ABOVF,

SEE XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS $.2 € 3.4.

DRIVE SELECTION
THE REQUEST WILL BE:

DRIVES TO BE TESTED:
THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES

IN THE °DRIVE PRESENT' CONDITION.

THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS

TO BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE

BESRoR

RETURN.

E.G.
IMPORTANT:

b cd b d b cd b cd b

‘0502

A =

=OVRNOWNSWNN=O

viviW i
v

507

4.5.3

DRIVES TO BE TESTEP:

1.2.4.6

FOR VARIATIONS OF THE ABOVE,

SEE XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS 5.2 € 3.3.

BUS ADDRESS
THE REQUEST WILL BE:

TYPE IN BUSS ADDRESS IF NOT 177440
THE DEFAULT IS A CARRIAGE RETURN

CONTROLLER INTERRUPT VECTOR
THE REQUEST WILL BE:

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210
THE DEFAULT IS A CARRIAGE RETURN.

4.5.4

EXAMPLE OF PROGRAM DIALOGUE
THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220.
ALL OPERATOR RESPONSES ARE UNDERLINED.

CZR6JFO UNIBUSS RK6 DR-3
DRIVES TO BE TESTED: 1,3<CR>
TYPE IN BUSS ADDRESS IF NOT 177440 <CR>

CZR6JFO UNIBUS RK6 DR=3 MA gv;1 30(1046)
CZR6JF .P11
04-JAN-82 12:4

04-JAN-82

13:06

PAGE 13

SEQ 0012

539
TYPE

IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>

?ILL TEST DRIVES:

3
DRIVE 1
(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW)

4.6

PROGRAM EXAMPLE
THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE

DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.

CZR6JFO UNIBUSS RK6 DR-3

-3

wvivivaoaviaiaiwng
vV

VOOV
W

551

glLL TEST DRIVES:
1

DRIVE 0
e

DRIVE SERIAL NO. AAA
CARTRIDGE SERIAL NO. BBB

DRIVE 1
DRIVE SERIAL NO. CCC
CARTRIDGE SERIAL NO. DDD

END PASS M
gILL TEST DRIVES:
1

DRIVE 0

DRIVE 1

END PASS # 2
(ETC)
THE ABOVE ASSUMES NO E RRORS DETECTED.
THE NUMBER OF PASSES I S DETERMINED BY ACT/APT/XXDP

IMPORTANT:

FOR VARIATIONS OF THE ABOVE,

SEE XXDP, ACT/APT

CONSIDERATIONS IN SECTIONS $.2 & 3.3.

605

607
608
609
610
611
612
613
614
615
616

4.7

PAGE 14

HALTING THE PROGRAM

TO PROPERLY HALT, TYPE CONTROL-C (“C) ON THE CONSOLE.
v

IF _HEADS ARE LOADED |2 FORHATTING IS VALID,
THE PROGRAM WILL
1.

2.
5.

ECHO *C

TYPE ''CPU HALTED'
HACT THE PROGRAM

IF_HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID,

THE PROGRAM WILL:

2.
5.
‘g.
.

ECHO *C

=
TYPE 'HALT PENDING, PLEASE WAIT®'
DO THE TEST(S) THAT LOADS HEADS AND/OR FORMATS
THE INVALID CYLINDERS

TYPE 'CPU HALTED®

HALT THE PROGRAM

NOTES:

THE ABOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP
MODE (MANUAL).
IF THE PROGRAM IS RUNNING IN CHAIN/AUTO
MODE VIA XXDP,ACT,APT;
IT WILL FIRST LOAD HEADS
AND/OR FORMAT CORRECTLY,
IF REQ'D, THEN IT WILL
fxffegnxfio THE MONITOR WHERE THE NEXT PROGRAM CAN BE

THE TYPEOUTS WILL BE ''ABORT PENDING - PLEASE UAIT"
€ 'PROGRAM ABORTING''
2.

OPERATING THE 'CONTINUE® SWITCH ON THE CPU CONSOLE WILL RETURN THE
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1°ST DRIVE AGAIN.

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1

GENERAL

SRXRRRRREX

SOV
NE W

OPERATOR INTERVENTION TESTS
THESE TESTS CHECK OUT ALL THE DRIVE INTERLOCKS, FRONT PANEL

SWITCHES AND LIGHTS.

THE OPERATOR IS INSTRUCTED TO PERFORM A TEST

AND TYPE A SPACE WHEN FINISHED.

RATOR INTERVENTION TESTS CAN BE INDIVIDUALLY
BYPASSED BY TYPING A CONTROL-E <“E>. ONLY AT THE
BEGINNING OF EACH TEST, AS INSTRUCTED BY THE TYPEOUT.

SEQ 0013

lalsl

13:06

THE PROGRAM PROVIDES A METHOD OF HALTING ITSELF SUCH THAT
THE _CARTRIDGE AND/OR DRIVE IS NOT LEFT IN ON UNDETERMINED
STATE; IE: HEADS UNLOADED OR INVALID FORMAT.

258

595
596
597
598
599
600
601
602
603

04~JAN-82

S
ta
s

=3 MACY11 30(1046)
CZR6JFO UNIBUS RK6 DR
04=JAN-82 12:48
CZR6JF .P11

uuxausozxe
DR-%
MCYH 30(1046)

P11

04~JAN-B2

13:06

PAGE 15

IF_THE PROGRAM DETERMINES IT WAS LOADED UNDER

ACT, APT, OPERATOR INTERVENTIOM TESTS WILL BE

8;:85550 UNLESS THE °'LOAD © DUMP MODE' IS BEING
THEY WILL BE BYPASSED IN 'MONITOR MODE' AS OPERATOR
%g;;?'\‘gNTION MAY NOT BE FEASIBLE IN OVER-NITE

5.2

TEST DESCRIPTIONS
ARAAAAAAAAAAAARARARAAARNIARAAARAAANAAAAAAAAAAARAAARAOARAACRROERES

BASIC CONTROLLER TESTS, SIZING & SETUP

AARAARAAARAAAAAACANAANNRVAAARAAAAAAARAAAAAAAAAAAAAAACACAROAOTRORY

TEST 1

REFERENCE ALL CONTROLLER REGISTERS
THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS
CAN BE ACCESSED.
THE INABILITY
TO BE ACCESSED WILL
RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE.
ANY

ERROR IN THIS TEST WILL RESUI.T IN ABORTING ALL OTHER
TESTS AND JUMPING TO
‘END OFPASS'
TEST 2

SIZE THE BUSS
THIS TEST IS ENTERED ONLY IF °DRIVE SELECTION' IS DEFAULTED
EITHEE BY RUNNING IN THE AUTO MODE OR A 200 START IN THE
MODE.

EVERY DRIVE FROM O THRU 7 IS ADDRESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE
DRIVE WILL BE TESTED AS AN RKO6.
IF SET, THE PROGRAM WILL BYPASS

TESTING THAT DRIVE ONLY 1r THE ERROR WAS A RESULT OF
MDS, UFE OR NED BEING
SET; OR BOTH NED & DRA RESET IN-

DICATING THE OTHER PORT 1§ ACCESSED.

IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED AS
AN RKO7.
TEST 3

VERIFY OPERATOR DRIVE SELECTIONS
THIS TEST IS ENTERED ONLY IF DRIVE_S ELECTION
IS
DEFAULTED.
EVERY DRIVE FROM O TO 7 IS ADDRESSED
CONTROLLER ERROR (CERR) IS EXAMINED. IF NOT SET, THE

PROGRAM WILL ASSUME THE DRIVE IS PRESENT AS AN RKO06.

IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED
ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH
NED & DRA RESET (WRONG PORT).
IF CERR IS A RESULT OF
NED ONLY,
IT IS CHECKED AGAINT THE INPUTTED INFOR TO

VERIFY If WAS NOT SPECIFIED.

IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED

SEQ@ 0014

CZR6JFO UNIBUS RK6 DR-3 MCY;‘I 30(1046)
04=JAN-82 12:4
CZRbJF P

04~JAN-82

13:06

PAGE 16

SEQ 0015

AS AN RKO7.

707
708
TEST &

FIND NEXT DRIVE TO BE TESTED

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT
ADDRESS IN ‘DRVAD' & $TMP4 IS SET TO CDT IF DRIVE

DRIVE IS RKO7.

THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS

THE DRIVE WHOSE ADDRESS IS IN
TEST 5

"DRVAD'.

PRINT DRIVE SERIAL NUMBER
THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11

IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONLY

TEST 6

SET VV WITH PACK COMMAND

IF Vv IS RESET, THE PACK COMMAND IS USED TO SET IT.
TEST 7

UNLOAD DRIVE TO BE TESTED
THIS TEST UNLOADS THE DRIVE TO BE TESTED NEXT,
WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE.

AARAAARARRARARARA LA AAAAARAAARAAAARAAAAAAAAAARAAAAAAAAAAAAAAROES

OPERATOR INTERVENTION TESTS
AR

ARRRARARRAARAR

AN AARARAARAARAAAAAAAAARAAAAAAAAAAARAAAAC
AT S

TEST 10 INTERLOCKS TESTS

THIS TEST VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS
ARE OPERATING PROPERLY IN MESSAGE AO & THAT THE REMOVAL
OF THE CARTRIDGE CLEARS VOLUME VALID.
IT FURTHUR VERIFIES Abl. REMAINING STATUS BITS OF
MESSAGEA & B, WORDS 0 & 1.

THIS TEST ALSO CHECKS THAT THE SPINDLE CANNOT BE STARTED

WHEN THE DOOR IS OPEN OR THE CARTRIDGE IS REMOVED.
IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH

ASSERTS NON EXISTENT DRIVE IN RK(CS2
TEST 11 UNIT SELECT PLUG TEST

THIS TESY VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED

OUT, THE QUAL LOGIC RESETS ATTN & VOLUME VALID

THE DRIVE DE-SELECTS € NON EXISTENT DRIVE ASSEfiYS.

FURTHUR, THE OPERATOR IS ASKED TO INSERT ANY NUMBER OF

UNIT SECECT PLUGS. THE PROGRAM WILL RESPOND BY TYPING

THE PLUG CODE NUMBER AS SOON AS IT IS INSERTED,
THIS PORTION OF THE TEST IS TERMINATED AT ANY TIME BY A CONTROL-C

CZR6JFO UNIBUS RK6 DR-3 HACY;‘! 30(1046)
CZR6JF.P1
04=JAN-82 12:4

04~JAN-82

13:06

PAGE 17

SEQ 0016

3PP
SRS IFIIINININIISR

763

TEST 12 PORT SELECTION TESTS
THE OPERATOR IS ASKED TO SWITCH TO THE WRONG PORT

€ THEN DESELECT BOTH PORTS.
IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RK(CSZ2

TEST 13 AC LOW DETECTION

PART 1

A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED.
BATTERY RETRACT WILL BE TESTED LATER.
ACLO CANNOT BE TESTED DIRECTLY SINCE IT REQUIRES

SECTOR PULSES, I.E. HEADS LOADED.

THEREFORE THE INDICATOR CHECKED IS NON-EXISTENT
DRIVE (NED) ASSERTING IN RKCS2 AS A RESULT OF DCLO.
AFTER POWER UP, VOLUME VALID IS CHECKED TO BE CLEARED.

TEST 14 CHECK NXF LOGIC
THIS TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED
AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET.

TEST 15 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO7), TRACK 2 CAN BE READ.

THIS AREA CONTAINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE
FACTORY DURING MANF.
ALL BAD SECTOR INFOR (BSE) WILL BE STORED
AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS.

IF BSE_INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO
IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED,
A MESSAGE WILL BE TYPED INDICATING THAT ALL

FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED.
THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT

THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY.

ONONWVIS WO

i Q-{

00 00 0o 00 0o G0 Co 0o 0o

805

TEST 16 WRITE LOCK TEST
THIS TEST VERIFIES THAT DATA WRITTEN ON
A
A E _SECTOR CANNOT BE
ALTERED ONCE THE WRITE LOCK SWITCH HAS BEE N_ENABLED.
IT ALSO CHECKS THAT WRITE PROTECT TAKES EF FECT ONLY
SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRI TING
ON CVL 0 HEAD 0
1

TEST 17 AC LOW DETECTION PART 2
THIS TEST VERIFIES THAT WHEN AC POWER IS LOST,

THAT WRITING CEASES

AT SECTOR BOUNDRIES & THAT THE BATTERY RETRACT IS FUNCTIONAL.

THERE IS APPROX 4 MS BETWEEN AC LOW ASSERTING AND NED ASSERTING
WHEN THE INTERFACE SHUTS DOWN.

CZR6JFO UNIBUS RK6 DR-g
MCVH 30(1046)
CZR6JF.P11
04=JAN-8

04~JAN-82

13:06

PAGE 18

E
SEQ 0017

819
820
51
&

TEST 20 END OF PROGRAM

825
826
827
828

THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE
ABOVE TESTS FOR THE NEXT DRIVE PRESENT.
THE NEXT TEST IS ENTERED ONLY AFTER ALL DRIVES PRESENT
HAVE BEEN TESTED.

émsb

831

g‘g

DO NOT LOOP ON THIS 'TEST'.

TEST 21 MULTIPLE DRIVE DETECTION TEST

834

THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1

5332

AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT.

THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD:

839

A. HEADS MUST BE LOADED (SECTOR PULSES REQ'D)

840
841
842
843

B. THE OPERATOR IS INSTRUCTED TO INSERT THE SAME UNIT SELECT
PLUG NUMBER (1 PAIR AT A TIME) ON ANY 2 DRIVES
TO BE TESTED
C. THE OPERATOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TES

32?

846

gzg

OR A CONTROL=C TO EXIT THE TEST

THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE

BOTH SET & THAT THE DRIVE UNLOADS

ggg

THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES

822

853
ggts.

THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING
IS PERFORMED IN ANY CASE.

856
857
858
859
860

ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A
"CLEAN UP' TEST TO PUT THOSE CYLINDERS BACK TO STANDARD
FORMAT.

6.0

ERROR REPORTING

864
ggg

6.1

ERROR INTERPRETATION

863

’

867
868
869

WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL REGISTERS
AND OTHER DATA PERTAINING TO THE ERROR ARE ALSO GIVEN.
MSG A(00), MSG B(01), RKER, RKBA...ETC, INDICATE THE

3;1

ERROR.

87
874

EVERY ERROR MESSAGE CONTAINS A PC.
THIS PC INDICATES THE
POSITION IN PROGRAM WHERE THE ERROR CALL IS LOCATED.
THE

870

CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME OF

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046)
CZR6JF .P1
04=JAN-B2 12:48

04-JAN-82

13:06

PAGE 19

875
876
877
878

ERROR MESSAGE, BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE
SHORT AND MEANINGFUL.
THE USER IS ADVISED TO LOOK UP THE
PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE INFORMATION
ABOUT THE ERROR.
IN MANY INSTANCES, A SINGLE FAULT WILL

880
881
882
883

AND CAREFUL EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY
VERY HELPFUL IN PINPOINTING THE FAULT. A BRIEF EXPLANATION
OF WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT THE
BEGINNING OF EVERY TEST. ALL THE NUMBERS GIVEN WITH ERROR

879

GIVE RISE TO MORE THAN ONE ERROR REPORT.

gglso

A LITTLE DELIBERATION

MESSAGES ARE IN OCTAL.

gg_b,

NOTE

%gg

NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED.

890
gg}

6.2

ERROR PRINTOUT EXAMPLE:

893
&

DEPRESS 'RUN-STOP' SWITCH TO 'RUN' WHILE DOOR OPEN
VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD

ggg

DEPRESS SPACE BAR WHEN FINISHED

898

SPINDLE ON SET IN RKMR2

3(9)8

AFTER MANUALLY LOADING HEADS WITH DOOR OPEN

901

000010

903

KMR?2

015700

KMR3

050343

906

MESSAGE A0 ERROR

385

100000

TEST NO.

8}(1)

80
100820

915
916
g}g

050343
RKCS1

100000
RKCS2_

922
923
924
925
926

927
928
929

140301

RKCS1

040200

RKCS2_

000103

RKASOF

004000

AQ
100143

g%?

RKDS

000010E
015736

912
3}2

919

000000

AFTER MANUALLY LOADING HEADS WITH DOOR OPEN

909

040200

000103

000543

000001

001723
RKASOF
004000

000001

000000

140301

RKDC

000000

THE ABOVE EXAMPLE SHOWS EXPECTED € ACTUAL DATA FOR

MESSAGE REGISTERS AO, BO, A1 & B1.

MESSAGES A2, B2 £ B3 WILL BE TYPED OUT ONLY AS REQUIRED
IF THE CYLINDER DIFFERENCE/OFFSET, CYLINDER ADDRESS &
HEAD & SECTOR INFORMATION IS A VARIABLE PARAMETER OF
THE TEST.

[ END OF DOCUMENT ]

SEQ@ 0018

CZR6JFO UNIBUS RK6 DR-;
MCY‘H 3001046)

CZR6JF .P11

04=JAN-8

04-JAN-82

13:06

PAGE 20

SEQ 0019

331

333
934

seex PGM REV 036 ##«

936

LIST

323

sDEFINE SYSMAC MACROS

935

.NLIST

937
978

941
32
944

945
946
947

.ENABL

167400
000001

$SWR=
$TN=

CND_MC.MD

ABS,AMA

167400
1

JDEFINE SWITCHES 15,14, 13 11.10,9.8
SET FIRST TEST NO. TO

.TITLE CZR6JFO UNIBUS RK6 DR-3
:*COPYRIGHT (C) 1976,1982
*DIGITAL EQUIPMENT CORP

tMYNARD. MASS. 01754

32(1)

tPROGRM BY GARY PAPAZIAN

95
g‘

tTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
-PACKAGE (MAINDEC=11-DZQAC~-CS), JAN, 1981.

ggg

.SBTTL

957

959
960
961
962
963
964
965
%9

i
i
ok
;e
o
2%

i*
;%

968
g%

.EBTTL

971

3;;’

972
973

L2
o*

OPERATIONAL SWITCH SETTINGS

SWITCH

USE

15
14
13
12
11
10
9
8

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
ABORT DRIVE AFTER 20 ERRORS
INHIBIT ITERATICONS
BELL ON ERROR

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

SUMMARY OF STARTING LOCATIONS
200
220

240

DEFAULT PARAMETERS
INPUT PARAMETERS

opT11

CZR6JFO UNIBUS RKé DR-% ?3?:;1 30(1046) 04-JAN-82 13:06
CZR6JF.P11
04=~JAN-8
BASIC DEFINITIONS
g;

.SBTTL

SEQ 0020

BASIC DEFINITIONS

001100

983
984
985
986
987
988

000011
00001
00001
ooo;oo
177776

:*MISCELLANEOUS DEF INITIONS
HT=
11
:;CODE FOR HORIZONTAL TA8
LF=
12
::CODE FOR LINE FEED
CR=
15
::CODE FOR CARRIAGE RETURN
CRLF= zog
::CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
::PROCESSOR STATUS WORD

990
991

177774
177772

STKLMT= 172774
PIRQ= 177772

000001
00000
00000
000004
000005
000006
000007
000006

:*GENERAL PURPOSE REGISTER DEFINITIONS
=
; ;GENERAL
REGISTER
R1=
1
::GENERAL REGISTER
R2=
X2
: ;GENERAL REGISTER
R3=
13
: :GENERAL REGISTER
R&=
%
: :GENERAL REGISTER
RS=
15
+:GENERAL REGISTER
Ré=
16
: :GENERAL REGISTER
R7=
X7
+:GENERAL REGISTER
SP=
16
::STACK POINTER
PC=

2 :PROGRAM COUNTER

000000
000040
000100
000140
000200
000240
000300

PR1=
PR2=
PR3=
PR4=
PRS=
PRé=

0
40
100
140
200
%40
00

ssPRIORITY
::PRIORITY
s sPRIORITY
:sPRIORITY
ssPRIORITY
::PRIORITY
s;PRIORITY

100000
040000
020000
010000

;*''SWITCH REGISTER'* SWITCH DEF INITIONS
SWi5=
100000
SWi4=
40000
SWwi3=
20000
swi2=
10000

989
992
332

$SITSR

995
996
997
998
999
1000
1001
1002
1 003

1
1
}

978
979
980
%

1
1
1010
1011
1012
1013
1014

}8}2

1017
1018
1019
1020
1021
102%
102
1024
1025
1026
1027
1028
1029
1030
1031

PAGE 21

:#INITIAL ADDRESS OF THE STACK POINTER ##% 1100 #w#
STACK= 1100
LEQUIV EMT,ERROR
:;BASIC DEFINITION OF ERROR CALL
.EQUIV

177570
177570

000007

000340

004000
002000
001000
00
000200
000100
000040
000020
000010
000004

IOT,SCOPE

.EQUIV

PS_PSW

DSWR=
DDISP=

177570
177570

PR7=

SWil=
SWw10=
Swo9=
Swo8=
SWo7=
SWwoé=
SW05=
SWo4=
swo3=
swoe=

340

4000
2000
1000
400
200
100
40
20
10
4

::BASIC DEFINITION OF SCOPE CALL

::STACK LIMIT REGISTER
::PROGRAM INTERRUPT REQUEST REGISTER
3 ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

0
1
%

&
5
6
;sPRIORITY LEVEL 7

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046) 04=JAN-82 13:06
CZR6JF .P1
04=JAN-82 12:48
BASIC DEFINITIONS
103%
103
1034
}835

000002
000001

1087

SW01=
Sw00

SW
SW08.,

1037

1038
1039
1040
1041
104%
104
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086

PAGE 22

Swo7,gu

100000
0000
020000
010000
000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

.EQUIV

BIT01,BIT1
81700,8IT0

;*BASIC ‘'CPU'" TRAP VECTOR ADDRESSES

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060

ERRVEC=
4

000240

PIROVEC=240

TIME OUT AND OTHER ERRORS

..Q%SESYED AND ILLEGAL INSTRUCTIONS
::TRACE TRAP
: ;:BREAKPOINT TRAP (BPT)
..INPUTIOUTPUT TRAP (I0T) #+SCOPE*+
sPOWER FAIL

..fiHULATOR TRAP (EMT) *+ERROR**
‘TRAP'' TRAP
T

::TTY KEYBOARD VECTOR

.SBTTL

::TTY PRINTER VECTOR

: :PROGRAM INTERRUPT REQUEST VECTOR

RKO6 CONTROLLER REGISTER DEFINITION

SEQ@ 0021

CZR6JFO UNIBUS RK6 DR-3 Hsczg1 30(1046) 04=-JAN-82 13:06 PAGE 23
CZR6JF P11
04-JAN-82
1
RKO6 CONTROLLER REGISTER DEFINITION

000000
000002
000004
000006
000010
000012
000014
000016
000020
000024
000026
000034
000036
000030
000032

RKDS=
RKER=
RKASOF=
RKDC=
RKDB=
RKMR1=
RKMR2=
RKMR3=
RKECPS=
RKECPT=

WINLANANNININ)
b b e 2 N NNVO
NOONSONSOONSNO

$BASE=177440

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

RKCS1=
RKWC=
RKBA=
RKDA=
RKCS2=

sCONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER

¢DESIRED TRACK SECTOR REGISTER

;CONTROL AND STATUS REGISTER 2
:DRIVE STATUS REGISTER

sERROR REGISTER

:ATTENTION SUMMARY AND OFFSET REGISTER

:DESIRED CYLINDER REGISTER
:DATA BUFFER
:MAINTENANCE REGISTER 1
:MAINTENANCE REGISTER 2 (MESSAGE LINE A)

MAINTENANCE REGISTER 3 (MESSAGE LINE B)
sECC POSITION INFORMATION
sECC PATTERN INFORMATION

YUY N =

IV N =

s UNLOAD
START SPINDLE

DER
URITE HEADER AND DATA
:WRITE CHECK

e e B

—t e e —d =k =2 O QO NON O

-B

—

002000
000
010000
020000
040000
100000
100000

;DRIVE CLEAR

W VIS
NN —=O

00000
000100
000200
000400
001000

sSELECT DRIVE (GET STATUS)
sPACK ACKNOWLEDGE

000023
000025
000027
000031

SELDRV=

PACK=

000001
000003
000005
000007
000011
000013
000015
000017
000021

WNINININ)
= b —d —d YNN =

DRIVE COMMANDS

@ OODODDDODDDMDDDE®
s B B B Bt B B B Bt bt bt

1088
1089
1090
1091
109§
109
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
113%
113
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143

;G0 BIT
s INTERRUPT ENABLE

:CONTROLLER READY
:BUS ADDRESS BIT 16

:BUS ADDRESS BIT 17

s CONTROLLER DRIVE TYPE (0=RK06,1=RK07)

:CONTROLLER TIMEOUT
:CONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR)
:SERCON PARITY ERROR DETECTED BY CONTROLLER

:DRIVE INTERRUPT

:CONTROLLER ERROR
sCONTROLLER CLEAR

CONTROL AND STATUS REGISTER 2 BITS (RK(CS2:10)
000007
000010
000020
000040

sMASK FOR DRIVE SELECTION CODE

:DESELECT OR RELEASE DRIVE IN BITS 0-2
:BUS ADDRESS INCREMENT INHIBIT

:SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES

SEQ 0022

&H
vivawvwnavivivaiuniaiwna
e

000100
000200
000400

MACY11 30(1046)
04=JAN-82 13:06 PAGE 24
12:48
CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10)

IR=
=
UFE=

8179
BIT
BIT8

PGE=

BIT10

001000

MDS=

004000

NEM=

002000

010000
020000

BITY

s INPUT READY
sOUTPUT READY
sUNIT FIELD ERROR

.NLTIPLE DRIVE SELECY
PROGRAMMING ERR

BIT11

NON=-EXISTENT KMRY

BIT14
BIT15

:WRITE CHECK ERROR
:DATA LATE ERROR

NED=
UPE=

BITIZ
BIT1

.SBTTL

ERROR REGISTER BIT DEFINITION (RKER:14)

ILF=

BITO

sILLEGAL FUNCTION CODE

000004
000010
000020

NXF =
DRPAR=
FMTE=

BIT
BIT
BIT4

:NON-EXECUTABLE FUNCTION
DRIVE DETECTED SERCON PARITY ERROR
; FORMAT ERROR

000100
000200
000400
001000
002000
004000
010000
020000
040000

ECH=
BSE=
HVRC=
COE=
IDAE=
WLE=
DTE=
OPI=
UNS=

BITé
BIT?
BIT8
BITY
BIT10
BITN
BIT12
BIT13
BIT14

:ECC HARD
:BAD SECTOR ERROR
:HEADER VRC ERROR
sCYLINDER ADDRESS OVERFLOW ERROR
:INVALID DISK ADDRESS ERROR: WEAD/CYL
sWRITE LOCK ERROR
sDRIVE TIMING ERROR
sOPERATION (SEARCH) INCOMPLETE
sDRIVE UNSAFE

040000
100000

000001

000002
000040

lalal
NN

FO UNIBUS RK6 DR=3
F.PI
04~JAN-82

WCE=
DLT=

SKI=

DTYE=

BIT1

BITS

:NON-EXISTENT DRIVE
:UNIBUS PARITY ERROR

:SEEK_INCOMPLETE

:DRIVE TYPE ERROR

SEQ 0023

04=JAN-8

04=-JAN-82 13:06_ PAGE 25
ERROR REGISTER BIT DEFINITION (RKER:14)
DCK=

BIT15

.SBTTL

STATUS REGISTER BIT DEFINITION (RKDS:12)

000001

DRA=

BITO

DRIVE AVAILABLE (CWTROLLER IS SET IF

000004
000010
000020
00004
000100

OFST=

BIT

DRIVE OFFSET

DCLO=

BITé

yv=

BITé

ACLO=

DROT=
DRDY=
DDT=

WRL=

sDATA CHECK

THIS BIT IS RESET)

BIT

sAC LOW

BITS

:DRIVE OFF TRACK

BIT7
BIT8

BITN

;DC LOW

sVOLUME VALID

:DRIVE READY
:DRIVE TYPE (0=RKO06,1=RK07)

;WRITE LOCK

PIP=
DSC=
SVAL=

BIT13
BIT14
BIT15

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

MESMSK= 17
PAT=

BIT4

MSP=

BITé

DMD=

MIND=
MCLK=
MERD=
MEWD=
PCA=

BIT7
BIT8
BITY
BIT10
BITN

8171%
ECCW=_
BIT
WRTGAT= BIT14
RDGATE= BIT15

sMESSAGE MASK

sFORCE EVEN PARITY ON SERCON MESSAGE LINES

sDIAGNOSTIC MODE

sMAINTENANCE SECTOR PULSE

sMAINTENANCE INDEX
sMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA
MINTEMNCE ENCODED WRITE DATA
PRECOMPENSATION ADVANCE
PRECWENSATIW DELA

:ECC_WORD 1S BEING READ OR WRITTEN
sWRITE GATE
sREAD GATE

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A (RKMR2:34)

D.DRA=
D.Vv=

BITS
8179

DRIVE AVAILABLE
: VOLUME VALID

D.DDT=

BIT8

:DRIVE TYPE (0=RKO06,1=RK07)

D.OFF=
D.WRL=

BIT10
BIT11

OFFSET ON
:WRITE LOCK

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A (RKMR2:34)

Dl omd med d ed

b oD D ed e e

b o

nononunuNuNININNNNNNNNN
NN
NN N NININININD
= b b b o cd d e b b
NOWVSWN=O VRNV
WN=O

D e

.SBTTL

D d

PCD=

BITS

:POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
;STATUS VALID

b e

100000

D D

D e

D o

) D ) D D D b D e D D b e d
D D D e b D b b b b b
— e d D D e md D L DD ed D D D DD oD D D D D e e D D =D b

o 3 R L SRR RN 28R IR R RER 2B IIIF
A ES
NN
00 NN
NN *'

zfl
,N
o
g -

FO UNIBUS RK6 DRg
MCVH 30¢1046)

D.DRDY= BIT

D.FORM= BIT9

D.SPIN= 8171;
D.PIP= BIT1
D.DSC= BIT14
D.SSP= BIT4
D.HDHM= BITS
D.BRHM= BIT
D.DOOR= BIT
D.CART= BIT8
D.SPOK= BITY
D.FWD= BIT10

:DRIVE READY

:DRIVE FORMAT

:SPINDLE ON
:POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
sSERVO SiG PRESENT
sHEADS HOME
sBRUSHES HOME
sDOOR INTERLOCKED
s CARTRAGE INTERLOCK
s SPEED OK
+ FORWARD

SEQ 0024

CZR6JFO UNIBUS RK6 M-g
MCV‘I‘I 30(1046)

R6JF .

04=JAN-8

04-JAN-82 13:06 PAGE 26
DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A (RKMR2:34)

1228
12
12

D.REV= BIT11
D.LOAD= BIT1
D.RTZ= BITI

}%gé

.SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B (RKMR3:36)

}g 1

D.UNLD= BIT1%

:REVERSE
*HEADS LOADING
*RETURN TO ZERO

*HEADS UNLOADING

1535
1236
1237

D.IDAE= BITS
D.ACLO= BIT
D.FLT= BIT

;INVALID DISK ADDRESS ERROR:HEAD/CYL
*AC LOW
DRIVE FAULT

1239

D.PAR=

*DRIVE DETECTED SERCON PARITY ERROR

1238

D.NXF= BITS

1240
1241
1262

BIT9

D.SkI= BIT10
D.WLE= BIT11
D.SPLS=
BIT12

1243
}52'5

D.DROT= BIT13
D.UNS= BIT1%

}529

.SBTTL

*NON-EXECUTABLE FUNCTION CODE

*SEEK INCOMPLETE
*WRITE LOCK ERROR
*SPEED LOSS

onxvs OFF TRACK
*R/W UNSAFE

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B (RKMR3:36)

1248

000020

D.SECT= BIT4

;SECTOR ERROR

1250

000100

D.WGAT= BIT6

ume GATE AND NO TRANSISTIONS

1249
1251

1zs§

125
1254
1255
1256
1257
}ggg

000040
000200

601000
002000
004000
010000
020000
040000

}ggg
1262
};52

077770

;ggg

1267
1268
1269
1270
1271

000003
040000
000760
007000
100000

D.WCUR= BITS

D.HDFL= BIT?

D.MHD= BITS

D.XERR= BIT9
D.TIB= BIT10
D.PLO= BIT11
D.NMOV= 8"1%
D.LIMD= BIT1
D.SUNS= BIT1%

JWRITE CURRENT AND NO WRITE GATE
;HEAD FAULT

*MULTIPLE um SELECT

< INDEX ERR
*TRIBIT moa
*PLO ERROR
:SEEK AND NO MOTION
*LIMIT DETECT ON SEEK
*SERVO UNSAFE

.SBTTL

COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2:34)

M.DRYV=
M.SER=

7
77770

.SBTTL

COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36)

M.ID= 3
‘M.ALGN= BIT14
M.SECT= 760
M.HEAD= 7000
M.PAR= BIT1S

sDRIVE CODE, ALL BYTES
*DRIVE SERIAL #, BYTE 11

ans ID, ALL BYTES
*ALIGN SIGN, BYTE 10
.-secroa COUNT, BYTE 11
*HEAD DECODE, BYTE 11
*PARITY, MESS A/B, ALL BYTES

SEQ 0025

127
}5;‘

.SBTTL

1275

000000

} 2;3

AR,

1 79
127

1280 000174 000000
1281
mg

04~JAN-82

000176

000000

}53‘ 000200 %J‘% 010012
}%gz 000220 000137 010002
1287

PAGE 27

SEQ 0026

TRAP CATCHER

.=0

;#ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A *'.+2,HALT
+«SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

:'LOCATIW#‘CWTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

DISPREG: .WORD 0
SWREG:
_SBTTL

000240

.WORD 0
STARTING ADDRESS(ES)

Jmp
JMP

.=240

}%gg 000240 000137 055504
.

13:06

COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36)

JMP

::SOFTWARE DISPLAY REGISTER
*:SOFTWARE SWITCH REGISTER

#START ;:JUMP TO STARTING ADDRESS OF PROGRAM
PARSRT
;INPUT ALL PARAMETERS & START TESTING

0.0DT

;ENTER ODT11

},‘z,g?

.SBTTL

129%

::tttttttltttttltttttttttittttttttttttttitttttttttttttttttttti'tt

129
129%
000244
1295
000046
112239 000046 85‘68%5

1298 000052 120000
1299
000244
1300
001000

ACT11 HOOKS

*HOOKS REQUIRED BY ACT11
$SVPC=.
=46
sggg»

"WORD 120000
.=$SVPC
.=1000

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

::2)SET LOC.52 TO 120000
*: RESTORE PC
:

}%}

.SBTTL

1303

22 1 2233332338333 23 333333333233 33333 3333333333333 3333333333333333333]

1304

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1305

1306
1307
1308

1309
1310
1311

000024
000044

1312

001000
000024

1313

1318
1319
1320
1321

;;ttt*tltttttttlfitttttttittttttlttttttttttttttttt'.tttttttttttttt

.$X=.
=24

000200

000044
001000
001000

200

“:FOR APT START UP

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

22 1 22 3333333333233 333323333 333333333333 3333333333333 3333332333338333]

*INTERFACE SPEC.
001000
001000

001002
001004
001006
001010

000000
001210
000454
001130
001130

ggg 001012 000052

SAPTHD:
$SHIBTS: .WORD

SMBADR:
$TSTM:
$SPASTM:
SUNITM:

1324

1325
1326
1327

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

*SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC

g}g

1316
1317

APT PARAMETER BLOCK

:SAVE PC

.WORD
.WORD
.WORD
.WORD

O
SMAIL
300.
T
600.

L.LIST

.WORD

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
::ADDRESS OF APT MAILBOX (BITS 0-15)
;;RUN TIM OF LONGEST TEST
SIRUN TIME IW SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
**ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

SETEND-SMAIL/2

::;LENGTH MAILBOX~-E
TABLE (WORDS)

[N
T )

MACY11 30(1046)

o:.-.nm-ag 12:48

lalsl

CZR6JFO UNIBUS RK6 DR=3

CZR6JF P11

MACY11 30(1046)

%:gj wlmoc-g 12:48
1328
1i
1331

N-JM—BZ

PARAMETER BL

1335
1

1133
1%29
134

PAGE 28

~ SEQ 0027

;USE LOOP X TO OMIT SUBCLR
"MACRO LOOP
A
SCOP1

}
1

13: 06

MOV

#STACK, SP

JSR
ERROR

PC,SUBCLR
24

;RESTORE STK PTR
:CERR AFTER SCLR

.ENDM LOOP
JENDC

1?&

“THIS MACRO FILLS EXPECTED MSG AO, BO

A2, B2 & B3 WITH STANDARD

}33245.

*NOTE: A CAN BE ANY BIT COMBINATION DESIRED.

}3329

"MACRO

*BITS see A=D.DSC AFTER ATTN OR 0 Anénoéxvs CLEAR OR ANY IMPLIED SEEKS
F.EAB

1348
1349
1350
1351

MOV
CLR
MOV
MOV

#<A!D.SPIN'D.DRDY'!D.VV'D.DRA>,E.A0 :EXPECTED MSG AQ
E.80
:EXPECTED MSG BO
#<D.SPOK'D.CART'D.DOOR!D.BRHM!D,SSP> ,E.A1 ;EXPECTED A1
n.s.m
:MSG ID FOR EXPECTED MSG B1

135
1354

MOV
MOV

#2,E.B
#3.E.B

135§

CLR

*EXPECTED MSG A2

:MSG ID FOR EXPECTED MSG e;
:MSG ID FOR EXPECTED MSG B

1355

LENDM

1358

“THIS MACRO ASSUMES DRIVE MSG AO, BO, A1, B WILL ALWAYS BE TESTED

1360
1361

:USE
:

1359
}Ssgg

“USE
:

F.EAB

E.A

A,C.D,E FOR MSG AO, BO, A1, B1 ERROR NUMBERS RESP.

G=T.A2
n-r a

TO READ MSG A2 z PUT INFO INTO *CYLDIF
TO READ MSG B2 €& PUT INFO INTO °*CYLADD'
TO READ MSG B3

}3322

‘USE

F=<ERROR DESCRIPTION>

}%9

"MACRO

CHECK

A.C.D.E.F.G.M.I

JSR
.WORD

PC, CHKMSG
G'H'I

1368
1369

1370
1371
1372
1373
1374
1375
1376

.ENDM

ERROR
ERROR
ERROR
ERROR
CHECK

A
(
D
€

1377

tA=CYL ourr/orrser ERROR #

}%3

+C=<ERROR DESCRIPTION>

1378

331

1sa§

€ PUT INFO INTO *SECTOR' & "HEADA'

:CHECK MSGS A0, B0, A1, B1
8 MSGS smmeo HERE®
*MSG AO
*MSH BO
:MSG A1
*MSG B1

ERROR
F
ERROR
ERROR
ERROR

:B=CYL ADDR ERROR
#

"MACRO

(WD2

MOV

A.5.C.?D,7

#2,RKMR1(RS)

;SELECT WD 2

lalal

YLADD

I Iy BBBEBDDDD
D NANNNNW

CWD2

.MACRO

DRCLR

s;BR IF Y YES

sMSG B2 NOT CLEARED C

D e

.ENDM

:SEE_IF MSG A2=0
:BR iF YES

sMSG A2 NOT CLEARED C
B2=0
:SEE IF MSG

oMo
>

PC,GSTAT
SYLDIF

SEQ 0028

D e

;DRIVE#X

154

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

.ENDM

DRCLR

.MACRO

CALIB

d b b cd

=O VNI NS WN=O

#CCLR,RKCS1(RS)
SUNIT ,RKCS2(RS5)

#RECAL ,HCST
PC,DOCMD

b b cd o e

VOO S W

NN N PONIAI N

gfl VSN NN
=
0

e e

D e

d o

b e

e e

e e e

D e

e e

D e

d e

e e o

e e

e e e

:C.TSTATN

;D0 DRIVE CLEAR CMD & GET CONTR RDY
sNO RDY AFTER DRIVE CLEAR CMD
;TEST FOR ATTN

124

;DO RECAL CMD €& GET CONTR RDY
sRDY NOT SET AFTER RECAL CMD

#1,RKMR1 (RS)

sSELECT WORD 1

PC,GSTAT

:D.RTZ.HHRZ

214

T10,TEMP2
PC,FATT1

.ENDM

sRTZ NOT SET DURING RECAL CMD
sSETUP TIMEOUT
sFIND ATTN
sNO ATTN AFTER RECAL CMD

CALIB

* A=WRHEAD/<CFMT !WRHEAD>
* USE WRHDR

<A>,X

"MACRO

WRHDR

A.C.7D

MoV
JSR
ERROR
JSR

#<A> HCST
PC,DATCMD

BIT

TO OMIT CHECKING A0, BO, A1, B1

200

PC,GSTAT

#CERR,HCS1

;DO DATA X FOR CMD & GET CONTR RDY
sNO RDY AFTER WRITE HEADER CMD
sGET FRESH STATUS

e s

APT PARAMETER BLOCK

b e
b d
D e

lalsl

382 KERAR28ELLR og%w
VIS
WNIN)
=
28
SECECE gz

?39131 30(1046) 04~JAN-82 13:06 PAGE 29 ;

lalal
NN

FO UNIBUS RK6 DR=
F.P1
04=JAN-8

lalal
NN

¥
\h\h\hmm\h\flbbbbb&fi: &
£

FO UNIBUS RK6 DR-3 MACY11 30(1046)
04~JAN-82 13:06 PAGE 30
F.P11
04=~JAN-82 12:48
APT PARAMETER BLOCK

D
201

F.EAB

5
9

LENDC

.ENDM

0
1

;
: A=RDHEAD/<CFMT !RDHEAD>

‘s'

"MACRO

CHECK

*USE RDHDR <A>,X TO OMIT CHECKING AO, B0, A1, B1

‘

MOV

#RHTAB,RO

JSR

PC,DATCMD

MOV

ERROR

008

#<A> ,HCST
171

gcm.ucm

2
3

ERROR
TYPE

174
,MSG26

1471

1474

1476

1477
1478

JMP
MOV
MOV
MOV

TIMING
RKDB(RS),(RO)+
RKDB(RS) . (RO) +
RKDB(R3)
. (RO)+

BIT

#DLT ,RKCS2(RS)

ERROR

173

BEQ
JSR

.ENDC

E
PC,GSTAT

RDHDR

.MACRO

HDCHK3

RPHDR

RDHEAD,
X

BEQ

REN2STEIRTAR
0

d e

)

b e ek =

.ENDM

CMP

ERROR

.ENDM

:DO DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER READ HEADER CMD

:CERR AFTER READ HEADER CMD
*ABORTING DATA TESTS TO DO TIMING TESTS

:1°ST WORD FROM SILO TO RHTAB
:g'uo WORD
:3'RD WORD

:DLT AFTER READ HEADER CMD

1480

;CERR AFTER WRITE HEADER CMD

WRHDR

A.C.?D,?%E

1472
1473

SEQ 0029

215,216,217,220,<AFTER WRITE HEADER CMD>,0,0.0

RDHDR

64
1466
1467
1468

—

BEQ
ERROR

JFB ¢

b e

e e

D e

T I

0
1

RHTAB, TOCYL

:CHECK WORD 0 ONLY, CYL#

*WRONG CYL# ON HEADER

*BR IF SAME

HDCHK3

A=TOCYL/FRCYL , B=HEAD#, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR

CZR6JFO UNIBUS RK6 DR=3 MA CY11 30(1046) 04-JAN-82 13:06 PAGE 31
CZR6JF .P1
04-JAN-82 12 :48
APT PARAMETER BLOCK

.MACRO

d
d
e

A.B.C

MOV

A, CALADD

;SETUP

MOV
JSR

#C.FORMAT
PC.FHDTAB

*HEADER
:TABLE

#8,HEAD

270 FILL

HDTBL

*QUICK SEEK.

ENTER WITH CYL# IN RKDC

"MACRO

QKSEEK

MOV
JSR

#SEEK ,HCS1
PC ,DOCMD

;D0 SEEK CMD & GET CONTR READY

TS0000,TEMP1

;SETUP TIMEOUT

e o

e e e e

e e

.ENDM

SEQ 0030

HDTBL

MOV

x\h\flx\fl\h\fi\h\h\h\fl\n\n\h\h\h\h\-hU!\IOUl\IOMMMMWMWMMWMMUMWMMU‘MMU‘U’M&
o
NN
NI NI NINININ = b ad d e b e e b b
o

b ey

1496
1497

ERROR

D d e

d D

MOV

=OVBNOWVSWN—=OV0

= OV~ W

JSR
ERROR

PC,FATT2
132

BIT
BEQ

#CERR,HCS1
A

ERROR

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

b e

v
wvwneS

—

131

210

*NO RDY AFTER SEEK CMD

*FIND ATTN
*NO ATTN AFTER SEEK CMD
;CERR AFTER SEEK CMD

.ENDM

QKSEEK

sA=WRDATA/<CFMT !WRDATA>
:C=ADDR TO JMP TO ATTEMPT TO WRITE ON ANOTHER SECTOR
:D=ADDR TO JMP TO BYPASS TEST
sE: IF BLANK WILL CHECK AO, BO, A1 & B1 AT THE END OF WRITING
sE: IF NON BLANK WILL OMIT CHECKING A0 THRU B1
.MACRO

WDATA

A,C.D.E.?F,2G,7H,?]

MOV

#<A>,HCS1

ERROR
JSR

11
PC,GSTAT

JSR

BIT

PC,DATCMD

#CERR,HCS1

:DO DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER WRITE DATA CMD
*GET FRESH STATUS

:BR IF NO ERRORS

BIT

zBSE +HER

JSR

PC,TRUERR

:SEE IF BAD SECTOR FLAG
*BR IF NO

INC

SECTOR

CMP
BNE

SECTOR,#10.
F

:ELSE SEE IF SECTOR LISTED IN BSE TABLE
*RETURN HERE IF NO

sRETURN HERE IF YES

sARE 10 CONSEC. SECTORS BAD
:BR IF NO

CZR6JFO UNIBUS RK6 DR-3 HACV11 30(1046)
04~JAN-82 12:48

04-JAN°82 13:06 PAGE 32
T PARAMETER BLOCK

CIR6JF.P11

ERROR

ssg

gg‘
§55
ggg

ggg

560

Fs
G:

562

CHECK

:CERR WITH WRITE DATA CMD

22 23,53,25,<AFTER WRITE DATA CMD>,T.A2,T.82.0
MSG72

;ABORTING BALANCE OF TESTS

:BAD SECTOR NOT LISTED IN TABLE

JMP

$EOP

.14

565

sg;

CHECK

52,23,53,25,<AFTER WRITE DATA CMD>,T.A2.T.82.0

WIS

ggz

.ENDM

WDATA

*USE RDATA

<A>,X TO OMIT CKWD12

«.MACRO

RDATA

A,C,?D,?%E,?F,?G,?H

MoV
JSR

#<A> HCS1T
PC,DATCMD

:DO DATA X FOR CMD & GET CONTR RDY

JSR

PC,GSTAT

*GET FRESH STATUS

S
i S S
R
R
S
R

F.EAB

*A=RDDATA/<CFMT 'RDDATA>

e e e

SRR
NN
AT ARy

566

ERROR

:ABORTING TEST DETECTED 10 BAD SECTORS

D
:BYPASS TEST
#CCLR,RKCS1(RS) :TRY ANOTHER SECTOR
C

Eaggg

TYPE

561

JMP
MOV
JMP

SEQ 0031

ERROR

*NO RDY AFTER READ DATA CMD

BIT

#CERR,HCS1

gsse.m

;SEE IF BAD SECTOR

52“0“

;DETECTED BSE IN READ BUT NOT IN WRITE CMD.

BEQ

589

JMP

TYPE

$E0P

MSG72

;ABORTING BALANCE OF TESTS

gncx.nen

;SEE IF DATA CHECK ERROR

23?

ERROR

e, R

gSORORESELILIES

sgpj

:DATA CHECK ERROR AFTER READ CMD (ECC)

ERROR

;CERR AFTER READ DATA CMD.

F.EAB

0
34.26.56.30.<AFTER READ DATA CMD>,T.A2,T7.82,0

ggECK

.ENDC

CHECK g4.26.56.30.<AFTER READ DATA CMD>,T.A2,T7.82.0

CZR6JFO LNIUJS RK6 DR=3 MACY11 30(1046)

CZR6JF.P11

04=~JAN-82 12:48

04-JAN-82

13:06

APT PARAMETER BLOCK

PAGE 33

1608

.ENDM

161

:
.A=mrc»«/<cm'mcux>
:C=
13
9&

1609
1610
1611
161%

1614
1615

1616
1617
}g}g

SEQ 0032

RDATA

:C=1 4/135/136/13 FOR snnoa MSG USED IN °*SBOUND® ROUTINE
;USE" WR
<A>,C,X TO OMIT CKWD12

LMACRO

WRCHK

A.C.D,?E,7F

1620
1621
1622
1623
1624
1625

MOV
JSR
ERROR
JSR
BIT
BEQ

#<A> HCST
PC,DATCMD
15
PC,GSTAT
#CERR,HCS1
F
guce,ncsz

:SEE IF WRITE CHECK ERROR

1628
1629

MOV
ERROR

RKDB(RS) ,WD1
C

;ACTUAL WORD FOR PRINTOUT
*WCE AFTER WRITE CMD

ERROR
F.EAB
CHECK

22
:CERR AFTER WRITE CHECK CMD
0
57 31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.82.0

JMP

euoav

e
F.EAB
CHECK

D
0
57.31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.82.0

JENDM

WRCHK

}259

1632
1633
1634

1635

TYPE

1636

1637

VRNOWVSWN=O
VRNV WN=OO

1638

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

}

S S I SR XN S

163
1
}

5672

:DO DATA X FOR CMD & GET CONTR RDY
*NO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

;ABORTING BALANCE OF TESTS

MCRO TO TEST THAT WRITE CHECK OCCURRED AT SECTOR BOUNDRY

;AB=134, 13

FOR WRITE PROTECT SH TEST

:A88=136.137 FOR AC LOW TEST
:C=JUMP ADDR TO REPEAT TEST

\MACRO

SBOUND

A,B,C,?D,?E,?F,?G,7H,?1,2J,7K

JSR

PC,SUBCLR

sCERR AFTER SCLR

TST
BEQ

$TMP2
K

SEE IF TRK/SECTOR 0
PEAT ,NO nsu
DATA XF R TOOK PLACE

BIT

#81T0,$TMP1

Bngv

gDATM RKBA(RS) :WRITING

ERROR

CMP

BEQ
BNE

$TMP2,#1023

K
D

SEE IF TRK

:REPEAT ,NO 0L6 DATA TO CHECK AGAINST
:BR IF WRITING 1°S WHEN WLE OCCURRED

0°'S:WLE SECTOR SHOULD HAVE ALL 1°S

JMP

MOV

#DATAQ, RKBA (RS) sWRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0°'S

BIS
MOV
MOV
MOV

b e

e e e

D e

OO
NNORRRR ;-h-l;-.-l-l—l-._.d_.-._.-.
oo
>
O
SNV ATAI%E
WVWONO
NS WN=O SSIKIRES S888IRER 28 $REEEEEESE SBIS SWNN=00 28

cMP

$STMP2, #400

BNE
MOV

F
#21. ,RKDA(RS)

BNE

B8R
CMP

sELSE SECTOR BEFORE WRL IS TRK 0, SEC 21

H
$TMP2, #1000

sSEE IF WRL AT TRK 2,SECTOR 0
:BR_IF NO
sELSE SECTOR BEFORE WRL IS TRK 1, SEC 21

#4625 ,RKDA(RS)

DEC
MOV

STMP2
$TMP2 ,RKDA (RS)

;GET SECTOR BEFORE WRL

MOV
BIT

RKDA (RS) , STMP3
#8170,$THP1

MOV

lDATA1 ,RKBA(RS) sWRITING 1°S:WLE SECTOR =1 SHOULD HAVE ALL 1°'S

MOV

@RKBA(RS) ,uog

BIS

MOV
MOV

WRCHK

.ENDM

EXPECTED WORD FOR TRUERR TYPEOUT

gSExlFNBRL AT TRK 1, SECTOR 0

MOV

BNE
MOV
BR

TOCYL axoc(n )
WRTCHK,A,X

B8R

g RKCS2 (RS)
#-2 § RKWC (RS)
srnp fion(RS) sREFRESH RKDA

MOV
WRCHK
NOP
NOP

— e

)

D —d —d

NNNNNNNNNN

:FOR ERROR PRINTOUT

I
:BR IF WRITING 1°'S WHEN WLE OCCURRED
#DATAQ,RKBA(RS) :WRITING 0°S:WLE SECTOR -1 SHOULD WAVE ALL 0°S
J

1,RKCS2(RS)

5-256 RKWC (RS)
TOCYL ,RKDC

WRTCHK,B,X

(RS)

sEXPECTED WORD FOR TRUERR TYPEOUT

SBOUND

*QUICK START SPINDLE
"MACRO

OKSRT

JSR

PC,SUBCLR

sCERR AFTER SCLR

BIT
BNE
TYPE

#D.SPIN,HMR2
£
,MSG29

3551" ESINDLE ALREADY ON

MOV

#SRTSPL ,HCS1

MOV

7100, TEMP2

ERROR

JSR
ERROR

PC,DOCMD
145

:PLEASE WAIT, HEADS BEING LOADED

;D0 START SPINDLE CMD €& GET CONTR RDY
sCONTR RDY NOT SET AFTER CMD

SEQ 0033

T PARAMETER BLOCK

%Czal 30¢1046) Olo-JAN-BZ 13:06 PAGE 34

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P1
04=JAN-8

CLR
QKSRT

UNLD

:FIND ATTN

144

*NO ATTN AFTER CMD

*ROUTINE TO ISSUE PACK COMMAND
"MACRO OKPACK

g'x‘g

:o.vv,nnaz

ERROR

.ENDM

QKPACK

ERROR

Moo

#CCLR,RKCS1(R 5
SUNIT.RKCS2(R 5 :DRIVE #
#PACK
. HCS1
PC,DOCMD
;D0 PACK CMD & GET CONTR RDY

32
33
34

MOV
MOV
MOV
JSR

116

*CONTR NOT RDY

;VOLUME VALID NOT SET AFTER PACK CMD

*QUICK UNLOAD
"MACRO

QKUNLD
JSR

PC,SUBCLR

;CERR AFTER SCLR

MOV
JSR

#UNLOAD
, HCS1
PC,DOCMD

;DO UNLOAD CMD & GET CONTR READY

ERROR

d e e
b e e e e
— e

PC FATT1

LENDM

ERROR
JSR
ERROR

QKUNLD

NLIST

17
PC,TSTATN
20

*NO RDY AFTER UNLD CMD

:NO ATTN AFTER UNLOAD CMD

NGO

.
LENDM

D cd e

D e e

d e

D d e

d D e

D e

d D e e

D e e

D D e

D e e

D h

aNNVNNNNNNNVNNNNNN\JNNNNVNNNNNNNNNNNNNNNNNNN
\
VI WV
B BB BB
A SOOVOM&WN-‘OOQNOM&WN-‘OO&
EVBVERRUNIS

JSR

ERROR

SEQ 0034

lalal

JAN-82 13:06 PAGE 35l

FO UNIBUS RK6 DR=3 MACY11 30(1046)
04F.P11
04=JAN-82 12:48
APT PARAMETER BLOCK

04=JAN-8

1763

.SBTTL

1764
1765
1766
1767
1768
1769
1770
1771

001100
001100

1773
1776

00110
001104

SIRRARRRAAAARAAAAAAAAARA
TR RAAAAAANAAAAAAAAANAAAAAAAAA AR AR
ERS

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
:%USED IN THE PROGRAM.

000000

001126

001140
001142
001144
001146
001150
001152
001154

1798

001159

001136

001155

00115
001160
001162
001164
001166
001170
001172
001174
001176
001200
001204
001205
001206

STSTNM:
SERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX :
SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000
000000

0011§g

1790
1791
179%
1793
1794
1795
1796

1799
1800
1801
180;
1803
1804
1805
1809
1807
1808
1809
1810
1811
181;
181
1814
1815
1816
1817
1818

000

000000
000000
000000
000
001
000000
000000
000000

=1100

SCMTAG:

000000

001106
001110
001112
001114
001115
001116
001120
001122
0011
001132
001134
001135

1797

001100

000000

000000
000000
000
000

SAUTOB: .
$SINTAG:

000000

177570
177570
177560
177562
177564
177556
000

SWR:
DISPLAY:
$TKS:

s;CONTAINS THE TEST NUMBER
s ;CONTAINS ERROR FLAG
ssCONTAINS SUBTEST ITERATION COUNT
s ;CONTAINS SCOPE LOOP ADDRESS
s ;CONTAINS SCOPE RETURN FOR _ERRORS
s sCONTAINS TOTAL ERRORS DETECTED
s sCONTAINS ITEM CCNTROL BYTE
s ;CONTAINS MAX. ERRORS PER TEST
s sCONTAINS PC OF LAST ERROR INSTRUCTION
s ;CONTAINS ADDRESS OF °*GOOD® DATA
s CONTAINS ADDRESS OF 'BAD' DATA
:;CONTAINS 'GOOD' DATA
s ;CONTAINS °BAD' DATA
s ;RESERVED=-=NOT TO BE USED
ssAUTOMATIC MODE INDICATOR
s s INTERRUPT MODE INDICATOR

002

000377

NUMBER OF ITERATIONS
ERROR ADDRESS

<15>

$SLF:

<12>

P aRAR AR AR AR A AAAAAAAR AR AN RN ANANRARAAANRRARANRARRNAGAAARARANRNNSY

APT MAILBOX-ETABLE

P IRRRRR R AR AN AARAAAAN AN

" EVEN

000000

22TTY PRINTER STATUS REG. ADDRESS
2:TTY PRINTER BUFFER REG. ADDRESS
2 sCONTAINS NULL CHARACTER FOR FILLS
ssCONTAINS # OF FILLER CHARACTERS REQUIRED
::}NSERT FILL CHARS. .A.FTER A "LINE FEED'’
;s"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

<207><377><377>
/?/

“SBTTL
001210
001210

s ;ADDRESS OF SWITCH REGISTER
2 ;ADDRESS OF DISPLAY REGISTER

2:TTY KBD STATUS
2:TTY KBD BUFFER

012

000
000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

s;START OF COMMON TAGS

00110§

1785
1786
1787
1788

1789

COMMON TAGS

OO0 O00O0O0O0O0O—-O0O0O0O0OO0O

1784

SEQ 0035

1775
1776
1777
1778
1779
1780
1781
178%
1783

OCOO0O0O0O0O—=NO

1777§

$MA IL:
$MSGTY: .WORD

AMSGTY

R AR ANANANR AN RRARAAANARRARANRAARARSY

::APT MAILBOX

::MESSAGE TYPE CODE

I~~~

CZR6JF .P1

PAGE 36

lala)

CZR6JFO UNIBUS RKé bfl-g ?SCZP 30(1046) CN-JM;:ES 13:06

MCVH 30(1046)

E%Rfif .P.i"luw 04-3"0-g
1819
1820
1821

001212
001214
001216

1g4

0012264

000000
000000
000000

1&; 881 2g 000900
182
152 000000
1825

001226

1826 0012
1827 0012
1828 001231
1829
1830
1831

001232
001234
001236

1832
1833
1834
1835
1836
1837
1838 001240
1839 001241

}gzg
1842
1843
1844

000000

000
000

000000
000000
000000

000
000

N-JM-O?

13:06_

T MAILBOX-ETABLE

PAGE 37

001242

1853

001255

1855
1856
1857

001260
001262
001264

SEQ 0036

SFATAL: .WORD
STESTN: .WORD
$PASS:
.WORD

AFATAL
ATESTN
APASS

;:FATAL ERROR NUMBER
T NUMBER
::PASS COUNT

.WORD

AMSGAD

::MESSAGE ADDRESS

AENV
AENVM

::APT ENVIRONMENT TABLE
::ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS

AMAMS1
AMTYP1

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 mcessoa
BIT B8=MEMORY MANAGEMENT
;:HIGH ADDRESS.M.S. BYTE
::MEM. TYPE,BLKA

SDEVCT: .WORD
IT:
.WORD
$MSGLG:

.WORD

SETABLE:
SENV:
.BYTE
SENVM: .BYTE

$SWREG:
SUSWR:
$CPUOP:

.WORD
.WORD
.WORD

i
e
1T
1T
i
Cx
:
$MAMS1: _BYTE
SMTYP1: .BYTE

ADEVCT
AUNIT

AMSGLG

ASWREG
AUSWR
ACPUOP

.'t

1845

e
‘

..oevxce COUNT
::1/0 UNIT NUMBER

::MESSAGE LE

::APT suucu REGISTER
::USER SWITCHES
::CPU TYPE,OPTIONS

MEM. TYPE evfs - (uu;u BYTE)
soo nsec awoben-ooz
500 NSEC M0S=003

000000

$MADR1: .WORD

AMADR1

000
000
1848 001246 000000
1849 001250
000
1850 001251
000
1851 001252 000000
1852 001254
000

$MAMS2: .BYTE
SMTYP2: .BYTE
msai: .WORD
: .BYTE
SMTYP3: .BYTE
SMADR3: .WORD
SMAMSS: .BYTE

AMAMS2 ..uxeu ADDRESS ,M.S. BYTE
AMTYP? ::MEM.TYPE,BLKA2
AMADR?
::MEM.LAST ADDRESS,BLKA2
AMAMS ..uxeu ADDRESS M. S.BYTE
AMTYP3 ::MEM.TYPE ,BLKA3
AMADR3
::MEM.LAST ADDRESS,BLKA3
AMAMSS ..msn ADDRESS M. S.BYTE

185¢

SMADRG:

.WORD

AMADRG

SDEVM:

.WORD

.WORD
.WORD
.WORD
.WORD

ACDW2
ADD
ADDW1
ADDW2

::CONTROLLER DESCRIPTION WORDA?2
::DEVICE DESCRIPTOR WORDA0
;:DEVICE DESCRIPTOR WORDA1
::DEVICE DESCRIPTOR WORD#

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

.WORD

ADDWS

;:;DEVICE DESCRIPTOR WORDA'S

1846 001244
1847 001245

1858

1859
1860
1861
1ao§
1863

001256

001266

001270

000000
000000
177440
000000

000000

000000
000000
m

SMTYP4: .BYTE

AVECT1
AVECT2
ABASE

SCOW1:

ACDW]

001302
001304

000000
000000

1867
1868
1869
1870
1871
wrg

001310
001312
001314
001316
001320
001322

000000
000000
000000
000000
000000
000000

oug:
$DDW7:
$SDDW8:
$DDWY:
$DDW10:
$ODW11:

1874

001326

000000

1866 oouos 000000

187

001354 000000

AMTYP4

SVECT1: .WORD
SVECT2: .WORD
SE: .WORD
sco%:
$ODWO:
$DDW1:
sooug:
$DDW3:
$DDWs:

1864
1865

001272
001274
001276
001

000

000000

$DDWS:

.WORD

.WORD
.WORD

$DDW12: .WORD

$ODW13: .WORD

ADEVM

ADDW3
ADDWe
ADD
ADDW7
ADD

;;HIGH ADDRESS.BL

::MEM.TYPE,BLK#%

: -MEM.LAST ADDRESS.BLK#

::INTERRUPT VECTOR#1,BUS PRIORITY#1
::INTERRUPT VECTOR#28US PRIORITYA2
..BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP

- -CONTROLLER DESCRIPTION WORDA1

;::DEVICE DESCRIPTOR WORDA
::DEVICE DESCRIPTOR WORDA%

ADDW10
ADDW11

::DEVICE
;:DEVICE
::DEVICE
::DEVICE
::DEVICE
;:DEVICE

ADDW13

;;DEVICE DESCRIPTOR WORDA1

ADDW12

MEM.LASTmfi-3 anes THIS WORD AND LOW OF °‘‘TYPE'* ABOVE

DESCRIPTOR WOR
DESCRIPTOR WORDA
DESCRIPTOR uoam
DESCRIPTOR WOR
DESCRIPTOR WORDA10
DESCRIPTOR WORD#11

;:DEVICE DESCRIPTOR WORDA1

="}

DR=

alal

S RK6

R6JFO

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046) N-JM-OZ 13: 06 PAGE 38
000000
000000

T MAILBOX-ETABL

$DDW14: +WORD

$DDW15: +WORD

ADDW14
ADDW15

SEQ 0037

;:DEVICE DESCRIPTOR WORDA14
;:DEVICE DESCRIPTOR WORD#15

SETEND:
ABASE
=
RKVEC:
RKPRI:

177“0

sDEFAULT BUSS ADDRESS

ggf&ll.; CONTROLLER INTERRUPT VECTOR

IORITY

:P-CLOCK STATUS REG
:P=CLOCK SET BUFFER

:P=-CLOCK READ BUFFER

sL=CLOCK STATUS REG.

177440

nNO

28 888888

FRERG

=
by

ok
gg

sL=CLOCK INTERRUPT VECTOR
sP=CLOCK INTERRUPT VECTOR.

sMEMORY PARITY VECTOR
sMEMORY PARITY OPTION CSR START ADDR
001354

sPC FOR MEMORY PARITY ERROR TRAP

:1 FOR 220 START, NO DEFAULT

FTITLE:

sFLAG FOR PRINTING OUT 1ST PROGRAM TITLE

DRVPTR:

sCONTAINS THE

CALDIF:
CYLDIF:
CYLADD:
CALADD:

sFROM CYLINDER
:TO CYLINDER

sCURRENT CYL, USED IN N SQUARE TEST

:PREV CYL.,

:CYL DIFF, RIGHT JUSTIFIED FROM RKMR3
sCYL ADDR, RIGHT JUSTIFIED FROM RKMR3
:CYL ADDR'USED IN FHDTAB ROUTINE

;60 FOR

O0000C
VW=
<

60 CPS

:50 FOR 50
- :LOADED TO

o OR 60 TO COUNT TO 1 SEC

;0R ANY (c)&H’E‘ E'RQHER TO COUNT OFF FRACTIONAL SECOND

sFLAG TO INDICATE TIME IS UP

:SE
COUNT
:PREVIOUS SECTOR
:EXPECTED SECTOR

:SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3

sTIMEOUT CONSTANTS

88 2°

RRRRA
NN
BRRR
N

8388
88888
o el ed
= e} e e =

1434

USED IN N SQUARE TEST

:CALC CYL DIFF USED IN N SQUARE TEST

HZ:

sSPACE BAR

OO0 O0O0O0O0ON

SPBAR=
FRCYL:
TOCYL:
CCyL:
PCYL:

POINTER TO THE DRIVE FLAG

: (DRIVO-DRIV?) OF THE DRIVE TO BE CHECKED NEXT.

b e

emd reh et

001356
001360

md
=

§§AP

000

-.-osd-n-.d-.d-ad-.dd-ad-l-l-.-a-.-.—l-b-b—l—l-l-.-A—l-l-.-l-a—l-n-h—l-l-l—b-a—h-._o-o_n-.—l—l-l—.—.
0000000000
N

5:‘::‘}.23.5§§§§§§§§é§§§§§§§§§§§§§§§§§§§§§§§w§§

1875

04-JAN-82 12:4 8

CZR6JF .P11

sACTUAL HEADER/DATA WORD

R6JFO UNIBUS RK6 DR=3

laln
NN

R6JF P11

MACY11 30(1046)

ol.-m-sg 12:48

04=JAN-82

13:06

APT MAILBOX-ETABLE
0

PAGE 39

SEQ 0038

}g 1

001436

000000

w2:

001440

000000

OFFERR: 0

:SET WHEN WRITE CHECK ERROR ON OFFSET

1935
1936
1937

001442
001444

000000
000000

HEAD:
HEADA:

0
0

;HEAD NUMBER
*HEAD # FROM W.B3,

1940
}&1

001452
001454

000000
000000

FMT1:
WDCNT:

0O
0

*SHIFTED FORMAT FOR FORMATTER ROUTINE
*WORD COUNT

1945
194.9
}3’;,,

001462
001464
001466

177777
133467
070627

DATA1:
DPAT1:
DPAT2:

177777
133467
70627

SALL 1°S

1949

001470

000000

WORD:

195;
1953
1956
1955

001474
001476
001500
001502

000000
000000
000000
000000

BSERR:
0
LIMERR: 0
MDSERR: 0
BYPCERR:0

:CANNOT READ BSE INFO WHEN SET
SLIMIT DETECT ERROR FLAG
*MULT DRIVE SEL ERROR FLAG
*SET T0 1 TO BYPASS CKCERR IN °"GSTAT1'

1958
1959
1960

001506
001712
002116

000102
000102
000102

HDTAB:
RHTAB:
SRTTAB:

.BLKW 66.
.BLKW 66.
.BLKW 66.

;CALCULATED HEADER WORD TABLE
*FILLED AFTER READ HEADER CMD
*ABOVE RHTAB SORTED STARTING FORM

:22
SECTOR SOF TWARE BSE INFO.
*FILLED AFTER READ DATA CMD

1938 001446 000000
1939 001450 000000

HD1:
3
FORMAT :

194.§ 001456
1944 001460 ouscgscgcg

DATAO: 0
DATAO1 : s;s;s

}355?

}ggg

1961

001472

001504

000000

HDWD:

000000

CHKFLG: 0

;EXPECTED DATA WORD

RT. JUSTIFIED

*SHIFTED HEAD# FOR FORMATTER ROUTINE
*FORMAT TYPE

;ALL 0°S
20101 PATT

;HEADER/DATA WORD
*HEADER WORD FROM RKDB

*WORDS TO BE TESTED

*SECTOR 0 BY SORT ROUTINE

mg 002322 000400
1963
}%

003322
004322

000400
000400

BSE22H: .BLKW 256.
BSE22S:
RDTAB:

.BLKW 256.
.BLKW 256.

1966

005322

000000

UNLD:

005324

000000

BADHDR: 0

*SET TO 0 IF FORMATTING OK

005326

000000

HPEND:

*SET TO O IF HALT NOT PENDING
*SET TO 1 IF HALT PENDING

1967
1968
1969
1970

}3;1

:SET T0 0 IF HEADS ARE LOADED

*SET TO 1 IF HEADS UNLOADED
*SET TO 1 IF FORMATTING ALTERED

THE ABOVE 3 FLAGS ARE USED

1974

*BY "STOP' ROUTINE TO

}3;5

“THE CPU TO A VALID HALT.

197

1978 005330
1979
1980
}381

5§ SECTOR HARDWARE BSE INFO.

005333
005336

001

010
100

oog
02

004 ATTN:
040

.BYTE 1,2.4,10,20,40,100,200
.EVEN

:ATN 0-7 RESP.

195
}3315

:THE
FOLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS
:THEY ARE LOADED AFTER RDY IS REC'D FROM WRDY ROUTINE.

1986

‘

HCS1:
HCS2:

*HOLD RKWC

HBA:
HDA:

HER:
HASOF:
MDC:

0
0
8

HMR1:

HMR3:
HPOS:
HPAT:

O
O
0

TEMP1:
TEMP2:
TEMP3:
TEMPSG:
TEMPS:

0
0
0
0O
0

HDB:

HMR?2 :

SEQ 0039
JHOLD RKCS1
*HOLD RKCS2

HWC:
HDS:

;TEMPORARY STORAGE.

;THE FOLLOWING ARE HOLDING REGISTERS FOR MSGA(0-3) & MSGB(0-3).

ONOWVISWN=O

SSSSSISSS

MACY11 30(1046) 04-JAN-32 13:06_ PAGE 40
APT MAILBOX-ETABLE
12:48

b e

H.A0:
H.B0:
H.A1:
H.B1:
H.A2:
H.B2:
H.A3:
H.B3:

2019

O
0
0
0
0
0
0
0

:THE FOLLOWING ARE "EXPECTED' REGISTER FOR THE ABOVE.

E.A0:
E.BO:
E.A1:
E.B1:
E.A2:
E.Bg:
E.A3:
5.83:

O
O
0
0
0
0
0
0

:THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED.

000001
000002
000004

t.A2-81T0

;TEST MSG A2 IF SET

T.B2=BIT1
T.83=BIT2

:ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE.
005450
005452

000000
000000

DDUMP:

DDPCH:

;FLAG = SET WHEN IN DDP DUMP MODE

*FLAG = SET WHEN IN DDP CHAIN MODE

04=J

LELEEE $883328883888

‘fl

0 UNIBUS RK6 DR=

ACT11:

SEQ 0040
sFLAG = SET WHEN IN ACT11 MODE OF OPERATION

PPTP:

sFLAG = SET WHEN PROGRAM LOADED BY PAPER TAPE

DRIVS:

sCONTAINS THE NUMBER OF DRIVES PRESENT

&~
o

-88
Vi v N£3
&»H &~
85
8¢
5588
v
S8
R

vivn

N
v
Vi
O 0o [& v vy

sTHE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE
s1S PRESENT AND IS TO BE TESTED.
DRIVO
DRIV]
DRIV
DRIV
DRIV4
DRIV
DRIV
DRIV
LCLKF:

PCLKF:

0
0

DOTIM:
0
SIZFLG: 0

;FLAG SET T? 1 WHEN DRIVE 0 PRESENT
:FOR DRIVE
sFOR DRIVE i
:FOR DRIVE
sFOR DRIVE 4
sFOR DRIVE 5
sFOR DRIVE 9
;FOR DRIVE
sL=CLOCK FLAG PRESENT FLAG

sP=CLOCK FLAG PRESENT FLAG

sSET IF EITHER CLOCK PRESENT FOR TIMING TESTS.
sSET IF DEFAULT DO SIZING IN TEST 1

~NN

04~JAN-82 13:06 PAGE 41
APT MAILBOX-ETABLE

oOom

S
888

Y
hy

—

(alal
~N~N

1 3001046)

12:48

ERROR POINTER TABLE
.SBTTL

FEREERERELEEE

C
SEQ 0041

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

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER
F

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

**NOTE1:
S«NOTE2:

005512

PAGE 42

ERROR POINTER TABLE

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERR
EACH ITEM IN THE TABLE CONTAINS & POINTERS sxmmeo AS FOLLOWS:

i
i
i
o

S oo oo o coocooooo00
BN
N AN SO OB IR AR SS

13:06

044456
051007
054126
054550

005522
005524
005526
005530

044675
051007
054126
054550

005532

044716

:ERROR 1

:ERROR 2

;ERROR 3

051007
054126
054550

005542 044737
005544

051007

005546
005550

054126
054550

005552
005554
005556
5560

000000
000000
000000
000000

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

EM2
DH1
DT1
DF1

:DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2

EMS
DH1
DT1
DF1

:DETECTED MDS

EM6

:DETECTED UFE

DH1
DT1
DF1

po—-— 7
DH1

DT1

005566 osuge

DT1

051007

005570

054550

005572 045156

005574 051007
054126
054550

DETECTED DRA & NED RESET (WRONG PORT SELECTED?)
:

0
0
0

- 6sn9

005564

;ERROR §

005562 045102

005576
5

:;POINTS
::POINTS
::POINTS
::POINTS

$ERRTB:

005512
005514
005516
005520

005534
005536
005540

"
DH
DT
DF

DH1

’

DR NOT PRESENT BUT SPECIFIED BY OPERATOR

DF1

e 7emo
DH1

DT1
DF1

)

ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER
’

ot in

lalal

04~JAN-82

UNIBUS RK6 DR-g MACY11 30(1046)

;ERR 1

SEQ 0042

;DRA © NED BOTH SET

:NO _RDY
sAFTER WRITE DATA CMD

;CERR SET

:NO _RDY
sAFTER READ DATA CMD

;ERR 14

;ERR 15

;CERR SET

:NO _RDY

&S
o

(v}

sAFTER WRITE CHECK CMD
[=]

ERROR POINTER TABLE

bw—oogwgugug-Souvouaw-oomNOmam-acogwgurwasgawo\naw

b—

12:48

;ERROR 10

—3

N NN NN

NNNNN

O O ONOVON O~ O\ ON O VAN P AN DA VAN IS 25 25 25 25 5 2 2 25 2 o o A ¥ Yl N N N N N A PO NG

LSLSTNTNTNT NI NTUNTNLNTNTNTNRTNTNT ST ST ST NN ST RSSO NT ST NS TSTNLSTNTNLSTNT ST NN NTNTNTNTNTNNT NTNT ST NTNT ST NN

MACY11 30(1046) 04-JAN-82 13:06 PAGE 43

;ERR 16

sWRITE CHECK ERROR SET
sAFTER WRITE CHECK CMD

:CONTR NOT RDY

sAFTER UNLD CMD

005700

054654

005702
005704
005706
005710

045343
051604
054126
054654

005712

050707

005716
005720

0541%6
054654

:NC ATTN

;ERR 21

sDATA CHECK ERROR
sAFTER READ DATA CMD

sCERR SET

sAFTER WRITE CHECK CMD

005730

054654

lalal
NN

CZR6JFO UNIBUS RK6 DR=
04=JAN-8

CZR6JF .P1

04=JAN-82 12:48

175

13:06

ERROR POINTER TAELC

732

PAGE &4

SEQ 0043

sMSG B0 ERROR
;AFTER WRITE DATA CMD

Y'Y -

RN LSLSUSTNN TN TSN SIS TS TNTN N NN NN N TN TN
~
§8°°
W= 883%R SR28283RTRRRET2BIY

§17

04=JAN-82

v
w
v
&H

;MSG B1 ERROR

OOO?
[={=l=]
viwnwn
v

sCERR SET
sAFTER SCLR

sAFTER READ DATA CMD

sVOL VALID NOT SET

sAFTER PACK CMD

sMSG _B1 _ERROR
sAFTER READ DATA CMD.

;MSG BO ERROR
sAFTER WRITE CHECK CMD

;MSG B1 ERROR

:VV_NOT CLEARED
sAFTER PACK RE-INSERTED

2227

006042
006044

050545

2230

006050

054550

325‘9, 006046 054126

JERR 34

sNO DRIVES FOUND IN DEVICE MAP

(alal
Lo V]

CIR6JFO UNIBUS RK6 DR=3 MACY11 30(1046)

CZR6JFO UNIBUS RK6 DR=3
CZIR6JF.P11
04=JAN-82

3231
232

006052

845471

006056
006060

054304
055010

006062
006064
006066
006070

045533
051213
054
055010

006072
006074
006076
006100

045554
os1§13
054304
055010

006102
006104
006106
006110

050176
052074
054126
0546564

006112
006114

045365
051604

2255
2256
2257
2258
5523

006116

054126

006122
006124

045412
051604

2261
2262

006126
006130

054126
054654

2265
2266
2267

006134
006136
006140

051604
054126
054654

23
2235
5259
237
2238
2239
240
241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
ggg{.

006054

006120

MACY11 30(1046) 04=JAN-82 13:06 PAGE 45
12:48
ERROR POINTER TABLE

;ERR 35

51513

054654

EM17

DHS

;ERR 36

:ERR 37

:ERR 40

;ERR 41

DT13
DF21

2275
2276
2%;8

006154
006156
006160

os1§&
054
055010

279

006162

045512

2280

006164

05154.1

5231 006196 054304
zag

006170

055010

2285

006174

052074

5534 006172 050246
2286

006176

054126

*AFTER AC SW OFF

;MSG A1 ERROR
SAFTER OFFSET CMD

EM71
DH27
DT1
DF10

;DETECTED 10 BAD SECTORS
JAFTER WRITE DATA CMD

EM14
DH18

:WRONG ATTN
*AFTER UNLOAD CMD

‘
|
|
|
|

;
i
.

DT1

:ERR 42

DF10
EM15
DH18

DT1
DF10

i EM22
DH8

8% 006152 045471

€2
Z

;MSG A0 ERROR

EM20
DH
DT13
DF2

5%23
006142 045617
2270 006144 051241
054126
054654

SEQ 0044

;MSG A1 ERROR

006146
006150

EM19
DHS
DT13
DF21

%%gz 006132 045444

2271
zz;;

EM16

DH18
DT1
DF10

DT1
DF10

SEAR 45 2
iy

DH8
DT13
DF21

EM18
DH8

2DRDY NOT CLEARED

DSC NOT SET

DOOR NOT CLEARED

*AFTER DRIVE UNLOADED & DOOR OPENED

MSG A0 ERROR
:MSG BO ERROR

DT13
DF21

b EM7
DH2
DT1

BSE ERROR IN WRITE CMD NOT ON BSE TABLE

*AFTER WRITE DATA CMD

|
i
|

‘

.‘
|

CZR6JF

*maus RK6 oa;g MACY11 30(1046)

CZR6JF .P1

2 gz

04=-JAN-82

006200

054654

8503 S

89
1

S
299

229

006212
14

541 8
545

EM73
DH1

DF20

045533

&
SEQ 0045

sDETECTED BSE IN READ BUT NOT IN WRITE CMD.

pT1

006232

ERR 1 DF1

054240

2305

2304

:ERR 50

EM93
DH2S

2302
2303

PAGE 46

DF10

050744
052021

045471
052074
054304
055010

13:06

ERROR POINTER TABLE

51007

006222
006224
006226
006230

301

12:48

04=-JAN-82

DT
:ERR 52

:ERR 53

EM17

JWRONG CYL# IN HEADER WORD
JAFTER SEEK CMD

sMSG A0 ERROR

DH27

JAFTER WRITE DATA CMD

EM19

:MSG A1 ERROR

DT13
DF21

CZR6JFO UNIBUS RK6 DR=3
CIROJF P11
04=d

MACY11 30(1046) 04=JAN-82 13:06 PAGE 47
12:48
ERROR POINTER TABLE

052074
¢ fi% 03230¢
40

035010

10
1
12
15

62
4%
6
006350

045471
052044
054
055010

315
16

006252
56

04533
051560

006262
006264
006266
006370

045533
052044
034304
055010

5355
2329
25er
5358

006272
006274
006276
006300

045471
052303
054304
055010

5350
5331
5332
5335

006302
006304
006306
006310

045533
052303
054304
055010

314

317
318
319
5320
5351
2302
5358

5354

5359
2334

006256
80

054126
034654

5335 006312 050007

533
5337
5338
5339
53,0
2341
5362
2343

:ERR 54

:ERROR

:ERR 56

:ERR 57
:ERR 60
:ERR 61

DF27

EM17
DH2
DT
pF21

:MSG A0 ERROR
AFTER READ DATA CMD

EM1
DH1

:NO ATTN
AFTER RECAL CMD

EM19
DH2
DT
DF
21

:MSG A1 ERROR

EMI7
DH3
DT1
DF21

:MSG A0 ERROR
2AFTER WRITE CHECK CMD

EM19
DH32
DT1%
DF
21

:MSG A1 ERROR

EM69

:NO DRIVES PRESENT

DT1
DF10

051007
054126
054550

006322
006324
006396
006330

050471
052074
054126
034654

DHI
DT1
DF1
:ERR 62
EM75
DH27
DT
can ¢3 0710

$36
00332 041347
537 006336 054304

-y
DT13

$350 0063462 045554

=% e

2% 005348 035076

con 5 O

006340

055010

2355

006352

045

DF 27

$336 000335 041304

5357
338

006356
006360

054126
03465¢

360

006362

045471

5361

006366

051304

SEQ 0046

DH2?
Dse

006314
006316
006320

538

EM23

:FOUND 10 BAD CYL
JAFTER WRITE DATA CMD
,

R
DRIVE UNLOADED © DOOR OPENED
MSG B1 ERROR

DH11

:SPIN SET

EM17

:MSG A0 ERROR

DT1
can g6 OF10

DH11

AFTER LOADING HEADS WITH DOOR OPEN

CZR6JFO
UNIBUS RK6 DR=3 MACY11 30(1046) 04-JAN-B82 13:06 PAGE 48
CZIR6JF.P11
04=JAN-82 12:48
ERROR POINTER TABLE

006

54304

n & DF21

EM18
DH11

006%98 855010

72
74

045512
°”§&

363

055010

882202

045533

374
75
2376
2377
2378

006412
006414
006416
006420

045554
051304
054304
055010

2379

2380 0064622 045746
2381

006426

051360

3353
384

0064

054654

%385
386
2387
2388

006432
006434
006436
006440

000000
000000
000000
000000

2390

006442

045471

2392
2393

006446
006450

054304
055010

2395
2396
2397
2398

006452
006454
006456
006460

045512
051145
054
055010

006462

045533

2382

2389

2391

239%

0064;8

SEQ 0047

pT13

76 854

A B i
37 8&2% 055010

;MSG BO ERROR

DT13
;ERR 70

:ERR 71

:ERR 72

DF21

EM19

:MSG A1 ERROR

EM20
DH11
DT13
DF21

:MSG B1 ERROR

EM2S

;CARTRIDGE NOT CLEARED

A
DF21

DH12

054126

pT1

:ERR 73

;ERR 74

006444 051145

DF10
0
0
0
0
EM17

DH4

:ERR 75

;AFTER DISK PACK REMOVED

DT13
DF21

:MSG A0 ERROR

*AFTER PACK RE=-INSERTED & HDS LOADED

EM18
DHé4
DT13
DF21

;MSG B0 ERROR

EM19

:MSG A1 ERROR

408 006672 04555

EMR 7T 20

MSG B1 ERROR

409

:ERR 100

2399
26401
240
2403

006464
ooués
006470

051145
054
055010

4.09
407
408

006474
006476
006500

051145
054304
055010

410

006502

045660

00651

54654

2411
41§
413
414

006506
0065

:ERR 76

DHé&
DT13
DF21

051410
8541%6

419 006516 000000

DH4
pT13
DF2
EM2

DH13
DT

:ERR 101

DF10

:SPIN SET

*AFTER LOADING HEADS WITH CART. OUT

C2
¥1

006522

425

006532

4 S5

000000

2 8

006540

430

006542

000000

006550

000000

431
432

006544
006546

435
2436
2437
%2;8

006552
006554
006556
006560

047204
053535
054126
054654

460
441

006562
006564

046103
051474

2645
2446
2447
%228

006572
006574
006576
006600

04613
053211
054126
054654

2450
2451
2652
52§4

006602
006604
006606
006610

046773
053016
054126
054654

2455

006612

046162

Zzgg

006620

054654

22§k

2642
522‘

5456
457

5460

006566
006570

006614
006616

sERR 102

;ERR 103

;ERR 104

000000
000000

054126
054654

;ERR 105

%Eg% 006630

054654

465
2669
246
228

006632
006634
006638
00664

045343
053211
8541 6
54654

470
471
472
473

006642
006644
006646
006650

04745
05321
0541;6
054654

sUNS NOT SET

sAFTER MDS FOUND

;ERR 106

sV _SET

sWITHOUT PACK CMD

;ERR 107

;ERR 110

;ERR 1M

051521
0541;6

046056

SEQ 0048

420

000000

ERROR POINTER TABLE

O00O0

006520

12:48

OO00O0

2}3

MACY11 30(1046) 04~JAN-82 13:06 PAGE 49

OO00O0

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P11
04=JAN-

JERR 112

;ERR 113

:DSC NOT SET
sAFTER EVEN PARITY ISSUED

sWRL NOT CLEARED
sAFTER WRITE LOCK SWITCH DISABLED

sATTN NOT CLEARED
sAFTER UNIT SELECT PLUG REMOVED

sNED NOT SET

sATTN NOT SET
sAFTER EVEN PARITY ISSUED

sPARITY NOT SET

UNIBUS RKé DR‘S MACY11 30(1046) 04=JAN-82 13:06 PAGE 50
04~JAN-B2 12:48
ERROR POINTER TABLE

;ERR 115

SEQ 0049

sWRL NOT SET
sAFTER WRITE LOCK SW ENABLED

sCONT NOT RDY
sAFTER PACK CMD

sCONT NOT RDY
sAFTER SEL DR CMD

;AFTER SUBSYS CLEAR

sWLE NOT SET
sAFTER WRITING WITH WRITE LOCK SET

Vi
VAW

sMSG BO ERROR
sAFTER WITING WITH WRL ENABLED
=
SO=N

;MSG B1 ERROR

vilwaw

sMSG A1 ERROR

OfRNW

vl
S

sAFTER RECAL CMD

W&l

;MSG A0 ERROR
sAFTER WRITING WITH WRITE LOCK ENABLED

VIS
o
—
o
NS

~ . XV}
5

WV VWV

NININININININD

=0 OVBNYOVNEWN=O

NN
wvivawviwviuv
vl u v
PORORORORS -ddddd—.-‘fld‘

sNED NOT SET
sAFTER WRONG PORT SELECTED

alal
NN

UNIBUS RK6 DR=3 MACY11 30(1046) 04-JAN-82 13:06 PAGE 51 .
04=JAN-

ViAWY
NN

VAW

ERROR POINTER TABLE

007002

SEQ@ 0050

sNED NOT CLEARED
sAFTER CORRECT PORT SELECTED

i
0078?8

sNO _RDY
sAFTER SEEK CMD

:NO ATTN

sNED NOT SET
sAFTER BOTH PORTS DESELECTED

;ERR 134

vivaupayvaavaivaia o

NN NN
AN NN AN NN NN NN

VIV

W
gfl
BREEINYPN
VISWN=O 58 LTXVYS SXESS SIFRRUNZS
STELEEREREETLTR le\ll\ll\fl\ll

;WRITE LOCK NOT SET SECTOR BOUNDRY
SAFTER WRITING WITH WRL ENABLED

;ERR 135
SAFTER WRITE LOCK ENABLED WHILE WRITING

JERR 136
SAFTER WRITE LOCK ENABLED FROM AC OFF

;ERR 137

JERR 140

054654
046300
052456
0561;6
054654

043331
052247
0541;6
054654
045305

;ERR 141

sSPINDLE ON NOT SET
sAFTER DRIVE MANUALLY LOADED

sDRIVE NOT READY
sAFTER AC POWERED UP

;ERR 142

;ERR 143

sCONT NOT READY

€z
2

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P11
04=JAN-8
58
588

%t
71

00714

52335

MACY11 30(1046) 04=JAN-82 13:06 PAGE 52
12:48
ERROR POINTER TABLE

SEQ 0051

H3E

sAFTER ST SPIN. CMD

033353
0561;6

sNO ATTN

066372
052371
054126
054654

sHEADS NOT HOME
sAFTER MANUAL UNLOAD

047430

sCERR NOT SET
sAFTER TIMEOUT TO POWER DOWN

56654

054654

0466426
052422
054156
054654

VOOV
W =O

FRsIR¥R333’6"33&’3’&’3%

054654
sAC LOW NOT SET

sNED NOT SET

:NO _RDY
sAFTER CLEAR CMD

sAC _LO NOT CLEARED
sAFTER AC POWERED UP

:VV NOT CLEARED

X OAOO°
S

sATTN NOT CLEARED

sVV _SET AFTER HDS LOADED

0541;6
054654
046654
052712

sWITHOUT ‘PACK' CMD

sNXF=0

sAFTER SEEK WITH vv=0

94
czl

055010

045533
052712
054304

045554

:ERR 163

5670 007342 046654

:ERR 164

5675 007352 047744

ERR 165

5679

:ERR 166

007336
007340

2671
5672
5675
5674

007344
007346
007350

052751
054126
054654

5676
677
678

007356
007356
007360

052562
054126
054740

5680
5681
5682
5685

007362
007364
007366
007370

000000
000000
000000
000000

687
2688

007376
007400

054126
054740

:MSG BO ERROR

EM19
DH4S
DT13

:MSG A1 ERROR

DF21

DF
21

EM20

DH4S
DT13
DF
21

EM6S

:CANNOT READ BSE INFO

DH42
DT1
DF17

007412
007414
007416

045305
052215
054126

697

sAFTER WRITE DATA WITH vv=0

0N SECTORS 0, 2. 4, 6, 8

0
0
0
0

-0

695

:MSG B1 ERROR

NXF NOT SET

DH46
DT1
DF10

2090
007402 000000
691 00740 000000

000000

EM46

eo
Enos

0074
007410

DT1
DF17

:ON SEC 10, 12....20

0
0

:ERROR 171

EM12
DH30
DT

(sl

L_ L

PV Y

EM18
DH4S
D713

685 007372 047744
07378 Dstoas
692
695

21
DF

:ERR 162

052712
054304
055010

:MSG A0 ERROR

PV IV P

DF22
EM17
DH4S
DT13

;ERR 160

:CYL ADDR CHANGED FROM 0

EMG7
DH4S
DT14

045512
052712
034304

055010

can 157710

:ERR 161

055010

SEQ 0052

055044
045471
052712
054304

046733
052712
054364

ERROR POINTER TABLE

PAGE 53

054126

13:06

7266

007558 S34ase

12:48

_04~JAN-82

04~JAN-82

MACY11 30(1046)

:NO RDY
AFTER READ HEADER CMD

RK6 DR=3

;ERROR 192
EM61

g¥?s

9r1o

:NXF DID NOT SET FAULT
:AFTER SEEK WITH vv=

DLT SET

v 15‘ 1
B30

CERR SET

DF15

:ERR 175

EMS3
g'r'?‘

:ERR 176

2 [=i=1=]2

S35 2992

;UNLD NOT SET

*AFTER MDS FOUND

1
DF

EMS4
gfro?s

:CANNOT FIND MDS
*AFTER SEARCHING ALL DRIVES

1
DF

:ERROR 177
EM2

g¥}6

:VV NOT CLEARED
;AFTER UNIT SEL PLUG REMOVED

ViAW

N==\nwn
NNVON
oo

VIS
SOV

SN
N
N
©

DF10

;ERROR 200

£n15

g¢;

:NO RDY

*AFTER WRITE HEADER CMD

DF15

;ERROR 201
sngl

DH39
DT
DF15

:ERROR 202
EMS

DH66
org
DF

;ERROR 203
EM18
DHS
DT13
;ERR 204

:CERR SET

:UNEXP MEMORY PARITY ERROR
:TEST #,PRAP PC

:MSG BO ERROR
*AFTER AC SWITCHED OFF

DF21

EMS7
g¥?7

;CERR NOT SET
SAFTER TIMEOUT TO ENABLE WRL

~Ney

lelsl

SEQ 0053

s 153 3
B30
DTl
F15

VALY

e Qi Y

)

ONOWVS WO

NNNNNNNNYNY

lals

-wn

3839325533382 gg

MACY11
30(1046) ERROR
04=JAN-B2
13:06 PAGE 54 .
12:48
POINTER TABLE

;WRL NOT SET

ISR SIS ISR
Vi

N
~

sWCE AT CYL 411,TRK 2, SEC 21

sCERR NOT SET

sAFTER WRITING WITH WRL ENABLED

;CERR SET

;CTO SET
sWHILE WAITING FOR OR REC'D CONTR RDY MSG A € B BAD

JNED SET

sMDS SET

sRTZ NOT SET

sDURING RECD CMD

2796

3797
798

2799
2800
2801
2802
%ggz

2805
5806
807
gggg

007654

052502

:MSG A0 ERROR

sAFTER WRITE HEADER CMD.

007656
007

054304
055010

007662
007,
007
007670

045512
052502
054304
055010

;B0 ERROR

007672
007674
007676
007700

042533
052502
054304
055010

;A1 ERROR

|
;ERR 205

SEC 0054

lalal

04~JAN-82 13:06 PAGE 55 .

CZR6JFO UNIBUS RK6 Dlsg MACY11 30(1046)
CZR6JF .P1
04=JAN-82
12:48
ERROR POINTER TABLE

007702

007704
77

007710

007712
007714
007716

045554

052;8%
054
055010

000000
000000
000000

7720

000000

007722
007724
007726

000000
000000
000000

0077

007732

000000
000000

0077
0077

000000
000000

007742
007744
007746
007750

000000
000000
000000
000000

007752
007754
007756
007760

000000
000000
000000
000000

007762
007764
7766
007770

045305
052044
054126
054654

007772
007774
007776
010000

045575
052044
054126
054720

007740

000000

Efli

DH
pT1

SEQ 0055
:B1 ERROR

sERROR 221
0
0
0
0

;ERROR 222
0
0
0

:ERROR 223
0

0
0

JERROR 224

0
0
0
0
225
;ERROR
0
0
0
0
;ERROR 226
EM1
DH26
DT

;ERROR 227
EM21
DH26
DT
DF15

:NO RDY
JAFTER READ DATA CMD

;CERR SET

~NS

(ala]

UNIBUS RK6 bk-g %Cz;‘l 30(1046) 04~JAN-82 13:06 PAGE 56
P11
04=JAN-8
ERROR POINTER TABLE

.SBTTL

001100
000000
010036

:SET FLAG FOR 220 START
:START PROGRAM
;CLEAR FOR 200 START
SCLEAR ALL INT ENABLE & INIT
*SETUP STACK POINTER
*PSW LOADED TO BE
*LSI=11 COMPATABLE

033416

18:

PC,STKINT

;SETUP KB VECTOR ADDR,

00503;

001356

SEQ 0056

PROGRAM SETUP

#1,PARAM
PRGSRT
PARAM
#STACK, SP
#PRO, = (SP)
”1$,-(SP)

000001

004737

PARSRT: MOV
BR
START: CLR
PRGSRT: RESET
MOV
MOV
MOV

012737
02

012746
000002

RTI

JSR

*ENABLE ALL INTERRUPTS

:% TURN ON KB INTERRUPT

PRIDRITY &

se«x CPU PRIORITY LEVEL NOW AT 0 ###
;#«% ANY DEVICE WHICH SETS ITS

;%% INTERRUPT ENABLE BIT WILL
;e SERVICED.

wwe

ww+
wan

sCLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 6 (IN °"ST5')

:RKO6 CONTROLLER INTERRUPTS WILL CMANGE CPU PRIORITY TO LEVEL S IN *SETINT®)
:KEYBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE)

sALL "SYSMAC' TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW)

b
—

NNNNNNNNNNNNNYNY

28222222222 2Z/R8=
- NN
%Vsfl
SN
&I
OO
oo

NEBRBN SRS
=& N

e
d o
e
e
h e

oWl

—b e

[=lelelelelelalalelele]

(=l=l=]

Soo

OO0 O0O00O0O0O0O0O0O0O00

OO0O0O0O0

;SYSMAC ‘SETUP'

.SBTTL INITIALIZE THE COMMON TAGS
;;CLEAR THE COMMON TAGS (SCMTAG) AREA

001100

CMP

#SWR,R6 ;:DONE?

BNE

001100

#$CMTAG,R6

CLR

001140

031 73%
00236
035646
74

MOV

.6
#STACK SP

..mnuu.us A FEW VECTOR

nov

000034

MOV
MOV

ssFIRST LOCATION TO BE CLEARED

(R6)+

33CLEAR MEMORY LOCATION

2:L00P BACK IF NO
ssSETUP THE STACK POINTER

0343uiotveus 2 LEV
10TVEC

; IOT
V;CTOR FOR SCOPE ROUTINE

#SERROR ,mvsc
SFE
..em v;cton FOR ERROR ROUTINE
moutntvec* :LEVEL
-TRAP VECTOR FOR TRAP CALLS

:83 Wmo
‘h
m'Ltrouen7FAILURE VECTOR
mvw ;sLEVEL

MOV

MOV
CLR

CLR

MOVB
MOV
nov

smtt
seswe

n , SERMAX
..sLmn
-SLPERR

rup END-OF ~PROGRAM COUNTER

SINITIALIZE NUMBER OF ITERATIONS

:iCLEAR THE ESCAPE ON ERROR ADDRESS

:ALLOW ONE ERROR PER TEST
..mnu\uze THE LOOP ADDRESS FOR SCOPE
SETUP THE moa LOOP ADDRESS

::SIZE FORA p
H ws SWITCH REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A **=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
RRVEC,=(SP) ;:SAVE ERROR vecroa
MOV
$, aFERRVEC ..ser UP ERROR VECTOR

MOV

cosuk SWR

*:SETUP FOR A HARDWARE SWICH REGISTER

(alal
NN

IBUS RKé DR-Z MACY11 30(1046) 04=JAN-82 13:06 PAGE 57
04-JAN-82 12:48
ERROR POINTER TABLE

17757

Og 5
17070

MOV
CMP
BNE

&N
o

019716 010250
64S$:
g@%i
$0
000176 001140 658:
56
012737
74

#DDISP,DISPLAY
#-1,3SWR

..TRV TO REFERENCE HARDWARE SWR

658

: :BRANCH IF NO TIMEOUT

ssAND A HARDWARE DISPLAY REGISTER

BRANCH IF NO TIMEOUT TRAP OCCURRED
;:AND THE HARDWARE SWR IS NOT = =1

#658, (SP)

MOV

#SWREG, SWR

v::POINY TO SOFTWARE SWR

MOV

(SP)+,a#ERRVEC

s ;RESTORE ERROR VECTOR

SPASS

sCLEAR PASS COUNT

000004 MEMPAR: MOV
0320 012737 010356
000340 000006
MOV

#1$ ERRVEC

s TIMEOUT VECTOR

0326

MoV

#MEMBAS ,R1

sADDR OF MEM CSR

MOV
MOV
BR
cMP
ADD
CMP
BNE
MOV

#MEMERR,MEMVEC ;LD MEMORY CHK VECTOR IF DONT TIMEOUT
#PR7 ,MEMVEC+2
2
(SP)+,(SP)+
:ADJ STACK
#2,R1
*TRY NEXT CSR
R1.MMEMBAS+40 :ALL TRIED?
38’
:
NO
#ERRVEC+2,ERRVEC
:RESTORE TRAP CATCHER

JSR

PC,CLRFLG

012637

0001
000004

001%16
000200

304 0127g; 001232
e

OO0

bbb

OO0O00O0

SEQ@ 0057

MOV

Sed

D d
d
D
D d
e
b e

5828
29

17777
Wi
1012

001142
001231
001140

668:

RTI

MOV
CLR

67%:

BITB
BEQ
MOV

VO NO VS W=D

PRIR gg
AR
GRUNSS

UNIBUS RK6 Dl-g MACY11 30€1046) 04=JAN-82 13:06 PAGE 58
1
04-JAN-8 12:48
INITIALIZE THE COMMON TAGS

012701

0 80

010340
34

172100

000001
031110
000340

38:

000114
000116
18
2

—_—

000006
000006

Dk =2

000002
172140

024110
001220
001222

000004

CLR
MOV

CLR

CLR
CLR

#DISPREG,DISP

ssSET UP FOR TRAP RETURN

WAPTSIZE,SENVM ..TEST USER SIZE UNDER APT
678
ssYES ,USE NON-APT SWITCH
#SSWREG,
SWR
::NO,USE APT SWITCH REGISTER
#PR? ,ERRVEC+2
(R1)
#1,(R1)

:SEE IF CAN REFERENCE
:SET ENABLE BIT IF YES

ERRVEC
+2

SDEVCT
SUNIT

;CLEAR DDUMP THRU SIZFLG

R28
2

000042

024130
000041

START1: TST

325
g‘\ga

000013

005450
036575

~§-‘

RRRRRRRRERE
xg RERSRS

22229229222

:FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE

010470
010534
005

1%:

28:

INC
TYPE
HALT
JMP
JMP
INC

;f
TITLE
g ‘N3

Mm"
-me PROG ID
*13=LOADED BY XXDP

DDUMP

:SET RKO6 DUMP MODE FLAG
*REPLACE DRO PACK wscmcu & DO<CR>
*HALT

,MSG2

ST
ST
PPTP

:SET ACT/APT/PTP DUMP MODE FLAG

*CHECK IF ALL PARAMETERS DEFAULTED.

IF NOT, BEGIN INPUT DIALOGUE

€z
2

MACY11 30(1046) 04-JAN-82 13:06 PAGE 59
12:48
INITIALIZE THE COMMON TAGS

;WITH OPERATOR.

:DRIVE NOS.
EX:
:

005737

001356

§T2:

10474 001 ;
10473 0001
o1osge
010502 104401 8 4

18:

70 10503 004737 56;10
71
010512
104401
g 10513 0827 7 ozl. s
010522
104401
76 0105 g 004737 ozl.m

2975 010532

2976

000427

2977

PARAM

JSR
TYPE
JSR
TYPE
JSR

ficeonvs
fic
sga
fic GINT

1$
$T4
MSG3

sts

BR IF 220 START
2200 START, omuu & SIZE THE BUSS
*DRIVES TO BE TEST

*GET DR NOS.
*BUSS ADDR
:GET BA
*CONT INT VECTOR
*GET INT VECTOR

*AUTO MODE
*CHECK IF LOADED BY XXDP OR OTHER. SET FLAGS & NO INPUT DIALOGUE.
:DEFAULT ALL PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY
*ON THE BUSS

010534

123727

000041

2986
2987
2988

010544
010550
010554

882 37
37
104401

005452
024130
037072

2233?

010562

005237

005454

2992

010566

012737

177440

2996
2995

010602
010606

004737
005237

02443
00551

2985 010542 001007

2989 010560 ooow;

000013

001264

005037 0053 z

2998 010616
005037 005324
010622 005037 ooss;o
8'883
5037 0011 S
1
01
5037 00117,
gggg 810636 o1§7 7 005462
001362

10644

10650
010656

005777

106

13 gg 80135

owgn
0107064
010710

ST4:

$TS:

037 0012

005037 001;
012737 010

10662

10693

’

ST3:

18:

010574 o127§7 000210 001334

2”2575 010612

SEPERATED BY COMMAS € TERMINATED BY <CR>
DRIVES TO BE TESTED: 1,2,4<CR>

2984

2993

THE REPLY TO 'DRIVES TO BE TESTED® SHOULD BE

TST

BNE
JMP
TYPE

2978
2979
2980
2981

£983

SEQ 0058

10470

1704

005237

0055 5

005777
005237

170430
885504

127

010714 013 og
010720
1

010722 02

41,13

:13=LOADED BY XXDP

INC
JSR
TYPE

DDPCH
PC,TITLE
,MSG7

;SET RKO6 CHAIN MODE FLAG

INC

ACT11

:SET ACT AUTO FLAG.

#1776440,8BASE

:DEFAULT VALUE

PC,SETINT
SIZFLG

;DO "'SIZE THE BUSS'' TEST

CLR
CLA
CLR
CLR
MOV

BADHDR
HPEND
SESCAPE
$TMPS
#DRIVO,DRVPTR

*USED IN *STOP' ROUTINE
*FOR VALID PROGRAM HALTS
;ch RKO7 FLAG
:SETUP

CLR
MOV

SUNIT
#18 ,ERRVEC

*CURRENT DRV UNDER TEST
;SETUP TIMEOUT ERROR VECTOR

INC

LCL xr

MOV

MOV
JSR
INC

CLR

000004

MOV

10734 000004

MOV
ST
INC

1352

010724 015%9 010770 000004

CMPB

BNE

MOV
BR

18:

cMP

MOV

§T4

#210, RKVEC

UNLD

SDEVCT
aLkS

¥s.sénvsc

:DRO NOT TSTD

*DEFAULT VALUE

:INITIALIZE FLAGS

*NO. OF DRVS DONE

:SEE IF L-CLOCK THERE
*PRESENT, SET FLAG.

*VECTOR ADDR

mxr

:SEE IF P=CLOCK THERE
:PRESENT, SET FLAG

(SP)+,(SP)+

:L=CLOCK NOT THERE, CLEAR STACK

PCVEC,RO
3s

#4$,ERRVEC

*VECTOR ADDR

S
NN

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=JAN-82

MCV‘H 30€1046) 04=JAN-82 13:06 PAGE 60
12:48
INITIALIZE THE COMMON TAGS

5777 1724.

1107/.3
742 01 ;

; 7

1075

10723

107

12710

010764 ozzezg
010766 00076
01077 ozzsgg
010772
010776

005037
104401

1
s

0 goo

000

;SEE IF p-cu.ocx THERE

MOV

#CLOCK,(RO)+

*INDICATES TIMING TESTS CAN BE DONE

#PR6, (RO)

MOV
BR

28:
005506
037301

MOV
INC

aPKS

INC

38:

48:

SEQ 0059

cTMP

BR
cMP

CLR
TYPE

PCVEC,RO
DOT IM
PCLKF

(SP)+,(SP)+

3s
(SP)+,(SP)+

DOTIM
,MSG13

VECTOR ADDR

mseur SET FLAG

:SERVICE ROUTINE FOR CLOCKS
2260 TO NEXT TEST

:P=CLOCK NOT THERE, CLEAR STACK
:NEITHER CLOCK mene. CLEAR STACK
*TIMING TESTS CANNOT BE DONE.
*ALL TIMING TESTS BYPASSED

lalal
~NN

\mws RK6 DR=
04=JAN-82

SRRSSEERERERER IR

12:48

04=JAN-82

13:06

PAGE 61

BASIC CONTROLLER TESTS, SIZING & SETUP

s L3

3333231333330 13 3222233133333

SATEST 1

REFERENCE ALL CONTROLLER REGISTERS

THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS

w
i
v
i

011002 oooogt.
811004. 012737 000001
012706

001100

011052
011056
011062

012737
013705
005765
005765
005765
005765
005765

CAN BE ACCESSED. THE INABILITY TO BE ACCESSED WILL
RESULT IN A TIMEOUT TRAP WITH AN ERROR MESSAGE. ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER
TESTS AND JUMPING TO °‘END OF PASS'

: CAARARAARRAAAAAARAAAARRNERRANARAAAARANAANAAANAAAAAAAAAAAAAAAAAAAOAS

001174

011016 01%746 000000
011022 012746 011030
011026 000002
011030
011030
011036
011042
o11o:.g

TST1:

SCoPE
MOV

#1,8TIMES

::001 ITERATION

MOV
MOV

#PRO, = (SP)
#58,=(SP)

:RESET PSW TO PRIORITY 0
*8 MAKE IT LSI COMPATABLE

MOV
MOV
ST
ST

#1$ ,ERRVEC
$BASE RS
RKCS1(RS)

;SETUP TIMOUT ERROR VECTOR
;SETUP INDEX REG.
*REFERENCE ALL THE

RKDS (RS)

ST
ST

RKDC (RS)
RKDB(RS)

MoV
MOV
B8R

#BADTMO,ERRVEC
#PR7 ,ERRVEC+
TST2

MOV
RTI

58:

011154 000004
001264
000000
000010
000002
000004
000

ST
ST
ST

011066 005765 00001
011072
011076

005765
005765

000014
000016

ST
ST

011112
011116
011122
011126
011132

005765
005765
005765
005765
005765

oooogg
0000
000036
000030
000032

ST
TST
ST
ST
ST

011102 005765 000020
omog 005765 000024

011136 012737 031022
011144 012737 000340
011152 000404

?fl”?& (1’55359

011160 000137 023734

31333 3333223323322 232222222¢%3

000004
000006

#STACK,SP

RKCS2(RS)
RKWC (RS)
RKBA (RS)
RKDA(RS)

RKER(RS)
OF (RS)

RKMR1 (RS)
RKMR?2 (R5)
RKMR3 (RS5)
RKECPS (RS)
RKECPT (RS)

ga';on 55”’“5”’
JMP

SEOP

*RESTORE STK PTR

*CONTROLLER REGISTERS

;TIMEOUTS IN THIS SECTION

*INDICATE THAT THE CONTROLLER
*REGISTERS CANNOT BE READ.

<TESTING SHOULD NOT PROCEED
:UNTIL THIS IS REMEDIED.

:SETUP TIMEOUT HANDLER
::60 TO NEXT TEST

‘m"‘s'?"iofil‘o“fiofl%‘!%%encs CONTROLLER REGISTER
’

;:tttttttllttttttttttttttt'ttttttttttttttttttt.tttt'ttt.tttttt'..

S*TEST 2

i
i
i
i

SIZE THE BUSS

THIS TEST IS ENTERED ONLY IF °*DRIVE SELECTION® IS DEFAULTED

EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE
MANUAL MODE.
EVERY DRIVE FROM O THRU 7 IS ADDRESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE

SEQ 0060

(alal

MACY11 30(1046)

.SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP

11012

04=JAN=-82

vnw-og“muwm

UNIBUS RK6 DR=3

P11

HACYll 30(1046) g«-.om.az 13:06 PAGE 62
12:48
T
SIZE THE BUSS

i
v
v

011334

104401

037205

005462
001266

0 32702

000001

005237

005460

RN
RN

037
000
012701
013702

001205

001174

t872:

001231

148:

005460

WWWW

158:

kesme STK PTR

INC

BYPCERR

:DO NOT TEST CERR IN FRDY

BITB

#BIT7,SENVM

: SEE xr USE APT SELECTED DRIVES

TYPE
CLR

MSG10
DRIVS

;WILL TEST DRIVES
¥ OF onxves PRESENT

MOV
MOV
BIT
BEQ

#DRIVO,R1
$DEVM,R2
#8IT0,R2
16$

*DRV FLAG
*APT DEVICE MAP
:SEE IF DRV IN DEVICE MAP
:BR
IF NO

INC

(R1)

TYPE

MOV
TYPOS

—

000137
012765

005460

,SCRLF

RO,-(SP)
1
0

*DRV ADDR

*ELSE INCR DRIVE COUNT

*8 SET DRIVE PRESENT FLAG

::SAVE RO roa TYPEOUT
#
*:TYPE DRIVE
..Go TYPE--OCTAL ASCII

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

(R1)+

:ADV POINTER TO NEXT FLAG

#8. .RO

*ALL 8 TESTED?

BEQ

178’

*INC DRIVE
#

*BR IF YES

:ELSE GET NEXT BIT OFF DEVICE MAP
:8TRY AGAIN

1ST
BEQ

DRIVS
188

: SEE lF MORE DRIVES PRESENT
*BRIF NO

ERROR

:NO DRIVES FOUND

208:

JMP
JMP

ST5
VERIFY

:TO TRY AGAIN
;DO NOT SIZE, GO THE NEXT TEST.

128:

MoV

#SCLR,RKCS2(R5) ;SUBSYSTEM CLEAR

188:

000010

DRIVS

INC

JMP

012010

*BR IF YES
*ELSE DO NORM SIZING OR VERIFY

R2
15s

178:

810612

148
128

ROR
B8R
012010

000040

TST

CMP

000010

0 1 ITERATION

#STACK,SP

INC

168:

#1,STIMES

3331333333333 233223232232322222223221

MOV

CLR

wo
N0

3 g 8S
¥

—b

005737

b &RN

SCOPE

MOV

BYTE
BYTE

88 S8
w

e b e
b b ek
—2 bk wmd

D ot e e

OO0
OO0
O000

owinns
THE OTHER PORT IS ACC
IF CERR DUE TO DTYE, DRIVE uxu. ae TESTED AS AN RKO7.

BNE
JMP

eT S

2 amd d o) b

— d b

OO0

)

O000O0

[ R
— e D D wd b

COO00O0O0

—3

OO0

:ég
N
w
N

000137

prd

8
v

000200

1 32(7“3’7

O000

ayuha NN
£ &NN
NS S &F RERSEN S08RS FRR 8 PSS

001502

000001
001100

SEQ 0061

DRIVE WILL BE TESTED AS AN RK0O6. IF SET, THE PROGRAM WILL BYPASS
tesnuc THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF
OR NED BEING SET: oa m nso € DRA RESET IN-

‘A i i3 3333333332202

—_—h
b

- b
g

[=l=T-]

HALT

VERIFY

ELSE EXIT TEST & SETUP FOR RKO7'S.
IN SDEVM

*SETUP CORRECTLY & PRESS 'CONTINUE®

(alal
L]

IBUS RK6 DR=
.P
04=JAN-82

d P11

—bbbebeb

U N O N N O N N N N NN N N AN N NN N W W NN
e D d e e P e e d D ed b d D e e d D d D D D e D D b D D b h D D D b b D A
x:dddfldddddN LA U U U U U AN e
www

S88IR SRE0283S IRRRER SIFIFANANIITEIESRAR2E O 0o SERRURLESHIEG

(als

UNIBUS RK6 oa-g MACY11 30(1046)

011

04=JAN-82

01135
011354
011

12:48

g&-.uw-az

13737 oguzl. 005376

737
104120

024542

005737

005510

MOV

:SET TIMEOUT

:FIND RDY
*RDY NOT SET BY END OF SCLR

gxmc

:SIZE BUS?

011374

005000

CLR

011402

104415

om%

004737

024542

011432
011436
011444
011425
011460
011466
011472

010%
mg
053737
013765
013737
004737
013737

000010
1
001170
005340
001432
025232
001424

011506

104117

CLR

710, TEMP1

SEQ 0062

PS FRDY
120

BEQ
TYPE

005462

JSR
ERROR

001762
1ou.g1 037205

011370 005037 005460

PAGE 63

SIZE THE BUSS

011
011

3”45? 012701

13:06

MOV

SCOP1

0s
MSG10

PRIVS

#DRIVO,R1

*BR IF NO
*WILL TEST DRIVES

:# OF DRIVES PRESENT

*DRV ADDR

DRV FLAG

011406 012706 001100
011410 01§7gs
000010
011416 013737 001424 005376

MOV
MOV
MOV

#STACK, SP
;RESTORE STK PTR
#SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR
710, TEMPT
*SET TIMEOUT

011430

ERROR

120

011500

011506

011514
011516
o11s§4
011532
011536

011540

10412

004737

032737

024542

100000

005340
005340

oooogo
005376
005376
005340

005737

005452

011552

005237

005460

011560

053711

001170

011550 oo1o19

011556 oos;n
104401

11570 010046

004737
104001

011606

005721

011613 003837 001170

011616 022700 000010

RO,RKCS2(RS)
#SELDRV,HCS1
$TMP4 , HCST
HCS1,RKCS1(RS)
150000, TEMP1
PC,DLY
110, TEMPY

:SELECT THE DRIVE ADDR

ERROR

117

PC,FRDY

#CERR,HCS1

*RDY NOT SET BY END OF SCLR
:ADD CDT IF RKO7

:GET STATUS

:D0 DELAY TO CATCH MDS
:FIND RDY

*NO RDY AFTER SELECT DRIVE CMD.

BNE
MOV
8IC
CMP
BNE

28
HMR2, TEMP1
#*C<DRVMSK> , TEMP1
RO, TEMP1
:S/B SAME
3s

BNE

DDPCH

:SEE IF XXDP CHAIN MODE

INC

DRIVS

;INC DRIVE COUNT.

BIS

$TMP4, (R1)

*ADD CDT IF RKO7

MOV

RO,=(SP)

::s¢gg gg ;oa TYPEOUT

TYPOS
.BYTE
.BYTE
BR

1
0

1360 TYPE--OCTAL ASCII
S:TYPE 1 DIGIT(S)
::SUPPRESS LEADING ZEROS

3s:

JSR
ERROR

PC,BYP
1

:TYPE BYPASS DR #
*WRITTEN DR # DOES NOT MATCH RKMR2 DR #

58:

(R1)+

;SHIFT PTR TO NEXT DR. FLAG

48:

001205

025250

MOV
MOV
BIS
MOV
MOV
JSR
MOV

INC

TYPE

011572 104403
011574
001
011575
000
011576 000403
011600
011604

*FIND RDY

BIT

0057

011544

PC,FRDY

JSR

oo1os;
013737 005366 005376
042737 177770 005376
020037 005376
001020

011542 00100

811564.

JSR

CMP

(R1)

,SCRLF

#8..RO

*SET DRIVE PRESENT FLAG

S EUEAR RKO7 FLAG FOR NEXT DRIVE

ol.-am-af 12:48

UNIBUS RK6 DR=3

011622 001;37

11624

885

11632

104061

116

0116
11636

1065

MACY11 30(1046)

oooogg
000137
010612
012737 002000 001170
000137 011402

011694.
011672

011702

ongn

011706

18
19

011714
011722

032737
001015

001000

005342

032737

000400

005342

032737

000001

005352

032737
001424

010000

005342

ogms

3217 011712 001015

28:
138:

322

3223

011732

104002

26
27

011736
011742

004737
104003

025250

3230
3231
3232
32;.

011746
011756
011756
011762

032737
001676
104401
010046

010000

3236 011766

001

68:
78:

000720
8$:

037412

gss 011764 104403
38

011767

104010

011774

004737 025250
104004

'
012402

9s:
108:

#MDS ,HCS2
6%

BIT

#UFE HCS2

BIT

#DRA,HDS

BIT
BEQ

#NED,HCS2
9s

JSR

PC,.BYP

ERROR

SEQ 0063
:MORE LEFT.
:NO DRIVES SEEN

*SETUP
& PRESS 'CONTINUE®

;ADD CDT
:TRY AGAIN

:TYPE BYP DR #
*MDS DETECTED

JSR
ERROR

PC.BYP
3

:UFE DETECTED

BIT
BEQ
TYPE
MOV

#NED,HCS2
4
,MSG1S
RO,=-(SP)

:DRVA
..;exg g'OuFOR TYPEOUT

BYTE

JSR

PC.BYP

BR
JWP

1]
NUDRV

ERROR

2:G0 TYPE=-OCTAL ASCII
S:TYPE 1 DIGIT(S)

: :SUPPRESS LEADING ZEROS

:DRA
& NED BOTH SET

:NO DRA & NO NED = OTHER PORT SELECTED

1.9 012010

VERIFY:

‘9

2 :ttttttttlttttttttttttttttttttt'tttt'tttl.ltttttttttttttt.tttttt

PRI

012002 000701
012006 000137

BIT
BNE

&\fl&w

%3
22

012000

#CDT,STMPS
1$

ERROR

33523 011772 000705
gu

MOV
JMP

TYPOS

011770

STS
#DTYE ,HER

BR
005342

108

BIT

BEQ

BNE

33353 011734 000724

gsr

omge 004737 025250

33553 011744

ERROR

BNE

355? 011724 0007

DRIVS

HALT
JMP

001405

PAGE 64

BNE

10 81165
1
01
15
13

SIZE THE BUSS
13:06

BNE

005460

811665 032737 000040 005354
11650

rg‘

04=JAN-82

S*TEST 3
VERIFY OPERATOR DRIVE SELECTIONS
:
:
THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT
DEFAULTED.
EVERY DRIVE FROM O TO 7 IS ADDRESSED &
CONTROLLER ERROR (CERR) IS EXAMINED. IF NOT SET,
T
N

VWA

50
51
5

Se8

PROGRAM WILL ASSUME THE DRIVE IS PRESENT AS AN RKO06.
IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED

o
NN

CZR6JF .P11
CZR6JFO

CZR6JFO

CZROJF .Pw

UNIBUS RK6 DR=3

MACY11 30(1046)

04~JAN-82 12:48

lg‘

;

60
6

64
S

1zo1g oooogl.
01201
01577 000001
12020

012706

001100

g 012701

005462

012026

012032

gg 8}

005000

327
3277

3078

3120:.6
12054

013737 001426
004737

024542

016737

000001

015823 104.122
01
o1oog 000010
012066

001174

t§13:

mzng

004737

025232

3284

012130

004737

024542

3285
gae

o121§° 013737 001424
012136
012136

104117
032737

87 012144 oomg

3288 81 146 01373

100000

012156

042737

177770

012166

001014

§§34

12172

001402

012200
012202

005721
ooszog

012216

302
303

012220
012226

004737
104001

305
309
%

0122
12232
} 3

oowgs
8853 7
s%;

005460

}

gzig

000040

ggo 012162 020037 005376
329.

81 170

000010

scoPe
MOV

#1,8TIMES

::001 ITERATION

CLR

*DRIVE ADDR

#STACK, SP

;RESTORE STK PTR

710, TEMPT

*SET TIME OUT

12
RO,RKCS2(RS)

*NO RDY AFTER SCLR
:DRV ADDR

MOV

#STACK,SP

#DRIVO,R1

:RESTORE STK PTR

:DRIVE FLAG

#SCLR,RKCS2(RS) :SUBSYSTEM CLEAR

JSR

PC_FRDY

MOV

#SELDRV,HCS1

MOV
MOV

HgSl RKCS1(RS)
750000, TEMP1

005376

MOV

110, TEMPY

005340

ERROR
BIT

MOV

ERROR
MOV

005340

BIS
JSR

JSR

BNE

005376

11$:

001170

4S:

025250

:DO DELAY TO CATCH MDS

PC,FRDY

:FIND RDY

117
#CERR,HCS1

CMP

RO, TEMP1

TST

#C<DRVMSK>
, TEMP1

:S/B SAME

(R1)

BEQ

TST
INC

(R1)+
RO

8IS

*NO RDY AFTER SELECT DRIVE CMD.

$TMPG, (R1)

;ADD CDT IF RKO7

JSHIFT PTR TO NEXT DR FLAG
*INC DR#

STMP
#8..RO
18

JSR
ERROR

PC.BYP
1

:TRY BYPASS DRIVE#
:WRITTEN DR# DOES NOT MATCH RKMR2 DR#

128:

BEQ
DEC
S},"

48
DRIVS
&m

:BRANCH IF NOT SPEC BY INPUT
*DECREMENT TOTAL DRIVS
*CLEAR DRIVE FLAG

28:

253

{gzvs.nea

MOV
JMP

#CDT,STMPG
1$

304 8122;3 005711

311 012252 012737 002000 001170
312 012260 000137 012032

PC,DLY

:GET STATUS

CLR
CMP
BNE
3s:

005354

;ADD CDT IF RKO7

HMR2, TEMP1

BNE

2FIND RDY

$TMPG HCST

MOV
BIC

01
005037 001170
012210 022700 000010
012214 001

45.

IF CERR DUE TO DTYE, DRIVE WILL BE TESTED AS RKO7.

MOV

005376

005711

012174 053711

VERIFY 1f WAS NOT SPECIFI

SCOP1

5396 005376

3289

NED & DRA RESET (WRONG PORT).
IS A RESULT OF
NED
ONLY, IT IS CHECKED'AgSINT IF
THE CERR
INPUTTED
INFOR TO

MOV

gao 012102 013735 005340 000000
81 012110 013737 001432 005376
8

PAGE 65

ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH

MOV

3279 012076 053737 001170 005340
gag

13:06

VERIFY OPERATOR DRIVE SELECTIONS

:'ttt!Qt.'tttfittttt.Qt""t't'tfit.tt.t.t.t'tttt't.t'.'t't.'ttt.'t

104415

01203¢ 012706 001100

7§ 012040 o1§7 5
7%

=~JAN-82

TST4

(R1)

:CLEAR RKO? FLAG FOR NEXT DRIVE
:MORE LEFT

::60 TO NEXT TEST

:ADD CDT
*TRY AGAIN

SEQ 0064

CZR6JFO
UNIBUS RK6 M-g MACY11 30(1046) g‘-JM-OZ 13:06_PAGE 66
CZR6JF .P11
04-JAN-82 12:48
T
VERIFY OPERATOR DRIVE SELECTIONS

8?1 [4

8%1%7

01%342
012346

004737
104006

§31

012340

012350

108:

001717
025250

000730

3%% 012352 004737 025250
334
ggz

015%
01

104002
000724

6$:

337

012362

004737

025250

78:

3341
3342
3332

012372
012376
012400

004737
104004
000714

025250

98:

338
3%28

012
012370

104003
000720

88 oB8 als oBa
8k als
Ba
_Sa

3%8
330

ggz

8s:

TST

JSR
ERROR

PC.BYP
6

;TYPE BYPASS DRIVE#

JSR

PC.BYP

;TYPE BYPASS DRIVE#

JSR

PC.BYP

JSR
ERROR
BR

PC.BYP
&

BEQ

ERROR
ERROR
BR

als

005342

9s
108
#NED ,HCS2
118
(R1)

iBS

010000

324
5

BEQ
BR
BIT
BEQ

005342

001423
OgOleo
032737
001715
005711

#DRA,HDS
8s
#NED ,HCS2

010000

1
1
81 gg
0N
01 2‘36

BIT
BNE
BIT

BNE

005352

#UFE HCS2

128

2
128

000001

BIT

2737
og1ggs
032737

#MDS ,HCS2

005342

BIT

BNE

;MDS DETECTED

000400

032737

138:

;

005342

3
128

sUFE DETECTED

1
1
0

001000

32737

;DRA £ NED RESET = OTHER PORT SELECTED

128

3354
3355
gg?

sUNDER TEST

012402

005037

001502

012406

005037

001170

NUDRV:

CLR

BYPCERR

CLR

$TMP4

sENTER HERE FROM LAST TEST
sTEST CERR IN ‘FRDY'
;RK07 FLAG

:'SUNIT® CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY

g?i

351

sDRIVE PRESENT

:THIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH

3;‘;3

3348

3345

SRS

2
15
0N
1? 1
1

SEQ 0065

CZRGJF ?NlDUS RK6 DR=3
CZREJF.P1
04=2AN-82

MACY11 30(1046) 26-JAN°32 13:06 PAGE 67
T
FIND NEXT DRIVE TO BE TESTED
12:48

SEQ 0066

SIARRARARARAAAAAANAAAARCENANANANARAANAAAANAAAANANARAANAAAAANCANAS

SCOPE
MOV
MOV
MoV
MOV

#STACK,SP

#STN-1.STESTN
#STN=1,STSTNM

TST
BNE

DRIVS
48

$E0P

MOV

DRVPTR,R1
SDEVCT

;ADDR OF NEXT DRIVE FLAG
:1S FIRST DRIVE BEING CHECKED

SUNIT
(R1)

*INCR DRIVE ADDR TO NEXT DRIVE

S
v
~N

W
NN

1%
DDPCH

002000

3s:

BIT

#CDT,(R1)+

7
1

001362
03741

6$:

MOV

#CDT,S$TMPS
R1,DRVPTR

MSG15

$UNIT.RO
RO,=(SP)

—

)

00122

sANY DRIVES PRESENT?

JMP

3s
SUNIT
3s
(R1)+
1%

}3700

:RESTORE STK PTR

BRANCH
:
sALL DRIVES TESTED
:NO, GO TO END

5%
(R1)+

; 002000 001170

::00 1 ITERATION

MSG27

ViAW
3&»0- gnwggmmgmssbb
qucuhfldgihuégowucflr 3

4$:

#1,8TIMES

:YES,

BRANCH

:1S DRIVE PRESENT?
:BR IF YES
*ELSE FIND NEXT DRIVE

:DDP CHAIN MODE?
JBR IF NO

*ELSE SEE IF DRV 0
*BR IF NO
*ELSE FIND NEXT DRIVE PRESENT
LA TRATE]

=B
—3

—r

%gfii

SNNN

—

(=lele]

3&»&; SN

JM“JMFQE

b d e D b

OO000O

T4:

e eT I

THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE ADDRESS IS IN "SUNIT®.

SRARRARRAAAAAARAAAAANAACANNRAAARNAAAAAAAANNAAAAAAAAAIAANAAOANOOAS

ek e b

O00O0

NN
NN

e R

OO0O0O0O0O0O0O0O0O00O0O00
O000000
000

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT

ADDRESS IN ‘SUNIT' & STMP4 IS SET TO CDT IF DRIVE IS RKO7.

TYPE

mmd ) ) b ok D

FIND NEXT DRIVE TO BE TESTED

2 22
»

AR LR PR TR TR TR T

STEST &

SEE gfugleE UNDER TEST IS RKO?7
BR I
ELSE SET RKO7 FLAG
STOR E _POINTER TO NEXT DR FLAG

DRIVE

::SAVE RO FOR TYPEOUT
*:DRIVE #
+:60 TYPE==OCTAL ASCII
ssTYPE 1 DIGIT(S)

s :SUPPRESS LEADING ZEROS

8-‘
VIN)
=2 N

S
N —
on

Jhur Qi

Pur G

=lelelelelela)

DS LS LN TNNNV

hurd

.SCRLF
001170

000632

012654

012 é
00099
012656
160017
0126560

$TMP4
’$

:SEE 17 RKO7 UNDER TEST

:BR IF YES
sELSE LOAD RKO6 PARAMETERS

::GOTO NEXT TEST

2
¥

15
19

01
126

04=JAN=82

12:48

127 7 oou.s
12737

0126
12737 0017
18
012644
012737
140017
%3
12652
04
1

012654

000000

3423
3424

012660
012662

000000
000000

3422 015656 000000

FIND NEXT DRIVE TO BE TESTED

656 78:

MoV
MOV

MOV

MOV
BR

mss Le
weoo

mooir.msu

;LOAD RKO7 PARAMETERS
3:G0TO NEXT TEST

LC:

;LAST CYL

MASK1:
E.DDT:

0
O

;EXPECTED DRIVE TYPE TO E.A0

MASK:

SEQ 0067

lalal

CZR6JF P11

c IR6JF %ouaus RK6 DR= MCVH 30(1046) o:.-.m-az 13:06 PAGE 68

gg 012664

PFSRT:

SATEST 5

012664

012712

004737

104024

::ttttttQttttttttt.ttt"t"ttt't.Qtttt.t.t'tttttt't.tt't.tttt"t'

&
S

49
47
48
9

012720 012765

0127 g

012732
01
012742
012744

004737

012750
012752
01275¢
012756
012760
012762

006101
006101
006101
006101
006101
006101

3457

012766

042700

3456 012764 010100
012772
012776

026106

052700
110024

JSR

PC,SUBCLR

TYPE

000026

013006

MOV

3464

013006 004737 035400

:DRIVE SERIAL NO.
:SELECT BYTE 3

R1
R1
R1
R1
R1
R1

*INITIALIZE BIT POSITIONS

*GET SERIAL #
:GET ADDR CHAR BUFF
:STORE ON STACK FOR SSUPRS
*SETUP CHAR COOUNT

:GET NEXT 4 BITS

R1,R0

:GET WORKING COPY

#60,R0
RO, (R&)+

*CONVERT TO ASCII DIGIT
*PUT ASCII DIGIT INTO CHAR BUFF

R3
13

(R&)

JSR

PC.S$SUPRS

TYPE

LSCRLF

TYPE

:D0 SUBSYS CLEAR

*GET STATUS

DEC
BNE

;

;:60 TO NEXT IF NOT FIRST PASS

PC.GSTAT

#1%7760.R0

CLRB

gzgg

,MSG16

BIC

BIS
MOVB

105014

*CERR AFTER SCLR

HMR2,R1
#$0CTVL R4
R ,=(SP}
#3.R3

000060

MOV
MOV
MOV
MOV
18:

177760

*RESTORE STK PTR

#3.RKMR1(RS)

ROL
ROL
ROL
ROL
ROL
ROL

;200 1 ITERATION

#STACK,SP
$PASS
TST6

MOV
JSR

3460 01
005303
3461 013002 001364

3465

#1,$TIMES

ERROR

013701 825363
012704
03513
o1ou.g
012703 000003

3450
3451
3455
fi’
56
3455

gzsa
59

000003

SCOPE

MOV

MOV
ST
BNE

026436

l.f 812714. 104401 037424

IN BCD & IS PERFORMED ON THE 1ST PASS ONLY

TS1S:

3 012674 012706 001100
38 015700 005737 001216
39 012706 00104
40 omog

PRINT DRIVE SERIAL NUMBER

THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11

S 012666 ouggn?ug?'. 000001 001174
1

:ENTER HERE FOR POWER FAIL RESTART

;:tttt.t."'t't'..t.'t"""..t...t..t.t..t.!Qttt..tt't"'.t"'.'

,SCRLF

:CLEAR ALL BUT LOW & BITS

:BR IF ALL 3 CHARS NOT DONE

:ELSE INSERT NULL TERMINATOR

:TYPE

2s L2 333323 33333333133 3332323233333 3333333333333 3332233838332238222223%3

3‘75

S*TEST 6

013012

75 013014
;9 013022

012737
012706

000001
001100

013026

004737

026436

013032

000004

104024

001174

TS16:

SET VV WITH PACK COMMAND

IF WV 1S RESET, THE PACK COMMAND IS USED TO SET IT.

i it i i A I it 2223332323223 332222232322%1
ScoPE

MOV
MOV

#1,8TIMES
#STACK,SP

JSR

PC,SUBCLR

ERROR

::D0 1 ITERATION
:RESTORE STK PTR
:CERR AFTER SCLR

SEQ 0068

MACY11 30(1046) tg‘-JNbOZ 13:06 PAGE 69
12:48
FIND NEXT DRIVE TO BE TESTED

lalal

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=~JAN-82

81
86

013034
13042
1
013052

4 01

832737
1921
012765
013765

000100

004737

024446

000100

01 737 00000
104116

013076

032737

013106

104027

90
9%

g‘

01%102
013106

1
001

001001

005366

BIT
BNE
MOV
MOV

n.;V.WZ
TST
2:60 TO NEXT TEST IF vv SET
#CCLR,RKCST1(RS)
SUNIT ,RKCS2(RS) ;DRIVE #

JSR

PC.DOCMD

MOV

ERROR

005366

BIT

BNE
648:

#PACK ,HCST

sD0 PACK CMD & GET CONTR RDY

116

:CONTR NOT RDY

#D.VV, HMR2

ERROR

AR AR

sVOLUME VALID NOT SET AFTER PACK CMD

3495

3498

:'*

THIS TEST UNLOADS THE DRIVE TO BE TESTED NEXT,

33239

::TEST 7

ggg

3501

3502

013106

AR NI T AR RN AAR AN NARARAAAANNRRRAARRRARRRS

UNLOAD DRIVE TO BE TESTED

WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE.

:; AR AR AN AR AR A NN

3503
gggg

013110
013116

012737
012706

000001
001100

%ggg

013122

005237

3508
%g?g

013126
013132

3511
351%
3513
3514
gg}z

013134
013142
013146
013150
013154

001174

TST7:

SCOPE

R AR AR AR AN A AR R A AR ANAR RN ARRAAAANAAANRRY

MOV
MoV

#1,8TIMES
#STACK,SP

2:D0 1 ITERATION

005322

INC

UNLD

JUSED TO CHECK FOR VALID HALT

004737
104024

026436

JSR
ERROR

PC,SUBCLR
24

sCERR AFTER SCLR

012737
004737
104017
004737
194020

000007
024446

MOV
JSR
ERROR
JSR
ERROR

#UNLOAD ,HCS1
PC.DOCMD
17
PC,TSTATN
20

005340

025024

;DO UNLOAD CMD & GET CONTR READY
sNO RDY AFTER UNLD CMD
JNO ATTN AFTER UNLOAD CMD

3517
gg}s

.SBTTL OPERATOR INTERVENTION TESTS

3520

JINAARAR

R AN RN RN RN R AR

3523

THIS TEST VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS

gS 5
526

i
i

ggg;

::TEST 10

35%4

3527

MESSAGE A £ B,

i
A

WHEN THE DOOR IS OPEN OR THE CARTRIDGE IS REMOVED.
IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH

iggi

gsu
535

3536

013156

013160

013166

oooog«

0157 7

012706

INTERLOCKS TESTS

ARE OPERATING PROPERLY IN MESSAGE A0 & THAT THE REMOVAL

53§

RAN AN AN ANAARAARRAAAAAARRAARRARAR

3528

3529
3530

A AR

OF THE CARTRIDGE CLEARS VOLUME VALID.
IT FURTHUR VERIFIES AbL REMAINING STATUS BITS OF

WORDS 0 £ 1.

THIS TEST ALSO CHECKS THAT THE SPINDLE CANNOT BE STARTED

ASSERTS NON EXISTENT DRIVE IN RK(CS2

'-;ntnnnnnnnnnnnnnnttn"nttnnnunnnnnnn

000001

001100

001174

TS7T10:

Scope

MOV

#1,STIMES

#STACK,SP

2:D0 1 ITERATION

:RESET STACK PTR

SEQ 0069

CZR6JFO UNIBUS RK6 Dfi-g MACY11 30€1046) 04=JAN-82 13:06 PAGE 70
CZR6JF .P11
04=JAN-82 12:48
76
SET VV WITH PACK COMMAND

537
séa
81 172 004737 026436
g‘3

13176

104024

?‘1

013200

005237

001502

546

013210

104401

0435217

s:.g 013
545

0132164 004737 0
104401

gg?

013234

004737

3553
gss:.

013244
013250

104401
104%1

gss; 013240 104401
555

013254

004737

013302

104044

PC,SUBCLR
24

;CERR AFTER SCLR

INC

BYPCERR

:DONT DO CKCERR ROUTINE

TYPE

JSR

5529 013220 000137 01402
548 01 25'6 104401 omrg
549 013230

JSR

ERROR

104401 037127

JMP
TYPE

0406

TYPE

.nssg

fic ccsp

040130
0460625

TYPE
TYPE

.MS

JSR

:INPUT CONT=E
OR SPACE

*GET SPACE

MSG37

PC,GETSP

030452

:CONT=E TO EXIT OR SPACE TO CONTINUE

,MSG47

JSR

TYPE

; INTERLOCKS TEST

*RET HERE FOR CONT-E
:VERIFY DOOR CANNOT BE OPENED

030452

sagl.

SEQ 0070

.nsggs

PC,GETSP

*DEPRESS SPACE WHEN DONE

:DEPRESS RUN/STOP SW TO °*STOP'
:OPEN DOOR & LEAVE IT OPEN
*DEPRESS SPACE BAR WHEN DONE

:INPUT

SPACE

3556 013260 012;35
000026
3557 o132¢g 004737 026106
3558 o13§5° 032737 000200 005366
3559 013
001401

MOV
JSR
BIT
BEQ

#1.RKMR1(RS)
PC.GSTAT
#D.DOOR
, HMR2
1$

sseg 0133064 012737 000140 005430 18:
3563
013312 005037 005432
3564 013316 012737 000540 005434
;ssgg 013326 012737 000001 005436

MOV
CLR
MOV
MOV

#<D.DRA'D.VV>,E.A0 ;EXPECTED AQ
E.B0
#<D.HDHM'D.BRHM!D.CART>
,E.A1
# ,E.B1

issr

JSR

PC, CHKMSG

;CHECK MSGS A0,

ERROR
ERROR
ERROR

6
64

*MSH BO ERROR

:CERR AFTER SCLR

§552?

568

013332

013336

004737

3569 013340 1c8204Ccsn

025264

ERROR

LWORD

0'0'0

ERROR 45

3570 013342 104043

3571
gg

013344
013346

10406
104064

3576
32;2

013350
013354

004737
104024

026436

JSR
ERROR

PC,SUBCLR
24

577
3578
3579
gg?

013356
013
013366
013372

104401
104401
104401
004737

040260
040345
040625
030452

TYPE
TYPE
TYPE
JSR

,MSG33
.nscgl.
.MSG37
PC,GETSP

sc;
583
584
sggg

013373
013402
013410
013412

004737
032737
001401
104065

026106
010000

JSR
BIT
BEQ
ERROR

PC.GSTAT
#D.SPIN,HMR2
28
65

005366

:SELECT WORD1
;:DOOR STATUS BIT NOT CLEARED

:MSG A0 ERROR AFTER DRIVE UNLOADED & DOOR OPENED

:MSG A1 ERROR
:MSG B1 ERROR

:PRESS "RUN-STOP' TO °'RUN'
*VERIFY DOES NOT START
:GET SPACE FROM TTY

:SPIN SET IN MSGAO

587 013414

01§737 000140 005430 28:

MOV

#<D.DRA'D.VV>,E.A0

589

013426

157

MOV

#<D.HDHM'D.BRHM'D.CART>
E.A1

592

013442

JSR

PC, CHKMSG

588

gg?

013422

134

800

737

004737

543

540

025264

005434

005436

CLR

MOV

E.BO

BO, A1,

:8 MSGS SPECIFIED HERE

;EXPECTED MSG AQ

" E.B1

;CHECK MSGS A0, B0, A1, B1

oTM

MACY11 30(1046) N-JM—BZ 13:06 PAGE 71
12:48
110
INTERLOCKS TESTS

[V
)

EZWFO UNIBUS RK6 DR=3
ZR6JF.P11
04=JAN-82

Y11 30€1046) ?3~JAN-82 13:06 PAGE 72
INTERLOCKS TESTS

2;0!0

OHNNN

28ococo
ST 1,8] §....-.
2

——

,MSG35

;PRESS "RUN-STOP' TO 'RUN'
sVERIFY DOES NOT START

MSG37

fic.se TSP
-SPIN,HMR2

b e d oD ed

;SPIN SET IN MSG A0
5%:

:PRESS "RUN=-STOP® TO 'STOP®
*INSERT CARTRIDGE, SET 'RUN' SW. & CLOSE DOOR
MSG69

fic GETSP
PC,GSTAT

005366

005430

005434
005436

*VERIFY HEADS LOAD

:DEPRESS SPACE WHEN READY GOES ON
*GET SPACE FROM TTY
*FOR VALID HALT

sSELECT WORD 0

#D.VV, HMR2

004737
000000
104074

sGET SPACE FROM TTY

PC,GSTAT

005366

nNO

;CERR AFTER SCLR

RKMR1 (RS)

st
Gt

sSELECT WORD 1

=2
&SN

$
osroO

3
\IN§ £3& 333g% pEr
O 33 O
5!\)2

B
d
o

PC,SUBCLR

#CCLR,RKCS1(RS)

012737

;GET SPACE FROM TTY

sCARTRIDGE STATUS BIT NOT RESET

"MS634

B
b

;DEPRESS "RUN-STOP' SW TO STOP
;REMOVE PACK & CLOSE DOOR

UNLD

OO 0000

O000

phurPuurgury

OO0

.flsgg;

b e

OO00O000

RPR
2RER 28
g 2SRE
J 35

EFSRrE Ko

W
v
kb
s
2

FARR
4

W
WWNWW
W

—_—

OO
OO00O0
O000

ROK2S owmi;;:;;i'mzs

&
v

sCERR AFTER SCLR

#1,RKMR1 (RS)
PC.GSTAT
#D.CART ,HMR2

3s:

SPECIFIED HERE
E Rg AFTER ATTEMPT TO START SPIN £ DOOR OPEN
ERR
ERROR

ficGETSP
005366

;8 MSGS
:MS6
:MSH
:MSG A1

:MSG B1 ERROR

PC,SUBCLR

000026

SE3 0071

7$:

sVV NOT CLEARED AFTER PACK RE-INSERTED

J<DbbSC!D.SPIN!D.DRDY!D.DRA).E.AO

E.B

sEXPECTED AO

#<D.SPOK!D.CART!D.SSP!D.BRHM!D.DOOR>
E.A1

#1,E.81

PC, CHKMSG

9;. 0i0

;CHECK MSGS A0,

BO, A1, B1

*8 MSGS SPECIFIED MERE’

:MSG A0 ERROR AFTER PACK REINSERTED & HEADS LOADED

lalsl
NN

CIRNFO

CZR6JF.

RK6 DR=3

s04=JAN-

13714

~JAN-82

ERROR

10407

ERROR

379

ERROR

1
12765 1
1
137 ;
12
18
1
127
005
13746 004737 024446
13750

013752

0137

8} ;“

10417

032737

1001

000100

005366

027

013776
014006
70 guow
14012
014018
01402

PAGE 73

—

;MSH BO ERROR

:MSG A1 ERROR

*MSG B1 ERROR

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS) :DRIVE #
#PACK . HCST
PC,DOCMD
:DO PACK CMD & GET CONTR RDY

BIT

#D.VV, HMR2

BNE

ERROR

116
27

104024

INC
JSR

ERROR

UNLD
PC,SUBCLR

012737 000007 005340
004737 024446
104017
004737 025024
104020

MOV
JSR
ERROR
JSR
ERROR

#UNLOAD , HCS1
PC,DOCMD
17
PC,TSTATN
20

8s:

SEQ 0072

MoV
MOV
MOV
JSR

ERROR

013764 005237 005322
mgm 004737 026436
013774

13:06

INTERLOCKS TESTS

075

1 7;3 1
13720

MACY11 30(1046)

*CONTR NOT RDY

;VOLUME VALID NOT SET AFTER PACK CMD

;FOR VALID HALT
:CERR AFTER SCLR

;DO UNLOAD CMD €& GET CONTR READY
*NO RDY AFTER UNLD CMD

:NO ATTN AFTER UNLOAD CMD

32 L2 3332233333333 3333332323223 3332333 3833223332232 23232322322222222222%3

SATEST 11

nus TEST VERIFIES THAT WHEN THE UNIT ssmr n.us IS PULLED

e
w
i
i

FURTHUR, THE OPERATOR IS ASKED TO INSERT ANY NUMBER OF
UNIT SELECT PLUGS. THE PROGRAM WILL RESPOND BY TYPING
THE PLUG CODE NUMBER AS SOON AS IT IS INSERTED.
THIS PORTION OF THE TEST IS TERMINATED AT ANY TIME BY A CONT-E

014020

UNIT SELECT PLUG TEST

, THE QUAL LOGIC RESETS ATTN & VOLUME

‘ 'ttttlttttttttttttt"t"tttt.t..lttttti't..ttlttttt.tt'.ttt"tt

000004

ou.ogs 81 737 000001

SCOPE

MOV

#1,8TIMES

JSR

PC,SUBCLR
24

:CERR AFTER SCLR
;UNIT SELECT PLUG TEST

12706

014034

004737 026436

0164042

104401

srsog

TYPE

,MSG18

014052

004737

330415

JSR

fis CCSP

700 811.8% og¢7§7

6106

014040
014

703

704

014074
014102
014106

MOV

104024
106401

g' 014056 000137
99 014
012765

701
702

001100

t8711:

001174

8 0140
35

032737
001001
104114

THAT

ms ‘DRIVE os-saects € NON EXISTENT DRIVE Asssirs.

ERROR

04201

TYPE

#STACK, SP

MSGS2

:D01 ITERATION

hesme STACK PTR

:CONT=E TO EXIT OR SPACE TO CONTINUE

:INPUT CONT=E OR SPACE

01465
20 000026

JMP
MOV

12§
#PAT ,RKMR1(RS)

*RETURN HERE FOR CONT-E
;EVEN PARITY TO GET DSC & ATIN

001000

BIT
BNE

#D.PAR,HMR3
28

:SEE IF PARITY SET
*BR IF YES

JSR

005370
|

ERROR

PC,GSTAT
114

*PARITY BIT NOT SET AFTER SEL DRIVE CMD

*WITH EVEN PARITY ISSUED.

o
~NN

CZR6JF

CIR6JF.PI1

12:48

004737
12765

s
w

22
2
§

§J3

000401
10611

014236
014242
0142
014252

104401
104401
104401
013746

014256
014260
014261
014262

104403
001
000
104401

749

014266
014272

005037

18:

3715

Gates?

04%7;7
005737
0014 ;
0237
14 9
02372
1
8887 7
137
104401
105037

#D.DSC,HMR2
1$
107

00000
026106
25024

04353;

0306§

sSEE IF DSC SET
;DSC NOT SET AFTER SEL DRV WITH EVEN PARITY

PC,GSTAT

115

sNO ATTN AFTER SEL DRV WITH EVEN PARITY

,MSG9
MSG37

sREMOVE UNIT SELECT PLUG

:DEPRESS SPACE WHEN DONE
:GET SPACE

#CCLR,RKCS1(RS)

PC,GSTAT

PC.TSTATN

38’

100000
026106
010000

SEQ 0073

#CCLR,RKCS1(RS)

ficGETSP

3s:

35‘&2{2?‘51‘“”

zSTURNHERE FOR SPACE

:REMOVING UNIT SEL PLUG, DID NOT

:DISABLE ATTN.

#NED ,RKCS2(RS)

000010

4
112
4$:

060671
041027
00
001222

,MSG67
PC,GETSP

HuGSB
639

s INSERT UNIT SELECT PLUGS
:DEPRESS CONTROL-E WHEN FINISHED

$TKQSRT
$TMPO
PC,STKINT

STKOSRT $TMPO
0*c<177> $TMPO
$TMPO
63
$TMPO 45
vy
¥7n90.03

138:

sASSERT NON-EXISTENT DRIVE

DESELECT ALL OTHER PORTS
TYPE SPACE WHEN DONE
GEY SPACE

0
+SCRLF

5$:

sREMOVING UNIT SEL PLUG DID NOT

MSG37

iunxr -(SP)

105037

;28 014276 004737
749 014;0% 1137;7

BIT

PC.TSTATN

104113

401
004737

814%1
014 Ig
816 ¢2
14326
014332
014334
14342
14344
014350
014354
014360

2s:

N
N

LY —

)
P e R

N BB

purPurd

.‘..: c:?E&JIEVR B8RS

000

Bk
b

OO00O

1
§1
104401

OO000O

127

0142
014226
014232

750
751
75
75
754
755
75
75
758
759
760

005366

§§7§§ 000000
737 035006

=2k B

OO0000

16 104107

040000

032737

13:06 PAGE 74
T?? ~JAN-82
UNIT SELECT PLUG TEST

MSG31

$TKQSRT

SEXIT WITH CORRECT UNIT SELECT PLUG #

::SAVE SUNIT FOR YPEOUT
;s TYPE CORRECT#
::G0 TYPE--OCTAL ASCII
::TYPE 1 DIGIT(S)
: ;SUPPRESS LEADING ZEROS
sCLEAR PREVIOUS INFO

sGET CHAR IF THERE
sGET RID OF JUNK, IF ANY
sBR_IF NOTHING TYPED YET
;SEE_IF CONT-E
:BR IF YES
: SEE IF CONT=-C

IF NO
:BR
.ENABLE KB INT
sELSE DO VALID HALT
9

TMTM

MACY11 30(1046)

~NAN

gee
2

CZIR6JFO *NIUUS
RK6 DR

CZR6JF .P11

014364

pom oo 1
000000
0144
1
; e
16406
0127
014

005

014412
164616

737
104117

770
771
77;
77
776

8164
014426
0144
0144%%
0144

777
778
779

014442
014450
014452

765
769

767
;gg

;;2

3780
781
78§
783
;gg

2786
787

014440

014460
014464
014472
014476
014500
014502
014504

000001
024446

005340

032765
001405
32
0 00;
1355

010000

000010

032737
00131;
01276

000100

000716

010065
012737
004737
104116
010046

100000
000010

000003
024446

792

014514

004737

033416

795
§796

014534
014542

012737
004737

001222
000001
024446

106117

100000

014560

014564

104401

013746

3804 14570 104403
i e
o
81657

000

BIT
?'e‘g

#NED ,RKCS2(RS)
33

;SEE IF UNIT SELECT PLUG INSERTED
:8 IF MATCH DRIVE NO IN CS2. BR IF YES

CMP
BNE
BR

RO,#8.
78
5s

;ALL 8 DRIVE NOS TRIED?
*BR IF NO
*ELSE RETURN

BIT

#D.VV,HMR2

BNE
MOV
MOV
MOV

g
;TYPE SAME UNIT SELECT PLUG RDY ONCE
#CCLR,RKCS1(RS)
RO.RKCS2(RS)
:DRIVE ADDR
#PACK ,HCS1

ERROR

116

3809
3810
}1

814602
14606

004737
104024

026436

14
15
16

014614
014622
0146246

032737
001005
104401

000100

15 014610 004737 026106
041072

§s

JSR

005366

S:TYPE 1 DIGIT(S)
*:SUPPRESS LEADING ZEROS

PC ,DOCMD

;DO SELDRV (STATUS) CMD & GET CONTR RDY

#NED ,RKCS2(RS)
108

;SEE xr CORRECT PLUG FOR EXIT
*BR IF YES

117

MSGSS
SUNIT,=(SP)

.BYTE
BYTE

1
0

§s

JSR

PC,SUBCLR

JSR
BIT

PC,GSTAT
#D.VV,HMR2

TYPE

,MSG40

BNE

*;SAVE RO FOR rmour
*:TYPE UNIT SEL PLUG NO.
::60 rvpe--ocm ASCII

;ENABLE KB INT

ERROR

;D0 PACK CMD & GET CONTR RDY

*CONTR NOT RDY

PC,STKINT

#CCLR,RKCS1(RS)
SUNIT.RKCS2(RS)
#SELDRV,HCS1

TYPE

108:

$CRLF

MOV
MOV
MOV

TYPE
MOV
TYPOS

041027

RO,=(SP)
1
0

BIT
BEQ

042300
001222

PC,DOCMD

BYTE

JSR

§799
014550 032765 010000 000010
3800 014556 001411
§381

*CONTR RDY NOT SET

JSR

9%:

ERROR 17

TYPE

000000
000010
005340

PC,STKINT

occu RKCS1(RS)
RKCS2CRS)
:DRIVE NO.
csémv
HCS1
ocMb
:DO SELDRV (STATUS) CMD & GET CONTR RDY

.BYTE

001205

014546

005340

SEQ 0074

MOV
MOV
MOV
JSR

MOV
TYPOS

104401
000671

;3;

005366

104403
001

01;765
013765

JSR
CLR

000010

014505
014506
014512
0145
014526

~JAN-82 13:06 PAGE 75
UNIT SELECT PLUG TEST

033416

3788
3789
3;3?
3793
2796

T??

MSG39

*CONT NOT RDY AFTER SEL DRV CMD

sxn unn comcr UNIT SELECT PLUG NO.
E SUNITFOR TYPEOU
..I’YPE conascr um SEL ch P

+:60 TYPE=-OCTAL ASCII

..m'e 1 DIGIT(S)
SUPPRESS LEADING ZEROS

bmsss CONT-E WHEN DONE
;CERR AFTER SCLR

:VV NOT SET, INSERT UNIT SELECT PLUG

12:48

;E%
763

004737

MACY11 30(1046)

CZR6JFO UNIBUS RK6 DRCZR6JF .P11
04=JAN-

UNIBUS RK6 DR=3

P11

04=J

MACY11 30(1046)
12:48

04=~JAN-82

17 gu.ego 104401 041027
}3 14634 000620

u.ssg 104401
14642 104401
uu.g

01465

004737

srsg
oeg

118:

030452

128:

13:06

PAGE 76

UNIT SELECT PLUG TEST

SEQ 0075

TYPE
BR

MSG39
£y

:DEPRESS CONT=E TO EXIT TEST

TYPE
TYPE

,MSG71
MSG37

:SELECT CORRECT PORT ON OTHER DRIVES
:TYPE SPACE WHEN DONE

JSR

PC,GETSP

*GET SPACE

:;ttt'tttttttttttttt..t't"ttt'ttQt.t.tttt't'tlttit'.'.ttttttttt.

SATEST 12

i
i
i

014652 oooogl.
014656 012737 000001

PORT SELECTION TESTS

THE OPERATOR IS ASKED TO SWITCH TO THE WRONG PORT

€ THEN DESELECT BOTH PORTS.
IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2

:';tttttttttttlttttttt'tttt'.ttttttt.tt.tt.ttttt.tttltt.ttt'.tttt'

SCOPE
MOV

#1,STIMES

014666 004737 026436
014672

104024

JSR

PC,SUBCLR
24

:CERR AFTER SCLR

014674
014700
014704

104401
104401
004737

03753
04201
030412

TYPE
TYPE
JSR

JMP

,MSG19
.MSGS2
PC,CCSP

:PORT SELECTION TESTS
:DEPRESS CONT=E TO EXIT OR SPACE BAR TO CONTINUE
:INPUT CONT-E OR SPACE

*RETURN HERE FOR CONT-E

014714

104401

041204

TYPE

,MSG41

;SWITCH TO OTHER PORT

014726

004737

030452

JSR

PC,GETSP

*GET SPACE

014730

004737

026106

014662 012706 001100

001174

TST12:

MOV

ERROR

014710 000137 015070
014720

014734

104401

032765

014742 001001

040625

010000

014744

104122

014746

104401

041264

014762
014766

004737
104024

026436

014770
014776
015000

032765
oou%
1041

010000

015002
otsoos

104401
104401

04134
ocg

TYPE

015012

004737

3304 2

032765

010000

og:.r 7

015030

001001

015022

026106

000010

28:

000010

MSG37

::001 ITERATION

*RESTORE STACK PTR

*DEPRESS SPACE WHEN DONE

PC,GSTAT

BIT

#NED ,RKCS2(RS)

ERROR

122

:NED NOT SET AFTER WRONG PORT SELECTED

BNE
18:

014752 104401 o«osgs
014756 004737 030452

01501

JSR

000010

#STACK,SP

TYPE

TYPE
JSR

.nscl.;

MSG3
PC.GETSP

:SELECT CORRECT PORT

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

BIT
BEG
ERROR

#NED ,RKCS2(RS)
2
130

.
;NED NOT CLEARED AFTER CORRECT PORT SELECTED

TYPE
TYPE

,MSG43
MSG37

:DESELECT BOTH PORTS
:DEPRESS SPACE BAR WHEN DONE

JSR

PC,GETSP

BIT

#NED ,RKCS2(RS)

JSR

BNE

PC.GSTAT

:DEPRESS SPACE BAR WHEN DONE
*GET SPACE

E;z
75
;9

;3
1

015032

104133

15034
15040
015044

104401
104401
004737

04137§
8406§
30452

015050

004737

026436

015056

104024

38:

010000 000010
Q0j4et
01308
g% 015066 ?841 50
7

015070

015102

gg&

3890
3891
gggg
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
%906
905
§906
907
3908
3909

012765

01 SO?S

004737

0151 1g
015112
015116
015122
015126

001407
104401
104401
004737
000760

032765

100000
026106
010000

133

:NED NOT SET AFTER BOTH PORTS DESELECTED

TYPE
TYPE
JSR

,MSG44
.MSG37
PC,GETSP

;SELECT CORRECT PORT
*DEPRESS SPACE BAR WHEN DONE

JSR
ERROR

PC,SUBCLR
24

BIT

#NED .RKCS2(RS)

ERROR

130

000010

MOV

TST1$

PC,GSTAT
#NED .RKCS2(RS)

TYPE
TYPE

,MSG&S
MSG37

JSR

::GOTO NEXT TEST

*NED NOT CLEARED AFTER CORRECT PORT SELECTED

#CCLR,RKCS1(RS)

SR
IT

BEQ

;CERR AFTER SCLR

TST1$

::GOTO NEXT TEST

:CORRECT PORT NOT SELECTED, TRY AGAIN
:DEPRESS SPACE BAR WHEN DONE

PC,GETSP
4

.ttttttttttt...t.ttt'tt"'tt.t...tt.ttttt.tttttt'.".'ttt'.tt'.

:resr 13

i
i
i
i
i
3

015130

hesroas STK PTR

026436

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

104401

037563
042017

TYPE
TYPE

g
.MSGS52

:AC LOW TEST
:CONT=E TO BYPASS TEST

004737
0001

03041
01544

JSR
JMP

PC,CCSP
10§

:INPUT CONT=-E OR SPACE
*RETURN HERE IF CONT-E

097709 005376 12::
0261
1$:
30000 005340

CLR
MOV
JSR
g££

TEMP2
#-1,TEMPI
PC,GSTAT
ggéna HCS1

:SETUP TIMEOUT

005376

DEC

TEMPI

737
104024

916

015152

919
920

015162
01 5163

81 5 Os
01521
015214
015 52
0152264

TST13:

#STACK,SP

015144
015150

955 015176

A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED.

BATTERY RETRACT WILL BE TESTED LATER.
ACLO CANNOT BE TESTED DIRECTLY SINCE IT REQUIRES SECTOR PULSES
1.E. HEADS LOADED.
THEREFORE THE INDICATOR CHECKED IS NON-EXISTENT DRIVE (NED)
ASSERTING IN RKCS2 AS A RESULT OF DCLO.
AFTER POWER UP, VOLUME VALID IS CHECKED TO BE CLEARED.

#1,STIMES

3913
§3}'§

015172

PART 1

SCOPE
MOV

000001

015156

AC LOW DETECTION

:.ltttttttti'Q'ttttttt"..Q"Qt..t'ttt'ii.tttltt..".t'.'tttfi'..t
012737
012706

924
925
926
927
928

4$:

030452

015132
015140

321

ERROR

BEQ

041422
040625

910
gr

8}‘

000000

SEQ 0076

104401

5037

12737
7
032737
00101 ;
00533

001100

001174

04155

MOV

TYPE

,MSG49

:D0 1 ITERATION

:OR SPACE TO CONTINUE

:TURN OFF AC(RET HERE IF SPACE)

L
MACY11 30(1046) ?‘-JM-BZ 13:06 PAGE 77
12:48
T2
PORT SELECTION TESTS

FUF‘

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P1N
04=JAN-

1367

1; %6

:.3

15250

15256
15

15553

7
7

001356

104.14.9

005400
005400

013737

001432

737

026106

BNE
000002

765

010000

INC
P .

TEMP
rsm M2

;SEE IF GONE THRU 2 TIMES

ERROR

*CERR NOT DETECTED BEFORE TIMEOUT

BNE

12$

005376 3$:

MOV

#CCLR,RKCS1(RS)

000010

BIT

#NED,RKCS2
(RS)

01 723 1oooos 000000 4$:

JSR

BNE

o1s§8"e 104.??3
58:

SEQ 0077

TEMP1

‘BR IF NO

PC,GSTAT

ERROR

150

;NED NOT SET BEFORE TIMEOUT

TYPE
TYPE

,MSGS0
.MSG70

;SWITCH AC BACK ON
*VERIFY HEADS LOAD
*GET SPACE

015310
015316

104401
104401

041626
043724

015326

004737

030452

JSR

PC,GETSP

015330
015334

004737
104024

026436

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

015336

032737

000200

BIT

#D.DRDY,HMR2

:SEE IF LOADED

015346

104141

ERROR

141

*DRV NOT RDY AFTER AC UP

015320 1ou.g1 043647

015344 001001

015350 005037 005322
015354
015362
015364

032737
001401
104152

000100

TYPE

005366

005370

015396 032737 000100 005366

015374
015376

001401
104153

015400

015400 015765 100000 000000

BNE
68:

7$:
8$:

015406 01 7gs 00122% oooglo
015414 012737 000003 005340
015422

004737

024446

015430

032737

000100

15440

104027

015426

104116

815636 001001

015442
015442

CLR

BIT
BEQ
ERROR

BIT

BEQ
ERROR

MOV

UNLD

#D.ACLO,HMR3
78
152

:BR IN YES

:FOR VALID HALT
;ACLO NOT RESET AFTER POWER UP

#D.VV,HMR2
8%
153

:VV NOT RESET AFTER POWER UP

#CCLR,RKCS1(RS)

SUNIT.RKCS2(R5) :DRIVE #
#PACK _HCST

ERROR

116

BIT

BNE
64$:
108:

*PRESS SPACE AFTER READY ON

MOV
MOV
JSR

005366

.MSG69

ERROR

PC,DOCMD

;D0 PACK CMD & GET CONTR RDY

*CONTR NOT RDY

#D.VV,HMR2

4$
27

:VOLUME VALID NGT SET AFTER PACK CMD

;:t'ttttttllttttttttttt'ttt'tt.tllltttt"tlttttttt'tt'.ttt..ltt.'

S+TEST 14

CHECK NXF LOGIC

980

: 'ttttttttl'tttttttttt'tttttttt!ttt..tt.tttttttttttt.!tt.ttlttttt

981

984

015442

000004

TST14:

THIS TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED

AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET.

SCOPE

~NN

1
15

15
15

MACY1? 30(1046) 04=JAN-B2 13:06 PAGE 78
12:48
713
AC LOW DETECTION PART 1

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11T
04=JAN-82

R6JFO UNIBUS RK6 DR-3

R6J F.PN

MACY11 30(1046)

M-Bg 12:48
7?2
001174
R 801700

04=J

004737

104024

~JAN-82

026436
010000

005366

OO0

005322

e
i

o
o
®

026436
037624
2017
30412
016070

JSR
ERROR

PC,SUBCLR

CERR AFTER SCLR

BIT
BNE

#D.SPIN,HMR2
648

SEE IF SPINDLE ALREADY ON
BR IF YES

MOV
JSR
ERROR

#SRTSPL ,HCS1

MoV
JSR
ERROR

7100, TEMP2
PCFATT1

CLR

UNLD

CLR

UNLD

JSR
ERROR

PC.SUBCLR

CERR AFTER SCLR

TYPE

Nooes
PC,CCSP

NXF TEST
PRESS CONT-E TO EXIT OR SPACE TO CONTINUE
INPUT CONT-E OR SPACE
RETURN HERE FOR CONT-E

JSR
JMP

#STACK,SP

,MSG29

PC,DOCMD

145

144

,MSG

—h

RIRR

DO START SPINDLE CMD & GET CONTR RDY
CONTR RDY NOT SET AFTER CMD
FIND ATTN

NO ATTN AFTER CMD

GET SPACE

PC,.GSTAT

005366

g.vv.mz
177
78

016070

0000

1$%:

VV NOT CLEARED AFTER UNIT SEL PLUG

EXIT TEST

000109

016070

23
155
78

026436

PC,SUBCLR

el b b

PLEASE WAIT, HEADS BEING LOADED

REMOVE UNIT SELECT PLUG TO CLEAR VV
PRESS SPACE WHEN DONE

JSR

#D.VV, HMR2

i
005376

:D0 1 ITERATION

RESTORE STACK PTR

FOR VALID HALT

TYPE
TYPE

005366

SEQ 0078

#1,STIMES

MOV

TYPE

KRR

—

648:

MOV

[=1=]

005400

005322

—_-0

b
b ed
edadad

000

ebdaded
bl

v
Vil
il
VIV

edededed

O0O00
OO0
O000O0

005340

PAGE 79

CHECK NXF LOGIC

TYPE

Vi
[+ ]
e

L 22
O 0 2
000

1
1
1
1

R RREnRERSS88885

40 1
40 1
1

FSEE L RS> &5 FFRE 3INR &S

i
iviavane

001426
025056

00O

000011
024446

OO0

0460064

13:06

VV SET AFTER HEADS LOADED
EXIT TEST

CERR AFTER SCLR

#1,RKDC (RS)
S EEK CMD & GET CONTR RTADY
:NO RDY AFTER SEEK CMD

1§1
750000 TEMP1

FATT2

FIND
A ATTN
IND
;NO ATTN AFTER SEEK CMD

C2
cz

32737

000200

005370

BIT

BNE
ERROR
JMP

3s:

[=lelele)

050240

S55523

2222 %

025264

N=N

016070

001400

4$:

001920
aae

W -nuuoo« W VIOWON

SN
ON

N
O\NNWVWWA

S22
£38

N=N

000100

005366

=SNNNN

—_—

100000
00122%
00000
024446

#D .NXF ,HMR3

BIT
BNE
ERROR
JMP

#D.FLT HMR3
43
172
78

sNXF DID NOT SET FAULT
SEXIT TEST

Mov
MOV

#<D.DSC!D.SPIN!D.DRDY!D.DRA>,E.A0
#<D.NXF!D.FLT>,E.BO

JSR

PC, CHKMSG

ERROR
ERROR
ERROR

161
16
16

;EXPECTED A0

#<D.SPOK !D.CART!D.DOOR!D.BRHM!D.SSP>
,E . A1

;CHECK MSGS A0, B0, A1, B1

T.A2'T.B2'0
160

-8 MSGS SPECIFIED WERE
:MSG A0 ERROR AFTER SEEK WITH vv=0
*MSH BO ERROR
‘MSG A1 ERROR
‘MSG B1 ERROR

ngo

ERROR

157

;HEADS MOVED WITH SEEK & DXF

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

MoV

SUNIT.RKC?Z(RS) ;DRIVE #

ERROR

116

BIT

#D.VV,HMR2

ERROR

BEQ
5$:

BNE

S1(RS)

658

;D0 PACK CMD & GET CONTR RDY

*CONTR NOT RDY

:VOLUME VALID NOT SET AFTER PACK CMD

78:.
:: L 233 332233323333 32333333333 3333 3333333333333 333232328322228222%3

SATEST 15

i
e

READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO7)., TRACK 2 CAN BE READ.
THIS AREA CONTAINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE

FACTORY DURING MANF.

ALL BAD SECTOR INFOR (BSE) WILL BE STORED

AT THIS TIME TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS.

i
i*

SECTORS 0,2,4.6.8 couugu IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC
SECTORS 10,12.14,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECTOR SOF TWARE DETECTED

IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INFO

e
e
v

IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED,
A MESSAGE WILL BE TYPED INDICATING THAT ALL
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED.

oTM

SEQ 0079

sNXF NOT SET AFTER SEEK WITH vv=0
SEXIT TEST

LWORD
ERROR

026436

156
78

MOV

000001

& §°°° - g 238

OSSO

000400

016070

e
B

MACY11 3001046) 04~JAN-82 13:06 PAGE 80
12:48
T14
CHECK NXF LOGIC

0001

O
1%
— )

b d ek D
b

oD B

O0O0O0

e STt IO S

ViV

O0O0O0O0O0O0O00

et e

OO0

e e

OO000O0

— d B d

OO0O00O0

32737

g2 g2 ga¢ $8883Y T SRR
g23g 22SRS
NNNN g&l

O00O0

R
e

QOO0

UNIBUS RK6 DR=
LN
04=JAN-

I
04=JAN-82

12:48

13:06

PAGE 81

READ © SAVE BAD SECTOR INFO & TYPE PACK SERIAL #
SEQ 0080
THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRITING

2%3

THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY.

‘101

: A3 3133333333233 332223232333 3333233333333 33133333323223222223¢%1

“m

4102

0160

ooogg&

4103 01607
213‘5’ 0161
4.109 016106
4107
016110
4108 016112
4109 016116

815 7
12706
004737
104024
005037
005037

000001 001174
001100
026436
005400
005402

411;
4113
4114
2”2

o1§n7
013765
o1§7 7
013765

oogsglz.
005404
001000
005406

T15:

SCOPE

MOV
MOV
JSR
ERROR
CLR
CLR

#1 ,STIMES
#stACK,sP
PC.SUBCLR
24
TEMP
TEMP

MOV
MOV
MOV
MOV

#BSE22H,TEMP4
TEMP4 ,RKBA (RS)
#1000, TEMPS
TEMPS _RKDA(RS)

4117 016152 013765 o1;esl. 000020 1$:
4118 016160 012765 177400 ooooos
4119 016166 01 7§7 000021 00534

MOV
MOV
MOV

LC ,RKDC (RS)
;LAST CYL
#-256. ,RKWC(RS) :LOAD WORD CT
#RDDATA, HCS1

4121

ERROR

226

0161
016130
0161
016144

4120

016176

004737

024504

412§

016202

004737

026106

016214
016216

001470
106227

4123

4126
fi%z

016200
016206

104;26

032737

100000

005404
000004
005406
000006

005340

JSR

::D0 1 ITERATION
*RESTORE STK PTR
;CERR AFTER SCLR

*SECTOR CTR
:0=22 SECTOR MARDWARE DETECTED TABLE

"}:o mgectoa SOF TWARE DETECTED TABLE
:

:STORE 22 SECTOR HARDWARE BSE ADDR.
:TRACK 2, SECTOR 0

PC,DATCMD

:DO READ DATA CMD & GET CONTR RDY

JSR

PC,GSTAT

*GET FRESH DATA

BEQ
ERROR

4k
227

BIT

#CERR,HCS1

*NO RDY AFTER READ DATA CMD
;CERR AFTER READ DATA CMD

4127 016220 012737 010340 005430

MOV

#<0'D.SPIN'D.DRDY!D.VV!D.DRA>,E.A0

6129 016232 012737 001720 005434
4130 016240 012737
005436

MOV
MOV

#<D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>
,E.A1 :EXPECTED Al
#
E.B1
:MSG ID FOR sx:scm MSG B1

4128

ouzge

005037

005432

4131

4132 016252 012737 ooooo; 005442
2};{ 016260 012737 000003 005446

01624.3

005037

005440

MOV
MOV

0;.5.3
#3.E.B

4135

016266

004737

025264

JSR

4137

016274

104054

4139
4140
4141
mg
4143

016
016302
8163«
16 13
01631

104056
104029
004737
1o:.o§l.
oos; 7

01834

58‘01?4

4150

016340

104167

4136 012572 000000

CLR

LWORD

ERROR

4138 016%8 104026

ERROR
026436
005400

4144 016316 023727 005400 000005
4145 816324 oo1ogr
mg 163;6 8857 7 005402
414 8163 2
1oo§
fl?}

016342 000412

:EXPECTED MSG BO

*EXPECTED MSG

PC, CHKMSG

:CHECK MSGS A0,

0'0'0

:MSG A0 ERROR AFTER READ DATA CMD

*MSH BO ERROR

‘MSG A1 ERROR
‘MSG B1 ERROR

s:aoa
ERROR

BO, A1, B1

*8 MSGS SPECIFIED MERE

56
30
PC,SUBCLR
24
TEMP

:EXPECTED MSG AO

*MSG ID FOR EXPECYED MSG B
*MSG ID FOR EXPECTED MSG B

ERROR
ERROR
JSR
ERROR
INC

(MP
BNE
ST
BNE
28:

E.80

;CERR AFTER SUBCLR

TEMP2,#5
5$
TEMP3
28

;READ ALL S SECTORS?

;25

;CANT READ SECTORS 0.2.4.6.8

167

;CANT READ SECTORS 10,12.14,16,18,20

CZR6JF .P
4097

MACY11 30(1046) '??JM'BZ

lala

CZR6JFO filws RK6 DR=3

ol.-.sm-ag 12:48

UNIBUS RK6 DR=3

04=JAN-82

58:

MoV
ADD
MOV
B8R

rsm RKBA(RS)
¥ r;fips
r;b LRKDA(RS)
1

:RESTORE TABLE ADDR
:SETUP TO READ 2 SECTORS FROM LAST

38:

INC
BR

BSERR
rsns

:SET BSE FLAG
::60 TO NEXT TEST

BEQ
TYPE
INC
BR
INC
CMP
BNE

93
MSGS56
BSERR
108
TEMP3
TEMP3,
M
10$

*BRANCH IF DATA CARTRIDGE
*ALIGNMENT CARTRIDGE USED
:SET BSE ERROR FLAG

MOV
MOV
MOV
MOV
JMP

#BSE22S,TEMP4
TEMP4
, RKBA (RS)
#1012, TEMPS
TEMPS . RKDA (RS)
1$

TST

$PASS

BNE

138

002322

MOV

#BSE22H,~(SP)

TYPE

.SCRLF

4153
6156
4155
2}29

016
01635
016
16

4158
4159

016370 883 7 001474
016374
1

4161
4162
4163
2}2;.
616?
416
4168

016402
016404
016410
016414
ow.tg
omgo
0164

4170
6171
4172
4173
2};45.

016436
016446
01645
01
016466

4160

4169

016 73

016432

1 72;
7
1795
1

t?'s'

MACY11 30(1046)

005737

001405
1044.21
005237
000426
oos;sr
023727
00109

0050

o1§737
013765
o1§737
01 725
000137

5406
2
406

002330

8s:

042
001474

00540
005402
56

003322
005404
001012
oosaog
01615

000001

98:

108:

4178

4179 016476 001014
4180

016500

104401

037450

4182
4183
4184

2}32

016510
016514
014520

016526

004737
004737
104401

104401

035030
035400
001205

001205

4187
4188

016530
016534

004737
104024

026436

4191

2}3‘

4181

2}?,8
4.195

016506

012746

13:06

TST

CLR

005404
000004
005406
000006

2};9 016472 005737 001216

READ € SAVE BAD SECTOR INFO & TYPE PACK SERIAL #

TYPE

JSR
JSR
TYPE

BSE22H+6

MoV

#SEEK ,HCS1

016550

ERROR

131

4195 016552

104131

JSR

;TRACK 2, SECTOR 12

sREPEAT
;TYPE CART # ONLY ON 1°ST PASS
*CART SERIAL #

PC,$DB20
PC.$SUPRS
,SCALF

016536 012737 000017 005340
024446

:STORE 22 SECTOR SOFTWARE BSE ADDR

,MSG17

PC.SUBCLR
24

004737

*TEST CARTRIDGE TYPE

rsms

JSR
ERROR

016546

138:

PAGE 82

:CONVERT DBL BINARY WORD TO OCTAL
:TYPE SERIAL #

:CERR AFTER SCLR

*RETURN TO CYL 0

PC,DOCMD

:DO SEEK CMD & GET CONTR READY

*NO RDY AFTER SEEK CMD

4196
2}3;

016560
016564

004737
104132

013737 ooms
02515

005376

MOV

JSR
ERROR

P§ FATT2
132

750000, TEMP1

;SETUP TIMEOUT

4199
4200
2381

016566
016574
016576

032737
001401
104210

100000

005340

BIT
BEQ
ERROR

#CERR,HCS1
64$
210

:CERR AFTER SEEK CMD

4.zo§ 016600
o508

‘2

’4’583

64$:

22 L 3232333323223 3333333222333

S*TEST 16

SFIND ATTN
*NO ATTN AFTER SEEK CMD

333 3333323323331 3323233322323322232222¢23

WRITE LOCK TEST

SEQ 0081

alal

CZR6JFO

CZR6JF P11

'g%
=3

NN NN
b b cd o o D e o cd d
PINININD
VNN
=
VRN
NS WNN=O

BEEEDBDDEDEDEDN
SN

UNIBUS RK6 DR=3 MACY11 30(1046) 04-JAN-82 13:06 PAGE 83
M
04-JAN-83 12:48
116
WRITE LOCK TEST
i

THIS TEST VERIFIES THAT DATA WRITTEN ON A SECTOR CANNOT BE

e
i
i

016600 oooogl.

016614
737
ong 00140
016622 000137

001474
021450

0166%6
016632

104024

737

026436

016634

104401

037705

104401
004737
000137
004737

016666
016670
016676
016700

001416
104401
104401
004737

ALTERED ONCE THE WRITE LOCK SWITCH HAS BEEN ENABLED.
IT ALSO CHECKS THAT WRITE PROTECT TAKES CFFECT ONLY
A
SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL o HEAD 0

. CHARRRARARAARAARAAAANARARERARARANAAAAANAAAAAAAAAAAAAAAAAAAAAAANAEY

816608 012737 000001 001174
16610
01 7% 001190

016640
016646
016650
016654

T16:

158:

042017
030412
021450
026106
042120
o«osgs
030452

016704 oougr 026106
016710
16716
16720

032737
001402
104110

004000

016724

005037

001366

18:

005366

28:

016736 005037 00144
016740 005037 001450
004737

016750 012765
016756 omgs

027420

168:

001506 000004
177676 000002

0167

337

00144

016776

337 00144

016770 01 7gs 001442

#1,8TIMES
#STACK,SP

ST
JMP

a
SERR
158
128

JSR

PC.SUBCLR
24

;CERR AFTER SCLR

TYPE

,MSG24%

;WRITE LOCK TEST

ERROR

MSGS2
fis CCSP
12§
PC.GSTAT

BIT

#D.WRL , HMR2

JSR

PC,GSTAT

BEQ
TYPE
TYPE
JSR

2s
.nssss
.MSG37
PC,GETSP

CLR
CLR

HEAD
FORMAT

*FILL HEADER TABLE
*ROUTINE

JSR

PC,FHDTAB

:BUILD STD 22 SECTOR HEADER TABLE

MOV
MOV

#HDTAB,RKBA(RS)
#-66. ,RKWC (RS)

CLR

SWAB

CALADD

HEAD

MOV

cmum>.ncs1

017014

ERROR

200

026106

owogo

032737

017032

104201

017030

017034

001401

100000

JSR

005340

BIT

BEQ

648:

*BR IF NO
*DISABLE WRITE LOCK
:TYPE SPACE WHEN DONE
*GET SPACE

ssrur

owoos 012737 000027 005340

017013 004 g

:SEE IF WRITE LOCK IS ON

TOCYL

HEAD

104;09

PRESS CONT=E TO EXIT OR SPACE TO CONTINUE
*RETURN HERE IF CONT-E
*INPUT CONT-E OR SPACE

CLR

SWAB

024504

:SEE IF WRITE LOCK IS OFF

MOV

004737

*SEE xr ALIGN CART
*BR IF NO
*ELSE EXIT TEST

#D.WRL,HMR2
2
110

000006

017010

:D0 1 ITERATION
*RESTORE STACK PTR

BEQ

BIT
BEQ
ERROR

016722 000762

005037 oou.og

SCOPE

MOV
MOV

TYPE
JSR
JMP
JSR

016660 032737 004000 005366

016744

SEQ 0082

ERROR

HEAD ,RKDA(RS)

;WRITE LOCK NOT DISABLED

:FOR

;HEAD ADDR

PC ,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

*GET FRESH STATUS

cctnn HCS1

*NO RDY AFTER WRITE HEADER CMD

:CERR AFTER WRITE HEADER CMD

|
017036

005237

017054

104024

T?z

00144

63 017040 803;z 001442 000003
2 90 017046
4.%71 017050 004737 026436
22;

4274 ongzg 005037 oougs

;SEE
IF ALL HEADS DONE
:BR IF NO

ERROR

;CERR AFTER SCLR

CLR

SECTOR

MOV

25(.3
4281
4.23%
4283
4284

017106
017112
017120
017126
omga

012765 177400 000002
omgr 000023 005340
004737 024504
104011
004737 026106

MOV
MoV
JSR
ERROR
JSR

2539

017140

001465

BEQ

000010

4285 017132 032737 100000 005340

4288 017142 oszm 000200
4289 017150 001421

005354

4290

017152

004737

4293
429
4295
4296
2223;

017160
017164
017172
0171764
017176

oos;sr 001422
023727 001422 000012
001003
104040
000137 021450

017202

012765

'4’.338

017214

104012

22231

2”1

017156

000455

000000

005430

4307

005436

4308 3"3“ 00 ogr 005440

4309

017 ;o 012737

g}g 017256 012737 000003
431

owzgl.

4317
4318

017
817302

4320

017312

4319

104047

:BR IF NO ERRORS

678

*RETURN HERE IF NO

INC

JMP

SECTOR
SECTOR,#10.
65$
40
128

65$:

MOV

#CCLR,RKCS1(RS) ;TRY ANOTHER SECTOR

66$:

ERROR

MOV
CLR

#<0!D.SPIN!D.DRDY!D.VV!D.DRA> E.AD
E.B
EXPECTED MSG B0

MOV

n5.81

CMP
BNE

ERROR

JMP

MOV
CLR

005442

005446

newm HERE IF YES
E 10 CONSEC. SECTORS BAD
ea IF NO
:ABORTING TEST DETECTED 10 BAD SECTORS
:BYPASS TEST

148

;CERR WITH WRITE DATA CMD

;EXPECTED MSG AO

#<D.SPOK'D. cm'b DOOR!D.BRHM'D.SSP>,E.A1 :EXPECTED Al
:MSG ID FOR ex:scrso ‘MSG B1

*EXPECTED MSG

*MSG ID FOR EXPECTED MSG

JSR

pc HKMSG

:CHECK MSGS AO

ERROR
ERROR

*MSH BO ERROR
‘MSG A1 ERROR

ERROR
TYPE
678:

*ELSE SEE IF SECTOR LISTED IN BSE TABLE

‘i""i

. WORD
ERROR

044935

AC, TRUERR

MOV
MOV

1040
104053

mog 000137 023734

ccéna HCS1

004737 025264

104025
104401

BIT

#-256. ,RKWC(RS) ;CYL 0, TRK 0, SECTOR 0
#<WURDATA> ,HCS1
PC,DATCMD
:DO DATA X FOR CMD & GET CONTR RDY
11
*NO RDY AFTER WRITE DATA CMD
GSTAT
*GET FRESH STATUS
;SEE IF BAD SECTOR FLAG
:BR IF NO

4313 017270
3
4314 817 72 mos;

4315
017274
4319 017276

#DATAO,RKBA(RS) :WRITE ALL 0°S

g RKCS2 (RS)

#8SE ,HER
66$

012737 001720 005434

017236 012737 000001

SECTOR,RKDA(RS)

BIS

JSR

4304 017216 o1§737 010340
4305 017224 00 ogr 00543

l.sog ows

MOV

HEAD
,#3
168
PC,SUBCLR

BIT
BEQ

030056

017210 000137 01706

SEQ@ 0083

HEAD

017070 012765 001456 000004
000020

148:

INC

052765

000006

PAGE 84

(MP
BNE
JSR

017

017076

001422

13:06

2%;5

4278

013765

WRITE LOCK TEST

~JAN-82

JMP

ERROR

'E.B

17.82!0

25
MSG72

i;or

*MSG ID FOR EXPECTED MSG B
Al

tnssréllouene
:MSG A0 moaAFTER WRITE DATA CMD
*MSG B1 ERROR
*ABORTING BALANCE OF TESTS
:BAD SECTOR NOT LISTED IN TABLE

N-JM-G% 12:48

MACY11 30(1046)

CZR6JF .P11

CZR6JFO UNIBUS RK6 DR=3

13:06 PAGE 85 ¢
e~JAN-82
WRITE LOCK TEST

o
NN

M
Y11 30€1046)
12:48

017314

1ot 026436
1276

JSR
ERROR

0014§§ i

SENE V]

IV YN
W

?26106

PC,SUBCLR

sCERR AFTER SCLR

#DATAO, RKBA

(RS)

g RKCS ns>
-2

..uxuc( 5)

ssctofi.non(nS)

00142

VISWIN
2

lals
NN

Y T TN NI YIS gg

FO UNIBUS RK6 DRL1
04=J

005340

#<WURTCHK> ,HCST

:S.DA CMD
PC,GSTAT

%ém HCS1

005340
005342

MICE,HCS2
69%
%M(RS) D1

001434

708
69%:

005430

sEXPECTED WORD FOR TRUERR TYPEOUT

;DO DATA X FOR CMD & GET CONTR RDY
:NO RDY AFTER WRITE CHECK CMD
sGET FRESH STATUS

sSEE IF WRITE CHECK ERROR

sACTUAL WORD FOR PRINTOUT
sWCE AFTER WRITE CMD
sCERR AFTER WRITE CHECK CMD

#<0!D.SPIN!D. DRDV'(O VV!D.DRA> ,E.A0

EXPECTED MSG A0

E.BO
EXPECTED MSG BO
:;D S:?K'DCMY'b DOOR!D.BRHM!D.SSP> elm:ExPECTED
E.
&1

005434
005436

:MSG_ID FOR EI:SCI’ED

005442
005446

sMSG ID FOR EXPECTED MSG

C,CHKMSG
T.AZ!T.BZ!O

s CHECK MSGS A0,

2
MSG72

RROR
;ABORTING BALANCE OF TESTS

57
31

044035
023374

:EXPECTED MSG
sMSG ID FOR EXPECTED MSG

ENDRV

& MSGS B0
spécxrieo
HERE
nss
98
énaon AFTER WRITE CHECK CMD

708:

SSod

—

2=K

PC,SUBCLR

,MSGS4

MSG37

PC,GETSP

g532 58

3s:

sCERR AFTER SCLR
;ENABLE WRITE LOCK

*PRESS SPACE WHEN DONE

*GET SPACE

#CCLR,RKCS1(RS)

005366

PC,GSTAT

zg-WRL ,HMR2

sSEE IF WRITE LOCK IS ON

115

sWRITE LOCK NOT ENABLED

C ZR6JF.A’l‘ mowm—nf 12:48
CZR6JFO

UNI

RK6 DR=3

017576 000754

4A ;3 17600
01276
17
5076
4381
4

4
4

017616
17

176
176
017642

012765
137
1

MACY11 30(1046)

1774
1%
7

104116

026

17644
17650
176

02'2'737 130033 005340

4391
4392

017
0176

2737 004000 005370
1001

104207

4393
439

017672

104121

4401

4395 017676 012737
4
17 os 12737
4397
017710
012737
333 017716 012737
4400 017726 004737

054340
004
001720
000001
025264

13:06

MoV
BIS

MOV
MOV

#DATAT
,RKBA(RS) ;ATTEMPT TO WRITE ALL 1°S WITH WRITE LOCK SET
mg RKCS2 (RS)

#-256. ,RKWC(RS)
SECTOR . RKDA(RS)
SURDATA ,HCS1
PC,DATCHD
116

; CYLINDER 0, HEAD 0

:DO WRITE DATA CMD & GET CONTR RDY
*CONTR NOT RDY

BIT
BNE

#D.WLE ,HMR3
5$

MOV
MOV
MOV
MOV
JSR

#<D.DSC'D.SPIN!D.WRL'D.DRDYD.VV'D.DRA>,E.AD :EXP AO
#<D.WLEID.FLT>,E.B0
#<D.SPOK 'D.CART !D.DOOR!D.BRHM!D.SSP>
,E . A1
" ,E.B1
PC, CHKMSG
:CHECK MSGS AD, BO, A1, B1
123
125
12
12

*MSG AO ERROR AFTER WRITE WITH WRITE LOCK SET
‘MSH BO ERROR
iMSG A1 ERROR
*MSG B1 ERROR

:CERR AFTER SCLR

ERROR

LWORD

0177
017734
017736
017740

104.15
104125
104126
104127

ERROR
ERROR
ERROR
ERROR

017746

104024

ERROR

:."239 017742 004737 026436

SEQ 0085

PC,GSTAT
0;&&.“(51
178

ERROR

005430
S58:
005432
0054
005436

JSR
BNE

BIT

178:

PAGE 86

WRITE LOCK TEST
BR
3s

MOV
JSR
ERROR

737 0261
100

017

402
4403
404
4405

48:

830228

4
4
4

4390

T?z

~JAN-82

;GET FRESH STATUS

207

;CERR NOT SET AFTER WRITE WITH WRL SET

121

:WRITE LOCK ERROR NOT SET
*AFTER WRITE DATA WITH WRITE LOCK SET

0!0'0

:CHECK WRITE LOCK ERROR SET
:BR IF SET

:8 MSGS SPECIFIED HERE

JSR

PC,SUBCLR

MOV

#DATAO,RKBA(RS) ;CHECK THAT NONE OF ORIG DATA

“'i 017764 01 7gs 177400
2
413
017772 013737 oou.sg 0014

MOV
MOV

#=2 g..nxucmfl :AS RESULT OF WRITE WITH WRITE LOCK SET
DATAO . WD2
;EXPECTED WORD FOR TRUERR TYPEOUT

MoV
JSR

#<URTCHK> ,HCS1
Pg,wcno

4419 0200
ogt. gr 053588
2‘4 ¢ 8 g 0 %7 1
005340

JSR
gé‘r'

PC,GSTAT
;ng.ucm

4423

020044

BEQ

718

4425

3 0054

22%%

020060

104022

4630

020062

012737 010340

2’;,83

410 017750 012765 001456
411

017756

052765

000020

013765

00142

4.4.19 5
417
020014

012757
31
004737 024504

000010

BIS

MoV

005340

4418 ozoogg 101.915

MOV

RKDB(RS) ,WD1

:ACTUAL WORD FOR PRINTOUT

728

ERROR

005430

MOV

#<0'D.SPIN'D.DRDY!D.VV'D.DRA>,E.A0

005434

MOV

#<D.SPOK'D.CART !D.DOOR!D.BRHM!D.SSP> ,E.A1

BIT

001434

ERROR

56 00043

4431 020075 oo§037
4432 0200764 012737

718:

s:.s%
001720

:DO DATA X FOR CMD & GET CONTR RDY

:SEE IF WRITE CHECK ERROR

016537 000024

2‘49

SECTOR,RKDA(RS)

#ICE HCS2

442s 0

10401

:HAS CHANGED

*NO RDY AFTER WRITE CHECK CMD

gmg 040000 005342
u.gs

,RKCS2(RS)

4 g 0200

ERROR

#BA]

CLR

E.B

*GET FRESH STATUS

*WCE AFTER WRITE CMD

:CERR AFTER WRITE CHECK CMD

-EXPECTED MSG B

:;EXPECTED MSG AO

:EXPECTED Al

uus m

4433

4435
fi

4438

MACY11 30(1046)

12:J
7

7 88222

114
77
122
1
0201

A 8 1
4440
1

4661 020140
W’f 8 14
P
146
444l 0201

1 005436

5442
5446

162

104024

u.sg

000137 023374

020164

104401

w.“ 9 020156
w."""9' 0 123 004737 026436

032737

4457 020212 001361

4458
4459
4460

020214

104401

728:
68:

042120

4453 0201
104.4.21 0460625
4456 020176 004737 030452
4455 020
oougr 026106

004000

005366

005037 001366

“69‘“

02024

004737 026436

4468

020244

032737

4469 020252 001004
4470 020256 012765

‘42;1

262

4473
020 91. 012765
476 020
52765

4475 020

000001

001456 000004
ues 000004 8%
000010 9%

12765 140400 000002

4476 020
477
020312
4478
320

065
013765 001
880020
012737 800054.
5340

,,”23‘,’

020332

104011

uog

020334

479 020326

4483

004737

0245

032737

100000

020342 001217

448% 8 0344 005337 001160
487
4488

020356
020360

104401
104401

042120
040625

JSR

PC,

: CHECK nsss A0, B0

ERROR
ERROR
ERROR
TYPE

gg
MSG72

:MSH B0 ERROR
‘MSG A1 mou
:MSG B1 ERROR
*ABORTING BALANCE OF TESTS

JSR

PC,SUBCLR
24

:CERR AFTER SCLR

TYPE

,MSGS3

:DISABLE WRITE LOCK

005340

JMP

ERROR

TYPE

001162

*EXPECTED nsc':s

*MSG ID FOR EXPECTED MSG

BIT

78:

1046024

;MSG_ID FOR EXPECTED MSG B1

og
E.B

BNE

042211

u.e"as 020236

MOV
MOV

TYPE
JSR
JSR

4461 020220 013737 001430 001160
u.oi 020226
005037 001162

446

MoV

. WORD .Sw82'0
ERROR g

104031
1osogg
1040
1044.21 ou.g;s

22%?

WRITE LOCK TEST
CLR

737 025264

020152

020206

04=JAN-82 13:06 PAGE 87

8%00;
1ot.o§

4445

4456

ENDRV

MSG37
PC,GETSP
PC.GSTAT

#D.WRL ,HMR2

,MSG5&

MOV
CLR

15000, $TMPO
$TMP1

JSR

PC,SUBCLR

BIT

#81T0,$THPI

CLR

ERROR

BNE
MOV

ToCYL

:MSG ID FOR EXPECTED MSG

MSGS srém!so
:MSG AO EmuAFTER WRITE cum cMD

*SPACE BAR WHEN DONE
*GET SPACE

:SEE IF WRITE LOCK OFF

;TEST FOR WRITE LOCK AT SECTOR BOUNDRIES
*FOR CONTINUOUS WRITING ON CYL 0, TRACK 0,1.2
*SET WRITE LOCK

;BITO=0:WRITE 0°'S; BITO=1;WRITE 1'S
JCERR AFTER SCLR

8s
:BR IF WRITING 1'S
#DATAO,RKBA(RS) :SETUP ALL 0'S

MOV
BIS

#DATA1 ,RKBA(RS) ;SETUP ALL 1°S
#BA .nxg$2(RS)

CLR
MOV
MOY

RKDA(RS)
TOCYL ,RKDC (RS)
#URDATA,HCS1

:BEGIN

ERROR

*CONTR NOT RDY

MOV
JSR

Mi -; 6. .RKWC (RS)
PC,DATCHMD

BIT

ogm.nm

DEC

$TMPO

TYPE
TYPE

,MSGS
.MSG3

BNE

:WRITE TRACK o 1,2 63 SECTORS

AT TRACK ANDSEC 0

;DO WRITE DATA CMD & GET CONTR RDY

138

*DISABLE WRITE LOCK
*PRESS SPACE WHEN DONE

SEQ 0086

(alal
NN

CZR6JF

CZR6JF . r%"

CZR6JF P1
4489

UNIBUS RK6 DR=3

04=JAN-82 12:48
7

030356 006137 83943
374
1
1
16

;37 001162
9
000200 0053564

1611
8”;5 001
023727 001
4 1

r?z

-~JAN-82

108:
138:

000012

JSR

PC,GETSP

INC

,rm
5
#B8SE ,HER

SEQ 0087

: INPUT SPACE

SNy ey

BR
BIT
BEQ
INC
CMP
BNE

:GO WRITE OPPOSITE DATA
*SEE IF w SECTOR
*BR IF NO
*ELSE TRY ANOTHER CYL
*SEE IF 10 CONSEC CYL BAD
:BRIF NO & DO AGAIN

218
TOCYL
TOCYL ,#10.
78

020444

104205

205

:NO WRL BY TIMEOUT

020446

104401

TYPE

,MSGS53

:DISABLE WRITE LOCK

020456 004737 030452

JSR

PC,GETSP

020462 013737 005350 001164
020470 013737 005350 001166

MOV
MOV

HDA,S$TMP
HDA.STMP

;STORE RKDA OF ERROR
:STORE FOR ERROR TYPEOUT

BNE
TYPE

228
MSG100

és

*BR IF NO
:ELSE WRL OCCURRED ON TRK 2,

228:

TIST
BNE
TYPE
JMP

$STMP2
238
MSG100
6$

;SEE IF WRL ON TRK 0, SEC 0
:BR IN NO
*ELSE WRL ON TRK 2, SEC 20
:8 NO NEW DATA XFER TOOK PLACE

238:

CMP
BNE

$TMP2, #1025
24$

:SEE IF WRL ON TRK 2, SEC 21
*BE IF NO

JMP

:8 NO NEW DATA XFER TOOK PLACE

CMP
BNE

STMP2, #1024
258

:SEE xr WRL ON TRK 2, SEC 20
*BR IF NO

JMP

és

8 NO OLD DATA TO cuecx AGAINST

BNE

18$

*BR IF NO

104421

042120

11$:

o«oo;s

00100
104401

4518
4519
4520
ggt

020514
020520
020522
020526

005737 001164
001004
104401 04423
000137 020156

4523
4524

020532
020540

023727
001004

2?2

020546 000137 020156

22}9 02051

oggs«z

001164
044233

4528 ozoszs
:.sgg 020560

023727
001004

001164

2;31

000137 020156

001025

001026

24$:

TYPE

451‘3 020572 023727 001164 000400 25%8:
453 02

1004

4535
2;3

020602
020610

012765
000415

000025

000006

4538

02061

853727

001164

001000

4539 0
4540 02
25521 0

020632

1004
12765 000425
05

005337

001164

TYPE

020562 104.421 044233
020566

ERROR

cMP

044233

104401

4543

WRITE LOCK TEST

#D.WLE ,HMR3
11$

4514 020504
4515 020506

4530

PAGE 88

ERROR
JMP
BIT
BNE

4515 020476 023727 001164 000001

4525

13:06

6
0
ooo
021450
os&y. 032737 004000 005370 218$:
020442 001001

02045

MACY11 30(1046)

18%:

000006

45644 020636 013765 001164 000006

198:

CMP

eg
128

MSG37

STMP2 .41

,MSG100

MSG100

STMP2, #400

MOV
BR

#21..RKDA(RS)
208

CMP

$TMP2,#1000

:10 BAD CONSEC CYLINDERS
SEXIT TEST

:TYPE SPACE WHEN DONE

:SEE IF WRL ON TRK 0, SEC 1

:8 NO NEW DATA XFER TOOK PLACE

*ELSE WRL ON TRK 2,

SEC 21

SEC 19

*ELSE WRL ON TRK 2, SEC 18

:SEE IF WRL AT TRK 1, SEC 0

:ELSE SECTOR AT WRL IS TRK 0. SEC 21
;SEE IF WRL AT TRK 2, SEC 0

BNE
MOV
B8R

198
#4625 ,RKDACRS)
208

:BR IF NO
:ELSE SECTOR AT WRL IS TRK1, SEC 21

DEC
MOV

STMP

:GET SECTOR AT WRL

sws.am(m

TM
NN

CZR6JFO

CZR6JFO UNIBUS RK6 DR=3

CZR6JF .P11
4545
25529

4550
ggl

MACY11 30(1046)

020644

016537

000006

058252

004737

026436

020656

04~JAN-82

N-JM% 12.48

104024

001166

208:

MoV

RKDA(RS) ,$TMP3

JSR

PC,SUBCLR

ERROR

73$:

MOV

#DATAQ,RKBA (RS) sWRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0°'S

001166 000006

MOV

001366

MOV

TOCYL nxoc(a )

MOV
JSR

#<WRTCHK> ,HCS1
PC,DATCMD

JSR

PC,GSTAT

BEQ
BIT
BEQ

828
#ICE HCS2
81$

020716

000137

020156

4564

ozo;go

012765

001456

4567

020744

013765

2;93

020760

013765

004737

026106

021026
021034
021036

016537
104134
000437

2§gz

021040

104022

4585
4586

021042
021050

012737
005037

104015

032737

001450
032737
001405

4388
8§}°" °}§§s$
4589

MOV

005340
005342

000024

001434

BIT

81$:
010340
5435

851074
1102

012737
012737

000002
000003

4593
4594

021110
021114

004737
000003

025264

4599
4597

021120
021122

104031
1oaogg

4399 051156 104405 044035
0211 3 000137 023374

BIS
MOV

ERROR

005430

2001 903436
037 33222

104057

74$:

000020

040000

4590
2;31

4595 021116

000006

005340

021014
021016
021024

0 1393

000004

000031
024504

45;3
4577
4578

4579
4580
4;35

001462

012737
004737

021002

021006

001162

001436

4574

4575

000001

000004

020766
020774

021000

001023

000010
000002

4571
4572

4573

001164

000020
177400

017537

$TMP2

JMP

020752

sCERR AFTER SCLR

808:

1414
023727
8?1419
032737
001 oOg
012765
000405

4568

sFOR ERROR PRINTOUT

;SEE IF TRK/SECTOR 0
80$
*REPEAT,NO
NEW DATA xrsn TOOK PLACE
$TMP2,41023
*SEE IF TRK
2,SECTOR 1
80$
*REPEAT,NO OLD DATA TO CHECK AGAINST
#81T0,STHP1
73$
:BR IF WRITING 1°S WHEN WLE OCCURRED
#DATA1,RKBA(RS) :WRITING 0°S:WLE SECTOR SHOULD HAVE ALL 1°S
748

020664
206?6
8 0674
0676
020704
020706
020714

052765
012765

TST

SEQ 0088

BEQ
CMP
BEQ
BIT
BNE
MOV
BR

4554
4555
6559
455
40553
4559
l‘:%

020
ozorse

PAGE 89

WRITE LOCK TEST

l.ssg 020660 005737 001164

4565
4

13:06

T16

005442
005446

g RKCS2 (RS)
#-2 § RKWC (RS)

kmmn
g

15~

#CERR,HCS1

sREFRESH RKDA

;EXPECTED WORD FOR TRUERR TYPEOUT

;DO DATA X FOR CMD & GET CONTR RDY
:NO RDY AFTER WRITE CHECK CMD
sGET FRESH STATUS

sSEE IF WRITE CHECK ERROR

MOV
ERROR

RKDB(RS) ,WD1
134
828

sACTUAL WORD FOR PRINTOUT
<WCE AFTER WRITE CMD

ERROR

sCERR AFTER WRITE CHECK CMD

MOV
CLR

#<0!D.SPIN!D.DRDY!D.VV!D.DRA>
,E.A0

EXPECTED MSG AO

E.BO

:EXPECTED MSG BO

MOV
MOV

E.
og.s.a

;MSG_ID FOR
EX:SCTED MSG
sEXPECTED MSG
:MSG ID FOR EXPECTED MSG B
:MSG ID FOR EXPECTED MSG B

JSR
_WORD

Pc HKMSG
17.82'0

s CHECK HSES
A0,

ERROR
ERROR

31
60

HOv
CLR

ERROR

:;D.SS?K!D.CMT'b.DOOR!D.BRM‘D.SSP>.E.A1B1:EXPECTED Al

EThe hse72
JMP
ENDRV

6§ spécxrieo CHECK CMD
;M6 ag tnag:AFTER WRITE HERE
:ABORTING BALMCE OF TESTS

[#)

4601
460;

460

8 1

MACY11 30(1046)
12:48

04~JAN-82

116

82s:

ooo%l.g

mms 021140 00024

333727 001164 000400

8%1%

8 115
g ”s

4610 ozn%
4611 0211
461; 021172
2‘9}‘ 021

1004

000025

000006

012765 000425 000006
05

021202

005337

001164

4617

021214

0135 7

000006

4616 021206 013765 001164 000006
021222

032737

000001

001166

001162

768:

77$:

4619 021230
001004
4620 021232 012765 001456 000004
%5 021240 000403
4623
4626

021242
021250

012765
052765

oouos
000020

000010

4625 021256 012765 177400 000002
4626 021264 017537
001436
,,”2223 021272 013765 001
2

4629 021300 012737 000031
4630 021306 004737 024504
4631
4632

4633

021312
021314

104015
004737

032737

021330

032737

SEQ 0089

NOP

026106

cMP

$TMP2,#400

;SEE IF WRL AT TRK 1, SECTOR 0

,"2"

m..nmms»

*ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21

(P
BNE

$TMP2, #1000
76$

:SEE IF WRL AT TRK 2,SECTOR 0
*BR IF NO

sm»s

;GET SECTOR BEFORE WRL

MOV

RKDA(RS) ,$TMP3

:FOR ERROR PRINTOUT

BNF
MOV
B8R

788
:BR IF WRITING 1'S WHEN WLE OCCURRED
#DATAO,RKBA(RS) :WRITING 0°'S:WLE SECTOR -1 SHOULD HAVE ALL 0'S
798

788:
79%:

005340

MOV
B8R
DEC

MOV
BIT

MOV
BIS

75$

#4625 ,RKDACRS)
778

$TMP2 , RKDA (RS)

#8170, STHP1

*BR IF NO

:ELSE SECTOR BEFORE WRL IS TRK 1, SEC 21

#DATA1,RKBA(RS) :;WRITING 1°S:WLE SECTOR =1 SHOULD HAVE ALL 1°S
mg RKCS2 (RS)

MOV
MOV
MOV

#-256. ,RKWC (RS)
@RKBA(RS) ,WD2 ;EXPECTED WORD FOR TRUERR TYPEOUT
TOCYL ,RKDC (RS)

MOV
JSR

#<URTCHKD ,HCS1
PC,DATCMD

ERROR
JSR

15
PC,GSTAT

;DO DATA X FOR CMD & GET CONTR RDY
*NO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

100000

005340

BIT

#CERR,HCS1

040000

005342

BIT

MICE HCS2

:SEE IF WRITE CHECK ERROR

4637 021340 016537 000024

001434

MOV

RKDB(RS) .WD1

;ACTUAL WORD FOR PRINTOUT

848

ERROR

4635

021320

WRITE LOCK TEST

BNE

727 001164 001000 758:
1004

4615

4618

PAGE 90

NOP

6609 02114

460

13:06

021326

001450

021336

4638

021346

721350

000437

W,'o

021352

104022

4643

021354

012737 010340 005430

MOV

#<0'D.SPIN'D.DRDY'!D.VV!D.DRA>,E.A0

4645 021366 012737 001720 005434
4646 021374 012737 000001 005436
4647 021402 oosoy 005’ 40

MOV
MOV

#<D.SPOK'D.CART 'D.DOOR'D.BRHM'D.SSP>,E.A1 :EXPECTED Al
#
E.B1
;MSG ID FOR EXPECTED MSG B1
E.
*EXPECTED MSG

%3 021414

4644

021362

104135

005037

BEQ

84$

4636

22’39

001405

BEQ

ERROR

838:

oosass

CLR

83s

135

E.B0

*WCE AFTER WRITE CMD

:CERR AFTER WRITE CHECK CMD

-EXPECTED MSG BO

;EXPECTED MSG AO

4648 oguoe 0157 7 ooooog 005442

CLR
MOV
MOV

#3.E.B

:MSG ID FOR EXPFCTED MSG B

465 ozu.%g ooooo;

4651

021422 004737 025264

JSR

PC, CHKMSG

:CHECK MSGS A0, B0, A1,

4653

4654

021430

10405

LWORD T.A2'T.B2'0

ERROR

:MSG AQ ERROR AFTER WRITE CHECK CMD

104060

ERKOR

ERROR

:MSH BO ERROR

021432

4655 021434
4656

021436

012737 000003

104031

104032

005446

ERROR

cg.s.ag

go
32

:MSG ID FOR EXPECTED MSG B
B1

-8 MSGS SPECIFIED MERE

:MSG A1 ERROR

*MSG B1 ERROR

(alal
N~

(als
NN

R6JF UNIBUS RK6 DR=3
R6JF.P11
04~JAN-82

CZR6JF.P11

04=J

4657 osw.o 1ou.g1
22;3 021444 000137
4660

‘Hstz;‘l 30(1046) '?2-.1%02

13:06

PAGE 9

WRITE LOCK TEST

l.g;s
023374

TYPE
JMP

021450

MSG72
ENDRY

128

4664

JIRARRARAARAAAANAAN AN

4665;

‘42;?

4665

S*TEST 17

4668
4669
4673

000004

T$T17:

ScOPE

JSR

PC,SUBCLR
24

:CERR AFTER SCLR
:AC LOW=PART 2
:CONT=E TO BYPASS TEST

4680
4681

021472
021476

104401
104401

037731
042017

TYPE
TYPE

.nssge
,MSG52

4683

021502

004737

000137

030412

023374

JSR

PC,CCSP

4686
4687

021512
021516

005737
00140

001474

4688 021520 000137

022142

ST
BEQ

BSERR
18

4690

021526

004737

026106

‘4235

021536

001417

021530

104024

032737

004000

469

021540

0215446
021550

104401

104401
004737

042120

4698

021554

004737

026106

4700
4701

021566
021570

001403
104110

4704

021576

005037

2;817;

021612

005037

4695
ggg

4699

2;8

4705
4706

021560

021572
021602
021606

032737

000137

ERROR

JMP

005366

18:

JSR

004000

001366

00140
00144

2;% 021616

004737

027420

4711
4712

012765
012765

001506
177676

138:
000004
000002

:RETURN HERE FOR SPACE

:TEST FOR ALIGN CARTRIDGE
:BR IF NOT ALIGN CART.

TYPE

,MSGS3

:DISABLE WRITE LOCK

MSG37
PC,GETSP
PC,GSTAT

BIT

#D . WRL , HMR2

JMP

128

CLR

001450

*RETURN HERE FOR CONT-E

:BR IF NO

BEQ
ERROR
118:

PC,GSTAT

*INPUT CONT-E OR SPACE

11$

JSR

023374

:OR SPACE TO CONINUE

#D.WRL ,HMR2

TYPE
JSR
005366

12§

::00 1 ITERATION
:RESTORE STK PTR

BIT

BEQ

ol.oogs
030452

005037
005037

021622
021630

ANNAACNRTRANS

#1,STIMES
#STACK,SP

0046737 026436

4691

NAN AN AN

MOV
MOV

021470

4,685

AN AN

:;tttt..t't.Qttttttttt"t't'tttttt'tttttt.tl.tt.ttttttt.t.t..tt.t

g;g

021506

RN AR

WHEN THE INTERFACE SHUTS DOWN.

4677 021464

4684

AC LOW DETECTION PART 2

AT SECTOR BOUNDRIES & THAT THE BATTERY RETRACT IS FUNCTIONAL.
THERE IS APPROX 4 MS BETWEEN AC LOW ASSERTING AND NED ASSERTING

]

4676 021452 012737 000001 001174
g;z 021460 012706 001100

4,682

;ABORTING BALANCE OF TESTS

THIS TEST VERIFIES THAT WHEN AC POWER IS LOST, THAT WRITING CEASES

v
i

021450

SEQ 0090

848:

2“1 021450
preg;

“;%

11$
110

TOCYL

:SEE IF WRITE LOCK

*PRESS SPACE WHEN DONE
*GET SPACE
:SEE IF STILL WRITE LOCK

:BR IF NO
:WRITE LOCK NOT DISABLED

SEXIT TEST
:SETUP

CLR
CLR

CALADD
HEAD

*FOR
sFILL HEADER TABLE

JSR

PC.FHDTAB

;BUILD STD 22 SECTOR HEADER TABLE

MOV
MOV

#HDTAB,RKBA
(RS)
#-66. ,RKWC (RS)

CLR

FORMAT

*ROUT INE

lels
NN

CZR6JFO UNIBUS RK6 DR-

1 30(1046) ?;~JAN-82

é’i’%iii

13:06

PAGE 92

SEQ 0091

AC LOW DETECTION PART 2
SWAB

HEAD
HEAD ,RKDA(RS)
HEAD
#<WRHEAD> ,HCS1

PC,DATCMD

:DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT
océka HCS1

*GET FRESH STATUS

200
01

648:

*NO RDY AFTER WRITE HEADER CMD
;CERR AFTER WRITE HEADER CMD

HEAD

HEAD ,#3
138

TOCYL

168:

;HEAD ADDR

PC,SUBCLR

;SEE IF ALL HEADS DONE
:BR IF NO

;CERR AFTER SCLR

#DATA1,RKBA(RS) :RETURN HERE FOR SPACE

#BAI ,RKCS2(RS) :WRITE INITIAL BACKGROUND OF 1°S
#-66.%256. ,RKWC (RS)
:TRACK 0,1,2 ALL SECTORS
TOCYL ,RKDC (RS)

PC,DATCHD
11
PC Gsut

;DO WRITE DATA CMD & GET CONTR RDY
:NO_RDY AFTER WRITE DATA CMD
*GET FRESH STATUS

figf.ufl!

:SEE IF BAD SECTOR

#<0!D.SPIN!D. DRDV'D VV!D.DRA> ,E.A0

N
~

ggém HCS

45 3

E.B0

NN NNN

NN o

——

[=1=]

NNVWNN

022132

SRE
W

(=13

05518

02%116'
5 120

g2os

EXPECTED MSG BO

EXPECTED MSG A0

#<D.SPOK!D. CART'b DOOR!D.BRHM!D.SSP>,E.A1_ EXPECTED A1l
01

.B1

:MSG_ID FOR EXPECTED MSG B1

li
.E.B

:MSG ID FOR EXPECTED MSG
:MSG ID FOR EXPECTED MSG B

SG
rS
A2'T.B2'0
3

;'§

- O000
W
NVIWWNWSN

2222 2

SOO
o

eSS

SMURDATA ,HCST

023374
001366
001366
023374

128

000012

17%:

ToCYL

;ogn.no.

? s

:EXPECTED MSG

:CHECK MSGS A0,

Al
-8 MSGS B0,
SPECIF
iusne
:MSG AQ EnaoaAFTER WRITE DATA CMD

*MSH BO ERROR
‘MSG A1 ERROR

‘MSG B1 ERROR

:TRIED 10 CYLINDERS?

:BR IF NO

sCANNOT WRITE ON 10 CONSEC CYL

lalal
NN

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P11
04=J

CZR6JFO UNIBUS RK6 DR=
CZR6JF.P11
04=JAN-

MACY11 30(1046)
12:48

~JAN-82

022136

000137

021726

18$:

JNP

8%
142

004737
104024

026436

2$:

JSR

023134 104401

821553
2564

005737

001474

001160

026436

é;gfig

pr ey
SOOO
N —>
ON
=W A& ooTM
So
=N Nwnhwannaan
Www

LS YB B/ =SOWONN
WWOOS=W=WW
NN==
0 = NYNNN
NN
W
SN

16
PC,SUBCLR

sCERR AFTER SCLR

TYPE

,MSG49

sTURN OFF AC

BSERR

; SEE lf ALIGN CART USED
:BR_IF NO

BEQ
TYPE
JSR
B8R
MOV
CLR

.MSG57

158
MSG37
PC,GETSP
13
750000, $TMPO
$TMP1

JSR

PC,SUBCLR

BIT

#8ITO,STMP

ERROR

sVERIFY BATTERY RETRACT FUNCTIONAL

PRESgS:eCE WHEN DONE

;SKIP ALL WRITING

;BITO=0;WRITE 0°'S; BITO=1:WRITE 1'S
;CERR AFTER SCLR

000020
005340

58
:BR_IF WRITING 1'S
#DATAO,RKBA
(RS) :SETUP ALL 0'S
13
»Am RKBA(RS) :SETUP ALL 1°'S
§ $2(RS)
:TRACK 0,1, 2 63 SECTORS
#-6 -2 6..nxuc(ns>
RKDA (RS)
;BEGIN AT TRK AND SECTOR
0
TOCYL ,RKDC (RS)
MIRDATA, HCS1

005340

JSR
BIT

PC,GSTAT
#CERR,HCST

5$:

6$:

JSR
ERROR

BNE
DEC
BNE

ERROR
TYPE
TYPE

041629

JSR

030452
023374
001162

SEQ 0092

BNE
MOV
BR
MOV
BIS
MOV
CLR
MOV
MOV

000004
000010
000002

4S:

001162

g3 SPRRRaCSo £g

158:

PAGE 93

ERROR

TYPE

0406;5
030452
001432
001162

13:06

AC LOW DETECTION PART 2

JNP
78:

INC

PC,DATCMD

3s
78

:DO WRITE DATA CMD & GET CONTR RDY
sCONTR NOT RDY

$TMPO
146
,MSGS0
M5G69

CERR NOT SET BY TIMEOUT
: TURN AC BACK ON
:DEPRESS SPACE AFTER 'READY' LIGHT ON

12§

SEXIT TEST

fic GETSP
STMP1

:GET SPACE

;GO WRITE OPPOSITE DATA

P?‘l‘

IBUS RK6 DR=3

32737

1001

MACY11 30(1046)

000100

3$:

005370

-JAN-82

13:06_

PAGE 94

AC LOW DETECTION PART 2

BIT

#D.ACLO,HMR3

ERROR

BNE

106147

022374
s; 7
5325
108:
8 %00 012737
07014
54
406 012737 10;08
5432
0 3414 81 737
044720 0054
022422 012737
1 0054
0 "§2 004737 025264
0224
oggogg

INC
MOV
MOV
MOV
MOV

02244

ERROR

JSR
.WOR

0 gu.
022444
022446
022454

104 39
10403
omgr 005350 001164 8S:
013737 005350 001166

ERROR
ERROR
MoV
MOV

022462

022466 104401 043647
022472 004737 030452

104401

041626

TYPE

TYPE
JSR

MS5G69
PC,GETSP

022476
022502

004737
104024

026436

022504
022512
022514

032737
001401
104152

000100

022513
0225
oszs
0 Ssso

005037
O1§76S
013765
012737

005322
98:
100000 000000
00122§ ooogzo
000003 005340

022550

004737

104116

005370

024446

ozssgg 032737 000100
022560
001001

32522&2 1046027

—

022576

148:

4859 oség% 88;{37 001474
35 572 oootg; 023374
022576
022602

004737
104024

026436

022604 005737 001164
022610 001414

32 25 85?{?’7 N 0
022622 032739 000001 001162

;AC LOW NOT SET

:MSG A0 ERROR AFTER AC SWITCH OFF FROM HEADS LOADED

HDA,$TMP
HDA.,$TMP

:MSG A1 ERROR
:MSG B1 ERROR
:SAVE RKDA
*SAVE FOR TYPEOUT

,MSGSO

:TURN AC BACK ON

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

BIT
BEQ
ERROR

#D.ACLO,HMR3
98
152

;ACLO NOT RESET AFTER POWER UP

CLR
MOV
MOV
MOV

UNLD
:FOR VALID HALT
#CCLR,RKCS1(RS)
SUNIT.RKCS2(R5) ;DRIVE #
#PACK HCS1

ERROR

116

JSR

005366

SEQ 0093

UNLD
:FOR VALID HALT
#<D.DSC'!D.PIP!D.SPIN!D.VV'D.DRA>
E.A0 :;EXPECTED MSG AO
#<D.SPLS'D.ACLOID.FLT>,E.BO
#<D.UNLDD.REV'D.CART'D.DOOR!D.BRHM!D.SSP>,E.A1
# ,E.B1
PC, CHKMSG
:CHECK MSGS A0, B0, A1, B1
g'bso
:8 MSGS SPECIFIED MERE

1040

104503

ERROR

022436

0225446

203

PC,DOCMD

:MSH BO ERROR

*DEPRESS SPACE AFTER "READY' LIGHT ON
*GET SPACE

:DO PACK CMD & GET CONTR RDY

:CONTR NOT RDY

BIT
BNE

#D.VV,HMR2
658

;g
JMP

11;2§nn
128

.:gselgr Nsueu CART USED
*ELSE EXIT TEST

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

ST
BEQ

STMP2
73$

:SEE IF TRK/SECTOR 0
*REPEAT ,NO nsu DATA ”5" TOOK PLACE

ERROR

Sfi
BIT

gnsvz.nozs
#8170,$THP1

:VOLUME VALID NOT SET AFTER PACK CMD

‘SEEE;'G ".S‘omsfififl“ 13 CHECK AGAINST
:
2

: 12:48 30(1046)

ek ek
ga5est
0s3670

§283833c3080egn0RREASS

48
4874
4875
487
48
£~

CZR6JFO
IBUS RK6 DR=
CZR6JF .P11
04=JAN-8

MACY1

001462

7?’; ~JAN-82

13:06__PAGE 95
AC LOW DETECTION PART 2

BNE
MOV

000004

022142

738:

00145

022676
022704

00122‘6 001436

03372

31
024504

000020

MoV

0°S:WLE SE CTOR SHOULD HAVE ALL 1°'S

#DATAQ,RKBA(RS) ;WRITING 1°'S:WLE SECTOR SHOULD HAVE ALL 0°'S
mg RKCS2 (RS)
#-256. ,RKWC (RS)

$TMP3 . RKDA(RS)

anmms».uoi
TOCYL ,RKDC

005340

;BR IF Ifls"NG 1'S WHEN WLE OCCURRED

z%TA‘I.RKBA(RS) sWRITING

000020 R
1166

663

SEQ 0094

(RS)

#<URTCHK> ,HCS1

;REFRESH RKDA

*EXPECTED WORD FOR TRUERR TYPEOUT

PC,DATCMD

;DO DATA X FOR CMD & GET CONTR RDY

PC,GSTAT

*GET FRESH STATUS

*NO RDY AFTER WRITE CHECK CMD

026106
100000

005340

;gm.nm

040000

005342

%s.ucsz

;SEE IF WRITE CHECK ERROR

000024

001434

RKDB(RS) ,WD1

sACTUAL WORD FOR PRINTOUT

:CERR AFTER WRITE CHECK CMD

136
758

74$:

sWCE AFTER WRITE CMD

005430

#<0!D.SPIN!D.DRDY!D.VV!D.DRA>
,E.AQ

005434
005436

#<D.SPOK !D.CART !D.DOOR!D.BRHM!D.SSP> E.A1

005442
005446

;EXPECTED MSG B0

015.81
E.
lg.E.B

sMSG_ID FOR EX:SCTED MSG 81
sEXPECTED MSG
sMSG ID FOR EXPECTZD MSG B2

PC, CHKMSG

;CHECK MSGS A0,

:MSG AO ERROR AFTER WRITE CHECK CMD

#3,E.8

T.A2'T.82'0

5
0
2

MSG72

044035
023374

;EXPECTED MSG A0

E.80

ENDRV

:EXPECTED A1

sMSG ID FOR EXPECTCD MSG 55

BO,

A1,

-8 MSGS SPECIFIED WERE

:MSH B0 ERROR
:MSG A1 ERROR
*MSG B1 ERROR

*ABORTING BALANCE OF TESTS

758:

001164

000400

:gyz.uoo

000025

000006

%1..“”(!5)

:SEE ;F WRL AT TRK 1, SECTOR 0
:BR_IF NO
sELSE SECTOR BEFORE WRL IS TRK 0, SEC 21

001164

001000

$TMP2,#1000

;SEE IF WRL AT TRK 2,SECTOR 0

000425

000006

68$:

69%
%ES.RKDA(RS)

:BR _IF NO
sELSE SECTOR BEFORE WRL IS TRK 1, SEC 21

UNIBUS RK6 DR=3

P11

04=JAN-82

MACY11 30(1046)
12:48

o;-.:m-az

13:06

PAGE 96

AC LOW DETECTION PART 2

8 1
1
8 1%
146
023154
023156
023164

80;;37
1164
698:
13765
001164 000006
013;§7
oomg 708:
33 7
1 00116
1904.
012765 001456 000004
000403

BNE
MOV
BR

BIT

smr%
:GET SECTOR BEFORE WRL
$TMP2 ,RKDA(RS)
RKDA(RS) ,$TMP3 :FOR ERROR PRINTOUT
#81T0,8THPI
:BR IF WRITING 1'S WHEN WLE OCCURRED
#DATAO,RKBACRS) :WRITING 0°S:WLE SECTOR =1 SHOULD HAVE ALL 0°S
72$

02 196
023174

012765
052765

MOV
BIS

#DATA1
,RKBA(RS) ;WRITING 1°S:WLE SECTOR =1 SHOULD MAVE ALL 1°S
mg RKCS2 (RS)

001462
oggozo

000004
000010

0 sos 81 765 177400 oooogz
023210
017537 000004 0014
023216 013765 001366 000020

71$:
728:

DEC
MOV

SEQ 0095

MOV

023226 012737 000031 005340
023232 004737 024504
0 223 104015
os
oo47§7 026106

MOV
MOV
MOV
MoV
JSR
ERROR
JSR

023252

BEQ

023244

032737
001450

100000

005340

BIT

053 5¢ 032737 040000 005342

#-256. ,RKWC (RS)
anm«fis».uog ;EXPECTED WORD FOR TRUERR TYPEOUT
TOCYL ,RKDC
(RS)

#<URTCHK> ,HCST
pg.mcno
1
PC,GSTAT
a;éna.nm
77$

:DO DATA X FOR CMD & GET CONTR RDY

*NO RDY AFTER WRITE CHECK CMD
*GET FRESH STATUS

BIT

MICE HCS2

:SEE IF WRITE CHECK ERROR

MOV
ERROR
BR

RKDB(RS) ,WD1
137
778

*WCE AFTER WRITE CMD

ERROR

:CERR AFTER WRITE CHECK CMD

MoV
CLR
MOV
MOV
CLR
MOV
MOV

#<0'D.SPIN'D.DRDY!D.VV!D.DRA>
,E.A0 ;EXPECTED MSG A0
E.B0
:EXPECTED MSG BO
#<D.SPOK'D.CART !D.DOOR!D.BRHM!D.SSP>,E.A1 ;EXPECTED A1
# E.B1
:MSG ID FOR ex:screo MSG B1
E.A2
*EXPECTED MSG
og.e.a
*MSG ID FOR EXPECTED MSG
#3.E.B
*MSG ID FOR EXPECTED MSG

03335 ooooo;
023356

ERROR

023262

oou.gs

BEQ

023264 016537 000024 001434
023272 104137
023274 000437
768:

76$

;ACTUAL WORD FOR PRINTOUT

023276

104022

023300
023306
023312
023320
0 33&%6
023332
023340

012737
005037
012737
012737
005037
012737
012737

023346

004737 025264

JSR

PC, CHKMSG

:CHECK MSGS A0, BO, A1,

023356

10405

ERROR

T.A2'T.B2'0
57

:MSG A0 ERROR AFTER WRITE CHECK CMD

osssoo 104062

ERROR

*MSH BO ERROR

:MSG A1 ERROR

010340
005432
001720
000001
005440
000002
000003

005430
005434
005436
005442
005446

LWORD

104031

8023370
5362 000197
}82231 044035
ozsgn

$$gga
55672
JMP
ENDRV

023374

778:

023374

128:

023374

ENDRV:
: 2 L 3332323322233

S+TEST 20

-8 MSGS SPECIFIED HERE

52§ga?}nsngngncs
OF TESTS
g

3 3222333333333 332333323 323322322232322222223222¢2

END OF PROGRAM

THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE

CZR6JFO UNIBUS RK6 DR-S %ng‘l 30(1046) Tglé--..lAM'g'Z0 3&6
CZR6JF .P1
04=JAN-8

PAGE 97

SEQ 0096

4985
498

;e
e
e

‘m

: CHRRAARAARAARAAARAAAANRNNAAANAAAANARAAANAAAAAAAAAAAAAAAANANANNAAAS

4.909

4991

499
233‘

023374

oooggl.

§276 815 7 000001 001174
04 012706 001100

4995 0 §21° oos;y 001220
4

023414

023737

4997 023422
00140
2% 023426 000137

005460

tS§120:

001220

ABOVE TESTS FOR THE NEXT DRIVE PRESENT.
THE NEXT TEST IS ENTERED ONLY AFTER ALL DRIVES PRESENT
HAVE BEEN TESTED.
DO NOT LOOP ON THIS °TEST®.

score

MOV
MOV

#1,8TIMES
#sTACK,SP

::00 1 ITERATION
*RESTORE STK PTR

INC

SDEVCT

sINCR COUNT FOR # OF DRIVES THAT ARE CHECKED

BEQ
JMP

1sT21
NUDRV

$:60 TO NEXT TEST IF YES
<1F NOT, GO BACK & TEST NEXT DRIVE PRESENT.

TMP

012402

omgs.soevcr

*ARE ALL DRIVES PRESENT TESTED?

33 ARARARNRAAARRAARARAAANNRRANAARAAANAAAAANRAAAANAAAARAAAAAAAAAAACAAAAS

s’oo”f

AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT.

55&99

:-:

THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD:

5008
5009

i
T

A. HEADS MUST BE LOADED (SECTOR PULSES REQ'D)
B. THE OPERATOR IS INSTRUCTED TO INSERT THE SAME UNIT SELECT

so1§

C. THE OPERATOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TEST

5001

SATEST 21

THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1

?'6"8:%2»" PAIR AT A TIME) ON ANY 2 DRIVES

558}?

33}4

MULTIPLE DRIVE DETECTION TEST

OR A CONT=-E TO EXIT THE TEST

5015

BOTH SET & THAT THE DRIVE UNLOADS

gg}g

THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES

5020

:; L 3332233333333 1333332313323 3 33333 33223223223 23323233223222322221

33}9

5021

023430

000004

5025
5026

023444
023450

005737
oow.g;

5029

023456 023727 005460 000001

18:

5034

023476

104401

04002

28:

5039

023516

104401

04263

5022 023432 012737 000001 001174
235‘ 023440 012706 001100
?323 023452 000137

TST21:

001216

023722

203] 053066 104001 043175
?33 ozsl.! 7‘3 ooo127 023722

g%
A
2852 i
8 35?3 B
000137 02372

5040 023522 104401 04062

THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE

ScoPe

MOV
MOV

#1,STIMES
#sTACK,SP

::D01 ITERATION
*RESTORE STACK PTR

ST
BEQ

$PASS
1$

:DO TEST ONLY IN 1ST PASS

CMP

DRIVS,#1

Rsce2
f1s

SBYPASS
TEST ONLY 1 DRIVE PRESENT
*ELSE EXIT TEST

TYPE

,MSG28

I
PR,
JMP
1?6

sMULT DRV DETECTION TEST

TYPE

,MSGS

:LOAD HEADS ON ALL DRIVES

JMP

e
JMP

TYPE

118

.nscsg

*ELSE EXIT TEST

R
RR
*RETURN HERE FOR
CONT-E e v comee
:PRESS SPACE WHEN SONE

CZR6JFO UNIBUS RK6 DR=3
CZR6JF .P11
04=JAN~

05%540
023544
023550

004737

030452

004737

026436

104401
4g1

0462714

104024

004737

13:06
98
8 -JAN-82
MULTIPLE DRIVE DETECTION TEST
PAGE

3s:

030453

s 053338

023526

MACY11 30(1046)
12:48

NNNOO—=O

000000

005340
005340
000000
005376

001000

000010

68:

O=O=YH TM
NN WNO O WO
NINNNN
- N -

3S 88888328?
3
b

023726
023732

—_

02371
02372

043127

PC,GETSP

JSR
ERROR

PC,SUBCLR

78:

;CERR AFTER SCLR

TYPE
TYPE
JSR

,MSGS9

;INSERT SAME UNIT SEL PLUG # IN 2 DRIVES

PC,GETSP

:GET SPACE

CLR

MoV

#CCLR,RKCS1(RS)

MSG37

RO,RKCS2(RS)

:DRIVE # COUNTER
:DRIVE #

;ADD CDT IF RKO7
:GET STATUS
;DO DELAY TO CATCH MDS

#MDS ,RKCS2(R5)
7$
RO
RO,#8.
63
176
108

;SEE IF THAT DRIVE HAS MDS
:BR _IF YES

,MSG61

RO,=(SP)

sELSE TRY ANOTHER DRIVE

*SEE IF ALL DRIVES TESTED
:BR IF NO
:CANNOT FIND MDS
*TRY AGAIN

:MULT DRIVES FOUND ON DRIVE #
*:SAVE RO FOR TYPEOUT

UNIT NO
¥
::6G0 TYPE=-OCTAL ASCII
S:TYPE 1 DIGIT(S)

: :SUPPRESS LEADING ZEROS

,MSG68
UNLD
,MSG60
‘MS5G63

*VERIFY BOTH DRIVES UNLOADED
:FOR VALID HALT
:INSERT CORRECT UNIT SEL PLUG & LOAD HEADS
:DEPRESS CONT=E OR SPACE BAR WHEN DONE

11§

*RETURN HERE FOR CONTROL-E (EXIT)

PC,CCSP

gr,«.o

11$:

:DEPRESS SPACE BAR WHEN DONE

PC.DLY

108:

:GET SPACE

#SELDRV,HCS1
$TMP4 HCST
HCS1,RKCS1(RS)
150000, TEMP1

£ 3%
85 ¥ g 8 385888
8RS

023570
023576
023604
023612
023620

WW
Nbr-fl

NINWVBZWNNWBWD»a

8%§§22

023554

JSR

*INPUT CONT-E OR SPACE

*RETURN HERE FOR SPACE (DO AGAIN)

UNLD
PC,SUBCLR

;CERR AFTER SCLR

SEQ 0097

FEERRSRLEL gg

RK6 DR=

P"“m

ND OF PASS ROUTINE

PAGE 99

SEQ 0098

END OF PASS ROUTINE

'INCREKNT THE PASS NUMBER (SPASS)
;*TYPE

"END PASS #XXXXX'' (MRE XXXXX IS A DECIMAL NUMBER)

:*]F THERES A MONITOR GO TO IT
;IF THERE ISN'T JUMP TO STSXY
$SEOP:

1o§
10

764
766

sni
5113

13:06

SARRARRARAARAAAARANRNNRCCRARAAANNAAAAAAANANNNANANNNAAANNNOANOONS

100

104
105
§‘°9
107
5108
5109
5110
5111

12:48

O‘-JM-OZ

.SBTTL

7%
7
75
7

101

M Y11 30(1046)

77
3776
024000
024004
024
02401
024016
024020
024022

005037 oo11gz

885 7 83" 4
5237
001216
8'6§ 7 100000 001216
7

CLR

$DOAGN
(PC)+,a(PC)+

::YES
::RESTORE COUNTER

SENDMG
$PASS, = (SP)

::TYPE “END PASS #"
*SAVE SPASS FOR TYPEOUT
..so TYPE--DECIMAL ASCII WITH SIGN
TYPE A NULL CHARACTER
..ser MONITOR ADDRESS
::BRANCH IF NO MONITOR

SENDCT: .WORD
$EOPCT
TYPE
MOV
TYPDS
TYPE
$GET42: MOV
BEQ

000005
004710

511

5119
5120

024034
024036

024059

RESET
SENDAD: JSR

g}zg

323’52

5124

519
5127
5128
;1;3
1

$DOAGN:

137
000

osoo:.g

051501

02012

024056

122737

000001

001230

024066
024074
024076
024102
106

022737 000002 001216
1 102;
005237
001102
18:
000775
000137 010612
28:

015 062412 042116

5155 024064 001007

NOP
NOP
NOP

JMP

SRTNAD: .WORD
SENULL: .BYTE

377

5131 024041

8GT
MOV

1
s‘ 62
106401
oml.g
10440
106401
o137og
00140

024036
000042

;;ZERO THE TEST NUMBER

STIMES
$PASS
#100000, SPASS
(PC)+

$EOPCT: .WORD

024041
001216

STSTNM

CLR
INC
BIC
DEC

00 g;
01

5114 024026 000240
5115 024026 000240
5119
4030
000240

5118 0240

SCOPE

SENULL
N2 RO
$DOAGN
PC, (RO)

a(PC)+
srsxv

::2ERO THE NUMBER OF TERATIONS
mcasnsur THE PASS NUMBER
..oon T ALLOW A NEG. NUMBER
::LOOP?

::CLEAR THE WORLD
*:60 TO MONITOR

::SAVE ROOM
::FOR
SIACTN

: ;RETURN
g

'M.L CHARACTER STRING

SENDMG: .ASCIZ <15><1 >/END PASS#
STSXY:

CMPB

WAPTENV,SENV

CMP
BHI
INC
BR
JMP

#2,3PASS
28
STSTNM
1$
STS

BNE

UNDER APT ?

:BRANCH irNOT

:TWO PASSES DONE ?
*BRANCH
IF NOT
*CHANGE THE TEST NUMBER
:LOOPING
SEXIT

.SBTTL

9:'6
n )+

:TYPE PROGRAM ID IF FTITLE=0
001360

035758

i v

CLR
INC

RTS

e T

MOV

BNE

18:

U S

000042

TITLE:

BNE
CMPB
BEQ
CMP
BNE

648
SENV.M
648
SWR, #SWREG
658

..eamcu IF YES
ARE WE RUNNING UNDER APT?
*:BRANCH IF YES
..sonwce SWITCH REG SELECTED?
*BRANCH IF NO

2’5’35

MOVE

#1,$AUTOB

::SET AUTO-MODE INDICATOR

18:

RTS

001140

BNE
INC
TYPE

Gg? VALUE:gfl SOF TWARE SUITCH REGISTER

i I

g;sua

000001

FTITLE

;PROGRAM ID

.SBTTL

001230

TST

1$
FTITLE
MSG1

CLRFLG: MOV

I G

SUBROUTINES

ST S
ORI U

AV AV A

197937

e i R

ARE WE RUNNING UNDER
XXDP/ACT?

+:GET SOFT=-SWR SETTINGS

ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET

GDRVS:

177770

177400

18:

005665
00006

28:

N =o

=~
A NN

-\ —
~ —=O~W

8583888888
28 —
R0~ ' NNNg ~‘“
§u\n~ fSSS38=

3
F Y

SRS

[eleleleTle] o0

o
OO0

SRR

S S

DRIVS. DRIVO-DRIV7 REGISTERS APPROPRIATELY

000070

RDLIN
MoV

:GET STARTING ADDR OF ASCII STRING

(RO)+,R2
#177400,R2
muvo R3

*GET ASCII CHAR
*MASK HI BYTE
:DRIVE FLAG ADDR

#-8. R

nov

#60,R4

MOVB
axc

cMP

*SET UP COUNT

BEQ
}zz

R4 ,R2

33
&mo

:WAS TYPED CHAR 0 THRU 7?

CMP
BNE

RG,#70
2

:S/B 0-7 OR TERMINATOR

sDEFAULT ALL DRIVES

177770

(SP)+,RO

MOV

CMP
BEQ

R2
4%
R1.4-8.

*BRANCH IF YES
*NO, INCREMENT DR FLAG ADDR

oms

SEQ 0099

sSUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM

e o

PAGE 100

- Aa

MACY11 30(1046) 04~JAN-82 13:06
12:48
SUBROUTINES

IBUS RK6 DR<
04=JAN-

CZRGJFO
CZR6JF.

CZWFO %NIWSO‘RKS Dl-g Hstu‘l 30(1046) GE0‘-JAN-!2

CZR6JF P11

026

5037

005510

78:

RTS

190
191

024274
024 73

005 1;
005237

'
005460

3s:

INC
INC

19
196

4
04
024310 022702

177400
000054

}§$ 8345% 880%7 5195

gwg

024314

8 4316

19
4
g}gg 024

00140

BIC
CMP

BEQ

005702

001001
000761

BNE
B8R

4s:

s%g‘

oosg%

58:

005237 005510

68:

024 gz

5
024
001
gzzgz 024340 000771

5207 024342

35%

024346

000207

g%}%
§21

024350

5216
5217

024354
024356

5219

024364

000207

2551

024374

000207

5218

024352

104412

GBA:

012600

005700
001403

024360 010037 001264

5220 024366 012737

177440 001264

522
gggg

5226

024376

104412

5253

024402

oosmg

8 fiis

% 2;

9)4 R2

74.60 R2

:BYPASS TEST 1 (SIZING)

:FOUND TERMINATOR, EXIT
sSET UP FLAG FOR THE DRIVE
< INCREMENT TOTAL # onxves T0 BE TESTED

se NEXT ASCII CHAR

MASK
xs IT A COMMA?
:YES, GO TO NEXT WORD.

no. IS IT A TERMINATOR?

1 NOT, SOMETHING WRONG.
OUND TERMINATOR, EXIT

TYPE
JMP

EM1
PRGSRT

;ONLY 0=7 ALLOWED.
:START ALL OVER

INC

:S/B NO MORE THAN 8 DIFF

BNE
BR

INC

RTS

RDOCT

MOV

1$
48

:DRIVES TYPED IN.
:1F NORE, HAVE ERROR.

SIZFLG

:DO TEST 1 (SIZING)

18:

(SP)+,R0

ST
BEQ

RO
18

RTS

MOV

GINT:

5228 024400 012600

553

sxzn.c

SEQ 0100

SEXIT.

MOV
RTS

RO, $SBASE
#177440,8BASE
PC

:GET LOW ORDER FROM STACK
:BRANCH IF DEFAULT.

:DEFAULT VALUE

:
:ROUTINE TO INPUT RKVEC OR DEFAULT

5227

*ROUTINE TO INPUT RKBAS OR DEFAULT.

5214

5215

CLR

MOVB

§200 0 “i'é 104.4.21 044402
%1 024330
000137 010016

5208

PAGE 101

T VALUE FOR SOFTWARE SWITCH REGISTER

187

19;

13:06_

84606 0014
0244
owg 7 001334

024430

2s:

RDOCT

MOV

(SP)+,R0

:GET LOW ORDER FROM STACK

18
RO,RKVEC

:BRANCH IF DEFAULT

#210 ,RKVEC

:DEFAULT VALUE

‘.;ls!

:E.SETINT

BEQ
MOV

34 024420
012737 000210 001334
éss
osu.zo 000771

18:

523
ggg

3
;ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY

5240

5241

024430

013700

001334

5242 024434 0127‘2’3 031152

MOV

SETINT: MOV

MOV

RKVEC,RO

#INTER,(RO)+

;INTER ADDR TO RKVEC

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=J

MACY11 30(1046) 04~JAN-82 13:06 PAGE 102
12:48
GET VALUE FOR SOFTWARE SWITCH REGISTER

g:.s osw.o 013719 001336
b

§245

024446

MOV

00020

RTS

3¢
ga

024446 053737 001170 005340 DOcMD:

5255

024474

gggz

024502

0244564 013765 005340 000

5253 0
5254 024470

013737 001424 005376
004737 024542

BIS

MOV

MOV
JSR

ooo;or

RTS

5256 024476 062716 000002

ADD

000207

RTS

5259
ggg?

DATCMD: BIS

5264 024520 013737 oou.ss 005376

MOV

024506

024512

053737

013765

5265
266

024526
024532

004737
000207

5268

024540

000207

5267 024534

355

001170

005340

000000

02454

062716 000002

‘

024542

032765

000200

5279

024552

005337

005376

5278 024550 oo1o1g

000000

FRDY:

cz.(sn

*ELSE SKIP OVER ERROR

$TMP4, HCST

JSR
RTS

PC,FRDY
PC

RTS

024576
85“02

004737
004737

000207

BIT

BNE
BNE
JSR

3585 054330 0OGs0y |cov2¢
5284 ozmg 062;19
2

18:

024676
026024

- B
ADD
JSR
JSR

RTS

gggg

5292

:FIND CONTR READY

HCS1,RKCST1(RS)

DEC

5280 024556 001371
5281 024560 004737 024676

5291

710, TEMPI
pc FRDY

:SET HERE IF NOT RDY

rsoobo.rsm

;ADD CDT IF RKO7

:DO CMD

:FIND CONTR RDY

#2,(SP)
PC

;ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY
*ENTER WITH A COUNT IN TEMP1
*RETURN IF RDY NOT PRESENT (ERROR CONDITION)
*RETURN +2 IF RDY PRESENT (SKIP OVER ERROR)
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

5377

ggga

;ADD CDT IF RKO7

MOV

ADD

5271
5272
5273
5274
gg;g

5285
52

STMPS

HCS1 h:cswm *DO COMMAND

STHIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS
:8 REQUIRES A LONGER TIMEOUT
005340

5263

:PRS TO RKVEC+2

*ENTER WITH COMMAND IN HCS1

5252

szog

:THIS ROUTINE SETS CDT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7.

: 's’o

§251

RKPRI, (RO)

#RDY ,RKCS1(RS)

TEMP1

FRDY
PC,HOLD

S
#2,(SP)
PC.HOLD
PC.CKCERR

:STORE ALL RK611 REGS m HOLDING REGS.

SCHECK FOR SPECIAL CER
:SKIP OVER ERROR
:CHECK FOR SPECIAL CERR

Z:aounns TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY
024610

032765

0 4618 001014

000200

000000

5
) By oose
5295 3 4626 oussgr
005366

§2239
3 2242 352;3; 026024 e
5298 024646 000207

FRDY1:

BIT

#RDY ,RKCS1(RS)

u
MOV

I
RKMR2 (RS) ,HMR

BNE

5'2.'.
RTS

5??&233e
:CHECK
FOR spscuu. CERR CONDITIONS
PC
*NO RDY, EXIT

SEQ 0101

d e

WWWWWWWWNWWNW
RRPRRRRERY NN
W
NN NN
NN N N
NN NNN g
RN 2 00 O N I R = O D NS A RS
KKK
S33RERReRE88
Vil

N NN NN

04=J

zfl
’N
AW VAV
WA WA AWV
T
A AT
ViAW VIWVAWAWAWMAWVIWIWWA
WA WA
AW W

UNIBUS RK6 DR=3

024650

4656
4670

024676

MACY11 30(1046)
12:48

0165
9
16; 7 0000

004737 026024

885;96
5370

04=JAN-82

13:06

PAGE 103

GET VALUE FOR SOFTWARE SWITCH REGISTER

1$:

ADD

;SKIP OVER ERROR

PC,CKCERR

;CHECK FOR SPECIAL CERR CONDITIONS

RKMR2 (RS)
, HMR
RKMR3(RS) _HMR

RTS

JSR

000207

#2,(SP)

MOV
MOV

:STORE ALL RK611 REGISTERS IN HOLDING REGS
024676

024706
024712
024720
024726
024
024742
024750
024756
024764
024772
025000
025006
025014
025022

016537

016537
016537
016537
016537
016537
016537
016537
016537
omsgr
016537
016537
016537
016537
000207

000000

ooomg
000002
000004
ooooog
000012
000014
000016
000020
oooogg
000034
oooogg
000030
000032

885340

5342
005344
8353‘
535
00535
0053564
oosgzb
005360
005364
005366
005370
005372
005374

HOLD:

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

RKCS1(RS) ,HCS1

RKCS2(R5) JHCS2
RKWC (RS) , HWC
RKBA (R5) . HBA
RKDA (RS) HDA
RKDS (RS) .HDS
RKER(RS) HER
RKASOF (RS) ,HASOF
RKDC (RS) ,HDC
RKMR1 (RS
, HMR1
RKMR2 (RS
) _HMR
RKMR3 (RS) JHMR
RKECPS
(RS) ,HPOS
RKECPT
(R5) _HPAT
PC

JROUTINE TO CHECK FOR CORRECT ATTN
*RETURN IF ATTN NOT PRESENT (ERROR CONDITION)
:RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)

025024

010446

025032
025040

136437
001404

025050

000207

025054

000207

025026 013704

oo12§2
005330

TSTATN: MoV

MOV

005357

BITB
BEQ

025042 012604
50646 062716
000002

025052 012604

MOV
ADD
18:

RTS

MOV
RTS

R4 ,=(SP)

SUNIT,RG

:SAV Ré

ATTN(R&) ,HASOF +1
18
:BRANCH IF ATTN NOT PRESENT

(SP)+,Ré4
#2,(SP)

*RESTOR Ré
:INCR RET ADDR TO JUMP OVER ERROR.

(SP)+,Ré4

:RESTOR R4

*ROUTINE TO FIND ATTN WITHIN TIMES 3awsn THAN 1 SEC
:ENTER WITH TIME IN SECONDS IN TEMP
:RETURN IF NO ATTN (ERROR CONDITION)

*RETURN +2 IF ATTN FOUND
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

o%sooo } 739 177777 005376 38:
025
704 001222
8 Sggg 813646
005§§0 000017 18:

025056

0 01044

5100
025102

001g
005337

FATT1:

005376

MOV
#-1 irem
MOV
SUNIT R4 ,RKASOF+1(RS) ;FIND CORRECT ATTN
BITB ATTN(R4)
MOV

Ré,=(SP)

BNE
DEC

2s
TEMP1

:SAV Ré

SEQ 0102

FO UNIBUS RK6 DR=3
F.P11
04=JAN-82
AWM
VWAV WA

WL NN

025106

§11

001371

885

MACY11 30(1046)
04=JAN-82 13:06 PAGE 104
12:48
GET VALUE FOR SOFTWARE SWITCH REGISTER

BNE

005400

DEC

5
5114
001361
sg
sng oosgg; 000026
5
51
804
026106
ggo 8 5126 0‘1)8606
1

0251

207

323 025132

005065 000026

S 025142
369 025144

012604
716 000002

ggc 025136
367

3
RKMR1 (RS)
PC,GSTAT
(SP)+,Ré4

CLR

RKMR1 (RS)

JSR

MOV
ADD

000207

RTS

PC,GSTAT

(SP)+,Ré4
#2,(SP)
PC

;SELECT WORD 0
*GET LATEST STATUS
*RESTOR R&

:GET STATUS AFTER ATTN SEEN

*RESTOR Ré
*SKIP OVER ERROR

*ROUTINE TO FIND ATTN WITHIN 1 SEC
*ENTER WITH COUNT IN TEMP1
*RETURN IF NO ATTN (ERROR)
*STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE

WWWWWW

AWV
YA4l WA VAV

370
371
7;

<
oo NNN;‘

369

025150

004737 026106

28:

t;mz

BNE
CLR
JSR
MOV
RTS

SEQ 0103

SRETURN +2 IF ATTN FOUND

025152

010446

025156 013704 ongz
379 025160 136465 005330 000017
380 025196 oo1g11
381

025170

005337

005376

384

025202

004737

026106

386

025210

000207

FATT2:

MOV

MOV
BITB
BNE
DEC

R4 ,-(SP)

:SAV R4

SUNIT,RG
ATTN(R&) ,RKASOF+1(RS)
18

;FIND CORRECT ATTN

TEMP1

sag 025174 001367
383 025176 005065 000026

BNE
CLR

28
RKMR1 (RS)

sSELECT WORD 0

385 025206 012604

MOV

(SP)+,Ré4

*RESTOR Ré&

387 025212 oosogs 000026
388 025%1 004737 026106
389 02522
390 025226
1

025230

JSR

18:

015606
062716 000002
000207

PC,GSTAT

RTS

MOV
ADD

(SP)+,R&4
#2,(SP)

CLR
JSR

RTS

RKMR1 (RS)
PC,GSTAT

JGET LATEST STATUS.

:RESTOR Ré
*SKIP OVER ERROR

*ENTER WITH A COUNT IN TEMP1
:THE DELAY IS APPROX 17 US/ITERATION + 12 US TO EXIT
:WHEN COUNT IS 0. BASED ON AN 11/05

025232

025236

99 025240

025244

025246

005737 005376
oou.g;

005337

000772

pLy:

005376

000207

18:

TST

TEMP1

DEC

TEMP1

: g us

‘3.8 US

BEQ

RTS

DLY

.-s.g us

:2.5

:THIS ROUTINE TYPES BYPASSED DRIVE#.
025250

104401

025254

010046

025256

104403

osszoo

001

037367

BYP:

TYPE

MSG14

ENTER WITH DRIVE# IN RO

:BYPASS DRIVE

MOV

RO,=(SP)

;:;cgg gg’FOR TYPEOUT

TYPOS

1260 TYPE--OCTAL ASCII

.BYTE

SSTYPE 1 DIGIT(S)

DR=3

MACY11 30(1046)

owm-az

12:48

025261

13:06

PAGE 105

VALUE FOR SOFTWARE SWITCH REGISTER
BYTE

RTS

%’z}';

::rms ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ'D.

54.19 025 94. &5937 000000 001504 CHKMSG: MOV
5417 025272
19 00000
ADD
552}3

025276

004737

02614

sl.sogo

osgr 7

001222

JSR

005430

BIS

sség 025332 053737 012662 005430

BIS

5421 025310 053737 001222
54.5; 025316 053737 00155
552 3 0253264 053737 001

005434
005440
005444

: :SUPPRESS LEADING ZEROS

53 055262 000389

3(SP) ,CHKFLG
#2, (SP)

:PASS MSGS TO BE resm
*BUMP RETURN ADDR TO 1ST ERROR

SUNIT.E. AO

;SET UNIT #

E.DDT,E.AD

;ADD DRIVE TYPE

PC.GSTAT1

BIS
BIS
BIS

SUNIT. E
SUNIT.E.A
SUNIT.E.A

22%; 025340 013746 005376
s:.gg 25344 013737 005430 005376
5
zsssz 004737 030306
5523' 025356 013737 005376 005430

MOV
MOV
JSR
MOV

TEMP1,~(SP)
E.A0, TEMP1
PC, SBPAR
TEMP1 ,E.AD

5434
5532
5437
5438
55223
5441
S“g
sszz‘
5445
5446
5522;
5449
5450
55221
5453
5454

JSR
MOV
MoV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR

seg 025364 013737 005434 005376

55225

025372
025376
025404
025412
025416
025424
OSSL 2
025436
025444
025452
025456
025464
025472
025476
025504
8 5512

004737
013737
013737
004737
013737
013737
004737
013737
013737
004737
013737
013737
ool.rgr
013737
013737
004737

030306
005376
005440
030306
005376
005432
030306
005376
005436
030306
005376
005442
030306
005376
005446
osoggs

005434
005376
005440
005376
005432
005376
005436
005376
005442
005376

MOV

5516 013737 005376 005446

MOV

5459 °§”§’5 0159 7 005376
ggg 025530

MOV

013737 001176 001172

E.A1,TEMP1

PC, SBPAR
TEMP1,E.A1
E.A2, TEMP1
PC, SBPAR
TEMP1 E.A2
£.80, TEMP1
PC SBPR
TEMP1 ,E.BO
E.B1,TEMP1
PC,SBPAR
TEMP1,E .B1
.82, TEMP1
PC,SBPAR
TEMP1,E.B2
€.83, TEMP1
PC, SBPAR
TEMP1,.E.B3

(SP)+, TEMP1

*GET ALL ACTUAL DRIVE t CONTR STATUS

;SAVE TEMP1

:GET PARITY FOR MSG AO

:GET PARITY FOR MSG A1
.
'

;GET PARITY FOR MSG A2

:GET PARITY FOR MSG B0

:GET PARITY FOR MSG B1

:GET PARITY FOR MSG B2

:GET PARITY FOR MSG B3

;RESTORE TEMP1

MOV

SESCAPE,STMPS

:SAVE ESCAPE

5460 025536 023737 005410 005430
5461 025544
001411
s«g 025546 012737 025560 001176

CMP
MOV

H.A0,E.AD
28
s sescm

;TEST MSG AQ
:BR IF 0K
*ELSE SETUP ESCAPE

gzgg

RTS

‘8 RETURN TO MAINLINE ERROR

BIT

#SW9,aSWR

5463

025554 01164
025556

00020

5466

025560

032777

BEQ

MOV

.
001000

153352

18:

(SPS,=(SP)

:COPY RET ADDR.

sRET HERE FROM MAINLINE ERROR

SEQ 0104

S RK6

E%:gjr Amw 6

1107

85574.
025602
0 ggoa
025612
025614
025616
0256264
025626
gsoss
02564
ozsu.s

3737
001411
12737
n“g
20
032777
001070
062716
853737
1611
812737

025652

000207

025654

032777

MACY11 30(1046)

12:48

835293 822716 000002
71
72

ss?.;'s'
54;9
5477
552;3
5480
5481
56
5483

ssm:.as

025650

011646

005412 005432
025616 001176
001000

o:.-m-az

28:

001000

153314 4$:

153256

78:

8s:

5490 025670 023737 005416 005436
5491

025676

001411

552345.

025710

000207

5496

025712

032777

001000

gzgg

025722

062716

000002

5500
5501
5502

025726
02573
025736

032737
00140
004737

000001

5506 025750

00140

5492
5493

5503

025742

ggos

025752

032737

004737

026722

000002

153220

ADD

cmP

RTS

BIT

#SW9, aSWR

MOV

118$:
001504

128:

001504

13$:

026774

H.81,E.B1

MOV
MOV

#10$, SESCAPE
(SP) .=(SP)

BIT

#SW9, asWR

ADD

#2,(SP)

BIT
BEQ
JSR

#T.A2,CHKFLG
13§
PC,RCYLD

;TEST MSG A2?
*BR
IF NO
JPUT INFO CYLDIF, DO NOT CHECK

BEQ

14$

:BR IF

BNE

BIT

004737

02707

JSR

5515
gg}‘

025776
026004

013737
000207

001172

5519 026012
gg;s 026020

01373
000177

001100

1172 001176
153064

5519

JSR

#T.B3,CHKFLG

:TEST nss 827

sPUT mro IN CYLADD, DO NOT CHECK

:TEST MSG B3?

PC,RSEC

:PUT INFO IN SECTOR, DO NOT CHECK

MOV
RTS

sm»s.sesme

;RESTORE ESCAPE

MoV

osugxSP

;RESET STACK PTR

MOV
JMP

PC .RHEAD

sw £sscm

:PUT INFO IN HEADA, DO NOT CHECK

*RESTORE ESCAPE

:THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY

g;gg

§522

208:

#T.B2,CHKFLG

15$

025

‘BR IF 0K

208

BEQ

gg}g

:TEST MSG B1

PC,RCYLA

BIT

5515 026006 o1§7

118

JSR

0014

158:

(SP) ,=(SP)

cMP

025764

001176

:TEST MSG B0
*BR
IF 0K
ass serur escm
i
mum ro mm.me ERROR
;RETURN uene FROM MAINLINE ERROR
*% BR IF LOOP ON ERROR
‘BUMP m ADDR TO NEXT ERROR
sTEST MSG A1
:BR IF OK

208
#2,(SP)

5508

004737 02703

:8 BR IF LOOP ON ERROR

*BUMP RET ADDR TO NEXT ERROR

BNE
ADD

RTS

108:

33?(9)

RTS
BIT
BNE
ADD
P
BEQ
MOV

5533 025756 032737 0000064 001504 14$:
5509 ogsr

PAGE 106

H.80,E.80
1)
#48,SESCAPE
(SP§ ,=(SP)
PC
#SW9, aSWR
208
#2,(SP)
H.A1,E.A1
'3
#7%,SESCAPE

BEQ

025700 012737 025712 001176
025706 011646

5497 025720 001032

BNE

BEQ
MOV
MOV

000002
5$:
005414 005434
025654 001176

5487 025662 001051
% 025664 062716 000002

13:06

T VALUE FOR SOFTWARE SWITCHM REGISTER

:1.E.: IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID

026024

005737

001502

CKCERR: TST

BYPCERR

SEQ 0105

RK6 DR=3

UNIBUS

[lale

CZR6JFO

CZR6JF P11ll"'sol.-.nvm-

TN
NOMWVIESNN

lalsl

UNIBUS RK6 DR=3

04=JAN-82

60
604

12:48

AV AN

NS WN=O0

13:06

PAGE 107

BNE
BIT
BNE
RTS

1]
#CERR,HCS1
18
PC

:BR IF CERR
;BR IF NOT CTO
*CTO ERROR, MSG A & B INVALID

032737
081" 2
1 5'1)1
000207

004000

005340

18:

BIT
BEQ
ERROR
RTS

o;ro.nm
s
211
PC

026060

032737

010000

005342

28:

BIT

#NED ,HCS2

026072

032737

001000

005342

38:

BIT

#MDS ,HCS2

026102

104213

ERROR

213

026104

000207

8 eo% 001401
1046212
026100 001401

GET VALUE FOR SOFTWARE SWITCH REGISTER

026044
026052
3 6056
6056

48:

BEQ
ERROR

BEQ
RTS

gs
212

:BR IF NOT NED
:NED ERROR, MSG A & B INVALID
:MDS ERROR, MSG A & B INVALID

“THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS
21T THEN WAITS FOR CONTROLLER READY

;1F RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED

026106 013746 005376
GSTAT: MOV
026112 013765 001222 000010
MOV
026120
012737 000001 005340
MOV
026126

JSR

PC ,DOCMD

;DO SELDRV (STATUS) CMD & GET CONTR RDY

026136 012637 005376

MOV

(SP)+,TEMP1

*RESTOR TEMP1.

026140

004737

TEMP1,~(SP)
:SAVE TEMP1
SUNIT,RKCS2(RS) :CURRENT DRIVE #
#SELDRV,HCS1

024446

026132

104117

ERROR

000207

RTS

117

*RDY NOT SET BY END OF SELECT DRIVE CMD

:THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AO-A3, B0-83)

AWM VA AR
AWM A

wvivun
e
~ NNNNNNNY

VIV

04=~JAN-82

195;
100000 005340
1g81
7

A DA

VIV

R LR 33
SEEETREREE SAUATAAO
IXEE&\fl&“
VEISA

VIV VIV

VI AWMV

P11

MACY11 30(1046)

;8 ALL CONTROLLER REGISTERS.

026142
02614

o1374.9
80473

ozog

1%171;

GSTAT1: MOV
JSR

026152
012765
026160
013765
026166 01 7gs
3 6176 004737

8 23? 8137%7

026216 012765

0 §4

1zrgs

nnungg
26

56 '4'4 104171; ath
005420
056254. 013737 oosg% 005422
026246 013737 005

:SAVE TEMP1
*GET ALL CONTR REG

.1"{

.;g%Rgo;s 3‘7\3BY END OF SELECT DRV CMD

MOV
MOV
MOV
JSR

#CCLR.RKCS1(RS) :CLEAR CONTR
ssan msims» *CURRENT DRIVE #
#3.RKMR1(RS)
:SELECT WORD
pg GSTAT?2

MOV

miluiai

533“

15765 0012

TEMP1,~(SP)
PC ,HOLD

MoV

MOV

#CCLR,RKCS1(RS)

sgm.nxcs (RS)

#2,RKMR1(RS) ~ ;SELECT WORD 2

éifim fi’ssmz
HMR2,H.A
MOV
mi.u.a
MOV

*STORE MSG B3

RDY NOT SET BY END OF SELECT DRV CMD
*STORE MSG

*STORE MSG

SEQ 0106

CZR6JFO

le RK6 DR=3 MACY11 30(1046)

2373

I6JF%“

M—d12: “

12765 1
1 ;g; oo1§

BB B
5

mov
MOV

MOV

SR
ERROR
MOV
MOV
MoV
MOV

885;98
005414
5
005416
6

000000
000010

e ey

026

MOV

330¢ 026370 000507
s

012637 005376

5598 863‘7)3
5599

0264

1§g7

MoV

005340 GSTAT2: MOV

062 19 000002

ADD

53737

001170

005340

BIS

5600 026406 013765 005340
5601 026416 013737 001426 005376
seog 026422 004737 024610
5603

026426

MOV
MOV
JSR

5605

026434

RTS

5604 ogfi

sso!
“9

000207

00020

PAGE 108

#CCLR,RKCS1(RS)
IT msims:

& mia

RTS

sSELECT WORD 1

rs "GSTAT2
14
:RDY NOT SET BY END OF SELECT DRV CMD
m.n.m
*STORE
MSGA1
JH.B1
*STORE MSG B1
occu.nxcsms»
sum xsszms)

B D
H.80
JSR

ggg 026356 137 7 oosg% oosug

5594

13:06_

VALUE FOR SOFTWARE SWITCH REGISTER

6372

58
gg&
: 5

58
sgg

M-JM-CZ

(SP)+,TEMP1

assmv HCS1
$TMPG HCST

e
eew oo
*STORE MSG 38
;RESTORE TEMP1

;ADD CDT IF RKO7

HCS1 fixcs1 (RS) :GET STATUS
710, TEMPI
PC, fuon
:FIND CONTR RDY z sroae DRIVE REGS ONLY
PS

#2,(SP)
PC

*RET MERE IF NOT

*RET MERE IF OK

*THIS ROUTINE DOES A SUBSYSTEM CLEAR & wurs FOR CONTROLLER READY

5608
5609
5610

:1F RDY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR IS FLAGGED.
:THE ROUTINE THEN GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR)
*RETURN IF CERR SET

sSg}l

RETW +2 IF CERR CLEAR

saf 026436 0157 S 000060 000010 SUBCLR: MOV

#SCLR,RKCS2(RS) ;SUBSYS CLEAR

5619 osu.

104120

120

5618

0 ugg

005065

000026

026476

032737

100000

02651

000002

5614 026446 013737
5615 026452 004737

5617

SEEREREREERRE

MOV
JSR

ERROR

0 u28 013765 001222 000010

5619 0264

001424 005376
024542

026504
0265
6514

7 0261

001401
;o7

00020

MOV
CLR

JSR

005340

BIT

1$:

BEQ
RTS

ADD
RTS

710, TEMPT
PS FRDY

:FIND RDY

*RDY NOT SET BY sno OF SCLR

surm nxcszms» *CURRENT DRIV
(RS)

PC ssm

octan HCS1
5

#2,(SP)
PC

saecr uono

*GET STATUS

*CHECK FOR CONT ERROR

:SKIP OVER ERROR

:READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR®
026516

012765

000026

il 32°s°°'9§°oo
5523§
§ 22432 0057 ; ?97o 55
5634 026550 006 gr 55

RDSEC:

MOV

w
gslig
ASR

#3,RKMR1(RS)

:WORD 3

s
g.CdSECDmmgmr
JUSTIFY
SECTOR
:SECTOR

SEQ 0107

CZR6JFO

UNIBUS RK6 DR=3

04=J

MACY11 30(1046)

12:48

33333333

CZR6JF .Pw

554
14
s
R7 1%

sss;
ssgg‘

6646
026650

6564

ASR

RTS

SECTOR
g

SEQ 0108

+INFO

RDCYLD: ?osx

gg.msxm (RS)

;WORD 2

3737 012
001376
7 88
7
001376
7
001376
7
001376
7 001376 012656
102;

BIC
ASR
ASR
ASR
ASR
cMP
BNE

MASK1,CYLDIF
CYLDIF
CYLDIF
CYLDIF
CYLDIF
CYLDIF ,MASK
18

:RIGHT JUSTIFY
:CYL DIFF/OFFSET
+INFO
:CHK TO SEE IF RET IN COMPL. FORM
*BR IF NOT

13737 oS?

005037
000207

001376

MOV

18:

CLR
RTS

ufig.cvmr

CYLDIF
PC

*CLR IF YES

*READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN

5657 826652 012765
5658

026660

004737

ozm%

5660

026672

043737

012660

5665

026720

5670
5671
5672
56
5676
5675
56;9
5677
gg;’g

0567
026736
026742
02675
026756
026764
0 6;93
026

5659 0

013 7 3053

5661 026700 ooes 7 001400
5665 026
006237 001400
5663 026710 %gr 001400
5664 026714
7 001400

sum?
566”9' 0267,

000026 RDCYLA: MOV
JSR

001400

MOV

001400

#2,RKMR1(RS)
PC.GSTAT

HMR3,

°*CYLADD'

;WORD 2

CYLADD

BIC

MASKT, CYLADD

RTS

BIC
ASR
ASR

MASKT,CYLDIF :CLEAR UNWANTED INFO
CYLDIF ;RIGHT JUSTIFY
CYLDIF
CYLDIF
CYLDIF
CYLDIF ,MASK
:CHK TO SEE IF RET IN COMPL. FORM
18
:BR IF NO
CYLDIF
*ELSE CLEAR
PC

ASR
ASR
ASR
ASR

000207

CYLADD
CYLADD
CYLADD
CYLADD

;RIGHT JUSTIFY
sCYL ADDR
+ INFO

§nm THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN °*CYLDIF®
o1§ 7 005420 001376 RCYLD: MOV
H.A2,CYLDIF

0463737
006237
7
7
7
023737
001 ;
005037
00020

omgo 001376
001376
001376
001376
001376
001376 012656
001376

gggg

PAGE 109

§; 8°°?8£ 000026

ssggz

5684

13:06

READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF'

0
8 6614
026624
5649 0
5650
5651
026642

’su”g

04~JAN-82

GET VALUE FOR SOFTWARE SWITCH REGISTER

ASR
ASR
CMP

BNE

18:

CLR

RTS

::nm THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN *CYLADD'

776

013737

005422

001400 RCYLA: MOV
900 0437 7 3‘1’2665 001400
BIC

02701

027014

7 001400
7

001400

sirte)
Boegsr 01600
?& 27030 000207
?290'

ASR

H.B2,CYLADD
MASKT,CYLADD
;CLEAR UNWANTED INFO

CYLADD
CYLADD

sRIGHT JUSTIFY

G
RTS
PC
:READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR®

i 057040 i3
38SS3eoSS88808

3693

RSEC:

705
7
7
7066

BIC

RTS

PAGE 110

H.83,SECTOR
#4C<h, SECT>,SECT OR

SECTOR
SECTOR
SECTOR
SECTOR

;CLEAR UNWANTED INFO

sRIGHT JUSTIFY

READ THE HEAD ADBR IN H.B3, RIGHT IT & STORE IT IN "HEADA'
g 7070
7076
027104
027110

027114

RHEAD:

MOV

BIC

H.B3,HEADA

ASR

#4C<M.HEAD> ,HEADA ;CLEAR UNWANTED INFO
HEADA
;RIGHT JUSTIFY IT

RTS

SWAB

000207

HEADA

*FIND SECTOR 17

sRETURN IF NOT FOUND
sRETURN +4 IF FOUND
027116

013737
004737
023727
001014

005376

000021

001422

—

FSEC17: MOV

18:

000021

28:

027200
027204

38:

sSETUP TIMEOUT
sREAD SECTOR
sTEST FOR SE;TM 17
sBR IF NOT 1

PC,RDSEC
SECTOR,#17.
2

JSR

PC,RDSEC

JSR
CMP

PC,RDSEC
§§CTOR.017.

DEC
BNE
RTS

TEMPT
1$

;TRY AGAIN

ADD

#4,(SP)

:SKIP OVER ERROR

BEQ

027170
027174
027176

15000, TEMP1

JSR
CMP
BNE
CMHP

000021

RTS

g;CTOR.fl?.

:BR_IF READ SAME TWICE
sELSE TRY ° MORE TIME

:BR IF 17

*FIND DESIRED CYL DIFF

SANNN

]

ONNN

NS NN

prt

S% SCP
25

NNNNN

*RETURN IF NOT FOUND
*RETURN+6 IF FOUND
o

SR RRNRRN
e
SESSSN g NOW
guFoREXSRS,
gvoaw-oo

13:06_

ASR
ASR
ASR
ASR

VONOWVSWN=O

VIV
AWM AT
T ATV AWV
~ NN
NNNNNNNNNNY
—d
o
b
o
e
b
i
b
b
NN

o0 Q163

04=JAN-82

GE T VALUE FOR SOFTWARE SWITCH REGISTER

001430

005376

001376

005400

1376

005400

0265

0013% 005400

FCYL:

18:

MOV

JSR

CMP

BNE

75000, TEMP1

;SETUP TIMEOUT

gwu.rmz

sTEST FOR CYL DIFF
:BR IF NOT FOUND

PC.RDCYLD

JSR

PC . RDCYLD

BEQ
JSR

PC,RDCYLD

CMP

CMP
BEQ

S;LDI F,TEMP2
YLDIF ,TEMP2
$

:BR _IF READ SAME TWICE

;ELSE TRY 1 MORE TIME

SEQ 0109

lals

MACY11 30(1046)

B
e Sancs 12:48

s
s

CZR6JFO

CZR6JF .P

mro

\" 1BUS axe
m—sgMACY11
12: u 30(1046)

7647

748

027

8 7266

752

027270

;gg

sggr 005376
01

716

PAGE 111
T VALUE FOR13:06
SOFTWARE
SWITCH REGISTER

2s:

;

i;g‘ 057574. 835209

u-Jm-u

000006

38:

755

DEC

TEMP1

RTS

:TRY AGAIN

ADD

26, (SP)

:SKIP OVER ERROR

BNE

RTS

srsg

ROUTINE TO FIND HEADS HOME IN mg WORD 1 BEFORE SPECIFIED DELAY

75
5;20

*RETURN 5 F OUND
:RETURN+2
IF rouuo - SKIP OVER ERROR

*ENTER unn nne IN SECONDS IN TEMP

5761

027276

015737

177777

grc

027312

737

026106

5762

027

12765 000001

764

027316

032737

5769

02733

005337

5771

027342

ooo;or

2;77‘

027350

000207

000040

5765 027326 001007
5769 027
005337 005376
;;ga 027
001367
5770 027340 001356
5772

005376

000026
005366

EHDHM:
18:

MOV

#-1,TERPY

JSR

PC.GSTA

MOV
BIT

BNE
DEC
BNE

005400

DEC

BNE

027344 062716 000002

28:

5775
5776

RTS

ADD

RTS

nswam

5780 027360 wrgs 000001 000026
5781 027396
737 026106
sni

0573 2

032737

010000

5784

027402

005337

005376

sng

02741

ooo;or

g;gg

027416

000207

027400 001

5785 027406

001367

005366

027412 062716 000002

5790
5791
§795

5799
5797
5798
gm

».mm.wz

2
TEMPI
18

TEMP?2

FHDHM

oz.csp)

:SKIP OVER ERROR

18:

MOV
JSR
BIT

BNE
DEC

BNE
2s:

RTS

ADD
RTS

nso..rsm

#1RKMRT1(RS)
PC. ssm

:WORD 1

#D.LOAD
, HMR2

TEMPI

oz.«w

:SKIP OVER ERROR

*FILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS
*ENTER WITH CYL # IN 'CALADD'

sng

§&

*WORD 1

IF rouuo SKIP OVER ERROR

5779 ognsz 012737 000372 005376 FLOAD: MOV

5787

;ALL 1°S

nounne ro nno LOAD HEADS IN RKMR2 WORD 1 BEFORE SMS
5 FOUND

277;;

5783

” ixmms:

*ENTER WITH HEAD # IN *HEAD’

027420

027422
027424
0274
0274

*ENTER WITH FORMAT IN °FORMAT®

010046

01014
1;7
001506
1
13737
001442 001446

200
faruih sy
5802 027450 006337

i
001446

FHDTAB: MOV

MOV
MOV
CLR
MOV

RO,=(SP)

R1.=(SP)
mms RO
um HD1

s
ASL
HD1

:SAV ao

*SAV R
umen WORD TABLE ADDR
:SECTOR COUNTER

SEQ 0110

gn"i

001452

;202

18:

MoV

005376

sSETUP HEAD # FOR WORD 2 OF HEADER

FMT1
FMT1

;SETUP FORMAT FOR WORD 2 OF HEADER

+
CALADD, (RO)

R1, (ROS
Hoi, (RO)
FMTi, (RO)
PC,SECFLG

sHEADER WORD 1-CYL ADDR
sHEADER WORD 2-SECTOR NO
:

=HEAD NO

=FORMAT
H
sGET SECTOR FLAGS

fa ) ?e.’.fi'z'"
CALADD , TEMP
(RO)+, TEMP1

005400
005400

3720

HD1
HD1

FORMAT,FMT1

747

SEQ 01N

5
2012
1

TEMP
, TEMP2
1
TEMP2,(RO)
+

sHEADER WORD 3-HEADER CHECK

R1
R1.#422.
1$

sSECTOR CTR
sALL 22 SECTORS DONE? (66 WORDS)
:BR IF NO

(SP)+,R1

sRESTOR R1
sRESTOR RO

(SP)+,RO

:THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS
sTEST & SETS BITS 14 & 15 APPROPRIATLY.
R2,-(SP)
FORMAT
18

sSAVE R2

#8IT15,(RO)

PC,FLGTST

sGET HARDWARE DETECTED FLAG
sRETURN HERE IF GOOD SECTOR

SECFLG: MOV

#BSE225+8. ,R2
PC,FLGTST
FL

#81T14,(RO)

sELSE RETURN HERE
sGET SOFTWARE DETECTED FLAG
sRETURN HERE IF GOOD SECTOR

(SP)+,R2

sELSE RETURN HERE

(SP)+,R2

sRESTORE R2

#BSE22H+8. ,R2

18:

MOV

sBR IF 20 SECTOR FORMAT

s _THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TABLES.
;ENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.) IN TEMP1
sRETURN IF NO COMPARE
sRETURN+4 [F COMPARE
027650

010346

027652

021227

1727777

FLGTST: MOV

R3,-(SP)

sSAVE R3

1$:

(R2) ,#-1

sSEE IF ALL 1'S

CMP

04~JAN-82 13:06_ PAGE 112
GET VALUE FOR SOFTWARE SW ITCH REGISTER

7456

;460

wno

VB NOWVESWNN=O

gas22bbbt
L LI

11 30(1046)

lalal

CZR6JFO
1BUS Kb&;g
CZR6JF P11
04=J

CZR6JFO %Nl BUS _RK6 DR-

CZR6JF.P11

.
i i grests

£E8

022237

5864
586

Sey

5868
5869
870

258

01370%
00030
05010
02220

027712
027714

BNE

MOV
RTS

2$:

001402

3s:

001442

012603
062716
000207

4$:

2%
(SP)+,R3

MoV
ADD
RTS

;BR IF NO

JRESTORE R3

(R2)+,CALADD
3$

sSEE IF=CYL # £ ADR PTR TO TRK/SECTOR WORD

#2,R2
1$

;GO TO NEXT CYL WORD IN TABLE

HEAD ,R3

sGET HEAD # FROM FHDTAB ROUTINE

R1,R3

(R2)+,R3

sADD SECTOR # FROM FHDTAB ROUTINE
sSEE IF SECTOR/HEAD COMPARE

3]
13

:BR_IF COMPARE
sELSE TRY NEXT CYL

(SP)+,R3

;RESTORE R3

001401
000756

58
5874
58
587
587
5878
5879

i
MACY11 30(1046) 04=JAN-82 13:06_ PAGE 113
12:48
GET VALUE FOR SOFTWARE SWITCH REGISTER

#%, (SP)

;& INCR PTR TO NEXT CYL WORD

s INCREMENT RET ADDR

:THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS

5881

iUITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR 0

[«)
~N

001422

MOV
MOV
JSR
ADD
JSR

RO,=(SP)
R1.=(SP)

:SAVE RO
sSAVE R1

#1.SECTOR
PC.MULT6

sMULT SECTOR BY 6

PC.RDSEC

#132. R0

SECTOR,RO

;RO-SECTOR TO RO = INDEX

#RHTAB, SECTOR

sSAVE INDEX

#RHTAB, RO

#SRTTAB,R1

sINDEX TO BOT HALF OF RHTAB
sINDEX TO TOP HALF OF SRTTAB

(RO)+,(R1)+

sPUT BOTTOM OF RHTAB TO TOP OF SRTTAB

#RHTAB RO

sPUT TOP OF RHTAB TO BOT OF SRTTAB

RO, SECTOR

001422

——
oY

ot
et

-y

~
purd

8
S

027772

001422

—2PNIND
NN

g3 ssss gS¥
2 FeF

[=lele]

SORT:

1$:

2$:

?g.lRflTAso132.

(RO)+, (R1)+

gg.sséron
(SP)+,R1
(SP)+,RO

sRESTOR R1
sRESTOR RO

%HULT BY 6. ENTER WITH DESIRED # IN "SECTOR’

SEQ 0112

1 30(1046)

N-JM-OZ’ 13:06_ PAGE 114"

VALUE FOR SOFTWARE SWITCH REGISTER

MULT6:

ASL

MOV
ASL
agg

SECTOR

SECTOR,=(SP)
SECTOR

;EP)*.SECTOR

SEQ 0113

;2 X SECTOR

:4 X SECTOR

s(6 X S)+(2 X S) = 6 X SECTOR

:THIS ROUTINE IS ENTERED ONLY IF THERE IS
A BSE ERROR AFTER A WRITE DATA

:CMD,

IT VERIFIES THAT THE BAD SECTOR IS LISTED IN THE BSE INFORMATION

CYU'DER AT CYL 410, TRACK 2.

REYURN

:RETURN+2

F SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION.

IF LISTED, SKIP OVER ERROR

TRUERR: MoV
010000

005340

BIT

BNE

Ré,=(SP)
#CFMT HCST

:SAVE Ré
:CHECK FORMAT

:BR FOR 20 SECTOR FORMAT
:NOTE, 20 SECTOR FORMAT NOT
;DONE IN THIS PROGRAM

002332
030130

MOV

OBSEZZHOB. R4

38’

003332
030130

MoV

000002

JSR

JSR
BR
18:

MoV

3s:

MoV

RTS

sgg

PC,TERR

sSEE IF ON HARDWARE DETECTED TABLE

#BSE225+8. R4

ELSE RETURN HERE

PC,TERR1
38"

(SP)+ R4

sRETURN HERE IF YES

:8 SEE IF ON SOF TWARE DETECTED TABLE
:RETURN HERE IF YES
sRESTORE R4

sRETURN WITHOUT JUMPING OVER ERROR

(SP)+,R4

sRESTORE Ré

02 (SP)

sSKIP OVER ERROR ON RETURN

THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HEAD & TRACK AGAINST
:THE BSE TABLE FOR THE ABOVE SUBROUTINE.
:RETURN IF FOUND ON TABLE
sRETURN+2
IF NOT FOUND

177777

TERRY1:

005360

000002

18:

005350

2s:

CwP

(R4) , #-1

BEQ
CMP
BEQ
ST
BR

18
(R4)+,HDC
2s
(R4)+
TERR1

ADD

#2,(SP)

cMP
BEQ

(R4)+,HDA
3

RTS

:SEE IF ALL 1°S

.aa IF YES, NOT ON TABLE
*SEE IF CYL MATCH
*BR IF YES
:ELSE ADY TO NEXT CYL WORD
:8 TRY AGAIN.

TERR1

:SEE xr SECTOR & TRACK MATCH
*BR IF YES

:OR TRY AGAIN

CZR6JFO UNIBUS RK6 DR-3 mm 30(1046)

CZR6JF.P11

597
gg;

030166

04=JAN=82

o«-am—ca 13:06 PAGE 115

12:48

000207

T VALUE FOR SOFTWARE SWITCH REGISTER

38:

RTS

§974
5975
597
59

5979

*ROUTINE TO TURN L OR P CLOCK INTERRUPT ON

5978
5981

5983

030170
030174

005037
005737

001412
005504

CLKON:

030200 001
030202 012777 000100

151136
5985 030210 ooo;or
030212 012777 177777 151122 18:
5987 030220 012777 000135 15111
2388 030226 000207
ggg?
§992
5993

CLR
TST

BNE
MOV
RTS

MOV
MOV
RTS

TIMUP
PCLKF

1$
noo aLks
M aPKsB
ms aPKs

:BRANCH IF P=CLOCK PRESENT
:L=CLOCK, ENABLE INT

:P=CLOCK, ALL 1°'S
*ENABLE INT, CT UP, REP INT
*LINE FREQ
£ RUN

:KW11=L £ KW11=P INTERRUPT HANDLER
030230
030234

005037
005337

030240 oo1o19

5995 030242 013737
5

030250

005337

5999

030262

000002

001412
001406

001404

001410

5997 030254 oo1oo;
5998 030256 005237 001412
288%

€LOCK:

CLR
DEC

TIMUP
COUNT

MOV

HZ,COUNT

BNE
INC

1$
TIMUP

BNE

001406

DEC

1$:

RTI

SEC

:SORRY, TIME IS UP

JROUTINE TO TURN L OR P CLOCK INTERRUPT OFF

6003

030264

005737

005504

6005
6006

030272
030276

005077
000207

151050

030270 001003

6007 030300 005077

151034

CLKOF:

18:

TST

PCLKF

CLR
RTS

aLKS
PC

BNE

CLR

:BRACH IF P=CLOCK PRESENT

aPKS

:P=CLOCK, CLEAR INTERRUPT

:L=CLOCK, CLEAR INTERRUPT

SEQ 0114

6008
6009
6010
6011
601;
601
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
gggg

030304

030
030310
030312
030316
030

010046
010146
012700
005001
000241

6026
6027
6028
6029
3?

030322
030326
030330
030332
030334

006137
103001
005201
005300
001372

603%
6033

0303 36
030342

032701
001003

VALUE FOR SOFTWARE SWITCH REGISTER

000207

RTS

THIS ROUTINE GENERATES PAR

IF IT IS NOT SET, INDICA

;SET IN TEMP1

gBPAR:

RO,=(SP)
R1.=(SP)

‘17..no

0? TH; EXPECTED MESSAGES

S
ACH TIME THE CARRY BIT IS SET,
7 ROTATES ( TEMP1 BACK TO ORIG).
OF
S ET, INDICATING AN ODD # OF 1°S,

AN EVEN # OF 1'S ,THE PARITY BIT IS

s SAVE RO
:SAVE R1

SHIFT COUNTER

;COUNT # OF 1 S IN TEMP1
:CLEAR CARRY

:BR IF CARRY CLEAR
sCOUNT # OF 1°'S
sSHIFT COUNTER

2$:

#8ITO.R1
33

:BR IF ODD # IN RO

SEQ 0115

(alal

?3(1;1 30(1046) 04°JAN°02 13:06_ PAGE 11bt

—.fl!fl!

CZR6JFO UNIBUS RK6 DR=
lR6JF PN
04=JAN-

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=JAN-B82

60
6035
60
60

52
5
56

MACY11 30(1046) 04=JAN-82 13:06_ PAGE 117
12:48
GET VALUE FOR SOFTWARE SWITCH REGISTER

52737 100000 005376
012601
38:
01 sog
20

6040
6041

#M.PAR,TEMP1
(SP)+,R1
(SP)+.RO
PC

:;SET PARITY BIT
*RESTORE R1
*RESTORE RO

*ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS
*WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE

283

: 1E: MY LOOP MACRO

6044 0

032777 001000

6045
eo:.g

0
030370

oou.og
105737

6051

0304064 011637 001110

150552

S$coP1$: BIT

BEQ
TSTB

001103

6047 030376 001403
6048 030376 013716 001110
2345.3 030402
6052
605

BIS
MOV
MOV
RTS

030410

€03

BEQ
MOV
RTI

18:

MOV
RTI

#5W9,aSWR

:LOOP ON ERROR?

1%
SERFLG

*BR IF NO
*HAD ERROR?

(SP) ,SLPERR

:SET LOOP ADDR FOR TIGHT SCOPE LOOP

18
SLPERR, (SP)

*BR IF NO

6059

*ROUTINE TO INPUT A "SPACE' OR 'CONTROL-E' FROM TTY

6059

;

605
6058

*RETURN IF CONTROL-E
*RETURN +4 IF SPACE

606“% 030412 005777 150530

weg 030416 104410
6063 030420 012600
6064 030422 020027 000040

gggg

030426

001406

6067
6068
6069

030430
030434
030436

020027
001405
104401

000005

6072
6073
6074

030444
030450

062716
207

000004

23;(3 030442 000763

:CLEAR DONE FLAG

(SP)+,RO
RO, #SPBAR

*READ CHAR FROM TTY
*GET CHAR OFF STACK
*SEE IF SPACE

P
BEQ
TYPE

RO, #S
F1
,MSG31

:SEE IF CONTROL-E
:BR IF YES
" o

ADD
RTS

#6,(SP)
PC

BR
1$:
2s:

asTk8
18

ccsp

:BR IF YES.

STRY AGAIN

:
*ROUTINE TO INPUT A "SPACE' FROM TTY

6078 030452 005777
6079 030456 104410
6080 030460 012

030462 85002
0304%

1403

150470

GETSP:

000040

TST
RDCHR
MOV

asTKB

(SP)+,RO

:CLEAR DONE FLAG
*READ CHAR OFF TTY
*GET CHAR OFF STACK

BEQ

:EXIT IF YES

RO, #SPBAR

grs
RTS

éfigp
PC

*SEE IF SPACE

moou 8%7& (1)%;01 o
6085 030476 000239

18:

6087

wag

TST

RDCHR
MOV
CMP
BEQ

040212

6075
gg;g

6081

CCSP:

sIT IS USED TO ALLOW THE OPERATOR TO HALT THE CPU WHILE INSURING

6088

:;nv AGAIN
f

:THIS ROUTINE IS ENTERED BY TYPING A CONTROL=C.

SEQ 0116

IWFO’%‘..‘CINS RK6 DR=3

04=J

MACY11 30(1046)

12:48

04~JAN-82 13:06 PAGE 11 8
GET VALUE FOR SOFTWARE SWITCH REGISTER

SEQ 0117

030500

022626

030502
030506

004737
104024

026436

030510
030514
030513
030522

005737
001437
005737
001403

005322

030532

104401

044137

2SS

030536
030542

004737
104024

026436

:mAETc:EuADS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING

030544
030552
305564

032737
001020
104401

010000

030526
030530

0305

104401
000402

= = S
SR

030572

030574

104143

;RESTORE STACK FROM INTERRUPT

STOP1:

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER

ST
BEQ
ST
BEQ

ggto

- MSG74
2
,MSG7S

:HALT PENDING

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

005366

BIT
BNE
TYPE

#D.SPIN.HMR2
648
,MSG629

;SEE IF SPINDLE ALREADY ON
:BR IF YES
:PLEASE WAIT, HEADS BEING LOADED

005340

MOV

#SRTSPL ,HCS1

ERROR

145

18:

28:

040064
024446

TYPE

JSR

013737 001426 005400

MOV

104144

ERROR

025056

030610
030614

005037

005322

030614
030620
030622
030626

005737
oo1429
oos;
o1§ 65

005324

005326
1ooogo

000000

12737

000013

005340

648:
38:

CLR

UNLD

ST
BEQ
INC
MOV

MOV

030650
030656

004737
104124

JSR
ERROR

030656

012765
737

30670

30976
030

030702
030710
030714

032737

001001
104;14

024446
000001
056106

020000

013 gr oou.gl.
004737 025056
104055

000026

005366

005400 65%8:

03075¢ 013763 001993 . 090008
030732 012737 80 ” 005340

MOV

;DO START SPINDLE CMD & GET CONTR RDY

:CONTR RDY NOT SET AFTER CMD

7100, TEMP2

PCFATT1

;FIND ATTN

144

:NO ATTN AFTER CMD

BADHDR
:SEE IF HEADERS VALID
I3
*BR IF YES
HPEND
- #CCLR.RKCS1(RS)

SUNIT.RKCS2(R5)

#RECAL ,HCS1

PS DOCMD
124

:DO RECAL CMD & GET CONTR RDY
IRDY NOT SET AFTER RECAL CMD

MOV
JSR

#1,RKMR1(RS)
PC.GSTAT

;SELECT WORD 1

BNE
ERROR

sss
21

:RTZ NOT SET DURING RECAL CMD

BIT

#D.RTZ,HMR2

MOV
JSR
ERROR

710, TEMP2
PgJEATTY

ROV

SNiTRKESI(RS) :DRIVEN
’
mwiHCST

MOV

*PGM ABORT PENDING

PC,DOCMD

JSR

13765 oo12§ 000010

42
1$

:SEE xr nenos UNLOADED
:BR IF
+SEE 1r HANUAL OR AUTO MODE
*BR IF MANUAL MODE

TYPE
BR

004737

oggg‘

(SP)+,(SP)+

044071

030602

B RR T R G

004737

000042

osogoo 012737 000011
030

StoP:

*SETUP mfou
SFIND ATT
*NO ATTN msn RECAL CMD

764
;s

1064151

7 ;

756
104154
756

04~JAN-82

ERROR

025024

66$:

030756 000137 031022
030762
0307

005737
1410

000042

031010
031014

104401
000000

044216

13:06_

4s:

030770 104401 044174
030774 005037 023762
031000 005037 001176
031006 000137 023734
58:

031016 000137 010612
.SBTTL

*NO RDY AFTER DRIVE CLEAR CMD

PC,TSTATN

ERROR ??2

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

JMP

FORM

:WRITE VALID FORMATS

ST
BEQ

42
5$

:SEE IF MANUAL OR AUTO MODE
*BR
IF MANUAL MODE

TYPE
HALT

MSG77

:CPU HALTED

STS

:START OVER IF CONTINUE PRESSED

MSG76
$EOPCT
SESCAPE
$EOP

JMP
FORM:

151

flns'

TYPE
CLR
CLR
JMP

031022

PAGE 119

GET VALUE FOR SOFTWARE SWITCH REGISTER
JSR
rg DOCMD
;DO DRIVE CLEAR CMD & GET CONTR RDY
*TEST FOR ATTN

*PGM ABORTED
*SET UP EOP TO EXIT TO MONITOR
;ABORT PROGRAM

UNEXPECTED TIMEOUT HANDLER

‘THIS nounne IS ENTERED IF THERE IS
:
:
:
031022

011600

031026

032777

031024

005740

020000

150104

BIT

BNE
TYPE
MOV

031044 104403

006
ogo

031056

001403

031050 032777 001000

ogwso 0226;9

031062 000177

150020

8;}892

040000

33%7);

031076 000002

031100 000000

NON EXISTANT MEMORY (NO SSYN)
BOUNDRY ERROR
STACK OVERFLOW

BADTMO: MOV

031034
001005
031036 104401 044546
031042 010046

031046
031047

a.
C.

150044

1$:

#SW13,aSWR

;SAVE PC WHERE TIMEOUT OCCURRED.

*GET PC BEFORE UPDATE
:INHIBIT ERR_TYPOUT?

13
EM3
RO,=(SP)

*YES, DON'T TYPE
Aaoar TESTS uuexp 71.0. @ PC=
%vs ng FOR TYPEOUT

.BYTE
BYTE

6
0

;3 TYPE 6 DIGIT(S)
:SUPPRESS LEADING ZEROS

BEQ

TYPOS

150062

(SP) RO

-(RO)

BIT

CMP

#SW9, aSWR

(SP)+, (SP)+

JMP

aSLPADR

28:

8%5

gguu.asw

3s:

HALT

RTI

$160 me-ocm. ASCII
:LOOP ON ERROR?
BRANCH

ves RESTORE STACK

0 fO STARiING ADDR OF TEST

r T GAVE BAD TIMEOUT

hooor ouc“es

:vesE

;UNEXPECTED TIME OUT OCCURRED

*AS INDICATED. YOU CAN LOOP ON

*ERROR, LOOP ON TEST OR INMIBIT

mon TYPEOUT BY SETTING THOSE
s SWITCHES.

SEQ 0118

lalis

MACY11 30(1046)

04=J
12:48
760 08: 7 024446

[
-

:0;??1'03 RK6 DR=3

UNIBUS RK6 DR04~J

MACY11 30(1046)
12:48

04=JAN-82

P
JMP
.SBTTL

3077 801

001176

150002

18:

\v_]

¥38SoNN SRRIBERR

b ) b o

b b

PR
e T e

vttt

—

CLR
BIT

vs
#5W9,
aSWR

;CHECK IF LOOP ON ERROR

#STACK, SP

.SBTTL

RKO6 INTERRUPT HANDLER

INTER:

NOP
NOP
NOP

JMP

MOV
ST
TYPE
MoV

TYPOS

.BYTE
.BYTE
HALT

coocoooo

:STORE PC
SUNEXP MEM PARITY ERROR

MoV

il el ok b

vttt

202

2%:

037036

;RESTORE STACK
*ABORT TESTS

913, SESCAPE
(SPS, TRAPPC

aSLPERR

(SP) RO
MSG6

-(RO)

RO,=(SP)
6
0

SYES, FORCE STACK AND TRY AGAIN
*ELSE RETURN
sINIT STACK

:SAVE PC WHERE INT OCCURRED.
“GET PC BEFORE UPDATE.
SINT AT PC=
..SAVE RO FOR TYPEOUT
:TYPE
P

::60 TYFf-OCTAL ASClI

::TYPE 6 DIGIT(S)
: ;SUPPRESS LEADING ZEROS

NOP
NOP

W
e el

§3

d
b d

e
b e

VNN

SEQ 0119

MoV
MOV

RT]

000%60

(SP)+,(SP)+
SEOP

BNE

800197

MEMORY CHECK ENABLE TRAP

ERROR

WNN—=O

104302

8311;4

PAGE 120

UNEXPECTED TIMEOUT HANDLER

31108 006187 023734
12737

13:06

RTI

.SBTTL

POWER DOWN AND UP ROUTINES

;POWER DOWN ROUTINE
031220

000024

$PWRDN: MoV
HALT

B8R

#S$PWRUP ,PURVEC

;SET UP VECTOR

:HANG UP.

W et
[N

SS22222888
A
Y

]

33NN
SKERS

;POWER UP ROUTINE

i
i
b
012664

$PWRUP:
1$:

CLR
INC
BNE
MOV
MOV
MoV
MOV

TYPE
RESET
JMP

SPURCT
SPURCT
1%
mou mvsc
#PR7 ,PURVEC
‘PR? TRAPVEC+2
csufx SP
.MSG11

PFSRT

WAIT LOOP FOR TTY
‘WAIT FOR THE INCR
*0F WORD
*SET POWER DOWN VECTOR
*PRIORITY 7
:LOCKOUT ALL INTERRUPTS FOR TRAPS
:INITIALIZE STACK
sREPORT POWER FAIL

;WAIT COUNT FOR TTY

:DIVISION UTILITY ROUTINE

ao-m-nz-nszoxvmno

*R&=RS5=D]

ng-m:asmnosa AFTER DIVISION

67
% 8 1274 815246 000040
1
10446
71 031302 010546
g 031
5466 000002
8 1 13 005416

fs oo

~R3=QUOTIENT AFTER DIVISION

*ENTER WITH JSR PC.M.DPID
A.DPID: MOV
#40,-(SP)
MOV
Ré,~(SP)
MOV
RS.=(SP)
NEG
2(5P)
NEG
asP

ROL

7
1
7
1
78
031
79 031
80
031
8"
13
'i
1

005500
000002
10344
005
00610
006102
006101

ADC
ADD
BCS
CLR
M.DP40: ROL
ROL
ROL

6284
6285
8’9
87
6288
6289

005716
001410
005016
ougm 000002
005500
005516

&g‘

031340

031342
031
ogms
03135
0 1554.
031356
031360

oogtoo

066600

031364 000404

§ og1
6298
eggg
3
6301
630;
6303
6304
6305

031
o§1 72
031374
031376
8 1%
u.g‘
031404
8"'03
141
031414
03141
0314

6310

031430

000004

060501

005500
005516
060400
885516
5716
001401
005203
885
000006
3
3
1”3?28‘:
501

8303
031438 833341
060400
gsoa 31426
gg}t

103

83}235 830 7‘

631 ogmo oooSo

000010

;COUNTER FOR DIVISION CYCLES
*HI ORDER
*LO ORDER TO THE STACK
:FORM NEGATIVE
*VERSION OF DIVISCR

RO
2(SP) ,RO
¥.0P50
-(SP)
R3
R2
R1

:PERFORM INIT SUBT.
:IF CARRY THEN OVERFLOW HAS OCCURRED
:THIS IS A LONGER LASTING CARRY BIT

ST
BEQ
CLR
ADD
ADC
ADC

asP
M.DP41
asP
2(SP) R1
RO
asP

:TEST CARRY INDICATOR
:IF TO CARRY THEN ADD, ELSE SUBT.
:CLEAR UP FOR NEXT TIME
;ADD =(DIVISOR)
*SET CARRY

B8R

M.DP42

ADC
ADC
ADD
M.DP42: ADC
ST
BEQ
INC
DEC
BGT
ROR
BCS
ADD

RO
asP
Ré4,RO
asP
asP
.+
R3
6(SP)
M.DP40
R3
M.DP44
R5.R1

M.DP44: ROL

RTS

ADD

M.DP41: ADD

5
cLe

4(SP) ,RO

RS.R1

:ADD +(DIVISOR)
*SET CARRY
:SET CARRY
STEST THE wms INDICATOR
xr 0.FORGET IT
lnavPOSSIBLE HERE
oecaensNT CTR
:BR IF MORE TO DO

Re.RO

#0,5P

;ADJUST STACK BY & WORDS

oo |

SEQ 0120

c
uus m DR- m Y11 30(1046) 04=JAN-82 13 06 PAGE 121
CZR6Jr
12:48
POWER DOWN AND UP ROUTINES
031272 000000
SPWRCT: 0

D10

631
6318

N-JM'OZ’

000006

M.DP50: ADD

N-JM-‘% 12:48

6315

6 1’

MACY11 30(1046)

706
S

13:06

PAGE 122

R DOWN AND UP ROUTINES

SEV

RTS

#6,SP
PC

E 10
SEQ 0121

[alal

IBUS RK6 DR=-3

[T
Y

R6JF
f

N-JM-BZ

13:06_PAGE 123

OPE HWANDLER ROUTINE

.SBTTL

SEQ 0122

SCOPE WANDLER ROUTINE

SRRARRARRAAAAAAAAANANNNNRANRNAAAAAAAAAAAANANNAAAAAAONANNNNANOOANSY

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DI

“ *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<

'”EG- (DISPLAY<7:0>)

*«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ME

seSWT4=1

iL00P ON TEST

s *SW09=1

LOOP ON ERROR

saSW11=1

INHIBIT ITERATIONS

:.E»Autl)ffl

e
$SCOPE:

040000
031464

000416

6340

031

01374

634

031506

012637

147456

18:

031510

6345 031512 0256?9
6348

000004

58:

0315

1542
031546
031550
0g1556

147410

105737
001421
183 7
101015

001103

001115

6364

161

636§ 8 161

& o
6369

Oglb

1058 .

giss
23737

e
dier
o
3
165,
1
7

23% Oi‘l6 105237

6374

031664

113737

2s:

001103

001106

001103
001174

001216
001104

78:
48:

147320

83&

0 }gg‘o

BNE

::SCOPE=10T
#8l T;‘ .ASWR

SOVE

s;TEST

FOR CHANGE IN_SOFT-SWR

::L0O0P ON PRESENT TEST?

SYES IF SWié=1

MoV
MOV
ST
MOV
B8R
CMP
MOV

B8R
BIT
BEQ
C(MPB
BEQ

38:

TST8

BEQ

801174
001214

RRVEC,=(SP)
#5 ;mivec
ar177060
(SP)+,#ERRVEC
$SVLAD

:IF RUNNING ON THE "XOR'' TESTER CHANGE

STHIS INSTRUCTION TO
A "NOP* (NOP=240)
::SAVE THE CONTENTS OF me ERROR VECTOR
::SET FOR TIMEOUT
:TIME OUT ON XOR?
- -RESTORE THE ERROR VECTOR
::60 TO THE NEXT TEST
3

(SP)+,(SP)+
::CLEM THE STACK MT%:T&TIQ ouT
;gP)*.flERRVEC ESTGE THE ERROR

#BIT08,asWR
2s
aSWR,STSTNM
SOVER
s;me

CMP8
BHI
BIT
BEQ

gem.mnc
$
#81T09,aSWR
48

CLRB

SERFLG

Bngv

CLR
B8R
BIT
BNE
ST
BEQ

001104

LOOP ON THE PRESENT TEST
::LOOP ON sm. TEST?
$:BR IF NO
$:ON THE RIGHT TEST?
SWR<7:0>
::BR IF YES

6$:;MMARNEND OF CODE FOR THE XOR ?ssmw

147352
001110

6361

CKSWR
8IT

§XTSTR: BR

6351 031532 ?277% 147402 001102
635 8§1S60 001465
635
6354
6355
63

SCOPE

MAANASTART OF CODE FOR THE XOR ftsmwmp

6341 031293 01 79 03151
6342
031500 005737 177068
6344

LOOP ON TEST IN SWR<7:0>

INC
BGE
18:
MOV
MOV
$SVLAD: INCB

MOVB

ssuécs:a.umn

*:HAS AN ERROR OCCURRED?

::BR IF NO

::MAX, ERRORS FOR THIS TEST OCCURRED?
::BR IF NO
..Loop ON ERROR?
*BR IF NO
22SET LOOP ADDRESS TO LAST SCOPE
::2ERO THE ERROR FLAG

STIMES
18
#BIT11,3SWR
1%
$PASS

::CLEAR THE NUMBER OF ITERATIONS TO MAKE
SSESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
2:BR IF YES
:31F FIRST PASS OF PROGRAM

$SICNT
STIMES,SICNT
SOVER
#1,81CNT
CNT,STIMES
TSTNM

S INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
;:REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS

STSTNM,STESTN

INHIBIT ITERATIONS

::SET TEST NUMBER IN APT MAILBOX

MACY11 30(1046)
12:48

(sl

CZR6JFO UNIBUS RK6 DR
CZR6JF .P11
04=J

1672

167

1
1
1
1
1
1

011637

11637

5037
12737

MOV
MOV
CLR
MOVB
MOV
MOV

1176
1
1
1

SEQ 0123

ROUTINE

11?8
SOVER:

'560

(SP) ,$LPADR
;sSAVE SCOPE LOOP ADDRESS
(SP) . SLPERR
:SAVE ERROR LOOP Aom S
sgsckrf
:.CLEAR THE ESCAPE
FROM ERROR ADDRESS
SERMAX
sONLY ALLOW ONE(1) mon ON NEXT TEST
sr&run.aoxsrtnv..DISPLAY TEST NUMBER
SLPADR, (SP)
FUDGE muw ADDRESS

SMXCNT: 2000,
.SBTTL ERROR WANDLER ROUTINE

$SFIXES P

2IMAX. uunnen OF ITERATIONS

QQ."'Q.'t.t......'..".'t...'.tt.tt'......'QQQ.Q.QQ"Q.'.'.'Q.

S2THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
-snvs THE ERROR ITEM uuuaen AND THE ADDRESS OF THE ERROR CALL

S«AND GO TO TYPERR ON ERR
nrue SWITCH OPTIONS rnovxoto BY THIS ROUTINE ARE:

seSW15=1

HALT ON ERROR

seSWi3=1
$eSW10=1
:328331
031 73

$ERROR:
78:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ERROR

CKSWR
INCB

SERFLG

MOV

srsrun.aoxsrtav ..DISPLAV TEST NUMBER AND ERROR FLAG

BEQ
BIT

BEQ
18:

TYPE
INC

g&g

MOVB
BIT

147056

%zu
$:

707 001000 147042 38:
001110
001176
001176

48:

#8IT10.3SWR

::TEST FOR cuanes IN SOFT-SWR
:SET THE ERROR FLAG

*DON'T LET THE FLAG GO TO ZERO
L ON ERROR?

--no - SKIP

$BELL

..nxns BELL

<sr;éseglcwc

::GET ADDRESS OF ERROR INSTRUCTION

$ERTTL

:COUNT THE NUMBER OF ERRORS

asénarc SITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE
3,856R

::SKIP TYPEOUT IF SET

BNE
JSR

zos
PC, TYPERR

CMPB

WAPTENV,SENV

;:RUNNING IN APT MODE

MOvB8
JSR
.BYTE

$ITEMB,21%
PC.SATYS

s ;REPORT FATAL ERROR TO APT

TYPE

BNE
21%:

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

-BYTE

,SCRLF

B8R
ST
8PL

aSWR

BIT
BEQ

#81T09,aSWR
48

s;swf

HALT
CKSWR

MOV
BEQ
MoV

28
3s

$3SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE

$3NO,SKIP APT ERROR REPORT
::SET ITEM NUMBER AS ERROR NUMBER
:sAPT_ERROR LOOP
ssHALT ON ERROR

::SKIP IF CW"'&E

HAL ON _ERROR!
W!fl‘ Dr—
X

=OW=O
o

o
823X

PR R R P PR PP PR RRRRRRRRY b3
SIRVSRRURNTS Saeran=oes QR

610

04-JAN-02
13:06 PAGE 124
OPE HANDLER

ST FOR_CHANGE IN SOFT-SWR

:LOOP %eanoa SWITCH SET?

SLPERR, (SP)

BR IF
:FUDGE RE RETURN FOR LOOPING

5
SESCAPE, (SP)

sFUDGE RETURN ADDRESS FOR ESCAPE

:CHECK FOR AN ESCAPE ADDRESS
BR IF NONE

TMTM

12:48

“§§§§§§a e355%
8 &

OONONON

-33“‘3

O4-JAN-82

MCV 1 30(1046)

[
T

CZIGJFO
18US RK6 DRCZROJF .P1

000042

5%:

cMP

BNE

HALT

68:

#SENDAD,a#62
6%

RTI
TYPE ROUTINE

JSBTTL

;:ACT=11 AUTO-ACCEPT?
2:BRANCH IF NO

1:YES

:;RETURN

'....t't.'.t'."t.."'Q.'"Q.'Q..'..Q.QQ..Q.Q'QQ....QQ.'Q."Q'.

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
S*NOTE1:
SNULL CONTAINS THE CMARACTER TO BE USED AS THE FILLER CHARACTER.

S*NOTE2:
.-nore

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

:'CALL:

:«1) USING A TRAP INSTRUCTION
TYPE
,MESADR
;.

Lad
~

52 §~c
[=]

b w—

001157

—

STYPE:

18:

000002
000001

001230

000100

001231

W=
NNV
-

HNO~N

=00

PN
purd
Sd —
pry

-t

e~
)
-

FRERRRRRRR
faats§§uwurw
335 SIEIE IR

352

000040

001231

61$:

628:

28:
000002

000011

gos:
$:

48:

000200

032462

001156

TYPE

MESADR
TSTB

8PL
HALT
BR
MOV
MOV
CMPB
BNE

STPFLG

;1S THERE A TERMINAL?

::BR IF YES
..mu HERE IF NO TERMINAL
3 ILEAVE
VE
..ser ADDRESS OF ASCIZ STRING
::RUNNING IN APT MODE
23NO,GO CHECK FOR APT CONSOLE

RO,=(SP)
#2(sP) ,RO
WAPTENV,SENV
628
BITB WAPTSPOOL ,SENVM ..sréol. MESSAGE TO APT
BEQ
628
CHECK FOR CONSOLE
MOV
RO,61$
fur MESSAGE ADDRESS FOR APT
JSR
PC.SATY3
:.
MESSAGE TO APT
.WORD

..nesmt ADDRESS

608
mou.-(sn
4
(SP)+
(SP)+,RO

..vss.saurTYPE OU
:iPUSH_CHARACTER to BE TYPED ONTO STACK
::BR IF IT ISN'T
THE TERMINATOR
..u TERMINATOR POP IT OFF THE STACK
SRESTORERO

BITB

MAPTCSUP,SENVM

ADD

#2,(SP)

..ADJUSI’ RETURN PC

5’5’

gosn.(sn

S:BRANCH IF <HT>

gza

ggnu.(sn

::BRANCH IF NOT <CRLF>

ST
Pc':ff

(SP)+

:POP <CRX<LF> souxv
SSTYPE A CR AND
L

BNE
MOVB
BNE
ST
MOV
RTI

CLRE

58:
68:

;:MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

B8R
JSR
cMP8
BNE

SCHARCNT

2s
PC,STYPEC
giuc (SP)¢

T CONSOLE stmessso

*RETURN

:CLEAR CHARACTER COUNT

..sn NEXT CHARACTER
2360 TYPE THIS
cT
::IS IT TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.

[alal

SEQ 0124

S%ROUTINE TO TYPE AS”I1Z MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

S 83 4

PIIIIIISNS

026022

~ e~

o:.-uw-az 13:06 PAGE 125
e Ty B RROR
s TS
HANDLER ROUTINE
CZR6JFO

CZR6JF .P11
6487

IBUS RK6 DR~

0322764

6490 §

04=-JAN-

HACY;1 30(1046) 06=JAN-82 13:06
TYPE ROUTINE
12:4

013746

001154

105

000001

002

MoV

78:

6494
2295

6500
6501
6502
6503
6504
6505
6509
6507
6508
6509
6510
6511
651
651
6514
6515
6516
6517
6518
6519
65
6521
6522
6523
6526
6525
6526
6527
6528

0;%336
0O gzo
0O
2
032344
032344
032350
032352
0 gzg
032
032366
032370
032370
032374
032376
032402
0324
03241
032414
032414
032416
032613
0324
0324246
0324
032440
032442
032446
O 650
ka

001372
005726
000724

gg!l35666

6534
6535
6536
6537
6538
6539
6540
6541
6542

105777
100022
017746
062716
12271
00101
105777
109;75
117716
042716
122716
001366

000007

032462

g:
:

s;GET
# OF FILLER CHARS. NEEDED
CHAR.
:AND THE NULL
C

DOES A NULL NEED TO BE TYPED?

1(SP)

DECB
BR

S$CHARCNT
78

MOVB
JSR

BITB
BNE
ST
Seannt B8R

146574

IF _NO--GO POP THE NULL OFF OF STACK

PC,STYPEC

50 TYPE A NULL

DO NOT COUNT AS A COUNT
; LOOP

146550

146526

000002

(spu

a$7KkB -(SP)

10$

::CHAR IN KYBD BUFFER?

;i8R
_IF NOT
;GET CHAR

#177600, (sP)
{35(‘)".(SP)

;:STRIP EXTRANEOUS BITS
:sWAS CHAR XOFF

ISTB

a$TKS

::WAIT FOR CHAR

MOVB

asTKB

::GET CHAR

CMPB

#SXON, (SP)

1018
(SP)+

::BR IF NOT
::FIX STACK

3{8

as;rs

::WAIT UNTIL PRINTER IS READY

MOVB
CMPB

2(SP).asTPB
#CR,2(SP)

LOAD CHAR TO BE TYPED INTO DATA REG.
..xs CHARACTER A CARRIAGE RETURN?

CLRB

SCHARCNT

..ves-cum CHARACTER COUNT

BNE
ST

1018

nmbo (sm

BR
$TYPEX
CMP8
#LF,2(SP)
BEQ
STYPEX
INCB
(PC)+
$CHARCNT : . WORD 0
18:

$TYPEX: RTS
.SBTTL

8IC
&‘”éa

BNE

032462

..wwcu IF NOT AT
:TAB STOP
::POP SPACE OFF STACK
2:GET NEXT CHARACTER

MoV

BIC

1028%:

..aemce TAB WITH SPACE
s:TYPEA SPACE

SCHARCNT

asrxs

8PL

1465644
177600
000021

(SP)
;L$TYPEC

1ST8

8PL

149570
17
00002

000012

SEQ 0125

sHORIZONTAL TAB PROCESSOR

005726
05777
100375
116677
1227
0010g
1050
000406
122766
00160;

110

SNULL ,=(SP)

BLT

JSR

649 Og 16 000770 3526

40
&t
oo 1ame
6499 Ogs
132737 0393

DECB

PAGE 126

::BR IF NOT

SISTRIP IT

::WAS IT XON?

: *BRANCH IF NO

XIT
: :BRANCH IF YES
*:COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

..1s CHARACTER A LINE FEED?

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SRR RARARAAAAAAAANANENRRAARAARAAAAANNARANANARANAARARNREARARNAES

'THIS ROUTINE 1S USED TO CHANGE A 16-817 BINARY NUMBER TO A 5-DIGIT

:SIGNED DECIMAL (ASCII) NUMBER
TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
'QEELACED WITH SPACES.

Mov

NUM, - (SP)

:;PUT THE BINARY NUMBER ON THE STACK

CZR6JFO

|
25522
6545

654.9
6547
6548
6549
6550
6551
6552
6553
6554

e
032466

0
0324
032472
8 476
476
032500
0325064
0 sng
8 512

10046
10146
010246
010346
010546
om:.g 020200
016605 000020
100004
005405

6555
514 11;766 000055
essg 032522 005000

6557
6558
6559
6560
6561
eseg

6563

6564
6565
6566
6567
6568
6569
6570
6571

STYPDS:

000001

032526 01 7o§ 032702
112723 000040
032536 005002
oszssg 016001 032672
032542 160105
ogs

032544

oozl.os

032550
032552
032556
032556
032560
032562
032564
032566

000774
060105
005702
001002
105716
100407
106316
10300

28:

38:

6575 032606 110;2
6576 032610 005720

032612
616
032620
032622
0
0
032630
032632
032640
032642
032644
0 “53
032650
032652
032656
032660
03 698
0326
032672
032674
032676
032700

020027
002746
00
01050
000
105722
1
116663
105013
012605
012603
012602
012601
012600
104401
016666
12616
05

001750
000144
000012

TYPDS
MOV
MOV
MOV
MOV
MOV
MOV
MOV
B8PL
NEG

MOVE
CLR

MOV
MOvE
CLR
MOV
SUB
BLT

INC

48:
58:

177777

6574 032602 oszrog 000040

659
6595
5599
6597
6598

18:

032546 00520

6572 032570 116663 000001
6573 032576 052702 000060

6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6599
6591
6592
6593

N-JM—BZ 13:06 PAGE 127
ONVERT BINARY TO DECIMAL AND TYPE ROUTINE

68:

78:

000010
8s:

177777 177776

9s:

032702
000002 000004
$DTBL:

;260 TO THE ROUTINE
RO,=(SP)
R1.=(SP)
R2.=(SP)
R3.=(SP)
RS .=(SP)
#20200,-(SP)
20(SP) .RS
1$
RS

::PUSH RO ON STACK
:3PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
*:GET THE INPUT NUMBER
..aa IF INPUT IS POS.
MAKE THE BINARY NUMBER POS.

#SDBLK ,R3
$DTBL(RO),R1
R1.RS

::SETUP THE OUTPUT POINTER
..ssr THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
::GET THE CONSTANT
..roan THIS BCD DIGIT

:ZINCREASE THE BCD DIGIT BY 1

#°'=,1(SP)
RO

#' ,(RS)+
R2

BR
ADD
ST
BNE
TSTB
BMI
ASLB
BCC

3s
R1.RS
R2
58
(SP)
78
(SP)
6$

BIS

o- ‘R

MOVB
BIS
MOVB
ST

CMP
BLT
BGT
MOV
BR
ISTB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE
MOV
MOV

RTI
10000.
1800.
100.
10.

1(SP),=1(R3)
#'0,RS
R2,(R3)+
(RO) +

RO,#10
s
s
RS.R2
63
(SP)+
98
-usn -2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK
2(SP),4(SP)
(SP)+, (SP)

S:MAKE THE ASCI] NUMBER NEG.
..zeno THE CONSTANTS INDEX

*BR IF DONE

;:ADD BACK THE CONSTANT
“FALL THROUGH IF 0
*:STILL DOING LEADING 0°S?
$:BR IF YES
+:MSD?
*:BR IF NO
::CHECK_IF BCD DIGIT=0

;:YES==SET THE SIGN
::MAKE THE BCD DIGIT ASCII

..mxe IT A SPACE IF NOT ALREADY A DIGIT

*PUT THIS CHARACTER IN THE OUTPUT BUFFER
..JUST INCREMENT
ING

:CHECK THE TABLE INDEX
$360 DO THE NEXT DIGIT
2360 TO EXIT
:iGET THE s
60 cmwse ASCII
..ms me LSD me FIRST NON-ZERO?
::BR IF
..ves-ssr THE SIGN FOR TYPING
$3SET THE TERMINATOR
$:POP STACK INTO RS
$:POP STACK INTO R3
::POP STACK INTO R2
$:POP STACK INTO R1
::POP sucx INTO RO
*NOW TYPE THE NUMBER
.':ADJUST THE STACK
::RETURN TO USER

SEQ 0126

~NN

MACY11 30(1046)
12:48

(el

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=J

J 1

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=J
6599

ggg?

032702

“Oi

000004

660
6604

1 7;7
112737

6608

010046

2289““

MACY11 30(1046)
12:48

N-JM—OZ 13:06 PAGE 128
ONVERT BINARY TO DECIMAL AND TYPE ROUTINE
$DBLK:

010149
105737
oou.sg
122737
oo1og1
132737
001425
ow;oo
oeg
005737
001375
010037

uz;

001376

ooczog

105 ;o

662

1
1

i i i3 i 33233333 3322222

033156 $ATY1:
033154 S$ATY3:

033154
000001

001230

000100 001231
ooooog 000004
00121
18:
001224
2s:

163700 001224

010037

6626

001226

6630 033056

6633
6634
6635
6636

33066

033070
033070
033076
033076

6637 03310

013746

177776

737 032132

105737
001416
005737

oom;

033156

001230

48:

ss
108:

6638 ogm:. 005737 001210
118:
6639 033110 001375
6640 0331;5 017637 0000064 001212
6641

0331

83;7

6643
6644
6645

033132
03 133
033142

105037
1oso§7
105037

6642

1;3

6646 0§3l

6647 033150
6648

033152

015601

00121

5 000004

03315
03315
033154

128:

n.smc

::T0 ONLY REPORT FATAL ERROR

200207

6649 033156
000
6650 033155
000
6651 033156
000
665
033160
665
000200
6654
000001

[0}

RO,=(SP)

2:PUSH RO ON STACK

(RO)+

::FIND END OF MESSAGE

$MSGAD ,RO

::SUB START OF MESSAGE

R1.=(SP)
2:PUSH R1 ON STACK
SMFLG
;iSHOULD TYPE A MESSAGE?
s
:IF NOT: BR
WAPTENV,SENV
..opmnns UNDER APT?
3s
::1F NOT: BR
#APTSPOOL,SENVM ::SHOULD m MESSAGES?
3s
*IF NOT:
34(SP) RO
iGET nessAss ADDR.
#2.4(SP)
BUMP RETURN ADDR.
$MSGTYPE
;5 SEE :r boue W/ LAST XMISSION?
18
SIF NUT: WAIT
RO, SMSGAD
LIPUT ADDR IN MAILBOX

BNE

ASR

1ST8

MOV

RO, SMSGLGT

#4.SMSGTYPE

:iGET MESSAGE LNGTH IN WORDS

*PUT LENGTH IN MAILBOX

*:TELL APT TO TAKE MSG.

B8R
MOV
ADD

ss
(sm 4:
;

.WORD

T1STB
BEQ
ST

S$FFLG
12%
ssuv

..suouw REPORT FATAL ERROR?
:IF NOT: BR
..numms UNDER APT?

TST
BNE
MOV

$MSGTYPE
118
4 (SP) SFATAL

..nmsueo LAST MESSAGE?
::1F
NOT: WAIT
;:GET ERROR #

INC

$SMSGTYPE

::TELL APT TO TAKE ERROR

MOV

JSR

BEQ

ADD

CLRB
CLRB
CLRB

MOV

SMFLG:
SLFLG:
$FFLG:

::T0 REPORT FATAL ERROR
2370 TYPE A MESSAGE

MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ASD
ST
BNE
MOV

MOV

012600

2322322222283 23222232322222223%23

n.sm.e
h LG

MOV

6627 033040
1;
6628 033042 01763
033032 3s:
6629 033050
766 000002 0000

MOVB
an‘;.wa

SUB

012737 000004 001210

6631 ossozs

.SBTTL APT cmmnous ROUT INE

1 799 000001 033156 am: MOVB

6609
6610
6611
wg
661
6614
6615
6619
661
6618
6619
%o

us;

.BLKW

SEQ 0127

RTS

.BYTE
.BYTE
.BYTE
55"‘
APTSIZE=2
APTENV=001

1 7776-(sn

STYPE

128

#2.4(SP)

::PUT MSG ADDR IN JSR LINKAGE
--%n» RETURN ADDRESS

::PUSH 177776 ON STACK

::CALL TYPE MACRO
:IF NOT:

:BUMP RETURN ADDR.

S$FFLG
SLFLG
SMFLG

S3CLEAR FATAL FLAG
:iCLEAR LOG FLAG
:CLEAR MESSAGE FLAG

(SP)+.RO

::POP STACK INTO RO-

(SP)+,R1

0
0
0

::POP STACK INTO R1
*RETURN

..nessc. FLAG
:LOG FLAG
+:FATAL FLAG

(lleFO UNIBUS RKé DR
CZR6JF .P1
04-J

6655
6659

L1
MACY11 30(1046) 04=JAN-82 13:06 PAGE 129
12:48
APT COMMUNICATIONS ROUTINE

000108
00004

SEQ 0128

APTSPOOL=1
APTCSUP=04
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE

6659
6660
6661

SRR AARAAAAAAAAAAAAC AN AAAANAANAAAAARAAANAAAIAARAA
AR AR

tTHlS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6~DIGIT

:%OCTAL (ASCII) NUMBER AND TYPE IT.

'SIYPOS--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

666§

tCAL

.-t
i
Hd
Hd
H

6664
6665

zzzsi
666

MoV
TYPOS
BYTE
BYTE

NUM,-(SP)

N
M

6670
6671
667,

22NUMBER TO BE TYPED
ssCALL FOR TYPEOUT
J:N=1 TO 8 FOR NUMBER OF DIGITS TO TYPE
;:M=1 OR
:1=TYPE LEADING ZERO

..O=StPPRESS LEADING ZERos

'STYPM---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;*$TYPOS OR STYPO

667
6674

-cAu.

6677
6678
6679

.-stoc--smsa HERE FOR TYPEOUT OF A 16 BIT NUMBER

TS
;e

6681
6682
6683
6684
6685
6686
6687
6688
6689
6690

i
i
033160
0331
033172
033176
033202
033206
03321
033220
033226

017646
116637
112637
062716
000‘09
11273
112737
112737
010346

000001
033405
000002

033403

000001

033403
033405
033402

000002

o) 03355 Dicles
669 33234 119704 033405
&
e
66
0332
1
7
033408
G
(a8
113ee
6699 Og
805003 000012
6700
6701

6702

670

6704
2705

Ogg“
68
03327

033274
8; 7

o o
6708

6709
6710

306

033310
033314

105
04
105

105

iy 033404
100913

04270
001002

177770

MOV
TYPOC

NUM, = (SP)

: ;NUMBER TO BE TYPED
::CALL FOR TYPEOUT

NUM, = (SP)

::NUMBER TO BE TYPED
::CALL FOR TYPEOUT

STYPOS: MOV

3(SP) ,~(SP)

::PICKUP THE MODE

ADD
BR
STYPOC: MOVB
MOV8

::ADJUST RETURN ADDRESS

MOV
MOV
MOV

#2, (SP)
STYPON
#1,SOFILL
og.sonooen
#5.SOCNT
R3,~-(SP)
R&,=(SP)
RS,=(SP)

..SAVE R&
::SAVE RS

ADD

#6.R4

..swmcr IT FOR MAX. ALLOWED

MOVB

SOFILL.R4

+:GET THE ZERO FILL SWITCH

CLR
ROL

R
RS

:CLEAR THE OUTPUT, WORD
..aowe MSB INTO '‘C

ROL

MOVB
MOVB

STYPON: MOVB

zeoza
MOVB

MOV
18:

28:

105
1 %03

MOV
TYPON

38:

ROL
ROL

1(SP),SOFILL _
(SP)+.SOMODE+1

:?noom,m.
Ré&.SOMODE

1§(sp).ns

RS
RS

;:LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

::SET THE 2ERO nu. suncu

..sst FOR SIX(6)

DIGITS

r:s neamou couur

::GET THE NUMBER OF DIGITS TO TYPE
SAVE IT FOR USE

::PICKUP THE INPUT NUMBER
:G0 DO MSB

*:FORM THIS DIGIT

MOV

R5,.R3

BPL
BIC
BNE

R3
$OMODE

::GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?

#177770.R3

..ssr RID OF JUNK

ROL
DECB

78
4

:BR IF NO
S:TEST FOR 0

6711
671
671
6714
6715
6716
671
671
6719
6720
6721
67 ;
6
6;%4

03331

0
03335
0
Og 56
0
Og

57
1403
5;04
0
5 72
1103
18“21
1 Sg‘7
003347
00;602
00 ;06
L4
12605
12604

67
67,
6
6731

833376
gfioo
033401
03340

000002
000
000
000

6733
6734
6735
67
673
6738
6739
6740
6741
674
674
6744
6745
6746
6747
6748
6749
6750
6751
675
6753
6756
6755
675
6757
6758
6759
6760
6761
676
676
6764
6765
6766

033404

000000

0
8

48:
58:

78:

4
g
s
6729 0%3%92 81 616 000002
6

03340

8s:
SOCNT:
SOFILL:
SOMODE:
.SBTTL

000

SEQ 0129

Ré

..su»uess THIS 0?

INC
BIS

o'o R

*:DON r SUPPRESS ANYMORE 0°'S
..ms mxs DIGIT ASCII

MOV8

R3.88

..sm FOR TYPING

$OCNT

+:COUNT BY 1

BEQ
BIS

TYPE

DECB

BGT
BLT
INC
B8R
MOV
MOV
MOV
MOV
MOV

2
£5
Ré
2s
(SP)+,RS
(SP)+.R&
(SP)+.R3
2(SP) .4 (SP)
(SP)+.(SP)

.BYTE

RTI

.BYTE
0
.BYTE
O
.WORD
0
TTY INPUT ROUTINE

YES

:;MAKE ASCII IF NOT ALREADY

:GO TYPE THIS DIGIT

;B8R IF MORE TO DO
::BR IF DONE
..msune LAST DIGIT ISN'T A BLANK
;GO DO THE LAST DIGIT
:SRESTORERS
..assrone Ré
::RESTORER3
+:SET THE STACK FCR RETURNING
: ;RETURN

+:STORAGE FOR ASCII DIGIT
s s TERMINATOR FOR TYPE ROUTINE
+sO0CTAL DIGIT COUNTER
ssZERO FILL SWITCH
:sNUMBER OF DIGITS TO TYPE

e RAARRARAARAAAAAAAAAANTAEAARARANAANAANAANAANNAAAANAAAAAAAARAAOORS

033406
033410
033412
033414

000000
000000
000000
000001
033415
033416

+sNUMBER OF ITEMS IN QUEUE

..IM’UT POINTER

s ;OUTPUT POINTER
::TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIA IZE THE TTY KEYBOARD INPUT QUEUE

'SETIP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

-cAu

1
v

033416
0334
033430
833636
033444
033452
033456
033464

005037
01;7 7
013737
01 S 7
012737
005777
012777
000207

JSR

RETURN

$TKINT: CLR

MOV

000
000062
145460

MOV
MOV

MOV
ST
MOV
RTS

PC,STKINT
STKCNT

;CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT ,STKQIN ..MVE THE STARTING ADDRESS OF THE

$TKQIN,$TKQOUT
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV ,@#TKVEC ..}NI"A%I%E IHE KEYBOARD VECTOR

#200,a#TKVEC+2
noo asTKS

asTkB

::'BR"" LEVEL
*SENABLE TTY KEYBOARD INTERRUPT

::CLEAR DONE FLAG

::RETURN TO CALLER

;*TK SERVICE ROUTINE
s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT

:?; ?EA%’O'E‘GLQ&CHARACTER FROM THE INPUT BUFFER AND PUTTING

:«IF THE CHARACTER IS A *'CONTROL=C'* (*C) STKINT IS CALLED AND

lalal

MACY 30(1046) 04~JAN-82 13:06 PAG§ 130
12:48
BINARY TO OCTAL (ASCII) AND TYPE

b
s

CZR6JFO
UNIBUS RK6 DR=CZR6JF .P11
04=JAN-

CZR6JFO \mws RK6 Dl;g %Czai 30¢1046) o:.-.mo—sz 13 06 PAGE 131

CZR6JF.P11

04=JAN=

INPUT ROUTI

g;gz

:*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL=C'* RESTART ADDRESS (STOP)

6769
6770

11772646
042716

6771

73 021627

6772 03350

6775 033506 00572

165456
177600

ogssoo
033510
og 510
033514
og 513
033522
ogss

104401 034626
03341¢
cosrg;

678;

033534

021627

6783

033530

$TKSRV: move
BIC

000021

6774
6775
6;;9
6
677
6
6780
6781

CMP

BNE

308:

021627 000003
001007
(04737

000137

033540 001

030500

000007

18:

6784 03354.5 02:737 000176 001140
g;&s’ 033550

6787

033552

6790
6791

033562
033566

001500

6788 033552 022737 000001
6789 033560 001004 6792
6793
6796
6795
6796

6797

033570
033572
033576
03
033604

033606

6798 033612
6799 033614

033620

104401
005726

105777

145332

042716

145326
177600
000021

109375
117746

6805

033642

6807

033652

eaog

s.w.g

oooog;

005237

38:
31$:

145304

033406

021627 000140

6813
6814
6815

23;9
6818

6819
6820
6821
6822

.
328:

002405

33696 1

33672

005237

033714

000002

177516

033410

033676 023727 033410 033415
033704
wgs
033706 012737 033414 033410

48:
58:

(SP) ,#$XON

308

(SP)+

(SP).#3
18

(SP) .47

SCNTLC

#c.mm

;.-mxur THE CHARACTER
::STRIP THE JUNK

::1S 1T A RANDOM XON?

:RANOO1

* :RETURN
318 1T A conmu c?
: *BRANCH IF NO
*:TYPE A CONTROL=C (*C)
::INIT THE KEYBOARD
::CLEAN UP STACK

*RANOO1

::BRANCH IF NO

::CLEAN RANDOM XON OFF STACK

JMP

s OP

BNE

::BRANCH IF NO

::CONTROL C RESTART

::60 TO SWR CHANGE

::IS IT A CONTROL G?

CMP

#SWREG, SWR

CMP
BNE

#1,8TKCNT
3s

::1S THE QUEUE FULL?
: :BRANCH IF NO

BR
CMP
BNE
CLR
ST

5%
(SP) ,#23
328
asTks
(SP)+

SEXIT
..1s IT A CONTROL=S?
: :BRANCH IF NO
..DISABI.E TTY xsvaomo INTERRUPTS
:iCLEAN CHAR OFF STA

TYPE

TST8

BPL
MOVB
BIC

6808 ogsas:. 35"’ 7 000175
6809 033660
003002
6810 833662 04 7}9 ogggl.o

6811

2s:

000451
021627 000023
001021
005077 145340
oosr;o

033624 022627
0336
oougg
033632 012777
000100
033640

033406

x; -(SP)
#-C177,(5P)

RTI
CMP
BNE
TYPE
JSR
ST
BEQ

001200

6801
6802
6803

6804

SEQ 0130

CMP
BNE
MOV

,S$BELL
(SP)+

asrxs

x9 -(SP)
#2177, (SP)

+:1S SOFT=SWR SELECTED?

*:RING THE TTY BELL
:iCLEAN CHARACTER OFF OF STACK

WAIT FOR A CHAR

..LOOP UNTIL ITS THERE
:iGET THE ;rwuc TER
MAKE IT

7-BIT ASCII

(SP)+,#21
318
#100,387KS

..1s IT A CONTROL-Q?
CH IF NO
..neeme TTY KEYBOARD INTERRUPTS

INC

STKCNT

..counr THIS CHARACTER

BLT

RTI

CMP

CMP
BGT
BIC

(SP) ,#140

(SP) .M75

*RETURN

::1S 1T UPPER CASE?
:BRANCH IF YES

l.s

::IS IT A smm. CHAR?
..amwc IF YES
MAKE IT UPPER CASE

$TKQIN

*UPDATE THE POINTER

MOVB

<sP5+.amom

CMP
BNE
MOV

$TKQIN,#$TKQEND ..so OFF THE END
5%
: :BRANCH IF NO
#STKQSRT,$TKQIN ..aessr THE POINTER

INC

RTI

..mo PUT IT IN QUEUE
: :RETURN

tt.tt.tttttttttlttt.tttttttttt..tt.tttt.ttttttttt\tt'fi.tttttttt

-sonws SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WI.L
:«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH aesxsm TRAP
:#CALL WHEN OPERATING IN TTY INTERRUPT MODE.

*RANOO1

|
3

716

&
S
9

022737

0011 ;
105777
100121

117766

8
2331

04=JAN-82

12:48

Y INPUT

000176

001140

145

MOVEB

BIC
cmp
BNE

tgmc.sn

SEQ 0131

3218 me SOFT=SWR SELECTED

158
XS
15

..u IF NOT
:3IS A CHMAR WAITING?
::1F NOT, EXIT

#4C177,(SP)
(SP) 4%
28

IMAKE n 7-81T ASCII
..xsx A CONTROL=G?
::1F NOT, PUT IT IN THE TTY QUEUE
s:AND
EXIT

a$TKB,-(SP)

::VES

'"Qt'.QQQ.'.Q't..t"""Qt.Qt'..t..t'.'.Q."Q"..'QQ..'QQ.".Q

6834
6835

6837

BNE
1ST8
BPL

740 m;ng 1776
744 85%0 00000
S0
01

ROUTINE

SCKSWR: CMP

145212

“gi

6836

13: oe PAGE 132

%CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY xnreanurr SERVICE
**ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL
A RESULT OF A
033752

123727

001134

000001

*«CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH neexsrefi mns SELECTED.

68:

(MPB

ARE WE RUNNING IN AUTO=-MODE?

033760
033762
033764
033770

001674
005 ge
004737
005077

6844
6845

034002
034006

104401
1064401

034640
034645

6848

034020

104401

034656

6850
6851

034026
034030

005046
105777

145110

6854

034036

117746

145104

MOVE

BIC

#°C177.(5P)

SIMAKE IT 7-BIT ASCII

6857 034046 021627 000003
6858 034052 001015

cMP
BNE

(SP) 43
98

::1S IT A CONTROL-C?
: :BRANCH IF NOT

6860 034060

ADD

#6,SP

BNE

SINTAG,
M
#100,387KS

:3CLEAN UP STACK

(SP) ,#25

::1S IT A CONTROL=U?

,S$CNTLU

*:YES,

294“

033774

112737

033416
145150
1

001135

ggg

gggg

6859

034034

034042
034056

100375

062716
104401

oegr

198:
78:

177600
034626

6861 034064 12372 oo:I% 592 000001
034072
001003
mli 034076 012777 000100 145042
g% 034102

MOVB

TYPE
$SGTSWR: TYPE

w.g 034012 013746 000176
6847 034016 104402
6849 034026 005046

mfi
“9 osnos 021627 000025

98:

6869

034114

6871

034124

001005
104401

6870 owgo 062706

034633

000006

208:

6874 owgg 021627 000015

108:

$a7s

00073

6875 034132

001022

6877

00140

u;g

034136

005766

000004

6878 034142 016677

000002

034140

144770

s
(SP)+
PC,STKINT
asiks

SZBRANCH IF YES
..cwm CONTROL=G OFF STACK
*:FLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS

,SCNTLG
.SMSWR

::ECHO THE CONTROL=G (*G)
+:TYPE CURRENT CONTENTS

,SMNEW

*:PROMPT FOR NEW SWR

-(SP)
as$TKS

::THE NEW SWR
::CHAR THERE?

#1,SINTAG

MOV
TYPOC

SWREG, = (SP)

CLR

<(SP)

8PL

TYPE

CLR
TSTB

TYPE

137 030500

6868 034112

BEQ
ST
JSR
CLR

SAUTOB,
M

6838
6839
6840
6841

(MPB
MOV
JMP

cMP

a$TKB,=(SP)

,SCNTLC

STOP

BNE

108

ADD

#6,SP

TYPE

19§

::SET INTERRUPT MODE INDICATOR

..SAVE SWREG FOR TYPEOUT
:G0 TYPE=-OCTAL ASCIICALL DIGITS)

::CLEAR COUNTER

::IF NOT TRY AGAIN
::PICK UP CHAR

..vss ECHO CONTROL=C (*C)

:;REENABLE TTY KEYBOARD INTERRUPTS?
::BRANCH IF NO
*:ALLOW TTY KEYBOARD INTERRUPTS
+:CONTROL=C RESTART
::BRANCH IF NOT

ECHO CONTROL-U (*U)

: s 1GNORE PREVIOUS INPUT
SSLET'S TRY IT AGAIN

(SP) . M5

::18 1T A <CR>?

4(SP)

..ves IS n THE FIRST CHAR?

MOV

2(SP) ,aSWR

$:SAVE NEW SWR

BNE

BEQ

168
118

: *BRANCH IF NO

::BRANCH IF YES

alal

CZR6JF.P11

UNIBUS RK6 DR=3 MACY11 30(1046) oa-.mu-

CZR6JFO

1;2

1
}oo

12:48
1 g
1135

193

11$:

000001

000100 144746

04-JAN-82 13: 06
Y INPUT ROUTINE

032344
000060
000067

148:

158:

168:

TYPE
g:o

2
177776

178:

001204

18%:
.DSABL

#6,5P

SEQ 0132
:;CLEAR UP STACK

SCRLF
fium.n

SECHO <CR> AND<LF>
..ke-emls m KBD INTERRUPTS?

JSR
cMP
BLT
CMP

PC sr C
(
1
(sm.m

..ecuo CHAR
:CHAR < 0?
::BRANCH IF YES
S3CHAR > 77

BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS

#60,(SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(sP)
=2(SP) , (SP)
78

:STRIP=OFF ASCII
..xs THIS THE FIRST CHAR
: :BRANCH IF YES
..~o. SHIFT PRESENT
::
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
:3KEEP COUNT OF CHAR
*3SET IN NEW CHAR
::GET THE NEXT ONE

208

+:SIMULATE CONTROL=U

MOV
RTI

BGT

000060
000002

0
0
0
0
034
034
834.
34
034

ADD

PAGE 133

B8R

TYPE

LSB

La8TKS

188

$QUES

..ue-emus TTY KBD INTERRUPTS
: *RETURN

: ;BRANCH IF vss

::TYPE 2<CR><LF>

t'.'tt.t.ttttt.ttt.Q'tt"'t't.ttQ.Qtt..ttttt"tt.tttttt.ttt't'.

'Zflif ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

v
i
.'

oy.goo 011646

034262 016666 000004
034270

034276

005066

005046

000004

000002

RDCHR
RETURN HERE

SRDCHR: MOV

(SP) ,~(SP)

..PUSH DOWN THE PC AND

+:GET READY FOR A CHARACTER

MOV

4648, - (SP)

::PUT NEW PC ON STACK

STKCNT
18
STKCNT
@STKQOUT,4(SP)

_gxoourmxoenomcnleongrr OF THE END?

MOV
CLR

CLR

76 012746 034304

03430%

000002

034310
034312
16

005737
001775
005337
117739

033406

033406
177070

000004

ST
BEQ
DEC
MOVB

343

&2’; 27

033412

033415

4 oos;

03341

18:

RTI

INC

034340
o1292? 033414 033412 28:
034346 000002

2:GET A CHARACTER FROM THE QUEUE
::CHARACTER IS ON THE STACK
JsWITH PARITY BIT STRIPPED OFF

MOV
RTI

4(sp5 2(SP)
(SP)

$TKQOUT

THE PS

::PUT NEW PS ON STACK
::POP NEW PC AND PS

;:WAIT ON A CHARACTER

: :DECREMENT THE coumsa
::GET ONE CHARACTER

:UPDATE THE POINTER

¥STKQSRT,STKQOUT"..kewnn
- :RESET THE POINTER

tttttttttttttttttt'tt't'tttttt.'ttttt'tttttt.tttttttttt'ttt.tt'

-wf ROUTINE WILL INPUT A STRING FROM THE TTY

i
o
i

RDL IN
RETURN HERE

sINPUT A STRING FROM THE TTY
*ZADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0'S

04=J

MACY11 30(1046)

BUS RK6 DR=3

CZR6JFO UNIBUS RK6 DR- MCV" 30(1046) N-JM—OZ 13: 06 PAGE 13‘

CIR6JF P11

04=JAN=

INPUT ROUTINE

6935

69
69
69
69
694?
694
6%
694

SRDLIN: MOV

28:

7 as 000177

08:

6
697
6948
6950
6951
69S§
6953
6954
6955
6957
6958

034450
0 223

034446

0011;29

0
osu.%
0
034472
034476
034500
834.505
34506
6967
034510
ogl‘.su
6969 0345
6970 034522
6971 034526

00501
122713
00100
104401
ooorzg
122713
001011
105013
104401
106401
717
104401
ooon;

6959
6960
691
696;
6963
6965

18:

00102
571
192
112737
034412 104401
8 12 012716
0344264 ozgz
0
10
0
111337
0
104401
8
2 000746
005716

6945

8;223‘

69;;
6973
6974

034530
034534
ogs:.o

6978
6979

gzg

112
104401

111337
104401
3527 3

oggm 034602
0 60;
17777
034604
03460

03460

58:
000134
034602

034602

000025
034633
000022

78:

8s:

001205

034604
001204

48:

03460
03460
00001

38:

235’ 0343¢q 1 ; § 1727777
6979 3322?3 18‘231 001206

6984

figg;

6989

604

6985

698

6988
6989
6990

034640
034645

000004

034604 8888842

11646

0435
01

-($P)
#STTYIN.R
#STTYIN®22,R3
&S
(SP)+,(R3)
#177.(R3)
5s
(SP)
#°\,98
.98
-1, (SP)
R3,#STTYIN
43
(R3),9%
93
23
(SP)

iCLEAR THE mour KEY
$:GET ADDRESS
::BUFFER FULL?
..an IF YES
GO READ ONE CHMARACTER FROM THE TTY
PSGET CHARACTER
:3IS IT A RUBOUT
$:BR IF NO
::1IS THIS THE FIRST RUBOUT?
::M IF NO
::TYPE A BACK SLASH
::SET THE RUBOUT KEY
..sncx EMPTY?
::BR IF YES
..sswr TO TYPEOUT THE DELETED CHAR.
TYPE
2360 READ ANOTHER CHAR.
..mnour KEY SET?

MOVB
TYPE

#°\,9%
.98

S:TYPE A BACK SLASH

BEQ

CLR
(P8
BNE
TYPE
BR
CMP8
CLRB
TYPE
TYPE
BR
TYPE
FR

1
0511

(sP)
#25,(R3)
13
SCNTLU
is
ogz.ms)
3
(R3)

2:BR IF NO

MOVB
TYPE
(P8

STTYIN
s
$QUES
is
#15.(R3)+

..cuecx FOR RETURN

TST
MOV
MOV
MOV

(SP)+
(SP)+,R3
(SP) ,~(SP)
4(SPS,2(SP)

::CLEAN
T KEY FROM THE STACK
..nesroae
$SADJUST THE STACK AND PUT ADDRESS OF THE
¥
FIRST ASCII CHARACTER ON IT

,SCRLF

(R3).9%

z?um
SLF

#STTYIN,4(SP)

.BYTE
.BYTE

$TTYIN: .BLKB

006525

::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
::BR IF NO
STYPE A CONTROL 'V’
2260 START OVER
::18 cmcrea A "“R'?
.-.-anmcu 1
S:CLEAR T; CTER
S:TYPE A "CR" 'u
SSTYPE THE wu TRING
;360 mxur momsn CHACTER
:TY
..cma THE BUFFER AND LooP

MOV
9s:

oosgw
805015
51412

CLR
MOV
CMP
BLOS
RDCHR
MOVB
C(MP8
BNE
ST
BNE
MOVE
TYPE
MOV
CMP
BLO
MOVB
TYPE
BR
ST

a‘fia
TYPE

szgg
12

R3,=(SP)

SEQ 0133

cfg:nl;s'r‘&n'fluewm
::TYPE A LINE FEED
2 ;RETURN

..STORAGE FOR ASCII CHAR. TO TYPE
TERMINAT

..RESERVE

/7*U/<15<12>

..CWTROL ‘v

SCNTLC: .ASCIZ

/*C/<15><12>

$CNTLG: .ASCIZ
SMSWR:
.ASCIZ

/*6/<15><12>
<15><12>/SWR =

SCNTLU: .ASCIZ

$SECHO THE CHARACTER

sCONTROL

2 BYTES FOR TTY INPUT

“°C**

:2:CONTROL ‘6"’

CZR6JFO
INS RK6 DR
R6JF M
04=J

g §333
CEEEEEEREENEE

6991
699§
699

MACY11 30(1046)
12:48

graz §§§§§ -

PAGE 135

NEW =/

LASCIZ
.EVEN
.SBTTL
P

LT R

T e e

'{HEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

034710
03471
03471
034720
034722
034726
0
034732
034
034740
034742
0347464

0
034754
§ 723

a
A%
a8 &

01
1003
5001
005002
112046
001420
122716
003026
12271
0024
006301
006102

SRDOCT:

1$:

035016
2%:

000067

AN OCTAL NUMBER
s;READ
::LOW ORDER BITS ARE ON TOP OF THE STACK
s:HIGH ORDER BITS ARE IN SHIOCT

MOV
MOV
MOV
MoV
MOV
RDLIN
MOV
MOV

..HOVIDE SPACE FOR THE
..IW NUMBER
;PUSH RO ON STACK

CLR
CLR
MOVB
BEQ
(P8
BGT
CMPB
BLT
ASL
ROL
ASL
ASL

ROL

BIC

177770

12
035026

03
03

RDOCT
RETURN HERE

ROL

3s:

4S:

B 8

7044
7045
7046

BINARY.

70
% 5

7040

READ AN OCTAL NUMBER FROM THE TTY

*THE INPUT CMCTERS WILL BE CHECKED TO INSURED .Tl'" ARE LEGAL
WILL BE TYPED
'OCYAI. DIGITS. IF AN ILLEGAL CHARA(C El IS READ A
:*FOLLOWED BY
A CARRIAGE RETURN-L
INE FEED. THE _COMPLETE NUMBE R MUST

n8 i sl
70%3
7030
7031

SEQ 0134

:EHIS R(lllp'fo WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

e quas 000004 000002
7011
ofi?os
010046
7012
034702
010146
7015
7016
7017
7018
7019
7020
7021
7022
7023
7026
7025
709

N-JM-.? 13: 06
Y INPUT ROUTINE

001204

5$:

ADD
BR
ST
MOV
MOV
MOV
MOV
MOV
RTI
ST

CLRB
TYPE

(SP) ,=(SP)
4(SPJ ,2(SP)
RO,~(SP)
R1.=(SP)
R2,=(SP)
(SP)+,RO
RO,S5S
R1
R2
(RO)+,=(SP)
3s
#'0,(SP)
13
#'7,(SP)
6%
R1
R2
R1

..?USH R2 ON STACK

READ AN ASCIZ LINE

..GET ADDRES; OF 1ST CHARACTER
:sAND SAVE 1
::CLEAR DATA WORD
..PICKW THIS CHARACTER
:IF ZERO GET OUT

..MKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

si%2

R2
R1

#4C7,(SP)

s:STRIP THE ASCII JUNK
..ADD IN THIS DIGIT

(SP)+,R1
2
)+
R1,12( sn
R2. su
(SP)+,
(SP)+ n
(SP)+.RO

::POP STACK INTO R2
:;POP STACK INTO R1
..fi STACK INTO RO

(SP)+

::CLEAN PARTIAL FROM STACK

(RO)

WORD

TYPE

::PUSH R1 ON STACK

SQUES

.LOOP

: CLEAN_TERMINATOR FROM STACK

s:SAVE THE RESULT

ETURN

..SEY A TERMINATOR
::TYPE UP THRU THE BAD CHAR.
::..?l.

I.c.ll

:2TRY AGAIN

01'00

035026

000000

F1N
N-JM—Q 13:06 PAGE 136
OCTAL NUMBER FROM THE TTY

SHIOCT: ,WORD

.SBTTL

tt.'.t.......'tt.'Q"'t"'t0.......0'...'tt.t....QQ.QQQ.'..'.QQ

-mxs ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

.~asw¢o OCTAL ASCIZ NUMBER.
e
MoV
#PNTR = (SP)

”’9705

‘e

7055

705

7053 g 5030

7060
0350
7061 0350
”7635 035042

104413

816601 ooooo;
12705 03514
012704 ogggu.

7069

035064

7071

035070 001405

18:

005

005205

7075

035102

000207

7077
70
7079
7080

035106
ogsng
035112
gxsm

006007
006000
006001
006000

0351

04030
702

035116

mi
035122
7084 035124
7085 035130
7086

035132

006001

00075

000016

(R1)+,R0
(R1)+.R1
ag
R2,-(RS)
RO.R2

::LOWER WORD
:3HIGH WORD
+ s TERMINATOR
:3PUT CHARACTER IN DATA TABLE
:3GET THIS DIGIT

mi R3
Ré

BGT

INC

2 ;MASK

..coua THIS CHARACTER

::BR IF NOT THE LAST DIGIT

S:BR IF IT IS THE LAST DIGIT
::ALL

DIGITS DONE-ADJUST POINTER FOR FIRST

MOV
RS,2(SP)
RESREG
RTS

2:ASCIZ CHAR. © PUT IT ON THE STACK
::RESTORE ALL REGISTERS

ROR
ROR
ROR
ROR

R
RO
R1
ao

*POSITION THE BINARY NUMBER FOR
¥
THE NEXT OCTAL DIGIT

ROR

R3,R2
rb R2

ASR

$OCTVL: .BLKB

11.

: ;RETURN TO USER

SPOSITION THE MASK FOR THE usr DIGIT

: :MASK OUT ALL J

..ms THIS CHAR. ASCII
so PUT IT IN THE DATA TABLE
ESERVE DATA TABLE

.SBTTL DOUBLE LENGTH BINARY TO btcxm ASCII CONVERT ROUTINE

tt't.t'.ttt'tttt.ttttt"'t.t'tQtttt.tttt'.tlt.tttt.t.tt'tttt...

7090
7091
709

-nus ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN msxcneo
:*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
*«POSITIVE.

MOV
.~
JSR

7095
7

709

70991I 035150 104413
7101

::SAVE ALL REGISTERS

MOV
MOV
CLR
MOVB
MOV

BIC
ADD

000060

..me ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

::PICKUP THE POINTER TO LOW WORD
..mnm TO DATA TABLE
::D0 ELEVEN CHARACTERS

ROR

7100

5”

; ;POINTER TO LOW WORD OF BINARY NUMBER
:CALL THE ROUTINE

2(SP) ,R1
nocvvuu..as
2. .Ré

BEQ

m;g 035104 oocfgs

Pc,ar$0820

MOV
MOV
MOV

DEC

7073
035076 010566 000002
7076 035100 104414

7081

RETURN

MOV

35096 003007

035072

JSR

$DB20: SAVREG

0 sosg 81 703 177770

7064 035052
012100
7065 835054 % 101
7069 gsoss
00
706 8 5
11024
7068 035
10002
mg

HIGH ORDER BITS GO MERE

DOUBLE LENGTH BINARY TO DETAL ASCI] CONVERT ROUTINE

7783
7054

7070

SEQ 0135

035152

0166%

7102 035156 0127

353

$DB2D:

RE TURN
SAVREG

MOV

#PNTR,
= (SP)
PC,ar$0B2D

POINTER TO LOW WORD OF BINARY NUMBER

::THE FIRST ADDRESS OF ASCIZ
2:1S ON THE STACK

2(SP) ,R2

#$DECVL RO

..SAVE REGISTERS

PICKUP THE DATA POINTER

..GET ADDRESS OF "soecvv' STRING

lalsl

MACY11 30(1046)
12:48

E%RNFO ms RK6
R6JF .P11

8;83. — e e cd cd nh
WS NS
ONOOONOO
S3358
-—b
N \N

MoV
MOV

WD
=5 A =

825
22
SIE398K
gguwwu-

18:
2s:

38:

W
N

(a )+ R?
#10. .48

MOV
CLR
SUB
SBC
SU8
BLT
INC
8R
:gg

zgruruaoz.us

ADD

48:

(SP)
+,R1

MOV
MOV

MOV

-0

PAGE 137

CMP
BIS
MOVB
DEC

#STNPUR R4

(R4) R
R2
(RS) ,R2
3s
R3
7%
;gc)o.at

(R4)+,R2

(RS)* (R5)+
#0.RS
R3,(R0)+
(PC)+

LWORD
BNE

O
18

RESREG
RTS

CLRB

STNPWR: 145000
35632
160400
2765
113200
230
931100

(no>+

::PUT ADDRESS OF ASCIZ STRING ON STACK
::PICKUP THE BINARY NUMBER

::SET UP TO DO 10 CONVERSIONS

::ADDRESS OF TEN POWER
::CLEAR PARTIAL

:3SUBTRACT TEN POWER

::BR IF TEN POWER TO LARGE
“:ADD 1 TO PARTIAL
;:L00P
::RESTORE SUBTRACTED VALUE

:sMOVE TO NEXT TEN POWER
..cnnnss PARTIAL TO ASCII
S3SAVE|
..oouez
::BR IF NO

: STERMINATOR

::RESTORE REGISTERS
: SRETURN

::1.0E09
::1.0E08

::1.0607
::1.0E06

}03240

::1.0E05

83420

::1.0E04

5750

::1.0603

‘1’“

::1.0E02

::1.0E01

(1’

:21.0E00

SDECVL: .BLKB

12.

-RESERVE STORAGE FOR ASCIZ STRING

.SBITL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

SRR RARAARARAANAN AN RN AN RAAARNANAAANRANNNNRRRNNANRAANAAAARARNRS

'TH]S ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
'IC.NAEIGED DECIMAL ASCIZ NUMBER.

MoV

RETURN

JSR

NUMBER -(SP)

PC,a#$3820

2:PUT BINARY NUMBER ON THE STACK

ssCALL

2 sADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

SEQ 0136

(alal

13:06

ggg2§ 035246
7

—2

OO0000000O0O0O0O0O0O0O0O0O0O0O
NN
NN NN NN NNN (N LN N NN (NN NN N NN NN
Vi il

035

04=JAN-82

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

~NN

|
QRN R

ZEEBNR R R IR NS oa Ve nr w20 BB IRARS
tv]

gg
flm

'?INS
RK6 DR1.3“ 1 30€1046)

16637

5
035374

4.9
4

689

2
000000

035374

2333
NIV -

$SB2D:

5152

000000

MOV
18:

::PICKUP POINTER
:RETURN

-%mms NUMBERS .
i3 3

1
i
035400

035402
035406
ossng
541
035416
0354
035422
035426
035430

010046

01
000004
105710
001403
1227;2 000060
0017
oossog
010037 035430
104401
000000

035432 012600

18:

28:

38:

035434 012619
035436

00020

MoV
JSR

$SUPRS: MOV

.SBTTL

:*CALL

;:;FIRST ADDRESS OF ASCIZ STRING

RO,=(SP)

::SAVE RO

4($P) RO
(RO)
2
#'0,(RO)+
1$
RO
RO,3$

MOV

(SP)+,R0

WORD

nov

(SP)+.(SP)

RTS

INTEGER MULTIPLY ROUTINE
i 33313

22222

::PICKUP THE POINTER
:; TERMINATEOR?
::BR IF YES
::1S THIS AN ASCII ‘0" 2
:iBR IF YES
: BACKUP BY "1
..SAVE FOR TYPING
TYPE

..Ascu POINTER GOES HERE

:*RESTORE RO

..nesrone THE STACK
$SRETURN
i

3323312223323 223332332222222]

e
e

MOV
MOV

MULTIPLER,=(SP)
MULTIPLICAND,~(SP)

RETURN

;:PRODUCT IS ON THE STACK

STACK

PRODUCT

i
H

TOP
+2

LSB'S
MSB'S

MoV
MOV
MOV
CLR

RO,=(SP)
R1.=(SP)
R2,=(SP)
-($P)

::PUSH RO ON STACK
$:PUSH R1 ON STACK
*:PUSH R2 ON STACK
::CLEAR THE SIGN KEY

BPL

$:BR IF PLUS

5401
16602
10000

NEG
MOV
B8PL

R1
14(SP) ,R2
2

::MAKE THE MULTIPLiCAND POSTIVE
::GET THE MULTIPLIER
$:BR IF PLUS

SMULT:

Ssisis
16601 000012
5456

0354
0354
035466

#NUMADR,=(SP)
PC,a¥S$SUPRS

MOV
IST8
BEQ
(P8
BEQ
DEC
MOV
TYPE

22 L 23 2 22

SLWN=O

b
b

(sfi)o.ztsn

:SAVE BINARY NUMBER

..ssr POINTER
..CAI.I. DOUBLE LENGTH CONVERT
:ONLY ALLOV FIVE CHARACTERS

S4THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

35440

). 18

-(sP)
rg480820
(SP)

.tt..Q.Q..ttt..t...'.0'."t'ttttt'.t.ttttttt..t"."..'tt."t"

35440 010046
35442 010146
35444 010246
3
gos 4

RTS
. WORD

LSBTTL TYPE mk:m ASCIZ STRING SUPPRESS LEADING ZEROS

—

MOV

MOV
JSR
ADD

521

000014

JSR

MOV
INC

18:

PC, aFSAULT

1;(5».1:1
(SP)

::GET THE MULTIPLICAND
::SET THE SIGN KEY

SEQ 0137

sl
P~~~

]
g

H1N
MACY11 30(1046) 04~JAN-82 13:06 PAGE 138
12:
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

NNNNNYNYO

(alel

2NN
gg
e
232
80
a3 m;‘
G2 8IRIRRREN28IS
300
SRER2ES

UNIBUS RK6 DR=3
P11
04=JAN-82

28%:

MOV

3s:

B8CC

4(S:

ROR

—

ViAWV

\higzrflU“fiNRU“AU“flNRU“flNflU“fiUMfl
b3R8N
K8REFRNSa

531
540.

5$:

TST

(SP)
R2
n7.,-(sP)
RO

IPLY LOOP
MULTIPLICAND = 0
AR ITIAL PRODUCT AND

R1
(SP)

THE MULTIPLICAND BEEN DONE?

(SP)+, (SP)

+2SHOULD PRODUCT BE NEGATIVE?
2560 TO EXIT IF NO
PIYES==SO MAKE IT SO

(SP)+
RO, 12(SP)
R1.10(SP)

;:CLEAR SIGN INFO. OFF OF STACK
::tg;.;ut PRODUCT ON THE STACK (MSB'S)

(SP)+.R1
(SP)+.RO

R POSTIVE

8
33'

(SP)+,R2

.SBTTL

SEQ 7138

$:POP STACK INTO R2

::POP STACK INTO R1
::POP STACK INTO RO

SAVE AND RESTORE RO-R5 ROUTINES

P iRRRRARARAARARAAAAAAAN
AN ANAAAANAAAANAAAANAAAAAARAAAANAAARARARAY

**SAVE RO-RS

s=CALL:
SAVREG
H
:UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
TOP===(+16)

% $2===(+18)
;% #4===RS

:* +6===Ré

% +8-==R3

;*+10=-=-=R2
s*+12-==R1
;*414-==R0

01
01
01
1
1
105
1
1
1
1

$SAVREG:

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

J*RESTORE RO-RS
s*CALL:
035610

$RESREG:

RESREG

RO,=(SP)
R1,-(SP)
R2.=(SP)
R3.-(SP)
R&,-(SP)

R5,=(SP)

(SP) ,=(SP)
(SP) ,=(SP)
(SP) ,=(SP)
(SP) ,~(SP)

;:PUSH RO ON STACK
2:PUSH R1 ON STACK
: sPUSH Ri ON STACK

2:PUSH RS ON STACK
sPUSH R4 ON STACK

::PUSH RS ON STACK
J3SAVE PS OF MAIN FLOW
s3SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
ssSAVE PC OF CALL

MACY11 30(1046) 04-JAN-82 13:06 PAGE 139
12:48
INTEGER MULTIPLY ROUTINE

v
wv

T
-

D d

VIS
W =0 VBO~NOW

NRINRNRINNN

BUS RK6 DR=3
04-JAN-82

]
7

71
;i

035610
5614

76
75

MACY11 30(1046)

04=JAN-82 13:06 PA

012666 83%
012666
12666 83%
01 23?

MoV
MOV
MOV
MOV

1
12604

MOV
MOV

;3 0356
035640
7280 035642

12602
012601
012600

MOV
MOV
MOV

7281
;Zzgg

035644

12603

MoV

000002

SAVE AND RESTORE RO-RS ROUTINES

035626
0356
;9 ogsc
0356

‘MOJ

.SBTTL

(SP)+,22(SP)
(SP)+.22(SP)
(SP)+,22(SP)
(SP)+,22(SP)

(SP)+.R
(SP)+,Ré

(SP)+,R3

(SP)+.n;
(SP)+,
(SP)+.R0

RTI
TRAP DECODER

SEQ 0139
;:RESTORE PC OF CALL
::RESTORE PS OF CALL
::RESTORE PC OF MAIN FLOW
::RESTORE PS OF MAIN FLOW
::POP STACK INTO R
:POP STACK INTO R&

..POP STACK INTO R3

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

72“

::ttttt.tQtQttttttt.ttt"ttttttttttttttt.Qtt.ttttttt.tttttt't..'t

;%gg

'GO TO THAT ROUTINE.

7285
7286
7287

2*THIS ROUTINE WILL PICKUP THE I.OHER BYTE OF THE '‘TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE
T
TABLE FOR THE STARTING ADDRESS
tOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBRTAINED IT WILL

7290

035646

7293
7294
7295
7296

035656
035660
035662
035666

7291
7292

759

$STRAP:

035650
035654

;2333

RO,=(SP)

2:SAVE
RO

MOvB
ASL
MOV
RTS

(RO) ,RO
RO
$TRPAD (RO) ,RO
RO

..GET RIGHT BYTE OF TRAP
JPOSITION FOR INDEXING
..INDFX TO TABLE
::G0 TO ROUTINE

2(5P) RO
=(R0O)

:iGET TRAP ADDRESS
: :BACKUP BY 2

23THIS 1S USE TO HANDLE THE ''GETPRI'' MACRO

7301

035670

7303

0357

7302

MOV

MOV
ST

035672

000004

000002

$TRAP2: MOV

MOV
RTI

(SP) ,=(SP)

4(SP),2(SP)

2:MOVE THE PC DOWN

::MOVE THE PSW DOWN

:RESTORE THE PSW

7305

.SBTTL

7307

;*THIS TABLE CQNTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

g}?

m?SOB

TRAP TABLE

:*BY THE "‘TRAP'' INSTRUCTION.

ROUTINE

731;

035702

035670

$TRPAD: .WORD

;33};

035714

032466

STYPDS

7313
73164
7315
7316

035704
0357
035710
035712

335132
33204
0331
033220

STYPE
$TYPOC
STYPOS
S$TYPON

STRAP2

;:CALL=TYPE
;:CALL=TYPOC
::CALL=TYPOS
;:CALL=TYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+ (104.:.0 )
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

GET SOFT=SWR SETTING

::CALL=TYPDS

TRAP+5(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

77!3,53

035716

034006

$GTSWR

::CALL=GTSWR

TRAP+6(104406)

7321
73F2§
7323

035720
0357 2
035724

03371
034§
034350

$SCKSWR
SRDCHR
SRDLIN

;:CALL=CKSWR
;;CALL=RDCHR
:.CALI. RDLIN

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
IRAP¢10(182410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE

7325
7326

035730
035732

035552
035610

$SAVREG ::CALL=SAVREG
SRESREG ::CALL=RESREG

7324

0357,

034670

SRDOCT

sCALL=RDOCT

TRAPH%(IO“I?) READ AN ogm. NUMBER FROM TTY
TRAP+13(104413) SAVE RO-R
TRAP+14(10441%4) RESTORE RO-RS

Tl
ROUTINE

lalal

ot.-.wc-sg 12:4

UNIBUS RK6 DR=3

R6JF P11
R6JFO

;Bz

035734

030360

13:06

SCOP1S

PAGE 141

;;CALL=SCOP1

SEQ 0140

TRAP+15(104415) INTERNAL LOOP ON ERROR

NI~

MACY11 30(1046) 04~JAN-82
12:48
TRAP TABLE

CZR6JFO UNIBUS RK6 DR=3
CZR6JF .P11
04=JAN-82

.SBTTL

13:06

PAGE 142

LN
SEQ 0141

MACY11 30(1046) 04=JAN-82
12:48
TRAP TABLE

SERVICE MESSAGES

T3AO—3-OWO88N\NN(39VIo\YWON33O~—83—erINMV33n_O8—O_—0eS3N8—I=n3I=OMNeNT3—=8IAN-3IND8RNIeN3ODNIS3SO8O3Ie=MNNNON3NNlITI8NrRN33DyIOTSMOSF3PT~=N3IeIT8N3Nr=OTMMrI~A8IN3OImNTNeOT~—Oi3RN\ISO3S=WSNIN8I3RS=O3ENA8ANS=3NORN8N3\I=IT~ON8WATNSO3NO=IOM8NNO=A3MO3OINTMNOO83NNOVS3IMOO ~O2V3—

—WnNmnOuNmOwm=MnANmaInTNml—.r=mINmVNOOTmNMD~OmMROmOTOmTMm-Nm9N”OmNm3IT9Nm0O1Nm2—m”r“=m”JFuO1NmO1m50“m~10T1Sw—

L9OW0NNNOWNN==SROWNgON=N0=LMeLOGNeOL=WNONOEWNSrT—rrONO~SYrNerT17[«

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P11
04=JAN-8

MSG1:

LASCII

<CR><LF>/UNIBUS RK6 DR-3/

LASCII

LASCII

<CR><LF>/

«ASCII

<CR><LF>/THIS PROGRAM SHOULD

+ASCII

<CR><LF>/OTHERWISE CARTRIDGE FORMATTING AND, OR THE DEVICE/

LASCII

<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/<CR><LF>

«ASCII

<CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE:/<CR><LF>

«ASCII

<CR><XLF>/A. HEADS MANUALLY LOADED/

«ASCII

<CR><LF>/B. CORRECT PORT SELECTED/

sannt

CAUTION seeee/<CRO<LF>

BE HALTED ONLY BY TYPING CONTROL=-C/

MACY11 30(1046) 04=JAN-82 13:06
12:48
SERVICE MESSAGES

nn
PAGE 143

1
16
6

062526
?1
05112
047514
51%61

104
141?
Sgll
503
061101

85005?
010
825240
14

LASCII

<CR><LF>/C. WRITE LOCK DISABLED/

91
9§
93
;§9fl

1
446
036454
036498

015
821126
;S 2
047111

0‘;01%
82 1
062101
044504

020052
05010
0131
OSO;

+ASCII

<CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF>

7398
7399

036506
036514

051505
05%040

047069
0;011

052117
062502

a% e gne s W
739 036508 005015 051106 053111
7400
7601
760;
76403
7606
7405
406

0365;8
8;25
SBg
03654
036550
036556
036564

036572

0520640
020104
0464040
015
0%011g
02012
042514
005015

051505
05;515
053101
041g18
047520
045504
052103

04 SS&
052123
105
052117
05 12§
04252
0462105

76409
76410
7611
76412
76413
7616
7415
76416
7617
7418
76419
7620

036575
036602
036610
03661
03661
036626
036632
036640
036646
036654
036656
036666

15
043516
050104
113
015
051101
032040
052123
051122
00011
005015
0264105

06161%
0%010
050040

040510
054130
041501

041412
046040
026060
051101
043517

042514
041517
042522
020124
040522

0511064
024523

053111
052040

;28‘

000

«ASCII <CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/

MSG2:

MSG3:

+ASCIZ

<CR><LF>/BOTH PORTS DESELECTED/<CR><LF>

.ASCII

<CR><LF>/CHANGE XXDP PACK/

«ASCIZ

<CR><LF>/CLEAR LOC 40,RESTART PROGRAM/

.ASCIZ

<CR><LF>/DRIVE(S) TO BE TESTED: /

;2§§
836;?8 00501g 054526 042520 MSG4
7425 036716 041040 0515%2 0;812

ASCIZ <CR><LF>/TYPE BUSS ADDRESS IF NOT 177440: /

7426
7427
7428
;2

0367;6
0367 5
83676
ogg;gg

0462101
0 12;
511
32064

8211
3111
032460
035060

1505
7040
33467
020040

7431

036755

015

052012

050131

MSG5:

.ASCIZ

<CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210:

7433

0367
039776
037004
037018
037020
037026
0370
037036

8%9105

SZS
86466
5258;
0415
043111

6114
5 118
05 15
524
70640

000042
005015

05110
051105
053040
0;012;
05211
020072

047111 042524

MSG6:

.ASCIZ

<CR><LF>/INTERRUPT OCCURRED AT PC=/

7432

7435
7437

76438

7439
76440

0367

031040

;gog 052112

030061

SEQ 0142

oo
|

CZR6JFO *NIUUS RK6 DR=3
CZR6JF.P1
04=JAN-82

<CR><LF>/INTERLOCKS TEST/<CR><LF>

MSGY:

<CR><LF>/REMOVE UNIT SELECT PLUG/

MSG10:

<CR>SLF><LF>/WILL TEST DRIVES:/

MSG11:

<CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF>

005015

MSG12:

/NONE /<CR><LF>

020117
050040
045503
051505

MSG13:

<CR><LF>/NO L OR P CLOCKS PRESENT/

R RRRR GRS KRR

MSG8:

046114

044522

MSG15:

<CR><LF><LF>/DRIVE /

MSG16:

<CR><LF>/DRIVE SERIAL NO.

MSG17:

<CR><LF>/CARTRIDGE SERIAL NO.

MSG18:

<CR><LF>/UNIT SELECT PLUG TEST/<CR><LF>

O=fO0ON
WM=O=WN)

<CR><LF>/BYPASSING DRIVE /

o0 020
YT
AV
SR LUVI
=NOONON)
~N&~W

MSG14:

m-.g-.-a-. L
iy
=N)—
NN=-=

<CR><LF>/ALL TIMING TESTS BYPASSED/

-l
/

NI~

SEQ 0143

<CR><LF>/DRIVE 0 WILL NOT BE TESTED/

SRES=8n8228

N n

MSG7:

(=l

u'-o-ng

8228828°
Soana
i

=S OQON)
= =2NINY) —
WOV
S =N O S

O NI

°3S:2°§
OWVIOWNWVIO
=WVOVIO O =WV NOWWVIWO
W

O=NNORSON
S ==

R
ONOWVINDVON)
NN &N

PAGE 144

OO000O0

2V‘§

32
SSSe RRERVR
o
SIS koo
—_am
O

O NV ~IN)
S ROAVIA 88 85 VI

MACY1 30€1046) 04~-JAN-82 13: 26
12:48
SERVICE MESSAGE

5382

b
) b

-t
ONINNO =2 ON) = = N O =

=2 N WWHN

b b = )

VNS S

3258 —_-OBNIO
=N

OV =)= —
— e O\ = A b
—t

N =

859 SR
33

W=-NW

SSRR KRR
W

=SON=WN=O0

®
o

= 53
R [~ y=1=

SSERR
—\n

e S

)

NNNN NNNNNNNNYN

258OOSOOOOOOO
NN NN NN NN
0O

¥333

“

.P
CZR6JF

IBUS Rk6 DR

S NSRS TANNER 33438S

CZR6JFO

040136
0460146
040125
0401
0401?6
040174

054503
02012
827518
744
0;9104
053101

MSG22:

.ASCIZ

<CR><LF>/NON-EXECUTABLE FUNCTION (NXF) DETECTION TEST/<CR><LF>

MSG24:

+ASCIZ

<CR><LF>/WRITE LOCK TEST/<CR><LF>

MSG26:

.ASCIZ

<CR><LF>/AC LOW DETECTION TEST=PART 2/<CR><LF>

MSG27:

LASCIZ

<CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF>

MSG28:

LASCIZ

<CR><LF>/MULTIPLE DRIVE DETECTION TEST/<CR><LF>

MSG29:

.ASCIZ

<CR><LF>/PLEASE WAIT, HEADS BEING LOADED/<CR><LF>

MSG30:

.ASCIZ

<CR><LF>/VERIFY DOOR CAN NOW BE OPENED & LEAVE

Vs
Vo
Vo Ve
B
Vo V"
Vo
Vo
YV
Vo
Vo Vo
N o
N
Y
N

8§
ViAW

S L LOS =2 —=O000
=S SOOI NVWNI=W

-y

OO0

TR SRRR
-5 L

HSON

&N
— i b NI ) = =2 O NI O N =
O OOOONOWNO
S
S RINN — &N
o

RR RARRR ARR SSPPRRSS
ONINNO
=N
Wiy
-\ Nk
b=\ AN
2\
gy
ON 3 PNOIN) =2
NN
=2
\ng-\n
O
N=N)
—=aN)
— NN =2
R
S OOSMNMNWONES
S i—
W W U!Obg —OWVOr

\nZég-mb

VIO = O = =0ONON
20“&
W=

SRRRSRR
v

2R 82
g3RpEserss
PRSERSRER

AR
£ SRUNIWS
e

7345 0i0123 04330s
7346 04015 003015

o0
NN
o

7316 03r6es 030051
7517 83729% 0?%?03

V. V2 .Y .

7547
7548
7549
7550
7551
7552

<CR><LF>/AC LOW DETECTION TEST=PART 1/<CR><LF>

Vo Vo Vo

042524
000
215
042524
020113
005015
215
047514
042524
020112
05005
00646;
00501
062049
02018
O‘;i 5
005015
820111
453;
05;1
047117
002526
82 15
042523
0;61 B
0515

LASCIZ

037676
037704
037705
037712
037720
037726
037731
03
037744
037752
037760
037766
037772
040000
040006
040014
040022
0400
040036
040044
068825
04
060096
060072
0100
0106

20103 MSG2
7306 937370 urdie
7308 03760s osotie 1
7509 § 761 020052
838154

Vo Ve

7518
7519
7520
7521
7522
7523
7526
7525
7526
7527
7528
7529
7530
7531
753§
7533
75364
7535
536
7537
7538
7539
7540
7541
754;
754

<CR><LF>/PORT SELECTION TESTS/<CR><LF>

61
015
054105
041101
8671 5

-ASCIZ

037
037624
037632
037640
037646

7510
7511
7512
7513
7516

}

V"N

1440
4526
051505

7
7
7554
756§

32
19:
g MSG
i

CZ
CZF

Y o

7501
750
750
7504

851388

SEQ 0144

IT OPEN/<CR><LF>

124

812

0373
037

PAGE 145

7497

78
7300

MACYN 3001066) 04-JAN-82 13:06
12:48
SERVICE MESSAGES

CZR6JFO ?ll!US RK6 DRCZR6JF .PT
04=J

LASCIZ

.ASCIZ <CR><LF>/DEPRESS 'RUN-STOP' SWITCH TO "RUN' WHILE CARTRIDGE REMOVED/

<ASCIZ

<CR><LF>/INSERT DISK PACK, DEPRESS "RUN-STOP' TO 'RUN' & CLOSE DOOR/

MSG37:

LASCIZ

<CR><LF>/DEPRESS SPACE BAR WHEN F INISHED/<CR><LF>

P
P
P
P

PO
Pt o
R
P
YA £
e PUra P
Can Pun P
P
e P
P
P
P
P
P

Fum P

e P

WVIOCOOOW

o P

OO WWOW
NNNNSNOW=W

2933

e PR FUR

P, e

NSO

#
b
e
e
)
- AV

<CR><LF>/VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD/<CR><LF>

Yt b

S35 SRORRR
ES0SENTE
NONONNINWIN

REAARAR FRARRAAROR S N

OO0
NN SBZWAS
WY
=
O~ - —S\N=a)

MSG36:

VSNt
ed ©
ow
O

0200§°-l-l~—l
WVINONOO
ooOown

O
=00

agu\no - N\

—_- )=
WNNWNO
W
N

Vi
-

g-a
Ro - \A\N

MSG35:

SRRIRS Vi

PIIIIIL

5
4

)

0610
06
064

o0
REROODRRRR
RRRROROSSR
RR
wvwhownw
& =
ONONN
N WO
=)
NN

820

|
MSG34:

el e}
el

000002

040544

«ASCIZ <CR><LF>/DEPRESS "RUN=-STOP' SWITCH TO "RUN' WHILE DOOR OPEN/

MSG33:

<CR><SLF>/?/<CR><LF>
<CR><LF>/REMOVE DISK PACK & CLOSE DOOR/

LASCIZ
LASCIZ

N W=

RSe32:

WVONSO NOO—
—
2
e
O=
N
onN
wWnWsHhOoo SOV

—

SEQ 0145

SERVICE MESSAGES

744
1
1
1

RORIIRRR 2R(=]
PRRORAS
Vo-oad-av'-.-a
O =t
vo\n-og--o-ov'v'o
Y
M) =
O =MNON)
AR NN=NNN
o8 -k
NN SRIR VW NO OO H
OV

[ala)

3001046) 04~JAN-82 13:06 PAGE 1406c

BUS_RK6 DR04-J

o
-

CZR6JFO
CZR6JF .P

———-d w[ ]~~~ AAA AAA ow—[~A —— —~~ AA AA ——b~ =w.AA AA

Ne.. FAPv_SAP_$20 r 383383=..s ~

w(~A-4 ww-v w3wAv= [w%b742}——w v=> oaA ?[ &o~

N4o~2[x-[e\="r%-4).°2¢l0O-\~[(Qa=a.&"'d=\24)~cl-g2e>ww~oN[oavdlO3NfT—-zwa[4v\Mld[%~-.l.(lw—[4—v=o-).lr—v('L-[go[OaeXAv=a~S4}d}1.1!3N—wO2-g3\o>[a<v'V4NONITMN—gmw(-oaeLvOcv=o|

—.n\..-[loma-wo

L“O1wNAR0UMN1ULmw1=ML0N2A1P1SR(2w=)1A2“O0ANR1U1wm12IR15LmL011HWwvNMOMNIww*mvvfl021m=4-1L
C IR6JFO UNIBUS RK6 DRCZR6JF .P11
04=J

w|e&\'4 vaA -iSQ2~ & ¢-A

(
t
[
o
7
—
]
]
p
b
—
a
s
m
—
smmUmONSIPLRn8wSmsSRAisWNOMPAT"VmUMONOMPSeATfzlsAnlmw 30V—N.OMAMO!WNO—MEN0IVTNMI5ONTMNVS.WN <“”x(v7%]) [o%w7¢]) (m[7]>[— 7w(eo—27]3 *w-v—. maA~

MSG38

MSG39

MSG4O:

MSG42

MSG43

w [

Y11 30€1046)

04~JAN-82 13:06
SERVICE MESSAGES

(&)

PAGE 14

MSG41

—

o -—

-A

MN-SM-IS 12:48
RK6

DR~

MACY11 30(1046)

04=JAN-82 13:06
SERVICE MESSAGES

PAGE 163! 1 .

SEQ 0147

NSTSNGTSRLEBTN(LPRFRSERR

RSISRIRIRTRIRTILRTRIRLISLRIOLIIeeI0L8I0LISIgIIBIIeISLIILTBR

CZR6JFO
|
CZR6JF .P11

201

1
5
1

301

040527

05 §1 11
04 5
5
0‘%“0

MSG50:

3ONO—5N8=C3O OSNPi8nN~3eA3N N3WA=NO—NN3FOOI8TIM3TONT3IS8NT 3AWMN

41
75
05
1

—T=,-y=y"—,-N -"-,—-""N,"y"""-y"A,AATWY""y""y""—"—N— TT

1
]
b
291

£3 £3

NS [

= = P = = T= = = = = = = P P P T P P= = 0 T = P O P = P T P P O P e T P P e

ers
511
5
1
1

5
61

MSGS51

MSG52:

3
1

«ASCIZ

<CR><LF>/SELECT CORRECT PORT/<CR><LF>

LASCIZ

<CR><LF>/CORRECT PORT NOT SELECTED, TRY AGAIN/<CR><LF>

LASCIZ

<CR><LF>/VERIFY DOOR CANNOT BE OPENED (DO NOT FORCE)/<CR><LF>

.ASCIZ

<CR><LF>/TURN OFF AC POWER FROM BEMIND THE RK06/<CR><LF>

LASCIZ

<CR><LF>/WAIT 30 SEC & SWITCH AC POWER BACK ON/

LASCII

<CR><LF>/MOMENTARILY REMOVE € INSERT THE SAME UNIT SELECT PLUG/

LASCIZ

<CR><LF>/TO RESET VOLUME VALID/<CR><LF>

«ASCII

<CR><LF>/DEPRESS SPACE TO DO TEST/

fa - ~
— et o

a2 um2.,

S1"Ret"a)A,ALR)sg;AtAWALTMOeARLPRStRANeRAPRl8RRsSLRteReA-NNlA©eLeRSASeoNR2LRt£ROORNNWyNRBeN RN¥"F3WsuRNEzeBrM8ueP3wNN“‘mceI8uslAe3aBqmElDnNs3r=Nm0N—NwNe—=mNS“nnsmTM=MWBmP=—mmm %>=3

SEQ 0148

< (&) —y

v (=] @ A v - [ A e S

«ASCIZ

<CR><LF>/DISABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES OFF/<CR><LF>

«ASCIZ

<CR><LF>/ENABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES ON/<CR><LF>

«ASCIZ

<CR><LF>/EXIT TEST WITH ORIGINAL UNIT SELECT PLUG NO. /

«ASCII

<CR><LF>/ALIGNMENT CARTRIDGE USED/

«ASCI1

<CR><LF>/PROGRAM WILL BYPASS THE WRITE LOCK TEST/

«ASCIZ

<CR><LF>/AND READ-WRITE DATA PORTION OF AC LOW DETECTION TEST-PART 2/<CR

43 ¥ — o [
(=] 3 -—[
<]. am

= - e ew — w wv — ~ v =) eAv - e A

ey WyWWNWWyeyWyNWgWWyNWNWWNWNWyWNWNyWNWWWNTWTTNT

0wy wl\ w~A \ -">

NNv

SSoNOSvoSM2—=N10f—1l3aN0tl18ANf3lN8M731wC3OC8elOeONhrOoCSNl8hOSN3o=—lOI3hN8nNS3g&SRYMM3rOYON8N3OVT8RS3YNe8P3ONO8E3S83N3e2—eW=20

TRInS0-ATNBNAS~OMRTDSO=NwOiiMwAnDNN@IOOORONNO—MONMOOTVRrGN0UIIO6TR%yI5e1Ns”Oe4C7%5767e01g6‘0IgN’.‘Ssz”WM=CZR6JFO UNIBUS RK6
CZR6JF .P11
04=~J

gWRyRyTRRRRRNRRRRRyRRNRRRSARRNGWYRSRNRRYBNGBBBRSBRRBNR)RRSNRRTW)TW-

~NN

04-JAN-82 13:06 PAGE 150‘ M-‘g MACY11
12:48 30(1046) SERVICE
MESSAGES

CZR6JFO UNIBUS RK6 DR=3
CZR6JF .P11
04=J

R3OS—NNIe3oS—Pan33RSO3S3“oOo —3g28s=zN3a\o3nN—3O8—A—3OgTWMNN8I3MeO—3An3O=NIOO3WoN23TIN3RO=3n3—2\OROo53NSV—O3N3NEeFR3TONIW3OTRNVOETINNR3VOFATNWIONC=TTYNT3R-INNMNIcRNlOc3lNOrIsg83sSSl3SOS3SSse 3CI

SEQ 0149

e i > 3 - o > a - 3 - G, m — w N4 (=] acA v

v ~4
- A vg
)e A~

S\~W SInYosnRres

(-=]

< (&) B

61sm

383 23388833 383 353 8

’ o—

MSGS8:

0SNyRERAYRRINONS e=—
3
IIIINIIN
IOyoMe—=NNNONOMNN~—NnmMnm O SWRONOO=Ov—WO=N—ANN N ITO shd_ AAP_ RS ealalANe—dOral0OsNt tOLAl

-5

oQuOIWnN

«ASCIZ

<CR><LF>/LOAD HEADS ON ALL DRIVES TO BE TESTED FOR MDS/<CR><LF>

«ASCIZ

<CR><LF>/INSERT SAME UNIT SELECT PLUG NUMBER IN ANY 2 DRIVES TO BE TESTE

«ASCII

<CR><LF>/INSERT CORRECT UNIT SELECT PLUGS & LOAD HEADS/

(=]

erNRrOMNe OTMe—N=FON
16

MSG60:

OO ON

<o oo

al al Al

EES I

TONM—NO

OW\v=v—

ON QNOT—0M

LASCIZ

<CR><LF>/ON PREVIOUS 2 DRIVES/<CR><LF>

MSG61:

«ASCIZ

<CR><LF>/MULTIPLE DRIVES FOUND ON DRIVE NO. /

MSG62:

«ASCII

<CR><LF>/BYPASSING MULT. DRIVE SELECT TEST/

04~JAN-82 13:06
SERVICE MESSAGES

PAGE 151

W12

SEQ 0150

—ill‘li!i.!l!!Ill!‘i'l‘liltli!

Te5NO1N5O1ST5MCNLRMEPRAEIPNB-RNWSRMENANer=NNORSeNATNMAS=WeNAsNuWgAR5NeA=L1yzR73Ao1‘clRuclsc-ll‘cc2lslo.l?2snseNuNKmR”NSsOuO-TEnS-

BIu3S8Iuo3ZS2u83RSSu8«358uIT3«SIRT8uS3I«II8uS3SIuTN3V3uIT8«NuIESIuIZD«SIIuSNTIuITNSSmIETuNSDTSImIu3Iu8TZu3AuVu8Nu3AuSu8«mSuRuoumSm«u&SuuT3u«8u«

1 30€1046)

o
~NN

Jfifi%@fll

CZR6JFO
1BUS RK6
“- J
CZR6JF.P11

+ASCIZ

<CR><LF>/ONLY 1 DRIVE PRESENT/<CR><LF>

«ASCII

<CR><LF>/DEPRESS SPACE BAR TO DO ANOTHER 2 DRIVES/

+ASCII

<CR><LF>/OR CONTROL-E TO EXIT TEST/

+ASCIZ

<CR><LF>/(INSERT CORRECT UNIT SELECT PLUGS BEFORE EXITING)/<CR><LF>

MSG6S

«ASCIZ

<CR><LF>/DEPRESS "RUN-STOP' SWITCH TO °'STOP'/

2523

MSG67:

LASCIZ

<CR><LF>/DESELECT PORT SWITCH ON ALL OTHER DRIVES/<CR><LF>

MSG68:

«ASCIZ

<CR><LF>/VERIFY BOTH DRIVES UNLOADED/<CR><LF>

«ASCIZ

<CR><LF>/DEPRESS SPACE WHEN 'READY' LIGHT GOES ON/<CR><LF>

: MSG6
19

T2'20R“.'MLOyNON2e0‘62')=BN01T—ON—MN720‘2‘-l~—

0
4

:
:

~L& o
i

;

82 1258

1 30€1046) 04~JAN-82 13:06 PAGE 152l 1 SERVICE MESSAGES

SEQ 0151

A-~—-eo~y=AM"OeSyOeeyeNSOe"eNNy—eNy-eOOyONSeAyO—O"Ne~gNNyTCeOyOeNAyM—eOyOAeN~FeNSyWyMN"1Wo0y”Oi2yWN“00"5”fW0tyl"mW~1y&w""meoy6e—y-m—W-0yfNW2Slyoef1wNytl2W.wNmy0:Sn~f0lW1isy"WAONyWMyOvtWeAyvRW~eyvWOyNDOOoW—=N=eMy=NNv\OOTNN=AoWWSNTnSNWAN—RTw~TVO\S

o SN R

TNoA2SR87«AARINRAIINNINMN[ROSISNSIIRTWSoNRO0IPSmTRNISR INRISNIR=SFORI3NIWSN3STTNTM3ISE8TT3RSS3IOWIN8JN3NIDLS3TRBITeR3ININ3ALT8NDS3Av8S8WV8WSO8A3NIM3OTM8AITNM3ARNTe8—S3O

CZR6JFO
IBUS RK6 DR
CZR6JF .P11
04=JAN-

MSG70:

.ASCIZ <CR><LF>/VERIFY HEADS LOAD/<CR><LF>

SgNID0NRR0LAULCeXRSINYDRIEININSSNILYSLNAURE

;

«ASCIZ

<CR><LF>/SELECT CORRECT PORT SWITCH ON ALL OTHER DRIVES/<CR><LF>

«ASCIZ

<CR><LF>/ABORTING BALANCE OF TESTS/

«ASCIZ

<CR><LF>/PROGRAM ABORT PENDING...PLEASE WAIT/

+ASCIZ

<CR><LF>/HALT PENDING...PLEASE WAIT/

+ASCIZ

<CR><LF>/PROGRAM ABORTED/

+ASCIZ

<CR><LF>/CPU HALTED/

JASCII

<CR><LF>/SORRY, WRITE LOCK SHOULD NOT BE DEPRESSED/

«ASCII

<CR><LF>/WHILE ON TRACK 2 SECTORS 19, 20 OR 21/

«ASCIZ

<CR><LF>/PLEASE TRY AGAIN/<CR><LF>

~ &

2.& )-a3.zTe¥
o

ZF =a »» 32 >&g v
- (&)

b a b1 X

2 Roydich SRICEANIT SAAREOD KOXSRERIS S ISRACHRS B8
- m mwm mwm3 mm wm 3 3 3 3 3 255 3 5

o o o o o OOo o

(
[
~
&
)
-m=oSsYgRLOITwN £Ss53 g¢2~

')NN(&

CZR6JFO
IBUS RK6 DR=3
CZR6JF .P11

PAGE 154

K12
SEQ 0153

LAN—=ANP24-12“7A1\62—clucrl0ys1c.lqwlSmc0l‘51i-5A1P5A’A1t5s5B1A5P1$A5A0T1St‘S1N51FAP1

RMRMRSRSIRmwuozuounu

R8u3s38iD33us8u3s3«O3u88«uI83DR38«8uTEN88m3usM33«s3uOsDO3«MmusOI8uSTmsI3NuBO3SsT3(uM38IsNu8sMmmuIsON«NmoIusSmousSDm8IusZuO3mBus8Tuw3IusuOwT3IusITuNwusuSw8usT3u3usw3u3«s8wm3«swomusmwuwus

OhWWHé

MACY11 30(1046) 04=JAN-82 13:06
12:48
ERROR MESSAGES

+ASCIZ

/DRIVE NOT PRESENT BUT SPECIFIED BY OPERATOR/

«ASCIZ

/ABORT TESTS...CANNOT REFERENCE CONTROLLER REGISTER/

.ASCIZ

/DRA IN RKDS & NED IN RKCS2 BOTH SET/

+ASCIZ

/CONTROLLER NOT READY IN RKCS1/

+ASCIZ

/NO ATTN IN RKASOF/

.ASCIZ

/WRONG ATTN IN RKASOF/

.ASCIZ

/DRDY NOT CLEARED IN RKMR2/

+ASCIZ

/DSC NOT SET IN RKMR2/

+ASCIZ

/MESSAGE AO ERROR/

.ASCIZ

/MESSAGE BO ERROR/

2NON—O‘4V(ww<[o=fbMW1F-32r9])N2TIoT3O==nOr82IN([&bm=v3S=\~)0N3INg)7=d31AZ(L——¢[->~w=8=L]l~M7=8=2=3‘7N=?(&(=8gQ—1N)2)][\N23—0SL\Fe87oWo=\3r1PtJoO8“[=-—->e(weq&N=23]1)lcTElONAsIO2INWATM1LN=SAN5LONSIOIw(s8oE<woMgb—5=Ny~vt)3S1=PElrsNtPI(gv—w-Q>ow3AA]=vAONLS3&3W3~ebN8[w(w—4vg*8&ty¥)]3O=8iN3oOttVNOAooe—tL-fL(1—wav<=Nw%&lr])AT‘aWOMmNAcleOlnRMro([=“)mo~a¥l2cN9q=]F[)ollIAlcPM’IAzlNFS[ww1LwagA*O‘Nc39=%R)lSWqSrSlAT.'w[“LwgoLOl¥)Ny9l=]loTclSs

NOW~-N—N\n=M~7gNO6=S0‘056oSg‘NB=05‘5SagN52g-685-=OxNN&VWM&INWNA

1oW"-aflfim@m1m6m1=—m2m"2wIMv3y620m“mm-tm—7m2F-mO57N0m(]=O%)3I2mS0w2Sw—N2wT0w2-(54O7SS—S-“SNM[m3“N~WSWO”vNMOW%N=“GWOQSWNM
o aNOWN —M) -0-\

eAO33SNI$e5~K=~o1<3OASON3Nn3S9igo~N4<33~N0VNT3IeTI9D1ON8~Vo—M<~E3x8SIRO38AO08e
NTA~.3~MTININ—NSIOIWNNII~T*INTIVOA—IRNNOoeSMINOSIWii ~.——— <<< ~~ IN=NTNSONTISNIITVVk~—B=~olCNINITCHN—NGOTE~oKN<~DNHSSO=0IEIN3ASNIDgL—~<TOeE35ISke8=<~3308iI~®—8<~ASNT2E~3)o9~N|SS3 5
-u= Ns z ~ab4N Nwz ww =— z3Z oe~ o =~ =~
0‘-JAN-;3 12:

MACY11 30(1046)

FeWNArJ=y—3ein\

04-JAN-82 13:06
ERROR MESSAGES

S3 3

[¥9)

CZR6JFO UNIBUS RK6 DR
CZR6JF .P11
PAGE 15 o

L
SEQ 0154

[
=]

—

L(M‘—-4d(]

w a~

(¥4
Z

2Ie8“II=NIGSDtIINLeIs=Do=Iw=S=IuASwWwINuI-—mT-uSS=IuNRIngSaImwTNSmnPuOwAWi=«FFs=ARmARos.ulclscl1smgm233R=N3g3Ne8lrgeeW

f3ngeesmmm“RteSl
GSSfec¢0|llG.0u|sR3I80¢wTlo80NMc13G|iw01OGuldO1¢8GwIOls3N¢n805lTe2zG.TOlsoGMc01z3OlGc05cuW3lGsN1aOcGluON3n9’0Pln8TGcu1OlnG.'Ol3Asm650cNsl6M1S0!n3IGl0Esc61Ml0uic6s0l8nA1Gqu0Nli8rc0O3tl5uG0csnVlG0cMw3r5Gl0Ouic2T0lf3c1aMA0ilG“ce0lNMG“q50OI3lAu0WcS4lN80cN1u3GlOc‘GOlwSWcG1Oml3RSGcOf58IlGOi31OS08f1N3GiO1fGONS2i1GO%x3=G10fIo01in3NGOf160i1OSNF6voO3W1onnG5aONOtwl90NqNSw6l0cb6o0lu2Ovc60lsv36c0wul9OcX0lM6“0c6l70a3M=Nu@lO0
CZR6JFO
UNI BUS RKk6 DR;% MACY11 30(1046) 04=JAN-82 13:06
12:48
CZR6JF .P11
04=JANERROR MESSAGES

PAGE
1 56
12

+ASCIZ

/NED NOT CLEARED IN RK(CS2/

+ASCIZ

/SPINDLE ON NOT SET IN RKMR2/

+ASCIZ

/DRIVE NOT READY IN RKMR2/

.ASCIZ

/DOOR STATUS BIT NOT SET IN RKMR2/

+ASCIZ

/HEADS HOME NOT SET IN RKMR2/

LASCIZ

/AC LOW NOT SET IN RKMR3/

.ASCIZ

/NED NOT SET IN RKCS2/

«ASCIZ

/ACLO NOT CLEARED IN RKMR3/

«ASCIZ

/VOLUME VALID NOT CLEARED IN RKMR2/

.ASCIZ

/VOLUME VALID SET IN RKMR2 AFTER HEADS LOADED/

«ASCIZ
/NON-EXECUTABLE FUNCTION (NXF) NOT SET IN RKMR3/

SEQ 0155
(94
€2

3333333 2M&M2&2 AlBi—and WOMOIoTM =Ni S2E0CT03NRe [Wowi¥][7wNa)
SBE-RN 2230

bw< 4 w~N wo-~ -

3
3
3
3
3
3
3
3
3
3
3
3
3
3
AoS33RtS3oR3mYoTR8sSoR33N3no3=0NS3MARN~NFAo93O=N3AtN3=yiRAAN3oN~NFn3SeONNnwSO3INOJ8TSR3=ONNSe8OAOSlNI3WOSTNAR3=SIN8ONww ISON3IOSNJNAW.R3NNI=N3OIwnN3S8—O3MN2RY3LwSVMTOOPIORRMTOTe
o x x .&< .<Z <. -- <£8 .<S. .sL)
—3m-~Lad -wo—S~— ¥= in-- ww S—s =S ~~ — -wSo~— 2w—>—~

3TWMNreennooON N83FT3r—8r3N8338-=3N83eN3ON8383Ve3t3S33=3333338-= 38

O3"~T—w~3(No]3~N3INA8NO3~((—o8A&&3N))N3~3—WnNnv(M~o84PAu=l[)n+wNm3~L3TAlow(=(~8=P&4v))vSP\8MmNLAl(b~(o»=)l)N2OM-N.NOe(]<oa¥-&)3N=—MO3N8\-

mNuwSmWwMmNw4nSwufmAS6i‘BwNI0%3v-NAw]IA1N—w7RoAm%ANuRN0TLI]7uPS,Iwo[——vgTG=R0~O2O€N0L—86IN0SNeGOrTN0GIO—I%GeO0Tw—1-PY5Gv]0IT0—GOOOGNONSORG—Or2IBe0—0—wAeGv—G80%2AGt0+W0yGOS1£mRA0t”€ES02(aM—oG2Y0]S18GR02og6$03a_bRGLO2bAaht00_2S&0Aomn“aRRb36L%0ElAGM0Ak6LfR0b6NiN0Ia10CAV“60EWPaI01~R€R0
wv

b~ w—

PO~IFTNOSP
O TM= ITNO =
CZR6JFO
18US K6 DR-3 MACY11 30(1046) 04=JAN-82 13:06
12:48
CZR6JF.P11
04=JAN~
ERROR MESSAGES

N 12
PAGE 157
SEQ 0156

a)a1

S—

m >~

+ASCIZ

/UNLOAD NOT SET IN RKMR2/

-ASCIZ

/CANNOT FIND MULT. DRIVE SELECT IN RKCS2/

.ASCIZ
/ATTN NOT CLEARED IN RKASOF/

€2
2

ALt2m10201201212M02N02021"4N02o=UW1202
N65o“I=w2y30234~“¥6w17~w2651353500m“—d3wasr6ara1l“~Maw3ial0al5-a[Ll*2¥]a]l3al6eF“solawd360“Iew5s22[gFY0Va]4453[L-%2vVt)556

2 mm 825mwe&wm“

S"O3b=&M”AO[wnoWb~mNIu\NTNnOWNAmTOML~wow©WNO|WIO=Y2—o~TSNom1A2mvo1DvdOLA0NS7ARN3O5C\OSS23Cg5o"m1NSRO5AW1N—oesITNB5u1OtmMw=u‘-cbMl52c1l1c-m”l—5wNS‘c51l2X13m—w216NT’‘b5Pa~m;10m551751&n8a>m3S1353,7
‘al

2105

< =<

IR PR 8% R O <

Z 5 g

SINIT8uMRO©WNuTROmINITuOm0BuNI-WDOTuNIIRNouSMm0IS5SPOmeB=TEuSMRIYNuB0OTmSARIOSMANRouOImRuOoTmISV/NEmROLuS]TAoM¥Am8O=3MI3m2N3uA23m833u783O5m3umumRmmwwNww
—3-[8&<o72] 232=¥—Xyg—2a€ 8a2—A€-B—€2[RR~— —O%GF1—2T“ w=T—E-¢%S4vE w--~ S*—— o4 eR"<2 y
CZR6JFO
UNIBUS RK6 Dfl-g MACY11 30(1046) 04~JAN-82 13:06
12:48
CZR6JF .P1
04=J
ERROR MESSAGES

LASCIZ

051440

813
PAGE 158
SEQ 0157

—

4aT ~
w[+

<CR><LF>/OCCURRED AT CYL 411, TRACK 2, SECTOR 21/

(94
2

MACY11 30(1046) 06=JAN-82 13:06
12:48
ERROR MESSAGES

CZR6JFO
CIR6JF .P

c13
PAGE 159

5ESESSRERtRARAEAREAR

Rm<wvy4[«—

a = w—(v5y]4w-—B

S S~ = m > w

-—Ha 3= m—Po&2y oy =-vy -w == <4o a5 v=¥= >

SEQ 0158

:- -S

8
@0R wy o Al
o

-0

m-g8S ¢XgS-Awv¥2 w~
—[

o Ao

—0

CZR6JFO
CIR6JF .P

eJJflfi%&fll

1 3001046)

13:06 PAGE 160’

_04-JAN-82
ERROR MESSAGES

13
SEQ 0159

+ASCII

/NO DRIVES FOUND IN DEVICE MAP (SDEVM)/

+ASCIZ

<CR><LF>/SETUP CORRECTLY & RESTART/<CR><LF>

+ASCIZ

/WRITE CHECK ERROR SET IN RK(CS2/

EMB3:

«ASCIZ

/DATA CHECK ERROR SET IN RKER/

EM93:

.ASCIZ

/READING WRONG CYLINDER # IN HEADER/

.SBTTL

DATA HEADERS

O15cN‘lTcNl“SalsSo[bPoev~l~4RS¥(~b[~44]4~Nn[) NO~eN==OW-O2“5

clalclcl.)cls

A53T5NASPAPLAILNLS AIAP PLNIPSN uwmouoouwuo wwg ou«mmmumw11wm “23—‘8255‘81 10

-sososq-l=cl=.=)T‘MsO WMeSn0=M=NOO0MO NG=SNoSoO NNsSuNIo~AOQMUIS oHoomRAXRA
" o-

ocon

g8338

3O
NOO
BhWweWa=Aan— "o— OCO0O0O
Palalalatl a)U

—

=" -

4.IZ.I

Wv=\

nanmnshsn.\on’.va3cnlcTln.Nh,—anl=orn(£a'2]o.nslnm£”w.

r=—reONY OV

7‘

83;;0

—~N

8%395
o

m< av w(&v) w[va- g

o2O0=OoMN 2353903 3

a
aw
a
oa
ao

a
a<
a
ba4
aa

b4 (=Y

L
o

NN~

«ASCIZ

~ e

38888838
RNuuuwums

(&) wv

b[¥%4) (k=Y)4

©oO0O

3OM

[=1=]

3ox ®2 .zx
g<&~ g~ ]~=) &

/AFTER PACK RE-INSERTED & HEADS LOADED/

wOOn.US1ueSOb~Tne3MuNOwNS2Tp—NnOuNeTwb_Sm3MbZOvS“OfIMiV8uS3Aa&-E—OuT3nMRBF3TEnEON.w<SHO.m3uNnI3uNSx3uNnS8OH3mbwS[ONT8LOm3TwSxn43bAwSONmRWOwO“uZOOOO%ARmm—-w_oIlTuLImNRwS3m3wTSe—I3mT8IR[:e72]A54KmW$w.at.l
¢ ¥

etes33&g3e083\9IeN3eS2T3eFI3893WTAIA2TRLV5IMWLT2OWNe2r—39er8—r3—iInT2=WSI"L\IzT 2IvVCIWOL~I£gTL=0NR\£Y3e£=g3 yD
o~ w- o w> (=} w=v w [ Yy

[*%) w w w [V w (o) w w <

3—LoeN~eB[»a<(not-=]gF7=R\SF9oo=R:a—~.9=n7c=7=LSN\aR(e[a~.Ln<S2LI==tN)o=SITW\NOIRLNMEPS=&=w—~-3aio=ftNI=OLNPESTM9=WL(.—a<gVN]gIS=OI(AN=L1IY=eTNS-N]LRV=I]1&a¢W-3~.—<4<A=.C~N[ANDLoRISv2s[“<§-sa=y~=ID==](S=1N8NVDIOT—)8¥&[R©<aS:S1NIVNNIO&NITGNOfg38So.—~“a02=Tl._N«FoD0ewR9c~gY“s=.0ga-=o2L=v30sT2””TiE—~aeEgX2-‘S.0—m-—
[«

a¢ [~ ~

(= o 3
\]

—~N

] T R bR
M~““w4~]wowQ~oo~o~~W~~mm
SNE~“LSoElywE=NEN[“s.—Olw8TEM=8w~ye—ESeeN—mw(&~.&Oy)-Ne-N[owLkTOV2y¥v]]=gw4~S€—oTws—-M-(e—~wv&)=N.w—~e=N~e-w—488ALwwe—&]5T8EeEb8ut“eo-—g—3~wyi

ENSEwfbFI-3SaNmsIg)abNR1ISNFLEb-N=3DINbEatDOVFwbg-3SDr}TOSI=bOmREF&bg-R3Se3b~erF)wb-3DDPvbTDA“F?bw-s3RDATb
3& s

o-= -w -was -&) ~( &~)[

T8B3u3n-<R—@hb8i3s2o¥=x5H38E53Sv8<—«n388a3R82oE=<—oe3R38a3n8y@<&=STSS3ISTS8TS3-@t3INy3IEo.-a8CIR5T80<3]a-ID0S£3R53<Ba-R3833o8«3<=a—m088n32R3n<a2-832uoa33wdm&o<OCO000O0O0O0O0O0O0O0O0O0O0O0O0O0O0O00O

c1mmzmmerNRO1mnumwmPSumnmammTNwzzumm ~l=1N32\—0~‘272 38&33838Z3E88E3 goRmesNHgScsEaGeoDrNsSegEnSszenmuew w~o
“w w —

i Eat M MEtEA

CZR6JFO
1BUS RKé Dfl-g MACY11 30(1046) 04=JAN-82 13:06
12:“
CZIR6JF.P11
04=J
DATA HEADERS

PAGE 162
F 13

SEQ 0161

LYNSzIrSESONDININAISTeN8VATORLaoN8TTOTXySLXF]S82IRRTOSAS
¥NGIORIRIEORRRBRISRR
8oO38NN3N.3&AO3S8=3NE8SI&NIO2SN3I5=3SIO8N3TE8333 .=-z <SS 5V0S2NB3I3NOSR3=F-eE8T3I2~OYA3UIkgL2NO8dNIO3TNI8EBTBY3S385.gNEI38—N38S5E2@BglESN8SO3DFT—3.oOI8oNSBNI38N3OTE©22 3NMSEY
-r ["~ w.X y -L -w-S -~= B B m 2- ~ %=e ~

nSIe-al=Ia\ilNa5R—lua3rnl=aSOilini"~ex<=od<aaSn]ncnlNTaSOWel—na3NlTnaAmOlnSSam=l[R4m~=iIvWLv[9A-]NANAES=gllIeaSNlaSlLILOgM-3Lg-T<2R-e)NARSlOAI=LNavNPl’aGAlA’aS")3NPAaXbLWldNa|<<ewiS——w lOt€y"A1aeSN.ltaRlT=o°atROlgN®a~-mm—Pe~<RlRNItaSAla&NNSOl5r.ASeNlAIraelRrAtwa:kgPP—N<lAVycS~OaitlUNaRelOAn~aLlSNNan—a.~w&<NAlSRcttaNlNnaAN-lL=anglenaNASNlbna0oagw&o~l<—-OtcyasnltSaNlASMnaSRloAn-EnolW=—Sw2“aUanAlSliaAllnaS=daNOlbONSL[ogo&“~T-av%y¥}]wB—
GOOCOG006OD06O00S0O0GOOG0OGOO0GOO0GOO€00OGO0GOOGO0GOO0GOOAGOGOG0NG\0 O0O0O0O0O0O0O0O0O0O000 0 0 0 0 0 0

d
o

8539
8540

05
05

oLA

PAGE 163

§ s

e —

2T~ 3 B5 Ses

CZR6JFO
1BUS RKé ”3 MACY11 30(1046) 04-JAN-82 13:06
CZR6JF.P11
12:48
04=JANDATA HEADERS

6 13
SEQ 0162

-2=

evw Q~

3[45—va'bL—=<VMO~%y]YWNTo<wynn—i2w[[(—<Ov+==nld))]51w((a-<~S%=i]~L]5OS2([a\—<gN=']-“4]]5TN1[=w—ao<~YSN®z]N1G5Lo—ailsNalSNalN(4m-—w—a<—N~=b]1OSTNPO=NNNO(Lwe=——a~<o])tm)zlowa=—o~M®qua)m2lwMuL.l-(—L—o3wXa<-q=)1l]uam)wa1lezl)Ual(w[.(——D2—a~—ev==381t]ialalalA=lot((—--R1b—wo~—a==4l]p

2ks2”“12-1mS=APG%Nm%MNAXo2‘~0N6106wm0M1a—N385w—

nw—mWAJ~?yNcnlM\-zonWnNO[n=)N‘n¢3lm2N1¢—3|¢ll[mfO“=s]l.z2~mN.‘5els1‘-?N.2\e1z-an2few1l-fO~iN2O1Nn6ONN‘nN2[MI‘one]qT6a.TN0ulzw”~7ala”Nl4Tal(Ma2le‘al—l”-a:lN)a—Ol6ala0clNlaOlS~’qallCcNallcIwg~allalNea”lOalVgNmE[O¥-e—)Al
L]
N
2%

60@0660 0

2Oo3ON3NS—N30ST231M238«=I3=ONOINN05AMN8ONO3NTONM8WNOTrMI3=TNrM=O3ENNArI3NrNNO8N3WOON~I32—NAN3IOsNs‘O3e“3N2EOeOSOSN3eeSN=N83OEO”WOSVWN3IeE2RT—MM8OMN3NN3NOW8INT3=3O08RNO
Swo“~o.N<%LA w—S.38& A o—3&.§SB~3A wo 28 awaa ~— =.. 3¥) <: wo 2o.~-3 ~@. -=o g2 = )1 Feati=—oo ~~~ -.- ]» xx— Srd
()s~[=] m(—=] w—P= a~ a~ ~
2 o%
8589 05
8590 05
8591 OS
859§
859
8594 0
8595 053
8599 05
8597
05
8598 05
8599 05
8600
8601 05
860§

8604
8605

860;

8608

Teg

o”ooooooo
1

(S72} ~-

04-JAN-82 13:06
DATA HEADERS

g = x

?F'“d&%&flfi%?fll

1 30(1046)

Gebl

]~ ~

CZR6JFO
.P
CZR6JF
PAGE 164

H13

SEQ 0163

e == g W

-<=M3em=w3&v
emtaeizmerTSmaSsmo5n-un§umsmnsw—LToOELN@sRsTgsNE-SEmnTuu-RoGmNumSoas
-R~"wo—r3—o<= (Ya[2.g<—S=1] —g.yNO8—kTN2yNO *— &SL3~w—mobo ]y©— -2~ .—m- —s2s ww- .ggg —~~o ~& s—e m@@ .

wFR\3T3‘rA3NrS33E3R-mSm—t—3I8N3T3=5@m—.Ee=NT—io<On-W38x8m3Br3RS8C3-M*oO=8tS3Neoa[C)ANl4ORLNILo-lNSw7=OMSNcl8Nc3Rl3w8Pfv—ONclOsWs
.SBTTL

[N bo

oov-o [w%~ ~~» wS~ &=~

o =

RS3eoOs8oBE3OgoSe3NRRsoSIet3OoRs8NE3osOSR3Soso3OSoso3RNSosC3N83osS0R3nosoA3£SRosE3&SRon8m38SSoE33ym8Io3RA6m3Bo3Oos83PRNomEosEOWomzBNNoRNomIOMoPeMNomENomROOEomzEoyORLonNRTosMosPOosORomMomSNomNomPOomRNom
CZR6JFO
UNI BUS RKké ”3 MACY11 30(1046) 04-JAN-82 13:06
CZR6JF P11
12%‘
04=JANDATA HEADERS

PAGE 165

ERROR OUTPUT DATA

113
SEQ 0164

—=

8673

0541

;9 56138

5 2 885;28 885 Sg

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

5356
885 74
1214

537

881116

001166

“li

885

005352

8684

856 16

885

8688

8& 22

88} }3

8683

8685
0609
8687

8690

056216

054226
054
054

854 50

001434
005364

005342

005356
885376
1214

0053?4

8691
8692
8693
323‘5

054256
0542664
054266
;2 73

005354
005342
005%“
88;3;2

8696
8697
8698
8699
8700
8701
8702

0564306
054312
054320
054326
054330
054336
054346

8706

054354

870

§%

707

54346

054

054364

SEQ 0165

HMR1 ,HMR2 ,HMR3 ,HER ,HDS ,HCS 1 ,HCS2

56156
54164
56196
054176
054200

J 13

5370

86
86;3
86

8680
8681

PAGE 166

DT3:

STESTN,SERRPC,S$TMP3,WD1,WD2

001436
005366

005370

HMR1,HMR2,HMR3
,HER ,HDS
,HCS1,HCS2

885

005 Sg

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

005

001354

005340
00537

DT6:

001366

005363

005370

HMR1 ,HMR2 ,HMR3 ,HER ,HDS

005350

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

005352

005346

DT9:

STESTN, TRAPPC

001116

005340

STESTN,SERRPC,TOCYL
,RHTAB

,HCS1,HCS2

005360

005372

001214
005432
005410
005416
005364
005354
005342

001116
005434
005412

005430
005436
005414

005366
005352

005370
005340

HMR1 ,HMR2 ,HMR3 HER ,HDS

005356

005346

005360

005350

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

001116

005430

005346

005374
001214

DT13:

005372

gm 054372 882228 88;224 005436

DT14:

STESTN,SERRPC,E.A0.E.B0.E.A1,E.B1,H.A0,H.B0,H.A1,H.B1

,HCS1,HCS2

STESTN,SERRPC,.E.A0,.E.BC.E.A1,E.B1,E.A2.E.

8710 054404 005410 00541% 0054174
g;}‘ 8546 00;416 %g‘z 8823%8

H.AQ,H.BO,H.A1,H.B1,H.A2,H.B2
HMR1,HMR2 . HMR3 HER ,HDS ,HCS1,HCS2

8715

HWC ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

o} B R o S
054436

005344

005346

85““

885;56

005360

005372

8719

054456

001216

001116

005430

005366

8720

54452

OS“%

B
8725

054514

729 8545;5

727

8728

054530

054532

5374

0054632

005

005434

005436

sgfi 005352 005370
005340

005342

005344

005346

005350

371?

‘;}.

005350

DT15:

STESTN,SERRPC,.E.A0,.E.20,E.A1,E.B1,E.A2,E.B2,E.B3

HMR1,HMR2

,HMR3 HER ,HDS ,HCS1 ,HCS2

HW(C ,HBA ,HDA ,HASOF ,HDC ,HPOS ,HPAT

1!3({;1 30(1046) EO‘»-JM—IZ 13:06
RROR OUTPUT DATA

lalsl

CZR6JFO
UNIBUS RK6 DRCZR6JF .P11
04=JAN~-

875
i
8

0336 003374
565640

005356

550

000003

564556

051024

54552

54556

005360

802

000

054560
0564

051074
007

8742
8743
8744
8745
87‘9
8747
8748
8749
8750
g;gl

054564
0545
054570
05457
054574
054576
054600
054602
054604
054606

000005
000
051007
g%
053
003
051024
007
051074
007

8753
8754
8755
8756
8757

054610
054612
054614
054616
054620

000005
000
051007
oog
05341

8759

054626

051024

054630
054632

051074
007

8764

054634

000001

002

000

8767
8768
8769

054640
05464
054644

000003
2
051024

000

8771
gflg'
773

054650
054652
054654

051074
007
000004

8758

8760
8761
g;gi

g;gg

8770

054622

0546;8

054636

054668

000

8779

054670

051074

007

000

78;

054674

000005
000

000

8783

054676
054700

053765

5
.BYTE 0,0
DH1
.BYTE 2,0
DH62

.BYTE 3.0

DH2

.BYTE

DH3
.BYTE
DF5:
DF7:

000

054656

054672

DF&:

000

8774

8;3(1)

5
.BYTE 0,0
DH1
.BYTE 2,0
DH61
.BYTE 3,0
DH2
.BYTE
7,0
DH3
.BYTE
7,0

000

7.0

DF3:

000

877
03de2 o002
8779 054664 0518‘2,6
8778 054666
7

.BYTE 7,0

000

007

.BYTE 2,0

DH3
.BYTE

000

DH2

000

DF1:

000

003

007

005372

.SBTTL ERROR DATA FORMATS

738
739

23]

K13
PAGE 167

000

7,0

.BYTE

2,0

3
.BYTE
DH2

2,0

DH3
.BYTE
4

7,0

.BYTE

DF10:

7,0

.BYTE 0,0

BYTE 2,0
DH2

000

.BYTE 7.0
DH3

.BYTE

DF12:

5§

.BYTE
DH73

7,0

0,0

SEQ@ 0166

lalal
NN

CZR6JFO
UNIBUS RK6 DR=3 MACY11 30(1046) 04~JAN-82 13:06
CZR6JF .P11
04~J
12:48
ERROR OUTPUT DATA

7
879
8798

ouaw-ggEEEEsEesERsssacs

8799
8800
8801
880;

000005

8805

0526

051024

051074

051007

33°°a°°°°°°°°° 3
N

Vi
Vi

gN NS NOON

i
i

OO0OO0O0O0O0O0O0O0O0O000O0

WVONOWVSWN=O

051007

055044

05316
002
051024
007
051074
007
000007
000
051007

053

053928
053730

0518g27
00
051074
007

000007

DF15:

0.0
2,0
7.0
7.0

0.0
2.0

7.0
7.0

DF17:

0.0
0.0
2.0
7.0

DF20:

7.0

0.0
2.0

2.0
7.0
7.0

DF21:

0.0
2.0
0.0
4.0

4.0

7.0
7.0
DF22:

13
SEQ 0167

oTM
NN

ggggs
8888

000004
000
051007
002
051024
007
051074
007

§888888

:
8795

.BYTE
DH1
.BYTE
DH2
.BYTE
DH3

(=]

051024
7
051074
007

ERROR DATA FORMATS

g 8

787

788
789
790

$888888

01307

?3(711 30€1046) 04-JAN-82 13:06 PAGE 168

CIR6JFO
IBUS RK6 DRCZR6JF.P11
04=JAN-

8855

usg
8857
8858
8859
8860
8861
mg
8863
8864
8865
8866
8867
8868

8‘69

055100

055102
055104
055106
055110
055112
055114
055116
055120
055122
055126
oss1§6
055130
055132

889
ggs
053
900
051

053740

053

006
007
051074
007
051024

000007

000
051007
002
053720
000
053740
907
053730
007
051024
007
051074
007

000
000
000
000
000
000
000

.BYTE
.BYTE
DH9
.BYTE
DH71
.BYTE
DH70
.BYTE
DH2
.BYTE
DH3
.BYTE
DH1

DF23:

000
000
000
000
060
000
000

338 3333333333333 3333333333234}

:*THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
**ERROR 1S TO BE REPORTED. IT THEN USES THE ‘ERROR TABLE'' (SERRTB)
*«ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
:#THE ERROR.
055134

104413

22 AARAARARAARAAARARAAARRAAAAAAARAAAAARAAAAAAARANAAAAAAARARAAAAREEARESY

055136

032777

020000

8883

055152

042700

177400

8885
8886

055160
055162

006300
006300

8890
8891

055176
055200

0014
104401

8893

055206

8881 055144 001107
mg ossug 113700 001114

8884 055123 005300

mam’ 83?12‘6 %;oo 005512
8889 055172 0150‘39 055206
ossgo« 104401
055216

104401

123774

TYPERR: SAVREG

001205

BIT

#SW13,3SWR

;INHIBIT ERROR TYPEOUTS?

BIC

#177400,R0

:CLEAR SIGN EXTENSION

ASL
ASL

RO
RO

BEQ
TYPE

3s
,SCRLF

*BRANCH IF THERE ISN'T ONE
*TYPE CARRIAGE RETURN LINE FEED

LWORD

*EM POINTER GOES HERE

TYPE

,SCRLF

BNE
MOVB

DEC

001205

8805 03551¢ 00j4p 0>>0%
8896

0.0
2.0
0.0
7.0
7.0
7.0
7.0

.SBTTL TYPE ERROR ROUTINE
2*ENTRY JSR PC,.TYP ERR
**RETURN RTS PC

8880

889

0.0
2.0
0.0
6.0
6.0
7.0
7.0

32 L 33 3333332333333 3333222333333 3333

8874
8875
8876
8877
8879

.BYTE
.BYTE
DH69
.BYTE
DH71
.BYTE
DH70
.BYTE
DH2
.BYTE
DH3
.BYTE
DH1

8870
8871
gg;

“78

SEQ 0168

28:

figk
MOV

TYPE

208
sn;ns RO

chenm RO
(RO)+,2§

watt O - OIS ol

*YES=-BRANCH
*ENTER ERROR NUMBER

*FORM INDEX FOR ERROR TABLE

FORM ADDRESS OF ERROR ENTRY
*GET EM POINTER

*TYPE ERROR MESSAGE (EM)

SSRANCH TP THERE ISN'T ONE
*TYPE CR-LF

8841 05
§5050
8843
055052
8844
055054
8845 0550
w.? 055
8847 055
mg gssou.
8849
055066
8850 055070
8851 05507
aasi 055074
gg‘ 055076
w.i

13
MACY11 30(1046) _04-JAN-82 13:06s PAGE 169
12:48
ERROR DATA FORMAT

433334 (7] 3331333333333
33 3333

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=J

8904

48:
5$:

055
855

3909

855 46

104401

8908
8909
8910
8911
a91§
8913
8914
8915

055 sz
055254
055256
055260
ossgez
055264
055266
ossgro

10 7zg
00570
001407
013146
10440
00530
001403
104401

891
8918
8919

ossgzs
055
055302

005302
003431
104401

8921

055312

001404

8907

055250

11§oos

3919 055274 000771
8920

osssog

005760

001205

08:
118:

055420
148:

001205

000002

055316
055320
055324
055330

001002
104401
012037
104401

8928
8929
8930

05533¢
055336
055340

105710
001003
062700

000002

8932

055346

104401

001205

055420
055332

158:

8927 055332 000000

8934
8935

8936

055352

055356
055356

055362

000754
005704

001335
104401

000732

8937
8938
8939
8940
8941

055364
osssgp
055374
055376
055404

104414
032777
oo1419
023727
001004

89%3
894
8945
8946
8947

055412
055416
055420

000137
000207
020040

892

8948

8949

8952

055406

(no)o R

012706

168:
218:

055420

178:

010000

123544

001103

000024

001100
023374

000

208:

:DH POINTER GOES WERE
*GET DT POINTER
*BRANCH IF THERE ARE NONE
:SET INDENT SWITCH

(RO)+,R

*GET DF POINTER

17$

*DH NUM IS

COM

Ré

MOVB

(RO)+,R3

TYPE

:TYPE
DATA HEADER

:STORE "u"°5533:u°"'s

*NO INDENT

,SCRLF

TSTB
ST
BEQ
MOV
TYPOC
DEC
BEQ
TYPE

R3
148
SPACE2

DEC
BLE
TYPE

R2
20$
S$CRLF

:MORE DH'S?
*NO-BRANCH

BEQ

158

SYES-BRANCH BYPASS INDENT

15$
.SPACE2
(RO)+,168

*NO-BRANCH
*YES=TYPE SPACES
ssr NEXT DH POINTER
TYPE DH

B8R

(RO)+
R3
148
a(R1)+,=(SP)

iis

Ré&

.WORD

IST8
BNE
ADD

(RO)
218
I 74 RO

TYPE

,SCRLF

+LOOP

3(RO)

COM

BNE
TYPE
MOV
TYPE

*BUMP PAST FORMAT WORD
*TEST IF ANY DATA FOR THIS HEADER
*NO
= SKIP DATA PRINT
mr FIRST DATA WORD ON STACK
TYPE IT
*MORE DATA WORDS
*NO-BRANCH
*TYPE SEPARATORS

14$

:ONLY A DH IN THIS REQUEST?

* INDENT?

*DH Poxnrsk GOES HERE
-

STYPE
A DT?
*YES=BRANCH
INCREHENT DF POINTER

:SEE IF END OF DF BLOCK

TST

: INDENT?

ios

:LOOP

BNE
TYPE
RESREG
BIT
BEQ
CMP
BNE

MOV

108
SPACE2

#5W12,3SWR
258
sganc.ozo.
258

#STACK, SP

JMP
ENDRV
258:
RTS
PC
SPACE2: .ASCIZ/ /
:
ODT=11 == V0OSA

: DEC=11-UODPA-A-LA
: COPYRIGHT 1969,1970,1972

8933

MOV

s9z§ 055314 005104

055344

O
(RO)+,R1
208
Ré

BEQ

8923
8924
8925
8926

8931

WORD
MOV
BEQ
CLR

MOV

05524

8905 05526

TYPE

: DIGITAL EQUIPMENT CORPORATION
: MAYNARD, MASSACHUSETTS 01754

*NO-BRANCH
SYES=TYPE SPACES

:SEE xr EXIT AFTER 20 ERRORS
*BR IF MO
:ELSE SEE IF HAVE 20 ERRORS
*BR IF NO

*ELSE' RESTORE STACK
*AND BYPASS DRIVE
:2 SPACES

444444 S

8902

890

055224
055
055
055

—

8897 055222

8898
8899
8900
8901

SEQ 0169

N13
CZR6JFO UNIBUS RK6 ”-3 1!3(1;1 3001046) 04=-JAN-82 13:06 PAGE 170
CZIR6JF.P11
04~JAN-8
TYPE ERROR ROUTINE

PAGE 171
N-JM—.?
PE ERROR aou INE

8 14

SEQ 0170

2
CL
o
CR

: REGISTER
NAMING

:TRT INSTRUCTION

000006

:RTT INSTRUCTION

"woom

RE
o SAFE,

THE CURRENT ADDRESS WORD

wfioxm IT IS SET TO ZERO, AND SEARCH

momv FILLED.

OTHERWISE, IT SHOULD NOT

AND THE CURRENT ADDRESS POINTER (CAD).
DATA BUFFER
/SR

05546§

177776

0.ENTR: MOV

5§~§§§3

0.STRT: MOV

;SET UP STACK

ST1

*CLEAR BREAKPOINT TABLES

0.USP

.SVR
IN,30.ADR1

~N
NN

N
~N ~

URO, SP

PRI .R&

0.RST1: JMP

*RESTART
:RE-ENTER == SAVE STATUS
*SET UP LOCAL STATUS
*FAKE THE PC

:FAKE THE SAVED STACK

DF
DF

*SAVE REGISTERS
:REMOVE ms BREAKPOINT

000016

0554

:NORMAL ENTRY

*SHIF
2 INTO
: "POSITION
*STORE IN STATUS

EEE ¥

177776

TRT

ST
0.UST
VEC+2,ST
oiurc

coX®

NNNNNW

gvtu—.§
-

OO
QO

——

3 b b —d =2 )

§-

SRR EREEEE
No
SBE

wvivawiawnunawnuaianawnawwa

OO0O0O0O

ViawaInaW

A NORMAL ENTRY
RESTART ODT = WIPING OUT ALL BREAKPOINTS
RE-ENTER (I.E. = FAKE A BREAKPOINT)

;TRT VECYN LOCATION
:PRIORITY MASK - STATUS REGISTER
sT=BIT MASK = STATUS REGISTER

FPSSSS822R $£8%8% <

;STATUS REGISTER

4434+

B
177776

(s laTa)

CONVENTIONS

OO0O00O0O0O0O0O000

adn

LSS
SRR ST T R
SRR3 gg

lalal

MACY11 30(1046)
12:48

UNIBUS RK6 DRLN
04=J

*GET ODT PRIORITY

DF
DF

105037

55614 81
7
osse;s 12737
0556
7

7 056572

g 88%16
S
14

TYPE ERROR ROUTI

0.45:

0556
055636
055642
gssw.
ssug
055652
055654
055660
055662
055664
055670
055672
055676

537 osmg
0127064 05753

gEesd

SEQ 0171

B8R
MoV

0.45
#RTI,0.RTIT

MOV
MoV
BR

#0.STM,0.TVEC+2 :STATUS WORD TO TRT VECTOR + 2
#0.BRK.0.TVEC :PC TO TRT VECTOR
0.RALL
*CLEAR BREAKPOINT TABLES

CLR8

0.REGT: JSR
MOV
0.RSP: (MPB
BEQ
P
BHI
BIC
MOV
0.SP1: ASL
ADD
INC
B8R

120024

1413

0227064

1 1;73

057543

“5082 177770
01
;o/.
04 0556446
5202

000444
162704

055700 000770

057526

0.SP:

0.P

:SET TO m IF 11720 OR /05
*DISALLOW PROCEED

Sus

B8R

5,0.GET
#0.7L R4
o.a;a

:SPECIAL NAME, GET ONE MORE CHARACTER
*TABLE START ADDRESS
:1S THIS THE CORRECT CHMARACTER?
:JUWP IF YES
:IS THE SEARCH DONE?
*BRANCH IF NOT

JSET FOUND FLAG

#0.TL=-7 R4

JCORRECT CONSTANT

RO, (R&)+

0.5P

#0.TL+0.LG,R¢

#177770.R0
RO.Ré
R&
#0.URO, R4
0.SCAN
0.5P1

*MASK OFF OCTAL

:GENERATE ADDRESS
*GO FIND NEXT CHARACTER

HANDLER = OPEN INDEXED ON THE PC

055702 004737 057436
055706
055710
055712
055714
055716

0.0RPC: JSR

01050
06120
00620
103421
00630

RS R2
aR2,R2
R2
0.ERR

MOV
JMP

R2.RS
0.0P2

055722 ovozg
055724 000137 056176

PC.O.TCLS

MOV
ADD
ASR
BCS
ASL

ossrss 00572

(R2)+

;CURRENT ADDRESS IN R2
COMPUTE
*MOVE ONE BIT TO CARRY
*ERROR IF ODD NUMBER
:RESTORE WORD

: AND INCREMENT BY TWO
*UPDATE CAD
:60 FINISH UP

B HANDLER = SET AND REMOVE BREAKPOINTS

0.BKPT: TST
BEQ
ASR

3?374.
o 352 055476
ossng 8?3437
057552

055476

R2
0.RALL
Ré

%f
MOV

24'.5”
Ré,0.ADR1

0.DCD

0.RALL: MoV

#0.TRTC,0.ADR?

0.0CD

: COMMAND DECODER - ODT11
*

REGISTERS RO-R4 MAY BE USED,

:1F NO NUMBER TYPED
: REMOVE BREAKPOINT
*CHECK IF ODD

ngr'ol'ts
&D BIT
:SET A BREAKPOINT

P P

ossr§g 005702
055732
001406
ossgz oogfoc

%037
9061

: SPECIAL NAME MANDLER
: DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO

9058
9059

PAGE 172

P P e P P P P P P P P P P P P P P P P P PP P PP P PP PE PP EREPEEE o

;

13: 06

P P

5610

127

12:48

N-JM—.Z

;CLEAR BREAKPOINT

04=JAN-82

MACY11 30(1046)

8288888888
3USSR
?g
28
I
LSSSIERRRERRE28388883822
VBNV
WNN=O g
bl

P11

1BUS RK6 DR=3

UNIBUS RK6 DR=3 MACY11 30(1046) N-JM-IZ 13: 06 PAGE 173

9065

04=JAN-82

mi
“? 5760
oosg 557
9030

90
9071
90
90

SEQ 0172

0.ERR: MOV
BIS
JSR

”,RS
2'3,R0

g.oFTYP

oumt ?

9075 056014 1 191
90;9 osoms 0 08 000067

BHI
e

9080
9081

056032
056034

060004

ASL
ASL

ADD

Ré
Ré

:
i

Ré

9084

056042 000760

0.SCAN

AND TRY AGAIN

9009

8560‘3

sog;
zrog

90
8
10341
90;8
4 886700 177770
90
gseo
g&
905; 056036

006
006304

908 ossozg 005202
9085

9087

056044

005001

056052

001405

9088

056054

9090

056062

9092

056066

120061

9091

056064

006301

9093 056070 000171
9095

o.m’
#177770.R0
R4

BEQ
INC

CMP

1033

000770

056074

*PACK THREE ans IN Ré

R2
R

no.o.sscnm)

0.L6L
R

:6G0 TO PROPER ROUTINE

0.0FST
0.WSCH
0.EFF

0.0P1
0.0RPC
0.BACK

O0.ERR

:
:
:
:

:
:
;

:
:
:

O
W
E

OFFSET
SEARCH WORD
SEARCH EFFECTIVE ADDRESS

gm)

: PROCESS / = OPEN WORD

9115

056132

9117

056136

9119

056136

9118 056140
9119 05614
9120 056146

10405

TST
BEQ

MOV

103711

0115
537
000714

0.BKPT : B BREAKPOINTS
; F PROCEED
=
.=0.LGDR
;LGL MUST EQUAL 2X CHLGT ALWAYS

0.PROC

0.WRD1: ASR

0.ERR2: BCS

006305

ASL

057226

*MULTIPLY BY TWO

<LF> MODIFY CLOSE OPEN nexr
OPEN RELA
fso NDEX
*TM OPEN PREV ous

0.L6L

9114 0561

00PS!

/
OPEN WORD
CARRIAGE RETURN
CLOSE
$ REGISTER OPS
G GO TO ADDRESS
K

9106 osmgo 0557
056122 056574
3133
000030

0.WRD:

SET INDEX FOR NEXT SEARCH

80.LGDR(R1)

05
5
05631
056

oosros
00141

wa YES

JMP

0.L6L2: ASL

056112
056114
056116

056124
056126

:DO THE CODES MATCH?

*RE-LOOP

9103
9106
9105

911;
9113

*CLEAR INDEX

0.L6L1

BHIS

0.LGDR: O.WRD
0.CRET
0.REGT
0.60

9107

*R2 HAS NUMERIC FLAG

056124
056156
055632
0564

056170
05 705
oso;

SCHECK LEGALITY IF NOT OCTAL
:CONVERT TO BCD
: MAKE ROOM

1s THE SEARCH DONE?

056074
056076
056100
056102

056104
056103
05611

RO.Ré

*COMPARE WIfw ASCII

R1,40.CLGT

9096
9097
9098
9099

9100
9101
91o§

sCHECK LEGALITY IF NON-NUMERIC
:COMPARE WITH ASCII 7

BLO
BIC
ASL

0.LGLT: CTMPB

9089 056056 020127 000014

0.CLG6L
#'7.R0

#°0.R

0.CLGL: CLR

005201

Ré
R2
5,8.551

me <CRY<LF>*
: R4 CONTAINS THE conv:mo OCTAL
R2 IS THE NUMBER FOUND FLAG
GET A CHAR, RETURN 504 RO

INC

057521

0.CRLS

'CLOSE
:vmmms
:
0 BE TYPED

05731

056010

5747

TYPE ERROR ROUTI

0.0CD: JSR
0.0CD1: CLR
CLR
0.SCAN: JSR

9074

55774
;&g
56004

12:48

MOV
JSR
BR

R2
0.WRDA

:GET VALUE IF az IS NON-2ERO
.sup OTHERWISE

novs ONE BIT TO CARRY

*RESTORE THE CARRY BIT

R& RS

0.ERR

5,R0
,0.CADV
0.0CD1

PUT VALUE IN CAD

:JUMP IF ODD ADDRESS

:GET courenrs OF WORD
*GO GET AND TYPE OUT aCAD
:G0 BACK TO DECODER

b A4 4334333333333
333123 B

CIR6JF P11

CZR6JFO

N
Nn

56150

705

836138 00676 0000

0.WRDA: BIC
BR

#1,R5
0.WRD1

SEQ 0173

~Ne

sCLEAR CLOSED BIT
:G0 BACK TO MAIN-LINE

: PROCESS CARRIAGE RETURN

$3%
g%

VY S

9121
N
N
N

04°JAN~02 13: 06 PAGE 17‘E

MACY11 30(1046)
12:48
TYPE ERROR ROUTI

(el

CZR6JFO UNIBUS RK6 DRCZR6JF .P11
04=J

0.CRET: JSR
BIS

737
052705
000702

PC.0.TCLS
#1.RS
0.0CD

:CLOSE LOCATION
:CLOSE EVERYTHING

*RETURN TO DECODER

: PROCESS <LF>, OPEN NEXT WORD

Sxro SN

057436

0.0P1:

057462

0.0P2:

05722

037370

JSR
ST

PC,0.TCLS
(RS)+

:CLOSE PRESENT CELL
*GENERATE NEW ADDRESS

MOV
JSR
MOV
JSR
B8R

RS,RO
s o CADV
RO
s oFTYP
0.WRD1

*NUMBER TO TYPE
* TYPE OUT ADDRESS
STYPE A /

JSR

S 0.CRLF

S<CRO<LF>

:60 PROCESS IT

056222
56226

004737

057436

0.BACK: JSR
ST

PC g.ms
-(RS)

0.0P2

:GENERATE NEW ADDRESS

260 DO THE REST

DEC
DEC

Ré
Ré

JMP

0.0CD1

BCS
ASL
MOV
JSR
SUB

057370

—t

057226

057226
056000

0.0F1:

MOV
MOV
JSR
MOV
ASR
BCS
JSR

0,ERR2
RS
# RO
S.0.FTYP
RS.R4

Ré RO
R4 .R2
5,0.CADV
g.no
R
.OF1
.0.CADV

: SEARCHES = SMSK

:GET LOW ORDER BIT

*ERROR IF CLOSED
*RESTORE WORD
:TYPE OME BLANK
: AS A SEPARATOR
*COMPUTE
:

16 BIT OFFSET

STYPEA
:SAVE Ré
*NUMBER IN RO= WORD MODE
:DIVIDE BY wo
.wwcn IF
*NUMBER IN ao BYTE MODE
:ALL DONE

HAS THE MASK

SMSK+2 HAS THE FWA
SMSK+4 HAS THE LWA

9170

0.EFF:

INC

BR
0.WSCH: CLR

0.WDS
R1

:SET EFFECTIVE SEARCH
sSET WORD SEARCH

[aTaY)

133

0.0FST: ASR

~
&N
SR SPRIS
S S

3* PROCESS 0, COMPUTE OFFSET
CO00000000OOOO0O

22882288088

VWA w

ISTSIERRARIZIXITIR WA

b
e
b

: PROCESS *, OPEN PREVIOUS WORD

022800088

$3588888BRBLRRIN28TEIR FER2BI3 gg
eeee8eeeeeeeee

lsis

UNIBUS RK6 DR=3

P11

-J

gg 1
16

56
56
56
56

56
56
56
5635
056

0
0

856

MACY11 30(1046)
12:48

5547
1 ;
055474
101217
1
5701
1027
1004
1040
60
S

83050
1016

01044

56366 004537

057462

5637

057226

3 7g

10329

056 73 012729 ooogsr

056402 004537
057370
osuos o11§g9
056410
004
057226

056414 8(1,2604
05641
5725
0564
74

056426

0564
0564

056432
056434

001755

10003
ooozog
00520
005203

13:06

TYPE ERROR ROUTINE

0.WDS:

; 85547

ol.-.mo-az

TST

0.ERR1: BEQ
MOV

MOV
COM
0.WDS2: CMP
BHI
MOV
ST

BNE

PAGE 175

0.ERR
0.MSK+2 ,R2

0,MSK RS
RS
R2,0.MSK+4
0.bcH
aR2,
R1

0.EFF1

MOV
MOV
BIC
BIC
BIS

RO, =(SP)
R4.R3
R4 RO
(SP)+,.R3
ag.

MOV

Ré,=(SP)

BIC
0.WDS3: BNE

JSR

MOV

JSR

MOV

JSR
MOV
JSR

MOV
0.WDS4: TST
BR
BEQ

MOV
ADD
INC
INC

F 14
SEQ 0174

:CHECK FOR OBJECT FOUND

*ERROR IF NO OBJECT
ser ORIGIN

:SET MASK
:AND COMPLEMENT IT
: IS THE SEARCH ALL DONE?
: YES
GET OBJECT
*NO
*BRANCH IF EFFECTIVE SEARCH
:EXCLUSIVE OR
: IS DONE
IN A VERY
FANCY MANNER HERE

RS.R
0.WDS4

AND RESULT unn PASK
*RE=LOOP IF NO MATCH

5,0.CRLF

*GET READY TO TYPE

ué.no

5.0.CADV

#'/.R0

S,0.FTYP
2.R0
0.CADV

($P)+ R4
(R2)+
0.WDS2

nssxsms nz.m AND RS ARE SAFE
STYPE <CR,LF>

TYPE ADDRESS

*SLASH TO RO

STYPE IT
*GET CONTENTS
-me CONTENTS

: RESTORE R4
mcnensm TO NEXT CELL AND
RE TURN

0.WDS3

TYPE IF Sowu.

R
R3

S (X)#X+2

RO.R3
R2.R3

$(X) TOR
S(X)*X

12:48

TYPE

SEQ 0175

ROUT INE

CHP
BEQ
8IC
MOVB
ccC
ASL
INC
INC
ADD
CMP
BR

177400

5645

3z 8¢
564

33.R6
RO,RO

;IS (X)#X+2=K?

sBRANCH IF EQUAL
sWIPE OUT EXTRANEOUS BITS
sEXTEND SIGN

sMULTIPLY BY TWO
sADD TWO
sADD PC
s1S THE RESULT A PROPER REL. BRANCH?

: PROCESS 6 - GO
056466
056472
056476
056476
056
56506
56512
056516
056555
056530
056536
056544
056546
056550
056552
056556
056556
056
056562
056
056572

105037
006204
103617
006
010437
112737
004537
1050;7
042737
017737
013777
012600
012601
01260§
01260
012604
012605
012606
013746
013746

057511

0.60:

055328
§g9160

177776

57510
00002%
176742
057552

055464
05550
17673

CLRB
ASR

0.78IT: CLRB

0.P
Ré

sDISALLOW PROCEED
sCHECK LOW ORDER BIT

Ré4
R4,0.UPC

;REST

0.ERR2

0
#0.787,0.UST

ADRT,0.UIN

0.602:

MoV

. TRTC,30.ADR1

sSET UP NEW PC
sSET HIGH PRIORITY
JRESTORE TELETYPE
sCLEAR BOTH
T-BIT FLAGS

:SAVE INSTRUCTION
*REPLACE WITH TRAP
*RESTORE

THRU

:
i

055464
055462

SP
AND STATUS

AND PC

sCHANGED TO RTI FOR 11/20 AND /05

O.RTIT: RTT

: PROCESS P - PROCEED

036K 00dssr
11;7;7
0566
10 ;37
056636
56642
56650

052737
000735

057511
057511

55500
340
057160
000340
05751
000020

105737
001645
105037
00570
14
104

177776

177776
055464

b -]

856576
56600
056602
0
05661
05661

ONLY ALLOWED AFTER A BREAKPOINT

DP’OOO
3o30:
2
S

922

MACY11 30(1046) 04=JAN-82 13:06 PAGE 176‘

R
g

wummd OO NN NN =

S55883888988889

CZR6JFO wws RK6 DR=
CZR6JF .P i
04=J

sCHECK LEGALITY OF PROCEED
sNOT LEGAL
:CLEAR PROCEED FLAG
sWAS COUNT SPECIFIED?
*NO
SYES, PUT AWAY COUNT

*FORCE HIGH PRIORITY
*RESTORE TTY
*SET HIGM PRIORITY
*SET T-BIT FLAG
*SET T-BIT

BREAKPOINT HANDLER
A TRT BREAKPOINT CAUSES 0.BRK TO BE ENTERED, WHICH SAVES
VARIOUS ODDS AND ENDS F INDS OUT IF THE BREAKPOINT WAS LEGAL,

AND GIVES CONTROL TO THE COMMAND DECODER

H 14

CY11 30(1046) u-.wo-az 13: oe PAGE m

o&-.wo-lg2:48

TYPE ERROR ROUTINE

S
5
s

1
13
105737
102%
1
07
1137 ;
000
106305
106005
106005

MOV
MOV
0.8K1: JSR
s7
1ST8
BNE
855502 176574
MOV
55466
TST8
8PL
055464
MOVB
BR
055466
0.8k2: MOVB
cce
RORB
RORB
RORB

0.UIN.30.ADR1
o.ms
0.8K
0.UST.RS
0.8k3
0.PRI,.RS
RS
RS

:REMOVE BREAKPOINTS
cum If moam
: IS AS SAME AS USER PGM
:PICK UP usen UST IF SO
:AND DON'T COMPUTE THE PRIORITY
*OTHERWISE PICK UP ACTUAL PRIORITY
:CLEAR CARRY
*SHIFT LOW ORDER BITS
: INTO
:
HIGH onm

110537

177776

RS,ST

:PUT THE STATUS AWAY WHERE IT BELONGS

;

0.BRK:

013705
10537
020537
001417
004537
004537
msm
01 7g;
004537
o1osog
042737
ooosgg

055462
055462
055476
gsngg
0574
057514
057515

o1§73

805745

057354

000020

005337
oosso;

055500

10 537

57511

004537

0.8k3:

055464
0.82:

055500

005005

000137 055774

POSITION

0.UPC RS
-(RS)
RS,0.UPC
RS.0.ADR1
.82
.0.SVTT
5.0.CRLF
#0.8D R4
#0.8D+1,R3
5.0.TYPE
RS.RO
#0.TBT,0.UST
0.83

:GET PC, IT POINTS TO THE TRT
*SUBTRACT TwO
:FROM THE USER'S PC
.comme WITH LIST
:JUMP IF FOUND
*SAVE TELETYPE STATUS
;ERROR, NOTHING FOUND

MOV

#1,0.CT

*RESET coum T0 1

5.0.SVTT

*SAVE TELETYPE STATUS, R4 IS SAFE

DEC
BGT

JSR

0.83:

:PRIORITY IS 7 UPON ENTRY
SSAVE STATUS AND PC
:SAVE VARIOUS REGISTERS
+ CHECK m T-8IT SET
:JWI SET

MOV
ST
MOV
P
BEQ
JSR
JSR
MOV
MOV
JSR
MOV
BIC
BR

INCB

057126

&1)'2.709
1%
537 0573
013700
055476
004537 057226

RORB

MOVB

(SP)+,0.UPC
(SP)+,0.UST
0,0.SVR
0.7
0.7817

SEQ 0176

0.CT
0.C1

0.P

MOV
JSR
MOV
JSR

#°B.R0
5,0.FTYP
g.mmo
0. CADV

JNP

0.DCD

CLR

;OUTPUT *BE'* FOR BAD ENTRY
:CLEAR OUT ANY POSSIBLE FAKE T-BIT

: AND CONTINUE

;:JUMP IF REPEAT

*ALLOWPROCEED

:TYPE 'B"
*GET ADDRESS OF BREAK
:TYPE ADDRESS
:CLEAR CAD
:G0 TO DECODER

* SAVE REGISTERS RO-R6 IN INTERNAL STACK

9312
9313
9314
9315

057070 012637 857506
057074 010637 055460
057100 012706 055460
057106
010546

9321
9322

osns
057124

931
9317
9318
9319
9320

8571
057110
057112
057114
osms

10446
010346
010246
010146
13746 057506

574
0002

0.SVR:

MOV
MOV
MOV

(SP)+,0. XXX
SP,0.USP
og.usr SP

MOV
MOV
MOV
MOV
MOV

Ré.=(SP)
R3.-(SP)
R2,=(SP)
R1.=(SP)
0. XXX, =(SP)

MOV

ST
RTS

RS.=(SP)

-(SP)
R

FEA% 75883833 X O

CZR6JF P11

IBUS RK6

;PICK REGISTER FROM STACK AND SAVE
*SAVE USER STACK ADDRESS
*SET TO INTERNAL STACK
SAVE

REGISTERS
‘1
* THRU
:
5
:PUT SAVED REGISTER ON STACK

FETEEZIIIISE

zmro

"TM

vuOOOOOOQOQ
SLERFUS
00O
0

04=JAN-82

MACY11 30(1046)

12:48

M-JM-OZ

13: 06

PAGE 178

PE ERROR ROUTI

I 14

SEQ 0177

: SAVE TELETYPE STATUS
sr1§2 1 7; 177560 85751; 0.SVTT: MOVB
0.RCSR,0.CSR1

:SAVE R C/SR

57142

*CLEAR ENABLE AND MAINTENANCE

57136

113737

57146
5715
571

105037 177564
88405 7 057462
205

18 037

177564

177560

05751

MOVB

0.TCSR.0.CSR2

CLRB
JSR
RTS

.TCSR
0.CRLF
RS

CLRB

0.RCSR

:SAVE T C/SR

: BITS IN BOTH C/SR
STYPE <CR,LF>

: RESTORE TELETYPE STATUS

057160

004537

057462

032737

004000

0.RSTT: JSR

32;}% }&s); ; 177564

057172

05
057
057

0014 ;
105737
100375

057216

113737

05721

057224

1137;7

000205

057513

:WAIT READY ON PRINTER

BIT

nooo 0.RCSR

;CHECK BUSY FLAG CN READER

O.RSE1: MOVB

0.CSR1.0.RCSR

177560

377560

177564

:<CR,LF> BEFORE RESTORING

.1csn

BEQ
IST8
8PL

177560
057512

s 0.CRLF

g{g

MOVB
RTS

0.RSE{
0. acsn
.4

:SKIP READY LOOP IF NOT BUSY
*WAIT READY
:
ON READER

0,CSR2.0.TCSR

:RESTORE

THE STATUS REGISTERS

: TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE
: WORD IS IN RO
057226

010246

057240

01000

057230
057234

012704 057551
012746 000060

057242 042702

057246 061602

177770

0.CADV: MOV

R2,=(SP)

0.SPC:

0177 70.R2

MOV
MOV
MOV

BIC

;

:SAVE
R2

*BUFFER START ADDRESS
:CONSTANT ASCII 0

: GET

OCTAL CHARACTER

asP,R2

couvm TO ASCII

ASR
ASR

RO
RO

SHIFT THIS MESS
: RIGHT

057
020427 057544
057264 101365

P
BHI

RG,#0.BUF +1
0.;P;

*DONE?
i
NO

057

ADD

(sP)+

sAND PUT ITA

057250

110244

057256

006 og

057 93

042700

057252
057254

057 n 110044

ADD

oo"BUF
+6 R4
0,-(SP)

MOVB
ASR

177776

o%zo

857%08 goozof

057354

BIC

#177776 RO

MOV

oo suroo R3

MOVB

05727omg; 057551

R2,-(R&)

‘(s,:\n’

RTS

RO.
-(fiu
(

“ az

é’

STORE IN BUFFER

THREE WHOLE PLACES

*GET LAST BIT

;couvm TO ASCII

‘LWA

;gg; o:nsool.

STRING OF CHARACTERS

: GENERAL CHARACTER INPUT ROUTINE
; CHARACTER INPUT GOES TO RO

057312

105737

177560

057320

11 7g9

17756

057313
057324

100375

004537

05737

8?%34 ocg;oo 177600

057336 %2733 000040

0.GET:

TSTB

0.RCSR

MOVE

0.RDB,RO

BPL

JSR

Séfi

CMPB

9 Fiyp

si z?oo.no

#40,RO

SWAIT F

lw FROM KEYBOARD

*GET
A CHARACTER

*ECHO CHARACTER

frnxpeom tgam FROM CHARACTER

*CHECK FOR SPACES

DERRDDBTTZE 2222222 BZZEBBZT2AARRAAN BB 2EE O

lalisl

.r\’f

IBUS RK6 DR=3

57 Sg
5735

1763

TYPE ERROR ROU

BEQ

000073

(MP8

g;g

00020

SEQ 0178

0.GET

:1GNORE NULLS

gssér

:IGNORE THEM IF FOUND

#°;.RO

*CHECK FOR SEMI-COLON

GENERAL CHARACTER OUTPUT ROUTINE
ADDRESS OF FIRST BYTE IN

88238
ENR
SESyE

ADDRESS OF LAST BYTE IN R3 " (R3)>(R4)

0.TYPE: CMP
BLO

MOVB
JSR
BR

057370

R3,Ré
0.7YP1

(nm RO
0.TYPE

5,0.FfYP

;CHECK FOR COMPLETION
: EXIT WHEN DONE

cer A CHARACTER
TYPE ONE CHARACTER
.Loor UNTIL DONE

33
LRRREPPERER
3
38N

—_

-n-.-._.-ns N = S
°°8°-‘
WO
AN SIO
W~
- N NN
=

A NWVINON NNV

: TYPE ONLY ONE CHARACTER (CONTAINED IN RO)
177564

1775

000022
000044
177564
177566

0.FTYP: TSTB

BPL

MOVB

CMP8
BNE
MOVB
0.TYP2: TSTB
B8PL
CLRB
DECB

003371

9407

BGT
TS T

WNN=O

0 TYP1: RTS

0.TCSR

;CHECK STATUS

*WAIT UNTIL READY

ao.ms
0.7YP1
am -(SP)
0.TCSR
0.TYP2

:1S CHAR TO BE FILLED?
*NO
SYES, INIT THE COUNT

RO,0.TDB

:TYPE ONE CHARACTER

0.7D8
aSP

;GENERATE NULL FILLER

(SP)+

:POP STACK

0.TYP2
RS

* CLOSE WORD OR BYTE AND EXIT

: UPON ENTERING, R2 HAS NUMERIC FLAG, Ré HAS CONTENTS

VNN

0.TCLS: ASR

055760

;GET LOW ORDER BIT

ggrc

:JUMP IF ALREADY CLOSED

ST
BEQ

R2
0.CLS?

:1F NO NUMBER WAS TYPED THERE IS
*NO CHANGE TO THE OPEN CELL

0.CLS1: RTS
0.TC:
TST

PC
-(SP)

:POP EXTRA CELL FROM STACK

MOV

9421

JMP

Ré, RS

0.ERR

*STORE WORD

:AND SCREAM BLOODY MURDER

0.CRLF = TYPE <CR.LF>
::
: 0.CRLS = TYPE <CR.LF>+

057517
057520
57516
57354

057506
057510

0.CRLF: MOV
BR
0.CRLS: MOV
0.CRS: MOV
JSR

0.XXX:
0.T:

#0.CR+1,R3
0.CRS
#0.CR+2 R3
#0.CR,Ré
5.0.TYPE

RTS

.WORD

.BYTE

:LWA <CR,LF>
;LWA <CR,LF>*

SFWA

*TYPE SOMETHING

: TEMPORARY STORAGE
:

T-BIT FLAG

COLPRI[IREER &

G
9381

J 14

?3(:;1 30(1046) 0‘-JAN-02 13 06 PAGE 179

BERRZRZZRRZZRZZRRZARAARRRZARAZIAR S

CZR6JFO UNIBUS RK6 DR=
CZR6JF.P11
04=JAN-

CZR6JFO wxaus RK6 DR=

CZR6JF .P
04=JAN=
935 057511
000
9%
9%37
05751
000
3‘43 05751
000
9440
w1

057514

042502

9444
9445

05751
057520

013
05

w.i 05751

94;'4.'3 057521

015

9459

mi'fitn 057535
966§
9463

0575

057537

964 057540
9465 057561
9466

057542

91369

057543

%gg

000014

123

120

0.CLGT

0.TL:

115

102

000006

000003

9,2;9

0.L6
0.8BUF:

SEQ 0179
:PROCEED FLAG = g IF PROCEED NOT ALLOWED
:
= 1 IF PROCEED ALLOWED
:SAVE CELL = R C/SR
“SAVE CELL = T C/SR

.WORD

'BE

.BYTE
BYTE

012
‘'

;<P
;o

.BYTE
BYTE

015
'S

:
A

.BYTE

‘%

.BYTE 015

: <CR>

: /

:
P
:

'0
"W
'E
'B
P

:
0
oW
:
E
: B
:
P

;]

.~0.LGCH

.BYTE

: CHANGE

+HERE

.=0.TL

-EVEN

)

=
BYTE

6
O<LP>

BYTE
.BYTE
.BYTE

CARRIAGE RETURN

'6
012
°*

BYTE

000
000

gz;g

9478

0.CR:

K 146

PAGE 180

0
0

EVEN

.BYTE
BYTE
.BYTE
.BYTE
.BYTE

057551
040

057552

0.8D:

117
127
105
102
120

9470
9471 057551
ggg

0.CSR1: .BYTE
0.CSR2: .BYTE

BYTE
.BYTE
BYTE

136

0575
057531
05753
05753
0575

0575

TYPE ERROR ROUTINE
0.P:
.BY'E 0

107
01;
13

9453

954
9455
9459
9457
9458

13:06

0.LGCH: .BYTE

015
044

057524
057525
osrsg

04=JAN-82

057

9448 osrsg
9449 0575
9450
951
9:.5;

?stz;‘l 30(1046)

*NOT

:THE
:ORDER

4
S

sTABLE LENGTH

26 CHAR. BUFFER WITH

.+6
§

;TRAILING BLANK

0.TRTC: TRT

2TRACE TRAP PROTOTYPE

:THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL

055444

0.0DT=40

0
0

Pn
:
n§

9485
8%2658 000000
9«9 055462 88%
9%87

055464

ooooog

0.USP
3
0.UPC:

{USER
22
*USER PC

9489
9490

055470
055472

000000
000000

0.MSK:

9479

055444

9483

055454

000000

9481 035450 000000
mg 055452 388%

9488 oss:.% 00000

0.URO:

0.UST:

0.PRI:

0
0

;USER RO

*USER ST

:0DT PRIORITY
*MASK
SLOW LIMIT

EIWFO UNIBUS RK6 DR=3 MACY11 30(1046) N-JM-O? 13:06_ PAGE ‘|81L
3231

055474

949
%93
9495
99 055476
9:.9

04=JAN-82

TYPE ERROR ROUTINE

000000

osssog

05550,

12:48

SEQ 0180

sHIGH LIMIT

: ”fim
BREAK :ox
POINT
LISTS, ADR1ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT J
r%'?ss
:
0.ADR1:
0.CT:

0.UIN:

AROODRIR2=

IR6JF P11

3833 832

R¥RO—.e.Se—cn.EhEa—.ml.EvesEaM—.—nrTE.—Wde*odOlr3StO2&§nq—a&SP=glEGug&ST“aUkcecli&e—RtoTsT—tETTcRtTTeE8TnTTsE“eTa8fEsTTt8T€Es”gTF“EET:ecT”nTdL“mzTLat8IezeP“EaceT8EzseLaeme@Ee“REdeeR8Ts0i“TM0e*Rmn80oa%T0mi0a%aRn7sF}aeEOnaRss-eEEHZ5—oE2uEn—3OMmEfplCm2'l_o-|
s 8'

f18O-"5a)E3O—8GOEO=E8C—O“E"ON286=OaG—028O~FaO=TM83O+—a~OF*a=G02GeO5Ge0GeO3GeO3GeO5GeOGO3GeOGOGOGOeGOGOGOGTOGO2GOT9GOGO9TGO4GPOGO9PGO5GTO3eGOGTOeGOeGOGTOeGOG=-TOCGe-lOGeOeGOeGO9GeOD5~O TG3eOD9N+E5TDE8C8KOiSB-+Tt)—5
@O

23205%

*®

] - @O

sacs

» o o1 o —

L3858Trm ONNNIO“7“’9012
W".I.UM.I;‘oSOG?SUD Pg g eeg g etg) O

@® vy5
@ v Wy &
Z8
@v w
wy
+]>Q.
[+

CCSP
CCYL

CERR

oN
8
NM
N
N

=% G=o¥ (&) m

gS
3L gn
8 M&

Rm.r- wmnm

"2 =4

3 3138

030412
001370
= 002000
= 100000

OO0

wNy~ “2N60 NO=MN TMN TMANWNgMVNOWMOWNne—N0WON o~NM
L
~
5
4
~
y
w
N
y
T
M
n
I
W
N
A
M
o
n
W
M
0
N
S
O
=
I
—
O
0
N
—Ne=NO =vOM\

O=—

59924

x»

PAGE 184

L
]

2Lal"]al"a)“NO|O0NN. 3pR3

-0

[}o wvr

TMM

1774

13:06

Moo w

CROSS REFERENCE TABLE == USER SYMBOLS

04=JAN-82

~ N
o~ woNOooT S "
~ ~ NS

MACY11 30(1046)

L~alMgl ~ ~0 o- L4

S4 ~ MoNMNMOo

LAl

-—_O0
NN

06-JAN-83 12:48

ONMMWn WOWOn= MMNSOeN=G0D

@— —

b—=

M-W\~-— el At

N
N

ZR6JF .P11

3332
ol Ld

niInAnInNnInSnThInnINIS
S
e
S
E
B
N
CNW NDmANnWOANO MMONIN T~NOOO
T~ N

a3SSS

£7TVTV0RV6JVuR7S‘e—L0onNTSaR3e%LLAe eeeeeeeeSeeeoeetealrioelleleleoelyoeloledeoleoeltoldLloldolLok
=
O
\
e
e
=
—
3
N
N
T
M
O
=
M
N
O
N
O
LMo) —O[-n+] NMo0mN@2M~]N <][ geee
i4~L @4R~

XwOmmLWm~=N8HM”8b—BWNMEo~GLLLO=RrG0—LrnT3A~~BRTeU~ioReiEeR—eGegE¢(eOE-eL=SeOe—tOrEi—e2_TR3oTRnTLoAG]S3BONeUBeRLUsYeSnEEXsE.E
L)S»=) L8o3"nL8MOa&M Vo“2O8LO3Ue"8L Wa
LNIMSN—5O30NRO 2OO03
O O0TN
OOOTN OM\e~OMUMMMNN
C ZR6JFO UNIBUS RK6 DR=3
C

SEQ 0182

2278

4327

4380

4474

4565

4624

4735

4795

4880

4939

1157

1176

2033

3112

4468

4557

4618

4789

4872

4933

5842

6335

Te GO\NGDGD —-

N 16

~NN

6032

mg,
144
7423
7526

7617
1"

7815

790
CRLF = 000200
CT0
= 004000
CYLADD 001400

S136#

5993«
953

953

7669
75

7671
75

fip
1
78

7633
7721
7827

7333
76

74
754

;9
78

735;

7487
75

749N
7562

761

7624

7
7

7654
7748

7481
75

7641

7485
7555

7846

7851

743

744

74
7571

7362

737,

7500
75’;

75
7592

764

7860

786

7875

7881

751
7603

7694

745

7520
7610

7974

7889

8261

7893

834
6533

;zso

792

1131
}g}g:

83
24
4

5659«

5660+

5661+

5662+«

5663+

S664+

5682«

5683«

5684+

5685+

5686+

Sg‘i,

5643
5674

5645+
5675

5646+
5677«

59475738

5648+
5 4;

5949-

5650

5652«

5669+

5670

5671«

5672+

&79N

4879

4935
4800

4887

205

5225

831
9874

CYLDIF

001376

DATAD

001456

gig

8612

861

7941

6277

6326

4329

44610

441

“70

4564

4620

024504

19444
19454

219‘22

4379

4473

4559

4623

4734

4794

4874

4938

4630

4718

4739

DCK
= 100000
DCLO = 000020
DCPAR = 0
DDISP = 177570
DDPCH
005452

1172#
11804
1133
9934
20428

179N
2986+

590
181

3386

5450
054550

20414
083

52«
89

5136
5095

101

112

5118

124

230

338

87344

250

262

267

2287

318

343

358

3a§

613

438

553
18
5 58

538
923

54
9;;

54
63
793

578
2642,
877

583
673

588
698

59
703

598
718

60
723

608
728

61%
75

37 N
738

57
5638
843

2848

87944

221
g3

15
5548

55?3

35
5563

§£03

099
g796

1
5292

116
816

1
5355

DATAOT1
DATAT

001460
001462

DATCMD

T
DF1

DF10

054654

11844

1‘;’9

244

ong
DF1
DF17

DF3Y

054674
054720
054740

035010

778
708
678

99
313
:1

lg zg'

134

4282

139

78
n
688

7gg
7
04

Mo 2199
323 §328
Sg i

518

orzg
DF
DF
DF&
DFS

055044
055100
054564
054610
054634

Sgkg
SS#
553
55
74

88404

5563
568
7644

876;:
875

DH11
DH1
DH1

051304
851360
51410

256
81

361
144

2366

35?

82?839

531
8755
411

56;'
7’5 2093
8786

46333

164

463

523

2371

£384

149

2528

2376

6617

154

3673

2653

84064

4479

159

478

2658

4572

164

483

169

174

184

260
5568

245
5573

2277
5578

§§3§

§398

22
%843

22N
8857

2336

2761

83728 8744

663

668

748

49g

798

503

4463

lolg

€13

lalal

|
4

= 001602
001000
COUlt

SEQ 0183

ad e
dd

CLQFLG

SYMBOLS

CZIR6JFO
UNIBUS RK6 DR=3 MACY11 30(1046) 04-JAN-82 13:06 PAGE 1.2
CZR6JF .P1N
04-J
12:48
CROSS REFERENCE TABLF = LZSR

8788

8798

8810

e
it

31
285

361

3848

87N

8779

8790

8800

gs812

2218

2326

233

8501»

e o

BG5S

8777

8820

8835

8850

8865

85254

243
516

2746
2521

247

85854

2661

2666

2701

85494

8396#
2526

2551

2766

8574m

84004

86164

8623#

86374
8844

8859
8863
8861

2280

2346

2351

2913+

6379+

6401+

5058

53974

5400

CECit-tt=i==~

— N~

8769

PPPPPCELCETICLELLE<<SCCEE

—=WnO

wvivauv

-2

wv
VVON
= Oe b Y
WOWM=WNNWNO
=N

gdS2°°°°°°°°°°°°°°°°OOO°°O°
RUR
N28 BRI \hrfl 25

ii
W
~N

0523M1
052422
(524
05 502
05114
OSSSSS
05 56§
26?

O =
N

SI0iF
L
T &8 omi

DH35
DH37
DH38
DH39
DH4
DH41
DH42
DH&4

8759

S
R
D

85 33%

84414

s
DH34

-2

052215

2265

SRR \_l:vn-v-wwg -0

DH30

2259

481

muui
go

g
851076

SEQ 0184

84314

0D 000N

52
DH

SEREICLSD &

052021
05
052074

c15
046=JAN-82 13:06 PAGE 186
CROSS REFERENCE TABLE == USER SYMBOLS

VO = &~

51707

b O\ =2

8251

d i ON b N

i
0“18
S1§g?
85,
g
51

— e

51474
51221

SN ITRIINATSERLIREALN

DH15
DH1

MACY11 30(1046)

NN NCNINININD

CZR6JFO ?Nllus RK6 DR
.P 1
04=JANCIR6JF

024446

DOTIM

005506

8519

3767
814

3174s
3108

3131
3135

DRIVZ
00
RIVS
0054
DRIVA
00347
DRIVS
003475
DRIVE
005476
DRIVZ
003
DROT = 00004

son
05
034
0354
5
50574
1181»

DRVPTR 001365

1900¢ 3009+ 3378

3396

DPATZ

DRA - =

DRIVS
DRIVD
DRIVI

30200

001466

19479

fi
00
005464

30¢38
3107+
$o¢
3000
314

0 0 01

DSC
DSWR
DTE
DIVE
DT1.

512
8 53’

= 040000
= 177570
=01
=
054126

DT13

054304

DTI4

054

DTIS
054454
DTS
0341
DT6
034234
DTS
034340
D.ACLO= 000700
“BRHM= 000100

D.CART= 000400

D.DDT = 000400
D.DOOR= 000200

11768

3216
L ]

11874
992
1790
116954
1162#
3208
208
2088
3t
BT
52
22
2
47
s7
g7e
23
23
sy
278
g2
k7

5845

§7190
g5
7%
529
gl
1o

4073

4192

3153+ 3183« 3202
s 317

3306+ 3373

4996

5029

5191«

3309
209
B
B

2111
2183
e

2128
2
e

213w
s
gy

213
261
gy

218
22
o

228
3
Bz

24
B
B

219
ps
w2

s
7

2562

2567

867N

96
36t

4m1
380

4man
J6l3

48w
A0S0

4902

4960

3643

A0S

12100

3641

D.DSC = 040000
D.FLT = 000200

19370

3641
4047

3589

307
305
4053

77
ez

3968

4852

2128
%

a2
e
%51

239
fger
des2

zu
e
et

zne
gm

M1
g%

22
pw
5802

g7
2o
380

4129

4306

4397

4432

ASET

4eds

4749

4129

4306

438

4397

M432

4SBT

Aeds

479

4ed3

4747

4052

4127

4304

4346

4395

4430

4SBS

4643

4747

4900

4gs2
4396

4398
4823

482

3641

3643

402

4054

4127

er
Srr2

4129
4304

9
dor

4306

4346

4348
4395

51z
612
gz
Svev

4397
430

g3
817
gz
5192

g%
262
gre
Seks

2183
27
457

gros
Srrv

3609

29
gsar

23
249
g3

0
gs0r
or
Sree

%72

A8y
ey

217
20¢
g

z198
e
B

D.DRDY= 000200

gure
g7

2100
173
@y

2193
222
B0

83078

3796

2904

grr
62

lggéo fi%%

15&
18170

4035

341g
3558

D.DROT= 020000

3319

3996

gl
12260

D.DRA = 000040

3029

3782

b7
g%
e
Srer

1§350 486
3566

569

36
g(fi?

4432
4SES

4587

342
%

gra

Sekr

4645

lals

SEQ 0185

SrnrererreeRereRte

DOCMD

D15
MACY11 30(1046) 04=JAN-82 13:06 PAGE 187
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

POAPRAAANANARARARARNRNARNRRRANNNANANRRNRNNNNY

CZR6JFO UNIBUS RK6 DR=3
CIROIF.PI1
0b=JAN-82

D.MDFL=
D . HDHM=
D.IDAE=
D.LIMD=
D.LOAD=
D.MHD =

001000

020000
01

3'3’\" . 00
D.OFF = 009000
o

D.PAR = gowoo
D.PIP
= 020000
D.PLO = ggzooo
D.REV =
004000
D.RTZ = 020000
D.SECT= 000020
D.SKI = gozooo
D.SPIN= 010000

11;:
1;:

12514
1;;:
1

12578
1§90
12524

35664

}su 4062
151
3701
4822

D.SPLS= 010000

D.SSP = 000020

12"

D.SUNS= 040000
D.TIB = 002000
D.UNLD= 040000
D.UNS = 040000
D.W = 000100

12264

3589

5764

5782

1239
12164
1255#
1;3:
1
12484
12408
1215#
4747
12428

D.SPOK= 001000

4053

4824
61
3583
482
482

3623
4900

3641
4958

3991
6110

4052

4127

4304

4346

4395

4430

4585

4643

4054

4159

4306

4348

4397

443

4587

4645

4749

4902

4960

3481
4127

3489
4304

3562
4346

3587
4395

3637
4430

3659
4585

3777
4643

3814
4747

3960
4822

3971
4855

4020
4900

4025
4958

4391
4231

4396
4238

4502
4374

4395

4456

4691

4699

2888+

2889+

2490

2510

2535

2585

2615

2695

2730

3
gs?g

505
§ss
20

265
374
660

2795
gaoo
805

80534
80564
80594

4056

4129

4306

4348

D.WCUR= 000040
D.WGAT= 000100
D.WLE = 004000
D.WRL = 0046000
D.XERR= 001000
ECCW = 020000
ECH
= 000100
EMTVEC= 000030

12584
12544
12318
12444
1209#
076
12494
12504
12614
12168
12534
120;:
116
10814

EMI0
EM11
EMI2

11
151
;‘3

80144
80234
132’

2146

2156

2480

2485

EM1

044402
045156
045531
045305

szog

-7

045343

161

2590

80364

&fi%’
o:.sn;
8‘4236

fom

2540

045412

2465

EMIS

045365

2?3
179
530

3%2’ 300
196 ggt2
3(53;'

2310
2;79
2330

325
365
2345

%95
70

5
045710

5
202

Efi}
EM18
Em

eéo
EM21
3 g
E
EM2.

045554
5575
5617

1
13?
529

4397

443

4587

4645

4749

4824

4902

482

EMI3

EMIL

SEQ 0186

0.FORM=
D.FWD =

15
MACY11 30(1046) 04=JAN-82 13:06 PAGE 188
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

80444

20
217
141 5171
0694
410
0794

8075«

242
Sm

350
710

75
535

405
790

525
5345

665 2810
5065:

80624

PRRPLLLLLRLLRLRLLLLLLLLLLLVNRNAVNANPRRENRVRRrRRYY

CZR6JFO UNIBUS RK6 DR=3
CZR6JF.P11
04=J

1
EM3

o
&g
EM4
1
EM4
EMS

EMS
EM4

046;;‘"
046

EM4s

EM48
EM4Y
EM5

040;

EM50

047067

EM5
EM56
E:;S

047231
047261
&7 31

EM51
EM5

047131
067224

EM5

04;2%

EM58
EM59

047456
047506

EM6
EM61
EM63
EM64

0“719
0475;
047555
047572

;gg
4
44
44
181
455
5
3 g

2545

i
768
61

8154

24.
642

l.sg
47
086
495

550
5635
715

81684
1
785
755
355
82074

79824
819

8 1;’
174
82244

gg’ 2765

2394
434

2565

819

82354

854
4
s 5
25

04772
047744
050007
737
050105
050176
050532
050
050444
050471
§zg‘5’42

50650

EM93

50744

BO97#

EM67
EM6B
EM69
EM7
EM70
EM71
EM7
EM
EM76
EM75
EM76

(o, St

PARPAARPRRLLRRPrRey

SEQ 0187

PAGE 189

NANRAN

13:06

NAVNW

12
1

04~JAN-82

ARNRARRAN

E
E
E
E
E
EMm31
E

CROSS REFERENCE TABLE == USER SYMBOLS

8264
685
784
884
781

82724
2786

5746

MACY11 30(1046)

ala)

N-JM; 12:48

UNIBUS RK6 DR=3

8289

164
8 gu
gg‘Zl
or

CIR6JFO

CZR6JF .P11

3524

oA 0 S
6348 6341+ 6343+ 6346¢

B B s e

CllfiJFO

CZR6JF.

IOUS
06-J

0014;8

ESEC

MACY11 30(1046) 04~JAN-82 13:06 PAGE 190
12:
CROSS REFERENCE TABLE == USER SYMBOLS
19214

g1 T
4
§£129+
5435«
4589+

SEQ 0188

E.A0

0054

E.A1

005434

E.A2

005440

E.A3
.B0

005444
005432

4748+

E.B1

005436

4750+

E.B2

005442

8707

E.B3
E.DDY

5446
1%662

8719

FATT1

024376

= AANRRY

4747+

4645+

4749+

5437

5439+

5834
3284

5254

5265

3620
4370

3631
4454

4489

3716

3869
4839

3878
5041

7316

7317

7319

7325

7326

AN
=

8 73

VN
BN = =
OONNINY

GSTAT1 02614
GSTAT2 02637
GTSWR = 104406
HASOF
005356
HBA
005;26
HCS1
005340

* ene

N-‘Ni
-

5812

GO
= 000001
GSTAT
026106

o &~ Safa
= 4T
&78s

024350
024210
30452

eEgassebEnSRRIE

GINT

4643+

S7794

WWVINN

001452
031022
0014
001
024542
024610
027116
001360

—t VIV
=2 b O = =

FMT1
FORM
FORMAT
FRCYL
FRDY
FRDY1_
FSEC17
FTITLE

GNS

dasee
9‘

e SBNSS

025152
027
027276
0274
0276
27352

GBA
GDRVS
GETSP

025056

FATT2
FCYL
FHDHM
FHDTAB
FLGTST
FLOAD

FMTE

2s§'

6130+

CZR6JFO
UNIBUS RK6 Dfl-g MACY11 30(1046) 04=JAN-82 13:06 PAGE 191
CZR6JF P11
04~J
12:48
CROSS REFERENCE TABLE == USER SYMBOLS
321
4Y5

14
10+

HDS
HDTAB

88?
005

gggg

31
7

317
1

3%6

8681

8690

700

00535
88}‘93

}9910 451
&SN
199?0 g 17+ §960

19924
}3200

16
650

;19
&

68?‘
76

4835
86’4

13+ sgl
8693 8703

HD1

HEAD

001

00144

};99

g 45%

5799+

4252+

5800+

Qgg3

5801+«

6254

5802+

4267+

5803+

4268

5804+

HEADA
HER

001444
005354

19374
19934

5702«
0

5703«
309

5704
4288

5705+
4496

4744

5315«

5295+

971
5300+

g
kg
3779' §81£ 3951

4691
HMR3

005370

HOLD
HPAT
HPEND
HPOS

024676
005374
005326
005372

HVRC
HWC
HZ
H.A0
H.A1
H.
H.
H.
H.B1
H.gg
H.
IDAE
IE
ILF

INTER

00
005344
001404
005410
5414
54
005424
005412
005416
005422
005426
= 00
= 000100
= 00000

031152

I0TVEC=
=
1
C
012654

LCLKF
00550
LCVEC
00135
LF
=
12

6110
1999+
5577
3281

20014
19704
20004
84N

11654
9894
19134
20114
20134
20154
20174
20124
%0160
0164
20184

11674
11;60
1157#
3264
10
11440

3409+
%0590
8894
9854
7391
7463
7524
7617
71
7815

LIMERR
LKS

001
001346

j
18874

4699

2136
3701
5585
5585

4855

2673
95
559
53

3314
5797

W6
960
8681

8673

U OBE
991
4020
5319+
5568

8700

8712

8725

W
40;5
5576

e
4076
5584

4817
8690

8715

8728

8715

8728

7362
7424
7487
7556
7925

7352
7431
749
7562

7934

7941

8696
B869%
8710
5702

8710
8710
8722
8722

8722
8722

2887+

15«
007+
009
955
397
7469
75
762

36214

4117

9533
403
747
75
7633

7333
7609
7476
7549
763

7915

7920

5984+

8690

8703

5592«
3585+
568
569

3006

8681

8693

8722
8722

7721
7827

8673

8684

8710
8710
8722

716
7820

4727

8728

8696
8696
8710

62214

4726

8715

5591«
3584+
5669

4 gs
7

6005+

733
741
7481
7546
7643

773
783

792

76419
74g5
7555
7654
748
7846
7926

8728

G715«

8703

8715

4714

8693

703

4713+

871%
450
8681

8684

4635

5811

8700
4391
8673

8676

4577

4706

5311+
5995
5460
5480
5576+
5568+
5470
5490
5577«
5569+

653

369

4‘3;
7

8725

4047
5659

867
6127+
867g

372

43
71

4042
5231
3562
868¢

5322«
§999'
5321«

6475

76
715

353
7

8725

e
2351
5591

xw
42
564

oww
2374
5764

4456
5782

4844
8700

5293'
8N

5301«
8725

5320+

5569

361
7440
7495
75N
7670
7768
7867
948

368
7445
300
7581
7677
7779
7875
7966

7376
7650
7505
7592

7381
7454
751

7459

:gs
HDC

g;lg

BCEZZOOTMMM

19830
489

7
7851

7761
7860

7786
7881

7974

94
7795
889
8261

7610
01
7893

VYDV IVOOOOINY

005342

HCS2

SEQ 0189

2934

2928+

2929+

s
W
W
sl s
S
A
LMD
LB
Bl
Bl
B

75554

6083

76274

3821
779

3877

3892

3817

3619
44BB

3604
4453

3579
4369

75714

Bl
Bl
£l
Bl
Bl
B, £l

76864

57
4;
4
55
036755
041626

373
469

75404

538

RRRRRRRRGE

fRP

223

71
1027
36710
072

3715
4507

74854

820130
0212
820 20
0260
040345
0460433
040530
040625

036626

sens

037 ;%

sew

SEQ 0190

o-ooooooooo.coooocouooooooo.o.oogggggnn“s

MSG30
MSG31
HSG3§
HSGg‘
MSG
MSG35
636
MSG37

G44
MSG4S
MSG47
MSG49
MSG5
MSG50

79264

037301
037367
037412
037424
037450
037500
037532
036575
037563
037624
037705
037731
037772
820022

NS
MSG39
MSG4
MSG40

4530

3315

MSG1
MSG14
MSG15
MSG1
MSG1
MSG18
MSG19
lsgs
MSG21
MSG22
MSG24¢
HSG??
MS
=§ 8

MSG

5537

3212

MEMBAS= 1721
MEMERR
03111
MEMPAR
01031
MEMVEC=
116
MERD =
1009
ME SMSK=
1
MEWD = 888
MIND =
;
1
OgS
0 72g
MSG10

MSG1

5060

518

ER PRIoF“8°§ SSINTLS

17+
18+

SRS
N£ NN = b d b B3>
s
3oua-o
N)
= —2\NW rfl
VIO

Ue BB

1 628

WA
S 8

MASK

04-JAN-82 13:06 PAGE 192
CROSS REFERENCE TABLE == USER SYMBOLS

>
g

MASK1

%Cul 30(1046)

4837

76944

CZR6JFO UNIBUS RK6 DRCZR6JF.P11
04=J

3917
4506

M
4694

3627

78604

4810

4838

78814

4599

Bla o

5035

4657

4914

4972

79024

3321

3324

3726

3770

3799

3851

9234

9235+«

9273+

9288

9305

94964

77164

7889
4446

44N

~TM
N

A Sl Sl Bl B

384
663
77384
77484

SEQ 019

=2 \N =2 WNNOCONONON
NN

VIS
S WSS WSS
3]
WO NNOOOON
w
BSOS
VIS
ung =SVBINENILEIRguwo
N W—
Oo1VN [N=]w\no

* \gg Ni B

5547g
05622
057514

YLV

0.ADR1
0.BACK
0.

-TRNu\n:&u\n o_.

001440

-‘—.ddddu-fiu-‘d-.-.
NO =2 N\) =2 O =2 NININ)

OFFERR

g §32g

=
NEM
NUDRV
012402
NXF

04-JAN-82 13:06 PAGE 193
CROSS REFERENCE TABLE == USER SYMBOLS

HEAD

?Agv 1 30(1046)

oL
-~ aa

88RI5ES

W
ONNO

wvi

~
-\~

223

SRRRRRRRRR
RRRERRRRRRRR
bettt
=00 NOW
=00
S
£8=
SEFRFESIRSS

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P11
04~JAN-

5693

3230
4998

9059+
96414

3863

387

3883

3889

13:06

PAGE 194

CROSS REFERENCE TABLE == USER SYMBOLS

96694

9159
90854

9163

9335

94264

9974

9128

9183

9308

9090

9116

9178

9421

9199
9377

9304
9379

9375
9381

9391

oS~

9306

SEQ 0192

93494

)

—

9201

T
°°°°°a°°°°°°°°°°
&=
2338
- \J_.~
~ooN ESIBRAATIR
NESER AR

9197

9364

ooVION

$oE2ISR

0557

04=JAN-82

—

94434

9330

'S
&»

=d=
=

nn
(=]

W
N

R
3

\hg\h\ll

(=]

94894

OO0000

et
TM L]

33378342

" "oo

28 e00gao RS
‘Nddm4g
o
-—

P
®

Samaxe
SRIS2
——
ore

OOOOOOOOOOOO?OOOOOOOOOOOO

MOV by
mmoennflngnflnnnnnn
o
i

2PNy

0000000000000 00000000000

0.BKPT

HACV}1 30(1046)
0000V
OOV OO

CZR6JFO UNIBUS RK6 DR CZR6JF .P11
06-J

9145

9250
9278

9252«
94884

9301+

94354

90594
9328+

9338

9340

9342+

9372

93964

CZR6JFO UNIBUS RK6 DR=
CZR6JF .P1
04=JAN-

MACY11 30(1046) 04=JAN-82 13:06 PAG 195
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

0.RST
0S5
L.RSTT
0571
0.RST1
555 g
05657
0.RTIT
0.SCAN 05
0.SP
85 g 4
0.SPC
57240
0.SP1
05
0.STH = 000
0.STRT 055534
0.SVR
057070
0.SVIT 057126
0.
057510
0.TBIT 056516
0.78T = 0000;2
0.7C
0574
0.TCLS 057436
.JCSR= 177564
0.TDB = 177566
0.TL
057535
0.TRTC 057552
0.TVEC= 000014
0.TYPE 057354
0.TYP1
057434
0.TYP2 057414
0.UIN
05550
0.UPC
05546
0.UR0O
055
0.USP
055460
0.UST
055464
0.WDS
056312
O.UDS§ 056330
0.WDS3
056360
0.WDS4& 056416
0.WRD
056124
0.WRDA 056150
0.WRD1 056132
0.WSCH 056310
0.XxXX
057506
45
055610

PIRQVE= 000;20
PKRB
001344
PKS
001340

9256

9258

94344
9296
9143
9336

94134
9343+

94614

9467

9013+
9392

9430

94984
9268+
94854
9260+

9396

9402

9285

9287+

94864

9269+

9276

9296

3781
2966

3967

4072

4851

5982

6003

5987+

6007+

9221

33 Teeeove

5
PIRQ =1 fale
1;7 72

93354
9084

PACK =
3
PARAM
001356
PARSRT 010005
PAT
= 00002
PCA
= 004000
PCDO
= 010000
PCLKF
005524
PCVEC
0013 5
PCYL
00137
PFSRT
01%664

1
7

SEQ 0193

3010

3017

94874

15
MACY11 30(1046) 04-JAN-82 13:06 PAGE 196
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

PKSB
PPTP
PRGSRT

18854
52‘“
53

1342
5456
010016

PRO
=
PRT
=
0
PR§
= 000108
2]
= 00014
PR¢
= 000
PRS
= 000240
PR?
= 000
FR
= 000;;0
PS
= 177776
PSEC
1416
PSW
= 177776
PWRVEC= 000024
RCYLA
026774
RCYLD
026722
RDCHR = 104410
RDCYLA 026652
RDCYLD 026566
A=
RDGATE= 100000
RDHEAD= 000025
ROLIN = 104411
RDOCT = 104412
RDSEC
026516
RDTAB
004322
RDY
= 000200
RECAL = 000013
RESREG= 104414
RESVEC= 000010
RHEAD
027070
RHTAB
001712
RKASOF= 000016
RKBA = 000004

1008#
10094
10104
1011#
101;‘
101
10144
10154
9884
19204
9394
108?0
550
550
gog
6574
S6414
1119
12044
11214
5169
5214
5629¢
19644
11274
11164
7074
1075#
5510
19594
10984
1093#
2333:

RKCS1 = 000000

1091#

RKCS2 = 000010

RKDA

= 000006

RKDB
RKDC

= 000024
= 000020

RKDS = 000012
RKECPS= 000030
RKECPT= 000032

35531 - 888852
=

RKMR2 = 000034

5929t
*
856
858

1883
302§
292
989

5201
3049

2929

3073

6251

6252

892«
6824
S6694
6079

2893+

6241*

6250

6251+

6940

73224

5737

5741

5744

7014
5227
5713

73234
73240
5717

5720

5277
6130
7126

5291
73264

57024
589
3063

5895
5316

4119

SEQ 0194

‘

5886

8937
'

5900
5352

5903
5379

8688

3059
232?

G113«
g %0*

4153«
4623

4171«
4626

4250
G711

4277«
4734%

4326%
4791x

4379%
4794

4410%
4B74r

4470%
4879+

4473+
4883

4559+
4935+

305

316 *

3709+

3718

3724

3764

3779+

3793«

3654
3966
4939+

3726
4071+

3765«
4278+

3770
4327+

3780+
4380+

4382%
4797«

4414%
4882+

4476
4923*

4535
4927+

4540+
4931+

4798+

48B4r

4942+

5317

3887«
5309
1095#
379«
G611%
5564
10944
23;3.

3935«
5563«
§057
799
4474
5572«
306
gg?

S
5571«
140+
851
4565%
5580+
4115
4567

3280
4070
5579+«
Slggt
38
4624
ssag4155+
4608x

3483
4299+
5587+
3164+
3871
4735+
5613«
4173«
4612+

3634+
4372+«
5602'
§27 *
983
4795+
5617+
4253c
4616

3653«
4849+
g1;9277«
3889
4850+
61;91
4275+
4617

5052«
6143+
3484r
3937
4880
6144
4330+
4714

1100#
10994

3065
3064

434g
4g3 *

4424
L117%

4579
4477+

4637
4569+

4894
4627«

695;
4737+

10964
11044
11054

3061
069
070

5314
5351
53 g

3?’3‘ 3025 5214- 556+
3635«
99
SS?S* 5281* 5618« §659t ggklt 5657+ g?ez*

1102#

3067

5295

5300

5056+

5252+«

5053+«

5318 5358 5363
5780 6134+
®

5263«

5277

5060

5383«

5310

5387

5291

5551+

5565

T OTMMOMDERT R =~TOMMOMNDERM
R ~ITOMTMOMDERM R ~ITOMTMOMNMDERTr
RN meITOMYMOND

CZR6JFO gulaus RK6 DR=3
CZR6JF .PIN
04=JAN-82

RKWC

04=JAN-82 13:06 PAGE 197
CROSS REFERENCE TABLE == USER SYMBOLS

}10

5296

5301

5320

18824
10924
4796+

5231%
118+
4940+

5234+
4251
531

5241
4279+

73254
5438
3169
73274

79
‘6;
27

06%‘

4275
5693%
3915«
419N
3278
3241»
3150

8915
19034
11154

8935
6081
6114

89454

'993‘
9
3689
1283
29474
9904
60934
375
295
956
9ég
?;9

8994+
884
11

9007+«
3047
3986

9230+
3098
4104

9924
13

3206

5130

6165

440
913
4407

3508
3988
4465

3538
4027
4550

3574
403
467

3599

1
6187

6212

6392

634

1161#

4328+

4381+«

S44
561

5450

5454

4293+
5694+
5916

4294
5695+
5917+

4330

438
5697+

3766

3795

5054

5187+

5207+

SEQ 0195

4475+

3509

SVAL
SWR

= 100000
001140

SWREG
000176
= 000001
SWw0
Sw00 = 000001
Sw01 = 000002
S
= 000004

6095

6823
12814
10434
10334
10324
10314
1030#

6864

8820
5156

8938
6784

6823

2919+
6351

6846

436
56134

g2
£3

START
010012
START1 0106;0
STKLMT= 1777

3369
5023

4
WR

STACK = 001100

19604

776

5552

KR
=R

SRTTAB _ 002116 |

115
58844

5918+«

5635+
5892+

SEEK = 000017
SELDRV= 000001
SETINT 024430
SIZFLG 005510
= 000002
SORT
027726
SPACE2 055420
SPBAR
= 000040
SRTSPL= 000011

v S

001422

358

SECTOR

19174
5813
19194
19224
5636+
5893«
11184
11114

~NGCoO~

059
54
114
315
60444

N =N
-2\

’970‘

T OMMONMDERT
RN =ITOMTYTMONDESR

lscul 30(1046)

S WO

CZR6JFO UNIBUS RK
CZR6JF.P11

CZR6JFO xmws RK6 DR=3
CIR6JF .P 1
04-J

MACY11 30(1046) 04~JAN-82 13:06 PAGE 198
:
CROSS REFERENCE TABLE == USER SYMBOLS
12:48

SWO4
SW05
s«o;
SW7
SW8
SW)9
Sw1
W10

=
=
=
=
=
=
=
=

10
1039
10 9’
1
18 (|
1 g‘
10
10
10
102644
10
10424
10

SH1§
SWi3
SWw14é
SW1S
SUi
S

=
=0
= 040000
= 100000
= 000004
= 888810

10214
10204
1019
18180
10414
10404

SWS
Swé
SWZ?
Sw8

= 000040
= 000,00
= 000200
= 000400

SWil

SWwy

SWw9
= 001000
TBITVE= ooogu.

1022#

8938
6379
692

4880

10;“
10 g

5466

5476

5486

5496

6044

6187

6212

glbéfi

924 *
5381
5447
5724
3923+
5816
4109+
6112«
4114+

3161«

29%8'
397
5449+
5736+
3930«
5817«
loll.g
411
4115

3168«

3934
5399+
5451
5748+
3931
5819«
4166
415
6154

3170

3175«
4038
5429+
5455
S766%
4108+
6118«

3176
4195+
5431
5457«
5779
41463+
6139+

3177

5981«

599;'

5998+

103954
10384
10374
103?:
103

TEMP1

005376

TEMP2

005400

TEMP3

005402

§90
5354
5445+
§712«
20044
5769«
005#

TEMPS

005406

20074

TIMUP

001412

TOCYL

001366

TEMP4

TERRT

5404

030130

TITLE
024130
TKVEC = 000060
TPVEC = 000064
TRAPPC 001354
TRAPVE= 000034

TRT

goo

5937

1918#

51474
6757+

4798

4884

4942

19054

10844
18954
10824

TSTATN
TST1
1ST1I0
ST
Ismn

025024
0110%
0131
0160;0
0146 35

3514
;2'
5
' ]
344

TST14
TIST1S

015“8
01607

9844
41024

021450

46734

ST
ST

TST

0151

016600

8111

23374

59584

2987
6752'

89694

TST1

5941

2949
10834

= 000003

TRTVEC= 000014
TRUERR 030056

SEQ 0196

4243*

08«
8‘90'

4463

4477

8687
2891

6252+

3720

1077#
6290

gz;”

1
30454

371

884

3890

39094

4159

42154

3074

30964

4991#

5963

8688

3939«
5427
5453«
5761«
3999«
582
416
4170
4155

417N

4172«

4173

4496

4497

4569

53304

6148

5970

5057«
5433«
5550
5784+
4144

3274

5253+
5435
5555«
5815«
4169«

3281+

3283«

5279+
5439
5594
5819
5738

2288'

293«
5441
5601+
gOZ *
764

3289+

4627

4704

4729+

4737

4763

4764

5264c
5437«
5561
5818«
5356+

5350+
5443
5614+
34
745

CIR6JFO “uaus RK6 DR=
CZR6JF .P
04-J

?SCZP 30€1046)

1S121

4997

0234

1ST

1201

1874
1261
1S75
12664
1ST
013012
1ST
0131
TYPDS = 10440

TYPE

= 1046401

1
1

5
4

3674
19
744
SO;I
3174

6958
96

TYPOC = 104402

6847

73164

TYPOS = 104403

3119

TYPERR

055134

TYPON = 104404

T.A2
1.
1.83

110
T100

= 000001
= 000002
= 000004

001424
001426

15000

0014

UNLD

005322

750000 001432
UFE
= 000400

UNLOAD= 000007
UNS
= 040000
UPE
= 020000

VERIFY

6411

73164

50330
0344
20354

19244
19254
19264

19274
11464

19664

11144
11714
1151#

794

3189

4058
4058
5507

3146
3999

4461

§168
3214

12;:

3434m

7
544
18
36
9%
10226
4
477
5046
610
677

396

73
568
1
37
7
944
‘gSS
4507
4779
5047
6104
6790
6962
891

8
549
43
Sg
9
b;S‘
4515
4809
5068
6112
6844

6970
8919

i
7

431
03]
4B10
5074
6158

6973
8924

89
867
401
&
45
4837
507
61
684

69
8926

3235

3401

3740

3786

3804

4756
4756

4909
4909

3161

3170

3274

3283

5253

5601

5614

281
317

3934

4038

6195

4783

5057

5264

3632«

3663+

3955+

4003+

4005+

4821+

6118
3712

506

3668

5736

4338

4622

4577

4635

4892

4950

19304
19314

4340%
4329+

4424
4413+

4579+
4568+

4637+
4626

4894r
48B3+

4952«
4941+

19494
11204
1 il
11854
11234

4281
6257

4383
4717

4478

4738

4799

4332

4616

457

4629

4BB6

00147
WRDATA= 00002
WRHEAD= 000027
wR
= 004000
WRTCHK= 000031

WRTGAT= 040000

SAPTHD

001000

SATY1

03271

11684

1%030

1310

13164

SASTAT= weeean |
SATYC
0327

6634
6605

6649
66074

SATY3

6465

6604#

032720

66034

6184

4652
4652

1152
19414

WLE

5409

459
459

WCE
= 040000
WDCNT
001454

001434
001436

5071

4439
44639

32464

wD1
wD2

043
8932

4016
4444
57
5
51

4355
4355

3138

n Bgl

4011
4
4530
48
50
6181
59

1;;
5
94
807
7?
1
6369
599
4914
5106
26
9
045
8935

431%
3

3133

= 000100

116
554
30
01

103
57
1

7185

375
714
17
N
&
o
0%
1
6604
99

134

1
'3
44
4681
5034
5
641

694

397
3
31
1
916
4184
4460
4694
5035
5406
6480
6953
8892

8912

012010

SEQ 0197

5021#

9
S‘;
1
35
2
921
4225
4488
4774
504
60
671
696;
889

732
1
917
4185
7
95
5039
9
6591

€1

04~JAN-82 13:06 PAGE 199
CROSS REFERENCE TABLE == USER SYMBOLS

4944

B679
8679

4967
4967

7315#

5503

6139

4848+

5075+

5080+

5782+

6790

6987

6499

6525+

65304

2880

2888

2894

6987

18034

18044

3743
8896

3789
8906

3379

4995+

5117#
6432

6412

6437

6481

6533

\naaasSsnmones

4996

6612
66
6203

6636

6361+

6383

6399

6437

8940

2
[«NN
N- XV= ¥ )XNV
b b
O
WVNO=-=OWn

20774

3003+

) b

001312
001314
Og1 16
035330
001220
001266
02403
03267
0549;
023
(024041
024036
001230
001231
053736
O 376%
00110
001115
031732
001116
005512

FIFPINRRAR $==t2
RO

$ODW7
$ODW8
$ODW9
SDECVL
SDEVCT
SDEVM
SDOAGN
$OTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
oP
$SEOPCT
SERFLG
RMAX
SERROR
SERRPC
$ERRTB

001304

001306
001310

6437

$ODWS

$ODWS
$ODW6

s 8
SDDU% 001302

5220+

65994

— o

001
001352
001324
001326
001330

§2iss

3186

VIO
WD N

$ODW10
SODW11
300045
$ODW13
$ODW14

032702
0%5150
035030
001274
001;58

$035

69884

$OBLK
$082D
$0820
SODWO0
$ODW1

00#
6778

20«'\)

$CDW2
127
SCHARC 0O
SCKSWR 033716
SCMTAG 001100
$CM3 =
$SCH, =
SCNTLC O
6
SCNTLG O
g
SCNTLU 03463
PUOP 001236
SCRLF
001205

OgVSOREERRIR

0012
01

001134

SEQ 0198

st
SCoui

1
1 g

YN)o

$BASE
$8DADR

SATYS

—

$AUT08

D16
MACY11 30(1046) 04=-JAN-82 13:06 PAGE 200
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

-3

d =D RPN =B (TN S =B b N mb
D D b e D D d b b D e 2 b b N
By oNN
-n-nm%
OO
W0
SRR
R536t SSY
SIVER
N%NN

CZR6JFO
.P
CZRGJF

8672

8679

8688

8696

8707

8719

6967

CZR6JFO UNIBUS RK6 DR=3 MACY11 30(1046) 04~JAN-82 13:06 PAGE 201! ’
1

CZR6JF .P1

04=J

12:48

SERTTL
SESCAP

gfllz
1176

17778
1807#

SETABL

1;;2

SEATAL
SFFLG
SFILLC

001312

3156
1152

SFILLS

00115

SGDDAT
SGET42

001124
024012

18550

179

17978

$SGDADR 001150

17814

$SGTSWR

684

$SHD

SHIBTS

= 000000

SHIOCT
SICNT

801000

035026
001104

SINTAG
SITEM8
F
SLFLG

001135
001114
001
03315

SLPERR

001110

SLPADR

001106

17834
5112:
955

13174

70;6177648

17884
17784
1811
4
17754

17764

CROSS REFERENCE TABLE == USER SYMBOLS

0S5+
893-

642

o840e
*

gm
028'

"39

5462

62;4
6533

6643«

66514

6371

6382

7%;0
6368+

6842+
6408+
64
66504

6369

653

6881
6437
6977

6217

635

6376

5154

6374

6414

6460

3358

3360

34278

3429

24680
979

40824

352' 5098« 5099+ 5107

5120

5126

6366

6383

2916

6610

6645

6649

1351.0

6620

6623

s’%“%‘s‘%? 88} %8

6845

001551

185%

SMTYP1
SMTYP2

001241
001245

SMTYPSG

001255

SMTYP

SMXCNT

035440
031730

SNULL
881156
SNWTST=
1
SOCNT

os.ugg

69924

}313: gggg' 6626 6638

034365

18395#
18474

69904

6211«

6051«

6642

6385

L ]

185

7 940
6372

63824

97
42064

3520#
4208

17920
354
O

21.87
37

718+

$OCTVL
SOMODE

0351
033404

47
%.

061
6688+

$SPURCT

031272

6247

6248+

SPASg 83}5}2
$SPASTM 001006

7048
6380

18178

001224

6994
888
698

6375«

1322

SMSGAD

6427

6207«

6359«

1838#
18464
18494
15520
1318#
6604

6848

6382

6160

6048

001240
001244
001250
001254
001002
033154

034656

5516+

SMAMS1
SMAMS?
$MAMS3
sMAMSSL
SMBADR
SMFLG

SMNEVW

5512+«

2899+

1844#
18484
18514
18544

1318

5492«

2898+

001242
001246
001252
001256

001210

5482+

7319

SMADR1
SMADR2
SMADR3
SMADRSG

SMAIL

5472«

SEQ 0199

533
0814

522
LO648

639

? 1 39;6- glog
15500

62584

3083

3249

3677
49814

38264
4983

6296-

6707«

67334

36754
4666

21;2

3251

3828
S000#

38974
5002

3899

39774

3470

34954

4084

CIR6JFO UNIBUS RK6 DR-3
CZR6JF .P1
04=J

MACY11 30(1046) 04=-JAN-B82 13:06 PAGE 202
12:48
CROSS REFERENCE TABLE == USER SYMBOLS

SPWRDN

SQUES
SRDCHR

89.

SROCIN 034350
SRDSZ =

SRESRE
SRTNAD

8 561
4034

$SAVRE

gsgzz

SR2A

= wmwawnnnn |

:gg& 03?45;
$SETUP= 00013
SSTUP = 1
$SSUPRS 035400
35VEC= 000364
=

$SWR

= 167400

%1 #

99;”

STESTN
STIMES

001214
001174

$TK8 001146
STKCNT 033406

$TKQIN

$TKQOU
$TKQSR
$TKS

033410

6250

?437
322

6533

7326

72540

7325

7327

%”g“o'
84
6328
g‘
oir
914
895

3334
885
2
2888
6424 62;3 6782
4183 7774
$395°
955
959
5896
898 2
910
6326
“gl;

%58 ‘967
18204

6899

6970

6987

7045

7048

2890

6787

2892

6788

2894

6818

6994

2895

2896

961

;

3335

964

3225

7323

2704
S119#

35
6325
“g

:m %(2)3(2)

418

3370+
2895+

3046

985
63;7
6376

6382

6330

6351

3764+
6*

4103
6328

46216
29

867
3097«

1793 6061
6753+

6078 6306
788
882'

67398

6755

67384

6754

6811«

ggag
35+

3292
75

es13
919

4555 arsr erse
6921+

6812«

6813

:}rs = %55

’925: 9 §* 583 y sgg
375 gg" ifi;
§‘19

STNPWR
P8
$STPFLG

7107
17954
17

035260

0011 5;
00115

3751

6926+
6815
6759+

3753

6926
6795«

6797

3755

4461

4462+

4468

4492«

4557

4618

4784

} (s)?l

.1?6

g}gg

3199«

3210«

3279

7108

65;2'

715

65
653

’

898

5096

5151

99?

gggg

gggs

3688

1
6350

097
6353
6393

6402

707
503+

g719
535+

e
.

112
54

1808

11g

5120
6362
6421

3688+

3835+

3910+

6841+

6851

&es &

6815+

g
gk d g o8 4 O
18034 4511+ 4546+ 4567 43?9' 4835+ 4392

001170

6924
6754
6737

18014

Sglz's

63N

e Gne
$TMP3 001196

3750

368

?7380

;222 3749«

6923+
676414
6533

ggsv %fi%
s$TMP4

922
760
6511

4
634

67404
37465+
h?gg:

001162

755+«
749
6504

86
3265+

4674
6335

033412
033414
001144

$TMP1

SEQ 0200

3316
074
081
g‘ 9' §435’ i‘g9

4789

6803

6825

4484

4783

4814~
*

4872

B
fE B
[54 %i gg
3297+

M«

0974
;469

249
754

3356+

48%%

6863+

3395«

3407

2654 300
8; §‘95

5055

358 3
5034 3520

CZR6JFO UNIBUS RK6 DR
CZR6JF .P11
04~J
$TPS

1150

e, S56iS

STRP = 800016
STRPAD
$TSTM
STSTNM
STTYIN

035702
1004
1102

6 16
MACY11 30€1046) 04~JAN-82 13:06 PAGE 203
12:48
CROSS REFERENCE TABLE == USER SYMBOLS
6533
73154
73284

:};:gga tevnnn |J

e faies
STYPEX

0%%464

STYPON

0332%8

SUNIT

001222

001010
001234
001260
00126§
00002
$XON = 000021
SXTSTR 031464
$$GET4= 000000
SOFILL 033403

SEQ 0201

73174

7518

7319

73204

7321

6324
6982

6351
69864

6373+

6374

6379

398
421

2484
422

423

6885

388
420

654

SUNITM
SUSWR
SVECT1
SVECT2

6771

.$X

= 001000

L2
3

SEE®
£
gl.

LNO2
WO

cownGo

S$40CAT= waawen |J

SASTA= wennnn |J

73254

4071
5588

W16

CZR6JFO %NINS RK6 DR=3
CZR6JF.P11
04=J

MACY11 30(1046) 04=JAN-82 13:06 PAGE 205
12:48
CROSS REFERENCE TABLE == MACRO NAMES

359

3645

4056

4134

43N

6353

4399

4437

4592

4650

4754

4826

490

9 or 07
WO8%
1
72

135
B8

14
OBE
8

163
EG
594

17
Ous
595

195
Uy
5

204
o
597

27
BN
11

O15ES

B8BSS

7
EG

85
HS

Bh39

797

39
973

989

331
7

4001

7
400

1
60%;

941
4040

9%
40446

4049

8
4059

4405
4551
4.370
4819
912
5554

“%
45
4701
4829
<N
556

4418
45
on
4830
6962
557

4441
4597
4757
484
496
6096

444
45
475
485
4970
6108

1
4759
4857
v4
6116

4é
‘930
4760
4866
5044
6120

CALIB

1&2’ 3566

1409¢

6128

COMMEN
Cwb2
DRCLR

14
1;‘1 B
13944

10864

4148
4315

—

4390
4466
4641
4766
4888
Sbgg
61 A

F.EAB

13464

HDCHK3

14834

GETPRI
GETSWR
HDTBL
LOOP
MSG
.

NEWTST
OWNTAG

PUSH
QKPACK

14
17

?‘l 42

1
969

1
4150
&3

439
“gg
‘97
4
489
5085
6138
4126

10864
1086#

SETPRI

SETUP
SKIP
SLASH
SPACE
STARS

6027

9
40

442
458
&7
483]
4953
5583

4428
4595
‘735
483
4956
5590

4440
6598
474
484
&
5616

4121
4259
435

4125
6;8
“

6141

440
44
4655
4801
4910
5535
6147

4303

4345

4629

4584

4642

4746

4899

4957

491
5539
6150

6209

914
4031

41
65 ‘
435

o
4;
435

4139
)
4

4140
4;02
437

4is

4142
4314
“

5151

498;! :

?832‘

32494
3828

3251
38974

3358#
3899

§360
9774

34278
3979

3429
40824

34688
4084

3470
L2064

34954
3497
4208 @ 4L664H

35204
4666

1#
4%06

10864
4664

3035
4981

3081
5000

3249

3358

3427

3468

3495

3520

3675

3826

3897

3977

4082

6646

6647

6609
4070

6630
4849

70;7

7233

7%75

7204

7255

3264

3367

3434

3474

3502

3534

3687

3834

3909

3984

4102

4215

7316

7317

7319

7321

7322

7323

7324

7325

7326

7327

3074

3300

3413

3419

3439

3482

3884

3890

4159

4997

1303

1305

1312

1765

1812

1815

3035

3044

3081

3095

3249

3263

13244
14

1
17304

1881

10864

17064

269

10830
348

545
53

§987

%22

507

SETTRA

4!
4240
&

3083
28260

1 74?0

SCOPE

44
4504
465

407
422
4341

0814
3677
50004

QKUNLD

SBOUND

1
4324

4074
4 gl
&

3037
36754

4190

REPORT

4602
4486
4654
4787
4898
30

406
4193
4322

;1 56

15084

RDATA

062
4]
&3

14964
13304
3035#
3522

QKSEEK

QKSRT

CHECK

SEQ 0202

15774
14544
14
16514

4549

4863

4673

49N

5021

9814

73054

14
14
14
10864
1

1086#

3045

1g860

7314

3096
915

315

10864
10864
10864

5872
2

1086#

1292

5002

2607
964

5095

7011

CZR6JFO ?uws
RK6 DR-

CZR6JF .P11

gg”
9
U
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

WDATA
WRCHK
WRHDR

SSCMRE
SSCMTM

::23?
?SSSE}H

$$SKIP
-EQUAT
-HEADE
KT11

.SETUP
. SWRHI

.SWRLO
SACT1

.SAPTB
-SAPTH
.SAPTY
.SASTA
.SCATC
+SCMTA
.

.S01V
.SEOP

.SERRO

. SERRT
.
.
.

. SRDDE
- SRDOC
«SREAD
-SR2AZ

.SSAVE
.
D

.$SCOP

.SSIZE
.

MC"‘I 30€1046)
12

04=-JAN-82

13:06

PAGE 206

CROSS REFERENCE TABLE == MACRO NAMES

3473

gg 9

?“‘ 78 6758

3495

19¥

9‘;9

1#
1#
17
17
17
¥

10864
10864
10864
10864
10864
10864

3117
6846

3187

3233

3399

3738

15354
161%
143

& gO
4331
256

4415
4716

4570

4628

4885

4943

1800

1801

1802

1803

1804

1805

4664
7314

4981
7315

1
10864
1L
1%
9%r

3023
978
9%

1
1

%14
914

2849
955

1”
1w
1%
ik
1
1L

18134
9%1x
9%1»

1301
6600

%14
%14

1273
1763

y
73054

17634
17634

s‘z’

10864

"
941#
1L

14
1

1L
iE
1

9674
914

9414
914

9414

1290

7087
7048

SOOg

%14

638

9%x

719

914
%14

6995
6734

14
}z

9%»
9%1x

7237
7149

9%»

6319

767

14
1
1

1
14
14
1

14
1"

3501

SEQ 0203

SS;g

3533

6928

3784

3802

5069

5407

6182

6227

o883 &St o
3

5 He

699

169

5107

}: }8&: 3035

4%006
591 20'

116

3081

SgOO
7316

3074

3249

3358

3427

3468

3495

3520

3675

3826

3897

7317

7319

7321

7322

7323

7324

7325

7326

7327

3300

3413

3419

3439

3482

3884

3890

4159

4997

3977

4082

16
CZR6JF uuws RK6 DR=3 MACY11 30(1046) 04=JAN-82 13:06 PAGE 207
CZR6JF .
04=J
12:48
CROSS REFERENCE TABLE == MACRO NAMES

.STRAP
.STYPB
.STYPD
.STYPE
.$TYPO

%14

7282

. %A
1

1»
Ta
1L
1
»

T
T

%1¥
9%1r
9%1¥

65 ;
64
6657

. ABS.

057554

000

ERRORS DETECTED:

CZMJF CZROJF .LST/SOL/CRF/NL:TOC=SYSMAC.SML
TIME: 20 24 2_SECONDS
RW-T"E RATIO: 178/47=3.7
CORE USED: 43K (86 PAGES)

,CZR6JF .P11

SEQ 0204