Digital PDFs

XX-7912F-6E

December 1975

50 pages

Original

6.5MB

Document:	MAINDEC-11-DZKLA-E-D KL11-DL11-A-Teletype-Tests Dec75
Order Number:	XX-7912F-6E
Revision:	0
Pages:	50
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/DL11/MAINDEC-11-DZKLA-E-D_KL11-DL11-A-Teletype-Tests_Dec75.pdf

OCR Text

·MAIN,
DZKLAE
1
I
3

MACYil 2TC6'T)

iT-NDY-?1

14,16

PAGE lA

.REPT

00583

4
S

•e
f

u
u
u
u
u
u

U
if
U
U

as
n
u

24
IS

26
2?

18
It

31
:IS
32

"41

4111

IDINTI'ICATION
~-~.-"'-----.

PRODUCT CODEI

MAtNDEC.l1-DIKLA-e:.D

PRODUCT NAMEI

KLit/DLll-A TELETVPE TESTS

DATEI

21-DECEMBER-t915

MAINTAINERa

DIAGNOSTIC GROUP

AUTHORt
REVISED BV.

R. KOLLER
AL LOSCHAK

,SUPPORT SOFTWARE SWITCH REGISTER

THIS MAtNDle OBSOLETES MAINDEC-l1-DZKLAD
COPVRIGHT ee) DIGITAL EQUIPMENT CORPORATION
1912,1915
THE MATERIAL IN THIS DOCUMENT IS FOR INFORMATION
PURPOSE! ONLY AND IS SUBJECT TO CHANGE WITHOUT NOTICE,
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OF SOFTWARE ON EQUIPMENT WHICH IS NOT
SUPPLIED BV IT.
DIGITAL IQU1'MENT CORPORATION ASSUMIS NO RESPONSIBILITV
FOR ANV ERRORS WHICH MAV APPEAR IN THI DOCUMINT.

.MAIN.
DZKLA!

MACY11 27(657) 17-NOV-r5
TABLE OF CONTENTS

11"
nu

PAri 1 RUDER nn

24H

2186

~RG~

PAGE lB

INPUT-OUTPUT ~oGrc TESTS

PRG2.PRINTfR TESTS
PRG3 .. PUNCH TEST

PRG4 .. KEVBOARD TEST

;uu

flRGS COMBINED TEST
IIRIi" PRGT

PF/liU,

315a

1410&

IIRlit0, PRGil, PRG12
PRG14

,MAIN.
D%KhA!
42
43

MACY11 I1C.51)

i1-NOV-Y!

PAGE I

1480b

AUTFUCT
8ID'IIII . . . . . . . . . .

44
45

THIS MAINDfC CONSISTS OF A PACKAGE OF TEST PROGRAMS DESIGNED
TO TEST AN ASR33, KSRl], ASR35, OR KSR3S TELETVPE WHEN ATTACHEO
TO A PDP11 SYSTEM THROUGH A KL11 OR DLli. TELETVPE CONTROL. ALL
TESTS ARE INCLUDED IN A SINGLE OBJECT TAPE. NOTEI THE
FOLLOWING PROGRAMING FORMAT IS ILLEGAL AND IS NOT USED IN
THIS PROGRAM. MESSAGE, FILLER, FILLER, RESET, AND ANOTHER
MESSAGE IMMEDIATELY.

'lEI
4'f

4a
419

51!
51

'25J
54
5,"

TH! AVAILABLE TEST PROGRAMS ARE LISTED HERE IN NUMERICAL ORDERI
PRG0~COMBINED INPUT80UTPUT LOGIC TESTS
PRGiMREADER TEST
PRG2-PRINTER TEST
PRG3wPUNCH TEST
PRG4-KEyaOARD TEST
FRG5-COMBINED READER-PUNCH-PRINTER TEST
PRGb-READER EXERCISER-SPECIAL BINARV COUNT PATTERN
PRGT.PRINT!R EXERCISER
PRG10-SPECIAL BINARY COUNT PATTERN TAPE GENERATOR
PRG11-PUNCH CLOCK ADJUSTMENT ROUTINE
PRG12-READER CLOCK ADJUSTMENT ROUTINE
PRG1!-MAINTENANC! MODE SINGLE CHARACTER DATA TEST.
PRG14-MAINTENANCE MODE SPECIAL BINARY COUNT PATTERN TEST,

,.sa
'1

U
61
U

.."
63
U

11
11
72

14
7!1

16
TT

PROGRAMS PRGe THROUGH PRGS ARE THE ACTUAL TELETYPE TESTS,
PROGRAMS PRGb THROUGH PRG14 ARE UTILITY AND MAINTENANCE ROUTINES,
2.

...REQUIREMENTS
..--.
-~---

i!. 1

EQUIPMENT
."._._e.w

A.
B,

U
81

THE TELETYPE MUST HAVE STANDARD PERIPHERAL ADDRESSES.
REFER TO SECTION 1.3 IF THE TELETYPE DOES NOT HAVE STANDARD
PERIPHERAL ADDRESSES.

.
84

2.Ci!

PDP-it SYSTEM. (4 K COREl,
AIR!], KSRl], ASR35, OR KSR!S TELETVPE WITH KL11 OR DLliA TTY CONTROL.

STORAGE

.-._.-.

ea
n

'Ill
'1
'2
'3

THIS PROGRAM USES LOCATION 00000 THROUGH 1&000.
3.

LOADING PROCEDURE
~.-----.-.-.--.-Q

THIS PROGRAM'S OBJ~CT TAP! IS PUNCHED IN ABSOLUTE FORMAT.
THE ABS LO.QER IS USED TO LOAD THE PROGRAM,

aMAIN.

,.,.,

MACYll 21(651)

iT-NOY-1S

PAGE 3

141~b

OZK~A!

THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT
A CONSOLE PROCESSOR,
IF A CONSOLE MACHINE IS USED, THEN THE PROGRAM
LOOKS AT THE HARDWAR! SWITCH REGIST!R.
IF A CONSOLEnLESS MACHINE IS US!D,THEN THE PROGRAM
AUTOMATICALLY LOOKS AT THE CONTENTS OF LOCATION
SOFTSR C11ft) AS A SWITCH REGISTER.

101
102

1I1IJ
U4

IT'S THE RESPONSIBILITY OF THE OPERATOR TO SET UP
THIS ~OCATION PRIOR TO STARTING THE PROGRAM,

U!6

111
10&
119
11e
Hl
HI
U3
tU
U,

UU: PROCEDURE
IIlD-_ ...

tIIiI- . . . . • . . .

I' IT HALTS THEN THE OPERATOR HAS TO SET UP THE
SWITCH REGISTER AND RESTART AT THE NEKT LOCATION
OF THE NORMAL HALT.
IF A SWITCH REGISTER IS AYAILABLE ALL THAT THE
OPERATOR HAS TO DO IS SET THE S.R. AND HIT CONT%NUE.

U.,

..---..-..-.. ..

001230 ONE OF TME FOLLOWING NUMBERS;

ill
122
123

000010 IF AIR]3 IS ATTACHED, OR 000010 IF KIR]] XI ATTACHID,DR
000001 IF ASR35 IS ATTACHED, OR 000011 IF KSR35 IS ATTACHED.

116

4.1

124

1311

us;

131
is!

134

is!
U6

131

TELETYPE IDENTIFICATION NEED II DONE ONLY ONCE PER PROGRAM
LOAD, UNLESS MORE TMAN ON! TYPE OF TELETYP! IS ATTACHED TO SVSTEM.
4.i!

PRG0 USE PROCEDURE (OESCRIPTION IN SECTION I.l)
-·--·-·-.--.~~~

A.
B.
C,
D.

I.
F.
G.

139
a411
i'l
142
143

~.~.-.~~--.--

...

-P-.--.-~-~-~

IDENTIFY TELETYPE AS 'ER SICTION 4.1.
SET TELETYPE TO ON-LINE.
LOAD SPECIAL BINARY COUNT PATTERN TEST TAP! IN TAP!
READER AND MAKE READER READY (DATA OVER 'INa)
LOAD ADDRESS 1'li10
SET SR TO 1111110. PRESS START
THE PROGRAM STOPS AT COMMON HALT.
SET ANY DESIRED SR OPTIONS, NORMA~ RUN IS WITH SR ~ 10100 ••
CIXP~'INED

IN IfeTION 1.2)

HALT AT END OF ROUTINE
SCOPE MODE
INHIBIT ITERATION
SRU
LOOP PROGIUM
Uti
SELECT ROUTINE
SR. THROUGH SRI • NUMBER OF ROUTINE TO BE ULICTID.

SUS
SRU
SRU

14ft
14'1

...

THIS PROGRAM'S 5R OPTIONS AREa

144
S,45

148

-~.-~.-

BEFORE RUNNING ANY OF TME TEST PROGRAMS, DEPOSIT IN LOCATXON

UI!!

U5
116
U1
128

TELETYPE IDENTIFICATION

PRESS CONTINUE.

TH! PROGRAM IS EXECUTED AND STOPS AT

.MAIN.
DZKLA!

MACY11 21('51)

11.NOV-15

1410&

PAG! 4
PROGRAM END MALT WHEN COMPLETED, P~OVIDfD NO ERRQ~S QtCU~c
REFER TO SECTION &. IF ERRORS OCCUR.

149
nUl

1'51
152

EXECUTION TIME;

NORMA~

ERROR FREE PASS ABOUT 4 MINUTES •

.MAIN.
OZKI..U

MACY11 27('51)

11.N\L;"j~5

148216

PAGE~"

1$3

1$5
1$6

4.3

PRGl USE PROCEDURE (DESCRIPTION IN SECTION 1.2)
p-----~.---.-

151

A.
B,
C.

15'1
160

162
163

164

F.
G.

165
lU
16'
lU

SRi!
SRU

172

114

ii'
UI

"9
"e
1'1

--.--~--

...

'.i'

MALT AT END OF ROUTINE
INHIBIT ITERATION
SR10
LOOP PROGRAM
SR9
S!L!CT ROUTINE
SR6 THROUGH SRe • NUMBER OF ROUTINE TO BE SELEcTED.

113

il3

IDENTIFY TELETYPE AS PER SECTION 4.1
SET TELETY~E TO ONwLINE
LOAD SPECIAL BINARY COUNT PATTERN TEST TAPE IN TAPE
READER AND MAKE READER READY. DATA HOLES MUST BE OVER
THE READ PINS,
LOAD ADDRESS 0"221'.
SET SR TO 2121210211. PRESS START
PROGRAM STOPS AT COMMON HALT.
SET ANY DESIRED SR OPTIONS. NORMAL RUN IS WITH SR • 2111110,

112

---~---.~-.--.--.~-

TMIS PROGRAM'S SR OPTIONS ARE. (EXPLAINED IN SECTION

16'1

H5
H6
11'
HI
in
18e
181

H.
I.

PRESS CONTINUE. READER IS TESTED. PROGRAM HALTS AT
PROGRAM END MALT IF NO ERRORS OCCUR.
REFER TO SECTION 6. IF ERRORS OCCUR.

EXECUTION TIMEa NORMAl.. ERROR FREE PASS ABOUT 11 MINUTES.
4.4

PRG! USE PROCEDURE (DESCRIPTION
IN SECTION 8.3)
••
•••

.w •• __ ._ •• __

A.
8.
C.
D.
Ea
Fa

~~._._._~~

~~~._

~~_~_~.~_.~_~_~

IDENTIFY TELETVPE AS PER SECTION 4.1
SET TELETYPE TO ONsLIN!
LOAD ADDRESS 10B2ee.
SET SR TO 0ee0e2. PRESS START
PROGRAM STOPS AT COMMON HALT.
SET ANY DESIRED SR OPTIONS. NORMAL RUN II WITH SR , eeille a

1'2

THIS PROGRAM;! SR OPTIONS ARE. (EXPLAINED IN SECTION 1.2)

SR15
HALT AT END OF ROUTINE
sRte
LOOP PROGRAM
SR9
SELECT ROUTINE
SR. THROUGH SR0 • NUMBER
ROUTINE TO BE SELECTED.

l'J
1'4

1'6
in

19.
19'

211

21112
213
104

PRESS CONTINUE. THE TELEPRINTER WILL BE EXERCISED AND
THE PROGRAM WILL STOP AT PROGRAM END HALT WHEN eOMPLIfle.
ERROR DETECTION IS BY VISUAL INSPECTION OF RESULTING PRINTOUT.

EXECUTION TIMEI NORMAL ERROR FREE PASS ABOUT 12 MINUTES.

,MAIN.
DIK!.AE

MAeVii 27(6")

lT~NOV.75

14806

PAGE.

II!
116
217

l1li8

4.5

2'"
2U
2U

PRG3 USE PROCEDURE (DESCRIPTION IN SECTION 8.4)

..
A"

iSi
113

IU
IU
2U
118
1&9
221

214

221

213
214

1St
232

If&

242

143

14.
145

4 ••

p.._.~_._.~_.~.~

A.
B.
C.
D.
E.
F.

2$1

254

~_~

IDENTIFY TELETVPE AS PER SECTION 4.1.
SET TELETVPE ON.LIN!.
LOAD ADDR!SS 110~11.
SET SR TO 111114. PRESS START
THE PROGRAM TVPES -KEVBOARD TESTa AND STOPS AT COMMON HALT.
SET ANY DESIRED SR OPTIONS. NORMAL RUN IS WITH SR • " " " .
THIS PROGRAM'S SR OPTIONS AREI (EXPLAINED IN SECTION '.2)
SR15
HALT AT END OF ROUTINE
SR11
LOOP PROGRAM
SR9
SELECT ROUTINE
SR. THROUGH SRI • NUMBER OF ROUTINE TO BE SELECTED.

248
14.

255

_____ .. ____ __ __ .. __ .____.

PRG4 US! PRDCEDURE (DESCRIPTION IN SECTION 8.5)

246

212
1$3

PRESS CONTINUE. THE PROGRAM WILL EXERCISE THE PUNCH
AND VERIFY THE DATA PUNCHED,
IF ANV ERRORS OCCUR REFER TO SECTION 6. [RRORa.

EXECUTION TIM!' NORMAL ERROR ~REE PASS ABOUT 40 MINUTES.

au
251

IDENTIFY TE~ETYPE AS PER SECTION 4.1
WITH T!~ETYPE OFF·~IN!, PUNCH FIVE INCHES OF BLANK
LEADER. SET TE~ETYPE TO ON-LINE.
LOAD BLANK LEADER IN PAPER TAPE READER AND MAKE
READER READY. PUNCH TO READER SLACK SHOULD NOT BE
EXCESSIVE.
LOAD ADDRESS 000200.
lET IR TO 100103. PRESS START
PROGRAM STOPS AT COMMON HALT.
SET ANV DESIRED SR OPTIONS. NORMAL RUN IS WITH Sft • 111111.

HALT AT END OF ROUTINE
INHIBIT ITERATION
UU
LOOP PROGRAM
SR9
SfLECT ROUTINE
1IIt6 THROUGH SRI • NUMBER 0' ROUTINE TO 8£ SlL!CT!D.

21'
23m

IS'
lie

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

SRB

21'
211

U,
U.

--.---~

SRl!

225
116

2J!
2J6

THIS PROGRAM'S SR OPTIONS AREB (EXPLAINED IN SECTION 7.2)

222

-.--.-.-.~.----.~-.--~p.

PRESS CONTINUE. FOLLOW TVPED INSTRUCTIONS.
PROGRAM STOPS AT PROGRAM END HALT.

EXECUTION TIMEI PROGRAM IS USER DEPENDENT.

WHEN DONE

.MAIN.
DZKLAE

MACYll 21e.51,

t1-NOV-?S

14.~6

PAGE 1
4.7

251'
i!!SS

_._. __
A.
B.

259
2U

261

D.
E.
F.
G.

2n
2.5

2'6
'6'7
IU
269
270

211

212

2fJ

214
215

2U
1'79

4.6

,.e
III

25'
28.

D,
E.

2U
219
2U

19t

29&
29'

3111
!11

312
3 II!
JU
315

31'
Sin'

THIS PROGRAM'S SR OPTIONS AREI (EXPLAINED iN SICTION 7.2)
SRe
DISABLE STALL MODE AND RUN FULL SPEED
PRESS CONTINUE. THE PRINTER, PUNCH, AND READER ARE EXERCISED IN
COMBINATION USING DATA CODES FROM 241 TO 337. THE PATTERN IS
ROTATED SO THAT EACH CHARACTER IS TYPED IN EVERY PRINT POSITION.
REFER TO SECTION ~. ERRORS IF ERRORS OCCUR,

__ "___ ___ ·_8 __ •. __ . __ •__ ____ •__
~_.

~_.

IDENTIFY TELETYPE AS PER SECTION 4.1
SET TELETYPE TO ON~LINE
LOAD SPECIAL BINARY COUNT PATTERN TEST TAPE IN TAPE READER
AND MAKE READER READY. DATA HOLfS MUST BE OVER READ PINS.
LOAD ADDRESS 000200.
SET SR TO 000006. PRESS START
THE PROGRAM EXERCISES THE READER CONTINUOUSLY.
SR6 DISABLE STALL MODE AND RUN FULL SPEEO OPTION MAY BE
USED AT ANY TIME. SECTION 7,2 DESCRIBES SR OPTIONS.
REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR.

EXECUTION TIMEa CONTINUOUS RUNNING.

292

~_.

IDENTIFY TELETYPE AS PER SECTION 4.1.
WITH TE~ETYPE OFF~LINE PUNCH FIVE INCHES OF BLANK LEADER.
SET TELETYPE TO ON-LINE,
LOAD BLANK LEADER IN PAPER TAPE READER AND MAKE READER READV.
PUNCH TO READER SLACK SHOULD NOT 8E EXCESSIVE.
LOAD ADDRESS 010200.
SET SR TO 001015, PRESS START.
PROGRAM STOPS AT COMMON HALT.
SET ANY DESIRED SR OPTtONS. NORMAL RUN IS WITH SR • e'llll,

-~-.--

114

29!

PRG. USE PROCEDURE (DESCRIPTION IN SECTION 8,1)
A.
S.
C.

282

294

W_P_·~·_.

EXECUTION TIMEt ONE ~3 LINE PASS TAKES ABOUT 18 MINUTES.

217

__ •__

PRG5 USE PROCEDURE (DESCRIPTION
8 •• )
p __
_______ •IN
__ SECTION
• _____ • __

4.c)

PRG1 USE PROCEDURE (DESCRIPTION IN SECTION 8.8)

..
A.
B.
C.
D.
E.
F.
G.
H.

-~-··-.~-~.~~-----··-~P~~.-~-.~--.~~.----~~~~

IDENTIFY TELETYPE AS PER SECTION 4.1
SET TELETVPE TO ON~LINE
LOAD ADDRESS 000200
SET SR TO 000001. PRESS START
TH! PROGRAM TVPES "TYPE IN DATA"
KEY IN ANY FIVE CHARACTERS TO BE TYPED.
KEY IN EITHER A RUBOUT FOR ~ULL SPEED TVPING, OR ANY
OTHER CHARACTER ~OR RANDOM STALLS BETWEEN CHARACTERS.
THE PROGRAM TYPES CONTINUOUSLY LINES CONTAINING TN!
FIVE CHARACTERS SP!CIFIED, UNTIL SR15 IS SfT TO A 1. AT
THAT POINT THE PROGRAM GOES TO STEP !.

.MAIN.
O%KL.A!

MACY112TC.51)

iT-NOV.,5

141m.

PAGE 8

!IIS

lID4P
:SUI
:SU
312
313

a.10

~.-.-

A.
B.
C.
D.

!U
:S15
3U

311

'19
3211
321

314
115

...

~P.~~-~-.~--~--~-.-.-.--~--~~~------~---.

IDENTIFY TELETYPE AS PER SECTION 4.1
SET TELETYPE TO ON-LINE
TURN ON PUNCH
LOAD ADDRESS 000i00.
SET SR TO 000010. PRESS START
THE PROGRAM CONTINUOSLY FUNCHES THE SPECIAL BINARY COUNT
COUNT PATTERN UNTIL STOPPED BY USER.

EXECUTION TIME: CONTINUOUS RUNNING.

122

PRG10 USE PROCEDURE CO!SCRIPTION IN SECTION 6.9)

4.l!

PRG11 USE PROCEDURE (DESCRIPTION IN SECTION 6.10)
P"-.--.-.--.~-.---._.

__ WP __ . ____ __ __ . ______ ..
~

_fi

nf
311

PRGli IS USED AS AN AID IN ADJUSTING THE TELETYPE PUNCH CLOCK,
AND IN OBSERVING THE DATA BITS AS THEY ARE SHIFTED OUT OF THE
PUNCH BUFFER, A SCOPE IS REQUIRED.

330

TO ADJUST THE PUNCH CLOCK pROCEED AS FOLLOWSI

"9
3:51

A.
B.
C.
D.
E.

3411

,;)2

333

334
3;55

'":us
:s:n
341
342

343
344
345

LOAD ADDRESS 000200
SET SR TO 000011. PRESS START.
PROGRAM STOPS AT COMMON HALT.
SET ANY DESIRED ASCII CODE IN LEFT HALF OF SR.
SET NUMBER OF MILLISECONDS TO DELAY BETWEEN PUNCH COMMANDS
IN RIGHT HALF OF SR. THE NUMBER OF MILLISECONDS SELECTED
SHOULD SE LONG ENOUGH FOR THE ENTIRE PUNCH OPERATION TO
COMPLETE. A SUGGESTED STARTING NUMBER IS ITT.
PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSL.V, FIRST IT
LOADS TH! PUNCH BUFFER WITH THE CHARACTER IN SR LEFT, AND
THEN DELAYS FOR TH! NUMBER OF MIL.LISECONDS SPECIFIED IN SR
RIGHT BEFORE RELOADING THE PUNCH BUFFER AGAIN.
SET UP A SCOPE AND DISPLAV THE PUNCH CLOCK PULSES. ADJUST
THE PUNCH CLOCK ACCORDING TO SPECIFICATIONS.

.MAIN,
DZKLAE
3.6
341
34e

,.,
"I
SSt
311
353
3\5.

,.5
,,.
SIT
3se
,.,

MACY11 21(651)

iT-NOY.TS

l41i6

PAGE'

4.U

'RG12
USE
PROCEDURE
IN_____________
SECTION 8.11)
•• __
••••
" __ ._ •• __ •(DESCRIPTION
__ •• ___ • ___ ••
••
~w_

PRGI! IS USED AS AN AID IN ADJUSTING THE READ!R/KY8D CLOCK, AND
IN 08SERVING THE DATA BITS AS THEY AR! SHI~TED INTO TH! READER/MYBD
BUFFER. A SCOPE IS REQUIRED.
TH! PROGRAM MAKES USE OF THE PUNCH MAINTENANCE BIT FEATURE IN ORDER
TO CAUSE THE DATA OUTPUTTED TO THE PUNCH SUFFER TO BE SHIFTED INTO
TH! READER/KYBD BUFFER.

35,

TO ADJUST THE READER CLOCK PROCEED AS FOLLOWS'

361

A.
8.
C.
D.
E.

3U
361
364
565
366

361

36'
310

311
372

3'13
:sT4
315
316
3TT

318

319

LOAD ADDRESS 110210
SET Sft TO 110012. PRESS 8TART,
PROGRAM STOPS AT COMMON HALT.
SET ANY DESIR!D ASCII CODE IN LEFT HALF OF SR.
SET NUMBER OF MILLISECONDS TO DELAY BETWEEN PUNCH COMMANDS IN
RIGHT HALF OF SR. TH! SELECTED NUMBER SHOULD!I LONG ENOUGH FOR
THE ENTIRE PUNCH/READ OPERATION TO COMPLETE. A SUGGESTED STARTING
NUMBER IS 177.
PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSLY. FIRST IT LOADS
TH! PUNCH BUF~!R WITH TH! CHARACTER IN SR LEFT, AND THEN DELAYS
THE NUMBER O~ MILLISECONDS SPECIFIED IN SR RIGHT. AS THE DATA
BITS ARE SHIFTED OUT O~ THE PUNCH BUFFER, THE READER CLOCK STARTS,
AND THE DATA BITS ARE SHIFTED INTO THE READER BUFFER. AT TH! END
OF THE DELAY THE PROGRA.M MOVES THE READ BUFFER CONTENTS TO REG e,
AND ISSUES 5 RESET INSTRUCTIONS IN ORDER TO HAKE THE READER
BUFFER CONTENTS VISIBL! IN THE RIGHT HALF OF THE DATA LIGHTS.
SET UP A SCOPE AND DISPLAY THE READ CLOCK PULSES. ADJUST THE
READER CLOCK ACCORDING TO SPECIFICATIONS.

.MAIN,

MACY11 2Y(651)

i1-NOV-?5

14106

~AGE

DZKL,AE
38111

:uS

4.13

382
383

PRG13 USE PROCEDURE (DESCRIPTION IN SECTION 8.1i)
P.-.--~-

315
3156

31'
318

B.
C.
D.

3"
:n,

:5'11

391

39,

394

,95
396
,91

398
39'
400

...

~-.----~-~.--

------.--~--~--------."

SET TELETYPE TO ONwLINE IF CHARACTER TO BE TEITED
IS TO BE PUNCHED FOR VERIFICATION PURPOSES.
TURN ON PUNCH IF CHARACTER IS TO BE PUNCHED.
LOAD ADRES! 000a00.
SET SR TO 000013. PRESS START
THE PROGRAM STOPS AT COMMON MALT.
SET CODE FOR CHARACTER TO BE TESTED IN TH! L.EFT HALF 0' THE
SR.
PRESS CONTINUE. THE PROGRAM RUNS CONTINUOUSLY, OUTPUTING TH!
CHARACTER TO THE OUTPUT BUFFER AND CHECKING THAT TME READ
BUFFER CONTAINS THE SAME CHARACTER WHEN THE READER DON! BIT
BECOMES SET.
REFER TO SECTION 6. fRRORS, XF ERRORS OCCUR.

EXECUTION TIM!I CONTINUOUS RUNNING.

lUll

4.14

41112

483

lUI.
tUBS

4'6

8.
C.

418'
408

411t

4Ul
4U

412
413

4&4

4l!

416

411

PRG14 USE PROCEDURE (DESCRIPTION IN SECTION 8.13)

.--.--.-.--------.. ----~---.-~--~-

SET TELETYPE TO ON~LINE AND TURN ON PUNCH IF DATA IS
TO BE PUNCHED FOR VERIFICATION PURPOSES.
LOAD ADDRESS 000i00.
SfT SR TO 000014. PRESS START
THE PROGRAM RUNS CONTINUOUSLY. THE SPECIAL BINARY COUNT
PATERN IS OUTPUTTED TO THE OUTPUT BUPFER. EACH TIME
THE READER DONE BIT BECOMES SET THE CHARACTER IN THE
READ BU"ER IS CHECKlD TO SEE THAT IT MATCHES THE
PREVIOUSLY OUTPUTTED CHARACTER. THE PROGRAM STALLS
RANDOMLY BETWEEN CHARACTERS. TO RUN AT FULL SPEED, SET
SRa TO A 1.
REFER TO SECTION 6. ERRORS, IF ERRORS OCCUR.

EXECUTION TIME' CONTINUOUS RUNNING.

418

\
~

--.--~-.~-~~.

.MAIN.
DZKLAI
419

421

411
411
41S
414

.... ,

MACYII 2TC65T)

iT-NaY."

PAGE 11

14116

..PROGRAM AND lOR OPERATOR
..... ACTION
--~-~-.---.-~-

5,1

NORMAL. HAL.TS
1It1lt.-4I!I-• • • • • "

L.OC 11143111

COMMON HALT,
THIS HAL.T OCCURI WHENEVIR
THI PROGRAM 18 AWAITING USER INTERVINTION.
REGISTER ZERO CONTAIN THE ADDRIII 0'
INSTRUCTION THAT GENERATED THI CALL TO THE
COMMON HALT.
THIS ADDREIS II DISPL.AYED IN THE DATA LIGHTS,
I ' ANY.

L.OC 11111524

END OF ROUTIN! HAL.T. THIS HALT OCCURS AT THE
END OF A TEST ROUTINE IF 8RI! II SIT TO A I.
TO PROCEED, PRESS CONTINUE. PROGIUMI 'RIal,
PRGt, PRG!, PRG! AND PRG4 USE THE ROUTINIEND
OPTION.

L.OC 2U6

PROGRAM END HALT.THIS HALT NORMALLY OCCUR8 AT
THE ~ND 0' PROGRAMS PRGI, PRGI, ~RGI, 'RII, AND
PRG. UNLESI THE- L.OO, PROIRAM OPTION IS SIT. C8R'I)

417

41.
41t
411
411
411

4U
414
411
U6

41'
41'
U.
44,
441

...
44'
441
44!
4.,
.,

.'4'
U.

411

ft,

6.1

.........

!RRORa
""

..._.....

ERROR HALTS
.t!I'_~

LOC 11'1442

UNCONDITIONAL. IRROR HALT. R!IIIT!R ZERO CONTAIN,
ADDRESS OF INSTRUCTION THAT GEN!RATED-THI
IRROR CAL.L.. RIFER TO PROGRAM L.IITING.
THIS ADDR!S' 18 DIIPLAV!O IN THE DATA LIGHTS,
IF ANY •

LOC 111514

CONDITIONAL ERROR HAL.T. THII CALL WILL ALWAYS
OCCUR, UNLEIS SRt4 IS SET TO A s. cacoP! MODI'
REIISTER ZERO CONTAIN ADDRESS 0' INSTRUCTION ""'T
GENIRAT!D ERROR CALL. RIFER TO 'ROGRAM LIITINI •
TH!S ADDREIS IS DISPLAVED IN THE DATA LIGHTS,
!, ANY.

LaC l'Utti-

DATA IRROR HALT. OCCURS WHEN A PRoaRA" OR
ROUTINE CHECKING DATA PINOS THAT THI EXPICTID
AND TH! R!CEIVED DATA DO NOT AGR!!. THE LI'T
HALF OF R!GISTER ZERO CONTAIN THE !XPECTED
8 lIT DATA. THE RIGHT HALF CONTAINS THI
REC!IYED • eIT DATA •
TH!I DATA II DISPLAYED IN THE DATA LIGHTa,
I' ANY.

411

41.
.,s
45'
4"
."
."

.tI
• 19

461

461
.6.
46S

...
.....,
461

.66

~.~P--.-.

.MAIN.
DIKLA!

MACY1& 21(651)

11-NOVe75

410

PAGE 1£

14,16

&p£

471

NON RECOVERABLE ERROR HALTS
~

412
413

••

UUG~_

• • _ . __ •

___

._~_u~~_.

A NON~RECOVERABLE ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROGRAM CONTROL
IS TRANSfERRED TO AN UNEXP!CTEO AREA BETWEEN 91111m AND 011116.

4'74
415

416
411

RESERVED AREA
ERROR TRAP
RESERVED INSTRUCTION TRAP
OEBUG TRAP
lOT TRAP
POWER II' AlL. TR AP
0011HUB THROUGH 00017&
SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA,
EXCEPT FOR KL11 INTERRUPT VECTORS.

11101!1002
00000&
00011112
000016
1009iU
000026

418
419
480

481
482

4n
484
U5

416

TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THI FAILURE OCCURRED,
PERFORM THE FOLLOWING STEPS.

A.
B.

481
418

EXAMINE THE CONTENTS OF REGISTER 6 (ADDRESS 177116).
TRANSFER THE CONTENTS OF REGISTER 6 TO TH! SR, LOAD ADORRESS,
AND EXAMINE.
C, THE DATA SHOWN IN THE DATA LIGHTS IS THE VALUE OF THE PC
WHEN THE FAILURE OCCURRED,
D. LOCATE IN THE PROGRAM LISTING THE DISPLAYED PC VALUE.
E. THE INSTRUCTION THAT IMMEDIATELY PREECEDES THE ONE REFERENCED
BY THE DISPLAYED PC VALUE IS THE INSTRUCTION THAT WAS/WAS BEING
EXECUTED WHEN THE FAILURE OCCURRED.

490

49i

492

493
494

495
496

491

498
499
51i11/l
5 iii 1

MISCELLANEOUS

'1iI2
5153

1,1

TEST TAPES
.....
_-- ......

51i14
505
516
511

,,-.,,_.111." •.• '"

M.INDEC~00·D~G4.PT SPECIAL BINARY COUNT PATTERN TEST TAPE IS
RELEASED WITH THIS PROGRAM,

slila

THE SPECIAL BINARY COUNT PATTERN TAPE IS PUNCHED WITH A PATTERN
CONSISTING OF THE NUMBERS 000 THROUGH l77. EACH NUMBER IS
IMMEDIATELY FOLLOWED BY ITS ONES COMPLEMENT NUMBER.
FOR EXAMPLE;

510

511

512

513
514

001,37&,002,315,00l,314,004,373,ETC.

515
516
511
518

THE EASIEST WAY TO MAKE A SPECIAL BINARY COUNT PATTERN fEST
LOOP IS TO OVERLAP THE TAPE AT THE POINT WHERE THE CHARACTERS
377,000,009,317 APPEAR. THAT SEQUENCE OF CHARACTERS APPEARS
EVERY 512 CHARACTERS. THEREFORE, A MINIMUM SIZE TEST LOOP WOULD
CONSIST OF 512 CHARACTERS.

519

,MAIN.
DZKLAf
5i0
521
\522

513

1524

525
526

518

1529

5'1
5Jl

MACV11 21(657)

iT.NOY-7!

148mb

PAG! 13
1.2.

OPTIONS
..SF!.,.-.-....
SRIS • HALT AT END OF ROUTINE. FOR THOSE PROGRAMS CONSISTING
Of A SET OF SEPARATE TEST ROUTINES, SR1S SfT TO A 1
CAUSES THE PROGRAM TO HA~T UPON COMPLETION 0' THE
ROUTINE CURRENT~V BEING EXECUTED. THREE POSSIBLE USES
OF THIS OPTION AREt
A.
a.

",
533

']4
5]15

SJT

TO STEP THROUGH A PROGRAM ONE ROUTINE AT ATIKE.
WHEN AN UNPREDICTED FAILURE HAS OCCURRED (8~OW
UP, MANG UP), TO ADVANCE THROUGH TH! PROGRAM ONE
ROUTINE AT A TIME UNTIL THE FAILURE OCCURI. TH!
ROUTINE FOLLOWING THE ~AST IDENTI'IED ROUTINE WOULD
8E THE FAILING ROUTINE.
WHEN A PROGRAM IS IN EXECUTION, TO DETERMINE HOW
fAR THE PROGRAM HAS PROGRESSED.

'"
".
'41

SR14 - SCOPE. THIS OPTION IS USED ONLY BV PRGI, THE OPTION
CAUSES THE PROGRAM TO 8YPASS ERROR HALTS, AND TO STAY
IN THE FAILING ROUTINE.

543

SRt! • INHIBIT ITERATION COUNT. THIS OPTION IS USED BY PRGI,
PRG1, ANO PRG], THESE PROGRAMS CONSIST O'A liT 0'
ROUTINES EACH 0' WHICH SPECI'IES THE NUMBER 0' TIM!I
A TEST IS TO BE PERFORMED BY MEANS 0' AN ITERATION COUNT.
SETTING SR1S TO A 1 CAUSES THE PROGRAM TO DISREGARD
THE ITERATION COUNT AND PERFORM THE TEST ONLY ONCE fOR
EACH ROUTINE. TWO POSSIBLE USfS OP THIS OPTION AREI

\54'

542

544
54'

541
54a

,.,
'"
551

552

QUICK PASS, THE USER MAV ELECT TO RUN THROUGH A
PROGRAM QUICKLV TO fIND OUT IF ANY 'AILURES SHOW
IMMEDIATELV. A SUCCESSFUL QUICK PASS HOWEVER, Dors
NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERROR_
FREE WHEN PERfORMING A NORMAL ITERATION PASS.

SKIP OVER FAILING ROUTINE. WHEN A ROUTINE HAS
DETECTED A SOLID 'AlLURE, THE ERROR WILL IE REPORTED
MANY TIM!S, TO GO ON TO THE NEXT ROUTINE, THI UIER
CAN INHIBIT ITERATION. IT WILL BE NECESSARY TO
CAUSE THE PROGRAM TO STOP AT THE IND 0' THE ROUTINE
BV SETTING SRt5 TO A i. OTHERWISE THE PROIRAM
WOULD QUICK~V RUN THROUGH THE NEXT ROUTINE(S) ALSO.

",
554

555
'56

511

55.

'"5.,
562
5'1

"4
56,

,MAIN,

DZKLA!

MACYll 21Ct51)

I'-NOY.?!

It,

14,16

PAGE 14
(1,2 CONT'D)
SRll • LOOP PROGRAM. THIS OPTION IS USED BY PROGRAMS
PRGI,PRGI,PRG2,PRG3, AND PRG4. SETTING SRll
TO A I CAUSIS THE PROGRAM TO REPEAT ITSELF, INSTEAD
OF STOPPING AT PROGRAM END HALT.

"t
It,

!I"

!IT I

!ITt

'71

5U
114
In
1ft

SR9

• SELECT ROUTINE. THIS OPTION IS USED BY PROGRAMS PRGI,
PRGl,PRG2,PRGJ, AND PRG4. THE uaER MAY ELECT TO RUN
ONLY ON! SPECIFIC ROUTINE BY SETTING SR9 TO A i. AND
SRt THROUGH SRe TO THE NUM8ER OF THE DESIRED ROUT IN!.
REFER TO THE INDIYIDUAL PROGRAM DESCRIPTION IN SECTION
, TO OBTAIN THE ROUTINE NUMBER. THE ROUTINE NUMIER
SELE~TED MuaT 8E A VALID NUMBER, OR AN ERROR HALT WILL
OCCUR. THE SELECT ROUTINE OPTION WILL IE HONORED BY
TH! PROGRAM UPON COMPLETION OF THE CURRENT ROUTINE, DR
UPON STARTING THE PROGRAM.

aRI

- DltABLE STALL MODE AND RUN FULL SPEED, ualD IY PROGRAMa PRG5,PRG6, AND PRG14. THESE PROGRAMS OPERATE
NORMALLY IN STALL MODE CTESTS OR EXERCIS!S ARE NOT FULL
SPEED, BUT RANDOM DURATION DELAYS ARE INTRODUCED).
SETTING SRI TO A 1 CAUSES THE PROGRAMS TO PERFORM THIIR
TISTS AT FULL SPEED •

,n
.n
,n

,a.
,al

sel
,.,
'14
!II"
,,e.,
,..
,"1
•••
It,

.
...

1.3

TIlTING KLII AT NONwSTANDARO ADDRESSES AND lOR YECTORS
..
.........__ ........
...
.•. ..
_.w~w_

~_~~~~_.~

~~~.~_~~_

194

THIS PROGRAM CAN TIST A KL11 ASSIGNED TO NON-ITANDARD ADDRESSII AND
VECTORS IF THOS! ADDRESSES ARE PROYIDED TO THE PROGRAM AS FOLLOWS.

!I"

"!
It,

,....
61'
•••
61.,

IMMEDIATELY AFTER LOADING THE PROGRAM CHANG! THE FOLLOWING
LOCATIONS. RIFER TO PROGRAM LISTING.

..•••

LOCATION
IIUII
111212
IIU14

1111216

til

111216
111221
111222

•••
tIT

111"224

.18

FROM STANDARD

un61

111562
111564
111566

111168
111211
111"4
111211

TO NON-STANDARD
RDR/KY8D CSR ADDRISS
RDR/KYID IUFFER ADDRISS
PCH/PRINT!R CSR ADDR!I'
PCN/PRINTER IUF'ER ADDR!S'
RDR/KYID VICTOR AOORII•
RDR/KYID 'RrDR%'Y LEVEL
peN/PRINTER YICTOR ADDREI.
peH/PRINT!R PRIORITY LEV!L

PROCEED TO USE PROGRAM, OR

UJ
6'4

DUMP OUT ENTIRE PROGRAM IN ABSOLUTE FORMAT, TO HAVE AN UPDATED
08JECT TAPE THAT REFLECTS YOUR SYSTEM, DR

DUMP OUT ONLY LOCATIONS ell!14 THROUGH 111222, AND
SPLICE THE TAP! TO THE END OF THE STANDARD OBJECT TAPE.
THIS PROCEDURE WOULD REQUIR! THAT THE SHORT LENGTH OF
TAP! BE LOADED IMMEDIATELY AFTER THE MAtN PROGRAM, IN
ORDER TO OYERLAY LOCATIONS 111214 THROUGH 111222.

'U'
tU

U!I
616

ttl

,MAIN,
D1KI.AE

MACV11 2T(&5T)

iT-NOV-?!

14.06

PAG~

619

DUCRIPTlON

8.1

.. ..

611

III 2

613
"4
615

....,.,
628

".
nil
611

612
633
634

U!S
636

63.,

us
6n
64e
64l

642

643
644

645

646
641

64e
64'
651
651
652

............. --~

RTNI
"TNI
RTNi
RTNl
RTN4
RTN!
RTN6
RTNT
RTNU
RTNU
RTNU
RTN13
RTN14
RTNU
RTNUIl
RTNU
RTN!e

.,.,

RTNU
RTNU
RTNI!
RTN24
RTNU

655

"6
658
6!1'

6"
us
•U
"5
•••,

RTNi!6
RTN21

....

RTN31
RTN31

611

RTN!!

668

-~.-.~-.~-

PRGe TESTS TH! INPUT AND OUTPUT ~OGIC IN ONE PROGRAM. TH~ PROGRAM
CONSISTS OF ,. TEST ROUTINES NUM8ERED FROMee TO 43(8).

60$3

.......

PRG0 PROGRAM DESCRIPTION

RTN3i

TESTS A8II.ITY TO REFERENC! THE READER/KYBD STATUS WORD (TKS,
WITHOUT TRAPPING.
T8STS A8ILITY TO REFERENCE THE READfR/KY8D BU"ER eTKS)
WITHOUT TRAPPING.
TESTS A8ILITYTO REFERENCE TH! PRINTER/PUNCH STATUS WORD (TPa,
WITHOUT TRAPPING.
TESTS A8I~!TY TO REFERENCE THE PRINTER/PUNCH BUFFER (TPB'
WITHOUT TRAPPING.
TESTS ABILITY TO SET AND CLEAR THE READER/KY8D IE BIT.
CHECKS THAT READER IKYBD ID BIT CAN BE CLEAR!D WITH RES!T INSTRUCTION.
CHECKS THAT READER DONE BIT SETS SOMETIM! AFT!R READER ENAIL!.
TESTS THAT DONE BIT CAN BE READ RELIABLY.
TESTS THAT RESET CLEARS DON! BIT.
CHECKS THAT RE~ERENCING READER BUF'ER CLEARS DONE BIT.
TESTS THAT BUSY BIT BIT SETS SOMETIME 8E,ORE DON! SETS.
TESTS THAT READER DONE BIT IS CLEARED BY START BIT. (WHEN
BUSY BECOMES SET.)
TESTS THAT READ BUFFER CAN BE READ RELIABLY.
CHECKS THAT READER DONE BIT IS ABLE TO CAUSE AN INTERRUPT, IF THE
INTERRUPT IS SERVICED, IT WILL HAVE OCCURRED AT CORRECT VECTOR.
TEST8 THAT READER DONE DOES NOT CAUSE AN INTERRUPT WHEN THE PRoceSSOR
IS AT THE SAME PRIORITY AS THE READER'S INTERRUPT REQUEST LEVEL.
TESTS THAT READER DON! CAUSES INTERRUPT WHIN THE PROCESSOR IS AT A
PRIORITY ONE LEVEL LOWER THAN THE READER'S INTERRUPT R!QUIST LEYE~.
CHICKS THAT READE~ DONE DOES NOT REINTERRUPT AFTER RTl
INSTRUCTION WHEN DONE 8IT IS LEFT SET.
TISTS ABILITY TO SET AND CLEAR TH! PUNCH 10 BIT.
CHECKS THAT PUNCH ID BIT CAN BE CLEARED WITH RESET INSTRUCTION •
TESTS ABILITY TO SET AND CLEAR PUNCH MAINTENANCE BIT.
CHICKS THAT RESET INSTRUCTION CLEARS THE MAINTENANCE BIT.
TESTS THAT RESET SETS THE PUNCH READY BIT, AND THAT THE
READY BIT CAN BE READ RELIABLY.
TESTS THAT PUNCH READY XI CLEARED BY LOADING TH! PUNCH IUF'!R.
TESTS THAT BYTE LOADING PUNCH BUFFER.! DOES NOT CLEAR TH!
PUNCH READY BIT •
CHECKS THAT THE PUNCH BECOMES READY SOMETIME AFTER BUFFIR LOAD.
CHICKS THAT PUNCH READY BIT CAN CAUSE INTERRUPT, IF THE INTERRUPT
IS SERVICED, IT WILL HAVE OCCURRED AT THE CORRECT VECTOR
TESTS THAT PUNCH READY DOES NOT CAUSE AN INTERRUPT WHEN THE
PROCESSOR IS AT A PRIORITy AS THE READER;S INTERRUPT REQUIST
LEVEL.
TESTS THAT PUNCH READY CAUSES AN INTERRUPT WHEN TH! PROCESSOR

,MAIN,

DZKLAE
6U

672
U3

MACY1l fTC,!?)

iT-NOV-?S

14116

PAGE 16
8.1CCONT'D)

.14

•n

RTN34
RTN35

6'f'f

RTN36

6"
611

RTN3T

611

RTN40

".
U,

RTN41

RTN42
RTN43

...
...."1,
......,
61'

IS AT PRIORITY ONE ~EV!L LOWER THAN THE PUNCH INTERRUPT
REQUEST LEVEL •
TESTS THAT READY DOES NOT REINTERRUPT AFTER RTI WITH READY SET.
CHECKS THAT PUNCH READY CAUSES AN INTERRUPT IMMEDIATELY UPON
LOWERING PROCESSOR PRIORITY TO e.
CHECKS FOR CORRECT OPERATION OF WAIT INSTRUCTION. (REFER TO
PROGRAM LISTING,_
TESTS THAT LOADING PUNCH BU'FER WITH MAINTENANCE BIT SET
CAUSES READER DONE BIT TO SET SOMETIME AFTER.
TESTS THAT CLEARING READY/INTERRUPT ENABLE CLEARS PUNCH
INTERRUPT REQUEST.
TESTS THAT CLEARING READER DONE/INTERRUPT ENA8LE CLEARS
READER INTERRUPT REQUEST.
TESTS THAT THE DLliA,B KEYBOARD JUMPERS ARE CUT PROPERLY
TI8TS THAT THE DLltA,S PRINTER JUMPERS ARE CUT PROPERLY

.91

a.i

w._.~~w_._~

71111
711
.,12
lIIS

"4
7IJ!

,.,
,..,
.,1118

PRGl PROGRAM DESCRIPTION
_.~~~._w."~

PRGl CHECKS FOR CORRECT AND RELIABLE OPERATION OF THE PAPER TAP!
READER. TH! PROGRAM CONTAINS 1 ROUTINES NUM8ER!D FROM II TO 12 •
RTNI

READS AND CHECKS 2011 CHARACTERS OF SPECIAL BINARV COUNT
PATTERN AT FULL SPEED.

RTNl

READS AND CHECKS till CHARACTERI OF SPECIAL 8INARY COUNT
PATTERN WITH RANDOM DURATION STALLS 8ETWEeN CHARACTERS,

RTN2

READS AND CHECKS a00 GROUPS OF CHARACTERS 0' SPECIAL BINARY
COUNT PATTERN. LENGTH OF EACH GROUP IS RANDOM, BUT DOEI NOT
EXCEED 15 CHARACTERS •

119

.MAIN,
DULAE

MACYll 17('!7)

IT-NOV-1!

14116

PAGE 17

7U
713

714

715

716

1n
TU
nt
ue
nl
na

e.l

..-...... ... ...

pRGI PROGRAM DESCRIpTtON
-~~~-

Tl4

RTN0

CARRIAGE RETURN TEST. CHECKS THAT CARRIAGE CAN CORRECTLY
RETURN TO PRINT POSITION 0 'ROM EVERY OTHER PRINT POSITION,

RTNl

RIGHT MARGIN TEST. THIS ROUTINE VERIFIES THAT THC RIGHT
MARGIN IS CORRECTLY SET FOR 'I PRINT POSITIONS. THE TEST
TVPES 73 CHARACTERS. I' THE RIGHT MARGIN IS CORRICTLY SIT,
CHARACTER 13 SHOULD OVERPRINT CHARACTER 12. TH! TYPED LINE
SHOULD LOOK AS FOLLOWSa

TIl
TIt

nl
712
113
U4

.-.~I- ••• I.---I-••• I.-.~I-.-.I-.-.I·- •• I.--.I.---I.-•• I--•• I-.--l.~.-I.I

RTN2

n6
Tn

,..
U9

PRG2 EXERCISES TH! TELEPRINTER ~UNCTIONa. VERIFICATION 0' TELEPRINTER
OPERATION IS PERFORMED VISUALLY BV UIER. TH! PROGRAM CONTAINS
29 ROUTINES NUMBERED FROM 00 TO 34(1).

TIS

125
126
117

~.-

SPACE TrST. CHECKS ABILITY OF TELEPRINTER TO SPACE CORRECTLY.
THE T!ST FIRST PRINTS REVERSE SLASHES C\) IN ALTERNAT! PRINT
POSITIONS, AND THEN SPACES FROM PRINT POSITION I TO EACH
PRINT POSITION AND PRINTS A SLASH (/), TH! TYPEOUT SHOULD
LOOK AS FOLLOWS,

\/\/\/\/\/\1\1\/\1\1\1\1\1\1\/\1\1\/\1\1\/\1\1\1\1\1\1\1\1\/\1\/\1\1\1\1

141
142
US

144
U!

RTN3

LINE FEED TEST. TESTS FOR ABILITY TO CORREeTLY PERFORM A
LINE FEED. A RANDOM STALL OCCURS BETWEEN EACH LIN! FEED. A
CORRICTLY PERFORMED TEIT W~LL APPEAR AS DIAGONAL LINE BETWEEN
PRINT POSITION 0 AND PRINT POSITION 72.

RTN4

TAB TEST. AIR/KaRl! ONLY. CHECKS ABILITV OF TELEPRINTER TO TAS TO
TO ATA8 POSITION FROM 1 TO 7 POSITIONS AWAV 'ROM THE TA8.
TH! FtRIT LINE TYPED MARKS THE TAB POSITIONS. SUBSEQUENT
LINES ARE THE ACTUAL TA8 TEST. TH! TYPEOUT LOOKS AS FOLLOWSI

1
I
1
I
I
1

1
I
I

,.,

T46

711
U9

'!51

1!5a

'"7Sn6
'"
,,.
'"TS.

1"
1'1

I
I

1
I
I
I
I
1

/
I
1
I
I

1
I
I
1
I
1

1
I
1
1
I
1

I
I
/
I
I
I

1
1
I
1
I
1

1
I
I
I
I
I

."AIN.
OZKLAE

"ACYS~

.'e'11)

.,.,
'P"

,T-NOY.T'

14'"

PAG! ,.
(I,] CONT'D)

"'4
,"'1

.,.,
.,.,
.,.,

RTN!
RTN6
RTNT
RTNU
RTNU
InNU
RTNU
RTN14
RTNiS
RTNU
RTN1T
RTNIe
RTNll
RTN22
RTNU
RTN24
RTN25
RTN26
RTNaT
RTN!I
RTN]l
RTN32

711
711
711

'1J

T'"

fT'
716
71,

TT.
,.,.
7'1,
TIl
711

1IJ
114
71S

1It

.,..
.,.t
11.,

RTN33

"1
'"
.,.,
".

RTN34

"4
US
n.
".,

TYPES LINE 0' CHARACTERS ABC
TYPES LIN! 0' ,CHARACTERS Of'
TYPES LIN!
CHARACTERS GMI
TYP~' LINE
CHARACTERS JKL
TYPEI LIN!
CHARACTERS MNO
TYPES LIN!
CHARACTERS PQR
TYPil LINE
CHARACTERS STU
TYPES LIN! 0' CHARACTERS YWX
TYPES LINE 0' CHARACTERS YII
TYPEI LINE
CHARACTERS 123
TYPES LINE 0' CHARACTERS 4!6
TYPES LINE 0' CHAR ACT IRS T"
TYPES LIN! O'CHARACTERI ,-,
TyP!S LlN! 0' CHARACTERS IXI
TYPES LINE
CHARACTERS 'e)
TYPES LINI
CHARACTERS *+,
TYPIS LIN! 0' CHARACTERS
TYP'I LINE OF CHARACTERS I,e
TYPES LIN! OF CHARACTERI .~t
TYPES LIN! 0' CHARACTERS IE\
TYPES LINE 0' CHARACTERS l- AND LEFT ARROW
TYPEI 2 LINES 0' ALL CHARACTER., 'IRIT LINE II TYPID AT
FULL SPEED, SECOND LIN! IS TYPIO WITH RANDOM STALLS •
TYPIS 12 LINES OF ASR!] WORST CASE PATTERN. EYERY OTHER
LINE IS TYPED WITH RANDOM STALLS, THI ASR!! WORIT CAS!
PATTERN IS '.W/W.
TYPES &2 LINES 0' ASR!! WORST CAIE PATTERN. EYERY OTHER
LINE IS TYPED WITH RANDOM STALLS. THE ASRS! WORIT CAIE
PATTERN II 'ltCt,

0'0'
0'0'
0'
0'

0'0'

-.1

.MAIN, MACYll 27C6S7)
OZK!..!

i7-NOVe7!

&4116

PAGE i'

1',
II.

II,

1.4

PRG! PROGRAM D!SCRIPTION
"._w_
.•.•
...
~~.~_._._._P

II.
I.S

PRaJ CHICKS 'OR CORRECT PUNCH OPIRATION. THI p~al~AM CONTAINS J
ROUTINES NUMBERED 'ROM II TO 12.

......
a'4

"'
."
•••
IU
au

RTNI

PUNCHES 51a CHA~ACT!R' 0' SPICIAL BINARY COUNT PATTERN AT
'ULI. IPIED, AND VIRI'I!' TH! PUNCHED DATA WITH TH!
PAPER TAPE READER. TEIT II DONE S TIMII,

RTNl

PUNCHES 512 CHARACTERS 0' .'ECIAL BINARY COUNT PATTERN WITH
RANDOM DURATION STALLS aETW!EN EACH CHARACTIR PUNCHED. THE
DATA PUNCHED IS VERI'IED WITH THE PAPER fAPE RIADIR, THI
TEST IS DONE 5 TIMES.

RTNi

PUNCHES 512 CHARACTERS 0' SPICIAL BINARY COUNT 'ATTIRN IN
GROUPS 0' RANDOM LENGTH (15 CHARACTERS MAXIMUM). A'TER EACH
GROUP IS PUNCHED A RANDOM DURATION STALL OCCURS. THE DATA
PUNCHED IS VERI'I!D WITH THE PAPER TAPE RIAOER. THE TIST
IS DONE 5 TIMBS.

.n
'14
IU
IU

It.
I ..

II,
II.

liS
al4

...

8.1

PRG4 PROGRAM DESCRIPTION

..--..

~-.~""~-----.-P~."

lIS

PRG4 IS USED TO TE8TTH! TELETYPE KEYBOARD. THI PROGRAM CONTAINS
3 ROUTINES NUMBERED 'ROM II TO 12 •

II'
II.

RTNS

TESTS THAT TELETYPE CONTROL RISPONDS WHEN USER DEPRESSES
A KEYBOARD KE¥.

RTNi

ECHO TEST. THE TEST ECHOlS ONTO TH! TELEPRINTER THE CHARACTER
RECEIVED FROM THE KEYBOARD. WHEN TH! TEST SINS!I A RUBOUT
CHARACTER THE TEST 18 ENDED. THE TEST INABLES THI USER TO
DETERMINI I' ALL PRINTABLE CODES CAN 8E sueCE8S'ULLY SENT
TO THE T!LETYPE CONTROL,

RTN!

OCTAL EQUIVALENT TEST. THI OCTAL EQUIVALENT OF ANY CHARACTER
RECEIVED BY THE CONTROL IS TYPED. SENSING A RUIDUT INDI THI
TIST. THIS TEST INABLES THE USER TO DETERMINE THAT ALL CODES
INCLUDING NON-PRINTABLE CONTROL CODES ARE BEING CORRECTLY
SINT TO THE TELETYPI CONTROL.

II'

as.

III

112
113
IU
III

."
ISf

.,.
UI

It,

."AXN.
eZK!.A!

"ACY11 ~1C'!1)

l'.NOV.1S

i4la,

PAGE 20

141
US
844

14'
U6
u,

8.6

nil
all

n.85,us

na
an
au
161

8'1

NORMAL OPERATION IS WITH RANDOM STALLS. SRe MA¥ BE SET TO A 1 TO
RUN THE TIST AT 'ULL SPEED.

166

a.'I'

8.8

886

891
892

_P~_.

.....

PRGY PROGRAM DESCRIPTION
-.~

-.~.~~

PRGY IS A PRINTER EXERCISER DESIGNED AS AN AID IN MAKING TELEPRINTER
ADJUSTMENTS. TH! PROGRAM PERMITS THE USER TO TVP! IN FIVE TEST CHARACTERS
AND ONE FINAL CHARACTER THAT SIGNIFIES WHETHER FULL 'PEED OR'TA~~
OPERATION IS DESIRfD. TH! PROGRAM THEN TVPES ~rNE8 CONTAINING THE
FIVE SELECTED CHARACTERS, WHEN THE USER WISHES TO CHANG! THE TEST
CHARACTERS SR1S IS SET TO A 1. THE PROGRAM T!RMINATII TV'ING THE LINE
BEFORE ACCEPTING NEW DATA.

&90

•. __ ..

.. .. ...
-~-

II!

~_W·_

PRG& IS A CONTINUOUS RUNNING PROGRAM THAT EXERCISIS THE PAPER TAP!
READER USING A SPECIAL BINARY COUNT PATTERN TEST TAPE. TH! PROGRAM
STALLS RANDOMLY AFTER READING RANDOM LENGTH CHARACTER GROUPS
(15 CHARACTERS MAXIMUM) AT FULL SPEED. SRB MAV BE SET TO A 1 TO
EXERCISE THE READER AT FULL SPEED.

1111
111
811
883

aaa
an

PRG& PROGRAM DESCRIPTION
~W_.

8U
11'1'
118

THE PROGRAM WORKS IN THE INTERRUPT MODE, AND IS ARRANGED 80 THAT
TH! PAPER TAP! READER WILL AT NO TIME IE MOR! THAN 41 CHARACTERS
BEHIND THE PUNCH (EXCLUDING INITIAL PUNCH TO READER SLACK.)

861

au
au
au
873
au

__ w._. __ .. __ _

PRm! IS A CONTINUOUS NUNNING PROGRAM. DATA CODES 241 THROUGH 331
ARE USED TO EXERCISE THE DEVICES. THE DATA IS OUTPUTTED TO THE
PRINTER/PUNCH IN QROUPS OF 12 CHARACTERS PRECEDED BV CARRIAGE RETURN
AND LINE FEED. ONE PROGRAM PASS CONSISTS OF 63 LIN!S FOLLOWED
BV A BLANK LINE. THE DATA IS OUT~UTTID SO THAT IVERV CHARACTER WILL
HAVE PRINTED IN EVERY PRINT POSITION BY THE TIME ONE PROGRAM PASS
HAS BEEN COMPLETED.

~.~.

PRGS EXERCISES THE PAPER TAP! READER, PAPER TAPE PUNCH, ANO THE
TELEPRINTER IN COMBINATION. ITS PURPOSE IS TO SHOW UP ANY ~AILURES
THAT MAV OCCUR AS A RESULT OF INTERCACTION BETWEEN THE TELETYPE
DEVICES AND THI PNOC!SSOR.

8119

861

PRG! PROGRAM DESCRIPTION
"~-

a.9

..-....

...

PRGt0 PROGRAM DESCRIPTION
-~-.~-~---.~-.-

PRGt0 IS A TAPE GENERATOR THAT PUNCHES OUT THE SPECIAL BINARY
COUNT PATTERN CONTINUOUSLY.

,HAIN.

DZK~At

at3

HACVll 21C6S7)

iT.NoY-75

141m,

PAGE 21
8,10

894

~--.-~.-.--.~

895
896

B.
C.

911111

9'1

9111

911S

,.,

--~~-~~--.

PRG11 IS USED AS AN AID IN ADJUSTING THE TELETVPE PUNCH CLOCK WITH
THE AID OF A SCOPE. THE PROGRAM PER'QRMS THE FOLLOWING SEQUENC!'

"'1
19&
a..

PRGII PROGRAM DESCRIPTION

8.11

LoAO PUNCH SUF'ER WITH ASCII CODE IN SR LEFT.
DELAY NUMBER OF MILLISECONDS SET IN SR RIGHT.
GO TO STEP A.

PRall PROGRAM
DESCRIPTION
••
__
•••

• ____

.~_

~.~--

.8_W~

9.6
9 fIT

PRGll IS USED AS AN AID IN ADJUSTING THE TELETYPE READER CLOCK.
A SCOPE IS REQUIRED. THE PROGRAM PERFORMS THE FOLLOWING SEQUENCES

9..

A.
B.
C,
O.

9ee

9U
9U

913
9U
915
916

918
9U
9ill

Fa
8,12

...-...

USING THE PUNCH MAINTENANCE BIT FEATURE, PRG1J TAKES THE ASCII CODE
lET IN SR LEFT AND USES IT TO CHECK THE ABILITY OF THE CONTROL TO
OUTPUT AND RECEIY! DATA. THE PROGRAM PERFORMS THE FOLLOWING SEQUENCE.

921
923

A,
8.
C.

'14
us
92.
9itT

918

919

PRall PROGRAM DESCRIPTION
P.-~--.~.~-~.-.---

'21

nl
931
U3

SET PUNCH MAINTENANCE BIT,
LOAD PUNCH BUFFER WITH CODE IN SR LEFT,
DELAY NUMBER OF MILLISECONDS lET IN SR RIGHT.
MoYI CONTENTS OF READ BUFFER TO REGIsTER e.
ISSUE 5 RESET INSTRUCTIONS TO "FIX" READ BU'FER CONTENTS IN
RIGHT HALF OF DATA LIGHTS,
GO TO STEP A.

8.14

SET PUNCH MAINTENANCE BIT.
LOAD PUNCH SUFFER WITH CODE IN SR LEFT.
WHEN READER DON! eIT lETS, COMPARE CODE IN SR LIFT WITH DATA
IN READER BUFFER. HALT IF NOT SAME.
WAIT FOR PUNCH DONE 8tT TO SET AND GO TO STEP I.

.. ..

PRG14 PROGRAM DESCRIPTION
-~-

-.-~.~~.--~

~.-~~

USING THE PUNCH MAINTENANCE SIT FEATURE PRG14 USESTMI S'ECIAL
BINARY COUNT PATTERN TO CHECK ABILITY OF THE CONTROL TO OUTPUT
AND RECEIVE DATA. THE PROGRAM PERFORMS TH! FOLLOWING STEPS8

9"
"II

A.
S.
C.
D,

934

916
'IT
'U

941
'94!
943
944

INITIALIZE SINARV COUNT PATTERN.
SET PUNCH MAINTENANCE BIT.
LOAD PUNCH BUFFER WITH 8INARY taUNT CHARACTER.
WHEN READER DONE 81T SETS, COMPARE 81NARY CHARACTER WITH DATA
IN READ BUFFER. HALT IF NOT SAM!.
WAIT FOR PUNCH DONE 8IT TO SET AND GO TO STEP t.

.INDR

.MAIN.
DZICLAE

MACY1S-lfC6Sf)

.....'4',,
91.
tI,

".
'"
"9,
,,.,

......
.
tS!

tI.

,'ITANDARD SR SWITCH OPTIONS (SWITCH sET TO A

....
.".",

,'IR IS - HALT AT IND OF ROUTINE,

'
,'"
,'",

.....
".91, ....
••••••
••••••., ......
...1111

".111

......
""11
.''''11
""1'
••••••
......
""1"
......
.9", ,"'11'
..'"1111.,.
....tt.,
......
tt,
....."",
99,
....16

...111

'17 ",1'1 ••• Il!
'71

.."

••IIS'

.1....
'il
til ....III ••• 122
91. ·•••• 22
91,
91.

91 •

...ISI

.111"
..1S4'

...n.

.UJ44
I . . UI

"2 ••• u.

11.162

1'17,.

PAGE 22

.LUT
MI
.NLIST HD,MC
,PRIIil. COM8INED INPUTwOUTPUT LOGIC TESTS,
,PRG1- READER TEST.
'PRGI- PRINTER TilT,
,PRIJ. PUNCH TIST,
,PR'''. KIYBOARD TEIT.
,PRt'. COM8INED TfST.
,PRG6- READER EXERelIIR. SPECtAL BINARY COUNT PATTERN.
,PRI'- PRINTER IXERCISER.
IPRII'. SPECIAL BINARY COUNT PATTERN TAPE GENERATOR •
'PRGlle PUNCH CLOCK ADJUaTM!NT ROUTINE.
,PRISI. READIR CLOCK ADJUSTMENT ROUTINI,
,PRill- MAINTINANCE MODE SINGLE CHARACTER DATA TIlT •
IPRI'''. MAINTENANCE MODI SPECIAL 8INARY COUNT PATTIRN DATA TIST.

911
tIl

'"
".

141'.

.ASI

,.,

'14

IT-NOY-T!

snn.

IIIIUI'

11111111114111

1 )

IIR 14 • 'COPE.
ISR 11 - INHIBIT lTIRATION.
ISR 1'. LOOP PROGRAM
,'R •• IILICT ROUTINE.
,SR •• DISAILE STALL MODf AND RUN FULL SPEED,
"R • THROUGH IR I • NUMIER 0' ROUTINE TO 8E SELECTED.

.-.

,+2
HALT

,UNASSIGNED TRAP

.+1

,RESIRVED INSTRUCTION TRAP

MACHIRt .+1
HALT
HALT
,+2
HALT
.+2
HALT

liP OVUFLOW, IUS ERROR TRAP
,TRACE TRAP
,TRAP TO CALL lOX

.+1
,POWIR 'AIL TRAP
HALT
IMTtNT
,EMT TRAP
JIIRTYT
DLYX
,TRAP TRAP. SIMILAR TO EMT
PRTYT
'LOC 41 THROUGH Tf. ARE 'ILLED WITH .+2 AND HALT.

.-.6

LOGIC

,SET TO ADDRESS 0' ACT 11 HOOKS

,IQUATE STATEMENTS
CC-171176
PaW-11fT'.

SI'lOTaUII
NOP.UI

1"1\<, '~'"
'<"'>~ '~,'

.MAIN,
DZKI.A!

...

U"
UIS

U ••

11IS
1114
11.5

1'"
SII'

""
U ..
U1l
UU

un
US4

sn,
leU
1117

lisa
lin

""
SIll
Sill

SII'
SII4
UII

""
""
SIll

nit

lU.
lUI
lU,
SIS!

SlU
SlI!

lU6
SUT
lila
lnt
lUI
lltl
llt2
"4J

MACYU ITCft51)

I"'; Ov.n

1111111
,'leal
111111
1•••16
..1.1"
1.1111
.....1
111111
1'"111
11."11
112111
"11.1

......

"1211
..11"
1111"1
11111111
""'1
11111114
1111.. 2
111111."
.. "a6
1112626
111.,41

Iluea

IIIUI
"1111
I",.,
IIIUI
111141
11111111
.11111111
114411
11111117
115142
1115144
lUIS.

IU265
lun6
'15.67
11''''
11'''17
177.,.,'

,nn"
S".,.,11

,.,.,.,11
111711
114.
III''''
III' f4 ,77511
IIIU6 1.... 1
U"
aalUII
U"
US. ..1211 IU.,.6 "UII
IISI 111214 111167.6 ins.,.
I " ! 111111 116746 177'71

'14'
Sl45

1411116

PA~k;
OPEN-I
MANUALwaITt!
Rble

Rhl6
PCdT
IUn-1III1II11111
BUU-UIII
suu.2all/Jl
IITU.'II'III
81TUa."1
IUTlI-21111
IlTt,""

Inl_UIII
IUT.III
IIT •• ,I,
IITS."
8IT4 .. 111
IITS .. "
aITI ••
IITI.I
I IT II III 1
POPSPd726
POpSP .. IIUi6
PRTY7111J411
PRTY6.,.1
PRTY5d41
pRTY4.1'1
PRTYld41
PRTVa.lll
PRTVl-41
PRTVILII'
EMU-III
DILAYXlTR.'+1
8!LL.11?
ILOCKAIIDEND
ILOCK1IIIl.OCKAt2
ILOCKI.aI.OCKA+S1!
ILKBhBLOCU·1U
ILOCKI8ILOCKA+l14
aLKI.BLoCKA·U5
ILoCKeIlBLocKA.!!4
BLKCCIIILOCKUU5
PITLST'.'
PtTLaTh'
PITLST"l
P3TLST-.. l
1114fLST •• '

,POP THE STACK, SAM! AI TST (6)+
,POP STACK TWICE. lAME AI CM' C6'.,C6'.
,PRIORITY LIV!L or'INITION8

•• ,14

SR'TRI 111571
aO'TSRI 11111111111
•• 2111111
.. paOT,16
MOV
MOV
".(lP)
4,.(SP)
MOV

'SET aOTTOM OF THE STACK
,SAVE CURRENT VECTOR

.MAIN,
DZK~AE

In]
1054

In!
105.
IUT
1058
10"

MACYlI Z1 "57)
meell4
000222

eBeu.
001130
mUll6
anU0

011167
803117

IT-HOy.n
UUJ8

aBlla
InUI
IHU.

lUI

009250

mell!4

10U

00U10
001212
e01114
101216
maUI0
UI2U
UUZ4

000167
001210
111,.e
I77UZ
177564
I71S . .

1065
10U
1068

10.,
1070
1071

001226

I0H

UI230
00lal2
00Ul4
001al6
0SU40
101242
001244
001246
UI25B
001252
001254
0BU56
0euu
B0UU
00U64
001 Z66
001270
00U72
001274
001216

1013
1074
1075
U7b

1071

1018

1079
1080
1081

1082
1083
1084
1085
US6
1087

1088
1089
U9~

U 91
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
11B2
1103
1104
1105
1106

,MAIN.

0~130e

U1l0l
~~ I l04
001304
081306
101310
001312
001 ll4
001316
001120
001312
001324
001326
001330
001332

177136

111

0i!26Z6

0U .. '

I0h

I77!U

001414

mila?

0lh67

PAGE U

IHTU

UU44

11'1

1411.

lSI

TKII
TKBI

'PSi

ZlUU
00U0S
000U4
000210
008810
eelBIS
eell0S
000001
011010
000000
001000
000000
00Beme
B05144
007652
U1016

fl8,.
fURPTR

8ft
MOY

II
UOFTU,SRPTR

CMP
MOV
MOV

ttl +, 4
,,1+,
•

JMP
,'UII

START

TK~VLI

PRTV4

TPVTR I
TPLVLI

PRTY4

802666
003014
003146
001466
001446
001422
002414
082444

,CONTAINS CURRENT PROGRAM.
,CURRENT PROGUM START ADORIIS,
,CONTAINS AOOR O~ CURRENT TEaT,
,CONTAINS CURRENT TE.T "
,CONTAINS AOOR O~ NEXT TEaT,
,CONTAINS CURRENT ITERATION COUNT
,CONTAINS CURRINT leOPE POINTIR,
,CONTAIN' PROGRAM INDICATORS
,PRGe START ADOREIS
,PRBI START ADDRESS
,PRB2 START ADDRESS
,PRG3 START ADDRESS
,PRG4 8TART ADDRISS
,PRGS START ADDRESS
,PRG6 Sf ART ADDRESS
,PRGT START ADDRESS
,PRO 10 ST ART ADDRESS
,PRGII START ADDRESS
,PRGI2 START ADDRESS
,PRGIl START ADDRESS
,PRGI4 START ADDRESS
,POINTER
,POINTfR
,POINTER
,POINTER
,POINTER
,POINTER
,POINTU
,POINTER
,POINTER
,POINTER
,POINTER
,POINTER

ST~8PV
EH~ T

0~1434

SAUTT

002474
001754
002210

CHUNN
CHKJ3

11-NOY.75

14106

'RESTOR! TIME OUT YICTOR
,BO TO START 0' PROgRAM.

'La,

PRGNUHI OPEN
KSTUTI OPEN
CURTlT' OPEN
RTNNOI
OPEN
NXTSTI OPEN
ICTRI
OPEN
8COPTRI OPEN
PRGIDI OPEN
PASTAS I PRGe
PRSI
PRG2
PRGl
PRG4
PRGS
PRU
PR07
PRGle
PRGII
PRG12
PRGIl
PRGI4
EMTTAB I
TVP
TVPS
STAL
ERR
DTCHK
CHLT
ITLSRV

011462

'RISTaU THI STACK

'~IR CaR
'~IR BUP'ER
'LIP CDR
'LIP Bur'ER
I~U INTERRUPT VECTOR
,~SR PRIORITY LEVEL
'LIP INTURU'T VECTOR
PRIORITV ~EY!L

I17S61
1775'1
177U4
1175 . .

TPBI
TKVTR I

IIET UP TSME aUT YECTOM
ITAV TO AI~£R!NCI THI,
IMARDWARI SWITCH REG!IT!R
ISRANCH IP NO TIM! aUT TRAP DCCURRi
'CHANII TH! SWITCH RIIIITIR POXNTER
'TO POINT TO A eOPTNARK awnCH RUUTlR

t61" (61.

TTYTYP' OPEN

0UIIB
0U410
013310
013454
013616
013662
013672
0137'2
014034

MACVlI Z7 (657)

MOV
TIT

~OR

E~T

CA~~

TYPI

~OR !~T CA~~ TYPES
FOR EMT CAL~ STA~~
FOR EMT CA~L ERROR
FOR IMT CA~~ DATCHK
FOR E~T CA~L CHALT
~OR E~T CA~~ STRORV
FOR EMT CA~L STPCHV
FOR EMT CAL~ IHA~T
FOR EMT CA~~
FOR EMT CA~L SCOPE
FOR EMT CAL~ CK33

&Run

PAGE 25

DZK~AE

1107
11B8
1109
IIU
1111
1112
1113
1114
1115
1116
1111
1118
1119
1120
1121
11i!2
1123
1124
1125
1126
1121
IUS

lin
113~

111I
1132
1133
1134
1135
1116

lilT
1138
1139
1140
1141
1142
1143
1144
1145
1146
1141
1148
1149
1150
1151
1152
1153
1154
1155
1156

1151

001334
001336
001140
001142
0~1344

001346
001350
~01352

001354
001156
001360

nl362
001364
001166
001310
001l7i!
001374
001376

CHKJ5
CHKS38

0mi122'

0022Z4

OTHLT
UVRG
RITR;
CKASR
RanTZ
OLV

~0ll24

082240
~02512
~03046

RO~V

003i!06
003306
000000
000000
000000
0000ee
000010
000000
000000

0~1400

000~00

001402
001404
801406
0014U
001 4 12
001414
001416
001420

00000e
000010
001010
000000
000001

001422
001424
001430
001432

011600
16i!700
000000
001002

001434
001436
001442
001444

011600
162710

RSTA~

RCNTI
CR8UF I
CHRI I
CHR21
CHR31
CHR\AI
CHReAl
CHRlU
fRCTRI
CTRAI
CTRBI
CTRCI
CTRDI
DRCTRI
DVDNDI
OYGUOT I
'COMMON
CHLTI

~00000
000~U
0~0000

0BBeD2

IIU

00nS2

000~U

126767

177712

001403
016700
00uae

171702

001464

000082

0014.6
001474
001476
001se0
101SB4
001516

032777
011014
mllUB
IUU0
00lele
U0102
032777
001413

,OEYE~OP

ADDRESS OF CA~~ER.

'HA~T. ADOR!aS OF CALL INSTNUCTION

,IN DATA LIGHTS.

'UNCONOITlONA~ IRROR HA~ T ROUTINE.
MOV
'D!Y!~OP ADDRESS OF CALLER,
' .. ,10

000010

UI446
001454
00145&
001462

001510
001516

OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPEN
OPIN
HALT ROUTINE
MOV
.~&,X0
ta,n
SUB
HALT

EHLTI

117711

SUB
'1,U
HA~ T
RU
'DATA CHECK ROUTINE.
OTCHK I
CMPB
CRBUF,CRBUF.,
BEQ
DTCHKA
DTHL T I
MOV
CRBUF,U
HAL T
DTCH~A I

RTl
'CONDITIONAL ERROR

0400110

I76S00

ERR,

BIT

8NI
MOV
lUI

001812

HA~T

IRRA!

IIU

1l5q

FOR E~T CAL~ CK35
FOR EMT CAL~ CU7
FOR EMT CAL~ TYPLN3
FOR EMT CAL~ DAlHLT
~OR EMT CAL~ SAYREG
~OR EMT CAL~ RSTREG
FOR EMT CA~~ CHKASR
FOR E~T CA~~ Run2
FOR E~T CALL DE~AY
FOR IMT CA~~ ROiLAY
,POINT~R FOR EMT CA~L RSTALL
,CHARACTER COUNT
'HO~DS ONE CHARACTER FROM READER.

,POINTER
,POINTER
, POINTER
,POINTER
, POINTER
,POINTER
,POINTER
'POINTER
,POINTER
,POINTER

TVP~3

004574
eU456
002264

10Bue

116456

"6, XI

u,n

,COMPARE EXPICTID AND RECUV!D
,CHARS, BRANCH IF SAME,
, MOVE SIB AND WAS CHARS TO RI,
,DATA ERRON HA~T, GOOD CHAR IN
,DATA LUHTS ~!'T. BAD CHAR IN DATA
,LUHTI MIGHT. u n .
,SCOPE SWITCH 'ETt
,BR IP YU.
'OEYE~OP CA~~ER' S ADDRUS.
,ERROR

HA~T,

IUIT.

,ROUTiNe IND HALT IUUOUTlNE.
UITII,URPTR
'HA~TI

CA~L

HA~T.

UrTl4,UAPTR
URl

a!Q

, HA~ T. ADDR OF ERROR
,IN DATA ~IGHTS,

SH~TA

,HA~T

AT END OF naTt

,SR IF NOT,

,MAlH,

OZK~A!

MACYlI Inn1l
181510

,MAIN,
OZKLAE

MACVlI

~7C&571

Ilbij
11&5

001530
00153.
001540
001546
001552
001556
0015&0
0015U
00157m
001574
001&00
001604
001&0&
001&10
B01U2
001 &I 6
001622
001&24
001630
001&34
001636
001640
001&44
001&4&
001&54
001662
001&66
001670
B01bY2
001676
001702
eel110
001112
001716
001TZ2
001126
001732
001734
001140
001746
901150
101152
001754
001760
0011&6
001770
UlYh
00U10
002004
60ii012
002014
002020
ZU02i
00i!020

01 a70b

Ilb&

11&7
IIb8
116q
1170
1171
117Z
1173
1174
1175
111&
1117
1178
IIH
1180
1181
IIB2
1183
1184
1185
118.
IIa7
1188
1!8q

1190
1191
11 92
l1q3

1194
1195
119.
1197
1198
119q
tc!00
I i!01
1202
1203
1Z04

IUS
12Bb
In7

lua

un
1210
lUI
1212

1213
1214
1215

12U

lum6

~AGI.'

11.7Ie

11'1
11'2
11'3

101'14
00151'

IhNOV_75

nnll

005067
012H7
005067
005737
001ij04
004H7
0001 b7
017700
042700
020027
101402
104010
000747
005067
01Ub7
001404
0047&7
016700
001241
00&\00
000170
104005
016767
012767
012706
104400
l0ij011
005067
0Urb7
BHH7
001002
000177
017700
04Z710
I2b100
001182
100117
0na1
001353
104010
000n5
012706
032717
001406
0ii!767
001402

010177
Ui!777
00108'
sun7
001402
109117
n4H7

Hove

~TNNO,U

RTa

MALT

8HLTAI

nUe?

IT-NOV.75
001200
176236
000006
111466
000042

14.h

START.

IS.

MOV
CLR
MOV
CLR
TST
BEQ
JSR
JMP
MOV
DIC
CMP
B~OS

177412
177410
IBI552
117376
001252
1773U
0n006
001200
176100
000210
001000

177366
176122

11&264

1773U
176252
177600
17730b

INCPRGI fHALT
SR
CRUI
CLR
HOV
BEQ
JSR
MOV
CRT8.
CLC
RDL
JMP
SRSEr • CHALT
GfTROYI HOV
CLEAN I MOV
MOV
D!LAVX
GREBEl
CLR
GTRDU I JaR
GTRDYB. 8IT
SNE
JMP
GTRDYC I HOV

BlC

177276
171777

17?a74

001210
040000

116206

177711

177250

171242
004000

17blb2

IIXlT.

PAGE 21

17bn&

001616
012244
176400
111760
000014

'CURRENT TKa, • TO ft.,
INDUTIN! [NO HA~T.

eMPB
8N!
JHP
STRDYOI CMP
SNE
INeRTNI EHA~ T
SR

CHAINNI HOV

BIT

aEQ
eMP
8!Q
JMP

CMN4I

81T

INE

177214

DEC

177220
17745b

JHP
JU

CHNAAI

.SPBOT, Xb

paw

86,MACHER
RTNNO
'*4.
11
PC, TIMCAL
PRGI4
fSRPTR, U
*177760,n
10,'14
CRTA
START
PRGID
xm, PRGNUM
CRTS
PC, TlMeAL
PRGNUM, X0

1m
'PRGTAB (I)
KaTART,NXTST
. . ,MACHER
UPSOT,X.

,SET BOTTOM OF SP STACK,

,CHAIN OR AUTO-ACCEPTANCU
,n I~ NOT,
,CALIBRATE DELAY ROUTINE,
,ao RUN 'RGI4.
'('UPTR) TO R0
'LIMIT (SRl TO BITS 3.0
,COMPARE (SR) TD PROGRAM ~tMlT
'VA~ID ~ROGRAM NUMBER?
,NO. INCORRECT PRG NUMSER
,START OVER,
,SAVE PROGRAM NUMBER AT PRGNUM
'SR IF B,
ICAL%8RATE DELAY ROUTINE,
,FRGNUM BACK TO RI,
,R0X2
,GO TD SELECTEO PROGRAM,
,UT SA DPTIONS DUIREO
,ADDR DF 1ST ROUTINE TO NXTlT
,RESET MACHEA TAA~.
ISET UP BOTTOM OF nACK,

psw
X7,FORWD
tBlT9,ISRPTR
GTRDYC
fCU~Tn

fSRPTR,U

_ITHU,n
RTNNO,U
STROYO
fCURTST
'-I,Nnn
GTRDU
BETROY
UPSOT,R.
UITI4,URPTR
eHNA
hi ,SeOPT"
eHNA
UCOPTR
. . nll,U~PTA
CHNU
leTR
eHNU
.aeOPTR
H,IHALT

,ROLL FORWARD TO "NEXT" ROUTINE,
,SELECT ROUTINE SWITCH SET?
'BRANC" I' VES.
'~UN CURRENT ROUTINE.
,(URPTR) TO RU
'MASK UNDESIRED UTS
,COMPARE RTNNO TO (Rll
,BRANCH IF ROUTINE NOT 'OUND VET.
,GO RUN ROUTlNE.
,NO, CHECK FOR LAST RDUT! N!,
'LAST ROUTJNU
I YU. INCORRECT ROUTINE I!~ICTID,
,START OVER,
,RESn STACK,
,SCOP!!
,DR XF NOT.
'Yla. SCOPE POINTER' -I'
,eRANeH I~ ICOP! ENTRY IS .1.
,RETURN TO ROUTINf.
'INHI8IT rTERATION'
,IR %, YIS.
'NO, leTR e7
,SR I' VU.
,NO. RETURN TO TI.T ROUTINE
,gO HALT I' HALT SWITCH II arT

iMA%N,
OlK6AE
~ J 16
:ZI ~
12zm

U~I

MACHI a7 '.51l
~~tna
~0<ffitro

Ui!0Q~

nane

1224

aU09!
002056
B020U

IUS

0020&2

1216

002064
002072
002076

1222

tail

1221
12i1a

122q

0U104

1230

00i! 06

Ull
1232
1233

lUlU

1234
1235
123b

1237
1236
123~

1240
1241
1242
\!43
1244
1245
1246
1247
1246
1249
12;0
1251
12'2
1253
1254

1255
1256
1257
1255
1259
1260
1261
1262
1263
1264
1265
1266
12&7
1268
12&q
12U
1271

.• MAIN~

002112

002116
B0UU
00212&
002132
002134
002140
0021 44
002150
00Z152
002160
0021&b
002170
002172
00UTb
002200

00liB2
002206

nnn

~e!0W0

i1blH

lynH

I rrl7~

013111

U0U2

~AGf

eMMal

004?10
UU40
000161

UiH?
0012'0
000000
000&56
016705

0USH
0U5U
I0sa7
100407
0125U
0U5.?
010567
000207
01il7U
0ua7
000166
aU04.
016600
014000
006300
016000
000200

0327&7
001002
06i!1I&
000002
03a767
001311
000002

0UT67
001001
000002
0i2U6
012767
104012
012661
012661
010446
010346
01024&
01014&

MACYlI 27(657)

ae
an
SNE

CMNCI

U14G1
000005

0e~U0

0~2302

l4i66

eeDM
UiH?
nUll

002216
002220
092224
00iiil6
002234
002236
002240
002246
002250
002n2
002254
002262
002264
0022T0
002174
00221&
002300

I '.Nov.n

L.OG!Ci
UU40
U1736

nun

000240

ITUTe

HfREI

C~P

i«HJ~

DNE

I@R IW NOT,

BEQ
Run
'C, (0)

,WORD
JMP

NO', NOP, NOP

8N!

'~QI4

nnu,URPTA
UTRDY

HA~ T

FORWO I

111124

Mev
MOV
MOY
TSTa
BMI

117\16
117114

1771lb

,RESTART.

PRGID

I HUll
I17S"

MOV
FORWDA I MOY

FORWDB I MOY
HOY

'l,lCT"

000002
171304

0000E I

ITTal2

000002
anew I

17&774

000010

17&1&2

000001

17&7&2

000030
000026

17"'NOV .... 15

14106

,SR %P US,
IPROSAAM END HAi.T.
IADDR OF NUT ROUTINE TO fts.
,GET NEXT ROUTtN! NUMBeR.
IGET ADOR OF NEXT 'N2~T' ROUTINE,
,CHECK IF PROGRAM SCOPE AND I COUNT

(I).,RTNNO
15l.,NXT8T

FORWDB
(5)+,ICTR
(5)-, stOPTR
n,CURTST

l17ab6
I77U6

IbOOP PROONAN'

NXTST,"

HOV

177777

,RETURN TO MONnOR,

I RETURN TO 'RS 14,

BnRDY

117104

e000U

T~tr'¢

lOR IF 0,

JaR

~MJT

,on CONTENTS 0' 4a,

MOV

hl,8CO~TR

,PARAM~TER8.

BRANCH XF NOT.

IGET ITERATION COUNT.
IGET SCOPE ~oaF ENTRY POINTER,
I ADDR or NOW CURRENT TUT TO CURTSY.
IEXIT FORWO SUBROUTINE.
,FORCE "NO SCOPE"
,PORCE I COUNT OF I

FOR "D.
'EMT INTERPRTlR ROUTINE.
EHTINT! HOV
R0,- C61
IPUSH R0.
2 (6) , R0
HOY
IGET EMT PC.
-(0) ,R0
MOY
IGET EMT C.~~.
R0
ASL
ITIMES 2.
HOV
EMTTAB'100~0(0),R0 IDEYELOP EMT AODR.
RTS
R0
lao TO EMT RTN, RUTORE R0.
IROUTINU TO DEHRMINE TTY TYPES.
CKK3J I
$\, TTYTYP
ICHeCK FOR 33
eIT
CHK338
SNE
ISR IF NOT
U,(b)
CKK3HI ADD
ISET UF 33 EXIT.
CHK338 I RTl
IUIT.
CHK351
#I,TTYTYP
,CHECK FOR U,
eIT
SNE
CHKHA
leR IF 35.
RT!
,NOT 35.
CKASRI
BIT
UIH,TTYTYP
ICHECK FOR ASR TTY.
,+4
BNE
I BRANCH IF NOT ASR.
,A5R, EXIT,
RT!
POPSP2
I ~OP STACK TWICE.
MOY
~I,ICTR
IFORCE I COUNT TO A I,
SCOPE
,SCOPE TO BYPASS ROUTINE,
ISAVE REGS 0 TO 4 SUBROUT! NE,
SAVRGI
MOV
C&)+,SYRPC
lSAVE PC AND psw,
MOV
(6)+, SYRPSW
MOV
U,-(6)
IUY! REGS 0 • 4
MDY
Xl,-I&I
lIN STACK.
MOV
X2,-Ce)
MOY
II ,-Col

PAGE 29

CZK~AE

1272
1273
1274
1215
12H
1277
1216
1279
12B0
12BI
1282
1283
1284
1285
1286
1281
128B
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1301

002304
00230&
002312
00231&
002320
002322

01004&
010746
016746
000002
000000
000000

002324
002330
002334
002336
00i/l40
002342
002344
002346
002352
00235&
002360
0001362

0Ii&67

002364
002312
002376
002400
002404
002406
002410
00ii412

012167
005271
104400
105771
100402
104010
000165
000207

000310
116612

002414
002422
002426
002432
002436
002442

01H67
062716
01&701
01il7Z1
016721
000002

000000
000002
11&5. .

1308

002444
002452
002456
002462
00146&
002472

017U7
0U7ib
016711
012121
016121
000002

000000
000012
17U42
001000
11&534

002414

012700
005100
010067

052525

002512
00i506
002510

000002

1309
1310

1311
1312
1313
1314
1315
1316
1311
1318
1319

002510

012667
012&00
01i601
012602
012603
012604
01674&
016146
000002
000000
000000

000030
00002&

000010
000002

RT!

aUS12

104011
104011
000012

002520

016100

'AESTOR~ PC

AND PSW,

/EXIT •
TO 4 5U8ROUTlNE.
(6).,RSTPC
ISAVE PC AND paw.
(6)+,UTPSW
(6)+,la
IRESTORE REGS o "
(6).,X!
/fROM STACK.

(6)+,Xi!
CO) . , n
(6)., X4
RSTPSW,. (6l
RSTPe, - C&I

IRESTORE PC AND paw.
IEXIT

OPEN
opeN
IROUTINE TO FfTCH A CHARACTrR
ARE AD I
MOV
'200.,BRCTR
lSET UP DE~AY COUNT.
INC
ilKS
leNA8~E READER,
DE,AVX
IWAIT •
UTa
IOONE SfT?
'TKS
8MI
ARDB
ISR IF YES,
EHA~ T
I ERROR. NO RESPONSE FROM RUDER.
SR
AREAD
/TRV AGAIN,
ARDSI
RU
IEXIT
X7
IROUTINE TO SET L.SR INHRRUPT YECTOR AND PRIORITY
ST~3RY I MOV
'(6) ,3TPRH2
IMOYE YECTOR ADDR TO nPRhl
tl,U&
ADD
ISET UP EXIT
MOV
TKYTR,XI
STI'RA I
MOV
.OPEN, (IlIUT VECTOR ADDRESS
MOV
TK~Y~, Cil.
,sn PRIORITY
RTI
IEXIT
I ROUTINE TO SET ~SP INTERRUPT VECTOR AND PRIORITV.
, C&) ,3TPPh2
ST~SPV I MDV
,MOYE VECTOR ADOR TO 8T~PA+2
ADO
,an UP UIT
*i/,'Xb
HOY
TPYTR, XI
STPPAI
HOV
ISET YECTOR ADDRESS,
'OPEN, CIlHOY
iUT PRIORITV
T'~VL, CIlRT!
IEXIT •
IROUTINE TO ISSUE RESET.
SRSETT I MOV
052525,10
lOATA TO Re.
COM
X0
ICOMP~EHENT (R0).
MOY
n,8Rurr+il
I (R0) TO SRsnT.I.
RESET
11 SSU! Run, CRB) IS
RTI
lOISPLAYED, UIT,
IDOUB~f Run SUBROUTINe.
RS!TTi!I 8RESET

RST~SW I

177022

17&604

00001i!

000080
11&560

171770

000005

002514
002516

10, -1&)
SYRP8W,· (6)
SVRPC,·C&)

RSTPC I

Ili0
1321
1322
1323
1324
1325

MDV
MOV
MOV
RTI
SVRPC I
OPEN
SVRPSW I OPEN
I RESTORE REGS
RSTRG I
MOV
MOV
MOV
MOV
HOV
MOV
MOV
MOV
MOV

000010

00000i

000012

UUET
900042

RTf
,EXIT •
lRANDDM NUM8ER GENERATOR. ROUTINE EXITS WITH NUM8ER IN REGISTER e,
RN;EN I
RPI,U
MOV

,MAIN,

MACYlI aT (051)

I?sNOhlS

I4lh

DZK~AE

I Ub

aU5i4

UISI.

un menu
un

1330
Inl

002541

1332
1333
IH4

102'44
002590

In&

euue

In!

1337

1338
1339
1340
1341

IH2

U43
13G4
1345

IH6
1341

1348
1349
\350
135\

1352
1353

1354
1355
1J56

1357

0S.lse
ea&IU

UUW0

mauu Due"

mU540

101552
UiS54
0025U

naU6

nun

0U067

01nae

Z02U4

\04014
000310
005017
104010

17UU

002b36
002642
002644
00i!650
002652

105777
100003
01i!1I6
000002
0nU0
0111716

011 b00
01oii!71b
011000
1120b1
122767
001003
104024
000144
000002
\22767
00141&
IU76?
001417
0041&7
000754
116777
105777

00<676
002702
002110
002712

002114
002716
002ra0
00272&
002730
002136
002740
00aH4
002H6
002754
0027&0

MACY 1\

27 (651)

1380
1381
1382
1383
1384
1385
138.
1387
1388
1389
1390
13 9 1
1392
1393
1394
1395

002H2
002764
Ui!772
002776
003004
003010
003012

000207
112767
00Q167
112161
00qa1
000732
000000

003014
003016
003022
003026
003034
003036
0030Q0
003042
003044

011600
06.1\b
011067
022761
001001
000002
104000
000000
0007&3

1414
1415
141b
141 T
1418
1419
14<0
1421
1422

1423
1424
1425
1426

14a1
142B

003070
003016
003104
003112
003120
00312&
003132
003134
003140
003142
003144

IUe
1432

1433

0050b1
003012
012761

0167b7
01&a1
01b167

01b767
005367
001361
005361
001353
000002
000000

003146

03a7b7

003154

001001

003156
0031&0
0031b4
me3170
003172
003116

000002

003202

004767
046100
001404
0100&7
1040Z4
000000
0000m2

0n~04

0n000

003200

1429
14~!

003050
011&21
06271.
017H7

00320&
003Z12
00U16
0032.4

ITRDRV

17&346
aUU0
0~2bb2

CLR
EMALT
8ft
8READA I POPSP2
MOV8
RTa
BRUDO. CLR
TSTB
BPL
MDV
RT!
BHAOCI HALT
MOV

000002

'EXIT, NUMBER IN R0

'Ul,nKS

, S!T READER VielOM
,TO BREADa
,ENABLE LSR AND LSR I,
,AWAIT %NT[ARU~T.

'TK8

'CLEAR Lift! ENABLE.

UEAO

,NO RESPONSE MALT,
/TRY AGAIN,

'TK8, CRBUF

X7
flU
'TK5
BREADC
.BREAoA,1%6
• SRfADD, (bl

'CHAR RE AD TO CRSUF.
'EXIT SU8ROUTINE.
,CLUR LIlA INTERRUPT [NABLE,
, TEST FO~ DONE,
,8RANCH IF DONE NOT SET.
,MODIFY INT!RRU~T EXIT TO SRUDI,
,OK. u n INTERRUPT,
,HAL T. DONE 8IT NOT SET AFTER INTEUUPT.
IPOINT TO BRUDD •
leXtT INT!RRUPT.

BREADDI POPSP2
SR
BREAD
ITRY AGAIN.
,aUBROUT I NE TO OUTPUT ASCII MESSAGE ON TEL!TYP! PRINTER,
TYPI
Mov
"6,U
'GET ADDRESS TMAT CONTAINS MESSAGE ADDRUS.
U,U6
ADD
'SfT UP EXiT.
MOV
'ADDRESS OF MESSAGE TO RS,
TYPAl
MoVB
(0)+,TVPDAT
,GET CHARACTER
CMPB
'100,TYPDAT
'CHECK FOR"'CHARACTER
aNE
TYPC
,8RANCH IP NOT"'.
DELAY
'WAIT 100 M8ECS,

um,u

000110
000!e~

000102

000045

0000U

000043

000054

100.
TYPCI

RT!
CMPB
BEQ
C~PB

BEQ

000002

JaR

BR
000040
176234

17&242

TYPO'

100315

,MAlINa
OZKLAE

003046
003052
00305&
0030&4

170534

000742

00cH0
002674

200.

l1U52

0026bb

~e,RPa

DELAV

005017

003002

XI
RPI,n

170404

I1U14

111767
000207

0~2b54

XI
API,U
XI

SRUDO

002632

022626

1406
1409
1410
1411
1412
1413

BREAD I

000101

0Z2U6

00i!660

\407

RPI.
RP~'

002630

002662
002664

RPI,U
U,RP\

ueas

1358

1391
IH8
1399
1400
1401
IU2
1403
\404
1405
140.

UV001

10400b

135q
1360
1361
1362
1363
1364
1365
13b&
1367
1368
1369
1370
1371
137.
1373
1374
13T5
137&
1311
1378
1379

1396

easelS

001213

052177

II
II

ADD
MOV

ADD
AOL
AOL
MOV
MOV

000207

UlIU2

AO~

RO~
RO~

01UU

BU'H
mUSH

snUb

01mmu

e6"um mimen

001&22

001610
U2614
002616
SUbU
00i!Ui!

RO~

un34

0'.\00
00.\00

aune

902572

PAn 38

17-NOV",75

000"15
177750
000012
117736

000002
000014
117777

1",0&

000020
000006

000006

MOVB
TSTB
BPL

#45, TVPOAT
TYP'
'43, TYPDAT
TYPG
XT,TYPO
TYPA
TYPOAT, nPB
HPS
,-4

,TERMINATOR CHAR. DONE, EXIT •
'CH~CK fOR"S-,
,BRANCH IF"X"

,NCTItX" ,CHECK FOR"#" t

"ii'

,BRANCH IF
'TYPE CHAR IN TYPDAT
'OUTPUT CHARACTER TO PRINTER
,WAIT POR DONE F"AG.

PAGE 31

RTS
X7
,EXIT
MOVB
il15, TYPDAT
,MOVE CARRIAGE RETURN CODE TO TVPDAT
JSR
X7, TYPO
,GO TYPE CHAR,
TYPGI
MoVa
ilI2,TYPOAT
'MOV~ LF CODE TO TYPDAT ,
JSR
X7, TYPO
,GO TYPE CHAR,
BR
TYPA
TYPOAT I OPEN
I SU8ROUTI NE TO OUTPUT A SERIES OF ASCII MESSAGES ON TE~ETYPE PRINTER
TYPSI
MOV
n6,X0
,GET ADDRESS THAT CONTAINS MUSAGE ADDRUS
AOD
,UPOAU TO NEXT MESSAGE ADDRESS
'2,n6
MOV
'U, TYP58
'ADDRESS OF MESSAGE TO TYPSe
CMP
h i , TYPSB
,CHECK FOR TERMINATOR
TYpeA
BNE
,BRANCH IF NOT TERMINATOR,
RTI
/TERMINATDR, EXIT
TYPSAI
TYPE
'CAL~ ON TYP SUB TO TYPE MESSAGE
TyPSB.
OPEN
, ADDRESS OF MESSAGE GOES HERE
BR
TYP5
,GO PROC~SS NEXT MESSAGE
'SUBROUTINE TO OELAY A SP!CIFI!O NUMBER OF MI~LISECONDS
TYPF I

DI..CNTI'II 0+2
000000
000002
177H.
17410&

OLY I
1717b4

MOV
ADD
Mov
CLR

(6l, #0
lIi,OX6
'D~CNT, O~CNT

PS.

'G~T DELAY COUNT ADDRESS,
,SET UP EXIT ADDRESS
'DELAY COUNT TO STACK
,SET PRIORITY 0

MSEC II. +2
000000
000042
000034
000026
000020
000012

000046
000040
000032
000024
000016

DL VAl
DL YB I

MOV
MoV
MOV
MOV
Mov
DEC

040000

176074

117334
000014
000U2

0032\0
011627
0U71&
0177&7

000000
0000e2
177766

0050&1

1145A~

177764

,1 MSEC COUNT TO DLYT

'DECREMENT DLYT ,
,BRANCH IF NOT 0,
DEC
,DECREMENT COUNT
BNE
,BR I~ NOT DONE DELAYING
RT!
,EXIT •
DI.YTI
OPEN
'SUBROUTINE TO STALL A RANDOM NUMBER 0' MIL~I8ECONDS, MAXIMUM STA~~
'OETERMINED BV CONTENTS OF LOC STI.MSK,
SUI. t
BIT
nITI4,PRGIO
/TEST FOR STA~1.5 AUOWED,
8NE
BrA!.AA
,AI.LoWED,
RTI
,NCT ALI-OWED.
STA~AAI JSR
X7,RNGEN
,GO GET RANDOM NUMBER,
8IC
STLM8K, X0
"
IN Rm, APPLY STALL MASK,
B[Q
STA~8
,BRANCH I f RESULT IS 0,
MOV
UrSTALA
DELAY
,DEI.AY
OPEN
STALAI
'DE~AY COUNT
STALB.
RT!
,DONE, EXIT,
ST~MSKI OPEN
, STAL~ MASK,
'READER DEI.AV ROUTINE,
RDI.CNT",+a
MOV
(6) ,fa
ROLY!
ADD
'2, (6l
MOV
'RD~CNT, RO~CNT
,GET OEI.AY COUNT,
PSW
CI.A

BNE

177710

U,OLYT
DI.YT,DLYT
01. VT, O~ YT
DI.YT,OLYT
DLYT ,DI.YT
DLYT
OLya
DLCNT
DLYA

,MAIN,
DZKI.Af
1434
143~

MACH I iT (b5Yl

I ToNOY.?5

anue
mnu.

mU0U

0111167

1431

U&HT

IUS
143)

003206

0053&1
0013&1

unu

016167

144~

muz1Z

1"41
1442

00JiU
mU300

001353

1443
1444
1445
1446

303302
003304

030010

0~330b

InUb

00004.

00ZU4

0001311

menu
maar eeau. aum24
01&1&7

eU244
003252

IUb

00n~1

e01SU

eumu

032761
001001

040000

0033~0

177174

0""00

1'1654

000002

1451
1452

003330

003332

0100H

1453
1454
1455
145&
1451
145S
145q
14b0
1461

00333&
003340

104025

0000W0

003342

000002

003304
003352

0U721
005067

~~J356

012721

~033.4

003400

0053&1
001315
0053&7
0013&1
000002

003402

0Z4a7

00~050

00HZ6
003412

004167

000044

14bq

003376

1472

00341 b

1413
1474
1415
1476

003422

0U167

00343~

00343&
003440
003444
00344&
003454
003456
0034U
0034&2
003466

1621&7
103403
0052&7
000711
0167&1
000207
104007
003542
005067
005077

003472

052117

003500
003506
0035\4

01b7&1
01b7&7
016767

1478

14H
1480
14 8 1
1482
1463
1484
1485

1486
1487

,MAINe
DZKI.AE
1488
148q
1490
14 q l
1492
1493
1494
1495
1496

003414

150&

1507
1508
150~

1510
1511
151i
1513
1514

000000

177752

175760

003636
003642
003b46
003654

004161
0041&1
IIba7
004H7

e036U

IlbHT
~0aar

ISal

00366&

1522

003b72

15~3

003100

00QH7

15i!4

003704
00310&

000754

ISiS
152&
1527

1528
1529
1530

1531
1532
1533
1534
1535

003714
003116
003114
003730
003734
003140
003744

003750
003154

laar

0127&7
000207
mUa7

UGHr
010061
004Hr
010061

177416

115726
175524
000100

175514

115110

1757~6

17S7U

175700
175672

175674

14,06

115664

17bH2
000~ 10

000004

000262
175557
17555i

115551

175554
000002
000164
116124
115512
176712
115500
176700

1754b6

175512
1155~2

175472

000012
000003

175466

0010U

000100

000134

004Hr

115440
000124
175432
000114

0100&1
026161

175406

17~424

175412

115~0m

175404

02.aT

175372

11537.

1!40

003714
004002
004004

1541

004010

15'1

153q

001003

0U71b
000U7

JSR
BIC

pc, RNGEN
STLMSK,1m

'STA~I.'
IU IF YES,
IND.
,GET RANDOM NUMSgR.

un,

RSTI.8
,0fI.AY.

,DONI, Exn.

'COUNT TO D~YRI.
1 DECREMENT 01. YR I,
'IR I~ NOT 0.
I DECREMENT D~ YAm.
,eA IF NOT 0,

,EXIT.

sue

TlMCI.B I

DVQUOT
DRCTR,OVONO
'1U.,OVOND
T1MCL.S
DVQUOT

TlMC~.

MOV
RU
STPCHV
TSPCHA
CI.R
CI.R

DVQUOT, MSEC
PC

SIS
TSPCHCI MOV
MOV
MOV

BRCTR
'TPe
fBlT6, ~TP5
BRCTR,SRCTR
BRCTR, BRCTR
BRCTR, BRCTR

'SAVE 8RCTR CONTENTS.
,DVDNO·IU
IBR IF UNSUCCESFUI..
,INCR QUOTIENT.
IUVE 1 "SEC CaNST ANT.
IEXIT ,
IseT UP VECTOR.

II.OAO suFFfR WITH 0,
,ENABI.E INTERRUPT.

PAGE 33

MOV
BRCTR, SRCTR
BRCTR
INC
TSPCHC
BNE
,eR I f RfSUI.T NOT 0.
EMI. T
I NO INTERRUPT FROM PUNCM/PRINTfR,
SR
#TSPCHB, Co,
TSPCHA' MOV
,MOOIFY INURRUPT EXIT TP STPCHB,
RT!
,EXIT INTERRUPT,
TSPCHB I RU
PC
,EXIT,
I SUBROUTINE TO GENERATE RANOOM CHARACHR COUNT
GRCNT I
X1, RNGEN
JSR
I GET RANDOM NUMSER
RCMSK, X0
BIC
'APPI. Y MASK
GRCNT
SEQ
ITRY AGAIN IF REBUt, T
MOV
X0,RNCNT
ICOUNT TO RNCNT
RTS
X1
IEXIT ,
RCMSK I
OPEN
,RANDOM CHARACTER MASK.
RNCNT'
OPEN
,RANDOM CHARACTER COUNT,
,SUB TO COMPARE RUDER DATA AGAINST EXPECTED DATA AND REPORT ERRORS,
SCHECK I JSR
X1, GTBIN
,GET BIN CHARACTER ON R0l
MOve
X0, CRBUF+I
,SIB CHAR TO CR~UF.I
CMPB
CRBUF, CRBUF+I
,COMPARE SIB AND WAS CHAA8,
,+4
SNE
I BRANCH IF NDT SAME.
RTS
17
,SAME. EXIT,
OA 7H~ T
,GO HA~T AND DISPI.AY DATA.
DEC fRCTR
,3 ERRORS?
,+6
SNE
IBRANCH IF NOT 3 Yn,
JSR
X1,BSYNC
,3 ERRORS, RESYNC READER,
RU
17
,EXIT •
'SUBROUTINE TO SYNC THE I.SR TO A SPECU~ BINARV COUNT PATTUN TEST TAPE,
BSYNC,
JSR
U.lNSIN
IINITIALIZE BINARV PATTERN
JSR
X7, ~RfAD
,READ CHAR AND STORE AT CHRI
MDVe
CRBUF, CHRI
X7,BREAD
JSR
,READ CHAR AND STORE AT CHR2
MOVa
CR8U~, CHRi!
JSR
n,SRUD
,RUD CHAR AND STORE AT CHR3.
MOVB
CRSUF, CHR3
X1,SVNCA
JaR
IGO SYNC
SR
BayNC
IND SYNC, TRY AGAIN,
_3, [RCTR
MOV
K7
RTB
, SUCCESS, EX IT.
SYNCAI
MDV
1512 TO avCTRA,
UI2"SYCTRA
SYNCS I
JU
X7, GTBIN
ISIN CHAR TO CHRIA,
HDV
Xi!, CHR IA
11, Gr8IN
JSR
,8IN CHAR TO eMRilA,
MOV
Xe,CHR2A
JSR
n,GT81N
'SIN CHAR TO CHR3A,
MOV
¥0,CHR3A
eMP
CHR I, CHR I A
,MATCH?
SNE
SYNCC
,5R IF NOT,
CM~
CHRZ,CHRH
,MATCH?
INf
,BR I~ NOT,
S'NCe
CMP
CHR3,CHR3A
,MATCH?
ONE
SYNCC
,SR %, NDT.
ADO
'6l
/SET UP SYNCED UIT,

003550

001013
Ub1b1
001007

15J8

TIMCI.AI

TSPCM I

U3162
003764

\53.

R$TI.A

SRESET
CI.R
MOV

175154

17574&

1515
151&
1517
1518
151q
15a0

BN!

SI.O
INC

000in
104017
005367
001002
00"167
000201

IEXlT.

X0,R8T~AA
MOV
RDEI.AY
RaTl.AAI OPEN
RSTI.BI
RTI
, SUB TO DEI.AY X TIME,
DI.VRe.DI. YXU
0I.YRI.DLYXH4
01. YX I
MDV
'100 .. #0
paw
CI.R
DI.VUI
MOV
*IU0".~
DI.YX91
DEC
D~ YRI
D~ YXS
SNE
DEC
DLYR0
SNE
OI.YXA

1757bb

n1434
000711
01271&
000002
000207

004167
110067
12&767
001001

'8R I~ NOT I,
,DECR!M!NT COUNT.

,DR %, NOT 0.

O~I.AYX

17577b
115166
000144

00353~

00357.
003602
003606
003&14
003616
003620
003622
003Ub
003&U
003&34

,DECREMENT DI.VR,

OPEN

175bbb
17S.U

0041&7
046100
001713
010007
000207
000000
000000

RDLCNT
RDLYA

IDEI.AY ROUTINE CAI.18RATE RouTINE.
TIMCAI.I JSR
PC,TSPCH
,DUTPUT CHAR.
JaR
PC, TSPCH
'OUTPUT CHAR,

0~13&1

003552

15~0
15~1

000000

0161b7
005267

00355&
003562
0035U
003570
003572
003574

1502
1503
1504
1505

000144
114420
001750
177172

0~3534

1498
149q

RDLYI

DEC

003522
003530

003550

SNE

,READER STALL ROUTINE.
RnA~I
SIT
'BlTl4,PRGID
RaTl.AI

IT.NOV·75

1497

Oft

RTI

MACV11 27CbS71

003540
003542
00354&

D~V~,DLVM

DI.VR,DLVR
DLVR ,DLYR
DLYR,DLVR
DLYR

~Ov'

001404

104400
104011
005061

1471

115734

003350
0033b2

~03372

M8EC ,DI.VR

RT!

0033i4

1410
1411

mnu.

OLVR I

144q
1450

14b5
14&&
1467
1468

MOV
MOV
MOV
MOV

nUB2

0000m2
004H1

003310

RDLVAI
RDI.VBI

eN!

003316

14b2
14b3
14b.

~AQE

117710

1447
1448

003314

1418.

nun

ea,
¥7

,EXIT ,

aM£'lN,

NACYIi

OZKLAE
IS42
1543

ncun

IhNOY~15

141"

mane;,

PAGE U

DEC

n4011!

USH?

0U0"

00134l!

8NI

lUlU

!HA~T

0040U
e64U4

UUB?
G0UU

1548
1549

0UUb
0UU4

0UH1

l5'm

104040
194042

IUUm

1544

1545
1546

nuu

aVNCCI

1554

1555
ISS6
1557
1558

1559
1560

1561
15b2
1563
1564
1565
1566
1567

15b8
1569
1570
1571
1572

1513
1514
1575
1576
1571
!518

004044
0B4U6

117771

u.s.? mmUGe

000014

1581
1582
1583

nuu
00U80
000000
00000e

0040U
004012
004016
004102
004104
004110
004116
004124
004130
004132
004140
004144
004150
004152
004156
004164
004172
004176

016167

111762

0051&1

177756
177706

1584

~0Q21&

1585
158&
1587
1588
158q
1590
159 !
1592
! 593
1594
1595

004220
004222
004224
00422&
004230
004234
004240
004244
00424&
004250

"MAIN,
OZKl.AE
159&
1597
1598
1599
1&00
160l
1 b02
1603
1 &04
1605
1606
1607
160B
1609

Hie

1&11
1612
1613
1614
1615
1616

1611
1&16

I6lq
1620
I b21
1622
1623
1&24
1&25
1626
1627
1&26

004252

1777U

001002

005267
04Z7.r

111144
171400

0UHr
016100

I77TH
117724

004254
00425&
004260
004262
004264
004270
00~274

004300
004304
004310
004314
004316
004322
004326
004332
004334
00433&
004340
004342
004344
00434.
004350
004352
004354
00435&

0043&0
004362
004366
004310
004372

171736

!771l&

RTS
I?Hili
177716
17770&

1771i/2

17767&
177666

004374

000012
000052
000122

00b~67

006067
006067
005302
001361
000207

1632
1633

1634
1635

00437&
004402
00440&
004412
004414
004416

1642

004420
004424
004426
004432
004440
004444

000012
000024
000074
ACNVC I

! 7-NOV-75

\4106

ACNVX I
ACNVI

004262
00000&
171762
111156
177710
0000&0

ACNVM.

177740
177134
117730

1643
1b44

001315
104021
000205
105177
10000!
000207
104010
000172

174&2&

004767
010071
105771

Ina0
174&10
174602

100315
005000
000201
015135

Ul5~1

004450

005367

000044

001371
000205

U4T
1648

004454
e0445b
0044U
004464
004470

1&49

W04472

005267

1645
1646

005067

I ,bTU

JSR
A151+2
OPEN
4

OPEN
OPEN
OPEN
OPEN
MOV
MOV
MOV
MOV
BIC
ADD
MOVB
ROR
ROR
ROR
DEC
BNE

COUNT PATTERN SUBROUTINE, EXITS WITH BIN CHAR IN R0
PT0,PT!
,PREVIOUS BIN CHAR TO PYI

PTI

RIND

PTI

'177400,PTI
PTI,PTm
PTI,U

PT0P,PTIP

PTlP

,MASK TO B BITS
'SAVE BIN CHAR IN
'BIN CHU TO RB.

,un,

,PREVIOUS BIN CHAR TO PUP

PINO

.+6
pup
_171400,PTIP
PTIP,PT0P
PTlP,U

IEXIT,

CONYE~T

,MASK TO • BITI,
,SAVE BIN CHAR IN PT0P.
,BIN CHAR TO RI.

ROUTINES

(5).,U
(5)., ACNV8
X7,ACNV
X5,BMOVE

'CONVERT TO 6 ASCI!, GET OCTAl. AOOREU
,GET ASCII ADDRESS
/CONVERT TO ASCII
,MOVE 6 CHARS TO AScn AOORE58

000036
000034

103403

000024

000360

15
(5)., X0

'EXIT

(5) +, ACNVC
X7,ACNV
15, SMOVE

'CONVERT TO 4 ASCII, GET OCTAL ACDRUS
,GET ASCII ADDRESS
'CONVERT TO ASCII
'MOVE 4 CHARS TO ASCII ADDRESS,

'EXIT

tAl5T+6,Xl

1A0DR TO STORE ASCI! TO RI
'6 TO R2
'OCTA~ WORD TO ACNVX

'6,~2

U0, ACNVX
ACNVX,X3
'111770,%3
'60,%3
Xl, - II)
ACNVX
ACNVX
ACNVX

'ISO~ATE ~EAST SIGNInCANT OCTA~
'AOD 60 TO CONV~RT TO ABC II
,STORE ASCII BYTE
,MOVE NEXT OCTA~ OIGIT TO ~EAST
'SIGNI~ICANT POSITION

'DONE 6 T! ME!?
, NO, REPEAT,
IYES, EXIT,
, SUBROUT I NE TO MOVE A VARlAB!.E NUMBER OF BYTES.
SMOVE I
SAVREG
'SAVE REGS,
(5).,%1
MOV
,GET "FROM" ADDRESS
(5)., ~2
MOV
,GET "TO" AODRESS
MOV
15)., Xl
,GET COUNT
eMOVA I
Move
,MOVE eYT!
IIl·rl2,DEC
U
'DECREMENT COUNT
BNE
8MOVA
, BR ANCH IF NOT DONE.
RSTREG
,RESTORE REGS,
RTS
15
,DONE EXIT
'SUBROUTINE TO C~ECK FOR PUNCH REAOY.
CPROY I
Tne
,TEST fOR READY BIT,
'TPS
CPROYA
,BRANCH IF READY NOT 8ET,
BPI.
RTS
%7
,OK, EXIT,
CPRDYA I EHAI. T
'NOT READY, HA,T,
BR
CPRDY
'SUBROUTINE TO PUNCH ON ~SP CHARACTER IN REG 0,
I.SPCHI
J8R
X1, CPROV
,GO CHECK FOR PUNCH REAOY,
u,np!
MOV
'~OAD PUNCH BUFFER,
UT8
'WAIT FOR DONE,
'TPS
._4
BPI.
U
C~R
RTS
U
'DONE, EXIT,
,BINARY TO DECIMA~ ASCII CONVERT SUBROUTINE,
BDCNV I
MOV
,SET UP ADOR TO STORE DECIMA~ ASCII IN Rm
'DfCVAI.,10
MOV
H5)+,XI
,BINARY VA~U[ TO RI,
MOV
UDTENP,Xi!
, ADDR OF TEN POWER STRING TO RI,
MOV
$5.CNVCTR
,SET UP FOR 5 POWER CONVER8tON8.
aOCNVAI MOV
(2)., TENPWR
,MOVE POWER OF TEN VALUE TO TfNPWR,
JaR
X7, SUSTEN
,PERFORM CONVERSION
CNVCTR
,OONE 5 CONVERSlONS7
DEC
BN!
aOCNVA
,BRANCH IF NOT VET 5.
RTB
n
'YES, EXIT.
SUBTEN, C~R
OIGIT
,CLEAR DIGIT
SUBTNAI SUB
TENPWR, U
,SUBTRACT TEN POWER FROM BINARY VA~UE.
sea
SUSTN8
,BRANCH IF UNSUCCESSFUL SUBTRACTION.
INC
DIGIT

RTS

~04 7 b 7

1&40

'EXIT

PAGE 35

AIST.

00452&
000005
0000&0
000010

1b41

RTS
MOV
MOV

005303

012700

A1ST
OPEN

J5R

104020
012501
012502
012503
112122

01i!102
0127.7
0122&1

rnT A~~ VARU8bU
'TO MINUS I.

hi ,RIND

b
ACNV4I

163~

1&31

!03S
Ib3q

INC
BIC
MOV
MOV
RT5
, OCTA~ TO ASCII
ACNV6,
MOV
MOV
JSR
JSR
ACNVB,

0.000~

000000
000000
000000
012101
012702
011067
016703
042103
062703
110341

GTBINPI MOV
COM
COM
BN~

171704
177400
177672
177664

!62q
1&30
1631

OPEN
OPEN
OPEN
PINDI
OPEN
PTZPI
OPEN
PUPI
OPEN
,SPECIA~ BINARY
GTSINI
HOV
COM
COM
BN!
INC
BIC
MOV
MOV

Z0nZT

HACHI 27(651)

n,8MOV!

PTm,
PTI.

000010

012500
012567
004767
004561
004254
000000
000006
000205
012500
0125&7
004a1
0045&7
00425&
000000
000004
000205

JIR

RINDI

mU056
004060
004BU

004200
000202
004206
004212

MOY

mune

004050
U4052
m04054

0UH7
0051"
005167
001002
0052H
0427H
016167
016701
000i07

ISA IF NOT.
IV!S, SYNC EnROR,
ISYNC ERROR EXIT,

RINO
RIND_I
II.

1579
1580

XNalNI

004051
0U0l3
mUUT

0nu?

HRteD 112 nHU?

neTRAt OPEN
I3UnOUTlN! TO INITU~1ZE UNARY COUNT PATTIAI/a,

1~4T

1551
1952
1593

SvtTRA
IVNCD

ACNVM

MAIN I

MACY! I

HeUn

U44h
U05ae

aU772
06UII

DZK~AE

IUC
\651
1612

104584
SU512

1651

U4520
004522
004524

IU4
IUS
IU6
IU&

16'~

16'0
IHI

1662

e045"

004526
0M5~e

a04532
004534
0045]6

IUU1
11'111

17~NOY~n

......
.. emae

aenu

1665
1666

1667
1668
16H
1670
1671
1672
1673
1674
IUS
1676

Ib11
1618
1679
1680
1681
1682
1683
1684
1685
1&86

IUT
I6B6
1689
1690

lUI
1&92
1693
1694
169~

1696
1&91
1698
1699
1700
1101
1702
1703

,MAIN.

004540
004546
004552
mU554
004556
0045&2
004566
004570
004512

IlueB
008011

0000el
eUT04
104012
11i!4U
004Hr
005H7
001311
0UUT
000ue
0116U
06~716

004612
004616
004620
004626
004632
004634
004642
004650
00465&
U46U
004&72
U4f0e

004567

00412&
004730
004732
00473&
004140
004742
004144

UTa7

e0ue0
04i!H1
004167
000092
112761
112767

1127.,

000114
015141

000024

RT.

DUIT, ell.

'CONVERT (OlG%T) TO AICII
'MOVE Ascrl CHAR TO D!CYAL

'UIT,

OPIN
OPIN
OPEN
Ilsee.

~!gLD.

le0e.

00001&

unu

nun

000010

00;064
040000

174422

171706
000015
n001!
000015

0000U

012567
004567
000010
015144
000003
004567
015144
015147
000105
004567
015144
015256
000110
000205

000004
171426

000015
000012

I
'SUBROUTINE TO TYPI A LINE of CMAAACT2R6
MOV
"6 TO CHAR COUNT
'H"TCTR
TYPLA I MDV
.a~OCKA, u
ISET LIN~ ADDRESS IN R4,
TVPl.61 STA~1.
,aTAI.L IF ALLOWED.
MOvS
(43·,U
IGET CHAAACTt:R
*7,I.SPCH
JU
OUTPUT CHARACTeR,
TeTR
DfC
,DON!'
TYF~B
,BRANCH IF NOT DONE,
IN!
X1
RTS
'CONE. EXIT
TeTRI
OPEN
/SUBROUTINE TO TYPE LIN! OF 3 CHUACTIRS
TYPI.3. MOV
P¥6,TPI.3A
'D£V~LOP AND seT ADDRESS OF
MOV
'TPL3A, TPL3A
IDATA IN TPLlA.
ADD
,SET UP nIT.
X5,FBF3
JSR
IFILL 6U'PER WITM l CHARACTERS
TFL3A. OPEN
BIC
'BITI4,PRGID
IDlSULf STALLI,
17, TYPLN
JSR
,GO TYPE LIN~ OF CHARACTERS,
,EXIT •
RlI
STBr I
Move
'I5,B~OCKA
Isue TO SET UP BUFFER AREA.
TYP~NI

,ao

171&14
000004

IIia7
112767
Ilia1

anUT

,RIITOR! aUITRACTID VALue.

'U,OIGIT

100.
Ifi.

000012

e045H
004U0

004724

,Hova

leU"
e0U44

012H1

SUITNA

TlNPWR,1I

BUnNI! ADD
ADD

CNVCTRi
DIGfTl
TE NPWR I
ADT!NPI

eauu

00460&

004102
004706
004712
004714
08471b
B04ne

PAGE J&
U

snell

UUI7
lUlU

U63

1664

1410b

010300
010273
010376
010371
010474
010461

_a,u.

STSf ..

Move
Move
Mova

U2,B~OCKA·1

'15, BLOCKS
U2,BLOCKS+1
'15,B~DCKC

Move

Move
RU

812,81.0CKC+I

,EXIT

I SUBROUTINE TO FU.1. CHARACTER BUFPER WITH 3 CHARACTERS,
FBF3.
MOV
(53-, F8F3.
X5,8MOV!
JSR
,MOVE J CHARS TO BurnR,
FBF3 •• OPEN
SI.OCKI

3
117414

FBF381

177402

15, BMOVE
J5R
BI.DCK I
8LOCKI.3
&9,
JSR
15, BMOVE
B~OCK I
BLOCK2
12.

MACYI! 27Cb571

IT-NOV-15

004746
004752
004754
00415&
004160
004164
004766
004770
004772
004776
005000
005002

17736b

1410&

'FI~L 12 CHARACTERS BUFFER

IWITH 3 CHARACTERS

/EXIT

PAGE 37

DZKLA~

1704
1705
170b
1707

005U4

0045.7
014176
015144
000077
004567
01411&
015Z43
000011
0045U
015144
015256
000110
000207

005006
005012
005014
005016
005020
005024
005026
005030
005032
005036
005040
005042
005044

004567
014U2
015144
000006
0045U
015144
015152
000102
004567
015144
015256
000110
000207

177326

1733

005006
005052
005054
005056
005060
0;5064
00506.
005070
005072
005076
005100

004567
014110
015144
000006

177266

1734
1735
1136

0045U

177254

1108
1709
1710
1711
1712
1713
1714
1715
1716
1717
1716
1719
1720
1721
1722
1723

1124
1125
1726
ITi1
1726
1729
1730
1731
1732

1137
1738
1739
1140
1741
!f42

\143
1744
1745
1746
1741
1148
1749
1750
1751
1752
175]
1754

005102
005104
00510&
005112
005116
005120
005126

005132
005136
005142

I aUBROUT I NE TO
FBALL I JSR
A
BLOCK I

Fll.~

72 CHAR BUFFER WITH
'ALI. CHARACTERS.

'FI~~

JaR

X5,eMOV~

SLOCK 1+63,
9,

177342

JaR
15,8MOVE
BI.OCKI
BI.OCK2
72,
RTS
17
leXIT •
,SU8 TO FI~~ BUFHR WlTM 33 WORST CAIE PATTERN,
FW336. JSR
X~, BMOVE
16 CHARACTER PATTERN TD 8UFFU
A33WP6
BLOCKI
6
IS,8MOVE
JU
IFlL~ BUFFER WITH PATTERN,
BL.OCK I
B~OCK 1+6
b6,
15,SMOVE
JSR
BLOCK I
8L,OCK2

177314

11T302

72,

X7
,UIT
RU
'SUB TO FIl.l. BUffER WITH 35 WORST CAsE PATTERN,
FW3561 JSR
, . CHARACTfR PATTERN TO BU'FER
.S.8MOVE
Al5WP6
B~OCKI

6
JSR
a~OCK I

zUlU

BLOCK 1-.

005177
105171
100375
111767
116713
11'780
00oa7
000207

WITH AL~ CHARACTERS

.3,

177354

015144
0001U
004567
015144
015256
000110
000207

BUFFER

X5,~MOVE

15, BMOVE

IFl~~

DUHER WITH PATTERN,

66.

JaR

117242

n,aMOV!

B~OCK I
BLOCK2

12,

~TS
X7
IEXIT.
'ROUTINE TO an CHARACTER FROM K!YBOAAD,
GKBCRI Tn
ITKB
ICL!U DON!.
I1KS
TSTB
IWAIT FOR DON! F~Aa.

114\10

114012
114166
174232
114216
177234

174236

BPL

,.4

HOVB
MOya

'TKS, CRBUF

Hove
JIR

CReu', (3).

I CHUAcnR TO CRBUF,
ICHARACTER TO LINE BUPFER,

CRBU', X0
IT ,I.SPCH

I ECHO CHARACTER,

-... -.--.----..

-.~-.--

.. -

,"AXN,

DIK!.A!

1755
ITS.
InT

""
""

lfie
'''I
1762
1163
1764
IT'!
1766
1761
IU.

1770

1111

ITT2
1713
ITU
177!
1776
1177
1778
1179
1180
1181
1782
1783
1784

.15151

...... ...".

11I1S6

I .....

• 15144
lIS I ..

111161
'8"64
lIS \66

115174
les2U
.85112
eU214

mauu

ee5210
105112

177771
lun7

••'''7 17""

lun7

184112
lUlU
leUI2

•• 5112
17411e

l7uae

linn 115232

1118

1852U
185244

1190
IT91
1192

0B5141>

011167

172561

1T37U

118~

U5254
e052 ..

"'3
\194 eeslu

005717
184012
184en
104012

00526.
885210
005272
005214

800013
115316
001750

00na
aaS3.4
085310
005312
Be5314

0UUT
eeST71
114012
104013
1040\2

1195
1796
1797

1798
1799

1810
1811
lUI

1813
1814
1&05
1806
1801

0052 . .

172531

,MAIN(I

1809
\810
lSll

\812
1813
1814
1815
181&
18\1

1818
181~

\820
1821
1822

1823
1824
IUS
1826
1827

l82a
1829
1830

005326
005334
005342
105350
U5352
ml5354
00535&
0053&4
005372
005374
0053h

012167
052777
832177
00\002
114083

IUS08

005400
115412
0054e4
U5406

008805
005442
880144
005416

000340
BellA0
leelee

172442
113646
173640

100180
000100

173614
173616

1831

1838

184m
1841
1842
1843

1844

0054\0
005416
005424
005426
005434
B054J6
n,440

012T"
152177
U411l
032771
001481
1B4103
104012

185442
005444
n'446
005451

eBue6
ees416
ee0U4
e05454

1848

1849
1850
1851
1852
1853
1854
1855
185,

1851
\858
1&59
1&60
U.l
1862

ee5452
U5454
185456
185462

'*""."

t t t . t *t" *t

*'." *. '*. *.

*'''"." 'Ill"""

*. tate.t ••• t . t t"""* tet*t". *•••• *

p.n
I ••••
PICA

III ••

I PRGe TEST ROUTINE Z
'ADDRESS OF NEXT ROUTINE
,TEST ITERATION COUNT
,aCDPE ENTRV POINT

*."

•
'ill

*ettt •••••• t . t ••

••

HOV

TST

SCOPE
UROR
SCDP!

'PICE,MACHER
ITP'

3
PIT4
lIee.
PIOA

'SETUP MACHINE ERROR TRAP.
,REFERENCE PUNCH/PRINTER STATUI WORD.
IICOPE
,ERROR, TRAPPED WHEN REFERENCING
,PUNCH/PRINTER STATUI NORD tTP81.

tt"" *t .It .... t* t* *.".tt* •••••• " 1Ir* tt** •• **.t *t.
, PRGI TEST ROUT IN! ]
'ADDRESS OF NEXT ROUTINE
'TEST ITERATION COUNT
,SCOPE ENTRY POINT

•

_fl.*.*" •••••

4
PITS
1800.
PlEA

, PRGB TEIT ROUTINE 4
I ADDRESS 0' NEXT ROUTINE
'TEST ITERATION COUNT
,SCOPE ENTRY POINT
, .......... "t. t t . tt*."'. *t .. *."'."'''' ... t t t t . *t." .. *t" *.* '* .. " t t t ... *.... ****** III tfl. *'It •• *.*.
ITUT ABILITY TO SET AND C~EAR RUDER/KVBD IE aIT.
HOV
'PRTY7,P8W
,SET PRIORITY 7.
P0U.
SIS
UIT6,ITKS
'S~T ID BIT IN TKS.
taIT6,fTU
BIT
,CHECK 10 BIT IN TKS
PIES
SN!
,SRANCH IF 10 BIT IS SET,
ERROR
,ERROR I 10 BIT NOT SET,
SCOPE
PeESI
.SITb,nKS
BIC
,CLEAR 10 BIT IN TKS
,CHECK ID BIT IN TKS,
BIT
'8IT6,fTKS
BEQ
PeEC
,BRANCH IF to BIT IS CLEARED,
ERROR
'ERROR, 10 8IT FAILED TO CLEAR,
PeECI
ICOPE
,ICOPE

, *•• *.,,*,,*
... *" **." *...... "*t*"'It .. ,,., *".
"""*" .. ,,. *•• " .. *••• "t* ••• ".* •••• "'* •• "" '*
5
PRGe TEST ROUTINE 5
PIT6

,ADDRESS OF NEXT ROUTINE
'TEST IT~RATION COUNT
,SCOPE ENTRY POINT

UI.

PBPA

•

, "••• "'It,, •• t* .""',, """',, '" *"""""." fI"" "* *........ **" ** 'ill *•• **"" *" ••• *." *",* *"**,,"',,.

n0UI
nl180

1123U
173564

000181

173554

'TEST AULITY TO CLEAR 10 BIT WITH RUET INSTRUCTION,
MOV
'PRTY7,PSW
,SET PRlORITY 1,
UIT6,fTKS
P.FAI
B18
,SET 10 BIT IN TKS
IRUET
,USET
nITb,fTKS
BIT
/TEST 10 SIT.
BEQ
.+4
'BRANCH IF 10 BIT IS CLEAR,
ERROR
,ERROR, RESET 'AILED TO CLEAR 10 sn.
ICOPE
,SCOPE

, \IIi" \IIi • • • " It ttt ••••••• *\IIi. \IIi • • • "'II" *••••••• **"

lilT"

•2e.
PITT

.*.* •• *" _fr .... III. *._ *"." *t."' •• ",,,,,,,
*",

, PRGI TE8T ROUTINE •
,ADDRESS OF NEXT ROUTINE
,TEST ITERATION COUNT
ISCOPE ENTRY POINT

P'GA

•

'** ••••• "." •••• "•••••• "•••• " •••••••• _••••••••••• "." ••• *"' ••••••••• *•••••••

1845

1846
1847

I ••••
PIU

PAGE 39

PmT5'

1831

1832
1833
1834
1035
1836

ttl

!TEST ABI~ITY TO REfERENCE PUNCH/PRINTER BUF~ER (TPBI.
MOV
.peOE,MACHER
,SETUP MACHINE !RROR TRAP,
P0DAI
PTPS
TIT
,REFERENCE PUNCH/PRINTER BUFFER,
SCOPE
,aCOPE
ERROR
P00E.
'ERROR. TRAPPED WHEN R!~ERENCING
aCOPE
,PUNCH/PRINTER BUFFER. (TPSl.
, t t '" "' .. *......... ** .... t . t ........ *"',., •• ***'Ii tt .... t . . . . . . . . . . " 111"' '* *... t. *III" .* •• t • • ,.,t.*

P0141

805334

104UI

'*"" "' ' '*" '" a* t •• ',* *.t
'* "' ••TI8T
'* "''' '" ROUTINE
*" .... "'." *" 'I* . . '*" .. '*" .. Ii"'" '* •." "'."",,* *."
PR.e
•

r t t ••• t •• t . t •• t,.,t* .... tttt"'* tt.1t *.... "'.* t ..... t* *." .. fit • • *ill'" *•••••••

815312
173706

801150

04nn
032717
001401
114003
104012

p.n

,8ET UP MACHINE ERROR TRAP,
IREPERENCE CDOER STATUS waRD.
IICDPE
,ERROR. TRAPPED WHEN ftEFERENCZND RUDU.
,STATUS WORD (TKII.

''''U,MACHER
fTKI

, .t*tt_ ....... ""t* .. " ...... *t" .. *t""

MACYII 27(651) 17-Nov·n 14.16
PRG0 • INPUT.OUTPUT LOGIC naTS
leeee4
005400

peCAI

P0U.

005304

115316
105320
005322
005324

MOV
TIT
ICOPE
IRIIOR
ICOPI

,'TEST
•**" *".
**,," *t" *t .. *" ............... "*.... " ... *'. *.. """ ... *.... '* .. *t .. """" fl • • t iII._"" *""" t *" '*
ABILITY TO REfERENCE PUNCH/PRINTER STATUS WORD (TP81.
PICE'

IUS

DZKLAE

•..I ••••
In

,.t ttt*.""" *

PeTI'

105262
113734

IDa GET nuna,

I 1'1111 TEaT ROUTINE •
IADDRla. OF NIXT ROUTINE
ITEaT ITIRATION COUNT
IICOP! INTItY POINT

'ADDR'8S 0' NEXT ROUTINE
,TEST ITERATION COUNT
,SCOPE ENTRY POINT
,,TE8T
•* **.
*" *" '*.
*" *t" * *' * *'" *"' ... *' w* **
*" *" .... *'* .. '* '*"
ABI~rTY TO RE~IRENCE THE KEYBOARD/READER BU"ER (lKI,.
MOY
'PIBE,MACHER
,SIT UP MACHIN! ERROR TRAP
PIBA.
TIT
,REFERENC! READER BUFFER.
'TKB
aCOPE
/sCOPE
PUEI
UROR
,iRROR, TRAPPED WHEN REFERENCING
aCOPE
,RIADE" aUFFIR, (TKSl.

*".

105232

all5um

PIAU

'*""

lisa 16

IADDRua OF ,n'ROUTIN! TO KUTAHl.

l"ln

, •* *" "'''
PITII
I *".t" '* '*

ulne
U'224

815236

'PITI, KIT ART

MOV
JM"

• INPU?aU'''UT I.onc TIna

•
P.U
,*t*.* •• _••• **.*t. t.**.t •• t. "' II. t* ••• *•• *•• t*t •• t •••••••• *•••••••••••• *••••
'TilT ABILITY TO RE'ERENCE THI KEYBOARD/ReADER STATUI WORD (TKII

PIAU

Inlll

"9TH

P~"

,*.*.t** •••• *.* ••• *••••••••••••••••••••••••••••••••••• t* ••••• t •••••••••••

.nn.

Inue lUlU
lUlU
eenu U4ua

PRGI'
PlTe,

mSSl14

IU224

114...

USl74

111767

,.&TTL

XI.'

III

IIU ••
111711

.00012
lesU6
eelTSI
085254

1789
1186
1787

14'" PAil S.

IhNOV.n
MA~UI 17C.,n
PRml • INPUT-OUTPUT ~auc TEUI

'TEST TMAT RUDER DON! BIT SETS SOMETIME AFTER RDR ENABLE.
CHKASR
PIGAI
RUET2
INC
UK.
,ENABLE READER.
DILAYX
'WAIT.
TITB
,CHECK POR DONE
'TKS
,+4
BMI
, BRANCH IF DONE BXT SET.
UROR
,DONE NOT sn SOMETIME APTER RDR ENS,
SCOPE
,SCOPE

US464
185470
U5472
U5414

le4e22
le4823
105277
1144U
105177
100411
104113
IU0U

815416

Sn0l7

PITT.

081516

,.*.*
*." "" ** .**t •••• "'. *."** •• ., .. ",t"." .. ****.".* .".******* ••• ***********.****.*
'TEST THAT DONE BIT READS RELIABLY.

le".e
005582
U5514

eS5se6

805538
111150

114e22

113526
173920

, .*.a ••• _••••• *•••
T

P.TI.
Ille.
P'HA

CHKAIR

'II. ".*.t", *••

'II •• '" It

."'* tit. **' It ** _•• ** ••••••• It***.*"'11." ••• ,,, ...

, PRGI TEST ROUTINE 7
'ADDRESS OF NEXT ROUTINE
/TUT ITERATION eOU~T
,SCOPE ENTRY POINT

,MAIN,

MACVlI 21 (.,,,

DlK~AE

PRGm • INPUT-OUTPUT

1B63

ee59U

1865

unu 105111

I8h

005'22

lau eusu

16.,

005514

IBU

U55S6

I04US
014'6'

IT_HOhn
~OGXC

l"d6
TUTa

REaETa

IHU6
111466

JaR

F0HAI

1872

1&13

005530

104003
jW4mli
U55U

005534
005536

080024

nn44

PItA

, wit ... *if *'* *111 III

005542
015544

00iH7

1746\4

1&79

ee55U

1860

005552
00555b
0055U

104011
105711

173412

1681
I SS2
1683
1884
1885
188b
1681
18&S
1869
1890
1&91
18 92
1893
1894
\695
189b
1897
1898
1&99
1900
lUI
U0~

1903
1904

0055&2
005564
005566
~05570

005572

I MAINu
OZKLAE

1909
1910
1911
1912
1913
1914

100001
104003
104012

PmTlll

"46

1949
1950
19'1
1 Q'2
19'3

195&
1961

!96Z

, PRG0 TEST ROUTINE II
, AOORUS OF NEXT ROUTINE
'TEST ITERATION COUNT
,SCOP! ENTRV POINT

P0JA

n5574
005516
005U0

0041&7
105777

17A5U
173402

113314

B05614
005blb
005620

U5n1
100001
104003
104012

U5U2
005bi4
005b2b
00Sb30

000U2
005&64
000024
005&34

005632
005634
005b36

104022
104023
005217

0~5U4

U5U0

,-.

'****** ••

'CHECK THAT BUSV SETS $DHETIME BEFORE OONE SETS,
CHKASR
RESEll
INC
fTKS
'ENA8~E READER.

P0KAI
173346

005b42
005650
005652
005b5&
0056b0
005662

03i!777
001004

004000

105771

173332

005664

000013
005132
000024
005&1&

005610

005612
005674
00Sb76
005100
005U4
0057U
005716

173340

005120
0057i!4
0057i!6
005730

0n117
001114
105177
leU01
104003
104012

005732
005734
m05736
00574e
005742

000004
00U06

0000U

00UI~

00U'b
001750

00U\4

00b032

00U16
0e6020
00Ul2

104022
!m4n.
006054
104m23

005160
005766
005774
005776

0060U

nuu

mmU24

0eU26
00UJ2

#eITII.nKS
P0KC
fTK8
P0Ke

ERROR
SCOPE

'BUSV SEn
,BR IF VES,
,NO,OONE SEn
,eR IF NOT,
/BUSY BIT FAILEO TO SET BEFORE DONE SET,

13
P0T14
20,
P0LA

•

, PRG0 TEST ROUTINE 13
'ADDRESS OF N~XT ROUTINE
'TEST ITERATION COUNT
,SCOPE ENTRY POINT

,***.** •••• *tt •••• *** •••••• * •• *.***._ ••••• * •••••• *.*******.*****a*.*.****
/TEST THAT DONE IS RUET 8Y BTART BIT (WHEN BUSV BECOMES aET).
CHKASR
RUETZ
Xl, AREAD
JSR
,ENABLE READER, RETURN WHEN DONE SET.
_TKS
INC
'ENAB~E REAOER,
BIT
• SITII,fTKS
'WAIT FOR BUSV TO SET •
SEQ
TSTB
,nST FOR DONE BIT.
'TK8
,+4
8PL
'BRANCH IF DONE NOT SET,
ERROR
'ERROR, START BIT FU~ED TO RESET DONE,
SCOPf
, SCOPE

P0~AI

174460
173300
004000

173212

173204

,-'

,t** •• t . t t t . t . t •••••••••• **.**.*** •••• *•••• *••• *** ••• *.**t**_t*.Qt* •• ** ••

P0T141

•

14
P0T\5

/ PRG0 TUT ROUTINE 14
'ADDRESS OF NEXT ROUTINE
,TEST ITERATION COUNT
P0HA
,SCOPE ENTRV POINT
,/TEST
•• *_***.*.**********************************************.*~*******O*****
THAT R~AD BUFFER CAN BE READ RE~lU~V.
CHKASR
RUETi
X7,AREAD
JSR
'ENAB~E READER, RETURN WHEN DON! SET,
Move
nKB, CReU~.1
'BUFFER CONTENTS TO CRBUF+I
P0MAI
MOYS
'TKB. CReUF
'SUFFER CONTENTS TO CRBUF
CMPB
CRBUF,CRBUF+I
,COMPARE CONTENTS OF CR8U' AND CRBUF.l
UQ
P0MB
'BRANCH IF SAME.
MOY
CRBUF, X0
,NOT SAME, ERROR, HALT WITH 1ST READ CHAR
HALT
lIN OATA ByTES LEfT, SUBSEQUENT READ IN DATA
P0MBI
8CD~f

1000,

104022

104023
00ijH7
117161
1177&7
U6767
001403
016700
000000
104012

BIT
BNE
TSTB

'ft****t •• ***************** ••• ***.********* •• *****************************

P0T131

0051b0

005746
005752

P0KBI

P0KC I

000014
006006
001150

005744

PAGE 41

100371
104003
104012

104022
104023
004767
0052n

•

,.**.**.*.****.**._ ••• *••• *.** ••• *••• *_.*._ •••••• *****.*.#**********.~***

MACYll 21(b51)
IT-NOV.1S 141h
PRG0 • INPUT.OUTPUT LOGIC TESTS

005bbb

***

'TEST THAT REFERENCING READER DATA eU~F!R ClofARS DONE
CHKASR
RUn2
P0JA I
X7, ARE AD
JSR
'ENA8~E READER, RETURN WHEN DONE an.
un
,RfFERENC! READ SUFFER.
'TKB
TSTB
,HST FOR DONE BIT
'TKS
BP~
/BRANCH IF DONE NOT SET,
ERROR
,REFERENC! TO BUFFER 010 NOT RESET DONE.
SCOPE
, SCOPE
********.******~****.*************~***.********~.*.****.*******~
P0T121
, PRU TUT ROUTINE U
\2
P0TIJ
'ADDRfU OF NEXT ROUTINE
l0,
,TEST ITERATION COUNT
P0KA
/sCOPE ENTRY POINT

104022
1040a3

114412
173234

173226
173372
1733&2

173405
17337&
173371

,*t ••• *••••• ** ••• ***.*.**.******.*** ••• *••••••• *.** ••• **.**_*** •••••• * •• *

P0T\51

15
P0T\6

•

, PRa0 TUT ROUTINE 15
,ADDRUS 0' NEXT ROUTINE

un.
'TEST I TEU TI ON COUNT
P0NA
'SCOPE ENTRV POI NT
,*t* ••••• *.*** ••• ****.* •••• ***.***.* •• *.*.* ••••••••• **************._ •• ***

\954

US9
1960

aET,

'tt**~********************.***.**************.**************_******* ••

1955
195.

1951

P0TU

19~7

1935
1939
1940
19 4 1
1942
1943
1944
1945
1946
1947

*•••• **iI" .*",* ...... *** '* •• '* .. .". \Ill ****.8 we *e****

,.***.*** •••• _.*.***.******* ••••• ** •••• ****.* ••••••• *****e.***.**.*******

000011
00SU2
000024
005600

IH2
1933
1934
IUS
193&

'II • • • • • • •

,uau! Run,

1915
191&
191T
191B
1919
1910
1921
IU2
1923
1924
1925
192b
1921
1928
1929
1930
193 1

Ii".* ** •• **

•

, PRGe TEaT ROUTINE , .
'ADORrss OP NEXT ROUTINE
'TEaT ITERATION COUNT
"CO~E ENTRV POINT

/TUT THAT R~8!T C~EARa DONE aIT
CHKASR
RU!?t
P0UI
X7, AREAD
JSR
'ENAB~E "EAD!R. COME BACK WH!N DON!
SRE8!T
T&TD
'T!ST YOR DONE BIT
'TKS
,+4
BP~
,UANCH IF OONE an Run,
ERROR
'~RROR, RES!T FAI~ID TO C.EAR DONE,
SCOPE
,SCOPE

1905
1906
1907
190B

Ie
PUll

ze,

10GUi!
IUU]

1871
UTe

COM! BACK WHEN DONE IiU,

,BRANCH IF DONE FOUND aET.
'ERROR, DONE 81T NOT FOUND BET,
IICOP!

BCDP!

P0T101

1874

e05540

IENA8~1 RUDE~.

, TEST POR DONE

,.4

ERROR

1615
187b

n,AREAD

'lKa

,***.*.*.** •• ~.**.****.*.***.***.*.t*.*.*****t****.*.***to**********.*tti

0011010

005532

TeTS
8Ml

10UU

1869

1810
1671

PA91 48

004167

114332

005077

113152

'TUT THAT RUDER DONE Bn IS A8~E TO CAUSE INTERRUPT, IF TH! INTERRUPT IS
,8UVICED. IT WI~~ HAVE OCURRED AT CORRECT VECTOR,
CHKA8R
BTRDRV
'SET UP READER VECTOR TD peNt
P0NC
RUETZ
PC, AREAD
JSR
'!NAB~E RUDER, RETURN WHEN DONE
P0NAI
nKS
C~R
'DlSABLE READER INTERRUPTS

sn,

BYTU RIGHT

IMAIN~
DlK~AE

I?-Hov.n u,0b
PAGW • INPUT_OUTPUT ~OGXC rUTS
MACYII nCUll

I'U

UUI.

,,6.

emuse Beaue
UUU 104103
nuu jm4012
uus. SIUI6
menu nAU&
nuu ulna
aInu 00'102

UU nun

1965

I9U

It..
I'"
1910
Inl

1912

IIUi'
651771

171734
901180

FU! U
CLR

113140

NOP

ATUE.

IENABLE READER. RETURN ~HIN DON! 8ET,
,ENABLE RIADER INTERRUPT,

IERnDR, READER PAlLED TO INTERRUPT.
IHERE IF INTERRU'T OCCUR ••

ERROR

*. u

PINCI
, 111._ III *

Pln6.

pew
*DIH,nU

SCOPE
lit It* ••• ttl "'"

fiI" t.** ......... _..... _." ft.**t'_"'_.* ••• ** ••• _*'* t* ••••• "' ••

••

, PRae TEaT ROUTINE , .
, AD DR US OF NUT ROUTINI
,TEIT' [TIRAnaN COUNT
,aCO'E ENTRY POINT

PITU
llel,

'IDA

1'13

,,TUT
,. ** ** THAT
flff • • • • t III *"" .. '*" .... *... *"' .. *. III.
*•• *t",*'" **. 111 .t* ••••••• t**** ••••••• *.... *'"
DON! Don NOT CAun INTERRUPT WITH 'NocnlOR AT lAM!

1975
1976
1977

/PRIORITY ~£V!~ AS TH! READ!RS INTERRUPT RIQUI.T ~IVEL.
CHKAIR
STRORV
/SIT RUDER VECTOR TO peal.

1'14

UU ..
meUTa

U4U2
104Ub

Ins nun

006132

BBua

004167

1979
1980
1981

1982
1983
1984
1985
1986

1967

,MAIN,
DZK~AE

1985
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2n2
2003
2004
2005

200b
2007
2006

200q

nb0T4

nuu

00b10b
006114
0061U
006124

00& 134

104~12

00&13.
00& 140

000017
00&222
001750
00&1&2

00b142
00b144

00&14b
006150
006152
006154
0061 S&
00&a2

00b I &b
00b174
006202
0062U
006212

201~

00622b
006230

2025
20H

2030
2031
2032
2033

005077

006214

1040Z2
104006
006214
104023
004767
005077

01b1&7
1&2a7
052777
000240
104003
005077
104012

IU0U
P00f I

006232
006234
00&23&
006242
006244

104022
1040i!!
0041&7
10400&

00624b

005017
052177
005067
000240
104003

00U52
006260
00&264
0062&&
00&270

nU74
00621b

174202
173022
173030
000040
000100

171b02
171574
173000

172770

005077

006324

104012

'BIn,ITKS

I1Ka

SCOPE

,WITH PROCESSOR AT UMf PRIORITY
'LEVEL AS THE READER, OR THE READER
, IS AT HIGHER PRIOR%1V THAN SPECIFIED AT TKLYL.

11
P0TU
1000.
P0PA

, PRG0 TEST ROUTINE IT
, AOORUS O~ NEXT ROUTINE
,TEST ITERATION COUNT
,SCOPE ENTRY POINT

P0T21

1000.
P0GA

I*t*_ •• ** •• **** ••

•

172736

000100

172730

171512

a~~lU

2038

•• t***.* •••• *•• ** ••••

, PRG0 TEST ROUTINE am
'AODRUS 0' NUT ROUTINE
/TUT ITERATION COUNT
,SCO~E ENTRY POINT

_.* .••.•. *** •• *••••• *_**** •• *** ••••• *••• *.*.*.*****_****

/TEST THAT OONE DOES NOT RfINTERRUPT AHfR RTI WHEN DONE I I NOT CLEARED.
CHKASR
RESEU
JSR
17, AREAD
'ENA8~E REAOER. RETURN WHEN DONE
P0QAI
STRDRV
,SET READER INTERRUPT SERYICE
P0QC
,TO P0QC.
C~R
'DISABLE REAOER INTERRUPTS,
'TKS
nITb,l1K!
BIS
'ENABLE READER INTERRUPTI,
PSW
,SET PRIORITY 0,
CLR
NOP
ERROR
,ERRORI HILEO TO INT!RRUPT
fTKS
,DISA8LE READER INTERRUPTS,
C~R
aCOPE
,SCOPE
P0QC I
_P0QE,ITKYTR
MOY
'CHANe! INTERRUPT VECTOR TO P0QE
MOY
'PIGD,IX'
RTI
'R~TURN FROM INTURUPT
P0GDI
NOP
.+4
8R
,OK IF NO REINTIRRUPT OCCURS.
paGEl
ERROR
,DON! R!INT!RRUPTED A'TER
,RTI WITH DON! SIT LE'T ON,
nK8
CLR
,OISABLE READER INTERRU'TI.
, SCOPE.
SCOPE

alT.

174122

In664

006320

US
Nap
CLR
SCOPE
ERROR

'EN.a~E READER. RETURN WHEN DON! UT.
'DIU8~E READ!R INTERRUPTI.
,SET PRocrsaOR TO 8AM! PRIORITY AI AUDIR'S.
'ENABLE READER INTERRUPTI,
,NO OP,
,OK IF NO INTERRUPT OCCURS,
/SCOP!
'ERROR, READER EARONIOUILV INT!RRUPTED

'***t******************~*.**********.***.***.*******

112714

00631b

TKLV~.PSW

'TEST THAT OONE CAUSES INHRRUPT WITH PROCESSOR AT PRIORITY ONE LEYEL LOWER
/THAN THE READER'S INTERRUPT PRIORITY LEYEL.
CHKASR
STRDRV
, SET READER INTERRUPT SERYICE TO
peps
,P0PS.
RESET2
X7, AREAD
JSR
,ENABLE REAOER, RETURN WHEN DONE SET,
CLR
,0ISABLE REAOER INTERRUPTS
P0PA'
'TKS
MOV
TKLvL,PSW
'SET PROCESSOR PRIORITY ONE LEVEL LOWER
~40,PSW
sue
,THAN REAOER,(SPECI~IED AT TKLVLl.
fBIT&,ITKS
BIS
'ENABLE READER INTERRUPTS,
NOP
ERROR
,FAILED TO INT!RRUPT ~ITH PC AT PRIORITY ONE LEYEL
'HERE IF INTERRUPT OCCURS, OK. POP STACK TWICE
P0pal
nKS
CLR
'DISABLE READER INT!RRUPTS
SCOPE
,SCOPE
P0T201

006316

2037
203q
2040
2041

nK8

,*****-** •• *••• ******.** •• -***-_.*-*-*-*_.*-.-*-** •.• -.•• **-••• -* •• -•• _••

005077
104012

2035
2036

006304

IT. ARUD

C~R

MOv

, ••• *.**.***** •••• ***.***** ••• *** •• *•• *••••• *.**._.*-* ••• *.* •• *.*_.*.***.

00b27b

006310
006312
096314

RUETZ
JaR

PAGE 43

P0TI7.

000020
006326
001750
00&242

012777
0U716
00000i
000Z40
000401
U4003

l034

PSOAI
111662
113066

17.NOV·75
1410&
MACYlI arC.57)
PRG0 • INPUT.OUTPUT ~OGIC TOSTS

2017
2018
2019
2020
.021

2025
2026
2027

052717
nU40

006132

006222
00&224

2~22

173110
000100

\040U

2014
2015

2024

IUI0i

016a?

1040m3

00b220

2023

1742U

005077

006130

2010
2011
2012

au)

PIO!

104m23

172714

't.*******.*~**********ft**t******.******.********.****_*.t.*

••• *••••

_.*.*

~OWER

It~U.IN,

0IK~A!

2142

2145
2844

2845
!l46
Z047
2048
2049

205m

MACYlI 2T (.571 IT-NOy.n 141m.
0
INPUT-OUTPUT ~OG%C TEITI

00632.
UU10
B0U3!

BUell
006410
011150

006334

006344

00bJ3b
00&344

UU52
0BUbS

0\2767
052717
UZ71T

03b364

2054

016366

2055
2056

006374

006402

03i717
201411

2057

00b404
006406

104003
104U2

uuu

2058
205q
20&0
2061
l0U
2063
20U
U&5

006410
106412
00&414
006416

~0&6

006420

,,.U,IN.
DZK~AE

PlTall

104003
104012
B4ZT17

a10&

2107

au!
2109
2110
2111
2112
al13
2114
2115
al16
al17
2118
211q
2120
al2l
212a
a123
~124

ali!S
a126
aU7
2128
2129
i!P0
2131

PIAA

000340
90010B
000IBB

171432
IHUi
112634

000100
000100

17UU
17Z612

/TUT

AU~ITY

PBRAI

DU
BIT

TO 8£T AND CLEAR PUNCH ID BIT
'PAT¥? ,p,w
,lET PRIORITV 7,
unb,nps
'SET PUNCH 10 SIT.
UlTa,fTPS
'CHEC~ PUNCH 10 an,
,+,
8NE
, BRANCH l ' PUNCH 10 e IT XI an,
ERROR
,ERRORI, PUNCH 10 alT DID NOT UT,
HOY

acoP!

UlT~,nps

,e~!AR

~8!H, 'TPB

,+4

'CHECK PUNCH %0 e IT.
'SAANCH IF PUNCH tD eIT IS C~UR
'IRRO~a, PUNCH 10 81T 'Al~ED TO C~EAR.
ISCOPE

ERROR
SCOPE

000022

PBUZI

Boun
000U4
0064i6

•• **.*t*~$****** •• ************.*$********~
, PRG0 TEn

00641&

006434
00&43&
006444
00&446
00U50
00645a
00&454
0064S6

0h4U

000340
900180

171350
112560

00BU0

IUS50

/TUT HEUTIOH COUNT
,3COPf ENTRY POINT

ABI~ITV

SIS
nUEr

BrT

ERROR
SCOPE

03a777
001002
104003
104012
042177
032717
001401

0Bb5i!6
006530
00&532
006534

0000a4
00&562
000024
00653&

•• **~.**t •• **~**a.*.*.**********.***

P0TA

172524
ITa51&

000014
000004

172502
172474

104903
104012

••• *t ••• ~ •• ~*~~.~~

I PRG0 TEST ROUTINE .3
IADDRESS OF NEXT ROUTINE
/TEST ITUATION COUNT
ISCOPE ENTRY POINT

peraA
1000.

000004
000004

•

C~UR PUNCH 10 BIT WITH RUn IN3T~UCTION
#PRTY7,paw
,SET PRIORITV 7.
UIH,'TPS
Isn PUNCH to BIT.
I RESET
*SlH,'TPS
'CHECK PUNCH 10 SIT.
,+4
ISUNCH Ir PUNCH 10 BtT n CLEAR,
IUROR. RUEf FAll-fD TO C~EAR PUNCH IC BIT.
ISCOPE

,.~*~~*~****.*.*****$********.*.*.*****~******~**.~***~

P0TUI

'****~.***

05~777

BEQ

U0U3
00&526
001150
00UU

U&462
006410
00641 b
006500
00650Z
006504
006512
006520
006522
00&524

1ADDRESS OP NEXT ROUTINE

20,
P03A
MOV
PUAI

~OUTlNE

peTal

't*~*~.***.***********t.*.***~.t~.***

ITEST

BU?U
0SZ177
U4011
ni771
001411
104003
10401i!

PUNCH ID B%T.

B%C

B!Q

BIT

,_****~§.**~~*.~~t.*$ft.*ft~~.***

•

•• **.* •• ****.*.****#* ••• *** •• ***.*****~t.***.**~~wt****$t***.**

TO SET AND C~EAR THE PUNCH MAINTENANCE SIT
$8ITa, 'TPS
'8ET MAINTANCE BIT,
ICHEC~ MAINTENANCE Bn
'8IT2, 'T~5
,+6
BN!
IBRANCH IF MAINTENANCE BIT SET,
ERROR
IURORI, MAINTENANCE SIT FAlLiD TO $IT,
SCOPE
$B1T2, PTPS
SIC
, CLEAR MAINTENANCE BIT.
efT
U1T2, PTPS
/CHECK MAINTENANCE BIT
,+4
SEQ
IBRANCH IF MAINT~NANCE en IS CI.EAR,
ERROR
IERROR2. MAINTENANCE BIT fUI.ED TO C~EAR.
SCOPE
I SCOPE
'11 **__ **. *********.", .. "'* ** .. wft**. *111* ********.",* 11/ tWA""_
11" *\!fill ** .. III tlt1ll. ***It! .t*
P0T241 24
, PRG0 TEST ROUTINE 24
P0T25
'ADORESS OF NEXT ROUTINE
/TEST ITERATION COUNT
20.
P0UA
,SCOPE ENTRY POINT
/TEST
P0TU

Aal~ITV

SIS

BIT

**_

•

'*~***_*****************_*******t* •• *****.*~**~*****N.t****w*********** ••

MACYII 27 (657) 17_NOV.15 I4lh
PRG0 • INPUT-OUTPUT 1.0Gle TESH
006536
006544
00654&
00&554
00655&
006H0

05.717
104011
032777
0014m1
104003
104012

00&5&2
0065&4
00656&
006570

0000i!5
00&604
001750
006512

006572
00&516
006600
00&602

105777
100401
104003
10401 a

000004

172450

000004

172440

1040Z3
005077

006&34
U6U&
00&&40
006b42

0un7
em&&n
000024
006644

U6&44
00&04&
U6&5i!
006&54
006&5&
006662
U66U

104023
016710
00,a00
I0UI0
lun7
100401
U40e3
104012

\l5T17

IHST THAT RESET INSTRUCTION CI.EARS THE MAINTENANCE BIT.
P0UAI
818
ISET MAINTENANCE BIT,
#8112, 'TPS
SRUEr
, ISSUE RESET
BIT
I CHECK MAINTENANCE BIT
'BlTa,'TPS
SEQ
.+4
IBRANCH IF MAINTENANCE SIT CI.EAR,
ERROR
IERROR, RESET rAll.EO TO CI.UR
SCOPE
ITHE MAINTENANCE BIT. SCOPE,

,.-.-.-.*.*
.•. **.* ••• _.****.**.**.*
•• *•••• *••• ** •• *._. ****.*.* ••••• ** ••••
, PRG0 TEST ROUTINE as
as

172416

IADORESS OF NEXT ROUTINE
/TEST ITERATION COUNT
I SCOPE ENTRY POINT
,t***** ••• *••• ** •••• **** •• *.****** •• **.* •• **** •••• *•• *ta* ••••••• *t** •• ***
'TEST THAT RESET SETS THE PUNCH RUDY BIT, AND THAT RUDY CAN BE ~fAD REI.IAB~Y.
P0VA,
UPS
ICHECK PUNCH READY,
UTS
8MI
.+4
leRANCH IF PUNCH READY IS SET,
ERROR
IERROR. Run 'AI~EO TO SET RUDY, OR FAll.fO TO READ
SCOPE
'SCOPE

,t*t •• ******.*a.*.*******.*.* •• *.** •••• **.*.* ••• *.* ••• **** ••• **********tt

P0T26.

a&
PIT2?

ze6670
00 . . 12
006614

P0WA

006616

nuu

l04mB3

•

,tat.**t.t •••• t*a* •• *••••• *••••••••• *** •••• *•••••• *•••• ***********.******

171374
1723&&

100UI
104023
104012

00UU
00&722
0U124
UU00

I PRG0 TEST ROUTINE 26
I ADDRESS OF NEXT ROUTINE
ITEST ITERATION COUNT
ISCOPE ENTRY POINT

20,

ITEST THAT PUNCH READY RESETS BY ~OADING PUNCH BUFFER.
P0WAI
RESEU
I~OAO PUNCH BUFFER
CI.R
'TP8
TSTB
fTPS
I CHECK PUNCH RUDY BIT,
,+4
BP~
IBR I~ PUNCH READV 1$ CI.EAR.
ERROR
'ERROR, 8UFFER 1.0AD FAII.EO TO CI.EAR REAOY.
SCOPE
18COPE
, •••••• t ••••••

00&b&6

•

P0T26
1000.
P0VA

006604 000026
006&06' 006&34
006610 000024
00HI2 00b& 14
006614
U6&1&
00&622
00 . . 2&
00&630
006632

PAGE 45

P0T2S'

P0T27.

IT
PIU0
20.

*.*** •• *.* •••• _••• *.** ••••••• *** ••• *•••• *tt.t*t*t.* •• t • • • • •
, PRG0 TUT ROUTINE 27
, AODRESS OF NEXT ROUTINE
ITEST ITERATION COUNT
"COP! ENTRY POINT

•

,t**.t*t.**t*** ••• *•••• ** •••••••••••••••• *••• *••• _.*.*t****_*.*.i_t •••• •
PIXA

a\3~

2133
ill4
i135
2136
ilI37
Zl3a
il39
2140
2141
214a
2\43
2144
2145
2146
Zl41
U4!
2149

, 'R,. TI8T ROUT!NI II
, AOORI . . OF NUT ROUTIN!
'TilT ITERATION COUNT
,OCO'!!NTRY POINT

,** •••• ** •••• **** •• ** •• ****.***** •• *••••••• ***** ••••• $*.*t~tw*t.o.*t*$$e*

209b

a097
a098
2099
2100
2101
a102
2103
a104
a105

II
PITU

lIee.

UUU

2051
i!Ui!
a053

2067
20&S
a069
U70
a071
2072
2073
a014
2075
2076
2077
2078
207q
a080
2081
a082
l083
2084
2085
leG6
a087
i!U8
il089
2090
2091
2092
a0q3
2094
a095

PAGE u

PROS

17C344

172332

,TUT THAT an!
P0XAI
RUeT2
MOV
INC
CI.RB
TITS
BMI
ERROR
aCOPE

~OAD

OF PUNCH SUFFER +1 DOES NOT RESET RUDY,

TP8, X0
XB
fIB

fTPS
,+4

,BVf! 1.0AO PUNCH BUFFER"I
'CHECK PUNCH READY BIT
,BRANCH IF PUNCH REAOV STILL sn.
,UROR, BVTE 1.0AD OF PUNCH BUFFER. I
'C~!AR!O RUDY, aCOPE

,t*t*.t.tt_tt*.** ••••••••• *•• *•••••• **.**** ••• *••••••• *.****tett*t.ttt*.*

P0730'

30
P0UI

20.
P0YA

, PRGe TUT ROUTINE 30
IAODREOS OF NEXT ROUTINE
lUST IT!RHION COUNT
laCOPE ENTRY POINT

,t**t.e.*_ •••• e••• *.******.*.*****.*.**.** •• *****.* ••• t*t* •• *•• ******** ••

/TUT THAT PUNCH BECOMES READY SOMETIME AFTER DUFFER ~OAD.
PlY AI
RUETZ

,MAlN,

DZKLAE
2150
2151

2\52
21'3

MACH I RTCU71 IY.NDV.n I4lh
PRU· INPUT-OUTPUT Lont nna
00&102

usn7

U'?0~

U44U

emu 14

101177
100401

nblle

00611&

nun

104003

104012

2151

10.122

Bunl

21"

00&U4
00ne6
00.730

m06TU
0017!m
00613b

124067

2154
2155
215&

usa

21U

HUll

CLR

TaTS
BMI

•

00H42

2168

006746

21U

2170
i!17!

006154
006756
00&7&0

00&160
00Sm71
005067
052171
000Z40
104003
1040U

2112
2113
2114
lilT5

00&1'2
00&764
00H&6

000032
007032
001150

2116

006770

00b176

00&112
006TH
Z0&1H
007004
0010U
001016

104007
007026
016H7
005077

I7l!U4
I7UU

170172

051777

000100

172176

112252
111030

00Ue0

172240

007030
007032
007034
00103&
001040

000033
001U&
001750
001046

172170

'**_.**.***** •• *******~*****~*.***.R*****~******.ft*.*******_.* •• _******.*

P0133.

• MAIN.
DZKLAE

2204
2205

220b
2207
2208
2209
2210
2211
UI2
2213
2214
2215
221&
2217
2218
2219
2220
2221
2222
2223
2224
2225
222&
2221
222S

222q
2230
2231
2232
2233

001042
007044
00104&
0~7~52

001060
007066

007074
00707&
007100
001104

000240
104003
005077
104012

001106
001110
001112
007114

000034
007202
001150
007116

I PRG0 HST ROUTINE 33
IAODRESS OF NnT ROUTINE
ITEST ITERATION COUNT
ISCOPE ENTRY POINT

17214.
11~150

170716

000040
000100

170110
172120

I TEST THAT THE PUNCH INTERRUPTS
ITHAN THE PUNCH PRIORITY,
STPCHV
P0BAC
nps
P0BAA I
CLR
MOV
TPi.VL,PSW
U0, psw
SUB
SIS
lIIBIT6.'TPS

00111&
007120

001122
00112&

001132
007140

001142
007144
001150
001152
0071 &0
0071 &4
0011&&
007110
007172
007114
001200
0072~2

00Ta04
00120&
007210

NOP
ERROR
Ci.R
SCOPE

'TP8

'ERROR, PUNCH FAII.EO TO INTERRUPT,
ITHE STOCK TWICE. DISABLE PUNCH INTERRUPT
ISCOPE

,************.*.*****.*.**************.****************_***w*********.***

P0TH.

34
P0T35
1000,
P0CAA

I PRG0 nST ROUTINE 34
I AOORESS OF NEXT ROUTINE
ITEST ITEHATlON COUNT
ISCOPE ENTRY POINT

•

104001
001152
005011
005061
052777
000li40
104003
005077
104012
012777
012116
000002
000240
000401
104003
005077
104012

1720&6
170644
000100

172054

172044
007172
0071&6

172044

172014

ITE3T THAT PUNCH READY DOES NOT REINTERRUPT AFTER RT! WHEN READY
I an HAS NOT BEEN RESET.
P0CU I
STPCHV
ISET PUNCH INTERRUPT SERVICE TO
P0CAC
.TO P0CAC,
PTPS
Ci.R
lOlSA61.E PUNCH INTERRUPTS
paw
CLR
ISET PROCESSOR PRIORITY TO 0
BIS
I ENABI.E PUNCH INTERRUPTS
'Slh,'TPS
NOP
ERROR
IERROR I. PUNCH FAI~EO TO INTERRUPT.
HPS
CLR
lO!UB~E PUNCH INTERRUPT.
SCOPE
ISCOPE
P0CAC.
MOV
#P0CAE. npVTR
IHERE IF INT~RRUPT OCCURS. CHANGE
MOV
.P0CAD, OX&
IPUNCH VECTOR TO P0CAE AND EXIT
RTI
I INTERRUPT
P0CADI
NOP
10K IF NO REINTERRUPT OCCURS
P0CAF
6R
P0CAE.
ERROR
IERR 2. PUNCH REINTERRUPTEO AFTER
P0CAf.
HPS
Ci.R
IRTI wiTH READY 6IT LEFT ON
SCOPE
I SCOPE
'*******.****.* •• ***********.~**.******.************.****~**.******** •• **
P0T35.
35
I PRG0 TEST ROUTINE 35
P0T3&
IAOORESS OF NEXT ROUTINE
1000.
ITEST ITERATION COUNT
P0DAA
ISCOPE ENTRY POINT

•

0~0035
~072U
00115~

007216

I*t******.************_***.***********.*_.****.*****._**.*.**************

007il12
007214
00121&
007224
007230
00723&
007242
007250

104007
007252
0127&1
005077
052117
0050&7
012H7
104003

001252
00725&

005077
104012

000340
171164
000100
170534
000340

170552
17175&
170526

ITEST TMAT THE PUNCH INTERRUPTS
IPROCESSOR PRIORITY TO 0.
STPCMV
P00AC
P0DAA.
MOV
.PRTH .PSW
CLR
'TPS
BIS
'BIT~, 'TP5
paw
Ci.R
MOV
*PRTV7, paw
ERROR

224q
2250
li251
Z252
2253
2254
2255
225&
2257

ISET PUNCH INTERRUPT SERVICE
ITO P0BAC.
lOISABLE PUNCH INTERRUPTS
ISET PROCESSOR PRIORITY ONE LEVEl.
II.OWER THAN PUNCH PRIORITY
IENABi.E PUNCH INTERRUPTS

PAGE 47

P0BAC.

172110

WITH PROCESSOR AT ~RIORITY ONE LEVEL ~OWER

'.*****.**.********.******* ••• R.***.***~************$*.*********~**.**.**

~234

2238
2239
2240
l!i!41
2242
2243
2244
2245
224&
2247
2248

104007
001100
005011
01&167
162167
052171

MACYlI 27 (651)
1,-NOV-,S 14.0&
PRG0 - INPUT-OUTPUT I.OGle TESTS

2235
223&

2237

33
P0Tl4
U00,
P0BAA

'******************n**********************************************.**** ••

~19&

2197
2196
2199
2200
2201
2202
2203

***_**

'**** ••

2118

007024

HEST THAT PUNCH READY BIT CAN CAUU AN INTIIARUPT, IF THE INTURU~T
,lS SERVICED, IT ~!1.1. HAV! OCCUR"ID AT THE CORRECT VECTOR.
STPCMV
/SET PUNCH INTERAUPT SERVICE
PUS
I TO P0ZS
P0ZAI
fTP5
CI.R
IDXU8!.! ~UNCH !NT!~"UPT8
Paw
CI.R
,SET PR%OR%TY 0,
SIS
UIT6,'TPS
'ENAB!.! PUNCH INHRRUPTS,
NOP
ERROR
IPUNCH RUDY fAIl-EO TO CAUSE
SCOPE
I INTERRUPT, SCOPE
,.****.***.*~****.***-****.****~** •• ***.******.*.* •• ****.*.**-**********&
pe132.
32
, PAGe TEST ROUTINE 32
P0Ul
, AODRESe OF NEXT ROUTINE
100m.
lTEST IHRATION COUNT
P0AAA
I SCO~E ENTRV POINT
*******.****~.*********_*.*********.*******R************** ••
/TEST THAT PUNCH RUDY DOES NOT CAUSE AN INTERRUPT WITH PROCESSOR
I AT SAME PRIORITY ~~VE~ U THE PUNCH INTERRU~T REQUEST LEVEL.
STPCHV
ISET PUNCH INTERRUPT SERVICE
PUAE
ITO PBUf,
P0AAA.
MOV
TP~VI.,P8W
/SET PROCESSOR TO SAM! PRIORITV AS PUNCH.
fTPS
C~R
'OISAB~E PUNCH INTERRUPTS,
BI8
I ENAB~E PUNCH INTERRUPTS.
*6116,'TP5
NOP
P0AAS.
CI.R
10K IF NO INTERRUPT OCCURS.
'TP5
SCOP~
ISCOPE
P0AAE.
ERROR
IERROR, PUNCH INTERRUPTEO WITH PROCUSOR
BR
PUAB
ISET TO SAVE PRIORITY AS THE PUNCH,

pen.

2117

0010l&

'CHECK PUNCH RUDY 8IT,

,********************_******.* •••• *•• *** •• **************.*.*.*.**m_*****i

2\66

000240
005077
104012
104003
000173

,WAIT,

,BRANCH IF PUNCH READY X8 I£T,

••

U.1

0010Z0

,04

•. OAO PUNCH IIUFFEA.

***

0e67U
006734
006736

il179
ill80
lil81
2182
2\83
2184
2185
lilS&
21S7
lilSS
21S9
21 9~
2191
21 9 2
2193
2194
ill95

fTP8

ERROR
IRUDY NOT SET SOMETIME AFTER SUP'ER LOAD,
acoPI
,aCOPI
, •• ***~*****~.*******~************.*****.*.*.** •• ********t*********_ ••
peT31 i
31
I PRGm TfST ROUTINE 31
Plllne
I ADDRUS OF NEXT ROUTINE
1101,
'TEST ITERATION COUNT
P0%A
I SCOPE ENTRY POINT

iI\U
21'5

'TPS

OELAVX

IU3e0

2\6\

ZlU
iii 64

PAGE 46

0072~0

0012&2
0012&4

001266

000036
007342

000024
00127&

171136

P0DAC I

C~R

SCOPE

'TPS

IMMEDIATE~Y

UPON ~OWERING

I SET PUNCM INTfRRUPT
ITO P0DAC.
ISET PROCESSOR PRIORITY TO 7,
lOISABLE PUNCH INTERRUPTS
I!NAB~E PUNCM INTERRUPTS
ILOWER PROCESSOR P~IORITV TO 0.
IRAISE PRIORITY TO 7.
IERROR, PUNCH fAl~EO TO INTERRUPT
IIMMEOIA TE~ Y AFTER CP PNtORlTY WAa 8fT TO 0,
lOISA8LE PUNCH INT~~AUPTS
I SCOPE

,**************w**********************.******* •• ************** •• ******_.*

P0T3bl

•

I PRG0 TEST ROUTINE 36
I AOORESS OF NEXT ROUTINE
/TEST ITERATION COUNT
P0!AA
ISCOPE !NTRV POINT
'*.**************.*********~.**********.****.*****.***~***p***-~**.*.****
P0T37

,HAlN,
DZK~AE

MACYII 2f(U?]

IT.Nov.n

,., ..

PRGe • INPUT-OUTPUT LOGIC TI.T8

usa
.. n

,TEIT POR COUECT OPERATION 0' THI WUT INSTRUCTION, A WAn JNSTAUCnON
'II PERFORMED WHILE WAITING FOR A PUNCH INTERRUPT, ~HIN THI lNTIRRIIP'f
'OCCUAe, THI SERVICE ROUTINE CHANGRa THE WAIT INITRUCTJON TO AN !RROR
'CALL ANa THIN EXIT' THE INTIRRUPT WITH AN ATI, IKITING THI INTEnUPT
18HOU'D RETURN CONTROL TO THI INSTRUCTION POLLOWSN. TH! WAXT INSTRUCTION,
CONTROL XS IN.TIAD RETURNED TO THi SAMI LDCATION MNIA! THI WAIT
'INSTRUCTION HAi LOCATED AN ERROR CALL WILL OCCUR, INDICATING A 'AILURE
,O~ THE WAIT INSTRUCTION,

II"
22t1
u ..

'1'

12.,
22 . .

12'5
2U6
226'

2268
2269
UTe

UTI
2212

1114
UT5
2216

2217
2218
2279

un
2211

IIUTI
107212
111174

IIU76
001314
10U\I

leU 16
IIUU

lueu
lUI"
U1lS2
IUTU
1051"
nlHT
1151"

..... 0

111310

nn 117352

IU.U

eeU42
111344

2288

2293

2294
U95
229,
Z29?
2298
Z299
1311
znl

uea

2383
2314
nls
2n6
2nT

nla

2319
Ul0
231\

.MAIN,
DZKLAE
1312
2313
2314
2315
2316
2317

leUS.
IIUU

IIT,.6
IBn70
117374
10U,.

15i1777

IISITT
11.411
105711
111411
114013

117411

104112

107412
107414
IIT416
117410

111141
111472
IUU4
111416

107411
107414
117416
11742m
117426
117434

1040aT
1114.6
104013
luaT
nZ17T
015017

117441
007444
IIT446
101452
117456
117462

IB517T
leU75
105077

nun

2324

107472
117474
107416
10T5B0

00U41
007571
01111024
Bl1516

2331

117512
101514
117516
107511
1117516

104016
e07564
114023
112161
051T71
1115171
1151771
105777

2325
2326
2327
2328
2329
2331
2ll!
2333
2334
U35
2336
2337
2338
23S.
2341
2341
2342
2343
2344
2345
2346
23'1
2341
2349
23se

ani

2352
235J
US4

1355
2356

U5T
U58
2359
23U

1361

an3

2364

mUII0

If""
T\'"
1784'4

PIlAU

PIUII

le7464

807524
IInJe
107536

117542
IIT544
111550
11755.
IIT560
IIT562
801564

117566
101510
IIn72
117574
8075T6

senn

l115ln
le5Tn
115161
101241
114812
lUlU
10401Z

aTPCHV
PIEAC
MOY
CLR
818
CLR
OPEN
CLR
aCOPE
HOY
RTJ

,81T PUNCH INTERRUPT seRvICE
/TO PIUC,
,HOYE WAIT INSTRUCTION TO PIIAa
'LOAD PUNCH BU~FIR (ENAIL!S PUNCH)
$exT6,"P8
'!NABLI PUNCH INTERRUPTS
psw
,UT PRIORITY.,
,THI8 LOCATION CAN BE EITHER
,A WAlT INSTRUCTlDN DR AN ERROR CALL,
"p AN ERROR CALL 18 EXECUTED, IT
,INDICATES A FAILURE OF THE WAIT IN8TNUCTI0N.
'TP8
'DISABLE PUNCH INTERRUPTS
/lCOPE
URROR,PlUB
,MOYE ERROR CALL TO PlEAD,
IEUT INTERRUPT,
III *** III .*tI 'It *." '" *
**." flo'" '" **********._.fI
a. __ •••• _
, PRGe TEST ROUTINE 37
, ADORUS O~ NEXT ROUTINE
/TEaT ITERATION COUNT
,SCOPE ENTRY POINT
'WAIT, PIEAB
"PI

, ***. ** •.,,"'
_._"'* "''II'''''''''''''
JT

fI"' '

,'It .....

•
••
, "" "" "" """" .""*""* •• '_ *_. "* e*e***.*.*"""" •." **.*** ••• *.*******e*****." •••• **.,*.*.**

PBnTl

PIT4I

ai,
'.FAA

,TEST THAT LOADING THE PUNCH SUfFER WITH THE MAINTENANCE BIT SET
'CAUSES THE READER DON! BIT TO aET 80METIME AFTER,

UIII.

ITlUa

PIFAAI

171631

17161.

RUETa

BU
CLR
DELAYX
TaTB
BMI
ERROR

-snl,fT'S
'TP8
eTKa
,+4

ICOPf

'SET MAINTENANCE BIT
'LOAD PUNCH SUFfER
,WAIT,
/TEST READER DON! lIT
,8RANCH If READER DONE 8IT an.
'ERROR, SOMETIME AFTER PUNCH
,8UHU LOAD WITH MAINTENANCE BIT
,SET THE READER DONE BIT WAS NOT SET
,SCOPE

, **" ** ".,"
** .*** *** ••••• ***•• *ee* •••• ", ••• *.*, •• e*
40 *.**.* '" **"". **. **' *** ****
, PRGI TEST ROUTINE 4.

'11411

peul

P0GAA

111341
001see
171556

171351
111561

•

,AOORua OF NEXT ROUTINE
,TfST ITERATION COUNT
,SCOPE ENTRY POINT

ai,

MACYlI Z1 (6511 17-NOY-75 14116
PRGe • INPUT. OUTPUT LOGIC TESTS

elu ..
107470

2320
2321
2322
2313

e."16

, 'II"

015061
00024.
114el2
100eu
11411Z

2318
2319

.Ieaes

.. nu

11734'

U91
2291
1292

Runz

een24 Inln 171 •• 4
114112
IunT \Inn 171762 PIUCI

leTnl
'lflU
187341

IIIUT
881412
IIBel4
00135.

2213
2284
2285
2286
2287

'AII 41

*'* *. *.. *_•••••••• **...... ** .. ***••• ** ••••••••••• 111 111.* *111 .. *•• *..... ft • • • • • • • , .

'TEST T"_T CLE~RING PUNCH READY AND/OR IE 81T CLEARS PUNCH INTERRUPT REQUEST.
STPCHY
, SET PUNCH YECTOR TO PIGU.
P0GAB
PIGUI RUETZ
HOV
'PRTH, psw
,UT PRIORITY 1.
81S
UIU,ITPS
, ENABU PUNCH XNTfRRUPTS.
CLR
,OUTPUT CHAR,
'TP8

~AG!

IT 1551
171542
111541
170314

TSTB
BPL
CLR
CLR
CLR
NOP
SCOPE
ERROR
aCOPE

PTPS

,WAIT FOR PUNCH Rf~DY.

ITPS
'TP8

'DISABLE PUNCH INTERRUPTI,
, ~OAD BUFFER TO C~EAR PUNCH RUDY,
,SET PRIORITY e,

Psw

,OK IF NO INTERRUPT OCCURS,
,RUDY CLEAR AND/OR J! aIT CLEAR DID NOT
,PREYENT PUNCH/PRINTER INTERRUPT,
, ClNTERRUPT UQUUT DID NOT CLUR,l
, * *.. *•••• ** ••• "" •••• 11 *.. .". *..... 'II", .... ** ........... t • • • • lII*"
'II • • • ** •••••• *••••
PeT411 41
, PRGe TEST ROUTINE 41
PIT42
, ADDRESS OF NEXT ROUTINE
20,
,TEST ITERATION COUNT
PIHU
,SCOPE ENTRY POINT
P0USI

*. *.

•

,'TEST
.. *_.* THAT
••• - 'II.CLEARING
*",e. , •• , READER
... *••• *DONE
*_.*. AND/OR
*•• *"'.Ifft.*SIT
•• ", CLEARS
•• "t" '" "'.READER
*... **" *'"
••• *•••• ft**
INTERRUPT RIQUE,T,

"1340
000114
ITlU6
Bllse0
171446

170160
171478

PIHUI

STRDRY
PIMAS
RUETI
HOY

818

CLR

111452

818

T8TB
B'~

111041
171436
111116
PIHASI

CLR
TST
CLA
NOP
aCOPE
ERROR
SCOPE

,SET READER VECTOR TO PIHA8,

'PRTY7,paW
UIT2,fTPS
"PI
nn.,'TKS
flU
.~4

nK!
fT~8

PSW

'SET PRIORITY T,
,SET MAINTENANCE MODE,
'OUTPUT CHAR,
'ENABLE RUDER INTERRUPTS.
'WAIT FOR RUDU DONE.
'DISABLE READER INTERRUPTS,
'CLEAR RUDU DONE,
,SET PRIORITY I,
10K IF NO INTERRUPT OCCURS,
,DONE CLEARED AND lOR 1£ CLfARED OlD NOT
,PREYENT RIADER INTERRUPT,

, *., •• *. *. *.,,*. '" •••••• *t. 'II"' •• **••• "•• *'II __ ",*._ •••••• "' ••• "'t.lIr", _ .ft* •• ft"'''' tII • • *",

011042

PIT421

PITU

111628
111011

1188

, PAGI TEST ROUTINE 42
, ADDRESS 0' NIXT ROUTrNE
,TEST ITERATION COUNT
,SCOPE !NTRY POINT

,.,,_ ••••• e. '" *•• ** •••••• "•••••• t'" •• *.* •• *., ••••••••••••••• *•• ***" ** *•• ." ••••

e07611

PUAA

107611
IIT6I6
107612
107614
107616

I15TT7
111411

114012

'T!ST THE DLIIA,. KEYBOARD JUMPERS ARI CUT PROPERLY
PUUI MOY
UU4",nKS
'ATTEMPT TO SET NON. SET ABLE arT8
fTKS
TIT
, DID ANY SEn
BEQ
,+4
18ft I' NO
IRROR
SCOPI

IITue
IIT622

eenO!

PBTUI

""14
Ilt626
117631

BUTT?

173476
171376

ITIU2

IIG0n

, *.. '**.t.t
•• *. *•• ,** .*.* ** .. _** *** •••• tt*t." . . *•• **** **t *.*"'.* •••• *. to III. ****
4l
, PRGI TEIT ROUTINE 43

111117
III ...
le7ua

112771

PITLn
leel
PIKAA

,ADDRESS OF NEXT ROUTINE
'TEST ITERATION COUNT
,SCOPE ENTRY POINT

, •• aa •••• *a •• *•••••••••• *._* ••• *** ••• *••••••• ** ••••• *•••••

171473

ITU!6

un IITU6 022H? aeu .. HUll

•

*", • • • • t • • • • • •

'TEaT THE OLIIA,. PRINTER JUMPERS ARE CUT PROPERLY
PIKUl MOY
'171473,np8
, ATTEMPT TO an NON.ae:TAII~E UTI
CMP
'UT7,nps
'DID ANY an,

**•

~"AXN.

DZK~AE

MACVII 17(.'"
901U4

DaTU.

101"0

,MAIN,
OZKL.AE

ITeNOV.'!

PAGe. INPUT-OUTPUT

~EAOER

00H52
007660
007666
007674
007702

141S6

PAGE 51

Tina

,8R IF NO

001481
114013
114012

MACYlI 27(651)
P~GI

~OGlC

UROR
'CO~I

P_NOV_75

14,06

PAGf 51

TEST

000001
171777
012767
012767
012767
052767
000167

.S8TTL.
Z"I
007706
1777&0
177400
040000
171736

\71354
113704
173310
171346

~"I

PRGI!

MOV
MOV
MOV

PRGI HAOER TEST
OPIT0,KSTART
OI777b0, RCMSK
U77400,ST.MSK

BIS

UITI4,PRGIO

JMP

SRSET

,SET ADDRESS OF FIRST

ROUTlN~

,3ET STAL.L. .IMIT,
,AUOW STAUS
,GO Gn STARTED,

r.*****.**********************************************.t**t_.tttt*tt* ••••

~07U6

007710
007712
001714
007716
007722
007726
007732

004767
004767
004767
104012

007134
007736
007740
007742

000001
007H4
001750
007750

007744
007750
007752
007756
007762

004767
104002
004767
004767
104012

007764
0077&6
007170
007772

000002
177717
000310
010000

007774
0U000
010004
0\0006
0\0012
0\0016
010m22

010024

PI T01

000000
007734
001720
007n2

0
PIT I
2000.
PIA.

173714
11i!644
173644

PI Til

, PRGI TUT RDUTINE !
,ADDRESS OF NE~T ROUTINE
/TEST ITERATION COUNT
'SCO~E ENTRY POINT

,t**t.t.tt*.*** •••••••••••• * ••••• _•••• ___

,**tt*t*****ttt_ •• _••••• _•••• _•••• __
Inb6b
11i!614
l13bl4

005367
001311
104012

,.*t_ ••

1725&0
1735&0
113552

**_. __ •• _._ ••

8PE~D.

t*tttttttt_t.t •••••

•

.*_**_. __ .* __ .. _
..

***t.t.ttttttt* ••••

'READ AND CHECK 1000 CHARACTERS DF SPECIAl. BINARY COUNT PATTERN.
,RANDOM SHL.L. BETwEEN CHARACTERS.
JSR
n,SSYNC
'SYNC READER, SET ERROR COUNTER
P!SA!
SlAL.L.
,RANDOM STAI.I.
JSR
17,SREAD
,GO READ CHARACTER
JaR
IT,SCHECK
,GO CH~CK CHARACTER RHO
SCOPE
,SCOPE
PIT2'

173636
173546

*._ ••..•.. t**t.t***t*ttt •• *••

OP SPECIAL. SINARV COUNT PATTERN, FU.L
'SYNC RfADfR, SET ERROR COUNTER,
,GO READ CHARACTER
,GO CHECK CHARACTER READ,
, SCOPE

I
PIT2
1000.
PISA

•

,SCOPE ENTRY POINT

,tWtt**tt****tt •••••• * ••••••• * •• _. ____ •• ** ••

'READ AND CMECK 2an CHARACTERS
JSR
XT,SSYNC
PIAAI
JU
17,BREAD
JSR
17,SCHECK
SCOPE

,~******

004767
004767
104002
004767
004707

, ~RGI TeST ROUTINE a
'ADDRESS 0' NEXT ROUTINE

,nn ITERATION COUNT

•• *************************.*********.* •• *.*** •••••••••••••••••••

2
PIT.sr
200,
PICA

t ••

, PRGI TEST ROUTINE 2
, ADDRESS OF NEXT ROUTINE
,TEST ITERATION COUNT
'SCOPi ENTRY ~OINT

_*a.t •••••••••••••••••••••••• * •• _••• _•••• _•• **_t •• _••• _*._ .....

'READ AND CHECK 200 CHARACTER GROUPS OF 8PECIA~ BINARY COUNT PATTUN,
'RANOOM L.ENGT~
, GROUPS (SnWEEN I AND 15). RANDOM $TAU BETWEEN GROUPS (0 TO 121 HSfCS) •
JaR
~7 ,BSYNC
'SYNC READER,
UROR COUNTER,
JSR
X7, GRCNT
PICA.
'GENERAT! RANDOM CHARACTER COUNT.
,RANDOM STA~~ (0 TO 127 MSECS)
STlL.L.
P ICC!
n ,BREAD
JSR
,GO RUD CHARATER
X7, SCHECK
JSR
,GO CHECK CHARACT!R RUD
DEC
RNCNT
, DECREMENT RANDOM CHAR COUNT
aN!
PICC
,GO READ AGAIN IF COUNT NOT m,
SCOPE
,SCOPE

,HUN.

DZKI.AE

MACYlI 1"&57)

U-HOy.n

PRGZ.PRINTER T18'8

1416
lei'

au.

...... ."...
......
......
\71177

111816 IIlTn
.41.
B"U' I1l1n
2413 ellln IIIU'

141\

aU4
2425

\f""
Illne 11.,.7 174.61

118854

14 . .

un 111161

1418
2419
lUI

2UI
lua

1188'1

""22
.... II

17125.

111"4
174IU
111148
111254

111161

lUI

iUI
2442
2443
2444
1445

......

HUH

2446

2447

1048
ilU.

.UI

1451
2452

I"UI

111"4
11114.
1111"
u.1I2
1111"
'UI61
IUI'4
111171
lUlU
111211
11 ..14

24"
2454 1112 ••

lin"

1I!!67
111181
114112
'1""
IIiU.

•• n"

BI'2U

111212
111214
uu '\8211.
24'1 IUU4
2462 IIIU2
un 111234
Z464 .U2h
24'! 111204
24.6 111252
24" 111254
UU 11121.
24 .. IIUU
2U. 0112U
2411 '"266

114818
In4411
aU"7

2U1

2458
US,

.f1AJN,

DZKLAE

nnu

......

111313
lUI ..

111210

184.12

111212
111214

•• 1112
'11426

2418

• 11216
linea
linea
111311
IIUI2
118314
IIIUI
111322
.I.nl
.IU36
1113..

11411.
114445
112761
114...
114363
'''3'1

2419
2411
2411
2412
i!4U

2U4
2465
2486
2411
2418

un IIln.

2n. 111354
24'1 111361
2492 IIU.4
24'3 11.31.
2494 '11314
24'S 111316
2496 '"412
2497 ."41'
14'8 1184\2
2." 11.414
25ee 11.4\6
2511 111414
2512
2583 111416
asl4 I1I43e
25.5
2586
"1432
aua 11I1S4
'"436
ZSIl • 11444
.511 11141i!
a5l2 11.454
2513 11 •• 5.
2!14 111464
• 51' 111418
2516 111414
2511 111'"
nil 11151.
is'' 111511
2511 llIli\l
2521 1115\4
2522 II IS 16

15.,

2'"

2524
2'15

nun

""15
1742 ••

UUTI
lin ••

MOYa
JaR
BII

.e11l6

111161

•••• 11

111140
•• eal'

.U353
171122

lin.,

111111
114111
1....1
11I1U

'\lne .....4

1\1512

ItlUa

.. IT ADDRI.' I' 'ST'ROUTINE,

tl1U .. ,ITLHIK

fin STAL-l. LIMIT
,lET U~ IUPFIN AREA,

usn,'Rno

If,n.,

IRan
,aD aET IT ARTED.
*.. *.. *" .. *.... '* .. ". *'" '* .......
*........ *. **••• III""""", '*.,. '* '* .... '$ *.a* ......... '*
, PRaa TlaT ROUTINE •

'TVP! TiTLE,

"2"RCNT
n"RCNT

,'\,n

I?,~apc"

RCNT,CUA
CTRI
cTla
CTRA,CTR8
041,11
If ,~.PCH

CTRe
CTIC
'15,X'
XT,LSPCH
I7,LSPCH

.'I,XI

X7,~.PCH

CUA

,PRINT
,.\'
, RCNT TO CTRI

,DECREMENT CTRl
'."ANCH IF NOT I
II. ICOPI
,SPACI COUNT TO CT~a.
,'PACE.
'DECREMENT CTRe.
,BRANCH I' NOT DONE SPACING.
'CARRIAG! RETURN.
'DUMMY CYCLE.
,PRINT "-,

*""

*,," "'".,. *."" "'"

'III""""

, "'. '" "''' *'" *I ••• """". * ***'" "''' 'III'" '* "'"""
*'" '" '" **TEaT
**'" *ROUTINE
"''''''' t* I *" •• ,,"
, PRB2
PIlII
P212
'ADDRISS OF NEXT ROUTINE
, ." ••• *t_*.t •• ".t.,," *",,* III ••• *•• *"
tt*t t.*. ** .tt* ** ***t .",.*t ••• 111,,** *
'RIGHT MARUN TUT
TYPE
'TYP! TITLE
RMTST
MOV
fl4.,CTRA
'SET UP PDR nils
MOV
UM338,RHD
,n
CK37
BR
,NO
CTtA
MOV
-15, ,CTRA
,YU,
MOV
UH3U,RM8
'SET UP YOR 37 •
CTtA!
TVPE
'TVPE"' ..
RM331
CTU
DEC
'DONE N TIMES,
CTIA
8N!
'BRANCH IF NOT N TIMES
TYPE
, TYPE-I·,
RHBI
OPEN

lUI.

·.J

PAGE 5l
SCOPI
'SCOPE.
,.",*.*-*.t.t ••••• ", ••••• _* .*t.t_t ••• *"" **. 'II. *''' *t *at. __ *"" ••• t .t*" •• _*",,**.
, PRG2 TEIT ROUTINE 2
PIT21
2
P213
,ADDRESS OF NEXT ROUTINE
, " •• *t. t*"*"t.". *. *".* t** *t ****."tt*** *. **** *tt*._tt"*,,** ••• t*t ••••••• __ •
'SPACE TUT
TYPE
/TYPE TZT~E •
SPTIT
MDV
U ... CTRA
,33135 COUNT TO CTU.
CTUI
TYPE
,TYPE SPACE,\,
SPTSTC
DEC
C1RA
'DDNE TIMES SET I~ CTRAt
aNE
CTU
,BRANCH I' NOT DONE
MOV
n •• ,CTRA
,SET UP eTRA COUNT 'OR 33/35
II ,CTRB
MOV
CUBI
cr2CI
CTRB,cnc
HOV
MOVB
,CARRIAGE RETURN,
'15,XI
JaR
X1,LIPCH
n,~SPCH
JaR
'DUMMY CYC~E,
cnDI
MOVI
'.1,.8
,aPACE NUMBIR D' TIME.
X1,LIPCH
JSR
'SET IN CTRC,
cnc
DEC
'OON! SPACING,
BNI
craD
'BRANCH I' NOT DONE SPACING.
Mova
'DONE, TYPE A '/',
JIR
.,,~'PCH
CTRA
D!C
'DONE 36 TlMEn
aN!
CTn
'BRANCH I' NOT DON!,
aCOP!
,DON!, SCOPE,
U,CTRB
craE!
ADD
,MOOln CTIII 'OR NUT TRY,
aR
CUC
'GO, DO IT AGUN,
*_••• *_. III. III. III *III *III III **III *" III ***•• III. *. *_III *. t_t III III **_*_**III' **... III. III. III **III _ III. III
P2131
, PltG2 T!IT ROUTINE 3
3
*
PiT4
,ADDRESS 0' N!XT ROUTINE
, _* *III *III *III _ *•• III _ III *•• *III. III." III III' ** *III *_** *t_ III t •• *_. *. **_. III" *•• **
'LINI FEED TEST
TYP!
,TYP! TITI.I

••

ae •• u

111.14

17IIU
111.,.
17I85e
1111 ..

......
...."

"I, ..

113111
171172

...102

I1I?U

,-*.
*.

1...11
114.. 4
.52161 14eal.
112,.7 ".111
11 •• 15
IUT61
1127 ..
114161
1121 ••
...161

"ITI,KITART

"".* •••

.eaU3
11.,21

.... 13

MOVB
JaR
MOY
DEC
liN!
aCDPE
HOV
HOVI
JIR
DEC
aNI
MOYB
JaR
JU

114211
IIIIST
114112

112161 e •• e44
0121" •••111
.al61 171144
1127 .. .... 15
U4?" 174122
11"61 114116
112110
11.161 1141 ..
.15361 171.14
114161
185361
881111
114812
.U167
•• 1144

CT.II
cnel

11IUI

"ACYl I 2? (657) 11·NOV.7!
PRG2.PRINTER una

2412
2473
2414
2415
2416
24"

171144

sua

eTaAI

IU,., 114341 allau

114115
181416
112161
IU761
U4 ...
110341

PRea-PRlNTIR TIlTS

TY'E

• ••• 81

IU211

1455
U56

• "'.*.
CRTST
MOV
CK3T

111264

...,61 174224
111311
112711
114161
114161
111718
114167
111141

MOV
IU
HOV
JIR
JMP

''CARR
* ••• lAGE RETURN TEIT.

IU1n

111116
111124
'18111

....,..

, ...... *...... '*. *
'AODREa. OF NEXT ROUTINE
'In
** ••• **~** ••• **.*.*** •• ****.*.*.*.******* ••• ****.t****ttt_ ••••••••••

11111'
118116

lin ..
... U7

PRIll

PlTtI

IIlTn

111111

171564

1141 ••
1141..

2437

2434

171111

If II ••
173134

81UU
.IIIU
111111

1,,'76 1111"

PAlE 51

.'8TT~

11111&

2433
2434
2435

2436

18Iln

u, ..

...\J.
.... 11

~'Tn

ITe6l4
tUn2
111721

*. _

CUAI

111" •

.... U

113.,.
111.,.
CTlII

MOV
CK37
BR
ADD
HOVB
JIR
Mova
JlR
DEC
IN!

sCaPI
ITA~L

*. *.

_t _

UIT14,PRGID
f11"CTRA

,SIT 33/3' LIN! 'EEO COUNT •

" \ , XI

CUA
""CTRA

,NO,
'INCREMENT LINE 'lED COUNT BY
,TYPE 'V

'\I,X.

'~IN!

CTRA

,DONI N TIMES'
,lUNCH I' NOT DON!,
, DONI, ICO~1t

11 ,~apCH
IT,~SPCH

cnB

'A~~OW ITA~LS,

,317

'EED,

"TA~~

8R __ •••••••
CUA_•••••••• *__ ••,REPEAT
,•••••••••
___ •••••••••• _••••••• t ••••••••• _ ••• _ ••••

pa141

PITS

, PRII TEIT ROUTINE •
,ADDRU' D' NIXT ROUTINE

•

aMAtN.

DZKLAE

HACYI! 17 "57)

If-MOVan
PRGhPAINTU nna

Ulh

,*_.-.-*.*
.•••• _.*.* .. *.* ••• **_ ••• * •• _••••• _••••••••••
ITAB TUT

2526

neT
01.514 mUH1
asn elena 104m 14
Ule Bun4 luau
U!I Bun. 004567
ana

Ise811

010542

Buee7

mU5Qb

014315

01S550

BU7n
005167

U8Bm1
eBBB4.

iU7U

0eaU4

en367
S01HI
1040U
0USb7
104000
0143e0
104000

IUU.

un
2536

2,lT
2538
2SH
2540
2541
2542
2503
2544
2545
254&
2547
2548
254.
2550
2551
2552
2553
2554
2555
255&
2557
2558
2559
25&0
2561
2562
25&3
2564
25&5
25&&
25&1
2568
2569
2570
2511
2572
2573
2574
2575
2SH
2571
2578
2579

,MAIN,
DZKI.A!
2580
258 I
2582
2583
2584
2585
258&
2587
2585
2589
2590
2591
2592
2593
2594
2595
2596
2597
2595
2599
2&00
2601
2602
2&03
2604
2&05
260&
2607
2605
2609
2610
2611
2612
2&13
2614
2&15
2&1&
2611
2618
2619
2620

2Ul
2622
2623
2&24
2625
2&2&
2UT
2628
2629
2U0
2631
2632
2633

110544
0115S6
0\0SU
0\1,.6

019572
019516
0UU0
010U2
010U6

010b10
010&12
010U4
0Ubl&
010622
010U4
010&2&
010630
010&32
010634
0U&3&
010644
010&52
0U&54
0106&e
010&U
0\0&70
010612
010&1&
10re2
010706
010712
01071&
010722
010Hb
010130

010732
010734
01073&
010740
010742
010H4
010746

906014

000;40

2534

25U

PAGE 54

01432b
0053b7
00U73
000205
000000
000010
104000
014337
U&767
01&761
001407
IU100
0047H
005H7
001371
112100
0041&1
0047&1
004767
1I~7e0

004'"
0053&7
00134&
000207

170626

U0I36

TPBMI

17Z57b

TPBMA I
1705&2
TSCNTI
SPCNT I
TASP I
1777b4
1117&0

17053b

010754
01075&
0101&0

10401&
014201
104012

0101&2
010764

000007
010774

01076&
010110
010772

10401&
014204
104012

010774
01017&

000010
01100&

011000
011002
011004

10401 &
014207
104012

011006
011010

000011
011020

011012
011014
01101&

10401&
014212
104012

011010
011022

000012
011032

HSPAI

000040
173512
170520

TABPS I

000011
173474
173470
1734&4
000057
173454
110460

USPC I

MACYII 27(657)
17·~OV-75
PRG2.PRINTER TESTS

01~7&2

CKU
aCOPE
JU

n,TP8M

**.*****.~*.*8***~$

,an TAB COUNT •
Int

IND.

,TVP! HARKERS

TSMRK.\
HOV
",CTRA
C~R
SPCNT
JSR
X7,TABP
INC
SPCNT
O(C
CTAA
BN!
CT48
SCOPE
MOY
(SI·,CTRA
TYPE
TBTST
TYPE
T8MRK I
DfC
CTRA
TpBHA
aN!
RU
15
OPEN
OPEN
TYPE

ILIN! COUNT TO CTAA
I m TO SPACE COUNT.
,GO SPACE-TAB,
I INCREMENT SPACE COUNT.
'DON! 7 LINES!
IBRANCH IF NOT DONE.
, DONE, SCOPE,
I TYPE TUT TI T~E.
'TYPE MARKERS

IEXIT.
/TAB COUNT
ISPACE COUNT
'CR~F •

CR~'

170542

MOV
MOY
SEQ
MOYS
JSR
DEC
SNE
MOVS
JSR
JaR
JSR
MOVS
J5R
DEC
8N!
RT5

'TAB COUNT TO CTAS

TSCNT, CTR8
SPCNT ,CTRC
UBPC

ISPACE COUNT TO CTRC
,eRANCH IF S~ACE COUNT IS 0,
,SPACE

U0,xe
17, ~5PCH
CTRC
TASPS

'DECREMENT SPACE CDUNT
,BRANCH IF NOT YET 0.
,TAB

#11,10
17,~SPCH
~7, ~SPCM

'DUMMY CYC~E
IDUMMY CYC~(.
ITYPE "I"

If, ~SPCM

*·I,X0
X7,~SPCH

, DECREMENT TAB COUNT.
,BRANCH IF NOT DONE TABBING.
,DONE. EXIT.

CTRB
HSPA
X1

,*********************************.*******************.t***.*.*.* ••••• t ••

PHSI

•

I PRG2 TEST ROUTINE 5
I ADDRESS OF NEXT ROUTINE

P2T6

,*t*.***t******* ••• **._.** ••••••••••• _••••••• * ••••• ***.*.*.*.*_**********
'TYPE I.IN! OF CHARACTERS ABC
TYPE
CHRTST

104000
014507
104016
01417&
104012

00000&

CUAI
C1481

000005
010750

010750
010752

• ~., T8CHT

7
TYPE

!BUU

enan

MOY

14106

,TYpE "CHARACTER

TYP~N3

'TYPE loIN!

A
SCOPE

, SCOPE

nsTS'

PAGE 55

,.** ••. **.***********
•• *.* •• * •••••• **.***.*** ••••• *•••• *•••••• *.** ••• * •••
6
, PRG2 TUT ROUTINE

PZTb I

IADDRESS OF NEXT ROUTINE

P2T1

,**.w •••••• _•••• * •••• ** •• *.*_.**** ••••• ** ••• *.* ••••• *.* •• ** ••••• *•• *.**.*
/TYPE I.INE OF CHARACTERS OEF
TYP~N3

'TY~~ ~rNE

D
SCOPE

,SCOPE

, •• ****.* •••• *** ••••• * ••• *.** •• *.****.***** •••••• *.**.* ••• ** •• *•• ***** •• *

P2TH

, PRG2 TEST ROUTINE 7
,ADDRESS OF NEXT ROUTINE

P2110

,.**** •••••• *.** ••• * ••• *•••• ** ••• ** ••• **.*.* •• **** •••• * •••• **.* •••• *•• **.

, TYPE LINE OF CHARACTERS GHI
TYP~N3

'TY~E

~INE

G
SCOPE

, SCOPE

1*********.****************** •••• ********.************ ******* •••• **** ••

P2T101

, PRG2 TUT ROUTINE 1m
I ADDRESS OF NEXT ROUTINE

10
P2T 11

,***** ••• *.***.****** •• ***.*.***.**.* •• *••• *** •• ** ••• ****.*.****.**.*****

ITYPE "INE OF CHARACTERS Of
TYPLN3

JK~

'TYPE~INE

J
SCOPE

ISCOPE

,*****.*.********.******** •• ***.*************** •• ****.*.****.**.*.*** ••• *
11
, PRG2 TEST ROUTINE II
•

P2UII

P2TI2
'ADDRESS OF NEXT ROUTINE
'**********************~****************************** .****'*'*****'.***.
,TYPE ~IN( OF CMARACTER5 MNO
TYP~N3
'TYPE ~INE
M
SCO~E
, SCOPE

,****** ••• *-*****.**** •• _**.****.* ••••• **********.***.*********.*********

PHI2I

12
P2T 13

, PAG2 TEST ROUTINE 12
, AD~RUS OF NUT ~OUTI N!

•

,****.** ••• *** •• ***.**********.**.** •• **.*.******** •• *t***.t.t.***.*** •••

,TYPE I.INE OF CHARACTERS PQR
011024
011026
011030

104016
014215
104012

011n2
011034

000013
011044

TYP~N3

I TYPE

~INE

P
SCOPE

, SCOPE

,*** •• t*t.****.**.***.****.**.***.**************************.*.*.t.***.**
P2U31

13
P2T14

, PRG2 TUT ROUTINE 13
,ADDRESS OF NEXT ROUTINE

•

,t*w******************.**.*.********.***.****.********t************* •••

,TYPE I.INE OF CHARACTERS STU
011036
011040
011042

104016
014220
104012

011044
011046

000014
011056

011050

104016

TYP~N3

S
SCOPE

,**.t*****t**** •• *******.* •••• *._** •••• ******** •• **.**t* ••• *tt* •• ** ••••••

14
, PRG2 TEST ROUTINE 14
PITIS
'ADDRESS OF NEXT ROUTINE
J********.***.***********~**************.*****.******* .e
'TYPE LINE OF CHARACTfRS YWX
TV~~N3
, TYPE ~rNE

P2U41

•

... *•• ****_ •• *_ ..

,MAIN,
OZK~A!

HACYlI ITtU7,

I '-HOV-n

PRG2.PRINTIR TEsr8

2U4

gllnl

114221

aus
2636
2UT
aUI
au,
2um

0110'4

1040\2

011B!6
mU0U

000015
011070

aUI

UI0U

'TV"

0110U
011066

104016
014226

TYP~N3

2U2
2643
2644
2645
2646
2641
2640
264'
2650
2651
2652
2653
2654
2655
2656
2657
2658
265'
2660
2661
26U
2663
2664
2665
26 . .
2661
2668
26"
2670
2671
2672
2673
2614
2675
2676
2677
2678
2679
a600
2681
2682
2683
2684
2685
2666
2681

104012

8COP!

, aCOPE

,MAIN,
DZK~AE

Bl1070
011012

2~8~

2735
aU6
aU7

aua

2739

, PRGI TEIT ROUTINE "

•

paTI6
,ADORESS OF NEXT MOUTINI
, ,. ••• *** *** ** **tr *1Ir** *•••• ** *"' .. *** **** 'II *.tt.* •••• *fr*t..". **.* ••• "'***IIr.* •• **t
~%NE

OF CHARACTERa VIe

~lN!

, *'" "'. *.. ." *16.. 'II"'" ** lit ft".* '" ** *1If*" •• III!" t*""'.*****'"
*******_ .. \II *********.****.* •• **.•
, PRDI T18' ROUTINE ,&

UUI'

PiTI.'

PITH

011ln

,AODRUa 0' NUT ROUTINE

, *t*. ****. '* **" *... _*"' •." **."." •• *.. 'Ill." *•• **** .. *' *", **************.*"'"6, *iII*.** •••••
'TYPE ~INf O~ CHARACTERS 123
TVPLN3
ONE
SCOPE

,TYPE ~INE

011014
0110h
011100

104016
014231

011102
BlIU4

000011
011114

01IU6
011110
011112

10401'

TVP~N3

,TYPE ~INE

e\4234
104012

FOUR
SCOPE

/sCOPE

011114
011116

00na0
011126

1040U

,SCOPf

'******************************************************** •• **.A******~**.

~i!T 171

IT
pnu

, PRQZ TUT ROUTINE 11
, ADDRESS OF NEXT ROUTINE

•

,********************t**********t**********.***************t.* •• ** •••• *o*
'TYPE ~INE OP CHARACTEAS 456

, *** *•." .. *ae.. *." **III." it. *... " ***." .. **.... , PRQ2
*.** TUT
*."' •." ROUTINE
*** ..... ." *•• *... *" 'It'" *.,,* *.****",
20
•
It • • •

PZTUI

PiT 21

, ADDRESS OF NEXT ROUTINE

•

,*****.*.*********.**************************.***************************
, TVPE ~lNE OP CHARACTERS 78'
011120
m! 1122
011124

104016
014231
104012

011126
011130

000021
011140

TVPLN3
SEVEN
SCOPE

/TVPE

~lNE

, SCOPE

,************.,,**************************************w*.".,,* ••••• *.**_ •• ****

P2T211

21
P2T22

, PRG2 TEST ROUTINE 21
, ADDRESS OF NEXT ROUTINE

•

,*****************************************************.**.** ••••• *t***.**
'TYPE

011131
011114
011136

104016
014242
104012

011140
011142

000ell
011152

011144
011146
011150

104016
014245
104012

011152
011154

0000;!]
0111U

MACYlI 27(657)
I1wNOV.75
PRG2.PRINHR HSTS

~INe

OF CHARACTERSI"
TYPLN3
C41
SCOPE

,TYPE

~INE

, SCOPE

,*********************.*.*****************************.*.*******t********

P21221

22
PiT23

, PRG2 rUT ROUTINE 22
, ADDR!SS OF NEXT ROUTINE

•

,******* ••• ****-*.********* •• *** •• **.**** •• ***.*.***.*******************~
'TYPE

~INE OF CHARACTERS
TYP~N3

SX&

/TYPE

C44
SCOPE

~INE

, SCOPE

,.*.*****.*********************************************** ••• ****t.** •• ***

P2T2l.

23
P2T24

, PRG2 TEaT ROUTINE 23
'ADDRESS OF NEXT ROUTINE

,************.******.** •••• *_***.*.***.*_.**** ••••• ********.*ft***** •• ** ••

1410~

PAGE 57
, TVPE LINE OF CHARACTERS 'Cl

011156
UIIU
011162

104016
014250
104012

0111b4
011166

000024
0111 76

011170
011172
011174

10401&
014253
104012

UII7b
011200

000025
011210

TVP~N3

,TYPE

C47
SCOPE

,SCOPE,

~INf

,** ••••••• *****.*.**** •• **.** •• ****.************.**.*** •••••••• *._*.*.*.*

P2124.

24
P2Ta5

, PRG2 Tf5T ROUTINE 24
, ADDRESS Of NEXT ROUTINE

,*****.******.*.*****.*.* ••• *** ••• ********.**** •••• *•• ***.**t*.****** ••••
,TVPE LINE OF CHARACTERS •• ,
TVPLN3
C52
SCOPf

/TYPE LINE
/SCOPE

,.*****.e.**.******************* •• *.**********_._*_*.****.********~***~**

P2T25.

25
P2T26

, PRG2 TEST ROUTINE 25
, ADDRESS O~ NEXT ROUTINE

'~*********************.*******.*****.***ft.*************

,TYPE
011202
011204
011206

10401b
014256
104012

011210
011212

000026
011222

011214
011216
011220

104016
0142&1
1040\2

011222
011224

000027
011234

~INE OF CHARACTERS
TVP~N3

-.1

•

••• *••• _•• * ••• **_

/TYPE ~INf
C55
SCOPE
, SCOPE
'********.**************.***~********* .. *************** ••••• *••••
P2U6I i!b
, PRG2 TEST ROUTINE 26
P2127
, ADDRUS OF NexT ROUTINE

*••

*.-**.
•
•

,.*.**t***** •••• *******.*****.****** •• ***** •••• **** ••• *t****._.***.*.** ••
/TYPE LIN! OF CHARACTERS .,.
TVP~N3

, TVPE

C72
SCOPE

, SCOPE

~INE

27
P2T30

, PRG2 TUT ROUTXNE 2f
, ADDRESS O~ NEXT ROUTINE

,*.**.* •• *** •• *** •• *•••• **** •• **.****** ••••• **.* ••• *•••• **.***~*.********

~21271

•

,**t.***t***** •• ****.**** •• ********* ••••• *••• *••• ** ••• e.****_**.*.*.***_.
01122~

011130
011232

10401 b
0142.4
1040\1

UIU4
011236

0eeue
011246

'TYPE ~INE OF CHARACTERS
TVPLN3
CT5
ICOPE

.'7

,TVPE ~ZNE
,SCOPE.

'********.********* •• *.***~*.***.**********.****.**.******.t**.**********

pan01

30
panl

, PRQ! TEST ROUTINE 30
, ADDRESS OF NEXT ROUTINE

•
•

,.*****************************.****************.****************.*******
'TYPE ~INE OF CMARACUR8

011240
011242
011244

104016
014261
104012

011246
011250

111260

000031

TYP~N3

't\

, TYPE

~INE

CI0e
ICOPE

, SCOPE

31
pane

, PAU TUT ROUHNE 31
, AODRUS OF NUT ROUTINE

,.*t.** ••• **.*****.* •••• *.** ••• *._.*******.* ••• *_.*.*.*t**.**.*.****.** ••

PZTlII

•

,t*t***t****.*.***._.***.***.***.**.* •• ** ••••• ***********t*t.**.*********
011256

0142TZ
104012

'TYPE ~INE OF CHARACTERS l "AND ~!FT ARROW
TYP~N3
ITVPE ~INE
CI3S
SCOPE
, SCOPE

011260

000032

~2T321

011252
011254

104016

2740
2741

,aCOPE

PITISI ,15
,TYPE

2688
26'0
26 9 1
2"2
2693
26'4
2695
2696
26'7
2698
269'
2700
2701
2702
2703
2704
2705
27Z6
2707
i!70!
270'
2710
2711
27U
2713
2114
2715
2716
2717
2718
271'
27i!0
2121
2122
2723
2724
2725
2726
27i!7
272&
2729
2730
2731
2732
2733
2734

SCOPE

, *.* "'." "'** Il .. " ** t ","11,,111 *t.***!!1 "fI •• "' .. " ••• e •• *******111 .*** *.111 til IHr.*.'1Ul'tUI***It***

,**t**** •• ****t*.********** •• *.***********.***.**_.*.********************
32

, PRG2 TEST ROUTINE

•

,MAXN,
CULA!

2141

MACY!1 17("1)

IhNoy-n

PRGe-PRIMT.R T£8T.

$11261

Ulh

,.* '* ._..... *•• *.****

111316

PiU!

2743

it"

2744

2145

2146
2141

2748
2749
215e
27'1

2152

an3

2154

17"
215.
i151

2158
2759
27&0
2161

21U
2rb!
2764

21b5
2H6

2"1
2168
2169
2770
2771
2772

IIIIU
el1270

111216

014767

173456

642"7

I48BU
luan

sua1

811302
BI1310
011314

152767
194767

111316

001033
011Ue

ZI1320

ulan

UT152
16714e

IUU4

194812

.MAIN 1
OZKLAE

2787
2788
2789
2790
27 9 1
2792
2193
2194
2795
279b
2797
2798
2799
2B00
2801
2802
2803
• 60.
2805
2806
2801

2608
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
il824
2825
2626
2827
2826
2829
2630

2831
2832
2833
2834
2835

*Itlt. ill 11****"'**** !It • • *••••• !11 Ill •• ltfl*** *** ***. **i ••• *
'$

err

_.*.** •••••• ****.* ••••3J******t*** •••••• ****
•
, .... * *... **' It.* ** *" **** *' **." 1'1. '* .... ".., .**. *.,. ... ".... *
*
***t.** ••
33
P2T34

III

mll3Z2

011124
011326

011330
011332
011336
011344
011352
01\356
011364
011370
011374
011376
011400
011402

104ml]
104012
104000
014533

004161
012767
042767
004161
052767
004767
U5].7
001363
104012

'II

,.*_.******t.a ••• **.** •••• _••••

113450

000006
040000
173IU
040000
173150
170010

IU0U
167616
167h4

I PRO! TUT ROUTINE
IADORESS OP NEXT ROUTINE

It*

'III. III It • • • It *1It ••••••

/TYPE 12 ~INI8 OF ABR]] WORST CASE PATTERN. A~T!RNATE ~IN!S WITH aTALLa,
CKU
1337
aCOPE
INa. BYPASS TE8T,
TYPE
ITYPE "WORST CUE PATTERN TUT"
WCPTST
J8R
X1, FW336
IPATTERN TO SUFFER,
MOV
. . ,CTRA
I SET COUNT TO 6
CT33AI
UIT14,PRGIO
BIC
'CLEAR STALL BIT IN PRGlD.
JaR
X7, TYPLN
ITYPE LIN!
UITI4,PRGID
,SET STALL SIT IN PABlO.
17, TYP~N
JSR
ITYPE LINE.
CTRA
DEC
IDONE 6 TIMES?
SNE
CTBA
IBRANCH IF NOT • TIMES VET,
SCOP~
I DONE. SCO~E.

,****** •• *.****************.*****.****.*********************.t*.**t.* ••••

000034
177771

P2Tl41

34
PZTL8T

•

, PRB2 TUT ROUTINE 34
I ADDRESS OF NUT ROUTINE

, •• ******************************** •• **_********.****.**** •• ****t.ttt**.*

011404
011406
011410
011412
011414
011420
011426
011434
011440
011446
011452
011456
011460

10401.
104012
104000
014533
004761
012767
042767
n4H?
0527&7
004167
005367
0013b3
10401.

173426
000006
040000
173100
040000
173066
161726

167756
167614
167602

MACYI I 27(b57)
17-Nov-rs
PRG3.PUNCH TEST

011462
011410
01147&
011504

000003
171777
012767
052767
0127&7
000167

011510
011512
011514
011516

000000
011566
000005
011520

011520
01152&
01153 •
01153&
011542
011552
011554
011560
011564

012767
004767
004767
004167
004767
005367
001371
004761
004767
104012

011566
011510
011512
011574

000001
011646
000005
011576

011510
040000
177400
170134

1410b

a7544
a7552
171500

ITYPE 12 LINES OF ASR35 WORST CASE PATTERN, ALTERNATE LINES WITH aTALLe,
CK35
1357
aCOPE
INO, BYPASS nST.
TYPE
/TYPE "WORST CASE PATTERN TEST"
WCPTST
JSR
X7,PWl56
/PATTERN TO BUFPER,
MDV
~b,CTRA
'8fT COUNT TO 6,
CT34A I
~Bnl4,PRGIO
BIC
ICLEAR STALL BIT IN PRGIO,
~7, TYPLN
JaR
ITYPE LINE.
SIS
'BITI4,PRGIO
19ET STAbL BIT IN PRGID.
JSR
17, TYPLN
ITYPE LIN!
DEC
CHA
lOONE 6 TIMES'
SNE
CU4A
IBRANCH IF NOT b TIMES YET.
5CO~E
lOONE, SCOPE.

PAGE 59
.SSHL PRG3.PUNCH TEST
IPRG3 • PUNCH TEST
Z-3
X··1
PRGll
#p3T0,KSTART
MOV
SIS
UITl4,PRGIO
MOV
'171400,STLMSK
JMP
SAsn

IADOR OF 18T ROUTINE TO KSTART.
I ALLOW STALLS.
ISET STALL MASK
I GD GET Sf ARTfO

,******* •• *** •• *•••••• ****.***.**** ••• *** •• ** ••• *** •• **** •• **.* •••• *••

P3T01

0
PSTI
5
PlAA

I PRG3 TEST ROUTINE 0
IAOORESS OF NEXT ROUTINE
ITEST ITERATION COUNT
ISCOPE ENTRY POINT

'*****.*******************************************~******- ••

0115~6

0010Z0
0~0216

172270
112322
17.630
167610
000U&
000230

000126
000150

000002
177117
000005
011664

I
PlT2
5
P3SA

•

I PRG3 TEST ROUTINE I
IADDRESS OF NEXT ROUTINE
ITE8T ITERATION COUNT
I SCOPE ENTRY POINT

,.*te •• *.*.** •• **.** ••• **.***.*******.*.*.***_* ••• *•• ***t****.**.***.****

004167

011646
011650
011652
011654

*••• *•••• *•• *

,.***.* •• *.*._***** •• ,.*********.,.*********.**.****.* tft**** ••• *•••••••••

001000
000140
11il212
172244
172552

004767
\04012

*.-•

IPUNCH SPECIAL BINARY COUNT PATnRN IN PUNCH MODE 0 CFULL SPEED)
PlAAI
MOV
#512.,RCNT
Isn CHARACTER COUNT TO 512
X1,PFRNT
JSR
,GO PUNCH FRONT END,
JSR
H,IN8IN
IINITIALIU SPECIAL BINARY COUNT
P3A81
JSR
X1,GTSIN
IGET 81NARY CHARACTER
~1, LSPCH
J8R
IGO PUNC~ THE CHARACTER
RCNT
DEC
IDECREMENT CHAR COUNT.
PH8
8NE
IBRANCH I~ COUNT NOT YET o YET,
JSR
X7, PL TLR
IPUNCH TRAILER.
XT, PC HECK
JSR
ICHECK DATA PUNCHED,
SCOPE
ISCOPE
P3T! I

012767
004767
004167
004767
004761
104002
005367
001370

011516
011604
011610
011614
011&20
011624
01162b
011632
011634
011640
011644

167634

167556

167530

IPUNCH SPECIAl. BINARY COUNT PATTERN IN PUNCH MODE I (RANDOM STAL~S ArTER
I PUNCHING EACH CHARACTER.)
P3U,
MOV
#512, ,RCNT
ISET CHARACTER COUNT TO 512.
X7, PFRNT
JSR
I GO PUNCH FRONT END.
JSR
n,INBIN
/INITIALIZE SPECIAL BINARV COUNT.
P38BI
JSR
X7,GTeIN
IGET 8INARY CHARACTER,
JaR
X7 ,LSPCH
I GO PUNCH THE CHARACTfR.
STALL
IRANOOM STALL,
ReNT
DEC
lOECREMENT CHU COUNT,
BNE
PUB
IBRANCH IF COUNT NOT YET 0.
X7,PLTLR
JSR
IPUNCH TRAILER,
n,PCM~CK
JSR
ICHECK DATA PUNCMfO.
SCOPE
ISCOPf

It._* •• _* .... _... *._.**** ••• *•• *••• *•••••••••••••••• __ ****t ••

PlT21

PlTLST

5
P3eA

I PRG3 TEST ROUTINE i
I ADDRESS OF NEXT ROUTINE
lTEST ITf~ATION COUNT
ISCOPE fNT~V POINT

*._* ••••• *••

•

,.*****************************************************it*.*** •• t.tt*.t ••

2836
2837
2836

2839
2840

,ADDRua 0' NUT »DUTlN!

It • • •

'TVPI a LINU a~ ALL CHARACTERS, nAn LIN! FULL SPUD, neOHD LINI WtTH STAbLe.
JU
X7,FBALL
I~ILL 8U~F!R WITH ALL CHARACTER ••
'UTI4,FRGID
ICLEAR STALL
IN PNUD
JaR
17, TYPLN
/TYPE LtN!.
5U
UXTI4,PRGlD
18ET STALL BIT IN PROID
JaR
n,TYPLN
/TYPE LIN!,
SCOPE
laCOPE,

PIT3!!

2773
27T4
2175
277&
2777
2718
27H
2780
27 8 1
2782
2783
278.
2785
21ab

PAG! 58

011656

01ia?

1777b0

1717mb

IPUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE iI.
I (RANDOM STALL BEFORE PUNCHING RANDOM LENGTH GROUP OF CHARACTERS).
IMAXIMUM GROUP LENGTHI 15)
MOV
'1771U,RCMSK
InT CHAR GROUP MASK FOR ITe8) MAX).

IMA.XN.

DZKLAE
2841
aUI
Z843
2844

MACYI! 2'(657)

01lbU
011672
011616

UHBI

2845
2846

11pe.

2841

011714
Ul1U

i!848
a849
i!850

28"

2852
2653
2854
i!85S
2856

mtl110
011124
011U6
011132
011734
111736
011742

011746

2n7
28S8
285q

UI15a
011754
011ae

28U
2861
2862
2863
i!864
2865

0111U

~8bb

2867
2S68
286q
2870

2671
i!872
2e?3
2874

011766
011774
01200e
012004
012010
mUBI2
012014

2q03
2904

.Q05
2q0b
2q01
i!q08

2q0q
2q10
2911

2Q12
2913
2914
2915
2916
2911
2qlS
2919
2qU
2921
n2l!
2923
2q24
2925
2926
2qaT
2928
2929
2930
iq31
2932

01204b
UZ062
0U0bb
012072
01207b
01Z10B
Bl2104
U2106

BB4161

01136'
001404
00".,
0013.6
BU?U

eUHT
0047U
104012

004767
0U1e0
004167
BUle7
01216T

0121e0
004167
00!3U
001371
001201
mliT67

FAn

PleAI
P3C81

P3ed

172150
Inn6
U14U

••
MOV

JaR
JaR

JAR

aTALL
JSR
JIR
DEC

BEQ
D~C

171&42

8N!
8R
P3eDI

U0Z24
00UU

Bl2110
01i!1l&
012124
01212&
01i!130
01i!134
01i!136

000000
01i!240

01i!140
01214&
012150
01215i!
012154
012156
012164
m121U
012172
012176
012.00
01i!Z0i!
012204
012Z10
0IZi!12
012214
012216
01i!2ae
012224
012226
012230
012234
01i!236

012761
104006
012204
104000
014605
052777
005061
104024
0i!3420
104000
015001
104010
000411
105777
100403
104000
015035
104010
o lilT 16
00000i!
104011
005361
001344
104012

012240
01 i!242

000001
o 1i1320

liE' CNAw.erg" COUN' TO WI&,
,GO PUNCM 'RONT IND,
'XNITXA~IZE 'PICZA~ BINARV COUNT,
'lINER ATE RANDOM CHARACT!R COUNT

.,12, ,RCNT
X1.PF~NT

17,lNUN

X7, GRCNT

,RANDOM &TALL,

U,GTBIN

,UT DXNARV CHARACTER.

X7 ,LIPCH
RCNT
PlCD
RNCNT
"CC

,PUNCH THE CHARACTER,
'DECREMENT CHAR COUNT
,BRANCH IF COUNT n 0.
,NOT e, DECREMENT RANDOM CMAR COUNT,
,BRANCH IF COUNT NOT VET B,
,UANCH IF COUNT m.
,PUNCH TRAIL!R.
'CHECK DATA PUNCHED,
,aCOPE,

Plca

JaR

X7,PLTLR
n ,PCHECK
SCDP!
'RDUTtN~ TO PUNCH FRONT END,
PFRNTI
JU
X1, PL TLR
MOV
U17,U
X7 ,LSPCH
JaR

JaR

000012

meelT?

112412
000106
000177
172372
167374

167410

000226

1&7362

110544
009377

167330

nTLRI
PLTRAI

'~UNCH SYNC CHUACTU.

,un.

¥7
'n"CTRA

,sn eTRA TO 70,

U,L8PCH
CTRA
P~ TRA

,PUNCH CODE 117 'OR LEADER/TRAXLEA
,PUNCHED 707
,BRANCH XF NOT VET 70,
,DONE UXT,
/SET SYNC COUNT TO 15Z,
,READ CHARACTER
'IS IT SYNC CHARACTER' (317)
,eRANCH I ' SYNC CHAR FOUND,
,NOT POUND, DfCRE~!NT CTR.,
,BRANCH IF NOT 1'1 CHARI READ VIT,
'150 CHARS READ AND NO SYNC. HALT,
'TRY AUIN,
'INITIALIZE BINARY COUNT.
,SET CHARACTER COUNT TO 512,
,READ CHARACTER,
,GET BINARY COUNT CHARACTER,

B~Q

DEC
BN!

un,n

'15B"crRA
17,BREAD
*377,CR8UF
PCHKB
CTRA
PCHKA

EHA~ T

PCHKB I

1 Tl15i1

se10ee

167322

170504
171772
1612&7

PCHKCI

167300

PCHKD I

14106

tRUaDUT)

PCMECK I MOV
PCHKA I
JU
CMPB

167342

IPUNCH LEADU

MOV
MOV
JSA
DEC
SN!

8R
J8R
MOV

JU
JU
MOVS
DATCHK
DEC
BN!
RTS

PCHECK
X7,lNSIN
'5U.,CTRA
17,BREAD
X7, GTBlN
U,CRSUF+l

,COMPARE CHARACTERS,
,512 CHARI RUDt
,BRANCH Ir NOT 512 CHARS
,EXIT ,

eTRA
PCHKC
X7

YfT.

PAGE 61
, SBTn.

000004
177777
012161
052767
104000
014567
000167

PRG4-KEYBOARO TEST

Z'4

X·wi

012134

000200

161116
167124

PRG41

1&7510

MOV

BlS

'P4T0,KSTART
'BITT,PRGID

TYPE
KMSGI
JMP

BRSEl

,tt*.**._*** ••••••• ****.****.****** ••• *.****.***.***.**t.t •• *t.**.*** ••••

01i!17~

012244
012i!46
012250
012254

01 US6
012264

01Z2T2
mU276

Z9l4
2935

SUllie

i!93V

14110

161416

MACYlI 27 (657)
IT-NOV-T5
PRGhKEYBOARD TEST

n33
2936

112114
111 . . 4

122167
001405
005367
0013'7
104010
000762
004167
ali16?
004167
0047&T
110061
104004
005367
001366
000201

0U0~4

2902

UIIU

012026
012034
012036
012042
U2044

2876
i!S77
2878
Z8n
2880
2SS1
2582
2863

25qq
2q00
2q01

~04a1

IU1U
184161
U40U
.UH1

014167

012050

2684
2885
i!88&
i!881
288a
28U
2890
28 9 1
2Sq2
2SQ3
i!Sq4
2eq5
i!8qb
i!891
2898

lua? nus.

0!UU

287~

e MAIN,
DZK~AE

IT-Hov·n

PRG3.PUNCH TUT

unu

un14

01ua

P4T01

,t*t**tt*t.**.t*.**.**.*.***.***.**.** •• ***.**.* •• ****t*t*****t****.*.***

000005

1&1236

100375
117161
116177
105177
10031'
0427U
122a,
sa135!

101012

,TEST THAT PRESSING KEY SETS DONE
MOV
'S. CTU
STRORV
ETeB
TYPE
KMSG2
B18
'BIT6.fTK8
PSW
C~R

F~AG,

ETUI

000100
Ib5606

167024

OE~AY

ETUI

167000

012226

E,T0C I
ET0CAI

161150

10000,
TYPE
KMSG6
EHA~ T
8R
T8TB
SMI
TYPE
KHSGT
EHALT
HOV
RT!
SRESET
DEC
BN!
SCDPE

'TYPE "PRESS A KEY WtTMIN 10 UCS,'
'ENAB~! KYBD

INTERRUPT,

'WAIT 10 S!CONDS
'TYPE 'NO KEVBDARD REQUUT, •
'HA~T,
~T0CA

'TEST ~OR DON! BIT ON
'BRANCH IF DONE SIT SET,
'DONE BIT NOT SET. TY'EI~A~SE
,aOARD OR RUDER tNTERRUPT.

IrKS
fT0C

.!T0CA,n6

'EXIT INTERRUPT.
CTRA
!T0A

1
P412

,t*.t ••••
16b734
166131
Ib1014
lU716

unu

m00l17

lb7100

166124
167056
lU050

t._. __

'DONE 5 TIMES?
,BRANCH IF NOT DONE,
,aCOPE

tt.* •••••••••

TITe

fTP8

BPL

,-4
.aITT,CRBU'
'177, CRau,
ET1A

CMP8
DNE
SCOPE

tt._ •...•

•

, PRG4 TEST ROUTXNE I
'ADDRESS O~ NEXT ROUTINE
_.t*tt •••• __ t***_tt ••
TYPED, RUBDUT ENOl ROUTINE,
'TYPE TtT~E ANa INSTRucnONS,

** ••••••••••••••• __ *__ ••

'ECHO TUT, KEYED CHARACTER U
TVPE
KM8G3
'TKS
ETIAI
UT8
,_4
SPL
MOV!
nKD.CRBUP
Move
CRBU' ,'TPS

etc

UY.

'MA~T

'**_** ••• 't •• _••••• *.*.* ••••• *•••• *•• _••••••• _•••••••• tat* •• t •••
P4T11

104000
014645

105177

•

, PRG4 TEST ROUTINE 0
,ADDRESS OF NEXT ROUTINE

0
P4Tl

IWAIT FOR DONE

F~AG

'MOVE KY8D CHAR TO CR8UF,
'ECHO CHAR RUO,
'WAIT ~OR PR%NTU DON!,
'CL~AR BIT , FROM CRau"
'COMPARE CRBUP TO RuaOUT ClTTl
,aRANCH I ' NOT RueDUT (177)
'SCOPE

,MAIN,
DZK~AE

iua

2'39

nom

IT-NOy.n
MACYI! aTtU?)
PRS4_KEVBDARD TEl'
01UU
aluu

PAGE U

14106

'111 ••• 111.* •••
P4T2.
I

nun
I T7771

2944

, .*\IIttt
III
*tlll* IIr t III
'OCTA~ EQUIV A~!NT TUT,

ainu

TH! OCTA~ EQU! VALENT OF ANV CHARACTU KnED
' I i PRINTED. RueOUT ENDS ROUTINE,
TVP!8
,TVPE TITLE AND INSTRUCTIONI.

uuml
014147

n4~

BIUa.

2946
nOT
2948
2949
2"0

eU3le

114 ...

Z12332

111171

zq'l

n52
2953
2954

• .,5

l12ll4

eU061

elil34Z

105177

eU344

uen~

112346
112354

II71n

0lUb0
012362

004561

emuu

i!958

02.a7

Zq"

0\24U

001355

012406

104012

n5~

.MAIN.
OZKI.AE
2'&1
2'62
2963
2'&4
2965
29b&

2'b1

2968
2'69
2"0
2971
2972
2973
2914
2'15
297&
2977
i!978
2979

2'80
2 98 1
2982
2'83
2'84
2985
2986
2987
2985
2989
2990
2'91
2992
2"3
2'94

29'S
2'9&
2997
2996
2999

3000
3001
3002
3003
3004
300S
3006
3007
300&
300'
3010
3011

3012
3013
3014

luno

ErZAI

1b6644
1'6640
171&4&

042167

JaR
CRBur
OCTEQV

0126\2
012616
012620

012624
0l2Ub
012630
BUb36
012642
012644
012650
012&52
012660
012664
01i!666
0\2614
0126h
012H4

104005
004167
052767
01i767
0050b7
005067
104006
013064
104007
012734
012767
0041&7
01<767
112377
052777
104400
000776
000000
000000
105117
100401
104010
0052&7
000201
026727
103424
1051&7
10040&
0527&7
052777
02b727
101402
005017
032777
001001
104002
112377
000002
105177
100401
104010
117767
005361
000201

005167
001006
04i!767
005011
000002
026727
101014
032177
001003

CRBU'
'TK'

'WAIT FOR ~ONE nAG.

'TKO,CRBU'
IS,ACNV4

'CHARACTER TO CRBUF
'CONveRT CHAR IN CRBU~ TO

,-4

'PAINTA8~! OCTA~

TYPE
KMSG5

000200
00UTT

aUbb

BIC
CMP
SNE
SCOPE

1607U

MACYlI 27(657)
IT.NOV-7S
PRG5 COMBINED TEST
012410
012412
012416
012424
012432
012436
012442
012444
012446
012450
01 i!452
012460
012464
012472
01i!4H
el2504
01i!506
012510
01251a
01i!514
012520
012522
012524
112530
012532
012540
012542
012546
012550
012556
012564
012512
012574
012&00
012b06
0\2&10

K"1G4
KMaUA
-I
CLR
TlTa
BPL

Mova

1671\0

015001
104000
014777

ZU3U
I I U ••
012370
IIU76

n'f

'ADDRESS OF NEXT ROUTINE

14.06

16&624
170552

.SBTTL
CHAI.T
JSR
BIS
MOV
CI.R
C~R

000241
000574
000077
166520

000612

00010~

166510

1&&114

1&&474

'TYPE DCTA~ EQUIYAL~NT

STRORV
RZERO
STPCHV
PCHDAT
MOV
JaR
MOV
MOVB
81S
DEI.AVX
8R
RBusn
OPEN
PCHCNTI OPEN
T5TPCH. T8TB
SMI

PRGS COMBINED TEST
,SfTUP HAI.T.
X7,ST8F
,SETUP 8UFFER
'8ITlG,PRGID
'ALLOW STAI.LS.
#1T7b00,STLM5K
,SETMAX STAI.L TO 255 MSECS,
PCHCNT
R8USV
,SET READER SERVICE TO RZERO.
,SET PUNCH SERVICE TO PCHOAT.
'241, SHD0
X7,INIT0
H3"CTRB
e3l., OTPB
#BITb, PTPS
,-2
'fPS
,+4

EHA~T

111762
111754

000024

PCONT.

16b414
000400

INC
RTS
CMP
BI.D

TSTB

177142
000200
000101
IHH2

8MI
171732
BIS
166424
BIS
000050 ' PCONTA I CMP
8LDS
CLR
165366 PCONT81 BIT
BNE

PCHCNT
~7

PCHCNT,.20.
PCONTC
RBUSV
PCONTA
#SIT7,RBUSY
_101, nKS
PCHCNT,f40.
PCONT8
'fP8
'8IT8,ISRPTR
PCONTC

STA~1.

IH400

PCONTCI MOVS

0)., n~B

RT!
TSTRDR I TUB
8MI
EHAL T

1663&4
166356
17T650

Move

1&6526
ReONTI

177642
000i!00
Ib6324

177630

177bU

000024

000100

IbUI0

'CLEAR BIT 7 FROM CRIU~
'TEST 'OR RUBOUT CHARACTER.
'BRANCH IP NOT RueOUT (Inl.
, SCOPE.

'BlTT ,CRDUF
#177, CRBUF

H2A

PAGE &3

PRG5'
17221.
040000
171600
000054
00004&

DEC
RTS
TST
BNE
BIC
CLR

RT!
RCONT A. CMP
8H!

BIT

ONE

•

'III'" *** ••• * III III ***.t. III •• *"'* ....... t.* '" III. III'" "' • • • tllfi. ~ ill ******

"'* ••• * 1ft.

nOI

2942
2943

_*-._*._ ..... *•• *** •• **, PR04
••• ***.****** ••••• *. *******.*.W.** •• **t
TEST ROUTINE 2

P4T~8T

'TKS
,+4
nKB, CRBUF
PCHCNT
X7
PCHCNT
RCONTA
U!TT,R8USY

nKS

PCHCNT, #i0.
RCONTC
'8116, "PS
RCONTB

'XNITIA~lZE

PUNCH

,PUNCH FIRST CHAR.
/ENABLE PUNCH INTERRUPT,
,STALL WHILE AWAITING INTERRUPTS.
,8ACK TO WAIT.
'CHECK FOR DONE,
,SRANCH l~ DONE SET,
,NOT DONE,
FA~SE INTfRRUPT.
, INCREMENT PUNCH COUNT.
'EXIT •
,CHECK PUNCH COUNT.
'8RANCH IF LESS THAN 20.
,READER 8USY?
'SRANCH IF READER BUSY.
,NOT BUSY.
SET IT BUSY.
'ENABLE READER AND INTERRUPT.
,RECHECK PUNCH COUNT,
,BRANCH IF EQUAl. OR LESS THAN 40.
,DISABLE PUNCH INTERRUPT.
'CHECK FOR FUI.L SPEED RUN,
,BRANCH IF FUI.L SPEED DESIRED.
,GO STALL.
'LOAD PUNCH BUFFER,
,EXIT INTERRUPT,
,CHECK rOR READER DONE.
,BRANCH IF DONE SET,
FAI.S! INTERRUPT.
,NOT DONE.
'CHECK READ TO CRBUF,
,DECREMENT PUNCH COUNT,

'EXIT.

/TEST PUNCH COUNT.
'BRANCH If COUNT NOT 0,
,COUNT e,
CLEAR NBUSY.
,CLEAR READER INTERRUPT ENABLE,
,EXIT INURRUPT
,COUNT LARGER THAN 201
,BRANCH IF COUNT I.ARGER THAN n ,
,NOT LARGER. PUNCH INTERRUPT ENABLED?
,BRANCH IF ENA8~ED,

,MAIN,
DZK~A!

l015
301.

3017

3011
301.

30U
3021
3022

I1ACYII RTtbUl IT.NOVo'S
PRG5 COMBINED TEIT

sua. nun
8U714
0121U
012724

132111
001001

012126
012132
012134
012140

0052H

3023

012744

30e4

01274.

3025

012752
012754
01i/Hm

30e6
3027
30U
3029
3030
3031
3032
3033
3034
3035
3036
303T
3038
3039
3~Q0

3041
3042
30Q3
3044
3045
3046
3047
3046

mU164

012166
012112
01i/7a
013000
013002
013004
013010
013016
013020
01302Z
U3U4
013030
013034

m04H7
00'3&7

UIH2
005H7

~04a7

00n41
000110

am0i!ab

013044
013050

012767

000077

16.330

013~5~

1~4007

0130U

012134
000&23
ee4a7

3097
3098
3099
3100
3101
3102
3103
3104

3105

01335.

310&

3085
3086
3087
3088
3089
3090
3091
3092
30~3

3094
30~5

30q&

105767

117530
1&6270

001&&3
0047&7

U0002

0053b1
001235
0053&1
001405
005267
0047&7
000625

00~241

000204

0001b6
000077

IbUbb

177462
1662ii3
166240

Ibb234
000132
000114

MACHI 21(&57)
17-NOV-75
PRG5 COMBINED TEST
013172
013176
013202
0\3204
013206
013210
013214
0132il2
013224
01322&
013230
013234
013240
013242
01324&
013250
013254
0132&0
013264
013270
013272
013274
013302
013304
013310
013314
01331b
013320
013326
013330
013332
013334
013342
013346
013350
013354

3~84

171464
1•• 350

01303.

0047&7
0UH7
104006
013132
000201
0041&7
1124&7
104004

3070
3071
3072
3073
3074
3075
307&
3017
3078
3079
3080
30BI
3082
3083

166366

0053&7
00123&
U21&7

013112
013116
013124
013126
013130
013132
013136
013142
013144
013150
013152
01315&
013160
0131&4
013170

30bq

015142
000024

1050&1
00~56T

015256
015257
00mU7
012704

01iil7&7

1410&

00i0U
171136

015254
000024

1&616&

171364
166125

177364
U5142

004567

000040

166142

IH&30

000112

1b6102

015254
000014

01525b
~00000

01i/1b1

000112

IbUb!

011502

eLRB
JSR

BL.OCK2
X5,BMOVE

BL.OCK2-1
71.
Mev
*BLOCKS,U
MOV
*20., CTRC
STRoRV
R20ZER
ROATCI
SR
RCONT
R20ZER I J5R
17, TSTRDR
MOVB
(4).,CRSUF+1
DATCHK
DEC
CTRC
aNE
RDHC
JSR
X7,RIERA
JMP
RCONT
INIT01
MOV
.SLOCKA, X3
JSR
X5,DTPL.
BLOCK I
SEED01
OPEN
MOv
$74"CTRA
RTS
n
INlTl1
MaY
fBL.OCKU, xu
JSR
X5,DTPL.
BLOCK2
SEEDII
OPEN
MOv
.14" eTRC

OTFL I

012501

000110
000340

022701
00U0;!
012701
110122
005201

000UI

0053'7

1657H

3\07

0133.0
0131U

3\08

0133h

000205

~013H

anup

BurFER

,PUNCH BUFFER ADORE8B TO RS,
,sn CHAM COUNT TO 20,
,BET PUNCH 8!RVICE TO PCHIER,
'CONTIN~E •
'CHECK PUNCH,
,ALL CHARS OUTPUTTfD7
,BRANCH IP NOT.
, VES
,S[TU' LINE. 74 TD CTRA
/SET LINE COUNT TO U
,sn PUNCH SERVICE TO PCHDAT,

, CONTINUE.
,CHECK RUDER,
,TEST CHARACTER READ.
,BRANCH IF 0.
,sn UP TO "UD DATA.

,sn UP LINE.

74 TO CTRC

,SET LINE COUNT TO 63.
,SET READER SERVICE TO ROAT,

'EXIT

,CHECK RUDER,
,MOVE EXPECTED CHAR TO CRBUF+I
,CHECK DATA.
,74 CHARACTERS CHECKED?
'BRANCH IF NOT,
,&3 LINES CHECKED?
,BRANCH IF VES.
INO, SETUP NEXT LINE AND
,14 TO CTRC.
,CONTINUE.

PAGE b5

000207

0127&1

I!NAILI ~UNCH INTERRU~T ••
ICHICK 'C~ PULL 8PIID RUN.
IBRANCH I ' FULL IPI!D DIIZRRD.
IGD ITALL.
, ENAILI RUDER.
, u n INTERRUPT,
,CHECK 'UNCH.
CHARI OUTPUTTED'
,BRANCH I ' NOT,
/., LINEa OUTPUTTED'
,BRANCH I~ ves,
FOR NUT LINE.
'NO.
,SETUP LINE.
74 TO eTAA
,CONTINUE,
,FILL PUNCH
WITH ZEROES.

'FILL READ BUFFfR WITH ZEROES.

BLOCK~

112467
104004
0053&7
0013&7
0047&7
0001&7
012703
015144
000000
01i!7b7
000207
012704
0045&7

~CONT

BLOCKI
JSR
U,BMDV!
BLOCK I
BLOCK'-\
71.
MOv
'BLOCKA, X3
MOV
'U .. CTRl
STPCHV
PCHIER
BR
PCONT
PCHZER I JSR
X7,TSTPCH
DEC
CTU
SNE
PCONT
MOV
U41, SEED0
J8R
X1,INIT0
MOV
'U. ,CTRS
STPCHY
PCHOAT
OR
peONT
RIERO I
JU
X7, UTRDR
THB
CR8UF
SEQ
ReONT
X7,RZERA
JaR
8R
RDATA
RZERAI
MOV
fi41, SEEOI
JSR
17,INITI
MOv
'.3. ,CTRo
8TRDRV
ROAT
RTS
H
RDATI
n,TSTRDR
JSR
RDAUI
Move
(4)., CRBUF+I
DATCHK
DEC
CTRC
SNE
ReONT
DEC
CTRD
SEQ
RoATS
INC
SEEDI
JSR
X7,INlTl
BR
ReONT

RDAnl

104006
013230
000&06
00~1b7

X1, INtra

PCHDTA I CLRB

111342

104007
0U0i!4
Z00U]

~121b7

,MAIN.
DZKL'E

UED0

JSR
DR

000107

00~415

3~&B

INC

002152

013104

30&1

BEQ

I&UU

IhUU

105067

3053
3054
3055
3056
3057
3058
3059

30&5
30h

'TKS

Rft

015144
015145

Bl3102

30b2
30b3
30b4

RSTALL
X7, TSTPCH
CTRA
peONT
CTRB
PCMDTA

000312

0041b7

UJTa,f8APTA

PCHDAT I J8R
DEC
aN!
DEC

00n74

allay

RCDNTC

BIT

177554

00Q7U
000662

0U1n

un.,nPI

SNE

RCONTP I INC

001405

004567

818

lUlU

00saf

3~52

30bl

ReONTSI

10401.

3050
3051

30b0

166300
1&51$2

PAGE U

0000U

0130U
0130U
013010
013074
01301&

304q

U01ee
0U4me

IUDIt

166020
DTFLA I
OTFLB I

MOV
MOV
MOV
CMP
BNE
MOV
MOVS
INC
DEC
SNE
RT8

X1
(5)., X2

,RUO BUFFER ADDRESS TO R4
,SET CHAR COUNT TO 20.
,SET READER SERVICE TO R20UR
,CONTINUE,
,CHECK RUOER
,MOVE EXPECTED CHAR TO CRBUr+1
,CHECK DATA.
,ALL CHARS CHECKED'
,8RANCH IF NOT.
,UT UP TO READ DATA.
,PUNCH BUFFER ADDRESS TO Rl
,FILL PUNCH BUFFER WITH DATA
I IT ARTING ~nH CHAR IN aEEDm

,EXIT
,RUD BUf'ER ADDR!SS TO R4
,nLL RUD BUFFER WITH DATA
'STARTING WITH A CHAR IN 5f!DI.

RCNT
OTrLA

,EXIT
,STARTING ADDRESS TO Ri!.
,SEED TO R I.
,CHAR COUNT TO RCNT.
,(Rll[QUAL 3407
,BRANCH IF NOT.
,EQUAL.
RESET TD 241,
,MOVE CHAR TO BUFFER
'INCREMENT (Rll.
,BU"ER 'ULL7
'BRANCH l ' NDT.

'YES.

[S).,U
$12. ,RCNT
U40,XI
DTFLB
U41,U
XI, (2).

EXIT

,MAtH,

OZKbAt

MACVlI 17 en?)
PRG., PRm?

IhNov"n

1410&

3199
lIli

JIll

3111
ilU
3114

311'
JlU

311T

JIll

311'
3120
lUI
lIU
HiS
3124

J125

3U.

3127

JUS
lin
3U0
3131

3132

3113
31J4

.I8TT~

lUlU
IIU16
113484

813411

aU41.
1134U

mU43m

013432
013434

IU44e
01]444
U3450
0\3452

Duyn

ell7&7
niH?
0041'1

n4167

niH?
IIlnl

enU7
001311
eznbl

013454
013460

0041&7

013461

0150.3

013464

nlHT

013471
Sl3500

BlaHr
"Ia703

013504

104000
015111
B05777

013506

013514

mlZ76?

011522
01352&
013532
013534
013542
013550
013552
013560
0135U
013564
013510
013572

004H7

3142

3143
3144
3145
3146
3147
3148
3149
3150
3151
3152

3153
3154
3155
3156

llS7
3158

,MAIN.

OZKLAE
3159
31&0
3161
31&2
3163

3164
3165
3166
31H
3168
3169

013574
013576
013600
013604
01360b
013610
013612

013616
0136<2
013624

177&111

IHU6

171761

lUlU
1.5636

04meee
lune
Inus
meuze

GTAI

110124

nSJbY

040000
177600

16555.
161504

015144
1"476
00000&
1713U
1&5&52

165662

000200
000111

Ib5UZ
165614

0427&1

040000

165410

012746
005000
004167
00531&
001374
n47b7
0047&1
0047&1
000773

110550

Inni!

HTD.

IU352

0136U
013670

104005
0047b7
000715

170536
170156
1702U
170516

3192
3193
3194

000e36

3191
3198

3199

3200
3201

3202
3203
3i!04

0IJH0
ZI3H&
013734
013740
013742
013746
013754
013156
0137&0

104005
~041b7

0~00i!0

011700
000005
000005
000005
000005

165306

0n005
00076&
05~777

117161
005767
001002
0052&7
117717
104024
000000

200207

Sf,IREAD

.7,SCHECK

RNCNT

GTB

IlTAL~.

'~UD CHARACTER
IGO CHICK IT

,DECREMENT CHAR COUNT

SR
HfO
JU
X5,BMOYE
BLOCK I
BLOCK 1+5
67.
X7, TYPLN
JSR
TST
'8RPTR
HTA
BMI
BR
HTD

IFILL 72 CHAR LINE,

,TYPE LINE.
ICHANGE DATA? (SRIS-I].
'YES, ~D CHANGE DATA
INO CONTINUE WITH 8AME DATA.

3195

3\9&

JU
JaR

,PRGII-PUNCH CLOCK ADJUSTMENT ROUTINE.
,OUTPUTS CHARACTER SET IN LEFT HALF OF SR, AND
'STALLS FOR NUMBER OF MIL.I.ISECONDS SET IN RIGHT HALF 0' 8R.
PRGII.
CHAL T
IHALT TO SET SR,
IT ••
JSR
¥7,CIIIa
I GO OUTPUT CHARACTER SET IN loEn
SR
ITA
IHALF OF SR AND STALL PER SR RIGHT.

3185
013672
013674
013700
013704
01370.
013710
013112
01371"
01371.

X1 ,GRCNT
una,URPTR

31H
3180
3181
3182
318!
3184
3186
31B1
3188
3169
31 90
319\

OTB

.BBTTL PRGU, FRGII, PRGIZ
,PRGI0. PUNCH SPfCIAL BINARY COUNT PATTERN TEST TAPE
PRGU.
HOV
#.0 .. -(6]
IPUNCH .0 BloANK CHU, LEADER
10
CLR
PRG\0A1 JSR
X7,LSPCH
D~C
"6
PRGImA
SNf
JSR
17,INSIN
/INITIALIZE SPECIAL BINARY COUNT
17,GT8IN
PRGI08' JSR
'GET BINARY CHARACTER,
JSR
X7, LSPCH
'PUNCH CHARACTER
SR
PRGUS
'REPEAT.
I

000024

3112

013h4

IN!

PAGE b7

14.h

3173
3174

3171
3178

17,DlYNC

BIT

lin STALL LIMIT

,SIT RANDOM CHARACTER LIMn.
I ALLOW aTALLa,
ISYNC READER,
IGENERATE RANDOM CHAR COUNT.
I CHECM ~OR FULL "EED RUN
'BRANCH IF 'U~~ SPEED DUUIO.

7&,
HTC I

3110

3115

811
JaR
JaR

,BRANCH %~ COUNT NOT m.
,COUNT 0. iTART OVER,
'PRST-PRINTER fXERCUER. KEYBOARD CONTROLLED.
'TYPES LINES WITH ANY 5 CHARACTERS, STALLS DR FULL SPUD,
~R&1I
n,ITSF
JaR
,UT UP BUFFER.
TVPE
ITYPE TITLE
PTHGI
HTAI
BII
'BlTU,PRGXD
'BET STALL BIT IN PRGlO,
HOY
Isn STA~L MASK,
'ITH0m,aTLMSK
MOY
ULOCKI,X3
TYPE
ITYPE "TYPE IN DATA·,
P7M92
TIT
ilKS
I CLEAR SUFFER.
MOY
'6,CTRA
'CHAR COUNT TO CTAl,
HTB.
J8R
X7,GK8CR
IGn AND STORE KvaD CHARACTER.
CTRA
DEC
,GOT & CHARACTERST
MTS
I BRANCH XF NOT 6 CHARS YET,
SN!
#BITT, CRBUF
BlC
CMPB
ICHECK UH CHAR FOR RuaOUT.
'171 ,CRBUF
ON!
HTC
I BRANCH If NOT A RUSOUT,
BIC
$O%Tl4, PRGtD
IRU80UT. CLEAR 9TA~L SIT IN PRGID.
,377
CK37
MTC
SR
IND,
J5R
%5, BMOVE
'YES. '%~L 81 CHAR LINE,
BLOCKI
8LOCKI+S

170534

3171

3tH

'I77TU,RCMSK
taITU,PRG%D

001313
04i1767
1i!i!7&7
001013
U4013
000406
0045&1
015144
015151
000114
000405
004567
015144
01515\
000103
0047b7
0e5771
100120
000772

.1T7 ... ,8TLM.~

DIC
SNE

171154

STALL. aRI401 PULL SPIED

MOV

MOY

aTA~L

GTII

1"\32
110131

MACVlI 27 (651]
IT-NOV-75
PRGI0, PRGII. PRGI2

013626
013632
013634
013640
013642
013644
U3b50
013654
013660

PUU

IUSU

U40B0

013510

3141

PHS.. PRaY

'.AI'.HA~T ON ERROR. IAI."

U4S02
0e4767

U4a?

3137
3140

••

,'RU.-RUDU UERcnu. SPECUb UNARY CDUNT PATTERN

3US
3U6

3US
3139

~UI

000004
1b4i!42
00001 &
000010
IU2al

165266
000022

IUa4i!

,PRGI2-READER CLOCK ADJUSTMENT ROUTINE,
'PERFORMS SAME FUNCTION AS PRGII, AND IN AOOITION,
IUSING THE PUNCH MUNTENANCE BIT, SHIFTS OUTPUT OF PUNCH
'SHIFT REGISTER ONTO THE READER BUFFER, TH! CONTENTS OF THE
'RUOE~ BUFFER ARE THEN "FIXED' ON THE CONSOLE DATA ~IGHT8
,aY ISSUING A RESET WITH CONTiNTS OF READER SU~FfR LOADED IN Re,
PRGI2.
CH.I.T
,HAL T TO SET SR.
JTA.
JaR
n,C1112M
IGO OUTPUT CHARACTER FROM SR ~EFT AND
_TKB,xe
MOV
ISULI. PU SA RIGHT, (TKS) TO Re.
,"FIXII eTKB) IN DATA LIGHTS.
RESET
RESET
RESET
RESET
RESET
SR
I REPEA T,
JTA
I
U,np5
ISET MAINTENANCE MODE (PUNCH].
CIIIi!M' SIS
MOye
CIIIU
'SRPTR,XTY
"H~L COUNT TO XTY.
TST
XTV
lOISREGARO 0 OELAV.
SNE
CIII.A
INC
XTY
CIII ilA I MOVS
'SRPTR+I, nPB
ILOAO PUNCH SU'FER,
,DELAY (APPROXIMATE~V) THE NUM8IN 0'
DELAY
XTV.
OPEN
IMSECS, aPECI~IEO AT SR RIGHT

RTS

,EXIT

,MAIN,

MACYlI 2f(U1l

DZKLAE

PRGU, PRGl4

H_NDV.n

14...

PAGE . .

,.lrTL

PADI3, PRGI4

,PROll-MAINTINANCE MODE SINGLE CHAM ACTIN DATA TilT,
IWITH MAINTENANCI "aDI
DU"UTI ONTD PUNCM
AND lUCK ONTO
I RUDER DU"ER THE CHARACTU liT IN 1ft LIPT, THE CHARACT •• IN 'M!,
IREADER aU"!R II caHPARIDTa THI CHARACTER IN 1ft L!", IF THI 2 CHARACTUS

an,

.MAIN,
DZKLA!
3210
3211
3112
3213
3214
3215
3216
3217
3218
321~

3220
3221
3222
3223

3224
3225
3U'
J227
3i1ia
3U'
3230
3231
3U2
32ll
3234
3235
323'
3217
3US
32n
3240
3i141
3242
3243
3244
3245
3246
3247
3241
lZ4'
3Ue

MACYII l1 C~57)
PRGI], PRG14

el3T6l
013764
013772
U3776
014000
014e06
014014
014020
0140<2
014030
014032

014034
014042
014046
010eS4
U40U
01401e
01417&

~00004

1&5222

165.16

1~0375

1l77~7

1~4171

1I~777

165353
1651T0

105777
100315
117767
104004
000754

114101
114106
014110
014114
U4121
114124
U413~

10m3n

014132
01414.
014142
01414.
114150
U4154

117761
104004
005737
001145
e15367
eU342
000161

01415&

141~6

1~40~5

052777
105777

01i!7U
004167
0U7bT
052167
052777
0U771
001001
104002
105777
100315
004767
110167
110177
105771

U41U

17-NOY-TS

1651&4

002100

165357
165202
165334

IU3U

1~7760

I77UB
040000
000004

100400

161130
16SI~'

165124
IU076

1~5106

1~5012

16seu
165054

eeee42
165230
\U670

P.GE 69

lOISAGREE THE PROGRAM HALTS. THE DATA LIGHTS WILL THEN CONTAIN I
I
ILEFT HALfl THE EXPECTED CHARACTER CIR LIFT).
IRIGHT HALF' THE CHARACTER IN THE READER BUFFER.
PRG131 CHAL T
IHALT TO aET SR.
U,fTP3
KTAI
BU
IUT HUNTfNANCE HOOf,
KT81
fTP8
TnB
IWAIT FOR RUDY.
BPL
.-4
MOVB
URPTR+I, CRBUF+I
'SIB CHAR TO CR8UFU.
MOVB
CRBU'tl,HPe
,OUTPUT CHARACTER,
H~8
TaTB
IWAIT FOR READER DONE FLAG,
,-4
8PL
HOye
HKI,CRBUF
,CHAR READ TO CRBU',
DATCHK
100 CHECK AGAINST liB CHAR,
SR
KTA
IREPEAT.
'PRG14.~AINTENANC! MOD! SPECIAL BINARY COUNT PATTERN DATA TEST,
'PERFORMS SAME OPERATION AS PRGll, EXCEPT THAT SPECIAL BINARY COUNT
IPATTUN IS U8!D.
PRGI41 MOV
'IeU"CTRl
'SET UP FOR 1024 CHECKS.
~7,INBIN
JSR
'INITIALIZE BINARY COUNT
HOY
'I776B0,STLMSK ,UT STALL LIMIT
SIS
Unl4,PRGID
,ALLOW STALL'
BIS
t4, fTPS
LTA.
'SIT MAINTENANCE MODE,
BIT
.BJTS,'SRPTR
I CHECK sTALL SWITCH
8NE
LTB
IBRANCH IF NO nALL WANTED
STALL
,STALL
fTPI
LTSI
TITS
IWAIT FOR RUDY,
BPL
JSR
X7,aTBINP
IGET BIN CHARACTER,
U ,CRBUF.I
Mova
,MOY! TO liB CHAR.
Mova
lOUTPUT lIN CHARACTER.
'I,UPB
TITa
flU
IWAIT ~OR READER DONE,
,-4
BPL
MDVB
'TKB, CR8UF
ICHAR IN READ BU"ER TO CRBUF.
DATCHK
,;0 CHECK AGAINST alB CHAR.
TIT
I CHAI N OR AUTO ACCEPT7
"42
lEG
LU
18R IF NOT,
DEC
CTRA
'DaN! REQUIRED TIM!a7
8NE
LTA
IU I ' NOT.
JMP
CHNC
'YES, GO EXIT.

.-4

170016
lUlU

165224

au,,,..

·MAlN.
DZKL,AE

MACVU IT cun
PRIU, PReu

,n, '''1U

1111 IUln

..,

nil

IUII4
IUIIT

117

31 ..
J"l

114111

Jl71
3212

11.

133

134

ell
1411524

ea....

I521U

If?
828111
111445
121148

' ..UT
.2
...

121141

3318
3311
3302

3313
33i14

.MAIN,
DZKLAE

3385
33116
3311
3305
3309
3310
3311
3312
3313
3314
3315
3316
3317
331S
3319
33U

Hi!
3322

3323

3324
3325
3326
33iT
3328
3329
3331
3331
3332
3353
3334
3335
3336

3l3T
3338
3!19
334m
3341
3342
3343
3344
3345
3346
3347
3348
334'
3350
3351

81431.
114312

IIUI6
11431.

linn
114341

1143.6
114341
114353
IIU61
0143'3
814366
114374
114482
814411
114416
114411

114424
114432
114448
114445

IUGU

014461
814464
114412
014500

11450.
114511
014514
114522
114531
el4533
014540
114546
014554
014562
014567
114574
IIQUa
114615
114612
11462.
al4U6
014614
014U2
114645
014652
014bb0
114 . . 6
ill 4674
014782
114111
114716
114711
014124
114132
814740
114746
114747
114754
114162
114118
014116
114171
015801
81S016
0,,111
115814
0"822
0"830
a15135
8"842
1t5a50

335.
3357
3358

1158n
1158U
I"."
115114
015111
115116

161

.. 7

171

•••
au

•••

I ..

141

147

In
371
121445
IU924
n8U0
1"141

111141
121448
145
155

I ..

845
858

I ..

."
u.

II.
III
BU4!5

137

144455

100

826511
III
.5'
US 82'-55 144455

044455
134
821445
8.esll

nun

UZ!24
118
845
nUll
144517
152123
845
84nu
un24
UI445
843141
lOi524

MACYlI 21 "57)
PRGIl, PRGI4

3352 115156
3]53
3354
3355

131

lI7

III

1411..
14e5e3
142517
851115

152123
1"143
04U41
021116
121445
851443
152041
141143
144514
8425es
852123

151122
151048
all1l6
e2l445
143511
851111

,BYTE

1.. ,111,113

,IYTI

llf,UI,UI
lll,UJ,U.
US, U'''17

,B,n

,''''

..I
"'p,
US II

.S?
IU
177

114310

3293
3294
3295
32 ..
3297
3298
3299

173

3279
3281
3111
3282

3292

lU
UT

1S5
172

1 .. 156
1141'1
114264

l142n
IIUIe

3289
3290
3291

U6
111
II.

3276

3288

liS

lI,

IS.

'Iun

3115 114112

3284
3285
31 ..
3287

III
113
I ..

III

114153

114111
114134
114237

lua67

lI83

115

U3
ill

114151

Ilna.

3274

3117
JZ18

III

liT

.
.,
...I"
...

"4213

JU, 'UI42

3168
3U'
UTI

,..

AI
DI

III

3117

I ...

847,$11,.77,'13,"',111

111

JlU
32U
JU,

"',1'7,1.7,'57,117""

USW'6. .IYTI

IU1"

lua

Anwp •• ,IYTII

II"
un

Jl19 ,,42U
114.15

lI?

113

147

1116 II nil

117

lUlU
lUlU

SISI

,,-NOv.n U,I, PAIl ,.

.IYTI
.IVTI

..".
.1'"

,BYTI

VI
VI
DNII

'DU~I

IEYINI
C4I1
CUI
C411
CSII
C551
CUI
enl
Cilli
CU"
C3171
T&TIT I

.IYTI

.IYT!
.IVTI
,IYTI

.IYTE

.1'"
,1"1

.nTI

.IVTI
• BYTE
.IYT!

lI4,U!,1"

111, III "II

lU,U.,lll

1. . ,111, lSI
111,111,1"
I",I . . ,IU
1 . . ,161,1"
",,"1,171
UI,I",14J
1 . . ,145,146
141,"1,111
111,.",.,4

15S,IS.,I!I1
In,ln,l14

...

nl,IU,ln
1II,IU,IU
u"ln,IIT
n1,1",n1
'UTAB TUTU'

,IVn
.IVTE
.Alcn
TBMRKI ,Ascn
If'
TBHRKII ,Alcn
If'
CRLFI
,AIcn 'x.'
RH33A1 .ABcn '·---1'"
RM3381 ,Alcn '·1·'RM37A1 ,AScn '---"1_1&·'
SPTaTCI ,AScn " ,CRTST I ,AIcn 'UCARR1AGE RETURN TUTU"

RHTITI

,Ascn

'URlGHT HARGlN Tun .. -

SPTaTl

,AIcn

'S.SPACE TEBTX."

LF1STI

,ABCll

'ULlN! 'UD TUTU"

142524
III
1400U
.51585
eU516
110114
821445

17-NOY-?5

I4ll1b

PAGE 71

108
845

0415U
852m 40
021445
045
852123
e2i1115

151115
nil23
045
UiII04
111445
145
UiIIU
U0131
141111
14i523
UYU3
045
1211117
041445
"ilel
054505
04UII
052040
056
045
152125
021123
147111
100
045
e4blll
053111
ueU4
III
84'
I ..

l8e

In
154585
uell4
051505
145
821105
144441
852522
845
1521 ..

UUU

851189
145

nun

841443
052103
051505
Ie.
053443
UI448
840520
nliU
021445
045443

042524
II.
851121
120181
044521
n044.
147513
III
042443
042524
141518
851115
842185
020114
050UI

041510
051105
0515a4

CHRTITI ,Ascn

'UCHARACTER TUTSX .. '

051117
851581
1152124
042524
101
041131
.52123

WCPTSTI ,AICU

'''wORST CASE PATTeRN Tun .. '

KMSGII

,ASCll

'UKYID

851505
842513
844124
12eau
042116

KMSG21

,ASCU

'XPRua A KEY WlTHlN Ie IICONDS,"

844113
152123
0USiI
1145448
053440
042502
042115

KMSG31

.ABCll

'UECHO TUT'

152'2i
142441
14751i
027185

041512

041443
142440
aUIII

042524

e5i/ln
852521
841185
052123

040
UIIU

a22440

147516
847512

101522
UTII4
I415e6
154513
'511"
152121
I5I8U
lUllS
141522
121445
.52043
147111

KMSG3A I ,ASCll

042116
052125
mal445

145441
e51111
152921
II.
151114
a4i1112
85UIS
100
844'22
14244.

KHSG41

TEsn .. •

'XCHARACTER KEYED WILL II! TYPED,'

,ASCU

'UUIOUT ENDS ROUTlNE.U'-

.ABClI

'UOCTAL EQUlVALENT TUT"

KMSG5I • AScn
OcnQV I ,ABCU

." .

KHIG6I

.A8CU

'XNO KEYBOARD REQUEST

KMIG71

.Asell

'$FALSE KYBD lNTURUPTf'

P1MGlI

.ABCll

'X'PRINTER EXERCISERS."

P7MSii

.ABCIl

'UTYPE IN DATA If'

nUll
III

e,eul
1428.8

.f'

IIACYlI 171"7)

.MAIN.

3359

lUlU

15alll

Jnl

IUIJS

lUllS
148
....II

nu uSln

33"

IIS1U

.MAIN.
DZKLAE
A
ACNV"
ADTENP
AIST
BDCNY
BITI •
BITU

arn

...... ......
14 •• n

. .8111

17~NOV·75

814116

ACNV
IIUU
ACNVX
1142U
UDB
ee2412
AJ1WP. el4162
BDCNVA le444.
BIT II • 18a •• e
BITU • 14181e

nUll
114Sa.
114254
114421

U'.12
aaee81

•

KMaGJA
MMaG7
LFTIT
LTB

14'"

MACVII Z1 ,.,,,
8YMBDL TA8LE

. . . 118
BIT7 • aee21.
BLKaB • 1152.'
BLOCKB- 115254
BHOYA
814358
BRUOA IIUaB
BaYNC
11363.
CHKAU· 184822
CHK35
1112226
eHNB
112132
CHRIA
IIU74
CHUA
111411
eK37
184115
CPRDYA 114312
CRTS
811634
CTRC
eel41e
CTIC
111142
CTIC
11833.
CT3B
118514
CT4B
111562
CIIIIA II3U.
e41
114242
C55
114256
DATCHKO 114114
DELAVX. 114418
DLV
1131 . .
DLYR • • 813358
DLYXA
113356
DT~L
IU331
DVDND
111416
EMTXNT 1.2171
ERR
111466
nea
11221.
!fU
IIn41
'8'38 e84n8
FOUR
114214
GURDY 111.46
GTB
IU43.
GTRDVB 111712
HTA
IU4 . .
ICTR
•• 1144
·INlTl
1"2"

JTA

17-NOy.n

PRIU, PRGU

DZK~AI

IUt14

114661
115135
1144 . .

114112

UT4

14116

ue
• ...
eeaul

BlTB
BLKCC • '15371
BLOCKC. 115366
BHOYE
11.3.1
BREADS luua
CC
• 177776
CHK33
112211
CHLT
1'1422
CHNC
812152
CHR2
081370
CKA8R
18224.
eLUN
111654
CRBUP
111364
CRTST
114366
CTRD
111412
CTIA
a18252
ClaD
IIU61
CU3l
81U44
CURTIT 11113.
CUUM IU728
C44
114245
1142U
cn
DATHLT. 184117
DENO
115142
lUlU
DLYA
DLVRI • I133U
OLUB
IU364
DTFLA
113342
DVQUDT .11411
EMTTAB 111314
ERRA
881516

nec

FULL
'DR~D

FW336
SKICR
&TIlN
STRDVC

HTB

INBIN
INlTl
KHSGI
KM ...
KaT ART
LOGIC
M

lUlU
114746
lUlU
I., . . .
.15116
1 . .16.

881716
IUSI.
lUI . .
IU314

114'"

114747

111114
1 . .1 . .
IIUII

PAil

I . . UI
DICVALI
DINDI

n
,Alen 'u
.AScn •

.END

PAGE 73
ACNVB
ACNV4
ARUD

1.4ZZl

'I4i!U
'123U

U5WP. 11417.
ULL • ' . . 187
BlTlI . I. .eel
IIIee.

un5.
BITS • ••••••
BIn

• 11111.
BLK!
1,,267
BLOCKI- '15144
SRCTR
'"414
BRUDC 112652
CHUNN '"754
CHUlA 11122.
CHNA
112.14
CHRTST 114517
CHRU
eeU76
CKU
114113
CNYCTA 184521
CRV
lIun
CTRA
el1414
CTU
IIIlU
CT2A
IIUII
eTIE
118416
CT34A
11141.
CI18
IIU67
CIl5
Ilun
11.151
e47
C75
1142U
DECVAL 115135
DIGIT
114522
DLYB
llJaU
113144
DLYT
OTCHK
1"44'
DnLB
8U354
!HALT • 11.811
EMU • .1.U7
ERROR - 11.113
nlCA
11122.
114712
'ORWOA IIaU4

•

,."

'WS,.

IRCNT
STUNP
ITRDYD
HTC
INCPRG
ITA
KM,'.
KHan
KTA
LI'CH
MACHIR

lUI ..
.US52

. . . UI
.117 ••
IU. . I
III'"
IU'"
.14615
11.777

113'"
114376

. . . . .4

ACNVC
ACNV.
ATal!
aCHECK

UTI

814246
•• 421e
••• 152
.n5n
o .... 11

una.
Ilelu
an. •• '.1111

BlTI

'"'"

aKSU
InU2
BLDCU. '15142
BLOCK . . 115256
BRUD
112572
BRUDD lea662
CHAL T • 18 •• . ,
CHK338 ..1124
CHNAA
112826
CHRI
IIU66
CHR3
IIU72
CK35 • 114114
CPRDV
114362
CRT A
111612
CTRS
111416
CTIS
11I1S4
CTIB
IIlnl
III ...
cnA
CTU
'U5se
CIIII
IU7I.
114275
C5!
114153
IIUII
0
DlLAY , 114124
aLCNT • lIS.,.
Iln8.
DLVR
I133U
DLYX
DTCHMA 11146.
DTHLT
1.145.
EHLT
111434
E~CTR
eel412
EllA
112146
luase
!fU
'.F3A
I"TlI
FDRwoa IUIII
G
114al4
GTA
'U416
ITROYA IIl"6
HUE
HTO
113611
INCRTN '.UII

csn

lUll?

KMln

114645
115 •• 7

MMI;.
KTI

'13772

LTA
1141"
MANUAIo_ II ••••

,MAIN,
OZK~iI!

Mue

ONE

PCHCNT
PCHKA

PCHUR
PCONTC

PI. TAA
PAGNUM

PRGU
PROIi
PRG3
PROT
PRTYJ

PRTY7

PTI
PeAAB

pe9U

peCAA
peCA~

peDAC
peEAB
peFA
P0GAB
P0IA
P0KAA
P0MA
P0CA

peGA

P0RA

pne
P0T1l
pnl6
P0T21

pni!S
P0T30
P0nG
P0T4
P0T43

peu-

P0YA
P ISA

PITa

P2T0
P2TI~

P2TI&
P2TaI
P2T2S
P2T30
P2T34

PiTT
PlBS
,PlCD
P3T2

PoT2

!;MAIN~

HAC¥! I n(u7)

11-HOhn

nMSOI. TAB!.!

• GU872
814131

eusl!
U21U

mumu

111612
811714

eDUU

lin..
UJ.U

UI4U
mU4U
010141

000340
U4m54

mnns

!41S,

......

Nap
• IUUI
OPEN
PCHOAT IU134

N_TIT
P
PCHOTA

11&141

oerny

IU2U
aUH.

aune

PCONTA
PIND

mlnu
nu ..

PRnu amlin
PRBIU eUU4
PNGU
iluua
PRU
lUlU
PRTve
Gllaum

PRAm
PNG\U

015144

PA814

014134

•

PCHK8

illaell

peONY
PFRNT
II 11151
PO pap • a15726

PRTY4
ZUlU
PSW
• I17TT6
~TlP

PUAE

•• uu

sena,

UU46

PUAC

00Tlle

;07116

PleAe

Z0T174
007na
007322

peCE

007152
005ZU
005312

peDe
POEAt

U,416

pmFAA

BeH&6
005544
007630

PIMA

0051U
00UU

P0MB
peOE
peGC
Feu
P0TI
P0T1l

006242
U6344
005156
0056U
Z0US'

P0JA
peKB

P0T17

006326

P0TU

006562
006&70
007106
005316
0076010
00653b
006700

P0T26
P0ll1
P0T3S
P0T40
PU5
peVA
P0ZA
PICA
PITI
PaTl
P2TU
PiTI7
P2T22
P2T20
PiT31
P2T4
PlU
P3CA

007750
00710b
0\00U
011020
0110a
01112&
011176
011234
011400
010162
011614
011736
011646
012320

P3T~ST.

P4T~ST'

P7MGI

un]!
007354
005516
005608
005642
0116004
00&132
006276
006426
005206

0056&4
00&136
0064U
006604
00&722
007202
007402
1105400
006512
00bn6
010000
007734
01020&
011032
011102
011140
011i10
011Ub
010520
011520
0116U
171777
I17T17
015063

MAOI\ 21 (651)
SYMBOL TABL!

17-NOV-75

DZKI.AE
RCMSK

003572

RCONTS
RDATS
RDI. V
RINO

012114
013172

RCNT
RCONTC
RCATC
RD!.VA
RMB
RM!7 A

00320&

004050
RM33~
014347
RPI
002566
RSTAI.!.' 104026
RSTPC
002360
RTNNO
001240
RI
.n00001
R4
.1000004
'SAVREGo 104020
BEED0
013272
5~1. TA
00152&
'SPCNT
010b30
SRPTR
000114
STA~A
003200
START
001530
STI.SPV 002444
STPRA
002432
SUBTNB 004500
SYNCA
00311&
HSPA
010644
TBMRK
014314
TENPWR 004524
TKB
001212
TPB
001ZIb
TPL3A
004616
TSPCHA 0m3542
T8TRDR 012620
TYPC
002ue
TYPES. 104001
TYPI.B
004552
TVPS
m03014
WCPTST 014533
Z
• 00000"

.OZKI.AE, DZKI.AE.OZK~AE ./801.
RUN_TIME 1 16 i/T 0 SECONDS

15K

1410&

001362
01272&
01322&

003a30

0U2&6
014353
RP2
002570
003320
RSTL.A
RSTPSW 0023&2
RZERA
013104
uU00002
R2
RS
-X0110005
SAVRG
1102264
SEEDI
013316
sonSR 0001H
SPTST
014445
SRSET
001&44
SlA!.AA 003lU
004b34
STSf
5TLSRV 002414
STRDRV. 10400b
aVRPC
002320
SYNCS
003724
TABPS
010654
TBMRK I
a\432&
TIMCA\. 003402
TK!.VI.
0012Zi!
TPSM
010&mi!
TPS
001214
TSPCHB 003550
TTYTYP 001230
00274&
TYPO
TYPf
002764
004540
TVPI.N
TYPSA
003040
X
• 000002
• 015142

ERRORS DETECTED 1

CORE USEDI

PAGE 14

PCHKC

elnu

POP8PiO nan.

zun.

PRn
112410
PRTVI • 0111041
PRTU .UUU0
004052
PTe
PUA
095174
PUE
0e52U
PBS!
usn2
peelD
UTI ..
peDA
U5394
peEA
0053)0
~mn

PaGA
P0MAA
P0JAA

P0KC
peNA
P0PA
P0GD
PZTA

00'3h

P0HAB
PIKA

peL'

U61U

pepe

005132
005il36

peUl

016452
006634

pen

PICC
PIT2
P2T \II
P2T14
PiT2
P2T2l
P2T2T
Pi132
PiTS
P1AS
PlCS
P3T0

POT0
P7MG2

PUAA
P0EC

nyue

905530

peTJi!

peCA
pecAi
P0DAA

mnU2
U6032

mauu

00b1U
e07i!&0
001471
005442
e06614
00&7&0
010006
0077&4
010774
011044
010272
011152
011222
011i!U
a!B732
011536
011192
011510
SUI34
015111

01U14

01111e

auum
111166
meun
001651
IU6U

alalia.

PRO.
113378
PRTVi • Slel U
P~TV' • 1003le
PTep
U4060
PUAA
U.176
paBA
015224

007506

peU4
P0f2

P0U.
P0T41
P0T6
P0WA

PLTLN
PAOID

PRGI
PRGII
PAGI

peGAA

peru
P0T27

PCONTI

005454

086462

81seUI

.ue •• .,

PCH!CK
PCHKO

peNC

P0GE
PeTLST.
P0UI
P0T1S
P0T20

nuu

017172

snaj6
amUH
UUTb
0014 a

005634
205676

00U5.
UUI4
006316
177171

005564

meuu
nU22

peTZ4

086526

P0Tl
PBTH
P0TlT
P0T42
P0T7
P0U
PIAA
PITLSTo
P2TLSTo
P2T!1
P2TI5
P2Ti0
P2T24
P2T3
P2T33
P2T&
PleA
P3CC
P3TI
P4T!
RBUSV

IIIna6b
0e7BU
087342
00T57m
U54Tb

006644

unu
171711

177777
01 \110&
011056
011114
0111U
0184116
011316

auns

0lUTb

Sl1710
0llSbb
012i!40
BUSl0

PAGE 75
RCONT
ROAl

RCONTA
ROATA

012666
01313&

ROE~AV'

012644
013132
104025
RO~ YB
0032Jb
RMTST
014417
RNCNT
003574
RSETU 002512
R5T~AA
003340
RnREG- 104021
RnRO
013064
RUZER 0Ui/30
R6
oU00006
SCOPE • 104012
SEVEN
014~J7
SP
-X000006
SPTSTC 0143U
SRSETT 002474

RD~C~To

U3il10

STA~B

ST8F A
STPCHVo
SUBT!N
SVRPSW
SYNCC

TAepc

TaTST
TlMC!.A
TKS
TP8MA
TPVTR
TSPCHC
TYP
TYPOAT
TVPG
TVPI.N3 0
TYPSB
XTy

muae!

004b50
U40B1
004460
002322
004~la

010672
014300
003430
001210
010612
001224
003500

0U&bb
003012
00277b
104016
003042
013756

REsn2. 104223
RM33A
014341
RNGEN
0112520
00330b
RSTAL
RSTLS
003342
RSTRG
002324
R0
'UU000
R3
oU00003
S
014220
SCOPTR 001246
SHAL T
001510
SPSCT • 001200
SRESET_ 104011
003146
STA~
8TA~~ • U4002
STLMSK 903204
STPPA
002462
SUSTNA 004464
SYCTRA 004024
HSP
010U2
TeCNT
010626
TCTR
004572
TlMCLB 003446
TKVTR
001220
TPLVL
001226
TSPCH
003456
TSTPCH 012514
002&16
TVPA
TYPE • U4000
004546
TYP~A
004574
TYPU

~1422J

014226