Digital PDFs

MAINDEC-11-D51A

November 1970

69 pages

Original

2.3MB

Document:	RF11 DISK DATA STATIC PORTION
Order Number:	MAINDEC-11-D51A
Revision:	0
Pages:	69
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RF11/MAINDEC-11-D51A_RF11_DISK_DATA_STATIC_PORTION_Nov70.pdf

OCR Text

MAINDEC-II-D51A
RFll Da:SK

DATA

(STATIC PORTION)

ENTER INTERRUPT BACKGROUND T[ST
SR9

S~T

WAIT fOR INTERRUPTS USING WAIT INSTRUCTION

R~SET

WAIT fOR INTERRUPTS WITH BACKGROUND TEST

LOOP ON DISK ADDRESS
SRB

SET

LOOP ON DISK ADDRESS (SpEClfIEO BY WORD COUNT AND DAR)

RESET

CONTINUE TO NEXT DISK aUrfER AREA,

SE~ECT

SR?

TRACK fROM SR (DURING DYNAMic TESTING)

SET

SE~EC!

TRACK fROM SR

RESET

SE~ECT

TRACK UNDER PROGRAM CONTROL

TRACK SELECTION
6

S£LECI ONE Or 177(8) TRACKS

5.2

CONVERSATION MODE fOR PROGRAM PARAMETERS rOR OATA TEST ONLY
iN THE PROGRAM CONVERSATION MODE THE OPERATOR CAN SPECl'Y
ANY ONE OR ALL OF THE PROGRAM PARAMETERS.
PROGRAM CONVERSATION
DATA TEST ONLY?
IF THE OpERATOR ANSWER YES THE PROGRAM WIL~ ENTER ONLY
THE DATA PORTION OF TEST.
OK MODEi

MU~TL

MULTI DISK MODE IS A MODE IN THE PROGRAM WHICH ALLOWS THE
OPERATOR TO EXEClSE, ALL THE DISKS ON THE SySTEM WITHOUT
RE.STARTtNG THE PROGRAM, THE PROGRAM ArTER EXERCISING ONE
QISK WILL REPORT A MESSAGE TELLING THE oPERATOR WHICH OISK
~ILL BE sELECTED NEXT' AND THEN THE PROGRAM WILL EXERCISE
THAT DISK, WHEN A COMPLETE PASS IS ACCOMPLISHED, A PASS
COMPLETE WILL BE REPORTED AND THE TEST wILL RECYCLE.
IF THE OPERATOR ANSWERS "YES" TO nils QuESTION, HE WILL THEN
ASKED HOW MANY DISKs ARE ON THE SYSTEM, AND THEN THE
PRECEDING QUESTION WILL BE SKIPPED. IF THE OPERATOR ANSWERS
"NO" TO THIS QUESTlON, THE NEXT QUESTION WILL BE SKIPPED, AND
~E WILL THEN BE ASKED WHICH DISK IS TO 8E EXERCISED.

OF OKS 1 TO 10 OcTAL?

TYPE THE NUMBER OF DISKS ON THE SYSTEM, rOR MULTI OISK MODE,
EX,

DK? X

WHEN NOT IN THE MULTI DISK MODE THE OPERATOR WlLL HAVE TO
SP~CIFY ~HAT DrSK IS TO BE USED,
oPT t

WAD CNT?

IF THE opERATOR ANSWERS "NO" TO THIS QUESTION THE NEXT TWO
QUESTIONS WILL BE DELETED rROM THE CONVERSATION.
LENGTH

TO 1.000)1

XXX

OPERATOR CAN SPECIFY ANY LENGTH TRANSFER FROM 1(8) To
wORDS,
THE NORMAL TRANSFER LENGTH IS 1000 (8) WOROS
UNDER PROGRAM CONTROL.
TH~

1 '00 (6)

wRD AODR?

XxXx

THE OPERATOR MUST NOW SPECIPV THE STARTING WORD ADORESS"THIS
BEiNG ONE Or 2048(10). ADDRESS ENTRY MUST BE MADE IN OCTAL
TO 3777(8»,
(

(5.2 CONT'O)

OPT, DATA PA 1', #?
If NO OPTIONAL. DATA pATTERN IS REQUESTED THE PROGRAM WIL.L
EXECUTE THE fOLLOWING LIST OF' DATA PATTERNS.
PATTERN

"
"
"
"

-II

-,t

"
"

"
"
II

"
"
"
"
"
"

= '.';000~0

1 = 177777
2 II 134510
~

III

t1432~7

1000100
5 III 10707121
6 = ',Y7071217
7 = 125252
4

III

= ,,525~5
= 1777~7
= ,;041 02
13 = 136363
1~ = ~63636
15 = ~00eJ~1
16 = 100005
17 = ,;0052121
2 n = ':~303"'3
21 = RANDOM DATA
1 v.'

11
12

22 = RUN ALL DATA PATTERNS UNDER PROGRAM CONTROL

If THE OPERATOR DECIaES TO OPERATE UNDER PROGRAM CONTROL,
THE NEXT QUESTION WILL BE SKIPPED, THE OPERATOR BY
REQUESTING AN OPTIONAL DATA PATTERN HAS THE ABILITY oP
SELECTING ANY ONE or THE 21(8) DATA PATTERNS, DATA pATTERN
NO',' xx
OISK PROGRAM fUNCTION PARAMETERS
IN THIS SECTION or THE PROGRAM PARAMETER CONVERSATION MODE,
THE OPERATOR CAN SELECT ANYONE OR AL~ THREE OF THE CONTRO~
rUNCTIONS TO BE EXECUTED. THE NORMAL SEQUENCE Of DISK
rUNCTIONS UNDER PROGRAM CONTROl,. IS WRITE, WRITE CHECK. AND
THEN READ, BY ENTERING TH£ CONVERSATION MOOr. THE OPERAToR
HAS GAINED COMPLETE CONTROL OVER THE DISK FUNCTIONS, HE
MUST SPEcIFY YES OR NO TO AL.L Or THE FOLL.OWING QUESTIONS,
WRITE?
wRlTE CHECK?
READ?

eYES'" NO)
(YES" NO)
(YES" NO)

TO PERFORM A WRITE CHECK ONLY, THE OPERATOR MUST 'IRST
WR!TE SOME KNOWN DATA ON T~E DISK, THIS COURSE or ACTION
ALSO PREVAI~S POR A READ ONLY OPERATION •
• ir A~ (RROR OCCURS IN THE LINE THE OPERATOR IS TYPING,
bEPR[SS THE RUB"OUT, THIS CAUSES THE QuESTION TO BE
RETVPEO AND A~LOWS THE OPERATOR TO PROPER~Y ANSWER THE
QUESTION.
•

iNDICATES TO THE OPERATOR THAT THE CARRIAGE-RETURN
BE TYPED AT THE INOICATED P~ACE TO TERMINATE
THE LINE or TYPED C~ARACTERS.

SHOU~O

5.3

SUBROUTINE ABSTRACTS
STATIC TEST
ABSTRACTS rOR THE ~OGIC TESTS IN T~E STATIC TEST ARE NOT
INCLUDED IN THIS WRITE~UP, EACH SMALL TEST HAS A OES~RIP.
TION WIT~ IT IN T~E ASSEMBLY,

ADDRESS TESTS IN STATIC TEST ONLY
ADTl - TEST WORD ACCESS DURING A WRITE
IN T~IS TEST A ONE WORO WRiTE IS ATTEMPTED ON EACH ADDRESS
OF TRACK iERO, IF NO ACCESS IS ACCOMPLISHED WITHIN 1~0 MI~L.l~
SECONDS THE ERROR CONDITION MISSED TRANSFER (MXf) SHOU~D S£Y,
iF tHIS rLAG SHOULO rAIL TO SET, A PROGRAM TIME OUT WILL BE
REPORT~D.
If NO CONTROL ERROR OCCURS AND ADDRESS CONFIRMED
TAKES PLA9E, THE RouTINE T~EN CHECKS THE ADDRESS POINTER POR
THE CORRECT TERMINATING ADDRESS,
ADT~X

TEST WORQ ACCESS DURING A READ

IN THIS TEST A ONE WORD READ IS ATTEMPTED ON EACH ADDRESS Of
TRACK lERO, If NO ACCESS IS ACCOMPLISHED WITHIN 100 MILLISECONDS THE ERROR CONDITION MISSED TRANSfER (MXP) SHOU~D S£Y.
IF THIS r~AG SHOULD FAIL TO SET A PROGRAM TIME OuT WI~L BE
REPORT£D. IF NO CONTROL ERROR OCCURES AND-ADDRESS CON'IRMEO
TAKES PLACE, THE ROUTINE THEN CHECKS 1'HE ADDRESS POINTER
REGISTER fOR THE CORREcT TERMINATING ADoRESS.
ADDRESS TEST IN DATA TEST ONLY
ADT2 - TEST FOR ALTERATION OF WORD ADDRESS
IN THIS ADDRESS TEST 8 TRACK lERO IS LOADED WITH ALL oNES IN
BLOCK OF 2K. THEN THE TEST STARTING WITH ADDRESS 0 AND PR~u
GRfSSING UP THROUGH AND INCLUDING ADDREsS 3777(8), THE OCTAL
VALUE OF THE ADDRESS B IS WRITTEN ON ITSELF AND ALL OTHER
ADDRESSES ARE CHECKED FOR MODIFICATION. THEY SHOULD EQUAL
ALL ONES. AFTER CHECK IS COMPLETED AND ALL ERRORS ARE REPORTED
tF ANY, THE ROUTINE TH£N R[sWRITES THE ADDRESS WIT~ A~L ONES
AND TH£N CONTINUES ON WITH THE NEXT ADDRESS, .
ADT3 - VERIFY THAT ALL ADDRESSES EXIST ON DISK SURrAct TRACK
IN THIS ~OUTINE THE OCTAL VALUE or EACH ADDRESS IS WRITTEN ON
ITSELF I~ 2K WORD BLOCKS. THE ROUTINE THEN READS THE DISK AND
VERIFIES THAT ALL ADDRESSES CAN BE ACCESSED. -ERRORS MAY BE
~EpnRTEO IN THIS TEST WHICH ARE NOT ADDRESS ERRORS BUT DATA
ERRORS. THE OPERATOR IS CAUTIONED TO CAREPULLV EXAMINE THE
ERRORS TO DISTINGUISH BETWEEN THE ADDRESS AND DATA ERRORS,
AOT4 - TEST TRACK "X" AND "Y" MATRIX
THIS RoUTINE WAS DESI~NED TO ENAB~E THE OPERA!OR AN EASY ANt)
SURE METHOD OF DETECTING DEFECTIVE MATRIX SWITCHES. IN THIS
ROUTIN[ THE fIRST AND LAST LOCATION OF' EACH TRACK (~ AND 3177(8»
4RE WRITTEN WITH ALL ONES. AFTER THE INITIAL WRITE HAS TAKEN
PLACE, THE ROUTINE TH~N STARTS WITH THE FIRST WORD OF THE A80Vl
INDICATED LOCATION AND WRITES THE ADDRESS ON ITSE~'t THE NEXT
STEP or THE ROUTINE rS TO CHECK ALL OTHER ADORESSES TO SEE IP
THEY HAVE BEEN ALTERED. APTER AL~ ERRORS HAVE BEEN REPORTED,
IF ANY, THE ROUTINE RE·WRITES THE ADOR~SS WITH ALL ONES AND
CONTINUES ON WITH THE NEXT ADDRESS,
-

ADT5 ~ TE~T LOOK AHEAO rEATURE
THE DISK LOOK AHEAD rEATURE WAS DESIGNED rOR THE USER WHO
WANTED OPTIMUM USE or THE DISK, BY KNOWING AT WHAT ADDRESS
THE DISK READ HEADS ARE LOCATED AT ALL TIMES, THE ADDRESS
LOADED INTO THE ADS REGISTER IS THE PHYSICAL ADDRESS or
THE DlSK. THE PROGRAM LOCATES THE PHYSICAL ADDRESS
BY WRITE A WORO AND UPON RECEIVING THE cOMPLETION PLAG THE
PROGRAM READS THE ADS REGISTER, THE ADDRESS MAY BE uP TO
2 AODRESSES oFF,

(5.3 CONT'D)
SPiRAL - TEST DISK TRACK SPIRAL
IN THIS ROUTINE THE ABILITY or THE CONTROL (RF09/1~) TO SPIRAL
FROM ONE TRACK TO ANOTHER DURING A REAO AND A WRITE, IN ORDER
TO CHECK THE READ SPIRAL. THE LAST ADDRESS (3777(8» Or TRACK
~ERO IS wRITTEN WITH PRE~DETERMINED DATA AND THE rlRST ADDRESS
(') OF TRACK ONE, IS ALSO wRITTEN WITH PRE--OEIERHINED OATA,
THEN A TWO WORD READ STARTING AT LOCATIoN 3777(8) OF TRACK ~ERO
IS ACCOMPLISHED. THE TWO WORDS THEN ARE COMPARED TO THE DATA
wRITTEN AND ANy ERHORS ARE REPORTED.
TO CHECK WRITE SPIRAL, THE ROUTINE WRITES TWO WORDS sTARTING
AT ADDRESS 3777(8) OF TRACK ~ERO AND TERMINATES AT lOCATION 0
OF TRACK ONE. THE ROUTINE THEN READS THE TwO LOCATIONS WITH
ONE WORD TRANSFERS, AND VERIFIES THE CORRECT DATA WAS STORED IN
rACH U~CATION.
DATA 'ESTS
RANEX - RANDOM DATA. RANDOM ADDRESS RANDOM WORD COUNT TEST
THIS ROUTINES TESTS THE ABILITY OF THE: SYSTEM TO ACCESS RANDOM
ADDRESS wITH RANDOM DATA AND AN INCREMENTAL WORD COUNT, THE
nATA IS rIRST WRITTEN ON THE DISK AND THEN DATA IS WRITE~
CHECKEO. ALL ERRORS ARE REPORTED. THE WORD COUNT RuNS FROM 1
TO 1000(8) WORDS,
DATA RELIABILITY ~ DATA PATTERN TEST
IN THIS PORTION OF THE TEST. THE ABILITy Or THE COMPLETE DISK
SURFACE TO WRITE, WRITE~CHECK, AND READ DATA IS TESTED, THE
ROUTINE rlRST ~RITES THE COMPLETE SURFACE WITH A SET DATA
PATtERN, THEN A WRITE CHECK OF THE caMP~ETE SURFACE IS ACCOM.
PLis~EO, THUS REPORTING ALL ERRORS BETWEEN THE DATA wRITTEN
AND THE DATA IN MEMORY. THREE READS ARE ACCOMPLISHED FOR EACH
BUrrER AREA ON THE DISK, THE OPERATOR AT THIS POINT HAS SEVERAL
nptlo~S AS TO WHAT CoURSE or ACTION THE PROGRAM WILL TAKE NE:XT.
(R£'F. SEC, 5.1)
IN THE DATA RELIABILITy, ALL PROGRAM PARAMETERS CAN B~ CHANGED,
REF". SEC, 5,2
MAINTENANCE TOOL
STAMP - STATIC TRACK SELECTION
THIS ROUTINE WAS DESIGNED TO ENABLE THE OPERATOR TO HAVE A QUICK
METHOD OV SELECTING TRACKS FOR AMPLITUDE ADJUSTME~TS.

(5.3 CONT'D)

STAMP ~ OPERAT!NG PROCrDUR[
ST!:P A.

SET SWITCH REGISTER EQUAL TO 704

ST!P B.

DEPRESS LOAD 'DDRtSS

STEP c.

~ET

ST!P D.

DEPRESS START

STEP E.

SET SWITCH RtGISTER ~

sn:p r.

DEPRESS CONTINUE

SWITCH REGISTER 9 THRU 7 EQUA~ TO DISK #~ THRU 7

T~RU

EQUA~

TO TRACK

TRACK NUMBER
C0 THRU 117(8»
STEP G.

TRACK NUMBER CAN BE ~HANG£D ARBITRARILY.

ERROR REPORTS

6.1

STATIC AND ADDRESS REPORT.
XX ERR CNT XXXXXXWRD1XXXXWRD2
[RReNT - IS THE TAG rOR THE LISTING
WROl
= WHAT WAS EXPECTED
WRD2
= WHAT WAS RECEIVED
WHEN A REPORT ONLY CONTAIN~ ONE WORD THE PROGRAM WAS EXPECTING
BUT RECEIVED WHAT WAS REPORTED.

~EROS

6.2

ERROR REPORTS
STATUS ERROR
ST ATUS ERHOR XXOAE XXXXXXDA~ ~X~XXDCS,
~~ '---~----

-t'~

ABC
A-THE DISK NUMBER AND EXTENDED DISK ADDRESS BITS.
a-THE DISK ADDRESS REGISTER
c=THE DISK CoNTROL REGISTER

or DISK ADDRESS BITS
,xxx'-_x~~E XXX XXX ~$-}xxx--x-xi1
LAYOUT

DISK NO.

TRACK ADDRESS

WORD ADDRESS

BIT LAYOUT or DCS REGISTER
BITi5- ERROR

BIT14=

DISK rREE~E

WRITE CHECK ERROR
DATA PARITY ~RROR
NON-eXISTENT DISK
WRITE I.OCKOUT
MISSED TRANSF'ER
DISK CL,EAR
8IT8 11
BIT1.
READV
INTERRUPT r.;NA8LE
BIT6EXT£NDED MEMORV 1 ~XM1)
BIT5 11
EXTENDED MEMORV ~ (XM0)
BIT4MAINTENANCE
81T38112 1= ~uNCTION REGISTER
81T13BIT12.
BI T118 I TUI:
81T9-

111

BIT 2

BIT 1

1
1

OPERATION
NOP
READ
WRITE
WRITE CH£CK

IF' THE ERROR OCCURRED WHEN READING THr.: pROGRAM WIL.L. REPORT
WHICH REAO,

NOTEI WH~N A 'REE~E ERROR OCCURS AN AODJTIONA~ ERROR MESSAGE
WILL BE R~PORTEO, AS FOLLOWS'
XXX HRO ERR
LAYOUT or BITS 0 • 1
81T0. CMA INH. (NOT AN ERROR CONOITION)
81Tl~ UNUSED
81T2. NON-EXISTENT MEMORY ERROR
8IT~a UNuSED
8IT~a TRACK C TIMING ERROR
81T5. TRACK B TIMING ERROR
81T6. TRACK A TIMING ERROR
81T/. ADDRESS PARITY ERROR
6.3

QATA ERRORS
DATA ERR ~RE~ el~E) e~XXDAI) e~~~D DA ~ ~X~_ DATJ/"

ABC

A-WHICH READ THE ERROR OCCURRED
BliTHE DISK NUMBER AND EXTENDED DISK ADDRESS BITS
CIITHE DISK ADDRESS REGISTER
DaTHE DATA WRITTEN ON T~E DISK
E.IITHE DATA READ FROM THE DISK
6,4

RANEX ERRORS
ERRORS W~ICH OCCUR IN RANEX ALSO HAVE THE WORO COU~T REPORT
wITH THE ERRoR MESSAGl IN THE FOLLOWING MANNER.
RANe:X ERR ~DAET ~~J ~~_~~T!./
,
,
A
a
C
A-STARTING oAE or TRANSPER
a-STARTING DAR Or TRANSrER
ellWORD COUNT o~ TRANsrER

6.5

OVERrLOW ERROR
WHEN T~E DISK TRANSfERS MORE WORDS THEN ITS WORD COUNT WAS
EQUAL TO, THE PROGRAM FLAGS IT,
EXTRA BKS XXXXXX WRD ADDR XXXXXX BD DATA
A

AIITHE LOCATION IN MEMORy WHERE THE DATA WAS TRANsr£RREO
a-THE DATA THAT WAS TRANSFERRED

6.6

DISK ADDRESS ERROR
OK AOOR ERR XXOAEXXXXXXDAR
THE TERMINATING DISK ADDRESS ArTER THE TRANsrER WAS NOT CORRECT
THE OAE AND DAR SHOULO EQUAL WHAT WAS REPORTED. CHECK THE RF11
PANEL FOR THE ERROR AODRESS.

6.7

PROCESSOR TIME OUT
cPU BKGRND TIMED OUT
THIS M~SSAGE WILL 8E REPORTED IV T~E DISK 'AILS TO RAISE A
8R REQUEST AfTER EXTENDED PERIOD or TIME.

6.6

END
END
THIS MESSAGE 15 REPORTED AT THE END OF ONE COMPLETE PASS or
THE DISK SYSTEM.

- - - - - - - _ ..

__._._---_._-- - - - -

MISCE~LANEOUS

iN SOM£ AOORESS TESTS THE PROGRAM OEPENS ON WRITTING AND
READING OATA CORRECT~Y FROM THE DISK,ANO IF IT DOES NOT IT MAY
REPORT AN ADDRESS FAILURE. WHEN tN FACT IT WAS A DATA FAILURE.
8.1

SUGGESTED POWER PAll TEST
THIS T[ST IS SUGGESTED SO THAT THE ABl~ITY OF THE DISK TO RETAIN
DATA AFTER A POWER FAILURE HAS OCCURRED MAY BE TESTED.
FO~LOW

THESE STEPS IF NO ERROR OCCURS, ONE PASS SHOULD B£

SUrrlCIE~TI

LOAD AND START prT1

UPON RECEIVING "OK" FROM THE PROGRAM TURN OFF THE POWER
TO THE MACHINE AND THEN BACK ON AGAIN.

THERE SHOULD BE ATMOST ONE ERROR.
UNRELlABLt.

ANY MORE IS CONSIOERED

PE~roRM

THIS TIME THERE SHOU~D

THE SAME STEPS WITH PPT2.
BE NO ERRORS.

PALX11

V0~3

020000
~e~j001
:7!~(il002

29-0cr"70

0107

N=eJ
81Ti21l:1

'J~0010

81T1=2
81T2=4
81T3=10

~1rz.\iJ004

PAGF: 1

a~0020

BlT4::20

0k:00413
v.Jfl01013

81T6=100

;~00200

81T71:20el

BIT5=43

011.'0400

8ITS-4t:!JeJ

,lie, 11300

0041300

81T9=100(21
81T10=20013
81T11=413013

i!'il~(2l00

81T12=100013

02013013
H'!'11300

81T13=200013
81T14=40000
81T15=100000

·iHa0004

SCOPP.:=IOT

:d~20v'13

;{)40000

J
J
J

1.044C3
1~44vH

104405
.ije00013

WRITE:=TRAP+;'5
wRCHECK=TRAP+7
READaTRAP+5

.-"

'MACRO FOR SETTING UP ERROR COUNT
.MACR
ERROR X
ERRIX': MOV
#X.ERCOUNT
.5£T UP ERROR COUNT X
N=N+1

.ENOM
.REPT
.+2

HALT
.ENOR
rl"VV~/10

j~v)i2J02

.... 2

H~:

'J~. <2000

HALT

H:"

;:4

'~k~ yj 0 ~j 6

,+2

i 6

.?00000

HALT

1" ~H

lk:, ..~ 012

.... 2

Gk Ml013

HAl.T

n::;

','-~;016

.+2

k'~'"

~/~.'V0(."0

HALT

L)(;v i Q122

;_:,~

v' ((~~'

, ... 2

C'~.:' i,'

;.-

~.\::,

~'1

,,4

~ ~~ (ti

1b:,1?J26

.... 2

:'1V'~HHj0

;., \1

;):2J
.32

HALT

j;:P032
,10?i/jk'H1

HALT

rt~'

000

HALT
.+2

n-:

~';4

,fJv.~0036

,+2

!'~'

,36

Z0012lVi0

?,~i

40
42
44

::1N!)Q'J42

HAL.T

,!,(:~

:,~

.+2

.100"'~)0

HAL.T

~'l09J046

.+2

10~

29-0CT-70

PALX11

VlZl03

~1(j0046

000000
000052

HAL.T

0011(1:;0
(?~e'0:,2

:(;00000

HALT

0107

,+2

00 t~1 Q:5 4

cJ~i?l056

.+2

~>'0r~056

;"00000

HALT

~W0ii.J60

000062

,.2

V'h~v;62

00~01il0

HAL.T

~'0ev.l64

00012166
'1001210.0
:100121 7 2

HALT

v)k:~000

HAl.T

viiCMJ76
,:k'2'12100

HAL.T

V' ~ r' ('I 66
ee.p~~7"

?'!2\:?'vH2
~ e~' 13 7 4
2 C ~\ 0 7 6
~~ ro ii" 1 ;10
:' 21 :'1 (~2

.+2
,+2

.+2

;110211':'2

.+2

,_\~.;iI000

HALT

~'~/1~;4

:H~0106

.+2

(-~: ; 1 n 6

,11{000f2l

HALT

G'Q'r.'lHI

~'"0112

.+2

112

:1[(,"'000
dHll:l.6

HALT

~je0~H)f2l

HAl.T

n~I:'

' 114
C(:I'" 116

Ii' C:

. +2

7~~/'120

H~7.l122

.+2

122
~~~, v 124

',) ~ ~ ~b~0

HAl.T

:: tI i~

v;£i?1~~6

"e ~ 126
/H~ ,~0 00

.+2

HAl.T

H,,:i,130

/1~e132

.+2

H"("132

i:,[{ (D000

HALT

H~V'134

':1~0136

,+2

n'i,i;136

::le00v0

HAl.T

H"i;:14~

~~142

,+2

v)v ir.1~~0

HALT

&'N'142
:ii0/144
G~ ~i;.' 14 6
H3i! 1::>~
l~'? 1::>2

,.jel146

.+2

'I)e ~kH;0

f-lALT

':',(:/154

i'~Z156

.+2

,'If''156
e-( ,; 11) 0

/:1((:(:110010
,-1k',0162

i.lALT

C'0vlf:>2
i 1 V':V'164

'~V.'~00121

~ALT

t.lkj~166

,+2

(i"lCl!.66
(Alii' 17?J
210?172

100100121

HAl.T

~';D~174

/Vl176

,+2

r,':1>176

,;;('1.I0!?l0

HALT

:~Z152

;:; t ~~ e;j 121

,.2

HALT
.... 2

{>1{;V1172

,+2

0 ~'i 10 00

HALT

;)P~2e'2

,.2

HAL.T

Q'!7;' 2P14

',>1e00310
,~~ V.'l2 06

n;',~~v:6

;'iH1~00

~ALT

2'v.,?2i,H1
r,' V /?:tJ 2

,+2

r,',~'~1210

-,~ V 0212

.+2

1'l"I'212

k1 Z,;il000

HALT

~'~~'214

:1!7V.216

.+2

216

;~L.0000

I-IAl.T

V'~: it;22~

':H,;;'222

,.2

,~e00VlI2I

HAI.T

V1~~,

e0 fi-;? 2 2

PAGE: 1-1

PALX11

·J~v.;3

7·0;'224
vi(;(226

.100226

,+2

.:. 16;~ 0 vH21

HALT

29-0CT-70

121107

Iv'/230

,W~1232

,+2

hH"232
~.; 0 /' 2 ,3 4

!100~vl(2J

HALT

000236

,+2

Hic'236

3v.H!000

~', It,;~ 240
v'0/242

i;e~242

HALT

))1& 1vH10

,+2

HALT

H1v244

.,;it.i~246

,+2

('0(~246

,~~0~~121

HALT

;' V :"2~r7J
('I"~: 2 52

"'~li!252

,.2

N'0Z'0121

HALT

~0i?:;4

c lC~· 256

"'0Q1256
;(r62000

HALT

:/0/,26171

/~f1262

,+2

'/IZi~e00

HALT

~ALT

(7~:~:270

;)(00266
%~~ 0 0121
/;;:i.l272

" ~t ~, 272

'1.V,.HH~0

HALT

c·, v '? '2 62

~. i' ;', 264

1/ V (, 266

, +2

,+2
,+2

?v. 7 :;>74

~~~~2'16

,.2

\' v. ;' '? 7 6

,i!(;H'~0

HALT

:.. i':/ :3~!7l

~U~302

.... 2

'i~;.' 31- 2

HALT

('. ;1;. 3'~4

'I it':'~ C'; 121
/;v~"';3V'16

;'V/'3i'6

?k.:;t.~VJ0

HALT

•• 2

/~('3H?

ZZ;5312

,.2

312

;;v.·(~000

HAI.T

~.' ~" ~.'

<H4

.,~(I;316

,+2

~:'f'316

~: ~~, V.:l0 0

HALT

:.: l'~ 3 2f2l

"~ ~~

(l'v/~22

/,i:11000

~,. ~)

322

, +2

HAL.T

r,;t?3?4

/~VJ326

,.2

v v.J~;:~26

;,;lv0~:0

HAL.T

[,"c :':~30

'iV. i1332

.+2

v.v;~·332

HALT

?Iti!" ,~34

{) ~0Q!00
7..e. r,;, 336

~'.0:"336

7~00({'0

HAI,..T

• ·2'

n;~~ 340

tk:'i1342

,.2

;~~/342

lk0000

HALT

;' k~ :'" 3 4 4
V"0Z346

,.~,

['~~:~3~121

Vv.;I/352

,,;'~0352
IJe~000

(?0~)'~54

v~e~356

.+2

vlil?~356

tilJ0ft)V10

HAI...T

234 6

be00~)0

.+2
HAI..T
• +:;:'

HAI.T

;'iH'361l1

VI;? 0 3 6 2

,+2

1.'10362
vef?,364
v'(W 366

/)e:0000

HAL, T
• + t~

;iHH',:n0
v;:W372
VV,0374

(-1!lVl372
v'~03 7 6

I-lAL,T
.... 2

v0~:316

,.V 0000

HAL, T

~1(r0366

[!'~~Cil000
r.~~ VltllV'l0

HAL. T
• • (!

PAGE 1-2

PALX11

\"003

H~ili2~0

ii,fiii" 167

29-0CT-70

01PJ7

PAGE 1-3

V00672

•• 20~
JMP

START

:'1~~0200

;STATIC ROUTINES
.=31210

i/~0312l121

00033121
NH!J334
eft2'34121

000167
?({,V;167

01211210

JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
JMP

v'0t344

?,00167
Hd0167

01211254
"'1211320

JMP

STAl12
STAl13

(k:030121

':J~'0167

~. 00 31714

.5~e·167

V'f2!031 121

"1~016
~:irt~;167

e0v314

70032121
e00324

e0Vo35121

,;J00167
0e1liH67
e~e.167

0121121702
01210754
0112110121121
0.01t!l24
0011215121
001~14

"0112~
~l2Il144

STAll
STAI2
STAI3
STAl4
STAIS
5TA16
STAll
STAIll21
STAll1

J~~p

Vi~:H'J354

J~1l167

(70236121

012'0167

201362
01211426

JMP
JMP

STAI14
STAllS

(700364
?flQ'370

"lflV1167
rolZ0167

001464

Jt-1P
JMP

STAI16
STAll?

~0153r21

TEST RESET TO CONTROL REGISTER
TEST RESET TO CURRENT ADDRESS REGISTER
T£ST RESET TO WORD COUNT REGISTE:R
TEST RESET TO DISK ADDRESS REG!STER
TEST RESET TO DISK EXT. ADDRESS REG!STER
TEST RESET TO DATE BUF"F'ER REGISTER
TEST RESET TO MAINTENANCE R!:GISTER
CAN WE SET W/R BITS IN DCS REGISTER
CAN WE CLEAR THE DCS REGISTER
USING DISK CLEAR.
CAN WE SET ALL CMA BITS
CAN WE CLEAR ALL CMA BITS
USING DISK CLEAR
CAN WE SET ALL WC BITS
CAN WE CLEAR ALL WC BITS
USING DiSK CLEAR
CAN WE SET ALL THE OAR BITS
JCAN WE CLEAR ALL THE OAR BITS
.USING DISK CLEAR

PALX11

V003

29-0CT-7QJ

000374

0~0167

~100400

r~~e167

00e404

V.l00167

001572
e01636

0004H?J

~01614

JMP
JMP
JMP

STAI21
STAI22

000167

002614

JMP

STA140

~00414

("00167

003;64

.;MP

STAI56

01210420

000167

00e.424

0~0167

JMP
JMP
JMP
JMP
JMP
JMP

STAI?4
STAI??
STA103

STAI20

000430

(,le0167

0~e:434

(J)e0167

000440
002444

0NH67
0~0167

004510
:1104712
005160
0053512)
005546
0061UJ

e:~W45QJ

0(13167

006240

JMP

STA1UI

000454

'.H30167

006370

JMP

STA112

t?'0e'460

:~~0167

006520

JMP

STA114

0r21C2'464

iJ00167

006626

JMP

ADT1

Cil0e47121

Zv.0167

007022

JMP

ADT2X

:1~0650

ST105X

NXMTSM

STA106

JCAN WE SET ALL r~E OAE BITS
ICAN WE CLEAR AI.L T~[ DAr BITS, USINa OISK CLeAR
IEX~CUTE A ONE WORD WRITE
,~OLLOWED BY A ONE WORD WRITE CONTINUE
,EXECUTE A ONE WORD WRITE CHECK
,FOI.LOWED BY A ONE WORD WRITE CHECK bONTiNU£
.EXECUTE A ONE WORD READ
,rOI.LOWED BY A ONE WORD READ CONTINUf
TEST TRACK INCREMENT
TEST DISK INCREM~NT
TEST THAT NED RAISES ERROR 'LAG
CHECK CMA IN~IeIT
TEST NON-EXISTENT MEMORV ERROR
TEST THAT THE DISK WILL NOT TRAP
AT PRIORITY 7
TEST THAT THE DISK WILL NOT TRAP
AT PRIORITY 6
TEST THAT THE DISK WILL NOT TRAP
AT PRIORITY 5
TEAST THAT THE DISK WILl. TRAP
AT PRIORITy 4
ADDRESS TEST 1
CHECK TIMING BY EXECUTING
A ONE WORD WRITE
ADDRESS TEST 2
CHECK TIMING BY EXECUTING
A ONE WORD READ

• Cl6!H'J
J

JMAINTENANCE ROUTINES
J

oI{: e: 65121

JH?~116

007174

00i?654

2e~~167

~072~0

0~v6"i2I

0e0167

0P,76~4

0H':167

007204
00721!21

00V670
000674

MJZ167

Jt.1P

C'~;V167

~07214
~07220

~0V'7(t'0

1l.'l0~~167

(107226

JMP

SEI.WC
SEL,CMA
SEI.DAR
SEI.DAE
SELDBR
MOVLK
SEL.DCS

00V' 7:' 4

JJH"167

007272

JMP

STAMP

JMP
JMP
JMP
JMP
Jt~P

J
J
J

JRF:l1 DATA TEST
JVECrORS USED IN PROGRAM
1#1 LaC 204 DISK INTERRUPT
)#2 LOC 30 EMT (TE~ETYPE OUTPUT)
J#3 LaC 34 TRAP (DISK HANOI.ERS)
J

II.OAD WORD COUNT REG WIT~ SR
'1.0AD CURRENT ADORESS REG WITH SR
.LOAD DISK ADDRESS REG WITH SR
ILOAD DISK ExT. ADDRESS REG WITH SR
II.OAD DATA BUttER REG WITH SR
.MOVE LOOK AHEAD INTO LIGHTS
II.OAD FUNCTION R~G WITH SR
.SELECT TRACKS STATICLY

PALX11

VVJ03
00Hl00

29-0CT .. 70

PAGE 2-1

PAL Xli

V0~3

29-0CT-7V'l

PAGE 3

"q 07

,EVEN

~e1000

J
11/0
001i~~0

0010(12

0017H',4

010 10 v' 6
001~lt1l

oItI 1:''' 12

177570
177776
177':)66
177562
177564
177560

SRI
CSRI
TPe,
TKBI
TPSI
TKSI

ADDRESS POINTERS
1775721
177176
177566
177562
177564
177560

.SWITCH REGtISTER
IPROCESSOR STATUS REGISTER
.TELETVP£ REGISTERS

.DISK 1/0 REGISTERS

e01 ~~ 14
0011116

0r2:11"~0
0~lb22
Qi01;~?4

00H~26

I'HlJil ~~ 0
e.01',i32

17746121
177462
1714h4
177466
177470
177472
177474
177476

•
DCS,
WCI
CMAa
OAR,
OA£a

08R,

MA'
ADS.

177460
177462
177464
177466
177470
177472
177474
177476

.DISK CONTROL REGISTER
'WORD COUNT REGISTER
.CURRENT MEMORV AOOR[SS REGISTER
'LOWER 16 BITS Or DISK AOORESS
,EXTENSION ADDRESS REGISTER
.DATA BUFFER REG!STER
.MAINTENANCE REGISTER
'LOOK AHEAD REGISTER

J
J
J
J
I

IRF'11 DEDICATE REGISTERS (MEMORV)
J

001;;:34

0~'v~V:0

001036

146723

QH2l H~ 4 0

;3 v~

0QJH~42

;H'jZ 000
0020v;0

0e'1f/J44
e0HJ46

001050
001 ~15 2
001054

/.' ,ij ~i! Vi

iIlv.;~0C0

0~n~\"0
00(,~V0
0~v)000

0QJH~56

0~0ii;l(:0

001V6;7l

0v.:rlZlr0

001062
001064
001066

0~?0v.;f(J

0~~~0e'0
00e,0~:0

FLAGI
R/l.NNUI
WRDCTZ
TRA,CKI
DMA, I
PAl'NUI
8UF'I

0~'H'l[,0

016 H1'l 00
vH:v~ 0 0 eJ

0
0
0

0
(6

TWRDCT: 0
0
TDMAI
SWROCT: 0
ERCOUNT :(;3
VI
SAVEl
0
SAV11
PASS,
~J
1
J RF'11
J (CAN

001vJ 70
0011172
01Z1H!74

146723

WORKI
wORK1:
WORK2:

WORK REGISTERS
BE CHANGED IN ANV FlOUT I NE)
0
ei

'INTERNAL PROGRA,M FLAG
.RANDOM NUMBER PRIME
'WORKING WORD COUNT
,WORKING DAE
.WORKING DAR
IDATA PATTERN INDEX
JWORKING DATA BUF'F'ER (OUT .. IN)
.TEMP WORD COUN"
.TEMP DAR
.STANDARD WORD C:OUNT
• ERROR COUNT F'OA MESSAGES •

PALX11

v~(,'3

29-0rT-70

e'01V76

~~VC,jV5

0rl11v;:;
ee1174

"-11 27v.-: 6
01~'767

V000er:6

0.01112

0v50f7

001116

012767
012767

176670

v.'I01124
e011:32

~1127f,7

001162
001170

v112767
;(,12767
012/77
1.112767
[/,12767

12101176

2ik:i~06 7

0012/2

0~5067

e.0114~~

001146
0011S4

(JI0112H~0

000340
;';10530

[(:00340
r~07776

(/;00340
v;0vJ340

vJ!2l7726
01210340
1,77640
177636

176672
17H:62
176676
176672
176666
176662
177620
176630
176624

0107

PAGE 4

START:

RESET
MOV
MOV
CLR
t-'OV
MOV
MOV
~OV

MOV
MOV
MOV
!'v10V
CLR
CLR

#1000,%6
#6,4

.CLEAR THE WORLD
.SET UP STACK

#340,206
#EMTRP,30
#340,32
#D1SK,34
#340,36
#340,'C5R
#LOOP,20
#340,22
TRACK
DMA

'L.OCK UP INTERRUPTS
.SET UP TTY POINTER
JL.OCK UP INTERRUpTS
.5£T UP DISK HANDLER POINTER
'L.OCK UP INTERRRUPTS
'L.OCK UP INTERRUPT L.EVELS
,SET UP rOR SCOPE LOOP
JL.OCI< UP PRIORITY
.CLEAR TRACK REGISTERS
.CLEAR OAR REGISTERS

PAL Xli

V003

PAGE 5

29-0CT-70

,WE ARE NOW ENTERING THE STATIC TEST
'Ir THE OPERATOR WOULD L!KE TO CHECK
.THE OISK REGISTERS PRIOR TO ENTERING THIS
,TEST WE HAVE SOME HANDY ROUTINES
JW~ICH WOULD ALLOW YOU TO LOAD THESE
,REGISTERS UNDER SWITCH REGISTER CONTROL
,PLEASE REFERENCE THE STARTING ADDRESS
.TO SEE WHICH ROUTINE BE5T SUITS YOUR
,pROBLEM.

,
12101216

000005
017767
032767

1211211224

~H~ 14 '~5

0"12~6

1211211210

12101226

012767

1776021
177577

177652
177644

01210121021

177624

0V00Vl
r2l~1234

0~4567

007130

1210124121
001244

105767

177624

0~1246

012767
000'H'2
0"-'4567

01211254
0eJ1?60
001262

00 HH'j 5

177604

(H?'00~4

V'l~12V6

.THIS TEST IS DESIGNED TO TEST THE ABILITY 0' RESET
,TO CLEAR ALL THE DISK REGISTERS
JTEST CONTROL REGISTER
STA11: RESET
.CLEAR THE WORLD
MOV
@DCS,WORK
,rETCH CONTROL REGISTER
BIT
#177577,WOAK
.IS %T CLEARED
8EQ
XSTAIl
.REGISTER OK (TEST REAOY)
ERROR
\N
ERR01
MOV
#0,ERCOUNT
.SET UP ERROR COUNT 0
N=N+l
JSR
%5,STAER
,REPORT STATIC ERROR
XSTAI1: T5T8
~ORK
,TEST rOR READY
BNE
LPSTl
.BRANCH lr READY
ERROR
\N
ERR11
MOV
#l.ERCOUNT
.SEr UP ERROR COUNT 1
NI:N+1
JSR
%5,STAER
,REPORT READY NOT SET
LPST1~
SCOPE
.ENTER SCOPE LOOP
STAll
,TEST CURRENT ADDRESS REGISTER
J

001264
0k-'i1266
el01274

0~00~5

0177A7

177526

177574

STAI21

0014~5

RESET
MOV
BEQ
~RROR

N:J1276

177554

01~l767

ERR21

001t101f!3
0~13v:4

0~4567

001310
001312

;,H10004

LPST2:

0(1264

MOV
N=N+l
JSR
SCOPE
5TAI2

~CMA,WORK

LPST2
\N
#2,ERCOUNT
%5,STAER

.CLEAR THE WORLD
.rETCH CMA REGISTER
IREGISTER OK
.SET UP ERROR COUNT 2
.REPORT ERROR
.ENTER SCOPE LOOP

,JTEST WORO COUNT REGISTER
00131.4

(0r C iCPi5

001316
12101324

017767
oV 14 ,,) 5

001326

.;;12767

177474

177544
177524

STAI:5:

ERR3a

iQ~~':;W4

01!i1334

0~4567

001340

00~Hi'v 4

001~42

kJ~13:1.4

LPST31

RESET
MOV
BEQ
ERROR
MOV
N-N+l
JSR
SCOPE:
STAI3

f.ilWC,WORK
LPST3

'CLEAR THE WORLD
J rE'TCH WC REG.
,REGISTER OK

#3,ERCOUNT

ISET UP ERROR COUNT 3

%5,STAER

.REPORT ERROR
.ENTER SCOPE LOCP

PA1..Xl1

V003

29-00T-70

0107

PAGE 6

•.TEST DISK ADDRESS REGISTER
001344
01211346
001354
001356
001364
001370
01H372

e.f~0005

017767

001405
012767
0000Vl5
004567
000004
001344

:;T.I~I

177450

177514

e.0(il0~4

177474

ERR41

0070~0

LPST4.

RESET
MOV
SEQ
ERROR
MOV
NaN·l
JSR
SCOPE
5TA14

lIODAR,WORI<
LPST4
\N
#4,ERCOUNT
"5,STAER

.CLEAR THE WORLD
.rETCH DAR REGISTER
.REGISTER CLEARED
.SET UP ERROR COUNT

•

.REPORT ERROR
.ENTER SCOPE LOOP

.TEST DISK EXT. ADDRESS REGISTER
1

1001374

001376

oIII 14:::,4
o 014 ~~ 6

000005

017767

177422

177464

12100025

177444

STAI!51

RESET
MOV
8EQ
ERROR

ERR51

~OV

0~1405

012767
0l::1~106

001414
0101420
001422

0~4567

e.06750

000004

LPST"

0~'1374

N.N·1
JSR
SCOPE
5TA15

taJDAE,WORK
LPST5
\N
#5,ERCOUNT
%5,STAER

.CLEAR THE WORLD
.rETCH OAE R£GISTERS
.OAE CLEARED
.SET UP ERROR COUNT

!!5

.REPORT ERROR
.ENTER SCOPE LOOP

ITEST DATA BUfrER REGISTER
)

Villl1424

12101426

e0 i/Jf:; I/j 5
z;17767

0e.1434

"HI. 14(7;5

0014.36

01?767

177374

177434

000006

177414

STAI6:

ERR6:

1.lellVj~7

001444
001450
0014'52

0V:4567
ro0iae04

~06720

LPST6:

0~1424

RESET
MOV
SEQ
ERROR
MOV
I\I-N·1
JSR
SCOPE
STAI6

@OBR,WORK
LPST6
\N
#6,ERCOUNT
%5,STAER

.CLEAR THE WORLD
,FETCH DBR REGISTER
.DBR CLEARED
.SET UP ERROR COUNT 6
.REPORT ERROR
.ENTER SCOPE LOOP

)TEST MAINTENANCE REGISTER
)

001454
001456
0,01464
001466

~[;(lVl(l)5

017767

177346

177404

STAP:

001 4 1tJ5

012767

001Z007

177364

ERR?

00DQl10

001474
001500
001522

~e4567

006670
LPST1:

~H:·evH~4

0rt1454

RESET
MOV
8EQ
F.:RROR
MOV
Nr:N·1
JSR
SCOPE
ST Al7

~MA,WORK

LPST7
\N
#?,ERCOUNT
%5,STAER

ICLEAR THE WORLD
IrETCH MAINTENANCE REG
IMA CLEARED
ISET UP ERROR COUNT

.REPORT ERROR
.ENTER SCOPE LOOP

JCAN WE SET THE F'UNCTION 8ITS IN
JBITS 1.6,5,<4,3,2&1

T~E

DCS REG.

)

0015~4

001512

012777
017767

000176
177276

177302

171350

5TA110: 1"'10 V
MOV

#176,IJIOCS
@DCS,WORK

.SET DISK FUNCTION BITS
IFETCH FUNCTION BITS

PALX11

Vf;v.!3

29-0CT-70
000376

0~1520

022767

2101526

l.'l~lt1r2'

001530

k;1~767

000376

171334

;)12767

Z0001e1

177314

0~1536

0(14567

001552

~!Cl~~14

~l~ V, ~;(; 4

PAGE 6-1
CMP
8EQ

vH, I;: I~ 11

001544
001550

17'342

010'7

006612

MOV
ERROR
ERRUJ: MOV
N=N+l
JSR
LFS'TUl: SCOP£
STAI10

#:576,WORI<
LPST10
#316,WORI<1
\N
tt10,ERCOUNT

.ARE THE F'UNCTION BITS SET
.F'UNCTION 8ITS sin
,SET UP F'OR ERROI~ REPOR'T

%5,STAER1

,REPORT ERROR (ERROR IN rUNCTION BIT5)
JENTER SCOPE LOOP

.SET UP ERROR COIJNT UJ

PALX11

V[tZ3

PAGE 7

29-0CT-7121
J

.WILL DISK CLEAR CLEAR THE rUNCTrON BITS
001554
001562
00157121
1211211576
1211211604

012777
'01j2777
rtJ17767
022767
01211405

001606

12101614

012767
000012
12104567

00162~

0~0004

01211622

001554

000176
00121400
177220
0002~0

171232
171224
177212
177264
177244

STAI111 MOV
BIS
MOV
CMP
BEQ
ERROR
ERR11: MOV
N-N+1
JSR
LPST11: SCOPE
STAl11

#1?6,'OCS
#8IT8,$00S
~OCS,WORK

#2210,WORK
LPST11

.SET OISK rUNCTION B!TS
.EXECUTE DISK CLEAR
.rETCH CONTROL REG
.IS ONLY READY SET
.REGISTER CLEARED

#11,ERCOUNT

.SET UP ERROR COUNT 11

%5.STAER

.REPORT ERROR
.ENTER SCOPE LOOP

ICAN WE SET ALL THE CMA BITS
J

~01646

;112767
1016777
017767
:JJ26767

12lflJ16 5 4

0~1405

001656

01211624
01211632

177777
1772:34

17724121
17716121

177154

177222

1772221

171214

012767

12100012

177174

001664
001670

0~4567

e06552

~1Z1672

0~1624

001640

0t0Vj13

200004

5TA112: MOV
MOV
MOV
CMP
BEQ
ERROR
ERR12: MOV
NcN+1
JSR
LPST12: SCOPE

#17777?,WORK1
WORK1,.CMA
'CMA,WORK
WORK1,WORK
LPST12

.SET UP CURRENT ACDR. or ALL ONES
.LOAC CMA
.rETCH OMA
'COMPARE rOR ALL BITS SET
.ALL BITS SET?

#12,ERCOUNT

.SET UP ERROR COUNT 12

%5,STAER1

.REPORT ERROR
.ENTER SCOPE LOOP

STAl12
J

JWILL DISK CLEAR - CLEAR THE CMA REGISTER
J
0~1674
e.e17~\2

0fl171i21
ee.1714
001716

012777
'lJ1j2777

177777

0k,5777

177104

000400

177116
171104

~1~1410

017767

17712172

177144
177126

;7;12767
'.?IU~014
V'1~1736

1~;4 5 6 7
v)v;1Z004

"'01740

:iH1674

001732

01216432

5TA113: MOV
815

TST
BEQ
MOV
ERROR
ERR13: MOV
NI:N+1
J5R
LPST13: SCOPE
STA113

#177777,"CMA
#81T8"OC5
~eMA

LPST13
@lDCS,WORK
\N

#13,ERCOUNT

.SET UP ERROR COUNT 13

%5.STAER

.REPORT ERROR
.ENTER SCOPE LOOP

JCAN WE SET ALL BITS IN

11\017')6

ii12767
';;16777
'tl2 6 777

?Z17f4

VJ?1410

~~~17f)6

'17767

e:01742
0ei17':)0

177040

17712124

1772174

177032

1711i'56

/1 767
;" {. 015
,5¥.; 567

171122

177777
177116
17711121

0064·'34

•
STAl14:
MOV

ERR141

MOV
CMP
BEQ
MOV
ERROR
MOV
N-N·1
JSR

.SET CMA EQUAL TO ALL ONES
.EXECUTE DISK CLEAR
.TEST rOR 81T0 SET IN CMA (READ ONLY BIT)
.WAS THE REST or CMA CLEARED?
.NOI rETCH CMA REG.

we REGISTER

#177777,WORK1
WORK1,8IWC
WORK1,I.IWC
LPST14
GilWC,WORK

.SET UP MAX. WORD COUNT
'LOAD WC REGISTER
.ARE ALL BITS SET
.YESI EXIT
.NOI rETCH WC REG.

#14,ERCOUNT

.5ET UP ERROR COUNT 14

%5,STAER1

.REPORT ERROR

PALX11

V~03

00 2 ~~ 0 6

J 00004

012'2elHl

~V,1742

29-0CT-70

PAGE '-1

LPST14: SCOPE
STAl14

.ENTER SCOPE LOO~

PALX11

0rt2(.il12

v003

29-0CT-7r21

177777
lil004Vl0
176764

176776
176766
171034

rH~2Cl34

012777
;,)':;2777
v: 17 7 67
:HH405

ee2036

iZ12767

000015

177014

ee2il20
0e2~~26

r~lt'0016

'7e2~44

Ii'Je4567

~~2~~5(2l

9liC0004

"'~2(.i,r;2

~~2012

00632(21

0107

PAGE 8

I
IWIl.L DISK CLEAR-Cl.EAR THE WORD
I
#177777,(PlWC
STAI15: MOV
815
#BITB,'OCS
MOV
(tWC,WORK
BEQ
LPST15
ERROR
\N
#15,ERCOUNT
ERR1': MOV
N·N·l
JSR
"5,STAER
LPST15: SCOPE
STAI15

COUNT REGISTER
ISET WC REGISTER EQUAL TO ALL ON[S
,EXECUTE DISK CLLAR
.n:TCH WORD COUNT REGISTER
'YES! EX!T
,SET UP ERROR COUNT 15
.REPORT ERROR
.ENTER SCOPE LOOP

ICAN WE SET ALL THE BITS IN THE DAR REGISTER.
v.::02062
VV;2t770

~112 767
016777
;n7767

ee,,~i54

~1i712i7'76

~j26767

002104

~.HI.1405

e021(J!6

012767

177777
1770{('4
176726
176770

177010
176732
176112
176764

V'f2l012l16

176744

V,0~1017

56 7

002114

/l~' 4

((02120
Vv.l2122

vH'0"'04
-,~~; 2;:1 5 4

t06322

•
MOV
STAI16:
MOV
MOV
CMP
BEQ
ERROR
ERR16: MOV
N.N.1
JSR
LPST16: SCOPE
STA116

#177777,WORKl
WORK1,'OAR
tilDAR,WORK
WORK1,WORK
LPST16
\N
#16,ERCOUNT

.SET OAR TO ALL ONES
,FETCH OAR REGISTER
IARE ALL 8ITS SET
.YES! EX!T

%5,STAER1

.NOT ALL 8ITS SET REPORT ERROR
IENTER SCOPE LOOP

JCAN WE CLEAR
e,kJ~124

'Ii 12 7 77

"~2l:~2

;,~5

177777
00el400
176656

116670
116654

H12140
(,:v2144

2 777
,)";"i 7 7 7
vJ ~~ 1410

{l.0~146

'li17767

176650

176714

(l~2154

1:12767

V'l00017

176676

V02162

,5HH'20
i:!)ri:'4567

v'02166

.~2 0 ~04

~~~1?170

~06202

rz 2124

•
5TA117' MOV
SIS
TST
SEQ
MOV
ERROR
ERR17: MOV
NaN+l
JSR
LPST171 SCOPE
STA117
J

JCAN WE

ein172
i7' '12200

~312767

CW2206

7:16777
1/)17767

~02214

iJ26767

kiHl2222

i/1v~14V'J5

2102224

l112767

000037
176666
176612
176652

176612
176616
176654
176646

000020

176626

0ft~021

~~~2232

-",04567

17:02236

?oQ'0004

006204

HIE

.SET UP ERROR COUNT 16

DAR REG. WITH DISK CLEAR.

#177777,'OAR
#BlT8,t.'DCS
~OAR

LPST11
@OAR,WORK
\N
#17,ERCOUNT
%5,STAER

.SET OAR TO ALL ONES
.EXECUTE DISK CLEAR
.TEST FOR ~ERO OAR
JYES EXIT
INO BITS SET IN DAR
JSET UP ERROR COUNT 11
JREPORT ERROR
.ENTER SCOPE LOOP

SET THE EXT. ADDRESS BITS IN THE OAE REGISTER

STAI20: MOV
MOV
MOV
CMP
BEQ
ERROR
ERR20: MOV
NaN+1
JSR
LPST20: SCOPE

#37,WORK1
WORK1,IItOAE
!!bOAE,WORK
WORK1,WORK
LPST20

•
.SET
EXT. ADORESS BITS
JF'ETCH CONTENTS OF' OAE REG.
.ARE ALL EXT. ADDRESS 8ITS SET
IYES! EXIT

#20,ERCOUNT

.SET UP ERROR COUNT 20

%5,STAER1

.REPORT E:RROR
.ENTER SCOPE LOOP

PALX11

v~,r.J3

Cl'i02240

~;~'2172

29-0cr ... 70

PAGE 8-1
STAI20

PALX11

V~03

29-00T-70

~lJI rzJ 7

PAGE 9

'CAN WE CLEAR THE EXT ADDRESS 8ITS IN THE: DAE REG,
'USING DISK CLEAR
J

002242

002250
002256
002264

012777
052777
017767

001405

002266

012767

~02274

004567

002300
002302

000004

000031
00040eJ

176542
QleJ0021

000022

002242

006010

176554
176536
176604
176564

ST"121: MOV

SIS

#37,'DAE
#81T8"005

MOV
SEQ
ERROR
MOV
NaN·1

tlDAE,WORK

JSR
LPST21: SCOPE
ST"121

"5.STAER

ERR21:

L~ST21

\N
#21.ERCOUNT

,SET EXT. ADORESS BITS
'EXECUTE OI5K CLEAR
,rETCH CONTENTS or DAE REG
,YES! EXIT
,SET UP ERROR COUNT 21
,REPORT ERROR
,ENTER SCOPE LOOP

PAlX11

V003

PAGE 10

29-0CT-7eJ
I

JDO ONE WORD WRITE rOLlQWED BY ONE WORD WRITE CONTINUE
JEROR1=8USY FAILED TO SET
JEROR2=BUSY FAILED TO ClEA~
JEROR3=CONTROl ERROR WHEN X-FERING DATA
JERQR4=DAE INCREMENTED WHEN X-FERING DATA
JEROR5=DAR FAILED TO INCREMENT WHEN X-rERING DATA
JERQ~6=WORD COUNT rAILED TO OVER'LOW
JEROR7=CMA rAILED TO INCREMENT
I
J
J. . . .

002326
e02334

052777
012767
012777
012777
(/,52777

0~2342

H~5777

N'l2346
002350

(1)17767

176440

176512

002356

11,12767

00~022

176474

0023~4

002312
0023221

V'Je!040e!

011110
177777

176502
006570
116472
176462

l2le!00~3

176452

177777

176446

H'·0011

0~0023

002364
002370
002372

Vi{i;4567

006000

~V0745

IHc5067

176472
176466
176406

0~'247·6
;~02410

2J'l5767

176454

(0((,2414

0(C1370

0[('2416

(717767

e'02424

'~5276 7

176372
000002

176440

,H2767

000023

116420

21(1;2376
0V-24/;2

ee2432
V'(~2440

vV:2444
(-'02446
~1e,2454

V'v.12460
V~,2462

:1k:;5267
H::5777
le.0417

0e0024
~.·0 4567
000717
/;17767
0Q;,767
100012
1112767

176342

;~12767

000024

176362

(H2J5740
177576
176312

176354

ile i~025
Ci'V2476
V~!25(j2

004567
?00167

~;ii 251, 6

'/;17767

lil~:2514

i:'01407

l'il2516

176444

,~12

005776
176414

176410

1764212

767

176334

~i00026
v:~;2524

0i4567

005640

,~e2'.30

,vJ0 016 7

177550

EXECUTE THE ONE WORD WRITE • • •
5TA122: BI5
#BIT8,'DCS
.CLEAR THE DISK WOALO
MOV
#177777,OUTBur .DATA TO BE X-rER[O
MOV
#OUTBur,.CMA
.SET UP CURRENT ADDRESS
MOV
#-1,'WC
ISET WORD COUNT TO -1
815
#3,'DCS
.GO WRITE
TSTB
~DCS
.TEST rOR RDv-m
BPl
5TA123
.RDYI0
MOV
~DCS,WORK
.BUSY NOT SET! rETCH DCS
EROIU: ERROR
\N
ERR22: MOV
#22,ERCOUNT
.SET UP ERROR OOUNT 22
N-N+l
,JSR
%5.STAER
.REPORT ERROR
BR
.RESTART T£ST
5T"I22
~TAI23: CLR
WORK
INCWAT: INC
WORK
IWAIT F'OR BUSY-Z
TSTB
~OCS
.IS BUSY CLEARED
BMI
5TA124
.F'LAG CLEARED
TST
WORK
.HAVE WE WAITED lONG ENOUGH
BNE
INCWAT
,ROY rAILED TO SET
MOV
tQOCS,WORK
IFETCH CONTENTS OF' 005 REG
815
#2,WORK1
.WANT DCS SHOULD CONTAIN
EROR2: ERROR
\N
ERR:23: MOV
#23,ERCOUNT
.SET UP ERROR COUNT 23
N-N+1
%5,STAER1
JSR
,REFIORT ERROR
SR
5TA122
.RESTART TEST
~DCS,WORI<
51141241 MOV
,r£TOH CONTENTS or DOS RtG
TST
WORK
lIS ERROR F'lAG StT
BPL
5TA125
.NOI X"'F'ER OK
#202,WORK1
MOV
'WHAT Des SHOULD CONTAIN
f:ROR3: ERROR
\N
ERR24: MOV
#24,ERCOUNT
.SET UP ERROR COUNT 24
N-N+i
JSR
%5,STAER1
.REPORT ERROR
JMP
5TA122
JRESTART TEST
~DAE,WORK
5TAI25: MOV
.IS EXT. ADDRESS CLEAR
BEQ
STA126
JDAE: OK
EROR4: ERROR
\N
ERR25, MOV
#25,ERCOUNT
.SET UP ERROR COUNT 2'
NtlN+1
JSR
%5,STAER
.REPORT ERROA
JMP
STA122
.RESTART TEST

PAGE: 1121-1

PAL Xli

VNJ3

29-0CT-70

elI12I7

002534
l02542

017767
'lj22767

176262
01210001

176326
11632121

5TA126: MOV
CMP

~02550
~02552

012767

000001

176312

:H2767
~H~0 027
004567
000167

000026

176272

002'360
rt02566
(/102572

~v;1412

SEQ

005650
1775!7J6

EROR5:
ERR26l

MOV
ERROR
MOV
N.N"'1
JSR
JMP

(ilDAR,WORI<
#BIT0,WORI(
5TA127
_BIT0,WORK1
\N
#26,ERCQUNT
"5,STAER1
5TA122

'WAS OAR tNCAEMENTI:O BY 1
,I! OAR CORRICT

.OAR 01<
.WHAT DAR SHOULD CONTAIN
,SET UP ERROA COUNT 26

.REPORT ERROR
,RESTART TEST

PALX11

VI2e.3

29-0CT-70

010'7

r{}Y)2576
,i'v;,26!74

017767
01407

176214

176264

/)12767

~"'!HH~27

176244

176236
176232
176222

5TA127: MOV
BEQ
EROR6: ERROR
ERR27: MOV
N8N+1
JSR
JMP
51A130: MOV
MOV
CMP

176202

EROR?:
E"RR3PJ:

V~2606

~1H'J030
.': ~j

2 614

~; 2 2 C20

~'~ 2 f 2 4
1/';;~2632
:;,~,? /) 4:0

H:,:?f>46
l'v,2~5e

1\?4567

)Jk::0167
/·17767
;': 127 67
/'(:6767

/105550
177460
176170
011112
176226

.~r,1407

12767

PAGE 11

SEQ

P0VJ030

k:?031
~'~~26,?6

e4567

~05560

"V'? f: A 2

20167

177416

ERROR
MOV
N=N+l
JSR
JMP

@lWC,WORK
5TA1:50
\N
#27,ERCOUNT

,F'ETCI-! WORD COUN'T
,WORD COUNT DID IOVER'LOW
• SE1' UP ERROR COUNT 27

%5,STAER
STA122

,WORD COUNT 'AILF:D TO OVERF'LOW
,RESTART TEST
~CMA,WORK
• F'E,'CI-! CURRENT ADDRESS
#OUTBUF+2,WORKl .WHAT CMA SHOULD EQUAL
WORK1,WORK
115 CMA CORR£CT
STAI31
.VES EXECUTE CONTINUe:
\N

#30,ERCOUNT
%5,STAER1
5TAI22

• SE"

UP ERROR COUNT :n

• REFIORT ERROR IN CMA
.ERROR RESTART TEST

PAL Xii

V003

29-0CT-70

PAGE 12
.TAPE: 2
TEST WRITE
JA WRITE CONTINUE WILL BE EXECUTEO NOW
'WORO COUNT WILL BE SET TO -1 AGAIN
J

JEROR1~=BU5y NOT SET BY GO
JEROR11=BUSY NOT C~EARED BY OVERr~ow
J£ROR12=OISK ERROR OCCUREO WHILE X-fERING
JEROR13=OAE INCREMENTED WHEN CONTINUE WAS EXECUTED
JEROR14=OAR 010 NOT EQUAL 2 ArTER SECONO x-rER
.EROR15 z WC 010 NOT OVERFLOW AT THE ENO or x-rER
IEROR16=CMA 010 NOT EQUAL QUTBUf.2 AT END or x·rER

•J
002666
002674
002702
002706
002710
002716
002724
002730
002734
002740
002744

012777

177777
000001
17611('16

176122
176112

~17767

176100

116152

012767
000032
004567

000031

176134

052777
105777
100012

~0(2l167

v:02752

005067
105777
100415
005267
0"1372

e02754

~117767

~02746

002762
V'02770

002774
003000
L·HQ3'i104
(1r!23ViZ6
0Q: 3 (1;14

~103030

012767
r.i1riHilI2l33
004567
ftVJ0167
")05777
HH1i2l15
k~17767
>~17767

CH2767
(,j0e034
(l,e'4567

005440
177350
176130
176050
176116
176034
000032

176106
176070

005374
177304
176010
176002
176004

116054
116050

000eJ33

116030

005406
177244
175760

~~~304~

CJrG0167
;)0';)777

01i:M144

:J~i1412

003i~46

~n 7767

175752

176014

,; 127 6 7

000034

175776

9'~3034

:,,~ 3(il6 2

\:t:0035
7:164567

:' ~:~ i'!6 6

;W0167

? ~j ~5l7 2

.J17767
;.12767

;;J31~0

5TA131: MOV
BIS
TSTB
BPL
MOV
EROR10: ERROR
ERR31: MOV
N·N+1
J5R
JMP
5114132: C~R
INCBUSYlT5TB
8MI
INC
BNE
MOV
EROR111 ERROR
ERR32: MOV
N.N+1
J5R
JMP
STAI331 TST
BPL
MOV
MOV
EROR12: ERROR
ERR33& MOV
N!l:N+l
JSR
JMP
5TA1:54: T5T
SEQ

0053~2

177212
175724
00"'vH~2

175770
175764

MOV
EROR13: ERROR
ERR3': MOV
NIIN+l
JSR
JMP
STAI35: MOV
MOV

#117777,'WC
#BIT0,'DOS
t'OCS
5TA132
~DCS,WORI<

.SET WC TO -1
.SET GO TO CONTINUE
,TEST fOR ROY SET
'BUSY WAS SET BY GO
J;ETO~ CONTENTS or CCS

#Jl,ERCOUNT

.SET UP ERROA COUNT 31

"',STAER
STA122
WORK

,REPORT BUSY NOT SET

~OCS

STA133
WORI<
INCBUSY
~OCS,WORI<

.TST rOR ROY SET BY OVERrLO
.REAOY SET CONTINUE
,WAIT FOR ROY.l
.GO WAIT rOR ROY
IrE1C~ CONTENTS or OCS

#32,ERCOUNT

.SET UP ERROR COUNT 32

"5,STAER
STA122
(lOCS
STA134

,REPORT BUSY NOT CLEARED
.RESTART ROUTINE
.010 AN ERROR OCCUR W~ILE x-rEAING
INO CONTINUE
.YES! CONTENTS or OCS
.EXT ERROR BITS

~DCS,WORK
~OAE,WORI<1

#33,ERCOUNT

.SET UP ERROR COUNT 33

"',STAERl
STA122
$OAE
STA135

.REPORT ERROA OCCURREO.
,RESTART ROUTINE
.010 OAE INC. BV DATA WAS x-rERREO
,01< IT DiD NOT INC
.ERROR IT INCREMENTEO

~OAE,WORK

#34,ERCOUNT

.SET UP ERROR COUNT 34

"5,STAER

,REPORT DAE iNOR[MENTEO

5TA122

(lOAR,WORK
#2,WORKl

.010 OAR INCREMENT ON CONTINUE
'WHAT OAR S~OULO CONTAIN

PALX11

V0ill3

29-00T-70

003HJ6

/)26767
,j0141Z7

175760

175754

(1100035

115734

12105312
177150
175656

175726

0e.3142

012767
000036
304567
:-100167
017767
001407

003144

012767

f2J1tl0036

175726

V~3114

e03116
003124
e0313f2J
003134

2!1c0037

0t'!3162
003170
0'13176

304567
IlHl167
rt17767
012767
026767

eJ~3204

(H~1407

0e32~16

~J12767

e'03152
e03156

M';3214

(/'03220
00.3224
V'03226

rHHJI?J41tl
004567
7;00167
000004
002304

005212
177122
011114
1756'0

175700
175674
115664

000037

175644

1756~2

(,105222
177061tl

0107

PAGE 12"1

CMP
SEQ
EROR14: ERROR
(RR35: MOV
N-N·l
JSR
JI'-1P
STAt361 MOV
BEQ
ERon15: ERROR
ERR36: MOV
NIIN·l
JSR
JMP
STAX371 MOV
MOV
CMP
BEQ
EROF~16 , ERROR
(RR3': MOV
N-N.l
JSR
JMP
L.PST22: SCOPE
5TA122

WORK1,WQRK
5TAI36
\N
#35,ERCQUNT

,IS OAR CORRECT
.OAR OK

%5,STAER1
5TAI22
flWC,WORK
STAI37

,REPORT DAR lNCORRECT
JRE-START ROUTIN£
J'ETC~ WORD OOUNT
,WORD COUNT OVER~LOWro

ISET UP ERROR COUNT 35

#36,ERCQUNT

.SET UP ERROR COUNT 36

%5,STAER
STAI22
@lCMA,WORK
#OUTBUF'+4"WORKl
WORK1,WORK
LPST22

IREPORT WORD COUNT rAILEO TO CLEAR
.RESTART ROUTINE
I'ETCH CMA
.WIoIAT CMA S~OULO EQUAL
.IS CMA CORRECT
.CMA WAS CORRECT

#37,ERCOUNT

ISET UP ERROR COUNT 37

%5,STAERl
STAI22

,REPORT CMA I NCO'~R[CT
.RESTART ROUTINE
.ENTER SCOPE LOOP

PALX11

V003

!'AG[ 13

29-0cr"'70

TEST WRITE CHECK
100 • ONE WORD WRITE CHECK rO~~OWED BV
JA ONE WORD WRITE CHECK CONTINUE
I

JERO~17=BUSy rAl~EO TO SET
'EROR20=8USy FAILED TO CLEAR
IEROR21=OISK ERROR WHEN x·rERING DATA
JEROR22 3 0AE INCREMENTED WH~N X-rERING DATA
JEROR23=DAR FAILED TO INCR~MENT WHEN X-rERING DATA
IEROR24=WORD COUNT rAI~ED TO OVERPLOW
JEROR25=CMA FAILED TO lNCREMENT

J
J

175556

?k:3230

(~52777

;'1{'.3236

012767

0004t?1I21
177777

r~, 3 2 4 4

lJ12777

01111(2l

175546

8ii::,3252

~12777
1~'2777

177777
PJeJj;lJet07
175522

175536
175526

175514

175566

(j~~;3260

(1"0.3266
!?~:3272
?V,~274

Hi5777
H0011
/17767

005644

175550

;~12767
~~ii::,(i'H2I41

H~33Hj

;~k:4567

7l:3314

N)~745

;c~n.316

1t'Jv.,51il67

? vj~~ 22
? 1O.3,3?6

:,W~267

lrz,777

Vv~3332

H~~~417

1'(/;0334

'105767

Iv;:'S:340

:H~1370

f!~3342
~~03350

I;~

175546
175542
175462
175530

17 7 6 7

175446

'~~276 7

0eJ(2I0~6

175520
175514

.(J12767

eeJ~eJ41

175474

i!~!Zl042

0;3364

(J04567

01215052

:3v:3370
0v':3372

.:JfZ0717
/J17767

175416

175470

iil~341i10

100021

175462

120006

it:~

00347;2

k:26727

0034H'l
0213412
003420

~~1002
~H2767

120030

052767

KH'l0006

175452
175444

0e:3426

~H2767

~"'0042

175424

eeJ501Z2
177564
175354

175416

:i1~0043

003434
003440

IlfC4567
11120167

~03444

017767

Zv.;3452

001407

J • • "EXECUTE: THE ONE WORD WRITE CHECK • • •
#81T8,.005
.CLEAR THE DISK WORLO
MOV
#177777,OUT8UF 10ATA TO BE X-rERro
MOV
#OUTBUr,'CMA
ISET UP CURR£NT AODR[SS
MOV
#-l,.WC
ISET WORD COUNT TO -1
815
#7"OCS
,GO WRITE CHECK
TST8
~OCS
,TEST rOR READY
STAI41
,NOT READY
8P~
MOV
@DCS,WORK
.SETI rETCH DCS
EROR17: ERROR
\N
ERR40: MOV
#40,ERCOUNT
ISET UP ERROR COUNT 4e
N-N.l
JSR
%5,STAER
IREPORT ERROR
SR
5TA14eJ
IRESTART TEST
WORK
5TA141: CLR
WCWA;: INC
WORK
.WAIT rOR READY
TST8
'DCS
8MI
5TA142
Ir~AG SET
TST
WORK
,HAVE WE WAITED ~ONG ENOUGH
BNE
WCWAT
IREADY rAILED TO SET
MOV
@OCS,WORK
IrETCH CONTENTS or Des REG
#6,WORK1
815
.WANT DOS SHOULD CONTAIN
EROR20: ERROR
\N
#41,ERCOUNT
ERR41: MOV
ISET UP ERROR COUNT 41
NIIN+1
JSR
%5,STAER1
IREPORT ERROR
8R
5TA14eJ
.RESTART TEST
~OCS,WORK
STA1421 MOV
IrETCH CONTENTS Or Des REG
8P~
5TA143
INOI X-rER 01(
CMP
WORK,iII120006
1010 WOE OCCUR
8NE
.+6
I
MOV
#1200eJeJ,WORK1
IVES WOE OOCURRED
#6,WORKl
815
IWHjT Des SHOULD CONTAIN
EROR21: ERROR
\N
#42,ERCOUNT
ERR421 MOV
ISET UP ERROR COUNT 42
N=N+l
JSR
%5,STAERl
IRE:PORT ERROR
JMP
5TA140
IRESTART TEST
@DAE,WORK
5TA143: MOV
lIS EXT. ADDRESS C~E'R
SEQ
5TA144
10AE OK
EROR22: ERROR
\N

5TA140: 815

PALX11

VH~3

29-0CT-70

o H!l7'

N~34?4

:112767

00012143

ERR~,!

115376

PAGE 13-1
:

01t0044

7k-346:2

~04567

7~:3466

r~00167

((~:3472

/117767
/:22767

vV35'~0

e;((J4702
177536
175324
01210001

175370

STAI44:

175362

:t.035P6

lle1412

~:i:351~

,112767

012l01219l1

175354

?'1<.3?16

)12767

vJ00044

175334

EROR23:
ERR44:

;;~'V':((J45
~. ;j 3? 24

-1~4567

00j~112

;' v' 3')30
;; 'So; 34

I1fl0167

117474
115256

175326

STA)45:

{}~,:~542

M~14eJ7

~':v:'3544

/112767

000045

175306

EROR24:
ERR45:

1,17767

:~ ... lel46

~'il.!?52

Z04567

(-, ~<~?56

::t ;;116 7

~'r-'3562
V~: ~ 570

?:17767
:;12767

;' ~~, 3',76
6 v' 4

~;~26767

~.~! :~

.ili1407

C':.~6~~6

~H2767

/v,3614
:'('3620

vjV;0Q147
:Jje;4567

r;H,0167

e"04612

177446
175232
011112

175300
175274

1752'0

175264

000~46

175244

004622

177404

STAt46:

EROR25:
ERR46:

MOV
NzN+1
JSR
JMP
MOV
CMP
BEQ
MOV
ERROR
MOV
NaN+1
JSR
JMP
MOV
BEQ
ERROR
MOV
N=N+1
JSR
JMP
MOV
MOV
CMP
REQ
ERROR
MOV
N=N+l
JSR
JMP

#43,ERCOUNT

.SET UP ERROR COUNT 43

%5,STAER
STAI40
(ii)OAR,WORK
#8IT0,WORK
STAI45
#8 I HJ, WORKl

.REPORT ERROR
,RESTART TEST
IWAS OAR INCREMENTEO 8V 1
lIS OAR CORRECT
IDAR OK
,WHAT OAR SHOULD CONTAIN

#44,ERCOUNT

ISET UP ERROR COUNT 44

%5,STAER1
STAI40
'WC,WORK
STAI46

,REPORT ERROR
.RESTART TEST
.n:TCIol WORO COUN"
.WORO COUNT 010 CIVER'LOW

#45,ERCOUNT

.SET UP

%5,STAER
STAI40
l'lCMA,WORK
#OUTBUr+2" WORK1
WORK1,WORK
STAI47
\N
#46,ERCQUNT

,WORD COUNT FAILED TO OV£RF"LOW
,RESTART TEST
.F'ETCIol CURRENT A[)DRESS
IWHAT CMA SIolOULO EQUAL
lIS CMA CORRECT
,YES EXECUTE CONTINUE:
.SET UP ERROR COUNT 46

%5,STAER1
STAI40

,REPORT ERROR IN CMA
.ERROR RESTART TEST

EARO~

COUNT 45

PAL Xii

V~1i'l3

PAGE 14

29-0CT-70
J

JA WRITE CHECK CONTINUE CONTINUE WILL BE EXEOUTED NOW
'WORD COUNT WILL BE SET TO -1 AGAIN
J

JEROR26=8USy WAS NOT SET BV GO
JEROR27=BUSY NOT CLEARED BV OVERrLOW
'EROR3~=OISK ERROR OCCURRED WHILE x.rERING
JEROR31=DAE INCREMENTED WHEN CONTINUE WAS EXECUTED
JEROR32=DAR DID NOT EQUAL 2 AFTER SECOND x-rER
JEROR33=WC DID NOT.~ AFTER X-FER
,EROR34=CMA DID NOT=OUTBUf+2 AT END Of X-FER
J
J

CHi~3624

V03632
~03640

003644
003646

1i.':~3662

;;v'3666
V1Z3672
~03676

003702
Zi£;3712:4

175164
175154

012777
052777
105777
HHI012
rt17767

177777

1751 .. 2

115214

:H2767
000050

000047

175176

0~4567

000001

177336

005067
105777
100415

175112
175112

LiH'J5267

175160

STAI50:
WC8USI:

V1e3712

017767

175016

115150

~03720

012767
,300051

000050

115132

~03726

0k',4567

004436

r,Ivj3732

177272

~e3752

200167
005777
H'1i'l024
iiJ17767
026727

?:~j3760

~rt1002

;1;03762

:012767
:152767

7lV3770
z03776
~,~ 4 ?lIZ 4
;/04,110

104:114
:"i;4j12Z
h'4;?22

() 12 767
v,eH:l052
r'04567
:.iik10167

l(}05777

EROR26:
ERR47:

12045"'2

000167

001372

;!e3744

BIS

175150

~Jl03710

V03736
003742

STAI471 MOV

5TA151:

175052
175044
175112

175116

120000

115102
175074

001i'l006

000051

EROR27:
ERR50:

120006

115054

0.04432
177214
175004

EROR301
ERR51:

5TA1521

/H~1412

:-'17767

174776

175040

EROR31:
175022

:~12767

',;~0053
~i~/;4?'36

v104567

:'H~4326

? 11 ~~ 4 2

(J00167

177162

ERR52:

TST8
BPL
MOV
ERROR
MOV
NaN+1
JSR
JMP
CLR
TST8
8MI
INC
ANE
MOV
ERROR
MOV
NaN"'1
JSR
JMP
1ST
BPL
MOV
CMP
ANE
MOV
BIS
ERROR
MOV
N.N+1
JSR
JMP
TST
BEQ
MOV
ERROR
MOV
N-N+1
JSR
JMP

#1'7777,~we

#BIT0,'DCS
'OCS
5TA150
@DCS,WORK

,SET WC TO -1
,SET GO TO CONTINUE
JTEST FOR READV

,,fETCH CONTENTS Of OCS

#41,ERCQUNT

.SET UP ERROR COUNT .,

"5,STAER
5TAI40
WORK
@Des
STA151
WORK
WCBUSI
@DCS,WORK

,REPORT BUSy NOT SET

,TST fOR ROV SET BV OVERfLOW
.BRANCH If READY SET
'WAIT fOR BUSY-0
.GO WAIT F'OR ROV
,fETCH CONTENTS OF' Des

#50,ERCOUNT

,SET UP ERROA COUNT '0

"',STAER
STA140
flOCS
5TAI52
@OCS,WORK
WQRK,.12121006

,REPORT ROV NOT SET
IRESTART ROUTINE
1010 AN ERROR OCCUR WHILE X-F'ERING
'NO CONTINUE
,YESt CONTENTS or OCI

.... 6

#120000,WORK1
#6,WORKl
\N

.EXT ERROR BITS

#51,ERCOUNT

,SET UP ERROR COUNT 51

"5,STAER!
5TAI40
'OAE
5TA153
@DAE,WORK

,REPORT ERROR OCCURRED
.RESTART ROUTINE
,DID OAE INC. BY DATA WAS x-rEREO
JOK IT DiD NOT INC
'ERROR IT INCREMENTEO

#52,ERCQUNT

,SET UP ERROR COUNT 52

"5.STAER
5TA140

,REPORT OAE INCREMENTED

PALX11

V~03

29-0CT-70

(12)7

'-:J04046
01Z4054
004062
00407121

017767
012767

17415O
0000~2

~~26767

1750"'4

175014
17'01O
1715000

004072

00012153

174762)

004336
177120
1747C1J2

174752

0k'l4116

012767
000054
0r2i4567
000167
217767
001407

0~4120

·1l12767

Pl00054

174732

STAt53: MOV
MOV
CMP
BEQ
ERORJ2: ERROR
ERR53 r MOV
N-N·l
JSR
JMP
STAI541 MOV
BEQ
EROR33: ERROR
ERR54: MOV
N·N+1
JSR
JMP
STAI55: MOV
MOV
CMP
BEQ
EROR34: ERROR
ERR55: MOV
NIIN·l

0~4100

Ci'l04104
e04110

001407

(/!~H2J2)55

Nj4126
V0 4 132

004567
000167
~1177 6 7
rH2767

210 4 136
004144
H'J4152

1JJ26767

e~41M3

;~01407

e~4162

012767

004236
177072
174656
1l!11114
174714

174724
174720
174710

~0012l55

174670

~00056

0~4200

004567
000167
(Il00004

~'04202

~(()3230

('J0417~

N~4114

004246
177030

PAGE 14-1

JSR

JMP
lPST401 SCOPE
STAI40

CiDDAR,WORI<
#2,WORI<1
WORK1,WORK
STA154
\N
#53,ERCQUNT

1010 OAR INCREMENT ON CONTINUE
'WHAT DAR SHOULD CONTAIN
'IS OAR CORRECT
IOAR 01<

"5,STAER1
STA14QJ

,REP()RT OAR INCORRECT
IRE-START ROUTINE
.rETCH WORD COUNT
.WORO COUNT OVERrLowro

~Wc:,WORK

,SET UP ERROR COUNT

STAI55
\N
#54,ERCOUNT

.SET UP ERROR COUNT '4

"'.STAER
5TAI40
@CMA,WORI<
#OUTBUF"+4,WORK1
WORK1,WORI<
LPST4QJ

.REPORT WORD COUNT 'AIlEO TO CLEAR
.RESTART ROUTINE:
• rETC'H CMA
IWHAT CMA CHOULO EQUAL
.IS CMA CORRfCT
ICMA WAS CORRECT

_55,ERCOUNT

.SET UP ERROR COUNT 85

"S,STAER1
STAI40

.REPORT CMA INCORR£CT
.RESTART ROUTINE
'ENT[R SCOPE lOOP

PALX11

Vk'J03

PAGE 15

29"OCT-7eJ

TEST READ
JONE WORD READ fOLLOWED BY A ONE WORO
JREAO CONTINUE.
J

JEROR35=8USY WAS NOT SET BY GO
JEROR36=BUSY NOT CLEARED BY OVERrLOW
JEROR37=DISK ERROR OCCUR~ED WHILE X-rERING DATA
JEROR40=DAE tNCREMENTED WHEN X-fERING DATA
JEROA41-DAR FAILED TO INOREMENT WHEN X-fERING DATA
JERQR42=WORD COUNT fAILED TO OVERrLOW
JERQR43=CMA FAILED TO INOREMENT
J
J

174544
1745412\

"EXECUTE THE ONE WORD READ- • •
#BIT8,'DOS
.CLEAR THE DISK WORLD
MOV
#177777,OUTBUF .OATA TO BE X-fERED
MOV
#OUTBUF,'CMA
.SET UP CURRENT AODRESS
MOV
#-1"WC
.SET WORD COUNT TO ·1
RIS
#5,'OC5
.GO READ
TSTe
~DCS
.TEST FOR BUSY31
8PL
STA157
,BUSV SET
MOV
~DCS,WORK
.BUSV NOT SETI P[TCH Des
EROR35: ERROR
\N
ERR56: MOV
#56,ERCOUNT
.SET UP ERROR COUNT 56
N-N+l
JSR
%5,STAER
,REPORT ERROR
SR
STAI56
.RESTART TEST
STAI~7: CLR
WORK
RDW/l.T: INC
WORK
,WAIT FOR BUSY=Ql
TSTB
tiDCS
.15 BUSY CLEARED
BMI
STA160
.fLAG CLEARED
TST
WORK
.HAVE WE WAITED LONG ENOUGH
8NE
ROW AT
.BUSY FAIL[D TO CLEAR
MOV
~DCS,WORI<
,rETCH CONTENTS or CCS REG
SIS
#5,WORK1
.WANT DCS SHOULD CONTAIN

174520

ERRS7:

J••

/)52777

fll004~0

;1;:;4212

~j12767

;' /;4 :?20
?I1l4226
/'04234

;112777
Ll12777

177777
011110
177777

174602
004670
174572
174562

l52777

~HHH?l~5

174552

/(;4242

1~5777

174546

~,~ k~ 4246

1~0011

:'04250

~'17767

174540

174612

)12767

000056

174574

['Z4204

/i()4256

\'~00057

124264

r.ll~4567

/04270

0V"' 0745
:'105067
:1~ 5 2 6 7

:!i<~4272

Cl4276
!/043e2
~:: 0 4 316

11£)5777
100417

}Z4310
;(;'4314
11C4316
/:t,4324

C,105767
:.101370
1.017767
'7J527f-> 7

re~332

;.112767

0041~'0

174512
17 4 566
1745e6
174554
174472
!~00Vl?;5

IH~0060

r:;;:4340
d34344

'iH'4567
J00717

'd~4346

'H 7767

:',~; 4 35 4

0~,5767

~'(;4 Mdt'

1~0012

:;' 1",4362

7'12767

;112767

174442
174510

174514

174502
0001360

174462

r,V:ClJ061

,;:'e, 4376

004567

~?v./44~2

!.100167

('04406

~17767

V~4414

005767

V(~4420

',101407

l':t4422

1112767

004040
177576
174412
174450

5TA156: BIS

EROR361 ERROR
MOV

N=N+l
JSR
8R
5T/l160: MOV
TST
BPL
MOV
EROR37: ERROR
ERR6VJ: MOV
N=N.1

174454

JSR
JMP
5T/l161: MOV

174430

ERR611

EROR4~:

TST
BEQ
ERROR
MOV

#57,ERCOUNT

.SET UP ERROR COUNT '7

%5.STAER1
STAI56
5lDCS,WORK
WORK
STIII61
#3,WORK1

.REPORT ERROR
,RESTART TEST
.rETCH CONTENTS or CCS REG
115 ERROR fLAG SET
.NOI X-fER OK
.WHAT DCS SHOULD CONTAIN

#60,ERCOUNT

JSET UP ERROR COUNT 6Ql

"5,STAER1
STAI56
tiDAE,WORK
WORK
STAI62

,RE:PORT ERROR
IRESTART TEST
,IS EXT. ADDRESS CLEAR
.DAE SHOULD NOT HAVE INC.
IDAE 01<

#61,ERCOUNT

.S[T UP ERROR COUNT 61

FALX11

VIZ,03

H)4430
0:4434

0e:4567

29-0CT-70

010'7

VJ012l062
000167

,;;1:4440
(,1.4446

l~2

v~4454

k1~1412

~17767

2 767

12l12)37:34
177544
174356
00 el(?Jril1

174422
174414

4:' 6

)112767

'~012l001

174406

<(.4464

~~12767

~12l012l~2

174366

y'~' 4

STAI621

EROR04U
ERR621

J~0063

('0,4472
',1 v~ 4476

ZI~'4567
~~e167

17 7 6 7

;.-:v450.2

:,~

H14510

~HH407

r'V4~12

'/112767

003744
177502
17431r2'

174360

ST.163:

00121063

174340

EROR421
ERR63:

~J~~012l64

: ~,452'~

j~4567

::~45~~4

0~~167

:: ;'14530

~17767

: v. 4'5:-56
;"k'45,2

;)12767
Z26767
~1~ 14 V'I7

v'~, 4 ~5 4

/112767

;'~14~)44

003644
177454
174264
011112
174322

174332
174326
174316

(~0~)064

174276

'IJ~0C!l65

365 4

r.~' 4 562

0~:,4567

(j0

(. v14 56 6

/"~0167

177412

5TA164:

EROR43:
ERR641

PAGE: 15 .. 1
N.N+1
JSR
JMP
MOV
CMP
BEQ
MOV
ERROR
MOV
N-N+l
JSR
JMP
MOV
BEQ
ERROR
MOV
N-N+1
JSR
JMP
MOV
MOV
CMP
SEQ
ERROR
MOV
NIIN+1
JSR
JMP

"5,STAER
STA156
~OAR,WORK

#BIT0,WORK
5TAI63
itBIT0,WORK1
\N
#62,ERCOUNT

,REPORT ERROR
.RESTART TEST
,WAS OAR INCREMENTED BV 1
liS OAR CORR[CT
.DAR OK
,WHAT DAR SHOULO CONTAIN
I SEl' UP ERROR COUNT 62

"5,STAER1
5TA156
I!IIWC,WORK
STAI64
\N
#63,ERCOUNT

,REPORT ERROR
,RESTART TEST
J F'E,'CH WORD COUNT
'WORD COUNT 010 OIJERF'LOW

%5,STAER
5TAI56
tIlCMA.WORK
#OUTBUF+2,WORK1
WORK1,WORK
5TAI65

'WORO COUNT FAILED TO OV[RF'LOW
.RESTART TEST
.FETCH CURRENT ADORESS
.WHAT CMA SHOULO EQUAL
.1 S CMA CORRECT
IVES EXECUTE CONTINUr

.SET UP ERROR COUNT 63

#64.ERCOUNT

J SE1' UP ERROR COUNT 64

%5,STAER1
STAI56

,REF'ORT ERROR IN OMA
.ERROR RESTART T£ST

PALX11

VI0133

PAGE 16

29-0CT"7{Z

JA READ CONTINUE WILL BE EXECUTED NOW
,WORD COUNT WILL BE SET TO -1 AGAIN
I

'EROR44 s 8USY NOT SET BY GO
'EBOR45=BUSV NOT CLEARED BV OVERrLOW
,EROR46=DISK ERROR OCCURRED WHILE X.FERING
JEROR47=DAE INCREMENTED WHEN CONTINUE WAS EXECUTED
IEROA50=DAR DID NOT EQUAL 2 ArTER SECOND X-FER
IEROR51=WC rAILED TO OVERfLOW ON READ CONTINUE
IEROR52=CMA DID NOT EQUAL OUTBUr.2 ArTER READ CONTINUE

,
I

174216
174206

177777

V'12i4614

012777
052777
105777
100012
017767

174174

174246

Q:1Z4622

J12767

000065

17 4 230

ee.4572
Z04600
ve4606
0~4612

000001

174202

i1H~0066

004630
('04634
V~4640

7r!4644
v04650
V'l4652
H~4656

V;i{;4660

7104567
000167
A05067
105777
l1Z0415
005267
001372
017767

003534
177344
174224
174144

174212
174130

~12767
v:~:4674

V 04700

?iZ4704
?e4710
lV4712
;-,34720

0013067
004567
1100167
005777

174202

174164
~03470

177300
1741~H

1~0015

317767
V'!17767

174076

1741('J0

174150
174144

212767

000067

174124

2~0070

; ;,4734

clC4567

0i2135~2

-/ ;:,4740

:j00167
;;)[65777

175340
174054

ci.4744
" i, 4 75v.:
4 752

,'v

G01412
v:17767

174110

112767
iJi0071
'';04567
,~rcQl16 7
J17767
/J12767

174072

174020
0000V'l2

::(J,12

,126767

174054

5Ctl20

"H~ 14137

: , 4766

/;.'4772

4776
':.>li1~4

003376
1772~6

174064
174060
11405121

ST"1651 MOV
SIS
TSTB
BPL
MOV
EROR441 ERROR
ERR651 MOV
N=N+1
JSR
JMP
STAI66: CLR
INCRO: TSTB
BMI
INC
BNE
MOV
ERORA45: ERROR
ERR66: MOV
N·N+l
JSR
JMP
STAI67: TST
BPL
MOV
MOV
EROR46: ERROR
ERR67: MOV
NcN+1
JSR
JMP
STAI7i21: TST
8EQ
MOV
ER0 R4 7 I ERR 0 R
ERR70: MOV
NcN+l
JSR
JMP
STAI?l: MOV
MOV
CMP
8EQ

#177777,81WC
#BIHl,dIIOCS
~OCS

5TA166
@OCS,WORK
\N

ISET WC TO .. 1
ISET GO TO CONTINUE
,TEST rOR ROV=0
,ROV SET
I~ETCH CONTENTS or OCS

#65,ERCOUNT

,SET UP ERROR COUNT 65

"5,STAER
51A156
WORK
tlOCS
STA167
WORK
INCRD
81oCS,WORK

,REPORT BUSY NOT SET
,TST fOR ROY SET BV OVERFLOW
,ROY SET CONTINUE
naIT FOR BUSY=0
.GO WAIT POR BUSV
tFETCH CONTENTS OF oes

#66,ERCOUNT

.SET UP ERROR COUNT 66

%5,STAER
STAI56
@loCS
STAI70
tlOCS,WORK
@OAE,WORK1

,REPORT BUSV NOT CLEARED
.RESTART ROUTINE:
.010 AN [RRO~ OCCUR WHILE X·FERING
INO CONTINUE
.YESI CONTENTS or oes
.EXT ERROR BITS

#61,ERCOUNT

,SET UP ERROR COUNT 67

%5,STAER1
STA122
'OAE
STAI71
tJOAE,WORK

.REPORT ERROR OCCURRro
.RESTAFH ROUTINE
,010 OAE INC. BY OATA WAS
,OK IT oio NOT INC
.ERROR IT INCREMENTEO

X~PEREO

#10,ERCOUNT

.SET UP ERROR COUNT

"5,STAER
STA156
(lOAR,WORK
#2,WORKl
WORK1,WORK
STA172

.REPORT OAE iNCREMENTED
1010 OAR INCREMENT ON OONTINUE
.WHAT DAR SHOULD CONTAIN
.IS DAR OORRECT
.OAR OK

PALX11

1/003

29-0CT-7V'1

0~5022

~12767
00~072

000011

,:e5eJ30

004567
012:0167
017767
001407

V103406

177144
173752

174022

012767
000073
'104567
000167

00121072

174002

~e5VJ34

005040
ee5eJ46

0e5050

005056
Vw;5062
005066
e.05074
~~51~2

'-'05110
0e.5112

0e5120

rl5124

~17767

012767
026767
001407
012767
rtH10r374
:"04567
000167

111 05130

000004

"~5132

JJ04204

174~3r3

003306
177116
173726
!?l11114
173764

173714
173770
113160

00121073

1137413

0133316
171054

0107

PAGE 16"1

EROR50: ERROR
ERR71l MOV
N=N+1
JSR
JMP
STAI72: MOV
BEQ
EROR511 ERROR
ERR72: MOV
N-N+1
JSR
JMP
STAI?3r MOV
MOV
OMP
BEQ
EROR521 ERROR
ERR7~:
MOV
N_N+1
JSR
JMP
LPST56: SCOPE
STAI56

\N
#71,ERCOUNT
%5,STAER1
STAt56
@WC,WORK
51A173
\N
#12,ERCQUNT
"5,STAER
STAI56
~CMA,WORK
#OUTBUF'+~,WORKl

WORK1,WQRK
LPST56
\N
#73,ERCOUNT
%5,STAER1
STAI56

,SET UP ERROR COUNT '1
,REPORT OAR INCORRECT
IR£S'TART ROUTINE
,'ETCH WORO COUNT
,WORD COUNT OVERrLOWED
.SET UP ERROR COUNT '2
,REPORT WORD COUNT 'AILEO TO CLEAR
.RESTART ROUTINE
.F'ETCH CMA
.WHAT CMA SHOULD EQUAL
.IS eMA CORRECT
.CMA WAS CORRECT
.SET UP ERROR COUNT

.REPORT CMA J NCOPHUCT
.RES'TART ROUTINE
.ENT[R SCOPE LOOP

FALX11

V~03

29-0CT-7eJ

0107

PAGE: 17

STATIC TEST THE ABILITY OF' THE DlSI< CONTROL
ITO INCREMENT THE TRACK RECIST WILL BE TESTED.
J
I A ONE WORD WRITE WILL BE EXECUTED
.DAE:0
.DAR=177777
JWC--l
ICMA=OUTBUF
J J N THIS

~V5134

,.:(' 5142
,',j')l :'0

1.':(:5156
vVI::>162
v/lr:;17~

C(J5176

n'?202

;152777
(')12777
.112777
01215077
/)12777
,) 12777
005eJ67
105777

000400
177777
011110
173642
177777
i11t'J(ijelC"3

173652
173646
173642
173632
173616

173666
1736"'6

(/IZ'J2e6

1~0414

n'5210
~'L' 521 4

173654

;:, k 5216

(105267
Vj01372
'/)17767

173572

173644

5 224

/.12767

00~074

173626

idl0075
,H:i4 56 7

003132

11/'

;:iI,5232
;"iG 5236

~:03736

r.k~524e

(105777

~v··5244

0~1412

h:J5246

;~17767

17355~

173614

;'e'5254

vH2767

il~0til75

173576

1735~6

~,0eJ076

111t4567
J00167
017767
142767

177642
173526
177774

~. ~J

~22767

?i2.'?314
i:V5316

0000el

001410

173570
113562
173554

~12767

k~012J~V'1

173546

n,5324

.112767
000077
?l12J4567
000004
305134

000076

17:5526

h~52 62

lv5266
U)5272
;k-:5300
5 3 V' 6

Vf'!?332
1'05336
v'0534?

e~31CJ12

~03104

JAT THE COMPLETION OF THE WR ITE
.DAR=0
JDAE=l
:
#81T8,IIIDCS
5TA174: BIS
#177777,.WC
MOV
MOV
#OUTBUF','CMA
CLR
tlDAE
MOV
#177777,tlDAR
MOV
#3.~DCS
CLR
WORK
LTSWT: T5T8
"DCS
8MI
STAI75
INC
WORK
BNE
LTSWT
MOV
@lDCS,WQRK
ERROR
\N
#74,ERCQUNT
ERR74: MOV
Nr:N+1
J5R
"5,STAER
BR
STAI74
!.IDAR
STAI75: TST
BEQ
5TA176
MOV
(ilDAR,WORK
ERROR
\N
ERR75: r~oV
#75,ERCQUNT
NIlN+l
J5R
%5,STAER
JMP
5TA174
t'DAE,WORK
STAI761 MOV
#177714,WORK
BIC
CMP
#l,WORK
BEQ
LPST74
MOV
#1,WORK1
ERROR
\N
#76,ERCQUNT
ERR76: MOV
NsN+l
JSR
%5,STAERl
LP5T74: SCOPE
STAI14

.CLEAR HIE DISK
,SET WORD OOUNT TO .. 1
.SET UP CURRENT ADDRESS
.CLEAR EXT. ADDR BITS
,SET OAR TO ALL ONES
.GO WRITE ONE: WORD
'LET'S WAIT F'OR COMPLETION
.TEST rOR NOT BUSY
.X-FER COMPLE:TE
WAIT REG.
IGO WAIT FOR NOT BUSV
,F"ETCH CONTENTS OF" Des

'.1

.SET UP ERROR COUNT 14
.REPORT ERROR X"'F'ER NEVER COMPLETEO
.RESTART ROUTINE
IDOES DAR=0
.DAR OK
.F"ETCH DAR
.SET UP ERROR COUNT 75
JREPORT DAR 010 NOT INC TO
IERROR RE .. 5TART ROUTINE
IrETCH DAE
.CLEAR DISK AND ERROR BITS
.010 DAE INC
.OAE SHOULD EQUAL 1
,WHAT OAE SHOULD CONTAIN
.SET UP ERROR COUNT 76
,REPORT DAE NOT CORRECT
.ENTER SCOPE LOOP

l'ALX11

V0~3

29-0CT-7f2J

0101

PAGe: 18

,
liN THIS ROUTI NE THE ABILITY OF' THE CONTROL
.TO INCREMENT THE DISK NO " IS CHECKED
J

.ROUTINE PARAMETERS AT START
.DAE=0000X3
(X-EXISTING DISK NO)
.DAH=177777
.WCa-1
.CMA=#OUTBUF'
'DC5=#3
J

,PAfUMETERS AT THE END OF' ROUTINE
JDAE=X+l
JDAH=0
JWCIIQI
,CMA=OUTBUF'+2
'DCS=0
'/S342

.!i16767

, i,'j3':>V'

;~42767

; I' 5356

il52767

:'~?364

:- v' C) ~ 7 2

116777
012777

{!540vl
l/54v'6

1;,12777

'.1(1,5414
/V542'?

iH2777

17:3466
177743
000003
173502
177777
177777
01111K'J

j~52777

0000e.3

1~5777

17,3366

J
J

173522
173514
173506
173432
173422
1734Hl
173404
173372

~> (, 54? 6

H~0011

l {,;543~

017767

173360

173432

;'(J;54-S6

;,112767
000100
<104567
:i100734
Vl05067
105777

000077

173414

173412
173332

1100415
0105267

173400

',1101372
017767

173316

173370

0001(1'0

173352

~'~'15 4 4 4
;''''5450
\'%'3452
r'. Z 5456
V'05462
; ;]5464

7VJ5470

:h15472

0027221

clo e550e

~12767
0~eJHll

r0'55e6
re5512
H'i5516
~: 055 2 2

2104567

~j02656

(~~0167

177624
173300

n'!??24
V;35532
G05540
~,05'544

005777
001412
7117767
';'12767
'-'00102
004567
000167

173272

173336

NH'101

173320

002624
177512

STAP7: MOV
81C
AIS
MOV
MOV
MOV
MOV
8IS

TSTB
BPL
MOV
ERROR
ERR'7? : MOV
N=N+1
JSR
8R
5TA100; CLR
INXDSK~ TSTB
8MI
INC
8NE
MOV
ERROR
ERR 1I'lflJ : MOV
N=N+l
JSR
JMP
STA:U~ll TST
8EQ
MOV
ERROR
ERRUHI MOV
NaN.1
JSR
JMP

F'LAG, WORK:L
#177743,WORK1
#3.WORK1
WORK1,II'DAI~
#117777,~DAR
#177777,~WC
#OUT8UF',~CMA

#3.@DCS
tilDeS
STA100
(flDCS,WORK
\N
#71,ERCOUNT
%5.STAER
STAI77
WORK
(;lOCS
ST"101
WORK
INXDSK
CtbDCS,WORK
\N
#100,ERCOUNT

'rETCH PROGRAM F'I.AG
.MASK DISK NO.
.SET ADDR EXT. BITS
,SET DAE RrG
,OAR EQUALS ALL I~NES
.WORD COUNT SET IrOR ONE WORD
,CURRENT ADDRESS SET UP
,GO WRITE
, IS ROY CLEARED

'rETCH CONTROL RUG
,SET UP ERROR COUNT 77
,REPORT BUSy NOT SET
,RESTART ROUTINE
, IS X.. FER COMPLE'fE
ITEST READY SHOUI.. D BE SET
.GO CHECK AGAIN
'rETCH CONTENTS OF' Des
ISET UP ERROR COUNT U'0

%5.STAER
STAI77
@)DAR
STA102
CfJDAR,WORK
\N
#1PJ1,ERCOUNT

,REPORT X.. F'ER NO'T eOHPU:TE
,RESTART ROUTINE
, IS OAR CLEARED

.SET UP ERROR COUNT UJ1

%5.STAER
STA177

,REPORT OAR NOT CLEAR.
,RESTART ROUTINE

,YES

,F'ETCH OAR ITS NOT CLEAR

PAGE 18-1

PAlX1.1

V003

29-0CT-70

0"!!7

:-"05551£1
1105554

:105267
026777
001412
017767

173316
173312

173242

5T,6102: INC
CMP
BEQ

173234

173276

MQV

~12767
'H~10Ul3

000102

1132613

?I~5562

005564
1105572
'105600

~(i')4567

~(i')2636

v~05604

000167
000004
005342

177532

005610
~flJ5612

ERROR
ERR11il2: MOV
N=N+1
JSR
JMP
LPST77: SCOPE
SlAP7

WORK1
WORK1,fJDAE
LPST?7
(!tDAE,WORK
\N
#102,ERCOUNT

.OAE SHOULD-THIS AT END x-rEA
.IS OAE CORRtCT
IOAE IS CORRECT
JFETCH CONTENTS Or OAE

%5,STAER1
STAI77

.REPORT OAE INCORR£CT
.RESTART ROUTINE
.ENTER SCOPE LOOP

ISET UP ERROA COUNT 102

PALX11

V003

PAGE 19

29-0CT"70
J

•,IN THIS ROUTINE THE PROGRAM WILL GENERATE A
'NON-EXISTENT DISK ERROR THIS WILL BE DONE
.BY ATTEMPING A 2 WORD WRITE ON DISK?
.THE LAST TRACK AND THE LAST WORD ON THE
.LAST TRACK

• DISK 7 IS THERE WE WILL RECEIVE
.Ir
'A NON-EXISTENT DISK ERROR WITH OV£R~~OW
,SET
a

aIr DISK 7 IS NOT THERE WE WILL
.JUST RECEIVE A NON-EXISTENT DISK ERROR
a

005614
005622
v05630
(.',!(J5636

005644
0105652

005661Z
e05664

;<05670
005672
205676
~~570~

;;'05714

052777
012777
012777
012777
012777
052777
005067
lk:l5777
lk:l0414

000401ll
V'J1ll01ll37
177777

173172
173174

177776

17:5152

~05267

173172

::101372
;"117767

173111ll

011111ll

173146

~r,H'l003

173134

173204
173124

012767
0fC0104
004567

173164

173162
173144

002450

(' ~ 5 7 2 VJ

(i100735

1'05722

032777

01ll40~0

17311164

~i,vj573iC

;;(1:5732

001011
017767

173056

113130

l05740

012767

0r2l01a"4

113112

0fll0U'5
705746

004567

1'£i575~

000720

i':V.5754
!Q:576e
:;15762

,:~5776

01112416

005777

173034

100411
v.117767

173026

173100

012767

0001~5

173062

v.J00106
004567

002366

~r;0704

:.'.06(;H:2
/06004

0(2:0004

:-".160(7,6

~(ll5614

,,•
STAlt'J31 8IS

MOV
MOV
MOV
MOV
SIS
C~R

wM"BUS & TST8
BMI
INC
BNE
MOV
ERROR
ERRU~31 MOV
N=N+l
JSR
8R
STA1"'41 BIT
8NE
MOV
ERROR
ERR104: MOV
NaN+1
JSR
8R
STA1C'J5 r TST
8MI
MOV
ERROR
ERR1~5r MOV
N=N+l
JSR
BR
LPSXl12J31SCOPE
STA1I213

#BIT6,·OCS
#31,@DAE
#117777,'DAR
#117776,'WC
#OUTBUF,flCMA
#3,lDOCS
WORK
.OCS
STAl12J4
WORK
rurBUS
.DCS,WORK

'C~EAR THE DISK
.SET ALL EXT AODRI BITS
.SET OAR-TO ALL ONES
,WORO COUNT ... 2
,CURRENT ADDRESS.OUTBur
.GO WRITE

'IS RDV SET

.YES EXIT
'NO BUSY STILL SET
,GO WAIT rOR BUSY-0
.FETCH CONTENTS OF Des

#11ll3,ERCOUNT

.SET UP ERROR COUNT 103

"5,STAER
STA103
#8IT11111·0CS
5TA105

,REPORT BUSy SET
.RESTART ROUTINE
.IS NCO SET
• YES I I S ERROR SET
'FEi'C,", DCS

~OCS,WORK

#1,04,ERCOUNT

,SEi' UP ERROR COUNT 104

"5,STAER
STA103
.OCS

,REPORT NEED NOT SET
,RESTART ROUTINE
,IS ERROR FLAG SET
a ERF~OR I S SET
'FETe,", CONTENTS oF' Des

~PSX103

.OCS,WORK
\N

#105,ERCOUNT

,SET UP ERROR COUNT 105

"5,STAER
STA103

.REPORT ERROR NOT 5£T
,R£!ITART ROUT I NE
.ENTER SCOPE LOOP

FALX11

V003

29-0CT-70

t'l107

PAGE 20

•J IN THIS TEST HIE F'EATURE or CURRENT
IADDRESS INHI8IT IS TESTEO
J

lOG A ONE WORD WRITE AND SEE
J I r CMA INCREMENTED AF"TER THE X-FER

Jle6?10
?~6e16

'06~£'4

/.06.232
:" Z 6 ~ 4 C

7(1.67,44

IJ52777
iJ12777
012777
~j 527 7 7
105777
H:l0426

e0~4e0

Zl11112J
177777
0004~0

172750

~ t6~54

{l12767
)001r?7
i.H:4567

n~6?:6L

l1e~753

:'V'6162

7112777

00fl0~'3

726772
/06774

1~5777

1((;0006

172720

;''/61:76

212767

/26;1.46

172776
172774
172764
172764

70001"6

1730?l4

(7;0231~

7001"7

172724

172754

~~00110

. ;; 61:: 4
/(~611!

;-104567
;1 it. i2! 73 7

r;212260

;·1:6112

t(;5067

1727~2

~e116

1~5777

172672

.7.61;::2
:. i 61? 4

2~5267

:?e13?

~2;1372

. ,1613 C:

1.112767

. ;~ 61 4 j:
'i6144

U':0411

8M!
17274~

7'02110

17272ia

i1~0111

?J04567
:1 ~ 0721

;)02224

'v..6146

A12767

21111~

172716

1726 4 21

172706

; 2616i

172772

17(-772

:Z617~

76 7
:126767
?1014e6

:'\(,f.172

.H2767

z 0 0111·

, ?61:,4

~"17

;-r~62~?

.004567

: J 6 2~' 4

00127101
0000124
;106;;H0

INC
8NE
ERROR
£RRl101 MOV
~J =N+ 1
JSR
8R
LP lt 117: MOV

Mev

CMP

8EQ

;'\~0112

~. e 6 2 7 6
:' 16 21~:

I
I
ST105X: SIS
MOV
MOV
8IS
TST8
8MI
[RROR
ERR1Z6: MOV
N=N+l
JSR
SR
LPX1~5: MOV
TST8
BPL
ERROR
ERRlIl7: MOV
N=N+1
JSR
SR
LPX1~6: CLR
fiATPDYI TST8

202236

172660

ERROR
MOV
N:N+l
JSR
SR
LPX1281 SCOPE
ER~111:

ST1~5X

#8IT8,'00S
#OUTBUF','CMA
#-l,,·WC
*B1T8,'OAE
(aDCS
LPX105
\N
#106,ERCOUNT

ICL.EAR THE DISK
,SET UP CURRENT AOOR
.SET WORD COUNT TO -1
.SET CURRENT AOOR, INfo/IBIT
,TEST rOR REAOV
.BRANCH IF' READY SET

%5.STAER
ST105X
#3.'DCS

'REPORT REAOY NOT SET
,TRY AGAIN
.GO WR IrE
.TEST F'OR NOT ROY
,BRANCH !F' ROY-0

~DCS

LPX106
\N
#107,ERCOUNT
%5.STAER
ST105X
WORK
tlDCS
LPX107
WORK
WATRDY

.SET UP ERROR COUNT Ul6

.SET UP ERROR COUNT 107
.REPORT RDV NOT CLEARED By OMO.
.L.OOP ON ERROR
.BRANCH !F' ROY SET
.WAIT rOR ROV

#lHl, ERCOUNT

.SET UP ERROR COUNT 1UI

%5.STAER
ST105X
#OUT8UF,WORKl
taCMA,WORK
wORK,WORKl
LPX108

,READY NEVER SET AF'T£R X·rER
.LOOP ON ERROR
,wHAT CMA SHOULO BE
HIHAT CMA IS
.COMPARE
.BRANCH IF" EQUAL

\N
#111,ERCOU~T

.SET UP ERROR COUNT 111

"5.STAER1
ST105X

,REPORT THEy DID NOT CMP
'LOOP ON ERROR
,ENTER SCOPE LOOP

PAl-X11

'1003

29-0CT-7Vl

PAGE 21
J

lIN THIS ROUTINE THE ABILITY
'MEMORY ERROR IS CHECK.

or NONp£XISTENT

JTRA~srER TWO WORDS STARTING WITH THE
.LARGEST ADDRESSABLE MEMORV LOCATION IN THE
,PDP-11/20

C':e'6?26

352777
012777
012777

/j{6234

012777

?~6242

2;52777

/062:',,(1

005067

~:il6254

005777
Hl0430
105777
100414

;!~6212

'/ v.: 62 C' v~

"i0626V?062f,2
~:06266

,'062 7~

~05267

?0t274

001367

J
e1004~0

000340

177776
177776
00121063
172614
172534

172574
112554
172562

172556
172544

172526
172574

172554

;.112767
000113
f/06312

017767
004567

/06316

Y,00735

v, 06 3:~ 4

~12767

17'2504
002052

172556

;~00113

172532

172462
00212l3:tJ

172534

000114
'/:~6326

ih06334
~,,06340

Hj6342
G~063?VJ

V0636k~
~"0631;6

017767
004567
000724
032777
001011

172444

012767

0210114

172500

00~115
~17767

172430

172502

?J04567
000707

001776

('J06374

~32777

00212H7,0

V064~"2

001011

~,0637~

006434

012767
000116
017767
01214567
000672
052777
022777

e06442

eHH412

006444

012767
01210117

rQJ6412
006420
;;',06424
V06426

172422

172446

1724e6

172450

0el1744
~00400

172360

0002~0

172352
172406

Nxr"TSM I 8 I S
MOV
MOV
MOV
8IS
C:LR
INCNEMI TST
BMI
TSTB
8MI
INC
8NE
ERROR
ERR112: MOV
NI:N+1
MOV
JSR
8R
RDYERX: ERROR
ERR113: MOV
N=N+1
MOV
JSR
8R
TSTNEMI BIT
BNE
ERROR
ERR1141 MOV
N=N+1
MOV
JSR
8R
HWDOK: BIT
BNE
ERROR
ERR1l5: MOV
N=N+l
MOV
JSR
SR
CLRNEM: SIS
C:MP
SEQ
ERROR
ERR1161 MOV
NaN+1

#SIT8,I9IDCS
#340,I9ICSR
# ... 2,f)WC
#177776,I9ICMA
#63,.DCS
WORK

'CLEAR THE DISK
'LOCI< UP PROCESSOR
.SET UP WORD COUNT
.SET UP CURRENT AODRtSS
.ISSUE WRITE

~OCS

.TEST rOR ERROR
'BRANCH If ERROR SET
.TEST rOR ERROR
,REPORT NEM NOT SET
'WAIT FOR ERROR

TSTNEM
@lDCS
RDYERX
WORK
INCNEM
#112,ERCOUNT

.REPORT ERROR OR BUSY NOT SET
,SET UP ERROR COUNT 112

@lOCS,WORK
%5,STAER
NXMTSM

'rETCH DCS rOR REPORT
,REPORT ERRCR
'LOOP ON ERROR

#113,ERCOUNT

,SET UP ERROR COUNT 113

lliIOCS,WORK
%5,STAER
NXMTSM
#SIT14.rilDCS
HWDOK

,REPORT TIME OUT
,CONTROL NEVER COMPLETED WRITE
'LOOP ON ERROR

.BRANCH If HARD ERROR SET

#114,ERCOUNT

,SET UP ERROR COUNT 114

@lDCS,WORK
%5.STAER
NXMTSM
#81 TUJ, @lOAE
CLRNEM

JREPORT HWD NOT SET BY NEM
,REPORT HWD NOT SET
'LOOP ON ERROR
.TEST FOR NEM SET
'NEM SET BE x-rER OK

#115,ERCOUNT

.SET UP ERROR COUNT 115

@lDAE,WORI<
%5,STAER
NXMTSM
#8 ITS, f)DCS
#200,GtDCS
CKHWO

.REPORT HARD ERROR RlGIST[R
,REPORT NEM NOT SET ey x-rER
'LOOP ON ERROR
,CLEAR THE DISK
lIS ERROR CLEAREO
IERROR flAG CLEAREO

#116,ERCOUNT

,SET UP ERROR COUNT 116

PALX11

V~03

29-0CT-70

206452
006460
2106464

~17767

172336

0~4567

~017rz4

000167
1332777
;;301412

177522

7e6472'

f'e6416
flel6500

012767

0400~0

172316

000117

172352

vv;652l

11'17767
004567
0021167

006524

~32777

~~6532

2l014Ul

/'06534

;;'12767
tiHHH21

200120

172316

~17767

172256
177436

172320

~06514

~106542
?0655~

006554
e06556

"00167
000004
006212

1723~2

112354

001650
177466
0020Q11i'!

112212

PAGE 21-1
MOV
JSR
JMP

172410

~00120

(065'26

0107

CKfo;wQ:

BIT

BEQ

ERROR
ERRlt71 MOV
NaN+l
MOV
JSR
JMP
BIT
CK~EM:

BEQ

ERROR
ERR120: MOV
NaN+l
MOV
JMP
LP~EM:
SCOPE
NXMTSM

(lDCS,WORI<
"5,STAER
NXMTSM
#8IT14, .. OCS
CKNEM
\N
#117,ERCOUNT

'ERROR NOT CLEAREO BV OISI( CLEAR
.REPORT ERROR
'LOOP ON ERROR
.IS ~ARO [RROR SET
.HWD CLEARED BY 01SI( CLEAR

'DeS,WORK
X5,STAER

,REPORT
NOT CLEAl'IIEO
,.LOOP
ON ERROR

~XMTSM

#B I Tlli'! ,.1I0AE
LPNEM

,SET UP ERROR COUNT 111
~WO

,IS NEM CLEAAEO BY OISI< CLEAA
.NEM CLEAREO BY OISI( CLEAR

#120,ERCOUNT

,SET UP ERROR COUNT 12m

~OAE,WORK

,REPORT NEM NOT CLEAREO BV OrSK
IL.,OOP ON ERROR
.ENTER SCOPE LOOP

NXMTSM

CLEA~

PALX11

V003

PAGE 22

29'-OCT-70
J

,IN THIS ROUTINE THE PROGRAM WILL TEST
.THAT THE DISK WILL ONLY TRAP
JAT 8R5 ONLY WHEN A INTERRUPT IS GENERATED
JBY CLEARING THE DONE
,pROCESSOR OPERATING AT PRIORITY?
J

1306560
006566
012J6~74

~12166012i

01216MJ4
006612
01216620
006626
(7106630
006632
0066j4
012!6640
r?l~6642

006650
01216656
01266f2

012767
12112777
0121512177
0121512177
:2112777
012777
052777
00500121
00521210
liHZI1376

01216664
01210340
172224
172216
177777
0111113
01210103

1~5777

172154

t0121423
12117767
1312767
1211210122
2104567
01210736

111416

1722216

172204
112200
172166

172146

172220

1211210121

172202

110151216

STA106c MOV
MaV
CLR
CLR
MOV
MOV
BIS
CI..R
INC
BNE
T5TB
8MI
MOV
ERROR
ERR121: MOV
N-N+l
JSR
BR

#INT1i216,204
#340,t'CSR
~OAE
~DAR

#177777,'WC

#OUTBUF,'CMA
#103,'OCS
"0
"121
, .. 2
~DCS

LP106
@DCS,WORK

.SET UP INTERRUPT VECTOR
'LOCK OUT ALL INTERRUPTS
.CLEAR ADDRESS R~GISTERS
.SET WORD COUNT TO -1
.LOAD CURRENT ADORESS
.GO WRIT~ <INTERRUPT ENAILED)
.WAIT FOR ROY
lIS CONTROL STILL NOT ROV
.NO
.VESI

#121,ERCOUNT

.SET UP ERROR COUNT 121

"5,STAER

,REPORT CONTROL STILL BUSV
.RESTART ROUTINE

STA106

JPROCESSOR SHOULD NOT TRAP TO INT1i216
JPROCESSOR PRIORITY IS LOCKED AT ?
J

006664
~1ll6672

012167';0
i/1067C2
7106716
Ve,67j0
Ni6712

012767
01210123
017767
022626
0~4567

000724

00001214
:2106560

0121121122

172166

172104

172170

01211462

INT106: ERROR
ERR1221 MOV
N=N+1
MOV
CMP
JSR
SR
LP106: SCOPE
STA106

\N
#122,ERCOUNT
@CSR,WORK
(6)+,(6).
"5.STAER

.SET UP ERROR COUNT 122
.FETCH PROCESSOR PRIORITY
.REPORT DISK INTtRRUPTED

STAUl6

,ENTER SCOPE LOO~

PALY11

V~03

PAGE 23

29-0CT-712!
J

JIN THIS ROUTINE THE PROGRAM WILL TEST
JT~AT THE DISK WIL~ ONLY TRAP
JAT BR5 ONLY WHEN A INTERRUPT IS GENERATED
JBY CLEARING THE DONE
,pROCESSOR OPERATING AT PRIORITY6
012767

e~6714
\?I~67~2

1012777

006730
r,;;e,6734

"~5077
~05077

~~0674?'

012777
012777
052777
205000

e06746
c~e67:o4

~~rt6762

007020
Ql00300
172270
1721i'fl2
177777
e11110
0001e3

171262
172052
172050
112044
172032

V:06764

0((152(7,~

,::0676fJ

001376

VVi677~~

172020

006774
V'V,6776

105777
100423
017767

172012

172064

000123

172046

~~07C12

012767
000124
004567

!'Z07~16

0~0736

~01352

MOV
STAl101
MOV
CLR
CLR
MOV
MOV
81S
CLR
INC
8NE
TST8
8MI
MOV
f:RROR
ERR123: MOV
N=N+l
JSR
SR

#lNTl10,204
#300,'CSR
CiDAE

,SET UP INTERRUPT VECTOR
'LOCK OUT ALL INTERRUPTS ABOVE
.CLEAR ADDRESS R£GISTERS

~DAR

#177777,(II-1C
#OUTBUF,tlCMA
#103,8IDCS
%0
%0

,SET WORD COUNT TO -1
.LOAD CURRENT ADDRESS
IGO WRITE (INTERRUPT ENABLED)
,WAIT FOR NOT BUSY

,-2

tiDes
LP110
(laDCS,WORK

lIS CONTROL STILL BUSY
INO
,YESt

#123,ERCOUNT

ISET UP ERROR COUNT 123

"5,STAER
STAl10

,REPORT CONTROL STl~L BUSV
IRF:START ROUTINE

JPROCESSOR SHOULD NOT TRAP TO INT106
'PROCESSOR PRIORITY IS LOCKED AT 6
I

007/<i2

0~"n24

INT1101 ERROR
ERR1241 MOV
N=N+l
MOV
CMP
JSR
BR

7e7?4'1

00012!04

LP11~ I

012767

~00124

172032

171750

172034

"00125
M~7r\;:'-6
::; (Ii

017767

v) 7;/ ,) 6

~e4567

7;::34

~:,

022626

001326

#124,ERCOUNT

.SET UP ERROR COUNT 124

CiCSR,WORK

,FETCH PROCESSOR PRIORITY

(6) +, (6).

%5,STAER
STA1UJ

,REPORT DISK INTERRUPTED

('07046

SCOPE

JENTER SCOPE LOOP

STA1UI

0~6714

.IN THIS ROUTINE THE PROGRAM WILL TEST
JTHAT TH[ DISK WILL ONLY TRAP
.AT BR5 ONLY WHEN A INTERRUPT 15 GENERATED
'BY CLEARING THE DONE
JPROCESSOR OPERATING AT PRIORITY5

,
vH!l7?~4

012767
012777
005077

001e70

00512177

0Vl7e74
007Hi2

liH2777

0r2J705~

0072,6

00711Vl

007116

012777
052777
00512100

007154
000240
171734
171726
177777
0111112l
000103

171126
171716
171714
171710
171676

STA112: MOV
MOV
CLR
CLR
MOV
MOV
8IS

CLR

#INT112,204
#240,GIICSR
CiDAE

.SET UP INTERRUPT VECTOR
.LOCK OUT ALL INTERRUPTS ABOVE
.CLEAR ADDRESS REGISTERS

~DAR

#177777,CiWC
#OUTBUF,GlCMA
#103,GIIDC5
%0

,SET WORD COUNT TO ·1
ILOAD CURRENT ADDRESS
,GO WRITE (INTERRUPT ENABL£D)
'WAIT FOR NOT BUSY

PAI..Xl1

VrlI03

007120
007122

00520rl1
001376
l1i:l5777
100423
017767

V'!~7124

N'713'1

007132
~0714~

V'~7146

v,ra7152

1312767
000126
004567
000736

29-0CT ... 70

171664
171656

17173rl1

000125

171712

001216

Qlle7

PAGE 23 ... 1

INC
8NE
TSTS
8MI
MOV
ERROR
ERR1251 MOV
N=N+1
JSR
BR

%0
.... 2
~DCS

LP112
e,;lDCS,WORK
\N
#125,ERCOUNT
%5,STAER
STA112

.IS CONTROL STIl..I.. BUSV
,NO
J'fES t
J SE1' UP ERROR COUNT 125

,REPORT CONTROL STILI.. BUSY
,RESTART ROUTINE

PALX11

V003

PAGE 24

29-0CT"70

,
:PROCESSOR SHOULD NOT TRAP TO INT106
.PROCESSOR PRIORITY IS LOCKED AT 1
J

0fZ7154

012767

0r;Ha26

171676

171614

171700

000127
007162
007170
~07172

007176

~17767

12122626
004567
1210121724

001172

INT1121 ERROR
ERR1261 MOV
N=N+l
MOV
CMP
JSR
SR
J

007200
0072~'2

LP112:

000004
00705121

#126,ERCOUNT

,SET UP ERROR COUNT 126

tlCSR,WORK

.fETCH PROCESSOR PRIORITY

(6)+, (6).

"5,STAER
ST"112

SCOPE
STA112

.REPORT DISK INT£RRUPT£D
.ENTER SCOPE LOOP

.THIS ROUTINE WILL TEST THE ABILITY Of THE DISK CONTROL
ITO TRAP AT 8R5 WHEN THE DONE fLAG IS SET.

0072k1 4

052777

"'07212
",(1722121

12112767
012777

007226
v'07232
007236

005077

01217244
007252
007260
007262
Cl072 6 4

007274

0002e!0
171572

12105077

171564

012777
012777
052777
005000
005200

177777
011110
~12I0103

1716~2

170764
171554
171552
171546
171534

001376
012767

0121121127

17'564

1210013121
017767

171514

171566

[Ii:O 7 3 ~:, 6

1304567
12100736

V'073Hl

022626

007~v'2

00i2J4e'0
007310

001062

STA114' SIS
MOV
MOV
CLR
CLR
MOV
MOV
815

CLR
INC
BNE
ERROR
ERR127: MOV
N=N+l
MOV
JSR
SR

*BIT8,(JDCS
#INT114,204
#20121,'CSR
'DAE
taDAR
#1"17777,'WC
#OUTBUf,(aCMA
#103,(JOCS

ICL.EAR THE DISK
,SET UP DISK TRAP VECTOR
.SET PROCESSOR TO PRIORITV 4
.CLEAR EXT ADDRESS BITS
,CLEAR LOW ORDER ADDRESS BITS
.SET WORD COUNT TO -1
.LOAD CURRENT ADDRESS
'WRITE (INTERRUPT ENABLE

"0
"0

,WAIT fOR INTERRUPT TO OCCUR

.-2

#127,ERCOUNT

.SET UP ERROR COUNT 127

@DCS,WORK
"5,STAER
STA114

,fETCH CONTENTS Of Des
,REPORT INTERRUPT NO INTERRUPT
,RESTART ROUTINE

tl'07:H2

000004

007314

12107204

INT1141 CMP
(6)+,(6).
,TRAP OK
SCOPE
JENTER SCOPE LOOP
STA114
;* * * ADDRESS TEST 1 * * *
JEXECUTE A ONE WORD WRITE
I I f THE TIMING ON THE DISK IS CORRECT
JTHE TERMINATING ADDRESS IN THE DAR REGISTER
.WILL EQUAL THE ADDRESS .1 Or THE WORD
JTHAT WAS WRITTEN
J

JNOTE: DATA IS NOT CHECKED IN THIS TEST.
J
~07j16
~073~2

012706
012767

ADTi'

0010~~

000001

17151~

MOV
MOV

#100121,"6
#l,WRDCT

.SET UP STACK
,SET UP WORD COUNT

PALX11

V003

29-0CT-70

007330
101217:536
007342
007346
01217354
007356
'-'07362

12112767
005067
01215067
1[152777
10441213
105777
100375
005777
10121011
017767

01111121
171502
171474
00;1\400

171416

111470

12112767
12100131
004567
000755
12116767
005267
017767
026767
00141216

001U30

171452

171424
171444
171370
171432

171450

012767
000132
004567
000733
022767
001405
016767
000167
032777
001402
:2":10167

00121131

111406

~07164
~07370

007:n2
007400
0.074rj6
007412
007414
"'1217422
01217426
0074~4

007442
007444
007452
007456
0074621
0~7466

!?IlZi7470
0,07476
0~j75/2

U.7?10
C';07512

0: 0i'

171512
171440

WRAClT:

171432
171424

ERRj.30z

000756
CHKAOT:

171434
171426
ERR1311

000764
0040fil0

171404

171376
177644

171346

004000

171270

INC[)AR:

LPADT:

PAGE 24-1
MOV
CLR
CLR
8IS
WRITE
TST8
BPL
TST
BPL
MOV
ERROR
MOV
N=N+1
JSR
SR
MOV
INC
MOV
OMP
AEQ
ERROR
MOV
N=N+1
JSR
SR
CMP
SEQ
MOV
JMP

BIT

8EQ
JMP

1776~f2l

#OUTBUF,BUF
DMA
TRACK
#BIT8,@DCS

,SET UP CURRENT ADORE:SS

(!lDCS
,-4
@DCS
CHKADT
@DCS,WORK
\N
#130, ERCOlJNT

,CHECK FOR READY

%5.STAER
WRADT
OMA,WORK1
WORKl
@DAR,WORK
WORK1, WORI<
INCDAR
\N
#131,ERCOUNT
%5,STAER1
WRADT
#4000,WORK1
LPADT
WORK1.DMA
WRADT
#BIT11.tjtSR
,+6

ADT1

,CLEAR THE DISK

.CHECK FOR ERROR
.BR"NCH IF NO ERf~OR
.SET UP ERROR COUNT 130
,REPORT ERROR
ILOOP ON ERROR
.WHAT DAR SHOULD CONTAIN
115 OAR CORRECT
.YES OAR IS CORRECT
,SET UP ERROR COUNT 131
.REPORT OAR NOT CORRECT
.LOOP ON ERROR
115 IT THE LAST ADDR.
JLAST ADDRESS EXIT
.SET UP FOR NEXT ACDR.
.CHECK NEXT ADDRESS
.LOOP ON TEST
'NO'
'YES! 8IT11 SET IN SR

* ~ ADDRESS TEST 2X • * *
JEXECUTE ~ ONE WORD READ
.IF THE TIMING ON THE DISK IS CORRECT
,THE TERMINATING ADDRESS IN THE OAR REGISTER
JWILL EQUAL THE ADDRESS +1 OF THE WORD
JTHAT WAS READ
INOTE: DATA IS NOT CHECK IN THIS TEST,
.~

?07516
(:07522
v;~7~dl
vZ7i.).~6

ee7542

ce: 7') 4 6
~. 0'h54

007556
v1 07?62
liC7S64

012706
012767
012767
005067
005067
052777
1044e5
105777
100375
12!05777

ADT2X:

001000
~J000{11

011120
171302
171274
0004(7,0
171232
171224

171310
171312
171240

ROADT:

MOV
MOV
MOV
CLR
CLR
BIS
READ
TST8
BPL
1ST

#U'l00. ~6
#l,WRDCT
#INBUF.BUF
DMA
TRACK
#BIT8,ilDCS

.CLEAR THE DISK

"'OCS

I CHE:CK FOR R£ADY

\\IDCS

J CHE:CK

.... 4

.SET UP STACK
• SE1' UP WORD COUNT
J SF:1' UP CURR(NT ADDRESS

FOR ERROR

PALX11

V003

29-QCT-7eJ

007570
007572

100011
017767

171216

17127(ZJ

(c;076v;0

12112767

000132

171252

(il0~133

0076~6

1707612
e07614
f7!~7622
0eJ76~6

007634
~e7642
~1Z7644
(~0 7 f, ")2
C·.:e76:i6

r~rt.\7660

004567
000755
12116767
005267
017767
026767
001406
012767
000134
0klJ4567
0riH'J733
022767

000556
171224
171244
171170
171232

171250

000133

171206

171234
171226

000564
004000

171204

0:07

PAGE 24-2

BPL
MOV
ERROR
E:RR132: MOV
N=N+l
JSR
BR
XCHI<OTI MOV
INC
MOV
CMP
SEQ
ERROR
ERR1331 MOV
N=N+1
JSR
8R
AODAR: CMP

XCHKDT

.BRANCH IF' NO ERROR

~oCS,WORK

#132,ERCOUNT

,SE:r UP ERROR COUNT 132

"5,STAER
ROAoT
DMA,WORKl
WORKl
"oAR,WORK
WORK1,WORK
AooAR
\N
#133,ERCOUNT

,REPORT ERROR
'LOOP ON ERROR

%5,STAERl
ROAOT
#4000,WORKl

.REPORT DAR NOT CORRI:CT
.LOOP ON ERROR
• IS IT THE LAST AOOR.

'WHAT DAR SHOULD CONTAIN
lIS DAR CORRECT
'YES DAR IS CORRECT
.SET UP ERROR COUNT 133

PALX11

Vf2l03

007666

001405
016767

e.~71)70

e,!l7r')76

r3~0167

it~e77G2

032777

e07710

~f2l1402

ee.7712

0CilfZJ167

2107716
907720

104001
1311102
000167

lJ07l?2

29-0CT-70

0:07

PAGE 25
BEQ

171176
177644
004t!Hll0

171146

~1OV

177600

JMP
LPAOT21 BIT
BEQ
JMP

171260

END
JMP

17Hl70

LPADT2
WORK1,DMA
ROADT
#8 ITll diSH
,+6
ADT2X

.LAST ADDRESS EXIT
,SET UP FOR NEXT AOOA
.CHECK NEXT ADDRIESS
.LOOP ON TEST
I NO I
.YESI BIT11 SET IN SR

.REPORT END

EMT+1

STAll

.RESTART TEST

;SCOPE LOOP ROUTINE
J IF' BIT 11 SET LOOP ON TEST
0 7 726

032777

q07n4

001402

k:i;7 736
v::n 740
1,;:0 7 742

013646
0012J(Gl02
005767

ve7746

~01003

k:e77:,0
l':Z 7 -; '::J6

012767
005367

0 77 6 2
H}7764

0~14v12

(1'/7766

013646
00!2l002

V(;7770
~\t)7774

062716
000002

004000

171044

171120
00~025
1711~4

700002

17111Cil

LOOP:

BIT
BEQ
MOV
RTI
TST
BNE
MOV

DEC

#81Tl1,(;lSR
,+6
@(6)+,-(6)

.TS,. FOR 8IT 11
.8 I T 11 NOT SET

PASS
,+10
#25,PASS
PASS

J 8 11' 11 SET! LOOP ON TEST
.TEST TO SET UP PASS COUNT
'PASS COUNT SET
.SET UP PASS COUNT
.SUB, -1 EAC~ PASS

8EQ
MOV
RTI

@(6)+,-(6)

ADD

#2, (6)

RTI

,+6

'LOOP ON TEST
,INDEX POINTER FOR N£XT T[ST
JEXf,T TO NEXT TEST

PALX11

V003

PAGE 26

29-0CT-HJ

JENTER DISK HANDLER BY T~E TRAP INSTRUCTION
JARGUMENT TO TRAP INSTRUCTION IS TWO ORDER
'BYTE OF THE CONTROL REGISTER.
J

007776
01ev'ift2
Q'10~06

010012
010016
e,10022
eH~024

01VleJ26
e10030

f2!1?034
01P1042
V'HH:146

016705
016745
016745
016745
2116745
005115
005215
011604
014467
042767
016745
000002

17Ul24
171034
1711£'32
171032
171016

171034
177600
17112122

DISKI

171eJ26

MOV
MOV
MOV
MOV
MOV
COM
INC
MOV
MOV
BIC
MOV
RTI

DBR,'"
TRACK,-(5)
DMA,-(5)
BUF",-(5)
WRDCT,-(5)
( 5)
(5 )

JSET UP TO LOAD OISK REG
.LOAD TRACK NUMBER
.LOAD WORD AODR£SS
.SET UP CURR£NT AOORlSS
.LOAD WORD COUNT
,SET UP TWO'S COMPL£MENT

(6) ,"4

.. (4),WORK
#177600,WORK
WORK,-(5)

.MASK F"UNCTION BITS
.LOAD FUNCTION REG.
.RETURN PROM TRAP

PALX11

V003

PAGE 27

29-0CT-70

iROUTINE TO ALLOW THE OPERATOR TO SET BITS
lIN THE 1/0 REGISTERS VIA THE SWITCH REGtSTER
;
?1~050

010056

017777
000774

170724

170740

;WORD COUNT REGISTER
SELWC: MOV
~SR,~WC
BR
SELWC

170732

JCURRENT ADDRESS REGISTER
SELCMA: MOV
@SR,'CMA
BR
SELCMA

17~724

;DISK ADDRESS REGISTER
SELDAR: MOV
~SR,'DAR
BR
SELDAR

170716

.DISK ADDRESS EXT AND ERROR REGISTER
SELDAEI MOV
@SR,~DAE
'MOV SR !NTO DISK AOOR EXT RfC
BR
SE~DAE

170710

.DATA BUFFER REGISTER
SELDBR: MOV
@SR,'DBR
BR
SE~DBR

'MOV SR iNTO WORO COUNT REG

~10060
01~066

017777
000774

170714

'MOV SR INTO CURRENT AODR R£G

010070
010~76

017777
000774

170704

'MOV SR INTO DISK ADOR RtG

010100
01e106

017777
000774

170674

010110
21V116

017777
000774

170664

, MOV SR INTO DATA BUrrER

(712120

017700

v:.l~~124

0kHHH~15

V,11?126

000005

:',H~130

Q'lel0773

ILOOK AHEAD REGISTER
MOVLK: MOV
@ADS,X0
RESET
RESET
BR
MOVLK

170706

.FETCH LOOK AHEAD
,DISPLAY IN LIGHTS

(.' 1 V 13 2
:' 1 !i; 14 0
?'le'146

'012777
012777
012777

000340
177777
011110

170642
172)650
17e'644

;'lCl:,4
(11(1162

017777

170620

170632

rtJ32777

000001

17r.624

,: 1 V1 7:21

001760

(til:" 172

105777

'/1(/176

100375
000754

;;12'2i'0

170616

;DISK CONTROL STATUS REG!STER
#340,IItCSR
SEL,DCS: MOV
#177777,8WC
MOV
~10V
#OUTBUF,'CMA
~10 V
@SR,IItDCS
BIT
#BIT0,@DCS
BEQ
SELDCS
(iDCS
DKBUSY: TST8
BPL
DKBUSY
SR
SELDCS

'LOCK UP INT£RRUPTS
,SEi WORD COUNT -1 WORO
.SEi UP CURRENT ADDRESS
,MOV SR INTO CONTROL RtC
JIS FUNCTION 8fTS SET
,FUNCTION BITS NOT SET
.TEST FOR DISK R[ADV
.DISK STILL NOT READV
,DISK NOT BUSY SELECT NEW CR

PALX11

V003

29-0CT-70

",:07

PAGE 28

•
;THIS
ROUTINE ENABLES THE OPERATOR TO SELECT A TRACK STATICLV
JTHE ROUTINE DOES A ONE WORD READ TO SEL£CT THE TRACK
JTHE OPERATOR MAY CHANGE THE SWITCH REGISTER AT ANY TIME
JSR6-0 EQUALS THE TRACK NUMBER
JSR9-7 EQUALS THE DISK NUMBER
;

(/10202
C'10210
ri'H~216

\-'10224
71V'232

r'F:236

jjIJ242
'1C?o246
',110252
It

1~256

'?lV264

111272

["1 "'276
1;'302
: 17:326
: 1;"312

(-"10320
;':1./326
vH:334

\ 1/342
:-'tv 350

'·1 ("354
1:~ 356
le364

1"366

052777
017767
016767
042767
006067
006067
006067
006067
006067
016777
017767
000367
006167
006167
006167
042767
016777
012777
012777
052777
105777
H10375
026777
001306
000773

0004021
170564
1706521
1760021

170604
170654
170644
170636

17C1632

170626
170622
17e:616
170612
170606
170510
170572
17111566
170562
170556
003777
170544
e11120
177777
N:100~5

170540
170516

170550
170474
170464
17i1'454
170444

170440
170510

170414

STAMP:

BIS
MOV
MOV
BIC
ROR
ROR
ROR
ROR
ROR
MOV
MOV
SWAB
ROL
ROL
ROL
BIC
MOV

MOV
MOV
815

CTAUSV: T5TB
BPL
SRCHG: CMP
8NE
SR

#BIT8,'DCS
@SR,WORKl
WORK1,WORK
#176e100,WORK
WORK
WORK
WORK
WORK
WORK
WQRK,'DAE
@SR,WORK
WORK
WORK
WORK
WORK
#3777,WORK
WORK,@DAR
#INBUF',6tCMA
#177777,(IIWC
#5,@DCS
@lDCS
CrSUSY
WORK1,@SR
STAMP
SRCHG

.FETCH SR
.MASK DISK AND TRACK NO.

.DISK EXT. AODR. REG. LOAOED

.DISK ADDRESS REG LOADEO
ILOAD CURRENT ADDRESS
.LOAD WORD COUNT
.GO .ND READ
.TEST FOR CONTROL READY
.WAIT FOR CONTROL. READY
.SR HAS CHANGED
.SR HAS NOT CHANGEO

~;ALX11

V003

29-0CT-70

0:07

PAGE 29

?lV37eJ
r, lC~374

;.lV376
(:1\'40.eJ

,124':2
vHj406

::1/410
j

1/,412

~11~414

;'1(1, 416
7H!42121
v~1'~422

:': 1 ~14 2 4
1'10426
;' 1 ;~ 4 3 4

: 1~436
:'lV',440

004567
001070
011062
000006
004567
001060
011016
000003
HJ417H:'0
011014
011016
01HI62
177777
032777
12101401
000000
000205

,,ROUTINE TO REPORT ERROR COUNT AND C:ONTENTS OF" ONE REGISTER

STAER:

000332

000320

JSR
%5,CONV
WORK
MES6
6
JSR
%5,CONV
ERCOUNT
HED5
3

0({)2000

EMT
HED5A
HED5
MES6
-1

BIT

170344

SEQ
HALT
RTS

'CONVERT OCTAL TO ASCII
'DATA TO BE CONVERTEO
'ADDRESS or MESSAGE
,CONvERT OCTAL TO ASCII
.ERHOR COUNT TO BE CONVERTEO
,ADDRESS or MESSAGE
,REPORT MESSAGE

#BIT10,@SR
,+4

'EXIT ROUTINE

;RGUTINE TO REPORT ERROR COUNT AND THE CONTENTS OF' TWO REGISTERS

,1 V', 4 4 2
/10446
(. 12450
(',1V'452

(:' 10454
?lY460
~li,'462

(, 1\7464
?lv'466

; 1 V. 4 7 2
~·1V14 74
712476
'/10500

k' 1 0502
:110,504
V10506

7125110
?10512
:~, 1 C514
Vl10522

eH1;524
/'10526

12104567
001070
011062
000006
004567
00H172
011037
000006
004567
001060
1311016
000003
104000
011014
011016
011037
011062
177777
flJ32777
001401
000000
00121205

STAER1: JSR
%5,CONV
WORK
MES6
6
JSR
%S,CONV
WORK1
MES5
6
JSR
%S,CONV
ERCOUNT
HED5

000260

?l(2l0246

000234

EMT
HED5A

'CONVERT OCTAL TO ASCII
'DATA TO BE CONVERTEO
'ADDRESS or MESSAGE
,CONVERT OCTAL TO Ase I I
,DATA TO BE CONVERT
'ADDRESS OF' MESSAGE
,CONVERT OCTAL TO ASC I I
J ERf~OR COUNT TO BE CONVE:RTEO
'ADDRESS or MESSAGE
,REPORT MESSAGE

HED5

MES5
MES6
-1
e:(2I2000

BIT

170256

#8IT10,@SR

SEQ

~+4

HALT
RTS

JEX[T ROUTINE:

;

~:10530

/7,10532

011600
022740

104~01

;ROUTINE TO DECODE EMT CALLS
;EMT+l=TVPE ONE LINE OF TEXT
JEMT+0=TVPE A SERIES OF LINES
(6), %~
EMTRP: MOV
CMP
#EMT+1,-(0)

JWAS THE CALL EMT·1

29-0CT-70

PAGE 29-1

PALX11

V003

(7,10536

001056

BNE

Ill{l)5412J

12J~0400

TYPS
TYP

JNOI TYP£ A SERIfS 0' LINES or TrXT
JY~S TYP£ ONt LINE 0' TEXT

PAL Xli

VI2J03

(1,10542
010!:S44
e H'J 55121

011600

e H'I552
e10556
~,1~564

el~566

01"J570
01121576
01060121
?o10606

(i:1061121
010614

f.li2J616
010624
01121626

;,n(2634

710640
v~Hj642

?H'l644
?'HJ652

010656

ilHl664
0,10670

nH'672

~62716
~11000

1,12067
122767
1210112101
001211211212
122767
001422
:1,22767
1211211423
004767
12100756
032777

011600
062716

"H'1 702

01112167

1110706
:"10714

('10716

'.':10720
;/1(::722
'J,10724

13121012145

000074

01210042

000064

~12J0002

04000121

170154

121121004121
170150

170150

0121121015
177740
12100012
177726

121121002121

1121121375

000207
112767
12104767
112767
01214767
00073121
1211211210121121

v~H1676

0H'l674

12J12J01~6

1210 UJ(2J 6

116777
105777

022767
0011211211
12112112112102
10412101
00012100

01210763

PAGE 3121

29-0CT-70

012113002
00121014
177777

0121001216

0121121006

JSUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER.
@l%6,%0
TYP::
MOV
,GET ADDRESS THAT CONTAINS MESSAGE AODRE.S
ADD
#2,'%6
,SET UP EXIT.
~%0,%0
MOV
.ADDRESS OF MESS~GE TO R0.
(0)+,TYPDAT
TYPA:
MOVS
,GET CHARACTER
CMPB
#1012J,TYPOAT
'C~ECK FOR "I" C~ARACTER
BNE
TYPC
,CRANCH IF NOT ~.".
RTI
,TERMINATOR CHAR. CONE. EXIT,
#45,TYPDAT
TyPG I
CMPB
.CIolECK FOR """.
SEQ
TYPF
'BRANCH iF' """.
CMP8
#42,TYPDAT
.NOT
""". CHECK rOR "'''.
SEQ
TYPG
.BRANCH IF' "'"
%7,TYPD
JSR
,TVPE CHAR IN TV~CAT
8R
TYPA
TYP[)I
BIT
#BIT14,@SR
BNE
TYEXIT
TYPDAT,(iTPB
MOVB
,OUTPUT CHARACTER TO PRINTER
(iTPS
T5TB
'WAIT FOR DONE F'LAG.
.... 4
BPL
%7
TYEXITZ RTS
.EXIT
TYPF:
MOVS
#15,TYPDAT
,MOVE CARRIAGE R~TURN COOE TO TVPOAT
%7,TYPD
JSR
,GO TVPE CHAR.
#12,TYPDAT
TYPGJ
MOVB
'MOVE LF' CODE TO TYPOAT.
%7,TYPD
JSR
,GO TYPE CHAR.
BR
TYPA
TYPDAT: 121
JSUBROUTJNE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER
TYPS:
MOV
Gt%6,%0
.GET ADDRESS THAT CONTAINS MESSAGE AODREIS
ADO
#2,"%6
.UPDATE TO NEXT MESSAGE AOORESS
MOV
Gt%0,TYPSB
,ADDRESS OF' MESSAGE TO TYPSB
CMP
# .. 1,TYPSB
.CHECK FOR TERMINATOR
BNE
TYPSA
.BRANCH I' NOT T~RMINATOR.
RTI
.TERMINATOR. EXIT
TyPSA: EMT
+1
.CALL ON TYP SUB TO TYPE M[SSAG£
TYPS8: 121
.ADDRESS OF MESSAGE GOES HERE
BR
TYPS
.GO PROCESS NEXT MESSAGE

;OCTAL TO ASCII CONVERT ROUTINE
;

;ENTER ROUTINE AS FOLLOWS
J JSI~%5, CONV
JAD[)R#=ADDRESS OF NUMBER TO BE CONVERTED
JAD[)R BYTE=LSB OF WHERE ASCII IS GOING
JASGII#=THE NUMBER OF' ASCII CHAR. TO BE CONVERTEO
J
J

013567

'10726
10732
10734

012501
012502

HJ736

0612121211

CONV;

MOV
MOV
MOV
ADD

,,(5)+,ACNVX
(5)+,"1
(5).,%2
%2,%1

'VALUE 0' , TO BE CONVERTEO
.ASCI I AODR
•• OF' ASCII CHAR

PALX11

\1003

29-0CT-70

0107

PAGE 31

0107412l

016703
042703
12162703
110341
042767
006067
006067
006067
005302
flH2J1356

00012142
177770
012l12l12l60

ACVNI

MOV
BIC
ADD
MOVB
BIC
ROR
RDR
ROR
DEC
BNE
RTS

(H 0 7 4 4

eH!7512l
vae754

[H0756
(;;10764
n.0770
?H"774
v~ ll0 0 0
~'11002

[':11004
rl1e:e,6

00012107
000016
000012
000006

001£'022

eHZ!0205

000000

ACNVX:

(21

ACNV)(,"3
#1117777I2l,"3
#60,"3
"3'''(1)
#7,ACNVX
ACNV)(
ACNV)(
ACNV)(
"2
ACVN
~!5

,ISOLATE LEAST SIGNI'ICANT OCTAL'
.S£T UP ASCII'
.STORE ASCII CIoIAA
,ROTATE: OCTAL*

1-1 rROM ASCII CHAR COUNT
'EXIT - CONVERTED
'WORK REGISTrR

PALX11

V003

:;11010

000000

~,11012

000000

29-0CT-70

0107

PAGE 32

TEXBUF: 0
TSTCIol: 0
J
J

;ERROR MESSAGE HEADERS

11014
;~, 112115
'~

;'11016
',11317
0'112120
/11021
( 11022
;'U~23

:'11024
"11025
"11026
,,11027
"11030
'/11!1J31
'i11Vl32

',,11033
/11034
~ 11035
/11036

01Hl14
045
100
040
040
040
040
105
122
122
117
122
040
103
117
125
116
124
040
100

HE05A:

.EVEN
,ASCII

1,,(;11

4E05:

.ASCII

ERROR COUNT

JMESSAGE TRAILERS

.11037
Vl1~4i2l

(-:11041
'711~42

('11043
1711044
v11045
,,'11046
(:'11047
/111"'50
~:11051

V11052
(71112153
(/.11054
~'lHJ 55

040
040
0413
040
040
040
040
107
117
117
104
040
104
101
124

MES5:

,ASCII

GOOD DATA

a'l

PALX11
011056
!:~1112157

011060
011061

V003

29~OCT-72!

0,07

PAGe: 32 .. 1

101
040
040
100

MES61

~;11101

040
040
040
040
040
040
040
1r2J2
11211
1214
040
104
1211
124
1211
100

,111102
11111213
::111104
?11H'l5
711H'l6

045
105
116
104
1210

ENOl

011Y:l62
211!ll63
C112164
0H1065

7,11066
V"11067
~H1070

V11071
011072
~11073

011074
011075
011076
011et77
!Z111~0

ASC I I

.ASCII

I"END'I

BAD DATA"I

PALX11

V003

29-0CT-70

0,07

PAGE 33

.EVEN

011110
J
J
J

?11U,0
011112
011114
e1111,6

000000
000000
000000
!lJ00000

OUTBUF: ,WORD

J
J

1'.11120
011122
011124
~11126

(2100000
00121000
12101211211210
00001210

000001

I NBlJF' •

.WORD

.END

1lJ,0,0,0

1lJ,0,0,1lJ

PALXi1

V003

ACNVX
ACVN
ADDAR
ADS
ADT1
ADT2X
BIT0
BITl
81TUl
8 ITl1
81T12
BIT13
BIT14
8 IT1S
RIT2
HIT3
8IT4
8IT5
81T6
f3IT7

011006
010740
12101660
1Z101B32
007316
007516
000001
1Z100002
002000
0121.000
010000
020000
0412101210
100000
0121012104
1211210010
12100020
012101214121
0001"'121
130020121
01210400
001000
0121105121
01217414
006470
006524
"'06426
1?J01020
010726
1?J12I1002
010350
001024
001022
00UJ26
1301014
007776
010172
001044
010530
011102
001060
01212356
01212716
01212762
003r2122
003054
003116
12!03144
12103206
003302
002432
003356

SITS
~IT9

8UF

CHKADT
CKHWD
CKNEM
CLRNEM
Ctv1A

cot\Jv
cS R
CT8USY
C:AE
DAR
C8R

oes

81SK
DK8USY
DMA

EMTRP
E.ND

ERCOUN
rRORl
ERORHl
[RGR11

[ROR12
[ROR13
EROR14
rRO~15

[ROR16
ERQR17
EROR2
EROR20

29-00T-70
EROR2i
EROR22
EROR23
EROR24
[ROR25
EROR26
[ROR27
[ROR3
EROR30
EROR!l
[ROR32
EROR33
EROR34
[ROR3'
EROR36
[ROR37
[ROR4
[ROR4121
EROR41
EROR42
EROR4!
E:ROR44
EROR45
EROR46
EROR41
EROR5
£ROR5121
EROR51
EROR52
EROR6
EROR1
ERRI2I
ERRl
ER R1I2'
ERR1I2l0
ERR101
ERRUJ2
ERR103
ERR104
ERR105
ERR1~6

ERR107
ERRll
ERRl10
ERR 111
ERRll2
ERRll3
ERRl14
ERR115
ERR116
ERR117
ERR12

011211
ri"!J3~a6

0B3.'.
0B3516
003!U.
13036116
0036!S4
003120
""1'2410
003176
0121.12130
00412172
0121412121
01214162
0121.256
01214332
1210431121
002516
004422
01214464
004512
tiH'4"4
004622
004666
12104126
~0476121

002560
005022
00!.50'121
0015112
002606
0026'0
001226
001246
"'01536
0",5500
005532
005572
0051"6
0057.0
"'0577121
(71060.6
~H?J6076
~0161216

006132
006172
006276
006320
006352
0064214

006444
00650121
012116'6

PAGE 33-1
ERA12B
lRA121
ERR122
ERA123
ERR124
ERR12'
ERR126
ERR121
ERR1!
ERA13121
tRR131
ERR132
ERR133
ERA14
ERR1'
tRR16
[RA11
ERR2
ERR2121
ERR21
ERR22
tRR23
ERR24
ERR25
ERR26
ERR27
tRR3
ERR3B
ERR31
ERR32
ERR33
tRR34
ERR35
ERR36
ERR37
ERR4
tRR40
ERR41
ERR42
tRR43
ERR44
ERR4'
£RR46
tRR47
£RR5
ERR'0
ERRS1
ERR'2
ERR53
E:RR!!i4
e:RR,'
ERR56

I2IB6'3~

I2IB66!1B
18216664
012111211Z14
01102121
1Z112I'1~12I

1Z101154
QJI2I'266
181211124
1Z10141Z1121
181217 •••
0121161Z1B
01211644
1211211714
1Z112I212136
L'.II2I211Z16
1Z112I2154
1211211276
131212224
1211212266
012123'6
01212432
1Z102470
1Z112I2516
1Z10256121
"02606
"1211326
0026'0
1302116
131212162
003022
012130'4
"1213116
003144
01213206
01211356
0121331212
"1213356
01213426
121",3454
01213516
"1213544
00361216
"213654
001406
0"'3720
003116
004030
00412172
1Z104120
01114162
004256

EAR"
EAR6
[RR61I
ERR6S,
ERR62
EAR63
tRR6'
ERA6'
[RR66
ERR6'
ERR;
ERR'IIJ
ERR'1
EAR12
ERA1~

tAR1'
EAA1'
EAR16
EAR11
F'LAG
HEO'
HEO'.
I'H~OOI(

lNBur
iNOBUS
INOOAR
iNONEM
INCRO
iNOWAT
tNT11Z16
tNT110
JN T112
INT114
IN)(OIK
LOOP
LPll21'
LP111Z1
LP112
LPAOT
LPA-OT2
LPNEM
LpST1
LpST10
LPST11
LPST12
LpST13
LPSTt4
LpST15
LPST16
LPST11
LPsi'2
LPST21ll

'''~332

I2IIU~S6

BI~3'"

114~12

1!J1.4'~
11~'12
I!JI~"~

121114612
11214666
lU14'16
1Z1114'6
IZIIIJ 4'1 '121
1IJ12I'1IJ22
lIJe'12I1121
1211'112
I2IBI234
IIJI2I'Z,,4
1211'324
11215436
I21I2Il1n4
0111816
IUUl14
12116314
1Z11112121
1Z102'1'"
11""4'121
B162'4
1Z1146.4
0023'6
B06664
10112120
B12I11,4
11217310
"121'4'6
1Z112I1126
01216'10
B12I1QJ~4

BI2I7201Z1
01211!U'2
B01'02
1Z112I6"4
1Z10126121
t.!I"'1"0
IlIB1621l1

1lI12I16'0
1Z111136
1021Z106
1Z11II2 IZI!J III
0"21221
"02166
1Z10131121
1211212236

PALX11

V003

LPST21
LPST22
LPST3
LP5T4
l.PST4121
LPST5
LPST56
LPST6
LPST7
LPSf74
LPST77
LPSX10
LPX105
LPX106
LPXU17
LPX108
LTSWT
MA

00230121
003224
001340
"0137121
004200
2101420
005130
013145121
001500
005336
012156112'
0!21612104
006062
006112
006146
006206
12I!2152!212
12J!2I 1 !21 30
011037
011rlJ62
0112112121
12100134
12J12I6212
011110
001066
001046
001036
0!214276
006320
104405
007546
001064
00112'62
000004
0112106!21
0U'l10!21
010070
010110
0112'132
010050
001000
012'356
0!216010
005452
005516
12105550
0!215614
"'05722

1'1E55
MES6

MOVLK
N
~.iXMTSM

OUi8LJF'
PASS

PAT'\JU
R A'\iNU

RO"':AT
ROYERX
REA.n

ROACT
SAVl
SAVE
SCOPE
SELC:"lA
SELt)4E

SELClAR
SELnaR
SELDCS
SELI,-.;C

SRCHG
ST105X
STA1221
STA101
S TA 1'.12
STA103
STAl2J4
STAU"5
STA106
STA110
STA112

0~5754

006560
01216714
0~7050

29-0CT ... 70
STA114
srAe:R
srAERl
STA 11
ST At 12'
STA 111
ST4112
STAlt3
STA114
STAI15
ST A116
ST A117
5TA12
5TAI20
5T4121
514122
STAI23
5T4124
5T4125
STA126
STA127
STA13
STAI3121
5T.6.131
5T.132
STAI33
5T4134
STA135
5T.136
5TA137
STA14
STA140
5TA141
STA142
STAI43
STA144
STAt45
5T"146
STA147
STA15
STA150
STAI51
S14152
5TA153
STA154
STAI55
5TAI56
STAI57
STAI6
STAl60
STAJ61
511\162

0,01
00'UJ4
010:3'0
0UJ442
001206
012115~4
001~;!J4

001624
1ZJ12I1()14
001742
01212012
0020'4
002j,24
001264
002~."2

01212242
01212304
002312
02124046
0025216
01212~;34

01212576
01211314
002624
002666
002734
00300121
0030~121

003072
003j,34
003j.62
001344
003230
003:U6
003372
~03444

003472
f2!03~)34'

003562
003624
001:i74
003612
003736
1004014
004046
01214110
004136
00 4 204
004272
0014Z4

004346
004406
\1104440

PAGe: 33·2
9T A163
8TAI64
5TAI65
9TA166
STA167
STAI7
STA170
STAI11
STAI72
STAY13
STAY7.
STA 175
9TA176
STA177
STAMP
START
SWROCT
TOMA
TEXBUF'
TKB
TI(5
TPB
TPS
TRACK
TSTCH
TSTNEM
TWROCT
TYEXIT
TYP
TYPA
TYPC
TYPO
TYPOAT
TYP'
TYPG
TYPS
TYPSA
TYPSB
WAF'BUS
WATRDY
WC
WCBUSI
WCWAT
WORK
WORK1
WORK2
WRAOT
WRCHEC
WROCT
WR lTe:
XCHKDT
XSTA11

QJQ'4'1212
121214'30
2104572
2104640
12104704
0014!J4
004744
1304116
QJ0!J"040
130'066
005134
QJ0!J240
2105212
12105342
0102212
12J0112176
C!l010!J6
210112154
011211121
210UJ06
1210112J12
001211214
001012'
001042
2111012
006342
"010!J2
2110642
010542
010552
010570
0121616
2110612
010644
010656
010674
01"J720
010722
005664
006116
"01016
003676
003322
001070
001072
00UJ74
"'07346
10441217
12101040
104403
007614
130124121

PALX11

V003

ERRC'S DETECTED I 0

RUN-1 IME~

'K :CRE USED

S£CONDS

29-0CT-70