Digital PDFs

AH-S947A-MC

May 1981

66 pages

Original

39MB

view download

OCR Version

61MB

view download

Document:	CVCMAA0 CMQ11-K CSS CMQ11-K CD RD DIA AH-S947A-MC MAR 1982 gray
Order Number:	AH-S947A-MC
Revision:	0
Pages:	66
Original Filename:	CVCMAA0__CMQ11-K__CSS_CMQ11-K_CD_RD_DIA__AH-S947A-MC__MAR_1982_gray.pdf

OCR Text

CHaLL-K

CSS

CMQl1-K

CD RD DIA

CVCMAAD

e GIE[HE]
A eRE ioRC, s
AH-5947A-MC

s Bl

FRiERnER

CMQ11<k CARD READER TEST

| CVCMAA.SRC

07=JUL=81 09:06

YM=2110A<AA

MACY11 30A(1052)

B 1
04=-AUG=81

JREM_

IDENTIFICATION

PRODUCT CODE:

AC=SS45A-M(

PRODUCT NAME:

(CVCMAAQ CSS CMQ11K CD RD DIA

DATE:

1 JuLY 1981

MAINTAINER:

COMPUTER SPECIAL SYSTEMS

AUTHORS :

RICK FADDEN

RAYMOND SHOOP
R. J. COLLINS

DUPRE

1981 DIGITAL EQUIPMENT CORPORATION
MAYNARD ,MASS

THE INFORMATION IN THIS STATEMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRIBED IN THIS
DOCUMENT WILL BE SUBJECT TO TERMS AND CONDITIONS TO
BE ANNOUNCED IN SOME FUTURE DATE BY DIGITAL EQUIPMENT
CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIABILITY OF

ITS SOFTWARE ON EQUIPMENT WHICH IS NOT

SUPPLIED BY DEC.

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE
TO USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH

INCLUSION OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH

g;sggg. EXCEPT AS MAY OTHERWISE BY PROVIDED

IN WRITING

09:08

PAGE 1

SEQ 0001

CcMa’
cval

(MQ11=k CARD READER TEST

CVCMAA, SRC

;

07=JuL-81 09:06

YM=2110A<AA

MACY11 30A(1052)

04-AUG-81

09:08

PAGE 2

ABSTRA(CT

THIS TEST IS TO BE USED AS A CARD READER DIAGNOSTIC FOR THE

LSI=11 WITH THE CMQ11-K CARD READER.
IT TESTS ALL LOGIC FUNCTIONS
OF THE CARD READER, AND INCLUDES AN EXERCISER FOR PUNCH ALPHANUMERIC,
PUNCH BINARY, AND MARKSENSE BINARY TEST DECKS.

A SEPARATE STARTING ADDRESS
ALLOWS THE ERROR SENSING FUNCTIONS OF THE READER TO BE CHECKED.
ANOTHER STARTING ADDRESS TESTS SPECIAL DECKS WHICH HAVE ALL
COLUMNS AND CARDS PUNCHED OR MARKED IDENTICALLY, TO AID IN

DIAGNOSING SPECIAL PROBLEMS.
REQUIREMENTS

EQUIPMENT

LSI=11 STANDARD COMPUTER
CR11 CARD CONTROLLER

MARKSENSE CARD READER

2.2

TEST DECKS

MAINDEC=11-DZCMF-CA
ALPHANUMERIC TEST DECK
MAINDEC-11-DZCMF-(B
BINARY TEST DECK
MAINDEC-11-DZCMF-C01
80-COLUMN MARKSENSE TEST DECK
MAINDEC=11-DZCMF-C02
40-COLUMN MARKSENSE TEST DECK
SPARE CARDS FOR THE ERROR FUNCTION TEST

2.3

STORAGE

THE ROUTINE USES MEMORY 0O TO 16202.
LOADING PROCEDURE
PROCEDURE

FOR NORMAL ABSOLUTE

TAPES SHOULD BE FOLLOWED.

SEQ 0002

CMQ
cval

(MQ11<k CARD READER TEST

CVCMAA, SRC

YM=Z110A<AA

07<JuL-81 09:06

STARTING PROCEDURE

6.1

CONTROL SWITCH SETTINGS

MACY11 30A(1052)

-3

04-AUG-81

09:08

SW15
SW14
Sw13
SW12
SW11

BASIC SWITCH REGISTER SETTINGS ARE:
==<HALT ON ERROR
--=SCOPE LOOP

e I

===INHIBIT PRINT OUT
==<INHIBIT TRACE TRAPPING
===INHIBIT SUB-PROGRAM ITERATION
(NOTE THAT IF SW11 IS SET, THE CARD COUNT
WILL BE ALTERED, CAUSING FAILURES IN THE
DATA TEST SECTION.)
Wo7=1 ===_00P THRU THE INSTRUCTION TEST PORTION
(NOTE THAT THE PROGRAM MAY HANG LEGITIMATELY

WHEN THE INPUT HOPPER GOES EMPTY IF SW7 IS SET)

SWo6=1 ===RETURN TO THE BEGINNING OF THE INSTRUCTION TEST
WHEN CONTINUING FROM ONE DECK TO ANOTHER

SW05=1 ===HALT BETWEEN TEST DECKS
(SEE 5.2.1 FOR EXPLANATION OF SW5=0)
SW04=1 ===RUN THE PUNCHED BINARY TEST DECK (UNLESS SWO3 IS SET)
SW02=1 ===40 COLUMN CARD DECK
SW02=0 OR DOWN-80 COLUMN CARD DECK
$1.03=1 ===RUN THE MARKSENSE BINARY TEST DECK
COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A SOF TWARE

SWiTCH REGISTER LOCATION

IN MEMORY CALLED ''SWREG'' (LOCATION 176).

THIS LOCATION CAN BE CHANGED TO REFLECT

BY TYPING CONTROL G.
4.2

THE

STARTING ADDRESSES

INSTRUCTION AND DATA TEST

PICK SUBTEST LOOP

ERROR FUNCTION TEST
SINGLE SUBTEST LOOP

READ SINGLE DATA PATTERN TEST

DESIRED SWITCH SETTINGS

PAGE 3

SEQ 0003

(mMa’
cvar

C(MQ11<k CARD READER TEST

07=JuL=-81 09:06

MACY11 30A(1052)

04-AUG-81

09:08

PAGE &

SEQ 0004

CMQ’

cvee
S

CVCMAA, SRC

YM=Z110A=AA

PROGRAM AND/OR OPERATOR ACTION

£.3.1

INSTRUCTION AND DATA RELIABILITY TEST (SA 200)

6.3

LOAD PROGRAM INTO MEMORY.
LOAD ONE TEST DECK IN THE CARD READER INPUT HOPPER.

PRESS RESET ON THE CARD READER, WAI
FOR RESET LIGHT.
THE PROGRAM WILL PRINT THE CURRENT CONTENTS OF THE SOF TWARE

PRESSING 'RESET"'

TEST DECKS INTO THE INPUT HOPPER.

?g ;ggugéRD READER SHOULD CAUSE PROGRAM EXECUTION
IS NECESSARY

TO RUN THE FULL TEST ON THE

CARD
e

THIS ENT%EEDEEOUENCE

[

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

LOAD ADDRESS.
ESES§U§¥£=$S (SEE 4.1)--ALL DOWN FOR WORST CASE, ALPHA TEST DECK.

s,
i
i

SWITCH REGISTER AND WILL WAIT FOR NEW INPUT.
SET THE SOFTWARE SWITCH REGISTER TO DESIRED SETTING.

6.3.2

PICK SUBTEST LOOP (SA 210)
LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER.
PRESS "RESET'' ON THE CARD READER, WAIT FOR THE RESET LIGHT.
LOAD THE STARTING ADDRESS.

PRESS START

AT THE HALT = LOAD SWITCH REGISTER WITH MOTION DELAY SIZE.
4.3.3

ERROR FUNCTION TEST (SA 220)
LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER
PRESS "RESET'' ON THE CARD READER, WAIT FOR RESET LIGHT.
LOAD THE STARTING ADDRESS, THEN SET THE DESIRED SWITCH OPTIONS.
PRESS START.
FOLLOW THE INSTRUCTIONS AS

4.3.4

THEY ARE PRINTED OUT.

SINGLE SUBTEST LOOP (SA 240)
LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT HOPPER.
PRESS "RESET'' ON THE CARD READER, WAIT FOR RESET LIGHT.
LOAD THE STARTING ADDRESS.

PRESS START.

AT THE

1ST HALT, LOAD THE STARTING ADDRESS OF THE DESIRED TEST
(ADDRESS OF THE SCOPE INSTRUCTION AT THE BEGINNING OF
THE TEST.)

PRESS CONTINUE.

THE 2ND HALT SET THE SWITCH REGISTER OPTIONS

PRESS CONTINUE.

(BIT 11 MUST=0).

YM=2110A=AA

MACY11 30A(1052)

04=AUG-81

09:08

PAGE 5

SEQ C005

(MQ
cvar
i

. (MQ11=Kk CARD READER TEST
. CVCMAA. SRC
07=JuL-81 09:06

AT THE INITIAL HALT SET THE CARD IMAGE OF

THE DATA PATTERN USED

il
A
i,

IN SW11-Sw00.

PRESS START.

LOAD SA 250.

ONLY ONE PIECE OF DATA).
LOAD THIS PREPARED DECK INTO THE INPUT HOPPER.
PRESS CARD READER "RESET'', WAIT FOR RESET LIGHT.

ANY DATA PATTERN MAY BE USED, BUT IT MUST

PRESS CONTINUE.

WHEN THE CARD READER RUNS OUT OF CARDS
IT WILL RING THE BELL.
RELOADING THE DECK AND PRESSING 'RESET''
ON
THE CARD READER WILL CONTINUE THE TEST.

THIS TEST.

BE IDENTICAL IN ALL 80 COLUMNS OF ALL THE CARDS (I.E.

A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED OR MARKED TO RUN

SINGLE DATA PATTERN TEST (SA 250)

) il

6.3.5

OPERATING PROCEDURE

AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST)

3.1.

OPERATIONAL SWITCH SETTINGS

5.1

(PICK SUBTEST LOOP)

THE HALT = LOAD THE DELAY BETWEEN CARD

1.3

AT SA 220

SW14=1

SW15=1
5.1.4

MOTION IN THE SWITCH REGISTER.

(ERROR FUNCTION TEST FOR CMQ11-K)

TO LOOP THRU THE CURRENT SUBTEST

TO HALT ON ERROR

AT SA 240 (SINGLE SUBTEST LOOP)
1ST HALT = LOAD STARTING ADDRESS OF

2ND HALT - SET SR OPTIONS
SEE 4.1 FOR SR OPTIONS

NOTE

5.1 .5

DESIRED TEST

(BIT 11 MUST=0)

THAT T-BIT IS NOT SET WHEN USING THIS STARTING POINT.

AT SA 250 (SINGLE DATA PATTERN TEST)
AT

THE HALT=-LOAD THE

CARD-IMAGE OF

AT SA 210

THE

DATA PATTERN IN SW11-SW00.

3. 1.2

SEE 4.1

| (MQ11=K CARD READER TEST
- CVCMAA, SRC
07=JuL~-81 09:06

YM=2110A=AA

5.2

SUBROUTINE ABSTRA(CTS

d.2.1

BEGIN SA 200

MACY11 30A(1052)

04-AUG-81

09:08

PAGE 6

SEQ 0006

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

AT THE END OF THE DECK THE BELL WILL RING.

_IF SW5=1, THE

PROGRAM WILL PRINT THE CURRENT CONTENTS OF THE SOF TWARE

SWITCH REGISTER AND WILL WAIT FOR THE NEW INPUT.IF YOU DO

NOT DESIRE 7O CHANGE THE CONTENTS OF THE SOFTWARE SWITCH
REGISTER,HIT CARRIAGE RETURN TO CONTINUE.

IF SW5=0,PROGRAM ACTION DEPENDS ON THE NUMBER OF

TEST DECKS LOADED.IF THERE ARE STILL CARDS IN THE INPUT HOPPER
THE PROGRAM WILL RUN THE DATA RELIABILITY TEST ON THE ENTIRE
DECK.IF THE INPUT HOPPER IS EMPTY AT THE END OF THESE TESTS,

IT WAITS FOR THE CARD READER TO BE PUT BACK ON LINE.FURTHER

CHECKS ARE MADE OF THE OFF=LINE TO ON-LINE OPERATIONS,AND
THEN THE DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK.
IF SW5=1,HITTING CARRIAGE RETURN WILL RESUME PROGRAM OPERATION

AFTER PRINTING THE CURRENT CONTENTS OF

5.2.2

SOFTWARE

SWITCH REGISTER.

SCOPE
THIS SUBROUTINE

CALL

IS PLACED BETWEEN EACH SUBTEST

IN THE

INSTRUCTION SECTION.
IT RECORDS THE STARTING ADDRESS OF EACH
SUB-TEST AS IT IS BEING ENTERED.
IF A SCOPE LOOP IS REQUESTED,
IT WILL JUMP TO THE START OF THE SUBTEST THAT THE SCOPE LOOP
IS REQUESTED FOR.
IF SCOPE LOOP IS NOT REQUESTED, THERE WILL
BE 1 ITERATION ON THAT SUBTEST BEFORE THE NEXT SUBTEST
IS ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBIESTS.
5.2.3

HLT
THIS

SUBROUTINE PRINTS OUT

THE LOCATION COUNTER AT

THE

TIME

OF FAILURE, AND THE CONTENTS OF THE PROCESSOR STATUS REGISTER.
zE}EPIngTLgE LOCATION COUNTER WILL BE THE ADDRESS OF THE

——

(MQ11=K CARD READER TEST

CVCMAA, SRC

5.2.4

YM=Z110A=AA

07=JuL-81 09:06

MACY11 30A(1052)

04-AUG-81

09:08

PAGE 7

TTRAP

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

LOOP OF THE PROGRAM.
THE TRACE BIT WILL BE SET ON ALTERNATE
LOOPS OF THE INSTRUCTION AND DATA TEST UNLESS Swi2 IS SET.
THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS AN “RTITM
(OR

RETURNS TO THE INTERRUPTED SEQUENCE.
END OF THE PROGRAM LOOP IS REACHED.
5.2.5

"RTT'") WHICH
THIS CONTINUES UNTIL THE

TRAPCATCHER

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND
INTERRUPTS TO THE TRAP AND INTERRUPT VE(CTOR AREA OF MEMORY.
EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE
NEXT LOCATION.
THE NEXT LOCATION IS LOADED WITH A HALT (000000).
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP
LOCATION PLUS TWO.

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE REGISTER

SIX.
IT WILL CONTAIN THE CURRENT STACK ADDRESS.
THE CONTENTS
OF THE CURRENT STACK ADDRESS IS THE VALUE OF THE LOCATION
COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.

5.2.6

€ERCM'1

(ERROR FUNCTION TEST)

THIS TEST CHECKS OPERATION OF

OF THE MARKSENSE CARD READER.

3. 8.7

THE VARIOUS ERROR SENSING FEATURES

CARD READER OFF=-LInc, INPUT

HOPPER EMPTY,

AND OUTPUT STACKER FULL ARE

TESTX

TEST LOOP)

(SINGLE

CHECKED.

THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY FOR
SCOPE LOOP PURPOSES.
WHILE A SCOPE LOOP SWITCH OPTION EXISTS,

IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO
LOOP.
IN SOME CASES (SUCH AS WITH INTERMITTENT FAILURES) THAT'S

NOT EASY

TO DO.

THIS SUBROUTINE ALLOWS YOU TO LOAD THE ADDRESS

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

5.2.8

CKSAME
THIS

(SINGLE DATA PATTERN TEST)

TEST

IS DESIGNED

TO AID

IN THE DIAGNOSIS OF

DIFFICULT

DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER ADJUSTMENTS.
IT CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR MARKED

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

SEQ 0007

CMQ’

cver

p——

——

| CMQ11=k CARD READ:R TEST
CVIMAA, SRC
07-JuL-81 09:06
:

5.2.9

—

YM=Z110A<AA

MACY11 30A(1052)

04=-AUG-81

09:08

——

PAGE 8

Je———

(MQ°
cvee

SEQ 0008

DELAY (PICK SUBTEST LOOP)
BB

THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF

NIETHER DATA OR STATUS REGISTER

ARE CHMECKED FOR ERRORS.

THE PROGRAM WILL

DIFFICULT DICK PROBLEMS AND FACILITATE REPAIR.
IT CONTINUOUSLY MOVES CARDS THRU THE CARD
READER AT A RATE DETERMINED BY THE SWITCH

CONTINUALLY LOOP UNTIL STOPPED BY THE OPERATOR

PROGRAM AND/OR OPERATOR ACTION

5.3.1

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

S
S
SN
S

THE DECK CHMECKS ARE MADE OF

THE FLAG SETTINGS WHICH

AT THE END OF

5.3

AT THE END OF

THE FIRST DECK THE

THE READER COMING BACK ON-LINE.

SHOULD BE AFFECTED, AND THE PROGRAM WAITS FOR AN INTERRUPT FROM

OPERATOR SHOULD LOAD ONE OR MORE DECKS IN THE INPUT HOPPER AND
PRESS "RESET'' ON THE CARD READER.
IF THE CARD READER IS WORKING
PROPERLY, THE BELL WILL RING ONCE WHEN 'RESET'' IS PRESSED AND THE
ENTIRE DECK WILL BE RUN THRU THE DATA RELIABILITY PORTION OF THE TEST.
IF, AFTER READING 80 CARDS, THE INPUT HOPPER IS NOT EMPTY, THE PROGRAM

sa
Mn
L. _ SN

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

AT THE FIRST HALT, SET THE SWITCH REGISTER TO THE STARTING

ADDRESS OF

THE DESIRED SUBTEST

(I.E.

THE ADDRESS OF

THE SCOPE

— — — —d —d

SA 240.

IN-

CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST UNTIL

—

THE PROGRAM WILL

—

D — — — v

IS SET OR THE PROCESSOR IS HALTED.

—

SW11

—

STRUCTION AT THE START OF THE TEST), AND CONTINUE.
AT THE SECOND HALT,
SET THE DESIRED SWITCH REGISTER OPTIONS AND CONTINUE (SW11 MUST BE = 0).

o e

5.3.2

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

’(_

(MQ11=k CARD READER TEST

CVCMAA,SRC

07=JuL-81 09:06

YM=Z110A<AA

ERRORS

6.1

ERROR PRINTOUT

6.1.1

STANDARD PRINTOUT

MACY11 30A(1052)

J 1
04-AUG-81

09:08

PAGE 9

SEQ 0009

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

THE COLUMNS HAVE

DECK
CARD
COLUMN

-EITHER PUNCHED ALPHANUMERIC, PUNCHED BINARY, 80
COLUMN OR_40 COLUMN MARKSENSE DECK, DEPENDING ON
SWITCHES 3 AND &
-THE CARD NUMBER WHERE THE FAILURE OCCURRED <DEC.>
=THE COLUMN NUMBER WHERE THE FAILURE OCCURRED <DEC.>

PATTERN ~THE CORRECT CARD IMAGE DATA THAT SHOULD HAVE BEEN READ
READ1
-THE CARD IMAGE DATA IS READ TWICE.
THIS IS WHAT WAS
READ THE FIRST TIME FROM (RB1
READ2
~-THIS IS WHAT WAS IN CRB1 AFTER A BRIEF TIMING LOOP.
1IT
SHOULD BE THE SAME AS THE PREVIOUS READING.
CODED
=THIS IS WHAT THE DATA SHOULD BE IN ENCODED FORM
READ
=THIS IS WHAT WAS READ BY ADDRESSING THE ENCODED BUFFER
DATA ERRORS
A.
B.
C.
D.

NOT_TRACED TO CARD READER HARDWARE INCLUDE:
SWO3 AND SWO4 NOT SET TO TYPE .OF DECK USED
CARD MISSING
DAMAGED CARD
ALPHA OR BINARY TEST DECK NOT IN PROPER SEQUENCE

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

ERROR PRINTOUT.
COLUMN
READ1
READ2
CARDS

ERRORS

6.2

THE COLUMNS HAVE THE FOLLOWING SIGNIFICANCE:

~-THE COLUMN NUMBER WHERE THE FAILURE OCCURRED.
=-DATA IS READ TWICE.
THIS IS THE FIRST READING.
~THIS IS WHAT WAS READ THE SECOND TIME.
=THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE BEEN RUN
SINCE THE TEST WAS STARTED.
~THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) SINCE
THE TEST WAS STARTED.

ERROR RECOVERY

IN GENERAL,

CONTINUE.

TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND

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

CONTINUE WILL RECOVER.
IF THE PROGRAM HANGS UP IN A LOOP, THE
ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED.
IF

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.

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

DATA ERROR PRINTOUT

6.1.2

7.2.3

D e
e

N BN BN LN AN

ERROR FUNCTION TEST (SA 220)

e
b e

o
e
R

h w—d v

d cd
e e w—d

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

SINGLE DATA PATTERN TEST (SA 250)

7.2.4

THE ERROR FUNCTION TEST REQUIRES SPARE CARDS.
THE TEST WILL TYPE OUT A REQUEST FOR THE CARDS WHEN
THEY ARE NEEDED.

CARDS

OR TEST DECKS.
THE TEST WILL INITILIZE
CARD MOTION AT A RATE DETERIMED BY THE
SWITCH REGISTER.

PICK SUBTEST LOOP (SA 210)
THE PICK SUBTEST LOOP REQUIRES SPARE

d cd

WHEN USING THE STANDARD TEST DECKS, THEY MUST BE IN
GOOD CONDITION.
17 IS A GOOD IDEA TO LABEL THE CARDS
DECKS AS SOON AS THE DECK IS RECEIVED.

THIS IS NOT TO BE REGARDED AS A FAILURE.

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

—

COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA 200)

—

7.2.1

—d

OPERATIONAL RESTRICTIONS

7.2

N LN~ L~ BN LN BN AN LN

D cnd

NONE

7.2.2

cvee

STARTING PROCEDURE

SEQ 0010

(MQ'

PAGE 10

S d d

RESTRICTIONS

09:08

04=-AUG-81

07=-JuL=-81 09:06

MACY11 30A(1052)

CVCMAA, SRC

YM=2110A=AA

— — — — — — — — ——d — — —d d

CMQ11-K CARD READER TEST

CMG11=K CARD READER TEST

YM=2110A=AA

07-JuL=-81 09:06

MACY11 30A(1052)

A
04=-AUG-81

09:08

PAGE 11

SEQ 0011

cmMa’
cva
s

CVCMAA, SRC

MISCELLANEOUS

ity

EXECUTION TIME

e
T

g
A

PUNCHED BINARY

THEY ARE PRINTED RATHER THAN PUNCHED.

SPECIAL NOTES
IF

THE

g
i

—

8.3

————— R P

AS WITH THE ALPHA AND BINARY DECKS EACH SUCCESSIVE CARD
HAS THE SAME SEQUENCE OF CODES.

IN THE LISTING FOR THE CODES PRINTED FOR EACH OF THE 80 COLUMS

ON THE CARD.

REFERENCE THE MARKSENSE DATA TABLE BEGINNING AT THE TAG MRK(D

MARKSENSE BINARY DECK

PP P

8.2.3

THE CARD.
AS WITH THE ALPHANUMERIC DECK EACH SUCCESSIVE
CARD HAS THE SAME SEQUENCE OF CODES.

THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 COLUMNS OF

REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD IN

8.2.2

IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF 80 COLUMNS

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

REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD

PUNCHED ALPHANUMERI(

8.2.1

CARD DECK DESCRIPTION

8.2

NOT APPLICABLE

CARD READER GOES OFF<LINE BEFORE

THE

END OF

A CARD,

BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER.

IS DONE RAPIDPLY ENOUGH.

TESTING CMQ11-K"'S WITH NON-STANDARD ADDRESSLCS

BY SUBSTITUTING INTO THE LOCATIONS KCRS,

KCRB1, AND CRB?2

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

A NON-STANDARD ADDRESS, AND SUBSTITUTING ITS INTERRUPT VECTOR
?807;55 INTO INTVC, A CMQ11-K MAY BE TESTED AT ANY ADDRESS ASSIGNED

e
g

8.4

THE CRS AFTER SETTING IT CAN CAUSE THE READER

T S SO (T M W W

TO NOT READ A CARD

CLEARING BIT O OF

"'CARD DONE'" FROM THE LAST CARD IN THE INPUT HOPPER WILL OCCUR
BEFORE THE CARD READER GOES CFFO-LINE DUE TO "'INPUT HOPPER EMPTY."’

DIFFICULY PICK ERRORS USING ANY
TEST DECK.
IN THIS TES' THE SWITCH
REGISTER IS USED AS A DELAY CONSTANT
FOR INITILIZING CARD MOTION.
NO DATA IS
CHECKED IN THE THIS TEST.

LISTING
SEE FOLLOWING PAGES.
11.

FLOWCHART

e
o e

o e o e e

e v

D e

NOT APPLICABLE.

cMa’
cvar

THIS SET OF TESTS IS DESIGNED TO CHECK ALL OPERATIONS OF THE (MQ11-K
CARD READER, WITH THE NECESSARY EXCEPTION THAT TIMING IN MOST
CASES IS ONLY PARTIALLY TESTED.
A SPECIAL TEST IS INCLUDED TO
CHECK OUT THE ERROR FUNCTIONS OF THE CARD READER , WHICH
PRINTS OUT DIRECTIONS AS IT GOES ALONG.
A TEST IS ALSO INCLUDED
TO ISOLATE DIFFICULT DATA ERRORS USING A SPECIAL TEST DECK
MADE UP BY THE USER.
A TEST IS ALSO INCLUDED TO ISOLATE

SEQ 0012

D e

PROGRAM DESCRIFTION

PAG: 12

e e e

09:08

D D d

04=-AUG-81

D D d D d d D

MACY11 ?NA(1052)

) ) d

YM=-Z110A<AA

— — — —

:
C(MQ11-K CARD RE ADER TEST
07=JuL-81 09:06
CVCMAA, SRC

——

07=JuL=81 09:06
.ENABL
JNLIST

ABS,AMA
TMMD, M(C,CND

MACY11 30A(1052)

.LIST

N 1
04-AUG=-81

09:08

PAGE 13

SEQ 0013

SEQ,BIN,LOC,ME

.TITLE
CMQ11-K CARD READER TEST
;10 AUGUST 1976

YM-Z110A-AA

;R. J. COLLINS
;COPYRIGHT 1973,1974,1975,1976,1977 CIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

000014
001052
000340
000030
011122
000340
011376
000340

CRB1=%4
R5=%5
SP=%6
PC=%7

OF INTERRUPT VECTOR
ETC.

OF CARD READ STATUS REGISTER

OF CARD READER BUFFER (12 BIT DATA)

;LOAD TRAP CATCHER INTO LOCATIONS 0 THRU 377
;LOAD TRAP VECTORS FOR HLT AND SCOPE ROUTINES
.=14
TRTRAP
340
.=30
PRINT
340
SCOPEC
340

—_— 2

000004
000005
000006
000007

R2=%2
CRS=%3

;CONTAINS ADDRESS
;USED FOR TIMING,
;SCRATCH
;CONTAINS ADDRESS
;CONTAINS ADDRESS
;SCRATCH
;STACK POINTER
.PROGRAM COUNTE

—

000002
000003

SCOPE=TRAP
RTT=6
ADINT=%0
COUNT=%1

d —

104400
000006
000000
000001

HSR=177570
NOP=240
HLT=EMT

d —d —d

177570
000240
104000

TWCMAA, SRC

YM=2110A<AA

(MQ11=k CARD READER TEST

——

SEQ 0014

0
.=.+10
INTFLG: O
INTVC:
230

;STACK POINTER INITIALIZED TO POINT HERE
;IN CASE OF STACK OVERFLOW
;CONTAINS LEVEL THAT INTERRUPT IS FOUND AT
;ADDRESS OF CARD READER INTERRUPT VECTOR

TKS:

177560

;ADDRESS OF KEYBOARD (SR

TKB:

177562

;ADDRESS OF KEYBOARD BUFFER

TPS:

177564

;ADDRESS OF

TPB:
KCRS:
KCRB1:

177566
177160
177162

;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS
;ADDRESS

STACK:

:
KBUF

177562

TCSR:

177564

TDBR:

177566
177160
177162
177164

CRB2:

177570

177164

SWR:
.WORD
DISPLAY:.WORD
APASS:
.WORD

ASWREG:
AENVM:
AUTOB:

.WORD
_WORD
.WORD

INTAG:
.WORD
ERRVEC=4

DSWR=177570
DDISP=177570
TRTRAP:
TRFLG:

000000
177772

RTI
O

PROC:

FLG:
ERFLG

0
177772

PIRQ:

DDISP

(=lele el

KBCSR:

177560

TELETYPE STATUS REGISTER

OF TELETYPE DATA BUFFER
OF CARD READER STATUS REGISTER
OF CARD READER DATA BUFFER
TO READ ENCODED DATA
OF SWITCH REGISTER
OF DISPLAY REG

;PASS COUNT

;APT SWITCH REG
;ENVIRONMENT REGISTER
;AUTOMATIC MODE INDICATOR
; INTERRUPT MODE INDICATOR
;HARDWARE SWITCH REGISTER

;HARDWARE DISPLAY REGISTER
SRETURN FROM TRACE LOOP (CHANGED TO RTT FOR AN 11/45)
;TOGGLED TO SWITCH BETWEEN TRACE TRAPPING AND NORMAL F
;STORES PRO§$SSOR STATUS WHEN TRACE TRAP MUST BE CLEAR
;IN A SUBTE
;SET TO ZERO TO QUTPUT DATA ERROR HEADING
;ADDRESS OF PDP 11/45 PIRQ REGISTER

e
De
D d
D d e e e e

;PATTERN CONTINUOUSLY
;LOAD POIN{ES% AND GENERAL STORAGE

e e e

;STARTING ADDRESS OF TEST TO READ A SINGLE DATA

D e e o e e D e e e e

CKSAME

;STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS
JANY SINGLE SUBTEST

e e e e e e e

#STACK,SP

;STARTING ADDRESS FOR CMQ11-K ERROR FUNCTION TEST

MOV
JMP

JMP

ERCM11T

;PICK DELAY TEST

oad

001000
010222

JMP
.=240

007142

;NORMAL STARTING ADDRESS FOR CARD READER

aad als

012706
000137

JMP

MOV

#STACK,SP
DELAY
#STACK ,SP

and and

#STACK,SP
TESTX

MOV

BEGIN

o Al

MOV

JMP

oal

001000
01013¢

MOV

001000

ond

#STACK,SP

012706
000137
012706
000137
012706
000137
000240
012706
000137

e ek e e o s ek e

DISPREG: 0
SWREG:
0

000000
000000

e e

;LOAD STAR{;?G ADDRESS AREA

000174

(MQ1

PAGE

(=)

09:08

B 2
04-AUG-81

ath alh b anh adh bl abd anl all abt oih abt ant anl all adl sl bt atl okt att att adladt
adt st adt atl sl At adt atl Al ait adt sl AN UNUNLAICAILNINININLA

MACY11 30A(1052)

YM=Z110A<AA

(]

CMQ11-k CARD READER TEST
07=JuL-81 09:06
CVCMAA, SRC

SEQ 0015

001334
001336
001344
001352
001352
001356
001360
001366
001370
001372
001400
001402
001406

CLR
MOV
CLR
6705

TRFLG
#TRET,a#10
a2

JINITIALIZE TRACE FLAG
;SETUP RESERVED ADDRESS TRAP RETURN

#RTT,a#TRTRAP
412
#RTI,aNTRTRAP
(SP)+, (SP)+
#12,a#10

;1F NO TRAP THIS IS AN 11/45 OR 11/40

000010

MOV
BR
MOV
CMP
MOV

011246

MOV

#200,PRIOR

000004

006426
006430
005210

000050
000050

006430
006426

MOV
MOV
BIT
BNE
ADD
ADD

BEGIN:

000340

RESET

011544

000047
000004

006426
006430
005076

000050
000050

006426
006430

JSR
JSR
CLR

MOV
MOV
BIT

BNE

001054
010000

001402
011022
010722

JSR

JSR
JSR
CLR
BR
RESTRT: MOV
MOV

001372

001006
062737

RTS

ADD
ADD
ST

005044

011464

sRETURN

%7,SETUP

JINITIALIZE POINTERS AND FLAGS

PC,CRLF
PC.GTSWR
DECCYC
TEST
#340,-(SP)
#TEST,=(SP)
PC,CRLF
PC.GTSWR
DECCYC

#40.,C0LS1Z
#39. .COLM1
#4,35R

g
4
P

;G0 TO INSTRUCTION TESTS
;PUSH STATUS ON STACK
;PUSH PC ON STACK

;SETUP FOR 40 OR 80
L

TRFLG

PSSET
#10000,aSR
PSSET

MoV

#TEST1A,RETURN

JSR

;COUNTS # OF TIMES THROUGH DECK

#40.,C0LS12
#40.
. COLMT

BPL
BIT
BNE

TEST1:
SCOPE
TEST1A: JSR

;SR2=1 FOR 40 (OL.

;CHECK FLAG
A
IT 1S POSITIVE, CLEAR T BI7

:IF

:TRACE

17.CKBIT8

%7.CLRTR

TRAPPING INHIBITED?

:BRANCH IF YES

PSSET:
RT]
TEST FOR CORRECT INITIALI %AT ON OF

TEST:

G
P

;SETUP FOR 40 OR 80

— N Y———— g— Y

1%:

PRIOR

#40.,C0LS12Z
#39..COLM1
#4,35R
18
#40.,COLMI
#40..C0LSIZ

MTPS

PC, SWRCK

JSR

;IF TRAP, NOT AN 11/45 OR 11/40
JRESTORE STACK POINTER

T ST Y

001064
011544
011702
006412

TRET:

T N SN S

001052

JEXTEND RS

001052

OAD ADDRESS OF INTERRUPT VECTOR
1 NITIALIZE INTERRUPT FLAG

004737
004737
004737
005037
000443

NOP

ITERATION

000010

INTVC ,ADINT
INTFLG

sSET ITERATION MAXIMUM TO 1
sSET UP REGISTER POINTERS

KCRBT,CRB1

MOV
CLR

KCRS, CRS

R R R N
T N
T N TN TN BN TN
T N
T N TN
T DN TN TON TN TN TN
TEN TV TN TN TN
TN TN TV TN [N TN TN TN

MOV

001242
001246
001252
001256
001262
001264
001270
001274
001276
001302
1306
001372
001320
001326

000207

:INITIALIZE CSR AND DBR POINTERS

SETUP:

669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690

PAGE 15

668

09:08

STATUS REGISTER

;SETUP SCOPE LOOP RETURN ADDRESS
;SO ALL TESTS START WITH SCOPE
;CHECK FOR OFF-LINE SET
;STORE PROCESSOR STATUS AND CLEAR TRACE BIT
-

665
666
667

04-AUG-81

#1,1TMAX

~
W
~

001206
001214
001222
001224
001232
001240

001200

b =d

656
657
658
659
660
661
662
663
664

MACY11 30A(1052)

MOV

011460

n
~
W
~N

001064
001072
001076
001102
001106
001112
001116
001124
001130
001132
001134
001142
001144
001152
001154
001162
001166
001174

°O§OOOO° o 8882382222

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

YM=2110A=AA

TN)

(MQ11=k CARD READER TEST
07=JuL=-81 09:06
CVCMAA, SRC

CMQ11=K CARD READER TEST
CVCMAA. SRC
07-JUL-81 09:06
691
692
693
694
695
696
697
698

001412
001414
001416
001420
001422
001424
001426
001430

005001
005201
001376
005201
001376
005201
001376
013746

700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718

001440
001442
001444
001446
001450

000002
000005
005713
001401
104000

001452
001456
001462
001464
001466

052713
022713
001402
104000
000412

001470
001472
001474
001476
001500
001506

005013
005713
001401
104000
032777
001402

721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746

001514

104400

001516
001522
001526
001530
001534
001536
001540
001542
001544
001546
001550
001552
001554
001556
001560
001562

004737
004737
005213
032713
001401
104000
005001
005201
001376
005201
001376
005201
001376
005201
001376
013746

001600
001602

001002
104000

699 001434

;53

001510

001566
001572
001574
001604

012746

000137

012746
000002
032713

000406

YM=2110A=AA

CLR
INC
BNE
INC
BNE
INC
BNE
MOV

001056

001442

TST1B:

177776
000102

000010

004276

011022
010722
000001

001056

001574

040000

MACY11 30A(1052)

004724

7TST1C:

COUNT
COUNT
=2
COUNT
=2
COUNT
=2
PROC,=(SP)

04=-AUG-81

09:08

PAGE 15-1

cMQ1
CVCM

;RESTORE PROCESSOR STATUS

14
14
14
14
14
14
14
14

RTI
RESET
;SEND OUT INIT
ST
aCRS
:CHECK FOR STATUS REGISTER ALL ZERO
BEQ
Ry
:BRANCH IF 0K
HLT
:STATUS REGISTER NOT CORRECTLY INITIALIZED
:ONLY BITS 1 AND 6 OF THE STATUS REGISTER SHOULD BE ABLE TO BE SET TO ONE
;AND READ BACK AS ONE
BIS
#177776,3CRS
;SET ALL BITS BUT 0
CMP
#102,aCRS
sONLY BITS 1 AND 6 SHOULD BE SET
BEQ
.+6
:BRANCH IF OK
HLT
:STATUS REGISTER DIDN'T CONTAIN 102
8R
TEST2
*BRANCH AFTER FAILURE
sCLFARING STATUS REGISTER SHOULD CLEAR BITS 1 AND 6
CLR
aCRS
:CLEAR BITS 1 AND 6
TST
aCRS
;CHECK FOR ALL BITS CLEAR
BEQ
TST1C
;BRANCH IF 0K
HLT
:BIT 1 AND/OR BIT 6 DIDN'T CLEAR
BIT
#10,3SR
:CHECK FOR MARK SENSE DECK
BEQ
TEST2
;CONTINUE LOGIC TESTS IF NOT M S DECK

14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14

MOV

#1571B,=(5P)

JMP

DATMK

;INITIALIZE COUNTER
;WAIT TO BE CERTAIN
;THAT ALL CARDS ARE
:THRU BEFORE ISSUING
JINIT

SEG 0016

:OTHERWISE GO TO DATA TEST

TEST2: SCOPE
:START SHOULD CAUSE CARD DONE WITHIN 1 SECOND
:BIT 0 SHOULD ALWAYS READ AS BEING EQUAL TO ZERO
JSR
%7.CKBIT8
:CHECK FOR OFF=LINE SET
JSR
27,CLRTR
:STORE CURRENT PROCESSOR STATUS AND CLEAR TRACE BIT
INC
aCRS
:START READING A CARD
BIT
#1,3CRS
SCHECK BIT 0
BEQ
R
:BRANCH IF NOT SET
HLT
:BIT 0 READ AS A ONE
CLR
COUNT
;INITIALIZE COUNTER
INC
COUNT
SWALT
BNE
=2
INC
COUNT
BNE
=2
INC
COUNT
BNE
=2
INC
COUNT
BNE
=2
MOV
PROC ,~(SP)
:RESTORE PROCESSOR STATUS
MOV
#TST2A,=(SP)
RT]
TST2A: BIT
#40000,3CRS
;CHECK CARD DONE
BNE
CONT2
;CONTINUE IF SET
HLT
SCARD DONE DIDN'T SET WITHIN 400 TMS
BR
TEST3
:NOTE THAT FAILURE COULD BE DUE TO READ
sNOT BEING RESET

14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14

14
14
14
14
14

14
14

Ranscn

CVCMAA, SRC

07-JuUL=-81 09:06

747
748
749
;29

001606
001612
001616
001620

052713
032713
001401
104000

752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768

001622

104400

001624
001630
001632
001634
001640
001642
001644
001646
001652
001654
001660
001662
001666
001670

004737
005013
005213
032713
001002
104000
000417
032713
001010
032713
001372
032713
001006
104000

011022

770
771

001674
001700

032713
001401

001000

774
775
776
777

001704

104400

780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802

001706
001712
001714
001716

004737
005001
005213
032713

001722
001724
001730
001732
001734
001736
001740
001744
001746
001750
001754
001756
001760
001762
001764

001775
032713
001007
005201
105713
100367
032713
001001
000772
032713
001002
104000
000403
005713
100401

769
;;g

001672

001702

000404

040000
040000

001000
040000
001000

040000

YM=Z110A=AA

CONT2:

MACY11 30A(1052)

BIS
BIT
BEQ
HLT

04-AUG-81

#40000,aCRS
#40000,aCRS
L+

09:08

PAGE 15<2

SEQ 0017

;:DATO TO STATUS REGISTER SHOULD CLEAR
:CARD DONE
;BRANCH IF IT DID
:DATO DIDN'T CLEAR CARD DONE

DONE3:

14
14

B8R

BIT
BEQ

TEST4

#1000,3CRS
TEST4

:CHECK BUSY
GO ON TO NEXT TEST IF CLEAR

:CARD DONE DIDN'T CLEAR BUSY

TEST4: SCOPE
:A TIMING ERROR SHOULD OCCUR IF DATA IS NOT READ AND NEW DATA COMES IN
;A TIMING ERROR SHOULD SET THE SPECIAL CONDITION BIT WHEN CARD DONE OCCURS
:COLUMN READY SHOULD BE CLEARED BY THE TIMING ERROR AND PREVENTED FROM RESETTING

;BITS 11,14, AND 15 SHOULD BE CLEARED BY A DATO TO THE STATUS REGISTER

001766
001770
001774

104000
032713
001007

010674

140000

»
140000
040000

004000

14
14
14
}2
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14
14

HLT

140200

CVCM

TEST3: SCOPE
:BUSY (BIT 9) SHOULD BE SET BY READING A CAR'
:1T SHOULD REMAIN SET UNTIL CARD DONE SETS, WHICH SHOULD CLEAR IT
JSR
%7.CKBIT8
;CHECK FOR OFF=LINE SET
CLR
aCRS
;INITIALIZE STATUS REGISTER
INC
aCRS
;READ A CARD
BIT
#1000,aCRS
;CHECK BUSY
BNE
LOOP3
:BRANCH IF SET
HLT
;READING A CARD DIDN'T SET BUSY
BR
TEST4
LOOP3: BIT
#40000,aCRS
;CHECK CARD DONE
BNE
DONE 3
:BRANCH IF SET
BIT
#1000,aCRS
:CHECK BUSY
BNE
LOOP3
:BRANCH IF STILL SET
BIT
#40000,aCRS
:CHECK CARD DONE
BNE
TEST4
:GO TO NEXT TEST IF SET
HLT
:BUSY CLEARED BEFORE CARD DONE SET

104000

;;g

)

JSR
CLR
INC
BIT

%7,INIT
COUNT
aCRS
#140200, aCRS

BEQ
BIT
BNE
INC
LOOP4B: TSTB
BPL
BIT
BNE
BR
(K& :
BIT
BNE
HLT
BR
TST
BM]

LOOP4
#140000, aCRS
(K&
COUNT
aCRS
LOOP4
#140000, aCRS
(K4
LOOP4B
#40000, aCRS
.+6

CONT4:

#4000,
R

LOOP4:

HLT
BIT
BNE

CONT4
aCRS
RY)

@CRS

sINIT STATUS REGISTER
:INITIALIZE COUNTER
:INITIATE READ
:;WAIT FOR SPECIAL CONDITION, CARD DONE,
:OR COLUMN READY
:LOOP IF NONE OCCURRED
;SPECIAL CONDITION OR CARD DONE?
:YES, BRANCH
:NO, COUNT COLUMN READYS
:WAIT FOR COLUMN READY TO CLEAR
:1F CLEAR, RETURN TO LOOP4
:CHECK FOR SPECIAL CONDITION OR CARD DONE
;BRANCH IF EITHER SET
;OTHERWISE, CHECK AGAIN
:CHECK CARD DONE
;BRANCH IF SET
;SPECIAL CONDITION SET BEFORE CARD DONE
;CHECK SPECIAL CONDITION
;BRANCH IF SET
;SPECIAL CONDITION WASN'T
:CHECK TIMING ERROR
*BRANCH IF SET

SET

13
13
1
13

13
13
b
1
Y
1
13
Ip
b
13
Y
P
1
b
1
1
I
1F
b
13
1
I
L

CMQ11-k CARD READER TEST

07=JuL-81 09:06

001776
002000

HLT
DEC
BPL
HLT
BR
BEQ
HLT

1STB
BPL
HLT

) clh

) canld

gmmaammmam

OOV YOV
WA =

810

MACY11

CLR
BIT
BEQ
HLT

144000
104000

104400

821

004737

010674
140200

BEQ
BIT
BNE
TST

002156
002160

;TIMING ERROR WASN'T SET
sCHECK NUMBER OF COLUMN READYS
sBRANCH IF ANY OCCURRED
;COLUMN READY NEVER OCCURRED

a(RS

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

aCRS
0124000, a(RS

:ELE?R BITS 11,14, AND 15 VIA DATO
s

CHECK

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

COUNT
aCRB1
(RS
.+

;OR SPECIAL CONDITION
;CARD DONE?
;YES, BRANCH
;CHECK BIT 15
;SKIP ERROR HALT IF NOT SET
;BIT 15 WAS SET
;GO TO NEXT TEST
;CHECK FOR 40 OR 80
;BRANCH IF 40 OR 80 OR MORE WITHOUT CLEARING READY
s INCREMENT COUNTER
;CLEAR READY
sMAKE SURE IT CLEARED
sBRANCH IF IT DID

LOOPS

;LOOP

#40000, aCRS

(K5

aCRS

TEST6

LOOPS

CKS:

104000

HLT

000421
020137
001401

006430

BR
(MP
BEQ
HLT

021327

040200

#4000,
+4

;NOTE THAT IF

000200

PAGE 15-3

COUNT
.+6

COUNT, COLM1

006430

104000

09:08

TESTS:
SCOPE
;SETTING READ SHOULD CAUSE COLUMN READY TO SET 40 OR B0 TIMES BEFORE CARD DONE SETS
;READING THE DATA BUFFER SHOULD CLEAR COLUMN READY AND PREVENT A TIMING ERROR
%7, INIT
JSR
sINITIALIZE STATUS REGISTER
CLR
COUNT
sINITIALIZE COUNTER
aCRS
INC
;INITIATE READ
0120200.3CRS
;WAIT FOR COLUMN READY, CARD DONE
BIT
LOOPS:

040000

004000

F
2
04-AUG-81

30A(1052)

;READING DATA BUFFER DIDN'T CLEAR READY

aCRS

sCHECK TIMING ERROR BIT

sBRANCH IF NOT SET

;TIMING ERROR WAS SET

COLUMN READY SET MORE THAN 40 OR 80 TIMES

;A TIMING ERROR WILL CCCUR AND THE COUNT WILL BE 39 OR 79
TEST6
;BRANCH AFTER ERROR
T
, COLM1
COUN
s CHECK COUNT
;BRANCH IF 40 OR 80 COLUMN READYS OCCURRED
;COLUMN READY DIDN'T OCCUR 40 OR 80 TIMES

CMP
BEQ
HLT

aCRS,#40200
.+

CMP
BEQ
HLT

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

CLR

(RS

aCRS,#200
.+

;STATUS REGISTER IN WRONG STATE
;SHOULD CLEAR DONE BUT NOT READY
;CHECK FOR ONLY READY SET
;BRANCH IF 0K

TST

aCRB1

;READING DATA BUFFER SHOULD CLEAR COLUMN READY

;STATUS REGISTER IN WRONG STATE

SEQ 0018

(Ma1
CVCM
ddddddddddddddddd—‘dd—.—ldd—l—l—ld—l—l—‘—‘-‘-—l—h_fi—a—l-—)—)—‘_‘_b—‘_‘—d—j—l_—l—b—l—l—‘_)d -

CVCMAA, SRC

YM=Z110A-AA

tmiRIARIRIALIRIALALALALALARLALALALALALRALALALALALALALALALALALALALALALALTLALUALALALTLALYTLALALYLYLYLAYTLOYTLYT
YLY LY LALALA LN

(MQ11=k CARD READER TEST

ol
i
oo

{

| CMQ11=k CARD READER TEST
CVCMAA, SRC

07-JuL=81 09:06

859
860
gg;

002162
002164
002166

005713
001401
104000

|
'

863
B64

002170

104400

:
,
'

866
867
868
869
870
871
872
873
874
875
876
877
878
879
E80
881
882
883
884
885
886
887
888
889
890
891
892
893

002172
002176
002202
002204
002206
002210
002212
002214
002216
002222
002224
002230
002232
002236
002240
002242
002244
002246
002250
002252
002256
002260
002262
002266
002270

004737
012701
005213
105713
100376
005714
005301
100373
032713
001775
032713
001026
032713
001416
105713
100001
104000
005713
100376
032713
001406
105013
032713
001415
104000

002272
002274

000413
032713

895
896
897
898
899
900
385

002302
002304
002306
002312
002314
002316
002320

104000
000406
032713
001402
104000
000401
104000

903
904
905
906

002322

909
910
911
912
913
914

002324
(002330
002332
002336
002342
002344

|
!
'
|

865

894

002300

001010

YM=2110A<AA

MACY11 30A(1052) 04=-AUG=81 09:08 PAGE 15-4
ST
BEQ
HLT

aCRS
YA

144000
040000
004000

040000

144000

004000

104400

1§
15
}g
15
15

EVEN IF IT OCCURS AT COLUMN 40

“A DATOB TO THE LOW BYTE OF THE CRS SHOULD CLEAR BITS 15,14, AND 11

LOOP6:

000400

CVCM

;CHECK STATUS REGISTER
:BRANCH IF ALL BITS ZERO
:STATUS REGISTER NOT EQUAL TO ZERO

TEST6: SCOPE
;:TIMING ERROR SHOULD SET BIT 11 BEFCRE CARD DONE OCCURS,
010674
000115

cMQ1

SEQ 0019

OFF6:
ERR6:

JSR
MOV
INC
TSTB
BPL
TST
DEC
BPL
BIT
BEQ
BIT
BNE
BIT
BEQ
TSTB
BPL
HLT
TST
BPL
BIT
BEQ
CLRB
BIT
BEQ
HLT

%7, INIT
#77.,COUNT
aCRS
aCRS
=2
aCRB1
COUNT
LOOP6
#144000,aCRS
.~
#40000,aCRS
ERR6
#4000,aCRS
OFF6
aCRS
.+

BR
BIT

TEST?7
#400,3CRS

BNE

HLT
BR
BIT
BEQ
HLT
BR
HLT

aCRS
=2
#40000,3CRS
OFF6
aCRS
#144000,3CRS
TEST?7

TEST?

TEST?
#4000,3CRS
.+6
TEST?

SINITIALIZE
SSETUP COUNTER
:START READING A CARD
;WAIT FOR COLUMN READY

15
15
15
15
15
15

:CLEAR COLUMN READY

;GO THRU LOOP FOR 1ST 78 COLUMN READY'S

:CHECK CARD DONE
:1F NOT SET, READER IS PROBABLY OFF~-LINE
:DATOB TO LOW BYTE OF CRS
;CHECK BITS 15,14,11
:BRANCH IF CLEAR TO NEXT TEST
;DATOB TO LOW BYTE OF CRS DIDN'T CLEAR
:BITS 15,14 AND/OR 11
;GO TO NEXT TEST
;CHECK BIT 8

1€
16
1€
1€
1€
1€
1€
1€
1€
1€
1€
1€
1¢
1€
1€
1€
1€
1€
1¢
1€
1¢
1¢

;BIT 15 WAS SET, 8 WASN'T
;G0 TO NEXT TEST
:TIMING ERROR SET?
;NO, BRANCH
STIMING ERROR DIDN'T SET BEFORE CARD DONE
;GO TO NEXT TEST AFTER ERROR
:TIMING ERROR WASN'T SET

1¢
1€
1¢
1¢
1¢
1¢
}:

;WAIT FOR CARD DONE OR TIMING ERROR
;OR SPECIAL CONDITION
;CARD DONE SET?
:YES, 2 POSSIBLE TEST FAILURES
:CHECK TIMING ERROR
:IF NOT SET, READER IS PROBABLY OFF=L INE
;CHECK COLUMN READY
:BRANCH IF CLEAR
:TIMING ERROR DIDN'T CLEAR READY
;WAIT FOR SPECIAL CONDITION

:BRANCH IF SET

1¢

TEST?: SCOPE
:NOT READING THE 40TH OR B0TH COLUMN OF DATA FROM THE BUFFER
:SHOULD CAUSE A TIMING ERROR ON THE FIRST COLUMN OF THE NEXT CARD
SSETTING EJECT SHOULD CLEAR TIMING ERROR, AND BIT 15 SHOULDN'T SET

ggg

1¢
1¢
1¢
1¢

:INCB SHOULD START A READ

004737
005213
013701
032713
001775
005713

010674
006426
140200

LOOP7:

JSR
INC
MOV
BIT
BEQ
ST

17, INIT
aCRS
COLSIZ,COUNT
#140200,3CRS
LOOP?
aCRS

;INITIALIZE
*START READ
;INITIALIZE COUNTER
;TEST FOR ERROR, DONE OR READY
:LOOP IF NONE SET
:CHECK ERROR

1¢
1¢
1¢
1¢
1t
1

;

{

YM=2110A<AA

CMQ11=k CARD READER TEST

CVCMAA, SRC

07=-JUL=-81 09:06

915 002346
916 002350
917 002352
918 002354
919 002360

100002
104000
000455
032713
001013

002364
002366
002370
002372
002376
002400
002402
002404
002406
002410
002412
002414
002416
002420
002422
002424
002426
002430
002434
002436
002440
002442
002444
002446
002452
002456
002460
002462
002464

001402
005714
000762
032713
001775
005713
100002
104000
000437
005701
001402
104000
000433
105213
105713
100401
104000
032713
001775
105713
100002
104000
000420
112713
032713
001402
104000
000411
032713

040000

920 002362 005301

921
922
922
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
9%6
947
948
949

950
951
952
953
954
ggg

002470
002272
002476
002500
002502
002504

001775
032713
001003
005713
100001
104000

140000

DONE7:

004000

000002
004000
140090

002506

104400

960
961
962
963
964
965
966
97
968
969
970

002510
002514
002520
002522
002526
002530
002534
002536
002540
002542
002544

004737 010674
004737 010722
005213
032713 140200
001775
032713 040000
001023
005713
100002
104000
000443

959

BPL
HLT
BR
BIT
BNE
DEC
BEQ
TST
BR
BIT
BEQ
TST
BPL
HLT
BR
TST
BEQ
HLT
B8R
INCB
TSTB
BM]
HLT
BIT
BEQ
TSTB
BPL
HLT
BR
MOVB
BIT
BEQ
HLT
BR
BIT
BEQ
BIT

000400

957
958

MACY11 30A(1052)

BNE
TST
BPL
HLT
TEST8:

04=-AUG=81

.+6

TEST8
#40000,aCRS
DONE 7
COUNT
. +6
aCRB1
LOOP7
#140000,aCRS
=4
aCRS
DONE?7
TEST8
COUNT
.+6

TESTS8
aCRS
aCRS
R/
#4000,aCRS
.~4
aCRS
.46

TEST8
#2,aCRS
#4000,aCRS
.+6
TEST8
#140000,aCRS
=4
#400,3CRS
TESTS
aCRS
R

U9:08 PAGE 15-5

:BRANCH IF NOT SET
:BIT 15 WAS SET
:GO TO NEXT TEST AFTER ERROR
:CHECK FOR CARD DONE
;BRANCH IF SET
s COUNT
:1F LAST COLUMN READY, BRANCH
:CLEAR DONE
:LOOP
SWAIT FOR DONE OR SPECIAL CONDITION

:CHECK SPECIAL CONDITION
*BRANCH IF NOT SET

:SPECIAL CONDITION WAS SET
:GO TO NEXT TEST AFTER ERROR
:TEST FOR 40 OR 80 COLUMN READY'S
:BRANCH IF 0K
:COLUMN READY DID NOT OCCUR 40 OR 80 TIMES
:GO TO NEXT TEST AFTER ERROR
:START READ
:CHECK COLUMN READY
:BRANCH IF STILL SET
:READY DID NOT REMAIN SET
STEST FOR TIMING ERROR
:LOOP IF NOT SET
;CHECK COLUMN READY
*BRANCH IF NOT SET
:TIMING ERROR DIDN'T CLEAR READY
;SET EJECT
:CHECK TIMING ERROR
:BRANCH IF CLEARED
*TIMING ERROR NOT CLEARED BY DATOB
:GO TO NEXT TEST AFTER ERROR
:WAIT FOR DONE OR SPECIAL CONDITION
:CHECK BIT 8
*BRANCH IF READER OFF=-LINE
:SPECIAL CONDITION SHOULDN'T SET
:SINCE DATOB CLEARED TIMING ERROR
:BIT 15 WAS SET, 8 WASN'T

SCOPE

:DATA SHOULD BE AVAILABLE IN THE DATA BUFFER FOR AT LEAST 1.0 MILLISECOND

LOOP8:

JSR
JSR
INC
BIT
BEQ
BIT
BNE
ST
BPL
HLT
5R

27, INIT
%7.CLRTR
aCRS
#140200,aCRS
=4
#40000,aCRS
DBR(KS
aCRS
L+6
TESTO

sINITIALIZE STATUS REGISTER
:STORE CURRENT PROCESSOR STATUS AND CLEAR TRACE BIT
*START READ
:WAIT FOR COLUMN READY OR CARD DONE
:OR SPECIAL CONDITION
:CARD DONE?
SYES, GO TO CHECK STROBING OF DBR
:NO, CHECK BIT 15
:BRANCH IF NOT SET
SBIT 15 WAS SET
:GO TO NEXT TEST AFTER ERROR

SEQ 0020

| (M

| CVCM
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
16
1€
1€
16
16
1€
1€
1€
1¢
1€
1€
1€
}2
16
1
Ic

1€
1¢
1¢
1¢
1¢
1¢
1¢
1¢
1€
1¢
1€

|
e

CLR

aCRS
#1200,aCRS

CMP

001200

BEQ

HLT
BR

MOV
MOV

000100

DEC
BNE
CMP
BEQ
HLT
BR

176222
000100

DBRCK8: MOV

CONT8:

B e = O
e
Db b b b

N NN
N

il i

it o

il o

) st i

) ol i

[olelelelelelelelslelelole
o)

s sl

il cch s

ZSESR 83 g

1000

002646
002652

000002

002654

104400

002656

004737
004737
005213
105713
001776
052713
005714
005001

RESTB:

TEST9:

SCOPE

——

MOV
RTI

TEST9
aCRB1,RS

#100, COUNT

COgNT

3CRB1,RS

09:08

PAGE 15-6

SEQ 0021

;DATO TO CRS = SHOULDN'T CLEAR BUSY OR READY
s CHECK FOR BUSY AND READY
JBRANCH IF STILL SET
sCRS _IN WRONG STATE
;GO TO NEXT TEST AFTER ERROR
:STORE DATA

;INITIALIZE COUNTER

JWAIT FOR 7

MILLISECOND OR LESS

;DATA UNCHANGED?

LOOPS

;0K, CONTINUE

TESTY
aCRB2,R2
#100, COUNT

;GO TO NEXT TEST AFTER FAILURE

aCRB1,R5

;DATA NOT AVAILABLE FOR

MILLISECOND

;STORE ENCODED DATA IN REGISTER 2
;SET UP COUNTER
sREAD CARD-IMAGE DATA BUFFER
;BRANCH IF UNCHANGED
;:CRB1 READ INCORRECTLY

aCRB2,R2

RESTS

JBRANCH TO RESTORE PROCESSOR STATUS AND EXIT
;READ ENCODED DATA BUFFER
;BRANCH IF UNCHANGED

RESTS

:BRANCH AFTER FAILURE

PROC,=(SP)
#TEST9,-(SP)

;CRB2 READ INCORRECTLY

;s COUNT DOWN

;LOOP IF NOT DONE

;RESTORE PROCESSOR STATUS

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

;PREVENTED IF THE_CURRENT COLUMN READY IS CLEARED
JSR
27,INIT
sINITIALIZE STATUS REGISTER
%7,CLRTR
JSR
;SAVE PROCESSOR STATUS AND CLEAR T BIT
INC
aCRS
;START READ

C10674
010722

000006

TSTB

a(RS

;WAIT FOR COLUMN READY

BIS
TST

#2,aCRS

;SET EJECT
;CLEAR COLUMN READY

MOV
INC

#6,CNTER

BEQ

000002

006404

CLR

1%:

006404
044200

WAIT9:

040000

(K9:

000200

[

(MP

BEQ
HLT
BR
CMP
BEQ
HLT
BR
DEC
BNE
MOV

176202

001056
002654

MOV

04-AUG=-81

BNE
DEC
BNE
BIT
BNE
HLT
BR
BIT
BNE

BIT

BEQ
HLT

aCRB1
COUNT

COgNT

JWAIT

;SET A COUNT FOR 6 LOOPS

CNTER

18
#446200,3CRS

RESTY
#40000,aCRS
RESTY
#200,aCRS

;CARD DONE,

TIMING ERROR, OR

;COLUMN READY SET?- BRANCH IF YES
;NO CARD DONE OCCURRED
;CONTINUE AFTER FAILURE
;CHECK FOR CARD DONE

;CHECK COLUMN READY
;BRANCH IF NOT SET
;COLUMN READY WAS SET

(Ma1
<

30A(1052)

]
B

MACY11

-A—l.‘—l.—.—l—b—h—.—l—h—l—l—.—dd—‘—l—h_‘_‘—.—ld—a—i—l—l-fl.‘—a—l—a—l—bd—a—l—a—id—‘—l—h-‘—l-—l—.—b—h-—l—l.—‘—l—a_.
S S S S S S S S S S S S S S S SN SIS S SIS S SN SN SN SN SN SN SNISN SN SN
SNSNSNSNSNNSNSNSNSNNSNSNSNSNSNNSNNNNNOs

YM=2110A<AA

(]

(MQ11=k CARD READER TEST
CVCMAA SRC
07-JuL-81 09:06

REST9:

BR
HLT
MOV

104400

TEST10:

SCOPE

PROC,=(SP)
#TEST10,-(SP)

"
PAGE 15-7

SEQ 0022

JEJ ECT DID NOT PREVENT A TIMING ERROR
JRE STORE PROCESSOR STATUS

;CARD DONE SHOULD CAUSE AN INTER RUPT
+IN
%7,INIT
JSR
sINITIALIZE
MOV
#TINT10,3ADINT
;LOAD RETURN POINTER

MTPS

MFPS

011246

VOO
WN <OV
YO

I
—————
Y

BIS

040000
000002

SR YN YO
YR
T YU
R
AU
R
—— PR

#103,aCRS
#40000,aCRS
.~
2(ADINT)

CLRB

TINT10: BIT
BNE
HLT
CMP

004737
013701

TEST11:

011246

(SP)+,(SP)+

TSTB

aCRS

L+

. +4

aCRS

#232 ,8ADINT

an232

;WAIT FOR CARD DONE

;CLEAR INTERRUPT ENABLE
sNO INTERRUPT OCCURRED

;CHECK CARD DONE
;BRANCH IF SET
;CARD DONE NOT SET
JRESTORE STACK POINTER
;MAKE SURE NO ERROR OCCURRED

;BIT 15 WAS SET

;CHECK COLUMN READY
;BRANCH IF NOT SET

;COLUMN READY WAS SET
;DISABLE INTERRUPTS
s CHANGE INTERRUPT RETURN ADDRESS
;TO CAUSE A HALT IF AN INTERRUPT OCCURS

SCOPE

MFPS

BIS

MTPS

MFPS

011246

000002

CONT10

#40000,3CRS
.+

;SET EJECT, INTERRUPT ENABLE, AND READ

;EVERY COLUMN READY SHOULD CAUSE AN INTERRUPT
17, INIT
JSR
;INITIALIZE
MOV
COLSIZ,COUNT
;CHECK EACH COLUMN
MOV
#TINT11,3ADINT ;LOAD RETURN POINTER

010674

000101

@CRS

aCRS

CLR

104400

PRIOR

BPL
HLT
CLR
CONT10: MOV

000232
000232

2(ADINT)

PRIOR

MOV
BIT
BEQ
MTPS

BPL
HLT

005037

PRIOR

#200,PRIOR

HLT

040000

PRIOR

#200,PRIOR

BIC

MTPS

YR YT Y

MFPS

011246

LOOP11: MFPS
BIC

PRIOR

#200,PRIOR
PRIOR

2(ADINT)

PRIOR
#200,PRIOR

MTPS

PRIOR

ISTB

aCRS

MOV

MTPS
CLR

#101,3CRS

;SET READ AND INTERRUPT ENABLE

2(ADINT)
aCRS

;CLEAR INTERRUPT ENABLE

;WAIT FOR COLUMN READY

(e ——-

MOV
RTI

REST9

09:08

—d

000401
104000
013746
012746
000002

J 2
04=-AUG-81

—l_.-fl-‘—A—d—ld—l—l—h—l—ld-—l—.—l-‘—._‘—.—l—l—l—ld-—‘_‘-—l—l—i_.._.—l-fl-—l_‘—l_fl_j_‘_fi—l—l—l—l—i—l.-I—l—l—l—b_.-—)

PN IRR1
e AV Sv e
ZZFIREREE PR R AR ARA AR R R RRRRRRRR

MACY11 30A(1052)

O A 0N O O O O O 00 O 00~ Sub S S S S SO ST SO S SO SO S SO S ST S ST S S S S SN SN SN S SN SN SN SN SU SN SN SIS SNISNISNISNISNI
SN N SNIN N

1027

oO
NN
-0

YM=2110A<AA

—

(MQ11=k CARD READER TEST
(v IMAA,SRC
07-JuL-81 09:06

<3
g

‘als)

e
e

1097
1098
1099
1100
1101
1102
1103
1104
1105
1106

003262

104400

003264
003270
003274
003300
003306
003312
003316
003322

004737
012710
106737
052737
106437
106760
012713
032713

HLT
BR
TINT11: CLR
CMP
TSTB
BMI]
HLT
BR
TST
DEC
BNE
CONT11: MOV

000232

}ggg 003256 005037 000232

1107
1108
1109
1110
1111
1112

1113
}}}g

1116
1117

003326
003330
003332
003334
0033
003340

003344

005037

1118
1119
1120
1121
1122
1123

003356
003362
003366
003374
003400
003404

104400
004737
012710
106737
052737
106437
106760
012713

1125
1126
1127
1128
1129
1130
1131
1132
1133
1134

003414
003416
003422
003430
3434
003436
003442
003444
003446
003450

001775
106737
042737
106437
000240
106460
000402
104000
022626
012710

1136
1137
1138

003460
003464
003466

1126

1135

003350
003352

001775
000402
104000
022626
005013
012710

003410

003454

032713

005037
032713
001775
005013

010674
003332
011246
000200
011246
000002
000103
040000

CLR

011246

000232

040000

LOOP11

#232,dADINT

w232

;COLUMN READY DID NOT INTERRUPT
;CLEAR INTERRUPT ENABLE
JRESTORE STACK POINTER
sMAKE SURE COLUMN READY IS SET
sBRANCH IF SET
;COLUMN READY WASN'T SET
;CLEAR READY FLAG
;ALL 40 DONE?

;NO
; YES=CHANGE INTERRUPT RETURN ADDRESS

;TO CAUSE A HALT IF ANOTHER INTERRUPT OCCURS

CLR

#TINT12,3ADINT
PRIOR
#200,PRIOR
PRIOR
2(ADINT)
#103,aCRS
#40000,aCRS
.~
.+6

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

w232

;SETUP RETURN

;SET EJECT, INTERRUPT ENABLE, AND READ
;WAIT FOR CARD DONE
sCONTINUE IF NO INTERRUPT OCCURRED
;AN INTERRUPT OCCURRED
JRESTORE STACK POINTER
;CLEAR INTERRUPT ENABLE AND EJECT
; CHANGE INTERRUPT RETURN ADDRESS

;TO CAUSE A HALT IF AN INTERRUPT OCCURS

;A TIMING ERROR SHOULD NOT CAUSE AN INTERRUPT
TEST20: SCOPE
JSR
011246

004000

000002

MOV
MFPS
BIS
MTPS
MFPS
MoV
BIT

BEQ
BR
TINT12: HLT
(MP
CLR
MOV

000232

011246
000200
011246

CONT11
aCRB1
COUNT

MoV
MFPS
BIS
MTPS
MFPS
MOV

BIT

011246

BEQ
MFPS
BIC
MTPS
NOP
MTPS
BR
TINT20: HLT
CMP
MoV

CLR

BIT
BEQ
(LR

%7,INIT
#TINT20,3ADINT
PRIOR
#200,PRIOR
PRIOR
2(ADINT)
#101,aCRS

#4000,aCRS

.~4
PRIOR
#200,PRIOR
PRIOR
2(ADINT)
.+6

(SP)+,(SP)+
#232 ,GADINT

w230

#40000,aCRS
.~
a(RS

;INITIALIZE
;LOAD RETURN POINTER

;SET _INTERRUPT ENABLE AND READ

;WAIT FOR TIMING ERROR TO SET

;CLOCK INTERRUPT IF

IT OCCURRED

;TIMING ERROR CAUSED AN INTERRUPT
sJRESTORE STACK POINTER
;CHANGE INTERRUPT ADDRESS TO CAUSE A

JHALT IF AN INTERRUPT OCCURS
;WAIT FOR CARD DONE

;CLEAR INTERRUPT ENABLE

SEQ 0023

PAGE 15-8

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

000232

010674
003444
011246
000200
011246
000002
000101

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

09:08

—

104000
000411
005013
022626
105713
100402
104000
000403
005714
005301
001347
012710

04-AUG-81

N S T T N T S (o S G S Go S 00 AnA GO S 0o S o S o Og 0O g Co g—Co ———
00 0o 0o 0 P G PR
0o Co 0o 0o P Co PR
Co 0o 0o P
Co 0O PR
Co Co 0o Co R
o GO 0o 00 o
;

003224
003226
003230
003232
003234
0032
003240
003242
003244
003246
003250
003252

MACY11 30A(1052)

N S

1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094

YM-2110A-AA

0 On On O On On 06 An O On 00 0O OB On (o 0o 0o 0o O

07-JuL-81 09:06

nlm)

C(MQ11-k CARD READER TEST

CVCMAA . SRC

cMQ 11=K

CARD READER TEST

CVCMAA., SRC
1139
1140
1141
1142
1143

1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
}}2}

07=-JuL=81 09:06

003470

104400

003472
003476
003502
003506
003514
003520
003524
003530
003534
003540
003542
003544

004737
012710
106737
052737
106437
106760
005037
106437
012713
005001
005201
001376

003546
003552
003554
003556
003560
003562
003564

003570

106460
005013
000403
104000
022626
005013
005037

012710

010674
003556
011246
000200
011246
000002
011246
011246
000100

104400

003576

004737

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180

003606
003612
003620
003624
003630
003634
003642
003646
003652
003654
003656

011246
000200
011246
006002
011246
000200
011246
000103

003670

106737
052737
106437
106760
106737
042737
106437
012713
000001
000776
022626
012710
005037
106437

1182
1183
1184
1185
1186
1187
}}gg

003676
003702
003704
003706
003710
003712
003716

106460
000402
022626
104000
005013
005037
012710

000002

1181

1190
1191
1192
1193
1194

003674

012710

000240

003722

104400

003724
003730

004737
005213

010674

09:08

PAGE 15-9

SEQ 0024

2(ADINT)
aCRS
CONT21

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

MoV

#TOINT ,@ADINT

MFPS
BIS
MTPS
MFPS
MFPS
BIC
MTFS
MOV
WAIT
BR
C(MP
MOV
CLR
MTPS

PRIOR
#200,PRIOR
PRIOR
2(ADINT)
PRIOR
#200,PRIOR
PRIOR
#103,3CRS

MTPS
BR
T2INTA: CMP
HLT
CONT22: CLR
CLR
MOV

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

011246
011246

T2INT:

NOP

=2
(6)+,(6)+
#T2INTA,SADINT
PRIOR
PRIOR

CMQ1

CVCM
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18
18

:DISABLE FURTHER INTERRUPTS

;AN INTERRUPT OCCURRED
:RESTORE STACK
:DISABLE FURTHER INTERRUPTS
*CHANGE INTERRUPT RETURN ADDRESS TO
“CAUSE A HALT IF AN INTERR''PT OCCURS

TEST22: SCOPE
:CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE LEVEL
JSR
%7, INIT
;INITIALIZE CSR TO ZERO

010674

000232
000232

04-AUG-81

TEST21: SCOPE
:TEST FOR NO INTERRUPT OCCURING WITH INTERRUPT ENABLE SET AND REST LLEARED
JSR
%7, INIT
:INITIALIZE CSR TO ZERO
MOV
#TNINT,3ADINT
:SETUP RETURN ADDRESS
MFPS
PRIOR
BIS
#200,PRIOR
MTPS
PRIOR
MFPS
2(ADINT)
CLR
PRIOR
MTPS
PRIOR
MOV
#100,aCRS
:ENABLE INTERRUPTS
CLR
COUNT
:TNITIALIZE COUNTER
INC
COUNT
SWAIT AWMILE
BNE
.~2

MOV

003656

003704
011246
011246

MACY11 30A(1052)

MTPS
CLR
BR
TNINT: HLT
CMP
CLR
CONT21: CLR

000232
000232

003574

003602

011246

000002

1163
1164
1165

1166

YM-Z110A<AA

1€
18
18

:SETUP RETURN ADDRESS

1€

18
1€
18
18
18
1§
1§
1§
1%
1§
1¢
1§
1§
1§

:SET INTERRUPT ENABLE AND EJECT A CARD
;WAIT FOR INTERRUPT
;SIT IF TRACE BIT IS SET
:RESTORE STACK POINTER
:CHANGE RETRUN ADDRESS

SWAIT

1§

:RESTORE STACK
STHE INTERRUPT OCCURRED AT 2 LEVELS
*DISABLE INTERRUPTS
:CHANGE INTERRUPT RETURN ADDRESS TO
SCAUSE A HALT IF AN INTERRUPT OCCURS

1§
1§
1%
19
14
1¢
}g

TEST23: SCOPE
;ALL MODES OF ADDRESSING CRB1 OR CRB2 (DATO,DATOB,DATI) SHOULD CLEAR
“COLUMN READY
JSR
X7, INIT
sINITIALIZE
INC
aCRs
*START READING A CARD

1§
1¢
1§
1§
15

aCRS
aaisz
#232,3ADINT

;

CMQ11-K CARD READER TEST
CVCMAA ., SRC
07-JUL=-81 09:06
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
}gzg

003732
003734
003736
003740
003742
003744
003746
003750
003752
003754
003756
003760
003762
003764
003766
003770
003772
003776
004000
004002
004004
004006
004010
004012
004014
004016
004020
004022
004024
004026
004030
004034
004036
004040
004042
004044
004046
004050
004054
004056
004060
004062
004064
004066
004070
004074
004100
004102
004104
004106

105713
100376
005714
105713
100002
104000
000467
105713
100376
105714
105713
100002
104000
000460
105713
100376
105764
105713
100002
104000
000450
105713
100376
005714
105713
100002
104000
000441
105713
100376
005777
105713
100002
104000
000431
105713
100376
105777
105713
100002
104000
000421
105713
100376
013702
105762
105713
100002
104000
000407

1246
1247
1248
1249
1250

004110
004112
004114
004120
004122

105713
100376
005777
105713
100001

000001

174776

174756

001032
000007

174712

YM=2110A<AA

MACY11 30A(1052)

TSTB
BPL
TST
TSTB
BPL
HLT
BR
CNT23A: TSTB
BPL
TSTB
TSTB
BPL
HLT
BR
CNT238: TSTB
BPL
TSTB
TSTB
BPL
HLT
BR
CNT23C: TSTB
BPL
TST
TSTB
BPL
HLT
BR
CNT23D: TSTB
BPL
ST
TSTB
BPL
HLT
BR
CNT23E: TSTB
BPL
TSTB
TSTB
BPL
HLT
BR
(NT23F: TSTB
BPL
MOV
1STB
TSTB
BPL
HLT
R
(NT23G: TSTB
8PL
ST
TSTB
BPL

aCRS
=2
aCRB1
@CRS
CNT23A

PAGE 15-10

cMa1
CVCM

SEQ 0025

;:DATO TO CRB1
;CHECK COLUMN READY
;BRANCH IF CLEARED
:DATO TO CRB1 DIDN'T CLEAR READY
:GO TO NEXT TEST
:WAIT FOR COLUMN READY
:DATOB TO LOW BYTE OF CRB1
:CHECK COLUMN READY
:BRANCH IF CLEARED
:DATOB TO CRBT LOW BYTE DIDN'T CLEAR READY
:GO TO NEXT TEST
:WAIT FOR COLUMN READY

TEST24
aCRS
.
1(CRB1)
aCRS
CNT23C

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

TEST24
aCRS
=2
aCRB1
aCRS
CNT23D

:DATI TO CRB1
;CHECX COLUMN READY
:BRANCH IF CLEARED
:DATI TO CRB1 DIDN'T CLEAR READY
:GO TO NEXT TEST
:WAIT FOR COLUMN READY

TEST24
@CRS
=2
aCRB2
@CRS
CNT23E

:DATO TO CRB2
;CHECK COLUMN READY
:BRANCH IF CLEARED
;DATO TO CRB2 DIDN'T CLEAR READY
:GO TO NEXT TEST
:WAIT FOR COLUMN READY

TEST24
(RS
=2
@CRB2
aCRS
CNT23F

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

TEST24
@(CRS
=2
CRB2 ,R2
. 1(R2)
aCRS
CNT236

:LOAD POINTER
:DATOB TO HIGH BYTE OF CRB2
;CHECK COLUMN READY
*BRANCH IF CLEARED
*DATOB TO CRB2 HIGH BYTE DIDN'T CLEAR READY
;GO TO NEXT TEST

TEST24
@CRS
g
aCRB2
aCRS
TEST24

09:08

;WAIT FOR COLUMN READY

TEST24
aCRS
=2
aCRB1
@CRS
CNT23B

‘

04-AUG=-81

:WAIT FOR COLUMN READY

:DATI TO (RB2
:CHECK COLUMN READY
“BRANCH IF CLEARED

;
}
|

|
.

19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
19
1§
15
1§
19
19
1§
19
16
15
1§
19
15
16
19
1§
}g
19
1§
1§
19
19

—

(MQ11=K CARD READER TEST
07=JuL~81 09:06
CVCMAA, SRC

}ggg 004124

104000

004126

104400

004130
004134
004136
004140
004142
004146
004150
004152
004154
004156
004162
004164
004170
004172
004176
004200
004204
004206
004210
004212
004214
004216
004220
004224
004226
004232
004234

004737
005213
105713
100376
052713
105713
100402
104000
000421
032713
001013
032713
001772
032713
001003
004737
000415
104000
000413
105713
100001
104000
032713
001775
032713
001402
004737

1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
}gg§

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294

004240
004242
004246
004254
004256
004262
004266
004272

104400
005237
032777
001442
004737
005137
012706
000137

YM=Z110A=AA

HLT
010674
000002

004000
040400
040000
011022

040400
;
000400

011022

006412
000200

002156

010726
001054
001000
001264

1295

1539

04=-AUG-81

09:08 PAGE 15-11

:DATI TO CRB2 DIDN'T CLEAR READY

004276
004302
004306
004314
004322
004326
004334
004342

004737
075037
012737
012737
012705
012737
032777
001437

011626
006420
015310
016006
015310
013555
000004

006414
006416
006402
002070

SEQ 0026

cMa1 ,
CVEM)

TEST24: SCOPE
:SETTING EJECT AFTER A COLUMN READY WITHOUT CLEARING THE COLUMN READY
*SHOULD SET TIMING ERROR (WHICH IN TURN SHOULD CLEAR COLUMM READY)
JSR
X7, INIT
SINITIALIZE
:START READING A CARD
aCRS
INC
TSTB
aCRS
*CHECK COLUMN READY = WAIT
BPL
=2
BIS
#2,aCRS
:SET EJECT
TSTB
aCRS
:CHECK COLUMN READY
BM]
CNT24A
:BRANCH IF STILL SET
HLT
SSETTING EJECT CLEARED COLUMN READY
BR
END24
*BRANCH TO WAIT FOR DONE AFTER ERROR
CNT24A: BIT
#4000,aCRS
:CHECK TIMING ERROR
BNE
TIM24
:BRANCH IF SET
BIT
#40400,aCRS
:CHECK CARD DONE AND OF F=LINE
BEQ
CNT24A
:LOOP IF NONE SET
BIT
#40000,3CRS
:CARD DONE SET?
BNE
(NT24B
:YES = CRANCH TO ERROR PRINTOUT
JSR
%7.CKBIT8
:NO = BIT 8 WAS SET SO OUTPUT MESSAGE
BR
ENDCK
:BRANCH AFTER COMING BACK ON-LINE
CNT24B: HLT
:CARD DONE SET BUT TIMING ERROR DIDN'T
BR
ENDCK
:BRANCH TO NEXT SECTION
TIM24: TSTB
aCRS
:CHECK COLUMN READY
BPL
YA
:BRANCH IF NOT SET
HLT
:TIMING ERROR DIDN'T CLEAR READY
END24: BIT
#40400,aCRS
:WAIT FOR CARD DONE OR OF F-LINE
BEQ
END24
BIT
#400,3CRS
:CHECK OFF LINE
REQ
ENDCK
:BRANCH IF NOT SET
JSR
%7.CKBIT8
:OUTPUT ERROR MESSAGE

19
19
19
19
19
19
19
19
9
19
19
19
19
19
19
19
19
19
19
20
20
20/
20
20
20
20
20
20
20
58

:CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL
:OTHERWISE GO INTO THE DATA TEST
ENDCK: SCOPE
INC
DECCYC
:# OF TIMES THROUGH DECK
BIT
#200,aSR
BEQ
DATST
JSR
%7 ,BELL
COM
TRFLG
:TOGGLE TRACE FLAG
MOV
#STACK,SP
SINITIALIZE STACK
JMP
RESTRT

20
20
20
20
20
20
20

:DATA RELIABILITY TEST FOR CMQ11-K

]

1298
1299
1300
1301
1302
1303
1306
1305
1306

MACY11 30A(1052)

;CHECK SR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS
DATMK: JSR
PC,CKSWR
;
CLR
CDCNT
:CLEAR SPECAIL CARD COUNTER
MOV
#MRKCD ,TSTART
-LOAD PARAMETERS
MOV
#MRKEND , TEND
MOV
#MRKCD ,RS
MOV
#MSG20,DECK
81T
#4,a5R
:SR2=1 FOR 40 COL CRD
BEQ
DATST?

20
20
20
20
2

58
20
g0
20
20
20
20
20
20
20

012737
012737

WW W WWWN W WN W W NN NN NN NN
&wwwuuwu
PORINININININORI
N = b s = b b s s s
SRUKZES ONO NS WN OO0 YI N W —=O 3

(MQ11=k CARD READER TEST
07-JuL=81 09:06
CVCMAA, SRC

e e

011626
006410
000001

s B
D e i

001242

000040
000000

D o

MOV
MOV
BR

#MKND4O, TEND
#MSG23,DECK
DATST1

CMP
BNE

#1,DECCYC
18

006402

DATST:

006412

1%:

006420

DATST1: CLR
CLR
DATST2: (LR

006414
006416

NONON VWSS

2%:

006444
1%:

006444
006402

2%:

001652

ALP1:

006414
006416

006444

004624

006444
006402

004676

001546

000360

000002

010674

“SET SWITCH RUN TEST

2%
#MSG22,R2
x7,T0UT

DATST2
CDCNT
SWTHR
ERFLG

ALP1

TST

FLAG

BPL
Mov
MoV
BR
MOV

MOV
BR

#MSG15,DECK
CONTD
#10,aSR
CONTD
#ALPCD, TSTART

BIT

BNE
MOV
MOV
TST

1%:

2%:

CONTD:

#BINCD, TABPT

#ALPEND
, TEND
FLAG

BPL
MOV
MOV
BR
MOV

18
#ALPCD2
RS
#ALPCDZ2,TABPT
2%
#ALPCD
RS

MOV
MOV

#340,-(SP)
#DCNT1,-(SP)

BPL
BIT
BNE
MOV

PSSET1
#10000,asR
PSSET]
#360,2(SP)

JSR

%7,INITY

MOV
MoV

PSSET1: RTI

DCNT1:

#BINCD, TSTART
#BINEND, TEND

1%
#BINCD2
RS
#BINCDZ2, TABPT
2%
#BINCD
RS

TST

010000

FLAG

BEQ

MOV

PAGE 15-12

:GET SOFTWARE SWITCH
“FLAG INDICATES WETHER TEST CAN BE RUN
:gasNENLv ONE PASS OF TEST BEEN RUN

#0
CLR
CNTCRD=.-2
#20,asR
DATST3: BIT
MOV
Mov

09:08

PC,CKSWR
FLAG

BEGIN
JMP
#40,CDCNT
MOV
INC
#0
SWTHR=,
=2

014610
015306
006410

N = -

BR
MoV
JSR

HALT

001742

015010

JSR
CLR

COM

000020

33333433433

oo nwn

33t ONONON&OOOJ\N

WWWNINY
= <

004506

oo O

S S S IS S
oo&m iviviviviviviviv

N
N=OVoO~N VSR WN=OVooN VS WN 2OV

006416

006420
004436
001060
000000

e lh D i i

WWWW
WWW

e d h D i i
e
o
d h e e o

m———

MACY11 30A(1052)

006410

013576
011466

WWWW

015546
013634

B 3
04-AUG-81

YM=2110A=AA

#ALPCD
, TABPT
#MSG14 ,DECK
TRFLG

SEQ 0027

;REPORT ILLEGAL PROCEDURE (MORE THAN 1 PASS)

;PRINT THE MESSAGE

JMORE THAN 1 TIME THROUGH DELK
;RESTART

;SETUP CARD COUNT TO ENTER TABLE CORRESPONDING TC NEXT C
;DEFINE SWTHR

;SKIP NEXT INSTRUCTION

;SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING
;CLEAR SWTHR
;FLAG SET PREVENTS PRINTING OUT ERROR HEADING
;DEFINE CNTCRD

;CHECK BIT 4 OF SR FOR TYPE OF DECK

;BRANCH IF NOT SETTM 0 LOAD ALPHANUMERIC POINTERS
;BIT 4 SET LOAD BINARY POINTERS
;CAN TEST BE RUN?

;LOAD INDEXED VALUE

;BIT 2 SET, LOAD BINARY TABLE POINTERS
;LOAD CURRENT POINTER(TO VIRTUAL BEG.)OF TABLE,TEND
;BRANCH AROUND ALPHANUMERIC POINTERS
;TEST FOR MARK SENSE

;BIT 3 SET LOAD ALPHA TABLE PO.INTERS
; INDEXED OR NOT
;BR=NO
;LOAD THE INDEXED STARTING POINT

;LCAD ALPHANUMERIC TABLE POINTERS
;POINTER TO VIRTUAL BEGIN OF DATA TABLE
;PUSH STATUS ON STACK
;PUSH PC ON STACK
;CHECK FLAG
;IF IT IS POSITIVE, CLEAR T BIT
;TRACE TRAPPING INHIBITED?
;BRANCH IF YES

;SET T BIT ON STACK

;INITIALIZE CARD READER STATUS REGISTER

1363

1364

1365

1366
1367
1368

1369
1370

011246
000200
011246

000340
006302

1372

1375
1376
1377
1378
1379

032713
001402
000137

1380
1381
1382
1383
1384
1385
1386
1387
1388
1380
1390
1391
1392
1393
1394
1395
1396

004762
004764
004770
004772
004774
005000
005004
005010
005012
005014
005020
005026
005032
005034
005040
005046
005052

100002
000137
105713
100402
000137
005237
011437
105713
100012
106737
052737
106437
104000
000137
017737
012701
005301

1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414

005056
005062
005066
005072
005074
005102
005106
005110
005116
005122
005124
005132
005134
005142
005144
005152
005154

011437
005037
023715
001142
012737
023725
001134
012737
023725
001126
023727
003010
032777
001004
032777
001005
020537

006436
006442
006434

1416
1417
1418

005162
005166
005174

013705
023737
001015

006414
006426

004760

005713

1397 005054 001376

———

1415

011246

000002

0057160

002402

#340,2(ADINT)
%7 ,NXCRD

PRIOR
#200,PRIOR
PRIOR

#100,3CRS

09:08

PAGE 15-13

005716
006422
006434
011246

006440

BPL
JMP
TSTB
1%:
BM]
JMP
INC
MOV
TSTB
BPL
MFPS
BIS
MTPS
HLT
JMP
SCONT1: MOV
MOV
DEC

BNE

000002
006436

006442

000004
006440

006442

006420

000036

000004

001270

000010

001260

006416

18:
006422

2$%:

1%
ERSET

aCRS
.+6
NOTCOL
CLCNT
aCRB1,DAT1
(RS
SCONT1
PRIOR
#200,PRIOR
PRIOR

LASTCK
aCRB2,DATENC
#10, COUNT
COUNT

:SETUP RETURN POINTER
;STORE CURRENT STATUS
*ADJUST POINTER AND START READING

“ENABLE INTERRUPTS

*WAIT FOR INTERRUPTS

‘SKIP

:CHECK COLUMN READY
*BRANCH IF SET
“JUMP IF NOT SET
‘KEEP TRACK OF COLUMN NUMBER
*STORE DATA OF FIRST READ
*MAKE SURE COLUMN READY CLEARED
*BRANCH IF IT DID

:READING DATA DIDN'T CLEAR COLUMN READY
GO TO NEXT CARD AFTER ERROR PRINTOUT
:STORE ENCODED DATA
‘WAIT AWHILE

MOV
CLR
CMP
BNE
MOV
CMP
BNE
MOV
CMP
BNE
CMP
BGT
BIT
BNE
BIT
BNE
CMP

aCRB1,DAT2
PTOFF
DAT1,aRS
FAIL
#2,PTOFF
DAT2, (RS)+
FAIL
#4 PTOFF
DATENC,(RS)+
FAIL
CDCNT, #30.
1%
#4,3SR
1%
#10,aSR
28
RS, TEND

:STORE DATA OF SECOND READ
*CLEAR POINTER OFFSET
“CHECK FIRST DATA READ
*PRINTOUT IF WRONG
“SET POINTER OFFSET
“CHECK SECOND READING OF SAME DATA
*BRANCH IF WRONG
“SET POINTER OFFSET
:CHECK ENCODED DATA
*BRANCH IF WRONG
*OVER 30 CARDS?
‘BR=YES CHECK FOR END OF TABLE
240 cOL?
YES
‘M.S.?
& LESS THAN 30 CARDS
“BR =YES M.S. & LESS THAN 30 CARDS
NO ,@ END OF TABLE?

MOV
CMP
BNE

TSTART,RS
COLSIZ.CLCNT
TAGB

*RESET POINTERS
:ALL COLUNMS DONE
“NO ,JUST RETURN

BLT

SEQ 0028

AND START READING

- INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TEST
:TEST OFF=LINE
#400,3CRS
BIT
SRVC:
*BRANCH IF NOT SET
. +6
BEQ
“IF SET, GO CHECK WHY
OFFSET
JMP
SPECIAL CONDITION (BIT 15)
*CHECK
aCRS
ST

005314

006006
173766
000010

MOV
JSR

WAIT

007014

011246
000200
011246

#SRVC,AADINT

BIS

000400

004746
004752
004754

MOV

MFPS
BIC
MTPS

000100

137

04=-AUG-81

sSET UP INTERRUPT SERVICING,

004746

004706

MACY11 30A(1052)

*BR= NO

s
SL L
L
L LA
e e e e e e e e e

07=JuL=81 09:06

CVCMAA.SRC

YM=Z110A=AA

LN
L L LL LN LN LN LS
N NNe
N LN LN
Se
LN LN
LN LN )
T N TN
LN LN LN TN LN LN L N L
A A S
A A
e
ek e
e e e e e D e e d e

CMQ11-k CARD READER TEST

sADJUST POINTER TO DATA TABLE SO THAT 1ST COLUMN ON
sNEXT CARD IS 2ND COLUMN OF PREVIOUS.

saxxnxADJUSTwewe« THIS IS AN END OF CARD ,TABLE ADJUSTMENT

000004
006444

006444
006416

006414
006414

006444

006444
006424
006446
006302

ADD

CMP
BLE
MOV

MOV

TAGE:
TAGZ:
TAGF :

NOP
MOV
CMP

BNE
JMP
JSR
RTI

#4,TABPT
TABPT , TEND
TACE
TS|
. TABPT
INE
RS

TABPT ,R5

;UPDATE BY 2 WORDS/COLUMN
JHAVE WE EXCEED THE TABLE?
sIF NOT GET NEXT CARD
sIF YES SET POINTER BACK>BEGIN
;RELOAD DATA TABLE POINTER

;PICK NEXT CARD
;PUT NEW POINTER IN RS

?Sg?ll.CDCNT

JREACHED ALL CARDS YET?

ALLDON

;YES TAKE CARE OF

%7 ,NXCRD

;GET NEXT CARD
;GO AND AWAIT INT.FROM NEXT CARD

005372

023737
001002
000137
004737
004737
000002

006420

BIS

MTPS
HLT

ER1:

006446
011022
006302

RTI

#200,PRIOR

PRIOR

#400,aCRS

;SPECIAL CONDITION WAS SET AND OFF LINE WASN'T
;OFF=LINE SET NOW?

.+6
LASTCK
DEKSIZ,CDCNT
.+6

;YES=SKIP OVER
;sNO-GO START NEXT CARD
sCHECK FOR LAST CARD
;IF NOT,PRINT OUT MESSAGE

%7.CKBIT8
%7 .NXCRD

;OUTPUT MESSAGE ,WAIT FOR ON-LINE
;START NEXT CARD

ALLDON

:DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT

011246

FAIL:

000770

MFPS

BIS

MTPS
CMP

006426

000002

020000

BIT
BNE
JMP
CMP
BNE
JMP
JSR
JSR

PC,CKSWR

PRIOR

1%:

BEQ
BIS
TST
BIT
BNE

PRIOR

#200,PRIOR
PRIOR

CLCNT,COLSIZ
1%
#2,aCRS
a(RB1

022000.BSR
=

;;CHECK FOR LAST (COL.
;.D0 NOT EJECT IF CRD DONE IS SET
;SET EJECT TO PREVENT TIMING ERROR
;MAKE CERTAIN COLUMN READY IS CLEAR

;(K SW13 FOR INHIBIT PRINTOUT

011246

011246
000200
011246
006422

001002

MFPS

ERSET:JSR

106737
052737
106437
104000
032713
001002
000137

004737

A _A

;SPECIAL CONDITION BIT 15 WAS SET BUT BIT 8 WASN'T WHEN INTERRUPT SERVICE ROUTINE

;WAS ENTERRED

000002

006420

TAGD :

BBl ol

;IF LESS THAN AND NOT = TO DONT ADJ

BBl

TAGA

Dol

TAGC:

BR
RTI

JNO KEEP ON TESTING
;1F NOT TRY
;LOAD DATA TABLE POINTER
:FEED ANOTHER CARD

TAGB:

MOV

;MARK SENSE TEST?+ADJ. ON FAILURE

TAGA:

006414

BNE
BIT
BEQ
BR

001214

CARD

000010

;sBR=END OF
;40 CoL?
sYES

032777
001005
032777
001406
000404
015705
000421
000002
000773

FADJ
#4,aSR
TAGA
#10,aSR
TAGD
TAGC
TSTART,RS
TAGZ

A A AN NI A AN A NI AN NI AN NN AN

BEQ
BIT

FADJ:

001224

000004

SEQ 0029

001400

PAGE 15-14

005176

09:08

POAINLALAIAIAIALA AN

1419
1420

D 3
04-AUG=-81

MACY11 30A(1052)

AN A A AN N AN NI AL AN

YM=2110A-AA

CMQ11=k CARD READER TEST
07=JuL-81 09:06
CVCMAA, SRC

| S——

1490
1491
}zgg
1494
1495
1496
1497

1498
1499
1500
1501
1502
1503
1506

1505

1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516

1517

1518
1519

1520

1521
1522
1523
1524
}gsg
1527
1528
1529
1530

005444
005450
005454
005456
005460
005464
005466
005472
005474
005500
5504
005512
005514
005520
005524

004737
005777
100001
000000
032713
001007
032713
001772
005237
000137
023737
001002
000137
004737
000137

005536
000756

005530
005534

004737
000000

006302

005536
005542
005544
005550
005554
005560
005564
005570
005574
005600
005604
005610
005614
005620
005624

005737
001006
005237
012702
004737
013702
004737
004737
013702
004737
004737
013702
004737
004737
163705

001060

005630
005632
005636
005642
005646
005652

012502
004737
004737
013702
004737
004737

011250
011070
006434
011250
011070

MoV
JSR
JSR
MoV
JSR
JSR

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

005662

737
004737

011250
011070

JSR
JSR

%7.PROCT
%7 ,SPACE

00567¢
005700
005704
005710
005714

(094737
(w4737
013792
004737
000207

011250
011070
006440
011250

005716
005722
005724

032713
001002
000137

040000

005656

005672

013702

011502

000400

FTEST:

040000
004460
006006
006424
006446
011022
005200

001060
013252
011466
006402
011466
011070
006420
016010
011070
006422
016010
011070
006442

006436

006336

006420

FCNT:

JSR
TST
BPL
HALT
BIT
BNE
BIT
BEQ
INC
JMP
CMP
BNE
JMP
JSR
JMP
JSR
HALT

04-AUG-81

X7 ,FPRINT
@SR
L
#400,aCRS
FONT
#40000, aCRS
FTEST
CNTCRD
LASTCK
DEKSIZ,CDCNT
.+6
ALLDON
%7,CKBIT8
FADJ
%7 ,NXCRD

MoV

JSR
JSR
MOV
JSR
RTS

PAGE 15-15

sCHECK FOR HALT ON ERROR
;BRANCH IF HALT ON ERROR NOT SET
JHALT ON ERROR SET

;CHECK FOR CARD DONE
;COUNT CARD
sINHIBIT PRINTOUT AFTER CARD DONE SET

;WAIT FOR OFF=LINE TO CLEAR
;MAKE PROPER ADJUSTMENT AND GET
:NEXT CARD

;SOMETHING WRONG R(B

;DATA ERROR PRINTOUT ROUTINE
FPRINT: TST
ERFLG
BNE
NOHD
INC
ERFLG
MOV
#MSG13,R2
JSR
%7,T0UT
NOHD:
MOV
DECK,R2
JSR
%7.T0UT
JSR
%7,SPACE
MOV
(DCNT ,R2
JSR
%7.DECPR
JSR
%7,SPACE
MoV
CLCNT ,R2
JSR
%7.DECPR
JSR
%7,SPACE
suB
PTOFF ,RS

MoV

09:08

;TEST FLAG FOR PREVIOUS PRINTOUT
;IF SET,
DON'T OUTPUT HEADING
;SET FLAG
;OUTPUT HEADING FOR DATA ERROR PRINTOUT
;OUTPUT TYPE OF DECK
;OUTPUT CARD NUMBER WHERE ERROR OCCURRED
;OUTPUT COLUMN NUMBER WHERE ERROR OCCURRED

;SUBTRACT OFFSET FROM POINTER TO POINT TO
;ADDRESS OF DESIRED PATTERN
;OUTPUT CORRECT DATA PATTERN (NOT ENCODED)
;OUTPUT DATA READ ON FIRST READING OF BUFFER

DATZ2,R2

;OUTPUT DATA READ ONE MILLISECOND LATER

aR5,R?

;OUTPUT CORRECT DATA PATTERN (ENCODED FORM)

%7 ,PROCT
%7,SPACE
DATENC ,R2
27.PROCT
37

;OUTPUT DATA READ

(ENCODED)

; INTERRUPT NOT DUE TO ERROR OR COLUMN READY
NCTCOL: BIT
#40000,aCRS
;CHECK FOR CARD DONE
BNE
1%
;BRANCH IF
SET
JMP
NOTCD
:

SEQ 0030
NN N NN NN NN N

MACY11 30A(1052)

naOPOROINO
OO NN NN PO

1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489

YM=Z110A<AA

NNV

(MQ11<k CARD READER TEST
CVCMAA, SRC
07-JuL-81 09:06

ettt

SSENR o3RS

001416

000010

000462

004460
004460

006424

011246

006424

006420

[

000400

005762

1%:

011246

HLT

BIT

BEQ
INC
CMP

MFPS

BIS

MTPS

HLT
LASTCK: CMP
BNE
BIT
BEQ
JMP
1%:
JMP

LASTWT: MFPS

1%:

gO\h\hJ\bb
NONSSONNO r\NNNN—'—'-‘
nNOVSOONNVO

SE8SEER ERIEERE

006074

#10,aSR

006446
LASTCD:

:SKIP ERROR HALT [F 40 OR 80 COLUMNS WERE READ

JLESS THAN 40 OR 80 COLUMNS WERE READ

sCHECK SR3

;SKIP IF OK

#200,PRIOR
PRIOR

DEKSIZ,CDCNT
1%
#400,aCRS
=4
OFFSET

FADJ

PRIOR
PRIOR

1%
NUMCRD ,CNTCRD
18
#0

DEC
BNE
DEC
BNE
DEC
BNE
DEC
BNE

LACNT
.~4
LACNT
=4
LACNT
=4
LACNT
=4

BEQ
JMP

.46
ALLDON

CMP

JSR

BNE

JMP

006172
011544
011702

JCHECK COLUMN COUNT

LASTCK

PRIOR

:MORE THAN 3 DATA CARDS READ
;CHCCK FOR LAST CARD
;SKIF
:CHECK FOR OFFLINE
JWAIT
;DONE
:ADJUST POINIER AND PROCEED

;CHECK PASS

:SKIP 'F PASS 1
;CORRCCT NUMBER OF CARDS?
:SKIP IF 0K

:NOT ENOUGH DATA CARDS READ

JSR
JSR

#400,aCRS

(SP)+,{(SP)+

%7 ,BELL

lkb,iSR
.+6

DECKCK

PC,CRLF
PC,GTSWR

;RESTORE STACK

:RING BELL TO SIGNIFY '‘PASS COMPLETE''

;CHECK SR FOR CONTINUATION TO ANOTHER DECK

:BRANCH TO HALT IF SWS5 SET

;CONTINUE TO ANOTHER DECK

;WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SWé6 FOR TYPE
001054
000100

006206
006212

001000
001264

006172
006176

Mre——————

;OF TESTING TO BE PERFORMED

000226

DECKCK:

SEQ 0031

LACNT=.=2

BIT

000256

PAGE 15-16

:SKIP IF CLEAR
;COUNT CARD
;ALL CARDS?

SWTHR

HLT
CLR

09:08

LASTCK
CNTCRD
CNTCRD,DEKSIZ

TST

BIT

000400

010726
000040

#200,PRIOR

BNE
CMP
BLOS

006074

022626

COLSIZ,CLCNT

BIS

MTPS

006074

032713
001402
000137

04-AUG-81

NUMCRD=,
=

004460

000000

006104

CMP

BEQ

BLOS

011246
000200
011246

007014
005200
011246
000200
011246
004436

EARRAAY SVESA S EEAV S
£

006422

MACY11 30A(1052)

COM
BIT
BEQ

TRFLG
#100,asR
1%

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

JMP

RESTRT

sRERUN COMBINED INSTRUCTION AND DATA TEST

MOV

#STACK,SP

;ADJUST STACK

N RO PO

10400

006426

YM=2110A<AA

Lallallal Ll Lal Ll L AN AN LN L

s >

023737
001401

- ——
—.—.—l.l—‘—J—‘-‘—J—.d-‘—l—‘d—‘—‘—‘—‘-‘—‘—ld—l—l—l—.d—.—‘—.—‘d—l—‘-‘-‘—‘c—.—l—‘—l-fl PR
Vi ViV Vi Vi
SN
B
00000000
NN NNNNNNNNY o
Qo Co
[+ N To AV, P o W =O VO ~NONW
oW
WN<=O
O NN
WN=OO

(]

(MQ11=k CARD READER TEST
07=JuL=-81 09:06

F-3

LSLSUNLST
NN N NLST NSNS TN

e ———————————————————————

006426
006430

000010

000142

004276
004442

000240
011626
001000

BIT

#10,asSR

;CHECK FOR MARK SENSE TEST

2%:
NXCRD:

NOP

JSR
BIT
BNE
BIC

185:

INC
INC
CLR
RTS

006420
006422

ENTRY POINT

sALL CARDS ARE NOT IDENTICAL
;ADJUSTMENT 1S DONE IN ISR3T
;GET SOFTWARE SWITCH

JWAIT FOR
;BUSY TQ GO AWAY
;CLEAR EJECT IF SET

;READ ANOTHER CARD
JKEEP TRACK OF CARD NUMBER
JINITIALIZE COLUMN COUNT
;; RETURN

JSR

PC,CKSWR

BIS

#200,PRIOR

BIT
BNE

#2000,aCRS
NOTCD1

MFPS

011246

MTPS

NOTCD1:

CNTER1:

FLAG:
DECCYC:
TSTART:
:
TEND

HLT
JMP
HLT

DATENC

:
PTOFF
TABPT:

PRIOR

LASTCK

sTEST ON-LINE TRANSITION BIT
;BRANCH IF SET

;NO BITS SET TO CAUSE AN INTERRUPT
;START NEXT CARD
;ON=-LINE TRANSITICN CAUSED AN INTERRUPT

JMP

LASTCK

0
0
0
0
0
0
0
0
8 0.
8 o.

;LOOP (TIME) COUNTER

CDCNT:
CLCNT:
DEKSIZ :
COLSIZ:
79
COLM1:
1 77570
SR:
DAT1:
0

DAT2:

PRIOR

9
0

A U U

NOTCD:

DECK:
CNTER:

000000

sNOT THERE
;GO TO M.S.

U U

011626
011246
000200

006006

006444

PC,CKSWR
#1000,aCRS
1%
#2,3(RS
aCRS
CDCNT
CLCNT

;

;INTERRUPT NOT CAUSED BY ERROR, COLUMN READY, OR CARD DONE

006006

1641

2%
DATMK
DATST1

FOR 40 COL

NN NN N LN L

wvi

WO NONV
S WY

il and

ol
i

il
)

ol ai

b and
b
-

i anh wlh

ooooorOrOMONOM

004737

#39.,.C0LM

JMP
JMP

000002

000207

ADD

BEQ

;SR2=1

;START NEXT CARD

;POINTER TO LITERAL "'ALPHA'' OR "BINARY''

Ll
D
L
ALNN

004737

;g.iSR

#40.,C0LS1Z

CvCM

;NO TABLE INDEXING NEEDED
sSETUP FOR 40 OR 80
:

BIT
BNE

ADD

3s:

FLAG
#40.,C0LS12
#39.,C0LM1

SEQ 0032

N N A N N N N N N NN NN NN N N NN NN NN N NN w~

000050
000047

CLR
MOV
MOV

1%:

PAGE 15=17

AL NN NN AL AL N AN NN AN AL NN AL U AL AL NN NN A NN A N NI N NN AN AN AN NN AN NN PR PO NI AU RS

006426
006430
000166

09:08

;INDICATES DECK MUST BE INDEXED @START
;# OF PASSES THROUGH DECK DONE
;STARTING ADDRESS OF DATA TABLE
;END ADDRESS OF DATA TABLE
;NUMBER OF CARD BEING READ
;NUMBER OF COLUMN BEING CHECKED

.
;DATA ON FIRST READ FROM (CRB1

;DATA ON SECOND READ OF CRB1
;DATA READ FROM CRB?

;OFFSET TO POINTER FOR DATA PRINTOUT
;CURRENT TABLE STARTING POINT

006410
000050
000047
000004

006216

006222
006230

04-AUG-81

1587

1588
1589

MACY11 30A(1052)

YM=Z110A<AA

[

CMQ11<k CARD READER TEST
07=JuL-81 09:06
CVIMAA, SRC

R RR R

(MQ11<k CARD READER TEST

CVCMAA ., SRC

07-JuL=81 09:06

1643
1644
1645

006446
006452

oo«7§7
004737

1647
1648
1649
1650
1651
1652

006464
006466
006474
006476
006502

001412
032777
001004
004737
004737

1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1087
1688
1689
1690
1691

006512
006516
006520
006522

032713
001775
005013
032713

006526
006530
006532

001401
104000
012737
012737
005337
001404
032713
001772
000404
005337
001363
104000
106737
052737
106437
106760
105213
005713
100402
104000
000417
012710
005037
106437
012713
000240
106460
005013

1693
1696

006672
006676

1646 006456

1653

1692

1695
1696
1697
1698

006506

006540
006546

006552
006554
006560
006562
006564
006570
006572
006574
006600
006606
006612
006616
006620
006622
006624
006626
006630
006634
006640
006644
006650
006652
006656
006660
006662
006664

006666

006702
006706
006714
006720

032777

000137

104000
000401
022626

042713

012710
112713

106737
042737
106437
032713

011626
010726

TET R
TRRIRIRE,y

YM<2110A=AA

000040

177746

000100

177736

BEQ
BIT
BNE
JSR
JSR

ALCNT:

156377

000020

004000
006404

006406

006404

118%:
1%:

020000
006406
011246
000200
011246
000002

12%:

011246

006664
011246
011246
000101

2% :
2%

ALLOK:

000002
SRVC1:

100100

011246
000200
011246
000400

JMP

#40,aSR

ALCNT
#100,aSR
18
PC,CRLF
PC.GTSWR

DECKCK

BEQ
HLT
MOV
MOV
DEC
BEQ
BIT
BEQ
BR
DEC
BNE
HLT
MFPS
BIS
MTPS
MFPS
INCB
TST
BMI
HLT
B8R
MOV
CLR
MTPS
MOV
NOP
MTPS
CLR

L+

HLT
BR
C(MP

MFPS
BIC
MTPS
BIT

#20,CNTERT

#4000, CNTER
CNTER

12%
#20000,aCRS
1$
3$
CNTER1
118

PRIOR
#200,PRIOR
PRIOR
2(ADINT)
aCRS
aCRS
ALLOK

ALWAIT
#SRVC1,3ADINT
PRIOR
PRIOR
#101,aCRS
2(ADINT)
aCRS
R
(SP)+,(SP)+

#100100,aCRS

#SRVC2,aADINT
#100,aCRS
PRIOR
#200,PRIOR
PRIOR
0
#400,aCRS

—

04-AUG-81

#40000,aCRS
=4
aCRS
#156377,8CRS

MOV
MOVB

011246

BIT
BEQ
CLR
BIT

ALWAIT: BIC

006736
000100

MACY11 30A(1052)

BIT

18%:

040000

A——

:ALL CARDS DONE
ALLDON: JSR
PC,CKSWR
JSR
X7 ,BELL

011544
011702

006172

W—

09:08

PAGE 15-18

;RING BELL

:CHECK SR FOR HALT AT END OF DECK
;CONTINUE IF NOT SET
:
:

:
;END OF DECK,SWS SET

:CHECK FOR TYPE OF TESTING
:WAIT FOR CARD DONE

;CLEAR ERROR
:ONLY BITS 8, 9 AND 13 MAY STILL BE SET
:BIT 9 MAY BE SET SINCF CARD MAY NOT
:YET HAVE CLEARED THE READER TO CAUSE
:CARD DONE
:BRANCH IF 0K
:STATUS REGISTER INCORRECT
::LOAD OUTER COUNT
:RUN A LOOP AND WAIT SOME TIME FOR BIT13
:BR=BIT 13 (HOPPER CHECK) FAILED TO SET YET
:TEST BIT 13 SET
:BR=13 NOT SET
;0K GO ON
::LOWER OUTER COUNT
:KEEP CHECKING UNTIL CNTER1=0
:BIT 13 NOT SET

;ATTEMPT TO READ- SHOULD RESET ERROR
;CHECK BIT 15
:BRANCH IF OK
:SETTING READ DIDN'T RESET ERROR
:BRANCH TO WAIT FOR ON-LINE
;LOAD INTERRUPT RETURN ADDRESS
:ENABLE INTERRUPTS, KEEP ERROR SET BY SETTING READ
:CLOCK IN INTERRUPT
:CLEAR INTERRUPT ENABLE AND ERROR
:BIT 15 DIDN'T CAUSE AN INTERRUPT
:RESTORE STACK POINTER

:CLEAR INTERRUPT ENABLE AND ERROR

;CHANGE INTERRUPT RETURN ADDRE
5S
SENABLE INTERRUPTS

;CHECK OFF-LINE BIT

SEQ 0033

- CMQ1

CVCMm

s
b
|

38
23

23
23
23
23
23
23

23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
23
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24
24

24
24

ettt

CMQ11=x CARD READER TEST
CVCMAA . SRC
07-JuiL=81 09:06
1699
1700
1701

.
.
.

1702
1703
1704
1705

|
1706
1707
1708
1709
1710

1711

1712

1713

1714

1715
1716

1717

1718

};58
1721

1722

006724
006726
0067§£

0067
006736
006742
006744

008750
006752
006754
006760
006762

006764

006770
006772

006774

001375
106460
104000

000’ 23
004737
02262
032713

001001
104000
032713
001401
104000

032713

001401

002000

030000

022626

000137

006172

007014

023737

006424

1730
1731

007950
007054

000137
023737

006446
006426

1736

1737
1738
1739
1740
1741
1742

007072

007076

007104
007106
007110
007114
007120
007126

001402

001002
000137
104000

004737

010726

000040

007136

000137

106760

006172
011246
000200
011246
000002

007142

004737

001064

};gg

007152

012737

007162

1751
1752

007160

104400

1743

};2g

1746
1747
1748

1753

1754

007132

007146

007162

007166

004737

005037

004737

006666

011626

011460
010674

#400,aCRS
.+

#30000,aCRS

aCRS

DECKCK

1%:

DEKSIZ,CDCNT
OFFS1

%7.CKBIT8
%7 ,NXCRD

:NO INTERRUPT OCCURRED

:BRANCH AROUND
;RING BELL
:RESTORE STACK POINTER
;CHECK BIT 10

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

:CHECK BITS 12 AND 13

:BRANCH IF NOT SET

:DATO TO CRS

:BIT 12 AND/OR 13 STILL SET IN CRS

:DATO DIDN'T CLEAR ON-LINE BIT
:RESTART

:LAST CARD?

:MARK SENSE ?

JMP
CMP

ALLDON
COLSIZ,CLCNT

:YES
:LAST COLUMN?

JSR

%7,BELL

BNE
JMP
HLT

.+6
ALLDON

BIT

#40,aSR

MFPS

DECKCK
PRIOR
#200,PRIOR
PRIOR
2(ADINT)

BEQ
HALT
JMP
MFPS
BIS
MTPS

OFFS2

MOV

WAS SET

:NO

:NO-SKIP OVER
:YES-GO RUN END OF DECK ROUTINE
:OFF=LINE SET BEFORE LAST COLUMN OF

CLR

LAST CARD

24
;HALT AT END OF

;START NEW DECK

DECK SET

PC,CKSWR

A
INITIALIZE REGISTERS

#TESTA+2 ,RETURN :;SETUP SCOPE LOOP RETURN ADDRESS

;THE CARD READER GOING OFF-LINE SHOULD SET SPECIAL CONDITION (BIT
TESTA:
SCOPE

JSR

ALWAIT

;SETUP FOR ERROR FUNCTION TEST
ERCM11: JSR
x7,SETUP
JSR

(BIT 8)

INTERRUPT

: YES=-BRANCH
:NO,OFF=LINE SET BUT NOT 80TH CARD

#10,3SR

BEQ

cMa1
CVCM,

:RESTORE STACK FROM INITIAL

JMP

011464

:LOOP UNTIL CLEAR

(SP)+,(SP)+

OFFS1:

OFFS2:

SEQ 0034

CMP

BEQ
HLT
JSR
JSR
RTI
BIT

177326

011246

SRVC2A
%7 ,BELL
(SP)+,(SP)+
#2000,aCRS

PAGE 15-19

:WHEN INTERRUPT SERVICE WAS ENTERED, OFF=LINE

006446

032777

001403
000000
000137
106737
052737
106437

006422

=4
2(ADINT)

09:08

:CHECK BIT 10
:BRANCH IF NOT SET

OFFSET: CMP

011022
006302
177364

#2000,aCRS
L+

JMP

006420

04=-AUG=81

BIT
BEQ

HLT

000010

1735

CLR

104000

001406
104000
004737
004737
000002
032777

007062
007064
007070

BEQ

002000

007022
007024
007026
007032
007036
007040

1732
1732
1734

BIT

HLT

007006

007046

BNE
HLT
BIT
BEQ
HLT

000400

1723
1724
1725
1726
1727
1728

1729

1
SRVC2: JSR
CMP
SRVCoA: BIT

104000

005013

MACY11 30A(1052)
BNE
MTPS
WLT

010726

032713
001401

007010

YM=Z110A<AA

000002

006776
007002

007004

] TMAX

27, INIT

:RUN EACH ERROR TEST ONCE ONLY
:INITIALIZE STATUS REGISTER

15)

AND OFF=-LINE

(BIT

|S——

YM=2110A<AA

AW, }

#MSG25 ,R2

LY
JSR
MOV
JSR

#MSG3,R2
PC,TOUT
#MSG2,R2
X7.T0UT

o
AW, o W
Eol
o

JSR

— &~

JSR
JSR
JSR

BIT

[ D

[ Qo Jr P

MOV

JSR

400

b ocd

BNE
HLT
TST
BMI
HLT
MOV
JSR
MOV
JSR
MOV
JSR

)

(olelelelelelslelelele)

b ol

JSR
JSR
JSR
JSR
JSR

004737

MACY11 30A(1052)

J 3
04-AUG-81

09:08

PAGE 15-20

SEQ 0035

=lelelelelelelelelelole]
8
L
L
gy Ny
per )

(MQ11=k CARD READER TEST
CVCMAA, SRC
07=JuL-81

vivivnnss
Sos 8
8OO0
o &~

—_———

%7, Touf

%7.CRLF
%X7,CRLF

X7.CRLF
X7.CRLF
PC.TTSTAL

#400,3CRS
L+

aCRS
.t
#MSG1,R2

x7,TOUT
#MSG24 ,R2
PC,TOUT
#MSG2 ,R2
x7,T0UT

%7,CRLF
%7.CRLF
%7.,CRLF
%7 ,CRLF

;"'PRESS CARD READER 'HALT' AND WAIT FOR THE RESET LIGHT
;TO LIGHT"'
;"'THEN HIT

'CONTINUE'

ON THE CONSOLE"'

;MOVE MESSAGE UP ON TTY

:WAIT FOR TTI

;CHECK BIT 8

*BRANCH IF SET
SOFF=LINE (BIT 8) WASN'T SET
;CHECK BIT 15
;BRANCH IF SET
;BIT 15 WASN'T SET

;"'PRESS CARD READER 'RESET' AND WAIT FOR THE RESET LIGHT

24
24

;70 GO ouT"’

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

24
24

PC,TTSTAL

JWAIT

FOR TTI]

s INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION

004737

;IN THE PDI CARD READER IT SHOULD ALSO SET CARD SUPPLY ERROR

[elelelelelelelelele
e}

104400

TESTB:

SCOPE

JSR

MOV
JSR
MOV
JSR

BIT

#400,aCRS

:CHECK BITS

HLT

BNE

TST

104000

012702

004737
012702
004737
012702

BMI

HLT

RESETB:

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

JSR

032713
001001

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

%7,CRLF
%7,CRLF
%7,CRLF
%7,CRLF

JSR
JSR
JSR
JSR

104000

x7,INIT

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

PC.TTSTAL
+4

aCRS

BIT

#20000,aCRS

?gx

;;S$80$2

MOV

#MSG1,R2

MOV

#MSG24 ,R2

BNE
HLT

JSR

%7,T0UT

:WAIT FOR TTI

*BRANCH IF

SET

SOFF=LINE (BIT 8) WASN'T SET
;CHECK

SPECIAL

:BRANCH IF

SET

CONDITION BIT

;SPECIAL CONDITION NOT

;YES, TEST BIT 13

SET

;CONTINUE IF SET
;CARD SUPPLY ERROR WASN'T SET

;"RESTORE CARDS IN INPUT HOPPER'

:"PRESS CARD READER 'RESET' AND WAIT FOR THF RESET LIGHT

'P_

104400

W
o

&~ W

007542

004737
012702
004737

YM=Z110A-AA

[=lelelelelelele

MACY11 30A(1052)

X7.CRLF
X7.CRLF
X7.CRLF
X7.CRLF

:MOVE MESSAGE UP ON TTY

SCOPE
JSR

JSR
JSR
JSR
JSR
JSR
JSR
BIT
BNE
HLT

HLT
BIT
BNE
HLT

MOV

PC.TTSTAL

:WAIT FOR TTI

X7, INIT
;;s$6fi§2

-INITIALIZE STATUS REGISTER
““RAISE THE OUTPUT STACK HEIGHT ARM

;gs$50§2

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

X7.CRLF
%7.CRLF
17.CRLF
%7.CRLF

:MOVE MESSAGE UP ON TTY

#400,3CRS

:CHECK BIT 8

PC TTSTAL

.44

aCRS
.+

#20000,aCRS
.44

#MSG1,R2

MOV

X7, T00T
#MSG24 ,R2

MOV

#MSG2,R2

JSR

JSR
JSR
JSR
JSR
JSR
JSR

SWAIT FOR TTI

*BRANCH IF SET

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

*SPECIAL CONDITION NOT SET
*YES,

TEST BIT 13

*CONTINUE

SET

*CARD SUPPLY ERROR WASN'T SET
:"PRESS CARD READER 'RESET' AND WAIT FOR THE RESET LIGHT

PC, TOUT

:"'T0 GO ouT"

17,1007
%7.CRLF
17.CRLF
X7.CRLF
%7.CRLF

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

PC.TTSTAL

:WAIT FOR TTI

;FEED ERROR SHOULD SET BIT 15, AND IN THE PDI CARD READER IT
;SHOULD ALSO SET BIT 12
TESTD:

388

FERERE

SEQ 0036

JSR
JSR
JSR
JSR
JSR

MOV
JSR
MOV

007722

005200

PAGE 15-21

;10 GO our"’
=
*'THEN HIT 'CONTINUE' ON THE CONSOLE

JSR

1860

09:08

;OUTPUT STACKER FULL SHOULD SET BIT 15, AND IN THE PDI READER IT SHOULD ALSO SET BIT 13

TESTC:

RSETC:

104400

PC,TOUT
;;s$50¥2

TST
BMI

004737

04-AUG-B1

JSR

MOV
JSR

00473
004737
004737
004737
004737

[eolelelelelelelelelele]

p—

<O OO NO NS W

b
il

i o

) anl)

2
1825

004737

01270;

004737

—

) e

D il il il

007464
007470
007474
007500
00750«

il i)

i i

il i

b B

C(MQ11-k CARD READER TEST
«SRC
07=JuL-81 9:06
Cv

11%:

SCOPE
JSR
MOV
JSR
MOV
JSR

PC,INIT

#M3G26 , R2
PC, TOUT

#M3G27 R2
PC, Tout
PC.CRLF

JSR
JSR
JSR
CLR

INC

MOV

PC.CRLF
PC.CRLF

:INIT STATUS REGISTER

,
:"PLACE PRESSURE ON CARDS IN THE
:TO INHIBIT A NORMAL FEED
:MOVE MESSAGE UP ON TTY

INPUT WOPPER

CMQ1

CvCm

YM=-Z110A=AA

cnd

PC,TOUT

MoV

#MSG24 ,R2

MOV

#MSG2 ,R2

—_

cnl

b e

JSR

pard b

ONOJ‘N&NON

_n--._a-l--l-o—.NN
WNON
=
[]

#MSG30,R2
PC,TOUT
#MSG1,R2

TESTG:

010726

011464

JSR
JSR
JSR
JSR
JSR
JSR

SCOPE

JSR
HALT
MOV
JMP

MOV

;"RESTACK CARDS IN INPUT HOPPER

b cud

466

;FEED ERROR DID NOT SET BIT 12

;PRESS CARD READER 'RESET' AND WAIT
;FOR THE "RESET' LIGHT

RSETD:

o (=leleleleleleleBNelelel-)

15%:

;CHECK BIT 12

;SKIP IF SET

PC,TOUT

;70 GO our"’

PC,TOUT
PC,CRLF
PC,CRLF
PC,CRLF
PC,CRLF
PC,TTSTAL

;"'THEN HIT

%7,BELL

;IF SET, RING BELL AND

"CONTINUE®

;FEED ERROR DID NOT SET BIT 15

ON THE CONSOLE'

;MOVE MESSAGE UP ON T E CONSOLE

;WAIT FOR TTI

JHALT
#TESTA+2 ,RETURN :SETUP SCOPE LOOP RETURN ADDRESS TO LOOP
TESTA
;START ERROR TESTS OVER ON CONTINUING

CLR
INC

;SKIP IF ERROR IS SET

13%:
14%:

h o
h o
b

SEQ 0037

THRU TESTS

- PhurGurd

&~
o

OOOOOOSOOOOOO

D
d
b
b
e
i
e
e
b e
d
b

001064
011626

TESTX:

176260

000002

JSR

XLOOP:

;SETUP POINTERS AND FIAGS

@SR ,RE TRNX
#2 ,RETRNX

;WAIT FOR STARTING ADDRESS
;STORE _STARTING ADDRESS
sCHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION

PC,CKSWR

CLR
MOV

ITCNT
#4000,
1 TMAX

MOV

000000

%7,SETUP

JSR
HALT
MOV
ADD
HALT

011462

204

220

;NOTE THAT SW11 MUST BE DOWN AFTER 2ND HALT

JMP
(LR
J MP

RETRNX: 0

#XLOOP ,RETURN

aRE TRNX
ITCNT
aRE TRNX

;SET SR OPTIONS (BIT 17 MUST = 0)
;CLEAR ITERATION COUNTER
;LOAD RETURN ADDRESS
;JUMP TO TEST

SKEEP ITERATION COUNTER AT ZERO
;JUMP TO TEST

LA WL W LA WA LA WY U

TST

(=lelelelelelele]l-]

—

) e cd

[eleolelelelelelele]

PAGE 15-22

ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST
(elelelelelelelelelelelele]

PONOND = b
e
= e =
N=LOOVRENOWVSWN=O

e e
D e

D e

0 O OVOVOOVOOVOOOVO0

128%:

#10000,aCRS
15%

D e

2325EEEER0E
(o
+Jo
<]

SEINSR S 2888238202
3%SSRREER &

000024

007162
007160

09:08

;PICK A CARD

006302

010066

LA A LA W LA WA LA W

07-JuL=81 09:06

04-AUG-81

CVCMAA, SRC

MACY11 30A(1052)

MONLALNLAL NN NN NN NAL N AL NN N AL NN NN NN NI AN NN AL N NN NN NN AN AN N NN NN N

CMQ11<k CARD READER TEST

(MQ11=k CARD READER TEST
CVCMAA
. SRC
07=JuL-81 09:06

YM=2110A=AA

1923

1929

1530
1931
1932
1933

SEQ 0038

25!

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

010334

010340

004737
004737
000000
017737
042737
005037
005037
005037
005037
032713
001017
005213
005237

001064
011626

032713
001015
005713

040000

105713
100426

100371
032713
001002
104000
000754

004737
032713
001375
000746
023737
001742

176172
170000
010620
010616
001060
006422
000400

011437
005237
105713

010622
010622

CLR
CLR
CLR
CLR

TOTCRD
TOTERR
ERFLG
CLCNT

sINITIALIZE
sINITIALIZE
;CLEAR FLAG
sINITIALIZE

010726
000400

006426

006434
006422

006422

a(CRS

BIT
BNE

#40000,aCRS
CKCRD

s INCREMENT CARD COUNT
;CHECK COLUMN READY
;BRANCH IF SET
s CHECK CARD DONE
sBRANCH IF SET

BPL
BIT

CKLP1
#400,aCRS

;LOOP I+ NOT SET
;CHECK BIT 8

HLT
BR

CKLOOP

INC
TSTB
BMI

CKSIT:
JSR
C(kKSIT1: BIT
BNE
BR
CKCRD:
(MP
BEQ
HLT
BR
CKCOL:
MoV
INC

TSTB

HLT

006436

(KLP2:

BR
MOV
DEC
BNE
MOV

TOTCRD
aCRS
CKCOL
aCRS

kSIT

%7 ,BELL
#400,3CRS
CKSIT1

CKLOOP
COLSIZ,CLCNT
CKLOOP

CKLOOP
aCRB1,DAT1
CLCNT
a(rs

.+6

CKLOOP
#100, COUNT
COUNT
CKLP2
a(RB1,DAT2

;CHECK BIT 8

CARD COUNT
ERROR COUNT
FOR PRINTING ERROR HEADING
COLUMN COUNT

INC

CKSIT

:CLEAR UPPER BITS OF PATTERN

#400,aCRS

BPL
000100

#170000,CARDIM

BIT

BNE

100002
104000

000730
012701
005301
001376
011437

asR, CARDIM

:
*WAIT FOR CARD IMAGE PATTERN
*STORE PATTERN

TST

000400

;INITIALIZE POINTERS

PC.CKSWR

BNE
CKLP1:

%7.SETUP

JSR
HALT
MOV

BIC
CKLOOP:

010620

104000

000740

CKSAME: JSR

sBRANCH IF SET TO WAIT FOR READER TO COME ON-LINE.

;START READING CARD

sCHECK SPECIAL CONDITION

;BRANCH IF SET TO WAIT FOR READER ON-LINE.
;SPECIAL CONDITION SET, BIT 8 CLEAR

JRING BELL TO SIGNIFY READER OFF=-LINE
;CHECK BIT 8
;LOOP IF STILL SET
sSTART NEXT CARD
;CHECK FOR ALL COLUMNS READ
sSTART NEXT CARD IF OK
sFINAL COLUMN COUNT WASN'T 40 OR 80
;START NEXT CARD
;READ DATA BUFFER
;COUNT COLUMNS
;CHECK COLUMN READY

;BRANCH IF OK

;READING DBR DIDN'T CLEAR READY

;START NEXT CARD AFTER ERROR
JWAIT AWHILE
;READ CRB1 AGAIN

PLNLALNLNLNLALNLNLNLNLNLNL
NN NN NPV PN N NN DNV
o
o\ Vi
Ao
WG W VAN
AW ARV ATV

010222
010226
010232
010234
010242
010250
010254
010260
010264
010270
010274
010276
010300
010304
010306
010310
010314
010316

$335%% 2
~N

—_— -

1971

PAGE 15-23

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

010332
1962

09:08

:EASILY.
THE ROUTINE MALTS ONCE AT THE START.
SET THE CORRECT CARD
;IMAGE PATTERN IN SW11-SWO0, THEN HIT CONTINUE (AFTER THE DECK IS
:LOADED AND CARD READER IS ON-LINE).
THE PATTERN IS STORED, AND THEN
A
IF
AND COMPARED WITH IT.
TWICE
READ
IS
CARD
EACH
OF
COLUMN
*EACH
;DISCREPANCY OCCURS, THE ERROR IS PRINTED OUT ALONG WITH THE TOTAL
;NUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS DISCOVERED
;UP TO THAT POINT (ALL PRINTOUTS ARE IN OCTAL).
WHEN THE INPUT HOPPER
;IS EMPTY, THE ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE

1927
1528

1961

m3
04-AUG-81

sROUTINE TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED.
sTHIS ROUTINE ALLOWS SPECIFIC TYPES OF DATA FAILURES TO BE STUDIED

1924
1925
1926

1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954

MACY11 30A(1052)

YM=Z110A=AA

MACY11

30A(1052)

0064 34

010622

006436

010622

CMP
BNE

DAT1,CARDIM
CKFAIL
DATZ2,CARDIM
CKFAIL
CKLP1

(MQ11=k CARD READER TEST
CVCMAA. SRC
07=JuL-81 09:06

2022

2025
2024
2025
2026
2027
2028

2029
2030

2032
2033

010624
010630

010632

010640
010642
010646
010652
010656
010660

010664
010666

010670
010672

000627
032713
001775
000623
000000
000000
000000

004737
000000

017737

005213
005237
005037
005337
001375
005337

001372
000761
000001
000000

175756

CKFAIL:

TOTERR
#20000,aSR
CKHLT
ERFLG
CKNOHD
ERFLG

INC

001060
001060

#MSG19,R2
x7.T0UT
%7 ,CRLF
CLCNT ,R2
%7.DECPR
%7 ,SPACE
DAT1,R2
%7 ,PROCT
%7 ,SPACE
DATZ2,R2
%7.PROCT
%7 ,SPACE

CKNOHD: JSR

006436
d
e
D b d d e

004737
004737
013702
00473
004737
013702
004737
005777
100002

010616
020000

140000

PAGE 15-24

;COMPARE FIRST DATA TO PATTERN
sBRANCH IF FAILURE
; COMPARE SECOND READING TO PATTERN
sBRANCH IF FAILURE
;WAIT FOR NEXT COLUMN OR END OF

s COUNT ERRORS

;CHECK FOR INHIBITING PRINTOUT

. OUTPUT HEADING

;OUTPUT CARRIAGE RETURN, LINEFEED
;PRINT

COLUMN NUMBER

;PRINT FIRST READING

;PRINT SECOND READING

;PRINT TOTAL NUMBER OF DATA ERRORS

aSR
CKDONE

;CHECK SW15 TO HALT ON ERROR
;BRANCH IF NOT SET
sHALT ON_ERROR
s CONTINUE
;WAIT FOR SPECIAL CONDITION OR DONE
;START NEXT CARD AFTER CHECKING BIT 8

TOTCRD:

175574

;DELAY BEFORE READING ANOTHER CARD
;THIS WILL AID IN_TESTING FOR 'PICK ERRORS'
DELAY:
JSR
x7,SETUP
;SETUP POINTERS

010670
010672
010672

010670

1%:

2%:

HALT
MOV

@SR, DLAYO

INC
INC
CLR
DEC

(RS

ULAYD
DLAY1
DLAY1
2$
DLAYOD
2%
1%

BNE
DEC
BNE
BR

DLAYO: 1
DLAY1:
0
;ISSUE MES.

CARD

;BRANCH AROUND PRINTOUT IF SET
;TEST FLAG TO PRINT HEADING
;BRANCH IF ALREADY DONE
;PRINT HEADING ONCE ONLY

CARDIM: 0
JREAD A CARD AND EXECUTE A PROGRAM

001064

SEQ 0039

TOTERR ,R2

CKLOOP
#140000,aCRS
CKDONE
CKLOOP

CKDONE: BIT
BEQ
BR
TOTERR: 8

09:08

;PRINT TOTAL NUMBER OF CARDS READ

%7 ,PROCT

CKHLT:

TOTCRD,R?

%7 ,PROCT
%7,SPACE

010540
010544
010550
0105564
010560
010564
010570
010574
010600
010602
010604
010606
010612
010614
010616
010620
010622

023737
001005
023737
001001
000721
005237
032777
001047
005737
001006
005237
012702
004737
004737
013702
004737
004737
013702
004737
004737
013702

Nt O it cd © = =
oNNONONONO
N

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2012
2014
2015
2016
2017
2018
2019
2020
2021

010420
010426
010430
010436
010440
010442
010446
010454
010456
010462
010464
010470
010474
010500
010504
010510
010514
010520
010524
010530
010534

il lelele -]

1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

04-AUG-81

;WAIT FOR OPR.

;READ SR

;MOVE CARD
;CLEAR SECOND COUNTER

;DELAY

;DELAY FINISHED ?
;BR IF NOT

;BR IF YES

IF CARD READER IS OFF=LIME

(MQ11-k CARD READER TEST
07-JuL-81 09:06
CVCMAA, SRC

010722
010724

2057
2058

010746
010750
010754
010756
010764
010770
010772
010774
010776
011000
011002
011004
011010
011012
011020

b
-

004737
032713
001375
005013
005714
005713
001401
104000
000207

CLEAR, IN CASE
“WAIT FOR BUSY TOBEING
READ

RTS

*RETURN

.=
aCRS
aCRB1
aCRS
RYA

“A CARD IS STILL
“INITIALIZE STATUS REGISTER
"READ DATA BUFFER TO CLEAR COLUMN READY
‘MAKE SURE INITIALIZATION OK
*BRANCH IF ALL BITS ZERO
*NOT ALL BITS OF STATUS REGISTER ARE ZERO

:SUBROUTINE TO SAVE STATUS AND CLEAR T BIT

CLRTR:

000207
000042

170062

170040

ggLe

arcsa

:WAIT FOR TTY READY

MOV
MOV
BEQ

czo7.aroan
62 R2

:RING BELL

BPL
MOV

=4
#0,aTDBR

BPL

TSTB

LOGIC:

END:

170012

000001

RTS

TSTB

170046
000000
170032

NOP

:BELL ON PASS COMPLETE

BELL :

170070

100375
012777
105777
100375
000005
004712
000240
000240
000240
105777
100375
012737
000207

o1600,acns

BNE
CLR
ST
ST
BEQ
HLT

000240
000207

001416
105777

BIT

011460

RESET

JSR

NCNOP

NOP

END
@TCSR

@TCSR

%7, (R2)

;gle

argsn

;WAIT FOR TTY DONE BEFORE LEAVING

MOV

#1,1TMAX

:MAKE CERTAIN ITERATION MAXIMUM IS CORRECT

RTS

*RETURN

:SUBROUTINE TO CHECK FOR BIT 8 (OFF=LINE) BEING SET IN CARD
011022
011026
011032
011034
011036
011042
011046
011052
011056
011062
011066

004737
032713
001001
000207
012702
004737
012702
004737
004737
004737
000755

"READER CSR, AND PRINT OUT A MESSAGE IF IT IS

CKBITB: JSR

PC,CKSWR

SGET SOFTWARE SWITCH REGISTER

BIT

0460 aCRS

RTS

*RETURN IF NOT SET

17, Touf

“AND PRESS *CONTINUE®’

BNE

MOV
JSR
MOV

JSR

JSR
JSR

B8R

#MSG18,R2
17, 1ouf
#MSG17 ,R2

PC.TTSTAL
PC.CKSWR

CKBITB

“CHECK BIT 8

*BRANCH IF SET

*OUTPUT MESSAGE
S"BIT 8 WAS SET"’
:*REMEDY THE ERROR CONDITION
“WAIT FOR TT]
“GET SOF TWARE REGISTER

*CHECK AGAIN

;SUBROUTINE TO ISSUE N SPACES
:N IS ONE PLUS VALUE CONTAINED IN SPACEX

sSPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON
;SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE SPACE

NNNNNNNNNNN

2086

2087
2088
2089
2090

SEQ 0040

PONINLNLNLNLNL
NNV NN

2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085

PAGE 15<25

2074

09:08

*NOTE THAT PROGRAH WILL HANG HERE IF BUSY REMAINS SET
;SEE IF OFF=LINE BIT IS SET
BIT
JSR
INIT:

010674
010700
010704
010706
010710
010712
010714
010716
010720

010732

2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073

TINITIALIZE STATUS REGISTER' AND USE ERROR WALT IF IT DOESN'T CLEAR PROPERLY

2054

2059

04-AUG-81

(__‘

2051
2052

MACY11 30A(1052)

A CARD
;WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING
oo

2
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050

YM=2110A<AA

—

CMQ11-K CARD READER TEST
07-JuL-81 09:06
CVCMAA . SRC

2091
2092
2093
209¢
2095
2096
2097
2098
2099

011070
011074
011076
011104
011110
011112
0117116
011120

105777
100375
012777
005337
100367
005037
000207
000000

YM=2110A=AA

167726
000240
011120

SPACE:

167720

SPACEX:

SEQ 0041

;WAIT FOR TTY READY

@T(SR
-4

ST
BPL
MOV

#240,3TDBR

STS

DEC
BPL
CLR

011120

MACY11 30A(1052) 04-AUG-81 09:08 PAGE 15-26

SPACEX
SPACE
SPACEX

;OUTPUT A SPACE

sDECREMENT COUNT
sLOOP IF NOT DONE
;RESET COUNT TO ZERO
;RETURN

2100

;ENTERED WITH SYSTEM TRAP CALL (HLT)

2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146

011250
011254
011260
011262
011264
011270
011272
011274
011276
011300
011302
011304
011310
011312
011316

010337
010437
005004
005001
012703
005702
100001
005203
006102
006102
005501
105777
100375
010377
005204

011626
020000

175276

011242
011244

000240
011244
011250
011234
175204

MOV

%7,CRLF
%2,
SAVR2

JSR

X7,

JSR

011544
011234
011242
011250
167624

MoV

TSTB

BPL
MOV
MOV

167616

B.CK:

SAVRZ2:
SAVR3:
SAVRé:

JSR
MOV
TST
BPL
HALT

SAVPC,

aTCSR

PROCT

.~4
#240,
@TDBR
SAVPSR,

27,
SAVR2,
@SR
.6

PROCT
%2

;OUTPUT CARRIAGE RETURN, 'LINEFEED
;SAVE R2

;PRINT PC+2 IN OCTAL
;WAIT FOR TTY READY

;OUTPUT A SPACE
;PRINT PROCESSOR STATUS AT TIME OF FAILURE
;RESTORE REGISTER 2
sCHECK SR FOR HALT SWITCH

;BRANCH IF NOT SET
JHALT ON ERROR UP

STI

JRETURN TO MAIN LINE

0
0
SAVP(:
0
SAVPSR: 0
PRIOR:
0

011236
011240

PROCT:

000260

MOV

CLR

%3,SAVR3
24 ,SAVRS
24

TST
8PL
INC
ROL

¥4
. +4
i3
12

AD(C

B8PL

COUNT
TCSR
C.WAIT

INC

ROL

167512
167506

C.WAIT:

TSTB

MOV

;SAVE R3

;SAVE Ré

13,

;CLEAR R4 TO USE AS COUNTER
;CLEAR COUNT TO USE AS_CARRY FLAG
;SETUP ASCI] ZERO IN R3
;CHECK BIT 15 OF DESIRED NUMBER
*BRANCH IF NOT SET
“CHANGE TO ASCII ONE
“ROTATE INTO RIGHMTMOST 81T
*T0 PREPARE FOR |LOOP

*STORE CARRY

“WAIT FOR TTY READY

aTDBR

;OUTPUT ASCII

“COUNT CHARACTERS OUTPUT

SUASUSUOSUSUISU
SO
SISO

004737
032777
001401
000431
012637
012637
024646
004737
010237
013702
004737
105777
100375
012777
013702
004737
013702
005777
100001
000000
000002
000000
000000
000000
000000
000000
000000

NONINLNLNLNLNLNLNLNLNO
N

011122
011126
011134
011136
011140
011144
011150
011152
011156
011162
011166
011172
011176
011200
011206
011212
011216
011222
011226
011230
011232
011234
011235
011240
011242
011244
011246

Lol
N

2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
S}g?

;PRINT OUT THE ERROR PC AND STATUS REGISTER
PC,CKSWR
PRINT:
JSR
;GET SOFTWARE SWITCH REGISTER
#20000,asR
BIT
sTEST FOR INH. PNTOUT
.44
BEQ
;BRANCH TO PRINT
sINHIBIT, CHECK FOR HALT
B.(K
BR
MOV
(6)+,
SAVPC
;PC OF FAILING ROUTINE
MOV
(6)+,
SAVPSR
;PSR OR ERROR CONDITION
sRESTORE STACK
=(6)
=(6),
CMP

e
o

2101
2102
2103

) i
) i

—

wvh

e
S P

) i
D )
) i cld
D il e
D
i
) D D ) i
i i i s i

COUNT

ROL

ROL
ADC
MOV

177770
000260

W
z@om\hbbbwu
nNooNNONNNO
O o NONONOY

i
i
i sl
il i i
i e
e
i i
il e
i D s
e
e

b
il
e
e
i o e
i i

BEQ
CLR
SEC
ROL

PAGE 15-27

:CHECK FOR DONE
*BRANCH IF NOT DONE
*RESTORE REGISTER 3
*RESTORE REGISTER &
*RETURN
:CLEAR CARRY
STEST CARRY FLAG

*BRANCH IF NOT SET
*CLEAR FLAG
*SET CARRY
*ROTATE NEXT 3 BITS INTO RIGHTMCST 3

.+6
COUNT

%2
%2

12
COUNT
12

#260,

BIC

#177770.,%3

C.WAIT

BIS

09:08

;STORE CARRY
‘MOVE DATA FOR OUTPUT

*CLEAR ALL BUT RIGHTMOST 3 BITS
“SET TO ASCII EQUIVALENT

:LOOP

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

840000

175022

004000

175012

011462

011460

011462

SCOPEC:JSR

PC,CKSWR

BNE
BIT

D.1
#4000,aSR

BIT

D.1:

BNE
CMP
BPL
INC
CMP

MTPS

#40000,asR

:TEST SR FOR SCOPE

D.2
ITCNT, 1 TMAX
0.2
ITCNT
16
(6)+,

SINMIBIT ITERATION
*CHECK FOR ITERATIONS COMPLETE
SEXIT=DONE
* INCREMENT COUNT
“REPOSITION STACK POINTER

(6)+

aRE TURN
JMP
ITCNT
CLR
D.2:
RETURN
%6,
MOV
RT]
ITMAX:
1
0
ITCNT:
RETURN: TEST142

000016
011462
011464

*YES,SCOPE
*NO- TEST FOR ITERATION

:RETURN TO RERUN TEST
:CLEAR COUNTER
:SAVE SCOPE RETURN POINTER
SRETURN INLINE-NEXT TEST
“MAX NUMBER OF ITERATIONS
*COUNT LOCATION FOR ITERATION LOOP
*ADDRESS OF LAST TEST

~
~
~N

TM ] -,
b Sn38RE=R
N

l\l\z uNNN—-n-agoowg
nNO
S~
NOSRNONSOONNO

v iiiainiawb
&
v

000177
011542
011542
000100

011544
167270

167264

000000

167326

“THEN JSR %7,

TOUT:

BICB

TOUT

#177,
%2,
12
%2,
. +4

@TCSR

(MPB

a%2

JSR
BR

17.CRLF
L. INC

MOVB
L.INC:
INC
L.TOUT: CMPB
BNE
RTS

BNE

ggra
L

MOVB

B8R

L.EOMK: O

.+10

L.EOMK
L.EOMK

(2)+,

L.TO0T

:RETURN IF EOM

“CHECK FOR CR,LF REQUEST

*BRANCH IF NOT

SOUTPUT CARRIAGE RETURN, LINEFEED
:LOOP

argsa
.-

:CLEAR INT FLAG
:MOVE IN EOM MARKER
*MOVE DATA POINTER TO NEXT BYTE
:COMPARE FOR EOM
*BRANCH IF NOT END OF MESSAGE

‘WAIT FOR TTY

@TDBR

;OUTPUT NEXT CHARACTER

* CONT INUE

;SUBROUTINE TO ISSUE CARRIAGE RETURN AND LINEFEED

SEQ 0042

CMQ1

CvCm
ORI NLND NI NN NN S LAS AT ST N
NNNNNNNNNN NNNNN

WWWWW
P N O WW
B8 8BS
WWNONONY
NN==ON
NV
SO OO~ NNOONSNNOONNVONSO

)
il

[elelelelelrlelolelelelelolelolele BN elelelelelolelelelelelele
e lelele o]

b
i
i
b
e
e

ed ed —d 2
ld cd cld wd —k —d

e
b

d
i
-

2200

RTS

26
%,
C.CONT
SAVR3,%3
SAVRG , %4
X7

C.CONT: CLC

:MOV ADDRESS OF MESSAGE TO REGISTER 2
[elelelelelolelelelelelelelele)

h o
s o
s o
e
o cnd
o

L L

it o

011236
011240

04=-AUG-81

MACY11 30A(1052)
CMP
BNE
MOV
MOV

000006

O
O O O O O O OO 0o 0o 0o
OgOGQOVVNVVVNN\JN
SRLRGREN28TRIE

e et L L L LN LN LN i
N T N T iN o)
N otN LN)LN
L L LNil N
L N NL L L
N N N N L
o ol s
oD ol i o colh ) D sl i sl D el i

sD sel Li

D i

s LD

~n
e
e e
S sl ) D D -

VNN
NN AT
S S~
WONOVNSWN =0V ~

CMQ11-K CARD READER TEST
07-JuL-81 09:06
CVCMAA SRC

YM=2110A<AA

C(MQ11-k CARD READER TEST
07-JuL=81 09:06
CVCMAA. SRC

2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233

2234
2235
2238
2237
2238
2239
2240
2241
2242
2243
2244
2245
2248
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258

011544
011550
011552
011560
011564
011566
011574
011600
011602
011610

105777
100375
112777
105777
100375
112777
105777
100375
012777
000207

YM=Z110A<AA
CRLF:

167252

000215

167244

000212

167230

000000

167214

167236
167222

E &
04-AUG=81

MACY11 30A(1052)
TSTB
BPL
MOvB
TSTB
BPL
MOovB
TSTB
BPL
MoV
RTS

09:08

PAGE 15-28

SEQ 0043

;WAIT FOR TTY READY

aTCSR
-4

#215,
aTCSR
I-‘
#212,
OTESR

a@TDBR
aTDBR

#0,3TDBR

;SEND CARRIAGE RETURN

JWAIT FOR TTY

;SEND LINE FEED

;OUTPUT FILLER

;RETURN

;ROUTINE TO WAIT FOR A CONSOLE KEY TO BE HIT
011612
011612
011616
011620
011624

105777
100375
005777
000207

TTSTAL:

167200
167174

TSTB
BPL
TST
RTS

;WAIT FOR

aKB(SR

;KEYBOARD INPUT

TTSTAL

;CLEAR FLAG
JEXIT

aKBUF

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE

011626
011634
011636
011642
011644
011650
011654
011660
011662
011670
011672
011676
011702
011706
011712
011716
011722
011726
011732
011734
011736
011742
011744
011750
01175
011760
011762

011766
011772
011776
012000
012004

;
022737
001105
105777
100102
117746
042716
022726
001073
123727
001467
012702
004737
012702
004737
013746
004737
012702
004737
005046
005046
105777
100375
117746
042716
021627
001007
012702

004737
062706
000755
021627
001022

000176

006432

CKSWR:

167154
167150
177600

CMP

#3SWREG,
SR

TSTB

aTKS

BNE

MOVB

BIC

000007
001046

IS ENTERED FROM TRAP HANDLERR,AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
*«WHEN OPERATING IN TTY FLAG MODE.

CMP

BNE

000001

GTSWR:

167054

K7:

K15

@TKB,=(SP)

#4C177,(SP)
#7,(SP)+

K15

41
AUTOB,

MOV
JSR
MOV
JSR

#CNTLG,R2
PC, TOUT
#MSWR ,R2
PC,TOUT

JSR
MOV
JSR

PC,TYPOC
#MNEW,R2
PC, TOUT

CLR

-(SP)

MOV
K19:

BPL

CMPB

BEQ

012157

K15

CLR

TSTB

K15

= (SP)
SWREG,

-(5P)

@TKS

;1S THE SOFT-SWR SELECTED?

;BRANCH IF NO
;CHAR THERE?

;IF NO,DON'T WAIT AROUND
;SAVE THE CHAR
;STRIP OFF

THE ASCII

;BRANCH IF
:

YES

;1S IT A CONTROL G?
;NO RETURN TO USER
;ARE WE RUNNING IN AUTO-MODE?

*TYPE CURRENT CONTENTS
“SAVE SWREG FOR TYPEOUT

GO TYPE-OCTAL ASCIICALL DIGITS)

;CLEAR COUNTER
;NEW SWR
;CHAR THERE?

;IF NOT TRY AGAIN

K9:

BIC
CMP

#°C177,(SP)
(SP) ,#25

JMAKE

012152
011466
000006

K20:

MOV
JSR
ADD

#CNTLU,R2
PC,TOUT
#6.SP

;

000015

K10:

CMP
BNE

(SP) 415
K16

;IS IT A <CR>?
;BRANCH IF NO

167050
177600

000025

BPL

MOVB

BNE

aTKB,=-(SP)

K10

K19

;PICK UP CHAR

IT 7-BIT ASCII

;1T 1S A CONTROL-U?
;BRANCH IFf NOT

:1GNORE PREVIOUS | NPUT

:LET'S TRY IT AGA] N

CARD READER TEST
|
07-JuL=81 09:06
| CVCMAALSRC

YM=2110A<AA

012006
012012
012014
012022

005766
001403
016677
062706

2264
2265

012026

004737

012040
012042
012050
012052

001003
012777
000207
004737

012062
012064
012070
012072
012076
012102
012104
012106
012110
012112

002420
021627
003015
042726
005766
001403
006316
006316
006316
005266

012122
012124
012130
012134
012136

000705
012702
004737
000716
000014

012152
012157
012164
012172

040057
057
051457
057

057
027507
020075

012173
012200

057
053505

047040
027440

012206
012212

040057
000012

€26

2266

2267
2268
2269
2270
L2271
2272
2273
2274
|
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284

2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302

012032

012056

012116

123727

021627

056616

000004
000002
000010

174410

K11:

;TTY

011544
001050

000001

000100

166746

012450
000060

K14:

K15:
K16:

000060
000002

K17:

012206

K18:

011466

TTYN:

P —————————————————————

PAGE 15-29

09:08

4(SP)

BEQ
MOV
ADD

:YES,IS

K11
2(SP) ,aSR
#10,SP

JSR

MOV
RTS
JSR

#100,aTKS
PC
PC,TYPEC

CMPB
BNE

CMP
BLT
CMP
BGT
BIC
TST

000002
177776

2303
2304
2305
|
2306
2307
2308
2309
2310
231
|
2312

04-AUG-81

CNTLU:
CNTLG:

,CRLF

:CHAR < 0?
:BRANCH IF YES
:CHAR > 7?
:BRANCH IF YES
:STRIP=OFF ASCII

*RE-ENABLE TTY KBD INTERRUPTS
*RETURN
;ECHO CHAR

;1S THIS THE FIRST CHAR

;BRANCH IF YES

INC
BIS
BR
MOV
JSR

2(SP)
=2(SP), (SP)
K7
#QUES ,R2
PC,TOUT

.BLKB

12.

(SP)
(SP)
(SP)

k20

*NO SHIFT PRESENT
:CHAR OVER TO MAKE
:ROOM FOR NEW ONE

:KEEP COUNT OF CHARACTER
:SET IN NEW CHAR
:GET THE NEXT ONE
:TYPE 7<CR><LF>

:SIMULATE CONTROL-U
;RESERVE

;Y INPUT

;/@*U/;
;/8*G/;

.ASCII

;/SWR= /;

MNEW:

ASCII

;/8

QUES:

ASCIT

12 BYTE FOR TTYT

;CONTROL 'V’
;CONTROL "6’

NEW = /;

;/797/;

LASCIZ

CHAR?

(SP) 460
K18
(SF) 467
K18
#60,(SP)+

MSWR:

LF:

FIRST

:ECHO <CR> AND <LF>

2(SP)

.ASCII
LASCII

THE

:RE-ENABLE TTY KBD INTERRUPTS
;BRANCH IF NOT

K17

INTAG, #1
K15

BEQ
ASL
ASL
ASL

SEQ 0044

;BRANCH IF YES
:SAVE NEW SWR
:CLEAR UP STACK

INPUT ROUTINE

000067

027477

30A(1052)

2259
2260
2261
L
|
226§

MACY11

;QUESTION MARK

<12>

;LINE FEED

"tltt""t"ttl...t.tt‘t'l.titt."ttt..t.‘t.t..t.'t"'

;THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER T0

;*A 6-DIGIT OCTAL (ASCII) NUMBER AND TYPE IT
;*TYPOS===ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF

;*«DIGITS TO TYPE

s«CALL:
".
:t
"t

MOV

NUM,~-(SP)

.BYTE

TYPOS

;*T0 TYPE

BYTE

;NUMBER TO BE TYPED
;CALL FOR TYPE OUT
;N=1 T0O 6 FOR NUMBER OF DIGITS
M

;M=1
OR 0
;1=TYPE LEADING ZEROS

;0=SUPPRESS LEADING ZEROS

P——————
e

————————————————————————_————

CMQ11=k CARD READER TEST
CVCMAA, SRC
07=JuL=81 09:06

YM=2110A<AA

———————

MACY11 30A(1052)

04-AUG-81

09:08

PAGE 15-30

SEQ 0045

cMa1

CVCM

2313
2314

;*TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS
:«THE LAST

29
29

2316

s*CALL:

2315

;*TYPOS OR TYPOC

2317

gg;g

- %

%%5?
gggz

2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349

012214
012220
012226
012232
012236
012240
012246
012254
012262
012264
012266
012270
012274
012276
012302
012306
012312
012316
012320
012322
012324
012326
012330
012332
012334

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103

000000
000001
012447
000002

012445

000001
000006
000005

012445
012447
012444

2352

012344

042703

177770

012352
012354
012356
012360
012364
012370
012374

005704
001403
005204
052703
052703
110337
010446

2353

2354
2355
2356
2357
2358
2359
2360

2361
2362

2363
2364
2365
2366
2367
2368

TYPON

NUM, - (SP)

:NUMBER TO BE TYPED

012336
012342

012350

012376
012400

012404
012410
012412
012414
012420
012422

105337
100024

001002

010546
012702

004737
012605
012604
105337
003341
002402

TYPOS:

TYPOC:

TYPON:

012447
000006
012446
012445
000010

Al:
A2:

012446

000060
000040
012442

A3:

MOV

MOV
MOVB
MOVB
ADD
BR
MOVB
MOVB
MOVB
MoV
MoV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MoV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL

a(SP),=(SP)
1(SP) ,FILLO
(SP)+,MODEO+1
#2,(SP)
TYPON
#1,FILLO
#6,MODED+1
#5,CNTO
R3,-(SP)
R4 ,=(SP)
RS,=(SP)
MODEO+1,R4
R4
#6,R4
R4 ,MODEO
FILLO,R4
10(SP) ,RS
R3
RS
A3
RS
RS
RS
RS,R3
R3

BIC

#177770,R3

DECB
BPL

BNE
AL :
AS:

BEQ
INC
BIS
BIS
MOVB
MOV

MOV
MOV

012441

011466
012444

A7:

JSR
MoV
MOV
DECB
BGT
BLT

TYPOC

NUM, - (SP)

MODEO
A7

[YA

ST
Ré
AS
R4
#'0,R3
#' ,R3
R3,A8
R4 ,~(SP)

RS ,-(SP)
#A11,R2

PC,TOUT
(SP)+,RS
(SP)+ R4
CNTO
A2
A6

:NUMBER TO BE TYPED
:CALL FOR TYPEOUT

:PICKUP THE MODE
:LOAD ZERO FILL SWITCH
;NUMBER OF DIGIT TO TYPE
:ADJUST RETURN ADDRESS
:SET THE ZERO FILL SWITCH
:SET FOR SIX(6) DIGITS
:SET THE ITERATION COUNT
:SAVR R3
:SAVE R4
:SAVE RS
:GET THE NUMBER OF DIGIT TO TYPE

:SUBSTRACT IT FOR MAX.ALLOWED
:SAVE IT FOR USE
:GET THE ZERO FILL SWITCH
;PICK UP THE INPUT NUMBER
:CLEAR THE OUTPUT WORD
:ROTATE MSB INTO ‘"
;G0 TO MSB
:FORM THIS DIGIT

:GET LSB OF THIS DIGIT

:TYPE THIS DIGIT?
:BR IF NO
:GET RID OF JUNK

:TEST FOR 0

:SUPPRESS THIS 0?
:BR IF YES
:DON'T SUPPRESS ANYMORE 0°'S
;MAKE THIS DIGIT ASCII
:MAKE ASCII IF NOT ALREA
:SAVE FOR TYPING

:CALL FOR TYPEOUT

:'zxpoc---enrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER

s*CALL:

2322

2350
2351

MOV

;

:COUNT BY ONE
:BRANCH IF MORE TO DO
:BRANCH IF DONE

%g
_

gg
29

29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29
29

CMQ11=K CARD READER TEST
07-JuL-81 09:06
CVCMAA SRC

2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381

2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
23297
2398
2399
2400
2401
2402
2403
2604
2405

24606

2407
2408
2409

2410
26411
2612
2413
2414
2415
2616
2417
2418
2419
2620

012424
012426
012430
012432
012434
012436
012440
012441
012442
012443
012444
012445
012446

005204
000736
012605
012604
012603
000207
000
057
000
057
000
000
000000

012450
012454
012456
012464
012472
012474
012500
012502
012510
012512
012514
012516

105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

012520
012524
012532
012540
012546
012554

013746
012737
012737
012737
022777
001012

012556
012560
012564

000403
012716
000002

012566
012574
012602
012606
012612
012620
012622
(012630

012737
012737
012637
005037
132737
(01403
(12737
000207

012632
012640
012646
012654
012662

040057
020123
051040
020122
052105

YM=Z110A<AA

MACY11 30A(1052)

Ab:

000002
000015

;INSURE LAST DIGIT IS NOT A BLANK

MoV
MOV
MOV

(SP)+,R5
(SP)+,R4
(SP)+,R3

;RESTORE RS
JRESTORE Ré
;RESTORE R3

.BYTE
.BYTE
.BYTE

0
057
0

;STORAGE FOR ASCII DIGIT

.BYTE
.WORD

0
0

;ZERO FILL SWITCH
;NUMBER OF DIGIT TO TYPE

égTB

?ngc

;WAIT UNTIL THE PRINTER IS READY

MOVB
gnEB

2(SP) ,aTPB
g}S.Z(SP)

;LOAD CHARACTER TO BE TYPED INTO DATA RE
;1S CHAR CARRIAGE RETURN?

CLRB

CHARCNT

;YES CLEAR CHAR COUNT

CMPB
BEQ

#LF ,2(SP)
TYPEX

;1S CHAR LINE FEED?
;BRANCH IF YES

B1:

INCB

CHARCNT : .WORD
TYPEX:

000004
012560
177570
177570
177777

000004
001040
000200
001042

RTS

057
0

TYPEX

(PC)+

; TERMINATOR FOR TYPE ROUTINE
;OCTAL DIGIT COUNTER

JEXIT

;COUNT THE CHARS

;CHARACTER COUNT SPACE

;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
JEQUAL TO A "*=1"', SETUP FOR A SOFTWARE SWITCH REGISTER.

SWRCK:

000004
006432
001036
173656

MOV

O#ERRVEC,-(SP)

#RT1,3#ERRVEC
#DSWR, SR
#DDISP,DISPLAY
#-1,aSR
RT3

;SET UP ERROR VECTOR
;SET UP FOR HARDWARE SWR
;AND A HARDWARE DISPLAY REGISTER
;TRY TO REFERENCE HARDWARE SWR
;BRANCH IF NO TIME OUT TRAP OCCURED

RT2

;BRANCH IF NO TIME OUT

RT2:

MOV

RT3:

MoV
CLR

#SWREG, SR
;POINT TO SOFTWARE SWR
MOV
#DISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;RESTORE ERROR VECTOR
APASS
;CLEAR PASS COUNT
#200,AENVM
;TEST USER SIZE UNDER APT
;YES ,USE NON-APT SWITCH
RT4
:?gUREG'S?
;NO,USE APT SWiTCH REGISTER

RT1:

012566

000176
000174

TYPEC:

166340
000002

000002

SEQ 0046

CNTO:

012514
012212

PAGE 15-31

.BYTE
.BYTE

FILLO:
MODEO:

166346

09:08

égc

RTS

All:
A8:

04-AUG-81

006432
001036

001044

MOV
Mov
Mov
CMP
BNE
S?Y

BITB
BEQ
2?2

006432

MSG1:

#RT2,(SP)

;SAVE ERROR VECTOR

;AND THE HARDWARE SWR IS NOT = -1

;SET UP FOR TRAP RETURN

LASCII1 ;/@PRESS CARD READER 'RESET' AND WAIT FOR THE

°"RESET® LIGHT/;

PR—

07=JuL-8 1

09:08

PAGE 15-32

SEQ 0047

22
ONN

;/Q@THEN HIT ANY KEY ON THE CONSOLE

TERMINAL/;

MSG3:

LASCII

;7970 LIGHT/;

MSG24:

LASCII

;/@T0 GO OUT/;

MSG4:

LASCII

;/QTHE

CONTI
CONT’
CONT'
CONT;
CONT,
CONT,
CONT
CONT!

INTERRUPT LEVEL WAS /;

(RB2

053440

047515
046114
0515
0201
0471
0475
0

CRLF

MSGS:

LASCII

;/QREMOVE ALL CARDS FROM THE

INPUT HOPPER/;
c.co

MSG6:

LASCII

;/Q9RESTORE

MSG7:

LASCII

;/@RAISE

CARDS

IN THE

INPUT HOPPER/;

051

051100
052040
052125
047510
051440
044040
020124

044
042
052
050
040
044
051

042504

0¢

o
W

050120

O
W

—

LASCII

CMQ1’

Cvem

CNTO
CNT2!
CNTZ:
CNT2:
CNTZ!
CNTZ:
CNT2:
CNT2:
CNT2!
CNT2

04-AUG-81

S
wo

&2
SR
SO

s = e e e = O
PO

= e

B NEeENOONSROOWORON
=2 T

s S

coRROO

2429

e ol e

e o

dh e

2428

046105
027440
042522
040440
051101
047522
020105
020126
051105

0425
051105
046040

—=WNWN=UNnu
OONNNINNLD
NROOO—=

i
i
i
i
) i
D
ik
el o
e

)

h e

2427

) e

2426

) e

lh e

) i

2425

MACY11 30A(1052)

coLm
coLS

052100
052116
052120

2424

it i

24623

s i s

2422

MSG2:

[elelelelelelelels]
LS LN LN I T T T
B NOO
= aNONY —'N
PN
OO0 =N
NOOH
K HFO=LOD
O OCOO=ET
=N

)
i
i

746
754

2421

WON=YNVONO
WNNW
O VIO W= N
= OV
N
N
ON = (NO =N SNy —
N=NANWO
=4 4O N= WO O

012670
012676
04

RROIRRORS RRRR o

CVOMAA SRC

[elelelelelplelelelolelelelolelolelolelelelelelolelelelolelelalelelelolololelelelelelololelelelelelelelelele]

YM=2110A<AA

(MQ11=k CARD READER TE ST

THE OUTPUT HOPPER STACK HEIGHT ARM/;

MSG13:

LASCI1

;/@DECK

MSG14:

LASCI1

;/3ALPHA /;

CARD COLUMN PATTERN READT READ?2

C(ODED

READ/;

|
|

MQ11<x CARD READER TEST
CVCMAA . SRC
07=JUL=81 09:06
2430

2431

|
|
2432
2433

2434
2435
2436

013351

013356

013362
013370
013376
0134064
013412
013420
013426
013434
013442
013450
013456
013464

013472
013500
013506
013512
013520
013526
013534
013542
013550
013555
013562
013566
013574
013576
01

013612
013620

2437

2438

013626

013634
013642
013645
013652
013660
013666
013674
013702
013710

013716
013724
e

013744
013752
013760
013766
013774
014002

YM=Z110A<AA

MACY11 30A(1052)

|
[

09:08

PAGE 15-33

041100

047111

MSG1S:

LASCII

:/aBINARY/;

040057
054504
042440
041440
044524
042116
051523
045440
020116
047503
020105
047111

042522
052040
051122
047117
047117
050040
040440
054505
044126
051516
042524
046101

042515
042510
051117
044504
040440
042522
054516
047440
020105
046117
046522
027500

MSG17:

.ASCII

;/QREMEDY THE ERROR CONDITION AND PRESS ANY KEY ON THE CONSOLE TERMINALQ

040057
020070
042523
040057
047115
030504
031104
042122

047522
057
042523
040057
027513
040057
040507

045503
020056
042105

040057
046117
057
051523
020104
051105
052114
020104
043040

042510
042523

042503
051523
047117
051504
044124
052520

027531

044502
040527
027504
047503
051040
051040
020040
020123

020124
046522

DONE

ERFL

ERRV
ERRG
ERSE
ER1
FADJ

L.ASCII

:/aBIT B WAS SET/;

052514
040505
040505
040503
051105

MSG19:

L_ASCII

;/aCOLUMN READ1 READ2

057
020113

MSG20:

.ASCII

;/aMK SEN/;

047107

MSG21:

.ASCII

;/@BLANK/;

046111
020114

042514
042504

MSG22:

.ASCII

;/@IJLLEGAL DECK SEQ. PROCEDURE/;

051125

027505

041440

MSG23:

.ASCII

:/@40 COL/:

MSG25:

.ASCII

;/®PRESS CARD READER 'HALT' AND WAIT FOR THE °"RESET' LIGHT/;

023440
023524

042522
051101
042101
040510
047101
052111
052040
042522
046040

050040
051125
041440
044440
020105
020124

042522
020105
051101
020116
047111
047510

030064
057
050100
041440
042522
023440
020047
040527
051117

020101
046101

D.1
D.2

END
ENDC
END2
ERCM

MSG18:

051440
051120

DSWR

020124
020123

051522
046500
027516
046102

cmMa1
CVvCM

SEQ 0048

057

051101

FAIL
FCNT
FILI
FLAG
FPRI
FTES
GTSW
HLT

CARDS ERRORS/;

050505
041517

HSR
INIT

2440 8%281?
osoagg 8%5}83 020??; MSG27
014022 047111 044510 044502
014030
014036

04=-AUG-81

s - LASL

ASCI]

;/a9PLACE

;/9T0

INTA
INTF
INTV
ITCN
1TMA
KBCS
KBUF
KCRB
KCRS
K10
K11

PRESSURE ON CARDS IN THE INPUT HOPPLR/;

IBIT

INHIBIT

K
K16

K17
K18
K19
k20
K7
A NORMAL

52CN
LAST

FEED/;

047516
043040

LAST
LAST

|
|

mmmema

CMQ11=K CARD READER TEST

CVCMAA. SRC
2441

2442
2443

014044
014050
014056
014064
014072
014100
014106

07=-JUL=-81 09:06
042505
040057
041501
042122
044440
044040
027522

027504
042522
020113
020123
050116
050117

YM=2110A<AA

MACY11 30A(1052)

052123
040503
047111
052125
042520

.ASCII

MSG30:

04=-AUG=81

09:08

.EVEN

:DATA TABLES FOR DATA RELIABILITY TESTS

2446
2447
244B

;ALPHANUMERIC DECK DATA TABLE
;FIRST VALUE FOR A COLUMN IS THE DIRECT
:CARD IMAGE FOR THAT COLUMN ON CARD 1

014110
014112

004000
000200

2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467

014114
014116
014120
014122
014124
014126
014130
014132
014134
014136
014140
014142
014144
014146
014150

004400
000201
004200
000202
004100
203
004040
000204
004020
000205
004010
000206
004004
000207
004002

2669
2470
2471
2472
2473
2474

014154
014156
014160
014162
014164
014166

004001
000220
004202
000212
004102
000213

2468

2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490

014152

014170
014172
014174
014176
014200
014202
014204
014206
014210
014212
014214
014216
014220
014222
014224
014226

000210

004042
000214
004022
000215
004012
000216
004
000217
002000
000100
002400
000101
002200
000102
002100
000103

:THE SECOND VALUE IS THE ENCODED FORM OF THAT DATA
:COLUMN CHAR HOLLERITH
ALPCD: 4000
A1
[
12
200

4400

12 1

4200
202
4100
203
4040
204
4020
205
4010
206
4004
207
4002

12 2

12 3

12 4

12 5

12 6

12 7

12 8

:10

129

CENT

1282

;12

1283

:13

1284

:14

(

1285

:15

1286

:16

1287

:17

;18

111

:19

112

:20

113

210

4001
220
4202
212
4102
213

4042
214
4022
215
4012
216
4006
217
2000
100
2400
101
2200
102
2100
103

cMa1

SEQ 0049

CVCM

LF
LOGI
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP

;/@RESTACK CARDS IN INPUT HOPPER/;

%22§

2449
2450
2451
2452

PAGE 15-34

toga

L.IN
L.TOl
MKND:

MNE
W
MODE
MRKC
MRKE|

MSG1
MSG1
MSG1:
MSG1
MSG1
MSG1:
MSG1'
MSG2
MSG2
MSG2
MSG2
MSG2
MSG2
MSG2
MSG2
MSG2

MSG3
MSG3
MSG4
MSGS
MSG6
MSG7

MSWR
NOHD
NOP
NOTC
NOTC
NOTC
NUMC
NXCR
OFFS
OFFS
OFFS
OFF6
PIRQ
PRIN
PRIO

CMQ11<k CARD READER TEST

CVCMAA., SRC
2491
2492
2493
2494

2495
2496
2497
2498
2499
2500
2501
2502
2503
504
2505
2506
2507
2508
2509

2510
2511
2512
2513

2514
2515
2516
2517
2518
2519
2520
2521

2522
2523
2524
2525
2526

2527
2528
2529

2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546

014230
014232
014234
014236

014240
014242
014244
014246
014250
014252
014254
014256
014260
014262
014264
014266
014270
014272
014276

014276
014300
014302
014304

07-JUL=-81 09:06
002040
000104
002020
0001

002010
0001
002004
000107
002002
000110
002001
000120
002202

00011
002102
000113
002042
000114
002022

00011
002012
000116
002006

YM=2110A<AA

MACY11 30A(1052)
2040
104
2020
105

2010
106
2004
107
2002
110
2001
120
2202
112
2102
113
2042
114
2022

115
2012
116
2006

014306
014310
014312
014314
014316
014320
014322

000117
001000
000040
001400
000041
001200

014326
014330
014332
014334
014336

000043
001040
000044
001020
000045

43
1040
44
1020
45

000047
001002
000050
001001
000060
001202
000052
001102
000053
001042
000054
001022
000055
001012
000056
001006
000057

47
1002
50
1001
60
1202
52
1102
53
1042
54
1022
55
1012
56
1006
57

014324

014340
014342
014344

014346
014350
014352
014354
014356
014360
014362
014364
014366
014370
014372
014374
014376
014400
014402
014404
014406

001100

001010
000046
001004

117
ALPCD2: 1000
40
1400
41
1200
42
1100

1010
46
1004

04=-AUG-81

09:08

PAGE 15-35

;21

1 4

;22

115

;23

1 6

: 24

1 7

;25

11 8

: 26

119

;27

11 82

: 28

11 8 3

;29

1 8 4

:30

)

185

1 856

;32

BLANK

11 8 7

;33

134

;35

136

;37

;38

:39

;40

;41

142

;43

082

24k

083

:45

084

;46

085

247

086

;48

087

SEQ 0050

cMa1

CVCM

PROC
PROC
PSSE
PSSE
PTOF|
QUES
RESE
RESTI
REST
REST'
RETR
RETU
RSET
RSET|
RTT

RT1
RT2
RT3
RT4

SAVP
SAVP
SAVR
SAVR
SAVR
SCON
SCOP
SCOP
SETU
SPAC
SPAC
SR

SRV(
SRVC
SRVC
SRV(
STAC
SWR
SWRC
SWRE
SWTH
TABP
TAGA
TAGB
TAGC
TAGD
TAGE
TAGF
TAGZ

I——

CMQ11=k CARD READER TEST

CVCMAA., SRC
2547

07=JUL=81 09:06

YM=2110A<AA

MACY11 30A(1052)

04=AUG-81

014410

000000

0000

149

2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559

014414
014416
014420
014422
014424
014426
014430
014432
014434
014436
014440

888400
001
000200
000002
000100
000003
000040
000004
000020
000005
000010

0400
1
0200
2
0100
3
0040
4
0020
5
0010

;50

2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586

014444
014446
014450
014452
014454
014456
014460
014462
014464
014466
014470
014472
014474
014476
014500
014502
014504
014506
014510
014512
014514
014516
014520
014522
014524
014526

000004
000007
000002
000010
000001
000020
000202
000012
000102
000013
000042
000014
000022
000015
000012
000016
000006
000017
004000
000200
004400
000201
004200
000202
004100
000203

2589
2590
2591
2592
2593
2594
2595
2596

014534
014536
014540
014542
014544
014546
014550
014552

2548

014412

2560 014442

2587
2588

2597

2600
2601
2602

014530
014532

014554

014562
014564
014566

000000

000006

004040
000204

004020
000205
004010
000206
004004
000207
004002
000210

004001

000212
004102
000213

09:08

PAGE 15-36

cMal

SEQ 0051

CVCM

BLANK

TCSR

;51

:52

;53

:54

;55

TDBR
TEND
TEST
TEST/
TESTI
TESTI
TESTI
TESTI
TEST)
TEST
TEST

0004
7
0002
10
0001
20
0202
12
0102
13
0042
14
0022
15
0012
16
0006
17
4000

:56

;57

“

;58

;59

8 2

;60

;61

8 4

;62

’

;63

8 6

;64

;65

4400
201
420
202
4100
03

;66

12 1

;67

]

12 2

:68

12 3

;69

12 4

4020
205
4010
206
4004
207
4002
210

:70

;

12 5

;71

12 6

:72

12 7

;73

12 8

;76

12 9

CENT

;76

1283

4040
04

4001

212
4102
213

TEST

|
i
|
f

|
g
|
|

TEST
TEST'
TEST.
TEST!
TEST.
TEST!
TEST
TEST,
TEST
TEST:
TEST
TEST(
TEST
TEST:
TEST
TIM2
TINT
TINT
TINT
TINT
KB
XS
TNIN
TOTCI
TOTE
ToUT
TPB
TPS
TRET
TRFL
TRTR
ISTA
TST1,
1ST1

1ST2

TYPE
TYPE
TYPO

CMQ11<k CARD READER TEST

CVCMAA . SRC

07<JuL-81 09:06

YM=2110A<AA

MACY11 30A(1052)

04-AUG-81

09:08

PAGE 15-37

CMa1

SEQ 0052

CvCm

2603
2604
2605

014570
014572
014574

00404
000214
004022

4042
214
4022

12 8 4

78«

1285

2607
2608
2609

014600
014602
014604

004012
000216
004006

4012
216
4006

1286

2606 014576 000215

)

;10

000157
076451
000327
005123
000277

WAIT

. AB

.
.

enh
ek

;19

;20

;21

;22

;23

‘—..

014732
014736
014736
014740
014742

wnw
0N
WV
N

2654
2655
2656
265°
2658

006251
000326
005323
000277
003572

2649
2650
2651
2652
2653

1287

TYPT!
T2IN
12IN

ZERO
)

5225

014720
014722
014724
014726
014730

BINCD:

TYPT;
XLOO¥

006245
000327
004717
000237
002552
000117
006245
000327
004727
000237

000117

n
o

2628
2629
2630
2631
2632
2633
2634

014640
014642
014644
014646
014650
014652
014654
014656
014660
014662

014636

2625
2626

005225
000267
005737
000277
000552
000017
005245
000267
005717
000277
002552

014610
014612
014614
014616
014620
014622
014624
014626
014630
014632
014634

2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623

2611

ALPEND: 217

POVVNON = NN NN
ON = NN NN
ON = N NN
ON = NN SN WON = NN SN WON = NN IO
= O oo W
N =20 £ NN NWND RO AW =
NN WA = JWNNO N = TN NN N = VTN NN
= VNI NN
NI NI NION D
NNNWVINNNNVONWNMNNNNONES
NO\NNIN S NO\NNINS NN
= NS NN
= NS
LW

2610 014606 000217

215

TYPO
TYPQ:!
TYPT:

|
|

ERR(

cva
RUNRUN:
CORI

(MQ11-k CARD READER TEST

CVCMAA, SRC

07=-JuL-81 09:06

YM-2110A<AA

MACY11 30A(1052)

2659 014744
2660 014746
2661 014750
266§ 014752
014754
%66

003572
000157
006451
000327
005125

3572
157
2451
27
51;5

014760
014762
014764

003574
000147
006451

3574
147
6451

664

2665
2666
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

269%

2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
271§
2713
2714

014756

014766
014770
014772
014774
014776

015000

015002
015004
015006
015010
015012
015014
015016
015020

015022
015024
015026
015030
015032
015034
015036
015040
015042
015044
015046

015050

015052
015054
015056
015060
015062
015064
015066
015070
015072
015074
015076
015100
015102
015104
015106
015110
015112
015114
015116
015120
015122

000267

000327
005225
000267
003674
000147
002451
000127
001225
000067
003676
000157
002452
000117
001224
000047
003736
000157
885512

327
5225
267
3674
147
2451
127
1225
67
BINCD2: 3676
157
2452
117
1224
47
3736
157
2512

005224
000247
005736
000257
000512
17

5224
;47
736
257
0512
17

267
005737
000277
000552
000017
005245
000267
005717
000277
002552
000117
006245
000327
004717
000237
002552
000117
006245
000327
004727
000237

267
5737
277
0552
17
5245
297
5717
577
552
117
6245
3;7
4717
237
2552
117
gZGS
;7
“ ;7
23

117

005225

117

5225

04-AUG-81
;24

;25
;26

;27
;28
;29

;30
;3
;32
539
;34

:5%
;36
'3 4

;38
;39
;40

ka1
;42

;43
D

;45
;66

;47

;4B
;49

;50
;5

09:08

PAGE 15-38

SEQ 0053

[

—

1=K CARD READER TEST
MAA. SRC
07=JUL=-81 09:06
15
16
17
18
19

20
21
22

2743

015124
015126
015130
015132
015134

015136
015140
015142
015144
015146
015150
015152
015154
015156
015160
015162
015164
015166
015170
015172

015174
015176
015200
015202
015204
015206
015210
015212
015214
015216
015220
015222
015224
015226
015230
015232
015234
015236
015240
015242
015244
015246
015250
015252
015254

002562
000117
006245
000327
005327

000277
003162
000157
006245
000327
005327
000277
003172
000157
006251
000326
005323
000277
003572
000157

006451
000327
005123
000277
003572
000157
006451
000327
005125
000267
003574
000147
006451
000327
005225
000267
003674
000147
002451
000127
001225
000
003676
000157
002452

YM-Z110A<AA

-3
04-AUG-81

MACY11 30A(1052)
2562
117
6245
327
5327
277
3162
157
6245
327
§327
277
3172
157
6251
326
5323
277
3572
157
6451
327
5123
277
3572
157
6451
327
5125
267
3574
147
6451
327
5225
§67
674
147
2451
127
1;25
g

;52
;53
: 54

;55
;56

:57
;58
:59
;60
;61
;62

;63
A
;65
;66
;67
;68
;69

:70
;71

;72

;73

001224
000047
003736
000157
002512

676
157
2452
117
1;24
1
3736
157
2512

015276 880;47

gag

015256

015260
015262
015264
015266
015270

015300
015302

000117

005736
000257

736
257

;74
:75

;76
;77

;79

09:08

PAGE 15-39

SEQ 0054

(MQ11=k CARD READER TEST

CVCMAA, SRC
2771
2772
2773
2774
2775

015304
015306

2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826

015310
015312
015314
015316
015320
015322
015324
015326
015330
015332
015334
015336
015340
015342
015344
015346
015350
015352
015354
015356
015360
015362
015364
015366
015370
015372
015374
015376
(0€15400
015402
015404
015406
015410
015412
015414
015416
015420
015422
015424
015426
015430
015432
015434
015436
015440
015442
015444
015446
015450
015452

00051
00001

BINEND:

MACY11 30A(1052)

;MARK SENSE CARD TABLE

OO0
N
O

.
..
.
...
L)

—

LR}

—_

—

=2 NS
On

—

LK}

2525
127

:1
~N

5252

;21

S 8

MRKCD:

A B BN

005252
000256
002525
000127
007777
000377
004000
000200
002000
000100
001000
000040
000400
000001
000200
000002
000100
000003
000040
000004
000020
000005
000010
000006
000004
000007
000002
000010
000001
000020
000002
000010
000004
000007
000010
000006
000020
000005
000040
000004
000100
000003
000200
000002
000400
000001
001000
000040
002000
000100

D 5
04-AUG-81

;80

0512

-y &~ - ea BSPOMNON

277

07-JuL-81 09:06

YM=2110A=AA

09:08

PAGE 15=40

SEQ 0055

ISl

OOOOOgOOOOOO
o
o
o
O
O

004000
000200
004000
000200
004000
000200
004000
000200
002000
000100
002000
000100
002000
000100
(002000
000100
001000
000040
001000
000040
001000
000040
001000
000040
000400
000001
000400
000001
000400
000001
000400
000001
000200
2
000200
000002
000200
000002
000200
000002
000100
000003
000100
000003
000100
000003
000100
000003
000040
4
0
000040
000004
000040
000004
000040
000004

=) =N SSNOISSO
SN S
jel=lelelelelelalel=l=l=lals

015454
015456
015460
015462
015464
015466
015470
015472
015474
015476
015500
015502
015504
015506
015510
015512
015514
015516
015520
015522
015524
015526
015530
015532
015534
015536
015540
015542
015544
015546
015550
015552
015554
015556
015560
015562
015564
015566
015570
015572
015574
015576
015600
015602
015604
015606
015610
015612
015614
015616
015620
015622
015624
015626
015630
015632

MACY11 30A(1052)

2000

MKND4O:

2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882

YM=-2110A<AA

| (MQ11=k CARD READER TEST
CVIMAA . SRC
07=JuL-81 09:06

;26

;27

9
g
04-AUG-81

09:08

PAGE 15-41

SEQ 0056

o
e

——————_——

N
o

000020

000010

004001
000220
<

;56

133

;56

314

YM=2110A=AA

;58

07=JuL-81 09:06

NE IR NS NSO =20 =20 =20 =DYWY

| (MQ11=k CARD READER TEST

N
o

15670

15644

53
52

ngWNNNN—‘—'-fl—l LSS

Shr-p

CVIMAA .SRC

~N
~N
~N
~N

54
S

r4pr4pr4phur4Phur4

YT T Y Y Y T
i
i i i
T i v
i i
i b
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNYNY
(o oW
AW TV LW T N 2 0
OO
NN NN
NOORSNOONSNNO
NOONSND
NOONSNOONSNNNGOS

O\ OO O

‘

MACY11 30A(1052)

;59

4001
MRKEND: 220

;80

F-9

04=-AUG=-81

;PRINT DECIMAL VALUE IN R2

09:08
PAGE 15-42

;END MARK SENSE TABLE

SEQ 0057

—

(MQ11=K CARD READER TEST
CVOMAA, SRC
07=JuL-81 09:06
2939
290
2941

29‘%

2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
gg;z
2975

———————————————

016010
016016
016024

016032

016040
016044
016050
016052
016056
016062
016066
016070
016072

016100
016102
016106
016110
016116
016120
016126
016130
016136
016144
016150
016152
016160
016162
016164
016166
016170
016172
016174
016176
016200
016202

012737
015737
012737

177773
016172
000040

005237
167?0%
10037
067702
004737
005237
001001
000207
062737
000754
005737
001010
022737
001404
013737
000‘0?
012737
052737
105777
100375
013777
000207
000000
000000
000040
016172
023420
001750
000144
000012

016102
000120

012737

177777

S—

YM=-Z110A<AA

MACY11 30A(1052)

016164
016170
016166

MOV
MOV
MOV

DECPR:

016162

TYPT1:

016170

TYPT3:

TYPT2:

000112
016102
016164
000002
016162
177777

016164

016166

016162

000060
000060
162652

016166
016162

016162

162644

000001

MOV

INC
SUB
BPL
ADD
JSR
INC
BNE
RTS
ADD

BR
DECOUT: TST
BNE
CMP
BEQ
MoV
BR
DECT:
MOV
BIS
DEC2:
TSTB
BPL
MOV
RTS
DIGIT:
O
DIGCNT: 0
ZERO:
40
DECPNT: .+2
10000.
1000.
100.
10.

#-<1,DIGIT

DIGIT
@aDECPNT,
%2
TYPT2
aDECPNT,
%2
%7 ,DECOUT
DIGCNT
TYPT3
%7
#2,DECPNT
TYPT1
DIGIT
DECT
#-1,DIGCNT
DECI
ZERQ,DIGIT
DEC2
#60,ZERO
#60,DIGIT
aTCSR
.4
DiGIT,3TDBR
%7

.END

————

04=-AUG-B1

#-5,DIGCNT
#DECPNT+2 ,DECPNT
#40,2ERO

000001

URUES—

S——

09:08

PAGE 15-43

SEG 0058

ALPCD

ALPCD2
ALPEND
ALPY
ALWAIT
APASS
ASWREG
AUTOB
Al
AN
A2
A3
AL
AS
A6
A7
AB

BEGIN
BELL
BINCD
BINCD2
BINEND
B.CK
B1

CARDIM

CDCNT
CHARCN
(kBIT8
ckCcoL
CKCRD
CKDONE
CKFAIL
CKHLT
CKLOOP
CKLP1
ckLP2
CKNOHD
CKSAME
CKSIT
CkSIT1
(KSWR
K4
(KS

001044
006512
006446
006630

014110
014310
014606
004552
006666
001040
001042
001046

622#
1647
1443
1679

1344
1348
1345
1330
1681
6208
6218
6234

2414
16544
1460
1682#

1351
1349
26104
13424
16924
2413«
2416
2235

012320
012441

23434
2362

012356
012364
012430
012414
012442

2353
2355
2368
2351
2359«
587
1290

23564
2358#
23714
23664
23774

1940«

1941«

012324
012334

001242
010726
014610
015010
015306
011222
012502
010622

006420
012514
011022
010364
010350
010606
010442
010574
010264
010304
010410
010500
010222
010334
010340
011626

001750
002114
002736
K9
CLCNT
006422
CLRTR
010722
CNTCRD= 004460
CNTER
006404
CNTERT
006406
012157
CNTLG
CNTLU
012152

23454
2344

1331
1335
1332
2107
2389

1300«
2390«
689
1951
1953
2008
1980
1986
19454
19504
19764
1988
597
1947
19624
1299
22274
787
828
1019
1385«
690
1328#
1013«
16264
2237
2253

2376#

1733

1703

1735

1902

1961

20534

1979
1324+

1981
1408

20164
1441

1458

1485

1503

1544

1608+

16314

755

1271

1282

1461

1488

1725

2038

20754

2085

1966

1968

1974

2010

2013

1603

1613

1644

1748

1910

1928

2075

2084

2104

1506
1006
1537
1664+

1531
20494
1555
1665+

1609+

1632#

1731

1945+

1965

1970+

1993

1352
2515#

24514

1744

2370

6634
1573
1338
1336
27724
2121#
2392#

792
B414
10224
1417
725
1483«
1016~
1663+
22914
22904

SEQ 0059

1730

1570

2367
23494

1320«
2395#
724
1969#
1965#
20114
1982
2007#
1959
1955
1977
19924
19374
1957
1963
1310

PAGE 16

16448

1487

N = NN

AENVM
ALCNT
ALLDON
ALLOK

H 5
MACY11 30A(1052)
04=-AUG-81
09:08
CROSS REFERENCE TABLE == USER SYMBOLS

YM=2110A=AA

NN
=
NOWVO

(MQ11=k CARD READER TEST
CVCMAA . SRC
07=JuL=81 09:06

26134

1722

2012

19844

1964
1983

1961#

1450
7944
1469

1536+
16254
1670«

2166

|
| (MQ11<k CARD READER TEST
CVCMAA.SRC

012444
003750
003766
004006
004024
004044
004064
004110
004156
004206
006430
006426

2332%
1199
1206
1213
1220
1207
123,
1262
1260
1270
656
£33+

2366%
12024
12094
12164
1223
1230#
12374
12464
12654
1273#
659%
€60+

23794

CONTD
CONT10
CONT11
CONT2
CONT21
CONT22
CONT4
CONT8
CRB2
CRLF

003120
003252
001606
003564
003710
001770
002614
001032
011544

1341
1051
1086
743
1156
1183
797
986%
617#
664

1343
10634
1090
7478
11604
1186#
8014
995
984
671

13548

C.CONT
C.WAIT
DATENC
DATMK
DATST
DATST1
DATST2
DATST3
DAT1
DAT2
DBRCKB
DONTT
DDISP =
DECCYC
DECK
DECKCK
DECOUT
DECPNT
DECPR
DEC1
DEC2
DEKSIZ
DELAY
DIGCNT

011340
011304
006440
004276
004362
004442
004452
004462
006434
006436
002604
004676
177570
006412
006402
006172
016102
016170
016010
016130
016144
006424
010624
016164

2148
21434
1394«
719
1289
1306
1323
13204
1386+
1398+
966
1355
619
666%
1304«
1576
2947
2940%
1504
2954
2958
1441
589
2939+

21524
2144
1406
1299
13104
1309
1326

(———

016162
001036
000174
010670
010672
001674

1793
1863

2942«
6194
5834
2022+«
2025+
763

1§
MACY11 30A(1052) 04-AUG-81

CROSS REFERENCE TABLE == USER SYMBOLS

ONTO.
CNT23A
CNT238
CNT23C
CNT23D
CNT23E
CNT23F
(NT236
CNTO4A
CNT24B
COLM1
COLSIZ

DIGIT
DISPLA
DISPRE
DLAYO
DLAYT
DONE3

07=JuL~81 09:06

YM=Z2110A=AA

179
1850

1400
1403
9844
13624
6278
673+
1308+
1582#
29534
2944
1507
2956
29614
1458
20204
2948+

2943+
2403+
2411
2024+
2026+
7704

09:08 PAGE 16=-1

SEQ 0060

1268

675+
erke

679+
78«

833
911

847
1069

1589+
1417

1593+
1469

16354
1531

1586+

1592«

16344

990
1577

1225
1650

1232
1761

1239
1762

1248
1763

13%
1764

1778

1779

1780

1781

2164
1523
1598

16394

1324#

1599

1514
1517

16374
1638#

1969+«
1978+

1979
1981

1996
1999

2403
1287+
1340+
1653

1312
1353«
1719

16284
1500
1739

1624#

2946
1994
29594

2951%
29394

29684

1485

1537

1544

16334

1722

2955
2953
2411«

29664
2957«

2960

2963

29654

2028+
20334

20324

1731

10944

1795
1861

1814
Ts62

1815
1863

1816
189

1817
1897

1827
18°8

1828
1899

1829
1992

1830
2111

1847
2194

1792

1848
2203

| (MQ11=K CARD READER TEST
CVCMAA.SRC.

07=JuUL=-B1 09:06

002410
DONE?
DSWR = 177570
011436
D.]
D.2
011446
011004
END
004240
ENDCK
004220
END24
ERCMI1 007142
ERFLG
001060
ERRVEC= 000004
002306
ERRG
005314
ERSET
005352
ER1

19
18
2168
2170
2057
1272
1264
91
328
25#
77
1381
14584

Q27
664
21744
2172
20684
1274
1278#
17474
1326+
2400
8974
14504

930%
2402

2401+

2412+

FAIL

1419

14204

005504
012445
10
005536
005460

1401

1480
2326+
1311«
1475
14794

1404

14854
2330+
1314~
14954
1482

1489
1407

1549
14664

= 104000

5504
806

704
809
899
992
1185
1454
1713

INIT

= 177570

010674

INTAG
INTFLG
INTVC

001050
001012
001014

KBCSR
KBUF
KCRB1
KCRS
K10
K1i

001016
001020
001030
001026
012000
012022
012026
012050
012052
012112
012124
011732
011772
011736
011754

ITCNT
ITMAX

K14
K15
K16
K17
K18
K19
K20
K7
K9

LACNT =
LASTCD
LASTCK
LASTWT

011462
011460

006074
006140
006006
006034

866
1754

6074
609%
6164
6154
2252
2260
22654
2228
2258
2277
2272
2245K
22554
22478
22514

2217
2219
639
638
22574
22624

15594
15724
1393
15504

1989+

NS WwWNOONONON—

822
1362
2266
641«
640

1915«
637«

1987

750

ON)—=

843

NNV

780
1256
624k
6054
606#

1885

[

HSR

1392
1710
1879
5484

895
988
1157

672

665

1944+

23804

011702

1497

HLT

1495

O NNV
O V00NN

GTSWR

SEQ 0061

12864

[

FONT
FILID
FLAG
FPRINT
FTEST

1281
1279

005200

005400

PAGE 16=2

21774

O NN
O 000 ~VWN
A= WNONNO ==
O NNWNOO—=NO

FADJ

MACY11 30A(1052)
04-AUG-81
09:08
CROSS REFERENCE TABLE =~ USER SYMBOLS

YM=2110A=AA

760

849

937
1054
1228
1621
1771

942
1058
1235
1662
1799

947
1061
1243
1672
1802

1036

1068

1099

1620

1622

2177+
2171

1919«
1753«

2236

2267

1562+

1564+

1566+

1484

1535

1539

2230
22704
22814
2274
2256
2286
2248

2234

1560+
1457

22694

22844

2283

15444

768

853

796

861
969
1089
1263
1689
1834

1142

(MA11=Kk CARD READER TEST
CVCMAA,SRC
07=JuL=-81 09:06

YM=Z110A=AA
MACY11 30A(1052) 04-AUG-81 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

2297%

2392

1075#
759
7834
7854
825#
8694
9124
9634
2187«
2188

1093
7624
785
793
834
873
913
981
2189
2195

LOGIC

LOOP11
LOOP3
LOOP4
LOOP4B
LOOPS
LOOPS
LOOP?
LOOP8
L.EOMK
L.INC
L.TOUT

MKND4O
MNEW
MODED
MRKCD
MRKEND
MSG1
MSG13
MSG14
MSG15
MSG17
MSG18
MSG19
MSG2
MSG20
MSG21
MSG22
MSG23

MSG24
MSG25
MSG26
MSG27
MSG3
MSG30
MSG4
MSG5
MSG6
MSG7
MSWR
NOHD
NOP
=
NOTCD
NOTCD1
NOTCOL
NUMCRD=
NXCRD
OFFSET
OFFS1

OFFS2
OFF6
PIRQ
PRINT
PRIOR

012212

010774

003170
001646
001716
001734
002046
002204
002336
002522
011542
011500
011502

2064n

2189¢
1307
2243
2327«
1301
1302
1772

015546
012173
012446
015310
016006
012632
013252
013340
013351
013362
013472
013512
012725
013555
013566
013576

2081
2079
1990
1759
1304
24354
1316

013013
013645
013737
014015
013000
014050
013027
013062
013133
013177
012164
005560
000240
006336
006374
005716
005762
006302
007014
007040

1774
1755
1857
1859
1757
1887
2424m
1788
1806
1823
2239
1496
5494
1530
1618
1384
15384
1379
1378
1723

013634

007114
002274
001062
011122

011246

1498

1353
1340

1308

1737
879
6334
574
653«
1077+«

2199
28564
22944
2331~
1303
29364
1808

24284

PAGE 16-3

SEQ 0062

765
790
840
923

22004

2336
2777H

2339«

2350+

1841

1889

1790

1812

1825

1843

1892

24234

1462
17224

1491

1039+
1703«

23814

24204

24294
24304

24314
24324
24334
1776
2434n
24364
24374
1810
24384
24394
24404
24224
24414

1845

1894

16014

1726

1870

1040+
1119«

1042+
1120«

1043+«
1121«

24214

24254
24264
2427H
22924
15004
16134
16214
1528#
1555
1444
1548
17284

17404
886

8934

21044
654«
1101«

1038+
17102«

1044+
1126+

1071+
1127«

1072«
1128+

1073«
1144+

1075+«
1145+«

1076+
1146+

CMQ11=k CARD READER TEST

CVCMAASRC

PROC
PROCT
PSSET
PSSET1
PTOFF
QUES
RESETB
RESTRT
REST8
REST9
RETRNX
RETURN

001056
011250
001370
004674
006442
012206
007440
001264
002642
002760
010220
011464

RSETD

010026

RSETC

007624

RTT
= 000006
RT1
012560
RT2
012566
RT3
012602
RT4
012630
SAVPC
011242

SAVPSR
SAVR2
SAVR3
SAVRG
SCONTT
SCOPE =

011244
011234
011236
011240
005040
104400

SCOPEC
SETUP
SPACE
SPACEX
SR

011376
001064
011070
011120
006432

07=JuL-81 09:06

-y

YM=2110A<AA

MACY1 1 30A(1052)

1149+«
1390+«
1552«
1741+
698
1515

1168+
1451+
1615+
21304
996
1521

1169+
1452«
1616+

1171«
1453+
1673+

1172«
1466%
1674%

1173«
1467+
1675«

1179«
1468+
1683«

1180+
1540+
1684

1366+
1541+
1695+

1367+«
1542+
1696+

1029
1524

1997

2000

2003

2006

2114

2119

21324

1509

16404

10294
1920
1917«

19214
2176

2178«

21824

04-AUG-81

CROSS REFERENCE TABLE == USER SYMBOLS

1148+
1389«
1551«
17640+
630%
1512

682
1357
1399«
2284
18064

6684
989
1021
1912«
687+
18414

18874

5524
2401
2407
2405
2415
2108«
2109«
2112«
21264

21274
1388
5514
1116
576
6374
1502
2094+
657
1473
;2?2

1167«
1391«
1614+
1742«
739
1518

684
1359
1402+
22964

6854
13614
1405+«

1293
993
1023
1913«
1749+

1586
9964
1027
1918
1904+

647
2408#
2408
24124
24174
2113
2118
2120
2132+«

2133+
13944
688
1140
21664
663
1505
2096+
676
1476
1985

09:08

PAGE 16=-4

004746
006664
006736

SRVC2A 006744
STACK
001000
SWR
001034
SWRCK
012520
SWREG
00017¢
SWTHR = 004436
TABPT
006444
TAGA
005222
TAGB
005230
TAGC
005232
TAGD
005234
TAGE
005266
TAGF
005306
TAGZ

005272

1365
1682
1693

1702
586
6184
652
584w
1322
1336
1421
1418
1424
1423
1436
1442

21284
21294
21254
2149

2150
1163

721

1190

752

1253

774

1286

819

1752

863

1786

903

1821

958

1001
1855

1034
1901

1066

1097

1747
1508
20984
683

1909
1513

1937
1516

2020
1519

1522

1995

1998

2001

2004

20914

2095

717

1288

1305

1329

1342

1358

1410

1412

1420

1422

1534
2007

1574
2022

1583
2105

1590
2121

1596
2167

16364
2169

590

593

596

6034

1292

1585

2241
1553
1349+
1428

2410
1434+

1435

1437«

1440

1646
2227

1426

13764
16914
17034

17054
588
24004
2227

1325«
1339+
14254
14274
14284
14344
14404
14444
14414

1368+
1550+
1697+

24104

SRVC
SRVC1
SRVC2

SEQ 0063

1352+«

16414

1648
2261+

1728
2402+

1736
2404

1912
2410+

CMQ11=k CARD READER TEST
CVCMAA, SRC
07=JuL-81 09:06

YM=-2110A<AA
MACY11 30A(1052) 04=-AUG=81 S09:08
CROSS REFERENCE TABLE == USER SYMBOL

TCSR

001022

28%}0

2053

2058

2061

2068

2091

2115

2143

2186

2196

2203

TDBR
TEND
TEST
TESTA

001024
006416
001372
007160

6134
1302«
667
1749

2055+«
1307+«
669
1752

2060+«
1332«
6874
1904

2093+
1345+

2117+
1414

2145«
1435

2198+
16304

2205«

2208+

2211+

2963+

TESTB
TESTC
TESTD
TESTG
TESTX
TEST1
TESTIA
TEST10
TEST11
TEST12
TEST2
TEST20
TEST21
TEST22
TEST23

007340
007524
007700
010112
010134
001400
001402
002772
003130
003262
001514
003350
003470
003574
003722

TEST3
TEST4
TESTS
TEST6
TEST7
TEST8
TEST9
TIM24
TINT10
TINT11
TINT12
TINT20
TKB
TKS
TNINT
TOTCRD
TOTERR
Tout

001622
001704
002034
002170
002322
002506
002654
004212
003070
003230
003332
003444
001020
001016
003556
010620
010616
011466

TEST24

TPB
TPS

TRET
TRFLG

TRTRAP

TSTART
TSTIB
TSTIC
TST2A
TTSTAL
TTYN
TYPEC
TYPEX
TYPOC

004126

001024
001022

001144
001054
001052
006414
001442
001500
001574
011632
012136
012450
012516
012240

1786#
18214
1855#
1901#
594
688
687
1030
10664
1 0974
4}
1164
}ég‘
}
1904

]

1 201

745
761
8194
832
889
917
970
1266
1037
1070
1100
1118
6104
608#
1143
1942+«
1943«
1317
1811
1991
6144
6124
643
6294
571
1301«
699
715
740
1765
22874
2270
2391
2242

PAGE 16=5

SEQ 0064
2206

2209

1807
1893

1809
1895

1905
’

1909#
2182
6894
10344
718

7214

1208

1215

1222

1229

769

7744

8634
894
933
983

896
943
997

900
948
1001#

7524
767

846
892
929
975
12754
1052#
10854
11094
11324
2231
2229
11574
1949«
1984+
1499
1813
2080
2387«
2385
6494
642«
6284
1331+«
7014
7174
7424
1782

23854
2393
23304

2249
2247

2268+

2002
2005
1501
1824
2082

20154
20144
1756
1826
21864

681
647
1344+

1291«
649+
1416

1796

1818

2386
23964

1236

1244

1250

12534

9034
952

9584

1773
1846
2244

1775
1858
2254

1777
1860
2285

1789
1888
2363

22164

2218

1758
1842
2238

1760
1844
2240

1356

1582+«

1425

1437

1438

16294

1831

1851

1900

2083

179
1890

(MQ11<K CARD READER TEST
CVCMAA.SRC
07-JUL=-81 09:06

YM=2110A<AA
MACY11 30A(1052) 04=-AUG=81 09:08
CROSS REFERENCE TABLE == USER SYMBOLS

TYPON
TYPOS
TYPT1
TYPTz

2332

012254
012214
016032
016040

2329
33554
39420
29430

003656
003704
002724
010210

1166
1178
1018#
1917

WerS

016072

26RO
.

016166
= 016204

T2INT
T2INTA
WAITO
XLOOP

3949

2116
. ABS.

016204

ERRORS DETECTED:

000
O

CVCMAA, CVCMAA.LST/CRF=CVCMAA.
SRC
RUN-TIME: 11 24 2 SECONDS
RUN-TIME RATIO: 211/38=5.4

CORE USED:

(15 PAGES)

SEQ 0065

2952
2945

2951

1177#
1184w
19194

2957
2941%
568
S70M
oP
e
815
8%
898
915
973
979
107
1238
77
1661
1833

PAGE 16=-6

1108
1247
1486 1690
1836

2122

2959%
5738
830
921
987
1125
12590
1582
1699
1839
2138

296/#
SBON
736
838
925
991
1131
1276
1538
1706
1972

2156

S92

738
84
931
1009
1137
1322
15¢?
1709
2040
2190

6024

749
B4R
93
1015
1153
1328
1850
1712
2044
2193

604F

795
852
939
1025
1176
1373
1%61
1716
2054
2197

648

799
B8S56
941
1047
1196
1377
1563
1732
2059
2204

693

802
860
946
1053
1203
1383
1565
1767
2062
2207

695

805
870
950
1057
1210
1397
1567
1770
2069
2210

697

807
875
954
106
1217
1456
1569
1798
2077
22874

703

808
881
964
1080
1224
1459
1575
1801
2092
2962

709

811
884
968
1088
1231
1474
165S
1804
2106
2968