Digital PDFs

AH-F415A-MC

June 1980

57 pages

Original

27MB

view download

OCR Version

32MB

view download

Document:	CZCTAA0 CTS11-JC CTS11-JC 7 BIT ASCII JUN 1980 bw
Order Number:	AH-F415A-MC
Revision:	000
Pages:	57
Original Filename:	CZCTAA0__CTS11-JC__CTS11-JC_7_BIT_ASCII__AH-F415A-MC__JUN_1980_gray.pdf

OCR Text

CTS11-JC
ZCTARD

BIT

ASCII
i

AH-F415A-MC
eW

\&728 16:5?7
(1052)

19-MAY-B0

14:57

PAGE 1

SEQ 0001

SIS GREA S E YRR UR UK 2B YRR N RUN NN R IG AR o =5 0m~0 v

«REM _

IDENTIFICATION
PRODUCT CODE :
PRODUCT NAME
:

AC=F&416A-MC
CZCTAAQ CTS11=yC 7 BIT ASCII

8035-8045 (11/70)

80 COLUMN CARD TERMINAL CONTROL
DATA FORMAT: 7 BIT ASCII
UPDATE DATE

20-MARCH 80

AUTHOR:

P.W. DUKE

MAINTAINER:

UPDATE AUTHOR:

JIM BENNETT

COMPUTER SPECIAL SYSTEMS

VIJAY ANANDWALA

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

THE SOF TWARE DESCRISED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE
WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT

IS NOT SUPPLIED BY DIGITAL.

1974,1980

DIGITAL EQIPMENT CORPORATION.

MAYNARD ,MASS.

S |

MACYTY

CZCTAA, SRC
JRAIN,

)

1?-MV-OO
14:57

14:57

1.0

PAGE
2

1
SEQ 0002 |

ABSTRACT
THIS PROGRAM TESTS T

lNTERFACE TO_AN 8035-8045

80 COLUMN READE /PUNCH.

CONSISTS OF
TS OF T
EST
THE LOGIC TESTS ARE
THE CARD TESTS ARE A
CARDS.
THE CARD TESTS SHOULD
NO
TESTS HAVE RUN SUCCESSFII.LY.
Tlf PROGRAM IS DEVICE CODE
INDEPENDENT AND THERE IS AN INPUT ROUTINE WHICH ALLOWS
THE OPERATOR TO SPECIFY DEVICE ADDRESS, INTERRU’T VECTOR
ADDRESS AND BR LEVEL.
THIS ROUTINE IS RUN
AT THE
BEGINNING OF EVERY PASS THROUGH THE PRO@M
THERE IS A
GREAT DEAL OF INTERACTION REQUIRED BETWEEN THE OPERATOR
MD THE PROGRAM.
THIS INTERACTION IS ACCOMPLISHED BY MEANS
OF TELETYPE DIRECTIONS AND MESSAGES TYPED OUT DURING THE
RUNNING OF THE PROGRAM WHICH FREQUENTLY REQUIRES OPERATOR
RESPONSE.
DIRECTIONS GIVEN TO THE OPERATOR VIA THE TELETYPE
MUST BE FOLLOWED EXACTLY TO ACHIEVE SUCCESSFUL TESTING.

2.0

REQUIREMENTS

2.1

EQUIPMENT
PDP=11 WITH MINIMUM OF 4K OF MEMORY
CTS11-JC _INTERFACE

8035-8045
2.2

80 COLUMN READER/PUNCH

PRELIMINARY PROGRAMS
ALL PROCESSOR DIAGNOSTICS MUST RUN ERROR FREE

3.0

LOADING PROCEDURE
PROCEDURE FOR LOADING NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED.

4.0

STARTING PROCEDURE
4.1

CONTROL SWITCH SETTINGS

SR15=1 CONTINUE AFTER ERROR
SR14=1 DELETE ERROR TYPEOUTS

SR13=1 LOOP ON ERROR
SR2=1 BYPASS DEVICE CODE ENTRY ROUTINE
SR1=1 DO LOGIC TESTS
SRO=1 DO CARD TESTS
4.2

OPERATOR ACTION
LOAD PROGRAM INTO MEMORY

TM ]

§§§§§§sasasfiaasasszaarazssza:auxuazasszsstazsszszxaranzs

JRIN, AT 1‘
CZCTAA, SRC

1
10

5.0

COMPLETE PASS THROUGH THE SELECTED ROUTINES THE PROGRAM

FOR ONE PASS, PRESS CONTINUE.

ERRORS

) D

v v vv

6.2

ERROR TYPEOUTS

) e e

THE MEANING OF AN ERROR HALT CAN BE DETERMINED BY READING
THE PROGRAM LISTING AT THE ADDRESS OF THE ERROR HALT.

ALL ERROR TYPEOUTS WILL INCLUDE THE FIRST LINE

SHOWN BELOW, AND WHEN RELEVANT ONE OR MORE OF THE
OTHER THREE LINES.

) ) D ) )

ERROR HALTS

)

6.1

)

6.0

TO REPEAT

)

WILL TYPE OUT 'END OF TESTING'' AND HALT.

) i

OPERATING PROCEDURE
FOLLOW DIRECTIONS GIVEN ON THE TELETYPE EXACTLY.
THIS IS
NECESSARY FOR SUCCESSFUL TESTING.
AT THE END OF A

1?7

)

TM. |

SET SWITCH REGISTER TO DESIRED OPTIONS
PRESS START

1%
1S
16

20
21
22
23

SEQ 0003

SET SWITCH REGISTER TO STARTING ADDRESS 200(8)
PRESS LOAD ADDRESS

108
109

PAGE 2-1

14:57

"ERROR AT ADDRESS AAAAAA
' 'G00D=8B88888
‘BAD =CCCCCC
"'COLUMN #=DD'’

MACY1Y 30AC1052)
19-MAY<80
19-MAY=80
CZCTAA. SRC
14:57

JRAIN,

— e

:
WHERE

AAAALA
BBRARARB
cccccce
DD

I
15

7.0

THE
THE
THE
THE

ADDRESS OF THE ERROR
EXPECTED RESULT FROM A TEST
ACTUAL RESULT FROM A TEST
COLUMN NUMBER IN ERROR

PROGRAM DESCRIPTION
7.1

152
153

LOGIC TESTS

THE LOGIC TESTS ARE A SERIES OF 6 TESTSS WHICH DO NOT
REQUIRE CARDS TO BE IN THE 8035-8045 .
THESE 6 TESTS PERFORM

154

BASIC CHECKS ON THE 4 REGISTERS ON THE INTERFACE AND

156

OF THE INTERFACE WHILE IN A STATIC CONDITION.

155

TESTS AS MUCH AS POSSIBLE OF THE OPERATIONAL CAPABILITY

157

;58

160
1

CORRECT

RESPONSE BY THE OPERATOR TO INSTRUCTIONS GIVEN VIA TYPE

OUTS IS NECESSARY FOR THIS TEST TO BE SUCCESSFUL.

7.2

CARD TESTS
~

(1052)

19-MAY<B0
v<80 14:57

14:57

PAGE 2<2

1
16
164

THE CARD TESTS ARE A SERIES OF 4 ROUTINES (PASSES)
WHICH CHECK THE ABILITY OF THE INTERFACE TO PERFORM
CORRECTLY IN CARD HANDLING OPERATIONS.
THE TESTS
REQUIRE A DECK ? 20 BLANK CARDS WHICH ARE PASSED
THROUGH THE 8035-8045 & TIMES, WHICH AT THE

165

166

CONCLUSION OF THE 4 PASSES CONTAIN PUNCHED

167
168
169

INFORMATION WHICH MUST BE VISUALLY VERIFIED BY THE
OPERATOR.
VERIFICATION OF CORRECT OPERATION OF THESE
& PASSES IS DONE BY THE OPERATOR BASED ON INSTRUCTIONS
GIVEN VIA TYPE OUTS AT THE BEGINNING AND END OF EACH

ffifi!fifififfififlgfflgfi§Qggfi§g§2qg SRS RC e e SRR R R RREB Y IFIANINTY

SEQ 0004

PASS 1 = THE OPERATOR PUTS 10 BLANK CARDS IN EACH INPUT
HOPPER.
THE PROGRAM READS THESE CARDS AND PUTS THEM INTO

) o

DETAILED DESCRIPTIONS OF WHAT IS DONE DURING

EACH PASS IS GIVEN BELOW.

PASS.

THE 2 STACKERS, 10 BLANK CARDS IN EACH STACKER.
THE
gfig:gg? VERIFIES THAT THERE ARE 10 BLANK CARDS IN EACH

—

PASS 2 = THE OPERATOR PUTS THE 20 BLANK CARDS IN THE
PRIMARY HOPPER.

THE

CARDS ARE PUNCHED IN A PRECESS FASHION WITH THE 1ST
PUNCHED CHARACTER OF CARD #1 APPEARING IN COLUMN #11
AND SO ON UNTIL THE 1ST PUCNCHED CHARACTER OF CARD #20

IS IN COLUMN #31.

#1,

THE CARDS ARE ALL PLACED IN STACKER

THE OPERATOR VERIFIES THAT THE CHARACTER

SET APPEARS IN EACH CARD AND THAT PUNCHING WAS DONE IN
A PRECESS FASHION.
THE CHARACTERS APPEAR ON THE CARDS

IN THE ORDER SHOWN BELOW:

"WSXL' (O v+ ,~./0123456789: ; <=>?@ABCDEF GHIJKLMNOPQRS TUVWXYZ _
.REM _

PASS 3 = THE OPERATOR PUTS THE 20 CARDS IN THE
PRIMARY HOPPER.

THE PROGRAM READS THE CARDS AND ALSO

PUNCHES MORE CHARACTERS ON EACH CARD BEGINNING WITH
COLUMN #1, CARD #1 WILL HAVE 1 CHARACTER PUNCHED ON IT,

CARD #2 WILL HAVE 2 CHARACTERS UP TO CARD #20 WHICH

WILL HAVE 20 CHARACTERS PUNCHED ON IT.
ALL THE
CHARACTERS PUNCHED IN THIS TEST WILL BE THE ‘A’
CHARACTER.
THE CARDS WILL BE PLACED IN STACKER #1,
THE OPERATOR VERIFIES THAT THESE CHARACTERS WERE

PUNCHED CORRECTLY

BN
NONA
W =0

THE PROGRAM READS THESE CARDS AND ALSO

PUNCHES THE CHARACTER SET ON EACH CARD.

THIS IS THE END OF THE CARD TESTS.

:CTS11-JC 80 COLUMN CARD TERMIMAIf CONTROL INTERFACE TEST (11/70)

;DATA IS IN (7 BIT) ASCII FORMA
; _ w=x«x MODEL 803 5-8045 wrnxx
s DECSPEC~-AONCDA
sAUTHORS :
;

P. W. DUKE

A. L. UNSER

JWAIN, MACYTY
1
CZCTAA, SRC

(1052)
19-MAY-B0
Y=80 14:57

218

N33

GB=3
G=2
B=1

WTDONE

#200,aTCR
.~6

;WAIT FOR DONE FLAG

.MACR
BITB
BEQ

WTODR
#200,aTIRHI
’

sWAIT FOR OUTPUT DATA REQUEST

.MACR

WTIDR

BEQ
.ENDM

.~6

.ENDM

BIT

#200,aTIR

-MACR

LOOP A

CMP

#1_,SCOPE

BNE

.+6

.NLIST

BNE
CMP

;WAIT FOR INPUT DATA REQUEST

;READ CMD REGISTER

.+16
#.-10,LASTPC

.LIST
P
.ENDM

.MACR

CKTCR A.B

MoV
MOV

A,GOOD
aTCR,BAD

LP=,

.MACR

BIT
BEQ
.ENDM

FRAFAXARSLYUARAY

253

TYPE=TRAP
COL=

231

000004
000003
000002
000001

261
262
243
ik
245
266
247
248
249
250

XX=HAL
T

ERR=EMT

104000
104400

239
260

000008
000007
000000

RO=X0
R1=X1
R2=X2
R3=23
R4=X4
R5=X5
SP=%6
PC=X7

e BBV
.

000005

000004
000005

PS=177776
=177570
TKS=177560
TKB=177562
TPS=177564
TPB=177566

177566
000000
000001

234
235

236
237
238

177776
177570
177560
177562
177564

VPV

Zgg

LIST
.ABS

53\

czc

s;g

SEQ 0005

PAGE 2-3

;19<DEC-73
s CUPDATED=MARCH=-80]

519

224
225
22?
22
228

14:57

—

JRAIN, MACYTY
CZCTAA SRC
1

PAGE 2-4

SEQ 0006

ZTS

cTMMP

BEQ

GOOD ,BAD

LOOP

.MACR
LP=,

CKTSR A.B

ERR+GB

.ENDM

280
281
gg

MOV

284
285
286
287
288

A,GOOD

MOV
CMP
BEQ
ERR+GB
LOOP

aTSR,BAD
GOOD ,BAD
YA

.MACR

CKTDR A.B

.ENDM

289

290
N

LP=.

292

MOV

gls.

A,GOOD

MOV

@TDR,BAD

cTMMP

GOOD ,BAD

ERR+GB
LOOP
.ENDM

300

.MACR

CKTIR A.B

302
303
304

MOV
MOV
cTMMP

A,GOOD
aTIR,BAD
GOOD ,BAD

306
307
308

ERR+GB
LOOP
.ENDM

295

BEQ

296
297
298
Vel

305

BEQ

000000

322
323

000034
000036

325
326

000174
000176

324

327
328
329

000034

013312
000340

ERROR
340

.WORD
WORD

TYPOUT
340

=174

DISPREG:.WORD 0
SWREG:
.WORD 0

000004
177570
(1%%8

ERRVEC=4
DSWR=177570
DDISP=177S(7)8

000502

177570

DISPLAY: .WORD

SWR:

_WORD DSWR ;;ADDRESS OF SWITCH REGISTER
DDISP

;ADDRESS OF DISPLAY REGISTER

000510

000000

ASWREG:

.WORD

;APT SWITCH REGISTER

éxfi 000500 177570
335

.=30

013126
000340

000000
000000

s INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

.=0

000030

000174

;READ INTERRUPT REGISTER

321

000030
000032

;DATA REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

317

;READ DATA REGISTER

316

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

309
318
gg

JREAD STATUS REGISTER

;TIME OUT AND OTHER ERROR
sHARDWARE SWITCH REGISTER
sHARDWARE DISPLAY REGISTER

278

279

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

S"g

19-MAY-B0 14:57

14:57

'clcwx.

19-MAY=B0

MACYYIY 30A(10$2)

JRAIN.

JMP

.=1000

START:

START
#340,PS

:SET BPU TO LEVEL #7

SCOPE

*INITIALIZE SCOPE

PC, SWRCK

PC.GTSWR

177440
JSR

003144

ST3:

BIT
BEQ
JSR

#1,3SWR

:IF aSwR1=1

:GO DO LOGIC TESTS

TYPE

JMP

sT$

pc PASS1

:IF SRO=1

*GO DO CARD TESTS

:"END OF TESTING''

ENDMSG
XX

001046

ST2

PC,INIT

:GO TO DEVICE CODE ENTRY ROUTINE

ST2:

#2,aSWR

:IF SR2=0

177410

BIT
BEQ
JSR

:"'CZCTAA.SRC"*

ST1:

#4,3SWR
STi
PC,DEVCOD

:INITIALIZE THE STACK POINTER

1774624

000026
000001

;AUTOMATIC MODE INDICATOR
* INTERRUPT MODE INDICATOR

#1000, SP

012722

000002

0
0

*HALT AT END

176770

011644

«WORD
.WORD

SEQ 0007

e
e

—

iNIT:

Ji'xxxxx

| OGIC

TESTS

mannx’’

OFF-LINE, REMOVE ALL CARDS

000000

017326

017264

a#INIT1

#0,INITT
#0,G0O0D

aTSR,BAD
GOOD

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

b
b
o

INIT1

o
o

;READ CMD REGISTER

aTCR,BAD
GOOD
-’4

#0,G00D

;TEST CMD REG FOR 0

#0,INITT

001130

017350
017332
017324

:"PRESS CR TO CONTINUE''

;TEST STATUS REG FOR 0

000000
017374
017336

INIT1:

;PRESS STOP-RESET ON 8035-8045

PC,CONTIN

: g

010656

;"PUT THE 8035-8045

g ¥ SEREEK KERRNY

b
h d e
e
d d b h o ok h h
i
h i

o8N

:3 REGISTERS SHOULD EQUAL ZERO AT INITIALIZATION

000574

000004

8 8888888 8388838888

15
w

004767

PAGE 2-5

AUTOB:
INTAG:

000340
001000
017514
013520
001

14:57

000000

001000

—

EREFPRRREEL
1 AS
RUKIGEELES
w

oo lelolele
ol

ewewwvwwvww

Ndddd-dd

—

379

12;HAY-80

000000

39
1

;READ STATUS REGISTER

000512

000514

—

gzz

(1052)

JMAIN, MCY“
CZCTAA,SRC

MACYY mWSZ)
19-MAY=B0
1
Y-80 14:57

PPN
ey
NN PN N

s i i

PN
PN

N i il

_Mwww

14:57

PAGE 2-<6

SEQ 0008

001401
104003

BEQ
ERR+GB

000137

JMP
CKTIR

@HINITI
#0,INIT1

MOV.

#0,GOOD

LOOP

7224

MOV

767
001401
04003

g?o’

ERR+GB

lal
A% |

JMAIN,

| CZCTAA SRC

RYA
INIT1

aTiR,BAD
o+

oty

LOOP
JWP

INIT1
SXINITI

JMP

BATESTY

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE
;TEST INTERRUPT REG FOR 0
:READ INTERRUPT REGISTER

: INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

?
|
|

:LOAD-READ TEST OF COMMAND REGISTER

N N

017166

001352

TIB:

MOV
CKTCR
=,

N
N N

MOV

ERR+GB

PN i e

N N

LOOP
JWP
P

JPE8LS
L lalalale)
— ) D b
ewwwvw

S85RE8
SRE8¥RRS

MOV
MOV

MOV

017130
017112
017104

e i

alalalelelolele)

016777

TEST1:
T1A:

017100

000000
017064
017026

ATILST,.R2
(R2)+,HOLD
HOLD,aTCR
HOLD.T1B

HOLD, GOOD
QTCR.BAD

TIB
MTIB
R2ATIEND+2

:LOAD CMD REGISTER
:TEST CMD REG FOR CORRECT VALUE

017040
017022
017014

:READ CMD REGISTER

:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;

l
1
|

MOV

#74136.3TCR

:LOAD COMMAND REG WITH ALL BITS

Egzm

#0,T1C

;TEST CMD REG FOR 0

MOV

#0,GOOD

MOV
CMP

BEQ

ERR+GB

@TCR.BAD
GOOD.BAD

001432

LOOP
JMP

TIC
TIC

001552

JMP

QHTEST2

TILST:

|
!

:NOW SEE I RESET CLEARS ALL BITS THAT CAN BE SET IN THE COMMAND REGISTER
1C:

|
;

:READ CMD REGISTER

:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

|
,

|
|
|

40000
20000

|
|

100

;

10000
4000
20

g
;
;

SS——|

408

001542

410
:}1

001546
001550

415

001552

001556

4«09 001544

00155¢

14:57

PAGE 2-7

0741
000000

TIEND:

104400

Test2:

mm;
004767

418
lz}? 001562 001562

SEQ 0009

74136
©

sTEST THAT DONE BIT IS ONLY BIT SET IN 3 REGISTERS

010224

TYPE

T2MSG1

JSR

PC,CONTIN

001562 012767 000200 016720

MOV

#200, GOOD

(1)
(1)

001576 026767 016706
001604 001401

cTMMP
BEQ

GOOD ,BAD
.+

001570

017767

001606
001610

104003

lg())

001634

001630 000137
163

001562

(1)

001634

000000

(2)

(1)
(1)
(1)
(1)
(1)

(2)

001642
001650
001656
001660
001662

001702

421

001706

(1)

001706

012767

017767
026767
001401
104003

000137

001706
012767

016676
016634

000000

001714
001722
001730
001732
001734

001754

000137

001706

001760

000137

001764

016674

ERR+GB
LOOP

JMP

016646

016630
016622

016634
016562

016556
016550

432

433
434
435
436
437
438
439

#0,GOOD

MOV
CMP
BEQ
ERR+GB
LOOP

aTSR_BAD
GOOD ,BAD
A

CKTIR

#0,LP

MOV

#0, GOOD

JTEST STATUS REG FOR 0
sREAD STATUS REGISTER

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

MLP

;TEST INTERRUPT REG FOR 0

aTIR,BAD
GOOD ,BAD
A

JREAD INTERRUPT REGISTER
s INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

JMP

NTEST3

sTEST THAT DONE BIT CAUSES INTERRUPT TO CORRECT ADDRESS AND BR LEVEL
001764

428 001772
429 002000
430 002006

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

MOV

MOV
P
BEQ
ERR+GB
LOOP

JREAD CMD REGISTER

#0,LP

LP=.

016574

aTCR,BAD

EO;TSR

JMP

&
427

MOV

001634

(1)
(1)
(1)
(1)
(1)

017767
026767
001401
104003

016702

002014

002022
002030
002032
002034
002040
002042
002044

012767

000340

176004

012767 000007
012777 002072
012777 000340

016520
016552
016546

012777

016516

162767
000240
000240
005367
100370
104000

000100

000040
016460

175746

TEST3:

MOV

MOV
MOV
MOV

#340,PS

#7 LEVEL
#TSINT. aPCV

:SETUP PC VECTOR

#340,aPSV

*SETUP PS VECTOR

sSHOULD GET AN INTERRLPT WHEN BPU IS SET TO ONE LEVEL BELOW BR LEVEL FOR DEVICE
T3A:

MOV

SUB
NOP
NOP
DEC
BPL
ERR
LOOP

#100,aTCR

;ENABLE INTERRUPT IN CMD REG

#40,PS
LEVEL
T3A

TEST3

*DROP BPU LEVEL BY 1

;IF LEVEL IS 0 OR HIGHER
GO WAIT FOR INT
GOT NO INTERRUPT WITH BPU AT LEVEL 0

——————

(1)
(1)

016744

ON-LINE AND PRESS START ON THE 8035''

;DONE SHOULD BE THE ONLY BIT SET IN 3 REGISTERS
E;TCR
#200,LP
sTEST CMD REG FOR DONE FLAG

(1)

s PUT 8035-8045

J"PRESS CR TO CONTINUE''

416

19-MAY=B0

14:57

:}5

1938)

TM I

MCY“‘

JMAIN,

CZCTAA.SRC

14:57 PAGE 2-8
J 14: 9-MAY-B0
57

(1052)

?g?m:

002150

226

000137

002230

002152

017767
026767
001401

#6,SP
BRLV, GOOD
LEVEL ,BAD

;HOUSE KEEPING OF STACK
:GOOD=BR LEVEL OF DEVICE
:BAD=LEVEL AT WHICH INTERRUPT OCCURRED

)

: INTERRUPT OCCURRED AT WRONG LEVEL

#200,738

;CLEAR OUT CMD REG WITH RESET

84
5000,

TEST3
HTEST3

138:

000200
016354

#200, GOOD

aTCR.BAD

016316

600D ;84D

:TEST CMD REG FOR DONE

;READ CMD REGISTER

104003

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

HT38
JMP

HTEST4

:TEST THAT HOPPER EMPTY (AN BE DETECTED WHEN HOPPERS ARE SELECTED, THAT

sHOPPER EMPTY BEING SET CAUSES INPUT ERROR TO SET AND THIS IN TURN CAUSES
cERROR BIT TO SET IN THE CMD REG. TEST THAT ERROR BIT CAUSES AN INTERRUPT.

*TEST FOR PRIMARY HOPPER EMPTY
MOVB
#40,aTCRHI
:SELECT PRIMARY HOPPER
Sgrsn #220, TEST4
*TEST FOR IE + HE

TEST4:

MOV
MOV

016220

Bc?;

#220,G0OD
aTSR.BAD
.

ERR+GB
LOOP
TEST4
JWP
MHTESTS

000220
016274
016232

D
— e ed

026767

— e e

)e e e

g288858 ER%aEEes
33 INEBX X8k

gaAAAAAAASAAAAAaAA
2ol »F oFv'x
Nubcdadauaad
@D
aO\Nwcb
D aca a0 NN

JMP
?gssrs
BR
:GOT INTERRUPT, NOW TEST TO SEE THAT IT OCCURRED AT CORRECT LEVEL

000137

b el

i e i

_Mwwwwwvwvwvvws

SSEBB
A A

2512 ESEEEELEE

000137
ooosgr
062
016%
016767

SEQ 0010

002230

016172
016154
016146

;READ STATUS REGISTER

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

ffi""

#120200,TEST4

:TEST FOR ERR + HSO + DONE

MOV
MOV
Bc?;
ERR+GB
LOOP
JMP

#120200, GOOD
aTCR,BAD
GOOD ,BAD

;READ CMD REGISTER

.‘

TEST4

NTESTS

’

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;TEST THAT RESET WILL CLEAR OUT CMD REG

T4A:

RESET

E',S’CR

#200, T4A

MOV
MOV
CMP
BEQ

#200, GOOD
aTCR.BAD
GOOD.
.44

;CLEAR OUT CMD REG WITH RESET

;TEST CMD REG FOR DONE

;READ CMD REGISTER

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

MACYI

JAIN,

CZCTAA,SRC

Qg
3 g
(2)

00251

?fi

002516

(1)
(1)

002540
002542

(2)
469

002564

M NZSg
(1)

470
&71
472
&73
476
475
4«76
477
478
(1)
479
480

104003

000137

002362

narre

000100

012767
017767
026767

000220

ERR+GB
LOOP

JMP

016076

T¢8:

016024

002666

(1)
(1)
(1)
(1)
(1)
(1)
(2)
4«82

002666
002674
002702
002710
002712
002714
002734

002746

(1)
(1)
(1)
(1)
(1)
(1)
(2)

002746
002754
002762
002
002772
002774
003014

MOVB

INTLA

140200

#100,aTCRHI

SELECT SECONDARY HOPPER

sTEST FOR IE + HE

MOV
MOV

#220, GOOD
@TSR,BAD

:READ STATUS REGISTER

BEQ

JMP

016010
015752

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

#220.T4B

ERR+GB
LOOP

GOOD,

T4B

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

f',i’c“

#140200, T4B

;TEST FOR ERR + HS1 + DONE

MOV
MOV
cTMP
BEQ

#140200, GOOD
aTCR,BAD
GOOD ,BAD
.+

;READ CMD REGISTER

ERR+GB
LOOP

JMP

175156

T4A

Egrsa
P

002436

002570
002576
002604
002612
002620
002622
002626
002632
002634
002654
002660
002662

SEQ 0011

:TEST FOR SECONDARY HOPPER EMP

002544

fi}

483

PAGE 2-9

T48

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;TEST THAT ERROR BIT IN CMD REG CAUSES AN INT
MOVB
#100,3TCR
sENABLE INT
MOV
#T4LINT,aPCV
:SETUP PC VECTOR
MOV
#340,aPSV
;SETUP PS VECTOR
T4C:
MOV
#40.PS
;SET BPU TO LEVEL M
NOP
NOP

175144

MOV

#340,PS

JMP
BR

;NT4C
T4D

ERR
LOOP

T4INT:
T4D:

015614

T4C

;SET BPU TO LEVEL #7

;WITH ERROR BIT SET IN CMD REG INT DIDN'T OCCUR

ADD
fflm

#4,SP
#140300,
T4D

;HOUSE KEEPING ON STACK
;TEST FOR ERR + HS1 + IE + DONE

MOV
MOV
cTMP
BEQ

#140300,GOOD
aTCR,BAD
GOOD ,BAD
.+

;READ CMD REGISTER

ERR+GB
LOOP
JmMP

T4D
a#T4D

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;TEST THAT UUTING A 1

T4E:

002740
000200
01 5563
01552

002740

MOV

E;rcn

TO ERROR BIT WILL CLEAR IT
sCLEAR ERROR BIT BY WRITING A 1
#200, T4E
sTEST CMD REG FOR DONE

MOV
MOV

#200, GOOD
aTCR.BAD

#400,aTCR

GOOD ,BAD

ERR+GB
LOOP

T4E

JMP

INT4LE

9}
19}
)

14:57

2
g
1)

19-MAY<B0

10
1

(1052)

)
(1)

15AAT-80 16187

TO IT

;READ CMD REGISTER

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

JWIN, MACYTY
CZCTAA SRC

(1052)

\&V

1?-#1-00

14:57

PAGE 2-10

003020

SEQ 0012
#0, T4E

002740

CKTSR
LP=.
MOV
MOV
P
BEQ
ERR+GB
LOOP
JMP

003076

JMP

WHNTESTS

1551

61345

388

PN
—

NN NN PN
i ) ) el e

JRAIN, MACY1
CZCTAA,SRC

015462
015444
015436

#0,GOOD

aTSR,BAD
GOOD,

T4E
AFTLE

sTEST STATUS REG FOR 0
JREAD STATUS REGISTER

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

:TEST FOR PROPER STACKER FULL DETECTION FROM BOTH STACKERS INDIVIDUALLY
¢ AND THEN IN STACKER OVERFLOW MODE

*TEST FOR STACKER #1 FULL

TESTS:

015424

PC,CONTIN

:'PUT B035-8045 OFF-LINE
:"PRESS CR TO CONTINUE''

#10,aTCRHI

sSELECT STACKER M

PC,CONTIN

;'PUT B035-8045 ON-LINE AND PRESS START ON 8035'°
:"PRESS CR TO CONTINUE''

;'"PULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH
;WILL SIMULATE STACKER FULL AND RELEASE''

#110000, GOOD
aTSR,BAD
GOOD

;READ STATUS REGISTER

015256
015240
015232

#104000, GOOD
aTCR,BAD
GOOD
+4

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

T5A
aFT5A
#104000,LP

;WAIT FOR STACKER FULL FLAG
;TEST FOR OE + SF

P, P

#110000,T5A

P, B

T5A

;'PROGRAM WILL WAIT FOR STACKER FULL FLAG''

;TEST FOR ERR + SSO

P, PN

015330
015312
015304

#20,3TSRHI

;READ CMD REGISTER

P, B

T5A:

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

#0758

S STOP-RESET AND PRESS START ON THE 8035-8045 ‘'
;WAIT FOR_STACKER FULL TO GO AWAY

;TEST STATUS REG FOR 0

. P

#20.3TSRAI

T158B:

015236

LP
a#LP

P, B

015376

pury

§g% :

QO
=t

JSR
RESET
MOVB

—

e e

e —d

e il leale bl

CER

000010

TYPE
TSM1

I
013152
015144

001 601
104003

#0, GOOD
aTSR,BAD
GOOD ,BAD
.+

LOOP

TS8

JMP
Egcn
MOV
MOV
CTMP
BEQ

—

e
NS

D
—

ERR+GB
LOOP

JMP

015076

58
#104000,LP
#104000, GOOD
aTCR,BAD
.BAD
.+
LP

TYPE

:READ CMD REGISTER

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;SELECT STACKER #2 + CLEAR ERR

TSMSG2

:MILL SIMULATE STACKER FULL AND HOLD IT THERE''

TSMSG3
BITB

#20,aTSRHI

E,'fi's“

#110000, T5¢C

:WAIT FOR STACKER FULL FLAG
:TEST FOR OF + SF

MOV
MOV

#110000, GOOD
@TSR,BAD

:READ STATUS REGISTER

TSC

:'PROGRAM WILL WAIT FOR STACKER FULL FLAG'

110000

015012

LOOP
JMP

T5C_
aT>C

BITB

tio.arsaul

CKTSR

#0,7T5D

:WAIT FOR STACKER FULL TO GO AWAY
:TEST STATUS REG FOR 0

MOV
MOV
CMP
BEQ

#0,GOO0D
aTSR,BAD
GOOD ,BAD
.+

:READ STAT . REGISTER

LOOP
JMP

15D
a#15D

JSR

PC,CONTIN

MOV

#1,3TCR

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

.
.

003460

BEQ

GOOD ,BAD

003546

BB
e
e
B
.
e

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

IN STACKER OVERFLOW MODE

000001

014670

;'PRESS START OM THE 8035-8045 **
:*PRESS CR T0 CONTINUE
:CLEAR OUT CMD REG
:SET STACKER OVERFLOW MODE + GO

;"PULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH

006146

s TEST Fflr! STACKER FULL

;

TSD

000000
014754
014712

BNE

:"PRESS STOP-RESET AND PRESS ON THE 8035-8045 **

TSD:

000020

S3333Ms

015042
015000

;TEST FOR ERR + SSO

:"PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH

BEQ

:STATUS REG = VALUE hcAD NOT EQUAL TO EXPECTED VALUE

TSMSGS

TYPE

1SC:

sREAD STATUS REGISTER

czc

;TEST FOR STACKER #2 FULL
MOVB
#31,aTCRHI
TYPE

015060

SEQ 0013 |

SS33SRUERS SCEEEEEEL
LY O R

MOV
MOV
P
BEQ

ERR+GB

000137

LW I

el
lalealelaleal
o

PAGE 2-11

0;767

14:57

IMFOO

)

\nm\naAAAAAAAmAAAA;.
—
) ) ) e e B [\ o e

vwvuwl vewww ~

~
—a

)

JMAIN, MACYT1Y
CZCTAA,SRC

004020
004026
004034
004042
004044
004046
004066
004072

Ssg}

004074

014602

012767
017767
026767
001401
104003

110000
014564
014522

014534
014516
014510

000137

003736

004020
012767
017767
026767
001401
104003

100000
014506
014450

000137
000005
000137

TSF
BTSF

#100000,LP

004020
004100

JMP

NTESTE

RESET

sWAIT FOR STACKER FULL FLAG
sTEST FOR OE + SF
sREAD STATUS REGISTER
sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

sTEST FOR ERR

#100000,GO0D
aTCR,BAD
GOOD.BAD
.+

;READ CMD REGISTER
;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

001374
162767

004126

004142
004144
004152
004154
004162
004164

162767

001374
162767
001374
162767
001374

014420

000001

014352

000001

014342

000001

014332

000001

014322

MOV

l26001 .OTCR

41 oNr

CLR

BNE
SUB

BNE
SUB
BNE
SUB
BNE
CKTSR

A% |
TMe
e

004132
00413%

020001

014360

012777

.-b
#1,CNT
.-b
#1,CNT
.-b
#1,CNT
.-6
#320,LP

s ISSUE GO COMMAND TO PRIMARY HOPPER

BB PR

005067

:"PRESS STOP-RESET AND PRESS ON THE 8035-8045 '
:"PRESS CR TO CONTINUE''

004120

004112

PC,CONTIN

570

JSR

005674

RESET
TYPE
P2MSG3

004767

TEST6:

sFORCE INPUT CHECK ERROR BY TRYING TO FEED A CARD FROM AN EMPTY HOPPER
000005
104400
016715

576
575
576
577
578
579

#110000,G00D
aTSR,BAD
GOOD.BAD
.+

LP
amP

004100
004102
004106
004106

571

LP=.

#20.@TSRHI
T5F
#110000,
TSF

MOV.
MOV
(W
BEQ
ERR+GB
LOOP
JWP

565
566
567
568

572
573

LP=,

MOv.
MOV
(W
BEQ
ERR+GB
LOOP
JWP
CKTCR

014462
014444
014436

5522

569

TSF:

)

(1)
(1)
(1)
(1)
(1)
(1)
(2)
359

)

000020

003745

:"PROGRAM WILL WAIT FOR STACKER FULL FLAG

003746
003754
003762
003770
003772
003774
004014
004020

TSMSG3
BITB
BEQ
CKTSR

(1)
(1)
(1)
(1)
(1)
(1)
(2)
558

sWILL SIMULATE STACKER FULL AND RELEASE''

015735
132777
001774

T5MSG2

TYPE

003734
003736
003744
003746

104400

:'"PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH

554
555
556
557

003732

015665

553

TYPE

;%ESGS

Ssi 003

104400

?&‘wm

TSE

BATSE
PC,CONTIN

sSTACKER FULL FLAG SET WITH ONLY STACKER M
:FULL WHEN IN OVERFLOW MODE
‘
.
‘
:'PRESS CR TO CONTINUE

%33

LOOP

JW
JSR

gg_(‘)

ERR

#20,aTSRHI

000137
004767

BEQ

003712
003716

BITB

104000

547
(1)
48

549 003722

TSE:

003660
006064

014660

sWILL SIMULATE STACKER FULL AND RELEASE

0036

TYPE

TSMSG2

000020

SEQ 0014

001401

PAGE 2-12

Og%

14:57

003656

19-MAY<B0

)

MACYIY

JAIN.,

;DELAY 1 SECOND
STEST FOR IE + IC + HE

CZCTAA.SRC
I&Y% 14:57
541
56 1044

1T -

1401
104003

000137

000005
000207

000320
014
014304

14:57

PAGE 2-13

LP=.

Q143
014
01427

mov.
MOV
CMP

#320,G600D
@TSR.BAD
GOOD.BAD

BEQ
.+
ERRGB

004164

JMP

RESET
RTS

SEQ 0015 |

Y-80

;READ STATUS REGISTER

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

amP

;EXIT LOGIC TEST

STHIS TEST FEEDS 20 BLANK CARDS, 10 FROM EACH HOPPER, INTO THE STACKERS

000137

004310

012777

024001

004370
004376
004404
004412

012767 024000 014112

017767
80%?{3;

014150

014074
014066

000137

005067

162767
001374

CKTCR TM

#4200,LP

;TEST FOR SSO + DONE FLAG

MOV.

#4200,G0OD

MOV
CMP

aTCR,BAD
GOOD.BAD

BEQ
.+
Egg;ca S

004370

1 014030

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

MLP
:SEE IF TSSUING GO-CLEARS THE DONE FLAG (READ 1ST CARD)
MOV
#24001,3TCR
:ISSUE HSO + SSO + GO

CKTCR

#24000.LP

MOV.

#24000,GOOD

MOV
P

@TCR.BAD
600D BAD

ERRSGB *
014036

;READ CMD REGISTER

JMP

SUB
BNE

#1,CNT
-6

CLR

CNT

*TEST FOR HSO + SSO

. M. M.
.
. B, B
. B,
.
.
.
.
. B, B, L.

“*PRESS CR TO CONTINUE'"

.’

104003

s
[« ¥

014136
014100

PC.CONTIN

. B, B, B, B,

014154
014146

38
3

001401
104003

: START ON THE 8035-8045'

JSR

;DONE + SSO SHOULD BE THE ONLY BITS SET IN THE CMD REG

004200 014172

014216
014160

:"PUT 8035-8045 ON-LINE AND PRESS

. B, B, B, B,

017767
026767

005476

:*PUT 10 BLANK CARDS IN EACH INPUT HOPPER''

012767

PIMSG3

;SELECT STACKER #1

004310

u;;gescz

#10.aTCRHI

*'PRESS CR TO CONTINUE''

;READ CMD REGISTER

MOV

;"waaxs CARD TESTS swwes’’
:'REMOVE ALL CARDS AND PUT THE 8035-8045 OFF~LINE""

004767

TYPE
CRDTST
TYPE
PIMSG1
JSR
PC.CONTIN
JSR_ PCLCKSWR

)

:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

07640

004310

004332
004334
004336
004356

014246

RESET

o1cc«.1:zC

000010

PASS1:

§ 88
g S8

112777

104400
016274
104400
016327
004767 005526
oom; 007420

(10 INTO EACH STACKER). THE CARDS ARE TESTED FOR ALL SPACES AND

TESTING IS DONE T0 INSURE THAT THE INPUT DATA REQUEST CAN CAUSE
AN INTERRUPT.

:SRRt

:
:

b o e o o

588
258

81;767
177267
886767

—

ot e lalalelalel ~

CLEREEE
PRSP ERERL A b S
b b

Vewwwww

lalalalalelelele)

= e

Vewwwww

e lelalolalolale)

004164

0041
0041

-—

v-ifi u.:gr -

(1052

MCY“‘
CZCTAA.SRC

000137

004540

617 004612 052777 001100 013720
618 004620 012777 004704 013732
619 w 012777 000340 013726
012767

000040

173134

623 004646 012767 000340
626 004654 104000

173122

621
622

(1)

004642
004644

004656

000240

004676

000137

004634

627

004706

062706

000004

629

004714

(1)
(1)
(1)
(1)
(1)

004714
004722
004730
004736
004740

(2)

(1)
(1)

626 004702 000402
628

(1)

004710

004767

004714

004010
013616
013554

004762

000137

004714

004766
004774

012767
017767

025300
013540

005010
005012

001401
104003

c(;.;.()) 004766 (1)

(1)
(1)

(1)

632

633
634

005002

005014

026767

013502

% . o

005040

005046
005054

012767

012777

000010

025001

MOV
#200, GOOD
MOV
aTIR.BAD
cMP
GOOD ,BAD
BEQ
et
ERR+GB
LOOP

P1A:

P1INT:
PIB:

#1100,aTCR
#P1INT,aPCV
#340, 3PSV
#40,PS

*SET BPU TO LEVEL #1

MOV
ERR

#340,PS

;SET BPU TO LEVEL #7
:INPUT DATA REQUEST DIDN'T CAUSE AN INTERRUPT

JMP

APIA

ADD

#4,SP

;HOUSE KEEPING ON STACK

CKTSR

#4010,LP

*TEST FOR CIW

MOV
MOV
cwP
BEQ
ERR+GB

#4010, GOOD
aTSR,BAD
GOOD ,BAD
.+

;READ STATUS REGISTER

JMP

IMLP

MOV
NOP
NOP

JSR

013514
013476
013470

;ENABLE INT
*SETUP PC VECTOR
*SETUP PS VECTOR

PIA

P1B

PC .BLKCRD

:TEST FOR BLANK CARD

.
;STATUS REG =~ VALUE READ NOT EQUAL TO EXPECTED VALUE

f',fi""

#25300,LP

sTEST FOR HSO + SSO + DONE + INT EN

MOV
MOV

#25300, GOOD
aTCR.BAD

:READ CMD REGISTER

GOOD .BAD

LOOP

MOV

#10,CNT1

BEQ
ERR+GB

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

READ cn%'; "2 9% PRIMARY HOPPER
PID:

MOV

WTIDR

~
i~
— —

—

BIS
MOV
MOV

—

LOOP

013464

: INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

JMP

LP=.

013566
013550
013542

013440

;READ INTERRUPT REGISTER

;SEE IF INPUT DATA REQUEST WILL CAUSE AN INTERRUPT

LOOP

005122

012767
017767
026767
001401
104003

004742

LP=.

012767 000200 013742
017767 014002 013724
026767 013730 013716
001401
104003

;TEST FOR IDR

004540

MLP

#200,LP

CKTIR

004606

616

004566

JMP

(2)

(1)

004466

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

004540
004546
004554
004562
004564

(1)
(1)
(1)
(1)
(1)

LOOP

BEQ
ERR+GB

GOOD ,BAD

#25001.a1CR

000137

004540

;READ STATUS REGISTER

004534

615

004514

013770

(2)

014002

001401
104003

026767

#4011, GOOD
aTSR,BAD

004510
004512

004

MOV
MOV

BN
SR

(1)
(1)

(1)

014014
013776

*TEST FOR CIW + RDR

004466 012767 004011
004476 017767 014044

:DELAY 1 SECOND

#4011,LP

(1)
(1)

CKTSR
LP=.

#1,CNT
-

oo«eg

SuB
BNE

004466

014020

004456 162767 000001
004464 001374

SEQ 0016

14:57

;ISSUE HSO + SSO + GO

PAGE 2-14

614
3

14:57

612
613

1?-6"-00

(1052)

o
~

JAIN, MACYT
CZCTAA. SRC

JAIN. MACY1Y
30AC1052)
19-MAY=B0
CZCTAA.SRC
19-MAY=80 14:57

(1)

005054

032777

(1)

005062 001774

)

005064

635

(1)
(1)
(1)
(1)
(1)

(1)

005064

005064
005072
005100
005106
005110
0051

000200

14:57

013472

012767 004011 013416
017767 013446 013400
026767 013404 013372
001401
104003

& 005132
000137 005064
005136 004767 004674
(1)
(1)
(1)
(1)
(1)

(1)

(2)

638

005142
005150
005156
005164
005166

005170

012767
017767
026767
001401
104003

005214

005367

641
642
(1)

005222 012777
005230

005230

032777

(1) 005236 001774
643 005240 004767
644
)

005244

(1)
(1)

005244
005252

(1)
(1)

005266
005270

(2)

005312

(1)
(1)

005260
005272

645

005316

(1)
(1)
(1)
(1)
(1)

005316
005326
005332
005340
005342

(2)

005244

012767
017767

013340
013322
013314

026767

001401
104003

000137

005316

013310

000200

013316

004572
013236
013220
013212

005244

005364

000137

005316

647 005370
648 005376

012777

045401

013142

032777

000200

013150

646
(1)

(1)

649

(1)
(1)

005376

005404

005406

005406
005414

001774

005406

012767
017767

004011
013124

LP=,

013164
013146
013140

LOOP

NP
PC ,BLKCRD

#25200,LP

MOV
#25200, GOOD
MOV
aTCR,BAD
cTMP
GOOD .BAD
BEQ
.44
ERR+GB
LP

sTEST FOR CIW + RDR

MOV
WTIDR

#25001,3TCR

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

||
‘

;TEST FOR BLANK CARD

;

'‘

;READ CMD REGISTER

|
|
;

;READ STATUS REGISTER

*TEST FOR HSO + SSO + DONE

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

‘
‘

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

CKTCR

#125200,LP

;TEST FOR ERR + HSO + SSO + DONE

MOV
MOV
cMP
BEQ
ERR+GB

#125200, GOOD
aTCR,BAD
GOOD ,BAD
.+

;READ CMD REGISTER

JMP

MOV
WTIDR

#045401,8TCR

LP=.

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;READ CARD #11 OUT OF SECONDARY HOPPER
BIT

#200,3TIR

CKTSR

#4011,LP

MOV
MOV

#4011, G0OD
aTSR,BAD

BEQ

LP=.

.~6

|
|

:READ STATUS REGISTER

LOOP

‘

;WAIT FOR INPUT DATA REQUEST
:TEST FOR BLANK CARD

#4230, GOOD
aTSR,BAD

.44

¢
¢

sTEST FOR CIW + IE + HE

GOOD ,BAD

'
‘
‘
‘
'

|
|

#4230,LP

;ISSUE HSO + SSO + GO

CKTSR
LP=.

BEQ
ERR+GB

#200,aTIR

MOV
MOV

BIT

.6
PC ,BLKCRD

<[
'
‘|
'

;READ CARD #10 OUT OF PRIMARY HOPPER
BEQ
JSR

;

CNT1

P1D

czc

;WAIT FOR INPUT DATA REQUEST

BNE

LOOP

013074
013056

MOV
#4011, 600D
MOV
aTSR,BAD
cTMP
GOOD,
BEQ
.+
ERR+GB

JMP

125200
013210
013152

005344

#4011.LP

DEC

012767
017767
026767
001401
104003

(1)

CKTSR

JMP

025001

013224

#200,aTIR

LOOP

013266

004230
013266

BIT

BEQ

f'é""

005210 000137 005142

639 005220 001312

640

025200
013364
013326

2
SEQ 0017 |

JMP
JSR

g; 005142 g

PAGE 2-15

;ISSUE CLEAR ERR + HS1 + SSO + GO

;WAIT FOR INPUT DATA REQUEST
“TEST FOR CIW + RDR

;READ STATUS REGISTER

|
;

!
!

'
'

(
(

‘
¢
'

|
|

¢
¢

(

|
|
|

¢
¢
¢
¢
¢
¢

¢
¢
¢

2
1

JAIN, mcm
CZCTAA.SRC

(1)
(1)

)

(2)
650

005430
005432

8854.

(1052)
19<MAY<B0
Y=80 14:57

026767

001401
104003

013062

14:57

013050

GOOD ,BAD

LOOP

JMP
JSR

651 005464

CKTCR

5h)
005464
(1) 005464 012767 045200 013016
(1) 005472 017767 013042 013000

LP=.
MOV
MOV

(1)
(1)

005506 001401
005510 104003

BEQ
ERR+GB

(2)

005532 000137 005464

653

005536 012767 000010 012742

655
(1)

005552
005552

(1)

65%

005500

026767

013004

012772

005512

LOOP

JMP

032777

657
(1)

005566
005566

658

005576

(1)

()

005574

032777

001774

000200

012774

004250
000200

012744

005576

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

am.
BLKCRD

sTEST FOR BLANK CAR

#45200, GOOD
aTCR,BAD

;READ CMD REGISTER

m.S200,LP
GOOD
.

MLP

MOV

WTIDR
BIT

BEQ
JSR

NT1

cssbm,aTCR
#200,aTIR

.~6
PC,BLKCRD

CKTSR

#4010,LP

.~6

;WAIT FOR DONE FLAG

:READ STATUS REGISTER

LP=.

MOV
MOV

#4010, GOOD
aTSR,BAD

(1)
(1)

005620
005622

001401
104003

BEQ
ERR+GB

(2)

005644

000137 005576

(1)

659

005624

005650

026767

012672

012660

LOOP

JMP

CKTCR

005650

LP=.

GOOD
. BAD

;READ CMD REGISTER

MOV
MOV

#55200, GOOD
aTCR,BAD

(1)
(1)

005672
005674

001401
104003

BEQ
ERR+GB

L+

(2)

005716

000137 005650

661

005726 001306

(1)

660

662

005676

005722

026767

005367

012620

(1)
665

666

)

(1)
(1)
(1)

005736
005736

005744
005746
005752

005752
005760
005766

032777

001774
004767

005752

000200

012602
012610

012530
012512
012504

GOOD
. BAD

JMP

BNE

MOV

#51001,3TCR

DEC

004064

012767 004230
017767 012560
026767 012516

LOOP

012560

663 005730 012777 051001
664
(1)

012606

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE
;TEST FOR HS1 + SS1 + DONE

005650 012767 055200 012632
005656 017767 012656 012614
005664

STEST FOR CIW

#55200,LP

(1)
(1)

(1)

:WAIT FOR INPUT DATA REQUEST
*TEST FOR BLANK CARD

#200,3TCR

BEQ

005576 012767 004010 012704
005604 017767 012734 012666
005612

;ISSUE HS1 + SS1 + GO

WTDONE
BIT

(1)
(1)

(1)

STEST FOR HS1 + sso + DONE
;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

:CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

CNT1

;READ CARD #20 OUT OF SECONDARY HOPPER
WTIDR
BIT

#200,aTIR

BEQ
JSR

:ISSUE HS1 + $S1 + GO

CKTSR

=1
PC ,BLKCRD

#4230,LP

;WAIT FOR INPUT DATA REQUEST
*TEST FOR BLANK CARD

MOV
MOV
CMP

#4230, GOOD
aTSR,BAD
GOOD
. BAD

;READ STATUS REGISTER

LP=.

MA
czc

[

;READ CARDS nz-19 Am PUT THEM IN STACKER #2

654 005544 012777 055001 012766 PI1E:
(1) 005560 001774
656 005562 004767

SEQ 0018

CMP

BEQ
ERR+GB

005454 000137 005406
005460 004767 004352

PAGE 2-16

:TEST FOR CIW + IE + HE

(1)
(1)
(1)
(1)
(1)
(1)
(2)

006114
006122
006130
006136
006140
006142
006162

671
19}

672
(1)

006114

006166

(1)
(1)
1)
(1)
(1)
(1)

006210
006212
006214

g;g

é%

006166
006174

000137

006024

012777

011401

012434

032777
001774

000200

012426

006114

012767
017767
026767
001401
104003

000137

006166

000000
012416
012354

012456
012440
012432

MOV
WTDONE
BIT
BEQ

CKTSR
LP=,

MOV
MOV
P
BEQ
ERR+GB
LOOP
JMP

006114

012767
017767
026767
001401
104003

011200
012340
012302

006234

000137

006166

006240

000137

006244

#151200,G00D
aTCR,BAD
GOOD ,BAD
o+
LP
asLP

sPUT CARD #20 IN STACKER #2

012366
012350
012342

CKTCR
LP=,

012314
012276
012270

676

MOV
MOV
P
BEQ
ERR+GB
LOOP

#11401,3TCR
#200,aTCR
.~6

#0,LP

#0, GOOD
@TSR,BAD
GOOD ,BAD
.+

LP
arLP

#11200,LP
#11200,GOOD
aTCR,BAD
GOOD ,BAD
.+
LP

JMP

arLP

JMP

@NPASS2

sREAD CMD REGISTER
)
;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;ISSUE CLEAR ERR + SS1 + GO
sWAIT FOR DONE FLAG

sTEST FOR STATUS=0

;READ STATUS REGISTER
;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;TEST FOR SS1 + DONE
;READ CMD REGISTER

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

:THIS TEST PUNCHES THE ENTIRE CHAR SET ON EACH CARD IN A PRECESSED

677
678
23

:
:
:

681
682
683
684
685
686
687
233

006244
006246
006250
006252
006254
006256
006260
006264

104400
016555
104400
016643
104400
016715
004767
004767

003522
003700

690
691

006270
006276

012777

021401

012242

032777

000200

012250

(1)

MOV
MOV
cMP
BEQ
ERR+GB
LOOP
JMP

006276

FASHION. THIS MEANS THE 1ST PUNCHED CHAR ON CARD #1 IS IN
COLUMN #11 AND THE 1ST PUNCHED CHAR OF CARD #20 IS IN COLUMN
#31. ALSO TEST THAT OUTPUT DATA REQUEST CAN CAUSE AN INTERRUPT.

PASS2:

TYPE
P2MSG1
TYPE
P2MSG2
TYPE
P2MSG3
JSR
— CN%ls)Rfl

MOV
WTIDR

BIT

:"VERIFY THAT THERE ARE 10 BLANK CARDS IN EACH STACKER'*
:"PLACE ALL 20 CARDS IN THE PRIMARY HOPPER'

PC,CONTIN
PC,CLRBFS

:'PRESS STOP-RESET AND PRESS START ON THE 8035-8045 **
:'"PRESS CR TO CONTINUE'’
:
;PREPARE BUFFER FOR PUNCHING

#021401,3TCR

;ISSUE CLEAR ERR + HSO + GO

#200,aTIR

elelelalealelalelalelalalelalelelalaYalalalal
e lalalalala talaTa e Ta Ta Ta Ta Ta VW
e
e
P
===y

006076
006104
006104
006112

151200
012502
012444

D ) D e e o

669
670
(1)
(1)

668

012767
017767
026767
001401
104003

e e e e

006026
006032
006040
006046
006050
006052
006072

sTEST FOR ERR + HS1 + SS1 + DONE

D e

(1)
(1)
(1)
(1)
(1)
(1)
(2)

SI?P? S P
E'K;TCR }%1200.LP

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

((B
000137 005752
i“i; w

BEQ
ERR+GB

001401
104003

SEQ 0019

PAGE 2-17

D e D e

14:57

e D o e o e e e

19-MAY-<B0

005774
005776

V-gs 14:57

(1052)

o o e

(1)
(1)

MACYT

b o e

JMAIN,

CZCTAA.SRC

006416 001401
006420 104003

BEQ
ERR+GB

(2)

006442

012777

021027

(1)

006470

132777

000200

701

006500

)

006476

001774

006500

(1)
(1)

006500
006506

(1)
(1)

006522
006526

001401
104003

(2) 006546
702 006552
703 006556
704 006564

000137
004767
162767

(1)

(1)
(1)

I$1)

006514

006526

012767
017767
026767

004410
012032

011770

006500
003452
000002

006646

BITB

BEQ

#200.aTIRHI

.~6

000137
006646
012767

011706
011670
011662

021226

A%
) D e ok

. S~ — — — —~ L~ —

e
D o e o

D D e

*TEST FOR PUDR

MOV
MOV

#4410, GOGD
aTSR,BAD

;READ STATUS REGISTER

|
|

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;
;

LP=.
P

GOOD ., BAD

LOOP

BEQ
ERR+GB

.44

BIT

#200,aTCR

CKTSR

#4010,LP

MOV
MOV
CMP
BEQ
ERR+GB

#4010, GOOD
aTSR,BAD
GOOD
. BAD
L +4

LOOP

JMP

CKTCR

011634

;WAIT FOR OUTPUT DATA REQUEST

#4410,LP

LP=.

011744

;CNT1=18

*ISSUE HSO + IR + PRI + PUN + GO

CKTSR

006646

WIODR

#21027.,aTCR

006574

706

MOV

;WAIT FOR DONE FLAG

006642

006622

P2A:

BEQ

004010
011736
011674
,

011756

#8F1,PTR
#22,CNT1

001774

006574 012767
006602 017767
006610 026767
006616 001401
006620 104003

-~~~
-

012002
011764

564 032777 000200 011746

006572

(1)
(1)
(1)
(1)
(1)
(2)

012060

MOV
MOV

;FEED CARDS #2-19, xmmn READ FOR THESE CARDS

:SEND DATA TO PUNCH

006574

(1)

012050

JMP
P
JSR
PC.P2SEND
suB
#2_PTR
WTDONE

705

)

012054
012024

JMP

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

MOV

#21226.LP
#21226,G00OD

“TEST FOR CIW

;READ STATUS REGISTER
;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;

|
|
e
|

(1)

006470

006462

GOOD . BAD

699

LOOP

006374

697 006446 012767 017534
698 006454 012767 000022
700

012062

D )

000137

012074

696

006422

026767

(1)

006410

(1)

. £

(1)
(1)

|
|

;READ CMD REGISTER

#21200, GOOD
aTCR,BAD

MOV
MOV

LP=.

006376 012767 021200 0121%
006402 017767 012132 012070

006374

;TEST FOR HSO + DONE

)

D i cd i D ) D D ) ) D ) D D ) o

#21200,LP

) e

CKTCR

NN NN NN

JMP

006322

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

D i d e

TN NN TN

LOOP

;READ STATUS REGISTER

D e

(1)
(1)

#4010, GOOD

MOV
aTSR,BAD
CTMP
GOOD ,BAD
BEQ
.+
ERR+GB

:WAIT FOR DONE FLAG
STEST FOR CIW

006374

MOV

.6
#4010,LP

*TEST FOR BLANK CARD

017767 012210 012142
026767 012146 012134
001401
104003

006370 000137

695

#200,aTCR

;WAIT FOR INPUT DATA REQUEST

h el

(2)

006350

BIT

BEQ
E:rsa

) oossés 0 57!627 004010 012160
(1)

PC,BLKCRD

D d

15 032777 000200 012220

006330
006336
00634&
006346

5.;,3”

)
001774
c(,?;. 006322
.
(1)
(1)
(1)
(1)

SEQ 0020

BEQ

004767 003524

) e

001774

PAGE 2-18

)

1 :57

14:57

69;

19-MAY-B0

;TEST FOR HSO + DONE + IR + PRI + PUN

— e

CZCTAA. SRC

— v e

MCV“

JMAIN.

000137

0071
012767
017767
026767
001401
104003

121206
011400
011342

D e e—

AN R

011426
011410
011402

#4230, GOOD
aTSR,BAD
GOOD ,BAD

asLP
#121206,LP

011354
011336
011330

#121206,G0OOD
aTCR,BAD
GOOD ,BAD

000137

007126

012777

001407

011332

132777
001774

000200

011342

#200,3TIRHI
-6

#100000,LP

;READ STATUS REGISTER

LP
asLP
AND PRINT
#1407 ,aTCR

007216

;WAIT FOR DONE FLAG
sTEST FOR CIW + IE + HE

007054

) Dl e D

#200,aTCR
.~6
#46230,LP

004230
011456
011414

011466

;WAIT FOR INPUT DATA REQUEST
;TEST FOR BLANK CARD

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE
;TEST FOR ERR + HSO + DONE + PRI

+ PUN

sREAD CMD REGISTER
;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;ISSUE CLEAR ERR + PRI + PUN + GO

7054
012767
017767
026767
001401
104003

000200

Sae Ppe e

032777
001774

PC.BLKCRD

002772

#200,3TIR
.%

it e

011516

000200

032777
001774
004767

#2.PTR

011500

;WAIT FOR OUTPUT DATA REQUEST

:SEND DATA TO PUNCH

PC,P2SEND

003206
000002

= Bt

-6

Jmw See

#200,aTIRHI

Pm G

011542

JISSUE HSO + PRI + PUN + GO

s Qe W

000200

#21007 ,aTCR

e e

132777
001774
004767
162767

MOV
WTODR
BITB

;FEED CARD #20

;WAIT FOR OUTPUT DATA REQUEST
;TEST FOR ODR

011532

021007

P2A

012777

CNT1

BNE

D e

006720
011510

)

000137
005367
001231

s INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

LP
arLP

104003

sREAD INTERRUPT REGISTER

) e e

#0,GOOD

aTlR,BAD
GOOD,
o+

D D

011562
011544
011536

sTEST FOR 0

D d

000000
011622
011550

#0.LP

D ) D

720
012767
017767
767
001401

D o

006646

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

000137

LP
arLP

104003

sREAD CMD REGISTER

D D D d D o

aTCR,BAD
GOOD
+%

D e

011616
011610

011660
011622

SEQ 0021

017767
026767
001401

[

PAGE 2-19

e o

006654

14:57

D o

T Y

VewwwwwwY

AAAAAflAaAAAAA
SN GAAAAAAABAAAAAAAA
VOV OUYYVIVYNOYVYUVR
332233323333§§"
N Y =D

—

N b e o e e
N s il i o s
vvvvvvvvflvvvvv -~

CZCTAA,SRC

(1052)
19-MAY-B0
Y=80 14:157

b o

MACY1Y

b e o

JMAIN,

JAIN,

MACYIY

(1)
1§}
(1)

007216
oo;sg
00

CZCTAA.SRC
(1)
((‘;

(1052)

-£ 14:57
012767
017767
026767

00
00

001401
104003

007264

000137

007270

19-MAY<B0

007270

1
011324
011252

007270
007276
007304
007312
007314
007316
007336

012767
017767
026767
001401
104003

1006
011236
011200

000137

007270

726

007342

052777

001100

012777

000340

727

007350

012777

7364

012767

728 007356

729
730

731

732
733

007372

007374

007376
007404

240

000240

000137

007404

736
737

007634
007440

062706
004767

000004
002564

(1)
(1)

007444
007452

032777
001774

000200

739

007454

(1)
(1)
(1)
(1)

007454
007462
007470
007476

(1)
(2)
7640

007502
007522
007526

(1)
(1)
(1)
(1)
(1)
(1)

007526
007534
007542
007550
007552
007554

)

007454

012767
017767
026767
001401

000000
011056
011014

MOV
MOV
cMP

BEQ
ERR+GB
LW’

000137

007526

BIS

000137

007526

;2%

007600

000137

007604

LP
asLP

4
}

s INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

sTEST FOR PRI + PUN

¥
1
1
i 4

JREAD CMD REGISTER

) i
1
1
1

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

NOP

P2B:

P2INT:
P2C:
011066

MOV
ERR

LOOP
JMP

P2B
asP2B

ADD
JSR

#4,SP
PC, PZSEND

BIT
BEQ

#200,aTCR
.~6

P2C

WTDONE

;READ STATUS REGISTER

LOOP
JMP
CKTCR

LP
a#LP
#1306,LP

MOV
MOV
cMP
BEQ
ERR+GB
LOOP

#1306, G0O0D
aTCR,BAD
GOOD ,BAD
R

JMP
:

1
1

;

sTEST FOR DONE + INT EN + PRI + PUN

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

a#PASS3
=

1
) )l

1
1
1

1
1!

|
{
'
’

1
1!
1
1

|
;
|

1
1
1!

JREAD CMD REGISTER

PUNCHED IN COLUMN 1 OF CARD 1 AND SO ON UNTIL 20 ALL ONES CHARS

;
:

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

THIS TEST PERFORMS PUNCHING WITHOUT PRINTING. ONE ALL ONES CHAR IS

;WAIT FOR DONE FLAG

sHOUSE KEEPING ON STACK
;SEND DATA TO PUNCH

#0,GOOD
aTSR,BAD
GOOD ,BAD
.+

;SET BPU TO LEVEL #7
:
;OUTPUT DATA REQUEST DIDN'7T CAUSE AN INTERRUPT

MOV
MOV
CMP
BEQ

JMP

)

;SET BPU TO LEVEL #1

;TEST FOR STATUS =0

LP
aLP

sSETUP PC VECTOR

#0,LP

LP=.

010754
010736
010730

:SETlP PS VECTOR

#340,PS

LP=.

011026
011010
011002

#340, aPSV
#40, PS

czC
T

sENABLE INTERRUPT

MOV

.MA

1
1

sREAD INTERRUPT REGISTER

#1100,a

IPZINT OPCV

NOP

007454
001306
011000
010742

#1006, GOOD
aTCR,BAD
GOOD ,BAD
.+

MOV

ERR+GB

012767
017767
026767
001401
104003

st IF WTPUT DATA REOtEST WILL CAUSE AN INTERRUPT

104003

007574

745

LP=,

011176
170372

o+
P

#1006,LP

CKTSR

;(%%

744

011170

GOOD ,BAD

asLP

CKTCR

170404

007406
007426

738 007444

JMP

000040

734
(1)

#100000, GOOD
aTIR,BAD

BEQ
Eg&@

011212
011174
011166

SEQ 0022

MOV
MOV
CMP

011240

011202

000340

735 007432 000402

omn
011246

007434

012767
104000

PAGE 2-20

007216

(1)
(1)
(1)
(1)
(1)
(1)
(2)

725

14:57

1«

;
|
i
!
i
!

1
14
14
1
1
1

{

}4
]

1¢

SKSRS

2258

8888

PASS3:

ARE PUNCHED IN THE 1ST 20 COLUMNS OF CARD 20. THIS TEST
VERIFIES THE DATA READ FROM PUNCHING DONE IN PASS 2.

TYPE

';3',2556‘

:"VERIFY THAT ALL CHARS WERE PUNCHED ON EACH CARD IN A

l;;ggcz

;PRECESS FASHION BEGINNING WITH COLUMN 11 OF 1ST CARD'

t;eggsz

;"PLACE ALL 20 CARDS IN THE PRIMARY HOPPER''

P2MSG3
JSR

sFEED CARD M

3~N

-—

g £

888

MOV

(=]

3
~N

d (N
d e
e
b e

#200,aTIR

BIT

#200,3TCR

ffim

#4010,LP

.~6

;WAIT FOR DONE FLAG

MOv.
MOV

#4010,GOOD
@TSR.BAD

;READ STATUS REGISTER

Egfi;

8
g

g8
Y]

010030
010036

012767
012767
012777

000022
000001
021003

010044

132777

000200

SSRRERR

35} R%S
CRRER

007750

STEST FOR CIW

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

#21200,LP

sTEST FOR HSO + DONE

Mov.
MOV

#21200.GOOD
aTCR,BAD

;READ CMD REGISTER

l'_P

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

JMP
arpP
;FEED CARDS #2-19, CHECKING INPUT DATA AND PUNCHING 1 CHAR IN 1ST CARD,
2 IN 2ND ETC. UP TO 20 CHARS IN CARD 20
P3A:

MOV
MOV
MOV

#22,CNT1
#1,CARD
#21003.aTCR

BITB

#200,aTIRHI

WTODR

002224
000001

BEQ
JSR
ADD

.~6
PC.P3SEND
#1,CARD

000200

BIT

#200,3TIR

002402
000002

;WAIT FOR INPUT DATA REQUEST
:CHECK INPUT DATA FROM PASS 2

f',‘,m

104003

;ISSUE CLEAR ERR + HSO + GO

.~6
PC,CKDATA
#2. INPTR

JMP

021200
010556
010520

000137

010016

BIT

:*PRESS STOP-RESET AND PRESS START ON THE 8035-8045
*"PRESS CR TO CONTINUE''

BEQ
JSR
suB

—

(0”67774

222328

#021401,aTCR

BEQ

007676

#BF1, INPTR

c?\x'oa

WTDONE

004010
010634
010572

PC,CONTIN

WTIDR

BEQ
JSR
SUB

-6
PC.CKDATA
#2. INPTR

:CNT1=18
*CARD=1
:ISSUE HSO + PUN + GO

:WAIT FOR OUTPUT DATA REQUEST
*SEND DATA TO PUNCH
;WAIT FOR INPUT DATA REQUEST
*CHECK INPUT DATA FROM PASS 2

_n_a—i_h_a-l_h-a_n_a-h—l-b_a_a_a_a_a-o-a_g_—q

Sz I

SEQ 0023
L

23g0
v

EEES ARRETLANS

~AAA~ ~aN
[N

PAGE 2-21

[

14:57

[

(1052)
19-MAY-B0
Y=80 14:57

P
328 SIPYFAXAIAYL)
23

JMAIN, MACYIY
CZCTAA.SRC
1

fig

(1)
(1)
(1)
(1)
(1)
(1)
(2)

010400

010400
010406
010414
010422
010426
010426
010446

(1)

000200

010216

062767

000001

010126

032777
001774
004767

000200

010172

032777
001774

000200

012767
017767
026767
007401
104003

004230
010132
010070

000137

010400

001736

002114
010142

010102
01
010056

~N
TM

D d D d D d e

d d D d d —

d d

#21003,aTCR

;ISSUE HSO + PUN + GO

#200,3TIRHI
.~6

SWAIT FOR OUTPUT DATA REQUEST

BIT
BEQ
JSR
WTDONE
BIT
BEQ

e
B
s

MOV
WTODR
BITB
BEQ
JSR
ADD
WTIDR

PC,P3SEND
#1,CARD

#200,aTIR
.~6

;SEND DATA TO PUNCH

PC,CKDATA

;WAIT FOR INPUT DATA REQUEST
;CHECK INPUT DATA FROM PASS 2

#200,3TCR
.~6

;WAIT FOR DONE FLAG

EsISR

#4230,LP

MOV
MOV
cMP
BEQ
ERR+GB
LOOP
JMP
CKTCR

#4230, GOOD
@TSR,BAD
GOOD,
R
LP
asLP
#121202,LP

D d e e

;GO PUNCH AND READ MORE CARDS

;FEED CARD #20

b -

132777
001774

arLP
CNT1
P3A

-a e

010206

JMP
DEC
BNE

021003

; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

-84

012777

;READ INTERRUPT REGISTER

_ad

010244
010164

#0,G00D
aTIR,BAD
GOOD ,BAD
.4

b —d — — —

000137
005367
001245

004767

MOV
cMP
BEQ
ERR+GB
LOOP

sTEST INTERRUPT REG FOR 0

010236
010220
010212

#0,.LP

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

_a4

000000
010276
010224

CKTIR
LP=,
MOV

LP
asLP

;READ STATUS REGISTER

_ad

010172

#4010, GOOD
@TSR,BAD
GOOD ,BAD
.+

;TEST FOR CIW

_ad

010310
010272
010264

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

_aA

004010
010340
010276

LP
asLP
#4010,LP

sREAD CMD REGISTER

sTEST FOR CIW + IE + HE

~8A

010120

@TCR,BAD

D D d D d

GOOD ,BAD
6

b —d —d —d —d

790
791
(1

010354
010362
010364
010370
0370
010376

(1)
(1)

017767
026767
001401
104003

cMP
BEQ
ERR+GB
LOOP
JMP
CKTSR
LP=,
MOV
MOV
cMP
BEQ
ERR+GB
LOOP
JMP

010324
010332
010332
010340
010342
010346
010354

010244
012767

010336

_a8

785
786
(1)
(1)
787
788
789

000137

#21202,G00D

MOV

88 o088

010322

010172
012767
017767
026767
001401
104003

MOV

010344

~Af

783

784

000137

010362

sWAIT FOR DONE FLAG

sTEST FOR HSO + DONE + PUN

w—d b —d cd ——

010244
010252
010260
010266
010270
010272
010312
010316

010350

010406

#21202,LP

(1)
(1)
(1)
(1)
(1)
(1)
(2)
782

010244

026767
001401
104003

017767

E'K,TCR

aSf

781
1)

010172
010200
010206
010214
010216
010220
010240

021202

010120

#200,aTCR
.=6

;READ STATUS REGISTER

01
010142
010144
010146
010166
010172

012767

BIT
BEQ

D cd b

(1)
(1)
(1)
(1)
(2)
780
1
(1)
(1)
(1)
(1)
(1)
(1)
(2)

0101§

WTDONE

010422

010120

19 0]

010120

000200

(1)

032777
001774

SEQ 0024

;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

010110
010116

;TEST FOR ERR + HSO + DONE + PUN

BN
T Y I

010110

(1)
(1)

PAGE 2-22

778

14:57

—

CZCTAA.SRC

(1052)
19-MAY<B0
Y-80 14:57

MACY

JAIN.

004767

001536

(1)
(1)
799

010546
010554
010556

032777
001774

000200

(1)

010556

012767

(2)

800
6D

010564
010572
010600
010602
010604

010626

010630

010555

017767
026767
001401
104003

000137

010556

010630

(1)
(1)

010630
010636

012767
017767

(1)

010652

001401

(1)

(1)
(1)

(2)
gg;

010646

010654
010656

010676
010702

000000

026767

007754
007712

001202
007676

007640

JWAIT FOR DONE FLAG
;TEST FOR STATUS=0

BIT
BEQ
CKTSR

#200,aTCR
.~6
#0.LP

007724

MOV

#0, GOOD

LP=,

007706
007700

MOV
cMP
BEQ
ERR+GB
LOOP

JMP

CKTCR
LP=,

007652
007634

MOV
MOV

007626

BEQ

ERR+GB
LOOP

010630
010706

JMP
JMP

803
804
805
5'3?

@TSR,BAD
GOOD ,BAD
A
LP

104400

809

010710

017220

_
;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

;TEST FOR ERR + DONE

#001202,GOOD
aTCR,BAD

;READ CMD REGISTER

;CMD REC = VALUE READ NOT EQUAL TO EXPECTED VALUE

NP
BIPASSS

811

010714

813

PASS4:

TYPE

J'VERIFY THAT THERE IS 1 ALL ONES CHAR PUNCHED IN CARD 1

017373

P4MSG2

;UP TO 20 ALL ONES CHARS PUNCHED IN CARD 20°*

010720

016643

P2MSG2

;*PLACE ALL 20 CARDS IN THE PRIMARY HOPPER''

815 010724
816 010726

016715
004767

010712

010716

814 010

g}z

010732

819 010736

820
821

JREAD STATUS REGISTER

#001202.LP

GOOD ,BAD

P4MSG1

812

010744

010752

104400

TYPE

104400

TYPE

104400

004767

012767

012777

TYPE

P2MSG3
JSR

001054

001252

017534

021401

FEED CN.{SR”

007550

007566

MOV

WTIDR

PC.CONTIN
PC,SETBFS

#8F1, INPTR

#21401,aTCR

—_af |
fi;
_ss
s _aa
LBs
B8

JWAIT FOR OUTPUT DATA REQUEST

THIS TEST PERFGHS A SEPARATE PRINT OPERATION ON ALL CARDS BY
3
PRINTING *‘CARD 01'' IN COLUMNS 1-7 OF CARD 1 UP TO ‘‘CARD 20’ IN
s
COLUMNS 1-7 OF CARD 20. VERIFY CORRECT DATA READ FROM PUNCHING
:
DONE IN PASSES 2 + 3

808 010
810

LBh
_ sl

*SEND DATA TO PUNCH

oBa

PC.P3SEND

;ISSUE PUN + GO

:'PRESS STOP-RESET AND PRESS START ON THE 8035-8045 **
**PRESS CR TO CONTINUE'

PREPARE BUFFER FOR DATA COMPARE

;ISSUE CLEAR ERR + HSO + GO

JSR
WTDONE

#200,38TIRHI
.~6

007764

104003

000137
000137

#1003,aTCR

BITB
BEQ

d wd d d d e e

000200

|
l

010016

132777
001774

MOV
WTODR

010006

001003

MLP

012777

010532
010540

797 010542
798 010546

JMP

sPUNCH CARD #20

sCMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

_ad

010452

;;
;

010520 000137

BEQ
ERR+GB
LOOP

;READ CMD REGISTER

_88 _ 84

001401
104003

#121202,GOOD
aTCR,BAD
GOOD ,BAD

010474
010476
010500

(1)
(1)

(1)
(1)
(1)
(1)
(1)

LP=.

MOV
MOV
CMP

SEQ 0025 |

88 88 84 84 -84 -84 sl ala ald LG8

o1o:.s;

010452 oa;;e
121202 010030
010460 017767 010054 010012
010466 026767 010016 010004

795 01
796 0105

PAGE 2-23

_BA _BE

(2)

794

14:57

PETIT I P
N
aBl aBd 88 —aa
88

(1)
(1)
(1)

19-MAY-B0
1
4:57

[ PN TRV T

(1)
(1)
(1)

TM
~N

JMAIN., MACYTY
CZCTAA.SRC
1

(1052)

1)
(1)

&S
8 JINEERBE
RS RXRI8 NE

2
—3

i
R R Iy
—_— )

22 o

) )
D )

) e
) )

IO
Yy

lalelalelelelele)

N i e s
Nvevwvwvvwevvw

D
D
) e
) D

JWAIT FOR INPUT DATA REQUEST
sCHECK INPUT DATA FROM PASSES 2 + 3

#200,3TCR
<6
#4010,LP

sWAIT FOR DONE FLAG
sTEST FOR CIW

LP
asLP
#21200,LP

021200
007450
007412

#21200, GOOD
aTCR,BAD
GOOD ,BAD
.+

000137

;FEED CARDS #2-1 9

;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE

sTEST FOR HSO + DONE
sREAD CMD REGISTER

;CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

;CNT1=1

ICARDO'I WTPTR
#21015,3TCR

: OUTPTR=CARDO1
;ISSUE HSO + SPD + PRI + GO

001774
004767

#200,3TIRHI
..6
PC.P4SEND

;WAIT FOR OUTPUT DATA REQUEST
;SEND DATA TO PRINTER

032777

#200,aTIR

132777

-6

PC.CKDATA

—

#2. INPTR

#200,aTCR

.=6

1y
alala il

021214
007306
007250

011314

sREAD STATUS REGISTER

CHECKING INPUT DATA sw PRINTING IN COLUMNS 1-7

022,

012767
012767
012777

) e
—

D D
d D e

PC,CKDATA

011004

e d d D

PPN

-6

#4010, GOOD
aTSR,BAD
GOOD

007464

011272
012767

#200,aTIR

#2,INPTR

004010

NN
~ N

007574

000200

000137

—_— )
=
wwwww

PAGE 2-24
SEQ 0026

001516
000002

Ve
w

e lelelelalela)
—
e
) ) e d

BSRER

000200

14:57

"~ o~

—_

vewwwewwueuyvewihnive

1?#7-00

1 &:57

#21214,LP

;WAIT FOR DONE FLAG
;TEST FOR HSO + DONE + SPD + PRI

#21214 ,G0O0OD
aTCR,BAD
GOOD
4

;READ CMD REGISTER

LP
a#LP
#4010,LP

007210
007172
007164

;WAIT FOR INPUT DATA REQUEST
;CHECK INPUT DATA FROM PASSES 2 + 3

#4010, GOOD
aTSR,BAD
G(X‘)D.BAD
W+

;CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE
;TEST FOR CIW

;READ STATUS REGISTER

MACYTY

lal

JAIN.

CZCTAA,SRC

JWIN,

MACYIY

()

011316

CZCTAA.SRC

)
)

)

(1)

0N
Q130

011344
011344

() o

(1052

1?#\'-00

Y'g 14:57

14:57

104003
00037

Q11344

0i2767

ERR+GB

LOOP
J¥

0n272
000000

007176

(KTIR

007136

007120

767 007124 007112

(1)
(1}

011366
Q11370

001401
104003

(2)
80
81

011412
011416
011422

000137
005367
001250

011344
007064

&3
84

Q114
0114

012777

021015

007106
007116

011442
011446

132777
001774
004767

000200

84S
846

0i1432
011440

011446
011456
011456
011462
011470
011470
011476

032777
001774
004767
162767

000200

007100

001022
000002

007024

032777
001774

000200

007042

012767
017767
026767
001401

004230
007032
006770

842
(1)
(1)

(1)
(1)
87
88
849
(1)
(1)

o010

000732

(1)
(1)
(1)
(1)

011500
011506
011514
011522

(1)
(2)
g

011526
0113546
oy

000137

(1)
(1)
(1)
(1)

011552
011580
011566
011574

012767
017767
026767
001401

(1)
(2)

011600
011620

000137

011552

853

01162

012777

001415

006706

(1)

011632

132777

000200

006716

855

011642

004767

000532

011646
01165

032777
001774

000200

(1)

852
(1)

(1)
(1)

857

011526

011576

011640

011656

007002
006764
006756

104003

LP=,

MOV

011500
121214
006754
006716

006730
006712
006704

:STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

LP
P

#0,LP
0

:TEST INTERRUPT REG FOR 0

@TiR.BAD

;READ INTERRUPT REGISTER

BEQ
ERRIGB

;
: INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

J
DEC
BNE _

amp
CNT1
P4A

;GO PRINT AND READ MORE CARDS

MOV
WTODR

#21015,8TCR

;ISSUE HSO + SPD + PRI + GO

CMP

;FEED CARD #20

‘

BITB
BEQ

#200,aTIRHI
.-6

BIT
BEQ
JSR
SUB__
WTDONE
BIT
BEQ

#200,aTIR
.-6
PC,CKDATA
#2.INPTR

JSR _
WTIDR

PC,P4SEND

#200,aTCR
.=6

CKTSR

#4230,LP

MOV©
MOV
(WP
BEQ

#4230,G00D
@TSR,BAD
GOOD,BAD
.+

LOOP
J¥
CKTCR

LP
amp
#121214,.LP

MOV'
MOV
CM
BEQ

#121214,G0O0D
@TCR,BAD
GOOD,BAD
.+

LOOP
P

MOV

WOT41S.ATCR

BITB

#200,aTIRHI

ISR

PC.PUSEND

BIT
BEQ

#200,aTCR
.=6

ERR+GB

006664

SEQ 0027

MOV

ERR+GB

104003

001774

PAGE 2-25

:PRINT CARD #20
BEQ

CKTSR

.-6

#0,LP

:WAIT FOR OUTPUT DATA REQUEST
:SEND DATA TO PRINTER
.
:WAIT FOR INPUT DATA REQUEST
:CHECK INPUT DATA FROM PASSES 2 + 3

;WAIT FOR DONE FLAG

:TEST FOR CIW + IE + HE

;READ STATUS REGISTER

:STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE
:TEST FOR ERR + HSO

+ SPD + PRI + DONE

;READ CMD REGISTER

:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE
:ISSUE CLEAR ERR + SPD + PRI + GO
:WAIT FOR OUTPUT DATA REQUEST

:SEND DATA TO PRINTER
:WAIT FOR DONE FLAG

:TEST FOR STATUS=0

1?;6\7-80

0} 196

14:57

1 ;?67

026767
001401

006552
34
006526

Y
T
P

SEQ 0028

#0, GOOD
aTSR,BAD
d

sREAD STATUS REGISTER

. A

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE

JMP
f',i""

MLP
#1214, LP

MOV
MOV
cTMP
BEQ

#1214, GOOD
aTCR,BAD
GOOD
, BAD
.+

ERR+GB
LOOP

012004

;TEST FOR DONE + SPD + PRI

JMP

RESET
RTS

sREAD CMD REGISTER

sCMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE
BT

SEXIT CARD TEST

:SUBROUTINE TO WAIT FOR CR
CONTIn: TYPE
CONMSG

001666

CONT1:

000015
001546

;"PRESS CR TO CONTINUE''

JSR

PC,CKSWR

cMP
BNE
JSR

#15 R4
CONT1
PC, TTYOUT

JSR

RTS

PC.TTYIN

;GET A CHAR

cWAS IT CR ?
:NO - KEEP WAITING

YES - TYPE CR + LF

:SUBROUTINE TO TEST FOR BLANK CARD (ALL SPACES)
BLKCRD: MOV

006500
-

006424

000121

d
b

006426
006354

012114

BC1:

JSR

BIT

#1,R0

#200,aTIR

BEQ
MOV
MOV
CMP
BEQ

B(1
#40,GOOD
@TDR,BAD
GOOD,
+4

0121 RO

CKTIR
LP.O

00 LP

BNE
006366
006350
006342

MOV
MOV
[

#0, GOOD
aTIR,BAD
GOOD.,

ERR+GB
LOOP

BEQ

JMP

RTS

PC,CKSWR

SWAIT FOR INPUT DATA REQUEST

sREAD DATA REGISTER

Enmoocou.
INC

pary

=
e b cd

lelolole)

h b cd

BEQ
ERR+GB
LOOP

000137

022700
001355

LP=,

MOV
MOV
CMP

104003

006400

gvvvvvvvv

PAGE 2-26

006624
006606
006600

— —

P O

T R

R p——

g RNY FINN%ET

c8S8988e g99egsscee

&RN
L L

fale lalelelalele)

N e ed ed oed d d s

N e

b o

ol ~

—5

JMAIN, MACYY 11
CZCTAA.SRC

;DATA REG = COMPARE ERROR AT INDICATED COLUMN

:IF MORE COLUMNS TO READ GO DO IT

sTEST THAT IDR IS 0

sREAD INTERRUPT REGISTER
; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE
SEXIT

JMAIN.

CZCTAA.

MACYTY

1&“-30 14:57
(1052)

19-MAY-B0

14:57

890

PAGE 2-27

SEQ 0029

891

sPUT SPACE CHAR IN ALL LOCS BF20 = BF1+10

ggf 0121720 015

017466

CLRBFS: MOV

895 012200 022

017560

CMP

#8F 1424 ,R2

RTS

012176

012722

89 01220¢

00137

gg;

012206

000040

B1:

BNE

000207

%
901

MOV

#8F 20, R2

#40, (R2)+

:PUT 1 CHAR (A) IN LOCS BF20 - BF1
012210

012702

017466

SETBFS: MOV

#8F20,R2

903 012220 022705 017536

cTMP

#BF142,R2

RTS

902

012214

904 01222¢

012226

012722

000101

SB1:

00137

BNE

000207

gg;
012230
01223%4

016700
004767

006274
001444

912

012244

132777

000200

913
914
915

012240

012252
01225¢
012260

916

012264

918

012270

920
355

012300
012302

012701

919 012276

000120

001774
011077 006270
062700 000002

P2SEND: MOV
JSR
006304

928

132777

001401

000200

006260

012304

012312
012316

012322

012340

016767

012700
004767

BEQ
MOV
ADD

P2sD1
(RO) ,aTDR
#2.R0

BNE

P2SD1

#200.aTIRHI

BITB

#200,aTIRHI

XX
RTS

132777

P3SEND: MOV

P3sD1:

006226

000101

006210

006170

005200

935
36

012356
012360

001774
012777

132777

937
938

012366
012370

005200
022700

012376

000207

939 012374

006224

000200

005367
001365

012350

006172

000001
001362

001774
012777

012342
012346

001365

000200

006200

000040

006162

000121

MOV
JSR

;WAIT FOR OUTPUT DATA REQUEST
*SEND A CHAR
;ALL 80 CHARS SENT ?

*NO = GO SEND ANOTHER ONE
;ERROR = GOT MORE THAN 80 ODR'S

BITB

#200,aTIRHI

P3sD1
#101,3TDR

;WAIT FOR OUTPUT DATA REQUEST
*SEND *'A’* CHARACTER

DEC
BNE

T0G1
P3SD1

;HAVE ALL CHARS BEEN SENT
:NO - GO SEND ANOTHER ONE

P3sD2
#40,3TDR

;WAIT FOR OUTPUT DATA REQUEST
*SEND SPACE CHAR

P3sD2

*NO = GO SEND MORE

INC

P3SD2:

CARD, TOG1

#1.R0
PC . CKSWR

BEQ
MOV

BITB

BEQ
MOV
INC
P

BNE

RTS

&g
9%4
95

PTR,RO
PC, CKSWR

£120,R1

BITB

BEQ

000000
000207

932
933
93,

:SEND 1 CHAR TO CARD #1 UP TO 20 CHARS TO CARD #20

929 012330
930 012332
931

;

s81

MOV

DEC

926
927

P2SD1:

005301

917 012266 001366

925

#1017, (R2)+

:SEND 80 CHARS BEGINNING AT LOC POINTED TO BY PTR

909
910

911

MOV

#200.aTIRHI

RO
#121,R0

;HAVE ALL 80 CHARS BEEN SENT

;SEND 7 CHARS TO BE PRINTED '‘CARD XX'' AND THEN ALL SPACES
012400
012404

005067
004767

1
006132
001274

P4SEND: CLR
JSR

1061
PC,CKSWR

JMAIN.

MACYTY

012410

950
951
953

CZCTAA,SRC

(19%)

19-MAY=B0

14:57

132777

000200

006140

01
01

005267
2767

006076
000007

006070

012450

132777

000200

006100

005267

006044

%7 012416
%8 01
9%9 01

95; 0

001774
017777 006100 006122
767 000002 006070

1360

954 012456 001774
955 01
012777 000040 006062
956

957

012472

022767

012502

000207

958 012500 001363

000120

012700

000001

965

012516

032777

000200

006030

969

012542

026767

005742

005730

972

012554

005200

012510 016767

006000

006012

9%6 012526 001774
967 012526 017767 005776 005754
98 01253%¢ 017767 006010 005736

970 012550 001401
971 012552 104007

012556
012564
012570
012572

062767
022700
001352

000002
000121

012574
012600
012604
012610
012614

BEQ
MOV

P4SD2
#40,3TDR

;WAIT FOR OUTPUT DATA REQUEST
*SEND SPACE CHAR

#120, TOG1

BIT8

#200,aTIRMI

T0G1

P4SD2
PC

CKDATA: MOV

#1,R0

CD1:

#200,3TIR

MOV
BIT

BEQ
MOV
MOV

;HAVE ALL PRINTING CHARS BEEN SENT

;HAVE ALL 80 CHARS BEEN SENT

*NO = GO SEND MORE CHARS

INPTR,PTR

D1
aPTR, GOOD
aTDR,BAD
GOOD ,BAD

BEQ
.44
ERR+GB+COL
INC

ADD
cTMP
BNE

000207

RTS

986

000110
000100
000076
000070
000012

0126264

005367

000060

989
990
91

012634
012640
012644

005067
005267
005367

000044
000042
000040

0D2:

993

012652

016704

000030

oD3:

012622

001404

987 012630 001367
958 012632 000407

999
1000
1001

*NO = GO PRINT MORE

BNE

010067
005067
005067
005267
022767

99%
995
996
97
998

P4SD1

T0G1
#7,7061

#2.PTR
#121,R0
D1
PC

;WAIT FOR INPUT DATA REQUEST

;READ DATA REG
;DATA REG = COMPARE ERROR AT INDICATED COLUMN
;IF MORE COLUMNS TO READ GO DO IT

SEXIT

:CONVERT OCTAL # IN RO TO DECIMAL # AND TYPE OUT DECIMAL #

980
981
982
983
984

992

BNE
INC

005744

3773

985

;WAIT FOR OUTPUT DATA REQUEST
:SEND A CHAR

INC
TMe

P4SD2:

#200,aTIRMI

P4SDT
SOUTPTR,@TDR
#2,0UTPTR

*COMPARE INPUT DATA PATTERN BEGINNING AT INPTR
012504

3;9

BITB

SEQ 0030

BEQ
MOV
ADD

RTS

963

973
974
975

P&SD1:

006036

gg}

964

PAGE 2-28

012650

001357

012656
012662
012666
012672
012676

062704
004767
016704
062704
004767

012702
012704
012706

000207
000000
000000

000060
000714
000012
000060
000700

000062

OCTDEC: MoV
CLR
CLR
oD1:
INC
P

BEQ

0D2

BNE
BR

oD1
0D3

BNE

0D1

ADD
JSR
MOV
ADD
JSR

#60,Ré4
PC, TTYOUT
ONES R4
#60 R4
PC, TTYOUT

DEC

ONES:
TENS:

RO, T0G
ONES
TENS
ONES
#12,0NES

CLR
INC
DEC

MOV

RTS
XX
XX

T06

ONES
TENS
T06

TENS R4

:TYPEOUT TENS
:TYPEOUT ONES

JMAIN, MACY1Y 30A(1052)
19-MAY=<B0
CZCTAA,SRC
19-MAY-80 1 §:57
1002

012710

000000

14:57
T0G:

PAGE 2-29
XX

SEQ 0031

012705

020540

10641

013044

050425

013052

001372

013056
013060
013064
013070
013074
013100

014751
012705
004767
010467
062704
010467

013106
013110
013114
013120

015015
012705
004767
010467

10642

1043

1064

1045
1046
1047
1048
1049
1050
1051

1
1053
1054
1055

}855‘7’

1058

1059

013040
013046

013056

013106

013124

042704

042715

020527

000007

177770

BIC

DC4:

020560

000207

#7 R

#177770, (RS)

RS, #PCV

BIS

R4, (RS) +

DC4

000003
000424
005464
000002
005456

DCMSG3
MOV
JSR
MOV
ADD
MOV

#3.RS
PC.RDOCT
R&.PCV
#2.R4
R4 .PSV

000001
000374
005440

DCMSG4
MOV
JSR
MOV

#1.RS
PC_.RDOCT
R4 .BRLV

TYPE

RTS

;ERROR SUBROUT INE

(al) l

- A%
e

—

b b - —d

e
e
e

) ) b

s
Eme

b b cd

Emd
Mms

b b —d

mmd
M

M d

b b o

s
S d

) -

SmA
S
Smd
Sl
Smd
Sl
A
Sl
Smd

ENTER VALUE AFTER (=) IS TYPED''

DEVICE ADDRESS = '*

;GET NEW DEVICE ADDRESS

;"'

#TCR,RS

BIC

BNE

104400

MOV

#6.RS
PC.RDOCT

SEXIT

013034

1040

013030

DCMSG2
MOV
JSR

*NO - GO BACK TO INPUT
:YES = ECHO N

- — —d ) ——d ) ) - —d )

1039

1038

RTS
PC
;VALUES ARE TO BE CHANGED
DC3:
TYPE
NCMSG6
TYPE

GISITN?

000006
000464

#116.R4

014722
012705
004767

DC1
PC, TTYOUT

013016
013020
013026

BNE
JSR

JINPUT A CHAR

IS IT Y ?
:NO - GO CHECK FOR N
:YES = ECHO Y
:GO GET NEW VALUES

Smd

1035
1036
1037

#1351 ,R4
DC2
PC,TTYOUT
DCs

SRl

000574

DC2:

PC,TTYIN

CMP
BNE
JSR
JMP

000116

JSR

;STORE 4 NEW DEVICE APDRESSES

000207

000612
000014

DC1:

SRd

104400
015135
104400

013006

000700

000131

-k —d —d - —d —d -

013010
013012
013014

1030
1031
1032
1033
1034

022704

.
;*DO YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N)?'*

001364
004767

012774

TYPE
DCMSGS

013000
013002

1027

004767

;TYPE BRLV

PC INTERRUPT VECTOR ADDRESS = **

;GET NEW INT VECTOR ADDRESS
:SET NEW PC VECTOR ADDRESS
:SET NEW PS VECTOR ADDRESS
;"

BUS REQUEST LEVEL = **

:GET NEW BR LEVEL
“SET NEW BR LEVEL
CEXIT

1028
1029

012752

BRLV

;TEST TO SEE IF VALUES ARE TO BE CHANGED

Sad

022704
001004
004767
000167

1022

1023 012756
1026 012762
1025 012764
1026 012770

BUS REQUEST LEVEL =

104400
015047

TYPE+1

1020 012746
1021 012750

1019

Smd

104401

020564

;TYPE PCV ADDRESS

TYPE
DCMSG4

Sad

012742

012744

PC INTERRUPT VECTOR ADDRESS =

- w—h

TYPE+3
PCV

1017

Sad

104403
020560

1015 012736 104400
1016 012740 015015
1018

;TYPE TCR ADDRESS

TYPE
DCMSG3

)

012732
01273¢

)

TYPE+6
TCR

1011 012726 104400
101; 012730 014751
1013
1014

;"'THE FOLLOWING VALUES ARE BEING USED'’
.
.
:
DEVICE ADDRESS =

Sl Sl Sul

104406
020540

DCMSG1
TYPE
DCMSG2

012722
012726

mog 81 714 014654
1007
012716 104400
1008 012720 014722

1009
1010

; INPUT ROUTINE FOR DEVICE ADDRESS, INT VECTOR ADDRESS AND BR LEVEL

DEVCOD: TYPE

104400

012712

SEQ 0032

1005

PAGE 3

1004

14:57

AMML Sl

MAIN. MACYIY S0AC1032) 19-MAY-80
CZCTAA.SRC
19-mAY-80

1079 013226

032777

1080 01323¢ 001404
1081 013236 104400
1082 013240 015370
1083

1084

1085

013242

013244

013246

1088
1089
1090
1091

013256

032777

015377
004767
012704
004767

1093 013304

001001

1094
}%

013276

013306
013310

032777

000004

BEQ
TYPE
BDMSG

#1,3ADR

005222

E2:

BAD
BIT

BEQ

177306
000015
000304

100000

E3:
165174

COLMSG
JSR
MOV
JSR

BIT

BNE

ERRHLT: XX
E4:
RTI

:TYPE CONTENTS OF BAD

PC,0CTDEC
#15.R4
PC,TTYOUT

#100000,3SWR

011603

1101

013320

032713

013314

1102 013324
ng 013326

162703

001401
000417

000002

TYPOUT: MOV

SUB

000007

BIT

BEQ
BR

(SP) ,R3

;" 'COLUMN #=""
*TYPEOUT DECIMAL COLUMN # IN ERROR

:TYPE CR + LF
:IF SR15=1

*BYPASS THE ERROR HALT

*ERROR HALT
CEXIT

:GET PC FROM STACK

#2.RS

*SUBTRACT 2

TYPMSG
TYPOCT

*IF 0'S GO TO TYPMSG
:IF NOT 0°'S GO TO TYPOCT

#7. (R3)

:TEST LOW ORDER 3 BITS OF TRAP INSTRUCTION

:MESSAGE TYPEOUT - RS=ADDRESS OF BEGINNING OF MESSAGE

1107

013330

1109

013334

011604

TYPMSG: MOV

(SP) ,R&

112504

TM1:

(RS)+.R&4

013332

011405

1110

013336

001410

1112
1113
1114
1115

013344
013346
013352
013356

001002
012704
004767
000766

013340

022704

000046

000015
000224

MOV

MOVB

BEQ

TTMM2:

BNE
MOV
JSR
B8R

(R4) RS

;RS=ADDRESS OF MESSAGE

TM3

“IF IT EQUALS O TERMINATE

TM2
#15 R4
PC.TTYOUT
TMi

*NO - GO TYPE CHAR
“YES = TYPE CR+LF
*GO TYPE CONTENTS OF Ré&
*GO GET NEXT CHAR

#46,R4

TM
S
o [ IS
e
e
TR

:TYPE BAD ?

*NO

;'BAD =
#4,2ADR

:TYPE CONTENTS OF GOOD

:DETERMINE IF THIS TYPEOUT IS FOR MESSAGE OR OCTAL VALUE AND BRANCH ACCORDINGLY
013312

1111

BIT

TYPE

000000
000002

1099

1108

E1:

TYPE+6

]'ggg

1100

005242

104400

013260
013262
013266
013272

1092

000001

104406

020500

1086 01325¢ 001404

1087

TYPE+6

104406

020519

013222

1077

104400

GOOD

013216

;TYPE CONTENTS OF ADR
STYPE GOCD ?
:
;" 'GO0OD=""

1078 0132264

1075

#2,3ADR
E1

*YES = SET SCOPE TO A 1
*PUT ADDRESS OF ERROR IN LASTPC
:1F SR14=1 DELETE TYPEOUT
SEXIT NOW
:
3
:"ERROR AT ADDRESS

1076 013220 015361

005262

(SP) ,ADR
#2,ADR

;1S LOOP ON ERROR SELECTED ?

TYPE+6

ADR
BIT
BEQ
TYPE
GDMSG

.+10

104406

#1,SCOPE
(SP) ,LASTPC
#40000, asWR
E3

*PUT CHAR IN R4

:DOES CHAR = CRLF FLAG ?

it e I

013202

005302
000002 005274

1072 01320¢ 020476
1073 013206 032777 000002
1074 013214 001404

MOV
MOV
BIT
BNE
TYPE
PCMSG
MOV
suB

BEQ

000001 005362
005342
040000 165316

1071

012767
011667
032777
001041
104400
015335
011667
162767

PC, CKSWR

#20000, aswR

e eT I

001403

013142
013150
013154
013162
013164
013166
013170
0131764

JSR

BIT

N e

013140

1
1064
1065
1066
1067
1068
1069
1070

ERROR:

eT I

1825

000552

SEQ 0033

004767

013126

1061 01 1§3 032777 020000 165340

PAGE 3-1

1060

14:57

MAAMAAAAAAAMAAAAAAAAARAAAAAAMAMIAIRMAILAIRIALIAILIRIAIRAILAIAIAIAILIALRAIALALALALALALALALAL AL AL AL AL AL A

JMAIN. MACY11 30AC1052)
19-MAY=80
CZCTAA.SRC
19-MAY=80 14:57

013414

010467

005114

042767

1134
1135

013446
013452

005367
001360

005032

1138
1139
1140

013462
013466
013472

042716
010567
01

000006
005012

1142

013500

005367

005000

1129
1130
131
1132
1133

1143
1144

013474

013504
013506
013512

022705
001002

004767

001372
062716
000002

005106

T0.1:

005100

#2,R3
(RS).PT
aPT R4
RS, CNT

BIC

#177770,TEMP

MOV

710.2:
70.3:

000102

#60, TEMP
TEMP, = (SP)
R4
R4
R

cTMP
BNE

#6.RS
10.2

CNT
70.1

:PUT VALUE IN TEMP

:MASK OUT ALL BUT BITS 2,140

*MAKE ASCII NUMBER
*STORE NUMBER ON STACK

:IF CNT IS NOT ZERO
;G0 STACK ANOTHER NUMBER

:IF 6 NUMBERS WERE SELECTED

sCLEAR BITS 140 OF LAST NUMBER STACKED
JSET CNT FOR TYPING
JGET A NUMBER FROM THE STA(K

DEC

CNT

:IF COUNT IS NOT ZERO

RT]

;R4 = VALUE TO BE TYPED
*SET CNT FOR STACKING

#6, (SP)
RS,CNT
(SP)+ R4

JSR

PC, TTYOUT

0.3
#2.(SP)

(lal)

;RS = # OF DIGITS TO BE TYPED

BIC
MOV
MOV

BNE
ADD

000002

R& TEMP

ADD
MOV
ROR
ROR
ROR

DEC
BNE

000006

#177770.RS

ADD
MOV
MOV
MOV

*TYPE THE NUMBER

:GO TYPE ANOTHER NUMBER
:ADD 2 TO SP FOR RETURN
CEXIT

”22

177770

013426 062767 000060
013434 016746 005074
013440
013442 006004
013444

1136 01345¢
1137 013460
1141

BIC

177770

0133764 062703 000002
013400 011367 005122
013404 017704 005116
013410 010567 005070

(R3) ,RS

042705

TYPOCT: MOV

1127

1128

011305

1123
1126
1125
1126

013366

013370

RS=# OF DIGITS TO TYPE

nzi

:OCTAL TYPEOUT = R4=VALUE

;ADD 2 TO SP FOR RETURN
CEXIT

Ve e

1121

#2,(SP)

Ve e

“}3

ADD
RTI

TTMM3:

000002

SEQ 0034

D e o

062716
000002

o1gseo
013364

PAGE 3-2

e e e e e e e e e

116
mg

19-MAY<80 14:5

14:57

e e e e

CZCTAA.SRC

19;'\“-80

e e e o

MACY1Y 30A(1052)

e e e e e e e e e e e e e e e o

JMAIN.

013572

1161

Hgg

013574

013600

001354

016704

000207

000007
004746

004752

004734

BIC
ADD

#7,TEMP
R&. TEMP

;CLEAR TEMP BITS 2,140
:ADD INPUT CHAR TO OTHERS

BNE

RD. 1

*GO READ ANOTHER ONE

RTS

MOV

TEMP
TEMP
TEMP

TEMP R4

*IF ALL CHARS NOT READ IN

sPUT FINAL OCTAL VALUE IN R4

CEXIT

*TYPE THE CHARACTER IN R4

1166

013602

032777

040000

1169

013616

105767

163742

022704

000015

1167 013610
1168 013612
1171

*MAKE CHAR OCTAL

DEC

”gg

1170

#177770,R4

ROL
ROL
ROL

013622
013624

001021
010467
100375

163750

164670

TTYOUT: BIT

#40000, aSWR

T10.1:

TPS

BNE
MOV

TSTB

BPL
P

:IF SR14=1 DELETE TYPEOUT

T70.3
RG,TPB

:TYPE CHAR IN Ré

170.1

:WAIT FOR DONE

#15.R4

*WAS IT A CR ?

(04712

1160

1159

042767
060467

BIC

,
~

Ne Vo N

005367

013554
013562

;GET CHAR FROM TTY
*ECHO IT

Vo Vo No Vo Ve Ne N

013566

1157
1158

177770

;CNT=# OF DIGITS TO BE INPUT

004770
004764
004760

RS, CNT
TEMP
PC,TTYIN
PC.TTYOUT

e e No No No No Vo No N

006167
006167
006167

042704

RD.1:

MOV
CLR
JSR
JSR

013540
013544
013550

013534

RDOCT:

e e e e o

004764
005010
000126
000046

e e o o

1754
1155
1156

1153

010567
005067
004767
004767

e e o o

013514
013520
013526
013530

1149
1150
1151
1152

Yo Ve Ve ¥

sOCTAL TYPEIN - RS5=#0F DIGITS TO BE INPUT INTO Ré4

—

b
D
b

004654

D D

170.3:

013662

D ed d ) ed

D e

170.2

:IF NO = GO EXIT

TTYOUT
#40000,L0C
oc

+GO TYPE THE LF

JEXIT

#12.R4

005267
032767
001774
016704
042704

163670

163664
177600

d e

000176

TTYIN:
Ti.1:

INC
BIT
BEQ

MOV
BIC
RTS

000207

163676
000200

164566

163640

KS
#200, TKS

TT1.1

TKB R4

#177600,R4

:IF YES = PUT LF IN R4

—

164546

MOVB

BIC

CMP

GTSWR:

K19:

163554

—

BNE

000001

01421
014216
164212
000300
014226

K7:

163550
177600
000025

K9:

014204
000006

K20:

000015

K10:

000004

000002
000010
014240

164420

;FETCH A CHAR

;WAIT FOR DONE FLAG
*READ CHAR INTO Ré&

*MASK Ré4 WITH ALL BUT 177

SEXIT

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM TRAP HANDLERR,AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
: *WHEN OPERATINGéNETY FLAG MODE.
CKSWR:
CMP
WREG, SWR
;1S THE SOFT-SWR SELECTED?
BNE
K15
:BRANCH
IF NO
TSTB
TKS
THERE?
:CHAR

163634
177600
000007

BPL

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

K15

AUTOB,#1
K15

TYPE
MOV
JSR

.MSWR
SWREG, = (SP)
PC, TYPOC
,MNEW

TYPE

CLR
CLR
TSTB
BPL
MOVB

BIC
CMP

,CNTLG

=(SP)
-(SP)
TKS
K7
TKB,-(SP)

#+C177,(5P)
(SP) ,#25

BNE

K10

ADD
BR

#6 SP
K19

TYPE

,CNTLU

CMP
BNE
ST
BEQ
MOV
ADD

(SP) .5
K16
4(5?)

TYPE

LCRLF

Z(SP) aSWR

K11:
,SP
sTTY INPUT ROU'INE

K14:

K15

TKB,=-(SP)

CMPB
BEQ
TYPE

2 |

|
SEQ 0035

*READ CHAR FROM TTY INTO Ré&

d d d e

d D

170.2:

BNE
MOV
BR
MOV
DEC
BNE
RTS

;IF NO,DON'T WAIT AROUND
;SAVE THE CHAR
;:STRIP OFF THE ASCII
;1S IT A CONTROL G?
sNO RETURN TO USER
sARE WE RUNNING IN AUTO-MODE?
;BRANCH IF YES
cECHO THE CONTROL-G (“G)
s TYPE CURRENT CONTENTS
:SAVE SWREG FOR TYPEOUT
;GO TYPE-OCTAL ASCII(ALL DIGITS)
;PROMPT FOR NEW SWR
:CLEAR COUNTER
INEW SWR
:CHAR THERE?
:IF NOT TRY AGAIN
;PICK UP_CHAR

;MAKE IT 7-BIT ASCII

;1T IS A CONTROL-U?
:BRANCH IF NOT
;YES ECHO CONTROL - U(*WV)
Im PREVIOUS INPUT

:LET'S TRY IT AGAIN
;IS IT A <CR>?

:BRANCH IF NO

sYES,IS IT THE FIRST CHAR?
:BRANCH IF YES
;SAVE NEW SWR
;CLEAR UP STACK

;ECHO <CR> AND <LF>

czc
SUSsUSUsUSUSUSUSUsUISUISUSUISUISUISISISISISIA
A A A A A A A A A A AR A A
A A A A

)

i
e
o Y W R I I R R QO I R S O R
T
)—_ s

000012

040000
004650

PAGE 3-3

-A-l-l-‘—‘d-l—lddddddd-‘dddd-‘dd—l—‘d-‘dddd—l—‘ddddfldd

14: 57

§ ERNERNN SRRSRERASYNNANSE BRIRIREC28BE zsazazsszazauzaa

JMAIN, MACYTY 30“1933 )
19-MAY-B0
CZCTAA,SRC
14:57

000100

163452

000067

CMPB

BNE
MOV

K15:
K16:

RTS
JSR

CMP
BLT
CMP
BGT

000060
000002

000002
177776

K17:

014237

K18:

;RE-ENABLE m KBD INTERRUPTS

*BRANCH IF NO
;RE-ENABLE TTY xao INTERRUPTS
:RETURN
“ECHO CHAR

PC TYPEC

(SP) ,#60
K18
csp).nr

*CHAR < 0?
*BRANCH IF YES
“CHAR > 7?

K18

BIC

#60, (SP) +

TYPE
B8R

xzo

ST
BEQ
ASL
ASL
ASL
INC
BIS
BR

TTYN:

INTAG.#1

K15
noo XS

amwcu IF YES

:STRIP=OFF ASCII

2(SP)
K17
(SP)
(SP)
(SP)
2(SP)
-2<sp> (SP)

.BLkB

*1S THIS THE FIRST CHAR
*BRANCH
IF YES
*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

12.

:RESERVE 12 BYTE FOR TTYT

2Y INPUT

0142

052536
136
005015

000040

005015
006507
053523

000
000012
036522

CNTLU:
CNTLG:
MSWR:

ASCIZ
LASCIZ

/7%G/<15><12>
;CONTROL 'G'’
<15><12>/SWR= /

1255

014226

020040

042516

020127

MNEW:

LASCIZ

1257
1258
1259
1260
1261
1262
1263
1264
1265

014237
014240
014241

077
015
012

QUES:
CRLF:
LF:

LASCII
LASCII
JASCIZ

72/
<15>
<12

1266
1267
1268
1269

1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281

NEW = /

aMfMA
e iMLn N

000

At iaad

ittt ittt

ittt

;QUESTION MARK
*CARRIAGE RETURN
*LINE FEED

ittt

212 2222221

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

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

:#CALL:
%
“mov
%
TYPOS
I*
.BYTE

NUM,~(SP)

N
;*TO TYPE

;NUMBER TO BE TYPED

;CALL FOR TYPE OUT

;N=1

BYTE

TO 6 FOR NUMBER OF DIGITS

:M=1

0RO

;1=TYPE LEADING ZEROS

;0=SUPPRESS LEADING ZEROS

'}’Y‘EMNTER HERE TO TYPE OUT WITH THE SAME PARAMETERS
i

;*TYPOS OR TYPOC

s*CALL:

L
. %

MOV

TYPON

NUM, ~(SP)

;NUMBER TO BE TYPED
;CALL FOR TYPEQUT

020075

014234

:CONTROL ‘U’

1256

/7%U/<15><12>

125¢

LASCIZ

000001

IR s

021627

003015
726
005766
001403
006316
006316
006316
005266
056616
000707
104400
000720
000014

164420

XOVONOWVSW

O
014211
014216

014122

SEQ 0036

014126
014130
014134
014140
014142
014144
014146
014150
014154
014160
014162
014166
014170

000356
000060

PAGE 3-4

1236
1237
1238
1239
12640
1261
1262
1243
1266
1245
1266
1247
1248
1249
1250
1251
1252
1253

1235

126727
00100
012767
7
004767
021627

14:57

014070
014076
014100
014106
014110
014114
014120

19-MAY-B0

Y=-80 14:57

)

1
1
1
1231
12
12
1234

(1052)

oD@
FRRIN2R

MACYYY

—t e

JMAIN.

CZCTAA.SRC

(1052)
19-MAY<B0
Y=80 14:57

14:57

PAGE 3-5

SEQ 0037

" mov

S OO
bt b

TYPOC:

U
WY Y

TYPON:

FILLO,R4
10(SPJ RS

VONOVSWNN=O

R5
R5

d o
b
b
o
b o

TST

A4:

R4
#'0,R3
#'
RS

AS:

’

R3,A8

R4 ~(SP)

104400

RS,-(5P)

014464
000022

(SP)+ RS
(SP)+ R4
CNTO

A7:

A2
A6

(SP)+,RS

;GET LSB OF THIS DIGIT

;TYPE THIS DIGIT?

BR_IF NO

:GET RID OF JUNK
STEST 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

*GO TYPE THIS DIGIT
;COUNT BY ONE
sBRANCH IF MORE TO DO
;BRANCH IF DONE
s INSURE LAST DIGIT IS NOT A BLANK

(SP)+ _R3

;RESTORE RS
sRESTORE R4
;RESTORE R3

0
0

sSTORAGE FOR ASCII DIGIT
;TERMINATOR FOR TYPE ROUT INE

(SP)+ R4

RTS

sSUBSTRACT IT FOR MAX.ALLOWED
;SAVE IT FOR USE
;GET THE ZERO FILL SWITCH
;PICK UP THE INPUT NUMBER
;CLEAR THE OUTPUT WORD
sROTATE MSB INTO ‘¢’
;GO TO Ms8

;FORM THIS DIGIT

R5.R3
R3
MODEO
A7
#177770,R3
Ab

e S4 G

sADJUST RETURN ADDRESS

*GET THE NUMBER OF DIGIT TO TYPE

A2:

PICKUP THE MODE
LOAD ZERO FILL SWITCH
NUMBER OF DIGIT TO TYPE

d d e
d d e
e

;NUMBER TO BE TYPED
;CALL FOR TYPEOUT

sSET THE ZERO FILL SWITCH
sSET FOR SIX(6) DIGITS
:gET TRPES ITERATION COUNT

Al:

WWWWWWWWWANW

b d e

a(SP) ,-(SP)
1(SP) ,FILLO
(SP)
+ ,MODEO+1
#2,(SP)

01430¢

TYPOS:

NUM,
= (SP)

2gggeg

TYPOC

d d e

b d e

d e e

SRR

b d e

d D

d o

b— e

::TXLPEC"'E"TER HERE FOR TYPEOUT OF A 16 BIT NUMBER

FIRIBIFAFAFES

JMAIN, MACY1
CZCTAA,SRC
1

CZCTAA.SRC
JAIN,

MACY1Y

1
1

01
01446

130-&

1052)

19-mv-ao

CNTO:
FILLO:

014470

000000

1364
1345

014472
014476

105767
100375

163066

137

014506

122766

000015

105067

000014

122766

014241

MODEO:

1346 014500

116667 ooooog

1348 014514

001003

1350 014522

0004

014316

1351

014526

1352

1353

1354
}?52

014532

001402

014536
014540

000000
000207

014534

tyPec:

163060

1359
1360
1361
1362
1363

1364

1365

1366

B1:

:OCTAL DIGIT COUNTER
;2ERO FILL SWITCH

:NUMBER OF DIGIT TO TYPE

1STB
BPL

TPS
TYPEC

;WAIT UNTIL THE PRINTER IS READY

2(SP),TPB

#15,2(SP)

BNE

TYPEX

CMPB

BEQ

INCB

CHARCNT:.WORD
TYPEX:
RIS

CHARCNT

#LF,2(SP)

TYPEX
(PC)+

0
PC

SEQ 0038 |

;LOAD CHARACTER TO BE TYPED INTO DATA REG
;IS CHAR CARRIAGE RETURN?

:YES_CLEAR CHAR COUNT

SEXIT

014542
014546
014556
014562
014570

014576

014600

013746
012737
012767
012767
022777

001012

000403

012716
000002
012767
012767
012637
005067
132767
001403
012767
000207

1378

014654

023046

014662
014670
014676
014704
014712

014720

014722

014730

014736

014744

014751

047506
047111
052514
042522
043516

104

053105
042101
020123

046

000004
014602
177570
177570
177777

000004
163716
163712
163702

BNE

014610

RT1:

000176
000174
000004
163650
000200

163644

000510

163626

044126

020105

046114
020107
051
041040
052440

041511

051104

020075

020040

163662
163656

053517
040
0
0
042523
0

020105
051505
000

020040

MOV
MOV .
MOV ~
MOV
CMP

RT2:
RT3:

DCMSG1:

@WERRVEC,-(SP)
ART1,a#ERRVEC
#DSWR,SWR
#DDISP,DISPLAY
#-1,aSWR

RT3

:SAVE ERROR VECTOR
:SET
UP ERROR VECTOR
;SET UP FOR HARDWARE SWR
:AND A HARDWARE DISPLAY REGISTER
:TRY TO REFERENCE HARDWARE SWR

GOM!

GOOL

|
}

GTS
HOLL
INI]
INIT
INIT

INP1

THE HARDWARE SWR IS NOT = =1

MOV
CLR
BITB
BEQ
MOV
RT4:

£l
E%

;

emwcu IF NO TIME OUT TRAP OCCURED

#SWREG,SWR
;POINT TO SOF TWARE SWR
MOV
ADISPREG,DISPLAY
(SP)+ ,@#ERRVEC
;RESTORE ERROR VECTOR
APASS
:CLEAR PASS COUNT
#200,AENVM
:TEST USER SIZE UNDER APT
RT4
:YES,USE NON-APT SWITCH
MASWREG,SWR
:NO,USE APT SWITCH REGISTER
RIS
PC

MA
czc

iCHARACTER COUNT SPACE

RT2

#RT2,(SP)

|
i

:COUNT THE CHAR

MOV
RTI
MOV

:BRANCH IF YES o

:EQUAL TO A **~1"", SETUP FOR A SOF TWARE SWITCH REGISTER.

SWRCK:

|
|

IS CHAR LINE FEED?

:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

014602
014606
014610
014616
014626
014630
014636
014642
014644
014652

1380

CLRB

000002

.WORD

CMPB

105227

1367
1368
1369
1370
1371
1372
1373
1376
1375
1376

1379

.BYTE
.BYTE

MOVB

000002

1357

1358

PAGE 3-6

000
000

1340

139

14:57

INT/

aamcn IF NO TIME OUT

Ki)

:SET
UP FOR TRAP RETURN

K11
K14
K15
K16
K17
K18
K19
k20
K7
K9,

.ASCIZ /BETHE FOLLOWING VALUES ARE BEING USED/

|
DCMSG2: .ASCIZ

DCMSG3: .ASCIZ

DEVICE ADDRESS = /

PC INTERRUPT VECTOR ADDRESS =

LEVE

oc
061
3

CZCTAA.SRC

(105 )

19-MAY-B0

SSETREEE

V-Og 14:57

020123

051505
000

14:57

PAGE 3-7

020075
DCMSG4:

.ASCIZ

DCMSGS:

LASCIZ

/88D0 YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N)?/

BUS REQUEST LEVEL = /

e e

NP FRELCURRSRR

LOGTST:

.ASCIZ

/8&xxxxx LOGIC TESTS swwasgg/

INITM1:

LASCIZ

/8BPUT 8035-8045

CONMSG:

.ASCIZ

/BPRESS CR TO CONTINUE/

PCMSG:

LASCIZ

/8BERROR AT ADDRESS /

042117

GDMSG:

.ASCIZ

/8G00D=/

036440

BDMSG:

LASCIZ

/8BAD =/

052514
75

COLMSG:

.ASCIZ

/8COLUMN #=/

T2MSG1:

LASCIZ

/88PUT 8035-8045

d o

QeI

)
)
—

1384

- .ASCIZ
DCMSG6

ENTER VALUE AFTER (=)

IS TYPED/

1383

—

h h o

vivisyusviwvnivinaw

1382

dh o ch o o oy o

1381

MACY1

OO0 i {elelolelelolololelelelololelololelololeote)

JMAIN.

015220
1385

OFF-LINE, REMOVE ALL CARDS/

1389
1390

1391

§%3 288

1388

1387

1386

$3883 §§§§5§§5§§

051101

05152

051505
052040
052116
000

051505

050040
051440

ON-LINE AND PRESS START ON THE 8035-8045/

REIEIIRGITIERE

047 440
5620 04311
i

—

13%

040524

g4
F

d
e e e

s—

1393

015604

14:57

PAGE 3-8

SEQ 0040

047440

650083
TSM1:
08808
7640
051101

SCOF

JASCIZ

/88PUT 8035-8045

OFF=LINE/

TSM2:

JASCIZ

/8RPRESS START ON THE 8035-8045 /

TSMSG1:

LASCIZ

/8BPULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH/

045 50
€2006
052040
044523

1395

T5MSG2: LASCIZ

/RMWILL SIMULATE STACKER FULL AND RELEASE/

1396

T5MSG3:

LASCIZ

/8PROGRAM WILL WAIT FOR STACKER FULL FLAG/

TSMSG4 :

.ASCIZ

/RRPRESS START ON THE 8035-8045 /

1398

T5MSGS:

LASCIZ

/88PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH/

1399

TS5MSG6:

.ASCIZ

/RBPRESS START ON THE 8035-8045 /

1397

016006

JMA]

cza1
RT4

051505

SR—

( 1052) 12-&"—00
Y
14:57
§%

v wvivuvivvviuiwv

1392

D ed d e

d b

QO 0000000000000

JMAIN, MACY1Y
CZCTAA.SRC

JAIN,

MACYTY ww

)

—

1402

—

) e

1401

) e

) e o

1400

e e

Laloaloalon

SINREERS5SR

OS'I1 g

g@};

)

19<MAY<B0

14:57
05 144

744
105
03405

000

14:57

PAGE 3-9

SEQ 0041

524

0
0

TSRH
171,
170.
170.
TT0.
TTYI
TTYN
TTY0

116

guzs22
116

TSMSG?7: LASCIZ

/RRPRESS START ON THE 8035-8045 /

aiort

TYPE

051505
051101
052040
031460
032464

TEMSG1:

LASCIZ

/RPRESS START ON THE 8035-8045 /

025052
042122
051524
025052

CRDTST:

LASCIZ

/88wwxxx CARD TESTS wwwwngf/

P1MSG1:

.ASCIZ

/RRREMOVE ALL CARDS AND PUT THE 8035-8045

LASCIZ

/8BPUT 10 BLANK CARDS IN EACH INPUT HOPPER/

.ASCIZ

/8PUT 8035-8045

OFF=LINE/

1405

016464

P1MSG3:

1406

016555

P2MSG1: .ASCIZ

- PIMSG2:

1404

o L=

299999

FELRGER

1403

562

051440

LMAI

czcr

ON-LINE AND PRESS START ON THE 8035-8045/

/RVERIFY THAT THERE ARE 10 BLANK CARDS IN EACH STACKER/

(1052)
1?“"80
Y
14:57

017044

1411

017132

1412

53046

0464440

wvinw
—-\) =

0511

000
051505

P2MSG4: .ASCIZ

/RPRESS STOP-RESET ON THE 8035-8045/

032060
815.1105

000065
0643111

P3MSG1:

.ASCIZ

/BVERIFY THAT ALL CHARS WERE PUNCHED ON EACH CARD IN A/

042503

P3MSG2:

.ASCIZ

P4MSG1: .ASCIZ

817220

053046

8(5.1}05

017264

g e

)

oy
SN N
SHoow N

04%3%(2)

o
P2MSG3:

050046

OCOO0O0O0O0

1413

051505

041532

.ASCIZ

/RPRESS STOP-RESET AND PRESS START ON THE 8035-8045 /

050040
042105
040503
000

000101

/BPRECESS FASHION BEGINNING WITH COLUMN 11 OF 1ST CARD/

/BVERIFY THAT THERE IS 1 "A’* CHAR PUNCHED IN CARD 1/

044440

02?%%

8‘20035

040524

030101

05
030461

1410

131

817&1

822150 041501 P2MSG2: .ASCIZ /RPLACE ALL 20 CARDS IN THE PRIMARY HOPPER/

1409

0
0

1408
0
0

114

SEQ 0042

047510 050120 8;?105
wi

P233358

(=]

OO OO

0
0
0

101

PAGE 3-10

051105

166
016656

1407 166‘%

14:57

045503

235

0‘0&

28
2852
558 Josg

8;\663‘

MACYIY

JAIN.

CZCTAA, SRC

PROGNM: .ASCIZ /&*** DECSPEC-11-CZCTAAO=CTS11=JC=7 BIT ASCII=TEST wassg/

JAIN, MACYTY
CZCTAA.SRC
1

01
01
0
017354

OCMS

°S§o

0174

1416

1417
1418
1419
1620
1421

1422

1?'“\"00
14:57

14:57

051526
503
1
s

030461
4
051501
gg

0501

052040

0614640
050040
062105

040510
047125
044440

G o

017400 0201
1 030068 021040

017406 Og
017614 05
SZ;
0 7‘%

1415

)

0;0

017436

0 060

017456

064526

060503

000060

017464

017466
017470
017472
017474
017476

1423
1426
1425
1426
1427
1428
1429
1430
1431
1432
1433
1436
1435
1436
1437
1438
1439
1440

017502
017504
017506
017510
017512
017514
017516
017520
017522
017526
017526
017530
017532
017534
017536
017540
017542
017544

1443
1444
16445
1446
1447
16448
1449
1450
1451
1452
1453
1454

017552
017554
017556
017560
017562
017564
017566
017570
017572
017574
017576
017600

000

017466

P4MSG2:

.ASCIZ

047105

020104

043516

023046

ENDMSG:

.ASCIZ

/BREND OF TESTINGRR/

wTDO

wT1D

BF14:
BF13:
BF12:
BF11:
BF10:
BF9:
BF8:
BF7:
BF6:
BF5:
BF4:
BF3:
BF2:
BF1:

40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40
40

BF15:

wT0D

.EVEN

000040
000040
000040
000040
000040
000040
000040
000040
000040
000040
000040

000040
000040
000040
000041
00004
00004
000044
000045
000046
000047
000050
000051

/8UP TO 20 "'A'* CHARS PUNCHED IN CARD 20/

LOOP

40
40
40
40
40

4l Bag e

LMA]
czct

SEQ 0043

CKTD

BF20:
BF19:
BF18:
BF17:
BF16:

000040
000040
000040
000040
000040
000040

CKTC

000040
000040
000040
000040
000040

000040

042122

017450 0‘31
17 052040 051505

017442

PAGE 3-1

40
40
40
41
“
“
L
[
46
47
50
51

. AB
'

ERR
(94
RUN
RUN
COR

24RERYRLLE
1500

SR YA S

S SR

SRS S

T QS N

)

SRRRoeeER2R%S3eeet
NINININNINYNY

00005
00005
000054
000055
000056
000057
000060
000061

S0 XA S-S ViV
NNV
WY

ONNRISTREIS3RRSRERS
NOWVS W= ON
WwWh —

s JEs YRS Y

14:57

175
WN

—

(1052)
19-MAY=<B0
v-80 14:57

T XRRTANS

017602

ERET

SEEEREEEEEES

2992929222 29222922222 S

§58528R58

1455
14656
1457
14
1459

88S88888EES

JMAIN, MACYTY
1
CZCTAA,SRC

PAGE 3-12

100

SEQ 0044

(1052)
19-MAY-80
Y-80 14:57

14:57

PAGE 3-13

SEQ 0045

312“M=y312“312

1r3O1=“e1NA1TO1=S11&=1SPR1-l.‘l1.4l“1‘14“T1‘4‘‘141‘41‘A4'1"‘14‘1414“’R
A“R“R1XFB1RvR1SvS

JMAIN, MACY1?
CZCTAA,.SRC
1

SRRNARR

CARDO2:

CARDO3:

R(=l=T1sR] R R T

CARDO4:

CARDOS:

&0120—ONO—OONOr-—ONOwoomzmCOmowOuNOwNQO«O%VmOfiNfOixOwN&OuNwm2n
O eTO e 0Oee POeeONTeOO0eOOO0

e1‘s81351e1‘1P‘1’P1R11B1R
B1R1R1‘A1A1‘R1B1A111’11R
CZCTAA.SRC

MACY11 30A(1052)
19-MAY-B0
19-MAY-B0 14:57

28LR =

14:57
PAGE 3-14

SEQ 0046

CARDO7

CARDO8

CARDO9:

CARD10:

CARD11:

CARD12

CARD13

JMAIN,

MACYT

CZCTAA,SRC
1623

020322

1
1
1

(1052)

1633
1634
1635
1636
1637

020344

020346
020350
020352
020354
020356

000061
000064
000103
000101
000122

1646
1645
1646
1647
1648
1649
1650
1651
1652
1653
16564
1655
1656
1657
1658
1659

020372
0203764
020376
020400
020402
020404
020406
020410
020412
020414
020416
020420
020422
020426
020426
020430
020432

000101
000122
000104
000040
000061
000066
000103
000101
000122
000104
000040
000061
000067
000103
000101
000122
000104

000103

1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672

020434
020436
020440
020442
020444
020446
020450
020452
020454
020456
020460
020462
020464

000104
000040
000061
000071
000103
000101
000122

1676
1675
1676

020470
020472
020474

000040
000062
000060

1677

020466

40
6]
63

000040

000104
000040
000061
000065

1673

122

104

CARD14: 103

360
020362
020364
020366

020370

SEQ 0047

000103

1
1639
1640
1641

1642
1643

PAGE 3-15

000122

ol
1631 8%3‘2 000104
163;

14:57

000104

000040
000061
000063

1628

19-MAY-B0

Y=80 14:57

000040
000061
000070

000103

000101
000122

000104

2
104

61
64

CARD15: 103
101
122
104
40
61
65

CARD16: 103
101

CARD17:

CARD18:

CARD19:

CARD20:

122
104
40
61
66
103
101
122
104
40
61
67
103
101
122
104
40
61
70
103
101
122
104
40
61
71
103
101
122

104

40
62
60

.EVEN

JAIN,

MACYTY

CZCTAA,SRC

1679
1680
1681
lggi

020476
8%8;8%

1684
1685
1686
1687

10
020512
85821‘
16

506

( 1052)
19-MAY<B0
\{
14:57
000000
000000
000000
000000
000000

000000
000000
000000
000000

1688

020520

000000

1691
1692
1693
1696
1695

020526
020530
020532
020534
020536

000000
000000
000000
000000
000000

1690 020354 00000

1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717

1718

14:57

PAGE 3-16

SEQ 0048
ADR:
BAD:
CARD:
CNT:
CNT1:
GOOD :

XX
XX
XX
XX
XX
XX

LASTPC:
LEVEL:
LOC:
OUTPTR:

XX
XX
XX
XX

HOLD:
INPTR:

PT:
PTR:
SCOPE:
TEMP:
TOG1:

XX
XX

XX
XX
XX
XX
XX

étttt.ttt DEVICE ADDRESSES waxamnnn
020540
020542
020544
020546
020550
020552
020554
020556

177160
177161
177162
177163
177164
177165
177166
177167

TCR:
TCRHI:
TSR:
TSRHI:
TDR:
TDRHI:
TIR:
TIRHI:

177160
177161
177162
177163
177164
177165
177166
177167

;esaxxxxx [NTERRUPT VECTOR ADDRESSES s+ssxsww
020560
020562

000230
000232

PCV:

PSV:

230
232

Etttttttt BUS REQUEST LEVEL woxsxssan
020564

000004
000001

BRLV:

4
-END

MAIN. MACY11 30AC1052)
19-MAY=80
CZCTAA.SRC
19-MAY=80 14:57
ADR
AENVM

APASS
ASWREG

020476
000506

000504
000510

AUTOB

000512

A2
A3

014354
014364

1969~

1200

1307#
1306

1328
1311#

1331

13%

13364

379w
467+
579w

468+

AL
AS
A
A7

014406
014414
014454
014440

1315
1317
1329
1313

8
(8A0

= 000001
020500

BC1
BOMSG
BF1
8F10
BF11
BF12
BF13
BF14

BF15
BF16
BF17
BF18
BF19

BF2
BF20
BFS

BF4

BFS
BF6
8F7
BF8
BFS
:

1321

2440
378«
464

558+
51*
718«
799+
888+
8784
1082

012046
015370
017534
017512
017510
017506
017504

97
146274
14264
1425#
14248

017500
017476
017474
017472
017470

14220
14214
14208
1419#
14184

017502

017532
017466
017530

17526

017524
017522
017520
017516
017514
012036

020564
01452
020502
020046
020064
020102

020120
020136
020154
020172
020210
020226

1375+

1072

330

1305#

014464

1?72'

1073

1079

1085

389«
481+
608+
666+
724
826
1084

395+
484+
614+
667+
739
837x
16804

419+
485+
615+

895

903

14364

€50

656

665

925

16814

SEQ 0049

16794

301
350
137

014350

K &
14: 57 PAGE &
CROSS REFERENCE TABLE == USER SYMBOLS

1318¢
1320#
13320
1327

658e
719+

800w

968+

380«

605+
659+
723«
825+
969
887

879
1389%
759

819

901

164174

421+
510%
630+
694

671%
740
838+

444

850«

515+
635+
695+
779
851+

716

8764

14224

14354
893
14340

14334

14320
14314
14304
14294
14284
62

43
1348
770%
829
15440
15514

15584
15654
15720

15794
15864
15934

6
1018
13514
774*
15374

17164

692

450«
527
%
644
705+
781+

858+

460+

461%

706+
792%
881+

707+
793+

532+
645+

557+

CZCTAA.SRC
JAIN.

MACYIY

858 16

14:57

19-MAY-<B0

020460

012516
014536

9654
1349

014211

014204
014466
020506
000004

1670#

894#

762
595
688
§70*

1159«
1203

1216
1294~
632~
241»

847
945

9634
1060

11934

571~

573«

575«

577

609~

610

612~

1126*

1134~

1139«

1251#
1327=
638«
884

1338#
653«
971

660

698~

708«

769

782

828«

840~

16834

417

495

500

536

548

568

594

603

687

14024
1258#
1378#»
1035
1045
1052

1379#
13804
13814

1032#
1043
332

1362

380
468

389
477

579
651

395
481
605
658

419
484

608
659

420
485

614
666

421
509

615
667

438
510

624
671

629
672

630
694

8733

799

800

825

826

837

838

839

8934

1682#
1252#

870

591
1227
1006
1008
1012
1016

1021
1033
1022#
1024

013010
013040
177570

1026
10404
3294

000174

353
3328

177570
017442
104000

284
364
234

461
532
637
701

779

RRVEC=

834
927

8684

376

013306
013126

851

318

3274

975
822
910

012016

012712
000502

SEQ 0050

790
877

1390#
13864

015047
015135
012752
012774

1354
776
867

1088
866

016274
014240
014654
014722
014751
015015

RRHLT
RROR

896

015377
015307
1

PAGE &-1

16588

168
165

01%50‘
013704
012170
020504

CROSS REFERENCE TABLE == USER SYMBOLS

14:57

1600#
1607#
1614»
1621#

50375
82045%
012174

vCoD
SPLA

1&7

(1052)

1382#
1383#
1028
1027#

1005#
1362

1370

33
1415#
378

1149«

757

816

865#

447
515

450
516

460
527

1370

1361

464
545
644

379
467
557
645

558
649

780

857

781

858

87:%

1359

1360«

1371«

705

1142+

706

707

718

719

971

723

724

733

739

740

765

635
695

766

850

CZCTAA SRC
El
Eg
E

013226
0
01

01331

EXLLO

01446
=

= 00000

19-May

19-MAY=B0
1 &:57
1074
1080

1
109

12‘ v

S0
464
558
651

GDMSG

GOOoD

015361

020510

718
799
971
1076
378«
464~
558«
651
718+
799
888«
349
387+
357

373
3774
759«
3374

e
e I I

1215

1222
12274

1194
1220
1239

1234
1208
1217#%

0oC

OGTST

020520
014241

020522

015177
= 012114

1210#
12144
378
464
547
644
705
780
857
428«
1259
1175«
37

3784
4684
605#
659
7234
825#

14: 57 PAGE 4=2
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0051

1075#
1085#

1086
1095#

1292«

46
579

658

719
800

1388#
379
467
579«
658«
719=
800«
967
12044
388
370#

389+
481+
608+
724
826+

1078

461+

16844

16854

13854
378

380

763=

819«

823+

835«

1202

1229

12314

1228

848+

16864

1219#

12244
1196
12324
12434

1236
1218
1247

1211

379
467
557
645
706
781
858
436%
1351
1176»
13844

3794
4814
6084
7240
8264

1200

12464
1245

420

614
666
724
825

3954
5094

6294

6724
7654
8394

4614
5574
6494
7074
7934

$et

MACY11 30A(1052)

—

JMAIN.

4674
5
7194

800#

JMAIN,

MCV“‘

CZCTAA.SRC

0142
0144

014216
012574

o} 52

012704
020524
382523

007604
010706
015335
017303
177776
020562
020526
020530
004634
004710
005544
004704
016327
016412
016464

007404
007440
007434
016555
016643
016715
017001
012244
012230
010036
7044
017132
012322
012350
012304
011144
017220
7373
012410
012450
12

014237
013514
013524

14602
014610
014624

(;05)

19-MAY=B0

14:57

1207
1289+

14:57

1298

OR?

992

12534
1

%
981«

9934
983+

983#

829
361
674

742
801
1068

948
S8o#
6814
749%
1387#

348
224k
430
M2+
697«
6208
626
6334
6548
618
593
599
601

1413#
343%
472«
1125
703+
625
628#
639
661
6274
14034
14044
1405#

733
735
727
682
684
512
375
912¢
702
771
752
928
934#
773
8304
809
811

734
7378
754
529
14,094
913
713
783
14104
14114
929
935
787
841
1412#
14144

9534

954

429

69%

832

1266
1037
1151

1360
1366
1366

471%

CROSS REFERENCE TABLE == USER SYMBOLS

1255#
1293+

9804

PAGE 4-3

984
949+

1301+

1312«

13408

989
16904

996

1000#

947

845

12574
1047
1160

13674
1367
13714

|
f

‘|

||
|

|
618«

727

1014

1042

1048*

17114

427%
619«
16914
714

433%
728+

473
1050

476%
17124

620%

623«

909

964r

967

973%

16924

709

14064

SEQ 0052 |

729%

732«

|
;:
.
;
1
:
:
|
|
|
.
|

813
567
917
737

14074
686
.
9094

933
939
797

9254

952

958

756

815

14084

|
'
|
|
:
.

855

944H

1054

1149#

.
1369

000500

SWRCK
SWREG

014542
000176

658

781
858

020540

020552
020534
012706

TEST.

001552

1223+

432+
569+
657
711

450
605
659
717

464
608

843+

849

853+

968

17044

1155«

1156+

1157%

1158+

1161

16944

655
846
831

664
878
844

691
88
854

707

715

723

761

912

918

928

934

614
765

629

1361+

1363

1369+

470%

481
633+
672
738
800
1010

630
670
726+

721
793

785

648
839
796
1210

1230+

951

956+

957

16954

485
666

509
671
857

515
694

527
701

850

17024

3 3235gKR R LORRUR
IR

012710
020536
013414
013466
013472
= 177566
= 177564
020544

013334
013352
013360

PND Y= b b b B O

T0G
T0G1
10.1
T0.
T0.
TPB
TPS
TSR

TM1
TM2
TM3

5654

eyt

= 177562
= 177560

BRVEESEEEY5338

TKB
TKS

)

020556

—

TIRHI

003076

004100
020554

TESTS

TEST6
TIR

1166

798

858

001764
002230

TEST
TEST4

1092

825

001334

—

TEST1

958

779

020550

TDRHI
TEMP
TENS

450
485
614

B3
800

693

TCRHI

SEQ 0053

~Nw

TCR

419
434

ou U AR

SWR

—W

001000
001046
001
001076
-

START
M
ST
ST

379

467
557
5

Giek

1374

014652

14:57 PAGE
&
CROSS REFERENCE TABLE == USER SYMBOLS

8%e3RER
Wg — £444

RT4
SB1
SCOPE

¥=80

ag\hbg

JMAIN, MACYTY gOA*lO
)
1
CZCTAA.SRC

064

780

JMAIN.

MACY1Y 30A(1052)

CZCTAA, SRC
TSRHI

020546

19-MAY=80 14:57
507

1183

013640
013654

1 7;
116

;;Y“!‘lfl 8}%20

1%;?

TT0.1

013616

TTIYIN

013656

TT0.
170,

TYPE = 104400

014472
014540
013330

14:57

513

1 1%

347

gzg

600
1005

1
1007

995
521

107

1232
1350
1102

13644
1352
1107#

1345
12554

12924
11214
12944

TYPOUT

013312

322

1099#

3884

389

001340

T1C
TIEND
TILST
T2MSG1

001432
001550
001520
015412

001344

253

}%{

1206
1103
1291

T1A

1182#

014270
013
014304
014

530

102

TYPOC
TYPOCT
TYPON
TYPOS

525

868

“Oon

1287#

3874

3934
390
386
416

437
4%

T4A
148

002362
002436

438
LO6F

464
467

468

4814
484

485

T4C

002612

14D
T4E

002740

T4 INT

T5A
158
T5C
T5D
TSE
T5F

T5MSG1
T
T
T5MSG4
TSMSGS
T

003142
3302
3460
003546
3660
3736
015576
015665
015735
016006
016046
016135

TSMSG7

016175

TSM2
T6MSG1

015536
016235

T5M1

015504

= 000000

= 020566

L7380

479
4834

4aon

478

4<80#

502
504

540
522
524

13944
542
554

550

13984

13974

1399#

14004
14014

1685

528

534

683
1009

685
1011

1077

1081

552
13964

13954

1000
1688

1001
1689

1091

1114

1141

1152

11664

1174

339

5641

549

951

553

566

415

493

755
1020

501

808
1032

503

810
1034

505

590

812
1044

511

592

749
1013

751
1015

1087

1203

1204

1207

1216

1227

1246

1002
1290

1094
1691

1679
1692

1680
1693

1681
1694

1
16

1683

1684

389

395

1083

753
1017

498

814
1051

450

S07#
134
5254
5
3»
3554

g;O

17034

1391#

W33
440
429

1025

555

395

4114
399#
499

00202
002150
002072

543

SEQ 0054

391

T3A
138

T3INT

CROSS REFERENCE TABLE == USER SYMBOLS

11754
1 730

PAGE 4-5

1169

598
865

TYPEC
TYPEX
TYPMSG

Y=80

508
514
5
531
547
556

509
515
527
532

357

13924

139

1686
314

920
1687

3174

3214

3240

304

33954

3414

378

379

380

JMAIN,

MACY1Y 30A(1052)

CZCTAA,SRC

19-MaY

19-MAY-B0

14:57

419
481

572

659

857

420
484

574
6

858

14:57

PAGE 4=6

CROSS REFERENCE TABLE == USER SYMBOLS
621
485

576
635

883

688
5

578
637
66

888

446
510

579
642
670

919

448
515

605
644
671

970

450
516

608
645
672

1062

SEQ@ 0055
461

53
61
649
693
719
775
800
849
12484

464

544
614
651

694
722
778
821
850

12864

824
851

14164

JMAIN.,

MACY1 30AC1052)

CZCTAA.SRC

19-MAY=80

CKTCR

270#

OXTOR

(KTIR

14:57

378
630

800

389
637
826

395
645

ggg

421

615

8‘3‘8.

6458

62;

666

467
579
659

4«68
605
666

4«78
608
667

481
614
671

634

642

CKTSR

280#

LOOP

260#

WTDONE

734
838
2468

WTIDR

19-MAY-80

2568

739
839
657

WTODR

700

. ABS.

020566

000

ERRORS DETECTED:

979

740
850
670
712

CZCTAA,CZCTAA/CRF=CZCTAA.
SRC

RUN-TIME: 9 18 2 SECONDS
RUN-TIME RATIO: 157/30=5.2
CORE USED:
8k
(15 PAGES)

837

460

380

765
851
693

648

322

14:57

E 5

PAGE S

CROSS REFERENCE TABLE == MACRO NAMES

619
651

851

707

467
671

389

(B4
6i5
672

766
857
704

655

772

450
659
858

461
667

49‘
672

46
69

723

781

839

888

694

701

705

718

485

395

485
625
694

779
858
717

664

786

509

419

315

420

421

781

792

509
629
695

510
630
701

691

715

780
888
738

796

527

764

831

515
635
705
778

761

844

SEQ 0056

481
706

484
719

510
724

516
740

558
766

605
779

532

557

579

614

629

635

439

448

450

460

461

464

707
799

739

516
637
7
791

775

854

765

527

798

789

780

532
645
718
800
824

821

825

547
649
719

557
651
723

558
658
724

833

846

849

856

825

826

837