Digital PDFs

MAINDEC-11-DZPCA-E-D

April 1976

53 pages

Original

6.2MB

Document:	PC11-Reader-and-Punch-Tests
Order Number:	MAINDEC-11-DZPCA-E-D
Revision:	0
Pages:	53
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/PC11/MAINDEC-11-DZPCA-E-D_PC11-Reader-and-Punch-Tests_Apr76.pdf

OCR Text

p.---

PCll READER-PUNCH TESTS MACYil 27(732)
OZPCU,SRC
1
2
1
4
5

18.MAR-76

09z44

PAGE 1

• REM ...

000583

6
7
8
9
10

11
12
13
14
15
16

IDENTlfICATIOf\l
--_
... __ ... -_.-

17
18

PRODUCT CODE;

MAINDEC-l1-0ZPCA-E-D

19
20

PRODUCT NAME:

PCll

PROGRAM OATEI

APRIL 197&

MAINTAINER:

DIAGNOSTIC GROUP

21
22
23
24
25

R~ADER

AND PUNCH TESTS

26
27
28

29
30
31

THE INfORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIpMENT CORPORATION. DIGITAL EQUIPMENT CORpORATION ASSUMES
NO RESPONSIBILITY FOR ANy ERRORS THAT MAy APPEAR IN THIS DOCUMENT

32
H

34
35

THE SOfTWARE DESCRIBED IN THIS DOCUMENT IS FURNIsHED UNDER A
LICENSE AND MAY ONLY BE USED OR COpIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

37
38
39

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

41
42

43
44

COP~RIGHT

ec) 1972, 1976 BY DIGITAL EQUIPMENT CORPORATION

PCll READER-PUNCH TESTS MACY11 27(732)
DZPCU.SRC

18.MAR-76

09144

PAGE 2

4t
41
48

1•

ABSTRACT

.. -.--_.-

50
51
52
53
54

THE PCll READER AND PUNCH TESTS CONSISTS OF A PACKAGE OF TEST
PROGRAMS DESIGNED TO TEST ThE READER LOGIC, READER, PUNCH ~OGIC,
PUNCH, AND THE PEADER AND PUNCH IN COMBINATION, ALL TESTS ARE
INCLUDED IN ONE OBJECT TAPE.

55
S6

THE AVAILABLE TESTS ARE LISTED HERE IN NUMERICAL ORDERI

PRG0·PEADER LOGIC TESTS
PRG1-READER TEST
PRG2-PUNCH LOGIC TESTS
PRG3-PUNCH TEST
PRG4-PUNCH VERIFY ROUTINE
PRG5-COMBINED READER-PUNCH TEST
PRG6-PUNCH TAPE WITH 2 CHARACTERS SET IN SR ROUTINE,
PRG7-READ AND CHECK TAPE PUNCHED WITH 2 CHARACTERS SET IN SR.
PRG10-READ X CHARACTERS, THEN STALL Y MSECS.
PRGll-SPECIAL BINARY COUNT PATTERN TAPE GENERATOR.
PRG12-READER SPEED PRINT ROUTINE,
PRGl3-PUNCH SPEED PRINT ROUTINE.

58
59
60

61
62
63

64
65
66
67
68

69
10
71
72
73
74

75
76
77
78
79

PROGRAMS PRG0 THROUG~ PRG5 ARE THE R~ADER AND PUNCH TESTS,
PROGRAMS PRG6 THROUGH PRG13 ARE UTILITY ROUTINES THAT
PRODUCE TEST TAPES AND AID IN MAKING ADJUSTMENTS,
2.

REQUIREMENTS

2.1

...........

8'
B1

....•...... EQUIPf.4ENT

A.
8.
C.

82
IU

PDP-lt SYSTEM. (8K MEMORY)
CONSOLE TELETYPE
PCll READER OR PCll READER AND PUNCH.

THE PROCESSOR AND TELETYPE MUST BE IN OPERATING CONDITION,

85
86
87
88

THE TELETYPE, HIGH SPEED READER, AND HIGH SPEED PUNCH MUST
HAVE STANDARD PERIPHERAL ADDRESSES. REFER TO SECTION 7.3
IF YOUR SYSTEM DOES NOT HAVE STANDARO pERIpHERAL ADDRESSES,

89
90

2.2

STORAGE

92
93

THIS PROGRAM RUNS IN 8K MEMORY.

95
96
91
98
99

2.3

LOADING PRODEDURE

.... _.. __ e._._. __

THIS PROGRAM"S OBJECT TAPE IS PUNCHED IN ABSOLUTE FORMAT.
THE ASS LOADER IS USED TO LOAD ThE PROGRAM.

PCll READER.PUNCH TESTS MACYil 27(732)
DZPCAE.SRC

18.MARD76

0qa44

PAGE 3

100

U2
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

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

SOFTWARE SWITCH REGISTER MANIPULATION
~

THIS PROGRAM DOES NOT MAKE USE or THE HARDWARE SWITCH REGISTER
(LOC 177570). IT INSTEAD US~S A SOfTwARE SWITCH REGISTER (SWREG)
LOCATED AT MEMORY ADDRESS 116. UPON EXECUTION OF EACH
SUB-PROGRAM WHICH ALLOWs SWREG SETTINGS, THE CONTENTS 05 SWREG
ARg DUMPED IN OCTAL ON THE CONSOLE TTY AND REQUESTS A NEW VALUE (IE)
SWR=XXXXXX

NEW:

POSSIBLE RESPONSES AREr

120
121
122
123
124
125
126

<CR>

6 DIGITS
0.7

·U

IF NO CHANGES ARE TO BE MADE
TO REPRESENT IN OCTAL THE NEW SWREG CONTENTS
LAST DIGIT FOLLOwED BY <CR>,
TO ALLOW REENTERING VALUE If ERROR IS COMMITTED
KEYING IN SWREG VALU~.

127

128
129
130

BUILT INTO THE PROGRAM IS THE ABILITY TO DyNAMICALLY CHANGE
THE CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY TYPING A
-G (CNTL G) ON THE CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG
TO CHANGE THE CONTENTS Of SWREG, WHICH WILL BE PROCEssED IN KEY AREAS
OF THE PROGRAM CODE, (IE) ERROR ROUTINES, AFTER COMMON HALTS
AND END OF PASS,

131
132
133
134
135
136

THE OPEPATOR ALsO HAS THE ABILITY TO TYPE -G OR ·U wHEN
INPUTTING DATA SUCH AS TEST NUMBER, ROUTINE NUMBER, AND ANY
ASCI! DATA.

137
138
139
140
141

"'G

WILL IMMEDIATELY EXECUTE THE ROUTINE TO CHANGE
SWREG AND THEN RE.ASK QUESTION IN WHICH
-G WAS ANSWERED.

.. U

WILL ALLOW OPERATOR TO REENTER DATA If ERROR WAS COMMITTED.

142

143
144
145

PClt READER-PUNCH TESTS MACY11 27(732)
DZPCAE. SRC

lS-MAR-76

09:44

PAGE 4

146
147

148
149

USE PROCEDURE

150

151

152
153
154
155
156
157
158
159
160

161
162
163
164
165
166
167
168
169
170

171
172
173
174
175
176

177

LOAD STARTING ADDRESS·PRESS START. THE PROGRAM IDENTIFIES ITSELF
(1ST TIME THRU ONLY) AND REQUESTS THE PROGRAM NUMBER
TO EXECUTE.
THE fOLLOWING PAGES EXPLAIN IN DETAIL THE STEPS NECESSARY
TO RUN EACH PROGRAM.
4.1

PRG0 USE PROCEDURE (DESCRIPTION IN SECTION 8,1

... ---_._---.-.-.-._ .... -----._._--_.-.-.- ....

A.
B.
C.

INSURE THAT TELETYPE IS ON-LINE
HAVE AVAILABLE A TAPE LOOp OF SPECIAL BINARY COUNT PATTERN,
THE PROGRAM IDENTIfIES ITSELF ANO TYPES OUT INSTRUCTIONS TO
SELRCT ANY DESIRED SWREG OPTIONS
THIS PROGRAM'S SWREG OPTIoNS AREa (EXPLAINED IN SECTION 7.2)

BIT1S:::1
B1T14=1

HALT ON ERROR.
ENTER SCOPE MODE,
6IT13=1
INHIBIT ERROR PRINT.
BIT11=l INHIBIT ITERATION.
BITl0;:l
HALT AT END OF CURRENT TEST,
BIT9=1
SELECT A SPECIFIC ROUTINE FOR ExECUTION.
BITB=1
BYPAsS MANUAL INTERVENTION ROUTINES.
D.
E.
F.

IF BIT9=1 THE PROGRAM REQUESTS THE SpECIFIC ROUTINE NUMBER.
REFER TO SECTION 6,2 IF ANy ERROR PRINTOUTS OCCUR.
THE PROGRAM RINGs THE SELL AT THE END OF EACH PASS,

178

179

EXECUTION TIME,

180

181
182
183

PRG0 IS USER DEPENDENT DUE TO THE USE OF MANUAL INTERVENTION
ROUTINES. HOWEVER, WITH SWREG BIT8 sET TO BYPASS MANUAL ROUTINES,
ONE ERRO~·FREE PASS WILL TAKE APPROXIMATELy 3 MINUtEs.

r~£4

nWftW~~-ryn~u

.~~,~

"~~'L~

&/~/~&J

IO.~R~-'O

V7;~~

~R~~

OZPCAE.SRC
184
185
186
UI7
188
189

4.2

PRGI USE PROCEDURE (DESCRIPTION IN SECTION 8.2)
• • • E __ • • e

A.
B.

190
191
192
193

194

195
196

• • _ • • _ • • • • • • • • • _. ___ ._ • • • • • • • • _._ • • • •

INSURE THAT TELETYPE IS ON-LINE
LOAD READER WITH SPECIAL BINARY COUNT PATTERN TEST TAPE LOOP.
l TEST LOOP MUST BE USED, AS A NORMAL LENGTH TEST TAPE IS
NOT LONG ENOUGH TO CONDUCT THE TEST. IF A TAPE LOOP IS NOT USED,
DATA MUST BE POSITIONED OVER THE READ CELLS, NOT THE BLANK LEADER.
TKE pROGRAM IDENTIFIES ITSELf AND TYpES INSTRUCTIONS TO
SET ANY DESIREO SWREG OPTIONS.
THIS PROGRAM'S SWREG OPTIONS AREg (EXPLAINED IN SECTION 7.2)

197

198

BIT15=1
BIT14::1
BIT13=1
SITU=!
BIT10::1
8IT9=1

199

200
201
202
203
204
205
206
207
208
209

D.
E.
F.

HALT ON ERROR.
ENTER SCOPE MODE.
INHIBIT ERROR PRINT.
INHIBIT ITERATION,
HALT AT END Of CU~RENT TEST.
SELECT A SPECIFIC ROUTINE FOP EXECUTION.

IF BIT9=1 THE PROGRAM REQUESTS A SPECIfIC ROUTINE NUMBER
REFER TO SECTION 6.2 IF ANY ERROR PRINtOUTS OCCUR.
THE PROGRAM RINGs THE BELL AT THE END OF EACH PASS,

EXECUTION TIME: ONE ERROR fREE PASS ABOUT 7 MINUTES.

210

211

223

224
225
226
227
228
229
230

231

232
233
234
235
236

237
238

A.
B.
C.

PRG2 USE PROCEDURE (DESCRIPTION IN SECTION 8,3)
.......
_______ ...
___ ·_. __ ._·· __ ·._.·Pft .. _
·

4.3

212
213
214
215
216
217
218
219
220
221
222

INSURE THAT TELETYPE IS ON-LINE.
INSURE THAT THE PUNCH HAS AN ADEQUATE SUppLY OF TAPE,
THE PROGRAM IDENTIFIES ITSELF AND TYpES INSTRUCTIONS TO
SET ANY DESIRED SWREG OPTIONS.
TBIS PROGRAM'S SWREG OPTIONS ARE: (EXPLAINED IN SECTION 7.2)

BIT1SI'II!

HALT ON ERROR.
ENTER SCOPE MODE.
BIT13=1 INHIBIT ERROR PRINT.
BITU=l INHIBIT ITERATION.
SITU::! HALT AT END Of CURRENT TEST.
BIT9=1
SELECT A SPECIFIC ROUTINE fOR EXECUTION.
BIT8=1 BYPASS MANUAL INTERVENTION ROUTINES.
BITU::1

D.
E.
f.

IF 6IT9=1 THE PROGRAM REQUESTS A SPECIFIC ROUTINE NUMBER.
THE PROGRAM RINGS THE BELL AT THE END OF EACH PASS,
REFER TO SECTION 6. IF ANY ERRORS OCCUR.

EXECUTION TIME
PRG2 IS USER DEPENDENT DUE TO THE USE or MANUAL INTERVENTION
ROUTINES. WITH SWREG BIT8 SET TO BYPASS MANUAL ROUTINES, ONE
ERPOP-FREE PASS WILL TAKE APPROXIMATELY 1.5 MINUTES.

PClt READER-PUNCH TESTS MACY11 27(732)
DZPCAE,SRC
239
240
241
242

18-MAR-76

4.4

243
244

PRG] USE PROCEDURE (DESCRIPTION IN SECTION 8.4)

249

250
251
252
253
2S4
2SS
256
257
2S8
259
260
26t
262
263
264
265
266
267
268
269
270
271

272
273
274
275
216

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

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

INSURE THAT TELETYPE IS ONqLINE.
INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY Of TAPE.
THE PROGRAM IDENTIFIES ITSELf AND TYPES INSTRUCTIONS TO
SET ANy DESIRED SWREG OPTIONS.
THIS PROGRAM'S SWREG OPTIONS ARE: (EXPLAINED IN SECTION 7,2)

INHIBIT ERROR PRINT.
INHIBIT ITERATION.
BIT10=1 HALT AT END OF CURRENT TEST,
BIT9=1
SELECT A SPECIfIC ROUTINE FOR EXECUTION.
BITU::1
BITt 1::1

D.
E.

IF BIT9=1 PROGRAM REQUESTS SPECIFIC ROUTINE NUMBER
UPON COMPLETION OF A PROGRAM PASS THE PROGRAM WILL TYPE
"P0003 END" AND HALT. TO REPEAT PRESS CONTINUE.

EXECUTION TIME: ONE PASS ABOUT 8 MINUTES.
4.5

PRG4 USE PROCEDU~E (DESCRIPTION IN SECTION 8.5)

·-·--·---·--·-$·-· .. -...

A.
B.
C.
D.
E,

277

278
219
280
281
282
283
284
285

PAGE 6

.. --.-.---.-.-.- ..
A,
B.
C.

245
246
247
248

09:44

__ .. ___ ._ .. u._ •.

INSURE THAT TELETYPE IS ON-LINE.
LOAD TAPE THAT WAS PUNCHED BY PRG3-PUNCH TEST IN READ£R.
LOAD TAPE SO THAT THE FI~ST RUBOUT (ALL 1·5) IS 3 INCHES RIGHT
Of THE METAL PLATE OVER THE FEAD STATION, MAKE READER READY.
THE P~OGRAM IDENTIFIES ITSELF AND TypES INSTRUCTlONS TO LOAD TH~
READER AND SELECT SWREG OPTIONS.
THE PROGRAM WILL READ THE TAPE AND REpORT
ANY ERRORS. DISREGARD ANY ERRORS THAT OCCUR WHEN
THE READER REACHES THE END Of THE TAPE.
THE SWREG OPTIONS FOR THIS PROGRAM ARE:
8IT15=1
8IT13=1

~.--._.

HALT ON ERROR,
INHIBlT ERROR PRINT.

REFER TO SECTION 6. IF ERRORS OCCUR.

PRG4 DOES NOT RESYNC THE READER AT ANY TIME. IT'S INTENT IS
TO SHOW EACH AND EVERY ERROR CAUSED bY THE PUNCH,
EXECUTION TIME: DEPENDS ON LENGTH OF TAPE TO BE VERIFIED.

PC1! READER-PUNCH TESTS ~ACY11 27(732)
DZPCAE.SRC

lB-MAR-76

09:44

PAGE 7

286

287
288
289
290
291
292
293
294
295
296
297
298
299

4.b

.- ..•............• _.- ..... _- .... -............. .
PRGS USE PROCEDURE (DESCRIPTION IN SECTION 8.6)
A.
8.

D.
E.

300
301

302
303
304
305

306

307

SIT15=1
BIT13:1

308

309
310
311
312
313
314
315

316
317
318
319
320

321

322
3H
324
325
326

INSURE THAT TELETYPE IS ON-LINE.
INSURE THAT THE PUNCH HAS AN AO~QUATE SUPPLY or TAPE.
USING THE "PUNCH FEED" K~Y, PUNCH 2 FEET BLANK LEADEN.
LOAD A 1" THICK STACK Of PREPUNCHED SPECIAL BINARY COUNT
PATTERN TAPE IN PEADER, AND MAKE READER READY, THE BLANK
LEADER PORTION OF THE TAPE MUST BE AT THE READ STATION.
THE PROGRAM IDENTIFIES ITSELf AND TYpES INSTRUCTIONS TO PUNCH
LEADER AND LOAD READER,
THE PROGRAM WILL PUNCH A NEW BINARY COUNT
PATTERN WHILE READING IHE PREPUNCHED TAPE IN THE READER.
THE PROGRAM SHOULD RUN ERROP-FREE UNTIL THE READER TAPE IS
EXHAUSTED, AT WHICH pOINT A READER NOT READY MESSAGE WILL
OCCUR. REPLACE THE READER TAPE WITH THE TAPE JUST PUNCHED
AND RERUN THE TEST. RUN THE TEST 6 TIMES.
THE SWREG OPTIONS AVAILABLE wITH THIS PROGRAM AREs

REFER TO SECTION 6. IF ERRORS OCCUR.

EXECUTION TIMEI
4.7

HALT ON ERROR.
INHIBIT ERROR PPINT,

PRGS IS CONTINUOUS RUNNING.

PRG& USE PROCEDURE (DESCRIPTION IN SECTION B,7)

..... ---.- ... -- ....... -.•. ------_ .... --- .... --THIS PROGRAM CONTINUOUSLY PUNCHES TApE wITH 2 CHARACTERS SELECT~D
A.
B.
C.
D.

INSURE THAT TELETYPE IS ON-LINE.
INSURE TAHT THE PUNCH HAS AN ADEQUATE SUppLY OF TAPE.
THE PROGRAM IDENTIfIES ITSELF AND TYpES INSTRUCTIONs TO
ENTER THE DESIRED ASCII CODES FOR CHARACTERS TO PUNCH.
PRESS CONTINUE. THE PROGRAM WILL PUNCH THE DESIRED
CHARACTERS CONTINUOUSLY UNTIL STOPpED BY USER.

EXECUTION TIME:

CONTINUOUS RUNNING PROGRAM.

PC1! READER-PUNCH TESTS MACY11 27(732)
DZPCAE.SRC

18.MAR-76

PAGE B

09S44

327
328
329
330

4.8

.. ___ ___ . ______ u. __ . ___ ._ ...... ___ .. ___ . ____ .

PRG7 USE PROCEDURE (DESCRIPTION IN SECTION 8.8)
~.

H1
332

THIS PROGRAM READS AND CHECKS A TAPE PUNCHED WITH ANY 2 CHARACTERS

333
334
335

A.
B.
C.
D.
E.

336
337

338
339
340
341
342
343
344
345

INSURE THAT TELETYPE IS ON-LINE.
LOAD TAPE TO BE READ IN REAOER. DATA MUST BE UNDER READ STATION,
FOLLOW PROGRAM INSTRUCTIONS.
THE PROGRAM WILL READ THE TAPE AND REPORT ANy ERRORS,
THE SWREG UPTIONS AVAILABLE WITH THIS PROGRAM AREc
BIT15=1
BIT13=1

HALT ON ERROR.
INHIBIT ERROR PRINT.

REFER TO SECTION 6. IF ERRORS OCCUR.

EX~CUTION

TIME:

CONTINUOUS RUNNING PROGRAM.

346

347
348
349
350
351
352
353
354
355
356

357
358

4.9

PRG10
PROCEDURE
____ .e VSE
______
._. ___ .
THIS PROGRAM IS INTENDED AS AN AID IN SCOPING AND ADJUSTING
THE RE~DER AND READER LOGIC. TO RUhZ

A.
8.
C.

359
360

I, THE RANGE FOR CHARACTERS TO READ IS 1 THRU 377 (8).

361
362
363
364

365
366
367

INSURE THAT TELETYPE IS ON-LINE.
LOAD ANy TAPE LOOP IN TH~ READER. ONE·S AND ZEROES LOOP IS
A GOOD CHOICE.
T~E PROGRAM IDENTIFIES ITSELF A~D TYpES INSTRUCTIONS TO ENTER THE
NUMBER Of CHARACTERS TO READ AND THE NUMBER OF MILLISECONDS
TO STALL AFTER READING THE CHARACTERS. PLEASE NOTE:

2. THE STALL VALUE MUST 8E NON-ZERO, BETWEEN 1 AND 317(8),

PRESS CONTINUE. THE PROGRAM WILL CONTINUOUSLY READ AND STALL
UNTIL STOPPED BY USER.

EXECUTION TIME:

CONTINUOUS RUNNING PROGRAM.

pell READER-PUNCH TESTS MACY11 27(732)
DZPeAE.SRC

lQ-MAR-76

09144

PAGE 9

368

369
370

4.10

371

372
373

375
376

A.
B.
C.

377
378

379
380
381
382
383

D.
4.11

384
385
386
387
388

INSURE THAT TELETYPE IS ON-LINE
MAKE SURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE.
THF. PROGRAM IDENTIFIES ITSELF, AND TYPES INSTRUCTION
TO MAKE THE PUNCH READY.
PRESS CONTINUE. THE SPECIAL BINARY COUNT PATTERN WILL
BE PUNCHED UNTIL THE PROGRAM IS STOPPED BY USER.

PRG12 USE PROCEDURE

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

THIS PROGRAM IS INTENDED AS AN AID IN DETERMINING THE SPE~D
OF THE READER. IT IS NOT INTENDED TO REPLACE REGULAR SeOPING
PROCEDURES FOR SETTING THE READER TO ITS CORRECT SPEED,

389
390

WITH THIS PROGRAM THE READER SPEED CAN BE MEASURED IN TWO WAYS.

391
392
393
394
395

1,
2,

30 SECOND MEASUREMENT PERIOD. pLus OR MINUS 10 CHARACTER ACCURACY
300 SECOND (5 MINUTE) MEASUREMENT PERIO~. pLUS OR MINUS 1 CHARACTER ACCURACY

IN EITHER CASE MEASUREMENT ACCURACY DEpENDS ON THE USER-S ATTENTION
TO STARTING AND ENDING TIMES OF MEASUREMENT, AS THE TIME INTERVALS AR~
DETERMINED BY THE USER USING A SWEEP SECOND HAND WATCH OR STOP WATCH.

396
397

398
399

THE SPECIFIED ACCURACY ASSUMES THAT TH~ USER wILL TERMINATE THE
MEASURING INTERVAL W1THIN ONE SECOND OF THE MEASUREMENT pERIOD,
TO RUN:

400

41111

402
403
404
405
406

411
412

... _.-------.- .....
THIS PROGRAM CONTINUOUSLY PUNCHES A TAPE WITH THE SPECIAL
BINARY COUNT PATTERN. TO PUNa

374

407
408
41119
411/1

PPGll USE PROCEDURE

A.
B.
C.
,%

D.
E.
F.

INSURE THAT TELETYPE IS ON-LINE
MOUNT ANy TAPE LOOp IN READER,
THE PROGRAM IDENTIFIES ITS~LF AND TYp~S INSTRUCTIONS TO LOAD READER
AND MAKE READY, AND TO SELECT OESIRED MEASUREMENT PERIOU.
PRESS CONTINUE WHEN READY TO START MEASUREMENT. THE R~ADER
WILL START RUNNING.
AT END OF TIME PERIOD, STRIKE ANY TTY KEY
THE PROGRAM WILL TYpE AOUT THE READER SPEED IN CHARACTERS
PER SECOND AND HALT,
TO REPEAT, PRESS CONTINUE ~HEN READY

PCll READER-PUNCH TESTS MACYll 27(732)
DZPCAE.SRC

18-MAR-76

09:44

PAGE 10

413
414

415
416
417
418

4,12

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

PRG13 USE PROCEDURE

THIS PROGRAM IS INTENDED AS AN AID IN DETERMINING THE PUNCH SPEED,
THE SPEED OF THE PUNCH CAN BE MEASUPED WITHIN ONE CHARACTER ACCURACY
PROVIDED TijE USER PAYS CLOSE ATTENTION TO THE STARTING AND STOPPING
TIME or THE MEASUREMENT PERIOD. THE MEASUREMENT PERIOD IS CONTROLLED
BY THE USER USING A SWEEP SECOND WATCH OR STOP WATCH. THE PERIOD
USED IS 60 SECONDS. TO RUNI

419

420
421
422
423
424
425

A.
B.
C.

426

427
428

429
430
431
432

D.
E.

433

434

435
436
437
438

INSURE THAT TELETYPE IS O~-LINE
INSURE THAT PUNCH HAS AN ADEQUATE SUpPLY or TAPE,
THE PROGRAM IDENTIFIES ITSELF AND TYpES INSTRUCTIONS TO MAKE
PUNCH READY.
PRESS CONTINUE WHEN READY TO START MEASUREMENT, THE PUNCH WILL
START RUNNING.
AT END OF TIME PERIOD (&0 SECONDS),STRIKE ANY TTY KEY
THE PROGRAM WILL TYPE OUT THE PUNCH SPEED IN CHARACTER PER
SECOND AND HALT,
TO REPEAT, PRESS CONTINUE
CONTINUE WHEN READY.

PROGRAM AND/OP OPERATOR ACTION

5.1

NORMAL PRINTOUTS
..
----- ..-.- ....

439

440

•........•..••. -_ ....-........

441
442
443

444

445
446
447
448
449

4511
451
452
453
454

455
456
457
458
459
4611
461

NORMAL PRINTOUTS IN THIs PROGRAM SERVE TO IDENTIFY A STARTING
PROGRAM, TO pROVIDE INSTRUCTIONS, TO IhDICATE STATUS, OR TO SIGNAL
AN OpERATOR ERROR. MOST PRINTOUTS ARE SELF.EXPLANATORY. THOsE
PRINTOUTS REQUIRING ADDITIONAL EXPLANATION FOLLOW.
"INCORRECT PROGRAM SELECTED."

.----.. -------.--- •.•...•...

THE USER HAS SELECTED FOR EXECUTION A NON-EXISTENT PROGRAM.
PRESS CONTINUE TO RETRY,
"INCORRECT ROUTINE SELECTED,"
..........
_- •...... -..•.. ---THE USER HAS SELECTED FOR EXECUTION A ~ON-EXISTENT ROUTINE.
PRESS CONTINUE TO RETRY.

PClt READER-PUNCH TESTS MACY11 27(732)
DZPCAE.SRC
462
463
464
465
466
467
468
469
470

lS.MAR-7b

472

473

474
475
476

471
478

479
480
481

482
483
484
485

486
487

ERRORS ARE REPORTED IN THIS PFOGRAM BY ONE OF THE FOLLOWING METHODSZ
A.

B.
6.1

PAG~

ERRORS

471

09344

UNCONDITIONAL ERROR HALTS, OR
ERROR PRINTOUT FOLLOWED BY AN OPTIONAL ERROR HALT.

UNCONDITIONAL ERROR HALTS

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

AN UNCONDITIONAL ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROGRAM CONTROL
IS TRANSFERRED TO AN UNEXPECTED AREA BETWEEN 000000 AND 000776.
000002
000006
000012
000016
000022
000026
000040

• RESERVED AREA.
• ERROR TRAP
- RESERVED INSTRUCTION TRAP
• DEBUG TRAP
• lOT TRAP
• POWER FAIL TRAP
THROUGH 000176 • SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA,
EXCEPT FOR PCll AND TTY VECTORS.

pell READERfiPUNCH TESTS MACY11 27(732)
DZPCAE.SRC

18-MAR-76

09:44

PAGE 12

488

489
490
491
492
493
494

pAGE 14

b.2

ERROR PIHf.4TOUTS

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

ERROR PRINTOUTS IN THIS PROGRAM CAN BE ONE Of TWO TYPESz
A. NORMAL ERROR PRINTOUTS
B. EXTENDED ERROR PRINTOUTS

495
496
497

498

6.2.1

499

5130
501

NORMAL ERROR PRINTOUTS

_._ .... _----._.- .. _...

NORMAL ERRO~ PRINTOUTS ARE GENERATED BY THE "ERR" SUBROUTINE.
THE ERR SUBROUTINE IS CALLED BY AN "ERROR" STATEMENT IN THE
PROGRAM LISTING. THE NORMAL ERROR PRINTOUT TAKES THE fORM:

502
503

5134
505

"ERROR P00XX T00YY PC 0ZZZZZ"

506

5167
5138
5139

WHERE:
P00XX IS THE NUMBER Of THE PROGRAM BEING RUN,
T00YY IS THE NUMBER OF ROUTINE WHERE FAILURE OCCURRED.

510
511
512
513
514
515
516
517
518

PC 0ZZZZZ IS THE ADDRESS FROM WHICH THE ERROR CALLED WAS ISSUED.
WHEN THIS TYPE Of ERROR PRINTOUT OCCURS:
A.

519
5213
521

522
523

524
525
526

527
528
529

5313
531
532
533
534
535
536

537
538
539

540

6.2.2

IN THE ~ROGRAM LISTING, LOOK UP THE ADDRESS REFERENCED BY PC0ZZZZZ.
OppOSITE THE PC VALUE AN ERROR STATEMENT WILL BE FOUND, AND
IN THE COMMENTS SECTION A DESCRIPTION Of THE fAILURE WILL BE
FOUND.
AT THE BEGINNING OF THE TEST ROUTINE A DESCRIPTION OF THE TEST
WILL BE FOUND, AND ALSO IN THE "PROGRAM DESCRIPTION" SECTION
OF THIS DOCUMENT.

EXTENDED ERROR PRINTOUTS

....... - .•.....•• ------.

IN ADDITION TO THE INFORMATION TYPED BY THE NORMAL ERROR PRINTOUTS,
THE EXTENDED ERROR PRINTOUTS TYPE INFORMATION THAT DESCRI~ES THE TYPE
OF fAILURE. MOST EXTENDED PRINTOUTS CONCERN THEMSELVES WITh
DATA PROBLEMS. THE PRINTOUTS ARE GENERATED BY THE "ERR1" SUBROUTINE
WHICH IS CALLED BY AN "ERROR1" STATEMENT IN THE PROGRAM LISTING.
A TYPICAL PRINTOUT WOULD LOOK AS FOLLOWS:
"ERROP P0005 T0000 PC 011350 DATA ERROR 5/BI0371 WAS10071"
THE PROGRAM, TEST AND PC INFORMATION ARE THE SAME AS FOR NORMAL
ERROR PRINTOUTS. THE PC VALUE ALTHOUGH HAVING THE SAME MEANING,
IS NOT AS MEANINGFUL, SINCE THE ERRI SUBROUTINE MAY BE BEl~G
CALLED BY A COMMON OATA ERROR SUBROUTINE WHICH IS USED BY MUR~
THAN ONE PROGRAM.

PCll READER-PUNCH TESTS MACY11 27(732)
DZPCAE.IRC
50U
542
543
544
545
546
547

548

lS.MAR-76

09144

PAGE 13

(6.2.2 CONT'D)
THE IMPORTANT INFORMATION IN AN EXTENDED ERROR PRINTOUT IS THE
"EXTENDED" INfORMATION TYPED. SOME OF THE EXTENDED PRINTOUTS
ARE DESCRIBED BELOW&

549
550

"DATA ERROR SIB XXXX WASI YYYY"

551

DATA READ WITH READER DOES NOT AGREE WITH EXpECTED DATA.
SIB XXXX (SHOULD BE) IS THE EXPECTED DATA. WAS IIYY IS TH~
RECEIVED DATA. DEPENDING ON THE PROGRAM, THE FAILURE COULD
BE CAUSED BY THE READER OR THE PUNCH, EXAMINING THE TApE
WILL SHOw IF THE TAPE IS PUNCHED CORRECTLY.

552
553

554
555
556
557

558

559
560
561
562
563
564
565

566
567
568
569
570
571

572
573
574
575
576
577
578
579

580
581
582
583
584

585
586
587
588

5119
590
591

592

"REREAD ERROR. 1ST READs XXXX WASs YYYY"
THIS ERROR PRINTOUT IS GENERATED BY PRG0 TEST17~ IT INDICATES
THAT A REREAD OF THE READER SUFFER DID NOT AGREE WITH THE
ORIGINAL DATA READ FROM THE BUFFER.
"SYNC ERROR~
THIS PRINTOUT INDICATES THAT A PROG~AM WAS UNSUCCESSFUL IN
SYNCING UP WITH THE SPECIAL BINARY COUNT PATTERN TAPE IN
THE READER, OR IN THE CASE OF PRG4, TijAT THE PROGRAM HAS NOT
READ A SUFFICIENT NUMBER Of ZEROES BEFORE SyNCING UP WITH
THE LEADER CHARACTER (377). IF HALTED, PRESS CONTINUE
TO TRY AGAIN.
"LEADER ERROR SIB: 377 WAS: XXXX" OR
"LEADER ERROR SIB BETWEEN 0 AND 3, WAS, XXXX
ONE OR BOTH OF THESE PRINTOUTS IS GENERATED BY PRG4 WHEN IN
READING THE LEADER THAT PRECEDES THE SPECIAL BINARY COUNT PUNCHED
BY PRG3 THE DATA DOES NOT AGREE WITH THE EXPECTED DATA, CHECK
THAT THE TAPE IS PUNCHED CORRECTLy. REFER TO PRG3 AND PRG4
DESCRIPTION.
"MATCH ERROR"
THIS PRINTOUT IS GENERATED BY PRG7 WHEN UNSUCCESSFUL IN MATCHING
UP THE DATA READ FROM THE READER· WITH THE EXPECTED DATA AS
SPECIFIED, CHECK THAT THE TAPE IS THE ONE TO BE READ AND
RESTART THE PROGRAM,
"FALSE READER INTERRUPT" OR,
"FALSE PUNCH INTERRUPT"
THE PROGRAM DID NOT FIND THE ERROR OR THE DONE BIT SET FOLLOWING
AN INTERRUPT, POSSIBLy NOISE COULD 8E CAUSING THE PROBLEM.

PCll READER-PUNCH TESTS MACY11 27(732)
DZPCU.SRC
59:;
59.4
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609

lS-MAR-76

7.1

09:44

PAGE 14

MISCELL~NEOUS

TEST TAPES

.................

THE FOLLowING TBST TAPES ARE RELEASED WITH THIS PROGRAM a
A.
B.

MAINOEC-00-D2G4-PT SPECIAL BINARY COUNT PATTERN TEST TAPE.
MAINDEC-00-D2G2-PT ONES AND ZEROES TEST TAPE.

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

610

001, 376, 002, 375, 003, 374, 004, 373, ETC.

611
612

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

613

614
615
616
617
618

619

7.2

620
621

622

SWREG OPTIONS

-- ..... ---

THE STANDAPD SWREG OPTIONS ARE DESCRIBED HERE.

62]

624
625
626
627
628

8IT15 • HALT ON ERROR.
BIT14 • SCOPE. THIS OPTION CAUSES THg PROGRAM TO REMAIN IN THE
CURRENT TEST ROUTINE. wHEN THE OpTION IS REMOVED TH~
PROGRAM PERFORMS THE TEST THE HUMBER OF TIMES SPECIFIED
BY ITS ITERATION COUNT, BEFORE GOING ON TO THE NEXT ROUTINE,

629
61'

611
632
631

8IT13 • INHISIT ERROR PRINT,
ERROR PRINTOUTS.

THIS OPTION IF SET WILL REMOVE ALL

PClt READER-PUNCK TESTS MACY11 27(732)
DZPCU.5RC

lS-MAR-7&

09&44

PAGE 15

634

635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659

(7.2 CONT'D)
BITll - INHIBIT ITERATION. SO~E PROGRAMS CONSIST OF INDIVIDUAL
TEST ROUTINES. FOR EACH ROUTINE T~E fUNCTION BEING
TESTED CAN BE TESTED A VARIABLE NUMBER OF TIMES BEFORE
THF ROUTINE IS COMPLETED. THE NU~BER OF TIMES THE TEST IS TO
BE PERFORMED IS CALLED THE ITERATION COUNT AND IT MAY DIFfER
FROM ROUTINE TO ROUTINE, SETTING SWREG BIT11 WILL CAUSE THE
PROGRAM TO PERfORM ONLY ONE ITERATION FOR EACH ROUTINE DURING
WHICH THE SWITCH IS SET. TWO POSSIBLE USES Of THIS
OPTION ARE:
A.

QUICK PASS. WHEN A PROGRAM RUNS FOR SEVERAL MINUTES
fOR ONE PROGRAM PASS, THE USER MAY ELECT TO RUN
THROUGH THE PROGRAM QUICKLY TO FIND OUT IF ANy FAILURES
SHOW UP IMMEDIATELY. A SUCCESSFUL QUICK PASS HOWEVER,
DOES NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERRORFREE WHEN PERFORMING A NORMAL ITERATION PASS.

SKIP OVER FAILING ROUTINE, WHEN A ROUTINE WITH A MULTIPLE
ITERATION COUNT HAS DETECTED A SOLID FAILURE, THE ERROR
WILL BE R~PORTED MANY TIMES_ TO GO ON TO THE NEXT
ROUTINE IF DESIRED, THE USER CAN INHIBIT ITERATION, IT
WILL 8E NECESSARY TO SET SRli ROUTINE AND HALT, TO
CAUSE THE PROGRAM TO STOP AT END OF FAILING ROUTINE.
OTHERwISE THE PROGRAM WILL QUICKLY RUN THROUGH THE
NEXT POUTINE ALSO.

660

661
662
663
664
665
666
667
668
669
670
671

672
6B
674
675
676
677
678

BIT10 • HALT AT END OF CURRENT ROUTINE, FOR THOSE PROGRAMS CONSISTING
OF A SET OF SEPARATE TEST ROUTINES, SWREG BIT10 SET TO A 1
CAUSES THE PROGRAM TO HALT AT THE COMpLETION OF THE
ROUTINE CURRENTLY BEING EXECUTED. THREE POSSIBLE USES or
THIS OPTION ARf.:
A.
B.

TO STEP THROUGH A PROGRAM ONE ROUTINE AT A TIME.
WHEN AN UNPREOICTED FAILURE HAS OCCURRED (BLOW UP,
HANG UP) TO ADVANCE THROUGH THE PROGRAM ONE ROUTINE
AT A TIME UNTIL THE BLOW UP OCCURS. THE ROUTINE
FOLLOWING THE LAST IDENTIFIED ROUTINE WOULD BE THE
FAILING ROUTINE.
WHEN A PROGRAM Is IN EXECUTION, TO DETERMINE HOW FAR
THE PROGRAM HAS PROGRESSED.

PC1! R£AD£R-PUNCH TESTS MACY11 27(732)
DZPCU.SRC

18-MAR-76

09:44

PAGE 16

679
680
681
682

683
684
685

686

(7.2 CONT'D)
4&

BIT9 -

SELECT ROUTINE. THE PROGRAMS THAT CONSIST OF INDIVIDUAL TEST
ROUtINES, THE USER MAY ELECT TO RUN ONLY A SPECIFIED
ROUTINE, TO SELECT A ROUTINE BIT 9 (SWREG) MUST BE SET
THE PROGRAM THEN REQUESTS THE ROUTINE NUMBER TO BE RUN
THE SELECTED NUMBER MUST BE A VALID ROUTINE NUMBER
FOR THE PROGRAM BEING RUN, OR A USER ERROR PRINTOUT WILL
OCCUR. THE PROGRAM WILL RUN THE SELECTED ROUTINE UNTIL THE
SELECT ROUTINE OPTION IS CLEARED, OR UNTIL THE SELECTED
ROUTINE NUMBER IS CHANGED. IF THE OPTION IS CLEARED, THE
PROGRAM WILL PROCEED TO EXECUTE THE REMAINING ROUTINES IN THE
PROGRAM. IF THE ROUTINE NUMBER IS CHANGED, THE PROGRAM
WILL EXECUTE THE NEWLY SELECTED ROUTINE.

BIT8 -

BypASS MANUAL INTERVENTION ROUTINE, SOME PROGRAMS TEST
ROUTINES REQUIRE THAT THE USER PERFORM SOME MANUAL
OpERATION FOR WHICH THE PROGRAM HAS TO WAIT, THE USER MAY
ELECT TO BYPASS THESE ROUTINES BY SETTING BIT8 OF SWREG. A GOOD
POINT AT wHICH TO USE THIS OPTION WOULD BE AFTER A COMPLETE
PASS HAS BEEN COMPLETED, AND THE USER WISHES TO LOOP THE
PROGRAM WITHOUT HAVING TO INTERVENE. SELECTING A MANUAL ROUTIN~
WITH 81T9 OPTION AND BIT8 SET WILL CAUSE THE FOLLOWING PRINTOUT;

687
688
689

690
691

692
693

694
695
696
697
698

699
700

7III 1

702

71213
704
705
706

707
708

709
710

"?MANUAL ROUTINE. BIT8 IS SET,"
EITHER TURN OFF BITS, OR SELECT ANOTHER ROUTINE. PRESS
CONTINUE.

PCll READER-PUNCH TESTS MACYil 27(732)
DUCAE,SAC

~9144

18-MAR-76

PAGE 17

711

712
713

7.3

714

TESTING PCll AT NON-STANDARD ADDRESSES ANDIOR VECTORS
•••••••••••••••• P ••••••••• - •••••• - •••••••••••••• - •••

715
716
717
718
719

THIS P~OGRAM CAN TEST PCll'S ASSIGNED TO NON-STANDARD ADDRESSES
AND VECTORS PROVIDED THOSE ADDRESSES AND VECTORS ARE PROVIDED
TO THE PROGRAM AS FOLLOWS a

720

721

722
723

724
725
726
727
728
729
730

IMMEDIATELy AFTER LOADING THE PROGRAM CHANGE THE FOLLOWING
LOCATIONS. REFER TO PROGRAM LISTI~G.
LOCATION

FROM STANDARD

001210
001212
001214
001216
001220
001222

177550
177552
177554
177556

001224
001226

731
7U

733
734

H!S
736
737

H8
740
741

000074
000200

LOCATION

.'ROM STANDARD
177560

001232
001234

177562
177564
177566

001236

0It

000200

IF THE TELETYPE IS ALSO AT NON STANDARD ADDRESSES, PERFORM
THE FOLLOWING CHANGESI
00123113

739

11300070

TO NON-STANDARD
R~ADER CSR ADDRESS
READER BUFFER ADDRESS
pUNCH CSR ADDRESS
PUNCH BUFFER ADDRESS
READER INTERRUPT VECTOR ADDRESS
READER PRIORITY LEVEL
pUNCH INTERRUPT VECTOR ADDRESS
pUNCH PRIORITY LEVEL.

TO NON-STANDARD
TTY KEYBOARB CSR
TTY KEYBOARD BUFFER
TTY PRINTER CSR ADDRESS
TTY PRINTER BUFFER ADDRESS

PC1! READER-PUNCH TESTS MACYll 27(732)
DZPCAE.SRC

18.MAR-76

09844

PAGE 18

74:&

743
744
745
746
747
748
749

750
751
752
753
754
755
756
757
758
759
760

761
762
763
764
765
766
767
768
769
770
771
772

773
774
775
776
777
778
779

780
781
782
783
784

785
786
787
788
789

790
191
792
793

DESCRIPTION

8.1

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

...... --_ .......
PRG0 PROGRAM DESCRIPTION

PRG0 TESTS THE PCll INPUT LOGIC. THE PROGRAM CONSISTS OF 26
TEST ROUTINES NUMBERED FROM 00 TO 30(8),
RTN0 - TESTS THAT THE READER STATUS WORD (PRS) CAN BE
REFERENCED WITHOUT TRAPPING.
RTN! • TESTS THAT THE READER BUFfER (PRB) CAN BE REFERENCED
WITHOUT TRAPPING.
RTN2 - MANUAL INTERVENTION ROUTINE. CHECKS THAT WITH PC1! POWER
OFF AND AFTER ISSUING A RESET THE ERROR BIT IS THE ONLY
BIT SET 'IN THE READER STATUS wORD (PRS).
RTN3 - MANUAL INTERVENTION ROUTINE. CHECKS THAT THE ERROR BIT
(BIT 15) BECOMES SET IN PRS WITH READER OFF.LINE.
RTN4 - MANUAL INTERVENTION ROUTINE, CHECKS THAT THE ERROR BIT
(BIT 15) BECOMES SET IN PRS WITH READER OUT-Of-TAPE.
RTNS • MANUAL INTERVENTION ROUTINE. CHECKS THAT THE ERROR BIT
(BIT 15) IS NOT SET (CLEARED) IN PRS WITH PCll POWER ON,
READER ON.LINE, AND TAPE LOADED IN READER.
RTN6 • TESTS ABILITY TO SET AND CLEAR THE INTERRUPT ENABLE
BIT IN PRS (BIT 6),
RTH7 • TESTS ABILITY TO CLEAR THE INtERRRUPT ENABLE BIT IN
PRS (BIT 6) WITH A RESET INSTRUCTION.
RTN10 • ENABLES READER, AND AFTER APPROXIMATELY 100 MILLISECONDS
CHECKS THAT THE DONE BIT HAS BECOME SET IN PRS (BIT 7),
RTN11 • TESTS ABILITY TO READ THE DONE BIT RELIABLY (BIT 7 OF PRS).
RTN12 • TESTS THAT RESET COMMAND CLEARS DONE BIT (BIT 7 Of PRS).
RTN!3 • TESTS THAT DONE BIT (BIT 7 OF PRS) IS CLEARED BY READER ENABLE.
RTN14 • TESTS THAT DONE BIT (BIT 7 OF PRS) IS CLEARED BY REfERENCING
THE READER BUFFER (PRS),
RTNiS - TEST THAT ENABLING READER (BIT 0 OF PRS) SETS THE BUSY
BIT (BIT 11 Of PRS).

PCll READER-PUNCH TESTS MACY11 27(732)
DZPCAE.SRC

18.MAR-76

09344

PAGE 19

794
795

796

(B.l CONTWD)

797

798

RTN16 • TESTS ABILITY TO READ THE BUSY BIT RELIABLY (BIT 11 OF FRS),

799
800
801
802

RTN17 • TESTS ABILITY TO READ THE READER BUFFER (PRB) RELIABLY.

803

RTN20 • TESTS THAT THE READER BUFFER (PRS) IS CLEARED BY
READER ENABLE.

804

805
806
807

808
809

810

RTN21 - TESTS THAT READER INTERRUPTS ON DONE, IF THE INTERRUPT
IS SERVICED, IT INDICATES THAT THE READER IS INTERRUPTING
AT THE CORRECT VECTOR ADORESS.
RTN22 • TESTS THAT THE READER DOES NOT INTERRUPT WITH PROCESSOR
SET TO THE SAME PRIORITY AS THE READER,

811

812
813
814

815
816
817
818
819
820

821
822
823
824

825

826

827
828
829

RT N23 - TESTS THAT THE READER INTERRUPTS WITH PROCESSOR SET
TO A PRIORITY ONE LEVEL LOWER THAN THE READER'S.
RTN24 - CHECKS THAT THE READER DOES NOT REINTERRUPT AFTER
AN RTI COMMAND wHEN THE DONE BIT IS LEFT SET.
RTN25 - CHECKS THAT THE READER INTERRUPTS IMMEDIATELY UPON LOWERING
CP PRIORITY TO 0,
RTN26 • MANUAL INTERVENTION ROUTINE, CHECKS THAT ERROR BIT SET
(BIT 15 OF PRS) CRIPPLES READER ENABLE.
RTM27 • MANUAL INTERVENTION POUTINE. CHECKS THAT THE ERROR BIT
IS ABLE TO INTERRUPT, AND DOES NOT REINTERRUPT AFTER SERVICE.
RTN30 • MANUAL INTERVENTION ROUTINE. CHECKS THAT AFTER AN ERROR
INTERRUPT HAS BEEN SERVICED ISSUING A READER ENABLE
CAUSES AN IMMEDIATE INTERRUPT,

"-< "

PClt READER-PUNCH TESTS MACY11 27(732)
DZPCAE.SRC
830
831
832
833
834
835
836

lS.MAR-76

8.2

09:44

PAGE 20

PRG1 PROGRAM DESCRIPTION

-- .. _.... ---.-._----_.-

PRGt IS THE PCll READER DATA TEST. IT CONSISTS OF 3 ROUTINE&
NUMB~RED fROM 00 TO 02. tHE PROGRAM USES A SPECIAL BINARY COUNT
PATTERN TEST tAPE LOOP IN ALL ROUTIN~S.

837
838
839
840

RT~0

841

• READS AND C~ECKS 10000 CHARACTERS AT fULL SPEED.

RTN! - READS AND CHECKS 500 CHARACTERS. A STALL Of BETWEEN
o AND 7 MILLISECONDS OCCURS BETWEEN EACH CHARACTER.

842
843
844

RTN2 • READS AND CHECKS 1000 GROUPS O~ 3 CHARACTERS EACH.
A STALL OF BETWEEN 0 TO 31 MSECS OCCURS BETWEEN
EACH CHARACTER GROUP,

845
846

847
848
849
850
851
852

RTN3 - READS AND CHECKS 1000 GROUPS OF CHARACTERS. CHARACTER
L~NGTH VARIES RANDOMLY BETWEEN 1 AND 15.
A STALL OF
aETWE£N 0 TO 31 MSECS OCCURS BETWEEN EACH CHARACT~R GROUP.
RTN4 • READS AND CHECKS 1000 GROUPS OF CHARACTERS. THE NUMB~R
OF CHARACTERS IN A GROUP VA~IES RANDOMLY BETWEEN 1 AND 77.
A STALL Of BETWEEN 0 TO 31 MS~CS OCCURS BETWEEN EACh
GROUP Of CHARACTERS,

853
854
855

856
857

IN ALL ROUTINES, THE PROGRAM wILL AUTOMATICALLY RE5YNC ITSELF
TO THE TEST TAPE AFTER THREE ERRORS HAVE OCCURRED.

858

859
860
861
862
863

8.3

PRG2 PROGRAM DESCRIPTION

_._._._---.---------._.-

864

PRG2 TESTS THE PCll OUTPUT LOGIC. TH~ PROGRAM CONSISTS OF 17
TEST ROUTINES NUMBERED fROM 00 TO 20 (8).

865
866
867

RTN0 - TESTS THAT THE PUNCH STATUS WORD (PPS) CAN BE REFEREhCED
WITHOUT TRAPPING.

868
869
870
871
872

874
875
876

877
878

RTNl - TESTS THAT THE PUNCH BUfFER (PPB) CAN BE REfERENCED
TRAPPING,
RTN2 •

~ITHOUT

~ANUAL INTERVENTION ROUTINE. CHECKS THAT WITH PCll POWER
OFF AND AFTER ISSUING A RESET, THE ERROR AND READY BITS
ARE THE ONLY BITS SET IN THE PUNCH STATUS WORD (PPS).

RTN3 - MANUAL INTEFVENTION ROUTINE. :HECKS THAT THE ERROR BIT
(BIT 15 or PPS) BECO~ES SET WHEN THE PUNCH IS OUT Uf TAPE.

PCI! READER-PUNCH TESTS MACY11 27(732)
DZPCAE,SRC

lS-MAR-7b

09:44

PAGE 21

B79

880
BSl
882
883
B84
885
886
8S7
888
8S9
890
891
892
893
894
895
896
897

898
899
9011'

(B.3 CONT'D)

RTN4 • MANUAL INTERVENTION ROUTINE. CHECKS THAT THE ERROR ~IT
DOES NOT SET WITH PCll POWER ON, AND TAPE IN PUNCH.
RTN5 -

ABILITY TO SET
(BIT 6 IN PPS).

T~STS

A~D

CLEAR THE INTERRUPT ENABLE BIT

RTN6 • TESTS ABILITY TO CLEAR THE INTERRUPT ENABLE BIT WITH
RESET INSTRUCTION.
RTN7 - TESTS THAT THE READY BIT (BIT 7 OF PPS) IS SET
8Y A RESET INSTRUCTION, AND THAT THE BIT CAN BE
READ RELIABLY.
RTN10

TESTS THAT THE READY BIT (BIT 7 OF PPS) IS CLEARED
BY LOADING THE PUNCH BUFFER (PPB).

RTN11 - TESTS THAT THE READY BIT (BIT 7 OF PPS) IS NOT
CLEARED BY BYTE LOADING PPB+l.

91H

902
903
904
905
906
907
908
909
910

911
912
913

914
915
916
917
918
919

920
921
922
923
924
925

RTN12

TESTS THAT tHE REAOX BIT (BIT 7 OF PPS) IS ABLE
TO INTERRUPT. IF THAT INTERRUPT IS SERVICED, IT
INDICATES THAT INTERRUPT IS OCCURRING AT THE CORRECT
VECtOR ADDRESS,

RTNl] - TESTS THAT THE READY dIT DOES NOT REINTERRUPT AfTER
IT HAS BEEN SERVICEU AND THE READy BIT LEFT ON.
RTN14 • TESTS THAT THE PUNCH DOES NOT INTERRUPT WITH THE
PROCESSOR AT SAME PRIORITY LEVEL AS THE PUNCH.
RTN1S - TESTS THAT THE PUNCH INTERRUPTS WITH PROCESSOR SET
TO A PRIORITY ONE LEVEL LOWER T~AN THE PUNCH'S.
RTN16 • TESTS THAT THE PUNCH INTERRUPTS IMMEDIATELY UPON
LOWERING OF PROCESSOR PRIORITr TO LEVEL 0.
RT Nt7

TEST THAT THE PUNCH ERROR BIT (BIT 15 OF PPS) IS ABLE
TO INTERRUPT, AND THAT IT DOES NOT REINTERRUPT AFTER
BEING SERVICED.

RTN20 • MANUAL INTERVENTION ROUTINE. CHECKS THAT AFTER AN
ERROR INTERRUPT HAS BEEN SEMVICED, LOADING THE PUNCH BurrEN
CAUSES AN IMMEDIATE INTERRUPT.

pelt READER-PUNCH TESTS MACY11 27(732)
DZPCAE.SRC

18·M~R-76

09:44

PAGE 22

926

927
928
929

8.4

930
931
932

PRG3 PROGRAM DESCRIPTION
.....
-.... _- .......-....
PRG3 EXERClSES THE PUNCH. THE PROGRAM CONSISTS OF 4 ROUTINES
NUMBERED FROM 00 TO 03. THE DATA USED FOP OUTPUT IS THE SPECIAL
BINARY COUNt PATTERN. ALL ROUTINES PUNCH DATA BLOCKS IN THE
FOLLOWING FORMAT:

933
934

935
936

A.
B.
C.
D.

9)7

938
939

940
941
942

20 BLANK CHARACTERS
SYNC CHARACTER RUeOUT.
ROUTINE NUMBER (BETWEEN 0 AND 3)
4 SLANK CHARACTERS
512 CHARACTERS OF SPECIAL BINARY COUNT PATTERN.

RTN0 - PUNCHES 5 DATA BLOCKS AT FULL SPEED,

943
944

RTM1 - PUNCHES 5 DATA PLOCKS. THE SPECIAL BINARY COUNT PATTERN
DATA IS PUNCHED WITH RANDOM STALLs OF UP TO 47 MILLISECONDS
AFTER EACH CHARACTER.

945
946

947

RTN2 - PUNCHES 5 DATA BLOCKS. THE SPECIAL BINARY COUNT PATTERN
DATA IS PUNCHED wITH RANDOM STALLS OF UP TO 47 MILLISECONDS
BETwEEN GROUPS or CHARACTERS OF Up TO 15 CHARACTERS.

948

949

950
9~1

RtN3 • PUNCHES 1 DATA BLOCK, THE SPECIAL BINARY COUNT PATTER~
DATA IS PUNCHED WITH A 5 SECOND STALL PPECEDING EACH
32 CHARACTER GROUP PUNCHED.

952
953
954

955
956
957

8.5

-----...-.-

PRG4 PROGRAM DESCRIPTION

958

----_.--.- ...

959
96 III
961

PRG4 VERIFIES THE PApER TAPE PRODUCED BY PRG3. THE
PROGRAM CONSISTS OF A SINGLE ROUTINE THAT PERFORMS THE
FOLLOWING STEPS.

962
963
964

965
966
967

968
969
970
911
972

A.
B.

C.
D.
E.
F.

LOOK FOR 10 CONSECUTIVE 0 CHARACTERS
LOOK FOR SyNC CHARACTER (FUSOUT)
LOOK FOR ROUTINE ., BETWEEN 0 AND 3.
READ 4 BLANK CHARACTERS
READ 512 BINARY CHARACTERS.
GO TO STEP A.

THE ROUTINE WILL REPORT EVERY ERROR. IT WILL NOT RESYNC
ON THE SPECIAL BINARY COUNT PATTERN, SINCE IT IS INTENDED
THAT EVERY ERROR CAUSED BY THE PUNCH 8E R~PORTED.

PClt READER.PUNCH TESTS MACY11 27(732)
DZPCAE.SRC

lB.MAR-76

~9f44

PAGE 23

973
974

915

8.6

976
977
978
979
98121
981
982
983
984

PRG5 COMBINED READER-PUNca TEST

_._ .. --_.- ... -._--._._------ •..

THIS CONTINUOUS RUNNING PROGRAM EXERCISES THE PU~Ck AND
READER CONCURRENTLY. THE SPECIAL BINARY cOUNT PATTERN IS USED
IN THIS PROGRAM,
A.
B.

985
986
987
988

989
99121

991

992
993

994
995
996

8.7

THE PUNCH PUNCHES DATA AT FULL SPEED. WHEN THE CHARACTER COUNT
REACHES 2121, THE PUNCH pOUTINE ENABLES THE READER.
WHEN TH~ CHARACTER COUNT REACHES 40, THE PUNCH POUTINE WILL
STOp PUNCHING, PUNCHING WILL NOT RESUME UNTIL THE CHARACT~R
COUNT IS DECREMENTED TO 31 8Y THE READ ROUTINE.
IF THE CHARACTER COUNT IS OVER 31, THE READEP READS AT
FULL SPEED.
IF THE CHARACTER COUNT IS 31 OR LESS THE READER WILL READ
WITH RANDOM STALLS BETWEEN CHARACT~RS.
IF THE CH~RACTER COUNT BECOMES 0, THE READER STOPS READING
UNTI~ THE COUNT CLIMBS TO 20,
THE RF.AD ROUTINE wILL RESYNC AUTOMATIC~LLY AFTER 3 ERRORS.

PRG6 PROGRAM OESCRIPTION

997

-- ... _---------_.- ... ---

998
999
1000

PRG6 WILL PUNCH CONTINUOUSLY THE 2 CHARACTERS WHOSE ASCII CODES HAV~
BEEN SELECTED. THE ROUTINE IS USED FOR GENERATING ALL I2I'S TAPE,
ALL l'S TAPE, ONES AND ZEROES TAPE, ETC.

101211

1f2I1212
101213
101214
101215
101216
1007

8.8

PRG7 PROGRAM DESCRIPTION

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

PRG1 READS AND CHECKS ~ TAPE PUNCHED WITH THE CHARACTERS WHOSE
ASCII CODES HAVE BEEN SELECTED, THIS ROUTINE IS USEFUL IN SETTING UP
THE READ PHOTOCELLS AND READ AMPLIfIER.

1008

101219
1010

8.9

1011
1012

PRG10 PROGRAM DESCRIPTION

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

PRG10 WILL ENABLE THE READER FOR THE NUMBER OF
CHARACTERS SPECIFIED, AND THEN IT WILL STALL
fOR THE NU~HER OF MILLISECONDS SPECIFIED.
THIS ROUTINE IS USEFUL IN SETTING uP THE READER CLOCK,
ACCELERATOR, STROBE, AND FOp CHECKING THE STOP DELAY.

1013
112114

112115
U16

"";

PC11 READER-PUNCH TESTS MACYll 27(732)
DZPCAE,SRC

18.MAR-76

09:44

PAGE 24

UJ17

1018
1019

1:1.10

1020

1021
1022

PRG11 PROGRAM DESCRIPTION

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

PRG11

PUNCH~S

THE SPECIAL BINARY COUNT PATTERN CONTINUOUSLY.

1023

1024
1025
1026

8.11

PRG12 PROGRAM DESCRIPTION

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

1027
1028
1029

PRG12 IS A ROUTINE USED TO CH~CK THE SPEED OF THE READER.
READER SPEED CAN BE MEASUR~D IN TWO wAYS:

1030

A.
B.

1031

1032
1033
1034
1035
1036

1037
1038
1039
104(/)
1041
1042

1043
1044

COARSE. 30 SECOND TIMING. PLUS OR MINUS 10 CHARACTER ACCURACY.
FINE. 300 SECOND TIMING. PLUS OR MINUS 1 CHARACTER ACCURACY.

THE USER CONTROLS THE DURATION OF THE TIMING PERIOD BY USING A
SWEEP SECOND HAND WATCH OR STOP-WATCH. AT THE END OF THE
TIMING PERIOD, STRIKE ANy TTY KEY TO OBTAIN A SPEED PRINTOUT.

8.12

PRG13 PROGRAM OESCRIPTION

... -------------.-.-._---

PRG13 IS USED TO CHECK THE SPEED OF THE pUNCH. THE ROUTINE
USES A 60 SECOND TIMING PERIOD THAT IS CONTROLLED BY THE USER,
AT THE END Of THE TIMING PERIOD STRIkE ANY TTY KEY TO OBTAIN A
SPE~D PRINTOUT.

PCII READER·PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
1045
1046
11147
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
105e
1059
1068
1061
1062
106)
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
11174
U75
1076
1077
1078
1079
1080
1081

0914.

PAGE 25

,AB5
,TITLE PCII R~ADER-PUNCH TESTS
,NLIST MC,MD.TOC
,LIST
ME
,PRG0 • READER LOGIC TESTS
,PRGI - READER TEST
,PRG2 - PUNCH LOGIC TESTS
,PRG] - PUNCH TEST
,PRG4 - PUNCH VERIFY ROUTINE
,PRG5 - COMB INto READER-PUNCH TEST
,PRG6 - PUNCH 2 CHARACTERS FROM SR,
,PRG7 - READ 2 CHARACTtRS A8 PER SR,
,PRGI0 • READ X CHARS, STALL Y MSECS,
,PRGII - PUNCH SPECIAL BINAPY COUNT PATTERN TAPE,
,PRGI2 - READER SPF.ED PRINT ROUTINt.
,PRGI3 • PUNCH SPEED PRINT ROUTINE,
000000
000000

0~0082

000002

088800
000806
000008
000012

000004
000006
000010
00 .. 012
000014
000016

,00

.+2
HALT
HACHERI .+2
HALT
.+2
HALT
,+2
HALT
,+2
HALT
.+2
HALT

00~000

000016
000000

~00020

00"U~

000022
000024
000026
000030
000032
0001134
000036

008000
008U6
000000

1082
10B)
1084
1085
1086

0~2442

UIB7

~00340

Rh'~

108000

BITI5=10000~

BI1'I4=40000
8ITIl=200nll
bIT12=10800
BITII=400"
BIT10=2000
BIT9-100e
8lTh400
bIT7=200

PCII READER-PUNCH TEsrs MACYII 27(732)
DZPCAE,SRC
1101

~00100

000040
000020

09'44

PAG~

81T6=100

~00010

BlT3al0
SIT2.4
8ITI=2

0000~4

8lT0.~

POPSPo5726
POPSP2=022626
PRTY7=l40
PRn6=300
PRTU-240
PRTY4=200
PRTYl=140
PRTn.11I0
PRTU-411

~22626

000340
000380
0002U

1113

IS-MAR-76

,HIT DEFINITIONS

8ITS040
8lT4a20

000002
000000
005726

IUS

'POWER FAIL TRAP
,EMT THAP

040008

110~

TRAP

,TRAP TO CALL lOX

R6."
PCa"

Bl0800
a04080
002000
001008
300400
08021010

1109
1110
1111
1112

,RESEPVED INSTRUCTION TRAP
,TPAC~

PRTY7
OLYX
PPTY7
,LOCATIONS 40 THROUGH 776 ARE FILI.EO ~lTH .+2 AND HALT,
EMTX-II
CC=I77776
PSW=I77776
,P5 AI'DRESS
SPBOT=1200
NOP=240
OPEN."
,SU6J£.cr TO PROGRA. MODIFICATION
MANUAL-BITI5

0~H10

000340

020000

1103
1104
1105
1106
1107

,UNASSIGNED TRAP
,SP DV~RFLOW, BUS ERROR TRAP

~MTINT

0000110
177716
177776
001280
000240
008000
1110000
000000
308086
B08en

1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100

1114
1115
1116
1117
1119
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1117
1118
1139
1140
1141
1142
1143
1144
1145
1146
1147
IIU
1149
115B
1151
1152
1153
1154
1155
1156

18.HAR-76

008200

000140
000100
000040
000B00

,POP THE STACK, SAME AS TST (6)+
,POP STACK ToICE, SAME AS CMP (6)+,(6)+
:P~IORITY LEVEL DEFINITIONS

P~TY0=P

104400

DiLA YX-TRAP.II
BELL=007

~00007

,a46

000046

LOGIC

,,NOTEI
....•...••.••..........•.••••••.••.............••••.••••••...•••..•..•.•.
PROGRAM HAS SEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITKOUT
,A HARDWARE SWlrCH REGlaTER-REFf.R TO DOCUMENT

r•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
000174
000176

000200
001204
001206
001210
001212
001214
001216
0111ne
001222
001224
001226
11012)0
881212
801234

081216
001240
001242
0a1244
B01246
001250

d081H
000080
000800
1100200
000167
001204
308176
0011174
177550
177552
177554
177556
a00n8
000200
308014
0~0200

177560
117562
177564
177566
eeeel0
000.e"
308080
e08800
000808

,at
o15PREG, OPEN
SWREG. OPEN

001226

.=200

JMP

.=,+1000

aWR,
SWREG
DISPLAYIDISPREG
PRSI
177550
PRB.
177552
PPS.
177554
PPBI
177556
RDRVTRI 70
RORLVL, PRTH
PCHVTR. 74
PCHLVL. PRTH
TKS,
177560
TKBI
177562
TPS'
177564
TP81
177560
PRGNUMI OPEN
BRCTR. OPEN
DVDNDI OPEN
DVQUOTI OPEN
MSECI
OPEN

STAn

,GO TO Sl ART OF PROGRAM.

,READER CU
,RUO!:R BUFFER
,PUNCH CIIR
,PUNCH BUFFER
,READER INTERRUPT VECTOR
,READER PRIORITY LEVEL
,PUNCH INTERRUPT VECTOR
,PUNCH PRIORITY LEVEL
,LIR caR
,LIR BUFFER
,LBP CSR
,LaP BUFFER
,CONTAINS CURRENT PROGRANt

PCII READER-PUNCH TESTS MACY! I 27(732)
DZPCAE,SPC

1157
IISB

001252

II 59
I I 6~
1161
1162
1163
1164
1165
1166
1167
116B
1169
1170
1171
1172
1173

001256
001260
001262
001264
001266

1\74
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1198
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
12~B

1209
1210
1211
1212

0~1254

~01270

001272
001274
001216
001300
001302
001304
001306
001310
001312
003314
001316
001320
001320
001J22
001324
001326
001330
"01332
001334
"01336
001340
001342
001344
001346
001350
001352
001354
001356
001360

000~00

000000
000000
005376
007666
010216
011634
012302
012660
013454
013606
014134
014122
014372
014524
003566
002514
003012
003400
003534
~04262

003234
~03244

002462
002732
002762
002110
014722
"15156
014054
~1474"

015120

~01420

~00~~0

ERRT.
TM?I,
Tf1P2,
fRST.
COUNT.
TIb 1
RCNT.
CRE>UF'
CHRII
CHP2 ,
CHR3,
CHPIA,
CHP2A.
CHR3A.
ERCTRI
CTPA,

001422

000000

eTRB:

001362
001364
001166
.01370
0"1372
001374
001376
00140"
001402
001404

0~0000

~""000

•• 0000
l~hH"H!}l

300000
iH~0000

000000
000000
00~000

•• 0~~0

~~1406

0~0000

001410
001412

000000

0~1414

000000
0"0000

~01416

001424
001426
001430
001412
001436
001442
001446
00145.
001452
001454
001460
001464
001472
001500
001504

000"0~

~000110

001512
001520
001522
001524
001532
001540
001546
001554
001562
001570
001576
001602
001610
001616
001620
001626
001630
001614
001640
001644
001650
001652
001654
001656
001660
001662
001664
001670
001672

012767
104003
002042
012767
012767
012767
012767
012767
012767
012767
005067
012767
012767
104014
022767
001765
016700
005067
042700
020027
101410

001676
001702
001704
001710
001716
001724
001730
001732

010067
006300
000170
016767
012767
012706
104002
005067

PAGE 27

001200
17b334
177722

000026

177530

160000
160002
160004
160006
00077.
000774
000006
177454
000003
020314

17745.
177452
17744.
177442
177436
177414
17620.
177562
013106

000003

177544

I SI

002040

177530
177570
177760
000013

104~0l

015267
104010
000664
022626
~12637

000004

000737
005067

177370

;CHARACTER COUNT

;HOLDS ONE CHARACTER FROM READER,

(JpE.N

OPEN
OpEN

OPEN
OPEN
OPlN

OPEN
OPE.N

09144

OPEN
OPEN
OPE.N
MOV

'SPBOr,%&

176040

TYPE
STIfLE
CLR
MOV
MOV
MOV
MOV
MOV

MOV

,SET BOTTOM Of SP STACK,

PSW
fRST
IS

FPSl'
!!i#4,"( R6)

#XORA,IH4
#43.1.0U7106"

(%E»+t{a#4

#-1, lu·xo~rLG
i26.MSEC

#16001:1~,PRS

MOV
ASL

JMP
177342
176060

PAGE 28

MOV 'lb~~02,PRH
MOV .160004.PPS
MOV # ltHH210b I PP8
MOV 1770,RDRVTR
MOV 1774, PCHVTR
INGXORI MOV #6, ~IACHEP
RTNNO
CLR
MOV
OJ.COUNT
lSI
MOV
OSSTEST. TLX
OPTSEL
CMP
OJ.COUNT
BEQ
IS
MOV
TMPI, %0
XCNT
CLR
1177760, %0
BIC
CMP
%0, '13
BLOS
CRTA
TYPE
CM2
CHALT
SR
START
CMP
XORAI
(R6)+dP6l.
MOV
(R6)+.@#4
INGXOR
BR
CRTA.
CLP
PRGID

CRTS I

TYPES
STALL
ERROR
ERRDRI
CHALT
STRDRV
STPCHV
SCOPE
OPTSEL
CNTL
TTYIN
VALID
CKSWR

OPEN
OPEN
OPEN
OPEN
OPEN

MOV
TYPE
MESS

177336
001270
177336
000006
001200

;POINTER FOR E~T CALL
,POINTER FOR EMT CALL
,POINTER FOR EMT CALL
;POINTER FOR EMT CALL
,POINTER FOR EMT CALL
;pOINT£R FOR EMT CALL
1 POINTEP FOR EMT C~LL
, POINTER FOR EMT CALL
; POINTER FOR EMT CALL
'POINTER FOR EMT CALL
,POINTER FOR EMT CALL
; POINTER FOR ~MT CALL
; POINTER FOR t:MT CALL

OPEN

BEQ

000004
177060

'POINTER FOP EMT CALL DELAY

;POINTEF FOR EMT CALL EHALT
;POINTER FOR EMT CALL SRESET
:POINTER FOR EMT CALL TYPE

OPl:,'
I

CLP
TSl

177710
0"0"04
001662
000433
000004
171777

,CURRENT PROGRAM START ADDRESS,
.CONTAINS AODR OF CURRENT TEST,
,CONTAINS CURRENT TEST I,
;CONTAI~S ADDR OF NEXT TEST,
,CO"TAINS CURRENT ITERATION COUNT
,CONTAINS CURRENT SCOPE POINTER,
,CONTAINS PROGRAM INDICATORS
,PRG0 START ADDRESS
IPRGI START ADDRESS
,PRG2 START ADDRESS
,PRG3 START ADDRESS
,PRG4 START ADDRESS
;PRG5 START ADDRESS
,PRG6 START ADDRESS
; PRG7 START ~DDRESS
,PRGI0 START ADDRESS
, PRGll START ADDRESS
,PRGI2 START ADDRESS
; PRGI3 START ADOR~SS

OPE.N

lR .. M,A.R ... 7b

CTRC I
CTRDI
XCNT,
START.

~00000

"00000
0'2706
005061
005167
001404
104003
020773
005061
013746
012737
012737
012637
012737

09.44

KSTARll OPEN
CURTST, OPEN
RTNNO,
OPEN
OPEN
NXTST'
OPEN
ICTR,
SCOPTR' OPEN
FRGID.
OPEN
PPGIABI PRGe
PRGI
PRG2
PPG3
PRG4
PPG5
PRG6
PRG7
PRGI0
PRGII
PRGI2
PPGI3
EMTTABI
DLY
EHLT
SRSETT
TYP
TYPS
STAL
ERR
ERRI
CHLT
STHRV
STPTPV
CHAIN
OPTS
CNTLU
TTlN
VALINP
CKSWRR

000000
000000
000000
000000

PCII READER.PUNC~ TESTS MACYII 21(732)
DZPCAE,SRC
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1229
1229
1230
1231
1232
12ll
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268

IS·MAR·76

GETRDY. MOV
CLEAN I
MOV
MOV
SRESET
CLR

U.PRGNUM
U
@PRGTAB(0l
KSTART,NXTST
16.~ACHER

I SPSOT. R6
PSW

, XOR PRS ADDRESS
: XOP PRB ADDRESS
,XOP PPS ADOR!.SS
;XOR PPB ADDRESS
,XOR PEADER VE;CTOR
;XOR PU"CH VECTOR

,INIT THE XOP PROGRAM CONTROL
;LIMIT eSR) TO BITS 3-0
,COMPARE (SR) TO PROGRAM LIMIT
,VALID PROGRAM NUMBER?
,TYPE INCORRECT PROGRAM MESSAGE,
,COMMON HALT,
:START OVER,

,SAVE PROGRAM NUMBER AT PRGNUM
,R0X2
,GO TO SELECTED PROGRAM,
,ADDR OF 1ST ROUTINE TO NXTST
,SET UP BUS ERRROR TRAP,
,SET UP STACK,

Fell RUDER-PUNCH TESTS HACYlI 27(732l
DZPCAE,SRC
1269 001736
1210 001742
001750
1271
001752
1272
1273
001756
1274 0017U
001766
1275
001774
1276
001776
1277
002004
1278
1279 002006
1280 002012
002016
1281
002022
1282
002024
1283
1284
"'~:",d30
w.. '(.;1'1
1265
1286
002034
1287
002036
1288 ' 002040
1289
002042
1290 002050
002056
1291
1292
002062
1293
1294
002070
002072
1295
1296 002076
002100
1297
1298
002102
1299 002104
1300 002106
1301
002110
1302 002114
1303
002116
1304
002122
1305
002124
1306
00213~
1307
002136
1308
002142
1309
002146
1310 002154
131 1 002156
002162
1312
1313
002166
1314 002174
002176
1315
002202
1316
002204
1317
131e
002212
1319 002214
1320 002220
1321
002226
0~2232
1322
1323
002234
002236
1324

004767
032777
001003
004767
000532
012767
012767
104014
022767
001765
016700
042700
126700
001017
004767

000422
001000
000440
000003
020246

177404
012730

000003

177366

000366

\04~03

015467
104010
000724
0"0000
021445
054040
052123

1374
1375
1376
1377
1378
1379
138e

002240
002242
002244
002252
002254
002262
002264
~02270

"~2272

002276
0023~2

002304
002312
002316
~02324

002326
002330
002334
002336
002340
002342
002350
002354
002356
002362
002364
002370
002374
002400
002404
002410
002U4
002416
002422
002424
002432
002434
002436

04152.
051117
100

030461
052040

177777

177170

000111
032777
001003
005367

JS~

000266

020736
104010
032177
001216
022767
001215
005767
1 ~0015
0"5167
005767
1 J0005
012767
0"0167
012767
I ~4003
015263
013700

001200

CHAIN I

002462
002464
002466
002472
002476
002500

011600
005740
010067
004567
001364
020717
104003
020711
000000
104020

lSELECT ROUTINE?
ISR IF lES,
lGO RUN ROUTINE.
lNO GO, MANUAL RTN BYPASSED,

w3,CQUNT
GTRDre
TMP1, %0
'177600,%0
RTNNO,,0
GTRDYO
,7,GOTST

,MASK UNDESIRED BITS
,COMPARE RTNNO TO (R0l
lBRANCH IF ROUTINE NOT rOUND YET,
lGO RUN ROUTINE,
,NO Go, MANUAL RTN BYPASSED,
ITYPE MESSAGE,

GETROY
'\OPC11 XOR TST@'

,-I,NXTST
INCRTN
" , rORwD
NTYET

;NO. CHECK rOR LAST ~OUTINE,

lTYPE INCORRECT RTN MESSAGE,

GETRDY

;COMMOrl HALT,
;START OVER.

MOV

#sPBOT, R6

1 RESTORE STACK.

CKSwR
002040
000004
002354
17706"
000004
04000"

TST
BPL
MOV
000004

!>\Ov

17703~

TSI
MOV
BIT

3S I

Bt:Q

175614
111070
004000

SUI
177010

CLR
J"P
BIT
8NE
DEC

52$1

177060
002000
177144
177032
002622

176772

CHNAAI

27(732)

001000

176732

177777

17.776

176740

0~5432

17b726

2S.
1$:

000"42

LOGIC.
000240
177334

000240
HERE.
xeRI

000004
176670
176662
176660
176656
176654
176640
176634
00040"

176612
000002

171320

176672
002330

176552

Irs XOR IN .RROR?
1 NO, REPLA.CE t1EM. 4
I SCOPE?
lBR IF NOT

PSW

'BIT1~,@SWR

SEQ

CRNH
TMP1
RTNNO,TMPl
'5,ACNV4

;HALT AT END Of rEST?
;BR IF /.JOT,

09.44

ENDRTN
CHALT
HIT

BN~

010240
177372

(\b)+,fi'i.4
,BITI4, ~SWR
S2S

81T

8NE

177132
177126

"XDP, "'If 4

~'177060

I IS XOR TESTER HERE?
ISR I f NOT
,SAVE HEM, 4

BrIE

CMP

177550

3S
@#4.-(\6)

,GO TO
SCOPE ENTRy
,INN1BIT ITERATION?

18.MAR-76

CHNBI

~UORFLG

OSCOPTR
,BIT11, _SWR
CRNAA
ICTR
SI S

eLR
Mova
JSR
TMP1
RTNN
TYPE

177136

0~1"207

005767
100005
032777
001401
000207
000177

,MLL FORWARD TO "NEXT' ROUTINE,

_BIT9, fSWR
GTRDIC
" , GOTST
CHNB
13, COUNT
#SRTN.TLK

CM3
CHALT

0~1405

000"05
004710
000240
000167
022626
012631
3J0b75
016705
012567
012567
012567
012567
010567

\7, FORWD

INCRTN, TYPE

0~1365

032717
001414
005067
116767
0N567
001364
020756
104003

PAGE 29

.EVEN

GTRDYD. C"'P
BEQ

0~1404

0051167

010046
016600
014000
006300
016000
000200

0~25~2

MOV
SIC
CMPB
NTrET.
aNt.
JSR
TYPE
CM5
CHALT
8R
XORFLGI 0
,ASCII
MESS.

002~62

022767
001403
004767
000747
104003
015325
104010
000700
012706
104020
005737
100011
013746
012737
0~5 7 3 7
012637
032777

002442
002444
002450
0e2452
002454
002460

002504
002506
0025111

GTRDIAI JSR
GTROIS. BIT
aNE
JSR
BR
GTRDIC. MOV
MOV
OPTSEL
CMP
~EQ

177 352
177600
177234

PCII READER-PUNCH TESTS MACY11
DZPCAE,SRC
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
Ill5
1336
1337
Ill8
t 339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373

177234

09.44

IS·MAP·76

TST
"PL
COM
TST
BPL
MOV
JMP
MOV
TYPE
APGEND
MOV
BEQ
PESET
JSR

;BR If YES,
;NO, ICTR 01
i8Fi: U" VOT

PAGE 30

.SIT9dt SWR
SELEcr ROUTINE?
C.TROY
BR I f YES,
• -1, NXTST
NO, LAST TEST?
CLEAN
SF!. IF NOT,
XORFLG
1$
XCN!
XCNT
28
ICT0. KSTART
,START PUN LOGIC TESTS IF XOR
GETROY
IfATU,KSTART
lSTART ROR LOGIC TESTS IF XOR
ITYPE PROGRAM END MESSAGE,
@IJ42,R0

IGET CONTENTS OF 42.

HEPe:

JBR IF 0.

PC, (0)

, REl'URi~ TO MONITOR.

,WORD

NOP,NOp,NOP

JMP
CMP
MOV
SR
MOV
MOV
MOV
MOV
MOV
MOV
RTS
TST

GETRDY
(\6)+,(%6)+
(%6l+.@U
SIS
NXTST.%5
(5)+.RnJNO
(5l+,NXTST
(5l+.ICTR
(5l+,SCOPTR
%5, CURTST

, REPEil'f.

,POP STACK
lREPLACE MEM
IGU TO SCOPE ENTRY
fORWD I
lAODR OF NEXT ROUTINE TO R5.
IGET NEXT ROUTINE NUMBER.
,GET ADDR OF NEXT "NEXT" ROUTINE,
lGET ITERATION COUNT,
lGET SCopE LOOP ENTRI POINTER,
IADOR OF NOW CURRENT TEST TO CURTS!,
%7
lEXIT FORWD SUBROUTINE,
RTNNO
GOTSTI
,CHECK FOR MANUAL RTN,
BPL
GOTSTA
IBRANCH Ir NOT ~ANUAL RTN,
BIT
lBIT8.@SWR
lMANUAL FTN, BIPASS IT?
aEQ
GOTSTA
;NO, RUN IT.
RTS
18YPASS MANUAL ROUTINE,
GOTSTAI JMP
~CURTST
,GO RUN TEST
,EMT INTEPPRETER ROUTINE,
EMTINT. MOV
R0, -( 6)
;PUSH R~,
MOV
2(6) ,R0
lGET EMT PC,
MOV
-(0) .R0
lGET EHT CALL,
ASL
R0
lTIMES 2,
MOV
EMTTAB-10000(0l,R0 ,DEVELOP EHT pTN AODR,
RTS
H0
lGO TO EMT RTN, RESTORE R0,
,COMMON HALT ROUTINE,
CHLT.
MOV
(6l,R0
TST
-(0l
MOV
""TMP1
JSR
%5, ACNV6
TMPI
GWAS
TYPE
PCHLT
HALT

C~SWR

PCII READER-PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
14U
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436

1490
1491
1492

09.44

000002

002514
002520
002522
002524
002526

005777
100002
000000
104020
000002

176464

002530
002534
002536
002540
002542
002544
002546
002550
002552

005777
100401
000207
104004
017404
016334
177777

176454

002554
002560
002562
002566

005767
001425
013746
012737

002574
002602
002604
002606

052777
104000
000001
012537

002612
002614

104000

DELAY

000~50

5·

002616
002622
002624
002626
002630
002632
~02634

002640
002642
00265~

002652
002654
002660
002662

-I

1~4010

000766

177260
000004
002630

000004

000001

176406

002666
002672
002676
002700
002704
002706
002710
002714
002716
002720
002722
002724
002726
002730

032777
001001
000207

004000

0~4767

000036

100404
105777
100372
000207
004767
000762
104004
017433
016334
177777
104010
000207
~17667

17&340

177754

27(732)

,YESdNHIBIT A H SIGNAL fROM CAUSING ERROR QU, DIn<H •• T
,CIRCUIT DELAIS AT THE TEST HEAD

BP
ADD
Rrs

,WAlT FOR ERROR BIT TO SETTLE
,REPLACE TRAP CATCHER

,RETURN TO TEST SETUP
,RETURN TO TEST

(Rtd +, (Ff:d'"

;1'1): STACK

3$
14, %5

:NOT AI~

(\5),\5

18 .MAR.7 6

09:44

000012

003012
003016
003020
003024
003026

012700
005100
310067
000005
000002

052525

003030
003034
003036
003040
003044
003050
003052
003054
003060
003062
003064
003070
003074
003076
003100

at6700
006100
006100
066700
010067
006100
006100
066700
006100
006100
010067
U6700
000207
301233
007622

000042

003102
903104
003106
003114
003120

104011
903162
012767
004767
052777

177770

000020

000010
000002

174662
176062

TO PROt;RAM

'EN/.bLE READER

~PRS

;Tr..sr ERROR BIT
,BRANCH IF ERROR BIT SET.
,CHECK DONE 611'
,BRANCH I f NOT DONE.
IDOtlE, EXIT.
,TYPE STATUS AND INSTRUCTION M.ESSAGE,

JS~

\1,TSM2

fdPRS

ARDA

AREAD
:TRY AGAlN,
,TYPE READER NOT READY STATUS
TYPES
; MlSSAG£ AND I'IALT.
SM2
lrA6
-I
CHALT
,7
,EXIT
RTS
,ROUTINE TO SlT READER INTERRUPT ,leTO. AND polORITY
,.UVE VECTOR AuDR TO STPRAt2
STPTRV, MOV
~(6),STPRAt2
#2,ra%6
:5fT UP EXIT
ADD
MOV
RDRVTR, %I
,SET VECTOR ADDRESS
STPRA,
MOV
'OPEN, (I)t
MOV
RORLVL.c I)t
;5lT PR10IHTY
;lXIT
RTI
,ROUTINE TO SET PUNCH INTERRUPT 'ECTOR "NO PRIORITY.
STPTPV, MOV
~(6),STPPAt2
,~O';; VECTOR ADDR TO STPPAt2
1f2,ta%6
,SI:T liP EXIT
AOD
MOV
PCHVTR,%l
,OPEN, (Ilt
STPPA,
MOV
;SET VECTO~ ADDRESS,
,SET PRIORITY
PCHLVL.cI)t
MO'
RTI
,EX! r.
,ROUTINF- TO ISSUE RESET.
,DATA 10 R0.
SRSETT' MOV
#52525,%0
,COMPLEMENT (R~).
COM
U
MOV
,(R0) TO SRSETTt2.
' " ' SRSETTt2
,ISSUE RESET, (Re) IS
RESET
RTI
:DISPLAYED. EXIT.
, RANDOM NUMBER GENERATOR. ROUTINE EXITS WITH NUMBER IN REGISTER 0.
MOV
RP1,%0
RNGEN'
ROL
ROL
%0
ADD
HP2,%0
MOV
ie,RPI
ROL
%0
POL
\0
ADD
RP2, %0
ROL
U
ROL
%0
MOV
\0, RP2
MOV
RPI,%0
,EXIT, NUMBER IN R0
RTS
RPI.
1233
RP2.
7622
,SUBROUT!~E TO READ CHARACTER FROM READER USING INTERRUPT,
5TRDRV
,SET READER VECTOR
BREAD.
BREADS
,TO BREADS
aPRTY7,PSW
,SET PRIORITY 7,
MOV
,CHECK FOR READER READl,
JSR
" ,ARRDY
#101,@PRS
,ENABLE PTR A~D pTRI,
BIS

000340
177522
000101

,RETURN

ARDB

000034
000026

THE SIM ROUTlriE

TESTER

~PRS

INCB
TST
8MI
TST8
BPL
RT5

000000
000002
176224
000000
176216

XOR

PAGE 32

T5M2,

~00002

,CONTINIli: WITH

, ROUTINEro CHI;CK fOR ~EADER REAOY.
.4000, (aPRS
,T~ST BU5~ BIT.
ARRDY:
BIT
,BRANCH If BUSY BIT SET,
BNE
ARRDYA
1READER READY, EXIT,
RTS
\7
,THE STATUS AND INSTRUCTION MESSAGr.:,
%7, T51-12
ARR~Y"
JSR
,GO CHECK AGAIN
ARRDY
BF
:PQUTINE TO fETCH A CKARACTER
:CHECt< f'OR FlEADE:R READY.
%7,ARRDY
AREAD:
JSl<

ARDB,

000002

017667
062716
016701
012721
016721
000002

002762
002770
002774
003000
003004
003010

IS'

176304

000012

062716
016701
012721
016721

[.10 V

RESET
MOV
RTS
CI'P

AREAD1,
ARDA'

176316
176312

000000
000002
176250
000000
176242

002732
002740
002744
002750
002754
002760

#I,@PRS

MOV

3S,

RETRN'

000004

0~0770

105277

BIS
DELAY

000004

0~5777

CHALT
,HALT TO WAIT rCR USER,
BR
ARDER
,GO TEST AGAIN.
,DOII-XOR PRDGRAM~ABLE SIMULATOR 0,· PC05 (PUNCH/READER)
,CALL
-JSR
\S,PCSIM
,
SIMULATOR CONSTANT
ILABLE or NEXT INSTRUCTION I f ON XOR TESTER
,
,
IF NOT ON AN XOR,THIS ROUTINE EXIT TO THE INSTRUCTION FOLLOWING THE CALL
PCSIM.
TST
XORFLG
,ARE WE ON AN lOR TEST~R
BEQ
RETRN
,IF NOT ON AN XOR TESTER RETURN
MOV
@I4,-(%6)
,SAVE TRAP CATCHER
MOV
,1$,.#4
,If XOR TRAPS DURRING LOAD GO TO 16

2S1

177060

012637
000005
011505
000205
022626
000771
062705
000205

004767

PAGE 31

RTI
• ERROR HALT ROUTINE •
,CHECK FOR HALT ON ERROR.
@SWR
EHLT.
TST
,BRANCH IF NO HALT DESIRED.
EHLTA
8PL
HALT
CKSWR
IEXIT
EHLTA.
RTI
,ROUTINE TO CHECK FOR READER ERROR.
,TEST ERROR BIT IN PRS
@PRS
ARDER.
TST
,BRANCH IF ERROR BIT SET,
8MI
1$
1NOT SET, EXIT.
RTS
,TXPE STATUS ~ESSAGE AND
TYPES
lSI
,INSTRUCTIONS
8MI
IM6

002512

PCII READER.PUNCH TESTS RACYII
DZPCAE,SRC
1437
1439
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
145J
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1497
1488
1489

18.MAR.76

Ai'TJ:.R PCSIM CflLJ.·

PC II READEP.PUNCH TESTS MACHI 27(732)
DZPCAE,SRC
003126
1493
1494
001130
1495
003132
1496
003136
001140
1497
1498
003142
1499 003144
1500 003152
1501
"03154
003160
1502
1503
001162
1504 003166
1505
0011n
1506 003174
1507
00320"
1508
003202
1509 003204
1510 003206
003210
1511
1512 .003214
1513 003216
003222
1514
003226
1515
003230
1516
003232
1517
1518
1519 003234
1520 003240
003242
1521
1522 003244
1523 003250
003254
1524
1525
0~3256
~03260
1526
003264
1527
1528
"03266
1529 003270
1530 003272
00)276
1531
1532 00H00
1533
003302
1534
003310
1535
003312
1536 003316
1537
00332"
1538
003324
1539 003326
1540 003332
003336
1541
003340
1542
003344
1543
003346
1544
1545
~0335~
1546
003354
003356
1541
00336.
1548

104000
000226
005077
104003
020124
000757
017767
022626
005067
0"0207
005077
005777
U0411
105777
100401
104007
020140
000405
012716
000002
004767
01271&
000002
022626
000723
004767
H)4001
000002
004767
004767

176052

176042

176226

174616
176022
176016
17&010

003144
177474
003230

000060

ISH
1579
1580
1581
1582
158]
1584
1585
1586
1581
1586
1569
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604

001164
003366
~03370

00])72
003374
003376
001400
003402
003406
003410
003414
003422
003424

.103412
003436
003440
003446
003450
"03456
""3460
003464
00346&
0034 74
003500
003502
"03504
003512
003516
003524
003530
003532

~"4767

1127.7
004767
000727

000002

0201.10"

175674

000002
000002
17603"
177742
001462

,CL~AR

STATUS,
,EXIT SUHROUTINE,
,CLEAR PTR INTERRUPT ENABLE,
,TEST FOR ERROR,
,BRANCH IF ERROR,
,TEST fOR DONE BIT,
,BRANCH IF DONE aIT SET,
,ERROR, fALSE READER INTERRUPT.
,~ODln INTERRUPT EXIT TO BREAOA,
,01(, EXIT INTERRUPT.
,TYPE NOT REAOY MESSAGE,
,SET UP TO RETRY,
,EXIT INlERRUPT.

,GO TRY AGAIrI,
,FlRST ERROR TYPEOUT
,GO HHT I f kALT SwITCH IS

r EXIT.

JSR
JSR
BR
MOV
MOV
TVFE
Op!.N
EHALT
ADD
ERRI AI
RTI
INHPRT. CKS-R
BIT
BNF.
ADO
RT5
HOY
~RRAI
TS!
HOV
JSR
RTS
JSR
APC
J5R
PPGNU'·'

0"150O

SET.

%7.E:FRA
\7, lNHPJ.!T
EPR1A

,FlPST ERROR lYPEOUT
,INHIBIT PRINT?

~%6. ,~

,DEVELOP ADDRESS Of ADDITIONAL
I EPROR TYPEOUT.
,ADDITIONAL EP.HOR TYPEOUT,

[3.\0, • +6

: NO PPINT

,GO HIILT IF HALT solTCH IS SET,

• 2,9\6

,SlT UP

~XIT •

,EXIT
,e-lT13,@SWN
,+6

n ' " ! , l ! PRI.n
;BP IT n:s,

:GET ":MT PC,
,DECR~ME~T B' 2,

.2, Alb

,~IO •

;EXIT.

:t! (b), A~
-(0 )

%e,ERFlT
l1, lfJHPRT
%7
%5,ACNV6

,ADDRESS Of EHROR CALL TO ERRT
,INHIBIT PRINT?

:"10 PRINT,
,CONVERT ERROR CALL ADDRESS TO ASt.:1l,
PR0GRA~.

,S,ACNV4

;CONVERT

%S,ACNy4

:corlVEPT TlSTI TO ASC I I

TO ASClI

APt~UME\

J5R

001470

18-MAR-7.

"9144

PAGE 34

RTNNO
ATNUfoIB

TVPE

;TYPE

ER~OR

MESSAGl

It.10

000002

000177

000100

M003.
000045
000043

000054

000040
175534

175542

000015
177750
000012
117736

~00000

~ 11&0"

0"3536
003542
003546
003554
003556
003560
003562
"03564

062716
.11067
022767
001001
000002
104003
000000
0"07.3

000002
000014
177777

003566
003572
003576
003604
003610
003616
003624
003632
003640
003646
003654
003662
003670

011667
062716

000124
000002
000114
174166
175434
000072
000064
000056
000050
0"0042
000034
000026
000020

005067
.16767
0!6767
016767
016767
016767
016767
016767
016767
016767

,CLEAR PTRI ENABLE,
,TYPE NO PTR RESPONSE
, MESSAGE
,TRY AGAIN,
,CHAR READ TO CRBUF.

ERRT

"~35H

~17767

,"AIT FOR READER INTERRUPT,

150,
CLR
~PRS
TYPE
EM7
BR
BREAO
@PRB,CR8UF
BREADAI MOV
POPSP2
psw
CLR
,7
RTS
~PRS
BREADS, CLR
@PRS
TST
SMI
BREADC
~PRS
TSTH
BRoBB
8MI
ERFORI
EM10
BRDCC
BR
MOV
BRDBBI
_BREADA. '%6
RT I
'7, T5M2
BREADC I JSR
MOV
IBFUOO. n6
BRDCC'
RTI
POP5P2
BROOD I
8R
BREAD
, ERROR ROUTINES
%7. ERRA
JSR
ERRI
EHALT
ERRII

001256
017612
104003
017570
U4020
000207
011600
062716
011000
IIH67
122767
001006
112767
""4767
000002
122767
001416
122767
00141 7
004767
000751
116777
105777
1"0375
000207
112767

PAGE 33

RT!
000050
000024

PC11 READER_PUNCH TESTS MArYl1 27(732)
DZPCAE,SRC
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
15&J
1564
1565
1566
1567
1568
1569
157.
1571
1572
1573
1574
1575
1576
1577

09144

D~LAY

0"04~6

011600
011067
104003
000000
104001
06271.
000002
104020
032777
001002
06n16
000207
016600
005740
010067
004767
000207
.'04567
001362
017623
004567
001240
017602
004567

la-MAR-"

000112
000076
00007.
0000&2
000054
000046
000040
000032
000e24
000016

CKSwR
RTS
%7
; EXIT.
;SUBROUTINE Tf) OUTPUT ASCII MESSAGE ON TELETrp~ PRINTE~.
HPI
MOV
,G.T ADDRESS THAT CDNTAII'S MESSAG. ADDRESS,
~%6, ''''
ADD
• 2, ta%6
:SE.T LIP EXIT •
MOV
,ADOR~SS OF MESSAGE TO R0,
~'0,,~
~OVR
TYPA I
("')+,T1PDAT
:G~T CHARACTER
CMPb
.t0~,T~PDAT
;CHECI< ~'OR"@"CHARACTER
BN!:
TYPC
:BFA~CH IF NOT"@".
MOVB
# 177. TYPDAT
,OUTPUT RUBOUT.
JSR
%7,T:tPO
,TE~MrNATOR :HAR, I)ONE, EXIT,
RTl
:CH~CK FORII,",
TYPC:
H5, TYPDAT
C'~PB
Typr
BEQ
JBRANCH IF"'"
#43, TYPDAT
eMp"
:NOTII%".CHECK FOF"'",
BEu
TYPG
1BJ.(ANCH IF "."
JsP
,TYPE CHAR IN TypDAT
%7,TVPD
~R
TYPA
MOVB
TYPO I
,OUTP!)T CHARACTER TO PRINTER
TYPDAT, UP"
@TpS
TSTS
,WAIT FOR 00"£ rLAG,
BPL
,-4
'107
RTS
,EXIT
TYPF:
MOVB
i15,TYPDAT
,MOVE CAPRlAGE RETURN CODE TO TYPDAT
JSR
%7.HPD
,GO TYPE CHAR,
TYPG,
#l2,HPDAT
Mova
,MOVE LF CODE TO TYPDAT.
JSF
;GO TYPE CHAR,
."TYPD
aR
TYPA
TYPDAT, OPU)
,SUBRDUTINE TO OUTPUT A SERIES Of ASCII MESSAGES ON TELETYpE PRINTER
TYPSI
MOV
~\&, %0
IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS
#2,[a%;6
ADD
,UPDATE TO NEXT MESSAGE ADDRESS
I'AOV
n~,TYPSB
,ADDRESS Of MESSAGE TO TYPSB
CMp
#-I,TYPsa
,CHECK FOR TERMINATOR
BUE
TYPSI
,BRANCH IF NOT TERMINATOR,
RI I
,TERMINATOR. E~IT
TYPSAI
TYPE
,CALL ON TiP SUB TO TYPE MESSAGE
OPEN
TYPSBI
,ADDRESS or MESSAGE GOES HERE
BR
TYPS
,GO PROCESS NEXT MESSAGE
,SUBROUTIN. 10 OELAY A SPECIFIED NUMBER or MILLIsECONDS
DLYI
MOV
@\6,ULCNT
,GET ADDRESS THAT CO"TAINS DELAY COUNT
AOD
#2.~'6
,SET UP EXIT
MOV
~OLCNT.OLCNT
,MILLISECONDs COUNT TO OLCNT
CLR
PSW
MOV
DLYAI
MSEC .DLCTR
,HOVE I MSEC DELAY CONSTANT TO DLCTR
DLYBI
DLCTR,DLCTR
MOV
I~OV
OLCTR.OLCTR
MOV
DLCTR,DLCTR
MOV
DLCTR.DLCTR
MOV
DLCTR. DLCTR
MOV
DLCTR.DLCTR
MOV
DLCTR.OLCTR
DLCTR.DLCTR
MOV

PCll READEP-PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
1605
1606
1607
160B
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639

003676
003702
003704
003710
003714
003716

005367
001345
005367
001337
000002
000000
000000

003720
003724
003732

004136
012700
012767
104011

~03734

0~4044

003736
003742
003750
003754
003762
003770
003776
004004

005067
012777
005067
016767
016767
016767
016767
016767
016767
016767
016767
005267
001345
10401.

175300
000101
174022
175262
175254
175246
175240
175232
17522.
175216
175210
175202

005777

175140

164~

00407~

1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660

004074
004076
004100
004102
004104
004106
004110
004114
004116
004122
004126
004134
004142
004144
004150
004152
004160
004164
004166

003712

~04012

004020
004026
004034
00404"
004042
004044
004050
004052
004054
004056
k104062

004064

000012

000204

175240
1752b0
175252
175244
175236
175230
175222
175214
17520.

175126
176b26
003720

00417.
004172
004176
004202
004210
004212
004214
004220
004224
004232

004170
175066
175120
175110
000000

175110
175102

175076
175070
173612

004244
004246
004252
004254
004260

005000
004767
012700
012767
104012
004234
005067
005077
052777
000646
005777
100716
005300
001403
005077
000002
0"5077
000720

004262
004266
004272
004274
004300
004302
004304
004306

001767
046700
001404
010067
104000
000000
000002
000000

004310
00431 6
004322
004330
004334
004336
004342
004344

004314
004n6
012727
005067
012727
005367
001375
005367
001367
000002

004346
004352
004356
004360
004364
004366
004370

004767
046700
001773
010067
000207
000000
000000

176456
000010

004372
004376
004402
004404
004406
004412
004416
004420

004767
020067
001001
000207
010067

000314
174776

0~4234

O04240
0~4242

0~4567

001362
017655

@PRS
RTMERR
R0
RUNTA

IREADER ERROR?

~PPS

;NO, ENABLE READER,

PC, TSM2

,EXIT INTERRUPT,
i PEAOER ERROR.
IGO TRY AGAIN.

#RT"CAL'(6)

;SR If YES,
,READ 6 CHARS?
ISR IF YES,

IPUNCH ERROR.

IMI~

175070

PCll READEP-PUNCH rESTS MACYlI 27(732)
DZPCAE,SRC
1661
1662
1663
1664
1665
16bO
1667
1668
1669
1670
1671
1672
1673
Ib74
1675
1676
1677
1678
1679
1680
168 I
1682
1683
16B4
1685
16B6
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716

PAGE 35

DEC
OLCTR
,DECREMENT 1 MSEC COUNTER
SHE
DLYB
,BRANCH IF
YET 1 MILLISECOND
OEC
DLeNT
,OECREMENT MSEC! COUNT (DLCNT)
BNE
eLYA
,BRANCH IF DLCNT NOT 0
RTI
,DONE DELAYING,EXIT
OPEN
DLCTR,
,1 MILLISECONDS COUNT
DLCNTI
OPEN
lCONTAINS MILLISECONDS COUNT
,ROUTINE TO CALI BRAT!: DELAY ROUTINE USING READER,
TMCONaRTlNTB+2
RTMCALI MOV
t6,R0
ISET UP TO READ 6 CHARS,
MOV
U 7., THeON
ITIME TO READ 6 CHARS TO TMCON,
STRDRV
ISET READER VECTOR,
RTMINT
SRCTR
CLR
MOV
#101, ~PRS
IENABLE READER AND INTERRUPTS,
RTMCLAI CLR
PSW
RTHCLBI MOV
SRCTR, SRCTR
MOV
SPCTR, SRCTR
MOV
BRCTR,SRCTR
MOV
SRCTP, SRCTR
MOV
SRCTR, SRCTR
MOV
SRCTR, SRCTR
MOV
BRCTR,SRCTR
MOv
BRCTR, SRCTR
INC
BRCTR
BNE
RTMCLB
,SR IF RESULT NOT 0.
CHALT
I B~CTR OVERFLOWED,
RTMINTI TST
8MI
DEC
SEQ
INC
RTI
RTMERRI JSR
MOV
RTI
PTMERRI TYPES
SM3

1004~5

005300
001420
005277
000002
004767
012716
000002
104004
017456
016620
177777
10401 ~
012716
000002
005077
005067
016767
162767
103403
005267
000771
016767
005067
022626
000207

~9144

Nor

000006

000006
000021

18.MAp.76

001040
000005
000144

177726

175"22
174772
000100

174762

174754

174744
174734

176542
000014
000002

000040

000000

173454
001750
177772
177752

000004

174750
000436

000000

-I
CHALT
MOV
,PTMCAL, (6)
:GO TR~ AGAIN.
RTl
PTlNTA, CLR
3PRS
I DISABLE READ~R INTERRUPTS,
CuR
OVQUOT
I CLEAP QUOT IE~T,
MOV
SRCTR,DVDND
RTlNTB I SUB
.0,DVONO
'DIVIDE DVDND 8Y 17 OR 100
SLO
RTlNTC
INC
DVQUOT
:+1 TO QUOTIENT,
SR
RTIN rB
,REPEAT SUBTRACTION.
RTINTCI MOV
DVQUOT, HSEC
,IHSEC CONSTANT TO MSEC,
CLR
PSW
POPSP2
, e:XIT,
RTS
PC
IROUTINE TO CALIBRATE DELAY ROUTINE USING PUNCH,

18-MAR-76

09144

PTMCALI CLR
JSR
MOV
MOV
STPCHV
PTMINT

PAGE 36
R0
PC,HSPCH
'S,P0
if:100 11 ,TMCON

IGET PUNCH RUNNING,
I SET UP TO PUNCH 5 CHAPS.
ITIME TO PUNCH 5 CHARS TO TMCON,
Isn PUNCH INTERRUPT VECTOR,

CL~
BRCTR
CLR
@PPB
IOUIPn A 0,
BIS
'~lT6, ~PPS
I ENABLE PUNCH INTERRUPTS,
BA
RTMCLA
PTMINTI TST
@PPS
IPUNCH ERROR?
8MI
PTMERR
;e~ If YES,
DEC
R0
IPUNCHED 5 CHARS?
SEQ
PUNTA
,SR IF YES,
CLR
@PPB
10UTPUT ANOTHER 0.
RTl
,EXIT INT~PRUPT.
PTINTAI CLR
~PPS
,DISABLE INT~RRUPTS,
BP
RTlNTA+4
,SUBROUTINE TO STALL A RANDOM NUMBER Of MILLISECONDS, MAXIMUM STALL
ID~TERMINED BY CONTENTS OF LOC STLMSK,
STALl
JSR
\7,RNGEN
IGO GET RANDOM NUMBER,
SIC
STLMSK,10
1# IN R0, APPLY STALL MASK,
B~Q
STALB
,BRANCH IF RESULT IS 0,
MOV
U,STALA
DELAY
,DELAY
STALAI
OPEN
I DELAY COUNT
STALB I
RTI
;DONE, EXIT,
STLMSKI OPEN
, STALL MASK,
,SUB TO DELAY X. TIME,
DLYX0·DLYX+4
DLYXloDLYXA+4
DLYXI
MOV
Ii 40, .0
IsaT UP COUNT OF 40,
psw
CLR
DLYXAI
MOV
#1000.,#0
,SET DELAY,
DLYXSI
DEC
DLYXI
IDECREMENT DLYXI,
BNE
DLUB
IBR IF NOT 0 RESuLT,
DEC
DLYX0
IDECREMENT DLYX0,
BNE
DLyXA
laR IF NOT 0 RESULT,
RTI
IEXIT,
ISUBROUTINE TO GENERATE RANDOM CHARACTER COUNT (1-77)
GRCNTI
JSR
I GET RANDOM NUMBER
" ,RNGEN
BIC
RCMSK,U
I APPLY MASK
BEQ
GRCNT
ITRY AGAIN I f RESULT 0
MOV
n,RNCNT
,COUNT TO RNCNT
RTS
17
I EXIT.
RCMSKI
OPEN
IRANDOM CHARACTER MASK,
RNCNTI
OPEN
IRANDOM CHARACTER COUNT,
I SUBROUTINE TO COMPARE DATA READ FROM READER AGAINST EXPECTED DATA AND REPORT ERROFS,
BCHECKI JSR
IGET BIN CHARACTEP(IN P0)
" , GTSIN
CMP
'0,CRBUf
ICOMPARE(R0)TO DATA IN CRBUF
BNE
,+4
IBRANCH I f NOT SAME(ERROR),
RTS
,OX,EXIT,
MOV
U,ERRT
JSR
'5, ACNV4
ERRT
ASS

PC II READER·PU~CH TESTS MACH!
DZPCAE,5RC
1717
1719
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1710
1731
1732
17 II
1734
1735
17 36
1737
17 lB
1739
1740
1741
1742
1743
1744
1745
1746
1747
1718
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

004422
004426
~0H30

.04432
00404
""4436
004442
•• 4444
00445.
004452
0"4456
0"4462
ij04466
"04472
k't04~~0

v J.'I- Ill,
00451l
004516
0H524
004530
U04'532

~0456'

00\400
0\ 7670
I,H007
017632
005367
001002
004767
000207
00~767

004767
~"4767

004767
016767
004767
016767
004767
016767
004767
000750
012767

~01'54'~

~002M

004542
00455"
004554
004560

012767
004767
010067
004767
010067

~04S64

004570
004574
004600
004606
i-'046t VI

""4616
00462"
004626
004630
'~04634

004636
0J4642
e~4644

004646
0H650
00465l
004654
""4662
1:''''4666
""4670
004,72
~04b74

0"4676

0.H7b7

010067
026767
001013
026767
001007
026767
001003
062716
000207
005367
001342
I ~4007
017747

000426

174754
""~002

000176
176420
176414
17.410
174702
17.376
174670
176364
114656

174702
174672
174 66 2

0k't~H~ 12

~"~"'03

174656

"'01"'0~

000102

000136
174630
000126
174622
000116
174614
174576

174602

174570

174574

114562

114566

000002
~H"001~

I B-MAR-, 6

f:," 3

P"!'S

177777

~045&7

{HH.n0~

~M'l~14

~'hH:H10
3\'1~HhH~

PT,",P1

004712

~16767

~v,4720

•• 5167
005167

""~1473~

~"'10~2

004732
004736

HPl5 26 7

k1~4744

316767

"04752
004756

~t&7~~

~42767

000207
016767
0~5167

"~5167
~JltA

11~50"~

005267
042767
016767
"16701
000207

005"26

~12500

l'0S~31A
~05(~4~'

012567
0047b7
0!H'5.67

005044

~(\5102

11~5~46

0l10~0~

11050]4

177762
17775"
177746
177744
177400
177732
177724
177722
177716
177706

27(7321

177762

177736
177726
177722

J 002

"'04776

005012
005020
005024

177704
17740"
177672
177664

0"0" 12
~Hj0~52

1:H~kl122

17767.
177666

JSH
RPiO
RIN[).l
II,

%5,B"IOVf

,TO ,\1INUS I,

" rs

;EYIr

OPE-til
OPE,~J

OPtN

OPEN
OP~N

18-"A~-76

09.44

005050
005052

000205
~12500

"05056

012567
".4767

000012
l4"~~24

JSP

"."014

JSR
AIST+:I
op>:.

IH~00oJ6

~H151166

""4~67

005072
"05074

005104
000000

(H~5076

rHH~Vl04

005100
005102
005104
0"5106
005110
005112
005116
005122
005126
005132
005136
005142
005144
005150
005154
"0516'
005162

ACNV4,

ACNVC,

AISTr

3~0000

0;l01i'!0Q1

"427~3

06270l
110341
0"6067
d~16067

0~5164

0"6067
005302
001161
000207

~05166

012501

RTS
MOV
MOV

%5
(5)+";~

(5l+,ACNVC
%7, ACt'IV

r EXIT
;CONVERT TO 4 ASCII, GET OCTAL ADDR<SS
;GET ASCII AODRESS

;CONVERT TO ASCII

'5,8~~OVE

;MOVE 4 CHARS TO ASCII ADDRESS,

;EXIT

#AlST+6,%1

; AD OR TO STORE AsCII TO Rl
;0 TO R2
,OCTAL _ORD TO ACrlVX

~.0205
~Hl~000

.00000
012701
012702
011067
016703

PAGE 38

PT1Pf
OPUIJ
,SPECIAL BI""Y COUNT PATTERN SUBROUTINE, EXIts wI!!! BIN CHAR lN R~
'.iTBINf
I<lOV
pr0,PTt
:PREVIOUS 8Icj CH~R TO PT1
COli,
PTI
FINn
CO"
B~!E
,+6
IilJC
PTI
HIC
'1774Vi0,PTl
;"lASK TO 8 ~lTS
MOV
PTt, PT~
1SAVE: BlN CHAR IN pry.,
~OV
PT1, %@
:BIN CHAR 10 ~tIJ.
RTS
%7
;ExtT,
GTBINPI MOV
PT~'P, PTlP
; PREVlOIJS BIN CHAR TO PT1P
COf>1
PTI P
COM
P IND
bN~.
,+6
INC
PT1P
HIC
1I17141o'1'l1,PT1P
:MASK TO 8 BlTS.
t40V
PTIP,PT0P
,SAVE BIN CHAR IN PT0P,
MQV
PTIP,%1
rBIN CHAR TO Rl,
%7
;EXIT,
"TS
,OCTAL TO ASCII CONnRT ROUTIN'-S
ACNV6:
I~OV
(5)+,%0
;CO~IVERT TO b ASCII, GET OCTAL AODfU';SS
H.OV
(5)+,ACNVB
;Gn ASCII AafJPESS
JSo
%7,ACIIJV
:COMVERT TO A.SCII
JSR
%5,BMOVE
rMOVE 6 CHAPS TO ASCII ADDRESS
A1ST
ACNVEH
OPE,'4

0~'51154
l'I~50b2

EXIT.

012767
004676
004677
000013
J00207
000000

""4706

k'J05~J~4

; '10 SYNC

; SUBROUTlr~r TO INITIALIZE BINAPY COUNT PATTERNS
r ~J~ t N: f~OV
.-l,RIND
; SET ALL VARIABL~S

R[NDt
PT".
PTl :
PHd):

004766
004772

SYCTRA, OPEfJ

(J7>0eJ00
0iJ000'"

0047&0

PAGE 37

~HHHHHl

"""4700
004702
yH'47rl4

"047H

qJ9144

JSR
'5,AC~V4
CPBlI,
AWAS
EPRORI
EMI
DEC
ERCTR
,DECREMENT ERROR COUNHR
BNE
,+6
,BRANCH IF ND THIRD ERROR
JSP
%7,BSYNC
, PESYNC THE READER,
RTS
%7
; EXIT,
,SUBROUTINE TO SYNC THE READER TO A SPECIAL BINApY COUNT PATTERN rEs! TAPE~
BSYNC,
%7,INBIN
JSR
, INITIALIZE BINApY PATTERN
JSP
,Rt:Al> CHAR.
" , BREAD
JSR
%7. BREAD
rR~AD CHAR,
JSH
%7,BPEAD
; RE.AD CHAR AND STORE AT CHRI
CRBur.CHRI
"OV
JSP
: RE;AD CHAP AND STOPE AT CHP2
\ 7, BREAD
MDV
CRHUF. CHR2
JS~
, READ CHAR AND STORE AT CI-IP3~
'7,~READ
MOV
CRBUF,CHR3
JSR
%7,SYNCA
,GO SYNC
HP
BS¥NC
rNU SYNC, TRY AGAIN,
#3,ERCTR
MOV
RTS
\7
:SUCCESS,EX!T.
SYNCA I
MOV
;5)< TO S¥CTRA.
#512"SYCTRA
SYNC.,
JSR
,7,GTBIN
;RIN CHAR TO CHFl.1A,
MOV
%Vt,Ct-tlqA
JSP
'7,GTAIN
; Bl'~ CHAR TO CHR2 A,
"iOV
%~',CHR2A
JSP
%7,GT8IN
;~P.J CHAR TO CHR3 A•
%~, C'HR3A
"OV
CMp
CHRt ,CHR1A
;CHRI AND ceRIA SAME?
liN E
SYNCC
;BR IF' NOT,
c r•1 p
C4R2,CHR2A
,CHP2 ,\ND CHR2A SA"'E?
B~(:'
SYNCC
;BR jf' NOT,
C"IF-'
CHR3,CHR3A
;CitP3 AND CHR3A sA"~l
"tJ~
SYNCC
,SR IF NOT.
AOO
'2, ((,)
;SET UP SYNCED ~xlT,
PTS
%7
; e.:XIT.
SYNCC,
DEC
StORA
;TRIED 512 T r MES?
b'IE
SYNCB
,Sl< IF NOT.
ERRORt
; S x~'C ERROR \.I~SSAGE.

"'102~7

PC11 READeR-PUNCH TESTS MACYlI
D I,PC AE, SRC
1711
1774
1775
1776
1777
1778
1779
1180
\ 781
1782
1783
1794
1795
17B6
1787
1798
1789
179.
\ 791
1792
1793
\794
1795
1796
1797
1799
1799
IBM
1801
1802
1903
1904
I ~~'5
1806
1807
1808
1909
191"
ISll
1812
IS13
1814
1815
1916
19 !1
1918
1819
1820
IS21
1922
1921
IS24
1825
1826
1927
1828

27(732)

"TS
OPEN
OPEN
OP~N

"05110
00000b
177762
177756
177770
'1000&0

177740
177734
177730

ACNVX:

OPEN

ACNVI

MOv

I'CNVt-t:

MOV

11-6, %2

MOV

~\0,ACNVX

~lOV

ACNH. %l

SIC
ADD
"-OVB
ROR
ROR
ROP
DEC

Iffj~, %3
%3. -(1)
ACNVX
ACNVX
ACNVX

#177770,%3

,ISOLATE LEAST SIGNIfICANT OCTAL'
;AOD b0 TO CONVERT TO ASCII
• STORE ASC II il ¥TE
rMOVE NEXT OCTAL DIGIT TO LEAST
,SIGNIFICANT POSITION

%2
,DONE 6 TIMES?
ACNVM
;NC. HEPEAT.
RTS
%7
;YES. EXIT,
,SUBROUTlN, TO MOVE A VARIABLE NUMBER OF BYTES,
BMOVE,
Mav
(5)+,\1
,GET" rROM" ADDRESS
8NE

PCII READER-PUNCH TESTS MACYII 27(132)

IS.MAR-76

09144

PAGE 39

DZPCAE.5~C

1829
1830
1831

1832
1833
1834
1835
1836
1831
1838
1839
1840
1841
1842
1843
1844
1945
1946
1941
1848
1849
1850
1851
1952
1853
1854
1855
1856
1857
1858
1959
1860
1861
1862
18U
1864
1865
1866
1867
1868

1869
1810
1871
1812
1813
1874
1815
1876
1811
1878
1879
1880

005110
005112
005114
005116
005200
005202

012502
012503
112122
005303
001315
000205

005204
005210
005212
005216
005220
005222
005224
005226
005230
005232
005234

005117
100404
U5117
100001
000201
104004
017456
016620
111717
104010
000763

114004

005236
005242
005246
005252
005254

004167
010017
105711
100315
000201

171142
173750
173742

0~5256

012100
013501
012102
012167
012261
004167
005367
00U71
000205
005067
166101

015256

005262
005264
005270
005276
005302
005306
005312
005314
905316
005322
005J26
005330
005334
~05336

005342
005350
005354
005356
005360
0~53b2

005364
005366
005310
005372
005374

DEC

17371&

-1

PTS

005364
000005
000060
000010
000044

000060

~Nt:

000024
00002~'

SIJBTNAZ

000036
000034

000~6~

00~01 0

012167
005167
001402
0~016 7
104003

005432
005434
00543.
005440

000000
005462
001750
005450

005442
005450
005454
005456
005460

012167
005711
104013
104006
104013

;BR1.NCH IF tJO! YET 5.

1YES, EXIT.
,CLEAR DIGn
,SUBTRACT TE; pOwER fROM BINARY VALUE,
,BRANCH IF UNSUCCESSFUL SUBTRACTION.

SUBThlA

ADD
ADD

TE:NPWP,%l
#60,DtGIT

1929
1930

1931
1932
1933

1934

Ins

1936

VALUE.

TO orCVAL fIELD,

,EXIT.

IS-MAR-7.

005432
174430

173646

09,44

PAGE 40

; PPG0 -

,S8TTL
PRG" - RICAOER LOGIC TESTS
R>:ADER LOGIC 105TS

PRC",

MO~

II:AT0,KSTAPT

TS1
SFO

XORfI,G

J"P

GETRDY

114212
I SI

;ADDR OF 15'[

~OUTINE

TO KS!ART,

HPE

,TYP!:: TITLE

015S4~

004767
000167

%7,SWTL

001614
114256

GETROY

:GO GET

STAPTED.

: .. **** .. **** ******* ** .. ***** II *******. ** '* * ******* ** .. -IIo;,oft ******* *it* .. *",,* it*****","

AT01

:TEsr

AT1

;NEXT TEST

100~.

;1 COI!r>J1
,SCOPE ENTRY

ATflA

*""

005462
005464
005466
005470

:liAR

10~H\ ,

005456
173534

172334

ADD~

.* ..........

~ ** ** * ** ** *4* .. * ** ********** *** * ** * ft*
* *ft
** .. *** ... ******* ft**** .*****.
,T~ST ABILITY TO REnRE"CE THE HADER STATUS -URD
MOV
'AT~E,MACHER
:5£1 UP MACHINE EPROP.. TRAP.
AT0AI

TST

!3PRS

,Flt:f'-I!.Rt:NCE READER STATUS

WO~D.

SCOP~

AT0EI

E~RO~

,ERROR, TRAPPW wHEN REFERENCING
,STATUS WORD (PRS),

SCOPE

REAU~R

* ** ••1 ** *.** . . ft .... **** ** * ***.* *.**
******iI-************ ******* .** **"" * "" .. ***
ATll
; TEST II
I" **

000001
005512
001150
0~5500

AT2

;N(XT TEST

10r.10,

:1 COUI'JT

ATIA

,SCOPE ENTRY

'******************************************************************~*****

005412
005500
005504
005506
0055U

012167
005117
104013
104006
104013

005512
005514
005516
005520

100002
005562
001150
005546

005506
173506

112304

;TEST ASILITY TO REFERENCE THE READER ~ufFER,
MOV
'ATIE,MACHER
,SET UP ~ACHIN'; ERROR TRAP,
AT1Ar
TST
•• Ra
,RU'ERENCE READER BUFFER
SCOPE
ATIEI
ERPOR
,ERROR, TRAPPED WIiEN REfERENCING
SCOPE
,READER ijUYFER, (PRS)

,.......... ** ...... *. *.... *... ** .............. ** ... ** ** * ** ** *
'it

AT21

005522
005526
005530

004561
000033
005546

005532
005514
005536
005540
005542
005544
005546
005554
005556

104004
01SH2
US156
017025
111117
000000
022117
0014U
104006

-It ........................

2+MANUAL
AT3

,TEST'
, NEXT TEST

100~1

:1 COUNT

AT2A

~SCOPE

ENT~Y,

*............... *..................... * .... **

, ........ ** ..... ** ...................... *...... ** ................................................................ **** ....... ** * ....... *......... ..

;TEST THAT R~ADER POWER OFF SETS ERROR SIT
(kIT 15) IN READER STATUS WORD,
JSR
'5,PCSI"
,PCII SIMULATOR FOR XOR TESTER

115026

13
AT2A

,ENTER I f XOR fESTER
'CO TO TYPES IF NOT TESTER
;TYPE TURN READER PO\'jER OFF,

1921
1928

; RESTORE SUBTRACTED

,CONVERT (DIGIT) TO ASCII

:MOVE ASCII

DIGIT, (~)+
%7

10kl •

192)
1924
1925
1926

~OCNVA

10,
I

,
005316
005404
005410
005412
005416
005420
005422
005426

JDONE. EXIT.

,5
DIGIT
TENPWR, %1
SUBTNB
DIGIT

t-IOVS
RTS
CNVCTPI OPE"
OPEN
DICIT'
TENPWR, OPEN
ADTENP I 1 ~HH~0.

000004

,SINARY TO DECIMH ASCII CONVERT SUBROUTINE.
MOV
,DECVAL,%0
,SET UP ADDR TO STORE DECIMAL ASCll IN R"
BDCNVI
MOV
@(5)+,U
,~INARY VALUE TO RI.
MOV
HDTENP.%2
,ADDR OF TEN POWER STRING TO R2.
MOV
.S,CNVCTR
,sET UP FOR 5 POWER CONVERSIONS,
(2)+,TENPWR
,MOVE POWER 0,' nN VALUE TO TENPWR,
SDCNVAI MOV
",SUBTEN
,PERfORM CONVERSION
JSR
DEC
CNVCTR
,DONE 5 CONVERSIONS?

RTS
SUSTEN, CI,R
SUSTNAI SUb
BCS
INC

PCII READE~.PUNCH TESTS MACYII 21(732)
DZPCAE.SRC
I SSI
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1891
1898
1899
1900
1901
1902
1903
1904
1905
1906
1901
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
191 B
1919
1920
1921
1922

;GET"TO"ADDRESS
I GET COUNT
;MOVE BnE
I DECREMENT COUNT

CHALT
BR
CPRDr
,SUSROUTINE TO pUNCH ON H, S, PUNCH CHARACTER IN REG 0,
,GO CHECK FOR PUNCH READY.
HSPCHI
JS~
",CPRDY
MOV
%0,@PPB
,LOAD PUNCH bUFFER,
;wAIT rOf! OOfJE.
~PPS
TSTB
BPL
.-4

0~0172

0b6701
062767
116720
000207
000000
000000
000000
023420
001750
000144
000012
000001

(5)+,%2
(5)+.%3
(1)+'(2),
%3
BMOVA

;BRANCH IF NOT DONE,
BNE
;DUNE EXIT
RTS
%5
, SUBROUTINE TO CHECK FOR PUNCH READY,
;TE51 FOR ERROR sIr,
CPRDH
TST
~PPS
BMI
,BRANCH IF ERRUR BIT SET,
CPRDYA
,TEST FOR READY SlT.
IST6
~PPS
6PL
CPRDYA
; BRANCH IF PE:AD"t NOT SET.
%7
JOK, EXIT,
RTS
,TYPE NOT READY MESSAGE,
CPRDrA I TYPES
SM3
1"16

1034~3

005261

MOV
MOV
MOVB

BMOVAI

TYPES
IMI
1M2
1M23

-I
100000

113434

AT2AI

HALT
eMP
BEQ
ERRO~

'SITIS,.PRS
,+4

~ WAlT FOR USE?
,TEST FOR ERROR BIT ONLY,
;BRANCH IF ERROR BIT ONLY sET,
,ERROR,wITH READER POWER OFr ONLr THE ERROR

PCII READER_PUNCH 'rESTS MACYll 27(732)
18.MAr-76
DZPCAE,SRC
PRG0 • READER LOGIC TESTS
1937
193B
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
\957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1 QS5

1986
1987
1988
1989
1990
1991
1992

005560

104013

005562
005564
005566

100003
005630

0~5570

005616

09144

SCOH
1

20~2

00175~

fit

005572
005576
005600
005602
005604
0~5606

005610
005612
005614
005616
005622
005624
005626
005630
005632
005634
<)05636

~04567

000033
005616
104004
015722
016014
017025
177777
000000
005777
100401

1000,

:1 COUNT

AnA

1 SCOPE ENTRY

-I
~ALT

173366

ATlA'

~05700

005702

TST
B"l
t:RRO~

J ********* *** .. ,It ..
A14.
4+"ANUAL
AT5
1"'0"'.
AHA

100004
"01750
005672
~04567

-It . . . .

** *.**** ** ............ *.. * .it* *** *•••
* ..... **** ... _*****_
IN READER STATUS 'ORO,

1S
TYHS

;TYPE. SET READC:R AS FOLLOWS. POWER ON

IMI

1NO TAPE,

O~-Llrlt:,

1/014
IM23

-I
H~LT

IS.

173320
173312

AT4A,

,wAlt fOR USEP,
;ENAf::H,l-,; RE.ADER

I "C
DoLAYX

laPRS

TST

tapRS

BMI

;CHEC~

, +4

,SFllI.I1CH IF BIT 15 SEr,

:WAIT A WHILt:,
9IT 15 OF 'PRS

,ERROR, ERROR BIT (BIT 15) NOT s n H

' •• OP
SCOPE

: Rt,.ADE'R OUT

or TAPE.

'********************************4********************** .... **.** •• *******

~0'5706

"0571"
005712

0~1750

1~~~.

.05746

~T5A

'SCOPE E"TRY

AT5:

5+MANIJAL

:T~ST

ATb

,f!EXT TEST

COlJ~T

, .. ** fl. .. ** * *** ** * ** ** .... ****.** ** *** .... **._**_********** ••••• *.. **** •• ****** .. *
005714
00572"
005722
005724

~045b 7

,TEST THAT ERROR HIT (BIT (5) Of READER STATUS WORD (PPS) Is NOT SET
,WITH READiR .OWER ON, READER ON_LIIE AND wITH TAPE LOADED IN ~EAUER
JSR
%5, PCSIM
H3
;TORI Off RDR ERROR ON XOR TE5TER

174634

000433
~~s 7 40
104M4

005726
005730
005732
005734
005736
005740
005744
005746
""5752
""575,

"15722
016271
017025
177777
000000
005277
104400

1S
TYPE.S

09'44

F"OLLOW5:

POWER

o~,

ON .. LIN~,

PAGE 42

IMI

:TAPe: 1'-1

PEA.D~FI:,

1"5

1000~1

ERRO~

005762
005764

SET Rfo;AO~R

1",23
-I

1 ~4006

~H~5171

2~06

00~7b6

:TYPF,.

HALT
I NC
DELA YX
TST
BPL

104~13

173244

IS.

173236

AT5A.

;WAIT fOR USI::FI
: E~ABLt: READER.
,WAIT A WHILE,
;CHECK BIT 15 OF PRS
,SR If SIT 15 NOT sET,
,ERROR, ERROR 81T (BIT 15) SET WITH NO
;ERROR CONDITION PRESENT,

~PHS

.PRS
,+4

SCOP£

;***********************************************.* .. ****.*****************

AT6:

b
AT7

1TEST •
;"EXT TEST
;1 COUNT
;SCOPE ENTRY

JOH:H~.

ATbA

1***********************************************.***********.******.*****

2010

,TEST ABILITY TO

5~T

AND CLEAR THE 10 BIT

(INrEk~UPT

ENABLE (BIT b))

:IN READtP STATUS WORD

00577"
005776
"~6"0~
"~6012

""6014
00b~16

00602_
"06026
006"34
006036
0~6'-"41!t

006042

2025

"~6"44

2026
2027

(i1~b\14b
~06~5~

012767
0527 77
032777
"01002
104006
104013
.42777
032777
001401
10400b
104013

17200"
"""34.
000100
173204
AT6A.

M.QV
AIS

#PRT't1,ps~

00010~

17317b

BIT

iRIT&,@PRS
AT6b

1731&2
173154

BNE
<PpOR
SCOPI::
SIC
BIT
REQ
ERRnp
SCOPE

'W0007
006104
"00144
0060b0

AT7'

ATb';I.
Arb81

IfBIT&,@PRS

IBIT6,@PRS
IfBITb,iClPRS

.+4

;SET PRIORITY 7.
;S!::T ID BIT (8IT b) IN READER PAS
;CHECK ID BIT IN PRS
,10 BIT SET?
;"0, ERROR, FAILED TO SET 10 8IT (81T b)
:IN PRS.
;CLEAR 10 BII IN PRS.
;CHECK 10 BIT IN PRS
,BR If BIT NOT SET,
,ERROR, 10 SIT IN PRS fAILEO TO CLEAR,

;**************************************.****.***.* •• ** ••••• ***.***** ••• **

2028

2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046

;NEXT WORD
; I COUNT
,SCOPE ENTRY

100005
005760

\]t15704

0»0006
006042
001750
00577b

2034

* it *.. * ************_
.... *********** *************** ***********
,TEST.

** ... *...... ** *** ***** **

"~0000

th-l5277
104400
005777
100401
101006
104013

an sy

,TEST THAT READER OUT OF TAPE SETS ERROR BIT(~IT IS)
JSR
,5,PCSIM
33

174710

00""33
005b64
104004
015722
016051
017025
177777

0057b0

2029
2030
2031
2032
2033

,+4

SCOPE

~.5704

,WAIT FOR USER,
'CH~:CK HIT 15 OF PRS
,BRANCH IF BIT 15 SET,
,ERROR, ERROR BIT(BITI5) NOT
;RI',AOER BEING OFF"LINE,

@PRS

10400~

005640
005644
005646
005650
005652
005654
005656
005660
"05662
005664
005670
005072
005676

•••• *.***

,TEST THAT READER OFF-LINE SETS ERROR SIT (BIT 15) IN READER STATUS WORD,
JSR
%5,PCSIM
33
ATJA
TYPES
,TYPE. "TURN READER POWER ON,
1"1
,OFF-LINE, NO TAPE
1M3
1"23

174756

104013

00575b

2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
20,4

,TEST I
; NEXT TEST

J+MANIJAL
AT4

f***·*****4.*.*~.********.*.**.*******~*******.*.**.******.*.*.*

2003
2004
2005
2007
2008
2009

IBIT SHOULD HAVE BEEN SET,
,EXAMI'E READER STATUS WORD MANUALLX.

* .. *** -I *.. ** It *' It ***** .. ******/j,,;t** *** .. * ** * .. _*** .. **"'* ** ..... *' .. * ••••• ***.-110**-110.*.

ATl.

PCII READER.PUNCH TESTS M>cY\l 27(732)
IS-MAR-7b
DZPCAE,SRC
PRG0 - READER LOGIC T'STS
1093
1994
1995
1996
1997
1998
1999
2000
2001

PAG!:: 41

7
ATI"
UH),
AT7A

;TEST •
,NEXT TEST
n COUhr
,scopr ENTRY

J*********************************.** •• *******.*.*.***.*** •• *************

006066
006070
006076
006100
006102

032777
001401
10400b
104~13

'TEST ABILITY TO CLt:AR 10 BIT (BIT 6) WITH RESET INSTRUCTION
HOV
'PRTY7,PSW
;S!::T PRIORITY 7
ATIA.
BIS
'BITb,~PRS
,SET ID BIT IN PRS
SRES!:T
; RESET
BIT
'BIT6,@PRS
,TEST 10 BIT
BEQ
.+4
,BR If IE BIT IS NOT SET,
ERROH
,ERROR, RESET INSTRUCTION fAILED TO
SCO.E
,CLEAR 10 8IT IN READER PRS,

0"6104

000010

AT!0.

006106

0~6140

~0b1l0

""0144
006114

006052
"06~6"

006112

0061\ 4

00bl20
006124

012767
052777

171716
173122

104~02

004767
005277
104400

000100

173112

:********************************.********************.****.*.*.*******.*
10
ATII
l~e,

AU.A
J .. *•• * ** * ** ** *... **.. ** ..
***. *** ••
*** ...
** **********.***** *'*
,TEST TIIAT DONE aIT SETS SOMETIME AFTER READER ENA8LE,
ATI0A.
JSR
\7,ARRDY
,CHECK FOR READER READY
INC
~PRS
,ENABLE READER
DELAYX
; WAIT.

*..

174522

173064

,TEST I
,NEXT TEST
,I COUNT
,SCOPE ENTRY

*...

** ........

*••

PCII READER_PUNCH TESTS MACYll 27(732)
le-MAR-76
DZPCAE,SRC
PRG • • READER LOGIC TESTS
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2089
2089
2090
2091
2~92

2093

006126
006132
006134
006136

105777
100401
104006
104013

006140
006142
006144
006146

000011
006174
001750
006162

006150
006154
.06160
006162
006166
006170
006172

004767

173056

PAGE 43

@PRS

TST8
8MI

ATI0E.

,+4

ERROR
SCOPE

IIEST FOF DONE (BIT 1)
,BRANCH IF DONE BIT WAS SET ••
;ERROR, SOHETIME AFTER READER
,ENABLE, DONE .IT WAS NOT SET,

, •• *************************************************** ••• ****************
ATIII

11
ATI2
1000,
ATlI A

,TEST'
;NEXT TEST
,I COUNT
; SCOPE ENTRY

J***************************************************** *******************

0~5277

104400
105777
100401
104006
104013

174466
173030

,TEST ABILITY TO READ DONE BIT (BlT 1 Of PRS) RELIABLY
JSR
%7,ARRDY
,CHECK FOR READER READ¥.
INC
~PRS
,ENABLE READER

t7 3022

ATlIA.

DELAYX
~PRS

;TEST DONE BIT (BIT 7 Of PRS)

BMI

,,+,4

IBP: If DONE BIT SET.

ERRO~

,ERROR. DONE BIT NOT
;TO READ IT.

SCOPF,

SET,

OR fAILED

;************************************************************************

006174
006176
006200
006202

000012
006246
000144
006204

006204
006210
006214
006216
006222
006224
006226
006232
006234
006236
006240
006242
006244

004767
005277
104400

174432
172774

I ~5 7 77

172766

006246
006250
006252
006254

000013
006314
000144
006256

006256
006260

104"02
004767

100"05
000005
105777
100403
104013
104"06
104013
104006
104013

;wAIT.

TSTS

ATI2.

12
ATl3

,TEST'
,NE~T TEST

Hh'>.
AT12A

;scapi:: ENT~'i.

,T COUIH

1 ................................. ** ... ** ..... * * ..................................... * ............................ * ................................. ** ........................ ...
,TEST THAT RESET COMMAND CLEARS DONE BIT (BIT 7 Of PRS)
ATIZA.
JSR
~7, ARRDY
;CHEC~ f"OR READER READY
INC
~PRS
; ENA~LE PEADER

;WAIT.

D~LAYX

1'SrB

!<IPRS

;rEST FOP DONE BIT

BPL

AT12El

;BRANCd I f DONE BIT NOT SET

@PRS
ATI2,<

; nST DONE BIT
;BRANCH IF DONE BIT STILL SET,

RESET

172756

AT12El1
ATI2E2.

; RESET

T5TB
Bfll
SCOPE
t:RR.OR
SCOPE
ERROR
SCOPE

;EF!ROR 1. DONE BIT NOT SET.
;ERROR 2. DONE BIT NOT RESET BY
1RESET INSTRUCTION,

J************************************************************************

AT13~

;TEsr-

ATl4

;N~XT

100.
AT13A

:1 COUNT
; scop~ E.NTRY

TEST

,.***********************************************************************

;TEST THAT DONE "IT (61T7 OF PRS) IS CLHRED wHEN ENABLING THf READER,
ATI3A.
SRESET
;RESET
174356

JSP

PCt! READER-PUNCH TESTS MACYII 27(732)
IS-MAR-7b
DZPCAE,SRC
PRG0 • READf.R LOGIC TESTS
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
21 t!
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2129
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149

09.44

006264
006270
006274
006276
006302
006306
006310
006312

005277
\.'5777
100375
005277
105777
100MI
104006
104013

006314
006316
006320
006322

000014
006376
000144
006324

%7,ARIW)'

09:44

INC

172720
17271'

, ***** *** *. **

ATI4.

,-'
• +4

-11- ..

RI£:ADY

ENASH READE.R
TEST fOR uONE BIT
BRa'CH I f DONE BIT NOT SET
ENAijlE READER AGAIN
TEST DONE 61T AGAIN
BRANCH IF DONE BIT IS RESET
READER ENABLE DID NOT CLEAR DON. BIT

@PRS
@PRS

14
AT15
100,
aTI4A

fOR Rt:ADEFI

PAGE 44
@PRS
@PRS

TSIB
BPL
INC
ISTA
BPL
EPROP
SCOPE

172706
172702

ICHEC¥

** ** ** * .. *** .. **** ***** ....... ".... ** *** ..... *** ... ***** *** ********** ..
,TEST'
;NEXT TEST

,ICOUNT
;SCOPE

ENTR~

: ** ***** * *** * .... **BIT
*******************.4
*********** ** ******** ************ * ..
IS CLEARED BY REfERENCING READER BUffER (PRS)

004767
005277
105777
100375

174312
172654
172650

~05717

172644
172636

006324
006330
006334
00634"
006342
00634b
006352
006354
006356
006362
006364
006366
006374

105777
100001
104006
004567
000433
006366
062767
104013

006376
006400
006402
006404

000015
006446
000144
006406

;TEST THAT DONE
ATl4A'
JSR
INC
TSTR

174172

%7,aRRDY
@PRS
@PRS

BPL

,-4

~8RANCH

TST
TST8
BPL
ERROR
JSR

@PRB
HPR5

; REFERENCE READER BUFfER (PRB)
,TEST FOR DONE BIT
,8R I f DONE BIT IS NOT SET,
,ERROR I. DONE BIT WAS NOT CLEARED
;GO TO PCII XOR SIMULATOR
,XOR CO"".

XCT'

4.33

AT14CI

ADD
SCOPE

,+4
%5,PCSIM

AT14C

001000

177766

'CHEC~ fOR READER READY,
;ENABLE READER
; TEST fOR DON E BIT

If DONE BIT NOT SET,

J RETURN ARGUIolEI-lT
.10~1",XCT

:
;BY RFfERENCING READER BUffER,

, ***** ...... ** ......... **' ***********4********** ** *** *** ** ************ ** **********

ATI5.

15
ATlb

,TEST'
,N~XT TEST

n COUNT

1@0,

,SCOP~;

ATISA

ENTRY

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

006406
006410
006414
006420
006424
006426
006432
006440
006442

104002
004767
005277
105777
100375
005277
032177
001001

006444

104013

006446
006450
006452
006454

000016
006530
000144
006456

006456
006460
006464

104002
004767
012700

174114
172570
172564
172556
004000

1040~6

172550

,TEST THAT ENABLING READER (BIT
ATI5A.
5RESET
%7,ARDER
JSR
.PRS
INC
.PRS
TSTB
BPL
,-4
INC
@PRS
BIT
'BITII,@PRS
BNE
,+4
ATI5E.
f.RROR

0 OF PRS)

*. *'

* ...... * * *
or PRS)

SETS THI' BUSY BIT (&IT II

;CHECK THAT "0 READER ERROH EXISTS,

;ENABLE READER
,TEST ~'OR BDSY BIT
,BRANCH IF BDSY BIT
S~T
;ERROR, READER F.NABLE fAILED TCi 5£1
,BUSY BIT, OR UNABLE TO READ BDSY BIT

SCOPE

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

ATlb.

Ib
ATI7
100.
ATI6A

,TEST'
,NEXT TEST
,I COUNT
,SCOPE ENTRY

r************************·****·*********************** **** •• ********.*'***

174044
000012

,TEST ABILITY TO READ BUSY BIT (BIT II Of PRS) RELIABLY
ATI6A.
SRESET
%7, ARDER
,CHECK THAT NO READER ERROR EXISTS,
JSR

MOV

#10,,%0

Jst! UP COU~TER TO 10,

PCII READER-PUNCH TESTS MACUI 27(732)
IS-MAR-76
DZPCAF.,SRC
PRG0 • READER LOGIC TESTS
215~

2151
2152
2153
2154
2155
2156
2157
H58
2159
2160
2161
2162
2163
H64
2165
2166
211>7
2168
2169 .
2170
2171
2172
217J
2174
2175
2176
2177
2178
2179
2180
2181
2182
218l
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
219&
2197
2198
2199

006470
006474
006500
006502
006506
006514
006516
006520
006522
001>52'
006526

005277
105777
100375
005277
032777
00140]
005300
001372
104013
104006
104013

006530
006532
006534
00653':"

006633
000144
006540

0~6540

172514
172510
172502
004000

172474

006544
006550
006556
006564
006572
006574
006576
006600
006602
006606
00b610
006612
006616
"06620
006622
006624

001003
005300
001367
104013
0",567
~~ 1402
017727
004567
001404
017742
104007
017675

(H~6626

1~4013

006630
006632
006634
0~66 36

000020
"06744
000020
006650

~26767

ATI6E.

~06662

006670

22~0

"'0&676

2201

006702

2202

~06704

105277
IM000
000001
005767
1"003 I
013746
012737
012737
005777
104000
000010

INC
T5TB

@PRS

~PL

,-4

INC
BIT

@PRS
'8ITII, .PRS
ATIH
%0
ATI66

~PRS

DEC
BNE
SCOPE
ERROR
SCOPE

I ENABLE READER
;WAIT FOR DONE BIT
,ENABLE READER
,TEST ~U5¥ BIT
,BRANCH IF BIT NOT SET
,DECREMENT COUNTER
,REPEAT CHECK Of BUSY BIT I~ NOT
;ERROB, BUSY BIT NOT SET,
,TO HAD BUSY IlIT

OR ~AlLED

, .. ** * *** ..17* ** ** *if ***** * * * **************
************ **********.****** *****'"
,TEST'

AT17.

AT20
Uh1,
AT17A

,NEXT TEST
J 1 COUNT
,SCOPE ENTRY

'* .......

000144
174112
172436
172430
172612

172624
172620
172612

CHR1,CHR2

~COMPAR!

B"E.

ATI7E
%"
AT178

'BHANCH IF R1 AND R2 DON'T MATCH

%5,AC NV4

,CORHECT 1ST READ O~TA TO ASCII

tiNE
ATt1E'

SCOPE
JSB
CHP!
ORGRD
JSR

176236

* ..... *' * * .. * *** .. * * *

CMp
DEC

176246

*'.

J " .....
* * ......... * ... * •• * .... * * .. * .................. * .. * .. * .. ** .. * ** ... * .. * ... frio ** *
; TEST ABILITY TO HEAD READEB RUfFER RELIABLY,
ATI7A'
MOV
.100,.%0
,SET COUNT TO 100 IN R0
JSR
%7.AREAD
;GET CHARACTER
r<OV
~PRB,C~RI
;C(PRa) TO CRBI
AT17BI
MOV
~PPB.CHR2
,C(PRB) TO CRR2

CHRl AND CHR2.

\5,IIC!'<V4

CHR2
SOBRD

;ERROR, REREAD OF PRS DID NOT MATCH
,INITJAL DATA READ fROM PRB,

""RORI
.'2
SCDPE
: it *it ....

006640
006644
006646
006650
006654
006656

PAGE 45

~EQ

~00017

012700
004767
017767
0177b7

AT168.

09.44

AT20.

**** ........... ** '1H"""" ****** ** ** **4** ** .. • it ... "" ....... * ... * **********************
20

AT2:1

,nST •
:NEXT TEST

:1 COUNT

AT2~A.

JSCOPE' Efo.lTRY

J***************************************************** ***'****************

172 J4 4

INCB

!CIPRS

D~LAY

I
173164

AT,0A,

TST
BPL
MOV
MOV

AT2~B:

MOV

.j3,(H177~)bf.':l

TST
DELAY
10

lil-PRS

1ST

(aPPS

~~0V'104

006742
000033
172306

XOpHG
A120X
IH4,-(\6)

,TH!; INSTRUC'!lONS wITHIN THIS TEST
; ARE USED WITH XOP TESTER ONLY
;EPRORS WILL BE INDICATED ON XOR TESTER ONLY

1/ XTP, {a", 4

2203
2204
2205

112276

PCII READER-PUNCH rESTS MACYII 27(732)
H-MAP-n
DZPCAE,SRC
PRGO - READER LOGrC TESTS
2206
2207
2209
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2211
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233

2234
2235
2236
2231
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261

~"6 712
006720
006724

012737
005777
1"4M0

006726

"00~10

00673.
"0674"
006742

005777
012637
H>4013
000002

006744
"06746
006750
006752

000021
007014
000144
"06760

~06734

000433

177060

09,44

flOV
TST
DELAY
10
TST

172264

172254
0~~0~ 4

MOV

AT20X,
XTP,

PAGE: 46

11433,1<1#177060
RPPS

RPRS
(%b)+,/oU4

SCOPE

R11

: * *** ** * 421... *** * .** **** **4**** *""* ... * *********** ** **4 *it ***of **** ******** ******

AT21.

;TEST '"

AT22

; NEXT TEST

100.

;1 COllNT

AT21A

,SCOPE ENTRY

; * ... iII'*'" * * *... * * * * *'* .. ** * ... * ...... * .............. * * ... * * ...... '* ...... * * ... * ... * ... * ...... ** ** *** ... ** 4'" * * ...... '* ... * ***

006754
006756
006760
0~6766

006774
00700"
007006
007010
007012
007014
007016
007020
007022

104011
~01012
~12767

0~0~00

042777
004767
052777
000240
104006
104013

000100
173662
000100

171010
172214
172202

,TEST THAT READER IS ABLE TO INTERRUPT, IF INTERRUPT IS SERVICED, IT wILL
;HAVE DCCURREO AI CORRECT VECTDR,
STRDRV
I SET UP READER INTERRUPT VECTOR
AT218
AT21 A.
MOV
#PRTY", PSW
,SET PROCESSOR PRIORITY TO 0
BIC
18IT6, ~PRS
; DISABLE READER INTERRUPT,
JSR
;GO READ CHARACTER,
" . AREAD
BIS
,BIT6.@PRS
,EN ABLE READER INTERRUPT.
NOP
:NO OP
AT21EI
ERROR
;ERFtOR. READER FAILED TO INTERRUPT,
AT21 B,
SCDPE

1************************************************************************

000022
007070

AT22,

~00144

22
AT23

,TEST •
:NEXT TEST
;1 COUNT
; SCOPE ENTRY

100.

007030

AT22A

1************************************************************************
,TEST THAT READER DOES NOT INTERRUPT WITH PROCESsOR AT SAME PRIORITY
007024
007026
007030
007036
007042
~07046

"07054

""'711'56
001062
007064

;LEVEL AS READER.
104011
007064
016767
005"77
004767
052777
a00240
0"5077
104013
104006

007066

104013

001.70
007072
007074
007076

000023
007146
000,44
007104

172166
172146
173614
000100

170740

AT22A.

STRDRV
AT22E
MOV

H22E'

JSR
BIS
NOP
CLR
SCOPE
!.RROR

CL~

172134

172126

SCOPF

;SET UP READER INTERRUPT VECTOR
RDRLVL. PSw
HRS
%7. AREAD

.8IT6,@PRS
aPRS

; SET PROCESSOR PRIORITY SAME AS READER PRIORITY,
; DI SABLE READER INTERRUPT,
;GO READ A CHARACTER,
,EhASLE READER INTERRUPT.
;OK I f NO INTERRUPT OCCURS,
,DISABLE READER INTERRUPT.
: ERROR, READER ERRO~EOUSLY INTERRUPTED
;WITH PROCESSOR AT SAME PRIORITY LEVEL AS
,THE READER. OR THE READER IS AT ~IGHER
;PRIORITY LFVEL THAN SPECIFIED AT RDRLVL,

; * ....... 4'" * * .. * *. * *.. *' .... it* 'II- it*** •• *.. .,..,. *.,..
* ... * ... * ... ** * .. *.,. * ..... .,. it *_* *it* .. * .. **it* *it* * •• **
.TEST _

AT23.

23
AT24
100.
AT23A

; 'IEXT TEST
;1 COUNT
:SCOPE ENTRY

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

007100
007102

104011
007144

,TEST THAT READER INTf.RRUPTS WITH PROCESSDR AT PRIORITY I LEVEL LOWER
,THA.N READEp·s
STROH
; SET UP READER INTERRUPT VECTOR
ATB8

PCII READER_PUNCH TEaTS MACYII 27(732) II.MAR.76
DZPCAE,IRC
PRG' - READ Ell LOGIC TESTS
2262
2263
2264
2265
2266
2267
2261
2269
2270
2271
2272
2273
2274
2275
2276
2277
2271
2279
2288
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
23ee
2301
2302
23~3

2304
2305
2306
2307
2301
2309
2110
2311
2312
231l
2314
2115
2116
2117

11117104
011711 2
007120
087126
0117132
0117140
007142

016761
162767
1142777
004767
052777
000240
104006

172112
11l1li040
ee0100
lHU0
01101ea

170664
178656
172062

AU3AI

AT23EI

MOV
SUB
BIC
JSR
BIS
NOP
ERROR

la050

007144

10401l

AT23BI

SCOPE

007146
8117150
007152
007154

000024

AT241

24
AT25
100,
AT24A

11117156
1107160
0117162
0071711
007174
007200
0072116
0072111
1107212
007214

104111\
007214
1112767
01151177
1104767
052777

0117240
0110144
0117156

007236
007240
1107242
007244
007246

11110025
007]16
001750
007254

IIn250
1107252
007254
007262
007266
007272
8073110

104011
007314
012767
005077
004767
052777

1607304

0117312

012767
104006

007114

10401l

1107116
007320
007322
007324

100026
007412
000144
007350

~1I7222

007226
0072311
1107232

16072)4

0~'067

2373

RDRLVL,PSW
HII,PSW
UIT6"PR5
,7,AREAD
.BIT6,'PR5

ISET PROCESSOR PRIORITY ONE LEVEL LOWER
ITHAN READER PRIORITY
,DISABLE READER INTERRUPT
IGO READ A CHARACTER,
IENA8LE READER INTERRUPT
,NOP
,READER rAILED TO INTERRUPT WITH
,PROCESSOR PRIORITY ONE LEVEL LOWER T~AN
,READER, THEREFORE, READER PRIORITY MUST BE
,LOWER THAN SPECIfIED AT RDRLVL

I TEST

•
,NEXT TEST
,I COUNT
,5COPE ENTRY

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

00000"
172014
173462
000100

170606
172002

001124~

104006
10401l
012717
012716
1100118Z
000240
10401l
11141106
111.01]

PAGE 47

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

171776

,TEST THAT READER DOES NOT REIHTERRUPT AfTER NTI ~HEN DONE BIT Is NOT CLEARED
AT24AI STRDRV
,SET READER INTERRUPT VECTOR
AT24C
MOV
,SET PROCESSOR TO PRIORITY
'PRTY0, PSW
,DISABLE READER INTERRUPT,
CLR
.PRS
JSR
,GO READ A CHARACTER,
" , AREAD
,ENABLE READER INTERRUPT
BIS
,BIT6,'PRS
NOP
AT24E11 ERROR
READER rAILED TO INTERRUPT
SCOPE
AT24CI MOV
,AT24E2,tRDRVTR ,CHANGE INTERRUPT VECTOR TO AT24~2
.AT24D,.\6
MOV
RTl
,RETURN FROM INTERRUPT
AT24DI NOP
SCOPE
AT24E21 ERROR
'ERROR 2, READER REINTERRUPTED AfTER
,RTI WITH DONE BIT LEFT ON
SCOPE

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

AT251

000)40
171 722
173370
000100
170472
~00l411

170514
171710
170464

25
AT26
1000,
AT25A

,TE5T •
,NEXT TEST
" COUNT
,SCOPE ENTRY,

••••••••••••••••••••••••••• * ••••••••••••••• ** •••••••••• *.*.*.*.**** ••••• *
,TEST THAT READER INTERRUPTS IMMEDIATELY UpON LOWERING Cp PRIORITY TO 0,
STRDRV
,sET READER INTERRUPT VECTOR TO
AT25B
:AT27B.
AT25AI MOV
IPRTY7,PSW
,SET CP PRIORITY TO 7,
CLR
IPRS
,DISABLE PTR1,
JSR
,7,AREAD
'READ A CHAPACT~R,
BIS
.RIT6,'PRS
,E.AaL~ PTRI
CLR
psw
,LO.ER PRIORITY TO 0,
~OV
'PRTY7,PSW
,R~lSE PRIORITY BACK TO 7.
AT25EI ERROR
,ERROR, READER FAILED TO INTERRUPT IMMEDIAl~LY
:AfTER LOWERING pRIORITY TO 0
AT25BI SCOPE
,It<nPRUPTS TO HERE If SUCCESsFUL,

•••••••••••••••••••••••••• , ••••••••••••••••••••••••••• *-.1.""""""'-

AT261

26+MANUAL
AT27
100,
AT26A

PC11 READER.PUNCH TESTS ~ACY11 27(732) II-MAR-76
DZPCAE,SRC
PRG0 - READER LOGIC TESTS
2311
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2113
23H
2115
2U6
2]]7
2338
2339
2340
2341
2342
2)43
2344
2345
Z346
2347
2348
2349
23511
2351
2352
2353
2354
2355
2356
2357
2358
2359
23611
2361
2362
Z361
2364
2365
2)66
2367
Z368
2)69
2370
Z371
2372

09144

:TEST •
,NEXT TEST
,I COUNT
'SCOP~ ENTRY

PAGE 48

P9144

.....•..•.........•.......•.......•.......•..............................
007326
007332
007334
007336
007340
007342
007344
007346
007350
11117354
007356
007362
007366

004567
000033
00735O
104004
016405
017025
177777
000l1li0
005777
100012

173222

0~5277

171626
172452

ITEST THAT READ~R ERROR CRIPPLES READER ENABLE
JSP
'5,PCSIM
H

171634

ATZUI

AT26A
TYVES
1"10
1M23
-I
HALT
TST
RPL
INC
TST
BNE
BIT
SNE

,sup THIS XOR TEST
JTYPE, Si!:T READER AS FOLLOWS'
,OFF-LI~E, TAPE IN READER

~PRS

AT26EI
fPRS
XOHLG
AT26B
H1TII, 'PRS
AT26E2

8117376
007400
007402
007404
0117406

005767
0010\0
032777
001003
104013
104006
104013
104006

007410

10401)

lT26BI

SCOPE

0117412
1107414
007416
0117420

1081127
007530
000144
007444

AT271

27+MANUAL
ATl0

007370

01117422
007426
0nU8
087432
11187434
01117U6
007440
007442
087444
11117446
1187450
007454
11117456
l1li7464
0117472
11107474

"04567
0B00ll
0117444
10.084
816485
81711125
177717
801080
1114011
0nSie
085777
111"023
114Z117
O52777
1111824111
111141116

111117476
0875011
01175116
11111512
111117514
.111516
00752111

1114111l
812777
1112116
81180"Z
.118240
1141113
1840116

004000

171612

POWI::N ON,

,CHECK FOR ERROR BIT,
IBR~NCH IF ERROR BIT NOT SET,
,ATTEMPT READER ENABLE
: TEST READER BUSY BIT

SCOP~

AT26E11 tPROR
SCOPE
AT2&E21 FoRROR

,ERPOR I, ERROR SIT NOT SET, OR REAUER
,NOT SET UP AS SPECIFIEO,
,READf.R ENABLE WITH ERROR CONDITION SET
,SUSY SIT, ERROR CONDITION SHOULD HAVE
,OISABLED READER ENABLE,

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

AT27A

,TEST'
,NEXT TEST,
11 COUNT
,SCOPF ENTRY

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

173126

171534
0110100
01111118111

171524
171516

11015211
017514

171512

,TEST THAT ERPOR RIT IS ABLE TO INTERRUPT, AND AFTER INTERRUPT
'SERVICE IT DOES NOT REINTERRUPT AGAIN,
J5R
" , PCSIM
33
AT2lA
TYPES
ITYPE, SET READER AS FOLLOWS 1 pOWER OFF
IMI0
,OfFLINE, TAPE IN READER
IM23
-I
HALT
AT27AI STRDRV
,SET UP READER INTERRllPT VE:CTOR
AT27C
fPRS
,TEST ERROR BIT,
TST
BPL
AT27El
IBRANCH IF ERROR BIT NOT SET (BIT 15 OF PRS),
BIC
IBIT6,'PRs
,DISABLE READER INTERRUPT.
,BIT6, fPRS
BIS
,ENABLE READER INTERRUPT
NOP
AT27E21 ERROR
,ERROR 2, ERROR CONDITION rAILED TO CAUSE
,READER INTERRUPT
SCOPE
AT27CI MOV
.AT27E3,.RDRVTR ,SET UP READER SERVICE TO AT27E3
,lT27D,PU
MOV
,MODIFY INTERRUPT RETURN ADDRESSD
RTI
,RETURN FROM INTERRUPT
AT27DI NOP
10K If NO INTERRUPT,
SCOPE
AT27UI ERROR
,ERROR ), ERROR CONDITION RESULTED IN
,A REINTERRUPT ArTER INITIAL INTERRUPT

pell READER.PUNCH TESTS MACYlI 27(732)
IB.MAR-76
DZPCAE,SRC
PRG0 - READER LOGIC TESTS
2374
2375
2376
2377
2378
2379
2380
2391
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393 .
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
1404
2405
2406
2407
2408
2409
2410
2411
2412
2H3
2414
2415
2416
2411
2418

007522
007524
007526

104013
104006
104013

AT27EII

243~

2431
2432
2433
2134
2435
2436
2437
2439
2439
2440
2441
2442
2443
2444
2445
2446
2447
244.
2449
2450
2451
2452
2453

2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474

SCOPE
f.RROR
SCOPE

;WAS SERVICED
;ERROR 1. ERROR BIT NOT SET.
,NOT SET UP AS SPECIFIED

OR READER

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

007530
007532
007534
U07536

AT3~1

100030
117717
00175"
007576

3~+MANUAL

;TEST •

-I

;LAST TEST
Jl COUNT
,SCOPE EhTRY.

100~.

AT30A

'***************************************************************.********

00754"
007544
007546
00755.
007552
007554
007556
007560
001562
007564
001566
007570
007574
007576
007602
007604
~07610

007616
001620
007622
007624
007630
007632
007634
007636
007642
007644
007650

004567
000033
001562
104004
016405
017025
171717

,TEST THAT WITH ERROR ijIT SET AND HAVING GENERATED AN INTERRUPT.
,ISSUING A READER ENABLE CAUSES AN IMMEDIATE INTERRUPT.
JSR
%5,P.CSIM
33

173010

IS
TYPES
IMI0

1"23
-I
HALT
SRtSET
STkDRV

00000~

104002
104011
007624
005211
104400
005717
100025
005017
052717
000240
104006
104013
012116
000002
104011
007654
005717
100005
~05217

0~7652

000240
104006

007654
007656
007662
007664

104013
005017
104006
104013

IS'

INC
DELA lX
TST
HPL
CLF
HIS

AT3~AI

171406
171400
000100

!1 1372

~~7674

007616
007700
~07702
~~1704

007706
007710

007714
~07720

007724
007126
00773~

007732

012767
104004
016360
016334
017025
111711
000000
004767
004767
000167

HRS

,ENABLE READER,

@PRS
AT30EI
@PRS
JlI3IT6,@,PRS

; TEST rop ERROR.
,BRANCH IF ERROR NOT SET,
;DISABLE PTRI
,ENABLE PTRI

;WAIT A WHIL~,

NOP
AT30F.2Z

'ERROR fA I LEO TO I HTERRUPT,

lPROR

SCOPE
An0BI

001632

AT30C,
171346
171340

AT30D.
AT3~EI'

171326

MOV

,ERROR INTERRUPfS TO HERE, SET UP INTERRUPT

RTI
STRllkV
AT300
TST
8PL
INC
HOP

;EXI!. AhO EXIT.

SCOPE
CLR
ERROR
SCOPi:.

18.MAR-16

~~7724

171356

,PRGII
PRGI'

R~ADER

MOV
npF;S
1"7

; SET PTR VECTOR TO
~PRS

AT30EI
@PRS

@PRS

AT3~D,

,TEST THAT ERROR BIT 15 STILL ON,
,BRANCH IF NO ERROR BIT,
,READER ENABLF., SHOULD CAUSE
,IM~EDIATE INTERRUPT,
,ERROR, REAOER ENABLE WITH PREVIOUS
; I~TERRUPT f"AILEO TO INTERRUPT,
; OK, InERRUPT OCCUREED.

JDISASLE P1'FH
~ERROR

.'9.44

,SbTTL
007666

,SET PTR VECTOR TO AT30B,

AT3~8

171414

PCI I READER-PUNCH TESTS MACHI 27 (732)
DZPCAE,SRC
PRG' - READER TEST
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429

PAGE 49

09,44

dlT Nor SET.

PAGE 5.

PRGI - READER TEST
lIST
.8T0.KSTART
,SET AODRP.SS Of fiRST ROUTlN~
,TlPE SET UP INSTRUCTIONS

It-4.f)

IM23
-I
riALT
JSR
JSR
JMP

005326
174~00

171764

%7,SWTL
PC, RTMCAL
GETRO¥

,CALI~RATE

D~LAY

RTN WITH READER,

: GO GET STARTE:D.

1 **** * ... *.* * ** ** ....... * * •••••• *. ***********.** ... ***.*.*****.* ******* .** ..... _.
B TO,
0
, TES T •
ST I
• NEXT TEST
10000.
, I CUUNT
,SCOH ENTRY
BT0A

000000
007752
023420
007740

r***************************************************** *******************

007144
007750

004767
004767
004167
104013

007752
007754
007156
007760

000001
010010
000764
007774

001734

0n740

,READ AND CHECK
JSR
BT0A'
JSR
JSk
SCOPE

174512
173136
174422

10000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN, fULL SPEED,
\1,BSYNC
,SYNC READER, SET ERROR COUNTER.
%7.BREAD
'CO READ CHARACTER
",SCHECK
'CO CHEn CHARACTER READ,

~*****************.**********************.************ ***

BTl'

I
BT2
500.
BTl A

,TEST'
,NEXT TEST
: I COUNT
,SCOPE ENTRY

••••••••• *.**.-*

1***********************************·*******.*.*****··*******************

007162
007110
007714
007776
010002
010006

012767
004167
104005
004767
004761
104013

010010
010012
010014
010016

000002
010062
001750
010032

010020
010026
010032
010040
010042
010046
010052
010056
010060

012167
004767
012767
104005
004761
004767
005361

010062
010064

000003
010140

117170
174456

174316

113100
174364

,READ AND CHECK 500 CriARACTERS OF SPECUL SINARY COUNT PATTERN,
,RANDOM STALL BETWEEN CHARACTERS (0 TO 7 MSECS),
MOV
U 71770. STLMSK
\7, BSYNC
JSP
,SYNC READER' SET ERROR COUNTER
BTIA.
STALL
,RANDOM STALL (0 TO 7 MSECS)
1;7,BREAD
JSR
,GO REAO CHARACTER
,GO CHECK CHA~ACTER RE~D
JSR
" , BCHECK
SCOPE

;.***********************************************************************
BT2.

2
BT3
1000,
BT2A

,TEST'
,NEXT TEST
,I COUNT
,SCOPE ENTRY

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

,READ
177740
174420
000003
173034
174320
174312

174260
174330

BT2AI
ST2C.

~01)71

10401)

10~0

GROUPS OF 3 CHARACTERS EACH,
RANDOM STALL [0 TO 31 MSECS) BEFORE E;ACH GROUP,
MOV
.177740.STLMSK
,LIMIT STALLS TO 31 MSECS,
'7,BSYNC
,SYNC RF-ADER,
SET ERROR COUNTER
JSR
MDV
13,RNCNT
,SET CHAR COUNT TO 3,
STALL
,RANDOM STALL [0 TO 31 MSECS).
JSR
,7,BREAO
,GO READ CHARACTER,
JSR
'7,SCHECK
,GO CHECK CHARACTER READ,
DEC
RNCNT
,3 CHARS READ?
SNE
BT2C
,aR Ir NOT 3 CHARS YET.
SCOPE

r*·***···***··********·*******************··**************.*.************
BTlI

3
BT4

I1EST •
,NEXT TEST

PCII READER-punCH TESTS MACYII
DZPCAE,SRC

PRCI -

2475

010066

2476
2477
2478
2479
2480
248 I
2482
2483
2484
2495
2486
2497
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508

010070

001750
010112

27(732)
READER TEST

IB-MAR-76

2534
2535
2536
2537
2536
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2556
2559
2560
2561
2562
2563
2564

PAGE

1~00,

,I COUNT
,SCOPE ENTRY,

BT3A

,************.*************.**************************.*** ••• -.***.******
,READ AND CHECK 1~0" CHARACTER GROUPS OF RANDOM LENGTH (I TO IS),
010072
010100
010106
010112
010116
010120
010124
010130
010134
010136

012767
012767
004767
~04 767
104005
004767
004767
005367
001371
104013

010140
010142
010144
010146

000004
177777
001750
010170

177740
177760
174340
174230

174206
174260

172756
174242
174234

,RANDOM STALL
MOV
MOV
JSR
JSR
BT3A,
STALL
BTlC,
JSR
JSR
DEC
SHE
SCOPE

TO 31 MStCS) BETWEEN GROUPS.
1177740,STLMSK
,LIMIT STALLS TO 31 MSECS.
'177760,RCMSK
,LIMIT MAY CHAR COUNT TO IS CHARS.
,7,BSYNe
'SYNC READER,
SET ERROR COUNTER,
%7, GRCNT
,GENERATE RANDOM CHAR COUNT,
" , BREAD
,7,BCHECK
RNCNT
BT3C

,GO READ CHARACTER,
,GO CHECK CHARACTER.
,ALL CHARS READ?
,BRANCH IF NOT,

J***************************************************** .******************

6T4.

4
-I
1000,
8T4A

,TEST #
,LAST TEST
,I COUNT
, SCOPE ENTRY

1***************************************************** *******************

010150
010156
010164
010170
~10174

010176
010202
010206
010212
010214

012767
012767
004767
004767
1"4005
004767
004767
."5367
001371
104013

177740
177700
174262
174152

174130
174202

172700
174164
174156

,REAO AND CHECK 1000 CHARACTER GROUPS OF spECIAL BINARY COUNT PATTERN,
,RANDOM LENGTH
,GROUPS (BEToEEN 1 AND 771. RANDOM STALL BETwEEN GROUPS (0 TO 31 MSECS),
MOV
#177740,STLMSK
MOV
'177700,RCMSK
: SYNC READER, SET ERROR COUNTER,
JSR
",BSYNC
JSR
,7,GRCNT
,GENERAT!: RANDOM CHARACTER COUNT,
BTH'
STALL
:RANDOM STALL (0 TO 31MSECS)
JSR
BT4C I
:GO PEAD CHARATER
" , BREAD
%7, BCHECK
JSR
: GO CHECK C~ARACTER PEAD
RNCNT
:DECRE~ENT RANDOM CHAR COUNT
DEC
eNE
BT4C
,GO READ AGAIN IF COUNT NOT 0.
SCOP!;

PCI! READER-PUNC~ TESTS MACYlI 27(7321
1R-"AP-76
DZPCAE,SRC
PRG2 • PUNCH LOGIC TESTS
2509
2510
251!
2512
25 I 3
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533

09144

09:44

,SBTTL

010216
010224
0'"226
010234

012767
104003
015574
004767
000167

010240
010242
010244
010246

000000
010270
001750
010256

01023~

010250
010256
010262
010264
010266

012767
005777
104013
104006
104013

010270
010272
010274
010276

000001
0U320
001750
010306

010300
010306
010312
010314
010316

012767
005777
104013
104006
104013

010320
010322
010324
010326

100002
010370
001750
010354

010330
010334
010336
010340
010342
010344
010346
010350
010352
010354
010362
010364
010366

004567
000433
010354
104004
016434
016467
017025
177777
000000
022777
001401
104006
104013

010370
010372
010314

100003
010436
001750

010240

171026

PRG2:

MOV

TYPE
IM0A
JSP

005006
171450

PAGF; 52

PRG2 • PUNCH LOGIC TESTS
'CTO,KSTART
,ADOR OF 1ST ROUTINE TO KSTART
,nPE TITLE.

%1,SwTL
GETROI

;GCJ GET

STA~rr:D.

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

CT0:

;Tt:ST

CT1

, NEXT TEST

1~00.

CT"A

:SCOPE ENTRY

* * *..

010264
170732

167526

COUNT

J .... * - * *
* .. * ** * .. *4 .. * * - * .. * .... * * .... * * * * * .. * * ** .... * ** * * * * ... ** ....... * .. *' ** ** * * ... ** .. **
,TEST ABILITY TO RErER~NCE THE PUNCH STATUS wORD (PPS)
MOV
,CT0E,MACHER
CT~AI
TST
~PPs
,REFERENCE PUNCH STATUS WORD
SCOPE
CT0E,
ERROR
:ERROR. TRAPHD wHEN REFERENCING PUNCH
SCOPE
,STATUS WORU (PPS),

'*******-****************************************************************
CT1'

I
CT2

,TEST'
,NEXT TEST

100~,

II COUNT

CT1A

,SCOPE ENTRY

J********************************************************************* .. **

010314
170704

167476

,TEST ABILITY TO REFERENCE THE PUNCH BUFFER (PPB)
MOV
,CTII,MACHER
,SET UP MACHINE ERROR TRAP,
CHA,
TST
~PPB
,REFERENCE PUNCH BUffER,
SCOPE
CTI E:
ERROR
: TRAPPED WHEN REFERENC I NG
SCOPE
:PUNCH BUFFER (PpB)

J**************-********"***********-"****-******************************

CT2:

2+MANUAL
CT3
1000,
CT2A

,TEST 8
,NEXT TEST
,I COUNT
'SCOPE ENTRY

r*************************************************.*** *******************

,TEST THAT PUNCH POWER OFF
JSR
%5, PCSIM
433
CT2A
TYPES
IM11
1"12
IM23

172220

SETS ERRO? AND READY BITS IN PPS

:TYPE INSTRUCTIONS TO TURN POWER

:on- ANO REMOVE TAPE FROM
, PUNCH

-I
100200

170632

CT2A'

J* ...

HALT
CMP
BEQ
ERROP
SCOPE

,WAIT FOR
1100200, ~PPS
.+4

US~R

;TEST PPS.
,BRANCH IF ERROR ANU READY SET,
,ERROP. PUNC~ ERROR BIT (BIT IS) NOT SET BY
,PUNCH POWER OFF, OR READY BIT NOT SET, OR
:SOME OTHER aIT IS SET, EXAMINE PUNCH
,STATUS .ORD fIANUALLY.

*. ** .... ** *** * ** .. * * .. ** .. ** * .. -* .. ** .. ** .. * * .. * ** .... ** ...... **** ** ....... * .***** ** -***

CTl'

3+MANUAL
CT4
I~OO,

'TEST'
,NEXT TEST
II COUNT

PC11 READER·PUNCH TESTS MACYlI 27(732)
IS.MAP.' • • 9,44
DZPCAE.SRC
PRG2 • PUNCH LOGIC TESTS
25&5
2566
2567
25&8
2569
257~

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2.01
2602
2.03
2604
2605
2&06
2607
2&08
2609
2610
2611
2612
2613
2614
2615
2616
2b 17
2618
2619
2&20

010376

CnA

010424

26~5

2656
2657
2658
2659
2660
2661
2662
26&3
2664
2665
2666
2&67
26&8
2669
2670
2671
2672
2673
2674
2675
2676

I SCOPE ENTRY

, ** If ** .. ** * .... ** .4* .. *** *** ....... **** *******************.4******* *****_*** .... *'*
010400
010404
010406
010410
010412
010414
010416
010420
010422
010424
01043"
010432
!HPI',14

004567
000433
0U424
104004
016434
016513
017025
177777
000000
005777
100401
104006
104013

I TEST THAT PliNCH OUT Of' TAP!:: SETS ERROR BIT I' ppS

172150

JSR
433
CT3A
TYPES
1"11
Hill

%5,PCSIM

,TYPE INSTRUCTIONS TO TURN PUNCH
,POWER ON, ANI) REMOVE TAPE fROM PUNCH.

I~23

170564

CT3A I

-I
HALT
TST
B"I

I WAIT fOR

@PPS
• +4

~RHOR

SCOPE

USER,

,TEST PPS
,BR If ERROR BIT SET.
:EFROR. PUNCK OUT Of TAPE fAILED TO SET
,THE ERROR BIT IN PPS (BIT 15) ,

, .................................................... * .. ** ... *** .......... *4 .. **** ................. * olio ......... ** .. * ............ * *' .... 'It** .......... * ...
4+MANllAL

,TEST •

010440

~10504

CIS

; NEXT TEST

~10442

001750
010472

l~~H"1

,I COUNT
,SCOPE ENTRY

~10436

010444

100004

CT4.

CT4A

:~ TEST
*.* ********
** ***************** ******* ... *** ** ****** ***** ** ** .... ********* *** IN
THAT PUNCH ER~OR BIT IS NOT SET wHEN PUNCH POWER IS ON AND TAPE
PUNCH.
IS

010446
010452
010454
010456
_10460
010462
010464
01046b
010470
010472
010476
~10500

010502
010504
010506
01051.
010512

"04567
000033
010472
104.04
016434
016536
017025
177777
000000
005777
1"0001
104006
104013

172102

.JSH
33
CT4A
TYPES
lr"11
IM14
1"23

\5. PCSIH

,THE INSTRUCTIONS TO LOAD TAPE IN
:PUNCH AND TURN POwER ON.

-I

CHA,

170516

HALT
TST
HPL

:WAIT FOR USER,
@PPS
.+4

I!:PPOP

SCOPE

,nST PPS
;BR If ERROR BIT NOT SET.
: ERROR. ERROR BIT SET "ITH NO ERROR
;CONDITION PRESENT.

: ** ****** •• -If ......... ** ..... * •• ** ***********.* ......... *** *4 *** .. *** ....... * ....... ** 110 ***

000005

•

CTo

JTES!

~10566

00175.
010514

l"'~Vl.

,NfXT TEST
II COUNT
,SCUP~: ENTRY

CT5'

05.

; .......... *** .... **. tHI" ** ...... ***** .... ** * ___ ....... * *** ***** * ..... ** **** *** •• ** .. *** ...... ****

010514
010522
010536
010540
010542
010544
010552
0105&0
"10562
010564

012767
052777
032777
001002
10400&
1 ~4013
042717
032777
"01401
104006
104013

010566

000006

0t053~

0~0340

000100
000100

L-'l0010(1
f}~0100

1 &7254
IH464
170456

170442
170434

,TEST ABILITY TO ScT AND CLEAR 10 dIT (BIT 6) IN PPS
M(lV
05A1
IIPRIy7,P5W
,SlOT PRIOR1Ti 7
bIS
1181Tb,@PPS
: SET 10 BIT IN PPS (SIT 6 )
/tl:HTb, (aPPS
jCHLCK 10 BI T IN PPS
"IT
btJE
CT5H
;BRANCH IF BIT SET
ERROR
;rAIL~D TO SET 10 BIT (BIT 6)
IN PPS
SCOPE
C'T5b:
B Ie
#~ITb,@PPS
iCLEAR 10 BIT IN PPS
BIT
, CHECK III bJr IN PPS
tBJTb,liIPPS
B£<:u
• +4
:B~ IF BI1 IS NOT Sr.T,
ERROR
:E~FlOR, 10 BIT IN PPS fAILED TO Ct-EAR

scap;:

J it-ll-'"

CT6'

.**** ** .... * ..... * * * .... ** ** 1,Io" ......... ** .. ** ...... *** ** ....... * *._* *** * ********** ... **** * 01;*

010570
"10572
010574

010630
000144
01057&

010576
010&12
"10614
0\0622
010624
011r'62b

012767
052777
104002
032777
001401
10400&
104013

.H~61'"

000"07

010632
010634
010636

01~652

•

;TEST

PCll READER-PUNCH TESTS MACYlI 27(732)
lR-MAR-76
DZPCAf..SRC
PRG2 - PUNCH LOGIC TESTS
2621
2&22
2623
2624
2625
2626
2&27
2629
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654

PAGE 53

09:44

PAGE 54

; I~EXT TEST

10(~ •

; I COUNT

CT&A

; SCOPE ENTRY

: **** .... * ** * *** *' ** *'** *****'******* ****** •• * .** * *.** ... * .... * ... ****************
,nST ABILITY TO CLEAR 10 BIT I" PPS (SIT6) ',ITH RESET INSTRUCTION

~U'b~4

167172
170402

CT6A:

MOV

#PRT¥7,P5W

RIS

IIBIT6dlPPS

s~ESlr

170372

PRIORITY 7.

IHT

IIBIT6,@PPS

;TlST ID BIT IN pPS.

BEu
"PROR
SCOPE

,+4

:SF IF IE Blr NOT SET.
,ERROR. RESET INSTRUCTION FAILED TO
,CLEAR ID "IT (8IT 6) IN PPS,

J * ******.*
CT7:
7

* * .... *.<It *** .. **** ** * It ...... ** ••• __ •• * .·IH· ******* It**************** 'If ****
;11::5T "

CTIO
100",

001750
010640

~S~T

;5ET IO BIT IN PPS,

; RESET,

,NEXT TEST
;1 COUNT
;SCOPE EN THY

CT'7A

~ .... ** .............. ** * ** *.***.** ***** •• **** .... ** .. ****** .. **** ** •• **_***** ***it**

010640
~H0b44

.10646
010650

10401 J

,TEST THAT .IOADY ~IT (BIT 7) IS
,THAT THE READY BIT CAN BE READ
CT7A,
TSTB
@PPS
8"11
,+4
EPROR
SCOPE

000010

CT1~1

105777
100401

17035i'

1~4"0'

.\10652
010654
010656
0106.0

"10662

010662
010664
010670
'1l0676
010702
010704
010706
010712
010720
010724
01073"
010734
010736
010740

104M2
004707
012777
105777
100001
104006
013746
012737
005737
1052 J 7
012637
104013
02262.
00077 3

010742
.10744
010746
010750

000011
311004
3~" 14 4
010752

010752
010754
010760

104002
004767
016700

SET fOt-LOWING A RESET INSTRUCTION, ANa
RELIA8LY.
,TEST PPS
tBR IF' READY ~IT SET,
,EFRO •• RESET fAILED TO SET READY BIT,
,OR !'AILED TO READ READY BIT,

; '" ..... * ** ... ** ... ** ** ** .. * ******* .. *it"* *,*.-lI- '* ** **** *' ***** .. ***************** .** .. **

~10742

;TEST •
,NEXT TEST
; I COUNT
,SCOPE ENTRY

011
256,
CTI0A

~004"0

:,TEST
....... *****
***** * ** * .... **.*** •• ************** ... ** .. *'* ******** **************
THAT P<ADy BIT (BIT 7) Of PPS IS RESET ~y LOADING PUNCH BUffER (PPB)
174314
00000.
170312
000004
010736
177060
010672
0~0004

17032"

CT1~A:

SRi:.:S[T

CT1"B,

JSR
MOV

%7.CPRDY
'0,"PPB

TST~

~PPS

BPL
ERROR
MOV

@'4,-(\6)

000004
XPI
CT10C,
XPBE.

~ RESET

,+4

MOV

#XPBE,@14

TST
INCB

@'177~60

.CHECK FOR PUNCH READY
,LOAD 0 INTO PUNCH BUffER (HB)
,TEST PPS
;BP IF READY BIT RESET.
,ERROR. LOADLNG pUNCH BUffER (PPB)

@'CT10B+2

MOV

(%6)+,~14

SCOPE
CMP
BR

(\6)., (%6).
XP

,fAILED TO RESET READY BIT IN PPS

*............. * ** ...... *' .. * *"'1o. * .... *.. * .... ** ** ** ***. * .. *" .. *' .............. * ........ * ...... *.. *** '* ** * ** *

CTI1'

11
CT12

,TEST'
;NEXT TEST

1.0"'.

II COUNT

CTI1A

,SCOPE ENTRY

1***************************************************** **.****************

174224
170232

,TEST THAT REAOY BIT (BlT 7J IS NOT RESET BY BYTE LOAOING PPB.1.
CT11A'
SPESET
IRESET
JSR
\7,CPROY
,CHECK fOR PUNCH READY,
MO"

PPB,\0

PCII READER_PUNCH TESTS MACYII 21(732)
18-MAR·76
DZPCAE,8RC
PRG2 • PUNCH LOGIC TESTS
2677
2678
2679
2680
2601
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
n01
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732

010764
010766
010772
010776
011000
011002

005200
112710
105777
100401
104006
104013

011004
011006
011010
011012

000012
011052
001750
011020

000000
170216
CTIIE.

104012
011050
005067
004767
042777
052777
000240
134006

011050

104013

011052
011054
011056
011060

030013
011144
001750
011062

011062
011064
01106&
011072
011076
011104
011112
011114
011116
011120
011126
011132
011134
011136
011140
011142

104012
011120
005067
004767
042777
052717
30024.
104006
10401 J
012777
012716
000002
000240
104013
104006
104013

011144
011146
011150
011152

030014
011220

I LOAD PPB+I
,TEST PPS
,BRA~CH IF READY BIT NOT RESET,
,ERROR, LOADING PPS+l CLEARED READY BIT.

12
CT13
1000,
CT12A

,TEST'
, NEXT TEST
,I COUNT
, SCOPE ENTRY

, ...... * ......... *.... .,. olio ... * ** ......... .,. '* *** '* ....... *.. .,. ...... .,. ......... **... it ** ............ *.,. ......... 11- .. ** .. ** *** **** ...
CTI2'

166752
174154
000100
000100

170156
170150

* .......... *_ ............ *** '* * ........................... * * ....... .yo .................... * ............ *'.* ... ***

2779
2780
2781
2782
2783
2784
2785
2786
2787
2789

.*. .*.""*

,TEST THAT PUNCH (READY 8IT) IS ABLE TO INTERRUPT, IF THE INTERRUPT IS
,SERVICED, IT WILL HAVE OCCURRED AT CORRECT VECTOR,
,SET UP PUNCH INTERRUPT VECTOR,
STPCHV
CTI2C
:SET P~T'{ TO 0,
CTI2A,
CLR
PSW
,7,CPRDY
JSR
,CHECK FOR PUNCH READY,
eIC
.BITb,0PPS
,DISABLE PUNCH INTERRUPT
BIS
'BIT.,@PPS
,ENABLE PUNCH INTERRUPT
NOP
CTI2E.
ERROR
,ERROR, FAILURE TO INTERRUPT WITH
,PUNCH READY BIT SET,
CTI2C.
SCOPE
, INTERRUPT VECTOR POINTS HERE.

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

CT13.

166704
174106
000100
000100

011140
"11134

170110
170102

170076

13
CTI4
1000,
CTl3A

,TEST'
,NEXT TEST
,I COUNT
, SCOPE ENTRY

RT!

~REtURN

J .......... * ... it .................... .,. ....... * .... **.* ...................................................... * ......................................... ** ............................. ...
,TEST THAT PUNCH DOES NOT REINTERRUPT AFTER RTI wHEN READY BIT IS NOT RESET,
CTI3A.
STPCHV
,SET UP PUNC~ INTERRUPT VECTOR
CTI3C
CLR
PSW
,SET PRTY TO 0,
%7,CPRDY
,CHECK FOR PUNCH READY,
JSP
SIC
,DISABLE PU~CH INTERRUPT
'BIT6,0PPS
BIS
.61T6,@PPS
,ENABLE PUNCH INTERRUPT
NOP
CTI]EI, ERROR
,ERRORI, PUNCH FULED TO INTERRUPT,
SCOPE
'CTI3E2,~PCHVTR .CHANGE INTERRUPT VECTOR TO CTI3E2
CTI3C'
MOV
MOV
.CTIJD,~\&
,CHANGE INTERRUPT RETURN ADDRESS,

FROM

tNTER~UPTI

CTI3D'

NOP
SCOPE
CTI3E2. ERROR
, ERROR2, PUNCH HEINTERRUPTED AFTER RTI WITH
SCOPi::
;READY BIT LJ=:fT ON,
1 .............. *' ............................... * .. '* ........ * *.. * ........................ *** ** ......... ** ........................ * ...... **
CTI4,
14
,TEST'
CTIS
,NEXT TEST

0~1750

011160

1000,

;1 COUNT

CTI4A

,SCOPE ENTR¥

;************************************************************************

011154

,TEST THAT THE PUNCH DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY
,"EVEL AS THE PUNCH,
,SET UP PUNCH INTERRUPT VECTOR.
STPCHV

104012

PCII READER·PUNCH TESTS MACYll 27(732)
18-MAR-7 • • 9'44
DZPCAE,SRC
PRG2 • PUNCH LOGIC TESTS
2733
2734
2735
273&
2737
2738
2739
2740
2741
2742
2743
2144
2145
2746
2747
2748
2149
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778

PAGE 55

INC
Move
TSTB
8MI
ERROR
SCOPE

, .... it ..............

011014
011016
011020
011024
011030
011036
011044
011046

09.44

311156
011160
011166
011172
011176
011204
011206
311212
011214

011214
016767
005077
004767
052717
000240
005077
104013
104006

311216

104013

011220
011222
011224
011226

000015
011276
001750
011234

170042
170022
174006
M0100

166610

CTI4A,

170010

CL~

170002
CTI4E'

104012
011214
016767
162767
042177
004767
052777
000240
104006

011274

104013

011276
011300
011302
011304

000016
011356
001750
011312

011306
011310
011312
011320
011324
011332
011340
011344
011352

104012
011354
012767
004767
042777
052777
005067
012767
104006

PCHLVL, P5W
~PPS

\7,CPRDY

#Sl"b,9;PPS
@PPS

SCOPE
ERROR
SCOPE

15
CTlb

UHH~.

CTl5A

167166
000040
000100
173722
000100

166534
166526
167736
167724

, SET PROCESSOR PRIORITY S~ME AS
:DISABLE PUNCH INTERRUPT.
,CH';CK FOR PUNCH READY,
,ENABLE PUNCH INTERRUPT,
,OK IF NO INTFRRUPT OCCURS,
~DISABLE

PUNC~

PU~Cri,

INTERRUPT.

,ERROR, PUNCH ERRONEOUSLY INTERRUPTi::D
,WITH PROC.SSOH AT SAME PRIORITY LoVEL
,AS THE PUNCH, OR THE PUNCH IS AT HIGHER
,PRIORITY [,EVgL THAN SPECIFIED AT PCHLVL,

.*** •• * *** ***4 ** *** ** *** ...... * ****** ******* .. ****** .. it*******"****.********

CTIS.

f **** .. **

011230
011232
011234
011242
311250
011256
011262
011270
011272

CTI4E
MOV
CLR
JSF
BIS
NOP

PAGE 56

,TEST'
,NEXT TEST
~ I COUNT
,SCOPE ENTRY

****""* *** **** •• ********** ****** ****** ************* ************* ......

,TEST THAT PUNCH INTERRUPTS WITH PROCESSOR AT PRIORITY I LEVEL LOW~R
, THAN THE PUNCH PRlOR ITY,
STPCHV
,SET UP PUNC,; INTERRUPT VECTOR
CTI5B
PCHLVL, PSW
CTI5A.
MDV
,SET PROCESSOR PRIORITY ONE LEVEL LOWER
SUB
.40,PSW
,THAN PUNCH PRIORITY,
ISIT6,@PPS
,DISABLE PUNCH INTERRUPT
eiC
,CtiECK FOR PUNCH READY,
JSR
%7, CPRDY
,ENABLE PUNCH INTERRUPT,
eIS
'8IT6,@PPS
NOP
CTl5E.
ERROR
, PUNCH FAILED TO INTERRUPT WITH PROCESSOR
,PRIORITY ONE LEVEL LOWER THAN PUNCH,
,THEREFORE, PUNCH PRIORITY MUST
,BE LOWER THA_ SPECIFIED AT PCHLVL,
CTI5B.
SCOPE
,HERE IF INTERRUpT OCCURS,

'************************************************************************
CTI6.

16
CT17
1000,
CTI6A

,TEST I
,NEXT TEST
,I COUNT
,SCOPE ENTR¥

'************************************************************************

011354

104013

011356
011360
011362
011364

100017
011504
000144
011410

000340
173660
000100
000100
166432
000340

166456
167662
167654
166424

,TEST THAT PUNCH INTERRUPTS IMMEDIATELY UPON LOwERING CP PRIORITY TO 0,
STPCHV
,SET UP PUNCH INTERRUPT VECTOR
CTI6B
CTI6AI
MOV
HRTY7,PSW
,SET PROCESSOR PRIORITY TO
\7,CPRDY
,CHECK FOR PUNCH HEAUY,
JSR
tBIT6,@PPS
BIC
,DISABLE PUNCH INTERRUPT
BIS
.BIT6,IIPPS
,ENABLE PUNCH INTERRUPT
,LOWER PRTY TO 0,
CLR
PSW
MOV
#PRT¥?, PSW
'RAISE CP PRIORITY BACK TO 7,
CTI6E.
ERROR
,ERROR, PUNCH fAILED TO INTERRUPT IMMEDIATEL¥
,AFTER CP PRIORITY WAS LOWERED TO ~,
SCOPE
CTI6B.
,HERE IF INTERRUPT OCCURS,
'******~*************************.**.***************** *******************

CTI7.

17.MANUAL
CT20
100,
CTI7A

,TEST I
,NEXT TEST,
,I COUNT
,SCOPE ENTRY

PCII ~EADER.PUNCH TEaTS MACYII 27(732) II.MAR-76
DZPCAE,IRC
PRG2 • PUNCH LOGIC TESTS

PAGE 57

,• .......................................................................
.
TEST THAT THE PUNCH ERROR BIT IS ABLE TO
AND THAT IT DOES NOT

2789
2791

INTER~UPT,

2791
.IU66
279) .IU72
2794 1111374
2795 '11376
2796 "1140'
2797 111482
27,. 1114.4
2799 111486
nee 11141'
2lel 111412
2802 IllU4
2881 11l4l6
28114 .1l422
2885 BlI424
2886 011U2
2887 011UI
2808 e1l446
28"9 Hlltsll
2811. III 452
2811 1111454
2812 .11462
2813 Y1l466
2814 0114711
2815 011472
2816 B1I414
2817 1111476
2818 011511B
2819 "115.2
2121
2821 II II 5114
2'22 0115116
2an BI1510
2824 011512
2825
2826
2127
2828 011514
2829 0115211
2U. 011522
2831 011524
2832 811S2'
28U "1l53'
2834 "1l532
2835 11l5H
2U6 1111536
2U7 011S4.
2838 011542
2839 .11544
2840 01l55B
2841 1111552
2842 BIISS6
2843 IHI564
2844 011566
2792

884567
""4U
Y11411
104'''4
BI6567
B17825
177777
.BIII88
1841112
104.12
Bllts4
885777

.0. . 26

112717
B42777
052777
0B1248
11I4B06
104813
112777
012716
80. .82
0 •• 249
1.41U
1.4.116
104013
104806
104013

,RElNTERRUPT AFTER RTI.
JS~
t5, PCSlM

171162

4]3

,TURN PUN ERROR ON IF ON XOR rESTER,

CTPA
TYPES
IMI5

,TYPE INSTRUCTION TO

1111570
1I11572
IIllS76
e1l611e
11l6"2
111604
B1l61.
1I1l612
1111616
0tl62.
1111622
1I11624
0116311
IIll6l2

rAPE FRO~ PUNCH

-I
HALT

CTI7A!

011474
811478

167564
167554
167546

167542

S~ESET

81PCHV
CTI7S
TST
BPL
MOV8
BIC

167572
lleeeell
008111e
0081e.

BIS

NOP
CTI7EI! ERROR
SCOPE
CTI7B1 MOV
MOV
RT!
CTI7C. NOp
SCOPE
CTI7E2! ERROR
SCOPE
CTI7U. E~1I0R
SCOPE

,nSET
,SET UP PUNCH INTERRUPT VECTOR,
IPPS
CTI7U
,1I,.PP8
IBIT6,ePPS
UIT6,,,,.

,UST PPS
,BRANCH IF ERROR BIT NOT SET.
,0 TO PPB TO RESET READY.
,D lSAIiLE PUNCH INTERRUPT
,ENABLE PUNCH INrERRUPT

,ERRORI.PUNCH ERROR BIT FAILED TO
,CAUSE INTERRUPT.
ICTI7E2, nCHVTR ,CHANGE INTERRUPT VECTOR TO CTI1E2
,CHANGE INTEPRUPT RETURN ADDR TO CT17C
.CTI7C, .'6
,RETURN FROM INTERRUPT
,HERE IF ND REIHTERRUPT OCCURS.
'ERROR2. PUNCH REINTERIIUPTED AFTER
,RTI. (ERROR 8IT LEFT ON).
,ERRORl. ERROR 81T NOT SET.

,.......................................................................
.
211.MANUAL
,TUT ,

UIn0
177777
•• 175.
BllS36

CT20!

,LAST TEST
,1 COUNT
,SCOPE ENTRY

-I

10.0.
CT20A

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

904567
Be. . U
'IlU6
1.48.4
116567
BI7n5
177777
.111188.
114802
1.4.12
Illsn
"'5777

167444

9'5817
1152777

167416
"e.I.8

1Tt:6T THAT WITH ERROR BIT aET AND HUING GENERATED AN INTERRUPT,
,LOADING THt PUNCH BUFFER CAUSES AN IMMEDIATE INTERRUPT.
JSR
PCSIM

171034

,5,

4]3
CU0A
TYPES
IMI5
IM23

,MESSAGE TO REMOVE TAPE FROM PUNCH

-I

CT2I11A!

1~0iJ25

HALT
SRESn
&TPCHV
CT20B
TST
BPL
CLR

BIS

1674311

,RESET.
,SET PTPI

"pa
CUBEI

,ppa

18IT6,8PPS

NOP
CU0E2! ERROR

"82411
1041"6

119!44

1041e6

SCOPE
MOV
RT!
CT2BC. snCHV
CT21D
TST
HPL
CLR
NOP
CT20E)! ERROR

1841113
1105877
104016
1.4IJ1l

cueD. SCOPE
CT2IEI. CLP
EIIROR
SCOPE

10401)
012716
88. .112
104012
IItl622
805717
le.Il0S
005"77

RE~OVE

I~23

PC 11 READER_PUNCH TESTI MACYII a7 (7 n) 18.MAR-76
DIPClE.SRC
PPG2 - PUNCH LOGIC TEaTS
2845
2846
2847
2848
2849
285'
2851
2852
2853
2854
2855
3856
2857
2851
2859

09.44

0tl6110

167484
1614.0

~lIn48

161164

CT208.

V!CTO~

TO CT2eB.

,TEST FOR ERROII
,a-RANC H IF ERROR BIT ~OT lET.
,DISABLE PTPI
,ENABLE PTPI
,ERROR FULED TO INTERRUPT,

PAGE 58

.CT2t1C,n6

,ER~OR

fPpa
CT2t6EI
'PPB

,TEST 'RROR
,BRANCH IF ERROR BIT NOT SET.
,LOAD PUNCH BUfFER.

"PI

INTERPUPT COMES HERE. SET UP
,INTERRUPT EXn TO crall AND EXIT.
,SET PTPI VECTOR TO CT2ID.

,BurFER LOAD ~ITH PREVIOUS EpROR
,INTERRUPT FULED to UTEPRUpr.
,OK. INTERRUPT OCCURRED.
,CLEAR PTPI
'ERROR. E~ROR BIT NDT SET.

PCII READER-PUNCH TESTS MACYII 27(732) 18.MAR-76
DZPCAE,8RC
PRG2 • PUNCH LOGIC TESTS
2860
2861
2862
2863
2864
2865

2866
2867
2868

012767
104003
015627
004767
004767
000167

011662
011664
011666
011670

000000
011732
000005

AII672
011700
011704
0\1706
011712
011716
0\1722
011716
011730

012767
004567
000000
004767
004767
004767
005367
001371
104013

011732
011734
011736

000001
012012

011740

011750

011662

167410

003370
172H2
170026

28B3

2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896

DT01

2897

2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915

001000
000322

167476

172742
172774
173314
167450

0\2012
et 20\4
012016
012020

000002
U2114
000005
012036

012022
012030
012036

012767
012767
012767

2943

2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967

2968
2969
2970
2971

012044
012050
012052
012056
012062
012064

004567

012074
012100
012102
012106
012110
012112
012114
012116
012120
012122

000003
012206
000001
012124

012124
012112
012136
012140
012144
012146
012150
0\2156
012162
012166
012172
012174
0\2200
0\2202
012204

012767
004567
000003
004767
104000
011610
012767
004767
004767
005367
001404
005367
001366
000760
104011

012206
0\2210
0\2212
012214

000004
177777
000001
012216

012216
012220
012222
012224

104003
020281
104010
184013

912226
012232
012234
012240
0\2242
012244
0\2250

Bl27et
005000
084767
00S3el
881374
012700
004767

01207~

.. ...

.. ..

........-...-.......•..•.•.•....•..•.• -.._........-...._..

,...........••
1
DT2
5

OTIA

,TEST'
,NEXT TEST
,1 COUNT
,SCOPE ENTRY

J ... *•••• - ••••• - ••• *••• * ••••• ** .. * ..... ** ••••• *....... * ....... *.......

177720
001000
000244

172336
167420

172664
172716
t7 3236
167370

177720
177760
001000

172256
172330
167332

18-MAR-7.

000156

JSR

172576
172264

JS~

OT2CI

167244

172510
000040
172530
17]050
167204
17217~

000024
172776
000377
172762

PAGE.0

172212

".INBIN
\7. GRCliT

,GO PUNCH FRONt END AND MODE 2
,INDICATOR
,INITIALIZE SPECIAL BINARY COUNT,
,GENERATE RANDOM CHARACTER COUNT
:RANI>OM STALLt.
,GET BINARY CHARACTER.
,PUNCH THE CHAR~CTER.
,OECREMENT CHAR COUIIT
,BRANCH IF COUNT IS ~.
,NOT 0, DECREMENT RANDOM CHAR COUNT.
,BRANCH IF COUNT NOT lET 0,
,BRANCH IF COUNT 0,

JSR
STALL
JSR
,7.GTBIN
JSR
l7.HSPCH
DEC
~CNT
SEQ
DT2D
DEC
FNCNT
SNE
DT2C
SR
DT2"
DT2DI
SCOPE
,*********4***** ••• ***.***********************************.**** •• ********
OT31
3
,TEST "
DT4
,NEXT 'rEST.
,I COUNT.
I
DT3A
,SCOPE ENTRY.
,***************** •• *******.*.****.************** ••• ***.*************.***
'PUNCH SPECIAL SIHARK COUNT PATTERN IN PUNCH MODE 3,
,STALL S SECONDS. PUNCH 32 CHARACTERS. UNTIL THE ENTIRE PATTERN IS
,COMPLETED.
DUAl
MOV
,SI2 •• RCNT
,SET CHARACTER COUNT TO 512.
JSR
'5.PFRNT
,GO PUNCH FRONT END AND MODE 3
3
,INOICATOR,
JSR
,INITIALIZE SPECIAL 8IN COUNT
DTlBI
DELAY
,STALL 5 SECONDS
5000.
HOV
*l2.,FlNCNT
'S~T GROUP COUNT TO 32.
OTlCI
JS~
".GTSIN
,GET BINARY CHARACTER
JSR
,PUNCH CHARACTER
" . HSPCH
DEC
RCNT
'DECRE~ENT CHAR COUNT
BEQ
DTJD
,BRANCH IF COUNT IS 0
DEC
RNCNT
,DECREMENT GROUP COUNT
BNE
DTlC
,BRANCH IF COUNT NOT YET 0,
BR
DTlB
,BRANCH IF COUNT 0.
SCOPE
DUD'
, •••• **.****.* ••• ******** •• *** •• ***** •• ** •• *********.***************.****
DT4'
4
,TEST'.
-I
,LAST TEST
1
,I COUNT,
DT4A
,SCOPE ENTRY POINT.
,*****.*.*** •••••• **.*** •• ** ••• ** •• * •••••• *** •••••• **.* •• ****.****** •• ***
,THIS ROUTINE PROVIDES END or PASS HALT FOR PRG3.
DTfAl
TYPE
,TYPE END or PASS
P3END
CHALT
,COMMON HALT.
SCOPE
,SUBROUTINE TO PUNCH FRONT END AND MODE CODE (USEO BY PRG3).
PYRNTI MOV
u~ .. u
,PUNCH 20 BLANK CHARACTERS (B00)
CLR
U
,CLEAR R0
JSR
".HSPCH
,PUNCH CHAR.
DEC
tI
,DECREMENT R1
BNE
.-6
,BRANCH IF NOT 20 CHARCTERS YET,
HOV
U77.\0
,PUNCH RUBOUT CHAR (SYNC CHAR).
JSR
."HSPCH
012S'

172262

001000
000070

.9'44

172622
173142
167276

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

,PUNCH SPECIAL BINARY COUNT PATTER' IN PUNCH MOO~ 1 (RANDOM STALLS AFTER
,PUNCHING EACH CHARACTER, MAXIMUM STALL 47 MILLISECONDS)
MOV
1\77720.STL~SK
,SET STALL MUX FOR 57(8) MAX
DT1AI
HOV
1512 •• RCNT
,SET CHARACTER COUNT TO 512.
JSR
\5.PFRNT
,GO PUNCH FRONT END. AND MODE
I
,INDICATOP
JSR
'7.1hSIN
,INITIALIZ£ SPECIAL BINARY COUNT.
OT1B'
JSR
'7.GTBIN
,GET BINARY CHARACTER.
JSR
,7.HspeH
,GO PUNCH THE CHARACTER,
STALL
,RANDOM STALL.
DEC
RCNT
,DECREMENT CHAR COUNT.
BNE
DTIB
,BRANCH IF COUNT NOT YET 0.
SCOPE
, ••••••••••• - ••••••• _ •••• *.* •• * •• ** •• **.**.*****.***.********************
OT21
2
,T~ST •
OT3
,NEXT TEST
5
,I COUNT
DT2A
,SCOPE ENTRY
J •• **** •••• *.** •••• *************************.* ••• ************ •• **********
,PUNCH SPECIAL 5INARY COUNT PATTERN IN PUNCH MODE 2,
,IRANOOM STALL BEFOR~ PUNCHING RANOOM LF.NGTH GROUP OF CHARACTERS).
,MAXIMUM STALL 47 MILLISECONDS. MAXIMUM GROUP LENGTH -15)
MOV
'177720.STL"SK ,SET STALL MASK FOR ~7(8) MAX.
MOV
.17776~.RCMSK
ISET CHAR GROUP MASK FOR 17(8) MAX).
OT2A,
HOV
.512 •• RCNT
ISET CHARACTER COUNT TO 512.

~00002

004767
004767
104005
0047b7
004767
005367
001404
~05 367
001366
000762
104011

,TEST'
,NLXT TEST
,I COUNT
,SCOPE ENTRY

'PUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH ~ODE 0 (FULL SpEED)
OT0A,
HOV
.SI2 •• RCNT
,SET CHARACTER COUNT TO 512
J5P
is.PFRNT
,GO PU~CH FRONT END AND ~ODE 0
o
,INDICATOR
JSR
,7.INSIN
,INITIALIZE SPECIAL BINARY COUNT
DT0BI
JSR
.7.GT8IN
,GET BINARY CHARACTER
JSR
,7.HSPCH
,GO PUNCH THE CHARACTER
DEC
RCNT
,DECREMENT CHAR COUNT.
8NE
OT08
,BRANCH IF COUNT NOT YET 0 YET.
SCOPE
DTII

PCII READER-PUNCH TESTS MACY! I 27(732)
DZPCAE,SRC
PRG3 - PUNCH TEST
2916
2917
2918
2919
2920
2921
2922
292)
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
29]4
2935
2936
2937
2938
2939
2940
2941
2942

0
DT1
5
OT0A

~00005

U2767
012767
004567
000001
004767
004767
004767
104005
005367
001370
104013

,CALIBRATE DELAY RTN WITH PUNCH,

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

011672

011742
011750
011756
0\1762
0\1764
011770
011774
012000
012002
012006
012010

,7.SWTL
PC. PTMCAL
GETRDY

,GO GET STU TED
,.•..............•..............•..
_............ _ - -•...•....• -......

2874

2875
2876
2877
2878
2879
2880
2881
2882

MOV
TYPE
IM0B
JSR
JSR
JMP

PRG31

PAGE 59

PRG3 • PUNCH TEST
,DT".KSTART
,AODR OF 1ST ROUTINE TO KSTART,
,TYPE TITLE,

,S~TTL

011634
0\1642
011644
0\1646
0\1652
0\1656

2869

2870
2871
2872
2873

09144

PCII PEADER-PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
PRG3 • PUNCH TEST
2971

2973
2974
2975
2976
2977
2978
2979
2980
2981

012254
012256
012262
012266
012270
012274
012276
012300

\8.MAR·76

012500
~04767

012701
005000
004767
005301
001374
000205

09.44

MOV
JSR

172754
000004
172742

MOV

(S).,n
" , HSPCH
'4,U

CLR
JSR
DEC
BNE
RTS

",HSPCH
'I
, -6
%5

PCII READER-PUNCH TESTS MACYlI 27(732)
18·MAR-76
DZPCAE,SRC
PRG4 - PUNCH VERIFY PROGRAM
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
302 I
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037

012302
012304
012306
012310
012312
012314
012316
012320
012324
012330
012336
012344
012350
012354
012356
012362
012364
012370
012372
012374
012400
012402
~I 2404
012406
012410
012414
012420
012422
012426
012430
012432
01H40
012442
012450
012454
~12456

012460
012464
012466
~12470

012472
012474
012476
012502
012510
012512
012516
012520
012522
012524
012526
012530
012536

,MOVE MODE CODE TO R0
,PUNCH MODE CODE,
,PUNCH 4 BLANK CHARACTERS,

09.44

,EXIT,

PAGE 62

,SBTTL
PRG4 - PUNCH VERIFY PROGRAM
,THIS PROGPAM VERIFIES TAPE PRODUCED BY PRG3,
,ANY ERRORS FOUND ARE REPORTED,
TYPH
PRG4.
,TYPE TITLE AND INSTRUCTIONS
IM20

104004
016700
01610'
016334
017025
177777

1~4S

IM6
IM23

-I

00~000

004767
004767
012767
012767
004767
005767
001007
005367
001412
005367
001365
000403
005367
001356
104007
017747
000750
004767
005767
001004
005367
0013 7 0
000764
022767
001416
012767
004561
001362
020011
004567
001400
020024
104007
017764
000715
004767
026727
101407
004567
001400
020103
104007
020031
000700
012767
005067

PAGE 61

002716
171370
000372
000012
170532
167024

167062
167056

ET0A.
ET0B.
ET0C,

167040
16703~

167020
ET0E.
170466
166760

ET0F.

166772
000377

166740

000377
172400

166712

ET0G.

172370

170400
166672

ET0H.
000003

172336

000004
166620

166662

ETeI.

HALT
JSR
JSR
MOV
MOV
JS~

%:',5WTL
PC,RTMCAt.
1250.,CTRA

TST
eNE
DEC
aEQ
DEC
BNE
BR
DEC

",BREAD
CRBUt'
ET0D
eTRB
ET0F
CTRA
ET0C
ET0E
CTRA

PNE

ET~B

ERROR I
EM3
SR
JSR
TST
BNE
DEC
PNE
SR
CMP
BEQ
MOV
JSR
ERRT
ESB
JSR
CRBUF
EWAS
ERROR I
EM4
BR
JSR
CMP
BLOS
JSR
CRBUF
FWAS
ERRORI
EMS
SR
MOV
CLR

;CALIBRATE DELAY RTN WITH READER,
,25~ TO CTRA,(TOTAL CHAR COUNT),

.10"CTRB

ET0A
%7, BREAD
CRBUF
ET0G
CTRA
ET0F
ET0E
U77 .CRBUF
ET01i
1377, ERRT
l5, ACNV4

:READ CHAR
,BRANCH IF NON-ZERO CHAR,
'0 CHAR, OECREMENT CTRB
;BRANCH IF I~ CONSECUTIVE 0'S READ,

,NO. DECREMENT CTRA,
IBRANCH IF NOT YET 250 CHARS READ,
;250 CHARS READ, SyNE ERROR,
; DECREMENT CTRA
,BRANCH IF NOT 250 CHARS READ YET,
;SYNC ERROR, 250 CHARS READ WITHOUT
,A SUCCESSFUL SYNC,
,GO TRY AGAIN,
,READ CHAR
;BRANCH IF NON-ZERO CHAR,
,DECREMENT CTRA
IBRANCH IF NOT 250 CHARS READ YET,
,250 CHARS READ, SyNC ERROR,
,COMPARE CHAR READ TO 377.

J377.0K,
,NOT 377,LEADER ERROR, SET UP FOR
,ERROR TYPEOUT,

\5, ACNV4

,LEADER ERROR, SHOULD BE 317,
ET0A
" , BREAD
CRSUF. #3
ET01
%5,ACNV4

ET0A
If.eTRA
ERRT

,START OVER
,READ CHAR,
,COMPARE CHAR READ TO 3,
,BRANCH IF SAME OR LOWER,
;ERROR, CONVERT DATA READ TO ASCII.
,SET UP FOR TJPEOUT,
ILEADER ERROR, SHOULD BE BETWEEN
,0 AND 3,
,START OVER,
,4 TO CTRA (CHAR COUNT)
,CLEAR ERRT, EXPECTED CHAR IS 0,

IS-MAR-76
PCII READER-PUNCH TESTS MACYII 27(732)
PRC4 • PUNCH VERIFY PROGRAM
DEPCAE,SRC

JUS
3039
3040
3041
3042
3043
3044
3045
3046
3047
3049
3U9
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061

012542
012546
012552
012556
012560
012564
012572
012576
012602
012606
012612
012616
012620
012622
012630
012632
012636
012640
012642
012646
012650
012652
012654
012656

004767
004767
005367
001371
004767
012767
004767
004767
010067
004767
005367
001365
000643
026767
001412
004567
001362
017655
004567
001400
017670
104007
017632
000207

ET0J,

170334
000050
166642
172070
001000
170304
172110
166554
000010
166602
166552

166626
ET0K.

166532

172206

ECHKA.

PCII READER-PUNCH TESTS MACYll 27(732)
PRGS THROUGH PRGI3
OZPCAE,SRC
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3013
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3097
3099
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109

lIl0

ECHK.

172216

09.44

JSR
JSR
DEC
BNE
JSR
MOV
JSR
JSR
MOV
JSR
DEC
BNE
BR
CMP
BEQ
JSR
ERRT
ASB
JSR
CRBUF
AWAS
ERROR I
EMI
RTS

18.MAP-76

" , BREAD
" , ECHK
CTRA
Er0J
",INBIN
.512"CTRA
\7, BREAD
" , GTBIN
U,ERRT
" , ECHK
CTRA
ET0K
ET0A
CRBUF,ERRT
ECHKA
\5,ACNV4

,READ CHAR,
,GO CHECK CHAR READ,
,DECREMENT CTRA
,BRANCH IF HOT 4 CHARS READ YET,
,INITIALIZE SPECIAL BINARY COUNT.
,SET CHAR COUNT TO 512,
,READ CHAR,
,GET BIN CHAR AND STORE AT
,ERRT(HOLDS EXPECTED DATA),
,GO CHECK CHAR READ,
,DECREMENT CHAR cOUNT
,BRANCH IF NOT 512 CHARS READ YET,
,DONE, START OVER,
;COMPARE CHAR READ AGAINST EXPECTED CHAfI:.
,BRANCH IF EQUAL,
,CONVERT EXPgCTED DATA TO ASCII,

,5,ACNV4

,CONVERT DATA

,EXIT

R~AD

TO ASCII,

,EPROR, DATA ERROR,

09'44

,SBTTL

PAGE 63

PAGE &4
PRGS THROUGH

PRGIl

, ** *** .. ** ** .... ** *** .. *..... * ............... * ... *........... *.* ** .. * ... *** .... *.* ..... * **** *** .. *****
,PRG5 • COMBINED READER PUNCH TF-ST, USES SPECIAL

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

012660
012662
012664
012666
012670
012672
012674
012700
012704
al2710
012716
012722
012726
01273~

012732
0127]4
012736
012742
012746
012752
012756
012764
012766
012772
012774
012776
013000
013002
013004
013010
0U012
013014
013016
011022
013026
013032
013036
013040
013046
013050
013052
013060
013066
013070

104004
017252
016334
017025
177777
000000
004767
004767
004767
012767
005067
005067
104011
013240
104012
012766
004767
004767
004767
010177
052777
000777
005777
100004
104003
017456
104010
000771
105777
100402
104007
020161
005267
004767
U0177
105767
100414
026727
103001
000002
052767
0n777
000002
026727

,B I NARY COUNT
TYPES
PRG5.
1"26
IM6
IM23

P~TTERN.

,TYPE TITLE AND INSTRUCTIONS.

-I
002342
171264
171744
177600
000312
000310

HALT
JSR
JSR
JSR
MOV
CLR
CLR
STRDRV
WNZERO
STPCHV
PBIN
JSR

171370

167700
172236
172006
166240
00~100

166230
PBIN,

166222

166204

PBNA.

000212
171732
166164
000200

PBNB.

000170

000024

000200
000101

000156
166122

000140

000050

PBINA.

%7, SWTL
pC, PTMCAL
\7.INAI"
II 77600, STLMSK
PCHCNT
RBUSY

,CALI8RATE DELAY RTN wITH PliNCH,
IINITIALUE BINARY COUNTS,

\7, ARRDY

,CHECK FOR READER READY
;CHECK FOR PUNCH READY
,GET BIN CHARACTER
,PUNCH IT
;EhASLE PTPI

~SET

~AX.

STALL

OEL~Y.

;CLEAR PUNCH COUNT
,CLEAR READER BUSY INDICATOR
; SET PTRI VECTOR,

;5£T PTPI VECTOR.

JS~

\7, CPRDY

JSR
MOV
BIS
8R
TST
BPL
TYPE
5M3
CHALT
BR
TsrB
8MI
ERRORI
EMil
INC
JSR
MOV
T8TB
BMI
CMP
BHI5
RTI
BIS
BIS
RTI
CMP

l7,GTSINP
'1,(iPPB
.8IT6,~PPS

lipps
PBNA

PBIN
~PPS

PBNB
PCHCNT
" , GTSINP
U,'PPA
RBUSY
PBINA
PCHCNT, #20,

,+4
#BIT7,RBUSY
U01,@PRS
PCHCNT, W40,

,TEST FOR ERROR,
;BRANCH IF NO ERROR,
;TYPE PUNCH NOT READY
,MESSAGE,
:RECHECK FOR ERROR,
,CHECK FOR DONE.
,BRANCH IF DONE SET.
,ERROR,FALSE PUNCH INTERRUPT,
,INCREMENT PUNCH COUNT,
:GET BINA~Y CHARACTER
,ENABLE PUNCH
,CHECK READER BUSY INDICATOR
,BRANCH IF READER BUSY
,NOT BUSY, PUNCH COUNT 20 YET?
,BRANCH IF PCHNT 20 OR MORE,
,NOT 20 YET, EXIT INTERRUPT
,SET READER 8USY
,ENABLE PTRI AND READER,
,EXIT INTERRUPT,
,PUNCH COUNT LARGER THAN 40?

PCII READER_PUNCH TESTS MACYll 271H21
DZPCU,IRC
PRGS THROUGH PRGU
lIlI
ll12
lIll
lll4
lll5
lIl6
3117
lIl8
lI\9
l120
ll2l
lI22
lI2l
lU4
]125
l126
lI27
]128
l129
]UII
]Ill

lIU
31]]
lll4
]I3S
lll6
]1l7
]1l8
]139
]140

3\41

ll42

3\43
l144
]145
lI46
ll47
l141
lI49
]1511
ll5l
3\52
]l5l
3\54
]155
3\56
3\57
3158
3159
]\611
]161
3162
3I6l
]164
]165
lI66

"U976
II1lle0
0111114
1I1l11l6
811112
1I1l1l4
II Il 1211
813122
0U\26
BIlIlII
IIUIl2
AUIl4
8\3142
IU146
0U154
BUI56
0U164
IUI66
IIUI74
"1]200
11132112
1113210
0U214
IIU216
013222
011224
1113226
II 112 12
11132)4
1113716
013240
8132t4
O13250
013252
1113254
011262
013270
1113272
1I1l276
013]02
"lll06
1113310
013312
0133\6
013322
HI3324
013326
IIIlH2
0llB4
013316
1113340
II Il 342
III ]]46
IIIl]50
0lllS2
IIll360

111402
005977
000""2
805777
188003
9114767
8"0772
185777
108482
1.4097
n0UII
017767
.,5367
U6727
101024
1132777
""1"03
052777
085767
111118116
1142767
11115077
'0112117
1105767
11114111
11148115
005'77
0110207
0001100
00111100
084167
005767
1101001

"'"002

012777
1112767
11011402
1104767
004767
020067
110U101
0110""2
010067
004567

1661111
PBINB.
CRUD.

1661176
167576
166862

CPDA.

166052
11011066
""0"62

"""037

166216

""018"

lun0

""01""
01111034

166020

110e2110
165774

0011026

lI98
3\99
32011
]201
32n
3203
32114
3205
32116
32117
nll8
32119
3210
3211
3212
321l
3214
3215
3216
3217
3218
3219
322"
3221
3222

1113]66
013174
1113400
013402
1113406
01341 2
1I1l4l6
013420
1113422
013426
01 ]4]0
01l4]6
111]444
01]452

013454
1113456
013460
013462
013464
013472
AllSIIII
11135112
A135111
1113512
IIIl520
1113526
11135]4
0US]6
"ll544
"U546
013554
013556
811560
'U5n
eU566
813572
"ll576
11136112
"11684

CRDlAl

CREADAI

0""014

C~EADBI

165756

CREADC.
PCHCNT,
RBUSY.
WNZERO.

177642
\66130
II1l272
""""0]

165736
166126

177610
171410
166072

RBINI
RBINA.

1661144
1715]2

RBINBI

001162
017655
0114567
"01400
11176711
1941107
11176]2
1105167
0010111

171522

Ihe50

0"0~1I2

1157767
1112777

1112767
11127110
'001102
1104767
1116720
005167
11014111
00111102
B04767
100751
1112777
1112767
042767
1100002

1040114
111700)
016620
177777
012767
1112767
104014
022767
""1765
116767
AU767
012767
1841114

1OO000
011402

177656
165632

11001103
001402

!l8INCI

BLOS
CLR
RTI
TST
8PL
JSR
BR
TaTB
B"I
ERROR I
EII10
MOV
DEC
CMP
Bill
BIT
BNE
B15
TST
BNE
BIC
CLR
RTS
TST
8111
STALL
INC
RTS
OPEN
OPEN
JSR
TST
81lE
nI
MOV
MOV
BR
JSR
JIR
CMP

tpRS
CRDA
'7, T5M2
CREAD
fPRS
CRDAA
"RB,CRBur
PCHCNT
PCHCNT, UI,
CREADC
IBIT6, 'PPS
CRUDA
IBlT6, PPPS
PCHChT
CRUDB
IBlT7,RBUsY
,PRS
,7
RBUSY
CRUDe
"RS
,7
",CREAO
CRBUF
.+4
IRBIN, ,RDRVTR
U,ERCTR
R81NA
" ,CREAD
" , GTBIN
,",C!I8UF

1775011
165766
\66000

H8INOI

DEC
BEQ
RTI
JSP
8R
MOV

171114
1113272
011"""]
1011000

165562
165752
177564

~OV

BIC
RTI

,8RANCH IF NOT LARGER
,LARGER. DISABLE PTPI
,EXIT INTERRUPT.
,CHEC~ FOR ERROR.
,BRANCH IF NO ERROR.
,ERROR. TYPE MESSAGE.
,TEST rOR DONE,
,BRANCH l ' DONE SET,
,ERROR. FALSE READER INTERRUPT,
,CHARACTER READ TO CRBur
,PUNCH COUNT GREATER THAN ]11

,NO,

"TPI ENABLED?
,NO. ~NABLE PTPI.
,PUNCH COUNT 111
,YES. CLEAR READER BUSY.
,DISABLE PTRI.

,EXIT.

,TEST Busr INDICATO~
,STALL?
,YES,
,ENABLE READER
IEXIT,
,RUD CHARACTER
,CHECJ CHARACTER
,BRANCH IF NON. ZERO CHAR.
,ZERO. EXIT INTERRUPT.
,SET READER VECTOR TO READ BINARY
,COUNT. SET ERROR COUNTER TO l.

'II,ERRT
U,ACNV4

'READ CHARACT~R.
,GET BINARY CHARACTER
,COMPARE AGAINST CHAR READ.
,BRANCH IF NOT SA~E.
'SAME EXIT INTERRUPT,
,MOVE EXPECTED CHAR TO EHRT
,CONVERT EXPECTED eHAR TO ASCII

,5, ACNV4

,CONVERT RECUVED CHAR TO ASCll

~RCTR

,3RO ERROR?
,YES.
,NO. EXIT INTERRUPT.
,DISABLE STAL!.S,
,SET PTM VECTOR TO RBIND.

~BINB

'ERROR MESSAGE. DATA ERROR.
RBINC

UITU·, R8UIIY
tR8INO, 'RDRVTR

09.44

"OV
MOV
RTI
JSR
HOV

paGE 6S
P81NB
'PPS

RTI
MOV
JSR
ERRT
ASB
JSR
CRBur
AWAS
ERROR I
E"I
DEC
BNE
RTI
BIS
MOV

I9-MAR-76

166022

PAGE 66
U,ERCTR
.CHRI.U
."CREAD
cnuy, (111+
ERCTR
,+4
"',SYNCA
RBINC
IIIUN, 'RDRVTR
U,ERCTR
181T15, RBUSY

,U5E ~RCTR AS CHARACTER COUNTER.
,ADDR OF CHRI TO U
,EXIT INTERRUPT
,READ CHARACTER
,STORE CHARACTER STARTnG AT CHRI
,]RD CHARACTtR?
,YES.
IEXIT INTERRUPT. NOT 3RD YET,
,GO SYNC THE READER.
,NO SYNC, TRY AGAIN.
,SYNCED. SET READER VECTOR TO RBIN,
,SET ERROR COUNT TO l,
,ENABU STALLS,
,EUT INTERRUPT.

,...•....................................................................
- PUNCHES CONTINUOUSLY ON PTP THE 2 CHUACTi:RS SELECTED
,,PRG6
........................................................................
PRG61
TYPES
,TYPE TITLE

11011004
0211425

165700
0111224

00110114

165662

165646
00111104
02"46]

11000U
165644
""1170

822767

1101111114

165626

801765
116767

165612

'""113\

I~UII]

11171125
11081100
1167011
1104767
1167110
1104767
0118767
110001111

09.44

BN~

PCII READER-PUNCH TESTS MACYII 27(7l21
DZPCAE,SRC
PRG5 THROUGH PRGU
3167
3I6S
3169
lI70
l171
3172
3173
3174
]175
]176
3177
1I78
3179
3180
]181
]182
3183
l\84
]185
1I86
]187
l\88
l189
l\90
3191
3192
ll9l
3194
l\95
3\96
3\97

18·MAR-76

11011016
171444
"""""7
171434

Ifl

2',

IM21
11116
-I
MOV
MOV
OPTSEL
CMP
BEQ
MOVB
MOV
MOV

'~D

INIITRUCTlONS,

I4,COUHT
UCHI.TLX
14,COUNT
II
TMPI,PUNCI
I4,COUNT
UCH2,TLX

OPTS~L

CMP
BEQ
MOVB

TYPE
PRG6AI

1M2]
HALT
MOVB
JSR

Mova

JaR
8R
PUNC II ,WORD II

",COUNT
2.
TMPI,PUNCI+I

PUNCI,.II
",HSPC"
PUNCI+I, . .
",HapCH
PROU

,PUNCH FIRST CHARACTER,
'PU~:H

SECOND CHARACTER,

,REPEU,

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

........................................................................

IPRG7 • READS AND CHECKS TAPE PUNCHED WITH 2 CHARACtERa BELECTED

1I1l6116
111361"
1113612
1113628
813626
'1]6]"

0UU6
1I1l648
IU646

104.11]
11171114
012767
1112767
le4814
1122767
801765
816767
812767

,
PRGll
eee0.4
021617

165552
"'11176

21,

"""I1l84 165534
16552.
.1811114

165556
IUSI6

III

TYPE

11122
MOV
MOV
OPTSEL
CMP
BEQ
MOV
MOV

",COUNT
URDI,TLX
",COUNT
2.
TMPI,eTRC

.. ,coun

PCII READER.PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
PRG5 THRnUGH
PRGI3
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237

3238
3239
3240

3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253

3254
3255
3256
3257

3258

013710
013712
013714
013720
013724
013732
013736
013744
013752
013754
013762
013764
013770
013776
014002
014006
014010
014016
014020

012767
104014
022767
001765
016767
104004
016334
017025
177777
000000
004767
004767
016767
004767
016767
026767
001040
026767
001061
005067
012767
004767
005167
001436
026767
001767
004567

014~24

001424

014026
014030
014034
014036
014040
014042
014044
014050

017655
004567
001400
017670
104007
017632
005367
001723

013654
013662
013664
013672

013674
013702
013704

013706

020654

001042

000004

165500

165464

165524

165424
165432
000003
167100
165414
165364

HT0AI
165450
165440
165452

165420

HALT
JSR
JSR
MOV
JSR
MOV
CffP

165444
HT0B,
HT.CI

165406

171020

HT0D I

165346

BNE
CMP
SNE
CLP
MOV
JSR
COM
SEQ
CMp
BEQ
JSR
CTRe
ASB
JSR
CRSUf
A_AS
ERRORI
!:MI
OEC
SEQ
B~

0140~2

00~751

014054

3261
3262
3263
3264
3265
3266
3261
3268
3269

014064
014072
014074
014102
014104
014112
014114
014120
014122
014124
014126
014130
014132

026767
001021
026767
001015
012767
000732
026767
0017 31
004567
001426
017655
000741
104"07
020110
000672

165322

~14062

014134

005067

165226

165344

HT0EI

CMp
ANt:

165314

165332

177777

165320

165270

165314

CMp
BNE
MOV
BR
HT0fl

C'~P

SEQ

JSR
CTRD
ASB
BR

170734

HT0G,

PAGE 67
#SRD2,TLX
14,COUNT
U
TMPI, CTRD

\',SoTL
,7,BREAD
CRBUf,CHR!
,7,BREAD
CRBUf,CHR2
CHRI, CTRC
HT0E
CHR2,CTRD
HT0G
CTRB
13, ERCTR

,MATCH CHARS ON TApE AGAINST EXPECTED CHARS,
I READ CHAR INTO CHRI
I READ CHAR
,INTO CHR2
, (CHRI)=(CTRC l?

,NO,

CTRS
HT0F
CRBUF,CTRC
HT0C
%5, ACNV4

IYES, (CHR2)'(CTRD)?
INO. MATCH ERROR.
,YES, NEXT CHAR SHOULD. (CTRC) (CTRB'0)
13 TO ERROR COUNTER,
IREAD CHAR
ICDMPLEMENT CHAR INDICATOR
(CTRD)
,BRANCH If EXPECT!:D CHAR SHOULD
,(CRBUf)
(CTRC)?
/YES,
,NO, (CTRC) TO ASB IN ASCII FORM,

%5,ACNV4

,ICRBUf) TO A_AS IN ASCII fORM,

ERCTR
HT0A
HT0C
CHRI,CTRD
HT0G
CtlR2,CTRC
HT0G

,3 ERRORS?
,YES. START ALL OVER,

~7,BREAD

,ERROR I CALL. TYPE DATA ERROR MESSAGE.

#-l,CTRB

HT0B
CRBOF', CTRD
HT0C

JNO, CONTINUE READING,
,(CHRI) :

(C'IRDl?

;NO, MATCH ERROR,
,yES,

(CHR2) :

(CTRC)?

,NO, MATCH ERROR,
,YES, NEXT CH4R SHOULD: (CTRD)
,GO START RE~DING,
ICCRSUf) • ICTRD)?

,YlS. OK, CONTINUE REAOING.

%5, ACNV4

,NO. ICTRo) TO ASB IN ASCII fORM,

HT0D

,GO GENERATE ERROR MESSAGE,
,"ATC~ ERROR. UNABLE TO MATCH UP
,2 CONSECUTIVE CHARACTERS fROM READER
'TO CHARACTERS READ fROM SR.

E"RO~I

EM6
SR

HT0A

,*
.......... * •••• * ••• ***.** •• *••••••• *** •••• * ••••• *.* •• *.*******************
,PRGI0 • READ X CHARACTERS, STALL Y
MILLIS~CoNDS.

J * ...... **4* ..................................................... olio .......................................

PPGI~1

PCII READER-PUNCH TESTS MACYII 27(732)
PRGS THROUGH PRGI3
DZPCAE,SRC
3279
32B0
328 I
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
33el
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330

014140
014142
014144
014152
014160
014162
014170
014172
014200
014206
014214
014216
014224
014226
014234
014236
014240
014242
014246
014252
014256
014264
014272
014276
014302
014304
014310
014312
014314
014316
01432e

3331

014372
014400
014406
014410

3332
3333
3334

MOV
OPTSEL
CMF
BEQ
MOV
TYPES
IM6
IM23

171030

3259

327~

09144

-I

001322
167156
165450
167144
165436
165432

326~

3271
3272
3273
3274
3215
3276
3277
3218

18-MAR-76

104003
016643
012767
012767
104014
022767
001765
116767
012767
~12767

104014
022767
001765
116767
104003
017025
000000
004767
0e5067
005067
116767
116767
004767
le5367
0013 7 3
e057b7

000004
020375

165220
000544

000004

165202

165166
000004
020357

165166
165164
000510

CLP

18-MAP-76

IS,

09,44

TYPE
IM17
MOV
MOV

T",P2

*** ** **** ...... ** .......... * ... ** ... *' ** ... ** ............ ...

PAGE 69

fl:4,COUNT

#SNUMCR,TLX

OPTS~L

000004

165146

165132

165133

167452
000042

26'

ITA'

0~0042

1&5105
165076
166364
000016

Move

000030
000026

MOVB
ITBI

000004

001756
104000
000000
00e7S3
000000

CMP
SEQ
Move
MOV
MOV
OPTSEL
CMP
SEQ
MOVS
TYPE
IM23
HALT
JSR
CLR
CLR

ITY I
ITXI

JS~

DECB
BNE
TST
BEQ
DELAY
OPEN
BR

#4,CQUNT

1$
TMPI, TMP2
H,COUNT
USTALL,TLX
I4,COUNT
2$
TMP1,TMP2tl

PC, RTMCAL
lTV
lTX
TMP2+I,ITY
TMP20lTX
\7, AREAD
ITX
ITA
lTY
ITA
ITA

,CALIBR~TE

oELAV RTN WITH READER,

,MOVE STALL COUNT TO ITY,
,MOVE CHAR COUNT TO ITX,
,fETCH CHARACTER.
,DECREMENT CH~R COUNT.
IBRANCH IF COUNT NOT 0,
,DEL~Y COUNT • ~?
,SA Ir YES.
IREAD CHARS. STALL NOW,
,STALL COUNT IN MSECS,
,REPEAT

O~~N

,************************************************************************

,PRGII. PUNCH SPECIAL BINARY COUNT PATTERN TEST TApE
014322
014324
014326
014330
014332
014334
014336
014342
014344
014350
014352
014354
014360
014364
014370

104004
015653
016620
017025
177777
000000
012746
005000
004767
005316
001374
004767
004767
004767
000773

,***********-************************************************************

TYPES
IM0C
IMI6
1"23
01
HALT
MOV
CLA
PRGIIAI JSR
DEC
BNE
JSR
PRGIIBI JSR
JSR
BR

PRGIII

000024
170666
170274
170326
170646

,TYPE TITLE AND INSTRUCTIONS,

12e,,-(6)
U
" , HSPCH
n6
PRGIIA
",INBIN
",GTBIN
\1,HSPCH
PRGIIB

,INITIALIZE SPECIAL BINARY COUNT
,GET BINARY CHARACTER,
, PUNCH CHARACTER
,REPEAT,

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

,PRGI2 • READER SPEED PRINT LOOP
012767
012767
104014
104003

,WAIT FOR USER
IPUNCH 20 BLANK CHAR, LEADER

000004
020340

164772
000316

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

PRGI21

MOV
MOV
OPTSEL
TYPE

If,COUNT
UTIME,TLX

PC II READER_PUNCH TESTS MACri I 27(732)
PRG5 THROUGH
PRGI3
DZPCAE.SRC
3135
3136
3337
3319
3339
3340
3141
3142
3143
3344
3345
3H6
3347
334B
3349
3350
3351
3352
3353
3354.
3355
3356
3357
JJ5B
3359
3360
3361
3362
3363
3364
3365
3366
3367
336B
3369
3370
3371
3372
3373
3374
JJ75
3376
3377

117B
3379
33B"
3381
3382
3383
3384
33B5
33Bb
3387
33BS
33B9
3390

014412
014414
014416
014422
014426
014432
014440
014442
014450
014456
014460
014464
014470
014472
014476
«j, ~C' '4
! "" .110
014512
014516
014520
014522

020521
000000
005067
005067
005077
032767
001403
012767
062767
000407
004767
005367
001005
005267
016767
105777
100363
004567
017501
000000
000723

165002
164714
164b00
000200

Ib4724

000416
000036

164754
164746

KTAI

166176
lb4730
164724
164722
164520

34~8

3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
342~

3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
343B
3439
3440
3441
3442
3443
3444
3445
3446

KTBI
KTC I

164714

KTDI
KTEI
KTFI

000100

09,44

SSKEY
HALT
CLR
CLR
CLR
BIT
BEQ
MOV
ADD
SR
JSR
DEC
aNE
I"C
MOV
TSTB
BPL
JSR
SM4
HALT
SR

PAGE 69

CTRC
CTRB
nKB
#BIT7. TMPI
KTB

#270"CTRC
#10.,CTRC
KTD
\7.AREAD
CTRA
KTE
CTRS
CTRC.CTRA
@TKS
KTC
%5, CPKPL

,CLEAR WORK REGISTERS

: 30" SECOND TIMING IS DESIRED

,SET UP fOR DESIRED TIME BASE,

,READ CHARACTER,
,DECREMENT CTRA
:BRANCH IF CTRA NOT 0,
JCTPA0.+1 TO eTRS.
,RELOAD CTRA,

,NO,
,GO THE OUT DEVICE SPEED,

PRG12

;*********************************************************** •• ***********
,PRGI3 014524
014526
014530
014532
014534
014536
014540
014544
014546
014552
014554
~14560

014564
014566
014572
014600
014604
014606
014612
014614
014616
014622
014626
'H4030
014634
014636
014640
014642
014644
014646
014650
014652

PRG1 ] I

164656

LTA'

164460
170456
164634
164630
000074
164424

LTB:

164620

LTE:

000022

:PKPL:

17~430

170332

~00003

005077
005077
005067
105777
1"" 3 75
317767
105177
100J75
116717

014722
014724
014726
014732

104003
000000
0050b7
104016
104017
000775

~14734

014736

014740
e14746
014154
014756
014760
014762
"'4770
014772
014774
015000
015002
015010
015012
015014
015016
015020
015022
015030
015032
"15040
015042
015050
015052
015054
015056
015060
015064
01507~

015074
015102
015110
015114
015116

LTCI
LTDI

000004

104004
000000
017544
177777
'00205

014654
014660
014664
014670
014674
014676
014704
014710
014712
014720

CTR"

~HALT. wA IT FOP USER,
, CLEAR WORK AREAS.

PTKA
LTC

%',HSPCH

;PUNCH A 0

CTRA
LTO
CTRB
.6et.,CTRA
@TKS
LTB

,Df.;CREMENT CTRA
;BRANCJ.i IF CTRA NOT 0
: INCHMENT CTRa,
,MOVE 60 TO CTRA
,TIME UP?

1;S,CPKPL

,GO TYPE OUT DEVIC. SPEE:D.

Ln-2
MOV
CSl+.CPKPLA
JSR
%S,BDCNV
CTRB
JSH
%:5, B~1QVE
OECVAL+2
ACPS
3
TYPES

NO.

;GO HALT AND RiADY UP FOR NEXT TIM':,
, MOVE ADOR OF 1 ST '~ESSAGE TO CPKPLA,
:CONVERT (CTRa) TO DECIMAL ASCII.
;MOVE ]

1"4350
164346
164504
164334

18 .. ~1AR.'" 6

TTl" I
1$ I

164330
164324

164470

164456

164316

2$ :

09144

CLR
CLR
CLR
TST8
BPL

: E:XIT.

PAGE 70

RIKS
@lKa
TIB
@TK5

MQV

(aTKS, TIB

TSTR
BPL

RTPS
2$

Move

TIB,@TPB

RTl

OPTS:
TLX:
164432
1$,

177600
0~0007

lb4426
164420

VALINPI

000025

164404

11 S I

TYPE
OPEN
CLR
TTVIN
VALID

TMPI

BIC
CMPB
BNE
CNTL
BR
CMPB
BN~

b$ I

M0016
000015

164364

1 $,

POPSP2
SUB
RT!
CMPR
SNE

961
000012

164344

4$ I

0000b0

164334

2$,

000067

164324
581

164300
164214
164270
177770
164266
164256

15 I

164272
164254

TYPE
$CRLr
POPSP2
RT!
CMPR
BEQ
CMPB
BGT
CMPR
aGE
TYPE
SQUEST
BR
ASL
ASL
ASL
RIC
BIS
DEC

SEQ
RT!

1177600, TIB
#7,TIB

-liS
66

.25,TI8
1$
H6. (SP)
015.TIB
4$

112.TIB
5$

.60,TIB
56
167.TIB
7$

6S
TMPI
TMP1
TMPI
1117770,TIB
TIB,TMP1
COUNT
5$

DECIMAL CHARS TO PRINTOUT AREA.

;T'tPE DEVIce; SPEED.

-I

~H~ 1004

022b26
167716
000002
122767
001004
104003
020230
022626
000002
122767
001410
122767
003004
122767
002003
104003
020232
000745
006367
006367
006367
042767
056767
005367
001756
000002

HALT
CLR
CLR
CLR
BR
JSR
DEC
BNE
INC
MOV
T3T6
RPL
JSR
S"5
8P.

RTS

~01002

104015
000404
122767

,TYPE TITLE AND INSTRUCTIONS,

CPKPLA: OPEN
ACPS

"00~02

"42767
121767

TYPES
1"25
IM16
$SKEY

-I

00~000

005067
005000
005077
000407
004767
005367
001005
005267
012767
105777
100363
004567
017523
000753
012567
O04567
001422
0045b7
015260
017544

PUNCH SPEED PRINT LOOP

; *..... * .. * ... * * * .. * .. * *................ * ........ * * * ......... *.... * ** *.. -If * ..... * .. ** ** .... *...... *** ** .... *.. * .. *

104004
011221
016620
020521
177777

PCI! READER-PUNCH TESTS MACYI I 27(732)
DZPCAE,SRC
PRG5 THROUGH
PRG13
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407

I B.MAR.76

PCII READER-PUNCH TESTS MACYII 27(732)
PM5 THROUGH PRGll
DZPCAE,5RC
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3459
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
347B
3479

015120
015124
015126
015134
015142
015150
015152
015154
015156
015164
015170
015172
015174
015176
015200
015202
015204
015212
015220
015222
015230
015232
U5240
015242
015244
015246
~15250

015252
015254

105777
100045
017767
042767
022767
0010l)
1040B]
020223
017767
004567
001364
020236
104004
020304
020236
177777
012767
012767
104014
022767
001403
016777
000002

164104
164100
177600
000007

164240
164232
164224

164022
167636

164200

020273
000007

177512
164152

000007

164142

164126

163744

015363
015453
177777
104015
000207

PCII READER-PUNCH TESTS "ACYl I 27( 732)
DZPCAE,SRC
34B0
34BI
3482
3493
3494
3485
3496
3497
34BB
3489
3490
3491
3492
3493
3494
3495
3496
3497
3499
3499
3500
3501
3502
3503
3504
3505
3506
3507
350B
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3529
3529
3530
3531
3532
3533
3534
3535

CKSWRRI T5T8
BPL
MOV
BIC
CHP
ANE
TYPE
$CTLG
HOV
CNTLU'
JSR
TMPI
SVALUE
TYPES
,SWREQ
SVALUE
-I
MOV
MOV
OPTSEL
CMP
BEQ
HOV
RTI
OUT'
SWTL'

104~04

09,44

19.MAR-76

TYPES
CM4
CM4B
-I
CNTL
RTS

I B_MAR_7 6

PAGE 71

UKS
OUT
UKB, TIB
1177600,TIB
.7,TIB
OUT

@SWR,TMPI
'5, ACNV6

UNEW,TLX
.7,COUNT
n,COUNT
OUT
TMP1,aSWR

09.44

PAGE 72

.SBTTL

015256
015263
015264
015267

020040
007
025045

~15274

051117
050040
046501
041505
100
045
051117
051040
042516
041505
100
045
041505
044523
051123
047511
045
046101
040522
044440
044124
123
030060
100
045
047101
047522
027105
020070
043505
051440
021445
020056
051105
041511
051524
021445
020056
020110
020103
027123
045
027063
044103
027124
045
030461
047125
052124
040524
047105

015302
015310
015316
015324
~15325

015132
015340
015]46
015354
015362
015363
015370
015376
015404
015412
015417
015424
015432
015440
015446
015453
015460
015466
015467
015474
015502
015510
015516
015524
015532
015540
015546
015554
015562
015570
015574
015602
015610
015616
015624
015627
015634
015642
015650
015653
015660
015666
015674
015702
015710

~4S

020040
U0
044443
042522
047522
051440
042524

040
041516

DECVAL, ,ASCl!
APGEND, ,BYTE
, ASCl!
CH2.
, ASCII

' , . INCORRECT PROGRAM SELECTED,.'

'%*IiI'

~52103

051107
04&105
027104
SELECTED,~'

044443
042522
052517
051440
042524

041516
052103
044524
046105
027104

CM3,

,ASCl!

'UINCORRECT ROUTINF

05144]
020124
042522
047440
05151&
047516
047440
044524
020123
040040
051127
030060

046105
042504
020104
052120
056
046522
042520
047117
044527
040
030075
020060

CM4'

,ASC II

'''SEI,ECT DESIRED SR OPflONS,'

,ASC I I

"NORMAL OPERATION IS WITH

CM4B,

,ASCII

'SW~=000000

037443
040525
052125
041040
051450
020051
052105
051120
042522
046040
052040
040056
051120
052520
047514
042524
100
050043
050040
052040
100
050043
020056
020124
051105
042520
051105

046440
0201 \4
047111
052111
051127
051511
040056
030107

CM5'

,ASCl!

'U1 MANUAL ROUTINE. BIT8 (SWREG) IS SET.@'

IM0.

,ASCII

"'PRG0, READER LOGIC

031107
041516
044507
052123

IH0A,

,ASCII

·"PRG2. PUNCH LOGIC TESTS,@'

043522
047125
051505

IH0a,

,ASCII

"'PRG3. PUNCH TEST,"

041522
047503
040520
020116
043440
052101

IHeCI

,ASCII

"'PRGII, COUNT PATTERN TAPE GENERATOR,@'

TESTS,~'

~42101

043517
051505

PC II RUDER-PUNCH TESTS MACYII 27(732)
DZPCAE,SRC
3536
3537
3539
3539
3540
3541
3542
3543
3544
3545
3546
3547
3549
3549
3550
3551
3552
3553
3554
3555
3556
3557
3559
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3579
3579
3590
3591
3582
3593
3584
3585
3596
3587
3599
3599
3590
3591

015716
015722
015730
015736
015744
015752
015756
015764
015772
016000
016006
016014
016022
016030
016036
016044
016051
016056
016064
016072
016100
016105
016112
016120
016126
~16134

016142
016150
016156
016164
016165
016172
016200
016206
016214
016215
016222
016230
~16236

016244
016252
016260
016266
016271
016276
016304
016312
016320
016326
016334
01634~

016350
016356
01636.
016366
016374

051117
051445
020120
051105
047506
035123
047520
043117
043106
026105
040524
047520
047117
026506
020054
050101
120
047440
026516
020054
050101
045
020105
047440
020124
044440
042101
044506
0~2522

040
123
020104
047502
044440
123
045
051040
042440
043117
042504
051505
~S0040

~22456

120
047440
026516
010054
044440
042101
046445
042522
051040
040056
021445
020056
051105

04~056

052105
042522
040440
046114
040040
042527
026106
046055
047040
042520
042527
020054
044514
047516
027105
053517
026116
044514
047516

~52440

3~06

3607
3609
3609
3610
3611
3612
3613
3614
3615
3616
3617
3619
3619
3620
3621
3622
3613
3624
3625
3626
3627
3628
3629
3630
3631
3612
3633
36)4

3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647

016402
016405
016412
016420
016426
016434
016442
016450
016456
016464
016467
016474
016502
016510
016513
016520
016526
016534
016536
016544
016552
016560
016566
016567
~16574

016602
016610
016616
016620
016626
016b34
016642
016643
016650
016656
016664
016672
016700
016706
016714
~\6722

016730
016732
016740
016746
016754
016762
016770
016772
017000
017003
017010
017014
017022
017025
017032

027124
045
051040
020122
044514
051445
~20120
~2011.

046117
020072
120
047440
047516
027105
120
047440
020117
040056
~47520

047117
042520
052520
100
045
042526
320105
~50040

040056
046445
052520
042522
100
045
030061
040505
051440
054440
021H5
020056
020110
054506
027124
046045
042522
053440
040524
047522
020104
054502
027063
045
012466
021445
021445
045
020123

IMII

,ABCII

"S~T

1"21

• ABCII

·POWEP orr, orr-LINE, NO TAPE.9'

IM3I

,ABCll

'POWE~

IM4.

• ASC II

'POWEP ON,

IM4BI

• ABC II

"PLACE PRG3 OUTPUT TAPE IN KEADER, rIftST RUDOUT '

~EADER

AS FOLLOWS. "

042101
020123
053517

051105
051522
047502

020122
047440
047111
020117
040056
020122
043117
042516
052040
100
051105
047440
042516
052040
100
041501
031507
052520
042520
042522
020056
020124
052125

047510
042502
052125
041516

046125
040440
031440
042510

,Asell

'SHOULD 8E ABOUT 3

051106
043511
043504
051040
020122
052523
040514
100
053517
026116
044514
040524
020116
051105
045501
042101
040505

046517
052110
020105
040505
051120
042522
042524

,ASCII

"FROM RIGHT EDGE or PEADER PRESSURE PLATE""

IM51

,ABC 11

'POWER ON, ON.LINE, TAPE IN REAPER."

IM6.

,ASCII

.. ,MAKE READER PE:ADY, II"

051120
042522
052040

030507
042101
051505

IM7.

, ASCII

"\'PRCI.

~27105

046120
051120
052125
~40524
~20116

051105

100
052524
040505
043117
042516
052105
052520
051501
047514
100
053517
043106
052040
100
053517
026116
040524

ON,

O'F-LIN~,

ON.~lN~,

TAPE,~'

NO TAPE,"

INCH~S'

04744~

042516
04252~

042522
040056
020105
051105
054504

PCII REAOE~·PUNCH TESTS MACYlI 27[ 732)
DZPCAE,BRC
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605

PAGE 7J

09.44

!8.MAR-76

I9·MAR-76

09.44

PEADE~

TEST,.'

PAGE 74

047122
042504
026506
040056
052440
041516
043040
051527

IMI0.

,ASCll

'\TUpN

I M11.

• ASCII

"SET UP PUNCH AS FOLLOWS • P'

051105
020054
050101

1"12.

, ASCII

"POWEP orr, NO TAPE,'"

051105
047040
042520

I MI3'

, ASCII

"POWER ON, NO TAPE,e"

042527
020054
044440
041516

020122
040524
020116
027110

IMI41

,ASCII

'POWER ON, TAPt IN PUNCH,"

042522
052040
051106
047125

047515
050101
046517
044103

IMI5.

,ASCII

'tREMOVE TAPE FROM PU-CH,"

045501
041516

020105
020110
027131

IMI61

,ABCll

"MAKF. PUWCH READY,P'

050043
026440
020104
040524
022456
051120
052520
042526
052040

043522

IMI7.

, ASCII

'"PRGI0 • READ X, STALL Y,""

1"201

,ASCII

'''PAG4, PUNCH VERU'Y TEST,'

040517
042101
052111
042520
052504

020104
051105
020110
050040
042503

,ASCII

"LOAD READER

050040
100
050043
040043
051120
100
051120
04750]

043522

~42101

READ~R

orr.L INE. a'

05104~

026130
046114
040043
032107
041516
044522
051505

~ITH

,ASCII

-BY PAGl.'-

043522

1M2 II

,ASCII

·UPRG6 . . . •

033507

1"22'

,ASClI

'"PRG'''''

051505
052116

1"231

,ASCll

"PRESS CONTINUE."

TAPE PRODUCED '

PCII READER-PUNCH TESTS MACYll 27(732)
DZPCAE,5RC

3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3659
3659
3660
3661
3662
3663
3664
3665
3666
3667
3669
3669
]670
3671
]672
3673
3674
3675
3676
3677
3679
3679
3680
]6B I
3682
369 J
3694
]685
3696
3687
3689
3699
3690
3691
3692
3693
3694
]695
3696
3697
3698
3699
3700
3701
3702
3703

017040
011046
017054
017062
017070
017076
017104
017112
017120
017126
017134
017142
017150
017156
017164
017172
01 7 20~
01720.
017214
"17221
017226
017234
017242
017250
017252
017260
017266
017274
"17302
017310
017315
017322
017330
017336
017344
017352
017360
017364
017372
017400
017404
017412
017420
017426
017433
f1l7440
017446
017454
017456
017464
017472
017500
017501
e 17506
017514
017522

047111
021445
027062
051440
052040
046045
047101
042520
020120
040505
047101
042513
054504
050045
041440
052516
051440
052~40

027107
045
031461
020120
020104
040056
021445
020056
047111
040505
052520
042524
045
050040
051040
020054
020110
020113
051105
047514
020116
051105
051045
020122
020122
J42523
045
051105
051040
040056
021445
020110
042522
100
045
042504
042505
100

042525
051120
050040
042520
051505
040517
020131
046040
047111
042504
020104
051040
022456
042522
047117
020105
040524
046511
021445
050043
020~56

050123
042524

040056
030507
051124
042105
027124
020104
040524
047517
051040
020122
040515
040505
040043
051523
044524
047524
052122
047111
100
043522
052120
042505
052123

017523
0\7530
017536
017544
017552
017560
017566
017570
017576
017602
017610
017612
017620
017623
017630
017632
017640
017646
017654
017655
017662
017670
017675
017702
017710
017716
017724
017727
0177 34
017742
017747
017754
017762
017764
017772
020000
020006
020011
020016
020024
020031
020036
020044
020052
020060
020064
020072
020100
020103
020110
020116

045
044103
0421J5
n0040

040510
051105
040056
021445
320122
020040
020124
020040
041520
040

09.44

PAGE 75

, ABC II

'UPRG12, PTR SPEED TEST,'

, ASCII

"LOAO ANI TAPE LOOP IN READER '

• ASC 1 I

'AND MAKE

IM24A.

,ASCI I

"PRESS CONTINUE TO START TIMING.!UIJ'

IM25.

,ASCll

"'PRGI3, PTP SPEED TE5T,9'

1M2.,

,Ase II

'UPRG5, COMBINED

, ASCII

',MAKE

,ASCll

'LtlAD IN READER.llI "

IMH.

REAOY.'#~·

~EADER·PUNCH

051120
04750]
042105
042504
041516
052123
040515
047125
040505
052520
046102
042514
020054
042101
042522
040056
040505
051105
044502
027124
042522
047040
040505

032507
041115
051040
026522
020110
056
042513
04410]
054504
041516
047101
042101

042504
047522
020124
100
042101
052117
054504

SMI'

,ASC I I

"PEADER ERROR BIT SET I@'

5M2.

,ASCIl

'%READER

052520
047516
012101

041516
020124
027131

SM3.

,ASCII

".PUNCH NOT REAOY.@'

051043
020122
020104

040505
050123
020072

SM4.

ASC I I

'UPEADER SPEED. ~'

09.44

PAGE 76

044440
042101

PC II READER-PUNCH TESTS MACHI 27(732)
DZPCAE,SRC
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
372 I
3722
3123
3724
]725
3726
3727
3728
]729
3730
3731
3732
3733
3734
3735
3736
3737
3739
3739
3740
3741
3742
3743
3744
3745
3746
3747
]748
]749
3750
3751
3752
]753
3754
]755
3756
3757
]758
3759

18-MAR-7b

050043
051440
0]5040
020040
051522
05144"

047125
042520
04004.
041440
050040
041505

051105
020120
0211040
020040
040
020040

19.MAR-76
SM5 :

• ASC 11

ACPS'

• ASC 11

047522

E~0:

.ASCII

020040

APNUMB.

• ASC I I

020040

ATNUM8 : ,ASC Il

02004.

APC.

,Ase I I

040524
051117
035102

E~I

• Ase II

0,0040
020072
100
042522
051122
030440
040505

ASS.

,ASC II

AWASs

• Ase I J

PU~CH

~OT

READX, PUNCH 8LANK LEADER,

READY.iI'

".PUNCH SPEED

•

CHARS PER SEC,ti'

".ERROR P ,

T
PC '
~

040~40

020040
04244.
020040
040
040
~53440

320040
040
042101
051117
052123
035104
040
0H440
020040
040
042440
040056
046045
020122
02712.
035102
040
053440
020040
045
051105
051117
020102
042505
020060
027063
035040
040
046440
042440

040504
0~1122

027523
020040
051501
020040
042522
042440
020056
051040
040
020040
051501
020040
054523
051122
040505
051105
020040
040
020040
051501
020040
042514
042440
020056
042502
020116
047101
053440
040
020040
052101
051122

020040
020072
100
041516

EM2'

• Ase 1 I

UATA ERROR

SIB.

WASt
~,

REREAD

E~RO'R.

1ST READ'

ORGRD.

,ASC I I

SUBRD.
EM3'

,ASCII
,ASCII

' SYNC ERROR,@'

042504
047522
027523

EM4.

,~SCII

'UEADER ERROR,

020040
020072
100
042101
051122
027523
053524

ESB.

,ASCII

EWAS.
EMS.

,ASCII
,ASCII

'%LEADER ERROR, SIB BETWEEN '

,ASCII

'0 AND 3. WAS.

,ASCII
• ASC I I

WAS.
~,

0511P

020104
051501
040040
044103
040056

FWAS.
EM6.

WAS.

SIB.

MATCH ERR.f'

.EVEN
020124
020126
020134
020140

003407
021445
051116
043040

EM71
052120
040120
046101

020122
042523

EMI0.

TEST.'

3407
,ASCII

'UPTR NRP@'

,ASCII

• FALSE RDR, INTR9'

,DOUBLE BELL,

PCII RUDER-PUNCH TUTS MACYlI 2717]2)
DZPCAE,SRC
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773

3774
3775
3776
3777
377B
3779
HB0
37BI
37B2
37B3
37B4
3785
3786
37B7
37B8
3789
3790
3791
3792
3793
3794
3795
3796
3797
379B
3799
3B00
3801
3802
3803
3B04
3B05
3B06
3801
3808
3B09
3810
3B11
3BI2
3813
3814
3915

020146
020154
020161
020166
020174
0202B1
020206
020214
020222
020223
020230
020212
020236
020244
020246
020254
020262
020270
.020273
020300
020304
020312
020314
020322
020330
020336
020340
020346
020354
020357
020364
020372
020315
020402
020410
020416
020424
020425
020432
020440
020446
020454
020462
020463
020470
020476
020504
020512
020520
020521
020526
020534
020542
020550
020556
020564

051040
047111
040
020105

051104
051124
040506
052520

H7I11

051124

045
042440
020106
100
045
040045
037445
020040
040040
051445
020124
047111
020056
040
020075
021445
040040
042445

051120
042116
040520

020056
100
051514
020116
100
031507
047440
051523

043536

040045

040043
020040

020040

05004~

046501
040040
042445
052040
020107
045
020122
320114
045
020122
041501
047503
100
045
044103
020117
020110
044511
100
045
044103
020117
020110
044511
100
045
051523
044524
044127
040505
052123
040440

020572
020600
020606
020614
020617
020624
020632
020640
020646
020654
020662
020670
020676
020704
020711
020716
020717
020724
020732
020736
020744
020752
020156
020764
020772
020773
021000
021006
021014
021020
021026
021034
021042
~21050

054505
047105
052040
022507
045
344103
020117
024040
024511
031045
04051"
051040
040450
020051
045
040
040
020040
022524
025045
026504
047516
020040
040510
100
045
042116
026461
026501
041520
040505
0S252~

042524
040043
0~0001

09144

PAGE 77

EMili

,ASCII

• FALSE PUN INTU'

P3ENDI

,ASCII

'%PRG3 END or PASS@'

SCTLG.
,ASCII
SCRLFI
,ASCII
SQUEST. ,ASCII
HALUE. ,ASCII

',-G,@'
.,'
.
'1\1""

041505
052125
047516

SRTN.

, ASCII

'UELECT ROUTINE NO,

046105
047522
020105
100
047040
"40040
053523

053505

SNEW.

,ASCII

NEW.

036522

$SWREQ. ,ASCII

'\#SWRII

052116
047522
047040

051105
051107
027117

SSTEST. ,ASCII

'\ENTER PROGRAM NO,

052116
046511
100
047105
052123
100
047105
044103
042524
047125

051105
047111

STIME.

'\ENTER TIMING

042524
046101

'STALL I ,ASCII

'%;ENTER STALL @'

042524
051101
020122
020124

GNUMCR.

,ASCII

"ENTER CHARACTER COUNT

051461
051101
052520
040450
020051

020124
05204.
041516
041523
020075

SCH11

,ASC 1I

'%IST CHAR TO PUNCH (ASCII) • 9'

047062
051101
052520
040450
020051

020104
052040
041516
041523
020075

SCH2.

,ASCII

-%2ND CHAR TO PUNCH (ASCII) • @'

050040
041440
052516
047105
054504
044522
054516

042522
047117
020105
051040
021445
042513

S SKEY.

, ASCII

• A5C I I

'STRIKE ANy KEY AT END OF

040440
020104
046511
100
051461
051101
042522
051501
036440
042116
020122
040505
041523
020075
050043

ASC I I

(a'

PRESS CONTINUE wHEN READY\.,

TIMING,~·

~45440

PC 11 READER-PUNCH TESTS MACYlI 27(732)
DZPCAE,SRC
3816
3817
381 B
3919
3820
3821
3822
3923
3824
3825
3B26
3827
382B
3B29
3830
3831
3832
3833
3834
3835
3836
39 J7
3939
3839
3840
3941
3842
3843
3944
3B45
3846
3B47
3B48
3949
3950

I8·MAR.76

18.MAR.76

0~144

PAGE 7B

020124
043117
047111
020124
052040
042101
044503
040040
041440
047524
020104
044511
100
036503

SRDI.

• Ase 11

'\IST CHAR TO READ (ASCII) • @.

'RD21

,ASCII

"2ND CHAR TO READ (ASCII)

PCHLTI

, ASCII

-"PCe '

020040
044055
040043
025052
052122
020056
020040
052114

020040
046101

GWAS.

, ASCII

047105
020116

ENDRTNI

,ASC I I

',***ENO.RTN NO,

026440
021445

RTNNI

,ASC 1I

-HALnU'

046443
041505
055104
022505
0J0461
042504
041516
052123

044501
030455
041520

STITLE.

• ASe I f

".MAINDEC·II-DZPCA-E\'

,ASCII

'PCII READER-PUNCH TE5TS%U'

051040
026522
020110
022523

.ENO

= @'

.. HALT!UP'

PCII READER-PUNCH TESTS MACYII 27(732)
sYMBOL TABLE
DZPCU,SRC
ACHV
ACNVB
ACHVC
ACHVM
ACHVX
ACHV4
ACNY6
ACP5
ADTENP
APC
APGENO
APNUMB
ARDA
ARDB
ARDER
AREAO
ARUDI
ARROY
ARRDYA
ASB
ATNU~B

AT0

ATeA
UeE
ATI
AT1A
AT1!
AT10
AT10A
ATI0E
ATII
ATIIA
ATI2
ATI2A
AT12EI
ATI2E2
ATI3
ATl3A
ATl4
AT14A
ATl4C
AT15
ATISA
AT1SE
ATI6
ATI6A
ATI6B
AT16E
ATI7
ATPA
AT17B
ATI7E
AT2

005\12
005046
005074
005126
005119
005054
005026
017544
005364
017623
015263
B(7602
002672
002710
002530
002662
002666
092642
002654
017655
017612
005432
005450
005456
005462
005500
005506
006104
006114
006134
006140
006162
006174
006204
006236
006242
006246
006256
006314
006324
006366
006376
006406
006442
006446
006456
0~6506

006524
006530
006540
006556
006602
005512

AT2A
AT20
AT20A
AT20B
AT20X
AT21
AT21A
AT21B
U21E
AT22
AT22A
AT22E
AT23
AT23A
AT23S
AT23E
AT24
AT24A
AT24C
AT24D
AT2nl
AT24E2
AT25
AT25A
AT2SB
AT25E
AT26
AT26A
AT26B
AT26EI
AT26E2
AT27
AT27A
AT27C
AT270
AT27El
AT27E2
AT27E3
AT)
AT3A
AT30
AT30A
AT30B
AT30C
AT300
AT30El
AT30E2
AT30E3
AT4
AT4A
AT5
u5A
AT6

I8·MU.76

DISPLA
OISPRE
OLCNT
DLCTR
DLY
DLYA
OLYB
DLYX
DLYXA
DLYXB
DLU0 •
DLYXI •
DT0
DT0A
OTeB
DTI
DTlA
DT1B
DT2
DT2A
DT2B
DT2C
DT20
OT3
DT3A
DT3B
DT3C
DT30
OT4
OT4A
DYOND
DYQUOT
ECHK
ECHKA
EHALT •
EHLT
EHLTA
EMTINT
EMTTAB
EMTX •
EMe
EMI
EMU
EMil
EM2
EM3
EM4
EMS
EM6
EM7
ENDRTN
ERCTR
ERR

001206
000174
003716
003714
003566
003610
003616
004310
004322
004330
004314
004326
011662
011672
011712
011732
011750
011770
012012
012036
012056
0120'64
0'12112
0'12114
012124
012144
012156
0'12204
0'12206
012216
001244
001246
013622
012656
10'4001
002514
0'02526
002442
001320
000'021
017570
0'176]2
020149
020161
017675
017747
017764
020031
020110
020124
020736
0'01416
003234

ERRA
003320
ERROR = 104006
ERRORI= 104007
ERRT
001362
003244
ERRI
ERR1A
003272
ESB
020011
ET0A
012330
ET0B
012336
012344
ET0C
ET0D
0'12374
ET0E
012402
ET0F
012410
ETeG
012432
012476
ET0H
ET01
012530'
012542
ET0J
ET0K
012572
EWAS
020024
FORWD
002364
fRST
001370
fWAS
020103
GETRDY 001710
GOTST
002416
GOTSTA 002436
GRCNT
0'0'4346
004712
GTBIN
GTBINP 004760
GTRDYA 0'01736
GTROYB 001742
GTRDIC 00,1760
GTRDYO 00'2062
GWAS
020717
HERE
002350
005236
HSPCH
HT0A
0'13720
0'13170
HT0B
HT0C
011776
HT0D
014030
HT0E
014054
014104
HT0'
HT0G
014126
ICTR
001262
IM0
015540
IM0A
015574
IM0B
015627
IM0C
015653
IMI
015722
IM10
916405
IMII
016434
IMla
0'16467
IM\3
916513
IMI4
016536

PAGE B0

005776
AT6A
AT6B
006020
006014
ATUI
AT7
006042
006060
AT7A
AWAS
017670
005102
AUT
BCHECK 004372
BOCNY
005256
BDCNYA 005276
BELL • 000007
BIT0 • 000000
BITI
• 000002
BITI0 • 002000
SITI1 • 004000
SIT12 • 010000
BITI3 • 020000
BITU • 040000
BITIS • 100000
BlT2 • 000004
BIT3 • 000010
BIT4 • 000020
BITS • 000040
BIT6 • 000100
BIT7 • 000200
SITB • 000400
BIT9 • 001000
BMOVA
005174
BMOyE
005166
BRCTR
001242
003210
BROSB
BRDCC
003222
BRDOD
003230
BREAD
0UI02
SREAOA 003144
BREADS M3162
SREADC 003216
B5YNC
004452
~07724
BT0
BT0A
007740
~07 752
BTl
007774
BTiA
BT2
010010
010032
BT2A
BT2C
010042
010062
BT3
BT3A
010112
BT3C
010120
BT4
010140
01017.
BT4A
BT4C
010176
= 177776
CC
CHAIN
002110

005546
006630
006650
006670
006740
006744
006760
007012
007010
007014
007030
007064
007070
007104
007144
007142
007146
007156
007214
007230
001210
007234
007240
007254
007314
007312
007316
007350
007410
007402
007406
007412
007444
007500
007514
007524
007474
00152.
005562
005616
001530
007576
007624
007632
007654
007656
007620
007652
005630
005672
005704
005746
005760

PCll READER-PUNCH TESTS ~ACYlI 27(732)
SYMBOL TABLE
DZPCAE, SRC

09144

18-MAR-16

09.44

CHALT •
CHLT
CHNAA
CHNB
CHRI
CHR1A
CHR2
CHR2A
CHR3
CHR3A
CKSWR •
CKSWRR
CLEAN
CM2
CM3
CM.
CM4B
CM5
CNTL •
C~TLU

CNVCTR
COUNT
CPKPL
CPKPLA
CPRDY
CPROYA
CRBUf
CRDA
CRDAA
CREAD
CREADA
CREADB
CREADC
CRTA
CRTB
CTRA
CTRB
CTRC
CTRO
CT0
CT0A
CT0E
CTl
CTIA
CTlE
CT10
CTl0A
CTl0S
CTI0C
CTll
CTI1A
CTIIE
CT12

104010
002462
002le4
002244
001402
001410
001404
001412
001406
001414
104020
015120
001716
015267
015325
015363
015453
015461
104015
015156
005356
001372
014616
014644
005204
005222
001400
013122
013134
013106
013174
~13216

013226
001672
001702
001420
001422
001424
001426
010240
010256
010264
010270
010306
010314
010652
010662
0106N
010734
010742
010 752
01U0"
011004

011020
CT12A
011050
CT12C
011046
CTI2E
011052
CTll
011062
CT13A
CTllC
011120
011134
CT13D
CTt3!1 011114
CTIJ!2 011140
CT14
011144
011160
CT14A
CTI4E
011214
011220
CT15
CT15A
011234
CT15S
011274
011272
CT15E
011276
CTl6
CTl6A
011312
011354
CT16B
CT16E
011352
011356
CT17
CTl7A
011410
011454
Crl1B
011470
CT17C
CT11El 011450
CT17E2 011474
CTI7El 011500
010320
CT2
010354
CTlA
011504
CT20
011536
CT20A
CT20B
011572
CT20C
011600
CT200
011622
CT20El 011624
CT20E2 011566
CT20E3 011620
CT3
010370
010424
CT3A
CT4
010436
010472
CT4A
010504
CT5
CT5A
010514
010544
CT5e
CT6
010566
010576
CT6A
CT1
010630
CT7A
010640
CUFTST 001254
DECVAL 015256
DELAY = 104000
D!;LAYX' 104400
DIGIT
005360

PAG!: 81

IM15
IM16
1"17
1M2
IM20
lM21
IM22
IM23
IM24
IM24A
1"25
IM26
1M3
1M4
IM4s
1"5
IM6
IM7
1NBIN
INCRTN
INGXOR
INHPRT
ITA
ITB
ITX
ITY
KSTART
KTA
KTB
KTC
KTO
KTE
KTF
LOGIC
LTA
LTB
LTC
LTD
LTE
MACHER
MANUAL.
MESS
MSEC
NOP
•
NTIET
NXTST
OPEN •
OPTS
OPTSEL.
ORGRO
OUT
PBIN
PBINA

016567
016620
016643
015756
016700
017003
017014
017025
017046
017156
017221
017252
016014
016051
016105
016271
016334
016360
004654
002100
001570
003300
014246
014272
014320
014314
001252
014416
014450
014460
014476
014504
014512
002340
014540
014554
014572
014600
014606
000004
10000'0
00'2042
001250
000240
002016
001260
000000
014722
1040\4
017727
015240
012766
013070

P~IN8
013104
PSNA
013"04
PSNS
013016
PC
=%000007
PCHCNT 013234
PCHLT
020711
PCHLVL 001226
PC~YTR
001224
002554
PCSIM
PFRNT
012226
PIND
004704
POPSP = 005726
POPSP2= 022626
PPB
001216
001214
PP5
PRB
001212
PPGID
001266
PPGNUM 001240
PRGTA8 001270
005376
PRG0
PRGI
007666
PRG10
014134
PRGII
014322
PRGI1A 014344
PRGI1B 014360
PRG12
014372
014524
PRG13
PRG2
010216
PRG3
0'11634
PRG4
012302
PRGS
012660
PRG6
013454
PRG6A
013562
PRG7
013606
PRS
0012U
PRTY0 = 00000'0
000040
PRTYI
PRTY2
000100
PRTYl • 000140
PRTY4 • 000'200
PRTY5 = 0'00240
PRTY6 • 000300
PRTY7 = 000340
PSW
• 177776
PTINTA 004254
PTMCAL 004170
PTMERR 004076
PTMINT 004234
PT0
004700
PTap
004706
PTI
004792
PTIP
004710
PUNCI
013604

P3~ND

RSIN
RBINA
RBINB
RBINC
~BIND

RSUSY
RCMSK
RCNT
RDRLVL
RDRVTR
RErAN
RIND
RNCNT
RtlG~N

RPI
RP2
RTlNTA
RTlNTB
RTINTC
RTMCAL

020201
013272
013276
013312
013352
013402
013236
004366
001376
001222
001220
002634
004616
004370
0'03030
003~76

003100
i>04116
004134
004152
003720
RT~CLA
0e3750
FTMCLB 003754
RTMERR 004064
RTMINT 004044
RTNN
020'56
RTNNO
001256
R0
='000000
Rl
=Ue0001
R2
='000002
R3
'%00000l
R4
"000004
RS
-Ui>e005
R6
=%000006
SCOpE = lh013
SCOPTR 001264
SMI
017404
5M2
017433
011456
SM3
017501
S~4
SM5
017523
=\000006
sP
SPBUT • 001200
SRESET= 104002
SRSETT 003012
BRTN
020246
004262
STA~
004302
STA"A
STALB
0~4304
STA"L • 104005
START
001432
STLMSK 004306
5TPCHV· 10401~

.ClI IIEADER •• UNCH TlITI MACYlI 21(U2)
DZ'CAE.8RC
SYMBOL nBLE

BU"".

IYNCI
.UU.
,.4636
nNCC
IU
112156
IU
8'2166
TENPNR '8U62
8.U74
TIl
TIIB
. . 1232
.11231
TIll
TLX
814124
TMCON •••• U6
TIIPI
•• U64
11\366
TII.a
TPI
8"1236
TPI
'''1234

IT.PA
ITPIIA
.82n.
&TP'rPV 112162
STPTIIY 882112
STRDU- t . . . l1
SUIRD
817742
IUIfEN '''5)16
IUltNA 115122
IlInftB .1I5U6
SWR
881284
SNREG
8.8176
aNfL
IU5242
nCTRA .14652
...542
IYNCA
• ,a1852

•

ERROR. DETECTED'
DEr AULT GLOBALS GII9ERATED I
., DIPCAE/IOLaDIPCAE.IRC
RUN.TIME, II 23 1 SECONDS
RUN.TIME RATIOI 75/n-a.1I
CORE USED, 611 (11 PAGU)

la-MAII-76

",44

PAGE U

TIM2
182716
TTIN
814654
TTUN. 184"16
TYP
.834. .
TYPA
883418
TYPC
8U448
TYPD
"113466
TYPDIT .ln32
TYPE
1841181
TYP£&
18.114
.835.4
883516
TnG
TIPS
8I3U4
TYPIA
InUIl

TY., •

TYPIB
IUS62
VALID. 184'11
VALINP 814148
WNIERO 113241
XCNT
81tUI
18U62
XCT
lOR
"2lS4
11,,662
XORA
XORrLG IIa148
XP
'1tH8
XPIE
.11716
.16742
XT.
82.425
'CNI
112,463
ICNa

,CRLF
tCTLG
tHEW
UUNCR
,QUt:lT
IRDt
IRD2
..IIEI
IIULL

IInlT
'8MREQ
,TlIIE
fTlfLE
'VALUE

828238
828223
11211213
.211315
1211232
11211617
128154
821521
"a83n
nU14
laU,4

.28l48
lanu
1121236