Digital PDFs

AH-8413C-MC

March 1980

67 pages

Original

35MB

view download

OCR Version

47MB

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_gray.pdf

OCR Text

AH-8413C-MC

ELEHEN1T0ES

]

AR 1980

MADE

IN USA

S
e

J* J° 4 N e

SEQ@ 0001

Yo Yo o Mo Yo Mo Fo Moo lo o pl ool el

.REM

PAGE 2

IDENTIFICATION

AC=-8412C-MC

PRODUCT NAME:

CZCRACO CR11 DIAG TSTS

PRODUCT DATE:

OCTOBER, 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS

DIGITAL

PDP

UNIBUS

DEC

DZCUS

DECTAPE

MASSBUS

e
oo e

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

oo oo o

e ale o

AFFILIATED COMPANIES.

e Lo ot ot oY oot oo ale Yo Yo ¥

PRODUCT CODE:

15:13

09:50

o e

~SEP=79

27<SEP<79

~~
o~

MACY1Y 30A(1052)

—b

:'-'ssssss:aafiszm&urawsmfizawuws3;:33:;;:&”@”m_. g

o
~N o
~

RN %AG TSTS

SR RO

8 OR S RE S 2 IR SR AR ER 2B IF VNN NINYITL LB SRR B SGLRALIK

CZCRAC.PN

26-SEP-

?;C;;‘l S0A(1052)

27-SEP-79

09:50

PAGE 3

SEQ 0002

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(

AND BINARY TEST DECKS.

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

2.2

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.

STARTING PROCEDURE
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

SOFTWARE 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
(1E)

SWR=XXXXXX

NEW=

POSSIBLE RESPONSES ARE:
1.

<CR>

" N

6 DIGITS 0-7

IF NO CHANGES ARE TO BE MADE

TO REPRESENT IN OCTAL 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 DYNAMICALLY CHANGE THE
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF

CODE

THE PROGRAM

(IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER

APPLICABLE AREAS.

c2(¢
CZCR
sUsininisiaisiaisiaiaislaiaia
UM
AR RARAARAARARAAAARAARAAAARARNAOAOAAANOOOOAOAOAAADOAADO

C2CRACO CR11 DIAG TST

MACY11 30A(1052)
15:13

27-SEP-79

6.1

09:50

PAGE 4

CONTROL SWITCH SETTINGS

BASIC SWITCH REGISTER SETTINGS ARE:

SW15=1 OR UP===HALT ON ERROR
SW14=1 OR UP---SCOPE LOOP

SW13=1 OR UP==<=INHIBIT PRINT QUT
SW12=1 OR UP==<INHIBIT TRACE TRAPPING

SW11=1 OR UP==<INHIBIT SUB-PROGRAM I TERATION
(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 M8290 MODULE)
SW07=1 OR UP===L0OP THRU THE INSTRUCTION TEST PORTION
NOTE:
DATA ERRORS MAY OCCUR IF SW7 IS SET, THEN CLEARED.

?%sgu;us“geggrmv HANG WHEN THE INPUT HOPPER GOES EMPTY

SW06=1 OR UP-=-RETURN TO THE BEGINNING OF THE INSTRUCTION TEST
WHEN CONTINUING FROM ONE DECK TO ANOTHER

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

SEQ 0003

DIAG TSY
=SEP-

U S S U S S S S S S S SO S S S S S S S SN SN S S S S SN ST SN SN SNISN NN NN NSNNNNSNSNSNSNSNSNSNSNNNY

HEBBNEURURNEE
B IG A rvm =038

CZCRACO CR1Y
CZCRAC.PI

S S S

PAGE S

€

SEQ 0004

FERRET 2BISIN NIJYITBITIRAR2E O SIFARUKS Bo&LEGRER LE88LEAE

D il i sl sl

240 = SINGLE SUBTEST LOOP
250 = READ SINGLE DATA PATTERN TEST
4.3

PROGRAM AND/OR OPERATOR ACTION

6.3.1

INSTRUCTION AND DATA RELIABILITY TEST (SA 200)
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

ggggr‘g;flg;flflf PRESSING START.

TEST DECKS INTO THE INPUT HOPPER.
PRESSING 'MOTOR START''
"READ START'' (‘RESET'' ON DOCUMATION READER) ON THE CARD

AND

READER SHOULD CAUSE PROGRAM EXECUTION TO RESUME.
THIS ENTIIQREDEEMNCE IS NECESSARY TO RUN THE FULL TEST ON THE CARD

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

ERROR FUNCTION TEST (SA 210 OR 220)
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

IF SWITCH-LESS MACHINE SIMPLY

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

)

_o.‘.a.ad_o:_n_n
.a-c.o....a-‘..o-oo"
v

220 = ERROR FUNCTION TEST (WITH DOCUMATION READER)

D —d
d D d
sB
D —d
)
—

STARTING ADDRESSES

200 = INSTRUCTION AND DATA TEST
210 = ERROR FUNCTION TEST (WITH G.D.I. READER)

) i

6.2

SETTINGSBEFORE PRESSING START.

FOLLOW THE

4.3.3

SWITCH-LESS MACHINE SIMPLY

INSTRUCTIONS AS THEY ARE PRINTED OUT.

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
‘S’sgggN(éNB‘;FME PRESSING START.

IF SWITCH-LESS MACHINE SIMPLY

WHEN ASKED,ENTER THE STARTING ADDRESS OF DESIRED TEST
((,A!DRR%S“S‘ OE)THE TESTXX TAG, WHERE XX MAY BE 1 THRU 24
U

G).

09:50

00 ~J ~Jd ~J U S SESUSESUSESISISESESISESNISNISISNISNISISNISNISNISNISY

27<SEP-79

0 On AN An O On On OA An ON AN A" An A 00 00 O A O O AN OB 6 00 OB O 00 O

%CG\ 30A(1052)

CZCRACO CR1Y DIAG TST
26=SEPCZCRAC.PI

PAGE 6

SEQ 0005

c2!

czci

SINGLE DATA PATTERN TEST (SA 250)
IN ALL

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

LOAD SA 250.

IF HARDWARE SWITCH REGISTER IS AVAILABLE SET SWITCHE
gsggugs
BEFORE PRESSING START. IF SWITCH=LESS MACHINE SIMPLY
WHEN THE CARD READER RUNS OUT OF CARDS IT WILL RING THE BELL
RELOADING THE DECK AND PRESSING ‘READ START'' (‘RESET'") ON THE CARD

5.1.2

AT SA 210 OR 220 (ERROR FUNCTION TEST FOR CR11)

SW00=1 TO INHIBIT TESTING THE DARK=-LIGHT ERROR.
g:flg;} }'8 ’L‘(A){Jl; ng;ag CURRENT SUBTEST
5.1.3

AT SA 240 (SINGLE SUBTEST LOOP)
FOR SR OPTIONS

. B,
. P,

TO HALT ON ERROR
TO INHIBIT PRINTOUTS

. B, B, B, M.

SW15=1
SW13=1

. B, B, B,

AT SA 250 (SINGLE DATA PATTERN TEST)

e, P,

5.1.4

SEE 4.1

. B, B, B,

SEE 4.1

. M. M.

AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST)

. DA, B,

5.1.1

s, B

OPERATIONAL SWITCH SETTINGS

. M.

5.1

OPERATING PROCEDURE

READER WILL CONTINUE THE TEST.

IDENTICAL

. M. B, B, B,

BUT IT MUST BE

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

. B,

ANY DATA PATTERN MAY BE USED,

s, B, M.

A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS TEST.

. M,

4.3.4

. B,

09:50

215

27-SEP=79

P, B, B,

S ANNNO

)
o cnl) i

IRFIRILTS 892509233

CZCRACO CR11 DIAG TSTS MACY1Y 30A(1052)
CZCRAC.PT
26=SEP=79 15:1 3

09:50

PAGE 7

5.2

SUBROUTINE ABSTRACTS

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 TOE FIRST TEST DECK.

AT THE END OF THE DECK THE BELL WILL RING, AND IF SW5=1 THE
PROGRAM WALTS.
IF SWS=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.
IF ALL OTHER SWITCHES WERE DOWN, FOR EXAMPLE, THE
DATA RELIABILITY TEST WOULD THEN BE RUN ON THE NEXT DECK.
THE
OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED IN 4.1.

5.2.2

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 WILL JUMP TO THE START OF THE SUBTEST THAT THE SCOPE LOOP
IS REQUESTED FOR.
IF SCOPE LOOP IS NOT REQUESTED, THERE WILL
BE 1 ITERATION ON THAT SUBTEST BEFORE THE NEXT SUBTEST
IS ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS.

5.2.3

HLT
THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME
CF FAILURE, AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER.
:.KL);EPPJQTNTSE LOCATION COUNTER WILL BE THE ADDRESS OF THE

c2(
CZCR

ARARAARAAAANAAANAAAAANANAANAANNAANANANNANANNAANNNAN
N AAMNDD MM MMM fnmnmfnimm

27=SEP=79

MMM

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

09:50

PAGE 8

SEQ 0007
B

27<SEP-79

5.2.5

TRAPCATCHER

278
279

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION O
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND

282
283
284

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

287
288
289

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

gg?

INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY.

LOCATION PLUS TWO.

gg?

2;;%

COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.

5.2.6

294
295
296

STACK FAIL, AND DARK=LIGHT ERROR ARE ALL CHECKED.

5.2.7

301
302
303
304
305
306

b o

h o

ONO
VR WN=O

WWWWWWWWW

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
LOOP.
IN SOME CASES (SUCH AS WITH INTERMITTENT FAILURES) THAT'S
NOT EASY TO DO.
THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS
OF ANY TEST FROM TESTO THRU TEST24 AND TESTA THRU TESTG AT THE

5385

309

(ERROR FUNCTION TEST)

THIS TEST CHECKS OPERATION OF THE VARIOUS ERROR SENSING FEATURES
OF THE G.D.I. OR THE DOCUMATION CARD READER. CARD READER OFF=-LINE,
INPUT HOPPER EMPTY, OUTPUT STACKER FULL, FEED ERROR, MOTION ERROR,

22?”?

32%

ERCR11

HALT AND THEN GO DIRECTLY TO THAT TEST.

5.2.8

(KSAME (SINGLE DATA PATTERN TEST)
THIS TEST IS 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.

B
B
TV
T
T

THIS CONTINUES UNTIL THE END OF THE PROGRAM LOOP IS REACHED.

g;g

THE FIRST INSTRUCTION EXECUTED UPON

TRAPPING IS AN "RTI'" WHICH RETURNS TO THE INTERRUPTED SEQUENCE.

TEST UNLESS SW12 IS SET.

g;g

THE TRACE BIT WILL BE SET ON ALTERNATE

LOOPS OF THE INSTRUCTION TEST, AND ON ALL LOOPS OF THE CHANNEL

27,

271

O
e

LOOP OF THME PROGRAM.

THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST

569

TTRAP

5.2.4

266
222;

~SEP<79 15:13

CZCRACO CR1Y

CZCRAC.PT

]
30A(1052)
DIAG TSTS MACY11

PRINTOUTS ARE IN A TWO-WORD FORMAT. THE FIRST IS THE PC+2 OF
THE DETECTED ERROR. THE SECOND IS THE CONTENTS OF THE PROCESSOR
STATUS REGISTER WHEN THE ERROR WAS DETECTED.

Y e

PP PP PR

Y Y Y Y Y e

e Tl

T aT T

STANDARD PRINTOUT

p—"yg—w g P

6.1.1

ta ey e

ERROR PRINTOUT

6.1

Y T

ERRORS

— — —— —"g—p—g—-y— _— e P P

THE PROGRAM WILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST.

TO GO DIRECTLY_TO A SINGLE SUBTEST AND RUN IT CONTINUOUSLY, USE
SA 240. SEE 4.3.3 FOR DETAILS.

5.3.2

e T e el la

THIS FLOW AS NOTED IN SECTION 4.1.

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
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
80 CARDS, THE INPUT HOPPER IS NOT EMPTY, THE PROGRAM WILL
CONTINUE TO THE NEXT DECK. SWITCH OPTIONS MAY BE USED TO ALTER

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS WORST
CASE TESTING.
A SINGLE ALPHANUMERIC DECK SHOULD BE RUN.
THIS
EXECUTES AN INSTRUCTION TEST FOLLOWED BY A DATA RELIABILITY TEST.

T W DU W

5.3.1

e T

PROGRAM AND/OR OPERATOR ACTION

gg?

5.3

348
349

SEQ 0008

N O N

332?

343
33:’;

PAGE 9

342

09:50

341

27<SEP-79

P T

§‘§§§§§‘§§§§§§§’S§W§§§§§

(ZCM(O CR“ DIAG TSTS MACY11 30A(1052)
CZCRAC.P
25=SEP=79 15:13

——

DATA ERRMS NOT TRACED TO CARD READER HARDWARE INCLUDE:
SWO4 NOT SET TO TYPE OF DECK USED
B.
CARD MISSING
C.
CARD DECK OUT OF PROPER SEQUENCE
D.
DAMAGED CARD

6.1.3

SINGLE DATA PATTERN PRINTOUT
THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING WITH EACH

ERROR PRINTOUT.
COLUMN
READ1
READ2
CARDS
ERRORS

6.1.4

THE COLUMNS HAVE THE FOLLOWING SIGNIFICANCE:

<~THE COLUMN NUMBER WHERE THE FAILURE OCCURRED.
=DATA IS READ TWICE.
THIS IS THE FIRST READING.
=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

D D D e e e

NN ANNNNNNANANENNENE
PN
NN

CODED
READ

READ THE FIRST TIME FROM CRB1
<THIS IS WHAT WAS IN CRB1 AFTER A BRIEF TIMING LOOP.
IT
SKROLD BE THE SAME AS THE PREVIOUS READING.
=THIC IS WHAT THE DATA SHOULD BE IN ENCODED FORM
=THIS IS WHAT WAS READ BY ADDRESSING THE ENCODED BUFFER

D d d D d e e

PATTERN <THE CORRECT CARD IMAGE DATA THAT SHOULD HAVE BEEN READ
READ1
<THE CARD IMAGE DATA IS READ TWICE.
THIS IS WHAT WAS

D e

<THE COLUMN NUMBER WHERE THE FAILURE OCCURRED

<THE CARD NUMBER WHERE THE FAILURE OCCURRED

D D el e

COLUMN

2~ PN AN DN BN AN PN

-EITHER ALPHANUMERIC OR BINARY , DEPENDING ON SwWé

CARD

D e

DECK

d wd

THE COLUMNS HAVE

c2(
CZCF

S~ S~~~ B

DATA ERROR PRINTOUT
THE HEADING IS PRINTED OUT ONCE PER TEST DECK.
THE FOLLOWING SIGNIFICANCE:

SEQ 0009

D d d e

PAGE 10

—

09:50

THE TEST WAS STARTED.

"BIT 8 WAS SET"'
AT THE BEGINNING OF MOST SUBTESTS, BIT 8 (OFF-LINE) IS CHECKED
TO MAKE SURE THAT THE READER IS NOT OFF-LINE. IT IS ALSO CHECKED
IN THE DATA TEST WHEN AN INTERRUPT OCCURS DUE TO BIT }5 BE ING
SET. IF BIT 8 IS SET WHEN IT WAS NOT SUPPOSED TO BE,
THE ERROR
MESSAGE 'BIT 8 WAS SET. REMEDY THE ERROR CONDITION AND PRESS

6.2

ERROR RECOVERY

IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND

CONTINUE.

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
aemrggcms IN THE TRAP AND VECTOR AREA THE PROGRAM MUST BE

PROGRAM CAN BE CONTINUED.

e e

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

. ——
—

'CONTINUE'.'" IS PRINTED OUT. THE PROCESSOR THEN HALTS. SINCE

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

SS'?

6.1.2

(44 144 Al

35,

27<SEP=79

e S

C2CRACO CR1Y DIAG
T SIS MACYY11 30A(1052)
&- P<78 15:13
CZCRAC.PY

—

SEQ 0010

RESTRICTIONS

PAGE 11

09:50

27=SEP=79

STARTING PROCEDURE

OPERATIONAL RESTRICTIONS

7.2

COMBINED INSTRUCTION AND DATA RELIABILITY TEST

(SA200)

7.2

NONE

IF THE CR11 USES AN MB829 MODULE SW10 MUST BE SET IN THE

SWITCH REGISTER.

TEAR A SMALL PIECE FROM THE LEADING EDGE OF ONE CARD.

TAPE 2 OTHER CARDS TOGETHER TO MAKE ONE ‘LONG''
CARD = IT ONLY NEEDS TO BE ABOUT 1/2 INCH LONGER THAN

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

SINGLE DATA PATTERN TEST (SA 250)

7.2.3

e e

A REGULAR CARD

THE ERROR FUNCTION TEST REQUIRES SPARE CARDS, AS IT BENDS SEVERAL.
ALSO, TO RUN THE DARK=LIGHT CHECK 2 CARDS MUST BE SPECIALLY
PREPARED.
THE TEST WILL TYPE OUT A REQUEST FOR THESE CARDS WHEN
THEY ARE NEEDED.
TO MAKE THEM:

ERROR FUNCTION TEST (SA 210 FOR G.D.I. READER - SA 220 FOR DOCUMATION READER)

7.2.2

e T

WEN USING THE STANDARD TEST DECKS, THEY MUST BE IN PROPER SEQUENCE
AND IN GOOD CONDITION.
IT IS A GOOD IDEA TO NUMBER THE CARDS
IN EACH DECK AS SOON AS THE DECK IS RECEIVED.

THE TEST.

IF A STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET

TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
CZCRAC.PT
SEP=79
15:

27<SEP-79

09:50

PAGE 12

&7
:28

MISCELLANEOUS

:g?

8.1

EXECUTION TIME

NOT APPLICABLE

8.2

CARD DECK DESCRIPTION

8.2.1

ALPHANUMERIC

458
459

REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD
IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF 80 COLUMNS

SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT.

460
461
462

OF THE FIRST CARD. THE FIRST VALUE GIVEN FOR A COLUMN IS THE CARD
IMAGE OF THAT COLUMN, WHILE THE SECOND VALUE IS THE ENCODED FORM
OF THE SAME PATTERN. EACH SUCCESSIVE CARD IN THE DECK USES THE

8.2.2

467
468
469

BINARY

REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD IN
THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 COLUMNS OF
THE 1ST CARD. AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE CARD

2;?

HAS THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT.

2;%

8.3

SPECIAL NOTES

474
2;2

IF THE CARD READER GOES OFF<LINE BEFORE THE END OF A CARD,
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER.

477

THE CARD READER GOES OFF-LINE DUE TO ''INPUT HOPPER EMPTY'' AFTER

478
479

THE 80TH COLUMN OF THE LAST CARD IS READ, BUT BEFORE CARD DONE
OCCURS.
THUS, THE SPECIAL CONDITION BIT IN THE CSR WILL BE

482
483
484

IF THE CARD READER USES AN M829 MODULE, SW10 MUST BE SET
IN THE SWITCH REGISTER. WITH THE M829 MODULE, CARD DONE
NEVER OCCURS AFTER THE LAST CARD IN THE INPUT HOPPER IS READ.
IF _THE CARD READER USES AN M8290 MODULE, SW10 MUST NOT BE SET.
WITH THE M8290 MODULE, CARD DONE IS ISSUED AFTER THE LAST
CARD IN THE INPUT HOPPER IS READ.

‘log?

485

486
“ogg
489
490
491

492

SET BEFORE CARD DONE ON THE LAST CARD.

IF BIT O OF THE CRS IS CLEARED 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.

SEQ 0011

MACY11 30A(1052)
15:13

CZCRACO CR11 DIAG TSTS
CZCRAC.PI
26=SEP=79

—-;

}1 30A(1052)
CZCRACO CR11 DIAG TSTS MACY
26=SEP-79 15
CZCRAC.PN

27-SEP=79

8.4

09:50

PAGE 13

SEQ 0012

TESTING CR11'S WITH NON-STANDARD ADDRESSES
BY SUBSTITUTING INTO THE LOCATIONS KCRS,

KCRB1, AND CRB2

THE ADDRESSES OF THE CRS, CRB1, AND CRB2 OF A CARD READER

ASSIGNED A NON-STANDARD ADDRESS,

AND SUBSTITUTING ITS INTERRUPT

VECTOR ADDRESS INTO ADINT, A CR11 MAY BE TESTED AT ANY

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

LISTINGX

— e

)

) o

wvivivivisavauvwv

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 READER, WHICH

EELERE

ADDRESS ASSIGNED TO IT.

.ABS

.TITLE
NLIST
LIST

CZCRACO CR11 DIAG TSTS
MD_,MC,CND
ME

;DIAGNOSTIC FOR CR11 CARD READER

;COPYRIGHT 1970,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
:BY RICK FADDEN

s CHANGE HISTORY

; (MODIFIED AUGUST=71 FOR DOCUMATION CARD READER (JOHN RODENHISER))
:(MODIFIED APRIL-72 FOR HARDWARE ECO)
:MODIF IED MARCH 1976 FOR SWITCH-LESS PROCESSORS BY RON PLATUKIS
;REV.CO, OCTOBER 1979 TO BE ASSEMBLED USING CZCRAC.SML, WHICH
:
WILL ENABLE ABSOLUTE MODE ADDRESSING (AMA).
STARTING ADDRESSES ARE
:

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

;SWITCH REGISTER SETTINGS FOR THE INSTRUCTION AND DATA TEST ARE:

SW04=1 FOR THE BINARY TEST DECK

Sw05=1 T(T)E’S‘?L;Esl THE END OF A STANDARD 80 CARD
=0 TO CONTINUE FROM ONE DECK TO THE NEXT.

AFTER THE LAST DECK IN THE HOPPER IS

RUN,

THE PROGRAM WAITS FOR THE CARD READER

CZCRACO CR1Y DIAG TST
CZCRAC.PN
26=SEP-

flCV“ 30A(1052)
15:13

09:50

27-SEP=79

PAGE 14

SEQ 0013

TO COME BACK ON<-LINE,AND RUNS THRU

549

A SERIES OF CHMECKS OF OFF=LINE AND

COMING ON=LINE OPERATIONS OF TME READER.

WHEN THE READER IS BACK ON=LINE AND THE

CMECKS ARE COMPLETE,

TME DATA TEST IS RESUMED.

SW06=1 TO RUN THME COMBINED INSTRUCTION AND wm TEST
WHEN CONTINUING FROM ONE DECK TO THE NEXT

=0 TO RUN ONLY THE DATA TEST ON EVERY DECK AFTER THE FIRST
SWO7=1 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 WILL BE INCORRECT.

TMIS IS

mus BECAUSE TME FIRST CARD IN THE DATA TEST WILL NOT

BE THE ONE EXPECTED.
WITH SW7 SET THE TEST MAY MANG
WHEN THE INPUT MOPPER RUNS OUT OF CARDS.

SW10=1 r&zx_qmws THAT THE CR11 BEING TESTED USES THE
MNDULE

=0 TO INDICATE THAT THE CR11 BEING TESTED USES THE
MB8290 MODULE
SW11=1 TO INMIBIT SUBPROGRAM ITERATION

1
1

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

TO INMIBIT TRACE TRAPPING
TO INMIBIT PRINTOUT

SW14=1 FOR SCOPE LOOP
5=1

177776

000240
104000
1040

TO HALT ON ERROR

PSR=177776

NOP=240

HLT=EMT
SCOPE=EMT+1

CNTLU=EMT+2
KBINTT=EMT+3
+4
READC=EMT

SUSWRR=EMT
+5

CKU=EMT
+6
TIT=EMT+7
ADINT=20

COUNT=X1

;CONTAINS ADDRESS OF INTERRUPT VECTOR
;USED FOR TIMING, ETC.

R5=25

:SCRATCH

R2=%2
CRS=23
CRB1=%4

SP=%6

PC=X7

:SCRATCH
;CONTAINS ADDRESS OF CARD READ STATUS REGISTER
;CONTAINS ADDRESS OF CARD READER BUFFER (12 BIT DATA)

STACK POINTER

PROGRAM COUNTER

;LOAD TRAP CATCHER INTO LOCATICNS 0 THRU 377
;LOAD TRAP VECTORS

000014
000016

000030
000032

CZCRACD CRYY

PAGE 15

T
L

P L
N
PV LW S
TP L

;STACK POINTER INITIALIZED TO POINT HERE
sCONTAINS LEVEL THAT INTERRUPT IS FOUND AT
;ADDRESS OF CARD READER INTERRUPT VECTOR

:SET TO ZERO TO OUTPUT DATA ERROR HEADING

;INITIALIZE CSR AND DBR POINTERS
SETUP:
JSR
X7,T0UT
SUSWRR

) ) i
e

) o

R R
R

sTOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL FLO
?L(!A!Eg lSRggESSG STATUS WHEN TRACE TRAP MUST BE CLEARED

D e D e

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

) i

R T R

sADDRESS OF TELETYPE STATUS REGISTER
sADDRESS OF TELETYPE DATA BUFFER

2RE

) ) D ) )

RN I

0
0
230
177560

012152

;STARTING ADDRESS OF TEST TO READ A SINGLE DATA
;PATTERN CONTINUOUSLY

— e e o e

T =¥D

%% g : L
000652
000656

sANY SINGLE SUBTEST

:LOAD POINZSSS AND GENERAL STORAGE
STACK:
INTFLG:
INTVC:
KBCSR:

TN
TN TN TN TN TN [T [N T

#STACK,SP
CKSAME

TN
TN

011014

MOV
JMP

012706
000137

i e i D ) )

000250
000254

sSTARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS

TN
T N T PN
TR

#STACK,SP
TESTX

TN N TN TN

.=240
MOV
JMP

i e e e i e

000600
010676

R N N

000240
012706
000137

;STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (DOCUMATI

“g4ges

000240
000244

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

D e e o

012
0001

000220
000224

sNORMAL STARTING ADDRESS FOR G.D.I. 100 READER

) i D e e e

622
623

Sasn

#STACK,SP
BEGIN
#STACK,SP
ERCR11
N#STACK,SP
ERCM11

RBS

MOV
JMP
MOV
JMP
MOV
JMP

000600
000726
000600
007200
000600
007206

=174
DISPREG:0
SWREG:
O

000174
000176

:LOAD START%'OOG ADDRESS AREA

659
660

c2¢
CZCR
)

SEQ 0014

sSOF TWARE SWITCH REGISTER LOCATIONS

b
b

09:50

.=46
LOGIC

000046
006466

o000

27<SEP-79

Dl Dl D e

000046

38283|

CZCRAC.P11

AG
ts;g MCY;\ 30A(1052)

SEP-79 15:13
104002

27<SEP-79

CNTLU
6 m 1
1 012144
MOV
664
1370
MOV
665 000676 013704
MOV
es? 000702 O1
000604
MOV
667 000
000602
CLR
668 000712
005037 000644
CLR
669 000716 012737 000340 177776
MOV
000
000207
RTS
000
104007
BEGIN: TIT
6% 000
012;8 016205
MOV
000
000652
JSR
000740 ooog«
BR
000762 022737 000176 000616 RESTRT: CMP
676 000750 001
BNE

& g

677
678
679

000752
000756
000756

104
104006
005737

688
689

001012
001020

012737
104001

680
681
682
683
684,
g
687

690
691
692
693
6%
695
69
697
698
699
700
701
702
703
704

000762
000764
000772
000776
001002
001004

PAGE 16

SEQ 0015

#1, 1 TMAX
KCRS, CRS
kCRB1, CRB1
INTVC ,ADINT
INTFLG
TRFLG
#340,PSR
X7
#SUBT1,R2
X7, SETUP
TEST
#SWREG, SWR
13

;SET ITERATION MAXIMUM TO1 ITERATION
*SET UP REGISTER POINTERS
;LOAD ADDRESS OF INTERRUPT VECTOR
SINITIALIZE INTERRUPT FLAG
SINITIALIZE TRACE FLAG
*SETUP PROCESSOR STATUS
*RETURN

TRFLG

:CHECK FOR TRACE TRAPPING

;SETUP SCOPE LOOP RETURN ADDRESS

18:

CNTLU
KU
TST

TEST:
TEST1:

MOV
SCOPE

#TESTIA,RETURN

BIS
P

#177776 ,aCRS
#102,aCRS

;INITIALIZE POINTERS AND FLAGS
260 TO INSTRUCTION TESTS

001004
BNE
TRAPX
*IF SET, TRACE TRAP
012737 000340 177776 NOTRP: MOV
#340,PSR
:1F 2ERO, CLEAR TRACE BIT
000407
BR
TEST
26O TO INSTRUCTION TESTS
032777 010000 177614 TRAPX: BIT
#10000, aSWR
*CHECK SW12
001370
BNE
NOTRP
*BRANCH IF SET TO CLEAR TRACE BIT
012737 000360 177776
MOV
#360,PSR
*SET TRACE BIT
;TEST FOR CORRECT INITIALIZATION OF STATUS REGISTER

001022
001026
001034
001040
001042
001044
001046
001050
001052
001060
001062
001064

004737
013737
005037
005001
005201
001376
005201
001376
013737
000005
005713
001401

705
706

001070
001074

052713
022713

708

001102

104000

711

001106

005013

713

001112 001401

001066

000644

09:50

104000

707 001100 001402

001022

012150

011506
TEST1A: JSR
X7.CKBIT8
;CHECK FOR OFF=LINE SET
177776 000646
MOV
PSR, PROC
*STORE PROCESSOR STATUS
177776
CLR
PSR
*CLEAR TRACE BIT
CLR
COUNT
SINITIALIZE COUNTER
INC
COUNT
*WAIT TO BE CERTAIN
BNE
=2
:THAT ALL CARDS ARE
INC
COUNT
*THRU BEFORE ISSUING
BNE
=2
SINIT
000646 177776
MOV
PROC PSR
*RESTORE PROCESSOR STATUS
RESET
*SEND OUT INIT
ST
acRsS
*CHECK FOR STATUS REGISTER ALL ZERO
BEQ
.+
*BRANCH IF OK
HLT
*STATUS REGISTER NOT CORRECTLY INITIALIZED
;ONLY BITS 1 AND 6 OF THE STATUS REGISTER SHOULD BE ABLE TO BE SET TO ONE
*AND READ BACK AS ONE
177776
000102

BEQ
HLT

.46

:SET ALL BITS BUT 0
SONLY BITS 1 AND 6 SHOULD BE SET

*BRANCH IF OK

*STATUS REGISTER DIDN'T CONTAIN 102

709 001104 000404
710

B8R
TEST2
*BRANCH AFTER FAILURE
:CLEARING STATUS REGISTER SHOULD CLEAR BITS 1 AND 6

m
716

001110

005713

001114

104000

001116

104001

CLR

aCRS

:CLEAR BITS 1 AND 6

BEQ

*BRANCH IF OK

HLT

TEST2:

SCOPE

aCRS

*CHECK FOR ALL BITS CLEAR
*BIT 1 AND/OR BIT 6 DIDN'T CLEAR

C2CRACO CR11 DIAG TSTS MACY11 30A(1052)

CZCRAC.PIN
661

001242

IAG TST
~SEP-

MACY11 30A(1052)
15:13

NN =
NN NNV

RS Y 23RS SR3FRGPAEE ERerS

EEP S EELELI LI

L D2V P02 P DARD S PN E

nz
718

8888 888 8 888888888888832822

CZCRACO CRM
CZCRAC.P1N

000646

000001

27=SEP=79

BIT

BEQ

INC
BNE

INC
BNE
INC
BNE
INC
BNE
INC
BNE

MOV
BIT

177776

BNE
HLT

052713
032713
001401

040000
040000

CONT2:

#1,aCRS

#0
.4

SEQ 0016

JBRANCH IF NOT SET

JBIT O READ AS A ONE

JWAIT

.~4

PROC PSR
#40000,aCRS
CONT?2
TEST3

BIS
BIT

#40000,aCRS
#40000,aCRS

HLT

JCHECK BIT 0

BEQ

104000

104001

PAGE 17

sSTART SHOULD CAUSE CARD DONE WITHIN 1 SECOND
sBIT O SHOULD ALWAYS READ AS BEING EQUAL TO ZERO
JSR
X7,CKBIT8
sCHECK FOR CFF=-LINE SET
MOV
PSR, PROC
+STORE CURRENT PROCESSOR STATUS
CLR
PSR
sCLEAR TRACE BIT
INC
aCRS
+START READING A CARD
HLT

000646
040000

09:50

;RESTORE PROCESSOR STATUS
*CHECK CARD DONE
sCONTINUE IF SET

sCARD DONE DIDN'T SET WITHIN 400 MS

sNOTE THAT FAILURE COULD BE DUE TO READ
+NOT BEING RESET

;DATO TO STATUS REGISTER SHOULD CLEAR
s CARD DONE
sBRANCH IF IT DID

sDATO DIDN'T CLEAR CARD DONE

TEST3:
011506

SCOPE
.BUSY (BIT 9) SHOULD BE SET BY READING A CARD
:IT SHOULD REMAIN SET UNTIL CARD DONE SETS, WHICH SHOULD CLEAR IT

JSR

CLR
INC

BIT

001000

BNE
HLT

040000

LOOP3:

001000

040000

BNE

#1000,aCRS
LOOP3
#40000 aCRS
TEST

BR
BIT
BEQ

TEST4
#1000,aCRS
TEST4

HLT

TEST‘:

:BRANCH IF SET

BIT
BNE
BIT

DONE3:

LOOP3

#1000,aCRS
TEST4
#40000,aCRS

BNE

SCOPE

sCHECK FOR OFF-LINE SET

sINITIALIZE STATUS REGISTER
:READ A CARD

BR
BIT

HLT

001000

X7,CKBIT8

aCRS
aCRS

DONE 3

s CHECK BUSY

:READING A CARD DIDN'T SET BUSY

s CHECK CARD DONE
:BRANCH IF SET

s CHECK BUSY
:BRANCH IF STILL SET
:CHECK CARD DONE
;GO TO NEXT TEST IF SET

;BUSY CLEARED BEFORE CARD DONE SET

s CHECK BUSY
;GO ON TO NEXT TEST IF CLEAR
;CARD DONE DIDN'T CLEAR BUSY

A TIMING ERROR SHOULD OCCUR IF DATA IS NOT READ AND NEW DATA COMES IN
: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

16410

000

032713

004000

CONT4:

032713

144000

CONT4
a(RS
. +‘

#4000,
e

aCRS

.+6
.+

TSTB
BPL
HLT
CLR
BIT
BEQ
HLT

aCRS

sCHECK SPECIAL CONDITION
sBRANCH IF SET
+SPECIAL CONDITION WASN'T
s CHECK TIMING ERROR
sBRANCH IF SET

aCRS
#1 24000 . aCRS

——

(o)

N —Y Y

SET

sTIMING ERROR WASN'T SET
s CHECK NUMBER OF COLUMN READYS
:BRANCH IF ANY OCCURRED
;COLUMN READY NEVER OCCURRED

COUNT
.+6

BR
BEQ

HLT

001444

LOOP4B

0‘42000. aCRS

:CHECK FOR SPECIAL CONDITION OR CARD DONE
JBRANCH IF EITHER SET
sOTHERWISE, CHECK AGAIN
s CHECK CARD DONE
sBRANCH IF SET
sSPECIAL CONDITION SET BEFORE CARD DONE

(K&:

:IF _CLEAR, RETURN TO LOOP4

040000

:WAIT FOR COLUMN READY TO CLEAR

772
032713

LOOP4
2'1(60000 aCRS

sBRANCH IF ONLY ONE OCCURRED
s COLUMN READY OCCURRED MORE THAN ONCE
sCHECK COLUMN READY
;BRANCH IF NOT SET
sCOLUMN READY WASN'T CLEARED

.Ehgéfi BITS 11,14, AND 15 VIA DATO

001456

004737

011434

g}g

001466

032713

140200

821

001474

032713

040000

826
827

510
001;}%

020127

000117

BPL
HLT
BR
CMP
BPL

.+6

TEST6
COUNT,

LOOPS

:SKIP ERROR HALT IF NOT SET

:BIT 15 WAS SET
#79.

;GO TO NEXT TEST

:CHECK FOR 80
sBRANCH IF 80 OR MORE WITHOUT CLEARING READY

e Y

816

SCOPE

;SETTING READ SHOULD CAUSE COLUMN READY TO SET 80 TIMES BEFORE CARD DONE SETS
;READING THE DATA BUFFER SHOULD CLEAR COLUMN READY AND PREVENT A TIMING ERROR
JSR
X7, INIT
sINITIALIZE STATUS REGISTER
CLR
COUNT
sINITIALIZE COUNTER
INC
aCRS
s INITIATE READ
#140200 aCRS
LOOPS: BIT
sWAIT FOR COLUMN READY, CARD DONE
BEQ
sOR SPECIAL CONDITION
040000 aCRS
BIT
s CARD DONE?
BNE
CKS
;YES, BRANCH
TST
aCRS
:CHECK BIT 15

TESTS:

e P

;BITS 11,14, AND 15 WEREN'T ALL CLEARED

Ny G

1370

BPL
BIT
BNE
BR
BIT
BNE
HLT
BR
TST
BMI
HLT
BIT
BNE
HLT
DEC
BPL
HLT

¢NO, COUNT COLUMN READYS

140000

1360

36
032713

COUNT
aCRS

QU Y

INC
LOOP4B: TST8

;BITS 11,;L M!;SISMD BE CLEARED BY A DATO TO THE STATUS REGISTER
sINITIALIZE STATUS REGISTER
CLR
:INITIALIZE COUNTER
INC
:INITIATE READ
&) 40200. aCRS
LOOP4:
BIT
JWAIT FOR SPECIAL CONDITION, CARD DONE,
sOR COLUMN READY
BEQ
LOOP4
<LOOP IF NONE OCCURRED
#140000, acRS
BIT
+SPECIAL CONDITION OR CARD DONE?
BNE
:YES, BRANCH
(K&

140000

SEQ 0017

e
o
& E o

E
PAGE 18

011434

09:50

004737

27=SEP<79

001

MACY11 30A(1052)
15:13

00 00 0o 00

SRR

R PRSP SRR P L P ET ELEELE PARASRAS

CZCRACO CR1Y DIAG TST
CZCRAC.PT
26-SEP-

——

aCRS

CHECK TIMING ERROR BIT
:BRANCH IF NOT SET

; TIMING ERROR WAS SET

HLT

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

000117

040200

BR
CMP
BEQ
HLT

TEST6

CMP
BEQ
HLT
CLR
CMP
BEQ
HLT

aCRS, #40200
R

TST
TST

BEQ
HLT
TEST6:

SCOPE

LOOP6:

TSTB
BPL
TST
DEC
BPL
BIT

COUNT,
L)

#79.

a(RS

aCRS,#200
<+

aCRB1
aCRS

3CRB1

COUNT

LOOP6

1 24000.3CRS
#40000,aCRS

:CHECK COUNT

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

sBEFORE CARD DONE
sONLY CARD DONE AND COLUMN READY SHOULD BE SET

:STATUS REGISTER IN WRONG STATE
:SHOULD CLEAR DONE BUT NOT READY
sCHECK FOR ONLY READY SET
sBRANCH IF OK
sSTATUS REGISTER IN WRONG STATE
sREADING DATA BUFFER SHOULD CLEAR COLUMN READY
sCHECK STATUS REGISTER
sBRANCH IF ALL BITS ZERO
;STATUS REGISTER NOT EQUAL TO ZERO

;CLEAR COLUMN READY

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

sOR SPECIAL CONDITION
s CARD DONE SET?

OFF6

aCRS

;TIMING ERROR DIDN'T CLEAR READY
SWAIT FOR SPECIAL CONDITION

aCRS
.+

.-2

040000

#40000,aCRS

144000

aCRS
#144000,aCRS

OFF6

TEST?7

o T )
U

WAIT FOR COLUMN READY

:YES, 2 POSSIBLE TEST FAILURES
sCHECK TIMING ERROR
;IF NOT SET, READER IS PROBABLY OFF~-LINE

ERR6

#4000,aCRS

—-g——

;BRANCH AFTER ERROR

;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
X7, INIT
sINITIALIZE
#77.,COUNT
MOV
sSETUP COUNTER
aCRS
INC
sSTART READING A CARD
aCRS

04000.

READING DATA BUFFER DIDN'T CLEAR READY
;LOOP

—— PR

104000

BIT
BEQ

LOOPS

sBRANCH IF IT DID

544
546

CKS:

JMAKE SURE IT CLEARED

aCRS
L)

542

000755
032713
001401

TSTB
BPL
HLT
BR

s CHECK COLUMN READY
sBRANCH IF CLEAR

sCHECK CARD DONE
;IF NOT SET, READER IS PROBABLY OFF~LINE
:DATOB TO LOW BYTE OF CRS

;CHECK BITS 15,14,11

:BRANCH IF CLEAR TO NEXT TEST

:DATOB TO LOW BYTE OF CRS DIDN'T CLEAR

001532
0015
5640

10571 3

s INCREMENT COUNTER
s CLEAR READY

COUNT
aCRB1

100001
104000

INC
IS8T

001
001

80354

SEQ 0018

——g— "

005

001520

001522
1

15:13

PAGE 19

09:50

=SEP-

27-SEP=79

R QU W

1AG TSTS MACY11 30A(1052)

R QN

SR RCRBRB R AIRIARARIFEELETRETEEGRCH
RGO, |

CZCRACO CRN
CZCRAC. PN

ERRG6:

BR
BIT

BEQ
HLT

HLT

001742

TEST?:

4 AND/OR 11
T_TEST

TEST?
#400,aCRS

TEST?

TEST?
#4000,aCRS
.+6

TEST?

S SET, 8 WASN'T
O NEXT TEST
; TIMING ERROR SET?

sNO, BRANCH

s TIMING ERROR DIDN'T SET BEFORE CARD DONE
:GO TO NEXT TEST AFTER ERROR
< TIMING ERROR WASN'T SET

SCOPE

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

011434
000120
140200

LOOP?:

JSR
INC
MOV

BIT

BEQ
TST

040000

DEC
BEQ

COUNT
.+6

.+6

DONE7

TST

aCRB1

BIT
BEQ

#140000,aCRS
=4

TST

BPL

HLT

LOOP7

aCRS

DONE7

BR
TST

TEST8
COUNT

B8R

TEST8

BEQ
HLT

INCB

TSTB

BMI
HLT
BIT
BEQ

TSTB

B8PL

HLT

000002
004000

LOOP?

aCRS

TESTS
#40000,3CRS

B8R

DONE7:

#140200,aCRS

BPL
HLT
BR
BIT

BNE

140000

X7, INIT
aCRS
#80. , COUNT

B8R

MOVB

BIT

.+6

aCRS

@CRS

.44

#4000,3CRS
=4

@CRS

.+6
TESTS

#2.aCRS

p4200.acns
o

sINITIALIZE
sSTART READ
sINITIALIZE COUNTER
sTEST FOR ERROR, DONE OR READY
:LOOP IF NONE SET
s CHECK ERROR
;BRANCH IF NOT SET

;BIT 15 WAS SET

:GO _TO NEXT TEST AFTER ERROR
sCHECK FOR CARD DONE
sBRANCH IF SET
s COUNT

;IF _80TH COLUMN READY, BRANCH
s CLEAR DONE
;LOOP

sWAIT FOR DONE OR SPECIAL CONDITION
sCHECK SPECIAL CONDITION
sBRANCH IF NOT SET
sSPECIAL CONDITION WAS SET
;GO TO NEXT TEST AFTER ERROR

sTEST FOR 80 COLUMN READY'S
sBRANCH IF OK

;COLUMN READY DID NOT OCCUR B0 TIMES
;GO TO NEXT TEST AFTER ERROR

:START READ
sCHECK COLUMN READY
;BRANCH IF STILL SET
;READY DID NOT REMAIN SET
sTEST FOR TIMING ERROR
;LOOP IF NOT SET
;CHECK COLUMN READY
sBRANCH IF NOT SET
;TIMING ERROR DIDN'T CLEAR READY

sSET EJECT
;CHECK TIMING ERROR
;BRANCH IF CLEARED

SEQ 0019

D DD D D D D D D D D D D D D D

HLT

) d D e e e d e D D ) e D e D d e D d e e d D e D d D D

BNE

PAGE 20

— d e D d e e D ed e

b
-

BR
BIT

09:50

OFF6:

88 88888888

000400

27<SEP=79

CERERELRLER
FRE R ERRELE AL

CZCRACO CR1Y DI AG_TSTS MACY11 30A(1052)
CZCRAC.PT
26~SEP=79 15:13

27-SEP=79
HLT
BR

BIT

140000

BEQ
BIT
BNE
TST
BPL
HLT

000400

TEST8:

plzooooL8CRS
#400,aCRS

;CHECK BIT 8

aCRS
4

*SPECIAL CONDITION SHOULDN'T SET
*SINCE DATOB CLEARED TIMING ERROR

TESTS

TEST9
aCRS
.+6

TEST9
aCRB1,RS

#300, COUNT

FIRITEREREBARAR

CONT8B:

(MP

TEST9:

SCOPE

sBRANCH IF STILL SET

;CRS IN WRONG STATE

;GO TO NEXT TEST AFTER ERROR
;STORE DATA

sINITIALIZE COUNTER

:DATA UNCHANGED?

TEST9

aCRB2 ,R2
#100, COUNT
aCRB1,R5
.+6

s0K, CONTINUE
;DATA NOT AVAILABLE FOR 1.0 MILLISECONDS
;GO TO NEXT TEST AFTER FAILURE

;STORE ENCODED DATA IN REGISTER 2
sSET UP COUNTER
sREAD CARD-IMAGE DATA BUFFER
sBRANCH IF UNCHANGED

;CRB1 READ INCORRECTLY

;BRANCH TO RESTORE PROCESSOR STATUS AND EXIT

sREAD ENCODED DATA BUFFER

.+6

sBRANCH IF UNCHANGED

REST8

;BRANCH AFTER FAILURE

COUNT

MOV

;CHECK FOR BUSY AND READY

aCRB1,R5

aCRB2,R2

REST8:

;GO _TO NEXT TEST AFTER ERROR
;DATO TO CRS = SHOULDN'T CLEAR BUSY OR READY

sWAIT FOR 1 MILLISECOND (APPROX.)

REST8

176362

CONT8

PROC,PSR

;CRB2 READ INCORRECTLY
; COUNT DOWN

;LOOP IF NOT DONE

sRESTORE PROCESSOR STATUS

JEJECT SHOULD PREVENT FURTHER COLUMN READY'S
;CARD DONE SHOULD STILL OCCUR, AND TIMING ERRORS SHOULD BE

g
P
P
P
g
o

sBRANCH IF NOT SET

;BIT 15 WAS SET

COlZNT

LOOP8

DBRCK8: MOV

sNO, CHECK BIT 15

—g—g— p— — g

.+6

aCRS

s CARD DONE?

;YES, GO TO CHECK STROBING OF DBR

DBR(CK8

sOR SPECIAL CONDITION

#40000,aCRS

:STORE CURRENT PROCESSOR STATUS
:CLEAR TRACE BIT
:START READ
sWAIT FOR COLUMN READY OR CARD DONE

BEQ
BIT
BNE
TST
BPL
HLT

PSR, PROC
PSR
aCR
#160200.3CRS

BIT

000300

104001

;BIT 15 WAS SET, 8 WASN'T

MOV
CLR
INC

#1200,aCRS

177776

:BRANCH IF READER OFF<LINE

SCOPE

001200

000646

WAIT FOR DONE OR SPECIAL CONDITION

ST S

040000

013737

*GO TO NEXT TEST AFTER ERROR

:DATA SHOULD BE AVAILABLE IN THE DATA BUFFER FOR AT LEAST 1.0 MILLISECOND
JSR
X7,INIT
sINITIALIZE STATUS REGISTER

LOOP8:

176402
000100

s TIMING ERROR NOT CLEARED BY DATOB

T U SO SO W

140200

TEST8

SEQ 0020

000646

177776

PAGE 21

011434
177776

09:50

RRRIRRRSR

WNVFTSRRE

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

1025
1026
1027
1028
1030
1031

002404
002410
002414
002422
30
002436
002442

004737
012710
052737
013760
042737
012713
032713

011434
002464
000340
177776
000340
000103
040000

177776
000002
177776

1033

002450

016037

000002

177776

1037

002464

032713

040000

002514
002520

012710
005037

PROC,PSR

;EJECT DID NOT PREVENT A TIMING ERROR
RESTORE PROCESSOR STATUS

; CARD D(NERSHOUL27CAUSE AN INTERRUPT
MOV
BIS
MOV
BIC
MOV
BIT
BEQ
MOV
CLRB
HLT
BR
TINT10: BIT
BNE
HLT
cTMMP
TST
BPL
HLT

000232
000232

BPL
HLT
CLR

CONT10: MOV
CLR

TEST11:

SCOPE

INIT
#TINT10,ADINT

s INITIALIZE
:LOAD RETURN POINTER

PSR, 2 (ADINT)

;LOAD RETURN PROCESSOR STATUS

#340, PSR

2
e N
040060 aCRS

2(ADINT) PSR
aCRS

CONT10

#42000.3CRS
.4+

(SP)+,(SP)+
a(RS
.+
aCRS

aCRS

#232 ,@ADINT
¥ 232

:SET PROCESSOR TO LEVEL 7

;SET PROCESSOR PRIORITY TO 0
sSET EJECT, INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE
sRESTORE PROCESSOR TO HIGHEST PRIORITY
;CLEAR INTERRUPT ENABLE
sNO INTERRUPT OCCURRED
s CHECK CARD DONE
sBRANCH IF SET
;CARD DONE NOT SET

:RESTORE STACK POINTER
:MAKE SURE NO ERROR OCCURRED

;BIT 15 WAS SET

sCHECK COLUMN READY
sBRANCH IF NOT SET
;COLUMN READY WAS SET
sDISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS

;COLUMN READY SHOULD CAUSE AN INTERRUPT

SR R S
4
P
B
P
P
P
P
P
P
P
P

;COLUMN READY WAS SET

TEST10: SCOPE

TSTB

1048
1049

REST9

y—p—p——— —— g— =" P

104001

REST9:

sCHECK COLUMN READY
sBRANCH IF NOT SET

002402

177776

:NO CARD DONE OCCURRED WITHIN 3/4 SECOND
sCONTINUE AFTER FAILURE
sCHECK FOR CARD DONE

1023

000646

;WAIT FOR CARD DONE, TIMING ERROR, OR
+COLUMN READY
:TIME FOR ABOUT 3/4 SECOND
:CONTINUE WAITING

104000
013737

REST9
#40000,aCRS

sCLEAR _COLUMN READY
;LOOP TAKES 11.4 MICROSECONDS ONCE THRU

002374

COUNT
#44200,aCRS
K9
COUNT
WAIT9

T (U S

1020

HLT
BR
BIT
BNE
BIT
BEQ
HLT
BR
HLT
MOV

a(RB1

YT YN YO

CK9:

CLR
BIT
BNE
INC
BNE

¥4
czC

000200

SEQ 0021

032713

[

ST T T U SO WO N

002360

g
S

WAIT9:

040000

PAGE 22

PREVENTED IF TH§7CLINI!ENT COLUMN READY IS CLEARED
sINITIALIZE STATUS REGISTER
PSR, PROC
:SAVE PROCESSOR STATUS
nov
PSR
CLR
:CLEAR TRACE BIT
s START READ
aCRS
INC
TSTB
aCRS
JWAIT FOR COLUMN READY
1-2
BEQ
#2,aCRS
BIS
sSET EJECT
TST

09:50

013737
1777% 000646
005037 1777

1015

0114

004

g
v
% 33

b 1

-d

i —

oo(== =]

EECELEEREREER

997

27=SEP=79

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

:RESTORE PROCESSOR TO HIGHEST PRIORITY

TSTB

aCRS

BR
CLR

CONT11
aCRS

BMI

CLR

*CLEAR INTERRUPT ENABLE
+COLUMN READY DID NOT INTERRUPT

;CLEAR INTERRUPT ENABLE

*MAKE SURE COLUMN READY IS SET

*BRANCH IF SET

(SP)+,(SP)+

*COLUMN READY WASN'T SET
*RESTORE STACK POINTER

w232

*TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS

#232 ,3ADINT

*CHANGE INTERRUPT RETURN ADDRESS

TEST12: SCOPE
;CARD DONE SHOULDN'T CAUSE AN INTERRUPT IF THE PROCESSOR IS AT LEVEL 7 PRIORITY

177776
000002

JSR
MOV
BIS

X7.INIT
xr:~r12 aADINT
#340

s INITIALIZE
*SETUP RETURN
*SET PROCESSOR TO LEVEL 7 PRIORITY

MOV

#103,aCRS

*SET EJECT, INTERRUPT ENABLE, AND READ

B8R

.+6

;CONTINUE IF NO INTERRUPT OCCURRED

MOV
Sé;

TINT12: HLT
cMP
CLR

000232
000232

MOV

CLR

PSR é(ADINT)

c4oooo aCRS

*LOAD RETURN PRCCESSOR STATUS

*WAIT FOR CARD DONE

(SP)+,(SP)+
aCRS

*AN INTERRUPT OCCURRED
*RESTORE STACK POINTER
*CLEAR INTERRUPT ENABLE AND EJECT

an232

*TO CAUSE A HALT IF AN INTERRUPT OCCURS

#232 ,@ADINT

*CHANGE INTERRUPT RETURN ADDRESS

sFIND THE LEVEL AT WHICH AN INTERRUPT OCCURS
sPRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD (LEVEL 6)
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

;TEST FOR AN INTERRUPT ON LEVEL 7

Y
Y
I
T
I

SUKFIRERS8

—

1099

TEST13: SCOPE
JSR

177776
000002
177776
177776

;INITIALIZE

#340,PSR

*SET PROCESSOR PRIORITY TO 7

#300.PSR
#103 aCRS

*SET PROCESSOR TO LEVEL 6 PRIORITY
“SET EJECT INTERRUPT ENABLE, AND READ

#TINT13,3ADINT

MOV
BIC

PSR,2(ADINT)
#340,PSR

BIS

BIS
MOV

gég
177776

x7.INIT

MOV

MOV
CLR

aaoobo aCRS
2(ADINT) PSR
aCRS

=
A _A_AM_A_A_A

2(ADINT)
PSR

*WAIT FOR COLUMN READY

aCRS

CONT11: MOV

*SET READ AND INTERRUPT ENABLE

acgs

CLR
HLT

HLT
CMP

:LOAD RETURN PROCESSOR STATUS
*SET PROCESSOR PRIORITY TO 0

#101.aCRS

:LOAD RETURN POINTER

PSR,2(ADINT)
#340,PSR

MOV

TINT11:

*SET PROCESSOR STATUS TO LEVEL 7

MOV
BIC

ggla

177776

#340,PSR

Ci
cz(

000002

;INITIALIZE

#TINT11,8ADINT

MOV

SEQ 0022

%7.INIT

MOV
BIS

177776

:SETUP RETURN ADDRESS

-SETUP RETURN PROCESSOR STATUS
:SET PROCESSOR PRIORITY TO 0
*WAIT FOR CARD DONE

;RESTORE PROCESSOR TO HIGHEST PRIORITY

*DISABLE INTERRUPTS

000340
000101

177776
000002

PAGE 23

177776

JSR

09:50

011434
002604
000340

27-SEP-79

004737
012719
05573

o §§§n£§§

002526

MACY11 30A(1052)
15:13

CZCRACO CR11 DIAG TST
CZCRAC.P
26=SEP-

w232

*TO CAUSE A HALT IF AN INTERRUPT OCCURS

113% 003036 012710 000232

MOV

#232 ,8ADINT

1125
1127

TMP
TST

(SP)+, (SP)+
INTFLG

1125 003042

1128
1129
1130
131
1132
1133
1134

003046
003050

005037 000232

022626
005737

003054
003056
003064
003074
003100
003104

100414
012737
012702
004737
012702
004737
000405

1136 003114

100001

1135

003106

003116

023727

CLR

000602

100007 000602
014503
012152
000007
011734

000602

100007

104000

104001
004737

011434

1147

003146

042737

000340

1144 003126 012710 003216
1145 003132 052737 000340 177776
1146 003140 013760 177776 000002
003154

052737

000240

1149 003162 012713 000103
1150

003166

003172

032713
001775

1156
1155
1156
1157
1158
1159
1160

1161

1162

003202

003204
003210
003214
003216
003222

003224
003226

005013

012710 000232
005037 000232
000426
032713 040000
001001
104000
005013

003230 012710 000232
003234

005037

000232

003242

005737

000602

1163 003240 022626

1164

177776

040000

1152 003174 016037 000002
1153

BPL

TEST14

JSR

SET?: CMP

INTFLG,#100007

:CHECK PREVIOUS LEVEL

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

*SINCE THIS IS WHERE THE CARD READER NORMALLY IS. DON'T PRINT OUT A MESSAGE
*IF IT IS FOUND HERE

003120
003122

1151

B8R

;TEST FOR AN INTERRUPT ON LEVEL 6

1142
1143

1148

*RESTORE STACK POINTER
*CHECK FOR PREVIOUS FLAG

SET7
:BRANCH IF FLAG SET
noooor INTFLG ;SET FLAG AND LEVEL
G4 ,R2
:SETUP FOR PRINTOUT
x7.rour
*PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
#7.R2
%7 .PROCT
JPRINT LEVEL NUMBER
TEST14

HLT

1139
1140
1141

BMI
MOV
MOV
JSR
MOV

*CHANGE INTERRUPT RETURN ADDRESS

177776

TEST14: SCOPE
JSR

X7, INIT

;INITIALIZE

340, PSR

*SET PROCESSOR PRIORITY TO 0

MOV
BIS
MOV

#TINT14,3ADINT
#340,PSR
PSR 2(ADINT)

BIS

mo PSR

BIT

040060 aCRS

BIC

MOV

>SETUP RETURN ADDRESS
*SET PROCESSOR PRIORITY TO 7
-SETUP RETURN PROCESSOR STATUS
*SET PROCESSOR TO LEVEL 5 PRIORITY

#103.aCRS

*SET EJECT, INTERRUPT ENABLE, AND READ

MOV

Z(ADINT) PSR

:RESTORE PROCESSOR TO MIGHEST PRIORITY

MOV
CLR
BR
TINT14: BIT
BNE

0232 SADINT
an232
TEST1S
#40000,aCRS
.44

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

BEQ

-CLR

HLT
CLR

MOV
CLR

(MP
TST

acRS

#232 ,3ADINT
an3l

(SP)+, (SP)+

INTFLG

*WAIT FOR CARD DONE

*DISABLE INTERRUPTS

;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

R
R
PR
T
T
P
P
P
J—-g—-g— g

*CARD DONE WASN'T SET
*DISABLE FURTHER INTERRUPTS

— — — p—p————

acRS

HLT
CLR

104000
005013

;MAKE SURE CARD DONE IS SET
*BRANCH IF SET

T N

003032
003034

B8R
TINT13: BIT
BNE

*1S BELOW THE cunasm LEVEL
*INTERRUPT DIDN'T OCCUR WITH STATUS
‘AT LEVEL 7, BUT PREVIOUSLY OCCURRED
*AT OR ABOVE THIS LEVEL

1119 003022 000436
1120 003026 032713 040000
1121 003030 001007
1122
1123

TEST14
#40000,aCRS
.+

HLT

104000

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

003020

czsg SADINT
w232
INTFLG
TEST14
INTFLG,#100007
TEST14

1115
1176
117
118

SEQ 0023

mg 003006
1113 003010 023727 000602 100007
1114 003016 100440

PAGE 24

1111

MOV
CLR
ST
B8PL
CMP
8MI

09:50

1109 002772 g g ooozg
110 oo%&e gg 0002

27<SEP=79

MACYI1 30A(1052)
15:13

CZCRACO CR11 DIAG TSTS
CZCRAC.P11
26-SEP=79

—

104000

ng
1173
1176

003272

003276

104001

004737

011434

1176

003304

052737

000340

177776

1178 003320 042737

000340

177776

BPL

TESTIS

CMP

HLT

JSR

MOV

#340,PSR

BIC

#340,PSR

1179

003326

BIS

1181

003340 032713

1180 003334 012713 000103
1182

003344

001775

1184

003354

005013

1186

003362

005037

177776

MOV

040000

1183 003346 016037 000002

BIT

BEQ

177776

MOV
CLR

1185 003356 012710 000232

MOV

1187

TST

003366

005737

000232

1188 003372 100044
1189 003374 023727 000602
ug? 003402 100440
1192

1193

003404

CLR

000602

BPL
CMP
8M]

100005

104000

1196

003410

032713

1198
1199

003416
003420

104000
005013

1201

003426

005037

000232

1203

003434

005737

000602

1207

003454

004737

012152

1197 003414 001001

PSR, 2 (ADINT)
#200.PSR

#103.aCRS

#40000,aCRS
4

2(ADINT) ,PSR

aCRS

#232 ,8ADINT
w232

INTFLG

TEST16
INTFLG,#100005
TEST16

HLT

1194

1195 003406 000436

X7.INIT

#TINT1S,3ADINT

BIS

MOV

000200

sCHECK PREVIOUS LEVEL
s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

:TEST FOR AN INTERRUPT ON LEVEL 5
TEST15: SCOPE

1177 003312 013760 177776 000002
052737

INTFLG, #100006

B8R

040000

TINT15: BIT

BNE

HLT
CLR

1200 003422 012710 000232

MOV

1202 003432 022626

cTMP

CLR
ST

sINITIALIZE
sSETUP RETURN ADDRESS
sSET PROCESSOR PRIORITY TO 7
sSETUP RETURN PROCESSOR STATUS
:SET PROCESSOR PRIORITY TO O
sSET PROCESSOR TO LEVEL 4 PRIORITY
sSET EJECT INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE
sRESTORE PROCESSOR TO HIGHEST PRIORITY

;DISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS
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

s INTERRUPT DIDN'T OCCUR WITH STATUS
;AT LEVEL 5, BUT PREVIOUSLY OCCURRED

TEST16

#40000,aCRS

;AT OR ABOVE THIS LEVEL

INTFLG

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

x7.T00T

;PRINT MESSAGE ‘'‘THE INTERRUPT LEVEL WAS''

X7.PROCT

sPRINT LEVEL NUMBER

INTFLG,#100005

;CHECK PREVIOUS LEVEL

. +4

aCRS

#232 ,8ADINT
w232

(SP)+,(SP)+

1204 003440 100414
1205 003442 012737 100005 000602
1206 003450 012702 014503

8MI
MOV
MOV

SETS
:BRANCH IF FLAG SET
#100005, INTFLG ; SET FLAG AND LEVEL
#MSG4 ,R2
:SETUP FOR PRINTOUT

1208 003460 012702

MOV

#5.R2

B8R

TEST16

1209

1210 003470

737 011734
5

1211

003472

023727

115}’3‘

003502

104000

1215
1216
1217

003504
003506

104001
004737

011434

1219

003516

052737

000340

1212 003500

100001

000602

013760

JSR

100005

SETS:

CMP

8PL

HLT

1218 003512 012710 003622
1220 003524

JSR

000005

177776

TEST16

s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

;TEST FOR AN INTERRUPT ON LEVEL 4
TEST16: SCOPE
JSR
X7, INIT
sINITIALIZE
177776

000002

MOV

#TINT16,3ADINT

MOV

PSR,
2 (ADINT)

BIS

#340,PSR

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

Ak
A
&

003270

SET14:

Wr?

1175 003300 012710 003410

100006

000602

023727

+BRANCH IF FLAG SET
sSET FLAG AND LEVEL

B B

003260

1169 003266 100001

SET14
#100006, INTFLG
TEST1S

Ci
C2(

1168

BM]
MOV
BR

SEQ 0024

1165 003246 100:.%‘
1166 003250 012737 100006 000602
1167 00
000405

Belh _Sh
A
A&

I CZCRAC.P11
CZCRACO CR1Y DIAG
TSTS MACY11 30A(1052) 27-SEP-79 09:50 PAGE 25
26-SEP=79 15:13

1242

003632

005013

003644
003646

022626
005737

BNE

HLT

1243 003634 012710 000232
1244 003640 005037 000232
1245
1246

1247
1248
1249
1250
1251

003652
003654
003662
003666
003672
003676
1253 003702

100414
012737
012702
004737
012702
004737
000405

1255

100001

000602

100004

1254

003704

}22?7’

003714

104000

1259

003716

104001

1262

003730

052737

000340

177776

1264

003764

0462737

000340

177776

1258

003712

023727

100004
014503
01212
000004
011734

003752

052737

000100

003764

032713

040000

1269 003772

016037

000002

1267

TMP
TST

(€74 _(SPs+
INTFLG

#232 ,@ADINT
an232

*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

8MI
MOV
MOV
JSR
MOV
JSR
B8R

SET4
:BRANCH IF FLAG SET
#100004, INTFLG ;SET FLAG AND LEVEL
#MSG4 ,R2
:SETUP FOR PRINTOUT
7. T00T
*PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
#4.R2
X7.PROCT
:PRINT LEVEL NUMBER
TEST17

BPL

TEST17

CMP

INTFLG,#100004

:CHECK PREVIOUS LEVEL

TEST17: SCOPE

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

000103

177776

JSR
MOV

X7, INIT
#TINT17,3ADINT

;INITIALIZE
:SETUP RETURN ADDRESS

BIC

#340,PSR

*SET PROCESSOR FRIORITY TO 0

MOV

#103.aCRS

*SET EJECT INTERRUPT ENABLE, AND READ

BIS

MOV
BIS

#340,PSR

PSRéwmm

#100.PSR

*SET PROCESSOR PRIORITY TO 7

*SETUP RETURN PROCESSOR STATUS

“SET PROCESSOR TO LEVEL 2 PRIORITY

BIT

fl.oobo aCRS

*WAIT FOR CARD DONE

MOV

Z(ADINT) PSR

:RESTORE PROCESSOR TO HIGHEST PRIORITY

1271 004002 012710 000232
1272 004006 005037 000232

MOV
CLR

c232 SADINT
an23?

1274

BPL

TEST18

1268

003770

1270

004000

1273

004012

005737

000602

1275
1276

004020
004026

023727
100440

000602

004016

001775

005013

100044

177776

BEQ

CLR
TST

100003

MP
B8M]

8
0
S
B

;MAKE SURE CARD DONE IS SET

:TEST FOR AN INTERRUPT ON LEVEL 3

1263 003736 013760 177776 000002
1265

aCRS

HLT

1260 003720 004737 011434
1261 003724 012710 004034

1266 003760 012713

SET4:

.44

CLR

MOV
CLR

000602

#40000,aCRS

104000

003630

TINT16: BIT

1241

040000

032713

1240 003626 001001

*AT OR ABOVE THIS LEVEL

1239 003622

TEST17

*AT LEVEL 4, BUT PREVIOUSLY OCCURRED

1238 003620 000436

1237

:1S BELOW THE CURRENT LEVEL
*INTERRUPT DIDN'T OCCUR WITH STATUS

HLT

*IF NC GO TO NEXT TEST
:IF SO, CHECK TO SEE
:THAT THE INTERRUPT LEVEL RECORDED

Badh

TEST17
INTFLG,#100004
TEST17

104000

1236

003616

BPL
CMP
8MI

*CHANGE INTERRUPT RETURN ADDRESS

123
1235

100004

*TO CAUSE A HALT IF AN INTERRUPT OCCURS
*CHECK TO SEE IF LEVEL ALREADY RECORDED

#232,8ADINT

CLR
ST

1231 003604 100044
1232 003606 023727 000602
1233 003614 100440

w232
INTFLG

MOV

000232
000602

;RESTORE PROCESSOR TO HIGHEST PRIORITY

*DISABLE INTERRUPTS

1228 003570 012710 000232

2(ADINT)
PSR

aCRS

*DISABLE INTERRUPTS

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

INTFLG

:CHECK TO SEE IF LEVEL ALREADY RECORDED

INTFLG,#100003
TEST18

:IF SO. CHECK TO SEE
:THAT THE INTERRUPT LEVEL RECORDED

*IF NO, GO TO NEXT TEST

005037
005737

CLR

003574
003600

MOV

1229
1230

177776

005013

003566

. ~4

Ge W

1227

1223 003560 016037 000002

*WAIT FOR CARD DONE

BEQ

001775

*SET EJECT INTERRUPT ENABLE, AND READ

003556

#40000,aCRS

#103.aCRS

1225

BIT

MOV

040000

000103

;SET PROCESSOR PRIORITY TO 0
*SET PROCESSOR TO LEVEL 3 PRIORITY

032713

#340,PSR
#140.PSR

GER

003552

003546 012713

BIC
BIS

1224

1223

177776
177776

000340
000140

SEQ 0025

042737
052737

PAGE 26

003532
003540

09:50

1221
1222

27-SEP-79

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

CZCRACO CR11 DIAG TSTS
CZCRAC.P11
26-SEP=79
277
1278
} 7

004030

MACY11 30A(1052)
15:13

104000

1291
012737
1292
012
1292
004737
1294
012702
1295
004737
1296
000405
1297 004116 023727
1298 004124 100001
}z,g 004126 104000
1301

000602

100003

1302

004130

104001

1305

004i42

052737

000340

177776

1307

004156

042737

000340

177776

004164

1310

004176

052737

000040

1309 004172 012713 000103
032713

040000

1311 004202 001775
131§ 004204 016037 000002
1313

004212

005013

1315

004220

005037

177776

1314 004214 012710 000232
1316

004226

005737

000602

1317 004230 100044
1318 004232 023727 000602
;gg 006240 100440
1321
1322
1323

004242

104000

1325

004246

004244

000436

1327
1328

004254
004256

104000
005013

1330

004264

005037

1324

032713

1326 004252 001001

- BRANCH IF FLAG SET

JSR
MOV
BIS

MOV
BIC

BIS

MOV

27, INIT
#TINT18,3ADINT
#340,PSR

PSR, 2 (ADINT)

#340,PSR

#040.PSR

#103.aCRS

BIT

#40000,aCRS

CLR

aCRS

BEQ
MOV

4
2(ADINT) PSR

#232 ,aADINT

CLR

232

BPL
CMP
BM]

TEST19
INTFLG,#100002
TEST19

INTFLG

HLT

040000

TINT18: BIT

BNE

HLT
CLR

TEST19

#40000,aCRS

aCRS

1329 004260 012710 000232

MOV

#232 ,3ADINT

1331
1332

CMP
ST

(SP)+,(SP)+
INTFLG

004270
004272

022626
005737

000232

000602

JMAKE SURE CARD DONE IS SET
sBRANCH IF SET
sCARD DONE WASN'T SET
;DISABLE FURTHER INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS
sRESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

MOV
#100003, INTFLG ; SET FLAG AND LEVEL
MOV
#MSG4 ,R2
;SETUP FOR PRINTOUT
JSR
7. TOUT
sPRINT MESSAGE ‘‘THE INTERRUPT LEVEL WAS''
MOV
#3.R2
JSR
%7.PROCT
sPRINT LEVEL NUMBER
B8R
TEST18
SET3: CMP
INTFLG,#100003
sCHECK PREVIOUS LEVEL
B8PL
TEST18
HLT
s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL
:TEST FOR AN INTERRUPT ON LEVEL 2

100002

TEST18
.+

#40000,aCRS

INTFLG

BUT PREVIOUSLY OCCURRED

AT OR ABOVE THIS LEVEL

SET3

MOV

000232

AT LEVEL 3,

BMI

TEST18: SCOPE

1306 004150 013760 177776 000002

SEQ 0026

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

acRS
#232 ,ADINT
w232
(SP)+,(SP)+

100003 000602
014503
012152
000003
011734

1303 004132 004737 011434
1306 004136 012710 004246
1308

PAGE 27

B8R
BNE
HLT
CLR
MOV
CLR
TMP

TINT17: BIT

oosz’;fr5 000602

;

1289

09:50

HLT

1281 004032 0004 36
004034 032713 040000
1
001001
1284
105002
1285
00501
1286
012710 000232
1287
005037 000232
1288
02

27<SEP-79

CLR

an232

sINITIALIZE
:SETUP RETURN ADDRESS
;SET PROCESSOR PRIORITY TO 7
:SETUP RETURN PROCESSOR STATUS
;SET PROCESSOR PRIORITY TO O
sSET PROCESSOR TO LEVEL 1 PRIORITY
sSET EJECT INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE
sRESTORE PROCESSOR TO HIGHEST PRIORITY
;DISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
sTO 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
2 INTERRUPT DIDN'T OCCUR WITH STATUS
;AT LEVEL 2, BUT PREVIOUSLY OCCURRED
;AT OR ABOVE THIS LEVEL

sMAKE SURE CARD DONE IS SET
;BRANCH IF SET
;CARD DONE WASN'T SET
sDISABLE FURTHER INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
:TO CAUSE A HALT IF AN INTERRUPT OCCURS
sRESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG

100414
12737 1
1
1%
& 1
121
13 mz;g;
00%
004
on
004
004

1
1
1
1

}

}
1

1345

1
1
1

004
3&"

ooosog
1 3721

100002

004340 104000
004

004
004
004

1350 0043

004376
004404

052737
012713

135,

004414

001775

1356

004426

005013

004410 032713

177776 000002

000340

000000
000103

177776
177776

040000

1355 004416 016037 000002

177776

1359

004436

005737

000232

1363
1364
1365
1366

004454

TEST19

{gng00002

;CHECK PREVIOUS LEVEL

: INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

JSR
MOV
BIS

7.1
s INITIALIZE
mum aonm *SETUP RETURN ADDRESS
34
ssr PROCESSOR PRIORITY TO 7

BIC

#340,PSR

ser PROCESSOR PRIORITY TO 0

oobo aCRS

*WAIT FOR CARD DONE

MOV

BIS
MOV

BEQ

104000

#000.PSR
., #103.aCRS

Z(ADINT) PSR

MOV

0232 SADINT

CLR
TST

100001

PSRé(Aoum

MOV
CLR

000602

1360 004442 100044
1361 004444 023727 000602
1362 004452 100440

TEST19: SCOPE

BIT

1357 004426 012710 000232
1358 004432 005037

SET2: C"a’n

oSooz :BRANCH IF FLAG SET
INTFLG :; SET FLAG AND LEVEL
:SETUP FOR PRINTOUT
xr tour
*PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
#2.R2
X7.PROCT
;PRINT LEVEL MUMBER

TEST FOR AN INTERRUPT ON LEVEL 1

004737 011434
0 ng 004460
0
000340 177776

1351
135;

BM]
MOV
MOV
JSR
MOV
JSR
HLT

10«7;?1

1349 oor.s% o
1353

000602

8PL
cTMP
8M]

1367 004456 000436

1370
1371

004466
004470

104000
005013

1375

0045064

005737

1379
1380
1381
1;3;

oa.sg 004737 012152
0045
omo; 000001
004534 004737 011734
004540

TINT19: BIT
BNE

HLT
CLR

*SET PROCESSOR TO LEVEL O PRIORITY
*SET EJECT INTERRUPT ENABLE, AND READ

;RESTORE PROCESSOR TO HIGHEST PRIORITY

*DISABLE INTERRUPTS

*CHANGE INTERRUPT RETURN ADDRESS

w232

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

TEST20
INTFLG.#100001
TEST20

:IF NO, GO TO NEXT TEST
:IF SO, CHECK TO SEE
*THAT THE INTERRUPT LEVEL RECORDED

INTFLG

HLT

1368 004460 032713 040000
1369 004464 001001

SETUP RETURN PROCESSOR STATUS

TEST20

#40000,aCRS
.+

*CHECK TO SEE IF LEVEL ALREADY 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
*BRANCH IF SET

acRS

*CARD DONE WASN'T SET
*DISABLE FURTHER INTERRUPTS

INTFLG

*CHECK FOR PREVIOUS FLAG

1% 004472 012710 000232
1
004476
000232
1374 004502 oze%s

MOV
CLR
TM

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

1376 004510 100414
1377 004512 012737 100001 000602
1378 004520 o1270; 014503

8MI
MOV
MOV

SET1
:BRANCH IF FLAG SET
#100001, INTFLG ;SET FLAG AND LEVEL
#MSG4 ,R2
:SETUP FOR PRINTOUT

004542

138, 004550
113332 004552

1387
1388

004554

023727

100001
104000
104001

000602

100001

TST

JSR
MOV
JSR
B8R

SET1: CMP

B8PL
HLT

X7.TOUT
#1.R2
X7.PROCT
TEST20

INTFLG,#100001

TEST20

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

*PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
;PRINT LEVEL NUMBER
;CHECK PREVIOUS LEVEL

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

:A TIMING ERROR SHOULDN'T CAUSE AN INTERRUPT

TEST20: SCOPE

AININIAIAIAININIAI NI MY AN 1 1 N A N A 102 A A AN AN T2 1) 1) 14 P2 ) AN AN N A AN AN AN AN A AN N AN P AN A A A AN AN A A R N N

1
1

CZCRAC.P11

I CZCRACD CR11 DIAGTSIS] MACYI1 SOACI052) 27-SEP-79 09:50 PAGE 28B 3

it Boued 177776
12N
4!
001

000101

177776

73 000002 177776
016039
0004

ey S

#340
P

sINITIALIZE
:LOAD RETURN POINTER
SET PROCESSOR TO HIGHEST PRIORITY

u.oob aCRS

:WAIT FOR TIMING ERROR TO SET

c.v.o PSR

;MOVE PROCESSOR TO LOWEST PRIORITY
s CLOCK INTERRUPT IF IT OCCURRED
;MOVE PROCESSOR BACK TO HIGHEST PRIORITY

.46

(SP)+,(SP)+

azsgéwm

000232

I
J
I

+ TIMING ERROR CAUSED
AN INTERRUPT

*RESTORE STACK POINTER

s CHANGE INTERRUPT ADDRESS TO CAUSE A

#40000,aCRS

IHALT IF AN INTERRUPT OCCURS
sWAIT FOR CARD DONE

aCRS

;CLEAR INTERRUPT ENABLE

CLR

SEQ 0028

IN
nim%o
wmr

2(ADINT) PSR
TINT20:

TEST21: SCOPE

011434
36
340

177776
177776
000100
000000

000002

sTEST rmsgo INTEF;R&IP}TOCCWING
WITH INTERRUPT ENABLE SET AND REST CLEARED

177776
000002

177776

MOV

BIS

MOV
CLR
MOV
INC

BNE

MOV
CLR
BR
TNINT:
HLT
P
CLR
CONT21: CLR
MOV

#TNINT,@ADINT

#340,PSR

PgLo (ADINT)

sINITIALIZE CSR TO ZERO
;SETUP RETURN ADDRESS

:SET PROCESSOR TO LEVEL 7
:STORE PROCESSOR STATUS
:SET PROCESSOR TO LEVEL 0

:ENABLE INTERRUPTS
SWAIT AWHILE

aCRS

;RESTORE PROCESSOR TO LEVEL 7
;DISABLE FURTHER INTERRUPTS

#100,aCRS

. =4
2(ADINT) ,PSR

CONT21

(SP)+,(SP)+
aCRS

an232
#232,3ADINT

;AN INTERRUPT OCCURRED
sRESTORE STACK
;DISABLE FURTHER INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS TO
sCAUSE A HALT IF AN INTERRUPT OCCURS

TEST22: SCOPE

104001

s CHECK F(RSRSIMTMEGJ¥ INTERRUPTS ON MORE THAN ONE LEVEL

177776
000002
177776

005044
177776

000002

177776

MOV
BIS
MOV
BIC
MOV
WAIT
BR
T2INT:
CMP
MOV
CLR
NOP
MOV
BR
T2INTA: cMP
HLT

némt aAomr
#340
PSR é(Aomr)

#340.p
PSR

#103.aCRS

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

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

sINITIALIZE CSR TO ZERO
:SETUP RETURN ADDRESS

:SET_PROCESSOR TO LEVEL 7
:STORE PROCESSOR STATUS
;SET PRCCESSOR TO LEVEL 0
sSET_INTERRUPT ENABLE AND EJECT A CARD
;WAIT FOR INTERRUPT
:SIT IF TRACE BIT IS SET
sRESTORE STACK POINTER
s CHANGE RETRUN ADDRESS

SEY PROCESSOR TO LEVEL 0
WAIT
RESTME PROCESSOR TO LEVEL 7

;RESTORE STACK
;THE INTERRUPT OCCURRED AT 2 LEVELS

PAGE 29

5?8#5?8%"”

190776 000002

000340

09:50

AIAINIAIAINIAIAINIAINIAA
A A AN AN NN

004

27-SEP=79

N
oON
E L
I

004556

MACY11 30A(1052)
15:13

R Y

BSRGROROBIRIRIRELELY|

CZCRAC.P11

IAG_TST
SEP-

jelolel]

CZCRACD CR1Y

CZCRAC. P11

DIAG TSIS

MACY11 S0AC1052)

1445
1446
1647

005050
Q05052
005058

00SO13
Q0SOST
012710

000232
0002

1449

005062

104001

1452

005064

004737

1458
1454
1455
1436
1457

1458

|
|

005070
005072
00507¢
005076
005100

005102

~SEP-79

00521
105
100376
005014
105713

15:13

005110
005112
005114
005116

105713
100376
105014
105713

1466

005122

104000

1468
1469

005126
005130

105713
100376

011434

%71
1472
1473

005136
005140
005142

105713
100002
104000

1475
1476
1477

005146
005150
005152

105713
100376
005714

1479
1480

005156
005160

100002
104000

105713
100376
005077
105713
100002
104000

1489
1490
1491
1492
1495
149%

005206
005206
005210
005214
005216
005220

105713
100376
105077
105713
100002
104000

149
1497
1498
1499

005226
005206
005230
005034

105713
100376
013702
105062

000001

CLRB

CNT23D:

105713

TEST24

@CRS
.=2

i(CRBN)

aCRS
CNT23C

TSTB
BPL
ST

@CRS
.2
aCRB1

BPL
HLT

CNT23D

TEST24

@CRS

TEST24

:DATO TO CRB1 DIDN'T CLEAR READY
160 TO NEXT TEST
:WAIT FOR COLUMN READY

:DATOB TO LOW BYTE OF CRB1
SCHECK COLUMN READY

‘BRANCH IF CLEARED

;DATOB TO CRB1 LOW BYTE DIDN'T CLEAR READY

G0 TO NEXT TEST

*WAIT FOR COLUMN READY

;DATOB TO HIGH BYTE OF CRB1

:CHECK COLUMN READY
*BRANCH IF CLEARED
*DATOB TO CRB1 HIGH BYTE DIDN'T CLEAR READY

260 TO NEXT TEST

*WAIT FOR COLUMN READY

:DATI TO CRB1
SCHECK COLUMN READY

*BRANCH IF CLEARED
*DATI TO CRB1 DIDN'T CLEAR READY

G0 TO NEXT TEST

@CRS
.2
aCRB2
aCRS
CNT23E

*WAIT FOR COLUMN READY

CNT23E: TSTB
BPL
CLRB
TSTB
BPL
HLT

@CRS
.2
SCRB2
@CRS
CNT23F

TEST24

G0 TO NEXT TEST

CNT23F:

@CRS
.2
(RB2,R2
(RS

000640
000001

(NT238

:START READING A CARD
:WAIT FOR COLUMN READY

TSTB
BPL
CLR
TSTB
BPL
HLT

173444

173424

aCRS
.2
acRB
@CRS

ISTB
BPL
HLT

TSTB

1495 005222 000421
005240

CNT238: TSTB
BPL

CNT23C:

CNT23A

;DATO TO CRB1
:CHECK COLUMN READY
*BRANCH IF CLEARED

TEST24

1488 005202 000431

1500

;DISABLE INTERRUPTS
SCHANGE INTERRUPT RETURN ADDRESS TO
:CAUSE A HALT IF AN INTERRUPT OCCURS

; INITIALIZE

HLT
BR

HLT

1481 005162 000441
005164
005166
005170
005176
005176
005200

SEQ 0029

X7,INIT

aCRS
@CRS
.-2
SCRB1
@CRS

BPL

105713

1482
1485
1484
1485
1486
1487

@CR
angd2
#232,8ADINT

INC
TSTB
BPL
CLR
TSTB

CNT23A: TSTB
BPL
CLRB
TSTB

1476 005144 000450
005156

JSR

BPL

1465 005120 100002

%70 005132 10

PAGE 30

;ALL MODES OF ADDRESSING CRB1 OR CRB2 (DATO,DATOB,DATI) SHOULD CLEAR
COLUMN READY

100002

1461
1462
1463
1464

1478

CONT22: CLR
CR
MOV

09:50

TEST23: SCOPE

1459 005104 104000
1460 005106 000467

1467 005126

27-SEP<79

TSTB
BPL
MOV
CLRB

TSTB

TEST24

aCRS

:DATO TO CRB2
:CHECK COLUMN READY
*BRANCH IF CLEARED
*DATO TO CRB2 DIDN'T CLEAR READY

*WAIT FOR COLUMN READY
:DATOB TO LOW BYTE OF CRB2
“CHECK COLUMN READY

“BRANCH IF CLEARED

“DATOB TO CRB2 LOW BYTE DIDN'T CLEAR READY

*60 TO NEXT TEST

*WAIT FOR COLUMN READY

;LOAD POINTER
*DATOB TO MIGH BYTE OF CRB2
“CHECK COLUMN READY

C2!
czcr
UVLSTNTNTNTNTLNTNTNTNTNTNTNLNTN
LN TN TNTN NN LN LN N LN LN LN LN LN LN L L LN L L Ly L e L L L L L L L L L L L L L Ll O

CZCRACO CR11

1450
14351

—

CZCRACO CR11 DIAG TST
CZCRAC.P1N
26=-SEP-79
1501
150;
}SS&

005242
m

1505
1506
1507
1508
1509
}g}?
151§
1M
1514

005250
005252
005254
005260
005262
005264

105713
100376
005777
105713
100001
104000

CNT23G: TSTB
BPL
TST
TSTB
BPL
HLT

aCRS
+ =€
aCRB2
aCRS_
TEST24

005266

104001

1517
1518
1519

005276
005300
005302

1522

005312

000407

004737

005213

1520
1521

105713
100402

005306
005310

105713
100376
052713

005314
005316
005322
005326

000421
032713
001013
032713

1528

005332

1543
1544

005330
005336

005340

005344
005346
005350
005352
005354
005356
005360
005364
005366
005372
005374

BR
173360

011434

INC

TSTB
BPL
BIS

TSTB
BMI
HLT

032713

040000

BIT

#40000,aCRS

004737

011506

000415
104000
000413
105713
100001
104000
032713
001775
032713
001402
004737

004000

BEQ
BNE

JSR

BR
CNT24B: HLT
BR
TIM24:
TSTB
BPL
HLT
END24:
BIT
BEQ
BIT
BEQ
JSR

040400

000400

011506

sWAIT FOR COLUMN READY

2
2
2
2
2
%

;DATI TO CRB2
s CHECK COLUMN_READY
sBRANCH IF CLEARED
;DATI TO CRB2 DIDN'T CLEAR READY

CNT24A
CNT24B

X7,CKBIT8

ENDCK
ENDCK
a(RS
.+

#40400,3CRS
END24
0400 aCRS
END

X7, CKBITB

:START READING A CARD
sSET EJECT

s CHECK COLUMN READY
sBRANCH IF STILL SET

sSETTING EJECT CLEARED COLUMN READY

sBRANCH TO WAIT FOR DONE AFTER ERROR
;CHECK TIMING ERROR
;BRANCH IF SET
sCHECK CARD DONE AND OF F=LINE
:LOOP IF NONE SET

:CARD DONE SET?

000200

1549
1550

005416
005422

005137
000137

000644
000742

011462

173206

ENDCK:

SCOPE
BIT
BEQ

#200,aSwR
DATST

COM
JMP

TRFLG
RESTRT

JSR

%7 ,BELL

2
2
2

2
2
2
2
2

:YES - BRANCH TO ERROR PRINTOUT

sBRANCH AFTER COMING BACK ON-L INE
;CARD DONE SET BUT TIMING ERROR DIDN'T
:BRANCH TO NEXT SECTION
sCHECK COLUMN READY
sBRANCH IF NOT SET
s TIMING ERROR DIDN'T CLEAR READY
SWAIT FOR CARD DONE OR OFF-LINE

2
2
2
2
2
2
2
2
2
2
5

:NO
= BIT 8 WAS SET SO OUTPUT MESSAGE

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

;CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL
;OTHERWISE GO INTO THE DATA TEST

104001
032777
001406

004737

r4
2
%

:CHECK COLUMN READY - WAIT

aCRS
CNT24A

c2!
czd

sBRANCH IF CLEARED
sDATOB TO CRB2 HIGH BYTE DIDN'T CLEAR READY
:GO TO NEXT TEST

aCRS
R 4
#2,aCRS

040400

001003

SEQ 0030

sINITIALIZE

END24
#4000,aCRS
TIM24
#40400,aCRS

001772

X7, INIT

aCRS

BR
(NT24A: BIT
BNE
BIT

005400
005402
005410

005412

JSR

000002

1545
1546
1547

1548

TEST24

TEST24: SCOPE
sSETTING EJECT AFTER A COLUMN READY WITHOUT CLEARING THE COLUMN READY
sSHOULD SET TIMING ERROR (WHICH IN TURN SHOULD CLEAR COLUMM READY)

104000

1523
1526
1525
1526

1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
}552}

PAGE 31

CNT23G

005270

1530

09:50

BPL
HLT

1515

1529

27-SEP-79

100002
104000

1516 005274

1527

MCY'H 30A(1052)
15:13

;TOGGLE TRACE FLAG

2
2

2
2
2

2
2
S

2
2
2
2
2

NLAAAAL LA AL AL LA AR

AR AR

1SSS
1556
1557
1558

MAALAAAALAALL AL
00

1560
1561

005436
005444

1563
1564
1565
1566

005450
005452
005456
005462

1559

1562

1567
1568

0054

005470
005472

012737

000056

006646

022737
001002

000176

000616

000410
104002

104006
005037
005037
032777
001412
012737

006646
000650
000020

173126

013524

006642

013024
013522
015616
000644

006642
006644
006640

000340

177776

010000

173032
177776

012737
012737
000411
012737
012737
012737
005737
001004
012737
000407
032777
001370
012737
004737

000360
011434

1584
1585

005600
005604

012710
042737

005634
000340

1587

005620

004737

006540

1589
}gg?

005630
005632

000001
000776

005634
005636
005640
005642
005644
005650
005654

005713
100460
105713
100402
000137
005237
011437

1588

1592

1593
1596
1595
1596
1597
1598
1599

1600
1601
1602
1603
1604

1605

1606

005612
005624

005660
005662
005664
005672
005674

005700

005706

013760
052713

105713
100006

014222
015627

177776

006644
006640

AL AR AAR AR

it iidtiiatiistds

iR ii ittt il idtdds)

CHECK SR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS
DATST:
MOV
#56, CDCNT
;SETUP CARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT (

DATST2

:SKIP NEXT INSTRUCTION

sSETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING
;FLAG SET PREVENTS PRINTING OUT ERROR HEADING
;CHECK BIT 4 OF SR FOR TYPE OF DECK
sBRANCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS
:BIT 2 SET, LOAD BINARY TABLE POINTERS

MOV
JSR

CDCNT
ERFLG
#20,aSWR
ALP1
#BINCD,TSTART
WBINEND, TEND
#MSG15,DECK
CONTD
#ALPCD,TSTART
#ALPEND , TEND
#MSG14,DECK
TRFLG
TRP1
#340,PSR
DCNT1
#10000,aSwR
NOTRP1
#360,PSR
%7, INIT

MOV
BIC

#SRVC ,@ADINT
#340 PSR

;SETUP RETURN POINTER
:SET PROCESSOR TO LEVEL 0

JSR

X7 ,NXCRD

;ADJUST POINTER AND START READING

DATST1: CMP
BNE

CNTLU

005500
005506
005514
005516
005526
005532
005540
005544
005546
005554
005556
005564
005566
005574

1586

ARl

:DATA RELIABILITY TEST FOR CR11

1569
1570
1571
1572
1573
1576
1575
1576
1577
1578
1579
1580
1581
1582

1583

SEQ 0031

CKU
1$:
CLR
DATSTZ2: CLR
BIT
BEQ
MOV

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

#SWREG, SWR
13

sBRANCH AROUND ALPHANUMERIC POINTERS
;LOAD ALPHANUMERIC TABLE POINTERS
s CHECK TRACE TRAP FLAG
:BRANCH IF FLAG WAS SET
;CLEAR TRACE BIT
;CHECK SW12 TO INHIBIT TRACE TRAPPING
sBRANCH IF SET
sSET _TRACE BIT
sINITIALIZE CARD READER STATUS REGISTER

;SET UP INTERRUPT SERVICING, AND START READING

177776

000002

MOV

000101

BIS

WAIT
BR

PSR, 2 (ADINT)

#101,aCRs
B

:STORE CURRENT STATUS

sENABLE INTERRUPTS

sWAIT FOR INTERRUPTS

: INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TEST

SRVC:

006412
006650
006652

052737
104000

000340

017737

172734

000137

006432

012701

000010

177776

006656

TST
BMI
TSTB
BMI
JMP
INC
MOV
TSTB
BPL
BIS
HLT
JMP

aCRS
ERSET
aCRS
. +6
NOTCOL
CLCNT
aCRB1,DAT1

LASTCK

sMAKE SURE COLUMN READY CLEARED
sBRANCH IF IT DID
;SET PROCESSOR TO LEVEL 7
sREADING DATA DIDN'T CLEAR COLUMN READY
;GO TO NEXT CARD AFTER ERROR PRINTOUT

MOV

#10,COUNT

SWAIT AWHILE

SCONT1: MOV

aCRS
SCONT1

#340,PSR

@CRB2,DATENC

sCHECK SPECIAL CONDITION (BIT 15)
:BRANCH IF SET
:CHECK COLUMN READY
;BRANCH IF SET
;JUMP IF NOT SET
;KEEP TRACK OF COLUMN NUMBER
:STORE DATA OF FIRST READ

:STORE ENCODED DATA

(a1

155

F
N

PAGE 32

09:50

1554

27-SEP-79

AOALRIAOROIRIROALROROROIAAI
A AR AO NI RO RO NN AL AR A A AR N A A A AL NI N A AOD AR A AR A A A AN A
AORIPNI
A RNDA Y

CZCRACO CR1Y DIAG TSTS C
Y11 30A(1052)
CZCRAC.PT
26=SEP-79 15:13

006660

CMP
BNE
MOV

DAT1,aR5
FAIL
#2 ,PTOFF

BNE
MOV
cMP
BNE
CMP
BMI

#4 ,PTOFF
DATENC, (R5)+
FAIL
RS, TEND
+6

MOV
RTI

177776

KBINTT

006650

006662
015640
012152
015661
012152

ER1:

177776

020000

172512

FAIL:

TSTART RS

JMP

BIT
BEQ

FAILCN:

LASTCK

#340,PSR
aCRB1

FAILCN

aSWR

FAILC
LASTC

040000 aCRS

JMP
BIT

LASTCK
#400,aCRS

cMP
BNE
JMP
JSR
JSR

#80. ,CDCNT
.+6
ALLDON
%7.CKBIT8
X7 ,NXCRD

BNE

NOHD

MOV

#MSG13,R2

BEQ

006646

X7.,TOUT

#20000,aSwR

HALT

FAILC:

#80. ,CDCNT
ER1
#80. ,CLCNT
ER1
ALLDON
#MSG16,R2
X7,TOUT
#MSG17,R2

BIT

BPL

006662
011506
006540

000650
015526

FAIL

#2,aCRS

BEQ

006432
000400

001006
005237
012702

DAT2, (RS)+

BIS

TST

006432
040000

000650

JMP

BIS
TST

172504

000120

CMP
BNE
cMP
BNE
JMP
MOV
JSR
MOV
JSR

006432
000340
000002

PTOFF

;STORE DATA OF SECOND READ
sCLEAR POINTER OFFSET
sCHECK FIRST DATA READ
sPRINTOUT IF WRONG

sSET POINTER OFFSET
sCHECK SECOND READING OF SAME DATA
:BRANCH IF WRONG
sSET POINTER OFFSET
s CHECK ENCODED DATA

:BRANCH IF WRONG
sCHECK FOR END OF TABLE
:IF NOT THERE, RTI
sMOVE POINTER TO LOOP THRU TABLE

sSPECIAL CONDITION BIT 15 WAS SET WHEN THE INTERRUPT SERVICE ROUTINE
;WAS ENTERED
;OUTPUT A MESSAGE _AND HALT
#340,PSR
ERSET: BIS
;LOCK OUT INTERRUPTS

006646

000120

RTI
TST

INC

FAILC

ERFLG

sCHECK 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.”

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

;CK SW13

;CONTINUE IF NOT SET
;IF SET, CHECK FOR HALT ON ERROR
;BRANCH IF HALT ON ERROR NOT SET
;HALT ON ERROR SET
JCONTINUE AFTER HALT
sCHECK FOR CARD DONE

;INHIBIT PRINTOUT AFTER CARD DONE SET
;CHECK FOR OFF-LINE
sBRANCH IF NOT
;CHECK FOR LAST CARD

;IF LAST CARD, WAIT FOR NEXT DECK
:1F NOT LAST CARD, PRINT MESSAGE
;START NEXT CARD THRU READER
;TEST FLAG FOR PREVIOUS PRINTOUT
;IF SET, DON'T OUTPUT HEADING
;SET FLAG
;OUTPUT HEADING FOR DATA ERROR PRINTOUT

N
OON
NN

3CR81 DATZ

CMP

006660

COUNT

BNE
MOV
CLR

SEQ 0032

DEC

PAGE 33

PO RN NN NN N NN

005712
005714
005716
005722

09:50

ASALALAAAAR A RIARIA AR RN A AR AR A AR AD AR AL AN NI A A A AN N AN

1608

27-SEP-79

(al

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

1707
1708
1709

~
~

Y
Y

1
1 542

MOV
JSR
JSR
MOV
JSR
JSR

CDCNT,R2
£7.PROCT
X7, SPACE
CLCNT,R2
X7.PROCT
X7, SPACE

PTOFF ,RS

MOV
JSR
JSR
MOV
JSR
JSR
MOV
JSR
JSR

(RS)+,R2
X7.PROCT
X7, SPACE
DAT1,R2
X7.PROCT
%7.SPACE
DAT2,R2
X7.PROCT
X7, SPACE

JSR
MOV

X7, SPACE
DATENC ,R2
X7.PROCT

KBINTT
ST
8PL
T
HAL

CMP

, CDCNT
#80.

BIT

#400,aCRS

JMP

ALLDON

BEQ

006000

FAILC1:

006412
006416
006420
006426

040000

NOTCOL: BIT

006430
006432
006440

006442
006446
006450
006452
006456

1716
1717
1718

006464
006466
006470

006462

000120

006540
011462
000042

006650
006646

aSWR
.+
aCRS

BNE

000400

arS R2
¥7.PROCT

8PL

006646

X7.SPACE

SuB

JSR

172242

000120

%7.T0UT
DECK,R2
%7, TOUT

MOV
JSR

006656
011734

JMP

LASTCK

FAILCY

SEQ 0033
;OUTPUT TYPE OF DECK

sOUTPUT CARD NUMBER WHERE ERROR OCCURRED
sOUTPUT COLUMN NUMBER WHERE ERROR OCCURRED
sSUBTRACT OFFSET FROM POINTER TO POINT TO
sADDRESS OF DESIRED PATTERN
sOUTPUT 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
;BRANCH IF NOT SET
sHALT AFTER AN ERROR
s CHECK ERROR
sBRANCH IF NOT SET
;CHECK FOR LAST CARD

LASTCD
ERSET

;OUTPUT ERROR MESSAGE

s INTERRUPT NOT DUE TO ERROR OR COLUMN READY
#40000,aCRS
;CHECK FOR CARD DONE
BEQ
NOTCD
sBRANCH IF NOT SET
CMP
#80. ,CLCNT
sCHECK COLUMN COUNT
BEQ
HLT

LASTCK: CMP
BEQ
g?ll'\‘
LASTCD: CMP

JSR

LOGIC:

#80. ,CDCNT
LASTCD
%7 ,NXCRD
(SP)+,(SP)+

%7 ,BELL

MOV

w62, R2

JSR

%7,(R2)

BEQ
RESET
NOP

END

;SKIP ERROR HALT IF 80 COLUMNS WERE READ
sLESS THAN EIGHTY CO.UMNS WERE READ
sCHECK FOR LAST CARD

;BRANCH IF LAST CARD
:IF NOT LAST CARD
:GO ON
;IF LAST CARD, RESTORE STACK POINTER
:RING BELL TO SIGNIFY 'PASS COMPLETE''

:MONITOR HOOK

~NO

PAGE 34

JSR
MOV
JSR

JSR

r—

1 734
1 542

(==

1
1

09:50

_0-04

VIS
O

(=}

_——

NOMD:

006402

1710
1711
1712
1713
1714

1715

OO0QOO

prd

006362
006364
006372
006374

S a2

|
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706

G S GPP
Gt

1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693

006262
006264
006270
006274
006300
006304
006310
006314
006320
006324
006326
006332
006336
006342
006346
006350
006354
006356
006360

1678
1679

006246
006252
006256

~
W
~N NN

1674
1675
1676
1677

1669
1670
1671
16
1673

0062

1
1667
1668

27-SEP=79

]

1665

1 30A(1052)

]

ks Og 5 ER% £2%
oy
gdOIS

1663
1664

39384
2
PEIE g°°§°O
RIQRAT s

1AG TSY

CZCRACO CRM
CZCRAC.PN

FEEEFRRELSS

o
i s
) i

&R 333 AYPANAIAY &6 £
SIEGK
U’

~
F
W

il i

SIVINY
)
R
P

006650

052737
032713
001003

000340
002000

000137

006432

000137

006432

104000
104000

177776

000000
006726

#2 ,aCRS

;CLEAR EJECT IF SET
sREAD ANOTHER CARD

CDCNT
CDCNT

aCRS
CDCNT
CLCNT

sRESTORE CARD COUNT

;KEEP TRACK OF CARD NUMBER
sINITIALIZE COLUMN COUNT

BIT

#2000, aCRS

JMP

LASTCK

JMP

LASTCK

171712

BIT

ALCNT:

BEQ
HALT
JMP

NOTCD1

;POINTER TO LITERAL "ALPHA'' OR 'BINARY"'
;STARTING ADDRESS OF DATA TABLE
cEND ADDRESS OF DATA TABLE
sNUMBER OF CARD BEING READ

sNUMBER OF COLUMN BEING CHECKED
;DATA ON FIRST READ FROM CRB1
;DATA ON SECOND READ OF CRB1
;DATA READ FROM CR82

%7.BELL
#400,3CRS
.+

#40,3SWR
ALCNT

DECKCK

BIT

#2000, aSWR

CLR
DEC

#0
=2

BNE

sTEST ON-LINE TRANSITION BIT

:BRANCH IF SET
¢NO BITS SET TO CAUSE /N INTERRUPT
s START NEXT CARD
sON-LINE TRANSITION CAUSED AN INTERRUPT
s START NEXT CARD

ALCNT1

;OFFSET TO POINTER FOR DATA PRINTOUT

sRING BELL

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

;WAS SET AFTER 80 COLUMNS OF THE 80TH CARD WERE READ
;CHECK SR FOR HALT AT END OF DECK

;CONTINUE IF NOT SET

;END OF DECK,SW5 SET

:CHECK FOR TYPE OF TESTING
:DOES THIS CR11 USE THE M829 MODULE?
: YES= BRANCH

:NO-STALL TO ALLOW CARD DONE TO SET

NN N NG

l
sADD OFFSET TO R5 TO POINT TO NEXT DATUM

ASR
ASR

0
TSTART: 0
TEND:
0
CDCNT:
0
CLCNT:
0
DAT1:
0
DAT2:
0
DATENC: 0
PTOFF:
0
ALLDON: JSR
BIT
BNE
HLT

171674

CDCNT RS

CDCNT

+RETURN
RTS
%7
:INTERRUPT NOT CAUSED BY ERROR, COLUMN READY, OR CARD DONE
NOTCD:
BIS
#340,PSR
;LOCK OUT FURTHER INTERRUPTS

DECK:

006514
002000

: CHECK SW6
;BRANCH IF NOT SET
sRERUN COMBINED INSTRUCTION AND DATA TEST
;LOAD R5 WITH TABLE STARTING ADDRESS
JMULTIPLY CARD COUNT BY FOUR

ASL

NOTCD1: HLT

000040

:TOGGLE TRACE FLAG

CDCNT

TSTART,RS

ASL

BNE
HLT

011462
000400

.+6
RESTRT

MOV

INC
INC
CLR

N
N SN-‘g

DATST1

BIC

e R

JMP

ADD

N
R
R
IR R
I
Y
Y
g

NNNNNNNNNY
)
0

e
N
S
S

#100,3SWR

BEQ
JMP

NXCRD:

TRFLG

BIT

RO NN

172070

TESTING TO BE PERFORMED

OO O RO NN

;OF

DECKCK: coM

RO RO

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

:DATA TEST DONE

*CONTINUE TO ANOTHER DECK

ARSI A

DECKCK

:CHMECK SR FOR CONTINUATION TO ANOTHER DECK

;BRANCH TO HALT IF SWS SET

000000

04g.ASWR

SEQ 0034

A A

END:

AL RO AR A

Q00137 006514

172112

PAGE 35

000040

NOP
NOP
BIT
BNE
JMP
HALT

09:50

AOAGAALAGALALALALIAOIROIAAI AL AL AL ARG AL AL A

27-SEP-79

1719

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

BNE
HLT
CLR

L+

aCRS

)

sCHECK CARD DONE
;CARD DONE DIDN'T SET= THIS ERROR COULD BE

:CAUSED BY RUNNING A CR11 WHICH HAS THE

:MB29 MODULE AND NOT SETTING SWITCH REGISTER
sSWITCH 10

BIT

157377

BEQ
HLT

ALCNT1:

156577

000340

177776

000002

CLR

aCRS

BEQ
HLT

BIT

ALCNT2: BIS

MOV

INCB
ST

000002

ALLOK:

HLT
BR
MOV
CLR

MOV
NOP

177776

MOV
CLR
HLT

SRVC1:
cMP
ALWAIT: CLR

MOV
MOVB
BIC
BIT

177776

BNE
MOV
HLT

177776

011462
002000
000400

. +4

BR ALCNT2

BMI
007070
177776
000101

#157377.,3CRS

BR
JSR
cMP
SRV(C2A: BIT
BNE

SRV(Z2:

HLT

BIT

BEQ
HLT

#156377,3CRS

#340,PSR

PSR, 2 (ADINT)
aCRS
aCRS

ALLOK
ALWAIT
#SRVC1,@ADINT
PSR
#101,aCRS

2(ADINT) ,PSR

aCRS

(SP)+, (SP)+
aCRS

#SRVC2,ADINT
#100,aCRS
#340.PSR
c4oo aCRS
Z(ADINT) PSR

SRVC2A
%7.BELL
(SP)+,(SP)+
#2000,aCRS
.+4
#400,aCRS
L+

sONLY BIT 8 MAY STILL BE SET
sBRANCH IF OK

;STATUS REGISTER INCORRECT
:CLEAR ERROR

sONLY BITS B8 AND 9 MAY STILL BE SET
;BIT 9 MAY BE SET SINCE CARD MAY NOT
sYET HAVE CLEARED THE READER TO CAUSE
s CARD DONE
;STATUS REGISTER INCORRECT

;SET PROCESSOR TO LEVEL 7

:SETUP RETURN STATUS
sATTEMPT TO READ- SHOULD RESET ERROR
;CHECK BIT 15
sBRANCH IF OK
sSETTING READ DIDN'T RESET ERROR
sBRANCH TO WAIT FOR ON-LINE
;LOAD INTERRUPT RETURN ADDRESS
;SET PROCESSOR TO LEVEL O
sENABLE 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

sRESTORE STACK POINTER
sCLEAR INTERRUPT ENABLE AND ERROR
s CHANGE INTERRUPT RETURN ADDRESS
sENABLE INTERRUPTS

;SET PROCESSOR TO LEVEL 0
;CHECK OFF-LINE BIT

;LOOP UNTIL CLEAR

;SET PROCESSOR TO LEVEL 7
sNO INTERRUPT OCCURRED
sBRANCH AROUND
sRING BELL
sRESTORE STACK POINTER
;CHECK BIT 10
sBRANCH IF SET
;BIT 10 NOT SET
;CHECK BIT 8
sBRANCH IF NOT SET
;BIT B WAS SET

#40000, @CRS

NN NS W10 T W

BIT

BNE

ST, S NN, ST NI ST NI ST NI NS ST ST ST NS

ST N N ST SN ST

=4
#0

()

BNE
DEC
BNE
DEC

SEQ 0035

09:50

040000

PAGE 36

27=SEP-79

33333
R EREERARE
CEEEEEE LR FRFRFEREFEP

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
26=SEP=79 1 5:13
CZCRAC.PI

"
i
1835
1836
1837
1838
1339

10&1

1868
1065

1846

1847
1848
1849
1850
1851
1852
1853

003 002000
001401

BIT

006514

J¥

000632

ERCR11: CLR

000001

016231
000652
007236
012144
011434
014410
000632

CLR

BEQ
HLT

cMP

000632

012150

BR
ERCfl'l‘l MOV
TSTA:

TIT

MOV
JSR

K
PAGE 37

aCRS

#2000 ,aCRS
S

(SP)+,(SP)+

DECKCK

3
SEQ 0036
;DATO TO CRS

:CHECK BIT 10
:BRANCH IF NOT SET
sDATO DIDN'T CLEAR ON-LINE BIT
*RESTORE STACK FROM INITIAL INTERRUPT

:RESTART

FLAG

TSTA
#1,FLAG

#SUBT2 ,R2

X7 ,SETUP
sINITIALIZE REGISTERS
MOV
#TESTA+2 ,RETURN ;SETUP SCOPE LOOP RETURN ADDRESS
;THE CARD READER GOING OFF<LINE SHOULD SET SPECIAL CONDITION (BIT 15) AND OFF-LINE (BIT

TESTA:

SCOPE
CLR

X7,INIT
#MSG3,R2

BEQ
MOV

.+6
#MSG3A ,R2

MOV

#MSG2 ,R2

JSR

X7,CRLF&

TST

014450

JSR

012274

HALT

000400

FLAG

X7.T0UT

X7.TOUT

BIT

#400,aCRS

HLT
TST

aCRS

BNE
BM]

HLT

014224
000632

MOV

014307
012152
014343
012152
012274

#MSG1,R2

sRUN EACH ERROR TEST ONCE ONLY
sINITIALIZE STATUS REGISTER
:"PRESS CARD READER 'READ STOP'''
s CHANGE MESSAGE FOR DOCUMATION READER?
sNO
:"PRESS CARD READER °'STOP'''

;"THEN HIT °CONTINUE' ON THE CONSOLE''
sMOVE MESSAGE UP ON TTY
;CHECK BIT 8

sBRANCH IF SET

;OFF=LINE (BIT 8) WASN'T SET
;CHECK BIT 15
sBRANCH IF SET
sBIT 15 WASN'T SET

FLAG

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

MOV

#MSG1A,R2

'PRESS CARD READER "RESET'"’

MOV
JSR

#MSG2,R2
X7.TOUT

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

TST

BEQ

JSR

JSR
HALT
BIT

000400

1 TMAX

JSR
MOV

BNE

.46

X7,TOUT

%7.CRLF&

;MOVE MESSAGE UP ON TTY

#400,aCRS

;WAIT FOR OFF-LINE TO CLEAR

.~4

: INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION

TESTB:

SCOPE

JSR

#MSGS5 R2

sINITIALIZE STATUS REGISTER
;"REMOVE ALL CARDS FROM THE INPUT HOPPER''

MOV

#MSG2 ,R2

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

JSR

012274
000400

X7, INIT

MOV
JSR
JSR

HALT

BIT

BNE

x7,TOUT

X7.TOUT
X7.CRLF4&

#400,aCRS

sMOVE MESSAGF UP ON TTY

;CHECK BIT8

sBRANCH IF SET

09:50

27<SEP<79

()

MACY11 30A(1052)
15:13

AshaaasRaiasAssasfAaiasAaAasAaIAasAIAAIAAIALAIA I AIATAIA LA IALAIA LA IA A IATAIA IR IA A IAIAIAIAIA IR IAIAIAIA A IR IAIAIRAIA IR A

CZCRACO CR11 DIAG TST
CZCRAC.P11
26=SEP-

JSR

MOV
JSR

012274

JSR

HALT
BIT
BNE

000400

FLAG

.+6
#MSG1A,R2
X7.T0UT

#MSG2 ,R2

X7.TOUT
X7.CRLF&

#400,aCRS

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

'PRESS CARD READER 'RESET'"'
;"'THEN HIT 'CONTINUE' ON THE CONSOLE''

sMOVE MESSAGE UP ON TTY

;WAIT FOR OFF=LINE TO CLEAR

;OUTPUT STACKER FULL SHOULD SET BIT 15

011434
014653
000632

TESTC:

SCOPE

JSR

MOV
TST
BEQ
MOV
JSR
MOV
JSR

014771
012152
014343
012152
012274

JSR
HALT
BIT
BNE
HLT
TST
BMI
HLT

000400

014224
000632

MOV
TST
BEQ
MOV
JSR
MOV

JSR
JSR
HALT
BIT
BNE

b =

NQNJ\H
RO
R
—

b e

007676

FLAG

+6
#MSG7A,R2
X7, Tout

sINITIALIZE STATUS REGISTER
:"RAISE OUTPUT STACKER PRESSURE ARM ABOVE HORIZONTAL THE
s CHANGE MESSAGE FOR DOCUMATION READER?
sNO

:"LOMER OUTPUT STACKER PLATE TO BOTTOM''
;"'THEN HIT "CONTINUE' ON THE CONSOLE''

X7.CRLF4

;MOVE MESSAGE UP ON TTY

#400,aCRS

;CHECK BIT 8
;BRANCH IF SET
;OFF=LINE (BIT 8) WASN'T SET
sCHECK SPECIAL CONDITION BIT
;BRANCH IF SET

aCRS

o+4

#MSG1,R2
FLAG

.+6
#MSG1A,R2

x7,TOUT

;SPECIAL CONDITION NOT SET

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

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

%7.CRLF4

;MOVE MESSAGE UP ON TTY

0420.3CRS

;WAIT FOR OFF=LINE TO CLEAR

;A FEED ERROR SHOULD SET BIT 15
;THIS ERROR OCCURS WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO THE READ STATION
elelelele]

007654

%7 ,INIT

#MSG7,R2

TESTD

SCOPE
JSR
MOV
JSR
MO’/

JSR

%7, INIT
#MSG5 ,R2
%7,T0UT
#MSG2 ,R2
%7,T0UT

;"REMOVE ALL CARDS FROM THE INPUT HOPPER''

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

(&l

A IAIAIAIAIAIAIA
A

X7,T0UT
#MSG1,R2

A lA LA LA LA LALALA LA LALALIALAIALALIALAIAIAIAIAIAIAIAIAIA

MOV

#MSG6 ,R2

sCHECK SPECIAL CONDITION BIT
;BRANCH IF SET
sSPECIAL CONDITION NOT SET

A ia il ie i Al A LlA

JSR
MOV
TST
BEQ

sOFF=LINE (BIT B) WASN'T SET

MOV

a(RS
<+

SEQ@ 0037

e i iR

HLT
TST
BM]
HLT

PAGE 38

L Eia

09:50

mie

27-SEP=79

- m e

CZCRACO CR11 DIAG TSTS MACY11 30A(1052)
15:13
26=SEP=79
SEPCZCRAC.PN

TST

MOV

s CHANGE MESSAGE FOR DOCUMATION READER?

::"‘gRESS CARD READER °'RESET'"'

X7.CRLF4

sMOVE MESSAGE UP ON TTY

02000 aCRS

;WAIT FOR CARD READER TO COME ON-LINE

!7 INIT

JINITIALIZE STATUS REGISTER
sSET EJECT AND READ

sJWAIT AWHILE

000400

0400 aCRS

:WAIT FOR OFF-LINE TO CLEAR

000632

FLAG

;SKIP NEXT TEST IF DOCUMATION READER

010444

TESTG

004
012702

SCOPE
JSR
MOV
JSR
MOV
JSR
MOV

;"'THEN HIT "CONTINUE' ON THE CONSOLE'’
#MSGY ,R2

;"BLOCK THE CARD READER STATION TO

s
ta
IA LA LA
A LA
LA

sINITIALIZE STATUS REGISTER
;"PRESS CARD READER °'READ STOP'''

LA LA

TESTE:

;A MOTION ERROR SHOULD SET BIT 15
:THIS ERROR OCCURS WHEN A CARD JAM OCCURS AT THE READ STATION

:MOVE MESSAGE UP ON TTY

010130
010132
010136
010142
010146
010152
010156

%7.CRLF4

010124

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

012152
012274

LA IA LA

*"PRESS CARD READER 'RESET''’

014307

:"RESTORE CARDS IN THE INPUT HOPPER''
“'PRESS CARD READER 'MOTOR START' AND "READ START''’
:figmce MESSAGE FOR DOCUMATION READER?

014607
012152
014224
000632

A LA

;BIT 8 WAS NOT SET
;CHECK BIT 15
sBRANCH IF SET
;BIT 15 WAS NOT SET

A LA

;TEST OFF-LINE BIT
sBRANCH IF SET

000400

LA IALAIALAIA LA IAIAIALAIA

A IA

#3,aCRS

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

FLAG

:NO
:"LIFT SWITCH UNDER RIFFLE CAP

#MSG1,R2

. +6
#MSGBA ,R2
X7,T0UT

LA LA

:"HOLD DOWN THE SWITCH AT THE BOTTOM OF INPUT HOPPER
s CHANGE MESSAGE FOR DOCUMATION READER?

1945

FLAG

#MSG8,R2

Ci
C(

MOV
TST
BEQ
MOV
JSR
MOV

1944

SEQ 0038

A IA

1943

PAGE 39

LA IA

26=-SEP-79

09:50

A IAIAIA

CZCRAC.P n

27=SEP=79

A IA

CZCRACO CR11 DIAG_TSTS MCYH 30A(1052)

SEQ 0039

X7,TOUT

;PREVENT A CARD GOING THRU, AND''

X7, 7007
X7.CRLF&

sMOVE MESSAGE UP ON TTY

#MSG1,R2
02000 aCRs
03 aCRS
” 20000.aCRS

aCRS
ey

#MSG10,R2

X7,TOUT

:"PRESS CARD READER 'MOTOR START' AND 'READ START'''
JMONITOR ON-LINE TRANSITION (BIT 10)

sCONTINUE WHEN CARD READER COMES ON-LINE
*READ A CARD AND SET EJECT

%CK DONE AND SPECIAL CONDITION BITS
sCHECK SPECIAL CONDITION BIT
:CONTINUE IF SET
:SPECIAL CONDITION NOT SET

:"REMOVE JAMMED CARD'’

:"PRESS CARD READER °'MOTOR START' AND 'READ START'''
;"'THEN HIT "CONTINUE' ON THE CONSOLE"’

X7.CRLF4

;MOVE MESSAGE UP ON TTY

flo(‘)0.0CRS

sWAIT FOR OFF=LINE TO CLEAR

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

TESTF:

OPE

sINITIALIZE STATLS REGISTER

:"PRESS CARD READER 'READ STOP'''

;"THEN HIT "CONTINUE' ON THE CONSOLE''
:"HOLD THE OUTPUT STACKER GATE OPEN.

THEN''

:"PRESS CARD READER 'MOTOR START' AND

%7.CRLF4

;'READ START.'
:MOVE MESSAGE UP ON TTY

#2000,aCRS

;WAIT FOR CARD READER TO COME ON-LINE

LOOPF :

;INITIALIZE COUNTER TO READ 3 CARDS
#140000,aCRS
A

COUNT
LOOPF
aCRS
.+

sEJECT A CARD
;MAIT FOR CARD DONE OR SPECIAL CONDITION
s COUNT _DOWN
;READ 3 CARDS ALL TOGETHER
;CHECK SPECIAL CONDITION BIT 15
sBRANCH IF SET
sSPECIAL CONDITION NOT SET

014224
012152
014343
012152
012274

X7.CRLF4

;MOVE MESSAGE UP ON TTY

000400

#400,aCRS

;WAIT FOR OFF=LINE

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

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

TO CLEAR

Cl(
s Le
o

PAGE 40

LA LA LA LA LA LA LA LA LA LA LA LA LA LIA LA IA LA LA LA IALAIALAIA LA IAIAIAIAIAIAIAIAIA
LA A A IA A LA A LA LA A LA
e s

09:50

LA LA LA LR LA LA

o
b
-

SV
prerr
G

27-SEP-79

NS
N SR
VIrOWVT
LS
Y %)

1 30A(1052)

QOO0

1)
FERERR
R R WKSEN R

CZCRACO CR11 DIAG TSTS
CZCRAC.P
26=SEP-79

2076
2075
2076
2077
2078
2079
2080
2081
2082
2083

0105064
010506
010512
010516
010522
010526
010530
010534
010540
010544

005201
012702
004737
012
005737
001402
012
004737
012702
004737

2084
2085
2086
2087

010550
010554
010556
010562

004737
000000
032713
001375

2089
2090
2091

010570
0105764
010576

032713
001775
005713

2093

010602

015371
012152
014224
000632
014307
012152
014343
012152
012274

000400

CONTG:

nesmz RETURN ;SETUP SCOPE LOOP RETURN ADDRESS TO LOOP THRU TESTS
TESTA
*START ERROR TESTS OVER ON CONTINUING

JSR
CLR

INC
MOV
JSR
LOOPG: MOV
TST
BEQ
MOV
JSR
MOV
JSR

JSR
HALT
BIT
BNE

2088 010564 012713 000003

MOV

2092

100401

BM]

010604

005301

DEC

010614

000000

209

010600

140000

104000

BIT
BEQ
ST
HLT

X7, INIT
COUNT

COUNT
MSG12,R2
X7, Tout
MSG1,R2
FLAG
.+6
MMSG1A,R2
X7, Tout
MSG2,R2
X7.T0UT

;EJECT THE CARD

moooo aCRS
acns

;CHECK SPECIAL CONDITION

*CONTINUE IF SET

COUNT

*COUNT DOWN

*SPECIAL CONDITION NOT SET

#MMSG1,R2
FLAG

2103 010640 012702 014343
2106 010644 004737 012152
2105 010650 004737 012274

MOV
JSR
JSR

#MMSG2,R2
X7, TOUT
X7.CRLF4

2110

010672

000137 007234

JMP

:WAIT FOR ERROR OR CARD DONE

MOV
TST

S?%’
%v

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

03 aCRS

014224
000632

5}89 8}82552 0327:1:3 000400
5}83 8}0664 8?5;5; 007236 012150

'mess CARD READER 'RESET'''

;WAIT FOR OFF=LINE TO CLEAR

2098 010616 012
2099 010622 005737

%3
JSR

ser TO INDICATE FIRST PASS
:'PLACE SPECIAL DARK=LIGHT CHECK CARDS (SEE LISTING, TES
AT THE BOTTOM OF THE INPUT STACK'
*'PRESS CARD READER 'MOTOR START' AND 'READ START'''
cmwse MESSAGE FOR DOCUMATION READER?

uoo aCRS

LOOPG
%7.BELL

5}8‘1) 8}0630 8‘1’5‘02 014307
2102 010634 00477'!)5 012152

*INITIALIZE STATUS REGISTER
SINITIALIZE COUNTER

*MOVE MESSAGE UP ON TTY

BEQ
JSR

HALT

*RUN TEST IF NOT SET
:IF SET, RING BELL AND
SHALT

X7.CRLF&

2095 010606 001743
2096 010610 004737 011462
2097

:CHECK SWO

ifigsu R2
x7.Tout

*IF FIRST PASS, LOOP
*RING BELL

;"PRESS CARD READER 'MOTOR START' AND 'READ START®'*
cwwce MESSAGE FOR DOCUMATION READER?

mess CARD READER 'RESET' *'

:"'THEN HIT *CONTINUE® ON THE CONSOLE''

:MOVE MESSAGE UP ON TTY

uoo acRsS
;WAIT FOR OFF=LINE TO CLEAR
nesu 2.RETURN ;SETUP SCOPE LOOP RETURN ADDRESS
N

TESTA

-L

*LOOP THRU TEST ON CONTINUING

~NA

B B
B

7 011434

MOV
JMP

CONTG
X7.BELL

ggg 010426
010502

#1,3SWR

70 010464 012737 007236 012150
71 010472 000137 007234

BIT

BEQ
JSR
HALT

170142

000001

010454 oomg
010456
737 011462
2069 010462 000000

ABOUT 172 INCH LONGER THAN A asam CARD

032777

SCOPE

010446

TESTG:

104001

TEAR A SMALL PIECE FROM THE LEADING EDGE OF ONE_CARD
TAPE 2 CARDS TOGETHER TO MAKE
"LONG'* CARD=IT ONLY NEEDS TO BE

2065 010444

1.
2.

2064

:
:

o S

sTHIS OCCURS WHEN mm IS SENSED BEFORE COLUMN ONE OR AFTER COLUMN EIGHTY
tOR WHEN THE SENSORS ARE NOT ALL SENSING A HOLE AFTER THE CARD HAS PASSED
sTHIS TEST IS SKIPPED IF BIT O OF THE SWITCH REGISTER EQUALS ONE
iTO MAKE THE 2 DARK=LIGHT CMECK CARDS:

:DARK<LIGHT ERROR SMOULD SET BIT 15

SEQ 0040

BNE

2055 010442 001375

PAGE 41

09:50

27<SEP=?9

CZCRAC.PIN

DIAG
'fi;g
mcm SOA(1052)

NN NIAINIAINIAIAIAIAIAININIAIAIAIAIAIlalmlalicmlcailicailicaliealaitie
AINIAINIAIAIAININIAINS
e
N
e la
vVl

C2CRACO CR11

DIAG TSTS

MACY1Y 30A(1052)

%FQF- 15:12

gggo

000020

7 012146

177776

) e

010
012737 011002 012150
010776 000177 000010
31 011002 005037 012146
s§ 011006 000177 000000

— e

g‘

011012

000000

XLOOP:

;
;SETUP POINYERS AND FLAGS

MOV
ADD
BIT
BEQ
BIC
B8R

rm RE TRNX
cz TRNX
,@SWR
12
#20 PSR
.+10

;CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION
*CHECK SW12
*BRANCH IF NOT SET
*CLEAR TRACE BIT
:SKIP NEXT INSTRUCTION

CLR

ITCNT

*CLEAR ITERATION COUNTER

MOV
JSR
READC

BIS

MOV
JMP
CLR
JWP

RETRNX: 0

#STADD ,R2
pC, Tout

#20,PSR

#XLOOP , RE TURN
@RE TRNX
ITCNT
BRE TRNX

*SET TRACE BIT

*LOAD RETURN ADDRESS
SJUMP TO TEST
*KEEP ITERATION COUNTER AT ZERO
SJUMP TO TEST

010
013737 000622 011012
1
808888 on 13
1
1
167652 28%:
10744 001
107646 042737 000020 177776
10
;

#SUBTS ,R2
X7, SETUP

1311
012152

MOV
JSR

16264
sg

S DS

012

*NOTE THAT SW11 MUST BE DOWN AFTER 2ND HALT
TESTX: TIT

104007

) D e
D e

;ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST

010710 012
010714
737
10
104

010

SEQ 0041

1
§

)

NN NN
A

)

18
19

) i

1; 010700
1 8\0705

PAGE 42

1%
1S 010676

09:50

GRS A S S

s D D

27<SEP-79

PPT DI

—

C2CRACO CR11
1

CICMCO RN
CZCRAC.P11

AEETSTS MACY11 30A(1052)
79 15:13

1
1
1
1
1

:EASILY

THE PATTERN IS STORE D

SEQ 0042
COL UMNS IDENTICALLY PUNCHED.
TYPES OF DATA FAILURES TO BE STUDIED
HEN

:SW15=1 CAUSES A HALT AFTER AN ERROR, AND SW13=1 INMIBITS ERROR PRINTOUTS.
011014
011016
011022
011026
011032

2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163

011040
011046
011054
011060
011064
011070
011074
011076
011102
011104
011106

011036

011112
011114
011116

2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179

011122
011124
011126
011130
011134
011136
011140
011142
011146
011152
011154
011156

2181
2182
2183
2184
2185
2186
2187
2188
2189
2190

011166
011170
011172
011176
011202
011204
011206
011210
011212
011216

011164

CKSAME: TIT

MOV
JSR
MOV
JSR

016307
000652
016066
012152

MOV

000622
170000

BIC

011430
011426
000650
006650

CLR
CLR
CLR

CKLOOP: %?NTT

BIT

000400
011430

CKLP1:

040000

000120

CKSIT:

006650

CLCNT

sINITIALIZE COLUMN COUNT

CKCOL
#40000,aCRS
CKCRD

;BRANCH IF SET
s CHECK CARD DONE
;BRANCH IF SET

BPL

CKLP1

aCRS
TOTCRD
aCRS

aCRS

BIT
BNE

#400,aCRS
CKSIT

CKLOOP

JSR

:START NEXT CARD IF OK

CKLP2:

CKLOOP

aCRB1,DAT1
CLCNT

BPL

.+6

MOV
DEC

sSPECIAL CONDITION SET, BIT 8 CLEAR

CKLOOP

MoV
INC

TSTB

;CHECK BIT 8
sBRANCH IF SET TO WAIT FOR READER ON-LINE.

:START NEXT CARD

lBO..CLCNT

BEQ

;LOOP IF NOT SET

CKLOOP

CKCRD:

CMP

sCHECK SPECIAL CONDITION

sRING BELL TO SIGNIFY READER OFF=LINE

#400,aCRS
CKSIT1

:START READING CARD
s INCREMENT CARD COUNT
s CHECK COLUMM READY

X7 ,BELL

CkSIT1: BIT
BNE

CKCOL:

sINITIALIZE CARD COUNT
sINITIALIZE ERROR COUNT
sCLEAR FLAG FOR PRINTING ERROR HEADING

BMI
BIT
BNE

INC
INC
TSTB

HLT

000200

;CLEAR UPPER BITS OF PATTERN

TOTCRD
TOTERR
ERFLG

;CHECK BIT 8
sBRANCH IF SET TO WAIT FOR READER TO COME ON-LINE.

HLT

006652
006650

#170000,CARDIM

#400,aCRS
CKSIT

HLT

011462
000400

TTMP1,CARDIM

sINITIALIZE POINTERS

BNE

TST

000400

#SUBTS
R2
X7 ,SETUP
#CIMPAT
,R2
PC.TOUT

aCRS

CKLOOP

#200, COUNT
COUNT

;CHECK BIT 8
sLOOP IF STILL SET

:CHECK FOR 80 CG.UNS READ
:FINAL COLUMN COUNT WASN'T 80

s START NEXT CARD

:READ DATA BUFFER
:COUNT COLUMNS

s CHECK COLUMN READY

sBRANCH IF 0K

;READING DBR DIDN'T CLEAR READY

sSTART NEXT CARD AFTER ERROR

SWAIT AWHILE

DEDSLSLSLSLS
LS LN LSS LSS LS LS LS LS)

2147
2148
2149
2150
2151

2180

sUP TO THAT POINT (ALL PRINTOUTS
ARE IN OCTAL). WHEN THE INPUT HOPPER
IS EMPTY, THE ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE
:LOADED AND THE CARD READER TO BE PUT BACK ON=-LINE.

2144

2164
2165
2166

PAGE 43

EACH COLUMN OF EACH CARD IS READ TWICE AND COMPARED WITH IT. IF A
:DISCREPANCY OCCURS, THE ERROR IS PRINTED OUT ALONG WITH THE TOTAL
NUMBE
AL NUMBER OF DATA ERRORS DISCOVERED

148

leg

09:50

sROUTINE TO CHECK CARDS WM
sTHIS ROUTINE ALLOWS SPEC 1

140
g}fl

sMS
146

27-SEP=79

YO
e

»,O

g5
3 EREEEVEEY

006654
006652

011432

CKLP2
aCRB1,DAT2
DAT1,CARDIM

006654

011432

DAT2,CARDIM

CKFAIL

011426

020000

CKFAIL:

INC

167332

000650
000650
015764
012152
012242
0066 50
011734
011542
006652

CKFATL
CKLP1
TOTERR

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

e
e
e

——

e O
R
R

PAGE 44

CKNOHD: JSR

X7.TOUT
X7,CRLF
CLCNT ,R2
X7 .PROCT
%7,SPACE

SEQ 0043

sREAD CRB1 AGAIN
s COMPARE FIRST DATA TO PATTERN
sBRANCH IF FAILURE
< COMPARE SECOND READING TO PATTERN
sBRANCH IF FAILURE
sWAIT FOR NEXT COLUMN OR END OF CARD
s COUNT ERRORS

CHECK FOR INHIBITING PRINTOUT
BRANCH AROUND PRINTOUT IF SET
TEST FLAG TO PRINT HEADING
:BRANCH IF ALREADY DONE

:PRINT HEADING ONCE ONLY
sOUTPUT HEADING

sOUTPUT CARRIAGE RETURN, LINEFEED
:PRINT COLUMN NUMBER

;PRINT FIRST READING

09:50

TR
T
Y B

TOTCRD,R2

;PRINT TOTAL NUMBER OF CARDS READ

TOTERR ,R2

;PRINT TOTAL NUMBER OF DATA ERRORS

aSWR
CKPONE

;CHECK SW15 TO HALT ON ERROR
;BRANCH IF NOT SET
sHALT ON _ERROR
- CONT INUE
sWAIT FOR SPECIAL CONDITION OR DONE

X7 ,PROCT
X7, SPACE
CKHLT:

TST

CKDONE: BIT

TOTERR: 0
TOTCRD: 0

%7 ,PROCT

CKL
0140000 a(RS
CKDONE
CKLOOP

;START NEXT CARD AFTER CHECKING BIT 8

CARDIM: 0

s ISSUE MESSAGE IF CARD READER IS OFF=-LINE

—_— 2

sPRINT SECOND READING

;WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STI%If READING A CARD
DOESN'T CLEAR PROPERLY
sINITIALIZE STATUS REGISTER AND USE ERROR HALT IF
sNOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS SET
INIT:
JSR
X7,CKBITS8
;SEE _IF OFF-LINE BIT IS SET
01900 aCRS
BIT
sWAIT FOR BUSY TO CLEAR, IN CASE
BNE
sA CARD IS STILL BEING READ
aCRS
CLR
sINITIALIZE STATUS REGISTER
TST
aCRB1
;READ DATA BUFFER TO CLEAR COLUMN READY
TST
a(RS
;MAKE SURE INITIALIZATION OK
BEQ
.+
;BRANCH IF ALL BITS ZERO
HLT
:;‘EJ;WA!LNL BITS OF STATUS REGISTER ARE ZERO
RTS
X7

C2!
czCi

2t
2l
2l

NI AN ALY AY Y AY A MY AY NI AY A AY Y AY A AY A Y A AY A MY Y A NI AY N AR N A Y AR AR Y AY N AR NI AR A AR A A A

15:13

27-SEP=79

RENNERIRIE RN

MCYH 30A(1052)

S S

gOOOOOOOOOOOOOOOOOOOOOOOOOO
i
i i o o o o il o
) i
) D i
) o il
S il ) o

CZCRACO CR11 DIAG TST
CZCRAC.P
26=SEP-

BELL:

000207
000001

TSTB
8PL
MOV
MOV
RTS

TCSR
..‘
#207,aTDBR
;‘l » I TMAX

JWAIT FOR TTY READY
sRING BELL
+MAKE CERTAIN ITERATION MAXIMUM IS CORRECT

sRETURN

:SUBROUTINE TO CHECK FOR BIT 8 (OFF-LINE) BEING SET IN CARD
;READER CSR, AND PRINT OUT A MESSAGE IF IT IS
#400,aCRS
CkBIT8: BIT
:CHECK BIT 8
BNE
-"
:BRANCH IF SET
RTS
:RETURN IF NOT SET
MOV
:OUTPUT MESSAGE

000400

015744
012152
015661
012152

:'BIT 8 WAS SET''
:"REMEDY THE ERROR CONDITION
:AND PRESS *CONTINUE''’

JSR
MOV
JSR
HALT

:WAIT FOR CONTINUE
:CHECK AGAIN

sSUBROUTINE TO ISSUE N SPACES

167044

000240
011572

167036

011572

BPL
MOV
DEC
BPL
CLR

;WAIT FOR TTY READY

0240.3TDBR

RTS
: 0

;OUTPUT A SPACE
sDECREMENT COUNT
;LOOP IF NOT DONE
JRESET COUNT TO ZERO

sRETURN

JENTERED WITH SYSTEM TRAP CALL (HLT)
sPRINT OUT THE ERROR PC AND STATUS REGISTER
167014

020000

011730
011732

KBINTT

aSWR,#20000
.+4

SAVPC
SAVPSR
-(6)

012242

Lol
N

SAVR2

166736

;INHIBIT, 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

aTDBR

;OUTPUT A SPACE

PROCT

;PRINT PROCESSOR STATUS AT TIME OF

%2
166706

sTEST FOR INHIBIT PRINT OUT

JBRANCH TO PRINT

PROCT

Ead
N

(¥

3
33FRgER
SERFS

sSPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON
SPACEU%;H(BMT LOADING SPACEX ISSUES ONLY ONE SPACE

yp y

S gy

T
S
e

olelelelelelele]

sN IS ONE PLUS VALUE CONTAINED IN SPACEX

lZ‘O.iTDBR

sRESTORE REGISTER 2
;WAIT FOR TTY READY

FAILURE

onN

SEQ 0044

PAGE 45

09:50

PV IVIIVIIVIIVIIVI S S LS S SIS IS TN NSNS S TNOSON S SIS TN TS LS TS LSS S TN TS IS OIS IS SIS S S SIS S LS IS TS LS TN LS S S S LS T8 )

27=SEP=79

;BELL ON_PASS COMPLETE

167124

ERANTIE
FRENrr
SR

b
i
)
el

gy
y—- gy

IAG_TSTS MACY11 30A(1052)
115:13
SEP=79

)
i
)
)
) i

S ———)
R

)
—

coocoo0000

[olelelels]

CZCRACO CRN
CZCRAC.P

TST

p—

166612

JRETURN TO MAIN LINE

0
0
0
MOV

X3,SAVR3

CLR

MOV

#260,

BPL
INC
ROL

%3
¥4

TSTB

aTCSR

MOV

ROL
ADC

BPL
MOV

%4 ,SAVRS
COUNT

¥4

x2
COUNT

C.WAIT
X3,

C.CONT:

RTS

“

TST

COUNT

CLC

BEQ
CLR
SEC
ROL

ROL
ROL

ADC
MOV

177770

000260

040000

166524

004000

166514

012146

012144

012146
012126

177776

000016

;SAVE R3
;SAVE R4
sCLEAR R4 TO USE AS COUNTER
sCLEAR COUNT TO USE AS CARRY FLAG
sSETUP ASCII ZERO IN R3
;CHECK BIT 15 OF DESIRED NUMBER
JBRANCH IF NOT SET
:CHANGE TO ASCII ONE
JROTATE INTO RIGHTMOST BIT
;7O PREPARE FOR LOOP
;STORE CARRY
;WAIT FOR TTY READY

@TDBR

000006

011724
011726

;OUTPUT ASCII
s COUNT CHARACTERS OUTPUT
;CHECK FOR DONE
:BRANCH IF NOT DONE
sRESTORE REGISTER 3
sRESTORE REGISTER 4
;RETURN

.+6
COUNT

;CLEAR CARRY
;TEST CARRY FLAG
;BRANCH IF NOT SET
;CLEAR FLAG
;SET CARRY

sROTATE NEXT 3 BITS INTO RIGHTMOST 3

%2
%2
%2

COUNT
2

WAIT

; STORE CARRY

;MOVE DATA FOR OUTPUT
;CLEAR ALL BUT RIGHTMOST 3 BITS
:SET TO ASCII EQUIVALENT

:LOOP

. SCOPE AND/OR ITERATIW LOOP FOR EACH TEST 2 TIMES
SCOPEC: KBINTT

BIT
BNE

:YES,SCOPE

D.
ITCNT,
1 TMAX

s INHIBIT ITERATION
:CHECK FOR ITERATIONS COMPLETE
:EXIT-DONE
s INCREMENT COUNT

#4000 ,aSwR

INC

ITCNT

CMP
MOV
JMP

;TEST SR FOR SCOPE

D.1

BIT

BNE
CMP
D.1:

040000 aSWR

(6)+,
%6
(6)+,
PSR
aRETURN

sNO- TEST FOR ITERATION

:REPOSITION STACK POINTER

:RESTORE PROCESSOR STATUS
JRETURN TO RERUN TEST

N
O

SEQ 0045

sCHECK SR FOR HALT SWITCH
sBRANCH IF NOT SET
JHALT ON ERROR UP

aSWR

TST

C.WAIT:

RTI

CLR

166616

PAGE 46

(NN NN NN NN N N NN N NN NN N W N NN NN NN NN W WS

PROCT:

010437
005004

-t

SAVRS:
SAVRSG:
SAVPC:
SAVPSR:

09:50

KBINTT
BPL
HALT

SAVR2:

par ot

orO

JNEY QAN 333

_— e e D DD
~
NINNNN

100001

B.CK:

166702

—_—

SNINISNIN

10&00;
00577

27=SEP=79

-d
b b

[olele)

2303

SOOOO
(olelelolelelololsle]
—_
D
[ Y [ S S S
'y

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

005037
011637

000002
000001
000000
001022

cy 1 1
3
5:13

oo -‘;

C2CRACO CR11 DIAG TSTS
CZCRAC.PT
P=79
26-SEP-

30A(1052)

27-SEP=79
D.2:

12146
2l
12150
a1

09:50

CLR

MOV
RTI

PAGE 47

ITCNT
X6,

RETURN

1
ITMAX:
ITCNT: 0
RETURN: TEST1+2

000177
012240

166432

012240
166412

sMOV ADDRESS OF
: THEN JSR %7,
fout:
BICB
MOVB
L.INC:
INC
L.TOUT: CMPB
BNE

166406

000100

L.CNT:

012242

01 77,

ax2.
%2
ax2,

aTCSR
L.EOMK

L.EOMK

TSTB
BPL
CLR
RTS
CMPB

;OUTPUT NEXT CHARACTER
- CONT INUE

-4

000215
166330

166336

#215,
aTCSR

aTDBR

;SEND CARRIAGE RETURN
;WAIT FOR TTY

000212

166322

#212,

aTDBR

;SEND LINE FEED
sRETURN

012242

012310
012314

012242

012316
012324

000176

-4

;DO 4 CRLF'S TO MOVE MESSAGES ON TELETYPE
CRLF4:
JSR
%7.CRLF
JSR
%7.CRLF
JSR
%7,CRLF
JSR
%7.,CRLF
RTS
%7

000616

CNTLUU:

000002

CMP
BEQ
ADD

016055

012370

sMOVE DATA POINTER TO NEXT BYTE
; COMPARE FOR EOM
sBRANCH IF NOT END OF MESSAGE
;WAIT FOR TTY READY

- SUBROUTINE TO IgSUE CARRIAGE RETURN AND LINEFEED
CRLF:
TSTB
sWAIT FOR TTY READY

166344

0312274

012702
004 737
005037
012737

;CLEAR INT FLAG

:MOVE IN EOM MARKER

sOUTPUT NULL
cRETURN IF EOM
;CHECK FOR CR,LF REQUEST
sBRANCH IF NOT
sOUTPUT CARRIAGE RETURN, LINEFEED
;LOOP
;WAIT FOR TTY

L.EOMK: 0

012272

:RETURN INL INE=NEXT TEST
:MAX NUMBER OF ITERATIONS

MSSAGE TO REGISTER 2

166356

105777
100375

;CLEAR COUNTER
+SAVE SCOPE RETURN POINTER
sCOUNT LOCATION FOR ITERATION LOOP
:ADDRESS OF LAST TEST

JSR
BR

166362

SEQ 0046

1%:

000630

AGN:

BR
MOV
JSR
MOV
JSR
MOV
JSR

CLR

MOV

1SLRE G, SWR
$
#2,(SP)
ouT
#SWREQ,R 2
PC,TOUT
SWREG,R2
PC,PROCT
#NEWIS
R2
PC,TOUT
TTMMP1
#7,CSNT

012376
012402
012404
012412
012420
0

27=SEP=79

166204
166200

000626
000200
000025

READ:

N
§¥§xrsmazLR%
RIS

TSTB

09:50

PAGE 48

READ

BICB

#200,TIB

BNE
MOV
JSR
BR

2$
#CTLU,R2

000626

BEQ
CMPB

18
#60,TIB

000626

CMPB

000626
166174
000626
000626

MOVB
MOVB

CMPB

000015

28:

CMPB

BGT

BLT
BICB
ASL
ASL
ASL
BISB
DEC
BEQ

000622

012242

18:

ouUT:

016027
012152

B8R

JSR

RTI

INERRR: MOV
JSR

SEQ 0047

@KBCSR

BPL

016176
012152

goggegeeges

aKBDBR,TIB
TIB,aTDBR

#25,TIB
PC,TOUT

#15,TIB
INERRR

#67,T1B

INERRR
#60,TIB
TMP]
TMP1
TMP1
TIB,TMPI
CSNT
INERRR

READ

X7.,CRLF

#QEST ,R2
PC,TOUT

AGN

;ROUTINE TO CHECK EXISTANCE OF SWREG

1%
28

000176
000174
000004
000006
000176

000616

000622
165730
000200
000007
012702
012704

SUSWR:

000006
000004
012610
177777

EXXXX
SRR
S S e
rUKZE RRRAATARE

VOV

CZCRACO CR11 DIAG TSTS HACV\\ 30A(1052)
CZCRAC.P
15:13
26-SEP-

MOV

4.-(SP)
#is.4
#-1.3SWR
2
3s
(SP)+,(SP)+
#SWREG, SWR
#D]1SPREG,DISPLAY
(SP)+.,4
(SP)+.6

CMP

#SWREG, SWR

CLR
MOVB

TM1
aKBDBR, TMP1
#200, TMP1

RTI

KBINT:

000622
000622
000622

BNE

BICB
CMPB

BNE
1%:

6.-(SP)

MOV
MOV
CMP
BEQ
B8R
cMP
MOV
MOV
MOV
MOV

CNTLU
CKU
RTI

#7.TMP

INI

CZCRACO CR11 DIAG TSTS MACY1Y 30A(1052)
26=SEP-79 15:13

CZCRAC.PN

RRY RRRRRRY

—_—

PAGE 49

SEQ 0048

; TYPE THE MAIN TITLE

1%:

000007

000630

000622

165646

000002
000000

09:50

FITTYP: TST

v
Ssrow

2474

2% 8298 SRES2S A

000624
rnOoN

27<SEP<79

(kuu:
18:

BEQ
MOV
JSR
CLR
RTI
CMPB
BEQ
MOV
RTI

EMTSRV: MOV

177001
013004
000000
EMTTAB: PRINT
SCOPEC
CNTLW
KBINT
READ

SUSWR
CKUU
TITTYP

TIFLG
13
#TITL .R2

X7, TOUT
TIFLG

#7,CSNT
1%
TMP1,aSWR

(SP) ,-(SP)
#2,(SP)
a(SP), (SP)
(SP)
#177001, (SP)
#EMTTAB, (SP)
a(SP), (SP)
a(SP)+

s CALLED BY
: CALLED BY
s CALLED BY
s CALLED BY
;CALLED BY
;CALLED BY
sCALLED BY
;CALLED BY

EMT
EMT
EMT
EMT
EMT
EMT
EMT
EMT

HLT
SCOPE
CNTLU
KBINTT
READC
SUSWRR
(KU
TIT

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

27-SEP-79

09:50

PAGE 50

SEQ 0049

2503
25258';

sDATA TABLES FOR DATA RELIABILITY TESTS

2506

JALPHANUMERIC DECK DATA TABLE

2508
2509

sCARD IMAGE FOR THAT COLUMN ON CARD 1
sTHE SECOND VALUE IS THE ENCODED FORM OF THAT DATA

sFIRST VALUE FOR A COLUMN IS THE DIRECT

000200
004400

2515

013034

004200

2514

013032

004000

000201

ALPCD:

4000

200
4400

12 1

12 2

12 3

12 4

4020
205
4010

12 5

1 4

12 6

12 8

;10

12 9

CENT

12 8

201

4200

2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545

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

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

4004
207
4002
210
4001
220
4202
212
4102
213
4042
214
4022
215
4012
216
4006
217
2000
100
2400

2548
2549
2550
2551

013136
013140
013142
013144

000102
002100
000103
002040

102
2100
103
2040

5307 01313 009200

2556
2557
2558

013156
013160
013162

000106
002004
000107

sCOLUMN CHAR HOLLERITH
1
4
12

202
4100
203
4040

3900

1
2004
107

;12

12 8

;13

12 8

;14

(

12 8

;15

12 8

;16

12 8

;18

J
K

;20

113

;21

11 4

;24

"7z

013026
013030

013024

2510
2511
251§
2513

2507

CZCRACO CR11 DIAG TSTS MACYIY 30A(1052)
CZCRAC.PIN
26=SEP=79 15:13
59

1
256;

2563
2564
2565
2566

2567

2568
2569
2570
2571
2572

2573
2574

013164

013166

013170
013172

013174
013176
013200
013202

013204

013206
013210
013212
013214
013216

013220
013222

11 8

002001
000120

2001
120

;26

1m19

2202
112
2102
113

000114
002022
000115
002012
000116

114
2022
115
2012
116

002042

002006
000117

001400

2584

2585

2586
2587
2588

013244

013246

013250

110

00220%
00011
ooz1o§
00011

013230

2583

SEQ 0050
Q

2577

013232
013234
013236
013240
013242

;25

001000

2578
2579
2580
2581
2582

PAGE 51

2002

013224

013226

09:50

002002

000110

2575

2576

27<SEP<79

1183

;29

11 8 4

;30

)

11 85

;31

1186

2006

;32

BLANK

1187

1000

;33

1400

;34

;35

;36

1040

1020

;38

05§

1010
4
1004
47

;39

;40

1002

;41

1001

;42

1202

;43

1102

;44

083

2042

117

000041
001200
000042
001100
000043

41
1200
42
1100
43

000044

001020

2590
2591
2592
2593
259
2595
9%
2597
2598

013252
013254
013256
013260
013262
013264
013266
013270
013272
013274
013276
013300
013302

2600
2601
2602
2603
2604

013306
013310
013312
013314
013316

001042

1042

;45

084

001022
000055
001012
000056

1022
55
1012
56

085

;47

086

2606

013322

000057

1006

;48

087

2599

2605

013304

3320

000045
001010
000046
001004
7
001002
000050
001001

11 82

;28

000040

001040

:27

001202
000052
001102
00005

001006

082

2607

013324

000000

0000

;49

2609

013330

000400
000001
000200
000002

0400

;S0

0200

;51

000003

0100
3

152

2608

2610
2611
2612

2613
2614

013326

013332
013334
013336

013340
013342

000000

000100

BLANK

€2
czc
SUB

SUS

SUS
SWR
SWR
SWR

TCS

TD8
TEN
TES
TES
TES

TES

TES
TES
TES
TES
TES

TES

TES
TES
TES
TES
TES

TES
TES
TES
TES
TES
TES
TES
TES

TES

TES
TES
TES
TES
TIE

TIF

TIN

TIN
TIN

TIN

TIN
TIN
TIN

TIN
TIN

000017
004000
000200
004400
000201
004200
000202
004100
000203
004040
000
004020
00020
004010
004
000207
00400

000210
00400
0002
004202
000212
004102
000213
00404
000214
004022
000215
004012
000216
004006
000217

4020
205
4010
206
4004
207
4002
210
4001
4202
1
4102
213
4042
214
4022
215
4012
216

4006
ALPEND: 217

&~
nn
O

0002
10
0001
20
0202
12
0102
13
0042
14
0022
15
0012
16
0006
17
4000
200
4400
201
4200
202
4100
203
4040

000007

000002
000010
000001
000020
000202
000012
000102
000013
000042
000014
000022
000015
000012
000016

013362

8 4
85

TRA
TRF
TRF
TR1

TS1
TS1
121
121
XLC

8 6

013364
013366
013370
013372
013374
013376
013400
013402
013404
013406
013410
013412
013414
013416
013420
013422
013426
(13426
013430
013432
013434
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

>»

0010
6
0004

0020
5

121

000010
000006
000004

000020
000005

122

2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670

013354
013356
013360

013350
013352

123

2653

0040
&

SEQ 0051

12
4

Z62§

2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651

000040
000004

PAGE 52

125

TMM

2619
2620
2621

013344
0N ?46

09:50

12
6

o6&

17
18

27-SEP-79

127

2615
2616

DIAG TSTS MACY11 30A(1052)
SEP-79 15:13

12
8

—

CZCRACO CR11
CZCRAC.P1

129

CENT

1282
1283
1284

1285

1286
1287

C2CRACO (R'l\ gs.G TS73
MCV‘H 30A(1052)

09:50

PAGE 53

SEQ 0052

;BINARY DECK DATA TABLE

THAT COLUMN ON CARD1

:THE SECOND VALUE IS THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION OF

~N
~N

3333
-

OO0
N
®®
—_

;CARD COLUMN 1

—

=200
SNRSRE3NES d#Ngu—'b S NNV NH o
O
o
SOOO
INV=S88858
O
8

:ROWS ONE THRU SEVEN

BINCD:
vW

267
2678
2679

27-SEP-79

sFIRST VALUE FOR A COLUMN IS THE DIRECT CARD IMAGE OF

)

CZCRAC.P1

CZCRACO CR11

CZCRAC.PIN

}

DIAG TSTS

gs-ser-g 1s:1§

09:50

PAGE 54

SEQ 0053

czc

CZCR

17;;

;;17

127

,
1370

1
}é

?8§°
%;1

:28
i

ERR
czc

COR

0001

26
10
zs;s
12

739

13714
1371
1
013722
O1

760 01
741 01
ng

117
2727

743

000117
002
0030

3030

2764
2745
2746
2767
2748

013736
013740
01
013744
013746

107

000137

000147
003131
oomg
000157

2749 013750 0034
2751

013752
01375¢
013756

000147
003535
000167

013762

000157

2323

137

147
313
1
3232
1

3434

147
3535
1

;30

:32
:33

134

;35
:36
:37

38
:39

2753

013760 00

3636

2755
2

013764
013766

3737
177

141

2759
2760
2761

0137764
013776
014000

4141
227
4242

003737
000177

2757 0137720 004040
13772

004141
000227

278 014002
16
2763
014004 0046343
2764 01
000237

157

4040
204

216
4343
237

2765
2766

014010
014012

004545
000227

4545
227

2768
2769
2770
2771

014016
014020
014022
014024

17
004747
000237

217
4747
237
5050

014030
014032

005151
000267

2767 014014

27<SEP<79

MACY11 S0A(1052)

277
2775
2776
2777
778
779
gno
781

2782

014034
014036
014040
014062
014044
014046
014050

014052

005252

005353

0002
005454
000247
0056

000257

4646

246

5151
267
5252
256
5353
277
5454
7
5656

257

142
44

45
146

47
48
49
50

51
;52
;53

. AR

RUN

CZCRACO CR1Y

DIAG TSTS

MACY11 SOAC1052)

CZCRAC.P11

gs-stmg 15:13

783
784
785

O
01
O1

?
7

14076

00033

14102

000307

09:50

PAGE 55

SEQ 0054

$757
277
ggao

;56

014100 006464

eges
337
8464

;60

i
fe
e
oL
014110
006767
798 014112 000337

g
6767
337

2800
2801

014116
014120

00034
007171

347
7171

2808
2804
2805
2806
2807
2808
3809
2810
2811
2812
2813
2814
2815
2816
2817
2818

014124
014126
014130
014132
014134
014136
014140
014142
014144
014146
014150
014152
014154
014156
014160
014162

007272
000357
007373
000377
007474
000347
007575
000367
007676
000357
000101
000023
000202
000012
000303
000033

7272
357
7373
377
7474
34,7
7575

;65

7676
357
0101
23
0202
12
0303
33

;69

2820
2821
2822
2823
283
2825
2826
2827
2828
2829

014166
014170
014172
014174
014176
014200
014202
014204
014206
014210

000007
000505
000027
000606
000017
000707
000037
003210
000146
000123

2832

014216 000347

775
14088 ons
786 O1c0 6
000LS
70 01073 0008
o3 814.on

2798

't
§18
7
307

799 01411% 0070

7070

2802 014122 000367

367

2819 014164 000404

27-SEP-79

2830
2831

014212
014214

0404

7
0505
7

17
0707
37
3210
146
0123
37
7654

000037
007654

347

za% 014220 004567
283%
2835
2836
2837
2838

014222
014224
014232
014240
014246

000237
040057
020123
051040
020122

4567

051120
040503
040505
47

051505
042122
042504
052117

;S5

57
;59
;62

;63
;64

;66
;67
;68

;70
71
;72

;73
;74
;75
;76

;77
;78
;79

;80

BINEND: 237
MSG1:
.ASCII ;/@PRESS CARD READER 'MOTOR START' AND 'READ START'/;

TSTS
P79

1
051523

046

053117

MACY1T 30A(1052)
15:1

27-SEP=79

09:50

PAGE 56

SEQ 0055

05144

? girion
i10‘7 040505
051101

g55368
051}1
: 8:552;
3 MSG2:
12
042
0645%

JASCII

;/QPRESS CARD READER °'RESET'/:

LASCII

s/QTHEN HIT 'CONTINUE' ON THE CONSOLE/:

051505
042122
042504
040505
050117

MSG3:

LASCII

;/QPRESS CARD READER 'READ STOP'/;

051505

MSG3A:

LASCII

;/@PRESS CARD READER 'STOP'/;

MSG4:

LASCII

;/aTHE

MSGS:

LASCII

;/aREMOVE ALL CARDS FROM THE INPUT HOPPER/:

MSG6:

LASCII

;/@RESTORE CARDS IN THE INPUT HOPPER/;

MSG7:

LASCII

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

MSGIA:

144

INTERRUPT LEVEL WAS /;

09:50

E
PAGE 57

SEQ 0056

MSG7A:

LASCII

:/aLOWER OUTPUT STACKER PLATE TO BOTTOM/;

MSGS8:

JASCII

;/7aHOLD DOWN THE SWITCH AT THE BOTTOM OF THE INPUT HOPPER/;

MSGB8A:

LASCII

s/aLIFT SWITCH UNDER RIFFLE CAP/;

MSG9:

LASCII

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

MSG10:

LASCII

;/aREMOVE JAMMED CARD/;

MSG11:

LASCII

;/@HOLD THE OUTPUT STACKER GATE OPEN.

MSG12:

LASC’

;/aPLACE SPECIAL DARK=LIGHT CHECK CARDS (SEE LISTING, TESTG);

% SRR

e9gge9e

e I

—a

b d

051105
052520

O
NYVINVWWVIN

i
b\ )

R9SR
g
LAY aggssa
rorROW 2

84220 05;616
052040
04 514

B NS

27=SEP<79

OHfN
wvi OWOoNS

0‘&58

HACY\\ 30A(1052)

33
RRFLRIENR &3

coo
S
S2822g8s22SS

FE28

014740
014746
014756
014
0147
047N
014776

BB
3
HIRSIS ERARELEREREPERELER
LI
L SP AR ERES

LG %?3

CZCRACO CR\\ gfi:fi
1S

020124

THEN/;

27-SEP-79

09:50

PAGE 58

SEQ 0057

AA
Al

RRIR=ZS

s Puur-uur- R
o
e )P

wviv Al
wviw

1 30A(1052)

2§§28§§2 S22eS o2
xaooaaxsggxuagua
=

R S

LASE

our Pur Puur-Puur P

oo 0000000000000
0

BYBIVIBBIY
SRR F iR ggzagauzuzxag
L LG L P RE S ERY

CZCRACO CRM
CZCRAC.P11

LASCII

s@AT THE BOTTOM OF

MSG13:

.ASCII

;/7aDECK

044120

MSG14:

.ASCII

;/@ALPHA /;

047111

MSG15:

.ASCII

;/aBINARY/;

020124
051501
057

MSG16:

.ASCII

;/aBIT 15 WAS SET/;

MSG17:

.ASCII

;/3REMEDY THE ERROR CONDITION AND PRESS 'CONTINUE'a/:

020124
020123

MSG18:

.ASCII

;/aBIT 8 WAS SET/;

052514

MSG19:

.ASCII

;/aCOLUMN READ1 READ2

QEST:

.ASCII

NEWIS:

.ASCII

SWREQ:

.ASCII

;/aSWR = /;

CIMPAT:

_ASCII

;/aCARD IMAGE PATTERN= /;

CARD

THE

INPUT STACK/;

COLUMN PATTERN READ1 READZ2

C(ODED

READ/;

042504
040505

041447
052516

020040

020075

016102

052101

CARDS ERRORS/;

CZCRACO_CRM ggAG TS;; MACY11 30A(1052)
CZCRAC.PIT
~SEP=79
15:13

057
0‘052;
02010
051505
057
055103
020060
042040
051524

0&7\5;
0
OSZ} 2

027524

27<SEP=79

09:50

PAGE 59

STADD:

JASCII

TITL:

JASCII ;/7@3CZCRACO CR11 DIAG TSTS /;

020075

CTLL:

LASCII

J/*Ue= /;

051516

SUBT1:

LASCII

;/aINSTR + DATA TEST/;

SUBTZ:

LASCII

;/aCR11 ERROR FUNCTION TEST/;

SUBT&:

LASCII

;/@SINGLE

SUBTS:

LASCII

;/@SINGLE DATA PATTERN TEST/;

.END

s/ASTARTING ADDRESS = /;

TEST LOOP/;

SEQ 0058

CZCRACO CR11 DIAG TSTS MACY] 1 30A(1052)

CZCRAC.P1T

26-SEP-79 15:13

012364
Iucom 006776
ALCNT2 007010
ALLDON

26130
1768
1772
1790
1632

2424
1771#
1791
1798#
1655

ALONT

006714

ALLOK
| AP0
ALPEND
ALP1
ALWAIT
BEGIN
BELL
BINCD
BINEND
8.0k
CARDIM
CDONT

007036
O
013522
005516
007072
000726
011462
013524
014222
011706
011432
006646

18
1572
1573
1567
1804
619
1548
1568
1569
2286
2153«
1538,

18054
2511#
2670%
1572
1814#
6714
1713
26754
2834
23034
2154r
1564

CIMPAT
CkBIT8
ckcoL
CKCRD
CKDONE
CKFAIL
CKHLT
CKLOOP
ckLP1
CkLP2
| cknowp
CKSAME
CkSIT
CKSIT1

016066
011506
011172
011156
011416
011250
011404
011070
011112
011216
011310
011014
011142
011146

2150
690
2165
2167
2223
219
2201
2158
21648
2190¢
2203
630
2161
76%
S874
24798
781
822
1008
1598+«
5838
24034
1458
1465
1472

30044
719
2183
2179
22268
2196
22224
2173
2169
2191
2207#
21474
2171
2177
662
2499
786
8354
1013#
1630
661
2495
14614
14684
14754

KU
= 104006
KW
012732
Cké
001370
xS
001534
k9
002352
CLONT
006650
ONTLU = 104002

CNTLWU
CNT23A
CNT238
CNT23C
CNT23D
CNT23E
CNT23F
CNT236
CNT24A
CNT24B
CONTD
CONTG
CONTI0
CONT11
CONT2
CONT21
CONT22

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

1479
1486
1493
1501
1521
1529
1571
2067
1036
1066
738

1420
1462

1482#
1489
14964
1505#
1524k
15324
15754
20724
10484
10704
74o

14244
14454

27-SEP=-79

09:50

PAGE 61

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0059

2443

1699

17624

1762

1823

2068

2096

2175

22484

2193
1628

2195
1653

22314
Tee7

1695

1708

1735+

1736+

750

1530

1541

1656

2237

22564

2264

2180

2182

2188

2225

2228

1563

2468

1705
1562

1743+
2467

17574

2158«

2179

1737

2227
21984

2178
2197

21754
678

7884
1670
677

1527

2184x

2208

1738«

1739+

1742«

C2CRACO CR11 DIAG TSTS
CICRAC.P11
26-SEP=79

MACY11 30A(1052) 27<SEP=79 09:50 PAGE 62
15:13
CROSS REFERENCE TABLE == USER SYMBOLS

CONT4
CONTE
CRB2
CRLF
CRLFG

001410
002242
000640
012242
012274

91
9814
6508
2207
}?‘s)g

7954
990
979
2290
5%1"

CSNT
tTlu

000630
016176

z«gg

6468

| C.MAIT

2325#

Jom

006652

C.CONT 0129%

DATENC
DATST
DATST1
DATST2
DAT2

006656
0054
0054
005456
006654

DBRCKR 002232

DONT1
DECK
DECKCK
DISPLA
DISPRE
DONE3S
DONE7

005574
006640
006514
000620
000174
001314
002030

EMTSRY
EMTTAB

012752
013004

D.1
D.2

012120
012132

END

006476

ERCR11

007200

ENDCK
END2%¢
ERCM11

ERFLG
ERR6

ERSET
ER1

FAIL
FAILC
FAILCN
FAILC1
FLAG

HLT

INERRR

2479

2326

2346
1687

1760#

1611

1678

17584

1664
770

1753#
1836

1617
1558#
1732
1565#

1599«
1609«

961

1614

9794

1578
1570«
1723
6428
6134
758
913

15824
1574%
1728
2455+
2455
7654
921

603
2489

24Buw
24934

2350
2352

1715

000650
001726

6554
871

621

1596
1629

006122
006170
006406
000632

1612
1645
1643
1696
6474

= 104000

S8l

011434

2436%

1605«
1547
15608
1559

1531
1523
623

012546

2414
17

2334n

889
983

INIT

14B4*
23884
1900

005400
005360
007206

006034

985
2379
1883

1122
1321
1487
1789
1922

2356w
2354

17214

1681

1540
1538

1545#

1565+
8914

1659

1661%

1626#
1631

1615
1648#
1659
17004
1838+

702
803
893
987

1137
1327
149
1797
1969

1700
1633#

2183+

2193

2211

2157+«

2202

2204+

2192+«

2195

1605
2400
1982

2439
2002

2018

2035

2052

2084

2214

1618
1652

1639

1840«

1850

1865

189

1909

19264

1944

1949

1976

1986

2078

708
806
895
1011

714
810
910
1017

725
825
922
1019

739
833
926
1035

745
837
931
1039

755
843
936
1043

763
847
941
1046

767
851
949
1063

790
855

1068

794
876
969
1083

797
884
977
1116

1143

117

1217

1159
1342
1502
1803
1972

2430

2437

1260
1957

1303
1993

1346
2026

816

1507
2399
1953

23594

1533
1537#
1840#

1838#

1498
2398
1930

9244

2608

774

1759

1491+
2397
1915

SEQ 0060

860

1170
1364
1510
1811
2011

2441a

903

1389
2072

1192
1370
1522
1821
2047

954

1410
2237#

1198
1385
1532
1827
2093

1213
1400
1536
1830
2172

1235
1421
1603
183
2181

1241
1444
1707
1860
2187

1256
1459
1749
1863
2244

998

1025

1053

1075

1098

1429

1452

1515

1582

1848

1278
1466
1751
1887

1878

128,
1473
1765
1890

1907

1299
1480
1782
1919

1938

KBDBR
000610
KBINT
012640
KBINTT= 104003
KCRB1
000636
KCRS
000634

LASTCD
LASTCK

006450
006432

LOOPF

010364

LOOPS
LOOP4
LOOP4B
LOOPS
LOOPS
LOOP?7
LOOP8

001266
001336
001354
001466
001624
001756
150

LOGIC

LOOPG

L.ONT
L.EOMK
L.INC
L.TOUT
MSG1
MSG1A
MSG10
MSG11
MsSG12
MSG13
MSG14
MSG15
MSG16
MSG17
MSG18
MSG19
MSG2

MSG3

MSG3A
MSG4

MSG5

09:50

PAGE 63

SEQ 0061

CROSS REFERENCE TABLE =< USER SYMBOLS

2353
2251+

1113

1164
1%73
1377

2283

2303

2348

1694

1708#

1750

1752

1975
1978

<v00
2080

2014
2101

2033
2844H

2077

2098

28354

1913

1928

1941

1980

2016

2029

2050

1335

1378

28674

1129+
1248+
1361

2359«
2362

23634

2159

2199

1650

35
35

1189

1135
1254
1375

1127

1
1;30
1334

PR p—y

27=SEP=79

& N\”N—.
»»

000604
01%1‘6
012144
000606

635#
“05+

£35388R ..:.z::g

INTVC
ITONT
ITMAX
KBCSR

000602

P=79 15:13

—t

INTFLG

IAG_TSTS MACY11 30A(1052)

XYLYETIN]

CZCRACO CRN
CZCRAC.P1

1246
1359

1297

1203
1316

2463

010516

012210
012240
012164
012166
014224

014307
015272
015317

23854
1923
1926

01537
015526
015616
015627
015640
015661
015744
015764
014343

29794
1881

1898

014410

2027

28564

014536

28724
28794

1249

1292

014450
014503

MSG6
014607
MSG7
014653
014771
MSG7A
MSG8
015040
MSGBA
015131
MSG9
015170
NEWIS
016040
NOHD
006212
NOP
= 000240
006610
NOTCD

2082

CZCRACO CR11 DIAG TSTS MACY] 1 30A(1052) 27-SEP-79 09:50 PAGE 64
CROSS REFERENCE TABLE == USER SYMBOLS
CZCRAC.P1
26-SEP-79 15:13

QEST
016027
READ
012376
READC = 104004
RESTRT 000742
REST8
002270
REST9
002374
RETRNX 011012
RETURN 012150
SAWC
011730
SAVPSR 011732
SAVR2
011722
SAVRS
011724
VRG
011726
SCONT1
005700
SCOPE = 104001

2441
24154
5854
6754
984
1012
2121«
688«
2287«
2288+
2291+
23094
23104
1601
5824

SCOPEC
SETUP
SET1
SET14
SET2
SET3
SET4
SETS

012062
000652
004542
003260
004330

1097
1846
23484
6554
1376
1165
1333

SPACE
SPACEX
SRVC
SRVC1
SRVC2
SRVC2A
STACK
STADD
SUBT1
SUBT2
SUBT4

011542
011572
5634
007070
007132
007140

003106

1128

SET?7

004116
003704
003472

016115
016205
016231
016264

1682

1685

1688

736*
1057=
1152+«

955
1061«
1176«
1265«
1392

956%
1077«
1177
1269+«
1396

991«
1078
1178+
1305+
1398+

2125«

2127«

2357«

1073

22708

2274

1264*

1391+«
1577%
1820«

~
~N

—_

» %2

—_—

— e e B ed
)
=
OEWN=ONROO
SN0 SN = NI
N=UNNOOR
=00 O

§N—'O ga‘

N~
NN

1679

PTOFF

1412+
1602+
1610«

999«

1179«
1306

bbb adadad

1100«

—

= 177776

011574
000646
011734

N=&8

006540
001714
012544

6814
1577#
1587
873
2406
22834
6534
1133
2209
S7o#
999

PSR

000764
005546

1748
1597

NOTRP
NOTRP1
NXCRD
OFF6
ouT
PRINT
PROC
PROCT

006632
006412

N =t
-0

NOTCD1
NOTCOL

SEQ 0062

21334
2129+

2358

2360*

23644

81
1302

857
1345
2065

897
1388

952
1408

994
1427

1686

2210

2213

2216

747
1216
1937

769
1259
1992

2117

2149

1672

1677

1680

1683

622

626

629

6344

1545

1290
1247
1204

666
2273«
1584
1805
1815
1822
618
2118
672
1842
2116

2277#

2219

CZCRACO CR11 DIAG YSTS MCV" 30A(1052) 27-SEP-79 09:50 PAGE 65
CZCRAC.P11
26-SEP=79
15:13
CROSS REFERENCE TABLE == USER SYMBOLS
SUBTS
016307
SUSWR
012560
SUSWRR= 104005
SWR
000616

2148
24478
S86%
W
5‘:}

3032#
2498
660
675
2066

SWREG
SWREQ
TCSR
TOBR
TEND
TEST
TESTA
TESTB

614
2407
6398
64O
1569«
674
1844
1877#

675
3002#
2248
2050%
1573«
682
18464

000176
016055
000612
000614
006644
001012
007234
007372

TESTC
TESTD
TESTE
TESTF
TESTG
TESTX
TEST1
TESTIA
TESTI0
TESTI1

007522
007654
010130
010276
01
010676
001020
001022
002402
002524

19064
19374
1992#
20254
1988
627
689F
688
10234
1051#

TEST13
TESTI4
TESTIS
TEST16
TEST17
TESTI8
TEST19
TEST2
TEST20

002706
003120
003272
003504
003716
004130
00434
001116
004554

10974
17112
1156
1188
1231
12764
1317
709
1360

TEST22

004754

TEST12

TEST21

TEST23
TEST24
TESTS

TEST4

TESTS
TEST6
TEST?
TEST8
TESTO

TIB
TIFLG
TIM2
TINTI0

005062
005266
001242

001324

001454
001610
001742
002126
002276

14084

1449#
1460
740

756

8134
826
883
911
965

TINT12

002670

1076

TINT14
TINTIS
TINT16
TINT17

003216
003410
003622
004034

00302

1560
2222

1566
2284

1579
2304

1642
2349

1644
2351

1690
2403

1721
2450

1560

2403

2409

2454

2460

2270
207cx
1619
688N
2070

229
2096
1755#

2300
2302+

2325
2327«

2368«
2375+

2373
2383

2381
2390+

2393+

2388

2391
2418+

2071

2109

2110

111
1167
1190
1233
1276
1319
7164
1362

1119
1169
1195
1238
1281
1326

1136
1173#
1210
1253
1296
1339

1136

11424

1212
1255
1298
1341

1216
1259#
13024
13454

1367

1382

1384

13884

1467
7474

1474

1481

1488

1495

1503

1509

15124

762

764

766

769

B4D
886
923
970
2417+«
2472
15
1037#

BS7A
888
927
978
2418
2476+

890
937
9%
2419«

8%
942

B9
946

954

2420

2425

2429

2431%

20654
2115#
2364
690#

14274

645#
64ell
1525
1026

TINT1S

1546
2200

1073#

000626
000624
005352
002464

TINTT1

683
2123

SEQ 0063

1054

1099
1146
1175
1218
1261

10654

1083#

11204
11574
1196#
1239
12824

2427

2435

1729
2454+

1767
2460

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

004246

TINT19 004460
TINT20 004634
TIT
= 104007
TITL
016143
TITTYP 012706
TM,
2
TNINT
004

TOTCRD
TOTERR
Tout

011430
011426
012152

TRAPX
TRFLG
TRP1

000774
000644
005556

TRTRAP
TSTA
TSTART
T2INT
T2INTA
WAIT9

XL
.

007214
2
005020
005044
002334
011002

= 016342

SEQ 0064

1304
1347
1390
588#
2474
24728
634

1325#
13684
1400#
671
30124
2500
2121

1841

2115

2147

2153

2613%

2432«

2433%

2434%

2435«

2462%

2463%

2464*

2465

2481

2155«
2156
659
1868
1947
2030
2260

2163«
2198«
1131
1870
1952
2032
2262

2217
2220
1207
1880
1974
2034
23684

22304
22294
1250
1882
1979
2049
2408

1293
1892
1981
2051
2612

1336
1897
1995
2076
2423

1379
1899
1997
2081
2442

1634
1912
1999
2083
2475

1636
1914
2001
2102

1663
1927
2013
2104

1665
1929
2015
2119

1853
1940
2017
2151

1855
1942
2028
2206

679

1549+«

1575

1728+

1621

1734

17544

S99

602#

6064

6124

6174

6254

6334

695

697

701

799

801

802

1730
1833
1925
1987

1764
1851
1933
2005

1774«
1859
1945

1775
1862
1950
2010

1777
1866
1956
2021

79
1874

1781
1886
1962
042

1788
1889
1964
2046

1796
1895
966
2055

1812
1903
1968
2079

1819
1910
1971
087

1826
1918

1411

680
6524
1576

14214

1839
1568+«
1430
1438
1007#
2129

6834
668+
1579#
6514
18414
1572«
14374
16434
1010
21314

724

727

598

1722
1
1921
1985

729

731

733

735

1960
2038

789

793

796

707

713

1977
2090

C2CRACO CR11 DIAG TSTS MACY11 30A(1052) 27-SEP=79 09:50 PAGE 68
CZCRAC.PN
gfi-SEP-Tg 15:1;
CROSS REFERENCE TABLE == MACRO NAMES
COMMEN
ENDCOM

\LJ
e

E&%’E 109;':
0%
»

MULY
NEWTST
POP

i
»
»
T
1L
1LJ
1L
1L
»
1L
»
»
»
»
»
»
»

.SETUP
- SWRHI
LSACT
.SCATC
-SCMTA

tE
1L
1L4
»
1L4

.
.

.SDIV
.SEOP
-SERRO
.SERRT
LSMULT
- SPOME
- SRAND
- SRDDE
-SRDOC
-SREAD
-SSAVE
.$582D
-$5820
.$SCOP
.SSIZE
-SSUPR
.STRAP
.STYPB
.STYPD
-STYPE
$TYPO

1215

1258

1301

1344

»
»

PUSH
SETUP
SKIP
SLASH
STARS
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SSESCA
SENEWT
$$SKIP
-EQUAT
-HEADE
KT

172

SEQ 0065

1
»

1L
»
T
»
»
»
1L
#
»
»
»
»
#
1L
104
1L
1#
1#
1#
1#
Car

’

CZCRACO CRYY
CZCRAC.PI
. ABS.

—

DIAG
;g MCY;\ SOA(WSZ)

016342

ERRORS DETECTED:

000
O

ClCMC.B!NélStA(.LSTICRFIS&M:TOC=CZCRAC.SML,CZCRAC.P11
RUN-TIME :
S
RUN-TIME RATIO:

CORE USED:

25K

764=4.6

(49 PAGES)

27-SEP-79 09:50 PAGE 69
S REFERENCE TABLE == MACRO NAMES

SEQ 0066