Digital PDFs

AH-9238F-MC

June 1978

88 pages

Original

4.5MB

view download

OCR Version

4.0MB

view download

Document:	CZRKIF0 RK11-RK05 RK11 UTILITY PACKAGE JUN 1978 bw
Order Number:	AH-9238F-MC
Revision:	000
Pages:	88
Original Filename:	CZRKIF0__RK11-RK05__RK11_UTILITY_PACKAGE__AH-9238F-MC__JUN_1978_bw.pdf

OCR Text

14 1 1/R K05

RK11 UTILITY PACKAGE

CZRKIFO

AH-9238F-MC

copvriGHT “74-78

FICHE1 OF1

JUN 1978

S0S00BN

MADE IN USA

BO1
780519 IDENTIFICATIGEPIO 411

00010000

£9F 1 CTDMDOSBON ] |
PRODUCT

CODE:

PRODUCT
DATE

RC-9236F
-MC

NAME:

CZRKIFO RK11 UTILITY PRC*RGE

CRERTED:

MARCH,

1978

MAINTRINER:

DIRGNOSTIC GROUP

RUTHOR :

BOB COLLINS

REVISED BY:

JIM KRPARDIR
T0M SRWYER

CHUCK HESS

THE

INFORMATION

THIS

DOCUMENT

CUANGE WITHOUT NOTICE QND SHOULD NOT

A COMMITMENT
DIGITAL
EQUI

IGITAL Ew¥mm
CORPORR T I ON

RESPONSIBILITY FOR RNY ERRORS

THRT

THIS MANUAL
.

THE SOF THRRE

IN THIS

éé

SYSTEM,

EXCEPT

WRITING BY DIGITAL.

NOTICE)

MAY

MAY
NT

OTHERW

EQUIPMENT

CORPORAT ION

(C)

1974,1978

USE
THART

APPEAR

IS FURNISHED

oN A SINGLE
xncwsx OF

o§nge IN SUCH

DIGITAL

RESPONSIBILITY
FOR
THE
ts)or;m
ON
EQUIPMENT

CORPORATION.
RSSUMES
NO

0 THE
néxcc
roa
COMPUTER SYSTEM AND CRN
COPIED um«

DIGITAL'S

gt'g: Y

CONST

VIDED

RASSUME S

OR REL] RBILITY OF
IS
NOT
SJUPPLIED

DIGITAL

EQUIPMENT

1IN

NO
ITS
BY

CORPORRTION

BHDPiCZRKIFSEQ

00010000

78CS19

SEQ 000!

COl1
SEG@ 000e

O
WO

LOADING PROCEDURE

STARTING PROCEDURE

OPERRTING PROCEDURE

ERRORS

RESTRICTIONS

EXECUTION TIME
PROGRAM DESCRIPTION

N
O
N
@
DOONOOODOOL

[}

ABSTRACT

S~ OONOCNEWNN-0

TRBLE OF CONTENTS

PRELIMINARY PROGRAMS

MNOEX

DOl

ABSTRACT

ApomsYEST sELEcTION
‘83 gh AL
S; &NfixflxE§N
HE AR
i1 S‘S
v

NTA

IVIRYAL

YILATY FROgRANS

Parxnces
GRE EXPy SINED N BETATC N PARRGRESH REQUIREMEMTS

2.1

EQUIPMENY
PDP-]1 PROCESSOR

11 OR RKV1]l CONTROLLER

(ORIVE TYPES MAY BE MIXED)

STORRGE
THIS

PROGRRM REQUIRES

PREL

mmr PROGRAMS

2.2
n

1-8 RKOS OR RKOSF DISK DRIVES
BK

THISIIé T A DIAGNOSTIC, PACKAGE IT 1S ASSUMED THAT ALL

EQUIP’(NY

1S FJNCTIONQL

LORCING PROCEDURE

METHOD
PROCEU.RE FOR

RABSOLUTE
L

3.1

BINARY TAPES SHOULD BE FGLLOWED

R MUST BE

IN MEMORY

PLACE BIWY TAPE IN RERDER

LORD RDORESS, #7500 (#DETERMINED BY LOCRTION CF
LORDER) .
PRESS “START* PROGRAM WILL LORD.

STARTING PROCEDURE
4.1
4.2

4.3

CONTROL
NONE

SWITCH

STARTING

SETTINGS

moegss

200 MINI MONITOR
PROGRAM

AND/OR

OPERATOR

RACTI >

LORD PROGRAM INTO MEMORY
SET SWITCH REGISTER TO STARRTING RDDRESS

LORD aoogss
PRESS

(200)

STRRT

IF_THE PROGRAM IS BEING RUN ON R SWITCHLESS PROCCLSSOR (I1.E. RN 11/34)
PROGRAM WILL DETES!‘SE% THAT THE
HARDWARE %ETC!-.I REGIS:"ER 1S
NOT PRESENT
WILL
'SOF T
' SWIT
ISTER.
T
"SOFTWARE" SWMITCH REGIS.ER 1S
LOCATED AT LOCATION 176% (8).
THE
SETTINGS OF THE 'SOFTWARE®' SWITCHES ARE CONTROLLED THROUGH
A KEYBORRD
ROUTINE

WHICH

RECOGNIZE
thre

scope

THE

IS CALLED BY

'CONTROL

routine

G’

TYPING A

uhcncvcr

"CONTROL

thc

G'.

prcgran

beging

THE

enters

PROGRAM WILL

'SOFTM&E' SWITCH VRLLEg RRE ENTERED QS RN CCTAL NUMBER IN RESPONSE

THE

PROMPT

FROM

THE

SWITCH

ENTRY

ROUTINE:

SEQ 0003

EOL
*SHR

= NNNNNN

NEW

SEQ OO0

=’

ENTIRE SWITCH REGISTER
SETTING ARE ENTERED, THE
“UST Bé ENTEEED. LERDING EEEOS RRE NOT REQUIRED., 'RUBOUT' AND
IMAGE
"CONTROL L' FUUNCTIONS MAY BE USED TO CORRECT TYPING ERRCRS

EARCH “IME SWITCH

DURING SWITCH ENTRY.

THE 'SOFTWARE' SWITCH

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE
"UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
‘BEOF&-WLN?E'DRE¢ISTER AND THE PROCEDURES DESCRIBED RBOVE MUST
PROGRAM WILL

TYPE

MINI

MONITOR ROUTINE

OFERATING PROCEDURE

S.1

OPERRTIONAL SWITCH SETTINGS

%ET?E(CS 9.0 FOR SWITCHES RPPLICABLE TO INDIVIDUAL

5.2

SUBROUTINE RBSTRRCTS

S.3

PROGRARM AND/OR OPERATOR RACTOR

NO T APP L1CABLE
SEE

INDIVIDURL PACKRGE DESCRIPTION

(PRRAGRAPH 9)

ERRORS

6.1

ERROR HALTS AND DESCRIPTION

IF HRLTED A MRJOR PROBLEM EXIST CHECK

CODE AT HALT

OCCURRED.

6.2

TO DETERMINE WHRT

ERROR RECOVERY
EXPLRINED IN DETAIL IN INDIVIDUAL
DESCRIPTION (PRARAGRAPH 9)

PRCKRGE

RESTRICTIONS
7.1

STARTING RESTRICTIONS

IT 1S NOT RECOMMENDED THAT YOU START AT AN
ADDRESS OTHER THAN 200,
(REASON EXPLAINED IN PARAGRAPH 9.1)

UNLESS DIRECTED TO BY tHE PROGRAM.

7.2

OPERATIONAL

EXPLRINED

RESTRICTIONS

IN DETRIL

INDIVIDUARL PRCKRGE DESCRIPTIONS

EXECUTION TIME
VARIES

PROGRAM

WITH

SELECTED

CESCRIPTION

ROUTINE,

NUMBER

DRIVES,

ETC.

(PARAGRAPH.

FO1L
SEQ 000S

THE

RK11 UTILITY PACKRGE

IS DIVIDED INTO EIGHT SECTIONS

uugcu ALL OW conpnrqexL?§Y
TEST'NG, OSCILLATING SEEKS FOR SERVO
LOGIC WAVE:ORM ANALYSIS, PACK FORMATTING

_
ADJUSTMENT AND SEEK
AND SURFACE VERIFICATION. AND FRONT PANEL TESTING (INDICATOR LAMPS,
SWITCHES, INTERLOCKS, ET() AND VERIF%CQTION.
THE PRCKAGE IS DIVIDED INTO FIVE SECTIONS
SECTION

NAME

NN LwWw—0

INDEX
COMPATIBILITY TEST
OSCILLATING SEEK PRCKAGE
FORMATTER SURFACE VERIFIER
FRPONT PANEL TEST
RrJS CONTROL
PANEL TEST 82

HERD ALI

NOTE: NORMAL LINKAGE TO ANY OF
SECTION O (SEE PARARGRAPH 9.1)
SECTION D

THESE

PRCKRGES

IS THRU

INDEX

TO ALLOW THE USE

1S ASKED

]

TEST.

THIS IS EXAMPLE OF THE RCTUAL OUTPUT:
RK11l

UTILITY PP KRGE

NAME
INDEX
COMPARTIBILITY PACKAGE

OSCILLATING
SEEK
FORMARTTER-SURFACE VERIFIER
RKOS CONTROL PANEL
RKOS CONTROL PANEL TEST s2
HERD Ry IGNMENT ROUTINE
POWER FRILURE (WRITE) .£ST

TYPE=X

9.2

BY WHICH THE USER SELECTS
IS TYPED,
THE QUESTION “TYPE ="

7u§ USER THEM TYPES THE NUMERAL 0-4

70 SELECY R

USE :

E%ig

LOAD ST

DESCRIPTION:

;

E DEVI

-d9§§

PURPOSE :

ERROR

TEST

(DURING WRITE)

;i
i

9.1

NT ROUTINE

POWER FAILURE

WERE "XTM

INFO:

SECTION

ANY

IS THE RESPONSE

ILLEGAL

INPUT

(D-7)

7S HANDLED,

TYPE
0
1
2
3
4
S
&
7

BY THE USER
R QUESTION MARK

IS TYPED AND THE QUESTION “TYPE =" IS RE-RSKED.

COMPARTIBILITY PACKARGE

PURPOSE :
DESCRIPTION:

TO CONFIRM THE FACT THAT A GROUP OF

DRIVES

(R _MAXIMUM OF EIGHT) ARE TRULY COMPATIBLE.
THIS PACKAGE DOES NOT APPLY TO RK-0SF DRIVES.
THIS PRCKAGE ALLOWS A USER TO AUTOMATICALLY TEST

GOl

OF UP TO EIGHT (B8) DRIVES SIMPLY
COMPATIBILITY

SEQ 0006

LA gL VAR
TO PLPCE TI'E PQCK.

TFE LIHXTRTIONS TESTING ARE

%Y R B e one,o TM
“EE:;é
S,
VE MY ORIVE NUMER)
)
OMPATIBILITY INFERS

%OSHGTION WHICH

%822“;:&%%“*
£

R?g Tflgi.
COMPATIBLE

MY OT£~%§§
HRXTTENX'EY

WRIT
IPFORMT
TO OVERWRITE
R PORTION
OF
Y
THER DR1V
WITH NEW
RMATION
VERY BROM
RERD IT
.

f
By T BRCR VR,¢
TRUE COHgS
BUT IS THE BRSIC sREH?SE OFOE RCTUAL
OUTPUT,
ARE

0,1,3.....

ERRRBRERRE

RKOS
RKOS

CONTROL PANEL
CONTROL PQANEL

TEST
TEST

HERD ALIGNMENT ROUTINE
POWER FRILURE

(WRITE)

0
1
2
3

4
S

TEST

TYPE=1

DRIVE NUMBERS ON SYSTEM 1=0,"1,3.
IS THERE
R SECOND SYSBEH N

MOUNT PRCK
PRESS

ON DRIVE

CONTINUE

PRESS CONTINUE

MOUNT

PRES

WHEN

DRIVE

RDY

WHEN ORIVE

RDY

PRCK

gg’lc INUE WHEN DRIVE RDY
CONTINUE WHEN DRIVE RODY
DRIVE RDY

DONE¢

IVE

RDY

NAME

INDEX
COMPRTIBILITY PACKAGE
OSCILLATING SEEK
KA
FORMATTER-SURFACE VERIFIER

EXAMPLE

THE USER
THE BELOW IS AN EXAMPLE
WANTS TO RUN SINGLE PROC ESSOR MODE AND TEST
THREE ( 3) DRIVES WHOSE UNIT NUMBERS
COMPRTIBILITY ON

JSE :

RK11

COMPARTIBILITY PRCKAGE

o toRTIgICT
1 Pholihs g My e
S A SECOND SYSTEM,
CF MO

THE

OXx
m

BEEN
E' HRS NOT ERRO
R#

IVE AN
ANY 0 OTHER SELECTED
TIONS.

ARUTOMATICALLY
ROUTINE
S READY TO MAKE ANOTHER

HE INDEX

—Mr

CTIVES TELLING

=3
T %

MH§ =

S COwnTIBLE W]
TING

PRCK AND WHRT TO
TeST
S THE MESSAGE "DONE!"TM

i rgm—cu

£EL~D*1 §§§5§

.
o0

RRERRERARE

...THE USER SELECTED TYPE ONE (1) AND RECEIVED

SEQ 0007

TBPE

NAME

XNosx

§Gfl%2%i%3§ 8§%&i2%
Do

HO1

UTILITY PARCKRGE

0] DEgERHINE

~E TYPE OF ERROR

L322 222222

EYAMPLE

THE USER NOW EESIRES 10 _TEST COHPQTIEILITY ON

TWO SYSTEMS HWE
HRS UNITS 0,1 ON
AND UMIT O ON SYCTEM 2, IT GOES
RK1! UTILITY PACKAGE

NRNE

TYPE

CONTROL
CONTROL

PANEL
PANEL

TEST
TEST

HERD RLIGNMENT ROUTINE
POWER

FRILURE

(WRITE)

NoOwn ~W—0O

INDEX
COMPATIBILIT: FACKAGE
OSCILLATING SEEK PACKAGE
FORMATTER-SURFACE VERIFIER
RKOS
RKOS

TEST

TYPE=1

ORIVE NUMBERS ON SYSTEM

SYSTEM ONE
LIKE THIS....

1=1.C

IS THERE A SECOND SYSTEM"
Y
DRIVE 8 =0
MCUNT PACK ON DRIVE s}
MAKE

PRCK

WRITE

ENABLE

PRESS CONTINUE WHEN DRIVE ROY
MOUNT PACK ON DRIVE #0

MRKE PRCK WRITE ENABLE
PRESS CONTINUE WHEN DRIVE

RDY

LORD _AND START ADDRESS 210 ON SYSTEM
AHD

TYPE

THE

BELOW

WHEN

RSKED

SYSTEM

AND TYPE
WORD
WORD

I01

THE BELOW WHEN RSKED FOP IT.
1=000002
2=000200

SEQ COoO08

353388803

THE ONLY DIFFERENCT CEYWEEN THIS ANC SINGLE
SYSTEM 1S THE NEW DIRECTIVE TO LOAL START 210
THE USER _NOW LOQDS AND STARTS SYSTEM TWO
ETC._
RAND THE BELOH

1S TYPED.

llilllllil

COMPATIBILITY-SYSTEMS2

WORD

1=000002

WORD

2=000200

MOUNT PRCK ON DRIVE 0
MRKE PACK WRITE ENRBLE
FRESS CONTINUE WHEN DRIVE

ROY

DONE SYSTEM = RESTART SYSTEM !,
BRI

..... THE USER RESPO

T.PE WORD 000077

ERERER

70 THE QUESTION WORD
Ok ONE AND
.

HE RECE [VES THE MOUNconnnno noves THE TEST PACK
TO SYSTEM TWO,

DRIVE NUMBER

AND PRESSES

5321’““‘- NOW THE MESSRGE ro Rtruan T0 SYSTEM
#SYSTEM

ONE_HAS

REEN

IN
A

HALT

STATE

WND

SHOULD BELEFT THAT WAY UNTIL THE RETURN FROM
SY TEM TWO SO THAT TABLES,
ETC. BUILT FOR THE

TEST WILL NOT BE DISTURBED.

HEEEESEERR

WORD=000077
MOUNT PRCK ON DRIVE s}
MAKE PRCK WRITL FrABLE
FRESS

CONTINUE

WHEN

DRIVE

RUY

MOUNT PACK OM DRIVE @0
MAKE PRCK WRITE ENABLE
PRES? CONTINUE WHEN DRIVE RDY
DONE
RK11l UTILITY PACKAGE
TYPE

FORMATTER-SURFACE VERIFIER
RKUS CONTROL PANEL TEST
RKOS CONTROL PANEL TEST w2
HERD AL IGNMENT ROUTINE
POWER FRILURE (WRITE) TEST

NoONILwu—0O

NRME
INDEX
COMPATIBILITY PRACKAGE
OSCILLATING SEEK PRCKAGE

TYPE=
RFFRERENSS

JO1

THE USER NOW Pne§ss§ CONTIN e ON PROCESSOR ONE
AND IN RESPONSE
10
THE QUES
WORD =.
TYPES

SEQ 0009

THE WORD GIVEN TO WIM FROM Pnoctss R TWd

THEN EVERYTHING BECOMES THE SAME AS A SINGLE

SYSTEM.
ERROR INFO:
3.3

SECTION 2

THE USER MERRLY FOLLOWS DIRECTIONS.
SEE PRRAGRAPH 9.6 SPECIAL SECTION

OSCILLATING SEEK PRCKAGE

PURPOSE :

TO ALLOW THE USER TO MAKE SERVO RADJUSTMENTS
AND/OR SEEK LOGIC CHECKOUT BY PERFORMING

DESCRIPTION:

USER SPECIF D RODRESS
SEEKS 8€T§EN

SELECT Ty
S H;
6N?ERTS
THE DRIVES
T
3
D IN SWQO
_TO SW?
A SWITCH IS sev
OF THE SWITCH R crs e
FOR ERCH DRIVE (E.G
YO TEST DRIVE
2

THE

RODDRESS

R THEN xnszn
TO

SEEK

ARE LEGAL

cy L s

é‘ BOTH ADDRESS

MRDE BE TWEEN THE

sz KS)

HILL se

oncss

Lod

S H SHOUL N.LON FOR GOOD
#

USE :

-t

[=4
P

0.8
r~

]

—

[

D
<
D

RQC S ON AN OSCI LISCOPE.
THE OSCILLATING
IT SHOULD BE NOTED THAT
BETWEEN THE SPECIFIED CYLINDERS
EEEK
5.
ONE ON
THE ONLY WAY'TO EXIT 13 HALT!, LORD HODRESS 200,

SELECT TYPE 2, RESPOND TO QUESTION WITH UNIT NUMBER..

oschLnTING SEEK PACKAGE

SET'SHO
TO oW7 10 SELECT THE DRIVES TO TEST

AND CONTINUE.
IF ALL
SWITCHES ARE RESET
ALL AVRILABLE DRIVES W LL BE TESTED.
"1
TOGGLE THE “FIRST CYLINDER ADDRESSTM (OUTER LIMIT)

INTO THE LOW BYTE

CYLINDER RDORESS® (INNER LIMIT) INTO THE HIGH
BYTE (BITB-15),
THEN PRESS CONTINUE

...FOLLOW INSTRUCTIONS

ERROR INFO:

#SNOTE: ##

IF AN ILbEGRL RDORESS

FOR
3.4

SECTION 3

TYPED

15 SELECTED
R MESSARGE

1S TYPED

AND USER
MEARLY SELECTS LEGAL RDDRESS AND DEPRESSES
CONTINUE
EXAMPLE TYPEOUT
INVALID ADDRESS IN SWITCH REGISTER TRY AGRIN
INVALID ADORESS IN SWITCH REGISTER TRY AGAIN
INVALID RDDRESS IN SWITCH REGISTER TRY AGAIN

BOTH

DRIVES

TESTING AT

AN RK-0SF

THE

FORMRTTER-SURFACE

PURPOSE :
DESCRIPTION:

SAME

SHOULD

NOT

SELECTED

TIME.

VERIFIER

TO FORMAT VIRGIN PACKS OR REFORMAT AN OLDER

PACK AND VERIFY 1TS SURFRCE
SELECY TYPE
3, RESPOND TO THE QUESTION

BY SETTING sutvcuzs CORRESPONDING T0

DRIVE NUMBERS YO BE FORMATTED.
THUS
DRIVES 0O, 1.2 nns T0 BE FORMARTTED SET

SWITCHES O

)

(BITO-7) OF THE SWITCH REGISTER AND THE "LRST

THE DRIVES RARE FORMATTED

ONE RFTER ANvaER RT COMPLETION PACK GOOD

ME SSAGE xg
TYPED AND PACK IS FORMATTED.

SEQ@ 0010

3, RESPOND TO QUESTION WITH

SELECT TYPE

:
USE

KOl

SETTING OF SWYTCH REGISTER.
3 3% 3% 3% 3% % % % % %

RK11

UTILITY PACKRGE

NAME

TYPE

COMPRTIBILITY PACKAGE

OSCILLATING SEEK PRCKAGE
FORMATTER-SURFACE VERIFIER

2
3

RkOS CONTROL PRNEL TEST

INDEX

RKOS CONTROL PANEL TEST
HERD ALIGNMENT ROUTINE

POWER FRILURE

(WRITE)

TYPE=3

GOOD.

RK11

UTILITY

TEST

FORMATTER-SURFACE VERIFIER,
PRCK

SET SW REG WITH DRIVE

#°'S

PRCKAGE

NAME
INDEX
COMPRTIBILITY PACKAGE

TYPE
0
1

llllll!lll

AFTER THE Pncx IS FORMATTED
AR GOOD MESSAGE IS
GIVEN AND
A CHECK IS MADE TO SEE IF rusn: ARE
ANY MORE PACKS TO BE ronnnrr;o
IF
THERE RRE
NONE CONTROL 1S TRANSFERRED
TO THE nxnx-nouxron
ERR OR INFO: DRIVE PROBLEM, IF THE MESSAGE.
SYSTEM ERROR

.IS TYPED IT xuoxcnrss A FAULTY DRIVE OR
CONTROLLER,
RUN DIAGNOSTICS, THE PROCESSOR WILL HALT

PRESS CONTINUE TO RETURN TO MINI MONIT
BRD SPOT,

OR SURFRCE PROBLEM,

PACK FRILED AT
RKOS

PUR FPJSE:

DES CRIPTION:

CONTROL

PRANEL

INSURE RLL SWITCHES

ARE FUNCTIONQL

TYyPE=Y

AND

INTERLOCKS

FAILURE

(WRITE)

AT COMPLETION MESSAGE “DONE!"TM IS GI E

RESPOND YO QUESTION WITH THE UNIT NUMBER.

EREREERERE

NAME
INDEX
COMPATRABILITY PRCKAGE
OSCILLATING SEEK PACKAGE
FORMARTTER-SURFACE VERIFIER
RKOS CONTROL PANEL
T
Rk.OS CONTROL PANEL TEST 82
HERD AL IGNMENT ROUTINE
PCWER

INDICRTOR LAMPS,

THE ~KOS

SELECT TYPE
4, RESPOND TO QUESTION WITH UNIT NUMBER,

DIRECTIONS GIOEN
SELECT TYPE 4,

USE

CYLIMNDER SECTOR SURFACE

TEST

TYPE
NoONLEwWwn~—0O

SEC TION 4

(IN OCTAL)

ETC.

RKOS CONTROL PANEL TEST,

l.d1

WHICH DRIVE?0

SEQ 0011t

SNE BQ?K oyNDBUN
6gHOULDSEE YH RUN,
R _LAMP
AND ON
HQKE bRIVE HRITE ENRBLE PRESS CONTINUE
WRITE PROTECT THE DRIVE THEN PRESS CONTINUE

CLERR WRITE PROTECT THEN PRES”

‘TINUE

CAUTION!

~OT FORCE:

TRY TO OPEN THE DOOR

DOOR SHOULD NOT OPEN!
PRESS CONTINUE WHEN FINISHED

PUT DRIVE

IN LORD,

WAIT FOR LOAD LIGHT

PRESS CONTINUE WHEN FINISHED

OPEN THE DOOR,

PUT DRIVE

IN RUN

CAUTION! IF RUN LIGHT ON ERROR! DEPRESS

LORD IMMEDIRTELY,
REMOVE

THE PACK,

CONTINUE WHEN FTNISHED

CLOSE THE DOCR

FUT DRIVE IN RUN, DRIVE ShOULC NOT
RUN. .. INTERLOCKS HAVE BEEN CRECKED
DONE?

RK11

UTILITY PRCKAGE

NAME

TYPE

INDEX
COHPQTQ?%LITY PRACKAGE
OSCILLATING
EK PRCKk AGE

8]
1
e

FORMQTTER-SURFACE VERIFIER
RKOS CONTROL PANEL TEST
RKDS CONTROL PANEL TEST s
HERD AL IGNMENT ROUTIMNE
POWER FRILURE (WRITE
TEST

3
Y
)
b
7

TYPE=
EFRERERERR

9.6

SECTION S

PURPOSE :

DESCRIPTION:

‘RKOS CONTROL PANEL TEST

TO GIVE R CCNTI

S HONITORING AND

CHECK*NG CQPQB% Y FOR HS ELOHING
CONDITION
VARIOUS
OFF LINE (RVY CLR)/ON LINE RDY SET)
WRITE PRCTECTEE/HRITE ENRBLED
POHER LOW/POWER
UP
OMPL TE/
SELEC
YPE
RLL THFE. DRIVES THAT
; Hg;
82CK D ON *RUN’.,
NOTE T
TH]
IS IHP
TANTY
BECAUSE nPROGRAM HAS

USE :

BE CHECKEC.

TO KNOW WHICH DRIVES

RRE

RFTER HAVING SELECTED TYPE 5 AND PUTT.NG
THE DRIVES
"RUN',
THE

THAT ARE 10 BE MONITORER UN
PROGRAM PRINTS OUT ALL THE

DRIVES THAT ARE "ON LINE’.

MOL

DRIVE O ON LINE
DRIVE 1 ON LINE
DRIVE 2 ON LINE

SEQ@ 0012

T EROCBRAE: A YEH FHEROT.ER
I CAEEE I

' HE onivs IS ON LINE OR OFF LINE (DRY

BT Cot e B i e
R
WPL BI IS CHECKED TO SEE IF DRIV

ourg 55 cnecxéI sEsx
5 NC in y gg?ccfls
%R
oifif
EVER
us is FOJND
IT IS REPORTED
'Loao AND BACK

£
DRIVEIS PUT ON
rus Pnocnnn
TO °RUN'

CRECKS IF THE DRIVE COMES ON LINE IN THE
WRITE ENRBLED MODE.
(ERPOR
HRIT

IF NOT,
ED)

AN ERROR MESSAGE
REPORTED.

TQSN§$¢T M §ND 3 gE§$O¥§ET§DDRIVE IS PUT
EQEN
ON Lonc av THE USEX IT GETS REPORTED,

IF T
REPOR sc

R SET 'WRITE PROT' IT GETS
THE MESSAGES APPERR RS FOLLOWING:

DRIVE O OFF LINE
DRIVE 1 WRITE PROTECTED
DRIVE e SIN
DRIVE
1 HRITE ENRBLED

DRI
DRI
DRI

g
SEEK
0 POWER OK

NOTE

THAT

REPORTED.

ONLY

CHANGES

IN STATUS

THESE Ci'ANGES HARVE

BY THE JUSER,

ARRE

TU BE RFFECTED

IF ANY CHANGE IN STATUS

IS NOT

DETECTED AND REPORTED BY THE PROGRAM
IT MIGHT

IMPLY AN ERROR CONDITION.

SECTION &

HERD RALIGNMENT ROUTINE

PURPOSE
:

TO PROVIDE
R FRCILITY FOR HEAD AL IGNMENT,
HILE OYNAMIC SELECTION OF THE UPPER OR
RD.

DESTZRIPTION:

WHEN 55
T ROUTINE IS SELE TED THE

FOLLOWING

MESSAGE
RE RS:

SET SuWl=1

1O TEST CYL 84, SET SWi=0 TO TES

SET suo:o FOR SURFACE
0, SWO=1

CYLINDER10S.
SWe-16=0
PUT an SW FROM 2-15 HI
THEN

Tgs

FOLLOWING

WANTS

SELECT.

SUFFIXED WITH AN
DRIVES.

TO SELECT NEW DRIVE

QUESTION

IVE?
SHOULD TYPE
IN THE URIVE
'F’'

THE

FOR sunrncs

_RSKED:

DRIVE

NUMBER

THE
J SER
NUMBER
THART

TO TEST RK-05F

TYPE

NO1
TYPE=6
CRIVE=0:-CR>
THe

SEQ 0013

UPPER OR

THE

LOtl"R HERD CAN BE

SELECTET BY SKITCH O.

IF SURFQCE v

;LOMF ,ELECTED
BT sBlEecTigD RTPUTCYLINDER
ISH O ON &Y|.
ngvogz%ogf

l‘-:‘éa)‘i

%%
23,

OS%;IONSUTHE :egbs FQS
THE SELECTED

C*Eg. ?* THE Ug R HI HES
HER HERD OR CYLINDER

-cfi

SHOOLD

£y e

DQT

NG WRITE) TEST
WRITTEN ON THE DISK
oK
SENSES A LOSE OF

;iz
-

oM
»—O
xr

-4

uonss CYLINOER S

M-

CYLINDER

30 OF THE
F DRIVE

sy
—4

17 2 I

AND

AGE
RIVE

ROGRAM FINOS OUT

INDICATES

ERROR

?;80

8%?29

225'3
2

i Az

o
ite)
r

sax

IMaL)
822

BEING

DONE

THAT DRIVE.
NCV‘I"GDR 10

OWER ON
ON

CYLINDER

10.

E HES::QGE THE USER SHOU C

NG THE RBOVE
HE ;ggs ESN
?

NOMBER

IVE. ON
3, 08 e
GRan WILL ASK THE
?fic 88%5558" AGAIN:

Ennoa

(o]

—

D
Mee
X2

§ui

IT CARN BE

H AN RK-0SJ CARTRIDGE

"2 m; 3
&
14 BRI
§ i
Suo2
R
%
{
Mo 73
9.
o
97 %
o2
5
o-q%fl-( 32
—

£ sa;gcrso

1s SELECTED,

¥ 4)

FLIPPING SW O OR

stion
IS
A CONTINUOUS ROUTXNE
A RALT
HAS TO BE CONE.

wRITE

v e

gt s P

AR
ST W

e
W 4

e
aw

r
—

—‘

x
m

ook
3

OR
C LINDER 1065,

TP:EXQOGRM

fi&g
s
agh

CYLX'OER 1
SWlz]l FOR C:{ INDER

SENSING
R % Ss
USER TO
7

MESSAGE THE USER SHOULD
TECTING
POWER
THE

CHECK

THAT

THE

WRITTEN

1S WA
iwtncr IF
R MRITE
(PCeSIBLY
MERNING THRT
0ESTROYED
ING THE
1S REPORTED RS FOLLOHING

1T
ON POWER-UP,

RKDAzXXX

S THE CONTENTS OFhxoa RY 'HE TIME OF

PRUGR am

DOES

THE

ABOVE

POWER

FAIL

TEST

BOe

OTHER IN A ROUND aoeaiu FRSHION. EXI IE THROUGH
PRESENT,

ON RALL DRIVES THAY

ONE QFTER THE

HALT.

9. 9

SECTION SPECIAL

FOR T
WILL

THE

&gu EXAMPLES THE FOLLOWIM FORMAY
i

. COMMENTS ON WHAT

ARCTURL TYPEOUT

m§ RF
.0CCURRED OR WHAT TO D9
#NOTES 1 rczggsmv FOR CLARITY
ERROR £ XRAMPLE

FORMATTER-SURF

RKOS CONTPOL P&L‘?EST

RIFIER

TYPE=1
DRIVE NUMBERS ON SYTEM 1=0.

;TYPE 1 SELECTION
;ORIVE 80 SELECTED

IS THERE A SECGDVéYSTEH’N

;NO

PRESS CONT]
MHEN
DRIVE ROY
DRIVE WRITE
}'ECT D.
DRIVE WRITE PROTEC

;CLERR
WRITE
PROTECT SWITCH
;NOW RUNS TO FINJISH
; THIS DOES NOT EFFECT

MOUNT PACK ON DRI
o0
MRKE PRCK WRITE E'm&

DOonNE!

RK11

UTILITY PACKAGE

NRME

TYPE

COMPRTIBILITY PRCKRGE
OSCILLARTING SEEK PRCKRGE

4
; CONT
;WRIT

SECOND SYSTEM

PRESSED BUT
CT ON

;OUTCOME OF TEST

0
1
@2

ERROR EXAMPLE 2
RK11

INDE x

UTILITY PACKAGE

NRME

TYPE
0

COMFATIBILITY PRCKAGE

%TT&I‘N née RIFIER
RKOS CWTR&RFF’QCLGEST

g
4

HERD AL
1

RKOS CON

POMER FRIL

PANEL

TEST

ROUTINE

(WMRITE)

TYPE=]

DRIVE NUMBERS ON SYTEM

TEST

1=0.

IS THERE A SECOND SYSTEM’N
MOUNT PACK ONM
VE 80
MAKE PARCK WRIT
PRESS
CONT
WHEN DRIVE

DR1
DR1

NOTY
NOT

Y
Y

DRIVE NOT REARDY
DRIVE NOT REARDY
DRIVE NOT RERDY

; CONTINUE PRESSED BUT

;DRIVE NOT RERDY. IF UP
:TO SPEED ETC. AND MESSAGE
;OCCURRING - STATIC SHOULD BE

SEQ 0014

;RUN

DRIVE NOT RENJ:

TR P e

BIE Bl

EE
T
RK1I1

;:THE OUTCOME OF

COMPRTRBILITY

UTILITY PRCKAGE
n—0O<

AVEE

coe

IF NO; LORDED OR :gl

[

X
NOE
COMPATIBILITY PRACKAGE
OSCILLARTING SEEK PACKAGE
ERROR EXAMPLE 3
UTILITY PACKRGE

TYPE

INDE
CMTI?;LITY PRO(ME

RK11

OSCIL#
%RIFIER

L R

PCHER FRILURE

(WRITE)

TEST

;DRIVE RESET TIMED OUT

TYPE=]

DRIVE NUMSERS ON SYTEM 1=0,1,4,7.

utututuls

COND SYSTEM?Y

ERROR EXAMPLE 4

OSCILLATING

PACKAGE
ERRTTLa
g
BEEK
PACKAGE
R oe CORTRE.
SEEK

pagE,

TYPE=]

VERLE

c
3
q

SEQ 0015

DOe

DRIVE NUMBERS ON SYTEM 1=0.

S
msf;:
0 ’{RE
E

;WAS R CONTROL RESET

¥§G.
CW %

;ALL COHHENTS RRE THE SAME
,AS FYAMPLE
2

MAK

OND

YSTEH"N

;SAME RS ABOVE BUT FUNCTION

D
N R*VE ROY

CWTR&

ONTROL RESET TI‘D OU

#R SINGULRR OCCURANCE RS RBOVE

AND WILL

IS NOT A PROBLEM

NOT EFFECT COMPRTABILITY

R
M DRITENT
CON?IMR%N
Y_IT
i
PSY

NOT NECESSARILY COM’QTQBLE
UTILITY PACKAGE

NAME

TYPE

X
INOE
COWQT&B;LITY PRCKAGE

RXOS C

)

RKOS CONTROL PRYEL

V$E§T

TEST

HERD RLIGNMENT ROUTINE
POWER FRILURE

(WRITE,

TYPE=1

DRIVE NUMBERS ON SYTEM

NTNnLuu—-0

RK11

TEST

1=0.

IS THERE R SECOND SYSTEM?N
MOUNT PACK ON DRIVE 80
MAKE PRCK WRITE ENRBLE
PRESS CONTINUE WHEN DRIVE RDY
gOEERORS OCCURRED DRIVE CFCLRRED DOWN!!
RK11

UTILITY PACKAGE
TYPE

INDEX

COMPARTIBILITY PACKRGE

#INVTHE

RBOVE CRSE

THE

MESSAGE "3 SEEK

ERRORS OCCLRRED
DRIVE DECLARED DOWN!!

MAY

NOT

OCCUR

Eécgg BRW;\T,EIT

ERROR EXAMPLE

THE

SAME

ERROR

INCOMPLETE

NOT TESTED!*TM

DESCRIBED

RBOVE

IS CAUSED BY 3 SEEK ERRORS OCCURRING

-4

—

AGAINST THE OTHER DRIVES

~—

INDICATING THAT (S) FIVE HRRD OR SOF
ERRORS OCCURRED.
THE
TES
LL

TESTED

INTHEFIRSYTrBETAE DRI

3
e Al
A
7
R
3
53

wim

ERROR EXAMPLE
S

SEQ 0016

SEQ 0017

RK11 UTILITY PACKRGE
NAME

INOE X

TYPE
0

GSCILIATING
SEEkPRCKage
# SL§ RIFIER
TROL

RKOS CWTROL

EST

L_TEST ROUTINE

HERD AL IGNMENT ROUTINE
POWER FRILURE

(WRITE)

TEST

TYPE=1

DRIVE NUMBERS ON SYSTEM

1=0.

IS THERE A SECOND SYSTEM?Y

DRIVE & =]
MOUNT PRCK ON DRIVE

PREES CWYmN%TE 7 DEIVE RDY
LORD _AND %m mESS 210 ON SYSTEM se
AND TYPE

THE KL?‘IHN ASKED FOR

HORD
WORD=000177

MOUNT PRCK ON DRIVE
MAKE PRCK WRITE

PRESS CONTI
ERROR!

DRTR

80
E

WHEN ng RDY

WRITTEN

AOOR =205 7eN
9

EXPC

ADOR=00S
764
ACOR=00S764

ADDR=0CG2764

ERROR!

DATAR MWRI )T(Sg

)
)

ADOR=007bc4_

DRIVE

&ogn:oonsa
RK11l

EXPCTD=077400

RE
RE

7
vo-@noo

CANNO

IR% vO

RERD.

UTILITY PRCKRGE

INDEX
COMPRTRBILITY PACKAGE
OSCILLRATING SEEK
F
TER-SURFRCE VERIFIER
RKOS CONTROL
RKOS CONTROL

T
E
ERROR! DATA WRITTEN
BY DRI
RDDR=007633
EXPCTD=077400

PAMNEL
PAMNEL

HERD AL IGNMENT
POMER FRILURE
TYPE=
THE ABOVE
PROBLEM.

IT.

E 3

TEST
TEST

TINE

(WRITE)

TO RERD

ERROR EXAMPLE

2
3

Y
S

TEST

ERROR MESSRGE SHOWS
ALL ERRORS OCCURRED

DRI\\;E l13 TRYING

TYPE

A COMPATABILITY
ON HERD ONE OF

INFORMATION WRITTEN BY

SEQ@ 0018

RERD.

RODR=002764
EXPC
ERROR! DRTA LRXTT N BY

RODR=002767

CvD=1

S ERRORS OCCLRRED DRIVE MCLME

IN THE
%0\{

1_CANNO

DOWN!!

PROBLEH IS

éio

RERD.

NOT TESTED!

EXTREME.

DO 10 C CKSUH

(10
ses THIS WRS

DETERM]

mncam
NOTICE ALSO
START nppsmmc um cvunoen

SEE

o8L n om NOT
AND WRS NOT

FRTAL UNTIL CYLINDER 57, ARGRIN HERD 81 WAS n
COMMON FACTOR.

.10

(22X 2T22X3

COMPARTIBILITY ERROR RECOVERY
THOUGH R UTILITY PRCKRGE

IS NOT

_TRUE

DIQGNOSTIC

T
1S OF BENEFIT
10 THE To USERRECIEVE
10 ATMORE
TIMES
ABLE OR
10 AOOTFY
THE PROLAAN
TWEORMATION
CONTROL
1.

TERS

THERE ARE TWO STRATEGICALY PLACED NO-OPS

WHICH IF CHANGED TO
THE USER.

S, MAY BE OF

ONE
IS IN THE EXECUTE.

ROUTINE

HELP TO

WHICH

COUNT ARD| CONTROL REGTSTERS IN

EXECUTION,

0'? I

&ICH
FI.LOH T& LSJEER %

THE

'ERRCHK’

ROUTINE

INE THE RKER REGISTER

WHICH MY HRVE OCCURRED
2.

IF PLAGED BY CHECKSUM ERRORS AND THE USEF WISHES
MORE ERROR MAPING THEN HE MAY MODIFY THE
MASK WORD AT LOCATION 'ERRCHK+2'
TO ONLY RECOGNIZE
HARD ERRORS.

INCRERSE

DECREARSE

THE

NUMBER

RETRYS

ALLOWED

BEFORE A DRIVE 1S DECLARED DOWN, GO TO THE

MODIFY THE SETUP OF LOCATIONS

ROUTINE,

*MOUNT'

"ECNT® AND 'CNTSIN® AND YOU HAVE IT!

IF THE USER
DECICES
A
NUMBER
T0 RL?EROF THE
nxtuggsY ONBECRUSE
NUHBERDSF
LARGE
rnngR§§ (THE TYPE IN
OF PRINTOUTS PER agcvoa

7) HE MAY MODIFY THE
ERROR EXAMPLE 6 AND
IN THE 'RDCHK' ROUTINE.
OF *CHWCNT®
A FINAL LOOK:

THE FOLLOWING SECTION SHOWS ALL PACKAGES

CALLED IN SEQUENCE, NONE WITH ERRORS.
RK1I UTILItY PRCKAGE
NN LWN—-0O

TYPE

INDEX
COMPARTABILITY PACKAGE
OSCILLATING SEEK PRCKAGE

FORMATTER-SURFAC

V;gIFIER

RKOS CONTROL PANEL
TEST
RKOS CONTROL
L_TEST

HERD ALIGNMENT ROUTINE
POWER FRILURE

(WRITE)

TEST

TYPE=0
RK11

UTILITY

PACKRAGE

TYPE

HERD ALI
POMER

L_TEST

NT ROUTINE

FRILURE

(WRITE)

NoOnLWwN—~0

INDEX
COMPRTRBILITY PRCKAGE
OSCILLATING SEEK PACKARGE
FORMATTER-SURFACE VERIFIER
RKOS CONTROL PANEL TEST

RKOS CON?&

TEST

TYPE=1

DRIVE NUMBERS ON SYSTEM

1=0,1,3.

;

IS THERE R SSCOPO SYSTEM
N
MOUNT PACK
IVE 80
MAKE PRCK WRITE
ENRBLE
PRESS CONTINUE
IVE RDY
PRES?

CONTINUE

WHEN DRIVE

RDY

PRESS CONTINUE

WHEN DRIVE

RDY

PRC

MOUNT

CONTINU

PARCK

m—

PRESS

SETUP

IVE ROY

DRIVE
83

RODY

SEQ 0019

HOe

MAKE PRCK WRITE ENRBLE
PRESS CONTINUE WHEN DRIVE ROY
DONE?

RK1}

SEQ@ 0020

UTILITY PRACKRARGE

TYPE

NAME

INDE X

COMPRTWBILITY PRCKAGE

OSCILLRTING SEEK PACKAGE

FORMATTERRC
V;RIFIER
KOS CONT
L
EgT
KOS CONTR
L TEST 82
HERD ALT
NY ROUTINE
PrWER FRILURE (WRITE) TEST

3
Y
S
6
7

TYPE =2

BYTE (BITO-7) OF THE SWITCH REGISTER AND THE "LRST

INTO THE L

CYLINDER ADDRESSTM (INNER LIMIT) INTO THE HIGH
BYTE (BITB-iS), THEN PRESS CONTINUE.
RK11

UTILITY PRCKAGE
TYPE

INDEX

COMPRTABILITY PARCKAGE
OSCILLATING SEEK PARCKRGE
FORMATTER-SURFACE VERIFIER
RW0S CONTROL PAMNEL
TEST
RKOS

CONTROL

PANEL

POWER FRILURE

3
4
)

TEST

HEAD AL IGNMENT ROUTINE
(WRITE)

TYPE=3
FORMATTER-SURFRCE VERIFIER,
PACK

1
e

)

WHICH DRIVE?0

GOOD.

RKI1

UTILITY

PRCKRGE
TYPE

INDE X
COMPATABILITY PRCKAGE
OSCILLATING
SEEK PARCKAGE

FCRMATIER-S
RKOS
RKOS

~.E VERIFIER

CONTROL
CONTROL

PANEL
PANEL

TEST
TEST

HERD AL IGNMENT ROUTINE
POWER FRILURE

(WRITE)

POWER,

IN RUN

Y
S

TEST

TYPE=4
RKOS CONTROL PANEL TEST,
MOUNT PRCK ON DRIVE 80

PLACE DRIVE

0
1
2

)

WHICH

;:SHOULD SEE

DRIVE’C

THE

AND ON CYLINDER LAMPS LIGHWT.

RUN,

MAKE ORIVE WRITE ENRBLE PRESS CONTINUE
WRITE

PROTECT

THE

DRIVE

THEN

PRESS

CONTINUE

102
CLERR WRITE PROTECT THEN PRESS CONTINUE
CAUTION!

TRY TQ OPEN THE DOOR,

DO NOT FORCE:

DOOR SHOULD NOT O
PRESS CONTINUE WHEN FINISHED
PUT DRIVE

IN LORD

SEQ 0021

unxT FOR LORD LIGHT

PRESS CONTINUE WHEN FINISHED
OPEN THE DOOR,

PUT DRIVE

IN RUN

CAUTION! 6F RON LIGHT ON ERROR!
LORD IMMEDIARTELY,
REMOVE THE PACK,

CONTINUE WKEN

DEPRESS

FINISHED

THE DOOR

PUT DRIVE IN RUN, DRIVE SHOULD NOT

ggng. INTERLOCKS 'HAVE BEEN CHECKED
UTILITY PACKAGE
61 30A(1052)
24-MAR-78

—

TABLE

09:23

CONTENTS

NITIONS

2
zZ8
0w

NG RDORESS (ES)

H-‘

] 3—‘

& 05D
L
12
2%

MRINDEC-11-DZRKI- E
DZRKIF.P11
a9 -MAR-7?

ER_TRBLE
IALIZE THE COMMON TAGS

nnn T INUNJ NN > e e
@a~N ILELN—-DNW [
rwo MO0
£ NO n
oNw WL VLV
T TN n

GET VALUE §0R %gg}HflRE SWITCH REGISTER

ORMATTER-~

SEEK ROUTINE

RCE VERIFIER

Diok POWER ERILONE
TYPE

ROUTINE

TEST

BINARY TO OCTAL (ASCII)
TYY

READ
TRAF
TRAP

INPLIT

ROLITY

ocrnL

DECODER
TABLE

,
AND TYPE

NUMBER FROM

THE

TTY

SEQ

000l

MACY1l
24-MAR-78 09:20

MQINDEC- 11 -DZRKI -E
MIPUTU U MU
=2 00 = poet P ot pome Pa Pt s
LW ODDNTNLWNN—~OODNTUIL
W

DZRK IF.P11

24-MRR-78

30R(1CSA)

.TITLE

09:23

J0aa

PAGE ¢

SE@ d022

MRINDEC-11-DZRkI-E

: #COPYRIGHT

(C)

1974,1977

'#DIGITAL EQUIPMENT LORP.
.nnvnnno MARSS. 01754

lPROGRRH BY BOB COLLINS

ITHIS PROGRAM WAS RSSEMBLED USING THE PDP- 11 MRINDEC SYSMAC
:#PACKAGE (MRINDEC-11-DZQAC-C3), JAN 19, 1977
*l

000001
160000

$SUR= 160000

; ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

; #REVISED BY JIM KAPADIA

;#REVISED BY TOM SAWYER FEB 27,
;#REVISED BY CHUCK HESS AUGUST,
SBTTL
001100

000011

BRSIC DEFINITIONS

QSORCSS OF THE STACK POINTER ##& 1100 ##x
#INITIAL

§TACK="

"EQUIV
.EQUIV

110

EMT,ERROR
ToT,SCOPE

; *MISCELLANEOUS

DEF INITIONS

; ; CODE FOR Honxzomm. TAB

CR=

; iCODE

1727776

' | BROCESSOR STRTUS WORD

LF=

CRLF=

200

;; CO

PS=

127774
17272772
177570
177570

.EQUIV

PS,PSW

PIRQ=
DSWR=

177772
177570

STKLMT= 1727774

DDISP=

177570

FOR LINE FEED

FOR CARRIAGE RETURN

:CODE FOR CARRIRGE RETURN-LINE FEED

:;STARCK LIMIT REGISTER

; ; PROGRAM _INTERRUP nsouesr REGISTER
' HARDWARE SWITCH REGISTER

' ! HARDWARE DISPLAY REGISTER

#GENERAL PURPOSE REGISTER DEFINITIONS

ko=

R2=

RY4=

GE)ERAL REGISTER
RAL REGISTER

Ri=
R3=

RSz

; ;GENERAL REGISTER

{iGINERAL REGISTER

GINERAL REGISTER
GENERAL REGISTER

RERQL REG%STER

Rb=

SP=

: :STACK POINTER

R7=

PC=
000000
000040
000100
000140
000200

: 1BRSIC DEFINITION OF ERROR CALL

:1BRSIC DEFINITION OF SCOPE CALL

177276

000000
000001
00002

1976
1976

%?
%7

. ®PRIORITY

PRO=

PR2=
PR3z
PRY=

100
140
200

PRIz

: GENERAL REGISTER

; 'PROGRAM COUNTER

LEVEL

DEFINITIONS

. sPRIORITY LEVEL O

;i PRIORITY LEVEL

{IPRIORITY LEVEL 2
' 'PRIORITY LEVEL 3
{IPRIORITY LEVEL &

-11-DZRKI-E

S?éE?EFPff
>

MACY1l 30R(1052)

24-MAR-78 09:20

BRSIC DEFINITIONC
PRE&=

888388

PR?=

100000

Sw18="

020000

SWi3=

001000
000400
000200

SWw03=
SWo8=
SWO?=

¥
£2

043000

B4
65
66

010000
004000
002000

70
7
72
73

000100
00004C
000020
000010

67
68
69

09 -~

24-MARR-78

; ;PRIORITY LEVEL 7

300

1 +PRIORITY LEVEL &

340

{#"SHITCH REGISTER" SWITCH DEFINITIONS
10000

SWi4=

40000

SW12=
suxéz
SWlo=

10000
4008
200
1000
400

20000

200

SWob=
SWOS=
SWO4=
SW03=

100
40
20
10

SWoi=

_EQUIV
"EQUIV
-EQUIV

SWO9, SW9
SWOB.SW8
7!

81
82
83

“EQUIV
EQUIV
"EQUIV

gugs.
G, SWY
SWO3.5uW3

CEQUIV

SwOl.Su]

75
76

27
78
7

000004

000002
000001

SW00=

"EQUIV

-EQUIvV

I'd

SW02=

M
|

-EQUIV guos.sus

100000

SWO2.5W2

.*“ATA BIT DEFINITIONS
15=

10000

30
9]
33
93
34
9g

040000
020000
010000
004000
002000
001000

s1li4=
8IT13=
8ITie=
BITil=
BiT10=
8IT09=

40000
20000
10000
4000
2000
1000

000200

BITQ7=

200

38
99
100
101
102
103
104
105
106

107
108
109
110
111

KO<

PAGE 3

000400

000100
000040
000020
000010
000004
000002
000001

BITO8=

400

BITO6=
BITOS=
BITO4=
BIT03=
BITO2=
BITOf=
BIT00=
.EQUIV
.EQUIvV

100
40
20
10
4
2
|
BIT09,BIT9
BI708.BIT8

-EQUIV
.EQUIV
.EQUIV

gxros.exrs
BIT0S.BITS
BITO4,BITY

.EQUIV

"EQUIV

B81I107.BIT?

B1IT03.BIT3

(BITOO YO BITIS)

SEQ 0023

—p—

Pt
90 P Pt ot Pt Bt et Pt Pt Pt Bt et e WPt P stWG
Pt otWWMAINNINITUNI
s Pt Pt Pt Bt P Bis e BtMU B8UMY
e s Pt
Bt et Pt P Pt P ;
WL LfLrffrfrrcLw
6 b pe s s b e g
~cnom\urmJnum»«:@&yvgbkcun»—odunwaun:oum~ounnfloun£ua n C

1-DZRKI1-E

MACY11l 30A(1052)

24-MRR-78 09:20

@&4-MAR-7?8

BARSIC DEFINITIONS
.EQUIV
.EQUIV

88 oo4
010

09:23

LO<

PRGE 4

SEQ 0024

BIT01,BITI
BIT00,BITO

‘5235‘° :CPU"
?03R535$snu
THER ERRORS
EsstS:
10 TRAP VECTOR;;RéSERVED
QNS ?LLEGRL
INSTRUCTIONS
=

200014
%’805“

TRveee
14Y
PTVES:

i: v ;BREAKPOINT
oce Trap TRAP (BPT)

oTvEC=z

000020

000024

: S INPUT/OUTPUT TRAP (IOT) ##SCOPE®»

PWRVECE 24

: : POWER FAIL

000030

EMTVEC= 30

: EMULRTOR TRAP (EMT) #%ERROR%#

000060
000064
0G0e40

TKVEC=
60
TPVEC=
64
PIRGVEC=240

STTY KEYBORRD VECTOR
1ITTY PRINTER VECTOR
: IPROGRAM INTERRUPT REQUEST VECTOR

P00080
000174

gfl'zo
LQCATIONS
FROM 4TRAPS
- 776 SNS CONTAIN
A “. +2,HALT"
Eigth
Ngge?o
CATCH
ILLEGAL
INTERRUPTS
: #LOCR xonlgqcouraxns 0 TO CATCH IMPROPERLY LORDED VECTORS

000174
000176

000000
000000

DISPREG:
SWREG:

000200

8885?5

001434

000210
000216

112737
006i37

000377
001440

0000634

TRAPVEC=34
.SBTTL

: I"TRAP* TRAP

TRAP CATCHER

.‘

_SBTTL

001312
.SBTTL

.uong
.WOR

STRARTING RDORESS(ES)

J"SIO

J8STARTR

MOVB
JIME

8377, J#MODE
J8START

RCT1l

’

; ; SOFTWARE DISPLAY REGISTER
: :SOFTWARE SWITCH REGISTER
::JUMP TO STRRTING RDDRESS OF PROGRAM

HOOKS

;'l"!!llllllll{llllllllillllllllIlllllil!lllillilliiii!lillllili

pop222

000046

000046
886383

0000se

000000

:HOOKS REQUIRED BY ACT1!

SSVPC=.

. =46
srwgao
.9
.wJRD

s SAVE PC
;3 1)SET LOC.46 TO ADCRESS OF SENDAD

;32)SET

LOC.S2

ZERO

.SEOP

MACY1l 30R(10S2)

MARINODEC-11-DZRKI-E

e4-MRR-78 09:20

DZRKIF.P11

.SBTTL

183
154
155

&Tux

: USE

NN
v e b

88983925 R83825 98385998sRe08smSs
F R AT £ £ R APPSR
aERaE

QRRZOR2BIB
PR LN 83B CRR2IVVEBIRS
It 2SS TERELRZESES

Pt P @ L
P
Pt Porct P
Pt it P
s P

s bt Pt ot Pt hoet Pt et Pt o s en ) - Pt Pt Pt Pt

PRGE S

SEQ 00eS

COMMON TRGS

I!llllll!lllllilllllilIlll!lllillllllll!!llli!ii’iillil!il’ll!i

156

o PUTUTU
N 4s 0o bs 9t e =0 3o Bt B 5t bt Pmn ot o

09:23

24-MAR-78

COMMON TARGS

001100

000000
000
000

000000
000000

SCMTAG:
§PASS:

§TSTNM:
s;anc-

B%E CONTRINS VARIOUS COMMON STORARGE LOCATIONS

THE PROGRAM.

.=1100

.WORD
.BYTE
BYTE

CNT: .WORD

SLPADR: .WORD
SLPERR: .WOR
.WORD
SERTTL:
SITEMB: .BYTE

“HORD
SERRPL.
.WORD
GDADR:
SBOADR: .WORD

$GODAT:
$BODRT:

.WORD
.WORD
'5828

.BYTE
$AUTOB: 'EE;S
SINTRG:

O
O
O

Irsnnvxou COUNT
::CONTAINS Euar:sr
aog£SS
¢

DO
O

ERROR . TNSTRUCTION
X B RS
DARTA
gcogo'
SF
ngosgsg
nrniflg
C
i1OIS
CONTRINS RDDRESS OF 'BA0’ DRTR

O
0
O
O

;;CONTQINE *GOOD® DATA
'BAD’ DATA
: :CONTRINS
: {RESERVED--NGT T0 BE USED

,,INTERRUPT MODE INDICATOR

;AUTOMATIC MODE INDICATOR
WITCH REGI3TER

,,QBBREQE & BYLICH PRELTIEER
$TTY KBO 87 Eg
>

$IKS.
$TKB:

1775862

SNULL:
SFILLS:

.BYTE
.BYTE

O
2

,;conrn;gg
R cunnncrsns REQUIRED
Of FILLE
CONTR:

.BYT

$TPS:

$TPB:

SFILLC:

STPFLG:

177564

177566
.BYT

SQUES:
SCRLF

.RSCI1
.nsc*x

000000

BRACTV:

000010
152525
Q777?77
000000

BUFF
DITTY PRINTER

SITTY KBO

TUS REG. ADDRESS
R REG. noonsss
gurrc
1ITTY PRINTER
NULL CHARACTER FOR FILLS

..;NES FIL
nxnaL

A “LINE

: QUESTION
MAR
,,cnanxagé RETURN

.WORD

;ACTIVE DRIVE

LOGR:

.BLKW

: TRBLE OF ACTIVE DRIVE WORDS

DRVO:

.WORD

“WIRD
-WORD
_WORD
_WORD
WORD
_WORD
"WORD

077777
000000
012345
125252
000001
177777
154320

1§a§as

: TRBLE OF PATTERN = TO DRIVE #’S

RDTBL:

.BLKW

: TABLE

RSCIZ
<12
llllllllillill!lllillllilillll“lli!l!llllllillllii!llllliil!il
WORD

S .F:

FEED"

vnan LE" anc (BIT<G7>=0=YES)

/7,
(15>

154320

000010

: :CONTR
URN FOR ERRORS
: :CONTA
OTAL ERRORS DETECTED
. CONTA
:CONTRINS ITEM CONTROL BYTE

O
O
0

WR
- WOR
" "ORRD BBYEr
B8: av: 1775860

000812

: sSTART OF COMMON Tncs
: :CONTAINS PRSS COUNT
: ; CONTA ng Tgsogsgr NUMBER
LAG
: 1CONTR

OF RERD ADDRESS

MARINDEC}{ OZRK1-E
MACY1l
DZRKIF.P
24-MRR-78 09:20
e09
cl0

ell
cle
213
2ly
21S
2lL

217
cl8
219
220
eel
cee
ee3
ced
2es
SS§
ce8
229
€30
€31
32
233
e34
€3S
236
23?
c¢38
€39
240
241l

eve
243
ey
e4s
S:é

30R(1032)

24-MAR-78
COMMON TRGS

001256
881557
ieb0
00:g6l
00leee
001263
NIi2eN

MSKTBL:

01285

377
177
07?7
037
01?7
007
003
001

001266
Gliz2e?
001270
001271
001272
001273

000
0S50
120
1?
e40
303

BHSE:

001274

000GCl!

CYLTBL:

001305
001306
001307
001310

000
ooy
Q0?7
013

SECTBL:

0013l$
00131
0013i3
N0I131y
UOIgIS
001316
001317
001320

000
000
000
oQo
000
000
000
000

001322
001323
001324
001325
001326

000
8188
coQ
000
000

001321

jolale)

001330
001432
001334
001336
001340
001342
88{3%4

000000
CJ0000
0009
000CO00
200000
172000
177400

259
260
261
ebe
263

001352
001354
001356
001360
001362

000000
004003
0OCO00S
003000
000000

NOe

PRGE b

?;;

SEQ 0026

;TRBLE OF CYLINDER BRSE FOR AUTQO MODE

077
037
4
1)
007
003
001

DRCNTL:

MODE
:
PRONUM:

DRIVE:

YLBAS:
OMND:
WRTNBY:
HORFLG:
ECNT:

;CYL O

120

CYL 80 BASE CYLINDER RDDRESS

CYL 120 BRSE CYLINPER RDDRESS
CYL 160 BRSE CrLINDER ADDRESS
CYL 19S BARSE CYLINDER RDDRESS

; TRBLE

SELECYED BRSES

:SECTOR O

;SECTOR M4

7
13

;SECTOR
;SECTOR

0
0
0]
8

; COUNT OF NgflgER OF DRXVES ON SYS. 1
;I1F -1 STRR
10 SELECTE
JIF 0 PROCESSOR SELEC ED
.Dgégi ,
§R
TE
(HflNaggTO
T
MODE)

0
0
0

IDEX:
STFLG:
OSPFLG:

TIMRE:

BASE CYLINDER RDDRESS

CYL 40 BASE CYLINDER RDDRESS

170
40
303

CNTSIN:

248
249
2SO0
¢Sl
2S¢
€3
esSY
2SS
ggg

09:23

7
12

19656 BRTYE

,DRXVE HHICN DIC WRITE (RERD OPERRTION)
,FLQG
HEQDER PRINTOUT
ERROR COUN
CON

OM.

C UNTER

asé TIMER

CURRENT INDEX @

001330

328 90130 009000

KYTEMP:
CONTRL :
DSKQC :
BUSADR

MRDCNT
CYLCNY:

SECCNY:
CHKCNT:
DSKTMP:
WRITCS:

RERDCS:
ERRF_G:
PRATTRN:

; TEMP,

; TEMP.

KEYBORRD BUFFER

88 TRTUS WORD

D
0
0
-6000

; TEMP, 0 SK
ESS WORD
s TEMP. Bga ROORE?S WORD
;TEMP., W
COUN
.HORD COUNT OF 1 CYLINDER

Tlflfn FOfi OPERRT]IONS

-40C

0
0
4003
S
0
0

ORD

COUNT

ECYOR

NUHBER ERROR PRINTOUTS
SQVE OF CURRENT DISK s
IBQ#uRITE*GO
REQD+
GO
ERROR FLAG INMIBI!T RDDRESS Ci4aNGE
L,ORTR PATTERN

O
M
c-

30R(1052)

24-MAR- 72
COMMON TRG

09:23

PRG £ 7

SEQ 0027

010000
000100
DO00%0

;BIT DEFINITIONS

35 54

uty

RN
Rs i8SAr8R3r8a8m8um8d fel8B8E8n88h8o8sR8eR

o04v=f0o=o=f0o=yo40o=d==0go=o=eo=leol=eo=]fof[)aleaflool=oll

MmmmmmmmmmmgeEReEe

D IRK - ['e .P

MACYll
1-DZRx I -E
24-MAR-78 09:20
1

MACY1l
MRINDEC-11-DZRKI-E
24-MRR-78 09:20
DZRKIF.PL11

30AR(1052)

CO3

PRGE B

09:23
e4-MRAR-78
ERROR POINTER TRBLE

.SBTTL

SEQ 0028

ERROR POINTER TRBLE

lTHIS T%LE CONTRINS TI'E INFORMARTION FOR ERCH ERROR THART CAN OCCUR.

& ‘ TION 1
Q ION SIT MB. H

IF SI {

.Norsa
0&

V¥

®
®
001434

ERCH T M

X_NUMBER FOUND IN
?éN?
ATES WH H ITEH IN THE TABLE IS PERTINENT.

ONLY PER PCN DATA IS (SERRPC)

IN TI( TRBLE CONTRINS 4 POINTERS FXPLAINED RS FOLLOWS:

; ;sPOINTS 10O Tl{ ERROR MESSAGE
THE DRTA HERDER
; ;POINTS TO

EM
DH

DRTA
; ;POINTS TO THE
1 iPOINTS TO THE DATR FORMRT

DY
OF

SERRTB
I!!!ll.llllil!llIlllllllllllillillllllllll’illllillllfllllllll!Il

;THE ERROR TABLE
SR

IS UNUSED IN THIS PROGRAM

RN AR

RN R RN

RPN

R AR

R ARSI RIS RARAIRRR N

B U"U‘lfi A23% £ & # P

e Pt
e

001100

MOV
RTI

K PBnd FEQERE

£L£

F4E FICERER K8 §
COTTTT

OO0

[y,

000004
001140
0OQli4e
1773%2

001140
00114e

022746

ggsm
gs“,ggg,g
FSR
0895‘3ISPLR "EET
SWR
,,mv TO ngmsi %mz

HOV
MOV
CMP
BNE

.c_a?x
8

6u4s:

B?}l

658
8658, (SP)

65%:

MOV
MOV
MOV

]

668

~N
£
£
-

708:

;;POINT TO SOF TWARE SWR
Eg‘sm
DISPLARY
1S4
:INITIARLIZE THE TTY INTERRUPT HANDLER

JSR

TYPE PR OGR

THE

INC

NAME

TYPE

GET VAL

IST

MOVB

;;RESTORE ERROR VECTOR

HE PROGRAM IF FIRST PRSS

;FIRET H_IF
TIME?_NO

]

6H
SWF ¥SUREG

;;SOFTW? SWITCH REG SELECTED?

YPE RSCIZ STRING

gcésm
rgn SOF TWRRE sfihcu
ut
704

708
81,8R/UTOB

F NO

..~ET SOF T-SWR SETTINGS
::SET ARUTO-MODE INDICATOR
T OVER THE RSCIZ

/< 15>« 12> /MAINDEC-11-D2RKI-E/<CRLF>
68%: stcxz <CRLF>/RK11 um.t'rv PACKARGE

001744

69%:

..m&‘cn?
sm IS NOT = -1
..aR
FNO T1
!SET UP FOR TRRP ns um

RRVEC

B8NE
cMP
BNE

000176

::BRANCH IF NO TIMEOUT TRAP OCCURRED

.SBTTL

001134

668

SASHR

000001

LEVEL

I&
; :Eouz&‘?“ %‘
!-(sg)

BNE

000042

BE CLEARRED

Pouzn FMLLRE VECTOR

:; TYPE

001670

T LOCATION TO

.Mw‘m xrN%Hrmsggnn IS
lSTRN'

.SBTTL

17272727

001140

SET UP STRCK FOR PSW=0

RETURN FOR RTI

MEMORY LOCQT?ON
OSLR Rs ; s DONE?
BRCK ]F NO
:;
THE éTQCK POINTER
as¥ack
p
%
vsc?
FEW
R
e
.,mmuz
RAPVT~
::TRAP VECTOR FOR TRAP CRLLS
-’

Y Ny Wy iy Y

000034

001600
000176
000174

;CLERR THE BUS

#STACK , SP

.,FI

001100

177570
1777277

S8MODE

3 ;CLE

001140

001572
177570

SEQ 0029

SHle m*m@ac;&s iySRren

001100

024230

80, - (SP)
w28, -(sP)

MOV

146

£££L

88888 =]

PRGE 9
09:23
e4-MAR-78
ERRCR POINTER TRBLE

STERFY: Sl

001312

8888 33838
8 888888 833388
3 888888888 88

[

oD@NoT (14
¥ 4

AR,

-3

SR UPRTERERN R

[
atagud o

wWwww Wi

MCY1l
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF. Pll

30R(10S2)

001312

bis:

678

TSTR

JwMNNE

00132S

¥ B9

29 S33yeRs

>—

o
N
]

B SRS 88 gesRees O

——

MACY1l
09:20

002200

002244

0022Ss0

002314
002314
002320
002364

002370

002062

104401
00042t

104401
000421

104401

oooMel

104401
000421

104401
000421
104401
00042l
104401
000421

00213e

30A(10Se)

EO3

PRGE 10
23
C
e4-MAR-78
OF TWARE SWITCH REGISTER
GET VALUE FOR

198:
108:
STRT!:

559%
dug:

ags“IZ
t

BQSCIZ

6%
15> 12> /INDEX

67%

bbs:

t8s:

::718:

00case

?0s:
.

002322

73%:

yos:

.-758:

002372

rd I T

::778:

002442

::79%:

goesie

?8s.

818

PPPard
L£L£EL PP PP

o ) 0 = Bt Bt Bt Bms
PNV OVONTNLW

-1s; THI
00e2see

TRBLTY:

65%
bus:

000010
002610
002614
002620

00ebee
001160

;PRINT ONLY THE FIRST TIME

§5;Lc

8EQ
JeP
INCB
CLRB

.. 69%:

002202

TSTB

NG :

TYPE

T;PE

.RSCIZ2
T;PE
.RSC12
T;PE
.ASClZ

T;PE

_.ARSCI1Z
T;PE

.RSCIZ
T;PE

(RSCIZ
TYPE

8SSCIZ
TYPE

BgSCIZ
RDOCT
MOV
cMP
BLE
ROL

SEQ 0030

TABLTY

STFLG
OSPFLG

65$
48

iSr

67%

X1
8s

;s TYPE RSCIZ STRING
:1GET OVER THE RSCIZ

:: TYPE RSCIZ STRING

:1GET OVER THE RSCIZ
;s TYPE ASCIZ STRING
:'GET OVER THE RSCIZ

15> (12> /COMPATIBLLITY PACKRGE
718

::GET OVER THE RSCIZ

738

:: TYPE nscx; STRING

<18><¢12>70SCIL_AING SEEK PRCKAGE

228
.:GET OVER THE ASCIZ
<I6>¢12> /FORMATTER-SURFRCE VERIFIER
758

::GET OVER THE ASCIZ

Yy
S~

:; TYPE RSCIZ STRING

rd-11
::GET OVER THE ARSCIZ
<15><12>/HERD ALIGNMENT ROUTINE
B1%
o}

: s TYPE RSCIZ STRING
T OVER THE ASCIZ
e

658

; : TYPE ASCIZ STRING

(15><12> /POMER FAYLURE (WRITE) TEST
4

: : TYPE RSCIZ STRING

rdY
::GET OVER THE ASCIZ
<15><12>/RK0S CONYROL PRNEL TEST s2
79%

: ; TYPE ASCIZ STRING

<15><¢12>/RK0S CONYROL PANEL TESY
77%

;s TYPE RSCIZ STRING

TYPE -

NAME

ey s

&/
7~

;:GET OVER THE RSCIZ

AS> 12> 15> 12> 7YYFE=/
(SP)+ K2

iGET THE TEETRBUHBER FROM THE OPERRTOR
iSTORE

#10,R0

:VALID NUMBER ?

JMP

aaegég<r')

TO THE SELECTED TEST
;G0

taBLTY

TYPE

NG
RO

iBR_IF NOY
'ALIGN THE NUMBER FOR DISPATCHING

FO3

SEQ 003!

CNLO—W

BEGIN:

PRARGE 11
09:23
24-MAR-78
GET VALUE FOR SOFTWARE SWITCH REGISTER
e

30R(10S2)

DOVVINIVINL
mmmmmmm
—
0OO0O0O0OD

MACY11
1-DZR KI-E
S4-MAR-78 09:20
1

.SBTTL

COMPARTIBILITY TEST

;ROUTINE TO PICK UP THE DRIVE NUMBER TO BE YESTED
:ON SYSTEM

SECT.3:

002642
002644

RUTSLE:

002650

g&gss:

002704
002710

gg‘;’*

; NO-OP

NOP
TYPE

65%

18:
001330
001330

TYPE
BR

¥4
6%

_RSCIZ

<15>¢12>/DRIVE NUMBERS ON SYSTEM 1=/

(SP)+,RO
JSDRCAT 1
JKYTEMP

{PJCK_UP 75 ngonsss OF THE INPUT BUFFER
S OF THE LOGICAL UNIT TBL.
;Gé? TH;
:CLEAR THE DRIVE COUNTER
:C §m TEMP

SuB
JSR
BR

860, JSKYTEMP
PC, STORE
18

;ir

BEQ
JSR

3¢
PC, ILEGAL

456, - (RO)

; WAS rg

H
%
JIF YE
CHARACTER JUMP
:IF NO BAD

BEQ
MOV

SECSY
8100000, (R1)+

(RO)+, OSKYTEMP

MOVE

JbKYTEMP
854,
18

CMPB
BEQ

2s:

cMPB

3s:

cHP

sDRVO R}

sLOGA,R]

DETERMINE

po3tie

003056

SECSYS:

é&gss:

THERE

"fi FIRST DRIVE #

IT c&m HAT WRS TYPED?
;}
YES GO BRCK
:1F

DRIVE &
: MAK nsc;x R
NS TIVE BRANCH
T POSITIVE JUMP
(1F
:AFTER En?amc Gg&_NEXT s

&y.s RESULT A TERMINATOR”

1S TD-E TABLE FULL

BRANCH
i IF YES
:IF NO FILL TABLE WITH DOWN INDICATOR.

1GO BACK AND CHECK
IS

SECONO

IF SO TO GET THE NUMBER OF

:DRIVE ON THIS SYSTEM

104401
000416

; ; TYPE RSCIZ STRING
*'GET OVER THE RSCIZ

MOV
MOV
CLRB
CLR

;SYSTEM AND
003050
go30<0
003CsH

{!GET OVER THE ASCIZ

<15>¢12>/TERMINRYE WITH *.<CR>'~/

8MI

:ROUTINE

;3 TYPE ASCIZ STRINC

CRSCIZ

RDL IN

e
L

002750

THE

TYPE

6S$

CASCIZ

(15>¢12>,15 THERE'A SECOND SYSTEM?~

:; TYPE RSCIZ STRING

:1GET OVER THE ASCIZ

e pt Pt Pt Pt Pt Pt Pt Pt P

)
S0?7

I-

B2 Bznn JSFEER KF£823Nez

828

48Y4
48s

IRSATA

482

483

38 883838 83388 g;?f Ei

MAINDEC-11-DZR
DZRKIF. P11

MACY1l
09:20

30R(10S%2)

COMPATIBILITY TEST
RDCHR

8813 0

1330
000131

001330

DO0l 16

001330

001313

001330
CJ1330
000060

001330

000010

001330

001330
040000
001311

001330

001166

sal

BADINP:

003360

00S 104

005632

:'GET OVER

sgc;vs

TYPE
R

65%
64s

RDCHR
MOV

(SP)+, J8KYTEMP

GOl:

GO03:

RSC ; STRING

,,TY

THE RSCIZ

;GO BACK ASK RGAIN

TWO PROCESSORS

;SET FLARG

lll

;s TYPE RSCIZ STRING
:1GET OVER THE RSCIZ

<15><12>/DRIVE & =/

KYTEMP
ko0, JOKYTEMP

Ri
ng
cx UP THE
RESFONSE

:E
-nnxe 1T A NUMBER

8M1

B8R0 INP

'1F NotA NUMBER,

BLE

8ROINP

uég JIKYTEMP

TYPE

655%

XT3

PRO2

MOV

BRANCH

xv: ® TO THE HIGH BYTE
? 8vsven BIT

vs c UNT
T 1
RCNt{,R
auvaEnp Locn(RqS
Y svsrsn 82 WORD
GO
0 o HE

THE

;{; IT R

iGET T
aoxvrsnp
6719 alKYTEHP ; r r

ggte
MOV
BR

CLRB
IS

77/

8377 ,J8PRONUM

.RSC12Z2

PRO1:

Go2:
DO4174

SWAB
BIS

GO:

DO11eM

CMP

:THIS

000002
001206

"E LEGAL (N ron NO)7
uasYSESgR
Ecng ?g

T+'oF
)

é&%SS:
001313

-115 JUKYTEMP
PRO

RSCIZ

L&gss:

003302

CH
BEQ

sége

003176

A CHARACTER
:READ

;EET THE RESPONSE

RSClZ

PRO2:

SEQ 0032

(sp>+guxvrsnp

TYPE

éé%?S:

GO3

PAGE e

MOV

TYPE

003154

000377

09:23

24-MAR-78_

,,TYPE ASCIZ STRING
'GET

8PRONUM

RCTURL

OVER THE RSCIZ

;GO BACK ASK AGRIN

!CLEAR THE FLRG ONE PROCESSOR

PROGRAM

CLRB
BR

I8 IDEX
Go2

8LOGA, RO

iGET THE TneLE ADDRESS TO RO

ADD

#2,R

: INDEX THRU THE TRBLE

BEQ
15T
BPL
BR
MOV
JSR
JSR
JSR

EXIT
(RO)
003
GO
(RO) 98DRACTY
PC,CYCLE
PC| WRL INK
PC. ROL INK

‘IF YES GET OUT
115 THE oaxvc ARCTIVE
:IF YES BRAN
INO TRY THE NEXT ONE
:PICK
THE ACTIVE DRIVE WORD
'CALL CYCLE (PICK UP DRIVE &, CYL BASE, aNo CALL MOUNT)
!CALL WRITE LINK TO LOAD REGYSTERS FOR WR1TE
'CALL READ LINK TO LORD REGISTERS FOR RERD

CMP

-ohvo.ao

:CLRB THE NS
:BRANCH ARROUND
INCREMENT ROUTINE

; DONE?

MACYI1 30R(10S2)

MAINDEC-11-DZRKI-E

DZRKIF.P11

24-MAR-78 09:20

?
88f§8£
855788
8833?3
338
540 003376 001414

54}

sS4
543

710

95'
)

003410
0034l
004N
0034

100770
01400}
883737
737

003426

000761

€S,
652

003430
003434

104401
000404

5S4

003446

Sy4
S4S
S4e
547

S48
549
€50

553

ggg

0034

003430

003446

005720

000137

0N0000

003436

563

003452

003462
0OC3456

003512

566
%4

003SJe
883255

568

569
570

571
5§72

573

574

6?5
576
577

578

6§79

280
S81
82

€83
S84
58S
586
S87
588
589
590
€91
€32

bys:

s, 059,R
nbgvo.ng
EXITX

sBIT1Y4, (RO)

EXITx
(RO)+

BMI
MOV
JSR
JSR

EXTFR2
-(RD),R!
PC,D0
PC . RDL INK

EXTFR2

TYPE
BR

.ASCIZ

658
4s

<15>¢12>/DONE!~/

;s TYPE RSCIZ STRING
t:GET OVER THE ASCIZ

IMP

JUSTART

:RESTART

IST

EXITX:

SEQ 0033

(RO)+

: WORDS FROM THE FTRST PROCESSOR.

Se4
565

N§
3

HO3

PAGE 13

:THIS 1S PROCESSOR 82 CODE. THIS ROUTINE RSKS FOR AND UNPACKS THE CONTROL

ggs
61
62

MO
XIT:
CM
Ex*lha:
BEQ

..£5§:

001440

09:23

COMPATIBILITY TEST

004250
005632

557

560

24-MRR-78

104401
000415

003460

5S8:

003S1°

012704

000200

003526
003S32

104401
9200405

003534

DO3ISHe

012703
012702

0035

000240

003552
003SSH
003555

104403
006
000

0035

003556

003562

003566
003566

003570
003572
003574
003576
003602
003606
003610
003ble

003616
003620

SECOND.

000001
001166

bys:

INSYS2:

.. 658:
gas:

010346

104401

000401

006000
103003
052700
0006241
006001

.ASCIZ

MOV

003564
iz,

000200
2%:

<(16>¢12>/COMPATIBLLITY-SYSTEME2/
#8200, R4

:SET UP MASK BIT IN RY

TYPE
BR

658
4§

. TYPE RSCIZ STRING
::GET OVER THE ASCIZ

.ASCIZ

NOP

<(15>(12) WORY
R3, -(SP)

:SET UP WORD COUNTER IN R3
:GET THE TABLE ADDRESS
N

THRR

:CET READY TO TYPE WORD COUNTER

TYPOS
.BYTE
‘BYTE

&
O

B8R

bes

PIGET OVER

(SP)+,RO
~Q,R1
RO
#177400, RO
8177400, R]
RO
23
$8177,RO

:PICK UP THS OCTAL WORD
:GET THE FIRST DRIVE TQ Rl
'GET THE SECOND DRIVE TO RO LOW BYTE
:CLEAR THE UNUSED BITS
:CLEAR THE UNUSED BITS
:ROTATE RIGHT RO
1IF CARRY IS CLEAR BRANCH
"SET DOWN BIT IF
CRRRY SET

_ASCIZ

RDOCT
MOV
MOVD

SWAB
BIC
BIC
ROR
BSC
BIS

177400
177400

;s TYPE RSCIZ STRING
s
OVER THE RSCIZ

#i . R3
sLOGA, R2

TYPE

;i678:

65$
4$

MOV
MOV

MOV

1044ll
012600
110001

000300
042700
042701

TYPE
BR

cLe
ROR

678

TYPE nscr; STRING

THE RSCIZ

!AND CLERR THE CRRRY
:NOW DO THE SAME FOR

8IT
Rl

MACY1l1l
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.Pl1

30Rt'105e?

09:23
c4-MAR-78_
COMPARTIBILITY TEST
3%:

000001
004030

BIS
MOVB
JSR
MOove

INC
EXITA:

608

L 1(R2)
PC' MASKER
RO, 1 (R2)
RY, (RS)
RY

(LAST WORD)
THE TRBLE
SFILL
SWITH ALL gxrs SET

#174000, (R2)

!CLEAR

INSYSR

T NEXT WORD

NOT DONE

:GO ggcx IF

DOWN AND SECOND SYSTEM BITS AT TABLE

;GST ADDRESS TO RO (CURRENT TRBLE)

sDRVO, R2

:TABLE FULL?

THE POINTER

:R0D 2 10

'IF YES BRANCH

oaxrxs (R2)+

IFILL THE TRBLE

(RO) R1

‘GET THE WORD TO Rl

PC 135K

GO BACK TRY AGRIN

PC.Dce

;FORM DRIVE 8 FOR MOUNT

PC ' RDOL INK

'RERD SRHPLS (RLL DRIVES)

PC. WRL INK

;unxrz NEW INFO

STRING

sss

.,rvpc

(RD), - (SP)

:GET WORD FOR 3YSTEM 1 AND TYPE

(15> 12> /DONE svéfen 2 RESTART SYSTEM 1, TYPE WORD /
4s

T ik

621

GO angx n«ga

Rg RO

R}, P2

003740

: IF ERROR SET THE BIT

.SET on'vz FIRST IN TABLE
i C % HE MASK CONTROL SUBROUTINE
cono N TABLE (NEXT WORD)
:SE onxve

MASK CONTROL SUBROUTINE
:CALL THE
: INCREMENT THE WORD COUNTER

FIL.DN

29:

SEQ 0034

PC. MASKER
R3’

1coco0

[eadeadoatoafanlsads
oo aloadoaloals gl
U=t o s et s et s e e (O
NOoMONTNLW—-OW

oeIT7,R1

(R2)+

FIL.DN:

001208

I03

EXITR

EXITB:

174000

PAGE

OVER THE RSCIZ

1S:

:HALT

(FINISHED SYSTEM

:GO BACK TO HALT

#2)

; THIS ROUTINE SETS UP THE MASK BITS IN THE LOG TABLE FOR

R DRIVE IS DOWN NO BIT IS SET BUT THE MRSK
‘SYSTEM %2 IF
11S SHIFTED.
005712

MASKER:

100uN]

;ST

RETRNY:

003662

040000
004056
004062
004064
004070

18:

003654
000002

(R2)
RE TRNY
R4, (R2)
RY
18
8EXITB, (S5P)
PC
8BIT14, (R2)
cs
SEXITR, (SP)

82, Re
PC

cs:

;IS THE DRIVE UP

xr NO, BRANCH
VE THE MRSK BIT InN THE
nornrs THE MASK

:DONE?, IF NO, BRANCH
:SET UP FOR RETURN
s 1S THIS SYSTEM & 2'S DRIVE”

:IF NO,

“RANCH

:SET UP FOR RETURN
; INDEX THRU LOGA TARBLE
RETURN

;ROUTINE TO BUILD THE RCTIVE LOGICAL UNIT
oo4G07e

0e2737

000010

D00133u

STORE:

CMP

810

TBKYTEMP

THBL

; IS

TRELE

INPUT R LEGAL NUMBER”

MACY1l
24-MAR-78 09:20

MRINDEC-11-DZRKI-E

nn KFns2R8E8TeZR

££

£k

Bt Pt P

s Gt P

35 £939933998988°

DZRKIF.P11

30A(10Se)

PRGE

09:23
24-MAR-78_
COMPARTIBILITY TEST

BLE

003417
00

SWAB
MOV
CLR

INCB

JO3

ILEG L

JSKYTEMP
J8KYTEMP, (R1)+
JAKYTFMP

J¥DRCNT

CMP
BEQ
RTS
TBLFUL: sgg

$DRVO, R1
TBLFJC
PC
;gecsrs (SP)

ILEGAL: MOV

8AUTSL2, (SP)

TYPE

é&gss:

.ARSCI1Z

/ILLEGAL

RTS

INPUT/

SEN 0035

s IF NOT BRANCH

'ALIGN DRIVE 8 FOR TRBLE
:PUT THE
WORD IN THE TABLE
iCLERR THE TEMP WORD

: INCREMCNT THE COUNTER

'1S THE TABLE FULL”?
nucu
JIF YES
:IF NO RETURN
éETTQBLE FULL SET UP FOR SYSTEM 2

:IF ILLEGAL RESPONSE, GO BACK

P TYPE ASCIZ STRING

:iGET OVER THE RSCIZ
: RETURN

; THIS ROUTINE GETS
A DRIVE # AND BUILDS A TRBLE OF

:CYLINDER

ADDRESS FOR USE BY WRITE.

(RD)=RODRESS OF ACTIVE

SWORD IN LOGICAL TRBLE, IT ALSOsefs ANC CLERARS THE MASK BITS
:OF THE TRBLE RS OPERAYIONS INOICATE
CYCLE:

040000

4s:

CMP

R2, (R3':

:C.EAR BITS TO SHOW OVER-WRITF

BNE
SWAB

2s
R1

NOVB
BIC

R1 na
23%0

ROL
ROL

Re’
Re

snxrr HE onxve s 10
ALIGN 1T FOR THE DRIVE ADDR.

:THERE

CMP

NOP

Q00
oun
nmn
PN
aN

MOVB

001321l

:GET TABLE RDDRESS TO R3

:1S ACTIVE RDDRESS=TO FIRST ADDRESS

BIC

B8R

ROL

MOUNT :

IGET THE INDEX VALUE
:GET THE MRSK TO R2
:CALL THE MASK SUBROUTINE
PIF NO BRANCH
‘1F YES SET BITS TO SHOW WRITE

MOVB

0013S3
001335
004316

oLbcn R3

1IS IT ON SYSTEM w2

38
R2, (R1)+

BNE
i

ROL
ROL

00000

:IF NO
NCH
1GO TO SYSTEM
#2

RO, R3

000370
001314

112737

cycL2
a-secoue

es:

Do2:

001324

:GET THE LOGICALUNIT ACTIVE WORD TO Rl

duICE
nsxTeLtR3> R2
C, MASK

3$:

001206

(RQ)

oexrlw,nx

cYCL2: MOvB
MOVB
CYCLE2: JSR

LDFLG: MOV

QULLRRRKRYGRR

BIT

BEQ
JMP

006752
001324
001256
005234
001166

004316
o04222
004324

MOV

ys'

sORVO, R 3

R2, abonxvr
CH
Re

RS, J¥DSKTMP+
|

:BRANCH TO SEE IF

DONE

; DONE

GO RRACK
:IF NO
iGET DRIVE # TO LOW BYTE

;RN

SGET
CLE

IT T0 R2
THE unuseo BITS

IKEEP IT MOVING!
iA LITTLE MORE'

IT 1S

JSR
RTS

PC. MOUNT
PC

RS, JSDSKADR+!

;GET IT TO DISK ADDR. TEMP.

rgge

I8 IDEX

xncnenenr THE INDEX

MOVE

85, JUECNT

ssr ERROR CNTR T0 §

: CALL MOUNT
: RETURN

MACY11
MRINDEC-11-DZRKI-E
o4-MAR-?8 03:20
DZRKIF.PL1
206

707

004340
004344

104401
000414

004346

004376
004376
oo44Q2
DO440M
O0440S
oo4406
oo4Mie

013746
104403
001
000+
104401
00o0ou1S

001314

004446
004446
po4sse

12401
000420

Ogu4E LN
004514
008516
ooMSe2

000000
004737
000207

30AR(10S2)

(09:23
24-MAR-78_
COMPATIBILITY TEST
14

TYPE

PRGE

KO3

65%

SEQ 0036

,,TYPE ASCIZ STRING

.. 558: .RSCIZ (15>¢12> /MOINT Phéx ON DRIVE 8/
gas:
4§

MOV

DRIVE, - (SP)

.BYTE
.8¥TE

1
O

TYPOS

D044 1M

gg27’=
004454

éégqs:

TYPE
BR

,.co

IVE FOR TYPEOUT

Y E--ocrnL RSCI1

SITYPE | DIGIT(S)
: SUPP ss ERDING ZEROS

678
6%

i i TYPE RSCI¢
STRING
T OVER THE ASCIZ

TYPE

69%

;3 TYPE RSCIZ STRING

PASCIZ

« CONTINUE WHEN DRIVE RDY/
12> /PRESS
18>

PASCIZ <18><12> /MAKE PAEK WRITE ENRBLE/

HALT

JSR

oous2Y

T OVER THE RSCIZ

RTS

PC, INITIL

GET OVER THE ASCIZ

sCALL INITIALIZER
i RETURN

: THIS ROUTINE INITIRLIZES A DRIVE AND INSURES THART IT IS RERD

'WRITE ENRBLED, IT IS ENTERED FROM MOUNT OR FROM EXECUTE IF © PERRTION FRILS
INITIL:

MOV

RO, - (SP)

CLRB

JeTIMR2

MOV

RO, 9RKDA

BMI
INC
BNE
TYPE
BR

2s
J8TIMR
{3
65%
qs

:IF YES BRANCH
SIF NO INCREMENY THE TIMER
ZERO BRANCH
;xr{;éncn NOT

RO, RKDA

:DRIVE NUMBER TO 'DA’

INITI2

:GO

:IF NO,

MOV
BIC
INITI2: CLR
NOP

00000&

174606

18:
004610

L&%s"
2s:

174530
174512
oc4eke

éég7s:
000040

000414

004754
0C475y4

000670

00 +724

'74450

3%:

.698:

égS:

MOV
JSR
1578

LASCIZ

MOV

1ST8
BMI
TYPE
BR
"ASCIZ
BR

BIT

BEQ

TYPE

J80SKRDR, RO
81777 RO
JsTIMA

81, JRKCS
PC' SMTHE
JRKCS

; SAVE RO

:GET THE DRIVE 8 TO RO
:CLEAR THE UNUSED BITS
:CLERR THE TIMER
lll

GET DRIVE # TO 'DR’

xssue CONTROL RESET + GO

;:DID CONTROL RERDY 3ET

5T
RSCIZ STRING
;-cgr OVER THE RSCIZ

<15><12>/CONTROL RESET TIME OUT~/

JRKDS
:1S DRIV neaov
IF vEs
3%
£7%
,.TYP qscx; srnvnc
tes
GET OVER THE RSCIZ
<18><12>,DRIVE NOt READY~

881 TS, ARKDS
69%
as

.xs

REG.

BACK TRY AGRIN

IVE WRITE LOCKED?
BRANCH

..rvps RSCIZ STRING

OVER THE RSCIZ

.ASCIZ <15>¢12>/DRIVE ukire PROTECTED~

INITIZ

:YES,

GO BACK TRY AGRIN

MACY1! 30R(1052)

MAQINDEC-11-DZRKI E

DZRKIF.P11

763
7E4
;gg

004762

010077

179410

004766
00NT
005000

862777
4737
{83532

0CO0LS
00S614
17930\

17437+
174350

768

00S0iM

005006

032?77

00UI00

771
772
773
>

005024
00S030
0050
005636

105737
001003
105237
000760

001323

776

00SOM0

104401

00S0O46

767

001031

769
00S0i6 005237 001346
770 CJS022 001356

775

777
778
779
780
781

;gg

005040

00S04WM
00S07&

005076
005100

005102

0O04I4

790

00S1ie

105037

001316

113701

001314

005110

000240

005116

006101

796
797

005136
005144

000207

005is2

013737

001362
ggxgga

001336
001340

032737

000020

001334

g2 0C0?53
105137 001362
005206

005164

803
804

005174

205172

134

NCH
no
xnenensnr
THE TIMER
:GO'BACK AND CHECK IF TIMER NOT O

718

,,TYPE ASCIZ STRING

BR
MOV

us
(59)»,90

001006

000020

001334

005210

042737

000020

001334

005222

005202

005230

000742

RTS

co aocx TRY AGAIN
; RO

EYURN TO CALLER

00S224

305137

001362

004737

00S31c

CLRB

J8COMND

xnoxcnrz WRITE OPERATION

MOVB

aaonxve R1

chx UP THE DRIVE o

SE URN

NOP

ROL

MOV
JSR
BR

RTS

MOV
MOV
MOV

ocon RL

BIC

#BITY, 28DSKRDR

881

T4 J8DSKROR

J8PATIRN
2$

#81TY, JUDSKADR

T THE

:WAS

THIS
S

n5x
T
REL

JSR

PC, CYLOFF

-cs

iRETURN

E ;

WR]TE SURFACE ~1%?

nuL Exscurs

HRU SELE reo ch

RETURN

: THIS ROUTINE EXPECTS TO FIND R MRSK

+ STATUS WORD

HSK rga §ggr

aopnT?
R2

CONYROL

.cth EXECUT

comB
INC

F LAST BASE

sPATTRN aaeusnon ,oET THE RDDRESS OF THE OUTPUT
ocv
gnf
NT' 257 THE ugzg ¢

BNE

coMB
BR

*r NOT LAST BRSE

TURN

c ;xzcu*

BIS

3§:

IT A WORD

onv0(nx
aopnrvnfi PI
K UP THE DATA
PRTTERN
PC, CYLARDR
L CYL
RDDRESS

JSR
BIT

[@]
n
Q
~N

o
=]
N
4]
W
n

00Scib

2§:

001332

052737

IN R2,

xngc ALUE

nons

OFFSET

TRBLE

T0 READ

HERE IF FINISHED

AND FROM THIS MASK

:BUILDSA TRELE (nr CYLTBL) OF CYLINDER ADORESS OFFSETS; THE TARBLE
‘1S TERMINRTED BYA 377

g
6

*IF YES

6S:

WRLINK:

012737
8137

800

809
0

JETIMR
SS

in218:

000401

005134

799 005160 004737 005402

807

JNTIMR2
78
8T IMR2
cs

005132

B80S

TS18
BNE
INCB
BR

794

.0c

RERO/HRITE/SEEK RERDY BIT SET”

208
GET OVER THE RSCIZ
<18>¢12>/DRIVE RESET TIMED OUT/

792 005120 016137 091206 001362 1S:
793 00S1c6 COM737 005302

QQ]l

#10C, JRKDS

: ISSUE DRIVE RESET + GO

'EXECUTE ROUTINE.
1T FORMS THE ADDRESS AND SETS UP ALL THE
'REGISTERS FOR THE WRITE OPERATION
00S104

798

:GET THE DRIVE # TO ’'DAR’ REGISTER

8.8 JRKCS
PC, SMTME
ggkcs

:THIS ROUTINE TAKES CARE OF ALL LINKRGES FOR THE

788

795

RO, 9RKDA

TYPE

SEQ 0037

B8R
CASCIZ

*s:

765
;gg

791

LO3

PAGE 17

BNE

INC
BNE

060207

MOV
JSR
ggla
BIT

001323

789

MOV

SY:

000727
0£12600

09:23

COMPATIBILITY TEST

(72}

762

24-MRR-78 09:20

24-MARR-"8

005234

010546

MRSK :

MOV

RS, -(SP)

:SAVE

MACY11l
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.PL1

B8 BP3548

30RC1use)

000200
001274

PAGE

09:23
24-MAR-78
COMPRTIBILITY TEST

18:

2s:

CLR
MOV
BIT
BEG
MOVS
INCB
ROR

MOV

000377

RTS

#200,R3
RY
#CYLTBL,RS
R2,R3
2s
R4, (RS)+
RY
R3

gp)s g

SEQ 0038

SET UP THE COMPARE MRSK

T AOPERoER“DABEE moDRess
Sk?
S THE MRSK BIT SELECTED IN BRSE

IF NO_BRANCH
iMOVE THE CYLINDER BASE TO THE TRBLE
: INCREMENT THE BASE
ROTRTE THE COHPQRE MASK
BRCK
F NOT DONE
n FINISH FLAG

i,
{RETURN TO CALLER

s THIS ROUTINE FORMS A CYLINDER ADDRESS FOR BOTH THE READ AND WRITE ROUTINES

CYLADR:

MOV

8BRSE, R3

CYLOFF:

MOVB

(R2), R4

CYLARD2: MOV

NOP

CMPB

000377

BEQ

BRSINC:
001274
000002

RETRN3:

GET THE SELECTED CYL VALUE TO Ry

,TS IT THE TRBLE TERMINATOR?

ADD

(spy+ RY

RND I TO THE SELECTED OFFSET

ROL
ROL
ROL
ROL

RH
RY
RY
RY

ROL

001334

8377, R4

ensxhc

;GET THE CYLINDER TABLE RDDRESS

'GET THE SELECTED CYL BASE ADDR.

-{35P

CLR

D17777
001434

sCYLTBL,R2

; IF_YES BRANC
.INSURE CLEQNRD

MOVB

—

SRR

0 BBR2
>
)
e
n
V
1o9%
of
A F ERTER
wWo g94Y 2222220
o
25200

'WHEN THE BRSE TABLE 1S FULLY INDEXED IT RETURNS TO PC+2 OF CALLER

(R3), <>°)

HE CYL AODRESS ON THE STACK

?H TH1 ?
RESULT

Ay
;STORE THIS IN DSKROR

BIC
BIS

8017777, 98DSKADR; CLEAR ALL BUT DRIVE NUMBER
;PUT
IT IN DSKRDR
RY, 3#0SKROR

INC

;PICK UP ADDRESS OF NEXT BRSE CYL.

CHP
BEQ
SR

$CYLTBL,R3
RETRN3
’
Cri

RTS

{ARE YOU FINISHED”
iIF YES BRQNCH
iNO_ GO~
BACK
iSET-UP FOR PC+2
: RETURN

RTS
NOP

aoo

PC’

ll'l

82,
(

;ROUTINE TQ PERFORM INDICATED FUNCTION AND CHECK FOR

; DONE AND ERRORS
005402
005406
005410
005414
005422
005430
005436
005444
005450
005454

EXECUT:

001346
001323

001334

17375S4
173744
173734

173724

173714

CLR

;CLEAR THE TIMER

HQLT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED

NOP
CLRB
MOV

IS8TIMR
@9DSKA0OR, JRKDA

MOV

J8CONTRL, JRKCS

LOQD
:LORD
:LOAD
.LORD

JRKCS

;1S CONTROL RERDY SET

MOV
MOV

JSR

CHECK]: TSTB
BPL

@8BUSADR. JRKBA
SLRDCNT| JRKIWC

PC, SMTME"

CLERR CONg

s KILL

THE DISK QDDREbb REG. bTER
THE BUS RDDRESS REGISTE
THE WORD COUNT REGISTER
THE CONMTROL REGISTER
*HS FOR RK11-C

IF NO BRANCH

MARCY1l
MRINDEC-11-DZRKI-E
DZRKIF. P11
24-MAR-78 08:20

881485

005037

80820

005237
1

“3

10S
CN1003
105237
07S

%73

104401
000426
000673
012737
005337
001375
00020?

30R(10Se)

e4-MAR-78
09:23
COMPATIBILITY TEST

001360

18:
TIME:

001346
001323

18:

00452
005536

000S0O0
001346

L&ES”
001346

SMTME:

18:

-ganonv

Exzcur

: TRY AGRIN

TS
INC

c
J8TIMR

BN$
7518

CHECK ]
daTIMR2

NOP

SR
TYPE
BR

FRY

O 000w OO ODDDDODDOD00DD
lal PUNUMNY
P
e e e be b e b bt
e e
w N—-OLDONICNLWU—0O
m
oTM

308
309

005650

DEC

JeTIMR
g

00Sb6S6
00

doorcoe
031206

005654

RO1
'

RD2:
RD3:

177770
001317

ggéggs

ggo

.genl

Che

EQ?¥3'R‘

00:336

R0S:
ROG:

A DRIVE

IS RCTIVE

FROM A

AND THE

:SAVE
Il!

S TR
HE SECTOR TABLE RDDRESS

SKIP ovsn rutnéngg FIRST FASS
;,_e Sol TRy THE ENYIRE TRLLE

T
R

(RL)
RO1

MOV
SWRB

RO, R2
RO’

MOVB

RC, 3suRINBY

MOV

gRVO(RO)aopnrrnhP cx

%ER

PSQCYLQDR
GO FOR" “REY&INBST
LQST sas: RODR.
nabsre, 200 mOhxr %¢5;H§as
xnooczzs?‘?s TURN HERE

MOV

JSR

PATTERN TO “PATTERNTM, ANO THEN'CALLS ARDCRESS
RO, - (SP)

ROL

001362

001334

TO_SEE

GEYS THE READ MASK TQ R3,

MOV
NOP

BIC

005302
1352
1334
007356

;

N i
MOV
osecréL RS

001316

.,TYPE ascx;
STRING
ET OVER
THE

Exscur
9500, 98 TIMR

BR
MOV

:EXPECTED DRTA
:CONTROL.

l1bb
00130¢<

:1F YES BRANCH
s INDICATE SECOND TIMEOUT
:GO BRCK

.RSC12 <1s><1a>/rzn£o 00* on OPERATION RETRY IN PROGRESS~/

RTS

0377

; SECOND TIMEOUT?

INITIL

: THIS ROUTINE CHECKS

'26‘0‘4

;RRE

18
J8TIMR2
SHE?Kf

BNE

RDLINK:

F NO BRANCH
:CLEAR THE FLRAG

i
J8ERRFLG

;WRITE OPERAT]ON

00s632
00S634

SEQ 0039

J8ERPFLG

BNE
INCB
R

001323

NO3

157

BtQ
CLR

0C1360

PRGE

g¥§e
MCY
NOP

(R1) . RO

8177770, RC

RO’

;fg YH§ Snivcuncrxvs
:fr NS cgfigfigxr WORD
s

"GET

THE

ARCT

'E WORD

TO RO

SCOPY THE .uRD
{GET THE on;v; 8 TO THE LOW BYTE
'CLR R%L

,snv:

IVE »

% IT AN x

DRIVE

TR PATT

uanourxu

oSu 8 §
8 R BITS IN DISK RDOR.
nAusu#r J86JSADR’ csr THE BL:FER ADLR.
loc

DU £ £ 322 R S 2o
XA

L
FE 3 EEFRRRKE

MRCY11 30R(1052)

1-€
09:20
24-MAR-78

356

¢ 4
&

001332

09:

24-MAR-78
v ng?
conpmxeu?r

MOV

JSR

3% oo133v
1311
8&% - 3N
001334
e

# 000020 00133 RO?:
33:22

0007

ooos;g
01

00S.

032777

s THE

173260

001321

gsesa

;;;

177}
05337
1106
505737
001421
10440]
000415

000015
177777

1
173156

000100
001322
001321

006250

GLRTTM
Eufiis,'r
HJIF
;
sAkE

IN DISK AODR ’
2ToR
3 uag BITS geérom
SECTOR POINTER
<1* THAT WAS RERD?
- BIT
Ti’gm

},p

(SP)+,RO
P?
'

'?‘ IS

§ F

81T

FAct

NOT THE

TED CYL TABLE POINTER
LAST BASE ADDR

&T !;(‘? uog-onxvs FINISHED

;REST
:filfi
T0ROMAIN LINE CODE

ccxwr:co:cxsxrmsmoccmo

novJSR
MOV
TST8

BPL
DEC8
BNE
P

.
RE
8140000, IRXCS

3%'9' ¢
8-1,
62‘ JERRFLG
ge;cm
s¥Sny
)

#10 0,

TRY

IRKDS

;rm? ERROR OR ERROR SET?

Topetite

g fec. ot

Efr 5’85.
CN
SET + GO
;FLAG
AN
TE OF RDOR)
RESET)
CNTROL
ROY B ( 'T"Et; w%g“RUN
;cn‘?ga.
STARTIC)
HERE
s IF
. DEC
:

:IF HE

MAIT,

;ée:"x INC

(]F

S TIMES?

HAVE OCCURRED

ETE SET?

BEQ
MOV
MOV

RET
815,
JRKCS
o-1 agmu:

:
H IF NO
JIF YES xagus DRIVE RESET, GO
IFLAG RN ERROR (PREVENT UPORTE OF ADDR)

BIT
BEQ
DECB
eng
RESTRT: 1STB
NOP
BEQ
TYPE
8R

8100, IRKDS
28
SCNTSIN
7
SECN
13
s;s

i "R/W/S R?N)Y" gxr SET?
DIF NO WAIT! (IF MUNG HERE RUN STATIC)
:DECREMENT SEEK INCOMPLETE COUNTER
SIF 3 'SIN’' ERRORS FALL THROUGH

173174
17315k
28:

173142

OFF

1000 173202 TSTSNi: BIT

1
01
012777
i

n?s

;86 HE R “Ba

T4, UOSKAOR § CLE?

g&la

WRITING
iON
ERRCHK: BIT

o
12
oossxtlo 17
o
173230 173224 18:
1
1
1

01 BebtkROR
1,RS
T
?-o'lloagnm
T, J0DSKADR
Jemat

EXIT2:

140000

aTe
gz
MOV
E'%
1
Sone

READ CONTROL WORD

S.J8CONTRL ;

cut

gc.

BO4

PARGE 20

éé‘gss:

JSR
ggle

LASCIZ

pC, SM¥mE
ggkcs

[ RER

: s TYPE RSCIZ STRING
GET OVER THE RSCIZ

«<15>¢12>,3 *SIN’' ERRORS OCCURRED~

SEQ OO40

09:23
24-MAR-78
MACY1! 30R(10Se)
COMPATIBILITY TEST
24-MAR-78 09:20

MRINDEC-11-DZRKI-E

006344

58 3 g E%gh

=5880s

NN
W
fl

;3 TYPE nscxz STRING

OVER THE RSCIZ

1STB

J8COMND

r;sr THE COMMAND

RDD

a4, SP

{POINT TO' SAVE RO

"ASCIZ

~ DRIVE DECLARED DOWN!! NOT TESTED !/
(3#)4 RO
#81T18, (RO)

:
RO BACK
:SET THE DOWN BIT

881715, (RO)
8STRCK | SP

iSET THE DOWN BIT
:RESTORE THE STACK

JHP

Socox

RETRN2:

RTS

BRANCH

RTS

BIS
MOV

001320

?_ 750K

Bass

698

68%

3s:

ROCHK :

e 2888

g T

[

16>

{RETURN TO MAIN CODE

; THIS ROUTINE CHECKS A SECTORS WORTH OF DATA ON R RERD OPERRTION

ogggyr

1518
BNE

§§Hoanc
3

R:OR

anh# HEADER FLAG
EA:ERR§HE
!l
i PU COUNT IN CHECK COUNT
E_ADDRESS 1O Ry
;

aucuxcn7

R, RS
RS, (R4)+'

; T 7
,

E
i1

sss

cgsgsoa R TO RS

FLAG CLERR
ADER
H

TYPE RSCI

TRING

L&gss: .RSC12Z <1§><12>/ERR0R~ oa°5 u3v$ENHSY
oaxvs ’
'

0013c0

BISB

MOVB

TYPOS

8377, J8HORFLG

JeWRINBY, -(SP)

BYTE
.BYTE
TYPE

)

.ASCIZ

TYPE

gég?s:
0O133v

MOV

g;ws

: SAVE

MOV
cng

18:

sg,-zsn;

CLRB
MOV

001350

006520

00660+

:83

NOP

001320

006634

013746
104403

678
,.TYPE ARSCIZ
RSCIZ
HESTRING
2/ ;
: occunnso
66$
<12>/6 ERRORS’

{17 ALLOWS 5 ERROR PRINTOUTS PER SECTOR

w
N

% "5533 a2 &3;

;;

'y
&®8

;

e
o

100000
001100
003324

SEQ 004!

MOV
8IS

..878:

"ASCI1Z

BPL

%&S:

006646
0060652

TYPE
BR
TYPE

001316

REy

29:

gégqs:

000377
001317

ngrs

00000S
007356
001362

T e
Y
Y

18:

100000

e e

ol
O

e Pt Bt Pt
e

Y O

£eq 52

BRERRIER2
T4 ST 43
ER 85828

3 %3N0 doou1d

o06304

006312

0000000000

Y Soy WPy Sy DN

Uy Wy WPy Sy Wy S

DZRKIF.P11

co4

PRGE 2!

’

678

s s TYPE ascxz STRING

:1GET OVER THE RSCIZ

ggs

..TYPE RSCIZ STRING

.~ CANNOT BE RERD.’

MOV

J8DSKADR, -(SP)

_RSCIZ

F
;SET THE HERDER

PICK UP THE onxve u THAT WROTE

<15>¢12>/

::GET OVER THE RSCIZ

ADDR=’

;PICK UP THE RDDRESS THAT FAILED

MACY1l
MRINDEC-11-0ZRK]I-E
e4-MRR-78 09:20
DZRKIF.P11

{845 BBgeee

g
g

006662

24-MAR-?8

?9325

006664
56;1;:

006710

1715

$08

¢$;ON

RS, - (SP)

.RSCIZ

EXPCTD=/

738
TYPE
e
BR
RECVD=/
7
"RSC1Z

SEQ

:; TYPE RSCIZ STRING

: 1GET OVER THE RSCIZ

;PICK UP THE EXPECTED DRTA (GOOD)

TRING

,,TYPE R cx

HE écxz

¢$;°N

-2(RY), -(SP)

sPICK UP THE RECEIVED DRTAR (BAD)

001350

DEC

QUCHKCNT

;

BNE

010356

3s:

Y O

ys:

ggg
MOV

MOV

RTS

SMANSEL , RY

(SP)+,RS

‘8p)+.RY

ms cuecx COUNT
v%m

nLL HECKS’

;

-R

runn TO CALLER

A TRBLE OF Pnnnnsrens TO PRSS TO THE SECOND SYSTEM
: THIS ROUTINE BUILDS

PIT PACKS THE INFO FOR TWO DRIVES INTO ONE WORD

RREEE
i
ERRRESS 5 EAREEEY
888

383 588 3 29

007026
0070

Why»—

PAGE 22

177776

S
e
S
e
Y
e e

e e

Y e

QO00QQOQO0O0O

e
Y e
e
e
Y S
L
Y
[

09:23

COMPATIBILITY TEST

5é§3"

FRELR 33 BeRRTERas dadJotald \J\J\Jg 2IR R TR ETATAATARIES :

Y Sy S Wy e

1044

30R(10S2)

001256

001246

001166

SECONE: CLR

6S:

-(R2)

18:

177400

000001

000360
001246

2s:

g:nsru,R2

MOV
SWAB

(RO)+.R1
R1

TPICK
H?
VE 8 TO THE LOW BYTE
IGET H;

ROLB

:ROTRTE THE BYTE,

Tgra

MOVB

R1, (R2)+

MOV

sPASTBL , R2

505

S?E

gxéa

BR
MOVB
TYPE

é&gss=
007126

égg7s:
4s:

OHEKTBL,RE

:CLERR THE WORD COUNTER

X212

CHP

BIC

007046

00720¢

NOP
MOV
CLR

BR
"ASCIZ
TYPE
BR

sLOGAR, RO

0177H00.R1

.csr HE acrxve TRBLE RDDRESS

i CLERR

UNMANTED BITS

WRS DOWN SET?

ogxro.nx

14 "orfiz 33VE RS DOWN IN THE TRBLE

1360 Rl

' ZLERR

18
R1, (R2)

iGET THE
IGET T

{3 Tuasxgns gvsrsn 82 DRIVE”?

THE Esuseo BITS

:GET TH]S @ TO THE

iREST
i

YPE

PRSS TABLE

NEXT
FROM ACTIVE TABLE
nsv DRIVE TO THE PRSS TRBLE

Hs rgs&s POINTER
12

X1
ovsn THE ASCI2
<15><12>/LOAD AND' STRRT RDDRESS 210 ON SYSTEM s2~
67%
6%

,.rvpc RSC1Z STRING
:1GET
OVER THE RSCIZ

JASCIZ

<(15>¢12>/AND TYPE' THE BELOW WHEN RSKED FOR IT.~

INC

TYPE
8r

698
£8s

s INCREMENT THE

::TYPE RSCIZ

WORD COUNTER

STRING

;;GET OVER THE ASCIZ

0042

S9R25RCB38 =3

e $e P Dt e et (ot Bt Pt Gt s (ot e Bt D B ot e ot Pt et Pt Bt ot s Bt Pt ot Pt Bt Pt P b o s Pt Pt Pt P Pt e Bt et ot e ot Bt it Pt e P P
nonnEeErL
£
nN—0Oo@~N
NLEWNN—-ODONOCN
LW
@~
W~
DOLDONTNLEWNN—~0OW

e ()Q

3
Pt s Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pra Pt ot Pt et et ot P Pt Pt P Pt Pt P P Pt o Pt P Pt P Pt Pt Pt Pt Pt P P Pt %R

MACYL!
-DZRKI-E
24-MAR-78 09:20

010346
104403
006
000
104401
OUC40!

30R(10S2)

o2\:

;GET THE WORD COUNT ON THE STRCK

0715

007234
-718:

;GET THE FIRST TO THME STRCK

4s$
-(RO)

RETFR2:

65S

64§

< 15) < 12) /HWORD=/

; ; 658

b4s:
177400
001166

(R2)+,-(SP)

88IT1S, -2(R2)
3
#BIT7,-2(R2)

S%:

007276

;;GET OVER THE RSCIZ

000200

;s TYPE ASCIZ STRING

/=7

100000

104411
012602
o

SEQ 0043

R3,-(SP)

;GS:

104401
000404

EO4

e4-MAR-?
COMPATIBIL

;WAS THIS THE TABLE TERMINATOR
; BRANCH IF YES

: TERMINATOR?

; IF NO BRANCH

;s TYPE RSCIZ STRING

; ;GET OVER THE RSCIZ

;GET THE WORD FROM SYSTEM 2 TO TABLE

; SET POINIER LOGOK FOR FIRSY "UP* DRIVE

;ORIVE UP
; IF NO BRANCH

18:

001100

s RRE

:CALL DO2+

004224
00S63e
001130
003372

:CALL RERD CHECK

;GO TO END OF TEST
400

ROBUFF:

010356

010360
010360
010364
010370

; TRBLE

MANSEL
:

104401
000401

010366

BADONE:
s 659!

é“i:

65%

313
/7?7

TERMINRTOR

1 TYPE RSCIZ STRING

;1GET OVER THE RSCIZ

OSCILLATING SEEK ROUTINE

RRZORCBBBIRRLOEE3B
VR REERIBII YA 2SS SEIEREERIESEIFRE =m

KP 4

3
Pt s Pt s Pt Pt it Pt et Pt Pt Pt Pt Pt Pt it P Pt Pt Gt Pt st Pt P P Pt Proct Pt Pt P o ot Pt Pt Pt Pt Pt Bt P Pt Pt Pt P s Pt s P Pt P Pt P st P P Pt ;H

MACY11 30R(10S2)

e o § o e e

09:20

s ot P

MOV

1s:

e
Pt pe

000~
r—-

;

[

g RRARRR
n PEFGE

8 AR

nNoeeNO

88
o8
558
n
7=n 8
e2 NN
Fs 3 ok N=h] 3 W~N 8% S
o~Ne 3

170714

170670

170640

170630

(RO)+

18:

1578

achs

MOV

.DRIVO RO

2s:

ggg

MOV
JSR

N A TRBLE STARTING

ORIV

' THE DRIVE #

: 0000, R1

KCS

MTME

:SET THE TERMINATOR TO THE TRBLE
: ISSUE CONTROL RESET + GO !

:DID CONTROL READY SET?

PIF NO WRIT! (IF HUNG RUN STATIC)

MV
MOV
JSR

(R J4 . ORKDA
RKCS
PC EMTME

: ISSUE DRIVE RESET + GO!

BPL
CMP
BNE

2s
8-1, (RO)
33

b4s

BPL

1578

TYPE

"RSCIZ

TYPE

JRKCS
658

,,TYPE ASCIZ STRING

:GET

OVER THE ASCIZ

<15><12>,SET SWO' Y0 SW? TO SELECT DRIVES FOR TEST AND CONT/
67%

,,rvps RSCIZ STRING

7§:

3§unsc,sun

gorrungSTsuxTcu REGISTER IN USE ?

9y
8s:

BR
HALT
MOVB

8s
JSWR, RY

: CONTINUE
‘WRIT FOR OP Rnron TO ENTER NEW SWR VALUE
suo T0 su7

MOV

#ORIVO, RO

78855 0

RY
cs
R1, (RO)+

INEXT SWITCH_ TO CARRY
SSHITCH ggr
su TCH
o novs RDOR TOQ TARBLE

gg&"‘
001140

Rxoa R2

010650

020614
6S:

0..012

‘AT 'DRIVO’. BITS 15-13 CONTARINS

MOV

é&gss:

020000
177777
001326

JRKDS

R1, 9RKDR

INIT.2:

010556

170172

1578

MOV

#-1, (RO)

3s:

;FIND OUT WHICH DRIVES ARE

;PRESENT QN? PUT TH

MOV

177777

000176

#DR1VO, RO

R1,

2s:

0206 14

170654
00001S
0056 1 4

OVER THE R5CI12Z

MOV

177777

170660

.,TYPE ASCIZ STRTNG

658

948

CLR
BPL

020000

005614

SEQ 0O4Y4

é&gss: .RSC12 <1s><1a>/oschLnf1~c SEEK PACKRGE/

170732

000001

TYPE

020614

001376

F o4

PAGE 24

09:23

0SCILLATING SEEK ROUTINE
SECT.2:

010376

e Pt Pt Pt B

Q0
@~

U N MUY P NU NN 1) 0= = 5 1t s s s Dt Bt Bt et Bt Pt Bt s Bt ot Bt Bt Bt ot et Bt Bt o o o Pt B Pt Bt o

24-MAR-78

S§:
ys:

GET OVER THE RSCIZ

PASCIZ <18> (12> /RESET SLb TO SW7 TO TEST ALL AVAIL DRIVES/

cféua

‘REQUEST NEW CONTENTS FOR SWITCH REG

BEQ

CLR

322
MOV
1ST8

ggucuo Q)
(RO)+
ospth

.fifgn
zsno
5
:TYPED
;5 ONCE?
Ennxnnroa

, 638

' TYPE ASCIZ STRING

ROR
BCC
MOV

BNE

TYPE

RWSRDY

‘IF YES,

TOQE onxve RDDRS
IVE

DON1 RETYPE

MAINDEC-11-DZRKI-E

DZRKIF.PL1

MACY1l 30DA(1052)

24-MAR-78 09:20

1210

1216

011206

15%3

011274

1217

1220

011212
011274

1221
1222
1223

811335

1225

011356

1ee4

011300
0113

104401

000430
104401

000424
105237

032?77

1226
1837
1ced
1229
1236

011364
011366
81137w
011376
0.1400

1774
27?37
ooxogs
1044
000401

1332

01140

0127?77

1231

1233
1234

011402

81141;
11458

000000

106777

100375

011302

170000

RWSRDY:

000176

O0OCL1140

TRYRGN:

167752

oiaro?

001140

1238

011432

022701

000312

011444
-

000430

011526

000717

1239 811452 6&5?81 177400
1241
}SI}S
1244

1245
1246

1
104401

011530
011532

006101
006101

1249 011546

101

000100

000001

167756

i$:

CONTIN:

011446
;é’gss:

|-}

2s:

001404

3$:

1859 01127H 81570» 001404

LDSEEK:

011562

,.TYPE ngsx¥
STRING

GET

75%

OSPFLG

BEQ
cnp
Ng
GTSKR

RWSROY
#SHREG, SWR
1%

nov

100037
000001

8100, JRKDS

GET OVER THE RSCIZ
84T (BITB- 15), THEN PRESS CONTINUE./
-"asno/uaxrsxsssx REARDYTM BIT SET”

CONTIN

NO WAIT! (IF HUNG RUN STRTIC)
~IN USE
an IF
NOT
:GET NEW CONTENTS
: CONT INUE
orrunas SWITCH REGISTER

achs

81, JRKCS

:CONTROL RESET

:833

§=R5R5R1

cg; Tuev¢gon£ss OF

CMP

s312,R1

8P
LARSCIZ
BR

8? unusz& BITS

28
65%

e nncu
,,TYPE

TRYAGN

;GO BACK FOR NEW PARAMETERS

64§
;:GET
<«15><¢12>/INVALID

TRING

OVER THE RSC
SS IN SWITCH REGISTER TRY RGRIN/

:ROTATING THI? ngxsrg
.nnxss T:E E
FROM THE

ROL

PTHE RKES Sscfs R.

sskge

MOV

011570

012703

0000SO

SEKSET: MOV

isg?

011600

013705

001402

MOV

1262

011604

012700

020614

1264

011614

052077

1675%6

MOV
MOV

MOV
BIS

PRI

#160037,R!
#],RS
38
R1, 90SEEKI
R1,

TO RS

3 gs E GAL?

Rl
Rl

THE SWITCH REG.

8177400, R1
+

ROL
ROL

BIC
BIT
BNE
MOV

S§:

,,TYPE RSCIZ STRING

1ST8

1258

167562

RSCI1Z

<1s><1a>/chxNo£k noonsss* (INNER LIMIT) INTO THE HIGH~/

INCB

BIT

000716

010477

228

i
«<15>¢12>/

011566

011610

: TYPE ASCIZ STRIN

BR
.RSCIZ

iggg

1263

718

0101

1265

.RSC17

PL
YPE

001402

011560

TYPE

BiC

19:

042701
032705
001003
010137

1254

011542
011546
011552
011554

TYPE

BPL

i BHEY s
1250
1251
1262
1253

PRAGE 25

SEQ 0045

BR
204
GeT 8v§3 ;Héég
.
JRSCIZ <(15><12>/INTO rHe LOWw BYTE (BITO-7) or THE SWITCH REGISTER AND THE "LAST
TYPE

758:

0{}:

011436
011440

7923’

igas

139
1290

56;15:

Ol121M

001326

09:23

OSCILLATING SEEK ROUTINE
.ASCIZ <15><12>/TOGGLE THE "FIRST CYLINDER ARDDRESSTM (OUTER LIMIT)/
..698:

bas:

4401 011104
8{}822 4801
{afl 811788
1515
1219 011206
121S

24-MAR-78

GO4

J8SEEKO

#S0, R

aoSEExo RY

:CLEAR
H$
SED BITS
:IS THIS
OW BYTE?
:BRANCH IF YE
;srons THE INNER LIMIT OF

TART §EEK
TORE

TER LIMIT OF

THE

SEEK

THE

SEEK

co BACK AND GET HIGH BYTE.
TT

EEK CYCLES TO R3

aSo rfii odTES L?:I CYLINDER RDDRESS

SEEKI RS

:ADD THE INNER LIMIT CYLINDER RDDRESS

sDRIVO, RO

xnxranxzs POINTER

(ROY+, IRKDA

:SETM DRIVE ADRES

R4, JRKDA

:GET INNER LIMIT CYL RDRES

MACY11 30R(1052)

MRINDEC 11-DZRKI-E

DZRKIF.P11

24-MRR-78 09:20

473? 005614
11
167532
?857;7
811253
1529
10037S
iggg 011636

27210

Sligwo

177777

012300 020614
1S3 Blieve
011652 0120?77 167520

1273
ig;g

1;;3

oiiggg

000100

2710 177777

3115&5
1276
ig;g 011672

001367

1279

011674

0127

1281
1282
1283
1289

011?04
011710
011716
011722

052977
0127?77
004737
105777

167466
000011
005614
167442

1e8?
iggg

<C11230
011734

022710
001361

1777727

1290

011736

012700

020614

1280 011300 018599 159352
{ggg

1291
1292

1283

}ggg

011726

011742
011746
011754

0{{;23

1003’S

012077
032?77

167430
000100

022719

177777

001774

129% 811754 fil§333
1292
iggg

011766
011770

167500

167452

8s:

011772

1308

011776

1209

011772

000401

1313

012006

igig 012112

000441

104401

012010

1317
1318
1319
1320

012112

022737

001002
10440S
000401
000000

00017¢

1316

012120
012122
0l2i24
012126

BARD. IN:

012000

012002

012002
0i2002

;gus dRKDS

;s ADRES THE DRIVE
seex o?€2

4s:

SECT.
1:

0CL1M0

JRKCS

RO
igRIVO
(RD)+, JRKDR
8-1, (RO)

BNE

MOV

BPL

sDR]V0O, RO

kDA

nLL DRIVES DONE?
: NO

:SET OUTER CYL ADRES

(20)+, 9RKDA
w11, JRKCS
PC, SMTME
ARKCS

:SET DRIVE RDRES
: ISSUE SEFv+GO! (FOR OUTER LIMIT)

CMP
BNE

#-1, (RO)
8s

;ALL DONE?
:NO

MOV

#DRIVO, RO

MC /
BIT

BEQ

(RO)+_ RKDR
#RWS, ORKDS

:SET DRIVE ADRES
: SEEK DCNE?

n-é,(no)

:ALL DONE?

118

Ssc

.SBTTL

FORMRTTER-SURFACE VERIFIER

BNE
BR

1310

1311
1312

;RLL DRIVES DONE?

CRE

001306
000605

104401

8-1, (RO)

BIS
MOV
JSR
1518

10$:
118§:

PC, SMTME

cHP

1382
1306

SEQ 0046

1300
1301
1302
1303

1307

HO4Y

PAGE 26

R
gETB
BPL

MOV
gés

6S:
7§:

9s:

167410

09:23

OSCILLATING SEEK ROUTINE

3s:

1570

24-MAR-78

TYPE

.ASCIZ

TYPE

LDSEEK
CONTIN

:DONE S0 SEEK CYCLES (100 SEEKS)

:IF NO BRANCH (KEEP CYCLING)
:CHECK SWR FOR CHANGE AND CONTINUE

65%

:: TYPE ASCIZ STRING

P1GET OVER THE ASCIZ

B8R

64§

65$

..TYPE ASCIZ STRING

(.MP

#SWREG, SWR

: SOFTWARE SWITCH REGISTER IN USE ?

T OVER THE RSCIZ

é&gss: .ASC1Z <15><1a>/ronnnrrth sunrncs VERIFIER,SET SW REG FOR DRV #'S. PRESS CONT.~/
'

18:

3NE
GTSWR
BR
ol T

'BR IF NOY
:GET suxrcu REGISTER VALUE
: CONTINUE
'WAIT FOR 'CONTINUE’

MACY11l 30R(1052)

MRINDEC-11-DZRKI-E

DZRKIF.P11
1322
1:23
1339

1325
1326
}ggg

012136
0l2i4e
0.2150

012182
0id!l
8{2{

24-MAR-78 09:20
005037
3777
1011
oe1

7
?
7

020444
020446
000010
020446
001161

01517 830§25
1329 oxaégs
013700

1330
1331

0ie

108401

1333

012210

010046

1332
1334
133
1336
1337
1338
1339

012208

012212
012214
012216
012220
0ie2e?
012224

104401

012226
018230
0122

1344
1345

012250
C12256

012?37
gxzz 4

1342

012272

012737

012306

012;87

i34

012242
012268

006100
01294.
31
37

012737

1348

012300

1350
1351
1352

0:3314
oxsaao
012326

012701
012777
053777

012350

0327?77

1349

1353
1354
1355

1356
1357
1358
1359
1360

1361

1262
1363
1364
1365

1366

1367
1368
1369

1370

1371
1372
1373

1374

1375
1376

012334
012340
012342

012356
0123v0
012364
012366

012374

01737

1057?77
xoog7s
012777
001774
105777
100375
012777

032777

001352
00

16M000

|
0I4500
001352

167030

©CO0O11

000100
000015

000100

012424
012430
012436

008137
012777
004137

012540

012450
012454
012460

4137
00S177
004137

052540
166726
012540

0Dle472

022737

0I4S40

Q12464

012500

Si1:

020446
“10:

012777

062737
001346

000000

177777

012540

(25252

000040

CLR
BIT
BNE

SHFCNY
DRVCNT
eé?,oavcur

MOV
TYPE

RO
DRVCNT,
, SCRLF

MOV

RG, - (SP)

B8R

MOV

80, ERRRF

001426
ngqso

MOV
MOV

1432

001412

001420

167050
167042
167020

167006

Sle:

166762
001410

166762
166750

166736
001410

001410

MOV

oS:
38:

166774

MOV

COMMON: MOV
GOM:
MOV
8IS
18:

NS:

EM1

RO
RO
RO
RO
RO

001422

0014i6

S13

TYPOC
SWAB
ROL
ROL
ROL
ROL

ROL
MOV
MOV

001424

DRVCNT
SHFCNT, SWR
S10

ASL
INC
ggz

TYPE

167004

NNI774
005201
061344
012737

0lev42

S13:

020450

Q124N
0124084
012406
0ie410

012416

166770

104

PAGE 27

09:23

SEQ 0047

FORMARTTER-SURFACE VERIFIER

104402
000300
006100
006100
oosxgg
0061

1340
1341
1342

1343

020446
020444

@24-MAR-78

1578
BPL
MOV

RO
Rg,goosxrnn
80, ERRWF
80,
80,

ERRRFC
ERRWCH

80’

ERRWCS

8-24. , RWC

:CLEAR DRIVE COUNT
116 THIS SW SET?
: YES FORMART THIS DRIVE
;ALL DONE?

: TYPE 'DRIVE

:TYPE DRIVE #

;CLERR OUT ERROR COUNTS.

:SET WORD COUNT FOR RERD FORMAT.

#-61494. , W

;serngp WORD COUNT FOR WRITES.

#-b. Rl
814500, IRKDA
98DSKTHP, JRKDA

iSET UP LOOP COUNT FOR THE CLEARNER.
:SET UP FOR A SEEK TO 202.

80, EXTR

:CLEAR

EXTRA BIT FOR 12 SECTOR PACK.

JRKCS
1$
81}, IRKCS

: 1S THE CONTROLER RERDY?
INO
SO WAIT.
;00
THE SEEK.

BEQ
TSTB
BPL
MOV

2s
JRKCS
33
815, JRKCS

INO SO WAIT,
:1S CONTROLER RERDY?
i NO
:DO AR DRIVE RESET.

BEQ
INC
BNE
MOV

4s
Ri
COM
80, 0A

;i NO
'COUNT THE €, EANER LOOP.
{MORE TO GO,
:START OUT AT
CYL. O.

JSR
MOV
JSR

Ri, 10
80, 3BA
R1.10

JSR
COM
JSR

R1,

CHMP

814840, DR

BIT

MOV
MOV

RDD
BNE

#81t6, IRKDS

#8116, SRKDS

#197777,3BR
8125252, 9BA
s40. DA

' IS THE SEEK DONE”?

115 DRIVE RESET DONE.

:PUT ALL ONE'S IN BUFFER

:GO DO THE DISK THING.
'PUT ALL ZERO'S IN BUFFER.
:GO DO IT AGIAN.

'PUT R ALT. PATTERN IN BUFFER.
:ONCE MORE.
:COMPLEMENT
:AND AGAIN.

THE LARST

PATTERN.

: INCREMENT TO THE NEXT CYL.

'ARE WE DONE WITH THIS ONE®
!NO

THE

CYL.

uug

LT Y

N e e

e
T Y

Pt Pt Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt i s st P P P Pt st Pt ot Pt Pt P Pt v

2838R 252533834
RS K283BIRR2TRCE3S =

x.«

P11

ffrrsfrrcrfsrrrLrr
s
s LfE£ELL£L
AU Y P
U PO MU N 0= 0 b s s ot ot Pt s e
=0
JONTNLWNN—-0ODONTTNLWU-0O

MRCY11 3I0AC1052)

C-11-DZRKI-E

012502

012506
012532
012532

012534

24-MAR-78 09:20
104401

000411

000607

000137

24-MAR-78

TYPE

..658:
048
GDI:
'DISK

012540

013777

001412

1e6ba4

012554

853777

001352

01254

012576
012604

013777

7??

012612
012620

053777
052777

012632
012634
012650
012642

100375
005777
10054}
OIc?37

012626

105777

SEQ 0048

FORMATTER-SURFRCE VERIFIER

012510

001440

03:22

JO4

PAGE 2 8

BR
.ASCIZ
BR

JMP

: s TYPE RSCIZ STRING

658

.:GETM OVER THE RSCIZ
&4s
/
<(CR>(LF>/PACK GOOD
S11

;RESTART

JNSTARRT

1,0 SUBROUTINE.

'SET UP FOR A WRITE/FORMAT.

10:

MOV

KWC

:SET UP THE WORD COUNT REG.

;SET UP THE stx ADDRESS.

166614

BIS

DR’ IRKDA

882888
166564
0000
166556

B1s
8IS

081?T0+81711,3RK¢5
‘SET roang?axuurat inc. BITS.
#8171, JRKCS
;SEY UP WRITE FUN,

001410

001420
000001

166536

166622

166550
166542

18:

166530
000000

001422

a:ngrnp,anxon

:SET THE UNIT

NUMBER UP.

BIS
BIS

EXTR, 9RKCS
#8170, aRKCS

ISET P ésosée,,scron PACK
:GO DO T
i

BPL
TST
BMI
MOV

s
JRKCS
WFERR
80, ERRWF

INO SO WAIT.
'WRS THERE A ERROR?
'YES GO SERVICE IT.
:CLERR OUT THE ERROR COUNTER.

1578

JRKCS

1S WRITE FORMAT DONE”

!SET UP FOR A RERD/FORMAT
012650
012656

013777
013777

001416
001410

166514
166512

MOV
MOV

RWC , JRKMWC
DA,
SRKDA

:SET UP WORD COUNY REG
:SEY UP DISK RDORESS.

012672

C13777

88141q

166474

MOV

1SETY

012706
012714
012722
012730

0527?77
052777
053777
052777

002000

1664S4
166496
166440
166432

8IS
BIS
815
BIS

881710, 3RKCS
oe;Ta &S
EXTR, SRV CS
oexrg.anxcs

012664

012700

012736
Q12742
012744
012752
012754

053777
012777

105777
100375
032777
001134
012737

001352

0000

0014c0
000001
166426

040000
i
000CO0

166504

BIS

166462

MOV

2s:

166416
001424

7578
EPL
BIT
BNE
MOV

JuDSKTMP IRKCA
s

SRKC
2s
$BIT1Y, JRKCS
RFERR
0, ERRRF

SEYT THE UNIT NUMBER .
:CLERR

THE BUSS RDDORESS

THE CONTROL RE

:SET THE FORMAT BIT.
'SET UP RERD FUN.
iSET UP 12 OR 16 SECTOR PACK.
:GO go THE
RERD FORMAT.

:1S
THE
READ FORMAT DONE?
iNO SO WAIT,
{WAS TRERE A ERROR?
'YES GO SERVICE IT.
:CLERR OUT THE ERROR COUNT.

'SET UP FOR R WRITE CHECK.

012762

013777

001918

166402

012776

053777

001352

166372

012770

013004
013012

013020

013026

013034
013042

013777

013777
012777

052777
053777

052777
052777

001410

001406
000000

004400

001420

000006
000001

16640

166362
166350

166342
166334

166326
166320

MOV

WC , SRKWC

:SET UP WORD COUNT REG

BIS

J8DSKTMP, 3RKDR

:SET UP THE UNIT NUMBE

MOV
MOV
MOV

BIS
BIS

B1S
8IS

DR! IRKDA

BR, JRKBA
80’ 9RKCS

iSET UP DISK ROORESS.

'SET UP BUSS RDDRESS.
:CLEAR THE CONTROL REG.

88171148178, aRKCS SET INWIBIT INCR.8STOP ON SOFT ERROR BITS.

EXTR, JRKCS

:SET

12 OR

16 SECTOR PACK.

sRIr{+BIT2, ORKCS ;SET UP WRITF CHECK FUN
#8170, JRKCS
;80 DO THE WRITE CHECK

MACYi1 30R(1052)

24-MAR-78 09:20

C-11-DZRKI-E

ND
e
el
;»4
LELLLLL
P4
EIEURGE w.

P11

013050

oxgggs

013C54

013703

013076
013100

0302

1323
012737

000000

MOV

001416

KO4Y

SEQ 00473

RBA,R3

CMP

RFEERR
Rg R2

BNE
MOV

001426

RWC,R3

RDD

NEG

MORE: " b
BNE

843798 2Biuis
013%s
013072 0061073
01307

PAGE

; CHECK MERDERS RERD BY THE READ/FORMAT,

7?03 00141Y

S403

FORMATTER-gunracg vsaxf?ss
@4-MAR-7

balo5e
MORE
80, ERRRFC

PUT Nunesn or WORDS TO

THE LAST WORD TO es cwecxso

se RE

i SET KE TT&SBESWEP 200y OF BUF

(THIS thoen WAS WRONG GO SERVICE IT.
:ARE WE
:NO GO c cx THE NEXT ONE.
{CLERR OUT THE ERROR COUNT.

ILETS CHECK ON THE WRITE CHECK WE STARTED.

013106

1057?77

166256

613114
013120
013122
013130
013136

005777
100407
012737
0127?37
000201

166250

013112

013130

10037%

000137

000000

0GOOO0

ls:
001430

001432

013624

JRKCS

15T
8MI
MOV
nov
RTS

JRKCS
WCERRR
80, ERRWCH
no ERRWCS
R]

BPL

WCFRRR:

JMP

WCERR

s THE CONTROLER IS STILL BUSY.

{WAS THEREA ERROR”?
PYES GO sznvxcs 7.
ICLEAR OUT THE
:ERROR COUNTERS.
:RETURN TO THE MAIN LINE.

:ERRORS FOR WRI'F FORMAT.
013144

005237

013156

001016

013150

001422

022737

000004

013160
013164

104401
000410

013166

013206

000000

013222
013230
013236

012777
032777
001774

013160

013206

013210
013214
013240

000137
012777
000137

001422

UFERR:
SYSER:

L&?S”
001440
000000
000018
000100

)

166146

166140
166126

RETRY:
1S:

012540

.NC

RRWF

;ADD ONE TO THE ERROR COUNT.

BNE

EIRY

:NO.

TYPE
BR

65$
RT3

,,TYPE RSCIZ STRING
*GET OVER THE RSCIZ

cMP

CRSCIZ

HALT

IMNP
MOV
MOV
BIT
BEQ

JIMP

4, ERRWF

"MAS IT HAPPEND4 TIMES ON THIS CYL.

'15)¢12>/SYSTEM EAROR/
STRRY
80, JRKCS

815, 9RKCS
uex?s RKDS
18
10

SLET T

TECH BREATH.

:RESTART THE TEST
CLERR O?T T:E
CONTROL REG
xs x
INO SO unA
i TRY RGAIN.

:ERRORS FOR RERD/FORMAT.
013244

013250
013256
013260

005237

022737
001356
000737

00142y

000004

001424

RFERR:

INC

CMP
BNE
BR

ERRRF

84, ERRRF
RE tRY
SYSER

; ADDONE TO ERROR COUNT.

IHAS IT Happsno 4 TIMES ON THIS CYL”?
INO DO IT RGAIN
IYES SO TELL HIM SO.

:RERD/FORMAT ERRORS FOUND BY SOF TWARE CHECKS.
013262
8}3593

005237
igg;gg

013302

001-01

001426
166076

013274 022737 000004 001426

RFCERR: INC
18:
;gra

ERRRFC
fgxcs

RDD ONE TO ERROR COUNT.
'WAIT FOR THE WRITE CHECK.

BEG

FatLED

:PUT OUT FRILED MESSRGE.

cn%

84 ERRRFC

:1S 1T42

MRINDEC-11-DZRKI-E

DZRKIF.P11
1N90

013306

MACY1! 30A(10S2)

24-MAR-78 09:20
042777

000037

8255 4 igggsg
§{§§§3
{33§
13384
149

1332
49?7

166062

1s00
1501
{Eog

013376
{3~?s

013402

012;35

MOVB

Rg,SOR

270

BicC

8127770,R2

013554

MOVB

Re,CYL+2

:é???? ,R2

177776

1510

013446

1}10¢2

013456

2702

1511

1512

1513

1514

1515

}gig

0134s2

oxawgi

0134

013472

0{;275

7
337

73;

1102

337

013512

1821

013522

1520

013516

1522
1523
1524

013526
013
01

1528

1630
1831
§§gg

1525

004337

04270

c,;&xs

JSR
RDD

13576

013616

JSR

250

ROD

01312

JSR

177§§§

1534

iggg

027114

013556

e]gg

020060
027103

020040

013567
013574
01357

123
020040
'gggg

0S112S

027106

00SC1S

000

01364

000000

(013564

013606

000137

1540
1541
15842
ig:a

040

001440

1S:
CYL:

SEC:

8260
¢

MOVE
JSR

MOVB
TYPE
InP

R2, CYL
$
§top

.ASCI!
.nsc;i

/000
/SEC

.RSCI1

/SURF.

BIC

0260

O -015 054503

}Egg
1539

77774

137

1526 0135
020043
15§27
013652
0
1529

0.3612

013552
1354¢
01360M

mas;s

110237

8127770,
R2
R, SEC+!
8260, R2

T
ADD
'

12ta Bizede 11525% 2%
1519

; GENERAT THE CYL,SECTOR, SURFACE

8127776 ,R2

sFAILED IN RKDA FOR THE MESSAGE.

- MESSAGE ' FROM RKDR

Bic

013436
013442

SRXDA, R1

Rl n;

Re, SEC

1508

1509

MOV

MOVB

Dl
260

013564

g 4

:PUT WHICH SECTORS HERDER

Ré,anxgh

BIC
RDD
noxe

110237

SEQ 00S0

:3;,;§x022

177770
8435&5

01346

013432

268

MOV

000260

1506

1507

FRAILED: BIC

04
062702
;10237

i1 Binie
Ebe
013u2

1805

PARGE 30

é&%ss: LASCIZ <15> 12> /PACK rnttgg n? (IN OCTAL) 7/

13370

gxggrw

LO4

09:23

FORMARTTER-SURFACE VERIFIER
FRIL:

}uee 013370 017701 166002
1499

24-MAR-78

LRSCII
-RSC

SUR:

.gsggz

STOP:

HALT

IMP

RS, CYL+1

§177774,R2
8260, R2

<1S>c12>/CYL.

+00
/0

s TYPE OUT THE GEMNERRTED MESSAGE
:BYPRSS THE INLINE MESSAGE

7
/

718> 1D

START

:LET

OPER

DO nIS

'RESTRRT THE

THING.

TEST.

'SHIFT SUBROUTINES.
013612

013614
013616
013620
013622

006201

006201
006201
010102
000203

&4F3:
SHF2:
SHFI:

Asr

ASR
ASR
MOV
RTS

Ri
Rl
Ri,R2
R3

HERE FOR A SHIFT OF 3.

HERE FOR A SHIFT OF 2.
SHERE FOR A SHIFT OF I,
:PUT RESULTES IN THE WORKING REG.

MRCY11l 30R(1082)

MAINDEC-11-DZRKI-E

DZPKIF.P11
1546

24-MAR-78 09:20

777

0000

165536

BEL 8843 ooiuae
e
Bi%y 8339
{223 HEE

154

1561

1552

@4-MAR-78

01364 001626
008537

;

WCERR:

1555 013666 881402

iggg

013670

013674

000137
000137

013214

013160

1559
1560

1561

1562

1563
1564

SYSERR:

013700

013702

000200

BUFF:

0000630

RBUFF:

iggg
1570

013762

1572

013766

1574

013772

1876

013772

1573
1575

1577
1578

i579

013762

013772

013776

014050

104401

000401

013770

BAD.ON:
.. 658:

bds;
104401

000424

1580
1581
1582
1583
1584
1585

014050
014052
81uosu
Q140
01405
014060

104407
011600
104403
001
000
162700

1589
1590
1591
1592
1583
1594
1595
1599

014074
014100
014102
Q14104
014106
0:i4110
Qi4ile
014114

110037
000300
006100
006100
006100
006100
006100
010037

014000

SECT.O:

..658:

bas:

BEQ

FARLL
10

NO SO TRY ncnx

BEQ

SYSERR

YES PUT OUT svsr:n ERROR nsssncs.

JMP

SYSER

I
SERHRRuCs
e
IMP

——
R
TH
OF
4
$gReOUTBEER
A2 PUT
1'YES
rnsto nessnce

INO SO TRY AGRIN.

RETRY

014120

104401

}ggg
014124 000%IY
160G 0141t

.WORD

.SBTTL

RKOS CONTROL PANEL TEST

.BLKW

TYPE

.RSCIZ

TYPE

000060

001352

014126

:; TYPE ASCIZ STRING

::GET OVER THE ASCIZ

/77

,,TYPE nscxz svnxnc

RDCHR
MOV
TYP

(SP),RO

#60, RO

2?0'83
enngN

MOVB
SWAB
ROL
ROL
ROL
ROL
ROL
MOV

RO, Q8DRIVE
RO
RO
RO
RO

TYPE

65%

gys

g
35 g E cIz
<15>¢12>/RKOS coftABL PANEL TEST, WHICH DRIVE?/

BS%
SLE

001314

BR
.ASCIZ

Y
BYT
SuB

iES% °i3°6“ 100;36 000010
188 814895 88§7gg

1897

#BIT]Y4, IRKCS

:BUFFERS.

1568
1566
1567

1871

ERROR.

;Hag

BIT

JMP

012540

1556

SEQ 005!

FORMATTER-SURFACE VERIFIER

013650

PAGE 31

09:23

ng
RO,
98DSKTMP

678

; ; TYPE ASCI1Z STRING

67 BSsc ! b4 ég19 2> /MOUNT
Ph6355NOBS?v27£ Asclz
v

Les:

“ou

e e e

e
e

00000
000

h N

MACY1l

24-MRR-78 09:20

Y162
4164
4165
4193

000
wwog

680wa

4402
440N

000000
004737

Y414

000430

00000

o ot
S

000
00000

w02

4476
4SO

e fn ol
s ot o

Y410

4504
4510

s (o Peem Pt Bt Bt

000030000000

cop

104401
000426

4602

012777

4S74

4610

s s Pt

4614

4620

4622

Pun Pt P

4626

46Sh

432
4716

Bt
b s

000

000000
004737

ooooog
004737

4716

4722

7oy

P Pobn

000

104401

4566
4570

4264

4?60

5022

Do pabo
bt

0000

633”3%

.8YTE
TYPE

éégqs:
:

€022
6024

5030
6106
106

5112

013777

oow7;7

105777

100375

014416

016470

Oldsie

;é77s:
S:

016260

001352

000017

005614

164550

014634

104N01

000420
000000
i04401

000426
104401

000420

164574

.RSCIZ

164560

PRTYTWO:

014724

014762

56;13:

RSC1Z

¥
O
OVER THE | RSELZ

HALT
JSR

PC . WRRDCK

;;rv;z esgx;ngzégcz

.ASCI1Z <1§><12>/nnxs DRIOEENR?TE ENRBLE P&ESS CONTINUE/

;GO

788

WRITE

0°’S,

0’S,

S TYPE nscx; STRING

y§

! GET

OVER

THE

CHECK

RSCIZ

LASCIZ

(:3><12><15>¢12>/WRITE PROTECT THE DRIVE THEN PRESS CONTINUE-~

HALT
JSR

PC,

LASCIZ

(15> <12><15>
12> 7LLEAR WRITE PROTECT THEN PRESS CONTINUE~/

TYPE
BR
HaLT
JSR

JSR

15718

BPL

JSR
*YPE

LRSCIZ

B8R

LRSCIZ

.RSCI2

%
TY

015032

( GET

«<15><12>/PLACE DRIVE IN RUN ;SHOULD SEE THE RUN,~

’gas

TYPE

géges:

698

68$

g;PE

TYPE

éégrs:

::GO TYPE~-OCTAL RSCII
PiTYPE | DIGIT(S)
;1 SUPPRESS
LERDING ZEROS
11TYPE RSCIZ
STRING

<(15>¢12>/POWER, AND ON CYLINDER LAMPS LIGHT.~/

MOV

18:

|
O

SEQ 0052

JRSCIZ

MCV

é&%ss:

01511M

TYPE

5&7ss:

10N40!

104401

..738:

016260

016470

000414

des:

004737

000431

56;1;:

014330

PAGE 32

RKOS CONTROL PANEL. TEST

014174

322

NO4

09:23

TYPOS
.BYTE

Y
iSe O0oegy
C'eesH

:ggg

24-MAR-78

104403
001

000

30R(1052)

425

Sobeps

2‘2220‘0‘80‘0‘0‘0‘0"0‘0‘
S-S B8NERZERLE DO 8"\)(\!
NCN LW~ ODDNCNLWU—~0DD FRZER

r—

)

]

oo
n
PP U NI ) Y e 0 bt pe 5t s e e e e

ot Pt Bt Pt Bt i Pt G B Pt Pt Pt s Bt Pt Pt it ot s P P Pt Pt P Pt Pt Pt Pun P
Bt Pt Bt (o Pt Pt Pt Pt P Pt ot ot P

-DZRKI-E

BR
LASCIZ
TYPE

WRPRO

;c?

778
4 ]

PC . WRRDCK

Js0SKTMP JRKDR
817, JRKCS

TRY

ovinunxrs

:; TYPE RSCIZ
:'GETM OVER

;GO

WRITE

STRING
THE ASCIZ

0°S,

1GO WA §T TIME

:IF NO,

PC, WRPRO
65%

BRANCH

:GO TRY OVERWRITE OF
TYPE

agcx;

1:GET OVER

<15>¢12>¢15>¢12>/LAUTION!
678

:; TYPE

66$

69%

TRY TO OPEN THE

RSCIZ

--cir OVER THE

«<16><12>/PRESS CONTINUE WHEN
718

738

STRING

THE RSCI2

DOOR,

DO NOT FORCE:
-

STRING

NOT OPEN!/

;; TYPE

sag

bos

IERO'S

--GST OVER THE ASCIZ

<¢15><12>,D00R SHOULD

»
(1S)

CHECK

FOR RK{1-C
115 controL RERDY SET

(X1

0'S,

;runc7¥ou WRITE PROTECT

PC, SMTME

JRKCS

:SET UP DRIVES

STRING

RSCIZ

FINISHED~/

:; TYPE RSCIZ STRING

12> <15

;-c;r
VER THE RSCIZ
(12> 7PUT DRIVE IN LORD, WRIT FOR LOAD LIGHT.
;3 TYOT QsCI2 ST RING

:iGET OVFR THE RSCIZ

30A(1052)

“

i3
—

pust

£0ON

A : E58
9.‘§o—o—
S
*2
[y

J
1578

IRKDA
J8DSKTMP
815 aafigs

PC,SMT
?gkcs

EE:

5100200.anxsa

H :SET UP DISK ADDRESS
;vs RESET
;1ISSUE A
OR RK1[-C
iILL 11
-con ROL nenov SET?

g%%fis*safi
"

28:

BIT

..798:

BR
_RSCIZ

?35:

w3 8%

mov
SR

163724

Ezz

8140000, IRKCS

IF
i BARneH
,.TYPE
x;ngnxnc12
GET

a1, JRKCS
TTME

ISSUE
;;WA

eg
<18><12>/ERROR Dib NOT

1ST8 aakgg

;EPE

ERRCR ON ERROR SET

3
79:

géxrxs,aaxsn

SET/

AT1 CONTROL RESET

; §$20L nov SET
'i

81s

..TY;E ¥H§*2é"?z

gxwoooo.anxcs

Ennoa
] TSCLERR

é-e§s: .RSCIZ <18>¢12>/CONTROL kgger 0Ibo NOY CLERR 'DRE’/

163644 59?'

gé;

§§§3" Bgscxz ??§><12\/couTR0L hggcroc§0 HECLERR "ERROR’, RKCS~/

nNO
N)r—

18:

:857
Y

SEQ@ 00S3

’Q;ss: .RSCI2 <1s><1a>/oR£=exrlsor RKER DID NOT SET IF AN RKI11-C~
TYPE
778
,,TYPE
TRING
nscxz
8?
768
BR
5&;7” "RSCIZ <(15)>¢12>/0R BI~0* BID NO scr IF AN RK11-D/
164010

—

72%:

015616

0157S0

016034

TYPE

83$

1iTY

TRI

X:
;;PE
55§’
:.TYPE x;Hérnxnc
5425" .RSCIZ <xs><xa><xs><1a>/bpsn THE DOOR, PUT DRIVE IN RUN/
LL&?”

£
o

PAGE 33

09:

@24-MAR-78
CONTROL Pn~$L TEST
nxos

015670

164154

0152ee

5
i

£000

l 4212
164176

015306

g2 8% 83

[

s P

UaTa Talle Ta )

P 3 £ERy AL &4 BEiuskss Binn & 8 § NS Ly

e oew
Pt
s G
ot ot Bt
ot B
B
s Bt
et

000

s Pt Bt B

00000

100200

00000

Pt Pt Bt Pt Gt
e Pt Pt
oot

0000
000
0000

s bt e Pes Bma hs P

14
164166

Bumn
et s

NNNoO

NNNNNNNNN

000

g REBE8IRR L0028

Pt Pt Pt Pt

s o

000000000

~
o

00000000000

» v

Bt e

‘U’;G'
® h3EREE 5330‘0‘0‘0‘0"0"0‘
dIn3 A ERETEEREE o8

T
Y ey
Y
Y oy
e
Y S
e
T
e e
ey e
ey e
e el ot ol
e
Y
Y
Y o
[

Yil

:20

BOS

5;9:

g;s

::TYPE nsgx;Hérngnc

.RSCIZ

(15>¢12>/CAUTION!'IF RUN LIGHT ON ERROR! DEPRESS/

gzpe

ées

::TYPE 3§S’¥H27“’"°

éég?s: .ASCIZ <15>¢12>/L0RD xnfitoxnrsz CONTINUE WHEN FINISHED~
XX:

HALY

658

(313

s s TYPE nscxz STRIN

PIGET OVER THE RSC z

MACY11 30R(1052)

MRINDEC-11-DZRK1-E

DZRKIF.PL1
1714

1;15

016100

8{2{33

i;iz 016154

24-MAR-78 09:20
égwozgé

§1§3~4 m87
i7eN
1725
1

1726

016254

1727

1753

17
i;go

104401

016236

0Ol

1botN
ois:-.'?e

1734 8

1
2777 oooocxl.x‘

xm 08063

SEQ 00SY4

;;PE

..TYPE CESI¥

éé‘s’"’ .ASCI2 <?g><12>/PUT om#tcfu
:

016162
40!
1719 016154
683«25
016160
1720
. £
x;gé

1?7

Ca5S

PAGE 34

09:23

RKOS CONTROL PRNEL TEST
buS:

016106

171

24-MAR-?8

Légss:

TRING

EHSULD NOT/

STRIN
12
3 TYPE
s
TYPE
é?
‘ug
oeifi
YGET
{,S?
BR
"ASCIZ <18><12>RUN... I1N}ERCLOCKS WAVE BEEN CHECKED/

,,TYPE ARSCIZ STRING
718
TYPE
c:r OVER THE RSCI2Z
%0
BR
718: .ASCIZ <15><12>/DONE!
:

bhg:

163104
163070

#STRART

MOV
r}ov

SOSKTMP
, 9RKDA
u.gn;&s:

WRRDCK: CLR

mxe A PATTERN OF ZERC'S

:SET UP DRIVE
ADDRESS
:ISSUE A CONTROL RE3ET

17%
jy 163026 1s:
1739 OieRs
0163% | 84375 163016
17-4
oisasw 813777
11 777 843& 163014
nwé
8153%
163
1743 0163
013777 O00134M 162774

MOV
Tn
IS8
%\L/
MOV
MOV

:‘ficuf
: coum
WORD
i secron
Bg's‘ s KT
i
xu c
Zcon‘hou.
£fl
RK REGség
TERS
u;ggtfl’MNPm ’IF
:0ng:’o

179 016410 1%375777 162754

1578

achs

sKILL TIME FOR RK]1-C

Rg.(RHH
qgss
b4s

?&w ERO’S
: TYI?E('RSBR TRING
”GET ovca flé ASC12

BR
CHP

WRRDCK
SMANSEL , R4

?one

grxé

:gxrs.aaxos

: }TOn

{;333
§{01 19 é?gg
1
173s
1
%1%
163046
1736 016326 013777 001344 163036

1794
1795

016376
016404

%wm
737

1797

0O16MIM

1356
14

162764

i;:g 8{2:2 012704 007356

5§ :

AT TRN

2s:

1750 016424 %ggws
{75.2751 812:238 %‘10:6? 016436
1763 016434 000M10

38:

1726
Bitvee 000700
1757 oxz:go %aggo
1758

016464

1357

010356

b4s:
ys:

i;g?

8{2:;2

%7??l

000040

1763

016504

000416

1754

1759 01646 000207

1762 016500 104401 016506
{;gg

016542

..658:

162666

176
Dieede QI&737 A77777 0Oi3ke
:
1768 016556 012777 00136 162610

WRPRO:
g425‘=

,3,8'\7
Y

MOV
JSR
L

88;

cHp
?53:
BR

.ARSCIZ

BNE

RTS

TYPE

CONTROL READY SET

?
TMP bmaa
, JR¥DA 'érrmm"scnomsss
?rm
GE %sgfléooas S

s
C

ccm IRKWC

anxcs

'gRDBl.FF,RH

:TO THE Rsao eurrsn

;?omnm ngfig SET
i

IF _NO,

<15>¢12>/WRITE FA}

658

;ce; a(r;gncro 2::

K L TRY
AGAIN
Snccxs
BR

3 vts RE TURN

:. Ascxz smmc

bus

MOV

MLTZIZ7ATSPATIAN
ACO.L200
ALt
|]

"ASCIZ

MOV

ce OVER THE nscxz

<15><12>/WPS=BITS’ OF RKDS NOT SET,

-pn?mu 5RkBA

'TO WRITE

MACYl! J0R(1052)

MAINDEC-11-DZRKI-E

DZRKIF.P11

e4-MRR-78 09:20

24-MAR-78

?
o7
1730 BIEERS BADZED BGAEEL
2s:
162560

W
égra

812252 ?BHESf 016630
{7;3
1772 016626 000427

??Sg
BR

1;;

{7?H
?

§1§§ow

i ig

;5 020000 162546

1;;@

016706

1780
1781

815705
0167]4

365777
737

1785

016734

001431

0000D!
00SH1Y

}?ae 0}2750 105777 162444

1;33 815552

};gg
i;gg

3%2;33
017020

i;go

oiroeo

éégrs:
162454

020000 162432

oqugé

016744

0{3777

oo;asa

isaago

x79§ 017042
81§§§3 815777
SSxSEE 12533
Ol
001356 162320

1793
1794

ox;ggo

oggr

1795 017084 1

1798 81;325 815383
1799
1800

017072
017074

1805
017908
1335 817102
1804

180S

1806

1807

017104

017110
017156

1808
1809
1810

0171S6
017160
017164

1812

017206

1811

1813
1814
1815
1816
1817
1818
1819

017306
0172210
017212
017213
017214
017220

1820

017236

1824

017246

1821
1822
1823

01723
017240
017242

3§§§77

09303
1475

10M401

oosgxw

162310

3S:

010446
104403
Gob
001
104401
000406

010546
104404
104401

000406

;OVER THE ZERQ'
SWRITCS, JRKCS
R
MR TR
BSOS
; QNTROLSRSQSZ SET?
Snxcs

;¥%o %T SET )

sgxrxa.aaxsn

LRSCIZ

<1S><12>/EXPECTED WL 0=B1T13

MOV
JSR

373
668

nggx¥:srnxnc
SiTY
11 GET ov;n g; RSCIZ

'é-Sfi“Sé
TTM
P

;o? A ??NTR?%RRESET
KI1-C
13 {0

;

RKER BUT DID NOT SET~/

snkcs

;?gn#n HEERBY SET?

BEQ

;NLONglk CLénn
(IF ;Es

QSEQ”

gzps
CRSCIZ

ROCHKO

;;TYT oe§31¥ Tgég?z
‘ses
'RESET DID NOT CLERR 'WLO' OF RKER~/
<18>¢12>/CONTROL

RL-HKO:

"03

aoosxrpp:ansga

;§STREP RK gggésrsns

MOV

3s:

7356

JSR

017112

017166

.. 678:

tés:

017222
.. 598:

bas:

BRANCH

3§gg§cnf,aaxuc
;chxNSQRSS chg 0
S.IRKCS ;TO ENSURE NO WRITE TOOK PLACE
SKILL TIME

sROBUFF , R4

sCHECK TO INSURE NO WRITE

BEC
BEQ

i IF ZERQ BRANCH

&4s

ST
TYPE
BR

-(RY)
678
6%

MOV
TYPOS
.BYTE
BYTE
TYPE
BR
.ASCIZ

RY, -(SP}

CLR
cHP

TYPE

b4s:

ogxrxa.aaxen

afik S

1578

MOV
18:

017250

SEQ 00SS

ggra

ys:

..658:

005744
109401
0DOO410

PRGE 35

09:23

RKOS CONTROL PANEL TEST

.ASCIZ
.ASCIZ

MOV
TYPON
TYPE

gnfne

RS
RS, (R4)+

658

: TOOK PLRCE
TWITH WRITE LOCK

C THE ERROR COUNT

:;TYPE A cx¥

--857 OVER

TRING

ASCI2

<168>¢12>/WRITE OLLURRED WITH WRITE PROTECT~
:: TYPE ASCIZ STRING
*'GET OVER THE RASCIZ

<¢1S><12>/BUFFER ALDR=~

&
|

9s
s

EXPCTD=/

s s TYPE nscx; S RING
::1GET OVER
THE RSCIZ

RS, -(SP)
718

%08

s s TYPE ASCI2 STRING

:IGET OVER THE ARSCIZ

D
s

INDEC-11-DZRKI-E

KIF.Pll

017584

017cb4

0l244e

828
830

017270
017274

022704
001277

e T o

826
827
828

ggé

833
834

017266

017276

MACYL1l 30R(10S52)

24-MRR-78 09:20
104404

000207

@4-MAR-78

_PARGE 36

SEG 00Se

RKOS CONTROL PANEL TEST
708:

010356

09:23

EOS

as:

4s:

MOV

(RY)+,-(SP)

cMpP
BNE

#MANSEL ,RY
19

TYPON

RTS

;FINISHED ALL CHECKS
IF_NO, BRANCH
;

; RETURN

P11

MACY11 30R(1052)

24-MAR-78 09:20

0°.23

FOS

PRGE 37

SEQ 0057

RKGS CONTROL PANEL TEST
.SBTTL

CONTROL PANEL TEST 8 2

sTHIS 1S THE ENTRY POINT INTO CONTROL PANEL TEST #2.
ALL
! THE DRIVES THRT ARE PRESENT ANG IN 'RDY' CONDITION ARE

s P
s ot Pt P Pt Bt s et Pt e ot P B
s Bt Pt Bt Pt o Pt P B
s Pt Pt Bt ot Pt s Pt Pt Bt P P

'REPORTED

017383

01?7
017310

017314
017316
017322
017324

ooo;uo

012777
105?77
10037%
012700
005001

017326
017330

010210
010277

017340

100021

017334

017342

017346
017350

017352

017356
01732

1057?77

104401

010146
104402

104401

005720
005201

017414

001344

017410

017416

162024

NOP

MOV
1ST8

33
sDRIVO,
RO
R1

MOV
MOV

R2, (RO)
R . JRKDA

:SET UP ADDRESS TABLE
:ADDRESS THE DRIVE

BPL

INO

TYPE

MOV

TYPOC

020461

00S61Y4
000100

TYPE

8IS
162000

161762

MOV

uS:
= ;

81, JRKCS
JRKCS

BPL
MOV
CLR

TSTB

020450

000015

017404
017406

38:

18:

162042

012777
001774

SECT.4:

(ON LINE).

CLR

000300

004737
0327?77

162060

020614

0S2710

017370
017379
017402

000001
162054

SRKDS

; TYPE 'DRIVE’

EM2

:TYPE 'ON LINE®

:DRIVE PRESENT

815, JRKCS

1ST
INC

(RO)+
R1

BNE

020000

ADD

1UMM01

0QO0l1lsl

TYPE

STYPE OUT DRIVE #

bBITe+BIT?,
(RO) ;SET BITS INDICATING THIS
PC, SMTME
8RS, IRKDS

BEQ

{15 IT PRESENT?

EMIL

Ri,-(SP)

JSR
BIT

062702

u§

#20000, R2

: ISSUE R DRIVE RESET

'ALLOW SOME TIME
‘WAIT FOR RWS ROY

sNXT DRIVE
{ALL DONE?

, SCRUF

:THIS CODE CHECKS THE CONDITION OF

‘DRIVE.

MNNN
Owo~N

e (et Bt Bt Gt Pt ot ot 5t Pt Dt P
o8] [s0]ssTeeTes)

24-MAR-78

. THE FOLLOWING REVISION WRS MADE BY JIM KAPADIA

e e P Bs

@ODODDODVOOEOE X
723
ERFRRREIN
K A4 783
L
FHEGREEIENE = 2

C-11-DZRKI-E

IF 'DRY’

IS SET DRIVE

°'DRY’

BIT

IS SRID TO BE

IN RKDS FOR EVERY

*ON LINE’,

OTHERWISE

1S OFFLINE. IF THE 'DRY' BIT MRS CHANGED FROM LAST TIME, THEN
117 IS REPORTED.
IF THERE IS NO CHANGE NOTHING IS REPORTED.
017422
017426

012700
005001

01743G

011077

017442
017446

10S777
10004y

017439

017450
Ci7462

042777
105710
100454

020614
161742

017777
161716

161734

BEGCT:

MOV
CLR

BEGCT1:

MOV

#DRIVO, RO
R1

s INITIRLIZE POINTERS

(RD),

: RODRESS R DRIVE

IRKDA

217727, JRKDAR

:MRSK OUT NON DRs BITS

1578
BPL

JRKDS
18

{15 THIS DRIVE ON LINE?
;Ngs

1578
BMI

(RO)
NXT 1

SWAS IT 'ON LINE’ LRST TIME?
1YES, NO MESSAGE T REPORT

3 Y

MRINDEC-11-DZRKI-E

DZRKIF.P11
1892
1833

017460
01746M

MARCY1! 30R(1052)

24-MAR-78 09:20
104401
010146

TYPE

138? 017542
017542

0127?77

817522
175

00375
412

1903

017550

1967

017560

1904
*382

1908
1909
1910
1911

1912

1813
}g{;

105777

000017

161614

100010
104401
010146

020450

017874

104401

020473

017600

104402

042710

TYPE

aso

qgss
es

38:
18:

105710

017S62
017564
017570
017572

161620

.ASCIZ

MOV

1578

M1
R1,-(SP)

:LINE, REPORT MESSAGE

5EP§.aRxos
653
648

HRIFEbLES
nscx; ETRING
..TY#E
T OVER THE RSCIZ

#17 . JRKCS

:WRITE PROT THE DISK

<15>¢12>/EROR, Nof HRT ENRBLED/

Jrkls

3
NXT1

1578

(RQ)

:WAS THIS DRIVE OFF LINE LAST

EM3

;TYPE *OFF LINE’

BPL
TYPE
MOV
TYPE

000200

8IC

NXT1
EMI1
AL, -(SP)

: THIS COOE cuscxs 'WPS’

igég

:1S REPORTED.

isaa
1825

:TIME? BRNCH IF YES
:IF NOT, REPORT THE CHANGE
:TYPE DRIVE »

#8IT7, (RO)

1916

1921
1922

SEQ 00S8

BPL
er

TYPOC

1817
19i8

GOS

PRGE 38

CONTROL PANEL TEST # 2

0204S0

81;3 A ; 5 888046 161662
1822
1897 017502 001417
017504 104401 017512
1898
1899 017510 000414

1902

@24-MAR-78

09:23

:CLEAR BIT TO INDICATE THIS
:DRIVE *OFF LINE®

BIT FOR

EVERY

THAT IS

IN 'oav'

SCONDITION
(ON LI NF)THERE
IT REPORTE
SN 8“£~Ez
HE NDITION OF
:THE ‘WPS® BIT.
WAS NO
C
Lnsr TIHE NOTHING

017604

105777

017610

100033

NXT1:

JRKDS

IS THIS DRIVE PRESENT?
RKDR CONTAINS THE DRV #

BPL

NXT2

BIT

SWPS, JRKDS
#8172, (RO)

;u S BIT CLERR
WARS IT CLR LRST TIME ALSO?

NO SKIP CHECKING

001014

032777

000040

G17622

032710

000004

BIT

BEG

NXT2

1931
1932

017630
017634

104401
010146

020450

TYPE
MOV

EML
RI,-(SP)

;70 *CLR’, REPORT IT
:TYPE DRIVE
&

1934

017640

042710

000004

BIC

OBITE (RO)

INDICQTE THART ups' IS CLERR

. erra (RO)
NXT2

‘ESE ?%Tsé? ES*T TIME ALSO”?
SYES, NOTHING ?o REPORT.

1927
1928

1929

1930
1933

1935

017626

017636

017644

001424

104402

(0N401

1936 017650 000413
1940

1942

017660

1994
1946

017666
017670

1943

1946

017664

017674

104401

020450

104402
104401

020506

010146

0S2710

BNE

TYPOC

020521

iggg 017652 032710 000004
1939 017656 001010
1941

161544

TSTB

0i7620

1826

0:!7612

161554

RT THE TIME OF ENTRY no POINTS T0 DRIVE FI QG.

00000

TYPE

BR
:

BIT
BNE
TYPE

era
EMIL

MOV

Ri,-(SP)

BIS

#8172, (RO)

TYPOC
TYPE

JEMY

;WPS BIT SET?

'YES

i YES, NOTHING TO REPORT.

:WPS' CHANGED FROM °*SET’

TYPE

'WPS
CLEARR

; WP

cuaugsg ROM 'CLR’'

SETT. R

710

RT THIS CHANGE

:TYPE

'DRIVE®

s TYPE

'WPS

STYPE DRIVE ®
SET’

'SET FLAG BIT INDICATING WPS SETY

24-MAR-78 09:23 PAGE 39
MRCY1l 30R(1052)
MAINDEC-11-DZRKI-E
DZRKIF.P11
24-MAR-78 09:20
CONTROL PANEL TEST # 2

; THIS CODE PERFORHS SEEK FUNCTION ON R DRIVE AND CHECKS IF

1948

P THE

1949
1950
1951
1952

NXT2:
usg:

iggé

017720

0S2777

000040

161450

igga

0177

GIS777

000011

161434

1965

017734

1058777

161430

1967
1968

01?742

032777

010000

1970
1971

017750

017752

1972
1973

017756

1975

017764

1974

017760

1976
1977

017766
017770

1978

1979
1980

10037S

O0O0I41Y

032710

000001

104401

020450

104402
104400

020537

001167
010146

017774

0S2710

020000

000SS6
rd

179y

1985

(020010

1387

020016

1989
}gg?

020024

1986
1988

104401

020014

010146

020020

104401

104402

042710

3$:

18:

61414

nvaE
nni
T BEGINNING (WHEN

sssx 1S oone TO CYLINDER 1.

JMP

;?o
IT PRESENT NOW?
H
;v?s

BIS

#40, JRKDA

ncetnsnov Hg STHE DRV @

MOV

#11,IRKCS

1578

JRKCS

BIY

#DPL , 2RKDS

BPL

TYPE

YES DPL SET
TWRS *DPL’ SET LAST Txns ALSO?

EMB

: TYPE

CLRDPL

BIT
BEQ

WRTSK

TYPE

EM]

BIC

DPL BIT SET

EMI

kBITO, (RD)

TYPE

000001

:DOES NOT COME BACK

:YES, NOTHING TO REPORT
:DPL' CHANGED GOT SET THIS
:TIME, REPORYI

BIS

TYPOC

020560

#BITD, (RO

cLROPL

RI,-(SP)

MOV

CONTROL RDY?

{SOMETHING WRONG IF CNTAL RDY

:IF NOT SKIP THIS CHECK

:WRIT FOR

MOV

TYPOC
TYPE

:WAS THIS DRIVE PRESENT AT BEGNG

quos
gs
DN1DRV

BNE

#8176, (RO)

?gga
BM]

BIT

020450

1932

BIT

BEQ

000001

{335
020002
032710 000001
1983
020006
001410

POWER WAS CUT OFF

THE

{AT THE TIME OF ENTRY RO POINTS TO THE DRIVE FLRG.

{13287 oiggou
Y4
8x771 ?ox;9;
100402 161452
1959 017714 000137 020352

0177?40

(IF

TE THQTSNLY
TH s
E PRES

H
:THIS TEST unsNTERED)

ie S 01?700 032710 000100

1969

R RESU

FR
n
PCH cxso

1953

1966

SEQ 0059

BI710, (RO)
,

’'POWER LO’

SSET FLAG BIT INDICATING THAT

:DPL

SET

THIS TIME

;;ggL'DgET
éfsgksfgsr fIME ALSO”
NOTHING YO REPORT
:

’

:YES,

:REPSRT THART 'DPL’' BIT CHANGED,

RI,-(SP)
EM?

bB170, (RO,

:FROM SET

; TYPE

TO CLERR

'POWER UP’

557 Ftna
BIT N ICRTING THAT DPL
THIS TIME

; THIS CODE WRITS ron THE SEEK (oous RBOVE) TO FINISH.

WRITING

1993
1994
1995

i TIME 18 APPROX .
"2 (FOR THE WORSTY CASE).
IF R/W/S RDY
:DOES NOT SET
W
ITHIN 0 MS, THEN IT IS RSSUMED THAT R °SIN’
; 1S POS?IBLE AND THE Pnocabn WARITS FOR 14;0 MS MORE,
SO THAT

1997
1998

:TIME AN ERROR
REPORTED:
;
SIN DIDN’T OCCUR

199

:THE 'SIN' CAN ?ET.

1999

WITHIN THIS

. IF R’W/S RDY ?ETS héTHIN SO MS THE PROGRAM PROCEEDS TO

588?
2002

F "SIN' DOES NOT SET

020030

012705

164220

:CHECK THE NEXY

WRTSK:

#-6000. ,RS

MOV

;SET

COUNT

TO WAIT

FOR

MRCY11l
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.P11

020034
02004e
02004
020046

032777
021042

060100

30R(1C52)

161322

24-MAR-78

09:23

105

PAGE 40

SEQ 0060

CONTROL PANEL TEST @ 2

#RWS, JRKDS
3

18:

RS
19

520S
001372

+R/W/S.
; YES

RDY SET?

;WRIT

;S0 MS OVER,

R/W/S _RODY

;DIDN'T SET WAIT FOR

127727
001000

161300

#SIN, JRKDS
SINst

sSET UP COUNT

:SIN SET?
:YES
SWATT

RY
ys

B¢

4s:

0e0110

) L O

be e

& =6 Jr—-000

2 b Sogsg
+=r-0Or
)
OO0
—re

658

000002

020601

SIN

SINST:

020450

..TYPE ASCI2 STRING

iGET OVER THE RSCIZ
;TYPE DR'VE 8

Ri,-(SP)

oég R/W/S RDY

SET LRST TIME?

:CLR FLARG INDICATING THQT SEEK IS OK
:REPORT THAT SEEK IS
O

DRIVE RESEY AND CLERR 1T

#B8IT1, (RO)

161130

4s:

198:

SET LAST rxns ALSO"?

,EMB

s TYPE

SRKDA, RS

8], IRKCS
Rk
818, JRKCS

cs:

*SIN’

:YES, NOTHING TO REPO
ssr FLAG INDICATING THQT
"SIN’' SET, AND REPORT THE CHANGE

RS 9RKDA

161110

;0ID

4$
09171 (RO)
EMIL

RI,-(SP)

020573

161104

BUT SIN

ERROR!

EM9

000002

]6li2Y

'DIDN’T SET.

ON1DRV

000002

00001S

; 1500 ns ELQPSED

15> <12>/SIN DION!T OCCUR, DRVE~/

#BIT1, (RO)
EML
RI,-(SP)

000002
020450

161144
000001
iblleM

DN1DRY
BE}EéO(RO)

3%:

; IF

020260
020264

0177777 RS

es:

RS
2%

gl TM Lonl
-0
8|QQ+££0 (R
7 LL—
LN LN L
hPRF25doRR o

FROFRFEEF
En 8RR

58 3Rg

e
s
bt
B

DoNTnNLwWwn

Pt Pt Pt P

ynrnny

00080000

2011l

;SIN 10
S

SQKCS

*SIN’

; SAVE RKDR

:D0 CONTROL RESET
:WARIT FOR CONTROL RODY
;D0 DRIVE RESET. RKDA
SALRERDY HAS THE DRVE
{WAIT FOR CNTRL RDY

naxuoec 11 DZRKI-E

DZR

ifF.P11

020270

032777

2062
2063

020300
020302

005205
001372

020304
020310

104401
000411

2064
2065
2066

2067
gggg
gg;?

30R(1052)

000100

161066

24-MAR-78 09:20

2060

2061

MACYIl

020276

001C2S

020312

CONTROL PANEL TEST # @
3$:

BIT

012777

2076
2077
2078

3350

100375

:YES

TYPE
BR

65%
A4S

:REPORT ERROR. R/W/S RDY CLR
,,TYPE RSCIZ STRING
GET OVER THE RSCIZ

DN1DRV

RS
38

;WARIT FOR R/W/S ROY

..55$: .ASCIZ <15>¢12>/RWS RDY fior SET/

020344

105777

000001

161020

161024

CLROPL:

is:

nov

8],

1578

JRKCS

CONTROL RESET

JRKCS

WAIT FOR CNTRL RDY

BPL
Hg
:RT THIS srncs T onxvg (8 IN RKDR) HAS BEEN CHECKED
:FOR DRY,
N. THE PO TERS ARE INCREMENTED

2079

SAND THE'

208,
2082

gngckWILL BE DONE ONTHE NEXT

ORI
e PRO X ps OO 8v3°x°~&‘
e
;ALL THE on;E 553 11
ENTRY (HERE)

2083

‘RO POINTS

5897

2084
2085

HE Fan FOR

THE DRIVE THA uns

1 JUST cuccxso gs
ORE GOING ON TO THE NEXT
'DRIVE THE H DS
ARE BROUGHT BACK TO CYL INDER

2088

020352

2090

020362

020364
020372

042777
012777

017777
000011

2094

020400

105777

160764

2098
%?33

020412
Gagule

020406

004737
032777

005614
00010 0

2101
2102
2103

020422
02N424
020426

005720
005201
02Gi27

000010

gigg

02044C

000137

017422

020356

011077

105777

100017

228% 020404 100375

161020

(FOR THE MeXT CYCLE).

DNIDRV:

161002

160 744

MOV

(RO) , JRKDA

oarvs PRESENT’

BIC
MOV

817777, JRKDR
#11,3RKCS

ch ADRES
= O
1GO, SEEK

RKC

sWRIT FOR CNTRL RDY

BgLB

15T

as S

3
4S:

gég

JSR

PC, SMTME

3%:

1ST
INC
cHP

(RO) +
Rl
Ri, 810

e
M
IMP

2113

Beocr
GCT1!
BEGCT

2114

020450

O0O0S01S

0F1104

O0S3111

HFCNT: .WOR
SRVENT=
_5898

EMI:

<15>¢12>/DRIVE ~

-MESSRGES

.ASCIZ

onfis JRKDS

2109

Sff? 020444 000000
2112 020446 00COJ0

DRIVE
#

JRKDS

1s:

2s:

;GET

TSTB

BPL

161004
160770

S10s 05034 BOBI2E 017430
210¢

sR/W/S SET?

DN1DRV

;IF DPL SET CLEAR THE ERROR BY DOING CONTROL RESET.
020336

2091
aoqg

SEQ 0061

#RWS, JRKDS

BNE

000406

2074

2089

PAGE +1

84g:

gg;g

2075

JO5

09:23

INC
BNE

020334
020334

24-MAR-78

: INCREMENT POINTERS TO
;NEXT DRIVE
DONE, THIS CYCLE”

Zc%soo NEX
EXT DRIVE
\'

nssrnnr THE CYCLE OVER

; AGA

RZdOmWNWOWqamamM._HJ[=]
020614

000000

020620
020622
020624

000000
000000
000000

020630
020632

000000
000000

C206et

020614

000000

051440
045517
042505
D00

EM9:

>- &—

Q0000

1
1

W ZzQa

000
]
020113

.ASCIZ

Oa-gm

L w-n -0wo

020601
020606

30R‘ .0Se)

vOJ-w Ov2.3 X3 -woV>X4W][w+ =W=2--OG>xwW~Ouav£yQ LQvOx=_~O>y-X
W QO dd

020573
02U600

[*Y] W

£83% 22 8

L&%mBfiL5u8Z.3B8E —LYETL~EyUE3T
®VvVOr=mareorm4t-eobm3MasraOoycMoa0esodatacmdeMX1m-+OL=oTe4O(asIlmactmicOamtce4miNaotn’+s4o. X wW ND raE DwXa aE qTW EaNmWwWw EXF aa
iIEWoEOek OWGi A ESAOTi C-PRm OO O OOOO
TWgo¥gn, N o XFII oO>nZTT ZNN2aw %X[+ o-oaN Q-ZazQ Ox~W=-Zaz oOX WZANNN Nw
OXwUO—.n_D+OY.~ZlKOOX-mMIWsOOILXFXB-Wuapg~wQ KZV-Oool-N5 N )=A N ~
Oogmq O O. e. am@ — Z

@
)
Q|
N
0
\
O
L
O
—
N
¢
N
=
0
t
)
=
t
t
D
)
TTS T ToTP 4ol alaimd’'d
N
W
w
>
]
o
o
[
@
]
Oz-xwvae2yLO + co-T lxO aB

uw.uO%—~uaMmoTwI}ruunqONoq q qu.qusg w%%mTT mwmT =

" ot|—r—lai-

lUaigenUlieRle(lUeieeUini(UeoRiScAiUeiUe"xROsi(]aUmlMUa0lw“Qe~Ulm%eAUl1Na)I~04WuyG1a0UmU1xOURa'Nz0YU‘OU&8QU1YTU"RMU10Gw.0UU1000U10Nv~No—U1—)TO)I—LN(0401ow[0+OUNO1UN%Y~b4O3YyN[])+N1I5UU0~vNw1@—%9UG51Nv>Xo%~9U110M]vNbU[2U11vN]-UZ[
MRCY1.
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.P11

e4-MAR-78
09:23
PRARGE 42
CONTROL PANEL TEST # 2

KOS5
SEQ 0062

CT
ON4S 1Y

-oN

SEEK OK/

;DRIVE

FLRAGS

~N\ o W W | o] Z W

MACY1l
MAINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.

30R(10Se)

24-MAR-78

e—

HERD ALIGNMENT ROUTINE

N S0SR1S AN RK-0SF
1L
sswé"‘*"s
|78Sw"siv;sw"
T0 BE ALIGNED.
MBER T
e §L°9??°B B R 1, Fon SiECTing SRence O
T’*? eI
CY"H?‘S&18" 0 85;2EEL§CT
Sftxugigongg ?;BESDEROéagHE 00D DRIVE
o*mssaY £PLaeeDon T8 SeecTepCYTINOER &
2

MY RNV

e ot ot Bt Bt Bn Pt P

Bt (ot Bt ot (it o

CYLINDER AND DATA IS RERD

ouga Hsggcggg 80E§N°8§ figcsasoBEESTOPPED TO SELECT THE
D:SH?SEELYORIt
LONER HERD on ch

e o P
Bt

000240
104401
000426

R TO SELECT RNO
gflévz PUT ANY suxrcn FROM SW2 TO SWIS UP AND
QUesTION (DRIVE?
GRAM WILL ARGRIN a K

SECT.5:

NOv

Bt Pt
P

ARG EFEERERBFENBIRoRRAF T

021532
021526

Bt Bt Bt

104401

31293
4

1'
o2 0027
00 13
10 S?7
00 13
042737
005237

"ASCIZ

HDALGN:

67$

(X:]3

_ASCIZ

.ASCIZ

TYPE

CLR

ROL IN
MOV
MOVB
sug
BLY
CiP
BLY
cLc
ROR
ROR
ROR
ROR

MOV

000106

BEQ
CHP

MOVB

BNE

.,TYPE RSCIZ STRING

<18)(12>/SET SWOL0

b6%

020614

020000
Delsee

65S

tys

TYPE

-éges:

Y S e T Il e [ oo [ o0

021020

104401

000427

TYPE

éé§7s:

e Pt P

020726

s ot Pt Pt Bt

104401
000432

T T
T

Pt Pt Pt Pt

éégss:

000067

n Bt ot Pt Pt P
e
B

020644

000060

[

REERRRRCRRREERRARERRERER BER

et Bt Pt Bt P

0
W

0t 0t Bt Bt Bt Pt Pt Bt Pt Bt Bt

SEQ 0063

;sHERD AL IGN

[AVIAV AV AV IaRa VgV oV gV ablaV i e ot Vit la0sVlaU] oV oV}N

PAGE 43

HEARD ALIGNMENT ROUTINE
.SBTTL

TR
e 8 SEIRRE H28B3BTRRBENZE
33 Jotet 2R3 DL LGN ED
ce0d

LOS

09:23_

E OVER THE

FOR SURFACE

ASCIZ

O, SWO=1 FOK “UR 1.,

,,TYPE nssx; STRING

SIGET

HE RSCIZ

<15><12>/SET SWi=8 FOR CYLINDER 105, SWl=1 FOR CYLINDER &4/
698

I1GET O ¥HE §
,,TYPE nscx

TRING

<15>¢12>/PUT ANY' 5W raon a-15 HI TO SELECT NEW DRVE.,
EMIO

FFLAG
(SP)+,R1
(R1)+'RO
So RO
HOALGN
867, RO
HORLGN
RO
RO
RO
RO

ASK FOR DRIVE #

anc FOR RK-0OSF

:GET OPR INPUT
: ADOR or connnno STRING
:FIRST CHAR
:0 70 7
:T00 SMALL
‘MUST BE 7 OR LESS
1700 BIG

Rg DRIVQ

EDRE S OF DRIVE

QLL oous IF C.R
(1S 1T F?

(R1)>+,RO

HthcN

NPUT cuan

:NO, SO ERR

1578
BNE

(Rl)
HDAL

INEXT cunn nusr BE C.R.
JELSE

INC

FFLAG

iSHOW F TYPE DRIVE

BIC

uexrxa DRIVO

PUSE tvsn onxvs IF R* QOSF

MARINDEC-11-DZRKI-E
MACY1]l
DZRKIF.P11
24-MRR-?8 09:20

518 BSiSYp BATAAZ
2220
282
oc
2ce3

2e24

2225
2co6

222?
o8

2229
FH
2231

0e2iel2
gsxsxw

40S
0

0elece

017?737

0M2737

021535
el

82‘"
27

1216
021220

gsxggz
08l

1250
1254
1

~10077?
o
106777

000176

157714

1777?75

30R(1052)

@24-MAR-78
09:23
PRAGE 44
HEAD RLIGNMENT ROUTINE

001140

021530

15$:
16S8:

021526
020000

160122
000017
160102

160106

7%:
8s:

ge3e
DEiss éoogg;
160072 95 :
SSSq 85}572 6 777 ?288?@

2335
2236
2237
2238
2239
2240
224l
ag:g
2
22¥4
2245

021302
021304
021310
021312
851355
i
021324
851;52
13
021336
021342

021344

06270]

2248

021354

100006

2246

10037%S
00S73?
001410
012701
Q05737
DO1412
062701
0407
12701
005737
001002

021526
000240
021530
010100

004000
021530

128:

002440

108:

2247 021350 005774 160014

2249

021356

012777

2251
ccSe

021370
021372

10037S
017702

157842

Sggg

oa{:oe

0202;7

021530

2257
2058

021414
021422

012777
105777

000017
157742

2050

2253

021364

021376

105777

042702

000086
1600

5560 oSiuse 893373 000020
226l
021434
032777
000001
021442
021444

001402
C 2700

2265
2266

148y
021456

1
010077

2264

831“50

8337

12%:
118:

17777S

2056 8519?3 8?657; 157762

2262
2263

160004

157746

157476

000020

017740

6S:
ys:

2s:

157714

5568 051408 Disrre tooa is77OR
Ssgq

021476

012777

000305

227l

021504

100375

105777

157660

2272 021510

GTSWR
BR

38:

#SWREG, SWR

:SOFTWARE

(2R THORGT SWITCH REGISTER IN USE?

168

;REO??ST NEW CONTENTS FOR SWITCH REG
1 CON
NUS

HALT
MOV

JSWR, SWTCH

{WRIT FOR
OPERATOR TO ENTER NEW SWR VALUE
sHOLS SWITCHES

BN
TS

72
FFLAG

MOV
MOV
TSTB

RO, 9RKDA
8]’ gnxcs
IRk

;aonnrss 0R1v§
;WRITE PROTEC

BPL
TST
BEQ
MOV
TST
BEQ
ADD
BR
MOV
TST
BNE

9s
FFLAG
138
#5 . %40,R1
SWTCH
10%
#130. *40,R1
108
864 . ¥40,R1
SWTCH
108

:WAIT FOR RERDY
:F DRIVE?
'NO
:TRACK S OF HIGH
=5”§
T2
YE
TEST TRACK B OF
STRACK 130. IF SW1 5ET

BIC
ggo
S

Bov
TgTB

8177975, SWTCH

' WANY 3W1 ONLY

73
#B8IT13, RO

;N8
;000 DRTVE

93
sRKes
afikgs

LT
P RN RREEcREADY
’

DRIVE

;CYLINDER &4 IF NOT F
i5W] SET?
:YES,
SO CYLINDER &4

JRKCS

:CYLINDER 105

MOV

.& gnxcs

IRESET

8PL
MOV

12%
SWR,

sWRIT FOR RERDY
'SWITCH REG TO R2

ggg

R2, SWTCH

MOY
TSTB

817 JRKCS
JRKLS

:WRITE
PROTECT THE DRIVE
‘WAIT FOR CONTROL ROY

820,

;CLERR

BEQ
BIS

2$
820 RS

:NO TEST TRACK
;rsgr TRACK 1

Bis
MOV

Ri,RO
RD Snxoa

MOV

85, IRKCS

BPL

1STB

BIC

MOV

BIC

BIY

BIC

TST

BgLB

s41.%40,R1

IF HIGH TRACK OF F

MOV

157664

SEQ 0064

118

IRKCS

8° 77975, R2

33 JRKDR
RO
aa0 SWR

8],

917?40,

benoO,SRKHC
§
RK

gs cs

IANY ERROR?
iNO,

CONTINUE

:SW1 ONLY

;3nv cun~05756gcgobgsgégIN

Enggksgg ?HE DRIVE
TRACK

:SWO SET?

RDDR

:CLEAR CYLINDER RDDR
:PUT CYLINDER ARDDR
;nonss THE DRIVE

1ENT0
THIS BUFFER
;
{RERD,
.

DONE

588 €

IN RDDR

HIGH

MRINDEC-11-DZRKI-E
MACY11l
24-MAR-78 09:20
DZRKIF.P11

2274
2275
2276

021512
021520
021522

5578

Bsiasy 890009

co80
2281
2282
2283

2084
2285
2286
2287
2288
2289
2290
2291
3292
2293
2294
2295
229%
2297
2298
2299
2300
23C1
2302
2303
2304
2305

021532
021540

032777

00S01S
03750%

NOS

09:23

PAGE 45

SEQ 0065

HERD AL IGNMENT ROUTINE

BIT
BEQ

157420

8177774, ISWR
108

;EXIT OUT?
iNO,
CONTINUE ON THIS DRIVE

IMP

HDALGN

:YES, GET NEW DRIVE

.RSCIZ

«<15><12>/DRIVE?~/

.SBTTL

DISK POWER FAILURE

FFLAS:

0S1104
000

053111

SWTCH:
EMIO:

TEST

: (DISK)POWER FAILURE (ogaznc DISK WRITE) TEST
:THIS TEST CHECKS THAT
INFORMATION WRITTEN ON THE DISK IS
INOT DESTROYED W.EN THE DISK SENSES A LOSS OF POWER WHILE DOING A WRITE

'AND RETRACTS THE HERDS.

ENTRY THE PRNGRATM FINDS OUT THE

SFIRSY nvaxbngLE gasxs

x~?$cnres ;T

: SS POHER 3

DRIVE. 5~ gENSINS R LOSS orflsouég THE

: CYL INDERS

SARE

THE

caangsgxs THE USER TO
CLEARED AND A

021544

104402
012777
105777
100375
305005

2327
2328

021067
021664
021670

013701
013702
013703

005000
005037
010077
105777
100406

020614
000040

157552

INC

12%:

MOV

13746

Ocee4y

DRIVE

gnxvgxoq
?§§SS

1S IT PRESENT?
P1F NOT Sk S

DRIVO
#20000,
RO
8s
SECT.
6
DRIVO, - (SP)

:GET DRIVE

840, JRKDS

EM12

020450
020614
no0001
157514

;INITIALIZE

IS REPORTED.

THE

ARE STILL

9g
LEMI1L

022234

S6
o440l

TflE Ennok§ (OPL)

To CHECK IF
11-15)

CLR
CLR

108:

THEN THE HEADS

(CYLIN ERS 0-9 AND

SECT.6:

AND PROCEEDS TO TEST.

PATTERNS,

PE (FORMED

IF NOT R WRITE CHECK E RROR
.EVEN

MOV

XX)

PYT sagx T?F POHSR

WRITE-CHECK 15

; THERE.

B8S:

(DR

TEN WITH UNT

SUNIQUE PARTTERNS ON THE DISK

2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324

2325
2326

24-MAR-78

021078

021544
021546
021552
021556
021562
02i564
021570
021574
021576
021600
021604
021612
021614
021620
021622
021626
0215630
021634
021640
021642
021650
021654
021656

c306
2307
2308

1777274

30R(10S2)

9%:
157520

TYPE

ios

EMI1

ORIVO, -(SP)
81,

@]KCS

JRKCS

; CONTROL

RESET

LIZE PATTERN TO BE WRITTEN
; N INITIALI
;O ON CYL O, 1 ONCYL 1, ETC

5
52
ocLLENNW

WNN

Spgai

N
~

PEER

157264

#Rn_
, RKDS

oV
MOV

?l‘m
IR2
oeurg,ak: 3

5§

1578

ang

9RY

BPL

MOV

POMWER/

67%
6$

1STB

IRKDS

1ST8

éfiS:

-4
0], 3RY

000001
157260

BPL
EEX

-2
Rg IRKDA

MOV

RS, BUFR

022232
164000
004007

—

SF S

ISK
1 CYLINDER

4E HERDS TO SETTLE

"HeTastiz

1 B8R

COUNT= | CYLINDER

VE POMER TO GO DOWN

, KEEP ON unxrxnc ON CYL 10

POWER LOSog WRS SENSED,

RSCIZ

-678: .RSCIZ <15>¢12>/POWER ok/
BPL
MOV

022232

S THE DISK

#4003, 9RY

TYPE
BR

8( WRITTEN

.RSCIZ2

2s
65%

R,9R3

§£0
YPE

BIT

—r

2—0

MOV

[o]

R
TN
»-14000, IR2

"3
3805 he

2S:

S
3330

VA
MOV

e Gt

s e

R
s
NN

e
b
e

004003

; TMm

157366

022006

164000
022232

BMNE

;N ALL 1S CYLINDERS?
, GO BAK

2
m

000100

022060

[

MOV

UOS:

INC
cHP

-2

E 1 ng (esgé*axa WORDS )
FOR CON?SOL READY

[

855

MOV

164000

, 820

1STB

022232

Lnazg PRTTER IN DATR BUFFER.

PN T

| ond oad od 0

000012

i3 33\4

n
~

ot Pt P

00000

anosoc

:-658%:

o put { Ve e

0460 , RY

323
40 -

000020

- =000

EY8YBFRcRRE
£
n

MOV
BPL

B
s Pt Pt ot
e Pt
Pt Gt Pt

:g.

..._‘

s
P Gome

£ E£ENW

MOV

e
e P
Pt

k5 i:J3ddide I

18:

022232

3EQ 0066

- 00000

:
zZ
N ~¢u£g§
g

s Poad Pn ot P P

RRRRRRRRER RER RESRERR

RERR

run

GIER

BIINAE 23233324 2 SRR
SRR

NIV AV IAVEVIA VT S LAV T VT VT VG VTG VT VT oW VT VT VI V)

D5eRb! ORISR,
B PORERralIRE rESTt

BO6

bS:

MOV
MOV
MOV

TSTB

BPL

nefirn aR3
4000, are
.w o , ORY
.-a

;WRIT FOR DRIVE RERDY

; CONTROL RESET,

CLERR ERROR

; INITIRLIZE PRTTERN

;WRITE

CHECK,

GO,

IBR

MACY1l 30R(1052)
09:20

Y-MAR-?

DISK POWER rn

?9U53

TST

ke
YPE

022156

iANY ERROR”

iNg YPE AESI¥sraxnc

7% s

aR1, -(SP)

énc
MP
BNE

Rg
RS, 820
68

IMP

108

BUFR:
EM1l:

.WORD
.RSCIZ

O
/DRIVE

EMI2:

.RSCIZ

/1S WRITE PROTECTED ~

.SBTTL

TYPE ROUTINE

TYPOC

7S:

T30 9000

InOTEL:

AT o

3L< CRONTATNS

s g%
e
s

001157

000002

rSo

00C00e

000011
000200

3P R0 ShomRCTERS e TR L Eeo.

THENOPGEROF PILLER CHORACTERSAEGOTRED.

SFILLC CONTRINS THE cnnnacrzn T0 FILL AFTER.

;:Q?Lbéxuc
A TRAP, MESRDR
INSTRUCTION
::on
TYPE
‘u

RSCIZ
HE
RKDR-/

00T 00 00 3000 00 00 00 00 00 00 00 00 00000 00 00 0000 30 000 30 30 00 00 00 30 090 90 30 30 00 30 00 0 30 00 30 00 00 3 36 50 30 30 90 00 30 3% 8 34

:NOTE3

PRUPRRYYY YA PRPPY PRPYRERNYYRPYY
|
®
-8 BPYR RETRT Bo@ e N £ w038 ~

0S3440
0S00M0
0s2103

JRY

MOV

021SeM

0s3111

SEQ 0067

€ TES

{GET OV
6
BR
.ASCIZ <(15>¢12> /ERROR, bh PWR-UP|

segqs

000020

oln]

PAGE 47

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR

STYPE:

T {a

$IPFLG

MOV

°SSSP’-R°

ggo

82, (SP)

1s:
'

2s:

HALT
Bov

60S:

MOVB
BNE
ST
MOV

ggoa

3s:

CMPB

“éS
55 A TERMINAL®

AD.-(sP

E:HnLT HERE IF NO TERMINAL
R ERD

(ROY+,2(5P)
4§
(§P)+
(SP)+ RO

;;Egsu
TER TO BE TYPED ONTO STACK
$:BR
IF IT ISN'T THE TERMINATOR
;;ag TERMINATOR POP IT OFF THE STACK
i
ST
RO

:3GET nggssgg OF ASCIZ STRING
ao;usr RETURN PC

$HT, (SP)

;;SSRfiCH IF (HD

SCRLF, (SP)

; 1BRANCH

IF NOT

<CRLF>

£33

2447
2448

2449

2451

IST
TYPE

TB3401
73
8?3796
004737

885330

(SP)+

(CR)(LF> EQUIV
; s POP
1;TYPE
A CR AND LF

SHRRCNT

::3&5“555# cfiS&E@rESU"T

SCRbF

022504

PC, STYPEC

2440
11586

sFiLic, (SPy+
2s
(SP)
, -LL
SNU

0011S4
000001

SP)

022440
0c2s0o4

;ghnncnr

PC, STYPEC

; HORIZONTAL

8y:

805738

022504

132737
001372

as:

000002
000015

STYPEC:
156476
000002

De2eso4

000012

000002

MOVSB

JSR
8178
BNE

TSTB
BPL
MOVB
gHPB

CLRB
BR
18:
cMPB
BEQ
INCB
SCHARCNT:
. WORD
STYPEX: RTS

.SBTTL

THI? CTER

0 TY

S IT

FILLER CHARS. ?

LLESEHSSQR NEEDED

::éET
!!

z THE NULt NSSP
THE
F_No--¢o

YPE
R

TYP

NULL SPF OF STRCK

T COUNT RS A COUNT

TRB PROCESSOR

EST

156504

SEQ 00e8

..3

2444

TYPE ROUTINE

Rg WITH SPACE
S

PC STYPEC

87. SCHARCNT

IF NOT AT
oP

ep)e

e
i MaR

E(SP)

J$TPB

R,2!lsP)

;s LORD CHAR TO BE TYPED INTO _DRTAR REG.

R CARRIAGE RETURM?
..és CHARACTER
ANCH IF NO

scunncur

..YES--CLERR CHARACTER COUNT

8LF,2(SP)

"BEQNEQRQCTER A LINE FEED?

(PC)+

::CSSSQCTEE
COUNTs?onnce

YPEX

TYPEX

2443

DO6

PRGE 48

09:23

e4-MAR-78

2442

30R(10S2)

O~nsWw
—

MAINDEC-

DZRKIF.

MACY11
1-DZRKI-E
1
24-MAR-78 09:20

YES

BINARY TO OCTAL (RSCII) AND TYPE

Illll!lllIllllll!lllllllIlllll!llllllI!lllli!llll!Ill!ll!lllll«l

iTHxs Rogrxne 1S USES
nno
R 16-BIT BINARY NUMBER TO R 6-DIGIT
lOCTQL
IT
SCII) NUHS
STYPOS-~--ENTER HERE

QCRLL'
;I

i
i

TYPOS
BYTE
.BYTE

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

NUM, -(SP)

&
,l

;NUMBER TO BE TYPED

.,CRLL FOR TYPEOUT

;iN=1 58 8 FOR NUMBER OF DIGITS TO TYPE

1=TYPE LERDING 2EROS

G=LUPPRESS LEADTNG 2EROS

; #STYPON----ENTER HERE TO TYPE OUT WKITH THE SAME PARAMETERS AS THE LRST

QSTIPOS OR STYPOC
L

MOV

NUM,
- (SP)

: ;NUMBER TO BE TYPED

MRCY1l
4-MRAR-78 09:20

-DZR I-E

EOB

09:23_PRGE 49
309(1052)B
24-MRR-78
INARY TO OCTAL (RSCII) AND TYPE

SE@ 0069

lSTYPOC---ENTER HERE FOR TYPEQOUT OF R 16 BIT NUMBER

-0

B RT eyLTS Faaias
T ASNRNT
*&o
P& £ S UQ#
NN

flfigz
n
~
W
~

000000
000001
02273S

STYPOS:

000001
000006
00000S

STYPOC:

0e2273e

MOV
TYPOC

HOV

1(5P) ) SOFILL
(SP)+ . SOMODE+1
s (8¢)
STYPON
Ib&

oS, SOCNT
R3)-(SP)
RY.-(SP)
RS -(5P)

STYPON:

..NUHBER T0 BE TYPED
iCALL FOR TYPEOUT
PICKUP THE

0 FILL suxr H
Loao zsn
..ggnac OF DIGITS TO TYPE
JUST RETURN RDDRESS
FILL SWIT

.,s T r

&) DIGITS

T THE

RATION COUN

H
,,sn
nu
:SAVE RS

0e273s

33fi005+1,nq

;;cer THE NUMBER OF DIGITS TO TYPE

092739

RY . SOMODE

86, RY

SOFILL,RY
IS(SP),RS

iGET THE zsno FILL SWITCH
THE INPUT NUMBER
.,PI KUP

18:

,.ROTRTE MS8 INTO “C*

2s:

::FORM THIS DIGIT

022733
000012

Gs:
s H

6S:
000004

g-«:xmmo—«n —DOmD
-<o-»-gmm% —

4s:

O V<NNOO—
oMo

177770

000002

39%:

022734

l=
NN—N
oo

3(SP),-(SP)

@
[24

$#3g§i SeaTRe ga&a&a 35
RO?

on
Qoor
0

NUM, - (SP)

cg. OMODE + 1

et Pt

et o

QOO+ tope
e e

o444

800000

022726
022730
022731

§8
e2

S datatal
RERH
Rk &
2EF
£5

St
Pt Pt

—

o
s P

RRRRERRRRRRR EREERRRRIOR
Rokek
ARARR
B
oL
842K nN£O

lCflL

KRR
NNYNY
Yoz

ODMNOCUN £ W

RARRRRLY
AHHRNHN RRARAR
o383 FR2E82838

;SUBTRARCT

IT FOR MAX.

..3AVE $
OR USE
1oL

ALLOWED

THE OUTPUT WORD

:GO DO MSB

RS
RS
RS,R3
R3

:iGET

7S
$177770,R3
4s

:sBR_IF NO
PIGET R}D OF JUNK
;; TEST
FOR O

5%
RY
#'0,R3
$'
'R3

:iBR IF
YES
JIDON'T
SS ANYMORE 0°'S
: : MAK
THI? 0IGIT ASCII
: MAK
aga I IF NOT ALRERDY

$OMODE

R3,8s

4G
2s

6%
RY
2s
(SP)+,RS
(SP)+.RY
(SP)+,R3

2(SP) . 4(SP)
{SP)+, (5P)

:ITYPE

LSB

THIS

THIS DIGIT”

DIGIT

;;SUPPRE?E TH1S 0?

::SAVE

FOR

TYPING

188,17,
TIS DtarT

2598
IF noaé 10 DO
;:BR IF DONE

D IN
LAST DIGIT ISN'T R BLANK
:1GO
THE LAST DIGIT
:
'RESTORE RS
;;RE TORE RH
gs ?R

HE srncx FOR RETURNING

$0RQGE FOR RSCII DIGIT
;R

.,TERHINQTOR FOR TYPE ROUTINE

MAINOEC-11-DZRKI-E

DZRKIF.P11
2554
2565
gggg

022733
022734

MACY11 30R(1052)

24-MAR-78 09:20

2559
2564

022736
022740
022742
022744

2566

LSB

000000
000000
000000
000001

§TKCNT: . WOR
STKQIN: .WOR
$TKQOUT: .WORD
STKQSRT: .BLKB

022746

.EVEN

022745

. ZERO FILL SWITCH
: {NUMBER OF DIGITS TO TYPE
XYY

2 2L 22
NR2222SZSRERSRESREZ

: s NUMBER Sr *TEHS IN QUEUE
INPUT POINTE
: 1OUTPUT POINTER
::TTY KEYBOARD QUEUE

0
0
O
|

$TKQEND=.

2567

SEQ 0070

BINARY TO OCTAL (RSCII) AND TYPE

s#TK INITIALIZE ROUTINE

2568

'#TH]IS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE

'wSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBORRD INTERRUPT

gggg

2571

#CALL:

gs7¢e
g;a

2575

022746

(C0S037

0227:%

2677
2578
2579
2580

022760
022766
022774
023002

013737
012737
012737
005777

022740
023016
000200
156140

2681
2582

FOB

PAGE 50

HH Yy Yy P Yt Y Y XYY XXX

2565

2576

09:23

O
SOFILL: BYTE
O
SOMODE: .WORD
.SBTYL TTY INPUT ROUTINE

000
000000

ESSS

2560
2861
2662
2563

24-MAR-78

022758

023006
023014

012737

012777
000207

022714

000100

022740

PC, STKINT

JSR

RETURN

$TKINT: CLR
MOV

032742
000060
000062

s sCLEAR COUNT OF ITEMS IN QUEUE

$TKQIN, stkoouT
8STKSRY, 98TKVEC
8200, 9atKVEC+2
JSTKB

;;ou;
INTO THE INPUT & OUTPUT POINTERS.
;;
INITIARLIZE THE KEYBORRD VECTOR
::*BR* LEVEL 4
: s CLERR DONE r%nc

8STKQSRT, STKQIN ; :MOVE THE STARTING RDDRESS OF THE

MOV
MOV
MOV
TST

156130

STKCNT

MOV
RTS

8100, 3STKS
PC

2584

; #TK SERVICE ROUTINE

2586
gggg

'#BY RERDING

2585

:#THIS ROUTI

! 'ENGBLE TTY KEYBOARD INTERRUPT
::RETURN TO CALLER

uxtL SERVICE THE TTY KEYBOARD

THE

:%IT IN THE QUEUE.

TNTERRUPT

CHARACTER FROM THE INPUT BUF: cR AND PUTTING

2589

023016

11774

15612

$TSRV: MOVB

JSTKB.

023026

021627

000007

18:

IfClg? (SP)

;;PICKUP

2591

BIC

ne
BEQ

(SP), 87

28
. IREG, ' SWR
68

3
TE RCSELECTED?
HH BRRRCH 1:60 TO su3 CHANG

CHP
BNE

81, STKCNT
38
SBELL

;1S THE QUEUE FULL?
:SBRANCH IF NO

égp)+

;;E§§$N CHARRCTER OFF OF STACK

(SP), %23

::IS IT A CONTROL-S?

2590 023022 042716 17760C

28 EPE 299 00176 001140
gggg 023042 001500

25 0SB 0oo737 ooooor 1 oeerae 3% oV
2538
2599

023052
023054

001004
104401

024066

2602

023064

021627

000023

gggg
2603
2604
2605

2606

2607
2608

023070
023072
023076

023100
023104
023106

75?

001021
005077
005726

105777

100375
117746

TYPE

ggr
3%:

156046

156040
156034

CHP

318:

CMP

- (SP)

BNE
CLR
TST

32%
J$TKS
(SP)+

BPL
MOVE

318
J$TKB, - (SP)

1578

9STKS

THE CHRRACTER

;;s%nxgpruc JUNK

::15 IT A CONTROL G?

:CRING THE

TTY BELL

' SBRANCH IF NO
:!DISABLE TTY KEYBOARD
' :CLEAN CHAR OFF STACK

11WAIT FOR A CHAR

:SLOOP UNTIL ITS THERE
{:GET THE CHRRACTER

INTERRUPTS

MRINDEC-11-DZRK]I-E

3 TEIF EELRN T

— —

geeee?

30R(10S2)

24-MRR-78

TTY

000100

g ¥

156012

32%:

022735

866133

208 812937

INC

gf:

SE?

000040
27954
22740
022740

02274S

022744

J22740

us '
SS:

09:23

INPUT ROUTINE
gnz

000021

00017S

W WKW W WIWW

RRRRRRRERRRR
2

[N n O

2bcu4
262S
b2b

24-MAR-78 09:20

W) W

et Pt
P Pt [

R 005 0% 0°0° 0°04 0F n
o

Pt et Pt Pt o

0@OMNCN.L W) o

DZRKIF.P{1

MACY11l

BOVE
INC

gzz

MOV

RTI

GOB

PAGE SI

SEQ 0071

(SP)+, #21

.,xgggr A CONTROL Q”

1130 ISTKS

::EisNaeLé
TTY KEYBORRD INTERRUPTS

STKCNT

..counr THIS CHARACTER

(ip) %175

éfigflgA §P£c§nL CHRR?

(9B}
+ CETKOIN

s Eolt
TETER SORqe

$§p>,.1qo

..xs

IT UPPER CASE?

sPRain®
:ERNBQT!
I ANISYER
grxoxu #$STKQEND ;; ggrr
THE Suov
oirxosar.srxoxn Bgse$
THE POINTER
..RETURN

13333083888
8233222 3433282 dls !Iiillli#i:cll!llillllllllllllll’llil

'iSOFTHRRE SWITCH REGISTER CHANGE ROU

000176

001140

155720

AND WILL

issnvxce
THSPESE §2R1NANG
INTEggfiP¥n§S°EaITCH REGISTER TRAP
»
SOFT SWR SELECTED
tcxsun CHP
XIT
; #ROUTINE

ENTERED

¥ote

155714
177600
000007

¥.<s

- (S

.f(
c19?
IKB,

cHP

FROH

P),# r4
(i

TP-E

TRAP HANDL

HQR HRITING’
R
;3iS
..IF NOT, EXIT
:YES

IMAKE IT

7-BIT nscrx

xr R SUN ng
if
l

: AND EXIT

T1I

THE

TTY

QUEUE

336 3% 36 3% 36 08 3698 6 08 3% 08 6 3% 3t 3 3¢ 3 3 3% 3% % % % 3 % !llllll'lllllllll!!!lilililllllllll!

P
RN,8 SWITCH REéxsER T AP CALL, ASA RESULT OF A
. #CONTROL -G BEING TYPED AD THE sorrunns 35&}52 Rscgarsk ggéNc SELECTED.
TTY

INT FROM

123727
001674

gi¢
023320

001134

112737

022746
155656
000001

104401
104401
013746

0e4077
024104
000176
02411S

023326

005046
105777
100375

023330
023334

042716

117746

000001

is:

cMPB

.DmE

(SP

,.CLERR CONTROL - ? OFF STACK

JSR

PC STKINT

CLR

(01135

SAUTOB, b1

BEQ
TST

MOVB

TYPE

s?xs

, SINTRG

,SCNTLG

SGTSWR: TYPE
MOV
198:

TYPOC
TYPE
CLR

' SMSIWR
SWREG, - (SP)
, SMNE
W
Z(sP)

d ¥

1578

9$TKS

MOVB

d$TKB,

CLR

BPL

BIC

INTERRUPT

;BRANCH IF YES

;FLUSH THE TTY

INPUT QUEUE

:DISABLE TTY KEYBORRD INTERRUPTS

,,SET INTERRUPT MODE INDICARTOR
; ;ECHO THE CONTROL-G

gSCII(QLL DIGITS)
CTAL
..880;Y¢E-;s THE

N$ SWR

; ; CHAR
13
IF NOT

- (SP)

#tC17?, (SP)

(tG)

;s TYPE CURRENT CONTENTS
; 1SAVE SWREG FOR TYPEOUT

; ;CLERR COUNTER

-(SP)

SERVICE

;1 PICK
;3MAKE

RE?
TRY AGRIN

UP CH
IT 7-BIT RSCII

C-

MACY1l 30R(1052)

11-DZRKI-E

P11l

24-MAR-78 09:20

&4-MAR-78

TTY INPUT ROUTINE

)
1627 000025
881§§s
§§3§ww
3346 104401 024072
062706 000006
023352
02335c 000757

208%:
108:

023360

021627

000015

885733

000004

023364
0233

001022
1%

12;77

G234l

104401
123727

023420
Oc3ve2

oeawgg
0234

02343

023442
023544
023450
023452

0234

801099
0127
00002
004737

021627
002420
1627
3015
0M2726

005766

M
023464
0
023470

001403
006316
006316
(06316

023510

000720

023472
023476
023502
023504

00Sebe
0S6bib
000707
104401

9s:

155536
1161
001135

000001

000100

155514

022440

000060

09:23

CMP
5
BN
TYPE
ADD

cMP

BNE

148:
1S%:
168:

000067
000060

000002

000002
177776

17%:

001160

18$:
.DSRBL

(SP), %25
135
SP
ke§CNTLU

SEQ 0072
A ONTROL-u?
E
égaucuecuo
ONTROL (W)
INPUT
cnbas PREVIOUS
TRY IT RGRIN

19¢

.,LET S

(SP), 815

::15 IT R ¢CR»?

168

..aannc IF NO

YES,

IS 17 THE FIRST CHAR?

TST

4(SP

MOV

2(SP), 3SWR

TYPE
CMPB

SCRLF
$INTAG, 1

RTI
JSR

PC,STYPEC

;;RETURN
:1ECHO CHAR

BLY
CHP
3GT
BIC

18%
(SP), 867
18
860, (SP)+

P IBRANCH IF YES
SICHAR > 77
: iBRANCH IF YES
;;sraxp-orr RSCII

178
(SP)
(SP)
(SP)

;
;BRANCH IF YES
DINO, SHIFY PRESENT
i
'CHAR oggn T0 MAKE
;3
ROOM FOR
NEW ONE

BEQ
118:

HOB

PRGE 52

ADD

BNE
MOV

cMP

118

15%
#100, IS TKS

:
BRANCH IF NOT
i
iRE-ENRBLE TTY KBD INTERRUPTS

(SP), 860

INC
BIS
BR
TYPE

2(5P)
-2(SP), (SP)
7
SQUES

LSB

rncx

2(SP)

VSR g

.6 s

TST

BEQ
ASL
ASL
ASL

BRANCH 1 YES

208

{ECHO (CR)AND (LF>
RE-ENRBLE TTY xeo INTERRUPTS?

::CHAR ¢ 07

“53 HIS THE FIRST CHAR

: 'KEEP COUNT OF CHAR
:iGET IN NEW CHAR
1 GET THE NEXT ONE
SITYPE 2(CR>(LF)>

: SIMULRTE CONTROL-U

Ilil!lilIl{llllll!lll{lllllllllllllllllfi!ll!llli!!!l!llllliliIi

figgfifi ROUTINE WILL INPUT
A SINGLE CHARACTER FROM THE TTY

RDCHR

SRDCHR:

MOV

U 4

o bt Pt Pt Bt e

OV
NC N LW

vy
NNNNNNNANN

e
s

023512

011646

023522

005066

023514

023526
023530
853332
023536

016666

000004

005046
012746
000002

023536

005737

000004

022736

00UVC02

:;GET A cnmngrsn rnon ms QUEUE

RETURN HERE

(SP),

: :CHARACTER IS
ON
S WITH PARITY BIT

-(SP)

MOV

4(sP},2(sP)

tus

CLR
MOV
RTI

-(5P)
264§, - (SP)

18-

TST

CLR

THE
srnxppeo OFF

; ;PUSH_DOWN THE PC AND

:THE

PS-

4(5P)

:1GET RERDY FOP A CHARACTER

STKCNT

; tWRIT

::PUT NEW PS ON STRCK
:1PUT NEW PC ON
STACK
: :POP NEW PC AND PS
ON A CHRRACTER

MRINDEC-11-DZRKI-E

Pll

MRCY11l

c4-MAR-78 09:20

88&8
&
3l %

023544
0235
0e3S

30R(10S2)

e4-MAR-78

TTY

INPUT ROUTINE

DEC

022736

IO
ggg

7?;56

e74e
022?42

gnz

022744
..

09:23

106

PAGE S3

SEQ 0073

; s DECREMENT THE COUNTER

STKCNT

A 2
D ar gongrr OF THE ENC”
nsrxosnT.STKQOUT'E-Rgs T *HE POINTER

ggxoour,csrkocuo’E-

;"u"uuu"iu"uu"""“un“nuuu"ui"u"uuu

ik THIE ROUTINE WILL INPUT A STRING FROM THE TTY

#CAL

RRRR
QUYLRER
zoh8qtdd

RRRR 5?&&8&5888988888
B o 2 p RL

e
:

023716
0e

04036
024066

000134
024034
177777
024036

MOV

R3. -(SP)

;;snvsnng

18:

MOV

#STTYIN, R3

1 1GET ADORESS

2s:

108:

CMP

BLOS

MOVB

CMPB
BNE
TST
BNE

TYPE

6s:

000134
024034

MOV

78:

024072

8s:

001160

ys:

024034
024034
000015

3%:

-(5pP)

sSTTYIN{30,R3

(SP)+,

(R3)

8177, tR3)

3
(SP)
123

::CLE

HE RUBOUT KEY

;;Burrsn FULL?
Y

;;BR IF

::GO RERD ONE CHRRACTER FROM THE TTY
::GET CHARACTER

13 IS IT A RUBOUT

::BR IF NO
1S THIS THE FIRST RUBOUT?

F NO

$'\, 98

JITYPE R BACK SLASH

k-1, (sP)

:;SET THE RUBOUT KEY

DEC
cHP
8LO
MOVB
TYPE

R
R3, sSTTYIN
4s
(R3),98
9$

75T
BEQ
MOVB

(SP)
78
$'\,38

: RUBOUT KEY SET?
2iBR IF NO
::TYPE A BACK SLASH

tsP)

:;CLEAR THE RUBOUT KEY

BNE

;iBR IF NO

: CLEAR THE BUFFER AND LOOP

B8R

TYPE

824036

023776

CLR

MOVB

5§:

00002s

;;nogfisss OF FIRST CHARACTER WILL BE ON THE STACK
: s
TERMINRTOR WILL BE A BYTE OF ALL 0'S

$SROLIN:

02403y
024034

0000ce

023762
023766
023772

RETURN HERE

RDCHR

000177

s INPUT A STRING FROM THE TTY

RDL IN

CLR

CNPB
TYPE
R
CMPB
BNE
CLRB
TYPE
TYPE
TYPE

?3!2

cMPB
BNE

¥25, (R3)

SCNTLU
[
#22, (R3)
3$
(R3)
, $CRLF
$TTYIN
$QUES

‘22"9’

k15, (R3)+

: 'BACKUP BY ONE
; iSTRCK EMPTY?
21BR
IF YES
1:SETUP TO TYPEO!T THE DELETED CHAR.
;: GO TYSS

ANOTHER CHAR.

::GO READ

;1S CHARARCTER R CTRL U?

::TYPE R
CONTROL “U”
1160 START
OVER
::1S CHARRACTER R “tRTM?
;
IBRANCH_IF NO
:iCLERR THE CHARACTER
SITYPE
A “CRTM & “LF*
DITYPE
THE INPUT STRING

PICKUP ANOTHER CHACTER

SITYPE A

*2?

: 'ECHO THE CHARARCTER

: ; CHECK FOR RETURN

::L00P IF NOT RETURN

2780

0Oe40le

011646

cl16
024024
0Q2403e
0e4034
024035
024036
0;5
072
0
024104
0Oevlle
0evl11s
0O24lege

012603
01
012766
002
000
000
30
177607
136
00S01S
007S
040
036440

000004
0e4036

00000e
000004
9s:

000377

047040
000040

000

2796

: ;RESTORE R3

; ;RDJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHRRACTER ON IT
i3
; RETURN

;STORRGE FOR RSCII CHAR.
; TERMINATOR

; CONTROL UTM
;CONTROL "G"

.RSCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

35 AT I

T 3000 3000

TR I

I IE I T T

TO TYPE

;RESERVE 30 BYTES FOR TTY INPUT
;CODE FOR BELL

SMNEW:

IR RAERRERR R RN

;ATHIS ROUTINE WILL READ RN OCTAL (RSCII) NUMBER FROM THE TTY AND

;lCHREGE IT TO SINRRY.
; #CAL

’

’
.

; ;RERD AN OCTAL NUMBER

ROOCT
RETURN HERE

;;LOW GRDER BITS ARE ON TOP OF THE STACK
; ;HIGH ORDER BITS ARE IN SHIOCT

’

006301

5820
029198
00658?
2821
024172
102
2822 024174 823715
024200
024202
024204
0c4206
0evele
Q24216
0e4220
024222
024224
024226

062601
000764
726
010166
010237
012602
012601
012600
000002
000000

177770

00001e
0c4226

; ;CLERR DNTA WORD

0)+,-(SP)

3%:

SHIOCT:

; sPICKUP THIS CHRRACTER

;;Ig ZERO GET OUT
i

;%8

~~N

Q0e4le4

;s GET ADLRESS OF 15T CHRRACTER

cs:

;;PROV*DE SPACE FOR THE
5 INPU
NUMBE R
; ;PUSH RO ON STACK
; : PUSH Rl ON STACK
; ;PUSH R2 ON ?TQCK
; sREAD AN RSCIZ LINE

po))
-0

18:

MOV
MOV

DDDOW
OO0

SRDOCT:

000002

0oooo4

011646
016666
010046
Q010146
010246
104410
012600
005901
00S002
112046

024126
024130
024136
0Oc4i40
024i42
024144
0Oe4ide
024150
0e41Se
024154

St sie gl
818
2823
2824
2825
2826
2827
¢8c8
c829
2830
€831
2832

;:TYPE A LINE FEzD

s
(Y O
+4+4+TNN+

2797
2798
2799
2800
€801
2802
€803
2804
2805
2806
2807
808
2809
2810
2811
c8l2
2813
2814

STTYIN:
SBELL:

000012
0e0lee
053505

SEQ 0074

; ;CLEAN RUBOUT KEY FROM THE STRCK

2793
2794
2795

4YOI4

oo11ee

200L£~
RNI—=O~Y)

2782
2783
2784
278S
2786
2287
2788
2789
2790
€791
2792

005726

AN~V ~N~aDDVDDVW~DO~
VNN
NdU > N= M=)~ @ DN
Rlg
v
VO

27’81

104401

024010

INPUT ROUTINE

——T
&

02400M

2779

JOb

PRGE 54

09:23

AV
L=

2778

24-MAR-78

ANNAWOO

DZRKIF.P11

30A(1052)

L~~~
N~NNUNA
—“NVOoOr

MACY11
S4-MAR-78 09:20

MRINDEC-11-0ZRKI-E

; i STRIP THE ASCII JUNK
+;RDD_IN THIS DIGIT
; s LOOP
; ;CLEAN _TERMINRTOR FROM STRCK
; ;SAVE THE RESULT
; ;POP STACK INTO R2
; ;POP STACK INTO R1
; s POP STACK INTO RO
; s RETURN
; sHIGH ORDER BITS GO HERE

MRCY11
MRINDEC-11-DZRKI-E
24-MRAR-78 09:20
DZRKIF .P1 t

30R(10S2)

e4-MAR-78

TRAP DECODER

S5 SERTRUEIRIE

KOB

PAGE S5

09:23

I T 0600 00

SEQ@ 0075

00 00 00 00 06 00003000 00 00 0636 0 30 30 30 00 30 30 0 30 00 3606 06 0 8 30 30 00 00 30 06 3 30 00 08 06 00 3 8 3% 9% o4

i THIS ROUTINE WILL PICKUP ThE LOH%R BYTE OF THE “TRAP” INSTRUCTION

! #AND HéeoéT T0 INDEX THROUGH THE
RAP TABLE FOR TH$ STARTING ADDRESS
S®OF T
IRED ROUTINE. THEN USING THE ADDRESS OBTHINED IT WILL
:#G0

$TRAP:

000002

THAT

ROUTINE.

RO, -(SP)

ST
MOVE
ASL
MOV
RTS

-(RO)
(RO) ,RO
RO
STRPAD(RO),RO
RO

MOV

024264

; ;SAVE RO

MOV

2(5p) RO

:iGET TRAP RDDRESS

: : BACKUP BY ¢
{1GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;: INDEX TO TABLE
13GO TO ROUTINE

;3 THIS IS USE TO HANDLE THE “GETPRITM MACRO
024252
024254
024262

011646
016666
000002

C00C0o4

000002

STRAP2:

(
(SP),~(SP)

MOV

4(spP},2(sP)

MOV

RTI
.SBTTL

; sMOVE THE PC DOWN

i tMOVE THE PSW_DOWN
: 'RESTORE THE PSH!

TRAP TRBLE

;lTHI? TRB#E CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
:#BY

THE “TRAP®

;

$TRPARD:

024252

ROUTINE

TYPE

3255

WeEL Ll
N
T oo

36
024340
024344

154574
Oco44sy

000024
000026

;;CALL=TYPE

(RAP+1(104401)

TTY TYPEOUT ROUTINE

;;CALL=TYPOC
;;:CALL=TYPOS

RAP+2(104402)
TRAP+3(104403)

TYPE OCTAL NUMBER (WITH LEACING ZEROS)
TYPE OCTAL MNUMBER (NO LEADING ZEROS)

SGTSWR

;;CPALL=GTSWR

TRAP+5(104405)

GET SOFT-SWR SETTING

SCKSKR
SROCHR
SRSLIN
SROOCT

; ; CALL=CKSWR
; ; CALL=RDCHR
: s CALL=ROL IN
::CALL=RDOCT

TRAP+6(104406)
TRAP+7(104407)
TRAP+10(1044910)
TRAP+11(10411)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHRRACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

;;:CALL=TYPON

TRAP+4(104404)

POWER DONN AND UP ROUTINES

Rl
T2
[]

024450
000340

STRAP2

$TYPOC
$TYPOS
STYPON

.SBTTL

INSTRUCTION.

IS IIIIISISR
222 2222222 2L

: POWER DOWN ROUTINE

$PURDN: MOV
MOV

TYPE OCTARL MNUMBER (RS PER LARST CALL)

SSILLUP,

WP JRVEC

:SET FOR FRST UP

7
oSqo JWPUR\EC+2 ; 1PRIO:
RO, -1SP)
; s PUSH RO ON STACK

Ri.-(5P)
R2.-(SP)
R3,-(SP)
R4, -(S5P)
RS -(5P)

JSWR, - (SP)
SP, $5AVRE

; s PUSH
s s PUSH
; s PUSH
; ; PUSH
; ;1 PUSH RS ON STACK
; s PUSH ggNR ON STARCK
; s SRVE

MACY11
MRINDEC-11-DZRKI-E
e4-MAR-78 09:20
DZRKIF.P{1

2890
5891

024356
024360

30“(1052)

LOB

PRGE 56
09:23
e4-MRR-78
POWER DOWN AND UP ROUTINES
HALT

000000
000776

BR
< O

024450

Y
8544

000024

2900
2301
23
2904
2905
2907
2909
P10
2911
2912
2913
2914
2915

2916
2917

024406
G2uui2
G414
Coudle
024420
024422
024424
024426
02443
Oo4yd2

029444
024446
024450
024452
Q24454
Bou48e
Og44bM

0i26
Q12608
012604
012603
012602
01e60]
012600
012737
012737
104401

000776
047520

0O4ese?

CLR

AVR

$SAVRE

..uan FOR THE INC

(5P)+, 9SWR

'1pop STACK INTO @SR

MOV

(S5P)+. Rl

:0F

WORD

MOV
MOV
MOV
MOV

<gp)+,as
(&P)+ RY
(§P)+ . R3
(SP)+.R2

MOV

oSPuRbN Q8PWRVEC' ;;SET UP THE POWER DOWN VECTOR
8340, OsPURVEC+2; ;PRIO:
hsponr THE POWER FRILURE
: ; POMER FAIL MESSAGE POINTER
(5P)+ R

SPWRMG: hggno

SPOWER

SILLUP: HARLT
BR

-2

g AVRG: O
OWER:

IT LOOP FOR THE TTY

INC
BNE
MOV

MOV
MOV
TYPE

000024
00G026

024y
0000

1
000122

! AOWER UP ROUTINE
sSILLUP a-PuRvsc ;'SET FOR FAST DOWN
$PWRUP: MOV
MOV
ggnvng,é
; GE SP

154526

024310
000340

; s HANG UP

U 0000303008 08 300 06 3 0 08 O 30 06 96 0 5 3 38 38 96 36 30 96 36 36 38 38 9% 3 36 3 3 0% 3 3 5% 3 36 3t 36 3 3 3 O 3 36 3 3 % 3 3 3 B %

18:

-2

SEQ 0078

.ASCIZ

.EVEN

<¢15><12>"POWER"

: 1 POP
STACK } 10
INTO
STACK
::POP
i ;POP
STACK INTO
:POP STACK INTO

RS
RH
R3
R2

' 1poP &7ACK INTO RI

;;POP STACK INTO RO

;3 THE POWER UP SEQUENCE WAS STARTED
BEFORE THE POWER DOWN WARS COMPLETE

P 'p0F THE SP MERE

MRCY1l
MRINDEC-11-DZRKI-E
24-MAR-78 09:20
DZRKIF.P11

30R(10S2)

660
1366#
S06

BRgEON 8615&5
005360
BRSINC

1586
8

(001336
005450
0013%0
104406
020336
0013ce
012320
012314
001316
011404
001332

CRLF
=
ChCLE
CYCLE2

000200
Oo04174
004220

0ee23e

= 000015

[
n
[ Yo
...m
TV TATAT VIV e Te o 1a 010 o VT AT DT
ey ey
Y
WNNWWUONIN
L NN NNWNVOOOO O
-

BUFR

1432

1971

1978

20u4e

204y

OUD

BUSADR
CHECKY
CHKCNT
CKSWR =
CLRDPL
CNTYSIN
com
COMMON
COMND
CONTIN
CONTRL

BITOS = 000O0ON0
BITO® = 000100

1398

1982

000200
Q00400
001000
000002
002000
004000
010000
0200
ON0000
100000
JOOO
000010
000020
000040
000100
000200
Q0UM00
001000
000014
013700

1415

1588

BITU? =
BIT08 =
BITOS =
=
BITI
BIT10 :»
BITl1 =
BITi2 =
BIT13 =
BITi4 =
BIT1S =
BlTe
=
BIT3
=
=
3IT4
BITS
=
B1T&6
=
=
BIT?
BIT8
=
BITS
=
3PTVEC=
BUFF

1427

oF O B&<

BITOM

1393

[ TN

BITSS ==
=

—

.
el
BIT
=

1372%

(ST

017vee
017430

1370#=

]

BEGCT
BEGCLI

1368%
S13s

SEQ 0077

810;
15

() 0 bt ft ot Pt e Pt s Bt B () L P o
DO+
4t 1= = JWUO
PN NDOO
W LONN

BRDONE
BARD. IN

e
o

2 002H4Y
RJTS!
BR
001406
002274
BADINP

PRGE S8
09:23
24-MRR-78
CROSS REFERENCE TARBLE -- USER SYMBOLS

2359

2379%

2380

2400s

1989

MRINDEC-11-DZRKI-E

DZRKIF.P!1

CyL

CYLADR
CyLRD2
CYLBRS
CYLCNT
CYLOFF
CyLTBL

013552

005302
005306
1315
1342
S3le

001274
001410
DDISP = 177570
DISPLAR
0Q0ll4e
DISPRE
000174
DN1DRV
0203%8
DOe
80“2
pPL
=
010000
DRACTV
001164
8§CNY1
0013}&

DRI%E

886814

DRIVl
DRIV2
DRIV3

020616
020620
020622

DRIV?
DRYCNT

020632
020446

DSKTMP

001352

ORIVY
DRIVS
DRIVE

020624
020626
020630

nggm ot iggt‘?
DSWR

ECNT

177570

001321l

EMTVEC= 000030
M1

020450

EMIO
EMLY

021t 32
022234

EM2
EM3
EMY
EMS

020461
020473
scud
0e0sey

EmMiz2

MACYL11l

30R(10S52)

1514#%

1518+

1522%

797
837s
8el
1365#
151
338%
346

945
836
1374#
38
Yo#

24-MRR-78 09:20

793
836
2374
SSe
08

ccbs
2768
)
1818
1368
1959
546
289
194s
5330

116

]

2303%
2153
2154s
215Ss
21568
2157
21588
2159
13a22%

QS:

c2S9s

83Ss
856

2030

blY
1968
533#
:gSl

117§

2208%

221S»

2217

882-

Sggi

ggSl

322

352-

926 #

933

937

1596#%

1631

1660

1729

1908

1931

1942

1974

1985

2034

2045

cliys

2318

960#%
1477

970#%
1478

180

1g57

33?7

1892

2280s
c40l
e

1860
1912
1945
1335

895
cl18s
Y]|
clgae

21308

c8se
cBls

2152

1426

2194
231y

280

1881

1409

c048

001432
001422

1848

1392

020573

ERRWCS
ERRWF

1290

934.

13se

EmMg

ERRMCK 001930

1894

;gfll

1341w

§§8

963%

2838

c08ges

bI7x

c2leSse

001426

2070

2’128

704

28;7
S
cbes
cBas

206l

1440

1330

c4le

1988

2038

1425

1327

1790

1332

1408

1326%

2 gi

llég

1391

iggg

1977

ERRRFC

;09

854
1375

1268

020537

0601
006102
001360
001424

6874

1527

2319

EME

EM9
ERRCHK
ERRFLG
R

203;

SEQ 0078

2311

2316

02!

922

1767

55 )

NOG6

PAGE 59

CROSS REFERENCE TRBLE -- USER SYMBOLS

1741

358

09:23

2307%

02cey4

EM?

24-MAR-78

c4J3s

388

8855

978

clles

clzge

2l32s
s
874
1343%
1344+#

1398

1346%
1342%

876#
1420#%

1444 #

25
*

1453+
1403#

1484+

385%
*

1549%
1459+#

1487

yso

1550
1460

1734

BO7

g DRI J0RI0SE)
R T RencE TReLE = %R svMBOLS

3€0 0079

B
]
e

§:‘4
149+

99
1397

1135
141M

1430

él :
1%

E{ &
13834

222k

2e3b

2278s
389
S g

1088
129;
1
1708
IQOg

10
1309
1640
1713

381
498
7

385
;;

1051
1222
155&
1?
182§

377
491
7

110
1393
lgfl
1721
21;4

112}
lqg
1
172
2188

1
4S50
720

-—

[

-8

6S3%

484

485

487

SOi#=

538

S67

679

905

1072

1126

eo0

1369

13714

4Sb#

457%

15638

1837

8;3:

652

702#

507%

258 22k 8
5o ; &Y ; ¥

4g3»

676

's8

1368

1087

8
14]1%
‘698"
1

210

419

1890

SOog#*

1381

4S5y

b48

2473

e479

Slls

1757

S??

1068

1308

1908

B
2348
703
76

Sii

1139

gl
glfll

s0e

460=

S2Yys

1?67.

1788

458

cH4e

2390

1764

1473

1318
eel

T
752,

2353

1210
1607
1689
1806
2864

13909

1229
ec

Se3

1829

¥
36?7

19218

651#

409
663
103

118S
1578
1673
1778
2370

1373

11
2200

1754

40S
619
1023
1189
1599
1679

2869
2276

360
21948

2192

401
S80
394

2220
eaiy

1004

397
571
389
1157
157g
166

2874

s37

393
283
3
1148
1496
1957

2873

109
1314
1644
1717
2067

2872

! nr-

%6
479
744

871

1375,

z 22r‘§
2
9
32 K-4-4—12

286

X - lalalelalelele)
<00
Pt bt et [T}

414
708
1037
1214
1611
1695

446
716
1045
1218
1615
1700

2865

2866

503#*

S0S

1811

1819

1552

co?

24-MAR-78
09:23
PRGE 6!
MACY1l 30R(10S82)
MAINDE(L 11-DZRKI-E
-- USER SYMBOLS
TRBLE
REFERENCE
CROSS
e4-MRR-78 09:20
DZRKIF.F!1
2468
2088

e B

PRI
PRe

PRI

863888

79c%

b ald
S19e
494s

PRONUM

PRTTWO

I74n

1070

1206
108S

1224%
803%

806#

920

4O=

338"

2879
1439

2880#*

286898

2895#

11378

174¢

1748

1791

1798

1580
2810

2741
28738

2872

924

947

1393%

1735+

1742

1396#
1429
1663
1780%
2055#

1399
1432+
1683
1795
207s

1401
1448
1691
1845x
2032*

796

SEQ 0080

1728%

1768

Si9
Si8

== Boolon0
2

= 000140

. =

PRS

FSn

:xllll’s

1414
1370e
007356

RBUFF
ROBUFF
ROCHK
006450
ROCHKO
017020
ROCHR = 104407

RDL%:K: 104452
RDOCT = ?83311

001370

1133

[ X

28743

Eal

941

1744

1793

[

—

pen
P
P

861§7H

RKCS

446
74

AL SRR FFmRRU
~OED
o
EWT 0= -0

36
013214
013265

[

RE TRNY
RETRY
E;CESR

T
T

LW—NN L L L

005752
006052
001356
006232
000010
270

RD?
READCS
RESTRT
RESVEC=
TF

000
80\50—0

00}jeed
56
O~670
005676
005740
00S746

[V T

ROTBL
RD]
RDe
RD3
KDY
RDS

1148

1005s

1479

rd
11

2268#%

*VU‘I &
Ko
L 3
1

PWRVECE
RBA

1) 90 0=0 $=0 b pmopms
n
£
£
N

WOW N
NO\JJJ%

PR?7

) 0=t Pt et e e

PRY

DO7

PARGE 62
09:23
24-MAR-78
MACYLll 30R(10S2)
MRINOEC-11-DZRKI-E
CROSS REFERENCE TRBLE -- USER SYMBOLS
24-MRR-78 09:20
DZRKIF .P11

RKER
RKWC

001366
001372

RWC

001416

Qi35ey

SECSYS
SECTBL
SECT.0
SECT-1
SECT.2
SECT.3
SECT.4
SECT.S
SECT.6
SEEKI

003050
001305
01372
012002
010370
002642
017300
020634
021544
001402

SEl

SHF 2

SHF3
SIN
SINST
SMTME

oimle

13614

013612
001000
= 020200
005614

TACK =
START ~
STARTR
STFLG_
STKLMT=
STOP
STORE
STRTI

SUR
SWR

SWREG
SWICH
SW0_
SWOO
SWol
SWC2
SW03
SWO4

001100
001440
001434
001325
177774
013604
004072
DOL774

013576
001140

=
=
=
=
=
=

000176
021530
000001
000001
0000Q2
DOOOOH
0G0010
000020

1361
2060

1471
2089

1833

1662

1682

1316

1323

2218

1925

1356
2013

173b#

1743»

2327

2060

2098

LE R

¥} =

1792

001404
011570
020444

WWWW NN
Lt

SEEKO
SEKSET
SHFCNT

L
80— s P pt b e P 0 s s P
wn U‘z m:xu-——m:-—-wm
& Luwn ~w (1]
NWN~— 80‘.50‘0—-\1
LN LN

001344
003452
006752

SECCNT
SECOND
SECONE

1163

1921

SEC

1281#
1631%
c0ee*

2326

RHS
= 00100
RWSRDY
011356

1280%
1498
20S4#»

971
1794

1172
1865

153S

17e7

001364

gt
1790%

RKDS

1273%
149¢+
20s0

14,
1g93s
e3?77%

TT 2

001376

Y 2
o

RKDA

SEQ 0081

=TUOTSN)ON@-—M@-—[-o1]Y]0IN.=flNeUDM50A(—OON~UNYnIOOoOFTe8MN—UM(—mAt—FY—OD9~~N40D=U14tMONJ=OYHNUN6O==OMIOY4OSNe9MNtNOAN)tDeOCDROtWTOO“DtBOTO09MNTDOT~IONMNOO8NUND9~K0OD]0—T|¢¥UmXXXWnflA.o2DBONoN)NeMOm8D2T»gwM(OL[INWTNMM~s8Nnm|NX22XX2R2E222223.N23O.NsA.[|mW14&|O+s9[)]2s--ax1(]=1

o—TNVOM=MIBNN4N-9O]0nO[—N¢tI6M%OVER7O8oOT"e(MTVOA8O=N~2E¢7YD}“OT1—U.V(R<LN22~3Y”YtTANT)T=o8V72)IyCaFT=7=1M4%4O3LIe%Ng7Oot8MLr“N9boBo3N—=tmt.nL%oo~5=tON5t1RU73eb2Oo3L&0ON3tN"%l.%N4O“%D?T”N7O27N8S8D%%5O3loE9UT0N.6&—Mm8~-Wo4&=OTT?MM~IMVSNI](F4O?—ooNMxmSrMUQEN[EMk49g)=5gtE=6§g%q0oot=oS0F=dotdu“0ooittn0o-—wwmdttnNNDODODOODMDwMON1mg>-YTN4a7zn]FM)[u«UNOWw[QwNv

FON0I9YIOD8oT7Tx51Ty55“3%21u~.32FT10W9LMA8—T7TM&5O45O7M3N2UM9D62=7=43=54w\7~=5t/00&745%52515289438805][3@l17ad:—~oo0

o5m7083n5a106(1=a]}03NOCMHTNOUNO>1O:NO—N“.vMN6H8757nw!u.OF5Q~1turTFMumimnmmwREN7NE]NNNNoN4N=doRdNotom=tRoNto=tmBNLECEImNbt
1
1
—
0
1
2
3
2
1
beEPLrRrsRERIY M-TY1oOxr~ [t¥RXsB.KV8

[
wi

}

[ [+

4VY]
[+

(UCUNUIIMNg4—tq

)
L
>
@o@—ntO ou OJ OTNn M LTCMFO—CUU=LN~ONADTCRD—TNOD—~O—A~NMN—TMODDNO~MODNA—OMDDUOVNO—NM—CT~DE~MVT.ON @o@o
OT]m[V YN (OTU (=—~N~“TYTONYTOOAyNOUUCDV~VOeNM—tCMeeMdNHOOTWY

w»

TTMM TFFOOHNO~NNOONNTDOMIOTMINN
U IT HOM DO T

EQ?7
wn

SEQ@ 0082

—

FO~~NUVLMD

MRINDEC-11-DZRKI-E

DZRKIF.PI1

MACY11 30R(10S52)

24-MAR-78 09:20

013140
WCERRR
013654
WCHERR
WFERR
013144
WS
=
T
xggo

1451
1548
1402
e9ls
2S48

14558
1553
1469
1;39
]

WRRDCK

olsgsg

1624
1618

1636
1630

X
XX

015610
016024

1692
1710w

16978

001122
1126

17es
1748
2599

RLI
005104
WRPRO
016470
WRTNBY

SAUTOB

S8DOAT
SBELL

SCHARC

SCKSHR
SCMTRG
M3
=
SCNTLG
SCNTLU

RLF

*ERFLG
SERMAX
SERRPC
RRTB
SERTTL
SFILLC
SFILLS
SGDADR
SGDOAT

00131

001134

022504

023210
001100
DCOCO0
024077
024072

001161
001400

001103
001115
001116
001434

001112
001156
001155
001120
00l12M

gege
239

1778

2445k

26328
1604
908
2653
2670

1918
149

1630
1698
1708
3078
1678
1888
1878
1718
173s

SGTSWR
023300
$HD
= 000033

26548
11

SICNT
SILLUP

1648
287

SHIOCT

(24226

SINTRG

001135

001104
024450

SLPADR
SLPERR

001106
001110

W
SMSMR

024115
024104

SMAIL = sxxnax U
SNULL
SOCNT

$PASS
SPOWER
SPWRON

SPWRMG

SPURUP
SQUES

001154
022732

022734

2827%

1788

798

918%

3628

2788
2455#%

287!
322

2790«
2763

133}
2708

2448
2479

09:23

FO7

PRGE &Y

CROSS REFERENCE TRBLE -- USER SYMBOLS

192%
gse

1730,
17608

V77O

17288

1756

2646

2795

246

2471%

24768

24944

2479

2681

25188

2529%

2555

2700

2771

2788

1026

323
2789

1874

2479

2832%

2835
2651

2912
2682

358

2432

2450
2540%

2479
2553s
1134

2795

]

1658
1668

349

2657
2654

1868
2511

*»

2793
27918

25108

1618
2910
331

1129%
29158
28798

(024362
001160

2889
1908

2895«
422

29108

SEQ 0083

929#

2869
1

001100
DB24456
024310
024444

@e4-MAR-78

2515

2907
2479

2768

2788

-y

MAINDEC-11-DZRKI-E

MACY!1l 30A(10S2)

SRODEC= #munux U
SROLIN
023602
884 P )
SRDOCT
$RDSZ =
30

287S
27368
e805s
e/298

2873
2874

Y4
ARG 0BudEd

S8 %
S258%

2896

182

24-MAR-78 09:20

DZ&KIF.PLI
2R

#exaex

$SAVRS

SSETUP= DDOL 1M
SSTUP =

3i4s

}?77777

SSVPC = &00:22

SSWR

$TKB
STKCNT

147

160000

QSR

TKS

STKSRY
STN
=
STPB
$TPFLG
STPS
STRAP

STRAP2

STRP

TRPAD

STYPBN=

STYPDS=z

128

333

3SS

2720

27ecH

2636

2bbl

022740
§§ ;:5

cSble
S Eg'

2576
gg;?i

257?
Zsa

220
;s;a

cbeln
27es

cbee
2727+

2624#

1144

1828

2604 %

2606

2blox

2634

349
2Sb4s

]

023016
1
001182
001157
D01 iSO
0e4230

cSB8in

468
a9eb
2466
2841

2479
o479
2479

2856

2865

2866

28678

28681

2869

2739

2751

2769

2783

27874

2864
c461l

2466 8

2467

2686

cB85es

0O24ebu

2846

#uuuxx

mnaxss U

1628
2738
2868

2868

25898

2863

8638

2856
2454

STYPOC

(22S34

2S09s

865

022506

022550

= 024466

2649
2725

2578
118
185
189
1848
9

(0242Se

001102
024036

25758
cbee

2608

354

2589
cblun

24eche
44?7

331

€580
2597

022270
(e2440

STYPON

2914e

2559
Y41

STYPE
STYPEC

STYPEX

329

2898% #

1838
25604

= 000012

$STSTNM
STIYIN

2897% '

328

e47e

1318

c48s

247y

24778

Siis

135

326

SEQ 0084

24-MAR-78 09:23 PAGE 6S
REFERENCE TABLE -- USER SYMBOLS
CROSS

D0l 146
022736

STKINT
0e2746
STKQEN= 02274S

STKQIN
S¥§OOU

597

GO7

2591

2596

2597

2650

2660

2684
%

28708

2871

2872

2873s

28748

2875

1968

2078

208s

ccbe

109688
16418

11379
1649

11588
16548

1e34
16588

2867

1408

3668

147

3784

1484

382

15U

2868

152

390«

159a

394

193

396s

St4s
131-#

5728
13818

620s
14668

7178
14978

7 e
1533

90
15628

1ggao
1600s

1052
16168

2300s

2323

2336

23548

2362

2371

2373

2376

2384

1709

2795

—

4Sis
1243

16709

2627

1718s

1755

17658

1779

181les

18268

1901s

vyoee

c027s

2391

4Y0bs

2l5Sls
479

4100

21938
2559

Y479

2259

2563

MACY1l 30A(1052)

MAINDEC-11-DZRKI-E

DZRKIF.P11 ___24-MAR-7A N9-20._
1e

o4
21:
SCRPE
N

GETPRI

129s

129

S
oEo

MULTY

ORT

OPEt

SETPRI

EETTRQ
TUP

SKIP

STARS
SWRSU

TRMTRP
TYPBIN
TYPDEC

28568
1l

283S

cesebs
ls
1s
ls

TYPTXT

489
778

e
1687
SSCMRE
SSCMTM

$SSESCA

1817

1538
183%

SSNENT
SSSET
SSSKIP

18
2856
i

. SWHRHI1

.EQUAT
. HERDE
KT11
.SETUP

.9ACT1
.$APTB

.SAPTH

.SAPTY
SASTR

SCARTC

$CHTR
$0B2D

129
194

24s

Y ]
1
ls
ls

i
ls

1298

aegg

129

e8?7?

1298

129s
129%
1298

129

1298

496
887

13
1693
1823

la
1%

s e e -G
BT 8G~- |

355

i
2716

agga

2867

2869

2871

2872

2873

145

1SS

193

308

312

o4ll

c4ys8i

2558

26e?

eb4e

270s

2729

2797

399

403

407

41l

Y43

448

Y76

2893

333

350

375

513
981

18
1697

379

S50
986

1487
1702

383

387

560
99}

568
1021

w8
1

lelg
1711

391

39S

578
1030

617
1034

lele
1715

fesd
1719

b6l
1043

706
1049

2368

a0
1723

1898

c0c3

2065

clee

2186

2190

2351

c866

2867

2869

2871

287e

2873

2874

1298

1298
2865
129
19

314

143

ls
1s
1s

PRGE 67

o
129

1298

la
1538

09:23

129

GETSWR
MORE TR

24-MAR-?8

. CROSS REFERENCE. .TOBLE.=-MACRO_NANMES.

129
153

1306
1752

714
1086

3L
1762

2388

718
1090

1L
1776

792
109S

185
1786

749
1103

1ol
180v

756
1118

18
1809

CYll

nx
L

24-MAR-78

5
53
X3

s Pt ot Pt Pt P

3
52

s Pt
Pt Pt

X2
5

e Parmt P

3
32 X
X

s Prmcts Pt P

2
2

€833

2409
2479

L 2

9t Pt Pt Pt Prome

ABS.

g
.

2875

2795
2556

0244bb

ERRORS DETECTED:

000

DZRKIF.BIN DZRKIF.LST/CRF/SOL=DZRKKE.SML,DZRKIF.P11

RUN-TIME:

12 16 1 SECONDS

RUN-TIME RATIO:
CORE USED:
33K

102/31=3.3
(65 PAGES)

09:23

PRGE 68

CROSS REFERENCE TABLE 22 MACRO NAMES

30R(10S2)

-EQR-?B Bg:aé 3

—

[

—

o
N
0
x

107

SEQ 0086

JO7