Digital PDFs

AH-8413C-MC

March 1980

67 pages

Original

4.2MB

view download

OCR Version

3.5MB

view download

Document:	CZCRAC0 CR11 CR11 DIAG TSTS MAR 1980 bw
Order Number:	AH-8413C-MC
Revision:	000
Pages:	67
Original Filename:	CZCRAC0__CR11__CR11_DIAG_TSTS__AH-8413C-MC__MAR_1980_bw.pdf

OCR Text

AH-8413C-MC

ELEHEN1T0ES

]

AR 1980

MADE

IN USA

S
e

e Jo o do Lo

SEQ@ 0001

b b

b o

IDENTIFICATION

PRODUCT CODE:

AC-8412C-MC

PRODUCT NAME:

CZCRACO CR11

PRODUCT DATE:

OCTOBER,

MAINTAINER:

DIAGNOSTIC ENGINEERING

DIAG TSTS

1979

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOKk ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED 8Y DIGITAL OR ITS
AFFILIATED COMPANIES.

THE

PAGE 2

(C)

1970,

FOLLOWING ARE

1979 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

DIGITAL

PDP

UNIBUS

DEC

DZCUS

DECTAPE

EQUIPMENT

CORPORATION:

MASSBUS

o Yo Yo s Yo No oo No Yo Yo XoXo Xo o Yoo Yo Yo Yo Yo Lo a Yo Yo o No Yo Vo No No o No NoaTo Yo Yo No Fo Neo o XeXo To Lo oleooleTe Jo

.REM

09:50

~NOY
NN

R27-SEP-79

b ood oD d =

—‘BOOVOMBWNJOO@VOMI\WN_.

CZCRAC.P11

8
~

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
26=-SEP-79 15:1 3
1

ABSTRACT
THIS TEST IS TO BE USED AS A CARD READER DIAGNOSTIC FOR THE
PDP=11 WITH THE CR11 CARD READER.
IT TESTS ALL LOGIC FUNCTIONS

OF THE CARD READER, AND INCLUDES AN EXERCISER FOR ALPHANUMERI(C
A SEPARATE STARTING ADDRESS ALLOWS THE

ERROR SENSING FUNCTIONS OF THE G.D.I. OR DOCUMATION READER TO BE
CHECKED.
ANOTHER STARTING ADDRESS TESTS SPECIAL DECKS WHICH HAVE ALL
COLUMNS AND CARDS PUNCHED IDENTICALLY, TO AID IN DIAGNOSING
SPECIAL PROBLEMS.

REQUIREMENTS

EQUIPMENT
PDP-11 COMPUTER WITH 4K MEMORY
CR11 CARD READER
TEST DECKS

MAINDEC-89-D2A1-C ALPHANUMERIC TEST DECK
MAINDEC-89-D2A2-C BINARY TEST DECK
EXTRA CARDS

(FOR ERROR FUNCTION TEST)

LOADING PROCEDURE
PROCEDURE FOR NORMAL ABSOLUTE

TAPES SHOULD BE

FOLLOWED.

THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF_NOT FOUND A
SOF TWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO.
IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED

<CR>

6 DIGITS 0-7
Y

IF NO CHANGES SRE

TO BE MADE

TO REPRESENT IN UCTAL THE NEW SWITCH REGISTER

VALUE ;LAST DIGIT FOLLOWED BY <(CR>.
TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED
KEYING IN SWREG VALUE.

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICA!LY CHANGE THE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUES.' FLAG TO CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM

CODE (IE) ERROR ROUTINES,
APPL 1CABLE AREAS.

AFTER HALTS END OF PASS, AND OTHER

L N P

RESPONSES ARE:

N P L

NEW=

N T

POSSIBLE

SWR=XXXXXX

(Ie)

STARTING PROCEDURE

2.2

Ve Vo Vo

AND BINARY TEST DECKS.

Vo ¥ Ve Yo Yo Ve Vo Yo Yo Yo Yo Yo Yo Yo Yo Ve Yo Yo Yo Yo Yo Yo Wo Yo Yo Yo Yo Yo Yo ¥e

SEQ 0002

o
D

e W2 ¥

PAGE 3

09:50

EN P

27-SEP-79

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
CZCRAC.P11
26-SEP-79 15:13

SEQ 0003

CONTROL SWITCH SETTINGS

BASIC SWITCH REGISTER SETTINGS ARE:

SW15=1 OR UP=-==~HALT ON ERROR
SW14=1
SW13=1
SW12=1
SW11=1

OR
OR
OR
OR

UP--=-SCOPE LOOP
UP--=INHIBIT PRINT QUT
UP-=-INHIBIT TRACE TRAPPING
UP=-==INHIBIT SUB-PROGRAM ITERATION
(NOTE THAT IF SW11 IS SET, THE CARD COUNT
WILL BE ALTERED, CAUSING FAILURES IN THE
DATA TEST SECTION.)

SW10=1 OR UP-=~CR11 CONTROLLER USES THE M829 MODULE
(IF DOWN, ASSUMES THE MB290 MODULE)
SW07=1
OR UP---LOOP THRU THE INSTRUCTION TEST PORTION
NOTE:
DATA ERRORS MAY OCCUR IF SW7 IS SET, THEN CLEARED.
ALSO THE TEST MAY HANG WHEN THE

INPUT HOPPER GOES EMPTY

IF SW7 WAS SET.
SW06=1 OR UP-=--RETURN TO THE BEGINNING OF THE INSTRUCTION TEST
SW05=1
SW04-1

WHEN CONTINUING FROM ONE DECK TO ANOTHER

OR UP-=-HALT BETWEEN TEST DECKS
(SEE 5.2.1 FOR EXPLANATION OF Sw5=0)
OR UP=-=-RUN THE BINARY TEST DECK

PAGE 4

U S S S S S S S S S S S S S S SN SN SN NI N N SN NI SN N N NN NN NN NN NN NN NN N NSNNNNNY

6.1

09:50

U S S S

27-SEP-79

U~ S S

b s

—

LBYRNERRUNEZo@Iarr
v =533

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
CZCRAC.P1
26-SEP-79 15:13

SEQ 0004

=
=
=
=
=

INSTRUCTION AND DATA TEST
ERROR FUNCTION TEST (WITH G.D.I. READER)
ERROR FUNCTION TEST (WITH DOCUMATION READER)
SINGLE SUBTEST LOOP
READ SINGLE DATA PATTERN TEST

6.3

PROGRAM AND/OR OPERATOR ACTION

6.3

INSTRUCTION AND DATA RELIABILITY TEST (SA 200)

wv & W
&WWM\"

LOAD PROGRAM INTO MEMORY.
LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER.
PRESS MOTOR START AND READ START (‘RESET'' ON DOCUMATION READER).
SET SWITCH REGISTER TO STARTING ADDRESS.
LOAD ADDRESS.
IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE

b ok

gggggNg;AggFORE PRESSING START.

WHEN THE

SWITCH-LESS MACHINE SIMPLY

INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING
FOR AN INTERRUPT fROM THE CARD READER.
LOAD ONE OR MORE

oo~

TEST DECKS INTO THE INPUT HOPPER.
PRESSING 'MOTOR START'' AND
"READ START'' ('RESET'' ON DOCUMATION READER) ON THE CARD
READER SHOULD CAUSE PROGRAM EXECUTION TO RESUME.

ViV

STARTING ADDRESSES

200
210
220
240
250

PAGE
5

THIS ENT'I{E?;DEEOUENCE

IS NECESSARY

TO RUN THE FULL

TEST ON THE

CARD

ALL PRINTOUTS INDICATE FAILURE, INCLUDING THOSE SAYING
THAT BIT 8 OR BIT 15 WAS SET.

6.3.2

ERROR FUNCTION TEST (SA 210 OR 2200
LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER (DO NOT LOAD A
TEST DECK=-THIS TEST IS DESTRUCTIVE!)
PRESS ‘MOTOR START'' AND 'READ START'' (‘RESET'' ON DOCUMATION READER)
ON THE CARD READER.
LOAD THE STARTING ADDRESS.

IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE

SETTINGS BEFORE PRESSING START.

b e

SFRRERZZIIINS

174

b
=l aed b —rd

SWITCH-LESS MACHINE SIMPLY

PRESS START,
FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT.

4.3.3

SINGLE SUBTEST LOOP (SA 240)
LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER.
PRESS 'MOTOR START'' AND 'READ START'' (‘RESET'' ON DOCUMATION READER)
ON THE CARD READER.
LOAD THE STARTING ADDRESS.
IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE
’SbsggéN(S?AggFORE PRESSING START.
WHEN ASKED,ENTER THE

SWITCH-LESS MACHINE

STARTING ADDRESS OF

DESIRED TEST

c()ngR;Sg OE)THE TESTXX TAG, WHERE XX MAY BE 1
HRU

G).

SIMPLY

THRU 24

1o Taake Xe -TacTe o 1o 10 1010 10: 10 RVE'RYAVEVENENE VENEVENENENEVENENENENENEVENENEVENENENE
VIR Yol

6.2

09:50

s e arn s e aTe s e s n:Teake Xa:Teateataste o

27-SEP-79

Pe X

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
CZCRAC.P1
26=SEP-79 15:13

(09:50

PAGE 6

SEQ 0005

5.1.2

AT SA 210 OR 220

SW00=1

(ERROR FUNCTION TEST FOR CR11)

TO INHIBIT TESTING THE DARK=-LIGHT ERROR.

SWISS1 10 KALT ON ERRoR (e SUBTEST
5.1.3

AT SA 240

SEE 4.1

5.1.4

SUBTEST LOOP)

FOR SR OPTIONS

AT SA 250

SW15=1
SW13=1

(SINGLE

(SINGLE DATA PATTERN TEST)

TO HALT ON ERROR
TO INHIBIT PRINTOUTS

.
B, P,
S, P, P, B, P, P, Pt
s, P, P
i, P
Son. Prm. P, P, P

SEE 4.1

(INSTRUCTION AND DATA RELIABILITY TEST)

AT SA 200

PR P, B

5.1

OPERATIONAL SWITCH SETTINGS

5.1

CARD

OPERATING PROCEDURE

ON THE

RELOADING THE DECK AND PRESSING 'READ START'' (‘RESET'")
READER WILL CONTINUE THE TEST.

1F HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE
SETTINGS BEFORE PRESSING START. IF SWITCH-LESS MACHINE SIMPLY
PRESS START.
WHEN THE CARD READER RUNS OUT OF CARDS IT WILL RING THE BELL.

P, P

LOAD SA 250.

LOAD THIS PREPARED DECK INTO THE INPUT HOPPER.
PRESS CARD READER 'MOTOR START'' AND 'READ START'' ('RESET'' ON
DOCUMATION READER).

80 COLUMNS OF ALL THE CARDS (I.E. ONLY ONE PIECE OF DATA).

195
196
197

. P,

A SPECJAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS TEST.
ANY DATA PATTERN MAY BE USED, BUT IT MUST BE IDENTICAL IN ALL

163
194

(SA 250)

P, P,

SINGLE DATA PATTERN TEST

P, Pom. P, Pom. Foe. P

6.3.4

i, S, P, Bt

27=-SEP=79

P, P, P, Pt P

188
189
190
19
192

30A(1052)

C2CRACO CRYY DIAG TSTS MAC Y1 1
CZCRAC.P1M
26-SEP-79 15: 13

5.2

SUBROUTINE ABSTRA(TS

5.2.1

BEGIN SA 200

SEQ 0006

THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY THE DATA
RELIABILITY TESTS ON THE REMAINING CARDS IN THE FIRST TEST DECK.

AT THE END OF THE DECK THE BELL WILL RING, AND IF SW5S=1 THE
PROGRAM HALTS.
IF Sw5=0, PROGRAM ACTION DEPENDS ON THE NUMBER
OF TEST DECKS LOADED.
IF THERE ARE STILL CARDS IN THE INPUT HOPPER,

THE PROGRAM WILL RUN THE DATA RELIABILITY TEST ON THE ENTIRE NEXT DECK.
IF THE INPUT HOPPER IS EMPTY AT THE END OF A DECK, THE PROGRAM
WILL RUN A SET OF TESTS OF OFF~LINE OPERATIONS.
AT THE END OF
THESE TESTS, IT WAITS FOR THE CARD READER TO BE PUT BACK ON-LINE.
FURTHER CHECKS ARE MADE OF THE OFF-LINE TO ON-LINE OPERATIONS,
AND THEN THE DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK.

IF SW5=1, HITTING CONTINUE WILL RESUME PROGRAM OPERATION AFTER

THE HALT.

ALL OTHER SWITCHES WERE

DOWN,

FOR EXAMPLE,

DATA RELIABILITY TEST WOULD THEN BE RUN ON THE NEXT DECK.
OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED IN 4.1.
5.2.2

THE

SCOPE
THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE
INSTRUCTION SECTION.
IT RECORDS THE STARTING ADDRESS OF EACH
SUB-TEST AS IT IS BEING ENTERED.
IF A SCOPE LOOP IS REQUESTED,

IT
1S
BE
IS
5.2.3

WILL JUMP TO THE START OF THE SUBTEST THAT THE SCOPE LOOP
REQUESTED FOR.
IF SCOPE LOOP IS NOT REQUESTED, THERE WILL
1 ITERATION ON THAT SUBTEST BEFORE THE NEXT SUBTEST
ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS.

HLT

THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME
CF FAJLURE, AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER.

NO;EPTH/S\TTLSE
HLT

PLU

LOCATION COUNTER WILL BE

THE

ADDRESS OF

THE

940
CZCR
ANANANNANANANANANANANAANNNANDNDANMNMMDMMMNAMMnmMmmmmmm

PAGE 7

09:50

AN AANANANNAANNAANANANANAN

27-SEP-79

WAL AN

CZCRACO CR11 DIAG TSTIS MACY11 30A(1052)
CZCRAC.P
26=SEP=79 15:13

C2CRACO CR1Y DIAG TSTS MACY11 30A(1052)
CZCRAC.P
26=SEP=79 15:13

266
267

27-SEP-79

PAGE 8

‘
SEQ 0007

C2¢
CZCF

TTRAP

269
270
b4

THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST
LOOP OF THE PROGRAM.
THE TRACE BIT WILL BE SET ON ALTERNATE
LOOPS OF THE INSTRUCTION TEST, AND ON ALL LOOPS OF THE CHANNEL

C
¢
¢

g;g

THIS CONTINUES UNTIL

268

§.2.4

(09:50

272
73

g;g

TEST UNLESS SW12 IS SET.
THE FIRST INSTRUCTION EXECUTED UPON
TRAPPING IS AN 'RTI'* WHICH RETURNS TO THE INTERRUPTED SEQUENCE.

§.2.5

278

THE END OF

THE PROGRAM LOOP IS REACHED.

«
)

.
[4

TRAPCATCHER
THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION O

279
Sgg

DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY.

¢
¢

282
283
284
ggg

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE
NEXT LOCATION.
THE NEXT 1 DCATION IS LOADED WITH A HALT (000000).
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP
LOCATION PLUS TwO.

)
«
)
¢

287
288
289
gg?

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE REGISTER
SIX.
IT WILL CONTAIN THE CURRENT STACK ADDRESS.
THE CONTENTS
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOACATION
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.

¢
¢
¢
¢

(

gg%

5.2.6

ERCR11

(ERROR FUNCTION TEST)

)
[

294
295
296

THIS TEST CHECKS OPERATION OF THE VARIOUS ERROR SENSING FEATURES
OF THE G.D.I. OR THE DOCUMATION CARD READER.
CARD READER OFF
=L INE,
INPUT HOPPER EMPTY, OUTPUT STACKER FULL, FEED ERROR, MOTION ERROR,
STACK FAIL. AND DARK=LIGHT ERROR ARE ALL CHECKED.

ggg

%gg

5.2.7

301
302
303

TESTX

(SINGLE TEST LOOP)

THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY FOR
SCOPE LOOP PURPOSES.
WHILE A SCOPE LOOP SWITCH OPTION EXISTS,
IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO

304

LOOP.

305

IN SOME CASES (SUCH AS WITH INTERMITTENT FAILURES) THAT'S

NOT EASY TO DO.

306
ggg

THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS

OF ANY TEST FROM TESTO THRU TEST24 AND TESTA THRU TESTG AT THE
HALT AND THEN GO DIRECTLY TO THAT TEST.

)
¢
[

¢
[

)

(
¢
!

‘

‘
(
(

%gg

S.2.8

CKSAME

(SINGLE DATA PATTERN TEST)

¢
{

311
212
213
214
315
316
317
218

THIS TEST 1S DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT
DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER ADJUSTMENTS.
IT CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED
IDENTICALLY (AND ALL CARDS MUST BE IDENTICAL), CHECKING THE
DATA AGAINST A PATTERN SET UP ON THE SWITCHES INITIALLY.
ANY
ERRORS ARE PRINTED OUT, ALONG WITH A COUNT OF THE TOTAL NUMBER
OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE
OCCURRED SINCE THE TEST WAS STARTED.

.
'
'
'
‘
(
'
(
(
(
{

CZCRACO CR11 DiAG TSTS MACY11 30A(1052)
C2CRAC.PT
26=SEP~79 15:13

27-SEP-79

09:50

PAGE 9

SEQ 0008

319

320

%312

5.3

PROGRAM AND/OR OPERATOR ACTION

323
324

5.3.1

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN [S WORST
CASE TESTING. A SINGLE ALPHANUMERIC DECK SHOULD BE RUN.
THIS

325
326
327
328
329

EXECUTES AN INSTRUCTION TEST FOLLOWED BY A DATA RELIABILITY TEST.
AT THE END OF THE DECK CHECKS ARE MADE OF THE FLAG SETTINGS WHICH
SHOULD BE AFFECTED, AND THE PROGRAM WAITS FOR AN INTERRUPT FROM
THE READER COMING BACK ON-LINE. AT THE END OF THE FIRST DECK THE
OPERATOR SHOULD LOAD ONE OR MORE DECKS IN THE INPUT HOPPER AND

334

80 CARDS., THE INPUT HOPPER IS NOT EMPTY, THE PROGRAM WILL

330
L£]
332
333

33¢
%%9
238

239

c2¢
CZCR

5.3.2

%29

1C
1
1
1]
1(C
L[
1

PRESS MOTOR START AND READ START (RESET ON THE DOCUMATION READER).
IF THE CARD READER IS WORKING PROPERLY, THE BELL WILL RING ONCE
WHEN READ START IS PRESSED AND THE ENTIRE DECK WILL BE RUN THRU
THE DATA RELIABILITY PORTION OF THE TEST. IF, AFTER READING

1]«
[
1[
L[

CONTINUE TO THE NEXT DECK. SWITCH OPTIONS MAY BE USED TO ALTER
THIS FLOW AS NOTED IN SECTION 4.1.

1[4
1«
1C
[

TO GO DIRECTLY TO A SINGLE SUBTEST AND RUN IT CONTINUQUSLY, USE

SA 240. SEE 4.3.3 FOR DETAILS.

THE PROGRAM WILL CONTINUOUSLY LOOP THRU THE

DESIRED SUBTEST.

[

1«

342
3463
22

ERRORS

6.1

ERROR PRINTOUT

3[
%«
1[

3329

6.1.1

STANDARD PRINTOUT

348

349
%g?

PRINTOUTS ARE IN A TWO-WORD FORMAT.

THE FIRST IS THE PC+2 OF

THE DETELTED ERROR.
THE SECOND IS THE CONTENTS OF
STATUS REGISTER WHEN THE ERROR WAS DETECTED.

THE PROCESSOR

1[¢
"
u
[
«
«
[

U
[
U
«
)[
u
«
1[
1|
u
U
u
[
U
1[
1[
1|1
b
)[

———

SEQ 0009

=EITHER ALPHANUMERIC OR BINARY , DEPENDING ON SwWé
=THE CARD NUMBER WHERE THE FAILURE OCCURRED
-~THE COLUMN NUMBER WHERE THE FAILURE OCCURRED

READZ

=THIS

IS WHAT WAS IN CRB1

CODED
READ

=THIS

IS WHAT WAS READ BY ADDRESSING THE ENCODED BUFFER

READ THE FIRST TIME FROM (RB1

AFTER A BRIEF

) D

CORRECT CARD IMAGE DATA THAT SHOULD HAVE BEEN READ
CARD IMAGE DATA IS READ TWICE.
THIS IS WHAT WAS

o Y . Y

e Y

) D

DECK
CARD
(OLUMN

PATTERN -THE
READT
-THE

Y
YV

THE COLUMNS HAVE

TIMING LOOP.

THE

SINGLE

DATA PATTERN TEST PRINTS OUT A HEADING WITH EACH

ERROR PRINTOUT.

THE COLUMNS HAVE

-THE COLUMN NUMBER WHERE THE FAILURE OCCURRED.

READ2
CARDS

-THIS IS WHAT WAS READ THE SECOND TIME.
~-THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE BEEN RUN
SINCE THE TEST WAS STARTED.
-THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) SINCE
THE TEST WAS STARTED.

ERRORS

-DATA

IS READ TWICE.

THIS

A«

THE FOLLOWING SIGNIFICANCE:

COLUMN

6.1 A

SINGLE DATA PATTERN PRINTOUT

INCLUDE:

NOT TRACED TO CARD READER HARDWARE
SWO&4 NOT SET TO TYPE OF DECK USED
CARD MISSING
CARD DECK OUT OF PROPER SEQUENCE
DAMAGED CARD

b wd d

DATA ERRORS
A.
B.
C.
D.

) wrd wd

SRWLD BE THE SAME AS THE PREVIOUS READING.
=THIC IS WHAT THE DATA SHOULD BE IN ENCODED FORM

FOLLOWING SIGNIFICANCE:

d o

23 33 3 Saal

THE

THE HEADING IS PRINTED OUT ONCE PER TEST DECK.

D 2ed w2

DATA ERROR PRINTOUT

94
CZCFk

b wd D

PAGE 10

6.1.2

09:50

IS THE FIRST READING.

"BIT 8 WAS SET"
AT THE BEGINNING OF MOST SUBTESTS, BIT 8 (OFF~LINE) IS CHECKED
TO MAKE SURE THAT THE READER (S NOT OFF~LINE. IT IS ALSO CHECKED

IN THE DATA TEST WHEN AN INTERRUPT OCCURS DUE TO BIT 15 BEING
SET. IF BIT B IS SET WHEN IT WAS NOT SUPPOSED TO BE, THE ERROR
MESSAGE 'BIT 8 WAS SET. REMEDY THE ERROR CONDITION AND PRESS
'CONTINUE'.'' IS PRINTED OUT. THE PROCESSOR THEN HALTS. SINCE
THE

CARD READER GOES OFF-LINE WHEN A CARD READER FUNCTION ERROR

OCCURS (CARD JAM, PICK FAIL, ETC.), THE CARD READER ERROR MUST
BE FIXED AND THE READER MUST BE PUT BACK ON-LINE BEFORE THE
CONTINUED.

ERROR RECOVERY

6.2

PROGRAM CAN BE

IN GENERAL,

CONTINUE.

TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND

IF THE "HALT ON ERROR'' SWITCH IS SET, HITTING

CONTINUE WILL RECOVER.
IF THE PROGRAM HANGS UP IN A LOOP, THE
ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED.
IF
sfg¢kgrggCURS IN THE TRAP AND VECTOR AREA THE PROGRAM MUST BE

b v

352
357

26=SEP=-79 15:13

27-SEP-79

wnd wnd

CZCRAL P

30A(1052)

—d e

CQCRACO (RIY DIAG TSTS MACYIN

b
b
D
D
i

7.2

OPERATIONAL RESTRICTIONS

7.2.1

COMBINED

TEST

(SA200)

A STANDARD TEST DECK IS NOT BEING USED,

SW7 MUST BE SET

INHIBIT RUNNING THE DATA RELIABILITY PORTION OF

THE

TEST.

THE CR11 USES AN MB829 MODULE SW10 MUST BE SET

IN THE

FOR

THESE

CARDS WHEN

TEAR
A SMALL PIECE FROM THE LEADING EDGE OF ONE CARD.
TAPE 2 OTHER CARDS TOGETHER TO MAKE ONE ‘1ONG''
CARD = IT ONLY NEEDS TO BE ABOUT 1/2 INCH LONGER THAN

A REGULAR CARD

7.2.3

SINGLE DATA PATTERN TEST

(SA 250)

A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED.
ALL COLUMNS
OF ALL CARDS ARE PUNCHED IDENTICALLY, USING A DATA PATTERN WHICH

WIL.

TEST

THE PROBLEM BEING DIAGNOSED.

D ol
b wd d

A REQUEST

)

OUT

THEM:

TYPE

1.
2.

WILL

TO MAKE

)

TEST

D b

THE

THEY ARE NEEDED.

b wd ad wd nd

PREPARED.

wnd

THE ERROR FUNCTION TEST REQUIRES SPARE CARDS, AS IT BENDS SEVERAL.
ALSO, TO RUN THE DARK-LIGHT CHECK 2 CARDS MUST BE SPECIALLY

D e

READER - SA 220 FOR DOCUMATION READER)

i and

(SA 210 FOR G.D.I.

ERROR FUNCTION TEST

b e

7.2.2

SWITCH REGISTER.

D e

IN EACH DECK AS SOON AS THE DECK IS RECEIVED.

) b

WHEN USING THE STANDARD TEST DECKS, THEY MUST BE IN PROPER SEQUENCE
AND IN GOOD CONDITION.
IT IS A GOOD IDEA TO NUMBER THE CARDS

D cnd

INSTRUCTION AND DATA RELIABILITY

D b id

d el

NONE

444
4465
446

STARTING PROCEDURE

443

czc

440
441
442

SEQ 0010

RESTRICTIONS

W27

4«28
429
430
«31
432
633
434
435
436
4«37
438
439

PAGE 11

09:50

27=SEP=79

— ed o

«08
409
<10
N
412
413
Q46
415
416
617
418
419
420
21
K22
423
424
425
42t

ACY11 30A(1052)

CZCRACO CRYY DIAG TSTY
CZCRAC.PT
26=SEP=~7

z:g

MISCELLANEOUS

z'g?

8.1

EXECUTION TIME

42%

SEQ 0011

NOT APPL]CABLE

8.2

CARD DECK DESCRIPTION

22?

8.2.1

ALPHANUMERI(

D D

4;‘5
A

458
459
460

REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD
IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF 80 COLUMNS
OF THE FIRST CARD.
THE FIRST VALUE GIVEN FOR A COLUMN IS THE CARD

662
222

OF THE SAME PATTERN.
EACH SUCCESSIVE CARD IN THE DECK USES THE
SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT.

461

IMAGE OF

222

8.2 2

THAT

COLUMN,

WHILE

THE

SECOND VALUE

THE ENCODED FORM

BINARY

467

REFERENCE

469
2;(1)

THE 1ST CARD.
AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE CARD
HAS THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT.

468

THE BINARY DATA TABLE BEGINNING AT THE

THE LISTING FOR THE CODES PUNCHED FOR EACH OF

2;%

8.3

474

TAG BINCD

THE 80 COLUMNS OF

SPECIAL NOTES
IF

THE CARD READER GOES OFF~LINE BEFORE

THE END OF

A CARD,

2;2

BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER.

477
478
479

THE CARD READER GOES OFF-LINE DUE TO ‘'INPUT HOPPER EMPTY'' AFTER
THE B0TH COLUMN OF THE LAST CARD IS READ, BUT BEFORE CARD DONE
OCCURS.
THUS, THE SPECIAL CONDITION BIT IN THE (SR WILL BE

482
483

IF THE CARD READER USES AN MB29 MODULE, SW10 MUST BE SET
IN THE SWITCH REGISTER.
WITH THE M829 MODULE. CARD DONE

23?

484

485

486
2%
489

490

491
492

SET BEFORE CARD DONE ON THE LAST CARD.

NEVER OCCURS AFTER THE LAST CARD IN THE INPUT HOPPER IS RFAU.
IF

THE

CARD READER USES AN MB290 MODULE,

SW10 MUST NOT Bt

WITH THE M8290 MODULE, CARD DONE IS ISSUED AFTER THE LAST
CARD IN THE INPUT HOPPER IS READ.
IF BIT O OF

(] ~

) D ) - e i b

PAGE 12

THE CRS

IS CLEARED

SET.

IMMEDIATELY AFTER BEING SET,

THE READING OF A CARD MAY NOT OCCUR.

SINCE THIS BIT IS WRITE

ONLY, A BIS OR BIC DONE AFTER SETTING BIT O MAY CLEAR THE BIT
AND PREVENT THE READ FROM OCCURRING.

) D D nd wad el d D D d —d ) D el D D D ad D o e

09:50

— e e d d b d D d D ) b ) b ) b b e o ol wd D e

27-SEP-79

30A(1052)

Yl
CZCRACO CR11 DIAG TSTS MACY11
CZCRAC.PN
26~SEP=79 15:13

27-SEP-79

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
26~SEP-79 15: 13
CZCRAC.PN

(09:50

PAGE 13

SEQ 0012

493

6«9
495
496
4«97

BY SUBSTITUTING INTO THE LOCATIONS KCRS, KCRB1, AND (RB2
THE ADDRESSES OF THE CRS, CRB1, AND CRBZ OF A CARD READER

ASSIGNED A NON-STANDARD ADDRESS, AND SUBSTITUTING ITS INTERRUPT
VECTOR ADDRESS INTO ADINT, A CR11 MAY BE TESTED AT ANY
ADDRESS ASSIGNED TO IT.

PROGRAM DESCRIPTION
THIS SET OF TESTS IS DESIGNED TO CHECK ALL OPERATIONS OF THE CR11
CARD READER, WITH THE NECESSARY EXCEPTION THAT TIMING IN MOST
CASES IS ONLY PARTIALLY TESTED.
A SPECIAL TEST IS INCLUDED TO
CHECK OUT THE ERROR FUNCTIONS OF THE G.D.I. 100 RtADER, WHICH

PRINTS OUT DIRECTIONS AS IT GOES ALONG.
A TEST IS ALSO INCLUDED
TO ISOLATE DIFFICULT DATA ERRORS USING A SPECIAL TEST DECK
PUNCHED B8Y THE USER.
1

LISTINGX

.ABS

LTITLE
.NLIST
LIST

CZCRACO CR11
MD_ MC,CND
ME

DIAG TSTS

;DIAGNOSTIC FOR CR11 CARD READER

;COPYRIGHT 1970,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
;BY RICK FADCEN
; CHANGE HISTORY

;(MODIFIED AUGUST=71 FOR DOCUMATION CARD READER (JOHN RODENHISER))
;(MODIFIED APRIL-72 FOR HARDWARE ECO)

SUITCH REGISTER SETTINGS FOR THE

INSTRUCTION AND DATA TEST ARE:

SW04=1 FOR THE BINARY TEST DECK
SWO05=1 TO HALT AT THE END OF A STANDARD 80 CARD
AFTER THE LAST DECK
THE

IN THE HOPPER

PROGRAM WAITS

FOR

THE

TEST DECK.

=0 TO CONTINUE FROM ONE DECK TO THE NEXT.
RUN,

b wd cad wod

200=INSTRUCTION AND DATA TEST FOR THE CR11
210=ERROR FUNCTION TEST OF CR11 (GDI])
220=ERROR FUNCTION TEST OF CR11 USING DOCUMATION READER.
240=SINGLE TEST LOOP
250=READ SINGLE DATA PATTERN TEST

STARTING ADDRESSES ARE:

D wed

(AMA).

WILL ENABLE ABSOLUTE MODE ADDRESSING

b wd

JMODIFIED MARCH 1976 FOR SWITCH-LESS PROCESSORS BY RON PLATUKIS
REV CO, OCTOBER 1979 TO BE ASSEMBLED USING CZCRAC.SML, WHICH

CARD READER

519

—

D abd
b2 a,

TESTING CR11'S WITH NON-STANDARD ADDRESSES

(P LV, LV, (V. IV LV, IV, ]

4«98
499
500
501
502
503
504
505
506
507

8.4

CZCRACO CR11 DIAG TSTS MA(CY\a 1
CZCRAC.PN
26=-SEP-79 15: 13

30A(1052)

(09:50

27-SEP=79

PAGE 14

SEQ 0013

TO COME BACK ON~LINE,AND RUNS THRU
A SERIES OF (HECKS OF OFF=-LINE AND
COMING ON=-L INE OPERATIONS OF THE READER.
WHEN THE READER IS BACK ON-LINE AND THE

549

SW06=1
=0

SWO7=1

CHECKS ARE COMPLETE, THE DATA TEST IS RESUMED.
TO RUN THE COMBINED INSTRUCTION AND DATA TEST

WHEN CONTINUING FROM ONE DF(K TO THE NEXT
TO RUN ONLY THE DATA TEST ON EVERY DECK AFTER THE FIRST

TO RUN ONLY THE

INSTRUCTION TEST CONTINUALLY

SETTING SWO6 AND SWO7 AT THE END OF A DECK WILL

CAUSE THE INSTRUCTION TEST TO BE RUN CONINUOUSLY FROM THEN ON
NOTE:
IF SW7 IS SET, CHECKED BY PROGRAM, AND THEN
CLEARED, THE DATA TEST WilLL BE INCORRECT.
THIS IS
TRUE BECAUSE

THE

FIRST

BE THE ONE EXPECTED.
WHEN THE

IN THE DATA

TEST WILL

NOT

INPUT HOPPER RUNS OUT OF

CARDS.

b
ad h

TO INHIBIT TRACE TRAPPING
TO INMIBIT PRINTOUT

D e

el
el

FOR SCOPE LOOP
TO HALT ON ERROR

)

HL T=EMT

KBINTT=EMT+3

D wd cad

READC=EMT+¢&

COUNT=X1
R2=%2
CRS=X3
CRB1=24
R5=%5
SP=%6
PC=%7

;LOAD TRAP CAT(HER INTO LOCATIONS O THRU 377
.=14

TRTRAP

340

.-30

000030
000032

000340
000030
012752
000340

;LOAD TRAP VECTORS

340

000014
000016

000014

INTERRUPT VECTOR

JUSED FOR TIMING, ETC.
;SCRAT(CH
;CONTAINS ADDRESS OF CARD READ STATUS REGISTER
;CONTAINS ADDRESS OF CARD READER BUFFER (12 BIT DATA)
:SCRATCH
;STACK POINTER
;PROGRAM COUNTER

)

. CONTAINS ADDRESS OF

TIT=EMT+7

ADINT=2X0

SUSWRR=EMT
+5
CKU=EMT+6

b i

+1
SCOPE=EMT
CNTLU=EMT
2

104000

i wd

104N

e el

PSR=177776
=240

d nd i

177776
000240

D wd wd o

b wd

SW12
SW'3
SW14
SwW15

(NOTE THAT IF PROGRAM FLOW IS ALLOWED TO ENTER THE
DATA SUBTEST, DATA ERRORS WILL OCCUR SINCE THE
CARD COUNT WILL BE INCORRECT.)

TO INDICATE THAT THE CR11 BEING TESTED USES THE
M829 MNOULE
=0 TO INDICATE THAT THE CR11 BEING TESTED USES THE
MB8290 MODULE
SW11=1 TO INMIBIT SUBPROGRAM |TERATION

SW10=1

CARD

WITH SW7 SET THE TEST MAY HANG

EMTSRV

MOV
JMP

#STACK,SP
CKSAME

;STARTING ADDRESS OF TEST TO READ A SINGLE DATA

JANY SINGLE SUBTEST

;PATTERN CONTINUOUSLY

:LOAD POINTERS AND GENERAL STORAGE
.=600
STACK:
0
sSTACK POINTER INITIALIZED TO POINT HERE
INTFLG: O
;CONTAINS LEVEL THAT INTERRUPT IS FOUND AT
INTVC:
230
;ADDRESS OF CARD READER INTERRUPT VECTOR
KBCSR:
177560
KBDBR:
177562
;ADDRESS OF TELETYPE STATUS REGISTER
TDBR:
177566
;ADDRESS OF TELETYPE DATA BUFFER
SWR:
177570
DISPLAY:177570

D b i
D b D i
i e

O
0

RT]

ERFLG:

;IN A SUBTEST
;SET TO ZERO TO OUTPUT DATA ERROR HEADING

TRTRAP:

012152

TRFLG:
PROC :

;SET TO ONE FOR MARK-SENSE CARD READER
;ADDRESS OF CARD READER STATUS REGISTER
;ADDRESS OF CARD READER DATA BUFFER
;ADDRESS TO READ ENCODED DATA
JRETURN FROM TRACE LOOP

KCRS:
KCRB1:
CRB?:

177160
177162
177164

;TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL FLO
;STORES PROCESSOR STATUS WHEN TRACE TRAP MUST BE CLEARED

JINITIALIZE CSR AND DBR POINTERS

SETUP:

JSR
SUSWRR

x7,T0UT

e e

177160

-1
0
0
0

INTNY]

CSNT:
FLAG:

TMP1:

TIFLG:
TIB:

RRY IV VY

000000
177777

VY VY

177560
177562
177564
177566
177570
177570

'gfl
~
b =D o

000600
011014

b ad D b aud wd ad b b wd b b ad b o

000250
000254

) bb

;STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS

T P T PV T

TESTX

JMP

i i

#STACK,SP

.=240

) ) b

MOV

;STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (DOCUMATI

000600
010676

;STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (G.D.D)

000240
000244

;NORMAL STARTING ADDRESS FOR G.D.I. 100 READER

) e

000210
000214
000220
000224

#STACK,SP
BEGIN
N#STACK,SP
ERCR11
#STACK,SP
ERCMMN

b md D )

MOV
JMP
MOV
JMP
MOV
JMP

000600
000726
000600
007200
000600
007206

b i

000200

;LOAD STARTING ADDRESS AREA
=200

YV
T I TRNT VT VTIPVT VT PV TPV VY IVT PV TR T P

=174
DISPREG:0
SWREG:
9

000174
000176

abd
adl abt ath
ol 2dd abd abl ald abd adl aif add it ol skt o8 8t ad adt adh adt odd 2l adl ok b

;SOF TWARE SWITCH REGISTER LOCATI ONS

YWY YIRY IPUT

615

SEQ 0014

)

614

.=46
LOGIC

000046
006466

612
613

PAGE 15

[Ty

000046

09:50

605
606
607
608
609
610

27~-SEP-79

CZCRACO CRYY DIAG TSTS MACY1T 30A(1052)
CZCRAC.P1
26~SEP-79 15:13

000602
000644

669 000716 012737 000340
670

671

000726

000207

672 000730 012702 016205
673 000734 004737 000652
6764 000740 0004624
675 000742 022737 000176
676 000750 001002
677
678
679

000752
000754
000756

104002
104006
005737

000644

681

000764

012737

000340

684

001002

001370

001012
001020

680 000762 001004

BEGIN:

000616

TRAPX:

ggg 001004

012737 000360

177776

012737
104001

012150

001022

004737

011506

~92

001034

005037

177776

691

693
696
695
696
697
698
699
700
701
702

001026

013737

001040
001042
001044
001046
001050
001052
001060
001062
001064
001066

005001
005201
001376
005201
001376
013737
000005
005713
001401
104000

705
706
7207
708
709
710
711
712
713
;],g

001070
001074
001100
001102
001104

052713
022713
001402
104000
000404

001106
001110
001112
001114

005013
005713
001401

716

001116

104001

703
704

177776

000646

00646

TIT

CNTLU
CKU
TST

BNE

MOV

#340, PSR

BNE

NOTRP

B8R
BIT

MOV

*RETURN

;INITIALIZE POINTERS AND FLAGS

*GO TO INSTRUCTION TESTS

:CHECK FOR TRACE TRAPPING

“IF SET, TRACE TRAP

“IF ZERO, CLEAR TRACE BIT

TEST
#10000, 3SWR

*GO TO INSTRUCTION TESTS
SCHECK SW12

#360,PSR

*SET TRACE BIT

;BRANCH IF SET TO CLEAR TRACE BIT

sTEST FOR CORRECT INITIALIZATION OF STATUS REGISTER
TEST:
TEST1:

MOV
SCOPE

NTESTTIA,RETURN

;SETUP SCOPE LOOP RETURN ADDRESS

MOV

PSR,PROC

X7,.CKBIT8

;CHECK FOR OFF~LINE SET

CLR
INC
BNE
INC
BNE
MOV
RESET
TST
BEQ
HLT

PSR

COUNT
COUNT
.~2
COUNT
.=2
PROC,PSR

;CLEAR TRACE BIT

TESTIA: JSR

CLR

177776

aCRS
R

:STORE PROCESSOR STATUS
JINITIALIZE COUNTER
;WAIT TO BE CERTAIN
s THAT ALL CARDS ARE
: THRU BEFORE ISSUING
JINIT
;RESTORE PROCESSOR STATUS
;SEND OUT INIT
;CHECK FOR STATUS REGISTER ALL ZERO
sBRANCH IF 0K
:STATUS REGISTER NOT CORRECTLY INITIALIZED

JONLY BITS 1 AND 6 OF THE STATUS REGISTER SHOULD BE ABLE TO BE SET TO ONE
;AND READ BACK AS ONE

177776
000102

BIS
#177776 ,aCRS
;SET ALL BITS BUT 0
cMP
#102,3CRS
;ONLY BITS 1 AND 6 SHOULD BE SET
8EQ
.+6
;BRANCH IF 0K
HLT
;STATUS REGISTER DIDN'T CONTAIN 102
BR
TEST?
:BRANCH AFTER FAILURE
;CLEARING STATUS REGISTER SHOULD CLEAR BITS 1 AND 6
CLR
aCRS
JCLEAR BITS 1 AND 6
TST
aCRS
;CHECK FOR ALL BITS CLEAR
BEQ
R
JBRANCH IF 0K
HLT
;BIT 1 AND/OR BIT 6 DIDN'T CLEAR

104000
TEST2:

SCOPE

(]."]

2
aAs

TRAPX

SINITIALIZE INTERRUPT FLAG
SINITIALIZE TRACE FLAG

oM
AL
.84
AM

SSETUP PROCESSOR STATUS

TRFLG

177614

690

#340,PSR

RTS

18:

682 000772 000407
683 000774 032777 010000

001022

MOV

INTFLG
TRFLG

#SUBT1,R2
X7.SETOP
TEST
#SWREG,
SWR
18

NOTRP:

688
689

;SET ITERATION MAXIMUM TO1 ITERATION
*SET UP REGISTER POINTERS
:LOAD ADDRESS OF INTERRUPT VECTOR

MOV
JSR
BR
RESTRT: CMP
BNE

177776

687

#1, 1TMAX
KCRS,CRS
KCRB1, CRB1
INTVC.ADINT

CLR
CLR

177776

104007

MOV
MOV
MOV
MOV

005037
005037

000001 012144
000634
000636
000604

B ol il o ) e wd

012737
013703
01370¢
013700

CNTLU

al asa

000706
000712

000664
000672
000676
000702

SEQ 0015

667
668

663
664
665
666

104002

104006

000662

PAGE 16

d be

000660

662

09:50

661

26-SEP-79 15:13

27-SEP-79

CICRAC.P11

30A(1052)

~NO

C2CRACO CR11 DIAG TSTS MACY! 1

27=SEP-79

09:50

PAGE 17

)

SEQ 0016

O
S B B (N NNON)

011506
177776
177776

JSR

000646

INC
BIT
BEQ

aCRS
#1,3CRS
.t

s START READING A CARD
sCHECK BIT 0
;BRANCH IF NOT SET

INC

JWAIT

INC

INC
BNE

#0
-4

8IT

#40000,aCRS

BNE

000000

BNE

000000

BNE

000000

BNE

000000

MOV

177776

BNE

HLT

001224

001226

sCHECK FOR CEF~LINE SET

HLY

000000

000646
040000

052713
032713
0014601

040000
040000

CONT2:

104000

004737
005013
005213
032713

TEST3:

PSR,PROC
PSR

:STORE CURRENT PROCESSOR STATUS
;CLEAR TRACE BIT

;BIT O READ AS A ONE

.~
.4
.4

PROC , PSR

;RESTORE PROCESSOR STATUS
*CHECK CARD DONE

CONT?

TEST3

BIS
BIT
BEQ

#40000,aCRS
#40000,aCRS
.+

HLT

104001

SECOND

X7,CKBIT8

MOV
CLR

000001

NORKR

s Por furd
pour Qo Ginsr

s Punr Qe Qo

Souar Govsr Py G

88888 33833333323 33323

NS 1aV1aV
1,8 1,8 ) ~d —h b d d D d b bbb d a b —b

. START SHOULD CAUSE CARD DONE WITHIN 1

;BIT 0 SHOULD ALWAYS READ AS BEING EQUAL TO ZERO

sCONTINUE IF SET

sCARD DONE DIDN'T SET WITHIN 400 MS

sNOTE THAT FAILURE COULD BE DUE TO READ
sNOT BEING RESET
;DATO TO STATUS REGISTER SHOULD CLEAR
: CARD DONE
sBRANCH IF IT DID
;DATO DIDN'T CLEAR CARD DONE

SCOPE

.BUSY (BIT 9) SHOULD BE SET BY READING A CARD

011506

;1T SHOULD REMAIN SET UNTIL CARD DONE SETS, WHICH SHOULD CLEAR IT
JSR
%7,CKBIT8
sCHECK FOR OFF-LINE SET
CLR
aCRS
JINITIALIZE STATUS REGISTER
INC

001000

81T
BNE

HLT

040000

LOOP3:

001000
040000

DONE3:

s CHECK BUSY
;BRANCH IF SET

JREADING A CARD DIDN'T

TEST4
#40000,aCRS
DONE 3
#1000,aCRS
LOOP3
#40000,aCRS
TEST4

;GO TO NEXT TEST IF

BR
BIT
BEQ

TESTS
#1000,3CRS
TEST4

s CHECK BUSY
;GO ON TO NEXT TEST IF

HLT

TEST4:

sREAD A CARD

#1000,aCRS
LOOP3

BR
BIT
BNE
BIT
BNE
BIT
BNE

HLT

001000

aCRS

SCOPE

;A TIMING ERROR SHOULD OCCUR

;CHECK CARD DONE
;BRANCH IF SET
s CHECK BUSY
sBRANCH IF STILL SET
s CHECK CARD DONE
;BUSY CLEARED BEFORE

SET BUSY

SET

CARD DONE

SET

CLEAR

;CARD DONE DIDN'T CLEAR BUSY
IF

DATA

IS NOT READ AND NEW DATA COMES

;A TIMING ERROR SHOULD SET THE SPECIAL CONDITION BIT WHEN CARD DONE OCCURS
;COLUMN READY SHOULD BE CLEARED BY THE TIMING ERROR AND PREVENTED FROM RESETTING

30A(1052)

i b il b cnd e b wd D cud D D D D b D ) D ) b ) —d D cocd - ed - D e D ed i wd ) D e D ) ) wad i wad wad D o d d e ) D D d d b D

C2CRACO CR1Y DIAG TSTS MACY] 1
CZCRAC PN
26-SEP-79 15:13

aCRS

BIT

#160000, aCRS

BIT

#40000, aCRS

TST

8MI]
CONT4:

HLT

BIT

BNE

HLT

DEC
B8PL

gl'iT

aCRS

sBRANCH IF SET
aCRS

sSPECIAL

CONDITION

CONDITION WASN'T

:CHECK TIMING ERROR

SET

sBRANCH IF SET

;TIMING ERROR WASN'T SET

COUNT
.+6

:CHECK NUMBER OF COLUMN READYS
;BRANCH IF ANY OCCURRED

;COLUMN READY NEVER OCCURRED

BEQ
HLT

TSTB

BPL
HLT
CLR
gég

cBRANCH IF ONLY ONE OCCURRED
;COLUMN READY OCCURRED MORE THAN ONCE

aCRS

:CHECK COLUMN READY

aCRS
#124000 a(RS

;BRANCH IF NOT SET
s COLUMN READY WASN'T CLEARED
;CLEAR BITS 11,14, AND 15 VIA DATO
;CHECK
;BITS 11,14,

AND 15 WEREN'T ALL

CLEARED

011434
140200

040000

TESTS:

SCOPE

LOOPS:

INC
BIT

;SETTING READ SHOULD CAUSE COLUMN READY TO SET 80 TIMES BEFORE CARD DONE SETS
JREADING THE DATA BUFFER SHOULD CLEAR COLUMN READY AND PREVENT A TIMING ERROR
JSR
X7, INIT
sINITIALIZE STATUS REGISTER
CLR
COUNT
sINITIALIZE COUNTER
BEQ
BIT

BNE

TST

BPL

000117

HLT
BR

(MP

BPL

aCRS
#140200,aCRS
.~4
#40000, aCRS

CK5

a(RS

TEST6

LOOPS

;SKIP ERROR HALT

#79.

CARD DONE

JYES, BRANCH
;CHECK BIT

COUNT,

;INITIATE READ
;WAIT FOR COLUMN READY,
;OR SPECIAL CONDITION
;CARD DONE?

;BIT 15 WAS SET
;GO _TO NEXT TEST

;CHECK FOR 80

~NeOY

a
D
)
i imd imh ed

)

HLT

144000

d e

CARD DONE

D o

CONDITION SET BEFORE

sCHECK SPECIAL

d e

s CHECK CARD DONE
sSPECIAL

CONT4

BRANCH IF SET

#4000,

o h

c3RANCH IF EITHER SET
;OTHERWISE, CHECK AGAIN

;CHECK FOR SPECIAL CONDITION OR CARD DONE

(K4
LOOP4B

cIF CLEAR, RETURN TO LOOP4

BNE

;WAIT FOR COLUMN READY TO CLEAR

LOOP4

BNE
BR

INO, COUNT COLUMN READYS

BPL

(K&
COUNT

1ST8

BNE
INC

#1460000, SCRS

HLT

004000

LOOP4

BIT

(K&

;WAIT FOR SPECIAL CONDITION, CARD DONE,
sOR COLUMN READY
cLOOP IF NONE OCCURRED
;SPECIAL CONDITION OR CARD DONE?
:YES, BRANCH

:INITIATE READ

140000

#140200, aCRS

oD md

LOCP4B:

JINITIALIZE COUNTER

d e

BEQ

140000

040000

BIT

COUNT

aCRS

LOOPS:

INC

D ed e

CLR

;BITS 11,;4 ANDz;SISO;OULD BE CLEARED BY A DATO TO THE STATUS REGISTER
;INITIALIZE STATUS REGISTER

105713
100367
032713
001001
000772
032713
001002

SEQ 0017

001775
032713
001007
005201

160200

005213
032713

PAGE 18

011434

09:50

IF NOT SET

;BRANCH IF 80 OR MORE WITHOUT CLEARING READY

001326

27=-SEP=79

—t ——d cd

773
776
775
776

30A(1052)

D e

C2ZCRACO CR1Y DIAG TSTS MACY11
CZCRAC. P11
26-SEP~ 79 15:13

TEST6

a(RS,#40200

104000

(Mp
BEQ
HLT
CLR
CMP
BEQ
HLT

104000

BEQ
HLT

021327
001401
104000

005013
021327
001401

857

001610

104001

855

001602

001606

004737
012701

005213

040200

000200

TST
TST

TEST6:

011434
000115

105713
100376

005714
005301
100373
032713
001775
032713
001026
032713

144000

040000

004000

040000
144000

COUNT,
.+4

#79.

a(RS

aCRS,#200
.+

aCRB1
(RS

;BRANCH AFTER ERROR
s CHECK COUNT

;BRANCH IF 80 COLUMN READYS OCCURRED
;COLUMN READY DIDN'T OCCUR 80 TIMES

;BEFORE CARD DONE
JONLY CARD DONE AND COLUMN READY SHOULD BE SET

;STATUS REGISTER IN WRONG STATE

s SHOULD CLEAR DONE BUT NOT READY
;CHECK FOR ONLY READY SET
¢BRANCH IF 0K

;STATUS REGISTER IN WRONG STATE
;READING DATA BUFFER SHOULD CLEAR COLUMN READY
;CHECK STATUS REGISTER
;BRANCH IF ALL BITS ZERO
:STATUS REGISTER NOT EQUAL TO ZERO

SCOPE

;A TIMING ERROR SHOULD SET BIT 11 BEFORE CARD DONE OCCURS, EVEN IF IT OCCURS AT COLUMN 8
;A DATOB TO THE LOW BYTE OF THE CRS SHOULD CLEAR BITS 15,14, AND 11
JSR
€7, INIT
JINITIALIZE
#77..COUNT
MOV
;SETUP COUNTER
aCRS
INC
sSTART READING A CARD
TS18
aCRS
LOOP6:
;WAIT FOR COLUMN READY
BPL
TST
DEC
8PL
BIT
BEQ

.~2
aCRB1
COUNT
LOOP6
0144000 aCRS

BIT

#40000 aCRS
ERR
#4000 aCRS

T1STRB
8PL

aCRS
.+

BIT
BNE

BEQ

HLT
TST
8PL
BIT
BEQ
CLRB
BiT

BEQ
HLT

OFF6

(RS

#40000,aCRS

OFF6

aCRS
#144000,aCRS

TEST?

;CLEAR COLUMN READY

;GO THRU LOOP FOR 1ST 78 COLUMN READY'S
;WAIT FOR CARD DONE OR TIMING ERROR

;OR SPECIAL CONDITION
;CARD DONE SET?

;YES, 2 POSSIBLE TEST FAILURES
;CHECK TIMING ERROR
;IF NOT SET, READER IS PROBABLY OFF-LINE
;CHECK COLUMN READY
;BRANCH IF CLEAR
;TIMING ERROR DIDN'T CLEAR READY
JWAIT FOR SPECIAL CONDITION

s CHECK CARD DONE
sIF NOT SET, READER IS PROBABLY OFF-LINE
;DATOB TO LOW BYTE OF CRS

sCHECK BITS 15,1411
;BRANCH IF CLEAR TO NEXT TEST
;DATOB TO LOW BYTE OF CRS DIDN'T CLEAR

o
) D ) D wnd =D b p
) e

sCHECK TIMING ERROR BIT
;BRANCH IF NOT SET
:TIMING ERROR WAS SET

D D 2

B8R
CMP
BEQ
HLT

000117

001604

853

aCRS

;NOTE THAT IF COLUMN READY SET MORE THAN 80 TIMES
;A TIMING ERROR WILL OCCUR AND THE COUNT WILL BE 79 (=117 OCTAL)

854

001600

LOOPS

) e

HLT

005714
005713
001401

852

#4000,

a(RS
.+

) o

001556
001562
001564
001566
001570
001574
001576

8IT
BEQ

1S78
BPL
HLT
BR

s INCREMENT COUNTER
;CLEAR READY
sMAKE SURE IT CLEARED
JBRANCH IF IT DID
:RSGgING DATA BUFFER DIDN'T CLEAR READY

b ed D D b cd b wd D med D D b b b b e wd ) b D D ) md D i

845
846
847
848
849
850
851

(K5:

COUNT
aCRB1

b e

001544
001546
001552
001554

004000

INC
TST

e e e

840
841
842
843

005201

SEQ 0018

001520
001522
001526
001526
001530
001532
001534
001540
001542

PAGE 19

09:50

and cnd e

829
830
831
832
833
834
835
836
837

27-SEP-79

C2CRACO CR11 DIAG TSTS CY11 30A(1052)
26~SEP~79 15:13
CZCRAC.P1N

(]

000400

OFF6:

104000

000406
032713
001402

004000

ERRG:

104000

B8R

TEST?:

TEST?

JBITS 15,14 AND/OR 11
‘GO TO NEXT TEST
:CHECK BIT 8

‘BRANCH IF SET

:BIT 15 WAS SET,

160 TO NEXT TEST

8 WASN'T

*TIMING ERROR SET?
:NO, BRANCH

TEST?

:GO TO NEXT TEST AFTER ERROR

:TIMING ERROR DIDN'T

SET BEFORE

CARD DONE

*TIMING ERROR WASN'T SET

SCOPE

011434
000120

140200

JSR

LOOP7:

INC
MOV
BIT
BEQ
TST

BPL
HLT

040000

TESTS8

;GO _TO NEXT TEST AFTER ERROR

DONE?7

a(CRB1

BR
gég

LOOP7
#120000.8CRS

TST

aCRS

BR
TST

DONE7
TEST8
COUNT

sBRANCH IF NOT SET
JBIT 15 WAS SET

s CHECK FOR CARD DONE

;BRANCH IF SET

s COUNT
;IF 80TH COLUMN READY, BRANCH

;CLEAR DONE

;LOOP
;WAIT FOR DONE OR SPECIAL

sCHECK SPECIAL

CONDITION

;BRANCH IF NOT SET
;SPECIAL

CONDITION WAS SET

;GO TO NEXT TEST AFTER ERROR
;TEST FOR 80 COLUMN READY'S

TEST8
aCRS

cBRANCH IF OK
;COLUMN READY DID NOT OCCUR 80 TIMES
;GO TO NEXT TEST AFTER ERROR
:START READ

BM]

.+4

JBRANCH IF STILL SET

HLY

;START READ
JINITIALIZE COUNTER
;TEST FOR ERROR, DONE OR READY
;LOOP IF NONE SET

BEQ
HLT
BR
INCB

1STB

aCRS

BIT

#4000,aCRS

TSTB

aCRS

BEQ
BPL

HLT

000002
004000

s CHECK ERROR

COUNT
.+6

HLT

004000

aCRS

DEC
BEQ

TST

DONE7:

JINITIALIZE

#40000,3CRS

BNE

140000

X7,INIT

aCRS
#80., COUNT
#160200,aCRS
LOOP7

BIT

BPL

112713

TEST?

.~4

.+6

TEST8

sCHECK COLUMN READY

JREADY DID NOT REMAIN SET

;TEST FOR TIMING ERROR
;LOOP IF NOT SET

;CHECK COLUMN READY

;BRANCH [F NOT SET

sTIMING ERROR DIDN'T

MovB

#2,aCRS

;SET EJECT

BEQ

.+6

;BRANCH IF

BIT

#4000,CRS

SEQ 0019

;NOT READING THE EIGHTIETH COLUMN OF DATA FROM THE BUFFER
sSHOULD CAUSE A TIMING ERROR ON THE FIRST COLUMN OF THE NEXT CARD
JSETTING EJECT SHOULD CLEAR TIMING ERROR, AND BIT 15 SHOULDN'T SET
2 INCB SHOULD START A READ

100002
104000

032713
001402

TEST?
#400,aCRS

#4000,aCRS
.+6

HLT

104001

BIT
BEQ
HLT

104000

000455
032713
001013
005301
001402
005714
000762
03271;

BNE

HLT

000401

004737
005213
012701
032713
001775
005713

BR
BIT

PAGF 20

md wd D wd D ) e D b i i d d i e d e d e D ed ed D ) d b ) e ) D s D D ) D o i md d d b i d d d o e e e d d

001742

000413
032713
001010

(09:50

CLEAR READY

001712
001714
001720
001722
001724
001726
001732
001734
001736
001740

26=-SEP-79 15:13

27-SEP=79

;CHECK TIMING ERROR
CLEARED

—t ik

CZCRAC PN

30A(1052)

(@)

CICRACO CR11 DIAG TSTS MACY1Y

alRS
.+4

*SPECIAL CONDITION SHOULDN'T SET
*SINCE DATOB CLEARED TIMING ERROR
“BIT 15 WAS SET, 8 WASN'T

000646

LOOP8:

140200

SCOPE

040000

PSR ,PROC

BIT
BEQ
BIT
BNE

#140200,aCRS
.4
#40000,aCRS
DBRCK8

CLR
INC

CMP

BEQ
HLT

BR
000300

013737
002276

104001

000646

TEST9

a@CRB1.,R5

MOV
(MP
BEQ
HLT

LOOP8

TEST9
aCRB2 ,R2

#100, COUNT
oCRB1,RS
.46

RESTS8

RESTS

CMP
BEQ
HLT

177776

TESTY
aCRS
#1200,aCRS
.+6

CMP

BR
DBR(CK8: MOV

176362

aCRS
.+6

@CRB1,RS
#300, COUNT
COSNT

HLT

CONT8:

PSR
aCRS

MoV
MOV
gfig

BEQ
176402
000100

IN THE DATA BUFFER FOR AT LEAST 1.0 MILLISECOND
JINITIALIZE STATUS REGISTER

MoV

TST
BPL
HLT
BR
CLR

001200

:BRANCH IF READER OFF=-LINE

REST8:

DEC
BNE
MOV

TEST9:

SCOPE

aCRB2,R2
.+6
COUNT
CONT8
PROC,PSR

;STORE

CURRENT PROCESSOR STATUS

;CLEAR TRACE BIT
;START READ

WAIT FOR COLUMN READY OR CARD DONE
cOR SPECIAL CONDITION
;CARD DONE?
;YES, GO TO CHECK STROBING OF DBR

sNO, CHECK BIT 15
;BRANCH IF NOT SET
;BIT 15 WAS SET
;GO TO NEXT TEST AFTER ERROR
;DATO TO CRS = SHOULDN'T CLEAR BUSY OR READY

;CHECK FOR BUSY AND READY
JBRANCH IF
;CRS

STILL SET

IN WRONG STATE

;GO TO NEXT TEST AFTER ERROR
;STORE DATA
JINITIALIZE COUNTER
JWAIT FOR 1 MILLISECOND

(APPROX.)

;DATA UNCHANGED?
;OK, CONTINUE

;DATA NOT AVAILABLE FOR 1.0 MILLISECONDS

;GO TO NEXT TEST AFTER FAILURE
;STORE ENCODED DATA IN REGISTER 2

;SET UP COUNTER
;READ CARD-IMAGE DATA BUFFER
;BRANCH IF UNCHANGED
:CRB1 READ INCORRECTLY

sBRANCH TO RESTORE PROCESSOR STATUS AND EXIT
;READ ENCODED DATA BUFFER
JBRANCH IF UNCHANGED
;CRB2 READ INCORRECTLY

;BRANCH AFTER FAILURE

; COUNT DOWN
;LOOP IF NOT DONE
;RESTORE PROCESSOR STATUS

JEJECT SHOULD PREVENT FURTHER COLUMN READY'S

;CARD DONE SHOULD STILL OCCUR, AND TIMING ERRORS SHOULD BE

I
D ed D d

TST
BPL
HLT

D D

;CHECK BIT 8

;DATA SHOULD BE AVAILABLE
JSR
X7, INIT

100002
104000
000441

005013
022713
001402

#400,aCRS

D D ) D i) D

177776

BIT

TESTS

*WAIT FOR DONE OR SPECIAL CONDITION

D i e

TEST8:

011434
177776

a1zoooo.acns

D e ad D

004737
013737
005037
005213
032713
001775
032713
001023
005713

Séé

BNE

100001
104000

CLEARED BY DATOB

:GO TO NEXT TEST AFTER ERROR

D D e

002130
002134
002142
002146
002150
002154

000400

;TIMING ERROR NOT

TESTS

e D wad e

104001

140000

SEQ 0020

D i e wd d

002126

D e

032713
001775
032713
001003
005713

000411

PAGE 21

i ad e

HLT

104000

002100
002102
002104
002110
002112
002116
002120
002122
002124

09:50

27-SEP=79

d bo e

30A(1052)

b D e md ad e e

Y
CZCRACO CRYY1 DIAG TSTS MACY1T1
15:13
CZCRAC.PN
26=SEP-79

104001

004737
012710
052737
013760
042737
012713
032713
001775
016037
105013

011434
177776
000002
177776

000002

TEST10:

SCOPE

040000

BIS
MOV
BIC

MOV

177776

TINT10:

005713

100001
104000
105713
100001
104000

002520

005013
012710
005037

002524

104001

BIT
BEQ
MOV
CLRB
HLT
BR
BIT
BNE
HLT
tMP

.+6

REST9
PROC,PSR

2(ADINT) PSR

aCRS

CONT10

#AQOOO.GCRS
.+

(SP)+,(SP)+
aCRS
.+4

TSTB

a(RS

BPL
HLT
CLR

CONT10: MOV

CLR

TEST11:

#340,PSR
PSR,2(ADINT)
#340,PSR
#103,aCRS
#42000,aCRS

SCOPE

aCRS
#4232 ,@ADINT

w232

;CHECK COLUMN READY
JBRANCH IF NOT SET

;COLUMN READY WAS SET

;JEJECT DID NOT PREVENT A TIMING ERROR
;JRESTORE PROCESSOR STATUS

sSET PROCESSOR TO LEVEL 7

;LOAD RETURN PROCESSOR STATUS
;SET PROCESSOR PRIORITY TO O
;SET EJECT, INTERRUPT ENABLE, AND READ
:WAIT FOR CARD DONE
;RESTORE PROCESSOR TO HIGHEST PRIORITY
;CLEAR INTERRUPT ENABLE
sNO INTERRUPT OCCURRED
;CHECK CARD DONE
JBRANCH IF SET
;CARD DONE NOT SET
JRESTORE STACK POINTER

sMAKE SURE NO ERROR OCCURRED

;BIT 15 WAS SET

sCHECK COLUMN READY
sBRANCH IF NOT SET
s COLUMN READY WAS SET
;DISABLE INTERRUPTS
;CHANGE INTERRUPT RETURN ADDRESS
;TO CAUSE A HALT

;COLUMN READY SHOULD CAUSE AN INTERRUPT

D od d

) e

D d D wd e

d d D =D ol

[a)

;CHECK FOR CARD DONE

;TIME FOR ABOUT 3/4 SECOND
;CONTINUE WAITING
;NO CARD DONE OCCURRED WITHIN 3/4 SECOND
sCONTINUE AFTER FAILURE

REST9
#40000,aCRS
REST9
#200,aCRS

TST
BPL

HLT

000232
000232

COUNT
WAIT9

;CARD DONE SHOULD CAUSE AN INTERRUPT
27,INIT
JSR
JINITIALIZE
#TINT10,3ADINT
MOV
sLOAD RETURN POINTER

104000

00414
032713
001001
104000
022626

CK9

;LOOP TAKES 11.4 MICROSECONDS ONCE THRU
JWAIT FOR CARD DONE, TIMING ERROR, OR
s COLUMN READY

D D b

HLT
MOV

COUNT
#44200,aCRS

;SET EJVECT

;CLEAR COLUMN READY

D d e

REST9:

#2,aCRS
a(RB1

;WAIT FOR COLUMN READY

) b D

177776

AN INTERRUPT OCCURS

e md

000646

BEQ
BIS
TST
CLR
BIT
BNE
INC
BNE
HLT
BR
BIT
SNE
BIT
BEQ
HLT
BR

:START READ

) b

104000

(RS
a(CRS

PSR

IS CLEARED

sINITIALIZE STATUS REGISTER
:SAVE PROCESSOR STATUS
:CLEAR TRACE BIT

D oD

000200

013737

1ST8

COLUMN READY

b d b e

(KS:

040000

MOV

SEQ 0021

d b

WAIT9:

044200

_CURRENT

NIT
PSR, PROC

CLR
INC

000002

THE

b D ed e

000646

PAGE 22

d e

PREVENTED

09:50

d e

1003

011434
177776
177776

27-SEP-79

b e

004737
013737

30A(1052)

—d i ad oD

997
958
999
1000
1001
1002

DIAG TSTS MACY1T1
26~SEP-79 15:13

N
(@l V]

CZCRACO CR1Y
CZCRAC.P1Y

004737
012710
052737
013760
042737
012713

1053

" U5

1055
1056

1057
1058
1059

105713
100376
016037
005013

1060
1061
1062

1063
1064
1065
1066
1067

30A(1052)

27-SEP-79
JSR

177776

000002

TINT11:

022626
012710
005037

000232
000232

002654
002660

002670
002672
002674
002676
002702

004737
012710
052737
013760
012713
032713
001775
000402
104000
022626
005013
012710
005037

011434
002670
000340
177776

000103
040000

177776
000002

;INITIALIZE

#340,PSR

*SET PROCESSOR STATUS TO LEVEL 7

#101.aCRS
acgs
.-

MOV
CLR

2(ADINT) PSR
aCRS

CONT11

:LOAD RETURN POINTER

:LOAD RETURN PROCESSOR STATUS
*SET PROCESSOR PRIORITY TO 0

*SET READ AND INTERRUPT ENABLE
*WAIT FOR COLUMN READY

:RESTORE PROCESSOR TO HIGHEST PRIORITY
*CLEAR INTERRUPT ENABLE

*COLUMN READY DID NOT

INTERRUPT

CLR

aCRS

;:CLEAR INTERRUPT ENABLE

BMI
HLT
cMP

.44

*BRANCH IF SET
*COLUMN READY WASN'T SET
*RESTORE STACK POINTER

TSTB

CONT11: MOV
CLR

10400

SEQ 0022

¥7,INIT

PSR,2(ADINT)
#340,PSR

HLT

105713
100401
104000

MOV
BIC
MOV

104000

PAGE 23

#TINT11,3ADINT

;gre
L

177776

09:50

MOV

BIS

177776
000002

000405
005013

1068

1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081

aCRS

*MAKE SURE

(SP)+, (SP)+

#232 ,8ADINT
a¥232

COLUMN READY

SET

*CHANGE INTERRUPT RETURN ADDRESS
*TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS

TEST12: SCOPE
; CARD DONE SHOULQ; T CAUSE AN INTERRUPT IF THE PROCESSOR IS AT LEVEL
JSR
INIT
SJINITIALIZE
MOV
#TINT12,8ADINT
:SETUP RETURN

#340,PSR

:SET PROCESSOR TO LEVEL 7 PRIORITY

MoV
gé;

#103,aCRS
#42000.8CRS

;SET EJECT, INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE

BR
HLT
cMP

.+6

;CONTINUE IF NO INTERRUPT OCCURRED
sAN INTERRUPT OCCURRED
;RESTORE STACK POINTER

MOV

TINT12:

CLR
MOV

000232
000232

7 PRIORITY

BIS

CLR

PSR, 2 (ADINT)

(SP)+,(SP)+
aCRS
#232,3ADINT

w232

;LOAD RETURN PRCCESSOR STATUS

;CLEAR INTERRUPT ENABLE AND EJECT
s CHANGE INTERRUPT RETURN ADDRESS

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

;FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS
sPRINT OUT A MESSAGE

STATING THIS LEVEL

IS OTHER THAN THE

STANDARD

sMAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL
;THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE, AND THE PROGRAM MUST
;BE STARTED OVER AT LOCATION 200 FOR IT TO BE PRINTED AGAIN

3
SOSODO0OR

—

b el

104001

004737
012710
052737
013760
042737
052737
012713
032713
001775
016037
005013

;TEST FOR AN INTERRUPT ON LEVEL 7

TEST13:

011434
177776
000002
177776
177776

SCOPE
JSR
MOV
BIS
MOV
BIC
BIS
MOV

7. INIT
#TINT13,3ADINT
#340,PSR
PSR,2(ADINT)
0.PSR
#300.PSR
#1703 aCRS

;INITIALIZE
:SETUP RETURN ADDRESS
*SET PROCESSOR PRIORITY TO 7
-SETUP RETURN PROCESSOR STATUS
*SET PROCESSOR PRIORITY TO 0
*SET PROCESSOR TO LEVEL 6 PRIORITY
*SET EJECT INTERRUPT ENABLE, AND READ

MOV
CLR

2(ADINT) PSR
aCRS

:RESTORE PROCESSOR TO HIGHEST PRIORITY
*DISABLE INTERRUPTS

Séé
000002

177776

140060 aCRS

*WAIT FOR CARD DONE

c(
A —A_a2_M_A_A_2_2a

CZCRACO CR11 DIAG TSTS
CZCRAC.P1T
26~SEP-79

(LEVEL 6)

CZCRACO (R11 DIAG TSTS MACY11 30A(1052)
CZCRAC.PN
26=SEP-79 15:13

27-SEP-79

09:50

PAGE 24

SEQ 0023

1109

002772

012710

000232

MoV

#232 QADINT

s CHANGE INTERRUPT RETURN ADDRESS

1111
1112
1113
1114
1115
1116
1117

003002
003006
003010
003016

005737
100044
023727
100440

000602

TST
BPL
cMP
B8MI

INTFLG
TEST14
INTFLG,#100007
TEST14

sCHECK TO SEE IF LEVEL ALREADY RECORDED
¢IF NO, GO TO NEXT TEST
IF SO, CHECK TO SEE
s THAT THE INTERRUPT LEVEL RECORDED
:1S BELOW THE CURRENT LEVEL
¢ INTERRUPT DIDN'T OCCUR WITH STATUS
;AT LEVEL 7, BUT PREVIOUSLY OCCURRED

1110

002776

005037

000232

000602

CLR

100007

003020

104000

HLT

1118
1119
1120
1121
1122
1123
1126
115
1128

003022
003024
003030
003032
003034
003036
003042
003046

000436
032713
0010C%
104000
0C5013
(12710
005037
022626

BR
TINT13: BIT
BNE
HLT
CLR
MOV
CLR
CMP

1128
1129
1130
1131

003054
003056
00306«
003070

100414
012737
012702
004737

1127

1132

1133

1134
1135
1136

1}%;

003050

003074

003100

003104
003100
2114

003116

005737

012702

004737

000405
023727
100001

040000

000232
000232
000602

TST

100007
014503
012152
000007
011734

000602

100007

104000

1141

003120
003122
003126
003132
003140
003146

104001
004737
012710
052737
013760
042737

1150
1151
1152
1153
1154

003166
003172
003174
003202
003204

032713
001775
016037
005013
012710

1156
1157

003214
003216

000426
032713

1161

003230

012710

1155

1158
1159
1160

1162
1163
1164

INTFLG

sMAKE SURE CARD DONE IS SET
sBRANCH IF SET
;CARD DONE WASN'T SET
;DISABLE FURTHER INTERRUPTS
: CHANGE INTERRUPT RETURN ADDRESS
;7O CAUSE A HALT IF AN INTERRUPT OCCURS
JRESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

003154
003162

003210
003222
003224
003226

003234

003240
003242

052737
012713

005037
001001
104000
005013

005037
022626
005737

JIF

;CHECK PREVIOUS LEVEL

s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

1S FOUND HERE

DON'T PRINT OUT A MESSAGE

JINITIALIZE
;SETUP RETURN ADDRESS
;SET PROCESSOR PRIORITY TO 7
;SETUP RETURN PROCESSOR STATUS
;SET PROCESSOR PRIORITY TO O

#40000,aCRS
.~4
2(ADINT) PSR
aCRS
#232 ,aADINT

;WAIT FOR CARD DONE

000232

BIT
BEQ
MoV
CLR
MOV

040000

B8R
TINT14: BIT

000232

MoV

aCRS
#232,3ADINT

(MP
TST

(SP)+,(SP)+
INTFLG

000240
000103

177776

040000
000002

000232

000232
000602

177776

TEST14
INTFLG,#100007
TEST14

JPRINT LEVEL NUMBER

X7, INIT
NTINT14 ,QADINT
#340,PSR
PSR,2(ADINT)
#340,PSR

177776
000002
177776

1
1

%7 ,PROCT

#7 ,R2

SCOPE
JSR
MOV
BIS
MOV
BIC

011434
003216
000340
177776
000340

1
1
1
1
1
1

JSR

BR
CMP
BPL

TEST14:

1
1
1
1
1
1
1

1
1
1
1

;TEST FOR AN INTERRUPT ON LEVEL 6
JSINCE THIS 1S WHERE THE CARD READER NORMALLY IS,

1142
1143
1144
1145
1146
1147

1148
1149

aCRS
#232 ,8ADINT
an232
(SP)+,(SP)+

;AT OR ABOVE THIS LEVEL

SET7
;BRANCH IF FLAG SET
#100007, INTFLG ;SET FLAG AND LEVEL
#MSG4 ,R2
;SETUP FOR PRINTOUT
X7,T0UT
;PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''

HLT

1139
1140

TEST14
#40000,aCRS
L

;TO CAUSE A HALT IF AN INTERRUPT OCCURS

BMI
MOV
MOV
JSR

MoV

SET7:

w23l

€2
c2¢

BIS
MOV

CLR

BNE
HLT
CLR

CLR

#2460 ,PSR
#103, aCRS

232

TEST15
#40000,aCRS
.t4

232

;SET PROCESSOR TO LEVEL 5 PRIORITY
:SET EJECT, INTERRUPT ENABLE, AND READ

1
1
1

}
1
1
1

1
1
1
1
1
1

1
1

SRESTORE PROCESSOR TO HIGHEST PRIORITY
;DISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS

1
1
1
1
1

MAKE SURE CARD DONE

1
1

;TO CAUSE A HALT IF AN INTERRUPT OCCURS
IS SET

;BRANCH IF SET
;CARD DONE WASN'T SET
;DISABLE FURTHER INTERRUPTS

; CHANGE

INTERRUPT RETURN ADDRESS

;7O CAUSE A HALT IF AN INTERRUPT OCCURS
JRESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

1
1
1
1

1
1

Y1
CZCRACO CR1Y DIAG TSTS MACY11
30A(1052)
CZCRAC.PIT
26-SEP=79 15:13

1165
003246
1166
003250
1167
003256
1168
003260
1169
003266
1170003270

100404
012737
000405
023727
100001
104000

1173

104001

17
172

003272

100006

000602

100006

003274
003300
003304

004737
012710
052737

011434
003410
000340

1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
119
1195
1196
1197
1198
1199
1200
1201
1202

003320
003326
00333
003340
003344
003346
003354
003356
003362
003366
003372
003374
003402

042737
052737
012713
032713
001775
016037
005013
012710
005037
005737
100044
023727
100440

000340
000200
000103
040000

003404

104000

003406
003410
003414
003416
003420
003422
003426

000436
032713
001001
104000
005013
012710
005037

1204
1205
1206
1207
1208
1209
1210
1211
1212

003440
00342
003450
003454
003460
003464
00370
003472
003500

022626
005737
100414
012737
012702
004737
012702
004737
000405
023727
100001

1215
1216
1217
1218
1219
1220

003504
003506
003512
003516
003524

104001
004737
012710
052737
013760

1203

1213

003312

003432
003434

003502

013760

09:50

BMI
MOV
BR
C(MP
BPL
HLT

SET14:

PAGE 25

SEQ 0024

SETI4
#100006,INTFLG
TEST15
INTFLG,#100006
TESTIS

;TEST FOR AN INTERRUPT ON LEVEL

1174
1175
1176

1177

27-SEP-79

TEST1S:
177776

177776

000002

177776

100005

000602
100005
014503
012152
000005
011734

000602

100005

104000

SETS:

BIC
BIS
MOV
BIT
BEQ
MOV
CLR
MOV
CLR
TST
BPL
CMP
BMI

#340,PSR
#200.PSR
#103.aCRS
#40000,aCRS
.4
2(ADINT) PSR
aCRS
#232,8ADINT
@232
INTFLG
TEST16
INTFLG,#100005
TEST16

:SET PROCESSOR PRIORITY TO 0
:SET PROCESSOR TO LEVEL 4 PRIORITY
:SET EJECT INTERRUPT ENABLE, AND READ
:WAIT FOR CARD DONE

(MP
TST
BMI
MOV
MOV
JSR
MOV
JSR
BR
CMP
BPL

HLT

011434
003622
000340
177776

177776
000002

5
: INITIALIZE
:SETUP RETURN ADDRESS
:SET PROCESSOR PRIORITY TO 7

BR
TINT1S: BIT
BNE
HLT
CLR
MOV
CLR

000232
000232

: INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

X7,INIT
WTINT1S,@ADINT
#340,PSR

PSR,J(ADINT)

HLT

040000

;CHECK PREVIOUS LEVEL

JSR
MOV
BIS

MOV

177776
177776

000232
000232
000602
000602

SCOPE

:BRANCH IF FLAG SET
:SET FLAG AND LEVEL

[EST16
#40000,3CRS
.+

aCRS
#232,3ADINT
a4232
(SP)+,(SP)+

INTFLG

:SETUP RETURN PROCESSOR STATUS

;RESTORE PROCESSOR TO HIGHEST PRIORITY
:DISABLE INTERRUPTS
:CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS
:CHECK TO SEE IF LEVEL ALREADY RECORDED
:IF NO, GO TO NEXT TEST
:IF SO, CHECK TO SEE
:THAT THE INTERRUPT LEVEL RECORDED
:1S _BELOW THE CURRENT LEVEL
:INTERRUPT DIDN'T OCCUR WITH STATUS
:AT LEVEL 5, BUT PREVIOUSLY OCCURRED
;AT OR ABOVE THIS LEVEL
;MAKE SURE CARD DONE IS SET
:BRANCH IF SET
:CARD DONE WASN'T SET
:DISABLE FURTHER INTERRUPTS
:CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS

(RESTORE STACK POINTER
:CHECK FOR PREVIOUS FLAG

SETS
:BRANCH IF FLAG SET
#100005,INTFLG ;SET_FLAG AND LEVEL
#MSG4,R2
:SETUP FOR PRINTOUT
%7,T00T
:PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
#5.R2
%7.PROCT
;PRINT LEVEL NUMBER
TEST16
INTFLG,#100005
;CHECK PREVIOUS LEVEL
TEST16

:TEST FOR AN INTERRUPT ON LEVEL
TEST16: SCOPE
JSR ~
X7,INIT
MOV
WTINT16,@ADINT
BIS
#340,PSR
MOV
PSR,2(ADINT)

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

:INITIALIZE
:SETUP RETURN ADDRESS
:SET PROCESSOR PRIORITY TO 7
:SETUP RETURN PROCESSOR STATUS

1239

003622

000436
032713

040000

TINT16:

BIT

TEST17

#42000,8CRS
.+

aCRS

12643
1264

003634
003640

012710
005037

000232
000232

12646

003646

005737

000602

12648
12649
1250
1251
1252

003654
003662
003666
003672
003676

012737
012702
004737
012702
004737

100004
014503
0121.2
000004
011734

000602

12564

003704

000602

100004

00040
023727

#232 ,@ADINT
a¥ 232

JSR

SET4:

MOV
JSR
BR
(MP
BPL
HLT

;AT OR ABOVE

THIS LEVEL

sMAKE SURE CARD DONE IS SET
sBRANCH IF SET
sCARD DONE WASN'T SET
;DISABLE FURTHER INTERRUPTS
; CHANGE INTERRUPT RETURN ADDRESS
;7O CAUSE A HALT IF AN INTERRUPT OCCURS
JRESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

(STMY+ (SPy+
INTFLG
SFT4
- BRANCH IF FLAG SET
#100004, INTFLG ;SET FLAG AND LEVEL
#MSG4 ,R2
;SETUP FOR PRINTOUT
;PRINT MESSAGE ‘‘THE INTERRUPT LEVEL WAS''
x7,T0UT

#4 R

X7 ,PROCT
TEST17

INTFLG,#100004
TEST17

;PRINT LEVEL NUMBER
;CHECK PREVIOUS LEVEL
s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

cTEST _FOR AN INTERRUPT ON LEVEL 3

1260

1262
1263
1266
1265

003720

003730
003736
003744
003752

004737

052737
013760
042737
052737

TEST17:

011434

000340
177776
000340
000100

177776
000002
177776
177776

177776

100003

SCOPE
JSR
MOV
BIS
MOV
BIC
BIS
MOV
BIT
BEQ

X7.INIT

#TINT17,3ADINT
#340,PSR
PSR,
2 (ADINT)
#340,PSR
#100.PSR
#103.3CRS

#40000.,aCRS
-4

MOV

2(ADINT) PSR

MOV
CLR
TST
8PL
(MP
B8M]

0232 aADINT

CLR

w232

INTFLG
TEST18

INTFLG.#100003

TEST18

JINITIALIZE
;SETUP RETURN ADDRESS
;SET PROCESSOR PRIORITY TO 7
;SETUP RETURN PROCESSOR STATUS
;SET PROCESSOR FRIORITY TO O
;SET PROCESSOR TO LEVEL 2 PRIORITY
sSET EJECT INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE

sRESTORE PROCESSOR TO HIGHEST PRIORITY
;DISABLE INTERRUPTS
; CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS

;CHECK TO SEE IF LEVEL ALREADY RECORDED

;1F NO, GO TO NEXT TEST
;IF

SO,

CHECK TO SEE

:THAT THE

INTERRUPT LEVEL RECORDED

a_a
A_
A&
A
A

1S BELOW THE CURRENT LEVEL
sINTERRUPT DIDN'T OCCUR WITH STATUS
;AT LEVEL 4, BUT PREVIOUSLY OCCURRED

a_a2a

INTERRUPT LEVEL RECORDED

_ & A_A_A_A_A_A_A_A_A_a_a
_

HLT

:THAT THE

A_ A& _ A _aA_ A

100004

;CHECK TO SEE IF LEVEL ALREADY RECORDED
;IF NC
GO TO NEXT TEST
:IF SO, CHECK TO SEE

000602

INTFLG
TEST17
INTFLG,#100004
TEST17

023727

TST
BPL
CMP
8M]

#232.8ADINT
an232

A_A_a_8&

003606

CLR

JRESTORE PROCESSOR TO HIGHEST PRIORITY
sDISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS

A_ A

1232

MOV

2(ADINT) PSR

;SET PROCESSOR TO LEVEL 3 PRIORITY

sSET EJECT INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE

A-A_

000232
000232
000602

a40060 aCRS

;SET PROCESSOR PRIORITY 10 O

a-A_

177776

#340,PSR
#140.PSR
#103 .aCRS

_A—A_A_. A

000002

BI(C
BIS
MOV
BIT
BEQ
MOV
CLR

SEQ 0025

177776
177776

]

Ae—M_

000340
000140
000103
040000

PAGE 26

_ A_

042737
052737
012713
032713
001775
016037
005013
012710
005037
005737

(09:50

003532
003540
003546
003552
003556
003560
003566
003570
003574
003600

27-SEP-79

1221
1222
1223
1226
1225
1226
1227
1228
1229
1230

30A(1052)

CIZCRACO CR11 DIAG TSTS MACY11
CZCRAC.P
26-SEP-79 15:13

CZCRACO CRYIY DIAG 157 S MACY) 1
CZCRAC.PT
26-SEP-?9 15:1%
1277
1278
1279
1280
1281

004030

30A(1052)

104000

1282

B8R
TINT17: 817
BNE
HLT
CLR
MoV
CLR
M

000232
000¢3¢2
000602
100003

014503
012152
000003
011734
000602

S-S
Lo S
FRONRFBE

b
o
d o

3 &g 3
RORIK

=0 VB ~NOWNWES
W =20

d
D

D
id
e
e
d

-l
d el wd el
d

ed el
—_— b

AN N N NN N NN NN

¥¥

R PS
PRRRREREE B8%
PRF
S33852838280888

004114

TST

004737
012710
052737
013760
042737
052737
012713
032713
001775
016037
005013
012710
005037
005737

100003

177776

000002

177776
177776

177776

100044

023727
100440

= )
MOV
MOV

000602

104001

100002

SET3:

PAGE 27

8PL
HLT

040000

000232
000232
000602

2
SEQ 0026

;1S BELOW THE CURRENT LEVEL

JINTERRUPT DIDN'T OCCUR WITH STATUS
JAT LEVEL 3, BUT PREVIOUSLY OCCURRED
;AT OR ABOVE THIS LEVEL

TEST18
#40000,8CRS

JMAKE SURE CARD DONE

IS SET

;BRANCH

acRS
2232 QADINT

‘DISABLE FURTHER INTERRUPTS
"CHANGE INTERRUPT RETURN ADDRESS

23l

(SP)+, (SP)+

INTFLG

SET3

SET

;CARD DONE WASN'T SET

“TO CAUSE A HALT IF AN INTERRUPT OCCURS
"RESTORE STACK POINTER

‘CHECK FOR PREVIOUS FLAG

:BRANCH [F FLAG SET

#100003, INTFLG ;SET FLAG AND LEVEL
MMSG4 R2
SSETUP FOR PRINTOUT
§§'£SUT
*PRINT MESSAGE '‘THE

17 PROCT

TEST18
%?;;%g,l100003

INTERRUPT

LEVEL

WAS''

;PRINT LEVEL NUMBER
;CHECK PREVIOUS LEVEL

s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

TEST FOR AN INTERRUPT ON LEVEL 2
TEST18: SCOPE
JSR
X7,INIT
JINITIALIZE
#TINT18,8ADINT
;SETUP RETURN ADDRESS
MOV
#340,PSR
;SET PROCESSOR PRIORITY TO 7
BIS
PSR,2(ADINT)
;SETUP RETURN PROCESSOR STATUS
MOV
#340,PSR
;SET PROCESSOR PRIORITY TO O
BIC
#040,PSR
;SET PROCESSOR TO LEVEL 1 PRIORITY
8IS
#103,aCRS
;SET EJECT INTERRUPT ENABLE, AND READ
MOV
oagoéo.acns
‘WAIT FOR CARD DONE
BIT
BEQ
MOV
2(ADINT)
PSR ;RESTORE PROCESSOR TO HIGHEST PRIORITY
aCRS
;DISABLE INTERRUPTS
CLR
#232 ,@ADINT
s CHANGE INTERRUPT RETURN ADDRESS
MOV
an23?
27O CAUSE A HALT IF AN INTERRUPT OCCURS
CLR
TST
INTFLG
;CHECK TO SEE IF LEVEL ALREADY RECORDED
TEST19
;IF NO, GO TO NEXT TEST
BPL
cMP
INTFLG,#100002
IF SO, CHECK TO SEE
BM]
TESTI9
;THAT THE INTERRUPT LEVEL RECORDED

;1S BELOW THE CURRENT LEVEL
s INTERRUPT DIDN'T OCCUR WITH STATUS

HLT

104000

005013
012710
005037
022626
005737

JSR
MOV
JSR
B8R

C(TMMP

104000

000436
032713
001001

09:50

HLT

0460000

1283

004230

27-SEP-79

TINT18:

BR
BIT

TEST19
#40000,aCRS
YA

aCRS

#232 ,3ADINT

aN232

(SP)+, (SP)+
INTFLG

;AT LEVEL 2, BUT PREVIOUSLY OCCURRED
;AT OR ABOVE THIS LEVEL
;JMAKE SURE CARD DONE
;BRANCH

IS SET

SET

;CARD DONE WASN'T SET

‘DISABLE FURTHER INTERRUPTS

*CHANGE INTERRI®T RETURN ADDRESS

*TO CAUSE A HALT IF AN INTERRUPT OCCURS
*RESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

1335

004306

012702

100002 000602

014503

1337 004316 012702

000002

1338

004322

00«737

011734

1340

006330

023727

000602

11333

004340

104000

1339 004326 000405
13%1

1344

004336

100001

104001
004737

011434

13%8

004356

052737

000340

177776

1351

004376

052737

000000

004410

032713

040000

1347 004350 012710 004460

1355

1356

004414

005013

004436

005737

1357 004626
1358 004432
1359

1360 004442
1361 004444
1362 004452

1363
1364
1365
1366

1367
1368
1369
1370
1371

1372
1373
1374
1375
1376

1377
1378
1379
1380

012710
005037
100044
023727
100440

004454

104000

004456
004460
004464

000436
032713
001001

004466
004470

104000
005013

BPL

TEST19: SCOPE
JSR

#2332 @ADINT
an23d

000602

8PL
CMP
gM]

TEST20
INTFLG,#100001
TEST20

BIS

004552

104000

113332

1387
1388

004554

100001
104001

BEQ

CLR

000602

100001

BR
TINT19: BIT
BNE

040000

000602

HLT
CLR

SET1:

;RESTORE PROCESSOR TO HIGHEST PRIORITY

‘DISABLE INTERRUPTS

INTFLG

*CHECK TO SEE IF LEVEL ALREADY RECORDED

TEST20
#40000,aCRS
.44
aCRS

*CHANGE INTERRUPT RETURN ADDRESS
“TO CAUSE A HALT IF AN INTERRUPT OCCURS
:IF NO, GO TO NEXT TEST
:IF SO. CHECK TO SEE
STHAT THE INTERRUPT LEVEL RECORDED

$1S BELOW THE CURRENT LEVEL
*INTERRUPT DIDN'T OCCUR WITH STATUS
AT LEVEL 1, BUT PREVIOUSLY OCCURRED
AT OR ABOVE THIS LEVEL
:MAKE SURE CARD DONE IS SET
SBRANCH IF SET

*CARD DONE WASN'T SET
*DISABLE FURTHER INTERRUPTS

#2332 @ADINT
an232
(SP)+,(SP)+

MOV
MOV
JSR
MOV

#100001, INTFLG :SET FLAG AND LEVEL
MMSG4 R
:SETUP FOR PRINTOUT
17.700T
*PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
#1.R2

TEST20

JSR

100001

:SETUP RETURN PROCESSOR STATUS
*SET PROCESSOR PRIORITY TO O
*SET PROCESSOR TO LEVEL O PRIORITY
*SET EJECT INTERRUPT ENABLE, AND READ
*WAIT FOR CARD DONE

MOV
CLR
cTMP
ST
)

000602

:SETUP RETURN ADDRESS

aCRS

HLT

011734

023727

004550

*SET PROCESSOR PRIORITY TO 7

MOV
CLR

100001
014503
012152
000001

004542

1384

#340 PSR

000232
000232

012737
012702
004737
012702

1383

;INITIALIZE

2(ADINT)
PSR

000602

000405

X7.INIT

MOV

005737
100414

004737

:SETUP FOR PRINTOUT

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

177776

004512
004520
004526
004530

004540

TESTI9

177776

000232
000232

004534

1382

;CHECK PREVIOUS LEVEL

TEST19

PSR,o(ADINT)
#3460, PSR
#000. PSR
#103 3CRS
#40000,aCRS

012710
005037
022626

1381

INTFLG,#100002

MOV
BIC
BIS
MOV
BIT

004472
004476
004502

004504
004510

;PRINT LEVEL MUMBER

#2.R2

#TINT19,@ADINT

004416 016037 000002
004426

X7.PROCT

MOV

012713 000103
001775

*PRINT MESSAGE ''THE INTERRUPT LEVEL WAS

SET2: CMP

1349 004362 013760 177776 000002
1350 004370 042737 000340 1:7776
1353

X7, TOUT

WMSG4
R2

;TEST FOR AN INTERRUPT ON LEVEL 1

004342
004344

1354

SEQ 0027

JSR

HLT

135S
1346

1352 004406

SET2
:BRANCH IF FLAG SET
#100002, INTFLG ;SET FLAG AND LEVE!

JSR

100002

PAGE 28

BM]
MOV
MOV

1336 004312 004737 012152

(09:50

CMP

BPL

HLT

INTFLG
SET1

*CHANGE INTERRUPT RETURN ADDRESS
‘TO CAUSE A HALT IF AN INTERRUPT OCCURS
*RESTORE STACK POINTER

*CHECK FOR PREVIOUS FLAG
:;BRANCH IF FLAG SET

X7 PROCT

;PRINT LEVEL NUMBER

INTFLG,#100001

;CHECK PREVIOUS LEVEL

TEST20

: INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

;A TIMING ERROR SHOULDN'T CAUSE AN INTERRUPT

TEST20:

SCOPE

1333 004276 100414
133, 006300 012737

27-SEP-79

NINIRINRININNININIAY TN I T 0 I AN 1 I 13 1N 12 1N 1) O AN 1 DN PN O PN N I N AN AN N I N AN I AN A I N AN N A I PN P P )

1
CZCRACO CR1Y DIAG TSTS MACY11
30A(1052)
CZCRAC.P1T
26-SEP=79 15:13

|
CZCRACD CRY1 DIAG TSTS
CZCRAC.PN
26-SEP-79

004556
004562
004566
004574
004602
606

004737
012710
052737
013760

JSR

MOV
BIS
MOV
MOV

177776
000002

177776

1397
1398
1399

177776

1400
1601
1602

8IT
BEQ

8I(C
NOP
MOV
BR
TINT20: HLT
CMP
MOV

1403
1604
1405
1406
1407
1408
16409
1410
16411
1412
1413

CLR
BIT
BEQ
CLR

TEST21:

X7, INIT

#TINT20,3ADINT
#340, PSR

PSR‘é(ADINT)

#10%

SCRS

04206.acas
#340,PSR
2(ADINT) PSR
.+6

JINITIALIZE
¢LOAD RETURN POINTER
¢SET PROCESSOR TO HIGHEST PRIORITY
sLOAD RETURN PROCESSOR STATUS
sSET INTERRUPT ENABLE AND READ
;WAIT FOR TIMING ERROR TO SET
;MOVE PROCESSOR TO LOWEST PRIORITY
s CLOCK INTERRUPT IF IT OCCURRED
;MOVE PROCESSOR BACK TO HIGHEST PRIORITY
sTIMING ERROR CAUSED AN INTERRUPT

232

p4gooo.acns

JRESTORE STACK POINTER
s CHANGE INTERR.®PT ADDRESS TO CAUSE A
JHALT IF AN INTERRUPT OCCURS
;WAIT FOR CARD DONE

aCRS

;CLEAR INTERRUPT ENABLE

(SP)+,(SP)+
#232 ,BADINT

SCOPE

;TEST FOR NO INTE;RUPT OCCURING WITH INTERRUPT ENABLE SET AND REST CLEARED

177776
000002

1414

177776

TEST22:

177776
000002
177776

CONT21

HLT

CMP

177776

(SP)+,(SP)+

acRS

232
#232.3ADINT

sSET PROCESSOR TO LEVEL 7
sSTORE PROCESSOR STATUS
;SET PROCESSOR TO LEVEL 0
sENABLE INTERRUPTS
SWAIT AWHILE

;RESTORE PROCESSOR TO LEVEL 7

;DISABLE FURTHER INTERRUPTS

;AN INTERRUPT OCCURRED
cRESTORE STACK
;DISABLE FURTHER INTERRUPTS
; CHANGE INTERRUPT RETURN ADDRESS TO
;CAUSE A HALT IF AN INTERRUPT OCCURS

SCOPE

BIS

#340,PSR

MOV

#103.aCRS

MOV
BIC
12INT:

177776

aCRS

JINITIALIZE CSR TO ZERO

cSETUP RETURN ADDRESS

;CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE LEVEL
JSR
X7, INIT
JINITIALIZE CSR TO ZERO
MOV
#T2INT ,@ADINT
;SETUP RETURN ADDRESS

WAIT

005044

PSR

#100,aCRS
#0
.~
2(ADINT) PSR

CLR

104001

#3460, PSR

MOV
INC
BNE
MOV

CONTZ21: CLR
MOV

000232
000232

000002

PSR,
2 (ADINT)

CLR

TNINT:

011434
005020
000340
177776
000340
000103

MOV

CLR

1415

012710

JINIT
#TNINT
. @ADINT

BIS

1416

1417

JSR
MOV

B8R

TM
MOV
CLR
NOP

MOV
BR
T2INTA: o, 2
HLT

PSR, 2 (ADINT)
#340.PSR

(6)+,(6)+
#T2INTA,@ADINT
PSR

2(ADINT) PSR
CONT22
(6)+,(6)+

;SET PROCESSOR TO LEVEL 7
;STORE PROCESSOR STATUS
;SET PRCCESSOR TO LEVEL O
sSET _INTERRUPT ENABLE AND EJECT A CARD
SWAIT FOR INTERRUPT

;SIT IF TRACE BIT IS SET
JRESTORE STACK POINTER
;CHANGE RETRUN ADDRESS
;SET PROCESSOR TO LEVEL O
JWAIT

;RESTORE PROCESSOR TO LEVEL 7
SJRESTORE STACK
;THE

INTERRUPT OCCURRED AT 2 LEVELS

NIRINRININRIRNIRRRN
N RN

1389
1390
139
1392
1393
1394
1395
139

SEQ 0028

005062

104001

1452
1453
1456

005064
005070
005072

004737
005213
105713

16456

005076

005014

16460
16461
1462

16463

005106
005110
005112
005114

000467
105713
100376
105014

16465

005120

1455

1457
1458
1459

16464

1666

1467

005074

005100
005102
005106

005116
005122

0051264

16468
1465
1470
16471
16472
16473
1474
16475
1476

005126
005130
005132
005136
005140
005142
005144
005146
005150

1478
16479
1480
16481
16482
1483
1484
1485
16486
16487
1488
16489
1490
1491
1492
1493
1496
1495
1496
1497
1498
1499
1500

005154
005156
005160
005162
005164
005166
005170
005174
005176
(05200
005202
005204
005206
005210
005214
005216
005220
005222
005224
005226
005230
005234
005240

1477

005152

011434

CONT22:

CLR

CLR
MOV

oCRS

w232
#232,3ADINT

;DISABLE INTERRUPTS

s CHANGE

INTERRUPT RETURN ADDRESS TO

sCAUSE A HALT IF AN INTERRUPT OCCURS

TEST23: SCOPE
;ALL MODES OF ADDRESSING CRB1 OR CRBZ2 (DATO,DATOB,DATI) SHOULD CLEAR
;COLUMN READY
JSR
INC
1ST8

100376

8PL

105713
100002
104000

1ST8
8PL
HLT

CLR

X7,INIT
aCRS
aCRS
.=2

JINITIALIZE
s START READING A CARD
JWAIT FOR COLUMN READY

aCRS
CNT23A

s CHECK COLUMN READY
;BRANCH IF CLEARED
;DATO TO CRB1 DIDN'T CLEAR READY

aCRB1

;DATO TO CRB1

BR
TSTB
8PL
CLR8

TEST24
aCRS
.~

;GO TO NEXT TEST
;WAIT FOR COLUMN READY

aCRB1

;DATOB TO LOW BYTE OF CRB1

100002

8PL

CNT23B

;BRANCH IF CLEARED

000460

(NT23A:

105713

TSTB

104000

105713
100376
105064
105713
100002
104000
000450
105713
100376

HLY

(NT238:

000001

005714

105713
100002
104000
000441
105713
100376
005077
105713
100002
104000
000431
105713
100376
105077
105713
100002
104000
000421
105713
100376
013702
105062
105713

173424

000640
000001

TEST24

1STB
BPL
CLRB
1ST8
8PL
HLT
BR
CNT23C: TSTB
BPL

a(RS
.=2
1(CRB1)
aCRS
CNT23C

TSTB
BPL
HLT
BR
CNT23D: TSTB
BPL
CLR
1ST8
BPL
HLT
BR
CNT23E: TSTB
8PL
CLRB
TST8
BPL
HLT
BR
CNT23F: 1ST8
8PL
MOV
CLRB
1S18

aCRS
CNT23D

TST

173444

aCRS

TEST24
aCRS
.=2

aCRB1

TEST24
aCRS
.=2
aCRB2
aCRS
CNT23E
TEST24
aCRS
.=2
aCRB2
aCRS
CNT23F
TEST24
aCRS
.=

CRB2,R2
i(R2)
aCRS

sCHECK COLUMN READY
;DATOB TO CRB1

LOW BYTE DIDN'T CLEAR READY

;GO TO NEXT TEST

;WAIT FOR COLUMN READY

;DATOB TO HIGH BYTE OF CRB1
sCHECK COLUMN READY

;BRANCH IF CLEARED
;DATOB TO CRB1 HIGH BYTE DIDN'T CLEAR READY
;GO TO NEXT TEST
:WAIT FOR COLUMN READY

:DAT1 TO CRB1

s CHECK COLUMN READY
;BRANCH IF CLEARED
;DAT] TO CRB1 DIDN'T CLEAR READY
;GO TO NEXT TEST
;WAIT FOR COLUMN READY

;DATO TO CRB?
;CHECK COLUMN READY
;BRANCH IF CLEARED
;DATO TO CRB2 DIDN'T CLEAR READY
:GO TO NEXT TEST
;WAIT FOR COLUMN READY
;DATOB TO LOW BYTE OF CRBZ2

;CHECK COLUMN READY
cBRANCH IF CLEARED
;DATOB TO CRB2 LOW BYTE DIDN'T CLEAR READY
;GO TO NEXT TEST
JWAIT FOR COLUMN READY

;LOAD POINTER
;DATOB TO HIGH BYTE OF CRB?
;CHECK COLUMN READY

SEQ 0029

AV NI AINI NI NI AINI AN NINININIAY

16449
1450
16451

000232
000232

005013

005037
012710

PAGE 30

AN AU NI NI AL S AR AL AN A AL AL A I AN AU AR AR

005050

005052
005056

09:50

ORI ALY

1445

1446
]‘zzg

27-SEP-79

C2CRACO CR11 DIAG TSTS MACY11 30A(1052)
CZCRAC.P1Y
26-SEP-79 15:13

105713
100376
005777
105713

CNT23G:
173360

100001
104000

TEST24:

104001

004737
005213
105713
100376
052713
105713
100402
104000
000421

032713
001013

040400

ed o

011506

o
b e
e

TIM24:

e
— D e

1S78

a(RS

;WAIT FOR COLUMN READY

aCRB?

;DATI

BPL
TST
7ST8
BPL
HLT

TO CRB?

sCHECK COLUMN READY
sBRANCH IF CLEARED

a(RS
TESTZ4

;DATI TO CRB2 DIDN'T CLEAR READY

SCOPE

CNTZ4B: HLT

P
OO&\J

;BRANCH IF CLEARED

;DATOB TO (CRB2 HIGH BYTE DIDN'T CLEAR READY
;GO TO NEXT TEST

BIT
BEQ
BIT
BNE
JSR
BR

040000

1545
1546
1547
1548
1549
1550

CNT23G
TEST24

(NT24A: BIT
BNE

004000

011506

END24:

000400

#2,aCRS
a(CRS

sSET EJECT
s CHECK COLUMN READY

END24

;BRANCH TO WAIT FOR DONE AFTER ERROR
;CHECK TIMING ERROR
;BRANCH IF SET
:CHECK CARD DONE AND OF F =L INE

#4000,aCRS
TIM24
#40400,aCRS

CNTZ24B
X7,CKBIT8

;JNO - BIT 8 WAS SET SO OUTPUT MESSAGE

;BRANCH AFTER COMING BACK ON-L INE
;CARD DONE SET BUT TIMING ERROR DIDN'T
sBRANCH TO NEXT SECTION
s CHECK COLUMN READY
;BRANCH IF NOT SET

ENDCK

ENDCK
aCRS
.+4

BIT
BEQ
BIT

#40400,aCRS

BEQ
JSR

;LOOP IF NONE SET
;CARD DONE SET?
;YES -~ BRANCH TO ERROR PRINTOUT

CNT24A

#40000,aCRS

BR
TSTB
8PL
HLT

;BRANCH IF STILL SET
JSETTING EJECT CLEARED COLUMN READY

CNT24A

sTIMING ERROR DIDN'T CLEAR READY
;WAIT FOR CARD DONE OR OF F-LINE

END24

;CHECK OFF LINE
JBRANCH IF NOT SET
;OUTPUT ERROR MESSAGE

#400,aCRS
ENDCK

%7.CxBIT8

;CHECK SW7 AND RETURN TO TEST1

IF SET, AFTER RINGING BELL

;OTHERWISE GO INTO THE DATA TEST

000200

005137
000137

011462
000644
000742

173206

ENDCK:

SCOPE
BIT
BEQ
JSR
0
JMP

#200,a3SwWR
DATST

X7,BELL

TRFLG
RESTRT

;TOGGLE TRA(CE FLAG

~NO
ON

SEQ 0030

BPL
HLT
BR

BPL
8IS
TSTB
8M!
HLT
BR

000002

1541
1542
1543
1544

;SETTING EJECT AFTER A COLUMN READY WITHOUT CLEARING THE COLUMN READY
sSHOULD SET TIMING ERROR (WHICH IN TURN SHOULD CLEAR COLUMM READY)
JSR
X7,INIT
JINITIALIZE
aCRS
INC
sSTART READING A CARD
1518
aCRS
;CHECK COLUMN READY - WAIT

011434

040400

PAGE 31

AL AL AL ALY NI NI AJ AL N AR AL AN AL AN A NI NI AL NN A NN NI AN NI AN AN NN N RO NI AN NN N

000407

09:50

PO AL AU AL AL AL AL

NOWNBWN
OOV
N NS WSO

o
D
d
D
D _p
b
e
o
od o
d e
d
D
o
e

005250
005252

27-SEP-79

100002
104000

d o

(U L AV IV LV LV RV AN AV AV LV RV, LV, LV AV QW SV IV, RV IV AV

005242
005244
005246

30A(1052)

[en]

CZCRACO CR1Y DIAG TSTS MACY! 1
CZCRAC.P1
26~SEP~79 15:13

AALAAALALAMAAALAAA

012710
042737
013760
004737
052713
000001
000776

000616

006646
000650
000020

173126

013524

014222
015627

006642
006644
006640

013024
013522
015616
000644

006642
006644
006640

000340

177776

010000

173032

000360
011434

177776

005634
000340
177776
006540
000101

DATSTZ:

(LR
BIT
BEQ

MOV
MOV

MOV
BR
ALP1:
MOV
MOV
MoV
CONTD:
TST
BNE
NOTRP1: MOV
BR
TRP1:
BIT

ERFLG
#20,aSWR
ALP1

#BINCD,TSTART
#BINEND, TEND

#MSG15,DECK
CONTD
N#ALPCD, TSTART
#ALPEND
, TEND

#MSG14,DECK
TRFLG
TRP1
#340,PSR
DCNT1

;FLAG SET PREVENTS PRINTING OUT ERROR HEADING
;CHECK BIT 4 OF SR FOR TYPE OF DECK
;BRANCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS

;BIT 2 SET, LOAD BINARY TABLE POINTERS
;BRANCH AROUND ALPHANUMERIC POINTERS
;LOAD ALPHANUMERIC TABLE POINTERS
;CHECK TRACE TRAP FLAG
sBRANCH IF FLAG WAS SET
;CLEAR TRACE BIT

#10000,aSwR

;CHECK SW12 TO INHIBIT TRACE TRAPPING

#SRVC ,aADINT

;SETUP RETURN POINTER
;SET PROCESSOR TO LEVEL O
;STORE CURRENT STATUS
;ADJUST POINTER AND START READING
;ENABLE INTERRUPTS
;WAIT FOR INTERRUPTS

BNE
NOTRP1
;BRANCH IF SET
MOV
#360,PSR
;SET TRACE BIT
DCNT1:
JSR
X7,INIT
sINITIALIZE CARD READER STATUS REGISTER
;SET UP INTERRUPT SERVICING, AND START READING
MOV

177776
000002

BIC
MOV
JSR
BIS

#340,PSR
PSR, 2(ADINT)
%7 ,NXCRD
#1071 ,aCRS

WAIT

; INTERRUPT SERVIgERQOUTINE WHICH RUNS DATA RELIABILITY TEST
TST
sCHECK SPECIAL CONDITION (BIT
8M]
ERSET
:BRANCH IF SET

SRVC:

1S18

8M!

006412

011437
105713
100006

052737
104000
000137
017737
012701

006650
006652

000340
006432
172734

000010

006656

NOTCOL

MoV
TSTB

oCRB1,DAT1
aCRS

BPL
81S
SCONT1:

.+6

JMP

INC

177776

aCRS

HLT
JMP
MOV

MOV

CLCNT

SCONT1
#340,PSR

LASTCK
@dCRB2 ,DATENC
#10, COUNT

la).")

000176

s CHECK S:oFOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS
#56,CDCNT
;SETUP CARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT C
BR
DATST2
sSKIP NEXT INSTRUCTION
DATST1: (MP
#SWREG, SWR
BNE
1%
CNTLU
KU
1$:
CLR
CDCNT
sSETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING

DATST:

0C5037
005037
032777
001412
012737
012737
012737
000411
012737
012737
012737
005737
001004
012737
000407
032777
001370
012737
004737

006646

ilillls]s)

104002
104006

000056

012737
000410
022737
001002

ARl

A RDIRNIADINDA
Y

:DATA RELIABILITY TEST FOR CR11

Q'QQttQ'Q"QltQ‘QQ'Q""'Q"Q."Q'Q'Qfitttfiititttttttt

RO A ADADRAODINDI R AD NI A AP

SEQ 0031

AL AN

PAGE 32

15)

:CHECK COLUMN READY

;BRANCH IF

SET

;JUMP IF NOT SET
;KEEP TRACK OF COLUMN NUMBER
;STORE DATA OF FIRST READ
JMAKE SURE COLUMN READY CLEARED
;BRANCH IF IT DID
;SET PROCESSOR TO LEVEL 7
JREADING DATA DIDN'T CLEAR (OLUMN READY
;GO TO NEXT CARD AFTER ERROR PRINTOUT
;STORE ENCODED DATA
JWAIT AWHILE

09:50

AN NN PO A

27-SEP-79

RO A

26~SEP-79 15:13

30A(1052)

NI AIAIAO AR

5 OO N NN

DIAG TSTS C
Y11

AOAOLRAOIARORAOIAOADADI RN

- e

RACO CR11
AC.P1T

VIV
IV, IV IV IV IV IV I
N NNNNNNNWA

C
€2

COUNT

000002
006654

006660

FAIL
#2 ,PTOFF

000004
006656

006660

#4 ,PTOFF

DAT2, (R5)+
FAIL

DATENC, (RS) +
FAIL

006644
006642

RTI

RS, TEND
+
.+6
TSTART,RS

sSET POINTER OFFSET
;CHECK SECOND READING OF SAME DATA
sBRANCH IF WRONG
sSET POINTER OFFSET
;CHECK ENCODED DATA
;BRANCH IF WRONG
;CHECK FOR END OF TABLE
sIF NOT THERE, RTI

;MOVE POINTER TO LOOP THRU TABLE

;SPECIAL CONDITION BIT 15 WAS SET WHEN THE INTERRUPT SERVICE ROUTINE
#340,PSR

sLOCK OUT INTERRUPTS

006646

#80.,CDCNT

006650

#80. ,CLCNT
ER1
ALLDON
#MSG16,R2

;CHECK FOR LAST CARD
;IF NOT, PRINT OUT MESSAGE
sIF LAST CARD, CHECK FOR LAST COLUMN
;IF NOT, PRINT MESSAGE
:1F END OF DECK, JUMP
;'BIT 15 WAS SET.''

000340

177776

000120
000120

006662
015640
012152
015661

ERSET:

ER1:

006432
000340

177776

020000

172512

FAIL:

X7,T0UT
#MSG17 ,R2
X7, T0UT

LASTCK
#340,PSR
#2,3CRS
aCRB1
#20000,aSWR
FAILCN
aSWwR
FAILC

172504

006432
040000

BIS

ER1

012152

000002

FAILC:

LASTCK
#4g000, aCRS
+

006432
000400
000120

LASTCK

#400,aCRS
FAILC

006646

#80.,CDCNT
+6

ALLDON

00666¢
011506
006540

000650

012702

000650
015526

%7.CKBITS
X7 _NXCRD

FAILCN:

;"REMEDY THE ERROR CONDITION
;AND PRESS CONTINUE''
;SET UP FOR NEXT CARD AND GO ON
;LOCK OUT INTERRUPTS
JSET EJECT TO PREVENT TIMING ERROR
JMAKE SURE COLUMN READY IS CLEARED

:CK SwW13

;CONTINUE IF NOT SET
JIF SET, CHECK FOR HALT ON ERROR
;BRANCH IF HALT ON ERROR NOT SET
;HALT ON ERROR SET
JCONTINUE AFTER HALT
;CHECK FOR CARD DONE
JINHIBIT PRINTOUT AFTER CARD DONE SET
;CHECK FOR OFF-LINE
;BRANCH [F NOT
;CHECK FOR LAST CARD

;IF LAST CARD, WAIT FOR NEXT DECK
;1F NOT LAST CARD, PRINT MESSAGE
;START NEXT CARD THRU READER

ERFLG

JTEST FLAG FOR PREVIOUS PRINTOUT

ERFLG
#MSG13,R2

JSET FLAG

NOHD

NI A

;WAS ENTERED

;OUTPUT A MESSAGE AND HALT

AN AL AL AN

DAT1,aRS

;STORE DATA OF SECOND READ
sCLEAR POINTER OFFSET
;CHECK FIRST DATA READ
JPRINTOUT IF WRONG

PTOFF

A AR

aCRB1,DAT2

006654
006660
006652

SEQ 0032

RO NI NI NI NI NI NN NN N PO NN NN A

AR R A RO AR

1617
1618
1619
1620
1621
1622
1623

PAGE 33

AR RO RO AD AR

1616

09:50

RO AR

005301
001376

27-SEP=-79

005712

30A(1052)

JIF SET,

DON'T OUTPUT HEADING

;OUTPUT HEADING FOR DATA ERROR PRINTOUTY

AOROROIROIAORO

1607
1608
1609
1610
1611
1612
1613
1614
1615

CZCRACO CR1T DIAG TSTS MACY)
CZCRAC.P1N
26=-SEP-79 15:13

1665

1666

1667
1668
1669
1670
1671

1672

1673
1674
1675
1676

006206
006212
006216
006222
006226
006232
006236
006242
006246
006252
006256
006262
006264
006270
006274
006300
006304

NOKD:

JSR
MOV
JSR
JSR
MOV

JSR
JSR

MOV

JSR
JSR
sSuB

163705

012502

MOV
JSR
JSR
Mov
JSR

011734
011542
006652
011734
011542

JSR

006654
011734
011542

MOV
JSR
JSR
MOV
JSR
JSR
MOV
JSR
KBINTT
TST
8PL

011734
011542
006656
011734
172242

HALT
TST

000120

006646

S
U
i

(o JANTo SUF NV NP T )

N
JE

S-S

000400

032713
001474
022737
001401
104000
022737
001403
004737
000002

006662
006000

FAILCY1:

040000

NOTCOL:

000120
000120

006650
006646

PTOFF ,RS

(RS)+,R2

X7.PROCT
X7 .SPACE
DAT1,R2
X7.PROCT
X7.,SPACE
DATZ.RZ2
X7.PROCT
X7 ,SPACE
@RS ,.R2
X7.PROCT
X7 ,SPACE
DATENC ,R2
X7.PROCT
aSWR
.+4

oCRS
LASTCK
#80.,CDCNT
FAILC1
#400,3CRS
LASTCD
ALLDON
ERSET

;OUTPUT TYPE OF DECK

sOUTPUT CARD NUMBER WHERE ERROR OCCURRED
;OUTPUT COLUMN NUMBER WHERE ERROR OCCURRED
sSUBTRACT OFFSET FROM POINTER TO POINT TO
;ADDRESS OF DESIRED PATTERN
;OUTPUT CORRECT DATA PATTERN (NOT ENCODED)
;OUTPUT DATA READ ON FIRST READING OF BUFFER
;OUTPUT DATA READ ONE MILLISECOND LATER
;OUTPUT CORRECT DATA PATTERN (ENCODED FORM)
;OUTPUT DATA READ (ENCODED)

;CHECK "HALT ON ERROR'' SWITCH
JBRANCH IF NOT SET
JHALT AFTER AN ERROR
s CHECK ERROR
;JBRANCH IF NOT SET
;CHECK FOR LAST CARD

;OUTPUT ERROR MESSAGE

s INTERRUPT NOT DUE TO ERROR OR COLUMN READY
BIT
#40000,aCRS
;CHECK FOR CARD DONE
Q
NOTCD
BE
;BRANCH IF NOT SET
#80.,CLCNT
(MP
;CHECK COLUMN COUNT
BEQ

LASTCK:

006540
011462
000042

JMP
umpP

X7,T0UT
DECK,RZ
X7.T0UT
X7,SPACE
CDCNT ,R2
X7.PROCT
X7,SPACE
CLCNT ,R2
X7.PROCT
X7,SPACE

LASTCD:

LOGIC:

HLT
CMP
BEQ
JSR
RTI
CMP
JSR
MOV
BEQ
RESET
JSR
NOP

#80.,CDCNT
LASTCD

X7 ,NXCRD

(SP)+,(SP)+

X7,BELL
w62, R2
END

X7, (R2)

;SKIP ERROR HALT IF 80 COLUMNS WERE READ
sLESS THAN EIGHTY CO'.UMNS WERE READ
;CHECK OR LAST CARD
JBRANCH IF LAST CARD
;IF NOT LAST CARD
;GO ON
;IF LAST CARD, RESTORE STACK PCINTER

JRING BELL TO SIGNIFY "PASS COMPLETE""
;MONITOR HOOK

N
aN

SEQ 0033

26-SEP-79 15:

AUMNLNIRUNLNLRL NV RL RV RN AN NN AL NNV ANV AL NN AL AL NI AN NV AN NIAINI NI A NN A AN N NININI NI NI AN N NI NN A

1663

1664

DIAG TSTS

(ZCRACO CR1Y
(ZCRAC.PT

013705
006337

005037
000207

000644
000100

000742
005436

000137

006432

032777
001403
000000
000137
032777
001025
005027
005337

177776

000040

006514
002000
000000
006726

ASL
ADD
ASR

CDCNT
CDCNT RS
CDCNT

;ADD OFFSET TO R5 TO POINT TO NEXT DATUM

BIC

#2,0CRS

DECK:
TSTART:
TEND :
CDCNT:
CLCNT:
DAT1:
DATZ:
DATENC:
PTOFF:

ALLDON:

JMP

HLT
JMP
0
O
0
O
O
0
0
0
O

CDCNT

aCRS
CDCNT
CLCNT

171712

LASTCK

JMULTIPLY CARD COUNT BY FOUR

;RESTORE CARD COUNT

:CLEAR EJECT IF SET
;READ ANOTHER CARD
;KEEP TRACK OF CARD NUMBER
sJINITIALIZE COLUMN COUNT
;RETURN

;END ADDRESS OF DATA TABLE
;NUMBER OF CARD BEING READ
sNUMBER OF

BIT

#40,aSWR

B8EQ

ALCNT

JMP
BIT

DECK(CK
#2000 ,aSWR

BNE
CLR
DEC

;NO BITS SET TO CAUSE ~N INTERRUPT
:START NEXT CARD
;ON-LINE TRANSITION CAUSED AN INTERRUPT
;START NEXT CARD
;POINTER TO LITERAL ''ALPHA'' OR 'BINARY'’
;STARTING ADDRESS OF DATA TABLE

27 .BELL
#600,3CRS

HALT

ALCNT:

LASTCK

JSR
BIT
BNE
HLT

171674

CDCNT

RTS
27
JINTERRUPT NOT CAUSED BY ERROR, COLUMN READY, OR CARD DONE
NOTCD:
BIS
#340,PSR
sLOCK OUT FURTHER INTERRUPTS
BIT
#2000,aCRS
;TEST ON-LINE TRANSITION BIT
BNE
NOTCD1
:BRANCH IF SET
NOTCD1:

011462
000400

JRERUN COMBINED INSTRUCTION AND DATA TEST

JLOAD R5 WITH TABLE STARTING ADDRESS

HLT

006432

:CHECK SW6
sBRANCH IF NOT SET

TSTART
RS

ASL

INC
INC
(LR

006650

. TOGGLE TRACE FLAG

MOV

ASR

006646

000340
002000

104000
000137
000000
000000
000000
000000
000000
000000
000000
000000
000000
004737
032713
001001
104000

NXCRD:

006642
006646
006646
006646
006646
006646
000002

052737
032713
001003
104000

17207C

;OF TESTING TO BE PERFORMED
DECKCK: COM
TRFLG
BIT
#100,aSWR
BEQ
.46
RESTRT
JMP
DATSTI
JMP

ALCNT1
#0
-

OO
NI NN NN NN
NN NN

005137
032777
001402
000137
000137

NI NN

JWHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SWé6 FOR TYPE

:CHECK SR FOR CONTINUATION TO ANOTHER DECK
;BRANCH TO HALT IF SW5 SET
s CONTINUE TO ANOTHER DECK
;DATA TEST DONE

NI AL NI NI NI A A

HALY

#40,aSWR
.+6
DECKCK

SEQ 0034

006514

BIT
BNE
JMP

RO A

END:

PAGE 35

172112

NOP
NOP

09:50

RO AIA AN

000040

27=-SEP-79

1719
1720
1721
1722
1723
1726
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
17461
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774

30A(1052)

COLUMN BEING CHECKED

;DATA ON FIRST READ FROM CRB1
;DATA ON SECOND READ OF CRB1
;DATA READ FROM CRBZ2
;OFFSET TO POINTER FOR DATA PRINTOUT
sRING BELL

sCHECK OFF-LINE BIT
;BRANCH IF SET
;OFF~LINE NOT SET, BUT SPECIAL CONDITION

JWAS SET AFTER 80 COLUMNS OF THE 80TH CARD WERE READ
;CHECK SR FOR HALT AT END Of DECK
IF NOT SET
E
sCONTINU
;END OF DECK,SW5S SET
;JCHECK FOR TYPE OF TESTING

;DOES THIS CR11 USE THE M829 MODULE?
; YES~ BRANCH
sNO-STALL TO ALLOW CARD DONE TO SET

AR IROIAORIIAGAGASIRIAOINIAIAIAIRAOIRAIAIRIAI

CZCRACO CR11 DIAG TSTS MACY11
CZCRAC.PTN
26=SEP-79 15:13

040000

032713
001401

104000

CHEELERRREERY

1792

000405
005013

032713

ALCNT1:

150,77

000340

177776

BI7

#40000, aCRS

BNE
MLT
CLR

157377

177776
000002

000002

CLR

aCRS

BIT

007132
000100
000340
000400
000002
011462

002000
000400

MOV
CLR
MOV

NOP

SRV(C1:

ALWA]IT:

177776

#156377 ,8CRS

#340,PSR

PSR,2(ADINT)
aCRS
aCRS
ALLOK

ALWAIT

#SRVC1,aADINT
PSR
#101,aCRS

MOV
CLR
HLT

2(ADINT) PSR
aCRS

CMP
CLR

(SP)+,(SP)+
aCRS

B8R

MOV
MOVB
BIC
BIT
BNE
MOV
HLT

SRV(Z:

aCRS

BR ALCNT?

ALCNTZ: BIS
MOV
INCB

177776

R IA

#157377 ,aCRS
A

8EQ
HLT

ALLOK:

.~
#0
=4

BIT
8EQ
HLT

TST
BMI
HLT

007070
177776
000101

B8R

JSR

(MP
SRVC2A: BIT
BNE
HLT
BiT
BEQ
HLT

DEC

BNE
DEC
BNE

000000

SEQ 0035

.+6

#SRV(CZ2,aADINT
#100.,aCRS
#340,PSR
#400,aCRS
A
2(ADINT) ,PSR

SRV(2A

X7 ,BELL

(SP)+,(SP)+
#2000,aCRS
R

#400,aCRS
.+

s CHECK CARD DONE

;CARD DONE DIDN'T SET- THIS ERROR COULD BE
;CAUSED BY RUNNING A CR11 WHICH HAS THE
sM829 MODULE AND NOT SETTING SWITCH REGISTER
;SWITCH 10
JONLY BIT 8 MAY STILL BE SET
;BRANCH IF OK

;STATUS REGISTER INCORRECT
:CLEAR ERROR
JONLY BITS 8 AND 9 MAY STILL BE SET

;BIT 9 MAY BE SET SINCE CARD MAY NOT
;YET HAVE CLEARED THE READER TO CAUSE
;CARD DONE
;STATUS REGISTER INCORRECT
;SET PROCESSOR TO LEVEL 7
:SETUP RETURN STATUS

NNV

BNE

000000

AN NI AN NN

001375

PAGE 36

006734
006736
006742
006744
006750
006752
006756
006760
006762

09:50

1775
1776
1777

27-SEP-79

SJATTEMPT TO READ- SHOULD RESET ERROR

;CHECK BIT 15

;BRANCH IF 0K

JSETTING READ DIDN'T RESET ERROR
;BRANCH TO WAIT FOR ON-LINE
;LOAD INTERRUPT RETURN ADDRESS
;SET PROCESSOR TO LEVEL O
cENABLE INTERRUPTS, KEEP ERROR SET BY SETTING READ
;CLOCK IN INTERRUPT
;SET PROCESSOR TO LEVEL 7
;CLEAR INTERRUPT ENABLE AND ERRCR
;BIT 15 DIDN'T CAUSE AN INTERRUPT
cRESTORE STACK POINTER
sCLEAR INTERRUPT ENABLE AND ERROR
: CHANGE INTERRUPT RETURN ADDRESS
JENABLE INTERRUPTS

;SET PROCESSOR TO LEVEL O
;CHECK OFF-LINE BIT
;LOOP UNTIL CLEAR

sSET PROCESSOR TO LEVEL 7

;NO INTERRUPT OCCURRED
;BRANCH AROUND

JRING BELL

JRESTORE STACK POINTER

;CHECK BIT 10
;BRANCH IF SET
;BIT 10 NOT SET
;CHECK BIT 8

;BRANCH IF NOT SET

;BIT 8 WAS SET

AORIAHAIAIAHLAT

Y1
CZCRACO CR11 DIAG TSTS MACY11
30A(1052)
CZCRAC.P1Y
26=SEP-79 15:13

1842

1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

007160
007162
007166
007170
007172
007174

005013
032713

001401

27=SEP=79
CLR

BIT

002000

BEQ

104000

022626
000137

007200
007204
007206
007214
007216
007222
007226

005037
000403
012737

007234
007236
007262
007246
007252
007256

104001

104007

012737
005037
004737
012702
005737

001402
012702
004737
012702
004737
004737
000000
032713
001001
104000
005713
100401
104000
012702
005737

HLY

006514
000632
000001

016231
000652
007236
012144
011434
014410
000632
014450
012152

3
SEQ 0036
:DATO TO (RS

RYA

;BRANCH IF NOT SET

CLR
BR
MOV

FLAG
TSTA
#1,FLAG

MOV

#SUBT2.R2

JSR
MOV

aCRS

#2000.,aCRS
(SP)+, (SP)+
DECKCK

;CHECK BIT 10

;DATO DIDN'T CLEAR ON-LINE BIT

JRESTORE STACK FROM INITIAL
:RESTART

CLR

JSR

MOV
éé;

MOV

016343
012152
012274
000400

BIT
BNE
HLT
TST
BM]
HLT

CONDITION

(BIT

1 TMAX

;RUN EACH ERROR TEST ONCE ONLY

#MMSG3,R2

:"PRESS CARD READER 'READ STOP'''

X7,INIT
FLQG

15)

:5SA~GE MESSAGE

%7.,T0UT
MSG2 ,R2
%7.T0UT
27.CRLF4

;"THEN HIT °'CONTINUE' ON THE CONSOLE''
;MOVE MESSAGE UP ON TTY

#400,aCRS
YA

aCRS
A

#MSG1,R2

014307
012152
014343
012152
012274

MOV
JSR
MOV
JSR
:257

#MSG1A,R2
X7,T0UT
#MMSG2 ,R2
X7.T0UT
27.CRLF4

000400

BIT
BNE

#400,aCRS
A

FLQG
.t

;"PRESS CARD READER ‘'STOP''’

:CHECK BIT 8

;BRANCH IF SET
;OFF=LINE (BIT 8) WASN'T SET
;CHECK BIT 15
:BRANCH IF SET
:BIT 15 WASN'T SET

;"PRESS CARD READER °'MOTOR START®' AND

:ggANGE MESSAGE FOR DOCUMATION READER?
.

;"PRESS CARD READER

'READ START''’;

'RESET'''

;"THEN HIT °CONTINUE®' ON THE CONSOLE''
:MOVE MESSAGE UP ON TTY
;WAIT FOR OFF-LINE TO CLEAR

: INPUT Hgfiggg EMPTY SHOULD SET SPECIAL CONDITION

000000
032713
001001

011434
014536
012152
014343
012152
012274

JSR
MOV
JSR

000400

BIT

MOV

JSR
dfifr

BNE

X7,INIT
#MSGS ,R2
27.T0U7

#MMSG2 ,R2
X7.T0UT
X7.CRLF4

#400,aCRS
YA

(BIT

FOR DOCUMATION READER?

#MSG3A . R2

AND OFF-LINE

JINITIALIZE STATUS REGISTER

MOV
égg

INTERRUPT

X7.SETUP
JINITIALIZE REGISTERS
#TESTA+2 ,RETURN ;SETUP SCOPE LOOP RETURN ADDRESS

CARgCgE?DER GOING OFF=LINE SHOULD SET SPECIAL

JSR
MOV
JSR
flifir

014224
000632

PAGE 37

cMP
Jv

TIT

:THE

09:50

JINITIALIZE STATUS REGISTER
;'REMOVE ALL CARDS FROM THE INPUT HOPPER''

:"'THEN HIT 'CONTINJUE' ON THE CONSOLE'’
:MOVE MESSAGF UUP ON TTY
;CHECK BIT8

:BRANCH IF SET

ACRIACAIAAIAWAIALAIAWA
A LAIAWAIA AR AL A
AYALIALIAIAIAIAIAVAIAITAIAAIAAIAIAIAIRAIAIAIRAIAIAIR
AR IR WA IAIA LA A AL

1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841

30A(1052)

1
CZCRACO CR11 DIAG TSTS MACYI
CZCRAC.PY°
26=-SEP-79 15:13

1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903

014607
012152
014224
000632
014307
012152
014343
012152
012274

aCRS

MOV
JSR
MoV
TST
BEQ
MOV

#MSG6,R2

X7,T0UT
#MSG1,R2
FLAG

+6
#MSGIA,R2

JSR

X7, Tout
#MSG2 ,R2
X7,T0UT
X7 ,CRLF&

BIT

#420,3CRS

JSR

MOV
JSR

HALT

000400

BNE

;OFF=LINE (BIT 8) WASN'T SET

sCHECK SPECIAL CONDITION BIT
JBRANCH IF SET
sSPECIAL CONDITION NOT SET

:"RESTORE CARDS IN INPUT HOPPER''
;' PRESS CARD READER 'MOTOR START' AND 'READ START'''
s CHANGE MESSAGE FOR DOCUMATION READER?

'Npaess CARD READER 'RESET'‘'
:"'THEN HIT

°"CONTINUE' ON THE CONSOLE''

;MOVE MESSAGE UP ON TTY

;WAIT FOR OFF-LINE TO CLEAR

;OUTPUT STACKER FULL SHOULD SET BIT 15

011434
014653
000632
014771
012152
014343
012152
012274
000400

014224

000632
014307
012152
014343
012152
012274

SCOPE
JSR

MOV
TST
BEQ
MOV
JSR
MOV
JSR

JSR
HALT
BIT
BNE
HLT

TST
B8M]
HLT
MOV
TST

BEQ
MOV
JSR
MOV

JSR
JSR
HALT
BIT
BNE

%7, INIT
#MSG7 ,R2
FLAG

.+6
#MSG7A,R2
X7,T0UT
#MSG2 ,R2

X7,T0UT
X7 ,CRLF4

#4600,aCRS

.44

aCRS

#MSG1,R2
FLAG

.6
#MSG1A,R2
x7,TOUT
AMSG2 ,R2

JINITIALIZE STATUS REGISTER
;'RAISE OUTPUT STACKER PRESSURE ARM ABOVE HORIZONTAL THE
s CHANGE MESSAGE FOR DOCUMATION READER?
sNO

;' LOWER OUTPUT STACKER PLATE TO BOTTOM''
J''THEN HIT °*CONTINUE' ON THE CONSOLE''

:MOVE MESSAGE UP ON TTY

;CHECK BIT 8
JBRANCH IF SET
JOFF-LINE (BIT B) WASN'T SET
;CHECK SPECIAL CONDITION BIT
JBRANCH IF SET
;SPECIAL CONDITION NOT SET

;"PRESS CARD READER 'MOTOR START' AND °‘READ START'TM'’
; CHANGE MESSAGE FOR DOCUMATION READER?

:NO

;'PRESS CARD READER 'RESET''’

x7,T0UT
%7,CRLF4

;''THEN HIT

°*CONTINUE® ON THE CONSOLE'’

JLQO.SCRS

;WAIT FOR OFF-LINE TO CLEAR

;MOVE MESSAGE UP ON TTY

;A FEED ERROR SHOULD SET BIT 15
007654

1942

007672
007676

;THIS ERROR OCCURS WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO THE READ STATION
TESTD:
SCOPE
JSR
X7, INIT
;" REMOVE ALL CARDS FROM THE INPUT HOPPER''
#MSG5 ,R2
MOV
JSR
X7,T0U7T
;"THEN HIT °*CONTINUE' ON THE CONSOLE'’
#MSG2 ,R2
MC
JSR
x7,T0UT

000400

TESC:

AraiflactAtarRAtarAlAaAlALAIAGALALALAIAIA
AR VAIAVAIAWAIAIAIAIAIAIAIA A

100401
04000

B8M]
HLT

005713

TST

Ala

HLY

SEQ 0037

Aia

104000

Aia

1887
1888

PAGE 38

Ara

26=5c P~ 79 15:13

(09:50

Mia

CZCRAC.PN

27-SEP-79

Mim

CZCRACO CR11 DIAC TSTS MACY11 30A(1052)

000400
000632

010124

010444

;°THEN HIT

011434
014410

ON THE CONSOLE''

;MOVE MESSAGE UP ON TTY

#420.3CRS

:WAIT FOR OFF-LINE

FLAG

;SKIP NEXT TEST IF DOCUMATION READER

.+6

TO CLEAR

TESTG

012702

015170

:THIS ERROR OCCURS WHEN A CARD
TESTE:
SCOPE

JSR
MOV
JSR
MOV
JSR
MOV

o
\a
A
IA
A
LA
IA
LA

°*CONTINUE'

X7,INIT

#MSG3 R2

x7,T0UT

JAM OCCURS AT THE READ STATION

SJINITIALIZE STATUS REGISTER

;"PRESS CARD READER 'READ STOP'‘'

#MSG2,R2

;"'THEN HIT

#MSGY,R?

;"BLOCK THE CARD READER STATION TO

x7,T0U7

*"PRESS CARD READER 'RESET'‘’

;A MOTION ERROR SHOULD SET BIT 15

010130
010132
010136
010142
010146
010152
010156

IR
A
IALAIA
A

x7,T0UT
#MSG2 ,R2
x7.,T0UT
%7,CRLF4

:figANGE MESSAGE FOR DOCUMATION READER?

#MSG1A
R2

.+6

MoV
JSR
MOV
JSR
JSR
HALT
BIT
BNE
1ST
BEQ
JMP

FLAG

;*RESTORE CARDS IN THE INPUT HOPPER''
“'PRESS CARD READER 'MOTOR START' AND 'READ START''’

#MSG6 ,R2
x7,T0UT
#MSG1,R2

LIA

;BIT B WAS NOT SET
;CHECK BIT 15
JBRANCH IF SET
;BIT 15 WAS NOT SET

aCRS

;TEST OFF-LINE BIT
sBRANCH IF SET

.+4

#400,aCRS

MOV
JSR
MoV
TST

BEQ

JWAIT AWHILE

VA IA

JINITIALIZE STATUS REGISTER
;SET EJECT AND READ

ITA

X7.INIT

#3.3CRS

014307
012152
014343
012152
012274

;WAIT FOR CARD READER TO COME ON-LINE

014607
012152
014224
000632

HLT

czgoo,acns

1972
1973
1974
1975
1976
1977
1978

;MOVE MESSAGE UP ON TTY

HLT
TST
BMI

X7,CRLF4

000400

'RESET'"'

000000

+NO
;'PRESS CARD READER

000000

.*+6
#MSGI1A,R2
x7,70U7

'READ START'

000000

INC
BNE
INC
BNE
INC
BNE
INC
BNE
BIT
BNE

'MOTOR START' AND

s CHANGE MESSAGE FOR DOCUMATION READER?

"CONTINUE' ON THE CONSOLE'’

A LA

000000

;"PRECS CARD READER

FLAG

JSR
MOV

BEQ

#MSG1,R2

011434
000003

014307
012152
012274

S'UIFT SWITCH UNDER RIFFLE CAP

IAIRAIAIA

#MSGBA ,R2
X7,T0U7

002000

MOV
JSR
MOV
TST
BEQ
MoV
JSR
JSR
HALT
BIT

;"HOLD DOWN THE SWITCH AT THE BOTTOM OF INPUT HOPPER

:figANGE MESSAGE FOR DOCUMATION READER?

01513
012152
014224
000632

FLAG

#MSG8,R2

TST
8EQ

MOV

IAIAIA

015040
000632

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

005737

SEQ 0038

1953
1954

012702

PAGE 39

1945
1946
1947
1948
1949
1950
1951
1952

007702
007706
007712
007714
007720
007724
007730
007734
007736
007742
007746
007752
007754

09:50

1944

27-SEP-79

1943

30A(1052)

CZCRACO CR11 DIAG TSTS MACY11
CZCRAC.PN
26=-SEP-79 15:13

000400

lé?O.iCRS

;"PRESS CARD READER
;"'THEN HIT

°'CONTINUE'

°'READ START'"'

ON THE CONSOLE'’

TO CLEAR

;A STACK FAJL ERROR_SHOULD SET BIT 15
;ERROR OCCURS WHEN 3 CARDS IN A ROW HAVE NOT BEEN DELIVERED PROPERLY TO THE OUTPUT STACK

MOV
JSR
MOV
JSR
MOV
JSR
JSR
HALT

BIT
B8EQ

140000

:
L OOPF

MOV
MOV

BIT
BEQ
DEC

BNE

TST

014224
012152
014343
012152
012274

032713

000400

am]
HLT
MOV
JSR
MOV
JSR
JSR

HALT
BIT

X7,INIT
#MSG3,R2

JINITIALIZE STATLS REGISTER

#MSG2,R2

;"'THEN HIT °*CONTINUE' ON THE CONSOLE''

MMSG11,R2

;"HOLD THE OUTPUT STACKER GATE OPEN.

#MSG1,R2

;"PRESS CARD READER
;'READ START.'"’

x7,T0U7

X7,T0UT
X7,T0UT

X7.T0UT
27,CRLF&

czgoo.acns

#3, COUNT

;"PRESS CARD READER ‘'READ STOP''’

JINITIALIZE COUNTER TO READ 3 CARDS

COUNT

;COUNT _DOWN

x7,T0UT

AND

;WAIT FOR CARD READER TO COME ON-LINE

;EJECT A CARD

#MSG1 ,R2

THEN''

;MOVE MESSAGE UP ON TTY

#3,aCRS
41zoooo,acns

LOOPF
aCRS
R

'MOTOR START'

;JWAIT FOR CARD DONE OR

SPECIAL

CONDITION

;READ 3 CARDS ALL TOGETHER
;CHECK SPECIAL CONDITION BIT 15
;BRANCH IF SET
;SPECIAL CONDITION NOT SET

:"PRESS CARD READER 'MOTOR START' AND 'READ START'''

#MSG2 ,R2
x7,T0UT
X7 ,CRLF&

;"'THEN HIT

#400,3CRS

JWAIT

LIA

JSR

002000

000003
000003

SCOPE
JSR
MOV

LA LIA

TESTF:

011434
014410
012152
014343
012152
015317
012152
014224
012152
012274

010276
010300

AND

sMOVE MESSAGE UP ON TTY
;WAIT FOR OFF-LINE

A La
1A

'MOTOR START'

A IAIAIAIAIA

VA LA

;"REMOVE JAMMED CARD''

LIAIAIAIAIAIAIAIA

JSR
JSR
HALT
81T
BNE

#MSG10,R2
X7,T0UT
#MSG1 ,R2
x7,T0UT
#MSG2 R2
x7.7T0UT
X7 ,CRLF&

;CHECK SPECIAL CONDITION BIT
sCONTINUE IF SET
;SPECIAL CONDITION NOT SET

IAIA

MOV

. +4

A IAIA LA

015272
012152
014224
012152
014343
012152
012274

aCRS

;JMONITOR ON=-LINE TRANSITION (BIT 10)

;CONTINUE WHEN CARD READER COMES ON-LINE
JREAD A CARD AND SET EJECT
:SgggK DONE AND SPECIAL CONDITION BITS

LA LIAMA LA

TST
8M]
HLT
MOV
JSR
MOV
JSR

#3,aCRS

sMOVE MESSAGE UP ON TTY

LA LA IA LA LA

41zoooo,acns

'READ START®''

LA IA

BIT
BEQ

'MOTOR START' AND

A LA LA IA

JZQOO.BCRS

MOV

140000

010274

8IT
BEQ

;"PRESS CARD READER

°*CONTINUE'

ON THE

000003

X7.CRLF4

JPREVENT A CARD GOING THRU, AND''

HALT

X7,T0UT
#MSG1,R2
x7.,T0UT

SEQ 0039

JSR
JSR

CONSOLE"’

JSR

MOV

PAGE 40

LA
LIA

004737

09:50

27-SEP=79

2000

010162
010166
010172
010176
010202
010204
010210
010212
010216
010222
010224

30A(1052)

;MOVE MESSAGE UP ON TTY
FOR OFF-LINE

TO CLEAR

1999

)

CZCRACO CR11 DIAG TSTS
CZCRAC.PN
26-SEP-79

CZCRACO CRYY DIAG “STS MACY11 30A(1052)
CZCRAC.P1Y
26~SEP- 79 15:13

2055
56

010442

27-SEP=-79

09:50

BNE

001375

PAGE 41

SEQ 0040

;DARK=LIGHT ERROR SHOULD SET BIT 15

;THIS OCCURS WHEN DATA IS SENSED BEFORE COLUMN ONE OR AFTER COLUMN EIGHTY

:OR WHEN THE SENSORS ARE NOT ALL SENSING A HOLE AFTER THE CARD HAS PASSED
;THIS TEST IS _SKIPPED IF BIT O OF

THE SWITCH REGISTER EQUALS ONE

;7O MAKE THE 2 DARK-LIGHT CHECK CARDS:
:
1.
TEAR A SMALL PIECE FROM THE LEADING EDGE OF ONE CARD
:
2.
TAPE 2 CARDS TOGETHER TO MAKE ONE ‘LONG'' CARD-IT ONLY NEEDS TO BE
010444
010446

000001

170142

TESTG:

0114662

007236
007234
011434

ABOUT 1/2 INCH LONGER THAN A REGULAR CARD

SCOPE

8IT
BEQ
JSR

012150
CONTG:

015371
012152
014224
000632

LOOPG:

JSR

MOV

#1,3SWR
CONTG

X7.BELL

X7, INIT

IRIXK
-t

SINITIALIZE STATUS REGISTER
SINITIALIZE COUNTER
sSET TO INDICATE FIRST PASS

;" PLACE SPECIAL DARK-LIGHT CHECK CARDS (SEE LISTING, TES

#MSG1 ,R2
FLAG

*'PRESS CARD READER °MOTOR START' AND 'READ START'''
CHANGE MESSAGE FOR DOCUMATION READER?

X7, TOUT

sAT THE BOTTOM OF THE INPUT STACK''

014307
012152
014343
012152
012274

#MSG2 ,R2

X7.CRLF&

sMOVE MESSAGE UP ON TTY

000400

#400 aCRS

;WAIT FOR OFF-LINE TO CLEAR

000003
140000

l3 aCRS
" 20000.aCRS

cEJECT THE CARD
JWAIT FOR ERROR OR CARD DONE

#MSG1A,R2

X7,T0UT
X7, TOUT

'PRESS CARD READER 'RESET'''

;"'THEN HIT 'CONTINUE' ON THE CONSOLE''

%7 ,BELL

sCHECK SPECIAL CONDITION
sCONTINUE IF SET
¢cSPECIAL CONDITION NOT SET
s COUNT DOWN
:IF FIRST PASS, LOOP
sRING BELL

0146224
000632

#MSG1,R2

;'PRESS CARD READER 'MOTOR START' AND 'READ START'''

014307
012152
014343
012152
012274

#MSG1A
R2

"PRESS CARD READER 'RESET® '

#MSG2,R2

X7.T0UT
X7.CRLF4

;"'THEN HIT °'CONTINUE' ON THE CONSOLE''
;MOVE MESSAGE UP ON TTY

000400

w.go.acns

sWAIT FOR OFF~LINE TO CLEAR

COUNT
LOOPG

011462

r S
S-Sl
g4

IF NOT SET

sIF SET, RING BELL AND

COUNT
COUNT
#MSG12,R2

.44

[pSIAVTN
IS TNT,N

JRUN TEST

THALT
NTESTA+2,RETURN sSETUP SCOPE LOOP RETURN ADDRESS TO LOOP THRU TESTS
TESTA
sSTART ERROR TESTS OVER ON CONTINUING

aCRS

2104

s CHECK SWO

007236
007234

FLAG

.+6

X7, T0UT

012150

CHANGE MESSAGE FOR DOCUMATION READER?

#TESTA+2,RETURN sSETUP SCOPE LOOP RETURN ADDRESS
TESTA

;LOOP THRU TEST ON CONTINUING

CO CR11 DIAG TSTS MACY] '

26-SEP-79 15:1%

30A(1052)

27-SEP-79

09:50

PAGE &2

SEQ 0041

JROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST

010676
010700
010704
010710
010714
010720
010722
0107
0107
010744
010746
010756
010756
010764
010770
010776
011002
011006
011012

104007
012702
004737
012702
004737
104004
013737
063737
032777
001404
042737
000403
052737
005037
012737
000177
005037
000177
000000

:NOTE THATysU11 MUST BE DOWN AFTER 2ND HALT

TESTX:

016264
000652
016115
012152

Tl
MOV
JSR
MOV

JSR

000622
000002
010000

011012
011012

000020

177776

000020
012146
011002
000010
012146

177776

167652

2s:

READC
MOV
ADD

8IT

BEQ
8IC

#SUBTS ,R?

X7,SETUP

;SETUP POIN ERS AND FLAGS

TTMMP1, RE TRNX
#2 RE TRNX

JCHANGE TO _FIRST ADDRESS AFTER SCOPE INSTRUCTION

#STADD,R2
PC.TOUT

négoo.asun

L +1
#20,PSR
+

012150

#XLOOP ,RETURN

XLOOP:

RETRNX:

(LR
JMP
O

@RE TRNX
ITCNT
RE TRNX

s CHECK SW12

;BRANCH IF NOT SET
:CLEAR TRACE BIT
:SKIP NEXT INSTRUCTION
;SET TRACE BIT
;CLEAR ITERATION COUNTER
;LOAD RETURN ADDRESS
;JUMP TO TEST
;KEEP ITERATION COUNTER AT ZERO
sJUMP TO TEST

CZCRACO CR11 DIAG YSTS MACY11 30A(1052)
CZCRAC.P1
26~-SEP-79 15:13
2135

27-SEP-79

09:50

PAGE 43

)

SEQ 0042

2136

JROUTINE TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED.

2138
2139
2140
2141
2142

SEASILY THE PATTERN IS STORED, AND THEN
;EACH COLUMN OF EACH CARD IS READ TWICE AND COMPARED WITH IT.
IF A
sDISCREPANCY OCCURS, THE ERROR IS PRINTED OUT ALONG WITH THE TOTAL
sNUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS DISCOVERED
sUP TO THAT POINT (ALL PRINTOUTS ARE IN OCTAL).
WHEN THE INPUT HOPPER

2137

sTHIS ROUTINE ALLOWS SPECIFIC TYPES OF DATA FAILURES TO BE STUDIED

2143

;1S EMPTY, THE ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE

2144

LOADED AND THE CARD READER TO BE PUT BACK ON-LINE.

g]‘ég

:SW15=1 CAUSES A HALT AFTER AN ERROR, AND SW13=1 INHIBITS ERROR PRINTOUTS.

21647

011014

104007

2148
2149
2150

011016
0N
011026

012702
004737
012702

016307
000652
016066

2153

011040

013737

000622

005037
005037
005037
005037

011430
011426
000650
006650

2151
2152

2154

2155
2156
2157
2158

011032
011036

011046

011054
011060
011064
011070

004737
104004

042737

2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172

011074
011076
011102
011104
011106
011112
011114
011116
011122
011124
011126
01113C
011134
011136

104003
032713
001017
005213
005237
105713
100426
032713
001015
005713
100371
032713
001002
104000

2175
2176
2177
2178
2179
2180
2181

011142
011146
011152
011154
011156
011164
011166

004737
032713
001375
000745
022737
001741
104000

g"ll ;2

2182
2183
2184
2185
2186
2187
2188
2189
2190

011140

011170
011172
011176
011202
011204
011206
011210
011212
011216

CKSAME:

012152

170000

JSR
READ(

011432

MOV

8IC

CLR
CLR
(LR
CKLOOP: CLR

000400

011430

CKLP1:

040000

000400

000753

000737
011437
005237
105713
100002
104000
000727
012701
005301

TIT

MOV
JSR
MOV

KBINTT
BIT
BNE
INC
INC
TSTB
B8M]
BIT
BNE
TST
BPL
BIT
BNE
HLT
BR

011462
000400

000120

006652
006650

000200

006650

CKSIT:
JSR
CKSIT1: BIT
BNE
BR
CKCRD:
(MP
BEQ
HLY

CKCOL:

(KLP2:

BR
MOV
INC
1STB

8PL
HLT
BR
MOV
DEC

#SUBTS ,R2
X7,SETUP
#CIMPAT
R2

JINITIALIZE POINTERS

PC.TOUT

TMP1,CARDIM

#170000,CARDIM

;CLEAR UPPER BITS OF PATTERN

TOTCRD
TOTERR
ERFLG
CLCNT

sINITIALIZE
sINITIALIZE
;CLEAR FLAG
JINITIALIZE

#400,3CRS
CKSIT
aCRS
TOTCRD
QCRS

;CHECK BIT 8
;BRANCH IF SET TO WAIT FOR READER TO COME ON-LINE.
:START READING CARD
: INCREMENT CARD COUNT
;CHECK COLUMM READY
;BRANCH IF SET
s CHECK CARD DONE
;BRANCH IF SET
sCHECK SPECIAL CONDITION
;LOOP IF NOT SET
;CHECK BIT 8
;BRANCH IF SET TO WAIT FOR READER ON-LINE.
;SPECIAL CONDITION SET, BIT 8 CLEAR

#40000 aCRS
CKCRD
aCRS
CKLP1
#400,aCRS
CKSIT
(KLOOP

X7 ,BELL
#400,aCRS
CKSIT
CKLOOP
#80.,CLCNT
CKLOOP

CKLOOP
aCRB1,DAT1
CLCNT
aCRS
.6
CKLOOP
#200, COUNT
COUNT

CARD COUNT
ERROR COUNT
FOR PRINTING ERROR HEADING
COLUMN COUNT

JRING BELL TO SIGNIFY READER OFF-LINE
;CHECK BIT 8
LOOP IF STILL SET
sSTART NEXT CARD
sCHECK FOR B0 COLUMNS READ
sSTART NEXT CARD IF OK
;FINAL COLUMN COUNT WASN'T 80

s START NEXT CARD
;READ DATA BUFFER
;COUNT COLUMNS
;CHECK COLUMN READY

JBRANCH IF OK
JREADING DBR DIDN'T CLEAR READY
;START NEXT CARD AFTER ERROR
SWAIT AWHILE

e
D
el

000650
015764
012152
012242
006650
011734
011542
006652
011734
011542
006654
011734

—

»rOo

(W]

CKNOMD:

011542

011430
011734
011542
011426
011734
167206

CKHLT:

140000

:
CKDONE
TOTERR:
TOTCRD:

011432

AGAIN

TOTERR

#20000,aSwR
CKHLT
ERFLG
CKNOHD
ERFLG
#MSG19,R2

;CHECK FOR INHIBITING PRINTOUT
;BRANCH AROUND PRINTOUT IF SET
;TEST FLAG TO PRINT HEADING
;BRANCH IF ALREADY DONE
sPRINT HEADING ONCE ONLY
;OUTPUT HEADING

DAT2,CARDIM

000650

;READ CRB1

;COMPARE FIRST DATA 10 PATTERN
;BRANCH IF FAILURE
:COMPARE SECOND READING TO PATTERN
JBRANCH IF FAILURE
¢WAIT FOR NEXT COLUMN OR END OF CARD
;COUNT ERRORS

DAT1,CARDIM
CKFAIL

167332

SEQ 0043

CKFAIL
CKLP1

X7.T0UT
X7,CRLF
CLCNT,R2
X7.PROCT
X7 ,SPACE
DAT1,R2
X7.PROCT
X7 ,SPACE
DATZ,R2
X7,PROCT
X7 ,SPACE

TOTCRD,R2
X7 .PROCT
%7 ,SPACE
TOTERR,R?
%7.,2R0OCT

asSwk
CKMONE

CKLOOP
#140000,aCRS
CKDONE
C(KLOOP

;OUTPUT CARRIAGE RETURN, LINEFEED
;PRINT COLUMN NUMBER
;PRINT FIRST READING
;PRINT SECOND READING
;PRINT

TOTAL NUMBER OF

CARDS READ

;PRINT TOTAL NUMBER OF DATA ERRORS

;CHECK SW15 TO HALT ON ERROR

JBRANCH IF NOT SET
JHALT ON ERROR
s CONT INUE
SWAIT FOR SPECIAL CONDITION OR DONE

;START NEXT CARD AFTER CHECKING BIT 8

CARDIM:

s ISSUE MESSAGE [F CARD READER IS OFF-LINE
;WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A CARD
JINITIALIZE STATUS REGISTER AND USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY
011434
011440
011444
011446
011450
011452
011454
011456
011460

004737
032713
001375
005013
005714
005713
007401
000207

011506
001000

:NOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS SET
INIT:
JSR
x7,CKBIT8
JSEE IF OFF-LINE BIT IS SET
#1200.3CRS
JWAIT FOR BUSY TO CLEAR, IN CASE
BIT
BNE
;A CARD IS STILL BEING READ
aCRS
CLR
JINITIALIZE STATUS REGISTER
TST
aCRB1
JREAD DATA BUFFER TO CLEAR COLUMN READY
TST
(RS
JMAKE SURE INITIALIZATION OK
;BRANCH IF ALL BITS ZERO
.4
BEQ
HLT
INOT ALL BITS OF STATUS REGISTER ARE ZERO
RTS
;RETURN
X7

czcs

Y AR AR AY AR I DI I NI

ol
) e

020000

CKLP2
aCRB1,DAT2

(KFAIL:

011426

PAGE 44

Y AR A

011632

09:50

A AL AN A AYAY AY Y ALY AV AY Y Y AY Y AY Y AY Y Y AY A AR Y Y Y Y AY Y Y Y Y Y AY Y Y I

B
b
) e
e

PSS

006654

D e

)

023737

001005

sl e
md md) e

011432

)

oSy ousrSuar Saur-Sunr Guur Gusr Gy our Gour-Sur S

006654
006652

27-SEP-79

33 ;%WWW
8RS
REIN ERELSERE RIS

Suurd

gOQOOOOOOOOOOOOOOOOO

30A(1052)

001376
011437
023737

—

— ol -—

[e]ole] o

SELIRSR vt
-

nJ N)ed ed b ed b b D —_—
o
NeXe]

) NINIAORNINININIA) [AS
1. ¥]

Y1
CZCRACO (R11 DIAG TSTS MACY1T
CZCRAC P
26-SEP-79 15:13

105777
100375

012777
012737
000207

PAGE 45

BELL:
167116

012144

TSTB
BPL
MOV
MOV
RTS

aTCSR
.4
#207,aTDBR
#1,1TMAX
1 74

SEQ 0044

;WAIT FOR TTY READY
JRING BELL

;MAKE CERTAIN ITERATION MAXIMUM IS CORRECT

sRETURN

P
ANWNRIR
oo
Y.
NO‘NO‘J\NS

b
S
b

(VA LV LV LV LV LV, IV, IV, IV, ]

e
b
d
—d

e Qur nr

(elelelelololelol=]

Suur Par Pour Purd

;SUBROUTINE TO CHECK FOR BIT 8 (OFF-LINE) BEING SET IN CARD

011542
011546
011550
011556
011562
011564
011570
011572

cREADER (SR, AND PRINT QUT A MESSAGE IF IT IS
(kBIT8: BIT
#400,aCRS
;CHECK BIT 8
.44
BNE
;BRANCH IF SET
RTS
X7
JRETURN IF NOT SET
MOV
#MSG18,R2
;OUTPUT MESSAGE
JSR
x7,T0U7
;'BIT 8 WAS SET"’
MOV
#MSG17 ,R2
;"REMEDY THE ERROR CONDITION
JSR
X7,T0UT
;AND PRESS °'CONTINUE'''

032713

HALT

105777
100375
012777
005337
100367
005037
000207
000000

s CHECK AGAIN

;SUBROUTINE TO ISSUE N SPACES
sN IS ONE PLUS VALUE CONTAINED IN SPACEX
sSPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON
- SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE SPA(CE

167044

000240
011572

;WAIT FOR CONTINUE

CKBIT8

SPACE:

167036

011572

TSTB
8PL
MOV
DEC
8PL
CLR
RTS
SPACEX: O

aTCSR
.~4
#240,3TDBR
SPACEX
SPACE
SPACEX
1 ¥4

;WAIT

FOR

TTY READY

;sOUTPUT A SPACE
;DECREMENT COUNT
;LOOP IF NOT DONE
JRESET COUNT TO ZERO
JRETURN

ENTERED WITH SYSTEM TRAP CALL (HLT)
PRINT OUT THE ERROR PC AND STATUS REGISTER

011574
011576
011604
011606
011610
011614
011620
011622
011626
011632
011636
011642
011646
011650
011656

167014

020000

011730
011732
N12242

011722
011730
011734
166744

000240
011732
011734
011722
100375

012777

KBINTT

BIT
BEQ
BR
MOV
MOV
(MP
JSR
MOV
MOV
JSR

aSwR, #20000
.+4
B8.CK
(6)+,
SAVP(
(6)+,
SAVPSR
-(6),
-(6)
X7,CRLF
x2.
SAVR?
SAVPC,
%2
X7,
PROCT

8PL

TSTB

166736

166714

000240

PRINT:

166706

MOV
MOV
JSR
MOV

TSTB
BPL
MOV

aTCSR

#2460,
SAVPSR,
X7,
SAVR2,
aTCSR

aTDBR
22
PROCT
%2

.4
#240,3TDBR

;TEST FOR INHIBIT PRINT OUT
;BRANCH TO PRINT
JINHIBIT, CHECK FOR HALT
:PC OF FAILING ROUTINE
;PSR OR ERROR CONDITION
JRESTORE STACK
;OUTPUT CARRIAGE RETURN, LINEFEED

;SAVE R2

sPRINT PC+2 IN OCTAL
;WAIT FOR TTY READY

;OUTPUT A SPACE
;PRINT PROCESSOR STATUS AT

JRESTORE REGISTFR 2
;WAIT FOR

TTY READY

O N

09:50

;BELL ON PASS COMPLETE

167124

000207
000001

27-SEP-79

NI INI Y

2247
2248
2249
2250
2251

30A(1052)

TIME OF

FAJLURE

NN NN IANAIWA N R AR N AY AY N N NI AY NI AY A N NI NI NI A AL N AN NI A NI A N NN NI NI NI NN NI AN NI NI NI NI RN

DIAG TSTS MACY11
26=-SEP-79 15:13

CZCRACO CR11

CZCRAC.P

4
N

2314
2315
2316
2317
2318
2319

011734
0117640
011744
011746
011750
011754

010337
010437
005004
005001
012703
005702

2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352

2353
2354
2355

2356
2357
2358

011756
011760
011762
011764
011766
011770
011774
011776
012002
012004
012010
012012
012016
012022
0120264
012026
012030
012032
012034
012036
012040
012042
012044
012046
012050
012054
012060

100001
005203
006102
006102
005501
105777
100375
010377
005204
020427

013703
013704
000207
000241
005701
001402
005001
000261
006102
006102
006102
005501
010203
042703
052703
000743

012062
012064
012072
012074
012102
012104
012112
012114
012120
012122
012126

104003
032777
001012
032777
001013
023737
100007
005237
022606
012637
000177

©€01005

B.(K:

KBINTT
TST
BPL
HALT
RTI
SAVRZ:
0
SAVR3:
0
SAVR4:
0
SAVPC:
0
SAVPSR: 0

166702

011724
011726

PROCT:

000260

166616
166612

000006
011724
011726

177770
000260

040000

166524

004000

166514

012146

012144

012146
177776
000016

SEQ 0045

aSWR
R

JCHECK SR FOR HALT SWITCH
JBRANCH IF NOT SET
JHALT ON ERROR UP
JRETURN TO MAIN LINE

MOV
MOV
CLR
CLR
MOV
TST

X3,SAVR3
%4 ,SAVRS
X4
COUNT
#260,
%3
) ¥4

;SAVE R3
;SAVE R4
;CLEAR R4 TO USE AS COUNTER
;CLEAR COUNT TO USE AS_CARRY FLAG
JSETUP ASCII ZERO IN R3
JCHECK BIT 15 OF DESIRED NUMBER

cMP
BPL
INC
cMP
MOV
JMP

ITCNT, I TMAX
D.2
ITCNT
(6)+,
%6
(6)+,
PSR
@RE TURN

;CHECK FOR ITERATIONS COMPLETE
JEXIT-DONE
s INCREMENT COUNT
JREPOSITION STACK POINTER
JRESTORE PROCESSOR STATUS
JRETURN TO RERUN TEST

BPL
.4
;BRANCH IF NOT SET
INC
%3
s CHANGE TO ASCII ONE
ROL
¥
JROTATE INTO RIGHTMOST BIT
ROL
¥
;7O PREPARE FOR LOOP
AD(
COUNT
;STORE CARRY
C.WAIT: TSTB
aTCSR
;WAIT FOR TTY READY
BPL
C.WAIT
MOV
23,
aTDBR
;OUTPUT ASCII
INC
x4
s COUNT CHARACTERS OUTPUT
cMP
%64,
#6
;CHECK FOR DONE
BNE
C.CONT
;BRANCH IF NOT DONE
MOV
SAVR3,%3
JRESTORE REGISTER 3
MOV
SAVR4 , %4
JRESTORE REGISTER 4
RTS
194
JRETURN
C.CONT: CLC
;CLEAR CARRY
TST
COUNT
sTEST CARRY FLAG
BEQ
.+6
JBRANCH IF NOT SET
CLR
COUNT
;CLEAR FLAG
SEC
:SET CARRY
ROL
)¥
JROTATE NEXT 3 BITS INTO RIGHTMOST 3
ROL
22
ROL
%2
AD(
COUNT
;STORE CARRY
MOV
X2,
x3
;MOVE DATA FOR OUTPUT
BI(C
#177770,%3
;CLEAR ALL BUT RIGHTMOST 3 BITS
BIS
#260,
X3
;SET TO ASCII EQUIVALENT
BR
C.WAIT
;LOOP
.SCOPE AND/OR ITERATION LOOP FOR EACH TEST 2 TIMES
SCOPEC: KBINTT
BIT
#40000, aSwR
;TEST SR FOR SCOPE
BNE
D.1
JYES,SCOPE
BIT
#4000 ,3SWR
sNO- TEST FOR ITERATION
BNE
D.2
JINHIBIT ITERATION

D.1:

N
O N

PAGE 46

N W IN NN NN NN N NN W

104003
005777
100001
000000
000002
000000
000000
000000
000000
000000

09:50

011706
011710
011714
011716
011720
011722
011724
011726
011730
011732

27-SEP-79

NN N N NN NN

2303
2304
2305
2306
2307
2308
2309
2310
2311
Sg}%

30A(1052)

N NN AN N

CZCRACO CR11 DIAG TSTS MACY] 1
CZCRAC.PT
26-SEP-79 15:13

30A(1052)

27-SEP-79

09:50

PAGE 47

SEQ 0046

D.2:

Ve
oo

-— d

[V,1
b

005037
011637

—

012132
012136
012142
012144

CZCRACO CR1Y DIAG TSTS
CZCRAC PN
26=-SEP-79

ITMAX:

I"CNT:

012146
012150

RETURN:

ITCNT
LY

CLR
MoV
RT1

RE TURN

sCLEAR COUNTER

s SAVE SCOPE RETURN POINTER
JRETURN INLINE-NEXT

JMAX NUMBER OF

TEST

ITERATIONS

;COUNT LOCATION FOR ITERATION LOOP

;ADDRESS OF LAST TEST

TEST1+2

;MOV ADDRESS OF MESSAGE TO REGISTER 2

012222
012224
012230
012232
012236
012240
012242
012246
012250
012256
012262
012264
012272

142777
111237
005202
121237
001006
105777
100375
005077
000207
121227
001003
004737
000760
105777
100375
112277
000753
000000

105777

100375
112777
105777
100375
112777
000207

000177
012240

166432

012240

:THEN JSR X7,

TOUT:

MOVB
L.INC:
INC
L.TOUT: CMPB
8NE

166412

TSTB

166406

000100

L.CNT:

012242
166362

CRLF:

000215
166330

166336

000212

166322

012316
012324
012326
012332
012334
012340
012344
012350
012354
012360
012364
012370

022737
001403
062716

000002

012737

016055
012152
000176
011734
016040
012152
000622
000007

L.CNT

L .EOMK
L .EOMK

aTCSR

BPL

BR
O

@&T(SR

axl,
#'a
.+10
X7 ,CRLF
L.INC

aTCSR

(2)+,

L.TOUY

aTDBR

;CLEAR INT FLAG
sMOVE IN EOM MARKER
;MOVE DATA POINTER TO NEXT BYTE
. COMPARE FOR EOM
sBRANCH IF NOT END OF MESSAGE
;WAIT FOR TTY READY

JOUTPUT NULL
JRETURN IF EOM
;CHECK FOR CR,LF REQUEST
JBRANCH [F NOT
.OUTPUT CARRIAGE RETURN, LINEFEED
.LOOP
JWAIT FOR TTY
;OUTPUT NEXT CHARACTER
s CONT INUE

TS1B
8PL
Movs

aTCSR
.<4
#215,

BPL
MovB
RTS

.4
#212,
X7

TSTB

aTCSR

;WAIT FOR TTY READY

QTDBR

;SEND CARRIAGE RETURN
SWAIT FOR TTY

aTDBR

cSEND LINE FEED
JRETURN

;DO 4 CRLF'S TO MOVE MESSAGES ON TELETYPE

012242
012242
012242
012242

000176

axl.
¥4
0kl,

:SUBROUTINE TO ISSUE CARRIAGE RETURN AND LINEFEED

166344

004737

#1177,

~4
aTDBR
X7

MOvVB
L.EOMK:

TOUT

BPL
CLR
RTS
(TMPB
BNE
JSR
BR
TSTB

166356

012274
012300
012304
012310
012314

BI(CB

CRLF4:

JSR
JSR

X7,CRLF
%7,CRLF
27.CRLF
%7.CRLF

CMP
BEQ
ADD
BR
MOV
JSR
MOV
JSR
MOV
JSR

#SWREG, SWR
1%
#2,(SP)
ouTt
#SWREQ ,R?2
PC,TOUT
SWREG,RZ
PC,PROCT
#NEWIS ,R2
PC,TOUT

MOV

#7,CSNT

RTS

000616

CNTLUU:

1%:

000630

ACN:

CLR

TTMMP1

CIZCRACO CR11
CZCRAC.PIN

2615
2616
2617
2618
2619
2620
24621
2422
242>
2424
2625
2426
2427
2428
2420
2630
2431

012376
012402
012404
012612
012420
012426
012434
012436
012442
012446
012450
212456

012460

12466
012470
012476
012500
012506
012512
012516

012522
012530
012534

012536
012540
012544
012546

012552
012556

DIAG TSTS MACY11

26-SEP-79 15:13

30A(1052)

105777
100375
117737
113777
142737
122737
001905
012702
004737

166204

016176
012152

122737

000015

000626

122737

000060

000626

122737

000067

000626

142737
006337
006337
006337
153737
005337

000060
000622
000622
000622
000626
000630

000626

004737

012242

012702
004737
000702

016027
012152

166200
000626
000200
000025

27=SEP=79
READ:

000626
166174
000626
000626

BICB

{MP8B
BNE

2%:

000622

1%:

OuUT:

INERRR:

JROUTINE

012560
012564
012570
012576
012604
012606
012610
012612
012620
012626
012632
012636

013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
000002

012640
012646
012650
012654
012662
012670
012676
012700
012702
012704

022737
001016
005037
117737
142737
122737
001002
104002
104006
000002

000006
000004
012610
177777

SUSWR:

000004

166012

000176
000174
000004
000006

000616
000620

000176

000616

000622
165730
000200
000007

TS18
8PL
MOvVB
MOVB

1%:

2$:
3s:

KBINT:

000622
000622
000622

MOV
JSR
B8R

PAGE 48

aKBDBR,T18B
T1B,3TDBR
#200,718
#25,718

#CTLU,R2
PC.TOUT
AGN

JSR

%7.CRLF

RT1I

MOV
JSR
B8R

TIB,TMPI
CSNT
INERRR
READ

#QEST ,R2

PC,TOUT
AGN

TO CHECK EXISTANCE

MOV

MOV
MoV

MP
BEQ
8R
CmpP

MOV

SEQ 0047

aKBCSR

ASL
ASL

BISB
DEC
BEQ
B8R

READ

#15,718
1%
#60,T18
INERRR
#67,T1B
INERRR
#60,T1B
TTMMP1
TTMMPI
TTMP1

CMP8

BEQ
CMP8B
8GT
CMPR
BLT
BI(CB
ASL

SWREG

6.-(SP)
4,-(SP)
#1S$,4
#-1,3SWR

2%
3%

(SP)+,(SP)+

MOV

#SWREG, SWR
#DISPREG,DISPLAY
(SP)+.,4

CMP

#SWREG,
SWR

MOV

MOV
RTI

B8NE
CLR

MOVB

1$:

09:50

RTI

(SP)+,6

TMP1

aKBDBR, TMP1
#4200, TMP1
#7,TMP1
1%
INE
INI

CZCRACO CR1Y DIAG TSTS MACY] 1
CZCRAC PN
26=-SEP=-79 15:13

26471
2672
2673
2474
2475
2476
2677
2478
2479
2480
2481
2482
2483

2484

2485

2486

2487
2488
2489
2490
269
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502

012706
012712
012714
012720
012724
012730

005737
001406

012732
012740
012742
012750

000002

012752
012754
012760
012764
012766
012772
012776
013002

011646
162716
017616
006316
042716
062716
017616
000136

013004
013006
013010
013012
013014
013016
013020
013022

011574
012062
012316
012640
012376
012560
012732
012706

122737

001403
013777

30A(1052)

;TYPE

000624

(09:50

PAGE 49

SEQ 0048

THE MAIN TITLE
TIFLG
TST
13
8EQ
#TITL R2
MOV
X7,T0UT
JSR
TIFLG
CLR
RTI

TITTYP:

016143
012152
00062¢

1%:

000007

000630

000622

165646

000002
000000

27-SEP=79

#7,CSNT
19
TMP1 ,aSWR

CKUU:

1%:
EMTSRV:

(SP) ,=-(SP)
#2,(SP)
8(SP) ,(SP)
(SP)
#177001, (SP)

177001
013004
000000

#EMTTAB, (SP)

a(SP), (SP)
a(SP)+

EMTTAR:

PRINT
SCOPEC

CNTLUU
KBINT
READ
SUSWR
CKUU
TITTYP

s CALLED 8Y
s CALLED 8y
s CALLED 8y
s CALLED 8Y
; CALLED BY
s CALLED 8Y
;CALLED BY
s CALLED BY

EMT
EMT
EMT
EMT
EMT
EMT
EMT
EMT

HLT
SCOPE
CNTLU
KBINTT
READC
CUSWRR
(KU
TIT

MSG

MSG
MSG
MSG
MSG
MSG
MSG
MSG
NEW

NOT

C2CRACO CR11 DIAG TSTS MACY11 30A(1052)
CZCRAC.P1
26~SEP-79 15:13

27-SEP-79

09:50

PAGE 50

SEQ 0049

2503
gggg

;DATA TABLES FOR DATA RELIABILITY TESTS

2506
2507

;ALPHANUMERIC DECK DATA TABLE
;FIRST VALUE FOR A COLUMN IS THE DIRECT

2509
2510

;THE SECOND VALUE IS THE ENCODED FORM OF THAT DATA
;COLUMN CHAR HOLLERITH

2508

2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2526
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558

;CARD IMAGE FOR THAT COLUMN ON CARD 1
013026
013026
013030
013032
013034
013036
013040
013042
013044
013046
013050
013052
013054
013056
013060
013062
013064
013066
013070
013072
013074
013076
013100
013102
013104
013106
013110
013112
013114
013116
013120
013122
013124
013126
013130
013132
013134
013136
013140
013142
013144
013146
013150
013152
013154
013156
013160
013162

004000
000200
004400
000201
004200
000202
004100
000203
004040
000204
004020
000205
004010
000206
004004
000207
004002
000210
004001
000220
004202
000212
004102
000213
004042
000214
004022
000215
004012
000216
004006
000217
002000
000100
002400
000101
002200
000102
002100
000103
002040
000104
002020
000105
002010
000106
002004
000107

ALPCD:

4000
200
4400
20
4200
202
4100
203
4040
204
4020
205
4010
206
4004
207
4002
210
4001
220
4202
21Z
4102
213
4042
214
4022
215
4012
216
4006
217
2000
100
2400
101
2200
102
2100
103
2040
104
2020
1
2010
106
2004
107

121

12 2

123

12 4

125

12 6

127

12 8

210

129

RET
RET

CENT

12 82

SAV

;12

1283

;13

12 8 4

;14

(

1285

;15

1286

216

1287

217

;18

219

112

;20

113

;21

11 4

;22

LRI

;23

116

;24

PTC
QES
REA
REA
RES
RES
RES

SAV

2610
2611
2612
2613

001006
000057
000000
000000
000400
000001
000200
000002
000100

1012

1006
7
0000
0400
1
0200
0100

©Oo
O

b
d

=
b

W
~N
0w

V' I A\
P S

o
o
o
O
O
O

O
N
»n
-4
C
<

NNV,

1042
54
1022

[

013320
013322
013324
013326
013330
013332
013334
013336
013340

000047
001002
000050
001001
000060
001202
000052
001102
000053
001042
000054
001022
5
001012
000056

94
czc
SUS
SUS
SWR

SWR
SWR

TCS

TEN
TES

TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES

TES
TES
TES

2603
2604
2605
2606
2607
2608
2609

013262
013264
013266
013270
013272
013274
013276
013300
013302
013304
013306
013310
013312
013314
013316

001020
000045
001010
000046
001004

2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601

013250
013252
013254
013256
013260

1040
44
1020
45
1010
46
1004
47
1002
50
1001
60
1202
52
1102

2585
2586
2587
2588
2589

1000
40
1400
41
1200
42
1100
43

BLANK

001040
000044

001000
000040
001400
000041
001200
000042
001100
000043

013244
013246

013224
013226
013230
013232
013234
013236
013240
013242

2583
2584

2575
2576
2577
2578
2579
2580
2581
2582

©o

2022
115
2012
116
2006
117

114

002022
000115
002012
000116
002006
000117

000114

013210
013212
013214
013216
013220
013222

013206

2569
2570
2571
2572
2573
2574

2568

8 2

2002
110
2001
120
2202
112
2102
113
2042

002002
000110
002001
000120
002202
000112
002102
000113
002042

SEQ 0050

013164
013166
013170
013172
013174
013176
013200
013202
013204

BLANK
-

2559
2560
2561
256¢
2563
2564
2565
2566
2567

PAGE 51

26~SEP-79 15:13

09:50

CZCRAC.P11

27-SEP-79

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)

TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TES
TIE
TIF
TIM
TIN
TIN
TIN

TIN
TIN

&~
un
00
~N
0
W
s~
OO0
N

121
121

N
WV

o
~

0
co
oo

[ -]

OO0 W

&~ W=

WAI
XLC

—a
-k
=d
b
b
ed
b

AV TN A TN oS TR S I AN B

wd
ed
ed
md

AV SN AN N A C 2NN AV R

AU TR 0N T,V )

N
Wy
O
N
00
NO

TST
TST

2667
2668
2669
2670

CENT

TRA
TRF
TRF
TRT

2665

202

4100
203
4040
204
4020
205
4010
206
4004
207
4002
210
4001
220
4202
212
4102
213
4042
214
4022
215
4012
21
4006
ALPEND: 217

TIN

2663

000202

004100
000203
004040
000204
004020
000205
004010
000206
004004
000207
004002
000210
004001
000220
004202
000212
004102
000213
004042
000214
004022
000215
004012
000216
004 006
000217

0042
14
0022
15
0012
16
0006
17
4000
200
4400
201
4200

€l
cz2C
TIN
TIN
T17
17
T17
TMP
TN]
T07
T07
TOL

~nN

2661

013436

013440
013442
013444
013446
013450
013452
013454
013456
013460
013462
013464
013466
013470
013472
013474
013476
013500
013502
013504
013506
013510
013512
013514
013516
013520
013522

000042
000014
000022
000015
000012
000016
000006
000017
004000
000200
004400
000201
004200

SEQ 0051

2644

2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659

013404
013406
013410
013412
013414
013416
013420
013422
013424
13426
03430
0 3432
013434

0040
4
0020
5
0010
6
0004
7
0002
10
0001
20
0202
12
0102
13

TMmTMMTM

2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643

013350
013352
013354
013356
013360
013362
013364
013366
013370
013372
013374
013376
013400
013402

000040
000004
000020
000005
000010
000006
000004
000007
000002
000010
000001
000020
000202
000012
000102
000013

PAGE 52

2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630

013344

013346

09:50

2615

2616

27-SEP~79

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
CZCRAC.P1M
26-SEP-79 15:13

CZCRACO CR11 DIAG TSTS MACY11
CZCRAC.P1Y
26=SEP-79 15:13

2671

2675
2676
2677
2678
2679
2680
2681
2683
26864
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700

2701

2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718

2719
2720
2721
2722
2723
2724
2725

27-SEP-79

09:50

PAGE 53

SEQ 0052

;BINARY DECK DATA TABLE

2672

2673
2674

30A(1052)

sFIRST VALUE FOR A COLUMN IS THE DIRECT CARD IMAGE OF
013524
013526
013530
013532
013534
013536
013540
013542
013544
013546
013550
013552

013554
013556
013560
013562
013564
013566
013570
013572
013574
013576
013600
013602
013604
013606

013610

013612
013614
013616
013620
013622
013624
013626
013630
013632
013634
013636
013640
013642
013644
013646
013650
013652

013654
013656
013660
013662
013664
013666
013670

000000
000000
000001
000020
000002
000010
000004
000007
000010
000006
000020
000005

000040
000004
000100
000003
000200
000002
000400
000001
001000
000040
002000

THAT COLUMN ON CARD1
:THE SECOND VALUE IS THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION OF
;ROWS ONE THRU SEVEN

BINCD:

sCARD COLUMN 1

1
20
2
10
4
I4
10

6
20
5

40
4
100
3
200
2
400
1
1000
40
2000

;3
;6
;5
:6

;7
;8
;9

;10
1M
212

000100
004000
000200

100
4000
200

000067
002222
000117
003333
000177
004444
000207
005555
000267

6
2222
117
3333
177
4444
7
5555
267
6666
1
7777
377
1010

;21

1212

;22

1313

;23

1414
7
1515

;24

1616

;26

001111

000317
007777
000377
001010
6
001212
000056
001313
000077
001414
7
001515
000067
001616

1mm

;13

;14
;15
;16
17

;18
;19
;20

;25

CZCRACO CR11 DIAG TSTS MACYI1 30A(1052)
CZCRAC.P1
26~SEP-79 15:13

27-SEP-79

2727
2728
2729
2730
2731
2732
2733
2734

0136724
013676
013700
013702
013704
013706
013710
013712

001717
000077
002020
000105
002121
000127
002323
000137

1717
77
2020
105
2121
127
2323
137

2736
2737
2738
2739
27640
2741
2742
2743
2764
2745
27646

013716
013720
013722
013726
013726
013730
013732
013734
013736
0137640
013742

000107
002525
000127
002626
000117
002727
000137
003030
000147
003131
000167

107
2525
127
2626
117
2727
137
3030
147
N
167

2735

2747
27648
2749
2750
2751
2752

2753
27564
2755

756
2757
2758

2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782

013714

013744
013746
013750
013752
013754
013756

013760
013762
013764

013766
013770
013772

013774
013776
014000
014002
014004
014006
014010
014012
014014
014016
014020
014022
0140264
014026
014030
014032
014034
014036
014040
014042
014044
014046
014050
014052

002424

003232
000157
003434
000147
003535
000167

003636

000157
003737
000177
004040
000204

004141
000227
004242
000216
004343
000237
004545
000227
004646
000217
004747
000237
005050
000246
005151
000267
005252
000256
005353
000277
005454
000247
005656
000257

26264

3232
157
3434
147
3535
167

3636
157
3737

177
4040
204

3
227
4242
216
4343
237
4545
227
4646
217
4747
237
5050
4
5151
7
5252
5353
2
5454
247
5656
257

09:50

PAGE 54

SEQ 0053
;27
;28
;29
;30

3
;32

;33
;34
;35

;36
37

.38
39

40
41
;42

43
44

;45
:46
47
;48
;49

50
51
;52
;53
;54

c2¢
CZCR

. AB
ERR
cz2¢
RUN
RUN

COR

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
CZCRAC.PT
26-SEP-79 15:13
2783
2784

014054
014056

27-SEP-79

09:50

PAGE 55

SEQ 0054

005757
000277
060

3
0404

I4
0505
27
0606
17
0707
37
3210
146

0123
37

2837
2838

014240
014246

020122

051120
040503
040505
046447

051505

7654
347
4567
BINEND: 237
MsSG1:
.ASCI1

;80
;/@PRESS CARD READER 'MOTOR START' AND 'READ START'/;

CZCRAC.PI

2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853

014254
014262
014270
014276
014304
014307
014314
014322
014330
014336
014343
014350
014356
014364
014372

26~SEP-79

051117
052122
020104
020104
023524
057
051523
020104
051105
042523
057
020116
041447
052516
020116

(]

DIAG TSTS

30A(1052)

27-SEP-79

09:50

PAGE 56

)

SEQ 0055

—

CZCRACO CR1Y

040524
047101
040505
051101
MSG1A:

LASCI!

;/dPRESS CARD READER

MSG2:

LASCII

;/@THEN HIT

051516

042522
051101
042101
042522
057
042510
02012¢
044524
047440
020105
046117

051120
040503
040505
051047
052123

051505
042122
042504
040505
050117

MSG3:

LASCI1

;/QPRESS CARD READER

'READ STOP'/;

051120
040503
040505
051447
057
052100

051505
042122
042504
047524

MSG3A:

.ASCII

;/3PRESS CARD READER

'STOP'/:

042510
051105
046040
053440

MSG4:

LASCII

;/aTHE

047515
046114

MSG5:

LASCII

;/3REMOVE ALL CARDS FROM THE

MSG6:

.ASCII

;/3RESTORE

MSG7:

LASCII

;/IRAISE OUTPUT STACKER PRESSURE ARM SLIGHTLY ABOVE HORIZONTAL @ THEN LO

052116
052120
046105
027440
042522

'RESET'/;

"CONTINUE'

ON THE CONSOLE/:

INTERRUPT LEVEL WAS /;

INPUT HOPPER/:

051504

2885
2886
2887
2888
2889
2890
2891
2892
2893
28%

014652
014653
014660
014666
014674
014702
014710
014716
014724
014732

057
057
042523
052520
041501
051120
042522
051440
046124
053117

050120

051105

051100

044501
052125
052123
020122
052523
046522
044107
041101
047510

020105

CARDS

IN THE

INPUT HOPPER/:

CZCRACO CR17 DIAG TSTS MACY11 30A(1052)
CZCRAC.P1
26-SEP=-79 15:13

2895

014740

044522

047532

27-SEP-79

09:50

PAGE 57

SEQ 0056

052116

2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906

014746
0147564
014762
014770
014771
014776
015004
015012
015020
015026
015034

046101
042510
042527
057
057
051105
052520
041501
046120
047526
047524

040040
020116
020122

052040
047514
05211

046100
047440
020124
042513
052101
041040
027515

053517
052125
052123
020122
020105
052117

2911
2912
2913
29164
2915
2916
2917
2918
2919
2920
2921

015070
015076
015104
015112
015120
015126
015131
015136
015144
015152
015160

020124
047502
047440
020105
0201264
051105
057
020124
044103
051105
046106

044124
0521264
020106
047111
047510
057
046100
053523
052440
051040
020105

020105
046517
044124
052520
050120

2923
2926
2925
2926
2927
2928
2929
2930
2931

015170
015176
015204
015212
015220
015226
015234
015242
015250

040057
020113
040503
040505
052123
020116
042522
040440
020104

046102
044124
042122
042504
052101
047524
042526
041440
047507

MSG7A:

LASCII

:/3LOWER OUTPUT

MSG8:

LASCII

;/3HOLD DOWN THE SWITCH AT

043111
052111
042116
043111
040503

MSGSBA:

LASCII

;/aLIFT SWITCH UNDER RIFFLE

041517
020105
051040
020122
047511
050040
052116
051101
047111

MSG9:

.ASCII

;/aBLOCK THE CARD READER STATION TO PREVENT A CARD GOING THRU, AND/;

MSG10:

LASCII

;/aREMOVE

JAMMED

STACKER PLATE

015306

042515

OZO&gg

040503

2938
2939
2940
2941
2942
2943
2944

015317
015324
015332
015340
015346
015354
015362

057
020104
052517
051440
051105
020105
020029

044100
044124
050124
040524
043440
050117
044124

046117
020105
052125
045503
052101
047105
047105

MSG11:

LASCII

;/aHOLD THE OUTPUT

2946
2947

015371
015376

057
042503
064503
051101
044107

050100
051440

040514
042520

MSG12:

LASCT

;/aPLACE

29648
2949
2950

015404
015412
015420

046101
026513
020124

042040
044514
044103

THE BOTTOM OF

THE

INPUT HOPPER/;

CAP/;

CARD/;

2936

SPECIAL

TO BOTTOM/;

STACKER GATE

DARK-LIGHT

OPEN.

CHECK

THEN/;

CARDS

(SEE

LISTING,

TESTG);

CZCRACO CR1Y DIAG TSTS MACY11 30A(1052)
26~SEP-79 15:13

CZCRAC.P1

2951
2952
2953
295¢
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975

015426
015634
015442
015450
015456
015464
015472
015500
015506
015514
015522
015526
015534
015542
015550
015556
015564
015572
015600
015606
015614
015616
015624
015627
015634

040503
051450
05151
020054
024507
044124
052124
020106
047111
052123

041505
042122

020127

3006

016102

27-SEP-79

051500
027440
040503
040515
052101

09:50

LASCII

J@AT

PAGE 58

SEQ 0057

THE BOTTOM OF

045503
040503
047503
050040
047122
030504
031104
042504
040505

MSG13:

LASCI!

;/aDECK

044120

MSG14:

LASCI!

J/dALPHA /;

047111

MSG15:

LASCII

;/aABINARY/;

020124
051501
057
046505
044124
047522
042116
020116
051120
041447
052516

MSG16:

LASCI1

;/aBIT

MSG17:

.ASCI1

;/IREMEDY

020124
020123

MSG18:

LASCII

;/aBlT 8 WAS SET/;

052514

MSG19:

LASCII

;/aCOLUMN READT

020100

QEST:

LASCII

/8%

= /;

020040
020075

NEWIS:

LASCI]

NEW = /;

051127

SWREQ:

LASCI1

;/a8SWR =

042122
042507
042524

CIMPAT:

LASCII

:/9CARD

IMAGE

CARD

THE

INPUT STA(K/;

(OLUMN PATTERN READ1

C(ODED

READ/;

15 WAS SET/;
THE

ERROR CONDITION AND PRESS

READZ2

PATTERN=

(ARDS ERRORS/;

'CONTINUE'a/;

C2CRACO CR11 DIAG TSTS MACY11
CZCRAC L1
26=-SEP-79 15:13

047122

020075
051500
047111
051104

020075
040100
041501
030461
020107
027440
040125

044500
025440
020101
057
041500
051105

027524

30A(1052)

057
040524
020107
051505

27=SEP=79

(09:50

PAGE 59

SEQ 0058

s /ASTARTING ADDRESS = /;

STADD:

LASCI]

TITL:

LASCII

020075

CTLU:

LASCII

J/"Ve= /;

051516
042040
042524

SUBT1:

.ASCI1

./dINSTR ¢+ DATA

030522
047522
041516
052040

SUBTZ:

LASCII

;/aCR11

043516
051505
050117

SUBTS:

.ASCII

;/3SINGLE

TEST LOOP/;

0471M

SUBTS:

LASCII

;/Q@SINGLE

DATA PATTERN TEST/;

;/@3CZCRACO CR11 DIAG TSTS /;

051524

040504
052101
052040

.END

TEST/;

ERROR FUNCTION TEST/;

BEGIN
BELL
BINCD
BINEND
8.0k
CARDIM
COCNT

006646

016066
011506
CkCOL
011172
CKCRD
011156
CKDONE
011416
CKFAIL
011250
CKHLT
011404
CKLOOP
011070
CKLP
011112
kLP2
011216
CKNOHD
011310
CKSAME
011014
(KSIT
011142
(kSITT
011146
(kU
= 104006
kW
012732
(K4
001370
(xS
001534
K9
002352
CLCNT
006650
CIMPAT

(KBIT8

CNTLU = 104002
CNTLWU
012316

(NT23A
CNT238
CNT23C
CNT23D
CNT23E
(NT23F
CNT23G
CNT24A
(NT24B
CONTD
CONTG

CONT10
CONT11
CONT2
(ONT21
CONT22

005110
005126
005146
005164
005204
005224
005250
005316
005346
005540
010476
002514
002616
001226
004744
005050

(¥, ]

—

—
NWNOMNN ng W
?owwowgwo—o

ALPY
ALWAIT

ALLDON
ALLOK
ALPCD
AL PEND

—‘—I—J—O_J—I-J.J_AN

ALCNT?

012364
006714
006776
007010
006662
007036
013024
013522
005516
007072
000726
011462
013524
014222
011706
011432

AGN

AL CNT
ALCNT)

MAC

OONNNOON
NNV S

CZCRACO CR11 DIAG TST
CZCRAC.PIY
26-SEP-7

1548

30A(1052)

2426

17714
17914
17984
1655
18054

27-SEP-79 09:50 PAGE 61
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0059

2443

1699

17624

2511a
26704

15724
18144

6714
1713

26754
28344
23034
2154+
1564+

30044
719

21834
2179
22264
2196
22224

2173

2169
2191

2096

2175

22484

1667

1695

1708

1735+

1736+

1541

1656

2237

22564

2264

2180

2182

2188

2225

2228

1563

2468

1705
1562

1743«
2467

1757#

2158«

2179

1762

2068

2193

22314

750

1628

1737

2227
21984

2178
2197

21754
678
7884

1670

677

1527

2184

2208

1738+

1739«

1742+

C2CRACO CRYY DIAG T1STS MACY11
1

(ZCRAC.PN
CONTS&

(ONTB

(RB?2
CRLF
CRLFG

CSNT
CTLY
C.CONT
C.WAIT
DATENC

DATST
DATSTY
DATST2
DAT1
DAT?
DBRCKR
DCNT1
DECK
DECKCK
DISPLA
DISPRE
DONEZ
DONE7
D.1
D.2
EMTSRV
EMTTAB
END
ENDCK
END24
ERCMIT
ERCR11
ERFLG
ERRG
ERSEY
ER

FAIL
FAILC
FAILCN
FAILCT
FLAG

HLT

0014610

0022642

000640
012242
012274
000630
016176
012024
011770
006656

005426
005436
005456
006652
006654
(002232
005574
006640
006514
000620
000174
001314
002030
012120
012132
012752
013004
006476
005400
005360
007206
007200
000650
001726
006000
006034
006062
006122
006170
006406
000632

104000

26=SEP=-79 15:13
791

30A(1052)

990

2207
}?gg

2290
5%;;

646N
2622
2330
23254
1605«
1547
15608
1559
1599«
1609

2414+
3017#
2334n
2326
1617

961
1578

1570«
1723
642N
6134

758
913
2350
2352
603
2489
1718
153
1523
623
621
6554
871
1594
1629
1612
1645
1643
1696
2835‘

S81#

800

09:50

INERRR
INIT

012546
011434

1789
1922
2428
774
1260
1957

CROSS REFERENCE TABLE == USER SYMBOLS

979

985

(]

1558+
1732
15654
1611
1614
Q794
1582#
1574~
17284
2455
2455
7654
921
23564
2354
2484n
24934
1721#
1533
15374
18404
1838#
1565«
8914
16264
1631

1615
16484
1659#
17004
1838+

702

803

1484+

2379
1883

23884
1900

2436+

2479

2346
1687

17604

1678
1681

17584
17504

1664
1720

17534
1836

SEQ 0060

1327
1494

1797
1969
2430
816
1303
1993

1491+

1498

1507

2397
1915

2398
1930

2399
1953

2183+«
2192«

2193
2195

2211
2214

2157«

2202

2204«

1865

1894

1909

1605

2400
1982

2439
2002

2018

2035

2052

2084

1924

1944

1949

1976

1986

2078

924N

2354

1540
1538

15454

1659

1661«

1700
16334
1618
1652

1639#

1840+«

1850

708

806

714

1342
1502

1803
1972
2437
860
1346
2026

725

739

745

755

763

767

790

794

797

810
910
017
1 170
1 §64

825
922
1019
1192
1370

833
926
1035
1198
1385

837
931
1039
1213
1400

843
936
1043
1235
1421

847
941
1046
1241
1444

851
949
1063
1256
1459

855
964
1068
1278

876
969
1083
1284

884
977
1116
1299

1811
20N
0

1821
2047

1827
2093

1830
2172

1834
2181

1887

1890

1919

1389
2072

1410
22374

998

1025

1053

1321
1487

PAGE 62

7954

981#

650#

27-SEP-79

1510

244614
903

1522

954

1532

1429

1536

1452

1603

1515

1860
2187

1749

1863
2244

1466
1751

1075

1098

1143

1707

1582

1848

1878

1473
1765

1174

1907

1480
1782

1217

1938

CIZCRACO CRYY DIAG TSTS MACYY1 30A(1052)
27-SEP-79 09:50 PAGE 63
CROSS REFERENCE TABLE =~ USER SYMBOLS
C2CRAC.P1Y
26~SEP-79 15:13
INTFLG

000602

INTVC

000604

ITONTY

1 TMAX

KBCSR
kBDBR
KBINT
KBINTT=
KCRB1
KCRS
LASTCD
LASTCK
LOGIC
L OOPF
LOOPG

LOOPS
LOOP4
LOOP4B

LOOPS
LOOPE6

LOOP7

LOOP8
L.CNT
L.EOMK
L.INC
L.TOUT
MSG1
MSGIA
MSG10
MsSG11
msSG12
MSG13

MSGl14
MSG1S

mMSG16
MSG17
mMSG18
MSG19
MSG2

012146

012144

000606
000610
012640
104003
000636
000634
006450
006432
006466
010364
010516

001266
001336
001354

001466
001624
001756
002150
012210
012240
012164
012166

014224
014307
015272
015317

015371
015526
015616
015627
015640
015661
015744
015764
014343

6354

1" 0Se
“318

6364
2128«
663+
6374
6384
2460
S84a
645
648
1698

1604

607

667

1211
1332
666

2131+

1847+

2415
2617
2496
1627
665
664
1709
1638

1717#
2044
2095
757#
779
787

828
867
907

976

23774
2371
2380
2384
1893
1896

2934m
29384
29464
29624
29724
2974m
29764

11
1230

1334+

1127
1246
1359

1129«
1248+
1361

2353
2251+

2359+
23624

23634

1689

2199

17124
1647

1923
1926

17084

1750

1752

1975
1978

<v00
2080

2014
2101

2033
28444

2048

2077

2098

28354

1913

1928

1941

1980

1996

2016

2029

2050

1335

1378

28674

2974
1881

1898

28724
2879

1249

1292

NOP
= 000240
NOTCD
006610

1694

23854

014536

016040
006212

2348

917

MSGS

NEWIS
NOHD

2303

1203
1316

834

28564

014607
014653
014771
015040
015131
015170

2283

1166
1275
1383

784

2027

MSG6
MSG7
MSG7A
MSG8
MSGBA
MSG9

1164
1273
1377«

760

014410
014450
014503

1189
1297

1135
1254
1375

2463

MSG3
MSG3A
MSG4

SEQ 0061

2082

CZCRACO CRYIY DIAG TSTS MACY11 30A(1052) 27-SEP-79 09:50 PAGE 64
CROSS REFERENCE TABLE ~- USER SYMBOLS
CZCRAC.P11
26~SEP-79 15:13

S7o

999
1100«
1179«
1306
1412«

2212

669+

1000+
1101
1183«
1307«
1413

PTOFF
QEST
READ
READC =

006660
016027
012376
104004

1602«
1610
2441
26154
585¢

1626+
1613«
29974
2416
2120

REST8
REST9

002270
002374

984
1012

988
1014
2122+
1844«
2292

RESTRT

RETRNX
RETURN
SAVPC
SAVPSR
SAVR2
SAVR3
SAVRL
SCONT1
SCOPE =
SCOPEC
SETUP
SET1
SET14
SET2
SET3
SET4
SETS

SET7
SPACE
SPACEX

SRV(C

SRVC1
SRVC2
SRVC2A
STACK
STADD
SUBT1
SuBTZ2
SuBT4

000742

011012
012150
011730
011732
011722
011724
011726
005700
104001
012062
000652
004542
003260
004330
004116
003704
003472

003106
011542
011572

005634

007070
007132
007140
000600
016115
016205
016231
016264

6754

2121«
688+
2287+
2288
2291«
23094
23104
1601
5824
1097
1846
23484
65
1376
1165
1333
1290
1247
1204

736
1338

2221
691
1028

1107+
1221%
1348+
1431+
1798+
17614

955+«
1381
2293
692+
1029+
1145«
1222+
1349
1432
1799

991
1668

999+«

2298
698+

1033+
1146
1226+
1350«
1433«
1806+

1679

1682

1685

1688

736%
1057+
1152%
1264+
1391«
1577+
1820«

955
1061+
1176+
1265+
1392
1581+

2125+

956+
1077«
1177
1269+
1396+
1585+

991+
1078
1178+
1305+
1398+
1586
2357+

1073
1545

22704

2274

2127+«

1550

21334
2129+

2297
2299
2314+
2315+«
16054
689

1128
1666
2273+

1805
1815
1822
618
2118
672
1842
2116

18134
18234
18254
620
30084
30194
30234
30284

15934

2358

2360%

23644

1302

813

2025

857
1345
2065

897
1388

952
1408

994
1427

1023
1449

1686

2210

2213

2216

2219

747
1216
1937

769
1259
1992

2117

2149

1672

1677

1680

1683

622

626

629

634n

1142
1877
2494
673
13834

11684
13404
12974
12544
12114
11354
1669
2275«

1584

720+
1295

- \N

2209

2493
691+
1209

22774

N —

= 177776

22834
6534
1133

1734m

PSR

011574
000646
011734

17514
17034
684
1580
1657
880
24404

—d

PRINT
PROC
PROCT

1748
1597
6814
15774
1587
873
2406

006632
006412
000764
005546
006540
001714
012544

NOTCDY
NOTCOL
NOTRP
NOTRP1
NXCRD
OFF6
ouT

SEQ 0062

TEST
TESTTA
TEST10
TEST1
TEST12
TEST13
TEST14
TEST1S
TEST16
TEST17
TEST18
TEST19
TESTZ2
TEST20

TEST21
TEST22
TESTZ23
TEST24
TEST3
TEST4
TESTS
TEST6
TEST7

TEST8
TEST9

TIB
TIFLG

TIM24
TINT10
TINT1
TINT12

TINT13

TINT14
TINT1S

TINT16

TINT17

2481+
614
2407
6354

6404
1569+

674

1844
18774
19064
19374
19924

683
2123

2200

2222

2284

2304

675

1560

2403

2409

2454

2460

2270
227c*

2294
2296+
17554

2302+

2300

2325
2327+

2070

2071

2109

2110

1136

1619
6884

1546

1560

1566

1579

SEQ 0063

1642

1644

1690

2351

2403

2450

2368+
2375«

2373
2383«

2381
2390+

2388
2393«

2391
2418+

1503

1509

15124

2429

2431«

1988

627

6854

1212
1255

1339

1298
1341

1382

1384

1481

1488

766

7694

890

894

8974

9944
2419«

2420

2425

942

946

1721

2349

2025#

&Sg%‘

TCSR
TDBR
TEND
TEST
TESTA
TESTB
TESTC
TESTD
TESTE
TESTF
TESTG
TESTX

000176
016055

S86#
(YAl
1771

30324
2498
660
675
2066

b ek

SWREG
SWREQ

2148
2LL7n

)

016307

—

SUBTS

SUSWR
012560
SUSWRR= 104005
SWR
000616

PNINONY
= —

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
27-SEP-79 09:50 PAGE 65
CROSS REFERENCE TABLE =~ USER SYMBOLS
CZCRAC.PIN
26~SEP-79 15:13

9524

2427

2435

1729

2454+

1767

2460

27-SEP-79 09-50 PAGE 66
C2CRACO CRIY DIAG TSTS MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
CZCRAC PN
26~-SEP-79 15:13
TINT18
TINT19
TINT20
=
TIT

TITL
TITTYP
TTMPY
TNINT
TOTCRD
TOTERR
TOUT

TRAPX
TRFLG
TRP1
TRTRAP
TSTA
TSTART

004246

004460
004634
104007

016143
012706
000622
004736
011430

011426
012152

000774
005556

007214

005020
005044
002334
XLOOP
011002
= 016342

T2INT
T2INTA
WAITS

1304
1347
1390
588#
2474
24724
6434
1411

2155«
2156«
659
1868
1947

2030
2260
680
6524

1576
600
1839
1568+
1430
1438
10074
2129
598
724
805
878
963
1081
1326
1490

SEQ 0064

13254
1368#
164004

671

2433+

1336
1897
1995

2076
2423
1728«

2434«

2435«

2462+

2464*

1634
1912
1999
2083
2475

1636

1665
1929

1914

2001
2102

2015
2119

Y1
CZCRACO CR1Y DIAG TSTS S MACY11
30A(1052) 27-SEP-79 09:50 PAGE 68
CICRAC.PN
26-SEP=-79 15:13
CROSS REFERENCE TABLE ~~ MACRO NAMES

COMMEN

ENDCOM
ESCAPE

INT

MULY
NEWTST
POP

PUSH

SETUP
SKIP
SLASH
STARS

TYPBIN
TYPDEC

TYPNAM

TYPNUM
TYPOCS
TYPOCT
TYPTXT
SSESCA

SENEWT
$$SKIP
.EQUAT
.HEADE
LKT11
.SETUP
. SWRHI
LSACTT
.SCATC
.SCMTA

#
»

1095#

»”
"
1»

i»

1.
»
»
»
»
»

"”w

w
1w
»
1»
1»

»
1
»
1

.$DB20

»
1
1
1
»
»
1
14

.SEOP
.SERRO
.SERRT
JEMULT
. SPOWE
. SRAND
. SRDDE
. SRDOC

»”
1w
w
»
"
i
w»
»

. SSAVE

.$DB2D

.SDIV

-.SREAD

.$582D
.$S820

17
1YJ

.$SCOP

. SSUPR

.$7YPB
.$TYPD
.STYPE
.$TYPO

14
14
14
14

.$SI1ZE

.STRAP

1170

1Y 4

1096

1172

1215

1258

1301

1344

SEQ 0065

CZCRACO CRYY DIAG TSTS MACY11 30A(1052) 27-SEP-79 (09:50 PAGE 69
CZCRAC.P11
26~SEP-79 15:13
CROSS REFERENCE TABLE == MACRO NAMES
. ABS.

016342

ERRORS DETECTED:

000
O

CZCRAC.BIN,CZCRAC.LST/CRF/30L/NL
: TOC=CZCRAC.SML, CZCRAC.P11

RUN-TIME: o5 36 2 SECONDS

RUN-TIME RATIO: 302/64=4.6
CORE USED:
25K
(49 PAGES)

SEQ 0066