Digital PDFs

AH-8403D-MC

June 1980

66 pages

Original

3.9MB

view download

OCR Version

3.8MB

view download

Document:	CZCDAD0 CD11 CD11 CRD READER DIAG JUN 1980 bw
Order Number:	AH-8403D-MC
Revision:	000
Pages:	66
Original Filename:	CZCDAD0__CD11__CD11_CRD_READER_DIAG__AH-8403D-MC__JUN_1980_bw.pdf

OCR Text

CD 11 CRD
CZCDADO

FICHE 1 OF1 mecivas=~ ElBE HInEL

READER DIAG AH-B403D-MC

“memmco:s

OVONANE
NN =2OV0O NN
N
85
N POPNIND P cad ok = ed =D o
NN[e

b b

~NA
[ale)

0 (D11 CARD READER DIAG
26-MAR-80 11.18
L1

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 1

REM *

IDENTIFICATION

PRODUCT CODE:

AC-8402D~-M(

PRODUCT NAME:

CZCDADO (D11 (ARD READER DIAG

PRODUCT DATE:

MAR 1980

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
ION.
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORAT
ERRORS
ANY
FOR
Y
SIBILIT
RESPONS
NO
ASSUMES
DIGITAL EQUIPMENT CORPORATION
THAT MAY APPEAR IN THIS DOCUMENT.

AND
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER LJ)CENSE
LICENCE.
SUCH
OF
TERMS
THE
WITH
NCE
ACCORDA
IN
COPIED
MAY ONLY BE USED OR
OR
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
DIGITAL.
BY
SUPPLIED
NOT
IS
THAT
NT
EQUIPME
ON
RELIABILITY OF ITS SOFTWARE
COPYRIGHT (C) 1972, 1980
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASSACHUSETTS 01754

SEQ 0001

CZCDADO (D11 CARD READER DIAG

CZCDAD.P11

26-MAR~8C 11:18

MACY11 30A(1052)

1.0

26-MAR-80

11:21

PAGE 2

ABSTRACT

THIS PROGRAM IS TO BE USED AS A CARD READER DIJAGNOSTIC FOR
THE PDP-11 WITH THE (D11 CARD READER INTERFACE TO THE
DOCUMATION M1000 OR M1200 PUNCHED CARD READER. 1T TESTS ALL

FUNCTIONS OF THE CARD READER, AND INCLUDES AN
LOGIC
SEPARATE
EXERCISER FOR ALPHANUMERIC AND BINARY TEST DECKS.
OF THE
NS
FUNCTIO
SENSING
ERROR
THE
STARTING ADDRESSES ALLOW
R
ANOTHE
.
CHECKED
BE
TO
READER
M1200
DOCUMATION M 1000 AND
COLUMNS
ALL
HAVE
WHICH
DECKS
SPECIAL
STARTING A <ESS TESTS
CHED IDENTICALLY, TO AID IN DIAGNOSING SPECIAL
Sggefgfigs

2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11/ STANDARD COMPUTERS
(D11 CARD READER
2.2

TEST DECKS

MAINDEC-89-D2A1-C ALPHANUMERIC TEST DECK
MAINDEC~89-D2A2-C BINARY TEST DECK
SPARE CARDS FOR THE ERROR FUNCTION TEST
2.3

STORAGE

THE ROUTINE LSES MEMORY 0 TO 16100.
3.0

LOADING PROCEDURE

PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED.
4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

BASIC SWITCH REGISTER SETTINGS ARE:
SW15=1 OR UP---HALT ON ERKOR
SW14=1 OR UP---SCOPE LOOP
SW13=1 OR UP---INHIBIT PRINT QUT

SW12=1 Ok UP---INHIBIT TRACE TRAPPING

SEQ 0002

W20

MACY11 30A(7052)

PAGE 3

SEQ 0003

HANG
MAY
PROCESSOR
THE
THAT
(NOTE
EMPTY
GOES
HOPPER
LEGITIMATELY WHEN THE INPUT
IF SW7 IS SET)
CTION
SW06=1 OR UP---RETURN TO THE BEGINNING OF THE INSTRU
R
ANOTHE
TO
DECK
ONE
FROM
TEST WHEN CONTINUING
SW05=1 OR UP=--HALT BETWEEN TEST DECKS
(SEE 5.2.1 FOR EXPLANATION OF SW5=0)
SW04=1 OR UP--~RUN THE BINARY TEST DECK
SW03=1 OR UP---RUN IN IMAGE MODE ONLY
SW02=1 OR UP---RUN IN PACKING MODE ONLY

4.2

STARTING ADDRESSES

200 = INSTRUCTION AND DATA TEST
210 = ERROR FUNCTION TEST (M1000)

220 = SINGLE SUBTEST LOOP
240 = READ SINGLE DATA PATTERN TEST

NONI A NUNINY = —b 3

11:21

SW07=1 OR UP---LOOP THRU THE INSTRUCTION TEST PORTION

250 = ERROR FUNCTION TEST (M1200)

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3

INSTRUCTION AND DATA RELIABILITY TEST (SA 200)
LOAD PROGRAM INTO MEMORY.

LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER.
PRESS RESET ON THE CARD READER.

SET SWITCH REGISTER TO STARTING ADDRESS.

W= O 0O NOWVNE NN 2OV
~
A%,]
BIRAR

LOAD ADDRESS.

SET SUITgIgE_’S( (SEE 4.1)~ALL DOWN FOR WORST CASE,

W WP

) wd

Y. Y3y s
[ XY, P AV 1,N} -0

—

26-MAR-80

SW11=1 OR UP=--=INHIBIT SUB-PROGRAM ITERAT]ON

b ek —d b b

-a—d—d_a—b—o_n.a—Q—A—J_A—b_n—)_n—b-d_;-d—l—a—l—c—n—o—a—a—a—l-.l—l—l—a-a—n_a—-l—l—l—a_‘

BSARIARIAC2BLBIRERES

CZCDADO (D11 CARD READER DIAG
26-MAR-80 11:18
(2CCAD.P11

ALPHA

TEST

PRESS START.

WHEN THE INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING
FOR AN INTERRUPT FROM THE CARD READER. LOAD ONE OR
PRESSING
MORE TEST DECKS INTO THE INPUT HOPPER.
PROGRAM
CAUSE
SHOULD
READER
CARD
THE
ON
"RESET'
EXECUTION TO RESUME.

THIS ENTIRE SEQUENCE IS NECESSARY TO RUN THE
THE CARD READER.

4.3.2

ERROR FUNCTION TEST (SA 210 OR SA 250)

FULL

TEST

STARTINGRIE\RBFE?SSS 210 FOR M1000 READER AND 250 FOR M1200
LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER (DO NOT LOAD A
TEST DECK=THIS 1S DESTRUCTIVE!)

ZCDADO D11 CARD READER DIAG

26~-MAR-80 11:18

MACY11 30A(1052)

A NANISD ANV SRR

e d - d —d D ) D D s D D e e d

LOAD THE STARTING
OPTIONS.

ADDRESS,

THEN

SET

4£.3.3

SINGLE SUBTEST LOOP (SA 220)

LOAD CARagP'gESARE CARDS OR

TEST

THE

INTO

DECK)

INPUT

PRESS ‘RESET'' ON THE CARD READER.
LOAD THE STARTING ADDRESS.
PRESS START.

AT THE 1ST HALT; LOAD THE STARTING ADDRESS OF THE
TEST (ADDRESS OF THE SCOPE INSTRUCTION

DESIRED
AT THE

PRESS CONTINUE.

(BIT

BEGINNING OF THE TEST.)

AT THE %S’T‘Al(_); SET THE

SWITCH

OPTIONS

PRESS CONTINUE.

6.3.4

SINGLE DATA PATTERN TEST (SA 240)

A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS
ANY DATA PATTERN MAY BE USED, BUT IT MUST BE
TEST.
IDENTICAL IN ALL 80 COLUMNS OF ALL THE CARDS (I.E.

=D md

ONLY ONE PIECE OF DATA).

LOAD THIS PREPARED DECK INTO THE INPUT HOPPER.
PRESS CARD READER ‘RESET''.

b e

LOAD SA 240.

PRESS START.

USED IN SW11-Sw00.

PATTERN

DATA

AT THE INITIAL HALT SET THE CARD IMAGE OF THE
PRESS CONTINUE.

h v

ON THE SECOND HALT LOAD THE DESIRED SWITCH SETTINGS.
PRESS CONTINUE.

WHEN THEBEQED READER RUNS OUT OF

b ed

201

202

SWITCH

DESIRED

THE

FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT.

CARDS

WILL

RELOADING THE DECK AND PRESSING 'RESET'' ON THE
WILL CONTINUE THE TEST.

88 YRR

SEQ 0004

PRESS STAR:.

BRIRRRAR LB ISV

i rd d e e i e ) i D i o D D
NNNNNNNYNVNOR

PAGE 4

RING

CARD

5.0

OPERATING PROCEDURE

5.1

OPERATJONAL SWITCH SETTINGS

5.1.1

AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST)

b e o

PRESS 'RESET'' ON THE CARD READER.

AR AV Mt A 3Ll

(o)

ICDAD.P11

C
C

26-MAR-80 11:21

THE

READER

94 (DADO (D11
Q2 COAD.P1Y

CARD READER DIAG
26~MAR~80 1:18

MACY11 30A(1052)

26-MAR-80

11:21

PAGE S

SEC 0005

SEE 4.1

NN [LS1,S1aV],
V1,V 1, VT, ST, §Y,N 1.\
b
(AN 1AV 1,8 1,N],¥] —— b cad D b e d
BN
2000 NN
NN =

210

5.1.2

AT SA 210 OR SA 250 (ERROR FUNCTION TEST FOR CD11)
SW14=1 TO LOOP THRU THE CURRENT SUBTEST
SW15=1 TO HALT ON ERROR

5.1.3

AT SA 220 (SINGLE SUBTEST LOOP)

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST
2ND HALT - SET SR OPTIONS (BIT 11 MUST=0)
SEE 4.1 FOR SR OPTIONS

5.1.4

AT SA 240 (SINGLE DATA PATTERN TEST)

1ST

HALT-LOAD

THE

CARD-IMAGE

SW11-SW00.
2ND HALT-SET SR OPTIONS.

THE

DATA

PATTERN

SW15=1 TO HALT ON ERROR
SW03=1 TO TEST IMAGE MODE ONLY
SW02=1 TO TEST PACKING MODE ONLY
5.2

SUBROUTINE ABSTRACTS

5.2.1

BEGIN (SA 200)

THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY THE DATA
RELIABILITY TESTS ON THE REMAINING CARDS IN THE FIRST TEST
DECK. AT THE END OF THE DECK THE BELL WILL RING, AND IF
SW5=1 THE PROGRAM HALTS. IF SW5=0, PROGRAM ACTION DEPENDS
IF THERE ARE STILL
ON THE NUMBER OF TEST DECKS LOADED.
WILL RUN THE DATA
PROGRAM
THE
CARDS IN THE INPUT HOPPER,
INPUT HOPPER IS
THE
IF
RELIABILITY TEST ON THE ENTIRE DECK.
RUN A SET Of
WILL
M
PROGRA
THE
EMPTY AT THE END OF A DECK,
TESTS, IT
THESE
OF
END
THE
AT
TESTS OF OFF-LINE OPERATIONS.
FURTHER
E.
ON-LIN
BACK
PUT
BE
TO
WAITS FOR THE CARD READER
AND
ONS,
OPERATI
ON-LINE
TO
CHECKS ARE MADE OF THE OFF-LINE
DECK.
ENTIRE
THE
ON
RUN
IS
THEN THE DATA RELIABILITY TEST
ON
IF Sw5=1, HITTING CONTINUE WILL RESUME PROGRAM OPERATIfOR
DOWN,
WERE
S
SWITCHE
IF ALL OTHER
AFTER THE HALT.

EXAMPLE, THE DATA RELJABILITY TEST WOULD THEN BE RUN ON THE
?EJXZ 1DECK. THE OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED

5.2.2

SCOPE

C Z COADO (D11
C l (DAD.P11

26~MAR-80 11:18

MACY11 30A(1052)

5.2.3

HLT

THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME
OF FAILURE. THE CONTENTS OF THE PROCESSOR STATUS REGISTER,
NOTE
AND THE CONTENTS OF THE CARD READER STATUS REGISTER.
HLT
THE
OF
S
ADDRES
THE
BE
WILL
R
COUNTE
ng TLSE LOCATION
5.2.4

TTRAP

THIS ROUTINE ALLOWS THE TRACE BIT 70 BE SET AFTER THE FIRST
LOOP OF THE PROGRAM. THE TRACE BIT WILL BE SET ON ALTERNATE
LOOPS OF THE INSTRUCTION AND DATA TEST UNLESS SWi2 IS SET.
THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS AN 'RTI'
THIS CONTINUES
WHICH RETURNS TO THE INTERRUPTED SEQUENCE.
UNTIL THE END OF THE PROGRAM LOOP IS REACHED.

5.2.5

TRAPCATCHER

THIS IS A SERIES OF

INSTRUCTIONS

STARTING

LOCATION

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

EACH VECTOR ENTRANCE ADDRESS 1S 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

23
BRERIR
b o

HWN=0O

SEQ 0006

ITERATION OF SUBTESTS.

301
3C2
303

— ot

11:21

REQUESTED, IT WILL JUMP TO THE START OF THE SUBTEST THAT THE
NOT
IF SCOPE_ LOOP IS
SCOPE LOOP IS REQUESTED FOR.
BEFORE
SUBTEST
THAT
ON
N
REQUESTED, THERE WILL BE 1 ITERATIO
THE NEXT SUBTEST IS ENTERED. SWITCH 11 ON A 1 INHIBITS

297
298

NN NN

26-MAR-80

PAGE 6

THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE
IT RECORDS THE STARTING ANDRESS OF
INSTRUCTION SECTION.
EACH SUB-TEST AS IT IS BEING ENTERED. [F A SCOPE LOOP IS

259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
N
292
293
294
295

CARD READER DIAG

HALT AT THE TRAP LOCATION PLUS TWO.

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

ERCD11 (ERROR FUNCTION TEST)

THE FIRST SUBTEST OF THE ERROR FUNCTION TEST (TESTA) CHECKS
THE REST OF THE SUBTESTS CHECK THE
THE DATA LATE ERROR.
OPERATION OF THE VARIOUS ERROR SENSING FEATURES OF THE

CZCDADO €D11 CARD READER DIAG

CZCDAD.P11
315
316
32

319
3.0
321
322

323

26-MAR-80 11:18

MACY11 30A(1052)

5.2.7

5.2.8

337
338
339
340
3%
342
343
344

TESTX (SINGLE TEST LOOP)

70 BE RUN_ CONTINUOUSLY
THIS ROUTINE ALLOWS A SINGLE SUBTESTSCOPE_L
OOP SWITCH OPTIONS
A
WHILE
S.
PURPOSE
FOR SCOPE LOOP
TEST _IN WHICH
THE
WITHIN
ARE
YOU
THAT
ES
REQUIR
IT
EXISTS,
AS WITH INTERMITTENT
YOU WiSH TO LOOP. IN SOME CASES (SUCH SUBROUT
INE ALLOWS YOU
FAILURES) THAT'S NOT EASY TO DO. THIS TEST1 THRU
TEST22 AND
ANY TEST FROM
T0 LOAD THE ADDRESS OF HALT
TO THAT
LY
AND THEN GO DIRECT
TESTA THRU TESTH AT THE
CKSAME (SINGLE DATA PATTERN TEST)

LT
THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OFCARDDIFFICU
READER
DATA ERROR PROBLEMS AND FACILITATE SOME
~ALL
ADJUSTMENTS. 1T CONTINUOUSLY READS CARDS WHICH HAVE
BE
COLUMNS PUNCHED IDENTICALLY (AND ALL CARDSSETMUST
ON
IDENTICAL), CHECKING THE DATA AGAINST A PATTERN OUT "UP~ALONG
ARE PRINTED
THE SWITCHES INITIALLY. ANY ERRORSCARDS
READ AND THL TOTAL
OF
NUMBER
TOTAL
THE
OF
COUNT
A
WITH
NUMBER OF DATA ERRORS WHICH HAVE OCCURRED SINCE THE TEST WAS
STARTED.

346

347

PAGE 7

TEST.

332

CARD READER
DOCUMATION M1000 AND M1200 CARD READER.
FULL, PICK
R
STACKE
OFF-LINE, INPUT HOPPER EMPTY, OUTPUT
.
CHECKED
ARE
ERROR, STACK ERROR., AND READ ERROR

325
326
327
328
329
330
331
33

26-MAR-80 11:21

5.3

PROGRAM AND/OR OPERATOR ACTION

350

5.3.1

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS WORST
MERIC DECK SHOULD BE RUN.
CASE TESTING. A SINGLE ALPHANU
A DATA
THIS EXECUTES AN INSTRUCTION TEST FOLLOWED BY
MADE OF
ARE
RELIABILITY TEST. AT THE END OF THE DECK CHECKS
THE PROGRAM
THE FLAG SETTINGS WHICH SHOULD BE AFFECTED, ANDBACK
ON-LINE.
WAITS FOR AN INTERRUPT FROM THE READER COMING
LOAD ONE OR
AT THE END OF THE FIRST DECK THE OPERATOR SHOULD ON
THE CARD
MORE DECKS IN THE INPUT HOPPER AND PRESS 'RESET''
READER. IF THE CARD READER IS WORKING PROPERLY, THE ENTIRE
PORTION OF THE
DECK WILL BE RUN THRU THE DATA RELIABILITY HOPPER
IS NOT
TEST. 1IF, AFTER READING 80 CARDS, THE INPUT

351
352
353
354
355
356
357
358
359
360
361

DECK. SWITCH
EMPTY, THE PROGRAM WILL CONTINUE TQO THE NEXT
OPTIONS MAY BE USED T0 ALTER THIS FLOW AS NOTED IN SECTION

362
33

367
368
369
370

5.3.2

IT CONTINUOUSLY,
TO GO DIRECTLY TO A SINGLE SUBTEST AND RUN SWITCH
REGISTER TO
USE SA 220. AT THE FIRST HALT, SET THESUBTEST
(I.E. ~ THE
THE STARTING ADDRESS OF THE DESIRED
ADDRESS OF THE SCOPE INSTRUCTION AT THE START OF THE TEST),

SEQ 0007

2 (DADO (D11
94 C(DAN.P11

CARD READER DIAG
26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 8

SEQ 0008

AND CONTINUE. AT THE SECOND HALT, SET THE DESIRED SWITCH
THE
REGISTER OPTIONS AND CONTINUE (SW11_ MUST BE D= 0).
T
SUBTES
DESIRE
THE
THRU
LOOP
UDUSLY
PROGRAM WILL CONTIN

37
372

373
374
375

UNTIL SW11 IS SEi OR THE PROCESSOR IS HALTED.

376

377
6.0

ERRORS

6.1

ERROR PRINTOUT

6.1.1

STANDARD PRINTOUT

PRINTOUTS ARE IN A THREE-WORD FORMAT. THE FIRST IS THE P(+2
OF THE DETECTED ERROR. THE SECOND IS THE CONTENTS OF THE
THE
PROCESSOR STATUS REGISTER WHEN THE ERROR WAS DETECTED.
THIRD IS THE CARD READER STATUS REGISTER.

6.1.2

DATA ERROR PRINTOUT

THE

THE HEADING IS PRINTED OUT ONCE PER TEST DECK.

HAVE THE FNLLOWING SIGNIFICANCE:

COLUMNS

DECK

gsi}gERl. ALPHANUMERIC

SINARY,

DEPENDING

CARD

SZ‘}'/E\L():ARD NUMBER WHERE THE

FAILURE

OCCURRED

(IN

COLUMN

=THE COLUMN NUMBER WHERE THE FAILURE

OCCURED

(IN

READ

=WHAT

SHOULD HAVE BEEN READ
RRECT CARD DATA THAT
PATTERN g(T:LQLéO
WAS ACTUALLY READ INTO CORE
DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE:

—h ol el

i e

el cndh b

'J\\Jbbbbbbbl\
[» R NTe SV, B_JV¥,N]
—

SWO4 NOT SET TO TYPE OF DECK USED

CARD DECK OUT OF PROPER SEQUENCE

H
~N

D.
6.1.3

CARD MISSING

DAMAGED CARD

SINGLE DATA PATTERN PRINTOUT

THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING ONCE.
COLUMNS HAVE THE FOLLOWING SIGNIFICANCE:

COLUMN

READ

CARDS

ERRORS

THE

=THE COLUMN NUMBER WHERE THE FAILURE OCCURRED.
=DATA THAT WAS ACTUALLY READ INTO CORE
=THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE

BEEN RUN SINCE THE TEST WAS STARTED.

=THE TOTAL NUMBER OF ERRORS
SINCE THE TEST WAS STARTED.

DETECTED

(IN OCTAL)

94 (DADO

(D11 CARD READER DIAC

94 CDAD.P11

26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 9

SEQ 0009

627
428
429
430
431
432

433
634
435
436
637
438
439
440
441
442
443

444
445
446
447
448
449
450
45
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
74
472

6.2

IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND
IF THE ‘“ALT ON ERROR'' SWITCH IS SET, HITTING
CONTINUE.
CONTINUE WILL RECOVER. IF THE PROGRAM HANGS UP IN A LOOP,.
THE ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED
IF A HALT OCCURS IN THE TRAP AND VECTOR_ AREA THE PROGRAM
MUST BE RESTARTED. IF THE PROGRAM HALTS IN THE MAIN FLOW.
CONSULT THE LISTING IF NO MESSAGE IS TYPED OUT.
7.0

RESTRICTIONS

7.1

STARTING PROCEDURE
NONE

7.2

7.2.1

4«80
481
482

OPERATIONAL RESTRICTIONS

COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200)
IF A STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE TEST.
THE PROCESSOR MAY HANG WHEN THE INPUT HOPPER GOES EMPTY, AND
THIS IS NOT TO BE REGARDED AS A FAILURE.

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

ERROR FUNCTION TEST (SA 210 OR SA 250)

THE EPROR FUNCTION TEST REQUIRES SPARE CARDS,

BENDS

PREPARED.

ALL

ALSO, TO RUN THE DARK-LIGHT CHECK, A CARD MUST BE
SEVERAL.
SPECIALLY PREPARED. THE TEST WILL TYPE OUT A REQUEST FOR
(T)??TONENERRDUHEN IT IS NEEDED. TO MAKE IT, TEAR CONE CORNER

473

474
475
476
W77
478

ERROR RECOVERY

7.2.3

SINGLE DATA PATTERN TEST (SA 240)

A SPECIAL DECK (ONE OR MORE CARDS) MUST

COLUMNS

ALL CARDS ARE PUNCHED IDENTICALLY, USING A DATA

PATTERN WHICH WILL TEST THE PROBLEM BEING DIAGNOSED.

11 CARD READER DIAG

26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 10

SEQ 0010

MISCELLANEOUS

EXECUTION TIME

NOT APPLICABLE

CARD DECK DESCRIPTION
ALPHANUMERI C

REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG

ALP(D

IN THE LISTING FOR THE IMAGE CODES PUNCHED FOR EACH OF THE
80 COLUMNS OF THE FIRST CARD. THIS IS FOLLOWED BY THE TABLE
OF THE PACKED FORM OF THE EACH SUCCESSIVE CARD IN THE DECK
Uéf_? THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE

UNWAAWNNAVNA

BINARY

REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD
80
IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF THEEACH
DECK
COLUMNS OF THE 1ST CARD. AS WITH THE ALPHANUMERIC
SUCCESSIVE CARD HAS THE SAME SEQUENCE OF CODES ROTATED ONE
COLUMN TO THE LEFT, AND THE TABLE FOR PACKED DATA FOLLOWS IN

ANV

) b b d e ek d =D — =
= OV~
W nN—=2O

LEFT.

SPECIAL NOTES

THF SAME FASHION.

IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD,
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER.
TESTING CD11°S WITH NON-STANDARD ADDRESSES

BY SUBSTITUTING
“CDBA''

THE

INTG

ADDRESSES

ASSIGNED NON~STANDARD

THE
OF

LOCATIONS

‘'CDSi'’,

'‘'CDCC’’,

\h\hm\h\h&\.fl

gt
NV vy

531

ECC HISTORY

CHGDT ~ MODIFIED ALPCD AND BINCD TABLES FOR CORRECT CARD
COMPARISON PURPOSES.

AND

THESE REGISTERS OF A CARD READER

C LCDADO (D11
C ICDAD.P1

539
540
561
542
543
544
565
546

CARD READER DIAG

26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 11

TITLE CZCDADO CD11 CARD READER DIAG
:DIAGNOSTIC FOR THE CD11 CARD READER

BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
1COPYRIGHT 1973, 1979
CHAPMAN
; PROGRAMMER:

KEN

SUB MALLICK (CHANGED FROM REV A TO REV B )
LEN LORANGER (CHANGED FROM REV C TO REV D)

547

548
549
550
551

552
553
554
555
556

557
558
559

;STARTING ADDRESSES ARE:

200=INSTRUCTION AND DATA TEST FOR THE (D11
210=ERROR FUNCTION TEST OF (D11 (M-1000)
220=SINGLE TEST LOOP

240=READ SINGLE DATA PATTERN TEST
250=ERROR FUNCTION TEST FOR (D11 (M-1200)

;SWITCH REGISTER

SETTINGS FOR THE INSTRUCTION AND DATA TEST ARE:

SW02=1 RUN IN DATA IMAGE MODE ONLY

SW03=1 RUN IN DATA PACKING MODE ONLY (IGNORED IF SW02=1)
SW04=1 FOR THE BINARY TEST DECK
SW05=1 TO MALT AT THE END OF A STANDARD

80 CARD
TEST DECK.(HITTING CONTINUE WILL START TESTING
OF THE NEXT DECK IN ACCORDANCE WITH CURRENT

560
561
562

SWR SETTINGS).

563

-0 TO CONTINUE FROM ONE DECK TO THE NEXT.
AFTER THE LAST DECK IN THE HOPPER 1S
RUN, THE PROGRAM WAITS FOR THE CARD READER
TO (OME BACK ON-LINE,AND RUNS THRU
A SERIES OF CHECKS OF OFF=-LINE AND
COMING ON-L INE OPERATIONS OF THE READER.
WHEN THE READER IS BACK ON-LINE AND THE
CHECKS ARE COMPLETE, THE DATA TEST IS RESUMED.
Swo6=1 TO RUN THE COMBINED INSTRUCTION AND DATA TEST
WHEN CONTINUING FROM ONE DECK TO THE NEXT

564
565
566
567
568
569
570
571
572

573
574

TO RUN ONLY THE DATA TEST ON EVERY DECK AFTER THE FIRST

SWO7=1 TO RUN ONLY THE INSTRUCTION TEST CONTINUALLY.

575
576
577
578

SETTING SWO6 AND SWO7 AT THE END OF A DECK WILL

CAUSE THE INSTRUCTION TEST TO BE RUN CONTINUOUSLY FROM THEN ON
(NOTE THAT IF SW7 IS SET, THE PROGRAM MAY HANG WHEN THE
CARD READER RUNS OUT OF CARDS)

sw11=1 TO INHIBIT SUBPROGRAM ITERATION

"witn

Sw12=1
Sw13=1
SW14=1
Sw15=1

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

TO INHIBIT TRACE TRAPPING

TO INHIBIT PRINTOUT
FOR SCOPE LOOP
TO HALT ON ERROR

;OPERAT! NG PROCEDURE FOR THE INSTRUCTION AND DATA TEST:

LOAD TEST DECK IN CARD READER AND PRESS '"'START'' ON_THE CARD

READER. IF THE DECK BEING USED 15 NOT A STANDARD TEST
DECK, ONLY THE INSTRUCTION PORTION OF THE TEST CAN BE RUN.
(SW7 MUST BE SET TO ONE TO INDICATE THIS).

LOAD SA 200, THEN SET THE SWITCH REGISTER SWITCHES TO THE DESIRED

SEQ 0011

MACY11 30A(1052)

PAGE 12

COMBINATION

NOTE THAT RUNNNG THE COMPLETE INSTRUCTION TEST
REQUIRES THAT THE INPUT HOPPER MUST RUN OUT OF CARDS
AT THE END OF A TEST DECK AT LEAST ONCE. WHEN THIS
OCCURS, THE PROCESSOR SHOULD CONTINUE TO RUN. LOADING

A DECK INTO THE INPUT HOPPER AND PRESSING ''START'' ON THE CARD
READER SHOULD CAUSE THE BELL TO RING AND THE CARD
READER TO RESUME READING CARDS. IF THIS DOES NOT OCCUR,
IT IS A FAULT AND SHOULD BE FIXED.

;SPECIAL

SWITCH REGISTER SETTINGS FOR THE ERROR FUNCTION TEST:

SW14=1 TO LOOP THRU THE CURRENT SUBTEST
SW15=1 TO HALT ON ERROR

:OPERATI?G PROCEDURE FOR THE ERKOR FUNCTION TEST: HOPPER.
3.

LOAD A FEW SPARE CARDS INTO THE INPUT
PRESS ''START'' ON THE CARD READER.
LOAD THE SA, THEN SET THE DESIRED SWITCH OPTIONS.

FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT.

.
.

PRESS '‘START'' ON THE CONSOLE.

; SINGLE TEST LOOP (SA 220) HALTS TWICE!

1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST ((EST1 TO TEST 24)

2ND HALT - SET SWR OPTIONS (BIT 11 MUST = O)
THIS TEST USES TRACE TRAPPING WHERE APPLICABLE IF SW12 IS NOT SET

;DESCRIPTION OF SINGLE DATA PATTERN TEST
ERROR
THIS TEST IS DESIGNED TO AID IN THE LOCATION OF DIFFICULT DATA
1T
ENTS.
ADJUSTM
PROBLEMS AND PERHAPS HELP IN SOME CARD READER
CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR MARKED
.

’

THE SWITCHES
IDENTICALLY. CHECKING THE DATA AGINST A PATTERN SET UP ON OF
THE TOTAL
COUNT
A
INITIALLY. ANY ERRORS ARE PRINTED OUT, ALONG WITH
HAVE
WHICH
ERRORS
NUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA
OCCURRED SINCE THE TEST WAS STARTED.

Wwno

:OPERATI?G PROCEDURE FOR SINGLE DATA PATTERN TEST:
LOAD TEST DECK OF IDENTICAL CARDS IN THE INPUT HOPPER, AND PUT
THE CARD READER ON-LINE.

— —d

PRESS '‘START'' ON THE CONSOLE

oo~(e SV F XV

) comd

amd

o~o~o~o~o~o«o~§§8§
NE o]
~

595
596
597
598
599
600
60
602
603
604
605

11:21

OPERATOR PROCEDURES

CZCDADO (D11 CARD READER DIAG
26-MAR-80 11:18

C2CDAD.P11

gb-MR-BO

LOAD SA 240, THEN PRESS ''START'' ON THE CONSOLE.
AT THE INITIAL HALT SET THE CORRECT CARD-IMAGE
DATA PATTERN IN SW11-SW00, THEN PRESS CONTINUE.
WHEN THE READER RUNS OUT OF CARDS IT WILL RING THE

BELL.

RELOADING THE DECK AND PRESSING ‘‘START'® ON THE CARD

READFR WILL CONTINUE THE TEST.

;STATUS AND
BIT
BIT
BIT
]

CONTROL REGISTER (CDST) BIT DESIGNATION

0
1
2

BIT 3

BIT &
BIT S
BIT 6

READ
DATA PACKING
BUSY

READER TRANSITION TO ON LINE

ADDRESS BIT 16
ADDRESS BIT 17
INTERUPT ENABLE

SEQ 0012

CICDADO (D11 CARD READER DIAG
26~MAR-80 11:18

CZCDAD.P11

651
65
65
654
655
656

MACY11 30A(1052)

BIT 7
BIT 8

;

BIT 11

;
;

000240
104000

1
PAGC 13

NON-EXISTENT MEMORY
DATA LATE

BIT 12
BIT 13

OFF LINE
END OF FILE (M1200 ONLY)

DATA ERROR

CARD READFR ERROR

BIT 15

ERROR

SWR=
PS=
NOP=

177570
177776

240

HLT=
SCOPE=
TYPE=

EMT
TRAP
10T

RO=
R1=

20
X1

pummMy=

ADINT=

(DS=
CbC=
$$¢=
SP=
PC=

.ABS

SEQ 0013

CONTROLLER READY
POWER CLEAR

BIT 9
B8IT 10
BIT 14

177570
177776

11:21

DEFINITJONS AND VECTOR ASSIGNMENTS

:
;

;
;

658
659

26-MAP-80

X3
x4
%g
X6
X7

s SCRATCH
s SCRATCH

;CONTAINS ADDRESS OF INTERRUPT VECTOR

:CONTAINS ADDRESS OF CARD READER STATUS REGISTER
:CONTAINS ADDRESS OF CARD READER COLUMN COUNT
:CONTAINS ADDRESS OF CARD READER BUS ADDRESS REG.
;STACK POINTER
;PROGRAM COUNTER

:TRAP CATCHER IS LOADED INTO LOCATIONS O THRU 377

.=0

:L?QD TRAP VECTORS FOR HLT AND SCOPE ROUTINES
TRTRAP

000014

000016

.=20

000020
000022

.=24

000024

000026

.=30

000030
000032

.=34

000034

340

$TYPE
340

POWR
340
PRINT

340

SCOPEC

340

000036

:Lgeg STARTING ADDRESS AREA
000200
000204

000500
000570

000210
000214

000500
006326

000220

000500

210

220

MOV

N#STACK, SP

BEGIN

:NORMAL STARTING ADDRESS FOR (D11 READER

MOV

#STACK, SP

:STARTING ADDRESS FOR (D11 (M1000) ERROR FUNCTION TEST

MoV

#STACK, SP

JMP

ERCDN

C DAPO

‘

(D11 CARD READER DIAG
26-MAR-80 11:18

000224

000167

000240

000240
012706

000244

000250
000254

MACY11 30A(1052)

011022

000167

000500
011112

000250
012706
000167

000500
006256

=240

26-MAR-80

PAGE 14

DEFINITIONS AND VECTOR ASSIGNMENTS
P

TESTX

;STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS

MOV

#STACK, SP

CKSAME

*STARTING ADDRESS OF TEST TO READ A SINGLE DATA

#STA(CK, SP

-STARTING ADDRESS FOR M=1200 ERROR FUNCTION TEST

.=250

11:21

MOV

JMP

SEQ 0014

ANY SINGLE SUBTEST

*PATTERN CONTINUOUSLY

ER1200

:LOAD POINTERS AND GENERAL STORAGE

.=500
STACK:

TPS:

177564

CDST:
CDCC:
CDBA:
TPB:

177566

;STACK POINTER INITIALIZED TO POINT HERE
;ADDRESS OF CARD READER STATUS REGISTER
;ADDRESS OF CARD READER COLUMN COUNT
;ADDRESS OF CARD READER BUS ADDRESS
;ADDRESS OF TELETYPE STATUS REGISTER
;ADDRESS OF TELETYPE DATA BUFFER

230

;ADDRESS OF CARD READER INTERRUPT VECTOR

177160
177162
177164

;RETURN FROM TRACE LOOP

TRTRAP: RTI

INTVC:

232
O
COUNT:
INTFLG: O
TRFLG:

ERFLG:

PROC:

;USED FOR TIMING, ETC.

:CONTAINS LEVEL THAT INTERRUPT IS FOUND AT

NORMAL FLO
:TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND BE
CLEARED
MUST
TRAP
TRACE
WHEN
*STORES PROCESSOR STATUS
;IN A SUBTEST
:SET TO ZERO TO OQUTPUT DATA ERROR HEADING

;FLAG FOR CHECKERBOARD DECK
;USED AS COUNTER IN TESTG
:M-1200 OR M~-1000 CARD READER DETECTOR

0
CKRF :
COUNTG: 0
(D1000: O

012767
016703
016704
016705
016702
016712
005077
005067
005067
012767
000207

000001
177726
177724
177722
177726
177724
177720
177720
177716
000340

011664

MOV
CLR

CLR
CLR

177160

INTVC+2 (ADINT) ;SET UF CD11 TRAP VECTOR

INTVC+2
INTFLG

TRFLG

MOV

#340,
17

MOV

#BEGIN.R ETURN
SETUP
X7,

RTS

: TO HALT
;INITIALIZE INTERRUPT FLAG
INITIALIZE TRACE FLAG
;SETUP PROCESSOR STATUS
;RETURN

.=1000

001000

012767
004767

:INITIALIZE CSR AND DBR PQINTERS
;SET ITEKATION MAXIMUM TC 1 ITERATION
#,
ITMAX
MOV
;SET UP STATUS REGISTER POINTER
cDS
CDST,
MOV
;SET UP COLUMN COUNT REGISTER POINTER
cDpC
cpeC,
MOV
;SET UP BUS ADDRESS REGISTER POINTER
CDA
CDBA,
MOV
;LOAD ADDRESS OF INTERRUPT VECTOR
ADINT
INTVC,
MOV

SETUP:

001000
177530

011432

BEGIN:

JSR

;SAVE RETURN FORP_POWER FAIL
;INITIALIZE POINTERS AND FLAGS

(ZCDADO (D11 CARD READER DIAG

CZCDAD P11

763

26~MAR-80 11:18
000004
000416
005767
00

MACY11 30A(1052)

015715
RESTRT:

177502

000340

176742

NOTRF:

010000

176524

:
TRAPX

000360

176722

012767

001064

011356

004767
000005
022713

011114

104400

001401
104000

RESET

BEQ

TST

BEQ

HLT

TST

BEQ

HLT

TEST2:

ZRER
-t Pt G

Pur o

00 00 0900 0o 00 0o O 0o

Jutr Gty

#360,

;TYPE OUT DIAGNOSTIC IDENTIFICATION
;GO TO INSTRUCTION TESTS
;CHECK FOR TRACE TRAPPING
;IF SET, TRACE TRAP
;1IF ZERO, CLEAR TRACE BIT
;GO TO INSTRUCTION TESTS
;CHECK SW12
;BRANCH IF SET TO CLEAR TRACE BIT
:SET TRACE BIT

X7,

CKOFFL

;SETUP
;SO ALL TESTS START WITH SCOPE
,CHECK FOR OFF-LINE SET

#200,

aC(DS

;CHECK FOR STATUS REGISTER BIT 7 SET

#TEST1A,RETURN

alDC
.+

aCDA
.44

;SEND OUT INIT
:BRANCH IF OK

:STATUS REGISTER NOT CORRECTLY INITIALIZED
;CHECK FOR COLUMN COUNT CLEARED
:BR IF 0K

;COLUMN COUNT NOT CLEARED BY INIT
;CHECK FOR BUS ADDRESS CLEARED
:BR IF 0K

;BUS ADDRESS NOT CLEARED BY INIT

SCOPE

SONLY BITS 1,4,5, AND 6 OF THE STATUS
;SET ALL BITS BUT O AND 8
#177376,aCDS
8IS
;ONLY BITS 1,4,5,6, AND 7 SHOULD BE SET
acDS
#362,
P
;BRANCH IF OK
.46
BEQ
;STATUS REGISTER DIDN'T CONTAIN 362
HLT

177376
000362

BEOQ

HLT

;BRANCH AFTER FAILURE

;BRANCH IF OK

;STATUS REGISTER DIDN'T CONTAIN 200

;SETTING ALL BITS SHOULD DO A POWER CLEAR
;SET ALL BITS OF THE STATUS REGISTER
#177777.,3CDS
MOV
;CHECK FOR ALL BITS CLEAR BUT 7
aCDS
#200,
cMP

177777
000200

BEQ

HLT

TEST3:

177777
177777

TEST3

:CLEARING STATUS REGISTER SHOULD CLEAR BITS 1,4.5. AND 6
;CLEAR BITS 1,4,5, AND 6
acDS
CLR
;CHECK FOR ALL BITS CLEAR BUT 7
(DS
#200,
MP

000200

104400

104000

MSG27
TEST
TRFLG
TRAPX
PS
#340,
TEST
#10000, SWR
NOTRP

:ABLE TO BE SET TO ONE AND READ BACK AS ONE

104000

012714
022714
001401

PAGE 15

ER ARE READ/WRITE
STEST THAT ONLY THE PROPER BITS OF THE STATUS REGIST
REGISTER SHOULD BE

104000

012713
022713
001401

TYPE,
BR
TST
BNE
MOV
B8R
BIT
BNE

MOV
TEST:
TEST1: SCOPE
TEST1A: JSR

000200

104400

805

CARD READER REGISTERS
:TEST FOR CORRECT INITIALIZATION OF ALL SCOPE
LOOP RETURN ADDRESS

005715
001401
104000

005013
022713
001401

11:21

LOGIC FUNCTION TESTS

MOV

005714
001401
104000

052713
022713
001402
104000
000413

26-MAR-80

.44

;BRANCH IF OK

*STATUS REGISTER DIDN'T CONTAIN 200

SCOPE

:TEST THE COLUMN COUNT REGISTER FOR READ/WRITE-ABILITY
;LOAD ALL BITS
#177777.,3CDC
MOV
;TEST 7O SEE IF IT CAN BE READ
#177777.,3CDC
cMP
BEQ

HLT

L+4

;BRANCH IF OK

;CDCC FAILED TO READ/WRITE

SEQ 0015

CZCDADO CD11 CARD READER DIAG

CZCDAD.PIY

26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

11:21

LOGIC FUNCTION TESTS

022713 000200
001401
104000
052713 000400
005714
001401

P
BEQ
HLT
BIS
TST
BEQ

#200,
.+6

acDS

#4600,
aCLC
.+4

aCDS

828 001224 022713 000200
829 001230 001401
gg? 001232 104000

cMe
BEQ

#200,
R

a(DS

819
820
322}
823
824
825

001202
001206
001210
001212
001216
001220

HLT

ggg 001222 104000

832

001234

HLT

TEST4:

104400

;COLUMN COUNT NOT CLFARED BY POWER CLEAR

;CDBA FAILED TO READ/WRITE

022713 000200
001401
104000
052713 000400
005715
001401

cMP
BEQ
HLT
BIS

#200,
R

aCbs

#4600,

aCDS

BEQ

.+4

848 001274 022713 000200
849 001300 001407
gg? 001302 104000

cMP
BEQ
HLT

TST

HLT

g‘i,? 001272 104000

852

853
854
855
856
857
858
859
860
861

001304

TESTS:

104400

aCDA

#200,
R

;CHECK STATUS REG
;BRANCH IF OK
:STATUS REG CHANGED
;D0 A POWER CLEAR

;CHECK FOR BUS ADDRESS CLEARED
;BRANCH [F OK

;BUS ADDRESS NOT CLEARED BY POWER CLEAR

acDS

;CHECK STATUS REG
;BRANCH IF 0K
;STATUS REG CHANGED

SCOPE

;START SHOULD CAUSE CONTROLLER READY WITHIN ABOUT 1 SECOND
:BIT O SHOULD ALWAYS READ AS BEING EQUAL TO ZERO
CKOFFL ;CHECK FOR OFF-LINE SET
X7,
JSR
001306 004767 010672
;SET UP COLUMN COUNT TO READ 1 COLUMN
aCDC
-1,
MoV
001312 012714 177777
;SET UP BUS ADDRESS
#BUFBEG,aCDA
MOV
001316 012715 016044
;STORE CURRENT PROCESSOR STATUS
PROC
PS,
MoV
001322 016767 176450 177200
;CLEAR TRACE BIT
PS
CLR
001330 005067 176442
;INITIALIZE COUNTER
COUNT
CLR
001334 005067 177162
;START READING A CARD
alDS
INC
001340 005213
;CHECK FOR CONTROLLER READY CLEARED

862 001342 105713
863 001344 100001
ggé 001346 104000
866
867
868
869
870
871
872
873
874

;CHECK STATUS REG
;BRANCH IF 0K
;STATUS REG CHANGED

SCOPE

HLT

g:’:}g 001250 104009
001252
001256
001260
001262
001266
001270

;CHECK STATUS REG
;BRANCH IF 0K
;STATUS REG CHANGED
;D0 A POWER CLEAR
;CHECK FOR COLUMN COUNT (LEARED
;BRANCH IF OK

;TEST THE BUS ADDRESS REGISTER FOR READ/WRITE-ABILITY
;LOAD ALL BITS
#177777 ,aCDA
MOV
;TEST 7O SEE IF IT CAN BE READ
177777 ,3CDA
cMP
;BRANCH IF OK
R
BEQ

833
83 001236 012715 177777
835 001262 022715 177777
836 001246 001401
839
840
&;
843
846
845

PAGE 16

001350
001354
001356
001360
001362
001366
001370
001376
001400

032713 000001
001402
104000
000421
005267 177134
001370
016767 177134
105713
100401

1STB
HLT

acDs

BIT
BEQ
HLT
BR
INC
BNE
MoV
1STB
BMI

n,
.46
TEST6
COUNT
LOOPS
PROC,
acDS
.t

BPL

LOOPS:

176400

;BRANCH IF 0K

.44

a(DS

;CONTROLLER READY DIDN'T CLEAR
;CHECK BIT O
;BRANCH IF NOT SET
;BIT 0 READ AS A ONE
:BRANCH AFTER FAILURE
;WAIT ABOUT
;RESTORE PROCESSOR STATUS
;CHECK CONTROLLER READY
;CONTINUE IF SET

SEQ 0016

C2CDADO (D11 CARD READER DIAG

CZCDAD.P11

26-MAR-80 11:18

MACY11 30A(1052)

878
879
880
881
%%

001410
001412
001414
001420
001422

104000
000404
032713 177577
001401
104000

884

001624

104400

001426
001432
001434
001440

004767 010552
005013
012714 177754
012715 016044

885
886
887
888
889
890
891
892
893
89

895

001444
001446
001452
001454
001456
001462
001470
001474
001476
001500

TST
8PL

005713
100002

005213
032713
001401
104000
005067
016767
005067
105713
100405
005367

HLT
BR
BIT
BEQ
HLT

TEST6:

000004

001534

104400

918
919
920
921
922
923
924
925
926

001546
001554
001562
001570
001574
001600
001604
001606
00161C

052767
016762
042767
012714
012715
012713
105713
100376
016267

927
928
929
930

001616
001622
001624
001626

000340 176222
176216 000002
000340 176206
177741
016044
000101

000002 176160

042713 000100
104000
000410
105713

aCDS
.+6

TESTO

#177577 ,CDS
R

;CONTROLLER READY DIDN'T SET WITHIN 1 SEC
;ERROR BIT SET
;CHECK FOR ANY OTHER BITS
;BRANCH IF 0K
JEXTRA BIT(S) SET

SCOPE

BEQ

HLT

915
916 001536 004767 010376
917 001542 012712 001626

PAGE 17

; (BIT 2) SHOULD NOT BE SET BY READING A CARD
;1T SHOULD REMAIN NOT SET
:THIS SHOULD HAPPEN WITHIN ABOUT 1 SECOND OFF-LINE SET
:CHECK FOR
X7 ,CKOFFL
JSR
;INITIALIZE STATUS REGISTER
aCDS
CLR
:SET UP COLUMN COUNT TO READ 20 COLUMNS
#-20., aCDC
MoV
;SET UP BUS ADDRESS
,3CDA
#BUFBEG
MOV
A CARD
;READ
aCDS$
INC
BUSY
CHECK
s
S
#4,9(D
BIT

CLR
177040
89
MOV
176310 177060
897
CLR
176302
898
LOOP6A: TSTB
899
8Ml
900
DEC
177016
901
BNE
902 001504 001373
HLT
903 001506 104000
BR
904 001510 000411
905 001512 016767 177012 176256 LOOPE6B: MOV
LOOP6: TSTB
906 001520 105713
B8M]
907 001522 100401
HLT
% 001524 104000
DONE6: TST
910 001526 005713
B8PL
911 001530 100001
HLT
3}% 001532 104000
914

LCGIC FUNCTION TESTS
HLY

875 001402 104000

876 001404
877 001406

26-MAR-80 11:21

TEST7:

.44

COUNT
PROC
PS,
PS
aCDS
LOOP6B
COUNT
LOOP6A

TEST7

PROC.PS
aCDS
DONEG

alDS
.44

;BUSY SET

sSET UP WAIT COUNTER
;SAVE PROCESSOR STATUS
;CLR THE T BIT
:CHECK READY
;BRANCH IF READY
JWAIT ABOUT 1 SEC.
;READING A CARD DIDN’T SET READY
RESTORE THE STATUS
;CHECK CONTROLLER READY
;BRANCH IF SET
JRESTORING STATUS RESET READY
;CHECK ERROR BIT 15
;BRANCH IF 0K
;ERROR BIT 15 WAS SET

SCOPE

;CONTROLLER READY _SHOULD CAUSE AN INTERRUPT
sINITIALIZE
INIT
%7,
JSR
#TINT7 ,aADINT ;LOAD RETURN POINTER
MOV

8IS
MOV
8iC
MOV
MOV
Mov
1STB
BPL
MOV

BIC
HLT
BR
TINT7: 1STB

;SET PROCESSOR TO LEVEL 7
#340, PS
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
PS,
;SET PROCESSOR PRIORITY T0 O
#3540, PS
:SET UP COLUMN COUNT TO READ 31 COLUMNS
#-31., aCbC
;SET UP_BUS ADDRESS
#BUFBEG,aCDA
;SET INTERUPT ENABLE AND READ
#101, aCDS
JWAIT FOR CONTROLLER READY
acDS
.=2

2(ADINT) PS
#100,

CONT?7

aCDS

acDS

;RESTORE PROCESSOR TO HIGHEST PRIORITY
;CLEAR INTERRUPT ENABLE
;NO INTERRUPT OCCURRED
;CHECK CONTROLLER READY

SEQ 0017

CZCDADO (D11 CARD READER DIAG
26-MAR~80 11:18

CZCDAD.P11

932
933
934
935
936
937
938

939

940
941

942
93
944
945
946

947
948
949
950
951

952
953
954
955

956
957
958

959
960
961
962
963

001630
001632
001634

001636
001640

001642

022626
005713
100001
104000

005013

001652

012712
005037

001656

104400

004767
012712
052767
016762
012714
012715

012713

105713
100376

26-MAR-80

HLT

CONT7:

000232

11:21

LOGIC FUNCTION TESTS
BM]
HLT
0,
;gl

100401
104000

001644
001646

001660
001664
001670
001676
001704
001710
001714
001720
001722
001724
001726
001730
001732
001734
001740

MACY11 30A(1052)

(SP)+,
QCES

(SP)+

L+

CLR

acDs

CLR

232

MOV

PAGE 18
;BRANCH [F SET
:CONTROLLER READY NOT SET
;RESTORE STACK POINTER
:MAKE SURE NO ERROR OCCURRED
;BIT 15 WAS SET

#232 BADINT

;DISABLE INTERRUPTS

: CHANGE INTERRUPT RETURN ADDRESS

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

TEST10: SCOPE

;CONTROLLER READY SHOULDN'T CAUSE AN INTERRUPT IF THE PROCESSOR IS

010254
001726
000340
176074
177703
016044
000101

176100
000002

;AT LEVEL 7 PRIORITY
INIT
%7,
JSR
#TINT10,3ADINT
MOV

BIS
MOV
MOV

MOV
Mov
égEB

BR
TINT10: HLT
CMP
CLR
MOV

000232
000232

CLR

#3640,
PS,
#-61,,

sINITIALIZE
;SETUP RETURN

;SET PROCESSOR TO LEVEL 7 PRIORITY
PS
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
;SET UP COLUMN COUNT TO READ 61 COLUMNS
aCDC

#BUFBEG,a(DA
aCDS
#1071,
GCBS

;SET UP BUS ADDRESS
;SET INTERRUPT ENABLE AND READ
:WAIT FOR CONTROLLER READY

.+6

;CONTINUE IF NO INTERRUPT OCCURRED
;AN INTERRUPT OCCURPED
sRESTORE STACK POINTER
;CLEAR INTERRUPT ENABLE
; CHANGE INTERRUPT RETURN ADDRESS

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

w232

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

:FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS
THAN THE STANDARD
"PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER
LEVEL
*(LEVEL 6) MAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS

THE PROGRAM MUST
*THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE, AND
AGAIN
D
PRINTE
:BE STARTED OVER AT LOCATION 200 FOR IT TO BE

001744
001746
001752
001756
001764
001772
002000

002006
002012

00206
002022

002024

002026

002034
002036
002042

002052
002054
002062

104400

004767
012712
052767
016762
042767
052767
012714
012715
012713
105713

100376

016267
005013
012712

005037
005767

001442
026727
100436

;TEST FOR AN INTERRUPT ON LEVEL 7
TEST11: SCOPE

010166

002070
000340
176006

000340
000300

177660
016044
000101

000002

176012
000002
175776
175770

175742

000232
000232
176452
176444

JSR
MOV

INIT
27,
#TINT11,3ADINT

JINITIALIZE
;SETUP RETURN ADDRESS

MOV
MoV
égTB

#BUFBEG,3CDA
aCDS
#1071,
acgs

;SET UP BUS ADDRESS
;SET INTERUPT ENABLE AND READ
JWAIT FOR CONTROLLER READY

MOV

2(ADINT) ,PS

;RESTORE PROCESSOR TO HIGHEST PRIORITY

MOV

#232

BIS
MOV
BJC
BIS
MoV
L

CLR

100007

TST
BEQ
MP
8MI]

#340,
PS,
#3640,
#300,
#-80.,

;SET PROCESSOR PRIORITY TO 7
PS
2(ADINT) ;SETUP RETURN PROCESSOR STATUS
;SET PROCESSOR PRIORITY TO 0
PS
;SET PROCESSOR TO LEVEL 6 PRIORITY
PS
;SET UP COLUMN COUNT TO READ 80 COLUMNS
aCDC

aCDS

w232

SADINT

;DISABLE INTERRUPTS

;CHANGE INTERRUPT RETURN ADDRESS

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

;TEST FOR A PREVIOUS INTERUPT
INTFLG
;BRANCH IF NONE
TEST12
INTFLG, #100007 ;CHECK PREVIOUS LEVEL
JBRANCH IF LOWER
TEST12

SEQ 0018

CZCDADO (D11 CARD READER DIAG

26~MAR-80 11:18
CICDAD.P11
987 002064 104000

MACY11 30A(1052)

988 002066 000434
989 002070 105713
990 002072 100401

991 002074 104000
992 002076 005013

26-MAR-80 11:21

LOGIC FUNCTION TESTS
HLT

B8R

TINT11: TSTB
8MI
HLT
CLR

MOV
993 002100 012712 000232
CLR
994 002104 005037 000232
(MP
995 002110 022626
ST
906 002112 005767 176406
BMI
997 002116 100413
MOV
998 002120 012767 100007 176376
TYPE,
014062
999 002126 000004
MOV
010420
000007
012767
1000 002132
JSR
1001 002140 004767 010460
B8R
000405
002144
1002
1003 002146 026727 176352 100007 SET7: CMP
BPL
1004 002154 100001
HLT
1005 002156 104000

1006
002160 104400
1008 002162 004767 007752
1007

1009 002166 012712 002304
1010 002172 052767 000340 175576
1011 002200 016762 175572 000002
1012 002206 042767 000340 175562
1013 002214 052767 000240 175554

1014
1015
1016
1017
1018

002222
002226
002232
002236
002240

012714 177660
012715 016044
012713 000101
105713
100376

1019 002242 016267 000002 175526
1020 002250 005013

1021 002252 012712 000232
1022 002256 005037 000232
1023 002262 005767 176236
1026 002266 001442

MOV
BIS
MOV
BIC
BIS

MOV
MOV
MOV
TST8
8PL

MOV
CLR

MOV
CLR
ST
BEQ

002270
002276
002300
002302
002304
002306

CMP
026727 176230 100006
BM]
100436
HLT
104000
BR
000434
TINT12: TSTB
105713
BM]
100401
HLT

1033
1034
1035
1036
1037
1038
1039
1060

002314
002320
002324
002326
002332
002334
002342
002346

012712
005037
022626
005767
100613
012767
000004
012767

1042

002360

000405

1041

000232
000232

176172
100006 176162
014062

000006 010204

002356 004767 010244

PAGE 19

TEST12
.+4

(DS

- INTERUPT PREVIOUSLY OCCURRED AT LEVEL 7 OR HIGHER

SEQ 001Y

:MAKE SURE CONTROLLER READY IS SET
'BRANCH IF SET
*CONTROLLER READY WASN'T SET
"DISABLE FURTHER INTERRUPTS

achs
ADDRESS
@ADINT :CHANGE INTERRUPT RETURNINTERRUP
#332.
T OCCURS
AN
IF
70 CAUSE A HALT
232
POINTER
STACK
E
(SP)+, (SP)+ :RESTOR
“CHECK FOR PREVIOUS FLAG
INTFLG
:BRANCH IF FLAG SET
SET7
AND LEVEL
#100007, INTFLG :SET FLAGMESSAGE
''THE INTERRUPT LEVEL WAS''
“PRINT
MSG4
OCTAL
IN
#7
“TYPE
#7 ,PRINT1
*AND SUPRESS LEADING ZERO'S
$7.PRINTS
TEST12
INTFLG. #100007 ;CHECK PREVIOUS LEVEL
TEST12
SLY OCCURRED ONLY AT A LOWER LEVEL

- INTERRUPT PREVIOU

STEST FOR AN INTERRUPT ON LEVEL 6
TEST12: SCOPE
;INITIALIZE
INIT
7.
JSR

1025
1026
1027
1028
1029
1030

1031 002310 104000
1032 002312 005013

CLR

#TINT12.3ADINT :SETUP RETURNORADDRESS
1SET PROCESS PRIORITY TO 7
PS
2(ADINT) :SETUP RETURN PROCESSOR SIATUS
TO 0

#3460,
PS,
#3,0,
#260.

PS
PS

#-80.. aCDC
#BUFBEG.aCDA
#101, aCDS
aCDS
=2

2(ADINT),PS
acDS

#3232,
an232

INTFLG
TESTI3

SSET PROCESSOR PRIORITY
“SET PROCESSOR TO LEVEL S PRIORITY

:SET UP COLUMN COUNT TO READ 80 COLUMNS
:SET UP BUS ADDRESS
:SET INTERUPT ENABLE AND READ
*WAIT FOR CONTROLLER READY

*RESTORE PROCESSOR TO HIGHEST PRIORITY
‘DISABLE INTERRUPTS

BADINT :CHANGE INTERRUPT RETURN ADDRESST OCCURS
7O CAUSE A HALT IF AN INTERRUP
*TEST FOR A PREVIOUS INTERUPT
"BRANCH IF NONE

INTFLG, #100006:CHECK PREVIOUS LEVEL
'BRANCH IF LOWER
TEST13
“INTERUPT PREVIOUSLY OCCURRED AT LEVEL 6 OR HIGHER
TEST13
:MAKE SURE CONTROLLER READY IS SET
aCDS
‘BRANCH IF SET
.+h
acps

“CONTROLLER READY WASN'T SET
‘DISABLE FURTHER INTERRUPTS

MOV
CLR
P
ST
BMI
MOV
TYPE,
MOV

SADINT :CHANGE INTERRUPT RETURN ADDRESST OCCURS
#332.
70 CAUSE A HALT IF AN INTERRUP
an232
(SP)+, (SP)+ -RESTORE STACK POINTER

TEST13

JSR

1CHECK FOR PREVIOUS FLAG
INTFLG
:BRANCH IF FLAG SET
SET6
#100006, INTFLG ;SET FLAG AND LEVEL INTERRUPT LEVEL WAS'
"PRINT MESSAGE '‘THE
MSG4
“TYPE #6 IN OCTAL
#6,PRINT1
X7 PRINTS

“AND SUPRESS LEADING ZERO'S

CIZCDADO CD11 CARD READER DIAG
26-MAR-80 11:18

CZCDAD. P

002362
002370
002372

026727

002374
002376
0024602
002406
002414
002422
002430
002436
002442
002446
002452
002454
002456
002464
002466
002472
002476
002502
002504
002512
002514
002516
002520
002522

104400

100001
104000

004767
012712
052767
016762
042767
052767
012714
012715
012713
105713
100376

016267
005013
012712
005037
005767
N01442
026727
100436
1046000

100006

175362

000002

175346
175340

000101
000002

175312

000232
000232
176022
176014

100005

000232
000232

012714
012715
012713
105713

100376

JSR
MOV
BIS
MoV
BIC
BIS
MoV

SEQ 0020

INTFLG, #100006 ;CHECK PREVIOUS LEVEL

TEST13

- INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

175756
100005

175746

0140¢
00000,
010030

007770

175722

100005

INIT
27,
#TINT13,3ADINT
#3640,
PS

JINITIALIZE
SSETUP RETURN ADDRESS

#3460,
#200,

;SET PROCESSOR PRIORITY 70O 0
;SET PROCESSOR TO LEVEL 4 PRIORITY
;SET UP COLUMN COUNT TO READ B0 COLUMNS

PS,

PS
PS

#BUFBEG,aCDA
(DS
#4101,
acgs

MOV
CLR
TST

#232,

CLR

,PS
2(ADINT)
aCDS

w232

TEST14

BM]
HLT
CLR
MOV

.+4

CMP
TST
BMI
MoV
TYPE,
MOV

JSR
BR

SETH: CMP

BPL
HLT

SADINT

INTFLG

BEQ
CMP
BM]
HLT
B8R

177660
016044

000101

ngl\

A9,|

pu—y

33
—
(D

[V, 1V ]

175142
000340
000140

—

007322
002734
000340

MOV
8IS
MOV
BIC
BIS
MOV
MOV
MOV
1STB
BPL

*SET UP_BUS ADDRESS

:SET INTERUPT ENABLE AND READ
:WAIT FOR CONTROLLER READY

;RESTORE PROCESSOR TO HIGHEST PRIORITY
:DISABLE INTERRUPTS

:CHANGE INTERRUPT RETURN ADDRESS
STO CAUSE A HALT IF AN INTERRUPT OCCURS
STEST FOR A PREVIOUS INTERUPT
:BRANCH IF NONE

INTFLG, #100005 sCHECK PREVIOUS LEVEL
:BRANCH IF LOWER

TEST14

:INTERUPT PREVIOUSLY OCCURRED AT LEVEL 5 OR HIGHER

TEST14

;MAKE SURE CONTROLLER READY IS SET

aCDS

#232,

w232

‘BRANCH IF SET
QADINT

;CONTROLLER READY WASN'T SET
:DISABLE FURTHER INTERRUPTS
;CHANGE INTERRUPT RETURN ADDRESS
;7O CAUSE A HALT IF AN INTERRUPT OCCURS

:RESTORE STACK POINTER
(SP)+
(SP)+,
;CHECK FOR PREVIOUS FLAG
INTFLG
s BRANCH IF FLAG SET
SETS
#100005, INTFLG ;SET FLAG AND LEVEL
;PRINT MESSAGE '‘THE INTERRUPT
MSG4
:TYPE #5 IN OCTAL
#5,PRINT1
:AND SUPRESS LEADING ZFRO'S
X7 ,PRINTS
TEST14

LEVEL WAS'

INTFLG, #100005 ;CHECK PREVIOUS LEVEL

TEST14

;TEST FOR AN INTERRUPT ON LEVEL
TEST14: SCOPE
JSR

$SET PROCESSOR PRIORITY TO 7

2(ADINT)” ;SETUP RETURN PROCESSOR STATUS

MOV
MOV
TST8
8PL
MoV

CLR

004767
012712
052767
016762
042767
052767

TINT13: TSTB

104000
104400

SET6: (MP

TEST13 SCOPE

100401
104000

100001

26-MAR-80 11:21 PAGE 20
LOGIC FUNCTION TESTS

-TEST FOR AN INTERRUPT ON LEVEL 5

000434
105713

005013
012712
005037
022626
005767
100413
012767
000004
012767
004767
000405
026727

g
SEEEEERERE

176136

—

1043
1044
1045

MACY11 30A(1052)

X7,

INIT

#TINT14 ,3ADINT
#340,
PS

PS,

iINTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL
;INITIALIZE

*SETUP RETURN ADDRESS

*SET PROCESSOR PRIORITY TO 7

2(ADINT) ;SETUP RETURN PROCESSOR STATUS

#140,
PS
aCDC
#-80.,
#BUFBEG,3CDA
a(DS
#101,
BCgS

;SET PROCESSOR PRIORITY 10 0
;SET PROCESSOR TO LEVL 3 PRIORITY
:SET UP COLUMN COUNT TO READ 80 COLUMNS
*SET UP BUS ADDRESS

;SET INTERUPT ENABLE AND READ

‘WAIT FOR CONTROLLER READY

D ADO (D11 CARD READER DIAG

DAD.P11

(32672
02700
002702
002706
002712

016267
005013
012712
005037
005767

000002 175076
000232
000232
175606

106 002716 001433
105 002720 026727 175600 10000¢
106 002726 100427

107 002730 104000
108

002732

109
110
111
112
113
116

002734
002736
002740
002742
002744
002750

121

003002

115
116
117
118
119
120

002754
002756
002762
002764
002772
002774

000425

105713
100401
104000
005013
012712 000232
005037 000232

100001

124

003006

104400

127
128
129
130
131
132
133
134
135
136
137
138
139
140

003020
003026
003034
003042
003050
003054
003060
003064
003066
003070
003076
003100
003104
003110

052767
016762
042767
052767
012714
012715
012713
105713
100376
016267
005013
012712
005037
005767

d D d i
d rd i d D e
e e

e ed ol e

d A

) e e

id wrd

141 003114 001442
142 003116 026727
143 003124 100436

000340
174744
000340
000100
177660
016044
000101

146
147
148
149
150

003132
003134
003136
003140
003142

175402

000434

105713
100401
104000
005013
012712 000232

151 003146 005037 000232
152 003152 022626
153 003154 005767 175344
154

003160

100413

LOGIC FUNCTION TESTS

MOV
CLR
MOV
CLR
TST

BEQ
cMP
B8M]

HLT

PAGE 21

2(ADINT) ,PS
CTON
@ADINT
#232
232
INTFLG

;RESTORE PROCESSOR TO HIGHEST PRIORITY
;DISABLE INTERRUPTS
;CHANGE INTERRUPT RETURN ADDRESS
;7O CAUSE A HALT ¥ AN INTERRUPT OCCURS
;TEST FOR A PREVIOUS INTERUPT

SEQ 0021

;BRANCH IF NONE
TEST1S
INTFLG, #100004 ;CHECK PREVIOUS LEVEL
;BRANCH IF LOWER
TEST15
TEST15

aCDS

TINT14: TSTB
BM]
HLT
CLR
MoV
CLR

#232,
aw232

8PL

TEST15

TEST15: SCOPE

174750
000002
174734
174726

000002 174700
000232
000232
175410

144 003126 104000
003130

11:21

.+
aCDS

; INTERUPT PREVIOUSLY OCCURRED AT LEVEL & OR HIGHER

;MAKE SURE CONTROLLER READY IS SET
;BRANCH IF SET
;CONTROLLER READY WASN'T SET
;DISABLE FURTHER INTERRUPTS
@ADINT ;CHANGE INTERRUPT RETURN ADDRESS
;TO CAUSE A HALT IF AN INTERRUPT OCCURS

(SP)+, (SP)+ ;RESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG
INTFLG
;BRANCH IF FLAG SET
SET4
#100004, INTFLG ;SET FLAG AND LEVEL
TEST15
INTFLG, #100004 ;CHECK PREVIOUS LEVEL

- INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL
HLT
;TEST FOR AN INTERRUPT ON LEVEL 5

125 003010 004767 007124
126 003014 012712 003132

145

26-MAR-80

cMP
022626
TST
175542
005767
M1
100404
MOV
012767 100004 175532
BR
000405
026727 175524 100004 SET4: CMP

122 003004 1040C0
123

—

d e

)

d e

D e

e e

099
100
101
102
103

26~MAR-80 11:18

MACY11 30A(1052)

100003

JSR
MOV

BIS
MOV
8IC
BIS
MOV
MOV
MOV
1ST8
8PL
MOV
CLR
MOV
CLR
TST
BEQ
MP
8M]

HLT

TINT15: TSTB
BM]
HLT
CLR
MOV

CLR

cMp
TST

BMI

INIT
X7,
#TINT1S,3ADINT

;INITIALIZE
;SETUP RETURN ADDRESS

;SET PROCESSOR PRIORITY T0 7
#3640, PS
2(ADINT) ;SETUP RETURN PROCESSOR STATUS
PS,
;SET PROCESSOR PRIORITY TO 0
#340, PS
;SET PROCESSOR TO LEVEL 2 PRIORITY
#100, PS
;SET UP COLUMN COUNT TO READ 80 COLUMNS
#-80., aCDC
:SET UP BUS ADDRESS
#BUFBEG,aCDA
;SET INTERUPT ENABLE AND READ
#101, acbs
;WAIT FOR CONTROLLER READY
achDs
.=2
;RESTORE PRCCESSOR TO HIGHEST PRIORITY
2(ADINT) PS
;DISABLE INTERRUPTS
acDS
@ADINT ;CHANGE INTERRUPT RETURN ADDRESS
#232
;70 CAUSE A HALT IF AN INTERRUPT OCCURS
232
;TEST FOR A PREVIOUS INTERUPT
INTFLG
JBRANCH IF NOME
TEST16
INTFLG, #100003 ;CHECK PREVIOUS LEVEL
JBRANCH IF LOWER
TEST16
TEST16

alDS
.44

acDS
#232
w232
(SP)+,
INTFLG
SET3

*INTERUPT PREVIOUSLY OCCURRED AT LEVEL 3 OR HIGHER

;MAKE SURE CONTROLLER READY S SET
JBRANCH IF SET
;CONTROLLER READY WASN'T SET
;DISABLE FURTHER INTERRUPTS
SADINT ;CHANGE INTERRUPT RETURN ADDRESS
(SP)+

:TO CAUSE A HALT IF AN INTERRUPT OCCURS

;RESTORE STACK POINTER
:CHECK FOR PREVIOUS FLAG

;BRANCH IF FLAG SET

C7CDADO CD11 CARD READER DIAG

CZCDAD.P11

26-MAR-80 11:18

MACY11 30A(1052)

1155 003162 012767 100003 175334
1156 003170 000004 016062
1157 003174 012767 000003 007356

26-MAR-80 11:21

LOGIC FUNCTION TESTS

MOV
TYPE,
MOV

JSR
1158 003202 004767 007416
BR
000405
003206
1159
1160 003210 026727 175310 100003 SET3: (MPBPL
1161

003216

100001

1164

003222

104400

1167
1168
1169
1170
1171

003234
003242
003250
003256
003264

052767
016762
042767
052767
012714

1175

003302

100376

1165 003224 004767 006710
1166 003230 012712 003346

000340
174530
000340
000040
177660

TEST16: SCCPE

174534
000002
174520
174512

1172 003270 012715 016044
1173 003274 012713 000101
1174 003300 105713

003304
003312
003314
003320
003324

016267
005013
012712
005037
005767

000002 174464
000232
000232
175174

1181 003330 001442
1182 003332 026727 175166 100002
1183 003340 100436

1184 003342 104000
1185

1186
1187
1188
1189
1190

003344

003346
003350
003352
003354
003356

000434

100001

MoV
MoV
1ST8

#BUFBEG ,aCDA
#101, acbS
acDs

;SET UP BUS ADDRESS
;SET INTERUPT ENABLE AND READ
;WAIT FOR CONTROLLER READY

BIS
MOV
BIC
BIS
MOV
BPL

MOV
CLR
MOV
CLR
TST

8EQ
cMP
B8M]

HLT

175130

100002 175120
014062
000002 007142

1204

003436

104400

1206
1207
1208
1209
1210

003444
003450
003456
003464
003472

012712
052767
016762
042767
052767

003544
000340
174314
000340
000000

;SET PROCESSOR PRIORITY TO 7
PS
2(ADINT) ;SETUP RETURN PROCESSOR STATUS
;SET PROCESSOR PRIORITY 70 0
PS
;SET PROCESSOR 7O LEVEL 1 PRIORITY
PS
:SET UP COLUMN COUNT TO READ 80 COLUMNS
aCDC

.=2

2(ADINT) ,PS
aCDS
#232, SADINT
232
INTFLG

;RESTORE PROCESSOR TO HIGHEST PRIORITY
;DISABLE INTERRUPTS
;CHANGE INTERRUPT RETURN ADDRESS
;7O CAUSE A HALT IF AN INTERRUPT OCCURS
;TEST FOR A PREVIOUS INTERUPT

JBRANCH IF NONE
TEST17
INTFLG, #100002 ;CHECK PREVIOUS LEVEL
;BRANCH IF LOWER
TEST17
TEST17

acDs
R

acbs
#232
w232
(SP)+,

;INTERUPT PREVIOUSLY OCCURRED AT LEVEL 2 OR HIGHER

;MAKE SURE CONTROLLER READY IS SET
;BRANCH IF SET
;CONTROLLER READY WASN'T SET
:DISABLE FURTHER INTERRUPTS
SADINT ;CHANGE INTERRUPT RETURN ADDRESS

;TO CAUSE A HALT IF AN INTERRUPT CCCURS

MOV
TYPE,
MOV

BPL

TEST17

BMI

HLT

1205 003440 004767 006474

#340,
PS,
#340,
#040,
#-80.,

;RESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG
INTFLG
:BRANCH [F FLAG SET
SET2
#100002, INTFLG ;SET FLAG AND LEVEL
;PRINT MESSAGE ‘‘THE INTERRUPT LEVEL WASTM
MSG4
;TYPE #2 IN OCTAL
#2,PRINTY

cMP
TST

1202 003434 104000
1203

TEST16

;INITIALIZE
;SETUP RETURN ADDRESS

JSR
1198 003416 004767 007202
BR
1199 003422 000405
1200 003424 026727 175074 100002 SETZ: (MP
003432

;AND SUPRESS LEADING ZERO'S
X7 ,PRINTS
TEST16
INTFLG, #100003 ;CHECK PREVIOUS LEVEL
INIT
X7,
H#TINT16,@ADINT

CLR

1191 003362 005037 000232

1201

SEQ 0022

,
#100003, INTFLG ;SET FLAG AND LEVEL
WAS'
LEVEL
T
INTERRUP
‘‘THE
MESSAGE
;PRINT
MSG4
;TYPE #3 IN OCTAL
#3.PRINTY

JSR
MOV

TINT16: TSTB
B8M]
HLT
CLR
MoV

105713
100401
104000
005013
012712 000232

1192 003366 022626
1193 002370 005767
1194 003374 100413
1195 003376 012767
1196 003404 000004
1197 003410 012767

PAGE 22

- INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL
HLT
:TEST FOR AN INTERRUPT ON LEVEL 2

1162 003220 104000
1163

1176
1177
1178
1179
1180

(SP)+

JAND SUPRESS LEADING ZERO'S
X7 ,PRINTS
TEST17
INTFLG, #100002 ;CHECK PREVIOUS LEVEL

; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

;TEST_FOR AN INTERRUPT ON LEVEL 1
TEST17: SCOPE
JINITIALIZE
INIT
27,
JSR

174320
000002
174304
174276

"oV
BIS
MOV
BIC
BIS

#TINT17,8ADINT ;SETUP RETURN ADDRESS
;SET PROCESSOR PRIORITY TQ 7
#340, PS
2(ADINT) ;SETUP RETURN PROCESSOR STATUS
PS,
;SET PROCESSOR PRIORITY TO 0
#340, PS
;SET PROCESSOR TO LEVEL O PRIORITY
#000, PS

(ZCDAD 0 (D11 CARD READER DIAG

(ZCDAD.P11

26~MAR-80 11:18

MACY11 30A(1052)

1211 003500 012714 177660

26-MAR-80 11:21

LOGIC FUNCTION TESTS

MOV

1212 003504 012715 016044
1213 003510 012713 000101
1216 003514 105713

MOV
MOV
1ST8

1219 003534 005037 000232
1220 003540 104000

CLR
HLT

1215

003516

100376

1216 003520 016267 000002 174250
1217 003526 005013
1218 003530 012712 000232
1221

1222
1223
1224
1225
1226
1227

1228
1229
1230
1231
1232
1233
123

003542

003544
003546
003550
003552
003554
003560

003564
003566
003572
003574
003602
003606
003614

000434

105713
100401
104000
005013
012712 000232
005037 000232
022626
005767
100413
012767
000004
012767
004767

174732
100001 174722
014062
000001 006744
007004
000405
003620
1235
1236 003622 026727 174676 100001

8PL

MOV
CLR
MOV
BR

TINT17: TSTB
8M]
HLT
CLR
MOV
CLR

cMP
TST
BMI
MOV
TYPE,
MOV
JSR
BR

SET1: CMP

BPL

1237

003630

100001

12640

1241

003634

106400

1242
1243
1244
1245
12646
1247
1248
1249
1250
1251

003636
003642
003646
003654
003662
003666
003672
003676
003702

004767
012712
052767
016762
005067
012714
012715
012713
005067

1252

003706 005267
003712

001375

1254
1255
1256
1257
1258

003722
003724
003726
003730
003732

005013
000403
104000
022626
005013

CLR
BR
TINT20: HLT
P
CLR

1262

003744

104400

TEST21: SCOPE

'%%%g 003632 104000

HLY

PAGE 23

#-80., aCDC

#BUFBEG,a(DA
#101, aCDS
aCDS
.=2

;SET UP COLUMN COUNT TO READ 80 COLUMNS
sSET UP BUS ADDRESS
;SET INTERUPT ENABLE AND READ
JWAJT FOR CONTROLLER READY

;RESTORE PROCESSOR TO HIGHEST PRIORITY
2(ADINT) ,PS
;DISABLE INTERRUPTS
aCDS
@ADINT ;CHANGE INTERRUPT RETURN ADDRESS
#232
T OCCURS

:TO CAUSE A HALT IF AN INTERRUP
S INTERUPT DIDN'T OCCURE WITH PROCESSOR AT LEVEL O

w232

TEST20

a(Ds

.th
acDbS

#232,
an232

;MAKE SURE CONTROLLER READY IS SET
;BRANCH IF SET
;CONTROLLER READY WASN'T SET
;DISABLE FURTHER INTERRUPTS
SADINT ;CHANGE INTERRUPT RETURN ADDRESST OCCURS
;7O CAUSE A HALT IF AN INTERRUP

(SP)+, (SP)+ ;RESTORE STACK POINTER
;CHECK FOR PREVIOUS FLAG
INTFLG
;BRANCH IF FLAG SET
SET1
#100001, INTFLG ;SET FLAG AND LEVEL
:PRINT MESSAGE '‘THE INTERRUPT LEVEL WAS''
MSG4
:TYPE #1 IN OCTAL
#1,PRINT1
;AND SUPRESS LEADING ZERO'S
%7 ,PRINTS
TEST20
INTFLG, #100001 ;CHECK PREVIOUS LEVEL
TEST20

:INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL

TEST20: SCOPE

006276
003726
000340 174122
174116 000002
174110
177777
016044
000100
174614
174610

1253 003714 016267 000002 174054

1259 003734 005037 000232
152(1) 003740 012712 000232

T ENABLE SET AND REST CLEARED
;TEST FOR NO INTERRUPT OCCURING WITH INTERRUP
IZE CSR TO ZERO
JSR
MOV
BIS
MoV
CLR
MOV
MOV
MOV
CLR

;INITIAL
INIT
X7,
;SETUP RETURN ADDRESS
@ADINT
#TINT20,
R TO LEVEL 7
PROCESSO
;SET
#340, PS
OR STATUS
PROCESS
;STORE
2(ADINT)
PS,
TO LEVEL 0
R
PROCESSO
:SET
)
TO READ 1 COLUMN
COUNT
COLUMN
UP
;SET
aCDC
-1,
ADDRESS
BUS
UP
;SET
#BUFBEG,aCDA
;ENABLE INTERRUPTS
#100, acbs
LIZE COUNTER
JINITIA
COUNT

BNE

2(ADINT) ,PS

INC

MOV

CONT20: CLR
MOV

SEQ 0023

JWAIT AWHILE

COUNT
.=b

aCDs

CONT20

(SP)+,
aCD$S

w232
#232.

(SP)+

;RESTORE PROCESSOR TO LEVEL 7
;DISABLE FURTHER INTERRUPTS
;AN INTERRUPT OCCURRED
;RESTORE STACK
;DISABLE FURTHER INTERRUPTS

;CHANGE INTERRUPT RETURN ADDRESS TO
RADINT ;CAUSE A HALT IF AN INTERRUPT OCCURS

LEVEL
;CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE ZERO
1263
TO
CSR
IZE
;INITIAL
INIT
27,
JSR
1264 003746 004767 006166
SADINT ;SETUP RETURN ADDRESS
#TINT21,
MOV
004016
012712
003752
1265
;SET PROCESSOR TO LEVEL 7
PS
#340,
8IS
1266 003756 052767 000340 174012

(2CDADO (D11 CARD READER DIAG

26-MAR-80 11:18

CZCDAD.P11

016762
042767
012714
012715

012713

004014
004016
004020
004024

000777
022626
012712

004032
004040
004042
004044
004046
004050
004054

016267

005067

000240
000402
022626
104000
005013
005037
012712

004060

104400

004062
004066
004072
004100

004767
012712
052767
016762
042767
012714
012715
012713

RE T 3B SRERRERIRE

e e e
e o e b e wd i o b o oh b ik D
N AN U AN AN N AN N NN
v
b
e
b b
cad b —d b
N
N) OO NOWNINN
= O

d d wd

-—

b
b e
b
e
e
b e
e

2L 3 RoELEYLLR 33 33

1287
1288
1289
1290

003764
003772
004000
004004
004010

2% 833 33388888888

1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285

004166

000777

022626
005037
012712
105713
100401
104000

174006

000340
177777
016044
000101

MACY11 30A(1052)
000002

173776

004042

173746

000002

173736

MOV
BIC
MOV
MOV
MOV
BR
TINTZ21: MP
MOV
CLR
NOP
MOV

BR
P
HLT
CONT21: CLR
CLR
MOV

TINAZ21:

000232
000232

26-MAR-80
LOGIC FUNCTION TESTS
11:21

PS,

PAGE 24

2(ADINT) ;STORE PROCESSOR STATUS
PS
aCDC

:SET PROCESSOR TO LEVEL 0
“SET UP COLUMN COUNT TO READ 1 COLUMN

#101,

acDbS

SET INTERUPT ENABLE AND READ

(SP)+,

(SP)+

#340,
-1,

#BUFBEG,a(DA

tTINAé1 SADINT
PS

:SET UP BUS ADDRESS

WAIT FOR INTERRUPT
RESTORE STACK POINTER

;CHANGE RETRUN ADDRESS
SEITPROCESSOR TO LEVEL O

,PS
2(ADINT)
CONT21
(SP)+
(SP)+,

*RESTORE PROCESSOR TO LEVEL 7

aCDS

:DISABLE INTERRUPTS
;CHANGE INTERRUPT RETURN ADDRESS TO

aN232
#232,

JADINT

JRESTORE STACK

;THE INTERRUPT OCCURRED AT 2 LEVELS

:CAUSE A HALT IF AN INTERRUPT OCCURS

TEST22: SCOPE

006052
004132
000340
173672
000340
177773
160000
000161

000232
000232

173676
000002
173662

:CHECK THAT NUN-EXISTANT MEMORY IS DETECTED PROPERLY
;INITIALIZE CSR TO ZERO
INIT
X7,
JSR
,8ADINT
sSETUP RETURN ADDRESS
2
ATINT2
MOV
*SET PROCESSOR TO LEVEL 7
#340,
PS
BIS
:STORE PROCESSOR STATUS
2(ADINT)
PS,
MOV
PROCESSOR TO LEVEL 0
PS
;SET
#3,0,
8IC
UP COLUMN COUNT TO READ 1 COLUMN
;SET
#-5,
acDC
MOV
MoV
MOV
BR
TINT22: cmp
CLR
MoV
1S18

BM]
HLT

#160000,aCDA
#161,

acDS

(SP)+,

(SP)+

#232.
acDs
A

QADINT

an232

;SET UP BUS ADDRESS TO NON-EXISTANT MEMORY
*SET INTERUPT ENABLE AND READ, X MEM BITS SET

‘WAIT FOR INTERRUPT
*RESTORE STACK

;CHANGE INTERRUPT RETURN ADDRESS TO
;CAUSE A HALT IF AN INTERRUPT OCCURS
:CHECK FOR CONTROLLER READY
:BRANCH IF SET OK

;CONTROLLER READY DIDN'T SET

,CHECK FOR ERROR (BIT 15)

TST
8M]
HLT

acps
. +4

001000

BIT

#1000,
. +4

(DS

:CHECK FOR NON-EXISTANT MEMOPY (BIT 9)

032713
001001
104000

000040

BIT
BNE
HLT

#40,
. +4

acDS

;CHECK FOR EXTENDED MEMORY BIT 17 SET

032713
001001

000020

8IT
BNE
HLT

#20,

aCDS

032713
001401

076417

BIT
BEQ
HLT

#076417,3CDS
44

005713

100401
104000

032713
001001

104000

BNE
HLT

;BRANCH IF SET OK
;ERROR BIT 15 NOT SET

;BRANCH IF SET OK
;BIT 9 NOT SET

:BRANCH IF SET OK

JEX-MEM BIT 17 GOT CLEARED
;CHECK FOR EX-MEM (BIT 4)
:BRANCH IF SET OK

;EX-MEM (BIT 4) GOT CLEARED
;CHECK FOR ANY OTHER BITS
:BRANCH IF OK

;EXTRA ERROR BITS SET

SEQ 0024

ed ad D

DAPO (D11 CARD READER DIAG
26-MAR-80 11:18
P11
022715
001401

160002

022714
001401

177774

MACY11 30A(1052)

b e
d
b
d D
e

(N NN N N

#160002,3CDA

cMP
BEQ
HLT

n-4,
R

PAGE 25

.th

a(DC

SEQ 0025

;CHECK ADDRESS BUFFER

JBRANCH IF OK
;BUS ADDRESS REG C(HANGED

;CHECK COLUMN COUNT REG
;BRANCH IF 0K
;COLUMN COUNT REG CHANGED

000200

173320

ENDCK:

005710

176244
174532

SCOPE
817
BEQ
JSR
CoM
JMP

#200, SWR
DATST
X/ ,BELL

:TOGGLE TRACE FLAG

TRFLG

RESTRT

md e

d i

d b d

104400

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

b rd

ARRY RRRRRRLU
PNy AT IR N1 LERRUR ST

d d

(N N NN NN
N
[« ]

104000

11:21

LOGIC FUNCTION TESTS
8EQ
HLT

104000

032767
001496
004767
005167
000167

26-MAR-80

'ttnt

VOO
NN = OOV~

b
b
ek
et e

i ad e
—

NN NN

d e

D i

)

SERSSEEEEEREREE

d =D

b e

N LN LN AN N N AN AN
VI
ATV N

ek b ok D

p e

'*t*.tt*tttfifitt'tt'fittttttt'ttt't'ttt'tttttt'ttlttttttttttttt'ttttt

‘DATA RELIABILITY TEST FOR CD11

:ttttttttfit*ittt'tfittfi.'tt'ttttfitttt.tfi'ttt'tttttttfit'tttttt'tttt!'t'tt

005067
005067
005067
032767
001412
012767
012767
012767
000411
012767
012767
012767
005767
001004
012767
V00407
032767
001370
012767
004767
012712
042767
016762
016701
012700
012767

S
;CHECK SWR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTER
ZERO

DATST:

002236
002230

174230

CLR
CLR
CLR

BIT

000020

173260

013330
013570
015133

002202
002176
001632

012750
013210
015122
174142

002156
002152
001606

ALP1:

000340

173402

NOTRP1: MOV

010000

173164

TRP1:

000360
005520

173362

004552
000340
173340
002056
016044
177660

CLCNT
CDCNT
ERFLG
SWR
#20,
ALP1
#MBINCD, TSTART

, TEND
W#BINEND+2

#MSG15, DECK

CONTD:

DCNT1:

TST

BR
8IT
BNE
MOV
JSR

;MAKE SURE COLUMN COUNT IS
:SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING
:FLAG SET PREVENTS PRINTING OUT ERROR HEADING
;CHECK BIT 4 OF SWR FOR TYPE OF DECK
:BRANCH IF NOT SET TO LOAD ALPHANUMERIC POINTERS
;BIT 2 SET, LOAD BINARY TABLE POINTERS

CONTD
#ALPCD, TSTART

;BRANCH AROUND ALPHANUMERIC POINTERS
;LOAD ALPHANUMERIC TABLE POINTERS

TRFLG
TRP1
g%:?i

;CHECK TRACE TRAP FLAG
;BRANCH [F FLAG WAS SET
;CLEAR TRACE BIT

D
+2 , TEND
W#ALPEN
MSG14, DECK

#10000, SWR
NOTRP1
#360,

X7,

INIT

;CHECK SW12 TO INHIBIT TRACE TRAPPING
;BRANCH IF SET
;SET TRACE BIT

:INITIALIZE CARD READER STATUS REGISTER

JSET UP INTERRUPT SERVICING, AND START READING
173344
00000¢

002032

MOV
BIC
MOV
MOV
MOV
MOV

#SRVC,

#340,

@ADINT

;SETUP RETURN POINTER

;SET PROCESSOR TO LEVEL O

2(ADINT) ;STORE CURRENT STATUS
PS,
;SET UP TABLE POINTER
TSTART, R1
;SET UP BUFFER POINTER
#BUFBEG,RO
;SET UP "'SIZE”
#-120, SI1Zt

CZCDADO (D11 CARD READER DIAG

(2CDAD.PIY
1379
1380
1381
1382

004456
0044b4
004470
004472

1390

004530

1383
1384
1385
1386
1387
1388
1389

26-MAR-80 11:18

004476
004504
004506
004514
004516
004522
004524

MACY11 30A(1052)

012767 177660 002026
016714 002020
010015
012713 000100
032767
201406
032737
001002
004767
005213
032713
001775

26-MAR-80 11:21

PAGE 26

DATA RELJABILITY TEST

MOV
MOV
MOV
MOV

#-120,
SIZE,
RO
#00,

BEQ

BKGND

8IT
000010 173064
BEQ
BIT
0000w~ 177570
BNE
JSR
001372
CDREAD: INC
BKGND: BIT
004000

70,
CDREAD
»,
CDREAD
7.
acDs
#4000,

OFFSET
SSET UF COLUMN COUNT
aCDC
:SET UP ADDRESS REG
aCDA
SENABLE INTERUPTS
&CDS

“CHECK FOR PACK MODE ON.Y
SWR
SBRANCH IF NOT SET
SSWR -CHECK FOR IMAGE MODE ONLY
*BRANCH IF SET
T PACKI1NG MODE
UP FOR
PAKSET -SE
*READ
;CHECK FOR DATA ERROR
aCDS

BNE
CLR
B8R

DERCNT ;SAVF THE COLUMN COUNT
3CDC.
:CHECK FOR DATA ERRCR
#4006, aCDS
SBRANCH IF SET
BKGND 1
SCLR COLUMN COUNT SAVER
DERCNT
BKGND

MNP
BIT
BNE

PSR
#177477.,3CDS
ISRER

SJUMP TO PACK MODE ROUTINE
;CHECK ALL BITS EXCEPT 6 AND 7
*BRANCH TO ERROR ROUTINE

BEQ

. +4

“COLUMN COUNT REGISTER NOT C

1391 004532 011467 001776
1392 CO04S36 032713 004000

MOV
BKGND1: BIT

1397
1398
1399
1400
1601
1402

LITY TES.
- INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABI
READY
LER
CONTROL
;CHECK
aCDSs
TSTB
SRV(:
‘BRANCH IF SET
.+
BM]
*CONTROLLER READY NOT SET
HLT
“CHECK FOR DATA PACK MODE
acos
#2,
8IT
*BRANCH IF IMAGE MODE
ISR
13EQ

1393 004542 001375
1394 004544 005067 001764
ggg 004550 000765
004552
004556
004560
004564

105713
104000
032713 000002
001402

004556 100401

}282 004566 000167 000470
1405 004572 032713 177477
1406 004576 001157

ISR:

TST

1407 0046600 005714
1408 004602 001401

}2%
16411
16412
1413
1414
1415

004604
004606
004612
004620
004626
004632
004634

104000
010067
166767
166767
026715
001401

HLT
MoV
SuB
SuB
CMP

001702
001672 001674
001664 001666
001662

BEQ
HLT

104000

1418 004636 016767 001646

173656

ISRNC:

ISRLP:

MOV

(MP

1419 004644

1420
1421
1422
1423
1424
1625
1626
1427
1428
1409
1430
;3}

022021

BNE
004646 001035
(MP
ISRRT:
004650 020167 001650
aMm]
004654 100402
MOV
004656 016701 001640
INC
004662 005267 173634
BEQ
004666 001412
INC
004670 005267 001634
CMP
004674 026727 001630 000120
BNE
004702 001360
JSR
004704 004767 001402
ST
004710 005721
B8R
004712 000754

1433

004714

004767

143 004720 005721

001372

ISRBE:

ISRNX:

JSR

TST

acpc

“CHECK COLUMN COUNT
*BRANCH IF OK

BUFEND
RO,
SIZE., BUFEND
SIZE, BUFEND
BUFEND, @CDA
A

SIZE.

(RO)+,

COUNT

(R1)+

ISRDE
TEND
R1,
. +6
TSTART, R1
COUNT
ISRBE
CLCNT
CLENT, #120
ISKLP
NXCRD
17,
(R1)+
ISRLP
X7

(R1)+

NXCRD

COLUMN COUNTER
UPET
;S
:TEST (HE DATA

*BRAMCH IF DATA ERROR
-CHECK FOR END OF TABLE
*BRANCH IF NOT
‘MOVE POINTER TO TOP OF TABLE
“CHECK FOR END OF BUFFER
“BRANCH IF BUFFER END
*KEEP TRACK OF COLUMNS
:CHECK FOR END OF CARD
‘BRANCH IF NOT END OF CARD
-INC TO NEXT CARD
"UPDATE TABLE POINTER FOR NEXT CARD
:GO TO NEXT CARD

EQ D026

CZCDARO (D11 CARD READER DIAG
26-MAR-80 11:18
194 (DAD P11
1435
1636
1437
1418

1439
1440
1441
1442
1443
1444

1645
1446
1447
1448

004722
004730

004732
04736
004742
004746
004750
004752
004756
004760
004762

032767
001002
004767
000167
205767
001045
)
00574
005267
022021
001031

000004

MACY11 30A(1052)
172640

001156
001066

87
BNE
JSR
ISRNX1: JMP

001550
000042
001532

000240
000042

2$:

000042
001504
000240
3%:

000042
001464

000240
001454

020000

1%:

172500

ISRDZ2:

001050
005456
005506
013715
005442
005472
172440

] SRNX1
X7,

SRETRN

SWR

PAKSET

;CHECK FOR IMAGE MODE ONLY
;BRANCH IF SET

sSET UP FOR PACKING MODE
sCALCULATE "'SIZE'' AND RETURN

INC
MP
BNE
ADD
W
BLE
SuB

cMP

BNE
suB
P
BGT
ADD
BR

suB

ctMP
BGT
ADD
cMP
BNE
Mov
CLR

B8IT

BNE
JSR
MOV
JSR
TYPE,
MOV
JSR
cMP

ISRDE4: TST

8PL
HALT
BR

CDCNT
(RO)+,

(RY)+

1}
n62,
R1.

R1
TEND

#2460,

#62,

ISRRT
8240,
ISRRT

42(RO),
3s

R1,

N2,
R1,
18
#2640,
R1,
ISRD1

(R1)

TSTART

R1
TSTART

R1
TEND

TSTART, R1
CDCNT
#20000, SWR
I1SRDE4
TYHEAD
X7,
=(R1) ,PRINT1
27 .,PRINTR
SPACE
-(RO) ,PRINT1
27 ,PRINTR
(R1)+
(RO)+,
SWR

.+4

I1SRRT

;TEST THE DATA

;BRANCH IF NOT THE SAME
JADD THE MAGIC NUMBER
;CHECK FOR RAP AROUND
;BRANCH IF NOT
;RAP AROUND
sCHECK FOR DOUBLE MATCH
sBRANCH IF NOT
sSUBTRACT THE MAGIC NUMBER
;CHECK FOR RAP AROUND
;BRANCH IF NOT
;RAP AROUND
;GO CHECK REST OF DATA
sSUBTRACT MAGIC NUMBER
;CHECK FOR RAP AROUND
;BRANCH IF NOT
;RAP AROUND

JRESET CARD COUNTER
;CK SW13 FOR INHIBIT PRINTOUT
sBRANCH IF SET
;TYPE HEADING, DECK, CDCNT, CLCNT
;TYPE -(R1) IN OCTAL
;TYPE LEADING ZERO'S

sTYPE =(RO) IN OCTAL

;TYPE LEADING ZERO'S

JRESET POINTERS
;CHECK FOR HALT ON ERROR
;BRANCH IF HALT ON ERROR NOT SET
JHALT ON ERROR SET

;INTERUPT DUE TO SOME KIND OF ERROR
“THESE ERRORS ARE DESASTEROUS, THEREFORE THE DATA TEST IS RESTARTED
;BRANCH ON ERRCR BIT 15
ISRE1
ISRER: 8M]

100402
104000

HLT

000445

032713
001412
032713
001002

w6,

;DATA ERRCR WAS DETECTED, OUTPUT ERROR PRINTOUT
;CHECK FOR FIRST CARD
COCNT
TST
ISRDE:
;BRANCH IF NOT
ISRD?
BNE
:SUB 2 FROM POINTER
-(R0O)
TST
ISRD1:

001560

001444
001444

8 3
26-MAR-80 1i:21 PAGE 27
DATA RELIABILITY TEST

010000
040000

ISRE1:

ISRST

BIT
8EQ
8IT

#10000, acDS
ISRE2
#40000, aCDS

BNE

.+6

;ERROR BIT 15 NOT SET

;CHECK FOR OF F~LINE

;CHECK FOR CARD READER ERROR

;BRANCH IF SET

SEQ 0027

CZCDADO (D11 CARD READER DIAG

C2COAD.P11
1491

26-MAR-8( 11:18

MACY11 30A(1052)

05174

000430

ISRE2:

1499 005176 032713 040000
1500 005202 001401

1503
1504

005206
005212

032713
001401

020000

1507
1508

0C5216
005222

032713
001401

004000

1511
1512

005226
00523¢

032713
001401

002000

1515
1516

005236
005242

032713
001401

001000

ISRE3:

}2(1)3 005224
}az 005234

1517
1518
1519
1520
]'gg}

005244
005246
005252
005254
005256

005274

#40000, aCDS

BEQ

PSR:

001401

LASTCD

BIT
BEQ

#20000, acdS
R

BIT
BEQ

#4000,
. +4

aCDS

BIT
BEQ

#2000,
R

aCbS

BIT
BEQ

#1000,
.t

aCbS

HLT
BIT
BNE
HLT
ISRST: JMpP

104000
032713 077000
001001
104000
000167 001220

104000

BIT

HLT

104000

1524 005266 001170
1525 005270 005714

1527

ISRST

HLT

104000

1523 005262 032713 177475
1526 005272

HLT

11282 005214 104000

PAGE 28

ISRE3
<7,
ISRNC

HLT

}28} 005204 104000

BR
JSR
B8GE

HLT

1496 005172 1046000

11:21

DATA RELIABILITY TEST

HLT

005160 104000

1‘28% 005'62 000411
1496 005164 004767 001062
1495 005170 002222
;28;

26-MAR-80

PSRER
aCDC

;BRANCH TO ERROR ROUTINE
;CHECK COLUMN COUNT REG.

;CHECK ALL BITS EXCEPT 1,6 AND 7

BEQ

;BRANCH IF OK

BNE
TST

HLT

SIZE,

001166
001156
173152

PSRRT:

1534
1535

1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

1546

104000

005326 122021
005330 001047

005332
005336
005340
005344
005350
005352
005356
005364
005366
005372
005374

020167
100402
016701
005267
001412
005267
026727
001360
004767
105721
000754

001152
001146 000120
000720

PSRLP:

;END OF FILE ERROR (M1200 ONLY)

#177475,3CDS

1533 005320 016767 001164

005316

;CARD READER ERROR BUT NOT OFF LINE

BIT

MOV

1532

sBRANCH IF NOT

#077000,3CDS
.th
DATRST

173174 PSRNC:

1531

001212
001202
001200

;CHECK FOR CARD READER ERROR

sNON-EXISTANT MEMORY ERROR
;CHECK ALL ERROR BITS
;BRANCH IF AT LEAST ONE
;NONE OF THE ERROR BITS SET
;RESTART THE ENTIRE DATA TEST

001204

010067
166767
026715
001401

;CARD READER ERROR BUT NOT BOTH (CARD

;DATA LATE ERROR

BUFEND
RO,
BUFEND
SIZE,
BUFEND, QCDA
. t4

005276
005302
005310
005314

;CHECK FOR LAST CARD
;BRANCH IF 80TH CARD

;DATA ERROR

MOV
suB
CMP
BEQ

1528
1529

;OFF=LINE BUT NOT CARD READER ERROR

HLT

(MPB
BNE

(MP
MOV
INC
BEQ
INC
P
BNE
JSR
1ST8

BMI

(RO)+,
PSRDE

COUNT

(R1)+

TEND
R1,
.+6
TSTART, Rl
COUNT
PSRBE
CLCNT
CLCNT, #120
PSRLP
NXCRD
%7,
(R1)+
PSRLP

;

;SET UP COLUMN COUNTER
TEST THE DATA
;BRANCH IF DATA ERRCR

;CHECK FOR END OF TABLE

;BRANCH IF NOT
;MOVE POINTER TO TOP OF TABLE
;CHECK FOR END OF BUFFER
;BRANCH IF BUFFER END

;KEEP TRACK OF COLUMNS
;CHECK FOR END OF CARD
;BRANCH IF NOT END OF CARD
;GO TO NEXT CARD
:UPDATE TABLE POINTER FOR NEXT CARD

SEQ 0028

CZCOALO (D11 CARD READER DIAG

CZCDAD.P11

26-MAR-80 11:18

MACY11 30A(1052)

1547

PSRBE:

1543 005376 004767 000710

1549
1550
1551

005402
005404
005412

105721
032767
001014

000010

172136

PSRNX:

005422

162767

000120

1554 005430 162701 000240
1555 005434 066701 001066
1556 0056440 042713 000002

}ggg 005444 000167 000360

1559

1560
1561

005450
005454

005767
001045

001052

1563

005460

005267

001042

1562 005456
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
}g;g

005464
005466
005470
005474
005500
005502
005506
005512
005514
005520
005524
005526
005532

105740

122021
001031
062701
020167
003402
162701
126011
001010
162701
020167
003302
062701
000677

1581
1582

005546
005552

062701
020167

000120
000746

1584

005560

016701

000736

1589

005604

000004

013715

1592

005620

000004

013712

1583 005556 001337
1585

005564

PSRNX1: JMP

005067 000736

PSRDE:

PSRD1:

2%:

3s:
1%:

TST
BNE

1593 005624 114067 004731

1594 005630 004767 004740
1595 005634 122021
1596 005636 005767 171726

1597 005642 100001

1598 005644 000000

3288

1601

005646

000631

1602 005650 100402

X7,

(R1)+
#0,
PSRNX1

NXCRD

;GO TO NEXT CARD

SWR

#160.,

TSTART ;MOVE TABLE POINTER TO IMAGE TABLE

#160.,
CDCNT,
a2,

R1
R1
a(DS

#80.,

SRETRN

TEND

;UPDATE TABLE POINTER
:COMPENSATE FOR BYTES
:CLR PACKING MODE BIT

*CALCULATE ''SIZETM* AND READ MORE CARDS

CDCNT
PSRD2

TSTB

-(RO)

;SUB 1 FROM POINTER

(MPB
BNE
ADD
cMP
BLE
sSuB
CMPB
BNE
suB
cMP
BGT
ADD
BR

;TEST THE DATA
:BRANCH IF NOT THE SAME
;ADD THE MAGIC NUMBER
;CHECK FOR RAP AROUND
:BRANCH IF NOT
;RAP AROUND
;CHECK FOR DOUBLE MAT(CH
:BRANCH IF NOT
;SUBTRACT THE MAGIC NUMBER
;CHECK FOR RAP AROUND
*BRANCH IF NOT
*RAP AROUND
;GO CHECK REST OF DATA

SuB
cMp
BGT

(RO)+, (R1)+
1$
R1
421,
TEND
R1,
2%
R
#120,
21(RO), (R1)
33
R1
K21,
TSTART
R1,
PSRRT
R1
#4120,
PSRRT
R1
#21,
TSTART
R1,
1$

BNE

PSRD1

INC

ADD
P

MOV

CLR

1586 005570 032767 020000 171772 PSRD2: BIT
BNE
1587 0055758 001017
JSR
000342
004767
005600
1588

1590 005610 114167 004745
1591 005614 004767 004754

PAGE 29

:DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT

000120

1578 005534 162701 000021
1579 005540 020167 000756
1580 005544 003002

TSTB
8IT
BNE

suB
ADD
BIC

000021
001024
000120
000021
)
00001
000776

JSR

suB

001074

DATA RELIABILITY TEST

su8

1552 005414 162767 000240 001100
1553

26-MAR-80 11:21

TYPE,

CDCNT

#120,
R1,

TSTART, R1

JRESET CARD COUNTER

SPACE

PRINT1+1 :MOVE BYTE INTO PRINT BUFFER
PRINTB ; AND PRINT IT

;CK SW13 FOR _INHIBIT PRINTOUT
#20000, SWR
IF SET
:BRANCH
PSRDE3
DECK, CDCNT, CLCNT
HEADING,
;TYPE
TYHEAD
X7.
~(R1),
X7,

MOv8

-(RO),

BPL

JSR
cMP8
PSRDE3: TST

HALT
BR

:RAP AROUND

CDCNT

MOovB
JSR

TYPE,

Rl
TEND

;SUBTRACT MAGIC NUMBER
:CHECK FOR RAP AROUND
:BRANCH IF NOT

SPACE-3

X7,
(R0Y+,
SWR
PSRRT

PRINNH ;MOVE BYTE INTO PRINT BUFFER
PRINTB
(R1)+

; AND PRINT IT
:RESET POINTERS
;CHECK FOR HALT ON ERROR

*BRANCH IF HALT ON ERROR NOT SET
JHALT ON ERROR SET

;INTERUPT DUE TO SOME KIND OF ERROR

PSRER: BM]

PSRE1

;BRANCH ON ERROR BIT 15

SEQ 0029

CZCDARO (D11 CARD READER DIAG
26-MAR-80 11:18

CZCDAD.P11

OV NN
NN —-O

) = ed b d d b e —d d b

N S

I Y

o 00270 Yo Yo Yo o T bakd oY e Yo i

S QU

282

1603
1604
1605
1606

1621

005652
005654
005656
005662

MACY11 30A(1052)

HLT

104000

000463
032713
001414

PSRE:

004000

032713
001001

000002

032767
001001

000020

171666

005706
005714
005720
005722
005726
005730
005732

012767
032713
001415
032713

177660
010000

172606

005734

000312

005742
005746
005750

004767
002402
000167
104000
000167

005754
005760
005762

032713
001401
104000

040000

005764
005770
005772

032713
001401

020000

005774
006000
006002

032713
001401

002000

006004
006010
006012
006014
00602C
006022
006024

032713
001401
104000
032713
001001
104000
000167

001000

005664

005670
005672
005674
005702
005704

005740

104000

001002
104000
000414

3
E
26~-MAR-80 11: 21 PAGE 30
DATA RELIABILITY TEST

B8R

PSRST

8IT
8EQ
8IT

#4000,
PSRE?2
»2,

aCDS

#20,

SWwP

BNE

HLT

8IT
BNE

HLT

PSRE?:

040000

8I7
BEQ
BIT
BNE

HLT

177352

1%:

000526

PSRE3:

PSRST:

JOFF=LINE BUT NOT CARD READER ERROR

LASTCD

DATRST

B8IT

#40000, LIRS

8IT

8EQ

;CARD READER ERROR BUT NOT BOTH CARD
;RESTART THE ENTIRE TEST

#20000, aclDS
.+4

;END OF FILE ERROR (Mi200 ONLY)

#2000,
.+

aCDS

BIT
BEQ

#1000,
R IA

aCDS

JMP

;CHECK FOR CARD READER ERROR
;BRANCH IF NOT

;CARD READER ERROR BUT NOT OfFF LINE

8IT
BEQ

HLT

;CHECK FOR LAST CARD
JBRANCH IF NOT

:BRANCH IF 80TH CARD

JMP

B8NE

177276

;CHECK FOR CARD READER ERROR
sBRANCH IF SET

PSRNC

BEQ

;BRANCH IF BINARY DE(K

.+6

PSRE3
#40000, aCDSs

JMP
HLT

;BRANCH IF NOT

;ONLY READ ONE CARD
;CHECK FOR OFF~LINE

17,
1%

HLT
BIT

077000

aCDS

COUNT
acDS
#10000,

JSR
BLT

HLT

104000

L+

HLT

104000

PSRE4

HLT

PSRE&:

;ERROR BIT 15 NOT SET

:DATA LATE ERROR

#077000,aCDS
.+

PSRLP

:NON-EXISTANT MEMORY ERROR
;CHECK AILL ERROR BITS
;BRANCH IF AT LEAST ONE
;NGNE OF THE ERROR BITS SET
;GO CHECK THE DATA

;RETURN PORTION OF INTERUPT SERVICE ROUTINE

READ)
*CALCULATES A NEW ‘‘SIZE'' (NUMBER OF COUMNS TO BE READ
C(OMMAND
“SETS UP THE CARD READER BUFFETMS, AND ISUES THE

1650

1651
1652
1653

1654
1655
1656
1657
1658

066767
100404
012767
000770
032767
001004
012767

000456

000452

177660

000 44

001000

0004.72

000120

000424

:THEN DOES AN RT] TO THE BACKGROUND ROUTINE

SRETRN: ADD
aM]
MOV
BR
SRETR1: BIT
BNE

SRETR3: MOV

OFFSET, SIZE
SRETR1
OFFSET
SRETRN
#001000,S1ZE
SRE TR4
OFFSET

SEQ 0030

$EEERBEEET &5

0 ¢ [1)11 CARD READER DIJAG

26-MAR-80 11:18

006066

000760

.P1

010015

006070
006074
006076
006102

MACY11 30A(1052)

B8R

MOV

INC

RTI

000002

11:21

SRETRN

LASTCD
X7,
SRETR3
SJZE, aCDC
#8UFBEG,RO
RO,

ac(Ds

PAGE 31

DATA RELIABILITY TEST

SRETR4: JSR
8GT
MOV
MOV

004767 000156
003371
016714 000406
012700 016064

006110 005213
006112

26-MAR-80

aCDA

;CHECK FOR MORE THAN 80 CARDS

:BRANCH IF GREATER
JSET UP _COLMN COUNT
*RESET TABLE POINTER
;SET UP ADDRESS REG

:READ

THE DATA.
:SUBROUTINE TO SET PACKING MODE AND MOVE THE POINTERSTO FOR
PACKED TABLE

ADD
006114 062767 000240 000400 PAKSET: ADD
000374
006122 062767 000120

ADD
SuB
BIS

006130 062701 000240
006134 166701 000366
006140 052713 000002

RTS

006144

000207

006244
006250

000004
000207

006252
006260
006266
006272

016767 000232 000236
016767 000242 000232
005267 000226
062767 000120 000216

#160.,
#80.,

#4160
CDCNT
#2.

TSTART MOVE TABLE POINTER

TEND

i
|
DS

;UPDATE TABLE POINTER
; COMPENSATE FOR BYTES
*SET PACKING MODE BIT

(V2 1)

25383
-~ v} ROO
HWNO~O

o
i
b b

o
-

—.-‘d—l—i—.—‘-—.—)—‘ —

NNNNNNNYNNNY NN

CARD COUNT, AND COLUMN COUNT
:SUBROUTINE TO TYPE HEADING, TYPE OF DECK, FIRST
FOR
;CHECK IF NOT ERROR
ERFLG
TST
TYHEAD: BNE
005767 172360
006146 001004
:BRANCH
NOHEAD
006152
;SET FLAG
ERFLG
INC
172352
006154 005267
:TYPE HEADING FOR DATA ERRORS
TYPE, MSG13
006160 000004 015053
:OUTPUT TYPE OF DE(CK
NOHEAD: TYPE
006164 000004
*POINTER TO DECK TITLE
DUMMY
DECK:
006166 000000
SPACE
TYPE,
006170 000004 013715
;ADJUST CADR COUNT
CDCNT
INC
000326
005267
006174
;TYPE CDCNT IN OCTAL
CDCNT,PRINTY
MOV
006200 016767 000322 004352
:TYPE LEADING ZERO'S
X7 ,PRINTR
JSR
006206 004767 004402
ST CADR COUNT
:READJU
CDCNT
DEC
006212 005367 000310
SPACE
TYPE,
006216 000004 013715
;ADJUST COLUMN COUNT
CLCNT
INC
000302
005267
006222
;TYPE CLCNT IN OCTAL
CLCNT,PRINT1
MOV
006226 016767 000276 004324
:TYPE LEADING ZERO'S
X7 ,PRINTR
JSR
006234 004767 004354
:READJUST COLUMN COUNT
CLCNT
DEC
006240 005367 000264

006300
006302
006310

100772
026727
000207

TYPE,
RTS

013715

000212

SPACE
x7

;SUBROUTINE TO CHECK FOR _LAST CARD

LASTCD: MOV
MOV
LSTCDT: INC
ADD

8MI
CMP
RTS

000120

SIZE,
CDCNT,
TEMP2
#120,

LSTCD1
TEMP2,
X7

TEMPI
TEMP?
TEMP1

#B0.

;SUBROUTINE TO KEEP TRACK OF CARDS

NXCRD:
006312 005067 000212
000204
005267
006316
006322 026727 000200 000120

CLR
INC
MP

CLCNT
CDCNT
CDCNT,

002001

BGE

ALLDON

006334 005726
006336 022626

ALLDON: TST
cMP

(6)+
(6)+,

006330

006332

000207

RTS

#120

;RESET COLUMN COUNT
:KEEP TRACK OF CARDS
;CHECK FOR 80TH CARD
JRETURN

(6)+

:CORRECT STACK POINTER TO REPLACE RTS
*CORRECT STACK POINTER TO REPLACE RTI

SEQ 0031

?11

&
N N NN N N NN NSNS N NN N NN N YN
AONIPONINIAININININ)
—b b s — b
N AN
OO NO N
NN 2OV~
WN

CARD READER DIAG

26-MAR-80 11:18

006340

Ovos4b

006350
006352
006354
006356
006360
006362
006364
006372
006374
006376

004767
013700
001405
000005
004710
000240
000240
000240
032767
001602
000000
000427

003622

032713
001424
005713

010000

032713

040000

001001
104000

000042

000040

171176

HOOK1:

012712
000001
000776

006444

006444
006450
006452

032713
001001

000010

HOOK 1

JSR
NOP

X7,

(RC)

8IT
BEQ
HALT
BR

#40,SWR
ONL INE

NOP
NOP

006454

022626

006456

005167
032767
001402
000167
000167

ONINT:

172044
000100

SEC Lo

JRING BELL

:LOAD CONTENTS OF SOFT VECTOR 42
JBRANCK IF NO HOOK
;CLEAR ALL [/0

JRETURN TO MONITOR
;CHECK SWR FOR HALT AT END OF DECK
;CONTINUE IF NOT SET
JEND OF DECK,SW5 SET

DECK(CK

#10000, acDbs
DECKCK

;CHECK FOR OFF~LINE
;JBRANCH IF NOT

;BRANCH IF SET OK
;ERROR BIT 15 NOT SET

aCbds

;CHECK FOR ERROR (BIT 15)

#40000, (DS
.+4

;CHECK FOR CARD READER ERROR
;BRANCH IF SET OK

BIT

#023471,a(DS

;CHECK FOR EXTRA BITS SET

.+4

;OFF~LINE NOT DUE TO CARD READER ERROR
JBRANCH IF

JEXTRA ERROR BITS SET
;SET UP INTERUPT VECTOR
sWAIT FOR AN INTERUPT
:WAIT ON TRACE TRAPS

MoV
WAIT

HONINT, QADINT

8IT
BNE
HLT

70,
L+

aCDS

;CHECK FOR TRANSITION TO ON LINE
sBRANCH IF SET OK
; INTERUPT BY OTHER THAN BIT 3 SETTING

(SP)+,

(SP)+

;RESTORE THE STACK

coM

TRFLG
#100.SWR
.6

;WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SW6 FOR TYPE
;OF TESTING TO BE PERFORMED

171100

DECKC(CK:

BIT
BEQ

JMP
JMP

172322
175564

175556

BIT
BNE
HLT
BEQ
HLT

104000

177660
177660

8tqQ

a2,

ONL INE : BIT
BEQ

104000

022626
000167

%7,BELL

TST
8M]
HLT

023471

006442

JSR

RESET

032713
001401

006432

26-MAR-80 11:21 PAGE 32
DATA RELIABILITY TEST
Moy

100401
104000

NN N

lalal

MACY11 30A(1052)

DATRST:

;TOGGLE TRACE FLAG
;CHECK SW6
;BRANCH IF NOT SET

:RERUN COMBINED INSTRUCTION AND DATA TEST

RESTRT
DATST

(SP)+,
DATST

(SP)+

;RESTORE THE STACK
;JRESTART DATA TEST

SIZE:
OFFSET:
BUFEND:
TEMP1:

TEMP?:

TSTART:
TEND:

CDCNT:
CLCNT:

;STARTING ADDRESS OF DATA TABLE
;END ADDRESS OF DATA TABLE
;NUMBER OF CARD BEING READ
;NUMBER OF COLUMN BEING CHECKED

¥ (DAPO (D11
CZz CDAD.P11

(. RD READER DIAG

26-MAR-80 11:18

MACY11 30A(1052)

177777

171762
006574
003642

22828

GEEERY, S¥ 23dgdece

003652

JMP

ERCD11: MoV
ER12CD: JSR

MOV
CLR

003340
013723
015423
015466
015551
015612

TESTA:

015661
013720
177701
016044

HALT
INC
1ST8
BNE
HLT

005213

105713

001001
104000

005713
001001

2
=0 OO

b ——d — and
D cmd
o —d

— o

NO NS WAL= O

D
s
o
ek e
i
el
il

032713

#177777, CD1000 ;CARD READER IS M1000
X7 ,SETUP
JINITIALIZE REGISTERS
NTESTA+2 ,RETURN ;SETUP SCOPE LOOP RETURN

ADDRESS

JRUN EACH ERROR TEST ONCE ONLY

1 TMAX

002000

CRLF

INIT

MSG22
MSG23
MSG24
MSG25
MSG26

CRLF-3

#-77,
CDC
HBUFBEG.a(DA

;SET UP BUS ADDRESS

;CHECK FOR ERROR ( BIT 15)

#2000,

BIT
BEQ

#075577 ,aCDS
.44

HLT

:"WHEN PRINTING STOPS PUT HALT AND
;SINGLE BUS CYCLE DOWN, AND HIT "CONTINUE®' ON THE
;CONSOLE UNTIL ONE CARD IS READ
sTHEN F.T UP THE TWO SWITCHES AND HIT
;'CONTINUE® ON THE CONSOLE
;MOVE MESSAGE UP ON TTY
JSET UP COLUMN COUNT
;CHECK FOR CONTROLLER READY
;BRANCH IF SET OK
;CONTROLLER READY FAILED TO SET

BIT
BNE

;INITIALIZE STATUS REGISTER

:START READING

a(DS
alDS
L+
aCDS
.+

HLT

075577

X7,

TST

BNE
HLT

006672
006674
006700
006702

SCOPE
JSR
TYPE,
TYPE,
TYPE,
TYPE,
TYPE,
TYPE,
TYPE,
MOV
MoV

104000

;CARD READER IS M-1200

;SHOULD SET ERROR (BIT 15)

b
b
ad ed =P ad
e
md

012714
012715
000000

b rd o

171764

CD1000
ER12(CD

:HALT SHOULD CAUSE DATA LATE ERROR (BIT 10)

1802

;DATA ERROR COLUMN COUNT

:SETUP FOR ERROR FUNCTION TEST

ER1200: CLR

SEQ 0033

;OFFSET TO POINTER FOR DATA PRINTOUT

DERCNT: 0

171776
00L YOO

—t e

PTOFF:

177
1772
1773
1774

1808

26-MAR-80 11:21 PAGE 33
DATA RELIABILITY TEST

;BRANCH IF SET OK
;ERROR BIT 15 NOT SET
aCDS

:CHECK FOR DATA LATE ERROR (BIT 10)
JBRANCH IF SET OK
;DATA LATE BIT 10 NOT SET

;CHECK FOR ANY OTHER BITS

;BRANCH [F OK

JEXTRA BITS SET IN STATUS WORD

:THE CARD READER GOING OFF-LINE SHOULD SET ERROR (BIT 15)
006704

006706
006712
006716
006722
006726
006730
006734
006736

JAND OFF-LINE (BIT 12)
;GOING BACK ON LINE SHOULD SET' TRANSITION TO ON-LINE'' (BIT 3)

003226
014027
013762
013720
010000

TESTB:

SCOPE
JSR
TYPE,
TYPE,
TYPE,

HALT
8IT
BNE
HLT

27, INIT
MSG3
MSG2

CRLF-3

#10000,aCDS
.4

JINITIALIZE STATUS REGISTER

;'PRESS CARD READER 'STOP'"’

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

;CHECK BIT 12

JBRANCH IF SET

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

[el¥e]

— P

]

AR A g AR

—— d e

[o Jo Jo To To T

]

D b d = d el e D e

NN
NO

N
W

D ad D D o e i id i D el D i )
00 0000 0o 0o O 00 00 00 00

D dd

-y

A AN T 19 3 S SR 3 & RORZESH9E &5

O
~NAy

?11

CARD READER DIAG

006749
006742
006744

26-MAR-80 11:18

MACY11 30A(1052)

005713

100401
104000

031327
001401

067577

000004
000004
000004
000000

013726
013762
013720

032713
001001
104000

000010

032713
001401

010000

104400

004767
012712
052767
016762
042767
012713
000004
0000604
032713
001775
000402

;CHECK BIT 15
JBRANCH IF SET
JERROR (BIT 15) WASN'T SET

BIT
8EQ

aCDS.#067577
.+

;CHECK FOR EXTRA BITS
;BRANCH IF 0K
:STATUS WORD ERROR

TYPE,
TYPE,

TYPE,

MSG]
MSGZ
CRLF-3

;''PRESS CARD READER 'RESET''"
;'THEN HIT °*CONTINUE' ON THE CONSOLETM

BIT

70,

HLT

104000

077567

PAGE 34

aC(DS
R

BNE

005713
100401

TST
B8M]
HLT

HALT

104000

11:21

ERROR FUNCTION TESTS

HLT

104000

032713
001401
104000

26-MAR-B0

;MOVE MESSAGE UP ON TTY

a(Ds

;CHECK FOR TRANSIION TO ON-LINE(BIT 3)
JBRWNCH IF SET OK

;TRANSITION TO ON~LINE FAILED TO SET

8IT
BEQ
HLT

#10000, aCDS
.t

;CHECK FOR OFF-LINE
;BRANCH IF OK
JOFF=LINE STILL SET

TST
BMI
HLT

aCDS
.44

;CHECK ERROR (BIT 15)
:BRANCH IF STILL SET
;ERROR BIT 15 CLEARED

8IT
BEQ
HLT

#077567 ,3CDS
.44

;CHECK FOR EXTRA BITS
;BRANCH IF OK
;EXTRA STATUS BITS SET

:TRYING TO READ WHEN CARD READER IS OFF-LINE SHOULD CAUSE AN INTERUPT
“CHECK THAT AN INTERRUPT OCCURS WHEN THE CARD READER COMES ON LINE
003100
007112
000340
170720
000340
000100
014027
013720
010000

TESTC:

SCOPE
JSR

MOV

BIS

170724

MOV

000002
170710

8I(

TLOPC:

MOV
TYPE,
TYPE,

BIT
BEQ
BR

%7, INIT

N#TINTC, SADINT

#340,
PS,
#340,
#100,

MSG3

;INITIALIZE STATUS REGISTER
LOAD RETURN POINTER

;SET PROCESSOR TO LEVEL 7
PS
)
2(ADINT :LOAD RETURN PROCESSOR STATUS
;SET PROSSOR PRIORITY TO O
PS
JSET INTERUPT ENABLE
aCDS

:*PRESS CARD READER 'STOP‘'

CRLF-3
#183?0, albs

;MOVE MESSAGE UP ON TTY
JWAIT FOR OFF~LINE TO SET

CONTC

;SKIP INTERUPT HANDLER

;'STOP®' SHOULDN'T CAUSE AN INTERUPT
;RETURN FROM THE INTERUPT

104000
000002

TINTC:

HLT

105713
100401
104000

CONTC:

1STB

alDs
. +4

sBRANCH IF OK
;CU READY DIDN'T SET YET

TST
B8M]
HLT

aCDS
.44

;CHECK ERROR BIT
JBRANCH IF S ET
;ERROR (BIT 15) NOT SET

005713
100401

104000

RTI

BMI
HLT

;CHECK CONTROLLER READY BIT 7

SEQ 0034

CZCDADO CD11 CARD READER DIAG

CZCDAD.P11
1883
1884
}%
1887
1888
1889
1890
1891

26~MAR-80 11:18

007132
007136
007140
007142
007146
007154
007162
007170

032713
001401
104000
012712
252767
016762
042767
005213

MACY11 30A(1052)

007174
000340 170622
170616 000002
000340 170606

1896 007200

}ggg
1899
1900
1%12

007202
007204
007210
007212

TINTCA: (WP
TST8

1894 007174 022626
1895 007176 105713
100401

8M]

104000
032713 010000
001001
104000

1903 007214 005713
1904 007216 100401

}ggg 007220 104000

1907 007222
1908 007226
18(1)8 007230
1911 007232
1912 007236
1913 007244
1914 007252
1915 007260
1916 007264
}3}; 007270

032713
001401
104000
012712
052767
016762
042767
000004
000004
000777

1919 007272

022626

007272

000340 170532
170526 000002
000340 170516
013726
013720

1920 007274 032713 000010
1921 007300 001001
}g%% 007302 104000

1928 007314 005713
1929 007316 100401
}8%(1) 007320 104000

1932 007322 032713 077467
1933 007326 001401
}g?g 007330 104000
1936

1937
1938

007332

104400

PAGE 35

;CHECK FOR EXTRA BITS
JBRANCH IF 0K
;STATUS WORD ERROR
#TINTCA,3ADINT ;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
#340, PS
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
PS,
;SET PROSSOR PRIORITY TO O
#3640, PS
:TRY TO READ A CARD
acDs

#067477 ,aCDS
R

JWAIT FOR THE INTERUPT

(SP)+,
aCDSs

(SP)+

#10000, acCDS

TST
8M]

aCDS$
.th

BIT
BEQ
HLT
MOV
BIS
MOV
BIC
TYPE,
TYPE,
BR

#067477,aCDS

;RESTORE THE STACK
:CHECK CONTROLLER READY BIT 7
;BRANCH IF OK
;CU READY DIDN'T SET YET
;CHECK FOR OFF-LINE BIT 12
;BRANCH IF 0K
;OFF~LINE BIT 12 NOT SET
;CHECK ERROR BIT
;BRANCH IF SET

;ERROR (BIT 15) NOT SET

;CHECK FOR EXTRA BITS
JBRANCH IF OK
;STATUS WORD ERROR
#TINTCB,@ADINT ;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
#3640, PS
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
PS,
;SET PROSSOR PRIORITY T0 0
#3460, PS
.+

;' PRESS CARD READER 'RESET'"’
sMOVE MESSAGE UP ON TTY
JWAIT FOR THE INTERUPT

MSG1
CRLF-3
.

BIT
BNE
HLT

#10,

(SP)+

;RESTORE THE STACK

817
BEQ
HLT

#10000, acbs
.+4

;CHECK FOR OFF~LINE
JBRANCH IF OK
;OFF-LINE STILL SET

TST
BM]
HLT
BIT
BEQ
HLT

a(DS
.+

;CHECK ERROR (BIT 15)
JBRANCH IF STILL SET
;ERROR BIT 15 CLEARED

TINTCB: (MP

1926 007304 032713 010000
1925 007310 001401
}359 007312 104000

HLT
BIT
BNE
HLT
HLT

067477

11:21

ERROR FUNCTION TESTS
BIT
BEQ
HLT
MOV
BIS
MOV
BIC
INC

067477

}gg% 007172 000777

26-MAR-80

(SP)+,

aCDs

;CHECK FOR TRANSITION TO ON-LINE(BIT 3)
;BRANCH IF SET OK
;TRANSITION TO ON-LINE FAILED TO SET

;CHECK FOR EXTRA BITS
;BRANCH IF OK
SEXTRA STATUS BITS SET
; INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION
*CHECK THAT INTERRUPTS OCCUR WHEN THE CARD READER COMES ON LINE
TESTD:

SCOPE

#077467 ,aCDS
.+b

SEQ 0035

CZCDADO CD11 CARD READER DIAG

CZCDAD.P11

26~MAR-80 11:18

MACY11 30A(1052)

26-MAR-80 11:21

ERROR FUNCTION TESTS

1939 007334 004767 002600

JSR

1942 007350 000004 013720
007354 000000
1943
1545 007356 032713 010000
1945 007362 001001

TYPE.,
HALT
BIT
BNE

1968 007366 005713

TST

TYPE,
TYPE,

1940 007340 000004 014115
1941 007344 000004 013762

HLT

132"7’ 007364 104000

1949 007370 100401

BM]

1952 007374 032713 040000

1953 007400 001001

BNE

1956 007404 032713 027573
1957 007410 001401
}ggg 007412 104000

BIT
BEQ
HLT

HLT

}82(1) 007372 104000

8IT

HLT

}ggg 007402 104000

1960
1961
1962
1963
1964
1965

007414
007420
007426
007434
007442
007446

012712
052767
016762
042767
012713
000004

1966 007452 000004 013726
1967 007456 000004 013720
}ggg 007462 000777

1970 007464 022626

1971 007466 012712 007530

1972 007472 052767 000340 170276
1973 007500 016762 170272 000002
1974 007506 042767 000340 170262

1975
1976
1977
}g;g

007514
007520
007524
007526

012714 177701
012715 016044
005213
000777

1980 007530 022626
1981 007532 022713 000300
1982 007536 001401

}8%2
1985
1986
1987
1088
1989
1990

007540 104000

1992

007564

1991

007542

104400

007544 004767 002370
007550 000004 014232
007554 000004 013762

007560 000004 013720
000000

1993 0025@6 032713 010000

199, 007572 001001

MOV
8IS
MOV
BIC
MOV
TYPE,.

007464
000340 170350
170344 000002
000340 170334
000100
014166

TYPE,
TYPE.,
BR

TINTD:

PAGE 36

X7.INIT

JINITIALIZE STATUS REGISTER

CRLF-3
#10000,3CDS
.+4

"MOVE MESSAGE UP ON TTY
; CHECK BIT12
JBRANCH IF SET

MSGS
MSG2

J"REMOVE ALL CARDS FROM THE INPUT HOF‘.PER”
“*“THEN HIT "CONTINUE' ON THE CONSOLE’
TOFF-LINE (BIT 12) WASN'T SET

(DS

:CHECK ERROR BIT

#40000, aCDS

:CHECK FOR CARD READER ERROR

#027573.9CDS
.+4

:CHECK FOR EXTRA BITS
'BRANCH IF OK
;STATUS WORD ERROR

*BRANCH IF SET

.44

;ERROR (BIT 15) NOT SET

.+4

"BRANCH IF SET

:CARD REAER ERROR B]T 14 NOT SET

#TINTD. SADINT :LOAD RETURN POINTER
*SET PROCESSOR TO LEVEL 7
PS
2CADINT) " :LOAD RETURN PROCESSOR STATUS
:SET PROSSOR PRIORITY TO 0
PS
-SET INTERUPT ENABLETHE INPUT HOPPER"*
#1000 aCDS
:"RESTORE CARDS TO
MSG6

#340,
PS,
#340,

“'PRESS CARD READER 'RESET'"’
‘MOVE MESSAGE UP ON TTY
sWAIT FOR THE INTERUPT

MSGI
CRLF-3
.
(SP)+,

(SP)+

;RESTORE THE STACK

#000300,3C0S

(SP)+

L+

;RESTORE THE STA(K
-CHECH THE CARD READER STATUS
*BRANCH IF OK

TYPE,

CRLF-3

"MOVE MESSAGE UP ON TTY

BIT

#10000,aCDS

C(CMP

MOV
BIS
MOV
BIC
MOV
MOV
INC
BR

TINTDA: CMP
WP
BEQ

NTINTDA,3ADINT :LOAD RETURN POINTER
‘SET PROCESSOR TO LEVEL 7
#3640, PS
2(ADINT) " :LOAD RETURN PROCESSOR STATUS
PS,
;SET PROSSOR PRIORITY T0 0
#340, PS
:SET UP COLUMN COUNT
#-77. aCDC
:SET UP BUS ADDRESS
#8UFBEG,3CDA
*START READING
acDs
‘WAIT FOR AN INTERUPT
)

:CARD READER STAVYUS ERROR
HLT
;OUTPUT STACKER FULL SHOULD SET BITS 15, 14, 12, 7
TESTE: SCOPE
:INITIALIZE STATUS REGISTER
X7.INIT
JSR
2"PULL OUTPUT STACKER PRESSURE ARM
TYPE, MSG7
_
;ALL THE WAY DOWN'’
’
CONSOLE'
THE
ON
E'
STHEN HIT ‘CONTINU
TYPE, MSG2
HALT

BNE

:CHECK OFF-LINE BIT12

*BRANCH IF SET

SEQ 0036

({CDADO (D11 CARD READER DIAG
26-MAR-80 11:18

CZCDAD PN

MACY11 30A(1052)

L 3
PAGE 37
26~-MAR-80 11:21
ERROR FUNCTION TESTS

1995

007574

104000

HLT

1997
1998

007576
007600
007602

005713

187

007604
007610
007612

032713

007614
007620
007622

032713
001401

027577

007624
007630
007636
007644
007652
007656
007662
007666

012712
052767
016762
042767
012713
000004
000004
000777

007670
000340
170134
000340
000100
013726
013720

007670
007672
007676
007704
007712
007720
007724

022626
012712
052767
016762

001001

042767
012714
012715

007732

007734
007736
007742

022626
022713
001401

BNE

HLT

BIT

8EQ
HLT

007734
000340
170066
000340
177701

#340,
#100,

cMP

MOV

BIC
MOV

MOV

INC

cTMMP

BEQ

HLT

104000

#340,

MSG1

000300

;CHECK FOR EXTRA BITS

TYPE,

MOV

TINTEA:

#027577.8(05

;BRANCH IF OK

:STATUS WORD ERROR

;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
)
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
;SET PROSSOR PRIORITY TO 0
PS
;SET INTERUPT ENABLE
aCDS

PS,

8IS

016044

. A

;CHECK FOR CARD READER ERROR
;BRANCH IF SET
;CARD READER ERROR BIT 14 NOT SET

MOV

TYPE,

170072
000002
170056

#40000, (DS

#TINTE, @ADINT

8IC
MOV

TINTE:

R A

MOV

8IS

170140
000002
170124

;CHECK ERROR BIT 15
;BRANCH IF SET
;ERROR BIT 15 NOT SET

acDs

;'PRESS CARD READER 'RESET''
;MOVE MESSAGE UP ON TTY

CRLF=3

;WAIT FOR THE INTERUPT

;RESTORE THE STACK
(SP)+
(SP)+,
#TINTEA,3ADINT ;LOAD RETURN POINTER
2SET PROCESSOR TO LEVEL 7
PS
#340,
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
PS,
;SET PROSSOR PRIORITY TG O
PS
#340,
;SET UP COLUMN COUNT
aCDC
N=-77.
2SET UP BUS ADDRESS
#8UFBEG,a(DA
aCDS
;START READING
;WAIT FOR AN INTERUPT

(SP)+

#000300.3CDS
R IA

;RESTORE THE STACK

;CHECH THE CARD READER STATUS
;BRANCH IF OK
;CARD READER STATUS ERROR

12
;A PICK CHECK ERROR SHOULD SET BIT 15, BIT 14, ANDTOBIT
DELIVER A CARD TO
WHEN THE FEED MECHANISM FAILS
N 400 MS.
WITHI
ON
STATI
;THE READ

;THIS ERROR 0OCC URS

002164
014115
013762
014334

013726
013720

TESTF:

SCOPE
JSR
TYPE,
TYPE,
TYPE,

TYPE,
TYPE,
HALT

X7, INIT
MSG5
MSG2
MSG8

:'REMOVE ALL CARDS FROM THE INPUT HOPPER''
“"'THEN HIT *CONTINUE®' ON THE CONSOLE'’

MSG1
CRLF-3

;MOVE MESSAGE UP ON TTY

;'HOLD DOWN THE SWITCH UNDER THE CAP
;OF THE INPUT HOPPER"’
;'PRESS CARD READER 'RESET''’

010000

8IT
BNE
HLT

l12000, aCDs

032713
001775

000010

8IT
BEQ

#10,
.~

ge2

007744

B8IT

040000

104000

005213
000777

007730

HLT

104000

28R

1999

2000
2001

8M]

100401
104000

1996

JOFF~LINE (BIT 12) WASN'T SET

alDS

;CHECK FOR OFF~LINE
JBRANCH IF SET

:OFF LINE NOT SET AFTER ‘'CONTINUE''
:CHECK FOR "TRANSITION TO ON LINE"
;WAIT FOR IT

SEQ 0037

CZCOARO C D11 CARD READER DIAG

CZCDAD.P11

26~MAR-80 11:18

MACY11 30A(1052)

2051 010020 022713 140210
2052 010026 001401

%22 010026 104000
2055
2956
2057
2058
2059
2060
2061
22&%
2064
2065
2282(7)
2068
2069
228;?
2072
2073
sg;lso
2076
2077
2078
2079
2080

010030
010034
010040
010042
010044
010046
010052
010054
010056
010060
010062
010064
010070
010072
010074
010100
010102
010104
010110
010116
010726
010132

012714
012715
005213
105713
100376
032713
001001
104000
005713
100401
104000
032713
001001
104000
031327
001401
104000
012712
052767
016762
042767
012713

177701
016044

2083
Sggg
2086
2087
2088
2089
2090
2091
2092
2093
?8832
2096

010146
010152
010154
010156
010162
010170
010176
010204
010210
010214
010216
010220

000004
000777
022626
012712
052767
016762
042767
012714
012715
005213
000777
022626

013720

010000

040000

027577
010154
000340 167660
167654 000002
000340 167644
000100

2081 010136 000004 014166
2082 010142 000004 013726

2098 010226 001401

2099 010230 104000
010232

010234

104400

004767

#140210,8CDS

MOV
MOV
INC
TST8
BPL
BIT
BNE
HLT
1ST
8M]
HLY
BIT
BNE
HLT
BIT
BEQ
HLT
MOV
8IS
MoV
8IC
MOV

#-77, aCDC
#BUFBEG ,a(DA
aCdS
aclDs
.=2
#10000,aCDS
. +6

8EQ

HLT

PS
acDS

TYPE,
TYPE,

#000300,acDS

HLT

;CHECK FOR CORRECT STATUS BITS
JBRANCH IF 0K

;STATUS NOT EQUAL TO 140210

JSET UP COLUMN COUNT
;SET UP BUS ADDRESS
;READ
;CHECK CONTROLLER READY
;WAIT FOR CONTROLLER READY
;CHECK BIT12
;BRANCH IF SET
;OFF=LINE (BIT 12) WASN'T SET
;CHECK SPECIAL CONDITION BIT
alDs
;BRANCH IF SET
.44
;SPECIAL CONDITION NOT SET
;CHECK FOR CARD READER ERROR
#40000, acDbs
IF SET
;BRANCH
R
;CARD REAER ERROR BIT 14 NOT SET
:CHECK FOR EXTRA BITS
aCDS ,#027577
;BRANCH IF OK
.+
:STATUS WORD ERROR
ATINTF, BADINT ;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
#340, PS
;LOAD RETURN PROCESSOR STATUS
)
2(ADINT
PS,

#340,
#100,
MSG6
MSG1

BEQ

PAGE 38

;SET PROSSOR PRIORITY TO 0
;SET INTERUPT ENABLE
;'RESTORE CARDS TO THE INPUT HOPPER''
;'PRESS CARD READER ‘'RESET'"

;MOVE MESSAGE UP ON TTY
CRLF-3
FOR THE INTERUPT
:WAIT
.
(SP)+, (SP)+ ;RESTORE THE STACK
NTINTFA,QADINT ;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
#3640, PS
2(ADINT) ;LOAD RETURN PROCESSOR STATUS
PS,
;SET PROSSOR PRIORITY TO O
#340, PS
;SET UP COLUMN COUNT
aCDC
#-77,
;SET UP BUS ADDRESS
,3CDA
#BUFBEG
:START READING
albs
FOR AN INTERUPT
;WAIT
.
(SP)+ ;RESTORE THE STACK
(SP)+,
R

;CHSCH THE CARD READER STATU'S
;BRANCH IF OK

;CARD READER STATUS ERROR

14, AND BIT 12
;A STACK CHECK ERROR SHOULD SET BIT 15, BIT
TO DELIVER A CARD TO
FAILS
SM
MECHANI
FEED
THE
“THIS ERROR OCCURS WHEN

2100

2101
2102
2105

11:21

ERROR FUNCTION TESTS

TYPE,
BR
TINTF: (MP
MOV
010220
BIS
000340 167606
MOV
167602 000002
BIC
000340 167572
MOV
177701
MOV
016044
INC
B8R
TINTFA: CMP

2097 010222 022713 000300

2103
2104

26-MAR-80

001700

2106 0102640 000004 014027

:THE READ STATION
TESTG: SCOPE

JSR

TYPE,

27, INIT

MSG3

:'PRESS CARD READER ‘TOP'"’

SEQ 0038

ANAN N NN
N
N
B BB
B B 2 3 D NN

26-MAR-80 11:18

010244
010250

010254
010260
010264

010266

010272

010274
010300
010302

000004
000004
032713

001775
032713
001775
022713
001401

010332
010334
010336

005713

01. 740
010344
010346

032713
001001

010350
010354
010356
010360
010364
010372

000010
100210

;''SLIDE A CARD FROM THE OQUTPUT HOPPER ABOUT
JHALF AN INCH BACK INTO THE READ HEAD

MSG9

;BLOCKING THE PHOTO CELL

:"PRESS CARD READER ‘'RESET'"’

MSG1

CRLF-3

8IT
BEQ
817
BEQ
P
8EQ

#10000, aCDS
TLOPG
70,
acDs
TLOPGA
” 2021 0.aCDs

MOV
MOV

#-77,

177701
016044

INC

7578
BPL

BIT
BNE
HLT

:MOVE MESSAGE UP ON TTY
sCHECK FOR OF LINE
JWAIT FOR OFF=LINE

;CHECK FOR ‘'TRANSITION TO ON LINE'’
SWAIT FOR IT

;CHECK FOR CORRECT STATUS BITS
sBRANCH IF 0K

;STATUS NOT EQUAL TO 100210

HLT

104000

acdDC

#BUFBEG.3CDA
aCDS
aCDS
TLOPGB
012000.8CDS
.+

;SET UP COLUMN COUNT
;SET UP BUS ADDRESS
sREAD

;CHECK CONTROLLER READY
JWAIT FOR CONTROLLER READY
:CHECK BIT12
;BRANCH IF SET
JOFF=LINE (BIT 12) WASN'T SFT

;CHECK SPECIAL CONDITION BIT

TST
BM]
HLT

alDS$

040000

BIT
BNE
HLT

#40000, aCbS
.44

;CHECK FOR CARD READER ERROR
;BRANCH IF SET
;CARD REAER ERROR BIT 14 NOT SET

032713
001401

027577

BIT
BEQ
HLT

#027577 ,aCDS
R

;CHECK FOR EXTRA BITS
;BRANCH IF OK
;STATUS WORD ERROR

012712
052767
016762
042767

010430
000340

MOV

#TINTG, @ADINT
#340,
PS

100401
104000

104000

000004
000004
000004
000777

TYPE.
TYPE,

013726
013720
010000

010000

012713

PAGE 39
26-MAR-80 11:21
ERROR FUNCTION TESTS
TYPE,

014425

104000

012714

ole OOOOSOOOO
—t —d b b

D
b ad
el e
i ol
) emd e
i
—

000004

010304
010310
010314
010316
010320
010322
010326
010330

OO
NOWN
W~ OO0
gfirgrnvnaa:uvfinnu“numb:~

) —b

[elale)
— b b

Y
OO

PAINOANUNONI
NN NN PONRNDNUNSNUPNUNC N
b e e o bt od d ek e i e D wd e et —d b
b wd s e o d eed od
NN DOPNIAININ)

AUALALALALAIALNLIAIAINL
NPV NN AN A NN NN RN NN NI NI NI N ALY

0 (D11 CARD READER DIAG

MACY11 30A(1052)

022626
012712
052767
016762

042767
012714

012715
005213
000777
022626

022713

167400

000340
0001U0
014603
013726
013720

010474
000340
167326
000340
177701
016044

000300

167404
000002
167370

8IS

MOV

PS.

oV
TYPE,
TYPE,
TYPE,
BR

MSG1

8IC

167332
000002
167316

MOV

BIS
MOV
BIC
MOV
MOV
INC
BR
M
P

;BRANCH IF SET

#3,0,
#100,

MsG10

;SPECIAL CONDITION NOT SET

;LOAD RETURN POINTER
;SET PROCESSOR TO LEVEL 7
2(ADINT) :LOAD RETURN PROCESSOR STATUS
PS
acos

;MOVE MESSAGE UP ON TTY
;WAIT FOR THE INTERUPT

CRLF-3

(SP)+
(SP)+,
~TINTGA,BADINT
#340,
PS

PS,

;RESTORE THE STACK
;LOAD RETURN POINTER

;SET PROCESSOR TO LEVEL 7
)
2(ADINT ;LOAD RETURN PROCESSOR STATUS
;SET PROSSOR PRIORITY TO 0
PS

#340,
aCDC
#-77.
#BUFBEG,aCDA
achs

(SP)+,

;SET PROSSOR PRIORITY TO 0
;SET INTERUPT ENABLE
;' REMOVE JAMMED CARDS''
;' PRESS CARD READER ‘RESET'"'

(SP)+

#000300,3CDS

;SET UP COLUMN COUNT
;SET UP BUS ADDRESS
;START READINSG

;WAIT FOR AN INTERUPT
;RESTORE THE STACK

;CHECH THE CARD READER STATUS

SEQ 0039

o Qaurd

(=l=]

cg’

B
=N

N S

26-MAR-80 11:18

b d

LNT N TLNT ST NSV LS TNT N LV S TN LNT ST NN,V N1,V N 1,67 .V

o Tt

e
M~

11 CARL READER DIAG

MACY11 30A(1052)

104000

sBRANCH [F 0K
;CARD READFR STATUS ERROR

:ON M-1000 BIT 15 IS ALWAYS CLEARED PRESSED WITH INPUT
“ON M-1200 IF END OF FILE BUTTON IS
‘HOPPER LOADED THEN WHEN INPUT HOPPER BECOMES EMPTY
‘HOPPER CHECK INDICATOR LIGHT COMES ON AND BITS

=00

NNNY NN NN

SYRERUC2]BBIRRRAI2E
I ~Noawnae W

PAGE 40

-END OF FILE BUTTON AND HOPPER (HECK TESTY

d d e
dd e
b
b d
e

b ek —
D
d d i
D d
D
D el wmd wad )

‘13

15 ARE SET

TST

€D1000

170026

010506
010512
010514

BEQ
JMP

000322

010520
010522
210526
010532
010536
010542
010546
010550
010554
010556
010562
010566
010572
010576

14 AND

TESTI:

00141¢

TYPE,
TYPE,
TYPE,

015324
013726
013762
013720

032713
001775

000004
000004
000004

004767
000000

SCOPE

JSR

TYPE,

HALT

;1S READER M=-1000?

;BRANCH IF READER IS M-1200
;OUT OF THIS TEST IF M-1000

TEST!
TESTH

X7,

MSG20
MSG1
MSG2

INIT

;'PUT ANY TWO CARDS IN INPUT HOPPER''
;'PRESS CARD READER ‘RESET''’
:'THEN HIT °'CONTINUE' ON THE CONSOLE"’
;MOVE MESSAGE UP ON TTY

CRLF-3

a(DS

;CHECK FOR TRANSITION TO ON LINE

000010

BIT

#10,

015370
013762
013720
001342

TYPE,
TYPE,

MSG21
MSGZ

JSR

X7,

BIT
BEQ

#20000, acDs
. +4

;CHECK BIT 13
;BRANCH IF NOT SET

;CHECK BIT 14
;BRANCH IF NOT SET
;READER CHECK ERROR SET FROM BEGINNING

BEQ

TYPE,

HALT

.~4

CRLF-3

JWAIT FOR IT

;"PRESS END OF FILE BUTTON''
;''THEN HIT °'CONTINUE' ON THE CONSOLE'’

INIT

;MOVE MESSAGE UP ON TTY

032713
001401

020000

032713
001401

040000

BIT
8EQ
HLY

#4000, acbs
R

032713
001401

000004

BIT
BEQ
HLT

kG,
R

TST
8PL
HLT

alDS
.+4

;CHECK ERROR BIT
;BRANCH IF NOT SET
JERROR SET FROM BEGINING

MOV

#TINTI, SADINT

LOAD RETURN POINTER

MOV

PS,

HLT

104000

:EOF SET FROM BEGINING

—

b i =t

1i:¢1

ERROR FUNCTION TESTS

BEQ
HLT

001401

[ASIaN 1,V LSTRT N1, ST SY.NT ST NS

26-MAR-80

2199

104000

005713

100001
104000

012712
052767
016762

010704
000340
167122

167126

000002

SECN:

BIS

#340,

albds

;CHECK BIT 2
;BRANCH IF NOT SET
JHOPPER CHECK SET FROM BEGINING

;SET PROCESSOR TO LEVEL 7

2(ADINT) ;LOAD RETURN PROCESSOR STATUS

SEQ 0040

DADO (D11 CARD READER DIAG
P 1

26-MAR-80 11:18

010656

020000

BIT
BEQ
HLT

#20000, acbs
R

;CHECK BIT 13
sBRANCH IF NOT SET
JEOF SET AT END OF UNE (ARD

040000

BIT
BEQ
HLT

#460000, 3CDS
.+

;CHECK BIT 14
JBRAN(CH IF NOT SET

TST
8PL
HLT

aCDS

;CHECK ERROR BIT
;BRANCH IF NOT SET
;ERROR SET AT END OF ONE CARD

#TINTIA,SADINT
SECN

;LOAD RETURN POINTER
;READ SECOND CARD
JRESTORE THE STACK

BIT
BNE

#20000, aCDS

;CHECK BIT 13
;BRANCH IF SET
;EOF NOT SET AT END OF FILE

BIT

#40000, aCDS

BNE
HLT

L+

;CHECK BIT 14
;BRANCH IF SET
;READER CHECK NOT SET ATM END OF FILE

8Ir
BNE

;CHECK BIT 2

TST
BM]
HLT

alDS
R

014166
013726
013762
013720

TYPE,
TYPE,
TYPE,
TYPE,
HALT

MSG6
MSG1
MSG2
CRLF-3

032713
001775

000010

BIT
BEQ

#10,

032713
001401

020000

BIT
BEQ
HLT

#20000, aCoS
.+

010706
010712
010714

032713

010716

032713
001401
104000

001401
104000

000340
000100
177701
016044

TINTI:

012712
000740
022626

010742

010744
010750
010752

032713
001001

020000

010754
010760
010762

032713
001001

040000

010764
010770
010772

032713

000004

010774
010776
011000

005713

S
S

OO
——
k=
b

100001
104000

104000

HLT

100401
104000

104000

MOV
B8R
TINTIA: tMp

HLT

104000

OO0

\n RNIR 83

010734
010740
010742

OO0O0O0O0
— o d e

005713

001001
104000

MoV
MOV
MOV

010726
010730
010732

—

;SET PROCESSOR PRIORI"Y T0 O

(SP)+,

022626

[olele]

B8IC

ctMP

010704

010724

167112

INC

010674
010700
010702

010722

26-MAR-80 11:21 PAGE 41
ERROR FUNCTION TESTS
#3640,
PS
#100,
acDS
#-77,
aCDdC
DA
EG,aC
#BUFB
acDs

042767

012713
012714
012715
0U5213
000777

010664
010670

MACY11 30A(1052)

(SP)+,

(SP)+

.44

a(DS

;SET INTERRUPT ENABLE
;SET UP COLUMN COUNT
;SET UP BUS ADDRESS
;START READER
;WAIT FOR AN INTERPUPT
sRESTORE THE STACK

;READER CHECK ERROR SET AT END OF ONE CARD

:BRANCH IF SET

JHOPPER CHECK NOT SET WHEN HOPPER EMPTY
;CHECK ERROR BIT
;BRANCH IF SET

;ERROR BIT NOT SET AT END OF FILE

:*RESTORE CARDS TO THE INPUT HOPPER''
;'PRESS CARD READER 'RESET'’'

:""HEN HIT CONTINUE ON THE CONSOLE"
;MOVE MESSAGE UP ON TTY

;CHECK TRANSITION TO ON LINE

JWAIT FOR IT

;CHECK BIT 13

;BRANCH IF NOT SET

:EOF DIDN'T CLEAR BY TRANSITION TO ON LINE

SEQ 0041

CZCDARO (D11 CARD READER DIAG

CZCDAD.P11

26-MAR-80 11:18

2281

011042

011044

104400

004767 001070

011064
011070
011072
011076
011100
011104
011106
011110
011114
011120
011122
011124
011126
011132
011134
011136
011140
011142
011144
011150
011152
011154
011160
011162
011164
011170
011176
011204
011212

032713
001775
032713
001775
022713
001401
104000
012714
012715
005213
105713
100376
032713
001001
104000
005713
100401
104000
032713
001001
104000
032713
001401
1046000
012712
052767
016762
042767
012713

2322 011226 000004 013720
2323 011232 000777
2324 011234 000070
2325 011236 022626
011240

TESTH:

SCOPE

JSR

TYPE,
TYPE,
TYPE,

TLOPH: BIT
8EQ
TLOPHA: BIT
000010
BEQ
CMP
140210
BEQ
HLT
MOV
177701
MOV
016044
INC
TLOPHB: TSTB
BPL
BIT
010000
B8NE
HLT
TST
8M]
HLT
BIT
040000
BNE
HLT
BIT
027577
BEQ
HLT
MOV
011236
8IS
000340 166600
MOV
166574 000002
BIC
000340 166564
MOV
000100
010000

2320 011216 000004 014166
2321 011222 000004 013726
2326

ERROR FUNCTION TESTS

PAGE <2

*READER DISAGREES WITH THE NORMAL

2282 011050 000004 014702
2283
2284 011054 000004 013726
2285 011060 000004 013720

2286
2287
2288
2289
2290
2291
%Zzgg
2294
2295
2296
2297
2298
2299
2300
%338‘1?
2303
2304
33382
2307
2308
5%?3
2311
2312
5%}2
2315
2316
2317
2318
2319

14, AND BIT 12
*A READ CHECK ERROR SHOULD SET BIT 15, BIT
IN THE CARD
NICS
ELECTRO
READ
THE
WHEN
OCCURS
ERKOR
*THIS
OF THE CARD
AREA
UNPUNCHED

2277
2278

2280

11:21

:
;

2275
2276

2279

MACY11 30A(1052)

2 6-MAR-B0

104400

2327 011242 004767 000720

2328 011246 000167 175302

TYPE,
TYPE,

TYPE,
BR
HALT
TINTH: CMP

SCOPE

JSR

JMP

X7, INIT

:"PLACE SPECIAL DARK LIGHT CHECK CARD ONLY
:AT THE FRONT OF THE INPUT STACK"'
:"PRESS CARD READER 'RESET'"’

MSG12
MSGI
CRLF-3

#10000, acCDS
TLOPH
acds
#10,
TLOPHA
#140210,aCDS
.+

#-77, aCDC
#BUFBEG,aCDA
aCDS
aCDS
TLOPHB
#10000,8CDS
R

aCDS
R

#40000, aCDS
R

#027577,8CDS
.44
#TINTH, SADINT

#340,
PS,
#340,
#100,
MSG6
MSG!

CRLF-3
.
(SP)+,
X7,

ER12CD

:MOVE MESSAGE UP ON TTY
:CHECK FOR OF LINE
JWAIT FOR OFF-LINE
:CHECK FOR ‘‘TRANSITION TO ON LINE'’
:WAIT FOR IT
;CHECK FOR CORRECT STATUS BITS
:BRANCH IF 0K
:STATUS NOT EQUAL TO 140210
;SET UP COLUMN COUNT
:SET UP BUS ADDRESS
;READ
;CHECK CONTROLLER READY
;WAJT FOR CONTROLLER READY
;CHECK BIT12
:BRANCH IF SET
OFF~LINE (BIT 12) WASN'T SET
:CHECK SPECIAL CONDITION BIY
;BRANCH IF SET
:SPECIAL CONDITION NOT SET
:CHECK FOR CARD READER ERROR
:BRANCH IF CET
:CARD REAER ERROR BIT 14 NOT SET
:CHECK FOR EXTRA BITS
;BRANCH IF 0K
;STATUS WORD ERROR
;LOAD RETURN POINTER

:SET PROCESSOR TO LEVEL 7
PS
2(ADINT) :LOAD RETURN PROCESSOR STATUS
:SET PROSSOR PRIORITY T0 O
PS
:SET INTERUPT ENABLE
aCDS

:"RESTORE CARDS TO THE INPL', HOPPER''
:'PRESS CARD READER °*RESET *'

(SP)+
BELL

:MOVE MESSAGE UP ON TTY
;WAIT FOR AN INTERUPT
;RESTORE THE STACK
;RING THE BELL
:LOOP BACK TO THE PcGINNING

SEQ 0042

COAD.P1

26-MAR-80 11:18

MACY11 30A(1052)

LOOP ON TEST ROUTINE

PAGE 43

SEQ 0043

2332

:tttzttttt'tt!tt.ttttttttttttt'tt'ttt.t.ttttt'tttttltltttttt'.'tt'tt'ttt

2334

:fit"'t't'tt'.t'.*ttttt".""tittt't"'t""."..It.t.'.t"...'.'...."

2331

TION TEST OR ERROR FUNCTION TEST
"ROUTINE TO LOOP THRU A SINGLE INSTRUC
2ND HALT

2333

2335

2336
2337
2338
2339
2340
231
2342
2343
234
2345
23%6
2347

SNOTE THAT SW11 MUST BE DOWN AFTER

011252
011256
011260
011266
011274
011276
011304
011306
011314
011316
011326

004767
000000
016767
062767
000000
032767
001404
042767
000403
052767
005067

011330 012767

TESTX: JSR
167264
HALT
MOV
166304 000072
ADD
000002 000064
HALT
BIT
010000 166264
BEQ
8IC
000020 166462
BR
BIS
000020 166452
CLR
001106
004000

001076

MOV

MoV
238 011336 012767 011350 001074
JMP
000010
000177
011344
(LR
XLOOP:
001062
005067
011350

JMP

011356 000177 000000
011360

RETRNX: O

000000

#2 ,RETRNX

#10000, SWR
.4+12
#20,PS
.+10
#20.,PS
ITCNT
#4000, 1 TMAX
#X1.00P ,RETURN
@RE TRNX
ITCNT
@RE TRNX

;SETUP POINTERS AND FLAGS
;WAIT FOR STARTING ADDRESS
;STORE STARTING ADDRESS
;CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION
;SET SWR OPTIONS (BIT 11 MusT = O)
;CHECK SW12
;BRANCH IF NOT SET
;CLEAR TRACE BIT
;SKIP NEXT INSTRUCTION
;SET TRACE BIT
;CLEAR ITERATION COUNTER
;LOAD RETURN ADDRESS
;JUMP TO TEST
;KEEP ITERATION COUNTER AT ZERO
;JUMP TO TEST

“ROUTINE TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED.
TO BE STUDIED
STHIS ROUTINE ALLOWS SPECIFIC TYPES OF DATA FAILURES THE
CORRECT CARD
SET
START.
THE
AT
ONCE
HALTS
SEASILY. THE ROUTINE
DECK IS
THE
(AFTER
E
CONTINU
HIT
THEN
*IMAGE PATTERN IN SW11-SW00,
, AND THEN
STORED
IS
N
PATTER
THE
E).
ON-LIN
IS
*LOADED AND CARD READER
IF A
IT.
WITH
D
COMPARE
AND
TWICE
READ
IS
*EACH COLUMN OF EACH CARD
TOTAL
THE
WITH
ALONG
OUT
PRINTED
IS
ERROR
:DISCREPANCY OCCURS, THE
DISCOVERED
*NUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS
INPUT HOPPER
THE
WHEN
OCTAL).
IN
ARE
UTS
PRINTO
SUP TO THAT POINT (ALL
TO BE
CARDS
MORE
FOR
WAITS
AND
BELL
THE
*1S EMPTY, THE ROUTINE RINGS
.
ON-LINE
BACK
PUT
BE
TO
:LOADED AND THE CARD READER
S ERROR PRINTOUTS.
‘SW15=1 CAUSES A HALT AFTER AN ERROR, AND SW13=1 INHIBIT
tttttttt'ltttttttQI

2359

:tttttt*t*ttt*tttttttttt'titttifi'*tfi*ltt*ttiitttfitttt

012767

2371

011362

23764

011376 016767

001050

CKSAME: MOV

166166 000526

MOV

000514

MOV

011362

2372 011370 004767 167146
2373 011374 000000

2375 011604 042767 170000 000520
2376 011412 016767 000514

2377
2378
2379
2380
2381
2382
2383
2384
2385
2386

x7,SETUP
SWR ,RE TRNX

‘tttit*t*ttttfittitittttttt*ttt'*tt*tttt*tttt*ttfitttttttttttlfittt.'tttttt

VAW

ONOWVNEB
W =00

SELEEEREREE wuwuuuuuug

(38T, S 1A 1ANT1AS 1,01, ST, N1, NT,¥]

[ala

CDADO (D11 CARD READER DIAG

26-MAR-80 1:21

011420
011424
011430
011434
011440
011444
011450
011454
011460
011464

005067
006067
106167
106067
106167
106167
106167
106167
012701
006067

000512
000504
000501
000474
000471
000465
000461
000455
000007
000444

JSR
HALT

BIC

CLR
ROR
ROLB
RORB
ROLB
ROLB
ROL8B
ROLB
MOV
(KLOP1: ROR

#CKSAME ,RETURN

X7,SETUP

SWR, CARDIM

; INITIALIZE POINTERS
JWAIT FOR CARD IMAGE PATTERN
:STORE PATTERN

#170000,CARDIM :CLEAR UPPER BITS OF PATTERN
CARDIM, (DPKO

DERFLG
CDPKO
CDPK1
CDPKO
CDPK1
CDPK1
CDPK1
CDPK1
N7,
CDPKO

(Z(DADO (D11 CARD READER DIAG

CZCDAD.PI
2387
3388
5389
2390
2391

2392
2393
2396
2395
2396

26-MAR-8B0 11:18

2398
2399
2400
2601
2602
2403
2604
2605
2606
26407
2408
2409
26410
2411
26412
2613
2614

0004624

X7.INIT

105067 000403

CKLOOP: CLRB

011534
011542
011544
011552
011554
011560
011564
011570
011574
011600
011602
011604
011610
011612
011614
011616

032767
001410
032737
001004
052713
105167
005C67
012700
012714
010015
005213
005267
105713
100376
005713
100427

005767

000440
000433

CKOVR:

HALT
CLR
CLR
CLR

000410
000402
167002

000010 166026
000004 177570
000002
000353
174740
016044
177660

000320

100012
122067 000303

DERFLG*1

8PL
CKLOP3: CMP8

CKLOP2
(RO)+,CDPK1

:CHECK DATA

BNE
INC
P

001046
005267
026727

26422
2623
2624
2625

011652
011656
011660
011664

CKLOP2: (MP
022067 000254
BNE
001034
INC
005267 174644
TMP
000120
026727 174640

2429
2430
2631
2432
24633

011676
011702
011706
011710
011714

032713 010000
001406
004767 000256
032713 000010
001775

2426 011672
gzgg 011674

TOTCRD
TOTERR
ERFLG

;CHECK FOR PACK MODE ONLY
:BRANCH IF NOT SET
-CHECK FOR IMAGE MODE ONLY
;BRANCH IF SET
:SET PACKING MODE
;INITIALIZE COLUMN COUNT
“SET UP BUFFER POINTER
:SET UP COLUMN COUNTER
-SET UP BUS ADDRESS
*START READING CARD
: INCREMENT CARD COUNT
" CHECK CONTROLLER READY
*LOOP IF NOT SET
:CHECK FOR ERROR
"BRANCH IF ERROR SET

011632
011636
011640

24620 011646 001367
2621 011650 000727

sWAIT FOR SWITCH SETTINGS
S INITIALIZE CARD COUNT
JINITIALIZE ERROR COUNT
:CLEAR FLAG FOR PRINTING ERROR HEADING

SWR
#1C,
CKREAD
a#SWR
#G,
CKREAD
aCDS
N,
DERFLG*1
CLCNT
#BUFBEG RO
#-120. @CDC
a(DA
RO,
achs
TOTCRD
acDS
CKLP?
aCDS
CKERR

2617
26418
2419

174670
174664

o4
PAGE 44

BIT
BEQ
BIT
BNE
8IS
COMB
CKREAD: CLR
MOV
MOV
MOV
INC
INC
CKLP1: TSTB
8PL
TST
BM]
ST

000312

IDENTICALLY PUNCHED CARDS TEST

CKSTRT: JSR

000000
004767
005067
005067
005067

2415 011624
2616 011626

11:21

CKOVR
DERFLG
R1,CDPK1
R1
CKLOP1

011506
011510
011514
011520
011526

011620

26-MAR-80

B8CC
INC
BISB
DEC
BNE

011470 103004
011472 005267
011476 150167
011502 005301
011504 001367

3397 011530

MACY11 30A(1052)

000120

BNE
B8R

BNE
BR

001367
000715

DERFLG

CKFAIL
CLONT
CLCNT ,#120

CKLOPS
CKLOOP
(RO)+,
CKFAIL
CLONT
CLCNT,

CKLOP2
CKLOOP

CARDIM (CHECK THE DATA
:BRANCH IF DATA ERROR
“COUNT THE COLUMNS
-CHECK FOR LAST COLUMN
#120

BIT
BEQ
JSR
CKERR3: BIT
BEQ

#10000,8CDS
CKERR1
BELL
17,
aCDS
#10.,
CKERR3

2436 011720 032713 004000

CKERR1: BIT

#4000,aCDS

000204

ST
BPL
(MP8

DERFLG
CKERR2
#1,DERFLG

gzgg

2438 011726
2439 011732
3440 011734

005767
100004
122767

011744

104000

3442

011716 000674

2437 011724 001407
24641

CKERR:

011742 003331

000001

BEQ

000174

86T

CKERR2: HLT

CKSTRT

CKERR2

CKLOP3

;CHECK FOR OFFLINE

*BRANCH IF NOT
-RING THE BELL
:CHECK TRANSITIiON TO ON-LINE
;BRANCH IF OFF-LINE
"START OVER

:CHECK FOR DATA ERROR
:BRANCH IF LEGIT

‘REAL, LIVE ERROR.

SEQ 0044

(ZCDADO (D11 CARD READER DIAG

26-MAR-80 11:18

CZCDAD P11

2643

2444
2445
24646
24647
2448
2649
2450
24651
2452

011746

2454
2455
2456
2457
2458
2459
2460

100006
114067
004767
105720
000405

2461

2662
2463
2464
2465

014067
204767
005720
000004
016767
004767
000004
016767
004767
005767
100203
000000
000601

2466

2467

2468

2469
2470
24671
2472
2673
2474
2475
2476

000152
020000

013723
174516

00057«
013715
000106

2497
2498

RRBRE &HO

Guur-Gurd

D —3
d
b

Qi GurGrur G

d
b
b

2496

s COUNT ERRORS

ERFLG
CKNOHD
ERFLG
MSG19

;TEST FLAG TO PRINT HEADING
;BRANCH IF ALREADY DONE
JPRINT HEADING ONCE ONLY
;OUTPUT HEADING

BIT
BNE

CKNOKD: TYPE,
MOV
JSR

000523
000532

013715
000040
000516
013715
000020
000500
165450

000466

;OUTPUT CARRIAGE RETURN, LINEFEED
;TYPE CLCNT IN OCTAL
:TYPE LEADING ZERO'S

MovB
JSR

~(RO),
X7,

B8R

CKOVR1

MOV
JSR

-(R0O) ,PRINT1
X7 ,PRINTR

:TYPE -(RO) IN OCTAL
;TYPE LEADING ZERO'S

MOV
JSR

TOTCRD,PRINT1
X7 ,PRINTR

;TYPE TOTCRD IN OCTAL
;TYPE LEADING ZERO'S

TOTERR,PRINT1
%7 ,PRINTR

;TYPE TOTERR IN OCTAL
:TYPE LEADING ZERO'S

CKLOOP

;BRANCH IF NOT SET

CKLOOP

; CONTINUE

TYPE,

CKHLT:

CLCNT PRINT1
X7 ,PRINTR

SPACE
DERFLG

TST
CKOVR1: TYPE,

000450

(RLF

sCHECK FOR INHIBITING PRINTOUT
;BRANCH AROUND PRINTOUT IF SET

TYPE,
TST

TSTB

:
CKNOPK

#20000, SWR
CKHLT

MOV
JSR

TST

BPL

HALT

CKNOPK
+
(RO)

PRINT1+1 ;MOVE BYTE INTO PRINT BUFFER
PRINTB ; AND PRINT IT

+
(RO)
SPACE
SPACE

SWR

;CHECK SW15 TO HALT ON ERROR
;HALT ON ERROR

O
O

; ISSUE MESSAGE IF CARD READER IS OFF-LINE

[olelelelelele]lo

2495

TOTERR

CARDIM: O
.BYTE
COPKO:
.BYTE
CoPkK1:
DERFLG: 0

pur P

24694

CKFAIL: INC

B8PL

000506
000536

PAGE 45

TOTERR: 0
TOTCRD: O

LSS NT, R 1,6 1S 1,8 1, V]

2493

000544

G &

IDENTICALLY PUNCHED CARDS TEST

TST
BNE
INC
TYPE,

166534
015270

11:21

CKLOOP

166542

2677

2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492

165606

26-MAR-80

000670
005267
032767
001054
005767
001004
005267
000004
000004
016767
004767
000004
005767

2653

MACY11 30A(1052)

004767

000040

012713
022713
001401

000400
000200

105713
100376

104000

000207

READING A CARD
:WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL
IT
DOESN'T CLEAR PROPERLY
IF
HALT
SINITIALIZE STATUS REGISTER AND USE ERROR
SET
*NOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS
CKOFFL ;SEE IF OFF-LINE BIT IS SET
X7,
JSR
INIT:
;WAIT FOR CONTROLLER READY, IN CASE
alDSs
TSTB
;A CARD IS STILL BEING READ
.=2
8PL
;INITIALIZE THE CARD READER
aCDS
#6400,
MOV
;MAKE SURE INITJALIZATION OK
aCDS
#4200,
cMP

BEQ

RTS

HLT

;BELL ON PASS COMPLETE

JBRANCH IF ALL BITS ZERO

:NOT ALL BITS OF STATUS REGISTER ARt ZERO
JRETURN

SEQ 0045

(DAPO (D11 CARD READER DIAG

26-MAR-80 11:18

2520

2554

166310

26-MAR-80

11:21

COMMON ROUTINES
1STB
BPL
MOV
RTS

PA GE 46

SEQ 0046

;JWAIT FOR TTY READY

QTPS
=4
#207,3TPB

;RING BELL
;RETURN

:SUBROUTINE TO CHECK FOR BIT 12 (OFF-LINE) B{ '3 ING SET

:READER (SR, AND PRINT OUT A MESSAGE IF IT
#10000, acDS
;CHECK BIT
CKOFFL: BIT

030000

BNE

TYPE,
TYPE,
HALT
BR

RTS

001001
000207
000004
000004
000000
000766

000207

d ad wad
—t —t

ned

il wmcd

n NN NN
NN
w VANV

O M~NOWVNEWN—=O

032713

BELL:

166316

—

105777
100375
012777
000207

2499
2500
2501

CZCDAD.P11

MACY11l 30A(1052)

IN CARD

R
24
MSG18
MSG17

:BRANCH IF S SET
;RETURN IF NOT SET
S'BIT 12 WAS SET

CKOFFL

:CHECK AGAIN

:*REMEDY THE ERROR CONDITION

JWAIT FOR CONTINUE

:ENTERED WITH SYSTEM TRAP CALL (HLT)

012230
012236
012240
012242
012246
012252
012254
012260
012266
012272
012276
012304
012310
012314
012320
012324
012330
012334
012336
012340
012342
012344
012346
012350
012352
012354
012362
012364
012372
012374
012402
012404
012410
012412
012416
012422

012426

034727
001401
000432
012667
012667
024646
000004

016767
004767

165334

020000

000102
000100

013723

000064
000322
013714

000050
000304
013714
000240
000270
013723

*PRINT OUT THE ERROR PC
SWR,
BIT
PRINT:
.44
Q
BE
B.(K
(6)+,
(6)+,
-(6),

CRLF

SPACE-1

SAVPS ,PRINT1
X7 ,PRINTR

000254

SPACE-1
aCDS,PRINT1
%;i?RINTR
B.(CK:

SAVR2:
SAVR3:
SAVR4:
SAVP(:
SAVPS:
040000

165206

004000

165176

0000326

000032

000026
165360

000010

000006

=(6)

SAVFC ,PRINT1
X7 ,PRINTR

000272

165234

032767
001012
032767
001013
026767
100007
005267
022606
012667
000177
005067
011667

AND STATUS REGISTER
#20000 TEST FOR INHIBIT PRINT OUT
;BRANCH TO PRINT
;INHIBIT, CHECK FOR HALT
;PC OF FAILING ROUTINE
SAVPC
;PS OR ERROR CONDITION
SAVPS

TST

JRESTORE STACK

;OUTPUT CARRIAGE RETURN, LINEFEED
;:TYPE SAVPC IN OCTAL
:TYPE LEADING ZERO'S

;TYPE SAVPS IN OCTAL
;TYPE LEADING ZERO'S

;TYPE @CDS IN OCTAL
;TYPE LEADING ZERO'S

;CHECK SWR FOR HALT SWITCH
;BRANCH IF NOT SET

SWR
L+

;HALT ON ERROR UP

JRETURN TO MAIN LINE

0
0
O
0
O

:SCOPE AND/OR ITERATION LOOP FOR EACH TEST 2 TIMES
SCOPEC: BIT
B8NE
BIT

D.1:

D.2:

8NE
e
BPL
INC

tmwe
. 0)"

JMP

CLR
MOV

#40000, SWR
D.1
#4000, SWR

D.2
ITCNT, ITMAX
D.z
ITCNT
%6
(6)+,
(6)+,
PS
aRE TURN
JITCNT

azx6,

RETURN

;TEST SWR FOR SCOPE
;YES,SCOPE
;NO- TEST FOR ITERATION
JINHIBIT ITERATION

;CHECK FOR ITERATIONS COMPLETE

;EXIT-DONE
; INCREMENT COUNT

;REPOSITION STACK POINTER
;RESTORE PROCESSOR STATUS
;RETURN TO RERUN TEST
;CLEAR COUNTER

;SAVE SCOPE RETURN POINTER

C(ZCDADO (D11 CARD READER DIAG

2 CDAD P11
2555
2556
2557
2558
2559

26-MAR-80 11:18

012432
012434
012436
012440

MACY11 30A(1052)

000002
000001
000000
001064

ITMax:

ITCNT:

2560

2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2580

PAGE 47

;RETURN INLINE-NEXT TEST
JMAX NUMBER OF ITERATIONS

RTI
1

.COUNT LOCATION FOR [TERATION LOOP

;ADDRESS OF LAST TEST

RETURN: TEST1+2

©ROUTINE TO TYPE ASCI] MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE.
“THE ROUTINE WILL INSERT A NUMBER OF NUL' CHARACTERS AFTER A LINE FEED.
'NOTE1: SNULL CONTAINS THE CHARACTER TO TME USED AS THE FILLER CHARACTER.

2561
2562
2563

2564
2565
2566
2567
2568

26-MAR-80 11:21
COMMON ROUTINES

*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

012442
012444
012446
012447
012450
012451

177564
177566

012452
012456
012460
012462
012464
012466
012472
012474
012476
012500
012502
012506
012510
012514
012520
012522

105767

012526

012532
012534

012540
012542
012546
012550
012556

000
002
009
000

001402
000000
000407
010046
017600

112046
001005

005726
012600
062716
000002
004767
122726
001364
016746

105366
002770
004767
000772
105777
100375
116677
000207

177772

$TPS:
$TPB:
$NULL:
$FILLS:
$TPFLG:

177564
177566
.BYTE
.BYTE
.BYTE

0
2
0

;TTY PRINTER STATUS REG. ADDRESS
;TTY PRINTER BUFFER REG. ADDRESS
;CONTAINS NULL CHARACTER FOR FILLS
;CONTAINS # OF FILLER CHARACTERS REQUIPED
;'TERMINAL AVAILABLE'® FLAG (0=YES)

$TYPE:

TSIB

$TPFLG

;1S THERE A TERMINAL?

6%:

BEQ
HALT
BR
MOV

O
6%

’$

RO,-(SP)
a2(SP) ,RO

;RESERVED

:BR IF YES
JHALT HERE IF NO TERMINAL
sLEAVE
:SAVE RO

(RO)+,~(SP)
2%
(SP) +

(SP)+ RO
#2,(SP)

;GET ADDRESS OF ASCIZ STRING
;PUSH CHARACTER TO BE TYPED ONTO STACK
;JBR IF IT ISN'T THE TERMINATOR
;IF TERMINATOR POP [T OFF THE STACK
;RESTORE RO
;ADJUST RETURN PC

000002

7$:

MOV
Movae
BNE
TST
MOV
ADD

000026
000012

2%:

JSR

PC,5%

;GO TYPE THIS CHARACTER

BNE
MOV

1%
SNULL ,~(SP)

;GO GET NEXT CHAR, IF NOT LINE FEED
;GET # OF FILLER CHARS, NEEDED

000002

1%:

3s:

177720

43:

000001
000002

58%:

177674

000002

RTI

cMP8

DECB
BLT

JSR
B8R

ggTB
L

MOvB

177666

RTS

;
012560

BYTE

#12,(SP)+
1(SP)
3$

PC.5%
48

?zTPS

2(SP) ,as$T1PB
PC

OCTAL DUMP Of A WORD

PRINT1: O

JRETURN

:CHECK IF THE CHAR, TYPED WAS A LINE FEED
JAND THE NULL CHAR.

;DOES A NULL NEED TO BE TYPED?
:BR IF NO--GO POP THE NULL OFF OF STACK
;60 TYPE A NULL
;LOOP

JWAIT UNTIL PRINTER IS READY

;LOAD CHAR TO BE TYPED INTO DATA REG.

SEQ 0047

%?11

CARD READER DIAG

26-MAR-80 *

.18

000000
000000
000

000000

012767
010546
012705
105015
000422

176401

MACY11 30A(1052)c 26-MAR-80
000000

012562

177702
177674
177666

PRINTZ:

.WORD

0.0,0.0

PRINT3:

.BYTE

0.0

PAGE 48

SEQ 0048

=1.,3
:SAVE RS
;SET POINTER TO 1ST ASCII CHAR.
;CLR 1ST BYTE
:PRINT 2 BITS

177770

PRINTB: MOV
MoV
MOV
CLRB
BR

#176401 ,PRINT3

;.BYTE

177750

PRINTR: mMovB
BR
PRINTS: CLR
MovB
MOV
MoV

#16PRINT3

;SET ZERO FILL SWITCH

012562

177742
177772

OMMON ROUTINES

000

000001

11:21

177735

CLRB
BR
PRINTL: CLRB

ROL
ROLB
PRINTT: ROL
ROLB
PRINTF: ROL
ROLB
TST8

BEQ
INCB
TSTB

177666
177662

BEQ

81S8
INCB
BNE
P
BNE
MOV8
CLRB
TYPE,

000060
177651
012562

000060
012562

Mov
RTS

012746

-(6)
15.
#PRINTZ2,%S
(5)
PRINTT
<+

PRINT3

;SUPRESS LEADING ZERO'S

X5.,-(6)
#PRINT2 %5
(5)
PRINTF
(5)
PRINT1

;SAVE RS
;SET POINTER TO FIRST ASCII CHAR.
:CLEAR FIRST BYTE
:ROTATE FIRST BIT
;CLEAR BYTE OF CHARACTER
;ROTATE BIT INTO €

#-6,PRINT3+1

5
PRINT1
(5
PRINT1
(5

(5)
.+6
PRINT3

:SET COUNT

:PACK IT
:ROTATE BIT INTO C
:PACK IT
:ROTATE BIT INTO C
;PACK IT

PRéNTS

:CHECK FILL SWITCH

#'0,(5)+

:MAKE INTO ASCII CHAR

PRINT3+1
PRINTL
FPRINTZ2,%5
.+6
#0,(5)+
(5)

PRINT?

;g)*.ZS

:REPEAT

;TYPE 1T

:RESTORE RS

:DATA TABLES FOR DATA RELIABILITY TESTS
;ALPHANUMERIC DECK DATA TABLE
2750

gfi»grnv“nvs
nNOONSRNO

NN
NN NSNS

— e

b cmd

b e

b o

LSS
TNT, ST, VT, N1, V]

[elelelelalelalela]

——d

;CARD IMAGE FORM

004000

2766

074004

014400
024200
034100
044040
054020
064010

CHGD1:

ALPCD:

4000
14400

24200
34100
44040
56020
64010
74004

COLUMN

ASCII

PUNCH

2
;2
;3
;4
;5
;6

)
A
B
¢
D
E

12
12 1
12 2
12 3
12 4
125

12 7

12 6

(2(DADO (D11 CARD READER DIAG

CZCDAD.P11

26-MAR-80 11:18

MACY11 30A(1052)

26-MAR-80

DATA TABLES

11:21

PAGE 49

SEQ 0049

004002
004001
024202
034102
044042
056022
064012
0746006
002000
012400
022200
032100
042040
052020
062010
072004
002002
002001
022202
032102
042042
052022
062012
072006
001000
011400
021200
031100
041040
051020
061010
071004
001002
001001
021202
631102
041042
051022
061012
071006
000000
010400

4002
4001
24202
34102
44042
54022
64012
76006
2000
12400
22200
32100
42040
52020
62010
72004
2002
2001
22202
32102
42042
52022
62012
72006
1000
11400
21200
31100
41040
51020
61010
71004
1002
1001
21202
31102
41042
51022
61012
71006
0000
10400

;9
;10
;1
;12
;13
;14
215
;16
;17
;18
:19
;20
;21
;22
;23
;24
;25
;26
;27
;28
.29
;30
;3
;32
;33
;34
;35
;36
;37
;38
;39
;40
;41
;42
;43
;4b
;45
;46
Y4
;48
;49
;50

H
I
C
.
<
(
+
!
J
K
L
M
N
0
P
Q
R
]
S
*
)
:
‘
0
/
S
T
U
v
)
X
Y
4
\
.
1
>
?
SPACE
1

12 8
129
12 8 2
1283
12 8 4
1285
1286
1287
1
11
11 2
113
11 4
115
11 6
17
11 8
19
11 82
1183
11 8 4
11 85
11 86
11 87
0
01
02
03
04
05
06
07
08
09
082
083
084
085
086
087
BLANK
1

2720 013142 050022
2721 013144 060012
2722 013146 070006

50022
60012
70006

;62
;
;64

)
"

85
86
87

2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2696
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708

2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719

012770
012772
012774
012776
013000
013002
013004
013006
013010
013012
013014
013016
013020
013022
013024
013026
013030
013032
013034
013036
013040
013042
013044
013046
013050
013052
013054
013056
013060
013062
013064
013066
013070
013072
013074
013076
013700
013102
013104
013106
013110
013112

013114
013116
013120
013122
013124
013126
013130
013132
013134
013136
013140

020200
030100
040040
050020
060010
070004
000002
000001
020202
030102
040042

20200
30100
40040
50020
60010
70004
0002
0001
20202
30102
40042

;91
;52
;53
54
;95
;56
;57
;58
59
60
;61

2
3
4
5
6
7
8
9
:
#
a3

2
3
4
5
6
7
8
9
8 2
83
8 4

CZCDADO CD11 LARD READER DIAG

(ZCDAD.P11
2723
27264
2725
2726
2727
2728
2729
2730
2731
2732
2733
273%
2735
2736
2737
s;gg

26-MAR-80 11:18

013150
013152
013154
013156
013160
013162
013164
013166
013170
013172
013174
013176
013200
013202
013204
013206

004000
014400
024200
034100
044040
056020
064010
074004
004002
004001
0g4202
034102
044042
054022
064012
074006

2740

26-MAR-80

DATA TABLES

11:21

PAGE 50

4000
14400
24200
34100
44040
54020
64010
76004
4002
4001
24202
34102
44042
54022
64012
ALPEND: 74006

;ALPHANUMERIC DECK DATA TABLE

;65
;66
;67
;68
;69
;70
;7
;72
;73
;76
;75
;76
;77
;78
;79
;80

SEQ 0050
g
A
3
C
D
E
F
G
H
I
C
.
<
(
+
!

;THE VALUE IS THE ENCODED FORM OF THE DATA

2741

2742
2743
2744
2745
2746
2747
2748
2749

013210
013211
013212
013213
013214
013215
013216
2750 013217

200
201
202
203
204
205
206
207

013230
013231
013232
013233
013234
013235
013236
013237
013240
013241
013242
013243
013244

100
101
102
103
104
105
106
107
110
120
112
113
114

2751
2752
2753
2754
2755
2756
2757
2758

013220
013221
013222
013223
013224
013225
013226
013227

2772
2773
2774
2775
2776
2777
2778

013245
013246
013247
013250
013251
013252
013253

2759
2760
2761
2762
2763
2764
2765
2766
2767
27
2769
2770
2771

MACY11 30A(1052)

210
220
212
213
214
215
216
217

115
116
117
040
041
042
043

:
ALPCDP: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE

200
201
202
203
204
205
206
207

210
220
212
213
214
215
216
217

100
101
102
103
104
105
106
107
110
120
112
113
114

115
116
117
40
41
42
43

COLUMN
)
32
;3
;4
;5
:6
;7

;8
;9
:10
1
;12
:13
;14
:15
;16
17
;18
;19
;20
221
;22
;23
;24
;25
;26
:27
;28
;29
;30
3
;32
;33
;36
;35
;36

ASCII
2
A
8
C
D
E
F

G
H
I
C
.
<
(
+
!
J
K
L
M
N
0
P
Q
R
]
$
*
)
:
"
0
/
S
T

12
12 1
12 2
123
12 4
125
12 6
127
12 8
129
12 82
12872
12 84
1285
12 8 6
1287
PUNCH
12
12 1
12 2
123
12 4
12 5
12 6

127
12 8
12 9
12 82
1283
12 8 4
1285
1286
1287
1
111
112
13
11 4
115
11 6
117
118
119
11 82
1183
11 8 4
11 85
11 86
11 87
0
01
02
03

ALPENP:

;BINARY DECK DATA TABLE
013330
013332
013334

013336
013340
013342

013344
013346
013350

BINCD:

0
1

70004

60010
50020
40040
20100
20200

PUNCH
BLANK

NOMNNA
S NN

5
NOVN NN

216
217

210
220
212
213
214
215

NN — [t Jelelololelelelololelals)
00 00 00 00 00 G0 O 00 ~J O~ V1 &~

BYTE
.BYTE

.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE

~NONNAS NN

013312

000000000000
D00 NONNIINN
—

013310
01331

PACE

b e e b (OO 0O OO 00 00 00 O 00 N OMN

013274
013275
013276
013277
013300
013301
013302
013303
013304
013305
013306
013307

O
1
2
3
&
5
6
7
10
20
12
13
14
15
16
17
200
201
202
203
204
205
206
207

bk d erd md b mad b ik e

013270
01327
013272
013273

BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE

;60
A
;42
:43

h e

.BYTE

;39

[SLS LTSNS
NN T T, S TN 1N TN 1, VN

013265
013266
013267

;37
;38

SFO 0051
~ANIXESC

60
52
53
54
55
56

4
PAGF 51

.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

&7
50

e@ [ ONONEB
W NVl

44
45
46

.BYTE
.BYTE

013257
013260
013261
013262
013263
013264

013313
013314
013315
013316
013317
013320
013321
013322
013323
013324
013325
013326
013327

BYTE
BYTE
.BYTE

11:21

FITITOMMOND
> Tl

013254
013255
013256

26-MAR-80
DATA TABLES

imdmAY

Ny
~ine
[ Im]

DADO (D11 CARD READER DIAG
26-MAR-80 11:18

DAD.PM

MACY11 30A(1052)

(Z(DADO D11 CARD READER DIAG

(Z(DAD.P1Y

26-MAR-80 11:18

2835 013352 010400
2836 013356 001000
2837 013356 002000
2838 013360 004000
2837 013362 171111
2840 013364 172222
2841 0.3366 173333
2842 013570 176444
2843 013372 175555
284G 013374 176666
284S 013376 177777
2846 013400 061010
2847 013402 161212
2848 013404 171313
2849 013406 171414
2850 013410 171515
2851 013412 171616
2852 01314 171717
2853 013416 052020
2854 013420 172121
2855 013422 172323
2856 013424 172424
2857 013426 172525
2858 013430 172626
2859 013432 172727
2860 013434 173030
2B61 013436 173131
2862 013440 173232
2863 013442 173434
2864 013444 173535
2865 013446 173636
2866 013450 173737
2867 013452 044040
2868 013454 174141
2869 013456 164242
2870 013460 174343
2871 013462 174545
2872 013464 1746646
2873 (13466 174747
2874 013470 165050
2875 013472 175151
2876 013474 165252
2877 013476 175353
2878 013500 175454
2879 013502 175656
2880 013504 175757
2881 013506 156060
2882 013510 176161
2883 013512 176262
2884 013514 176363
2885 013516 176464
2886 013520 176565
2887 013522 176767
2888 013524 177070
2889 013526 177171
2890 013530 177272

MACY11 30A(1052)

26-MAR-80

DATA TABLES
104600
1000
2000
4000
171111
172222
173333
174444
175555
176666
177777
61010
161212
171313
171414
171515
171616
171717
52020
172121
172323
172424
172525
172626
172727
173030
173131
173232
173434
173535
173636
173737
44040
177141
164242
174343
174545
174646
174747
165050
175151
165252
175353
175454
175656
175757
156060
176161
176262
176363
176464
176565
176767
177070
177171
177272

11:21

PAGE 52

;10
1
;12
;13
14
;15
;16
217
;18
;19
;20
;21
;22
;23
;24
;25
;26
:27
;28
;29
;30
;3
;32
;33
;34
;3
;36
37
;38
;39
;40
|
;42
;43
;46
:45
;46
;47
;48
49
50
;9
;52
;53
;54
;55
;56
;57
;58
;59
;60
;61
26
;63
;64
;65

SEQ 0052

CZCDADO CD11 CARD READER DIAG

CZCDAD.P11
2891
2892
2893
2894
2895
2896

2897
2898
2899
2900
2901
2902
290%
2904
2905

5907

26~MAR-80 11:18

013532
0135%
0135%
013540
013542
013544

013546
013950
013552
013554
013556
013560
013562
013564
013566

2908
2909
2910

2911 013570
2912 013571
2913 013572

2914 013573

177373
177474
17775
177676
030101
02020

13030
170404
170505
170606
170707
163210
170123
177654
174567

2925
2926
2927
2928
2929

27
:8
:9
10
3l
2

4
3
2
1
0
-

4
3
2
1
0
11

:s
16

377
46
56
77
47
67
57
77
105
127
137
107
127
117
137

:20
;21
222
;23
:2%
125
126
o7
128
229
:30
:31
*32
:33
23

013613
013614
013615
013616
013617
013620
013621
013622
013623
013624
013625
013626
(13627
013630
013631

377
046
056
077
047
067
057
077
105
127
137
107
127
117
137

‘BYTE
BYTE
BYTE
BYTE
BYTE
‘BYTE
'BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

147
167

BLANK
9
8

13
2%

067

2945 013632
2966 013633

ASCII
SPACE
9
8
7

BYTE
BYTE
‘BYTE
‘BYTE
BYTE

BYTE
BYTE

&
3
2
1
40
100

200

117
177
207
267
317

147
167

PUNCH

COLUMN
1
i
:3
‘%

6
S

2924 013605

2930
2931
5932
5933
293
5935
2936
2937
2938
2939
2940
2941
2942
2943
294

;66
167
*68
*69
170
4

BYTE
BYTE

117
177
207
267
17

SEQ 0053

TABLE
:BINARY DECK DATA
THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION Of

BYTE
BYTE
BYTE
BYTE
BYTE
-BYTE

200

11:21

PAGE 53

172
273
7%
275
176
277
¥
279
*80

130303
170404
170505
170606
170707
163210
170123
177654
BINEND: 176567

004
003
002
001
040
100

2923 013604

013606
013607
013610
013611
013612

177373
17747%
177575
177676
30101
20202

007

000
020
010

00:,
005

013576
013577
013600
013601
013602
013603

26-MAR-80

DATA TABLES

;THE VALUE IS
ROWS ONE THRU SEVEN
:
BINCDP: .BYTE 0
BYTE 20
BYTE 10
BYTE 7

2915 013574
2916 013575
2917
2918
2919
2920
2921
2922

MACY11 30A(1052)

15
216
17
*18
19

135
:36

6
5

CZCDADO CD11 CARD READER DIAG

(ZCDAD.P11

26~-MAR-80 11:18

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

013634
013635
013636
013637
013640
013641
013642
013643
013644
013645
013646
013647
013650
013651
013652
013653
013654
013655
013656
013657
013660
013661
013662

157
147
167
157
177
204
227
216
237
227
217
237
246
267
256
277
247
257
277
305
327
317
337

2992
2993

0137210
013715

020040
040

2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2283?
2994
2995

013663
013664
013665
013666
013667
013670
013671
013672
013673
013674
013675
013676
013677
013700
013701
013702
013703
013704
013705
013706
013707

MACY11 30A(1052)

DATA TABLES
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE

157
147
167
157
177
204
227
216
237
227
217
237
246
267
256
277
247
257
277
305
327
317
337
307
327
337
347
367
357
377
347
367
357
23
12
33
7
27
17
37
146
37
347
237

LASCI1
.ASCIZ

/
/_

.BYTE
.BYIE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BINENP: .BYTE

307
327
337
347
367
357
377
347
367
357
023
012
033
007
027
017
037
146
037
347
237

013720 005012
015
013723

26-MAR-80 11:21

020040
000040

040

012
000012

SPACE:

CRLF:

LASCIT
.ASCIZ

PAGE 54

:37
;38
:39
;40
;61
;42
.3
;44
245
$66
:47
;48
;49
:50
;51
;52
;53
;56
:35
;56
;57
;58
;59

;60
;61
;62
;63
;64
;65
;66
.67
;68
;69
;70
;71
72
;73
;74
;75
;76
;77
;78
;79
;80

<12><12><12>
<15><12>

5997 013726 005015 051120 051505 MSG1:

.ASCIZ <15><12>/PRESS CARD READER 'RESET'/

3002 013762 005015 044126 047105 MSG2:

.ASCIZ <15><12>/THEN HIT 'CONTINUE' ON THE CONSOLE/

2998
2999
3000
3001

013734
013742
013750
013756

020123
051040
020122
052105

040503
040505
051047
000047

Q42122
042504
051505

SEQ Ul

MACY11 30A(1052)

L2CDADO (D11 CARD READER DIAG

26-MAR-80 11:18

22
30
22
52
60
66

—

76
014202
014210

014216
014224

044040

1
n6

7
0
3

042522 MSG3:

<15><12>/PRESS CARD READER 'STOP'/

.ASCIZ

<15><12>/THE INTERRUPT LEVEL WAS /

015 051012 046505 MSG5:

.ASCIZ

<15><12>/REMOVE ALL CARDS FROM THE INPUT HOPPER/

005015 042522 052123 MSG6:

LASCIZ

<15><12>/RESTORE CARDS TO THE INPUT HOPPER/

.ASCII

<15><12>/PULL OUTPUT STACKER PRESSURE ARM DOWN /

LASCIZ

/UNTIL HOPPER CHECK LIGHTS/

1
1

023440
00004

042101

052123

044126

8%?}83 MSG4:

020124
020114

042514
040527

R
v

050125
062526

051101

053117
020114
020123
052040
050116
050117

020105
040503
051106
042510
052125
042520

046101
042122
046517
044440
044040
000122

051117
042122
052040

020105
020123
042510
052125
042520

040503
047524
044440
044040
000122

050116
050117

Lav

—

Vi
N

~
&H
3y

020124
042513

052123
020122

041501
051120

3039 014302 047125

044524

020114

3035
3036
3037

0164262
014270

051505
0«3440

052523
046522
050120
042510
043511

042522
042040
051105
045503
052110

3040
3041
3042

014310
014316
014326

047510
041640
046040

3045
3046
3047
3048
3049
3050
3051

014342
014350
0164356
014364
014372
014400
014406

042040
044124
052111
042116
042510
047440
020105

053517
020105
044103

051105
041440
020106
047111

020116
053523
032440
052040
050101
044124
052520

3053

014416

047510

050120

051105

3044 01433, 005015 047510 042114 MSG8:

3055 014425
3057
3058

014440
014446

PAGE 55

.ASCIZ

014232 005015 052520 823}%8 MSG7:
014246
014254

DATA TABLES

023440

047111
047117
041440
042514

047503
042525
052040
047117
000
015
051523
020 104

)

=
- cd cod wd

bk -

[elelelelelelole] [@]

014076
014104

&~
n
~

3030

013776
014004
014012
0164020
014026
014027
0140
014042

—

E888 BEBEEEE588
NINIRLNINNINNIN a8 EEHLELESE
O
NN = oo ®IC AW
rURZ OO0 OB

3005

013770

(=4

§383 g

3003

(Z(DAD.P11

26-MAR-80 11:21

015 051412 044514 MSG9:
504

051101
046517

060440

020104
052040

061440

051106
042510

.ASCII <15><12>/HOLD DOWN THE SWITCH UNDER THE (AP OF THE INPUT /

LASCIZ

/HOPPER/

.ASCII <15><12>/SLIDE A CARD FROM THE OUTPUT HOPPEPF ABOUT HALF AN INCH /

<f4 0055

(2COADO (D11 CARD READER DIAG

26-MAR-80 11:18

(2COAD.P1
3059
3060

014454
016462
4670
476

047440
020124

052125
047510

051105
052125
06
16

040440
044040
047101
020110

3
7
042522
040505
047514

044440
044124

MACY11 30A(1052)

047502
046101
044440

044040
041040
047111
020105
020117
000

020107
044120
042503

014610
016616
014624

053117
046515
051101

020105
042105
000104

040512
041440

014636
014644
014652

052040
052125
052123

014666
014674

047440
052040

042510
052520
041501
040507
042520
042510

047440
020124
042513
042524
027116
000116

014710
014716
014726
014732
014740
0147646
014756
014762

020105
040511
045522
052110
045503
020104
026040
027067

050123
020114

041505
040504

043117

042510
051101
054514
020105
020062

014773

126

041440
041440
047117
042523
027062
040

044522

042510
042526

052455

015010 005015 052101

015

051012 046505 MSG10:

;

014630 005015 047510 042114 MSG11:

b e

wd wad wd acd

(V]

015066
015074
02
10
%Z

041040
020115
042510
052125
045503

020040

.ASCIZ

<15><12>/REMOVE JAMMED CARD/

.ASCIZ <15><12>/HOLD THE OUTPUT STACKER GATE OPEN. THEN/

<15><12>/PLACE SPECIAL DARK-LIGHT CHECK CARD ONLY (SEE 7.2.2 OF /

053440

LASCI1

/THE WRITE-UP)/

052040

LASCIZ

<15><12>

043511

052117
043117
044440
051440
000

015 042012 041505 MSG13:
-

part

015053

042510
047524
052040
050116
040524
purd

015016
015026
015032
015040
015046

FV
N e

b
b

b wd
b
—

b o amb

b ol

bbob

b od

N AN NN N AN N AN U N AN N NN

BIRIRIT28

015000

o
N
(=

014770

041440

/AT THE BOTTOM OF THE INPUT STACK/

.ASCIZ <15><12>/DECK

020104
046117
050040
047122

020040
046525
052101
051040

005015

046101

044120

MSG14:

.ASCIZ

/
<15><12>/ALPHA

015

041012

047111

MSG15:

.ASCIZ

<15><12>/BINARY/

051101
041440
020116
042524
040505

051101

000104

000

000131

SEN 0056

.ASCII

£14702 005015 046120 041501 MSG12:
046055

PAGE 56

LASCIZ <15><12>/ BACK INTO THE READ HEAD, BLOCKING THE PHOTO CELL/

052116
020105

042101
026104
045503
044124
052117
046114

014603

DATA TABLES

052520
050120

5 020040 040502

014546
014554
014562
014570
014576

26-MAR-80 11:21

CARD

COLUMN PATTERN READ/

J(DADO (D11 CARD READER DIAG
26~MAR-80 11:18
N

d
b
D e
b o
oD
o
D o
b
D
b

015
030440

020123
005015
047115

020104
051504

A%,]

SVEIY bi -Soanwo VLW
2O 0 ~NO

e I

)

AN NN
NN NN AN

2 = — 2 ey
WNNIN NN NNIPNONININ)

R
b

d ok

d awd md U

AN AN N AN N N NN N NW

005015
032461
051440
015
042105
020105
020122
052111
047101
051505
047117
023505

ZCDAD P11

VI WAL
~N
R
[a Y]
=0 ONSKOO LAS

—d vasd el

aoavivaiauai

—

i:\h\nc~b4xho-ha g8

015466

(elelelelelelelelelalallele]

O
A AN
~ O O O N O O On OA O NN N DN A wn

AN N L AN AN Ui N NN . AN N N NN N N N N NN

3149

051117
005015
047101
020117
020123
050116
050117
005015
020123
043117
020105
047117
015
020116
044524
047524
052125
020124
005015
042514
041440
042040
040440
05211

053524

044502
053440
052105
051012
020131
051105
047503
047511
020104
020123
044524
000
041012
02006¢

042523
047503

051040

041440
042440
000123
052520
020131
040503
047111
052125
042520
051120
047105
043040
052502
000
053412
051120
043516
051520

MACY11 30A(1052)

26-MAR-80

DATA TABLES

11:21

PAGE 57

SEQ 0057

MSG16:

LASCIZ

<15><12>/BIT 15 WAS SET/

046505
044124
047522
042116
020116
051120
041447
052516

MSG17:

LASCIZ

<15><12>/REMEDY THE ERROR CONDITION AND PRESS 'CONTINUE'/

052111
040527
000124
052514
040505
051101
051122

MSG18:

.ASCI1Z

<15><12>/BIT 12 WAS SET/

MSG19:

LASCIZ

<15><12>/COLUMN READ

020124
053524
042122
044440
044040
000122
051505
020104
046111
052124

MSG20:

LASCIZ

<15><12>/PUT ANY TWO CARDS IN INPUT HOPPER/

MSG21:

.ASCIZ

<15><12>/PRESS END OF FILE BUTTON/

042510
047111
051440
050040
046101
000104
043516
051525
042514
026116
044040
047503
042525
052040

MSG22:

LASCIZ

<15><12>/WHEN PRINTING STOPS PUT HALT AND/

MSG23:

LASCIZ

<15><12>/SINGLE BUS CYCLE DOWN, AND HIT 'CONTINUE®' ON THE/

047117
052440
047440
051101
051040

MSG2é4:

.ASCIZ

<15><12>/CONSOLE UNTIL ONE CARD IS READ/

047105
052440
020105
053523

MSG25:

.ASCI1Z

<15><12>/THEN PUT UP THE TWO SWITCHES AND HIT/

020124
051501
000

CARDS ERRORS/

3199

Qo
jour Qo

SYRORLOLBBEIRIRER2

b e

d o

b o

LN N AN (N O AN AN N N AN AN N N W

b eh i e

N NN N

3180

- P
b
—

[«
V]

Qony G

s Gour ony Guor G

o
O?
(V.
Y,
NoNR
— od b N

WVINO NN = O

Gunr Poer St

[elelelololalolalolelolalels]

05211

AV
P 38

26-MAR-80 11:

CZCDAD.P11

§—‘O [+ . T

CZCDARO (D11 CARD READER DI

752

042504
043501
015756

26-MAR-80

DATA TABLES

11:21

PAGE 58

051505

044040

047503
042525
052040
047117
000
041532
041640
040503
040505
044504

MSG26:

.ASCIZ

<15><12>/°'CONTINUE' ON THE CONSOLE/

MSG27:

.ASCIZ

<15><12>/CZCDADO (D11 CARD READER DIAG/

.EVEN

012767
010046
010146
010246
010346
010446
010546
010667
000000

016006

012767
016706
012605
012604
012603
012602

015756

016716
000002

174400

012601
012600

MACY11 30A(1052)

162040

POWR :

000036

000022

MOV

HALT

162010

RESTOR: MOV

RTI

000000

SAV6:

000000
000001

BUFBEG: O

.END

,
H#RESTOR24
20,-(6)

21.-(6)
%2.-(6)
23.-(6)
%4.,-(6)
25.=(6)
%6.5AV6

24
#POWR,

SAV6, 26
(6)+,%5
(6)+, %4
(6)+.,%3
{6)+,%2
(6)+.7%1
(6)+,%0

RETURN, (6)

;START TEST OVER

SEQ 0058

(ZCDADO CD11 CARD READER DIAG

(ZCDAD.PT1
ALLDON
ALPCO
ALPCOP
ALPEND

006334
012750
013210
013206

ALPT
BEGIN

004336
001000

26-MAR-80 11:18

17134
2655

1355
701

13604
7618

28220

BELL

012166

1336

BINCOP

013570

29114

26-MAR-80

11:21

1715

2327

2431

2494

949

975

2826

1357
25500
13894
13924

29054

1390
1393

1395

1377
1211+

1663
1412+

1796
1613%

1976
1414

2026
1528+

CARDIM 012132

3374+

2375+

2376

2622

2479

006526

133«

1441

1444

1466%

1555

COPKO

012134

2376+

2378+

2380

2386%

24808

COREAD

004522

138,

1386

1388«

BINEND
BINENP
BKGND
BKGND1

013330

013566
013707
004524
004536

BUFBEG 016044

BUFEND 006514

B.CK

CDBA
oCC

COCNT
COPK1
COST

012330

000506
000504

012135

000502

01000

000540

(KERR
CKERR1
CKERR2
CKERR3
CKFAIL
CKHLT

011676
011720
011744
011710
011750
012174

CHGD1

012750

CKLOOP 011530
CKLOP1
cKLOP2
CKLOP3
CKLP1~
CKNOHD
CKNOPK

CKOFFL

CKOVR
CKOVR1
CKREAD
CKRF
(KSAME
CKSTRT

CLCNT

CONTC
CONTD
CONT20
CONT21
CONT,

011464
011652
011626
011610
012002
012046

012204

011502
012060
011564
000534
011362
011510

006530
007116
004360
003734
004046
001646

857

2518

7268
7258

1708+

5370«
7268

891

25324
746
745

1709

2381+
744

922

17694

2382r

7404

1776+

1778+

2613
2430
2437
24328
2617
2447

26294
24364
2439
2433
2423
472N

24424

23864
2415
26160
26104
2449
2457

2391
2422m
2420
2411
24524
24624

26584

23074

776

2421

855

2387
2461
2399
7384
711
23934

23904
24664
2401

2624

2425

9357«
1870
1359
1255
1278
929

SEQ 0059

2738#

1356

BINCD

PAGE 60

CROSS REFERENCE TABLE -- USER SYMBOLS

1710
1360
27430
1361

(13327

ALPENP

MACY11 30A(1052)

2374
2434

426+

18754
13634
12594
12814
9384

1015

1055

1095

1132

1172

1212

12648

1270

2056
1529+

2092
1530

2121
1764#

2157

2222

2295

2405

32124

1560

1563+

1585+

1673

1685*

1686

1688+

1699

2384x

2389+

2416

24814

2443

2473

2475

2489

25064

2512

1541+

1542

1690+

1691

1693+

1707+

17708

2404v

2618+

2419

2383x
2174

24454

2627
24626
2441

888
2404

1427

2453

CZCDADO CD11 CARD READER DIAG

26~MAR-80 11:18
CZCDAD.P1Y
7324
COUNT 0005%2
7394
0005
COUNTG
1788
013723
CRLF
006502
004266

DATRST
DATST

004414
006166

OCNT1
DECK
DECKCK
DERCNT

006456
006534

DERFLG 012136

001526
DONE6
ourMY = 000000
012410
0.1
012422
0.2
004240
ENOCK
ERCD1T 006546

000532

ERFLG

ER12CD
CR1200

HLT

006554
006536

= 104000

HOOKT

006364

012140
INIT
INTFLG 000524

2148

1521
1335
1366
1358+«
1726
1391«

2377«

907
6674
2544
2546
13334
704

7274

1777
717

6644
846

936
1122

1626
13514
13704
1362+
1729
1394+

2388+

9104
15832
25504
2548

17784

1353+

2190

17594
1757

16834
17534
17724

1680«

2396+

2448

2450+

784
864

788
868

797
875

804
878

17794
17764

2328

954
1144

987
1148

991
1162

1005
1184

1027
1188

2292

2301

2305

2309

780
850

1182

2274

1076

747
14054
14334

164194

1428

ITCNT

012436

2346

1418¢
14344
1436

14214
1485

14414
14764
1464
14674
14834
14874
14994
15034
1495

14384

1455
1497

2350«

1424+
1991

2522

2531

2456

24824

817
895

821
903

1533«
2015

1539«
2043

826
908

830
912

29954

1614
2083

1760

1678

1180

1420
1468
14434
1442
1406
1483
1488
1492

2285

1418+
1967

SEQ 0060

25534

968
1860
983

000516
004572
004714
004742
005124
004750
005062
005136
005144
005176
005206
004644
004636
004720
004736

2265

2440

944
1819
750

1160

PAGE 61

2438

17234

1065

2414

1717

916
1787
7334

11:21

2403+

2397+

1313
1509
1638
1834
1922
2031
2164

INTVC
ISR
ISRBE
ISRDE
ISRDE4
ISRD1
ISRD2
ISRER
ISRE1
ISRE2
ISRE3
ISRLP
ISRNC
ISRNX
ISRNX1

004650
005256

2183

1309
1505
1634
1830
1909
2007
2139

2260

26-MAR-8B0

CROSS REFERENCE TABLE -~ USER SYMBOLS
901+ 1250% 1251+
896+
870+
860+
1942
1916
1867
1838
1822
1794
2452
2322

1305
1501
1630
1826
1905
2003
2135

7304
1402
1425

ISRRT
ISRST

MACY11 30A(1052)

1078«
748

1317
1513
1642
1843
1926
2047
2197

1008
1939
985
1083
1193

749

1321
1517
1645
1847
1930
2053
2202

1048
1987
996

1103

1195«

1325
1520
1732
185?
1934
2062
2207

2547

2553«

1067
1224

2442

2495

1400
1532
1740
1872
1950
2070
2231

1409
1603
1748
1877
1954
2074
2235

1205
1025

1071
1238

1416
1610
1801
1881
1958
2099
2239

1242
1036

1085
1256
1484
1613
1805
1885
1983
2118
2247

1264
1038+

1287
1043

2105

1125
1003

2179

1165
1023

2281

2393

248

1200

1229

1231

1118+

1120
1236

1140

1142

1153

1105

1479

2549+

2313

1045
1220

837

928
1107
1280
16491
1619
1809
1897
1995
2127
2251

1088
998+

2037

1431

1457
15214

810

882
1031
1202
1329
1527
1736
1855
1946
2066
2211

25574

1116

841
932

1
1301

1496
1625
1813
191
1999
213
2255

1370
1063

1155+

(ZCDAPO (D11 CARD READER DIAG
26~MAR-80 11:18

CZCDAD.P11

ITMAX
LASTCD
LOOPS
LOOP6
LOOP6A

lLooréB
LSTCDY

012434
006252
001350
001520
001474

001512

006266

MSG1
MSG10
MSG11
MSG12
MSG13
MSG14
MSG15
MSG16

013726
014603
014630
014702
015053
015122
015133
015144

MSG18
MSG19
MSG2

015247
015270
013762

MSG17

MSG20
MsG21
MSG22

MSG23

MSG24
MSG25
MSG26
MSG27
MSG3

MSG4

015165

015324
015370
015423
(15466

015551
015612
015661
015715
014027

014062

014115
014166
014232
014334
014425
MSG9
NOHEAD 006164
= 000240
NOP
001026
NOTRP
004366
NOTRP1
006312
NXCRD
GFFSET 006512
006444
ONINT
ONL INE 006400
PAKSET 006114
015756
POWR
012230
PRINT
PRINTB 012574
PRINTF
012666
PRINTL 012650
PRINTR 012614
PRINTS 012624
PRINTT 012660
012560
PRINT1

MSGS
MSG6
MSG7
MSG8

PRINTZ2
PRINT3
PROC

012562
012572

000530

743
1494
8664
064

899
900
17004
1836
2146
30784
2282
1681
1362
1358
3115#
2510
2509
2451
1821
2180
2188
1789
1790

MACY11 30A(1052)

26-MAR-80

11:21

PAGE 62

SEQ 0061

CROSS REFERENCE TABLE -- USER SYMBOLS

1781«
1622

871

2347

2547

25564

1966

2014

2042

2082

2110

2147

2181

1941

1990

2039

2182

2189

2264

30024

2106
1079

30194
2262

30094
1156

1196

1232

30144

2320

30264

1544
1654%

1548
1658«

17074
17634

1660

16984

902

9054
1702
1915
30744

1791
1792
1793
763

1820

999
1940
1965

1988
2040
2107
1679
6634

7674
13654
1429
1379«
1742
1724

2263

2284

2321

2530

26214

1686+

1691+

1387

16704
3199

1591

2459

26154

1474
1041

1687
1081

1692
1158

2454
1198

2464
1234

2468
26234

2471

2524

2527

1040+

1080~

1157«

1197+

1233«

1473«

26104

1590«

1593+

2526*

1470%
2529+

2638+

2639

2642+

689
692

2628
26294
1471
1001
2619
1000+

2458+
26114
26134

7354

26344

26324
2463
2617
2615+

858+

2667
2626
2621+
872

2470+
2644
2623+
897

2523«
2648
26264+
905

2630+

2632+

2634+

29974

2453+

‘

CZCDADO CP11 CARD READER DIAG

CZCDAD.P11
PS

= 177776

26-MAR-80 11:18

6524
926+
1050+«
1130«
1245
1374
1963«
2088+
2317

1403
1540

MACY11 30A(1052)

771«
970+
1053«
1168
1266+
1863
1974+
2142+

1543

1546

1646

15574
1574
16464

1576

1599

2318%

15234
15484

005262
005376

PSRDE3
PSRD1
PSRD2
PSRER
PSRET
PSREZ2
PSRES
PSRE4

005636
005456
005570
005650
005656
005714
005754
005764

1587
1562
1561
1524
1602
1607
1616
1620

15964
1583
15864
16024
16064
16154
16284
16324

PSRNC
PSRNX

005320
005402
005444

15334
15494

1624

PSRLP

PSRNX1
PSRRT
PSRST

FPTOFF
RESTOR

RESTRT

RETRNX

005450

005326

005332
006024

006532
016006

001020

011360

RETURN 012440
SAVPC
SAVPS

SAVR2
SAVR3
SAVR4
SAV6

012350
012352
012342
(12344
012346
016042

SCOPE = 104400
SCOPEC
SECN

SETUP
SET1
SET2
SET3
SET4
SETS
SET6
SET7

SIZE
SPACE

SRETR1

15344

1551
15364
1604

17714
3188

7654

31994

1338

2339«

2519
2520«

2523
2526

25394
25404

3200

32104

25364
25374
25384
3195«

6654

1124

2104

774%

775

1653

16584
1657

897
979+
1092+
1207~
1277«
1890+
2020+
2154

898+
1010+
1093«
1208
1289+
1912«
2021
2155«

3207

790

2371x

2552

2554+

2558%

812

832

852

884

914

762

1779

2336

2372

1412
1592

1413
1684

1418
1689

1380
1589

006050

879735«
1091
1176+
1275+
1889
2012+«
53«

23524

2348x

2178

1378+
1472

006060
006070

859+
972+
1090+
1170«
1268«
1888+«
20N
2144

2351

1262

006510
013715

1438

1780+

1240

1230
1194
1154
1117
1077

1037
997

2551«

2326

003622
003424
003210
002774
002576

7434

2345«

858
971
1059
1169+
1267
1864«
2010+«
2143

2280

1164

12364
12004
11604
11204
10834

002362
002146

1756

2338»

25434
2242

000542

2343+

2349

761+

PAGE 63

905+
1011
1099+
1209+
1290
1913
2022«
2217+

918+
1012«
1127+«
1210
1291+
1916+
2077+«
2218

919
1013«
1128
1216
1365+
1961~
2078
2219«

SEQ 0062

920+
1019«
1129+
1244
1369+
1962
2079+
2316+

15604

695
22174

012354
010642

SRETRN 006030

SRETR3
SRETR4

1535

CROSS REFERENCE TABLE -~ USER SYMBOLS
767+
947
1052+
1167+
1253+
1862+
1973
2090%

752
946+
1051
1136+
1266
1375
1972«
2089

PSR
PSRBE

PSRDE

26-MAR-80 11:21

10434
1003#

1557

16564

1661
16604

1204

1652#

1655

1659

941

1285

1333

1786

1818

1529
1694

1533
2455

1652+«
2466

1656
2469

1859

967

1007

1047

1662
2525

1698
2528

17624
29934

1938

1986

1087

2036

CZCDADO (D11 CARD READER DIAG
26-MAR-80 11:18
CZCDAD.P11

SRV(

004552

000500
STACK
177570
=
SR
TEMP1
TEMP2
TEND
TEST
TESTA
TESTB
TESTC
TESTD
TESTE
TESTF
TESTG
TESTH
TESTI
TESTX
TEST1
TESTIA
TEST10
TEST11
TEST12
TEST13
TEST14
TEST1S
TEST16
TEST17
TEST2
TEST20
TEST21
TEST22

TEST3
TEST4
TESTS
TEST6
TEST?
TINA21
TINTC
TINTCA

TINTCB
TINTD

TINTDA
TINTE
TINTEA
TINTF
TINTFA
TINTG
TINTGA
TINTH
TINTI
TINTIA
TINT10
TINT11
TINT12

1373

700
6614

161

2545

006516
006520
006524
001054
006572
006704
007032
007332
007542
007746
010232
011042
010520
011252
001062
001064
001656
001744
002160
002374
002610
V03006
003222
003436
001116
003634
003744
004060

1698+
1699+
1357+
764
1780
18184
18594
19384
19864
20364
2104%
2176
2175
707
7754
774
9414
9674
984
1024
1064
1104
1141
1181
7904
1221
12624
12854

007272
007464

8524
869
904
1274
1861
1887
1911
196V
1971
2009
2019
2076
2087
2141
2152

001164
001234
001304
001424
0N1534
004042
007112
007174

007530
007670
007734
010154
010220
010430
010474
011236
010704
010742
001726
002070
002304

798
8324

2315
2216
2241
945
%69
1009

MACY11 30A(1052)

26-MAR-B0

11:21

PAGE 54

CROSS REFERENCE TABLE -- USER SYMBOULS

13984
703
769
1723
1701~
1700+
1361+
768
17864

710

706
1334
1754

1354
2338

17654
1703
1421
7744

716

7234

1367
2341

1383
2374

1385
2398

2400

2646

2472

1448

1463

1536

1553«

1567

1582

1671«

1004
1044
1084
1121
1161
1201

10074
10474
10874
11244
11644
12044

17664

22804
21784

23364
2558

7764

1106

1143
1183

1108
1145
1185

1002
1042
1082
119
1159
1199

1235

1237

12404

986
1026
1066

988
1028

1068

8124
879
9144
1279#
18724

18944

19194
19704
19804
20184
20284

20964
21514
21614
23254
22274
22434

9544
9894
10294

8844

1435

1467

1476

17684

mf\)—‘—‘g

X2
e~

TLOPC

= =

TLOPG
Tt OPGA
TLOPGB
TLOPH
TLOPHA
TLOPHB
TOTCRD
TOTERR
P8
TPS
TRAPX
TRFLG

SEQ 0064

LI
§§\M¥§°3%

i
d

TINT16

TINT17
TINT20
TINT21
TINT22
TINT?

S
PAGE 65

NSO

=2
ek

108

TINT1S

002520
002734

CROSS REFERENCE TABLE -- USER SYMBOLS

MNONININY
—

TINT13

TINT14

MACY11 30A(1052)

11:21

NNV
= — 2O

(JCDADRO (D11 CARD READER DIAG
26~MAR-80 11:18
CZCDAD.P11

26-MAR-80

2467
2470

24784
24774

765

1337«

1363

1753«

TRTRAP
TSTART

1376

1423

1454

1460

1465

1538

1552+

1573

1579

1670+

TYHEAD
TYPE
=

16784
999
1694

1039
1788
1866

1079

1156
1790

1196
179N
1916

1232
1792
1940
2040
2180
2285

1472
1793
1941

1589
1794

1592

1682
1822

TRP1

2637

000~

NN =0

p Apui e {PTT N]

QOO

2183
2322

—‘\l*\l — L =N 233
NWORNOONWSOON
»

2134
2238
2342

1942
2043
2182
2321
2648

PONUPIN)
= b b b b D b

1929
2016

874
1030
1295
1477
1612
1800
1884
1953
2050

OO0~

796

mm—agooooowuu—- —-NO
8\1\0*
O WA
@?NWO—‘-—'
S NN
O —On
L 3

6884

016046

2528

2042
2181
2320
2531

ek d

$TPB
$TPFLG
$TPS
$STYPE

011350
012447
012446
012444
012450
012442
012452

2039
2148
2284
2525

b b b e

XLOOP
SFILLS

2110
2263
2469

2014
2111
2264
2509

1991

1915
2038
2147
2282
2522

PONI IR

1838

1789
1867
2015
2146
2265
2510

1820
1965
208?

1967
g3
2189
2452

CD11 CARD READER DIAG
26-MAR-80 11:18
1

6984
6984
9664
6984

1590
1470
1006
1000

016046

000

6974

. ABS.

ERRCRS DETECTED:

1593
1473
1046
1040

MACY11 30A(1052)

26-MAR-B0

11:21

PAGE 67

SEQ 00¢S

CROSS REFERENCE TABLE -~ MACRO NAMES

2458

1686

1691

2453

2462

1080

1157

1197

1233

1086

1123

DAD.P11
TOC=CZC/NL
: SOL
CZCDAD.BIN,CZCDAD.LS T/CRF/
RUN-TIME: 10 22 2 SECONDS
RUN-TIME RATIO: 81/35=2.2
(15 PAGES)
8K
CORE USED:

1163

1203

2467

2470

2523

2526

2529