MAINDEC 15 D2BB D_Teletype__Part2_Jul70 D Teletype Part2 Jul70

MAINDEC-15-D2BB-D_Teletype__Part2_Jul70 MAINDEC-15-D2BB-D_Teletype__Part2_Jul70

User Manual: MAINDEC-15-D2BB-D_Teletype__Part2_Jul70

Open the PDF directly: View PDF .
Page Count: 75

Download
Open PDF In Browser	View PDF

p---"'! .... -----....

PRODUCT COCE.

MAtNOEO.1'·02Be~O(O)

pRODUCT NAME.

DATE CREATED.

JU~V ~6.

MAINTAINER.

DIAGNOSTICS GROuP

AUTHOR.

A. t

TYPES LINL Of ALL C~ARACTERS. rtxED OE~AY
BETWEEN C~ARACT[RS IN A ~INE. DELAV IS
DETERMINEO AT RANDOM,
T"ES SIX LINt. 0' ASRa3 WORST CASE PAlTERN.
TY'ES SIX LIN" 0' ASR~J WORST CASt PATTERN,
"X£O DELAV "TWEIN CHARACTERS IN • LINE.
O[~'V !S OIT'-~INto AT RANDOM,
TWE ASR33 ~OR'T CAlt PATTtRN CONSISTS OF
C!04,-.,CtERI '.WI
~TN3'

RTN36

TVPES IIX LIN,S 0' ASRI' WORST CASE
PAT'IRN.
TYPES SIX LIN"

0' ASR.' WORST CASt PATTERN,

'I-tO bELAV BETWEEN CNAR'C'EA IN A LINE.
O£~AY

IS OETtRMINED AT RANDOM,

T~[ .S~3'

C~ARAC'ERI

WOR'T CASE 'ATTERN CONSISTS

'e'e

or

.---_ .... ., ..
r~lS

-,."

....

PROGRAM CO~T41NS 15 ROUTINeS ~UM9E~EC ;~OM ~ TO 16
lHE lEST SEQUENCE USED BY THE qOUTI~ts IS

(OC'A~',

A.

SET uP QAT.

e.

PU~CH·'-I.Ot~

S~DCK

e. PUNC'" 'VHC CHA1hCTrR CAUeOUf)

o. PUNCH OAT. BLOCK
r. SYNC TME RIADE"

r.

R'AO OAT. 11.0CK

G.

PUNCH 'RA,I.£"

101.

WAIT 'OR RCADER TO COMPLETE ~£'OIHG 0' O.T. 81.0CI< st'ORE
GOtNG ,0 NeXT ROUTINE.
RTNJ
PUNCH ~NO READ CHECK I~OeK or 41.~ es',
RTN2

PUNCH AND READ CHECK e\,oCl( 0' CHANNEL. 1,
PUNO,", AND READ CHECK al.Ocl( or CHANNE~ 2.

RTN3

"!.INCH AND REAO

RTN ..

PV~CN

.,

IolT",,'

AND READ CHECI( l'-oCI( 0' CHANNEL.
PUNCH AND READ CIolECK 81.0Cl( 0' CHAN~£L

RTN6

PU~CIoI

AND READ CHECK 91.:CI( 0' CHANNEL. 6,

RT,..'

PUNCH AND READ CHECK Bl.oeK

qTN1~

PUNC,.. AND REAO CHECK Il.oC.c 0' CHANNEL 8.

qT~11

PUNCH AND READ CHECK

~TNlc

PUNCIoi

RTN1

CHECK Bl.oCI< Or CHANNEL. 3.

or

CHANNEl.

'.
.,

.

B~:le(

cr

SL.tD1NG 1- pA'TEI1N.

READ Cwe;CK lLocCK

~r

SLIOING e PATTERN.

RT~l3

PUNCH AND REAO CHtCI( Bl.OC.c

or

15 AND "S PATTERN.

RT~l.

SAME A8 RTN13, BuT RANCO~ OEL.AY
CMARACTERS PUNC~£O.

RTt-.15

PUNC~

AflJO

ANO "£AO CHECK

PATTERN.
RTt-J16

81.0C~

SAME .1 RTN~', BUT RA~Oc~
C~A~ACTE.S PUNCIoi£O.

8ETWE£~

0' BINARy COUNT
OEl.AY BETWEEN

---.-----"----.--ROUTINE.

T~lS P~OGRAM CONTA~S J

~UM8CRE~ ,~O~

e TO 2.

CWCCKJ THAT K,' CO"M'ND SKI'S W~£N 'LAO-i.
T'.; II DONI ,,., TJ MI":
tc~o TCIT. AN'I CtofARACTtRS ~tAO 'ROM KIYiO'ARD

RTN'
RTNl

ARE TV"EO. COR~"!C' O'~I"TtON VERl'lCA'lON IS

Ol)N£ VjSUAlL.V,V UIER RIADING • RUaOU'
CHARACTER ENOl TMI TE I T.

OCTAL EQUIVALCNCE 'EST. THE OCTAL EQuJVALENl
0' ANY CMARAC"RI KE'ItO It TY'IO. READING A
AU80UT ENOl TME T"T,

~T~2

9,4

PRG3;COMBl~EO ~£ADER.

PUNC~

'AINtER,

. . . - _ • • - . . . . . ~ - - . - . - ~...... - . - . '!It

TEST

e • • • • • _- • ., ._-

"·w-

THIS "'tOGfII," CONTAINS 17 ROUTINES NU.M8£REO ,ROM e '0 12
(DC; AI.». ALL. RCU'"S NES USE TME 'OLI.Ow IN; SEQUENCE I

A.

'ILL. CO.!

B.

PUNC'" I.EAOER

e.

PUNC~

O.

PUNCW DATA aLOCK

it

SYNC TNt

~.

REAO/CWEcK OATA BLOCK

Gt

PUNCH

~

qEAO OlT. BLoCK (NO

.

DATA TO Sf pUNew£D/PRINTEO

8LOC~ wl'~

SYNC CHARACTER

DIL.AY 8ETWEEN CHARACTERS)

~NO

R"O£~

DATA

CRA~DOM

DELAY BETWEEN CMARACTERS)

OtL.AY BE'W£[N CWARACTERS)

BLOCK ~RlNCOM
OE~.Y

BETWEEN

C~ARlCfERS)

TRAILER

I •

PU~CJ.4

J.

\oiAIT 'OR REAOER TO COMpLET£

I< •

[~O

~EAOl~G

OAT, BL.OCK

0' T[ST SEQUENCE

RTN'

PUNCI1/"Rl~T

RTNl

PUNCIo4/PRINT AND "tAD CfoI£Cf( BLOCK 0' ClEF'
PUNC~/PRINT .~o READ CfoItCK BI.OCt( 0' GH!

RTN2

ANO JIlEAO C~ECK

BLOCK 0' ASC

PAGE 17
(9. 4 CONY'O)

or

..!~~

or

t-INO

RTN3

~UNCl-l/pqtNT

ATN4

PUNCH/PRINT AND REAO

C~ECI<

BL.OCK

RTN'

PUNCH/PAINT AND READ

C~Eef(

BL.OCK 0' pQR

RTN6

PUNCJo1/;A1N; ANO R,'O CI-I£Cf(

~TN"

PUNC""/PAINT AND

~TN1~

I'UNcw/'RtNT AND REAO C""ECI< BL.OCK 0' vii

RTN11
RTN12

PUNCH/PRINT AND READ CHECK BL.OCI< 0' ~~~
PUNeH/'RINT AND R,'O CHECI< BL.OCK 0' 4'6

RTN13

PUNC""'P"tNt AND REAO C... ,OI< BL.OCI<

RTN14

PUNCH/'RINT AND READ CHECI( 81.0Cl( 0' I'"

RT"15

PUNCH/;RINT

AND '«AD CIoIECK Bl.OCK

~EAO

9~OCI<

0' STu

CHECI< BL.OCK 0'

0'

VW)(

'189

tilTN16

R£AO CHECK BL.OCK 0·' 5"&
PUNCH/'RINT AND R'AD CHECK BL.OCI< 0' , C) ,

RTN11

PUNCH,,.RINT AND REAO

BL.OCK

or

R'N2~

PUNCt-f/PRINt AND READ CIoi[e!( BLOCI(

0'

RTN21

PUNCH/"~ I

AND

CI1[CI(

.. ,
;",1

RTN22

NT AND R,"'C CIo4[CI( BL.OCK 0' 11<
PUNCIo4/;JIIINT AND REAO C"'~CK BL.OCK 0'

RTN23

PUNCH/,.RINT ANC REAO CHECI( BI.OCK

RT ... 24

PUNCH/'RINT ANO REAO CIoi[CI( 91.0CI<

RTN2'

PUNC~/;RINT

.)'

P~INTAB~E

qTN26

or
0'

.,\
)h.

ANO R(AO CIoi£CI( SL.OCK 0' A"'L.
CMARACTtA,

PUNCH/PRINT ANO RtAO

C~£CI<

BLOCK 0' .·SR33

PRINTER WOAST CASE PATTERN, ('.W/)
RTN21

PUNC~/P~INT ANO READ OIoiECI< BLOCI( 0' ASR33
PR!NTER wORST CASt PATTERN wtT~ INTERSPERSED

8~ANI<5.

~'~30

PUNCM/pqINT ANO REAO CIoi[CK B~oeK or .SR35
PRINTE~ wORST CASE PATTERN, ( , t 7 C)

RTN31

AND READ

PUNc~/P~INT

C~£CK

PRIN"R WORST CASE .ATTt-N
eLtANK"'.
PUNCH/.~lNT ~NO

B~OCK

WrT~

0' .SR35
INTE~SPERSEO

READ CHECK BLOCKS 0' SPACe.

RutouT (It .NO 'Sl,

9.'

.-.--.~-

0,6

..--.. ...

P~G.;PAINTE- [~[.CIS[R
~--.-

""1

PRINTS ~INES WITH OAT' ITO-tO IN LOC
ANO "'22,
ACS. CONTROLS 'ULL 1~'rOf O~ ITALL OPERATION,
p~o, ANO PRG6 PUNCW t.fRClaER,
. .......
.....
..

-...

~.--

....

~

~.

-.~---~-~.~--

.. ..
~

PRC' PUNCHES AND REAO CHECKS OAT. BLOCKS WIT~ DATA STORED
iN LOC le821 AND leJ22~ ACSI CON'ROLI 'ULL s,rEO, OR STALL
oPERATION.
PRg6 PUNCHES AND REAO C~ECKS BLOCKS 0' BINARY COUNT
AANOO~ STALLS BETWEEN CHARACTERS.

PATTER~i

THE TWO EXERCISERS USE THi 'OLLOwING stQUENCEI

~

A.

SET uP DATA BLOCK' DETERMINE WHETH[q 'ULL SPEED, OR STALL
oPERATION,

8.

PUNCIoI L.EAOER

C,

ItUNCIo4 SYNC CHARACTER

O.

PUNCH DATA SLOCI(

[

SYNC THE REAOER

.

,. ,

~EAD

~

PUNCj.j OAT. 8LOC1(

.

....

DATA SLOCr<

BACK TO ST[FJ ' •

C~U80UT)

PI\GE

1
Ipnp-15-AS~33-~5

ICOPYRIGHT 1969,

TFLFTYPF TESTS-PART?
1~ITAL

EQUIPMENT

.~-.

/

IPRG0- PRiNTER TEST
1;'~Cl-PUNCH TEST
IPPG2- K EYBOARO TEST
IPRG3-COMBINEO READER,PRiNTER.PUNCH TEST.

IPRG4-PRINT t R EXERCISER, PRINTS LINES Ot

I

C~ARACTERS

STORED IN LOC

~021

AND 0022.

/PRGS-PUNCH EXERCISER, PUNCHES AND READ CHECKS DATA aLOCKS or DATA
STDREO IN Lor 0021 AND 0~22.
IPRG6- PUN CH EXERcISER. PUNCHES AND READ CHECKS BLOCKS OF BINARY cOUNT
/
PATTERN.

/
I

ISTARTING

AOORESS:~020~

.EJECT

PAGE

2

15TTP2

0~020
~002~

00"'000

~0021

~0~0Pl0

00022
00023
00024

41!00000
000000

00~25

0000£'10

~0(IJ2f1

000000

00027
00el.,.
00031
00932

0000·Ql0

~0V133

00034
00035
00036
00037
A004~

00041
V'0042

00043

62910~f2

000017
777770
9100111
9100000
000000
000000
00(11077
00009191
0000910
777142
"'00000
0000"'0

A0~44

"'0~0C1!0

00~45

000000

00046
009147
000591
A0051
00052

00~0~0

000000
000000
01110000
04CJ1000

~0"53

00"'0~0

910"'54
00055

00C1!0f110
P,0f11277

0~056

00~000

00057
0006C1!

0000~0

('H'~61

(J.~0I212

01'-16?

7774P11

P0~21r;

KSTART
PTEMP
pl'rMPl
DELAYM

.A8S
• LaC 2e
0
0
0
0

JMP.
0
DELAYS 91
PRGttu M
PRGMSK 17
PRGlIM -10
PSW
PRGTAB
RTNNO
CU~TST
0
NXTST
0
TSTMSK 77
MSCTR
A
MILCTR A
MILl
-636
TEMP
0
TEMP1
TEMPU
CI!
UTEMP
UTEMPl CI!
UTEM P 2 0
CTRA
('I
eTRB
SR3MSK 04~00e'
ERRCR
0
fRRCTR 0
nLYMSK '277
prLAG
0
flLKCNT Ii'!
r.R
215
L~
212
MR80UT -377
.EJECT

"

"

"
'"

'"

2

PAGE.

3

15TTP2

.' ,~? 6"

~H';~vw0

RBUSY

?

0~QlI-:'::

00v,: ?VI

~l ...-. ; ' ':_

~

0(1\(.'

;"

:,~ 'r\ '~16

t

~0/'240

LINK
AC
C:PACE

00r.2.,7

C25"'

~~~7~

VJ01'334

C334

~0071

00Vl001
777777
717776

K1
Ml
M2
M16
M44
Mi10
M11l
TEMQ
TEMR

1

flAG

0

o ,"'tlf., 7
Ih1 oij72 ,
~0-073

,~(i'0

00074

7777~2

~0P75

777734
777670
777667

00~76
~~P.77

9l010P.
00101
00102
00103
00104

P.000"'~
0000~~

000000
000077
777740

00105

~09l100

00106
00107
0(,l1110
00111
00112
00113
00114

000240
740100
741100
002071
002527
003011

0~115

P03336
003346
003373

00116
001.17

0031~7

70e3~2

K77
M40
C100
C240
SKIpMA
SKIPPA
PRGTAB

.
," 4

I

')5'
334

-1
-2
-16
-44
-110
-111

e
~

77
-40
100
240
SMA
SPA
PRG0
PRGl
PRG2
PRG3
PRr,4
PRG5
PRG6
KRA:700322
.EJECT

P~GE

lST~D2

4

0e177

.LOC 177
HLT
LAS

~~177

74"~40

a~20~

7500"4

08211

5~~030

ANt)

~e2B2

34~H,~H

~(a?e3

TAO

74P!3"'0

SMA:S~A

~0204

600177

~"'?05

75~0A4

00206
08207

500030
"'40027

0~21~

34~032

O0211
00212

O40042
22R042

0k1213

04~221

0021 4
0111215
00216

100533

JMp
LAS
ANa
OAC
TAD
OAC
LAC.
OAC
JMS

000024

24

0~217

0022~

~~221

00233
O0233
00234
0023~

00236
00237

00241'1
00241
0~?42

0tl1 2 43
00?44
0v!?45

START

P0i11001

1

777776
620221
000000

-2

750040
200020
0 4 00 3 5

JMP*
PRGADR
SRS[T
GETRDY

100277
75001'14
742010
74040O
62111034
75~0~4

500036
74?0~1

0"'241'>

34~r.1I71

~0247

34~HlJ33

~025P

7512~0

~1:l'251

62fi'1034

V'o';>c:;?

?eV'",~.:;

,,~a,~ ~

34"'071

QH'254

75v,2('~

0iP5r;;

~0~2:-'6

';1~::

>:;

~

75V'040

;'V'?~

..,.

~~?234

INCRTN

PR(:MSI(
PRGLIM
177

PRGhfSK·
PRGNUM
PS;,
TEf04P
TEMP
PRGAOR
MOVVr

.+1

IINCORRECT PROGRAM NUMBER
IREAD SWITCHES
lAND WITI-! PRCMSK
IAOO PROGRAM LIMIT
IVALIO PROGRAM NUMBER?
IND.
IYES.READ SW ITCHES
ISAVE PROGRAM NUMBER
IDEVELOP PROGRAM
IADORESS.
ISTORE AnDRESS
IINITtAL Ti( INTERRUPT AREA

Ir J TO SJ:"LECTEO PROGRAM

~

.LOC 233
HLT:CLA
KSTART
LAC
NXTST
OAe
JMS
rORWo
LAS
RTL
SNL
cURTST
JMP*
LAS
TSTMSK
AND
CMA
TAO
Kl
RTNNO
TAO
SNA!CLA
JMP*
CURTST
NXTST
LAC
TAil
Kl
SlA:CLA
JMP
GETROY+2
HLT~CLA

JMP
.EJECT

ISELECT OPTIONS
IGET lDOR OF 1S T RTN.
ISTORE AT NXTST.
IREAD SWITCHES
ISELECT ROUTINE?

IN 0 • S TAT .w TTH CURRENT ROUTINE.

IYES.REAO SWITCHES.

lIS IT THIS ROIJTINr?

IYES.GO nO IT.
INO.

ILAST ROUTINE?
INO.

IYES. INCORRECT ROUTINE NUMRER
GETRDY

PAGE

l!:;TTP?

5
1'~26r

A.0~313

/~~? A'

750PP4

:2~~?

i

~ .)~

414(>~

~~~o4

600234

00265

20~035

00266
001.'67

34~071

00~7R

60~236

002 71
00272

750004
742010

00273
00274
00275
00276

7511~0

0001""0

~0303

200035
040042
440035
200035
040034
220042
040035
620277
000000

~031'~

00311
~P312

00313
00314
00315
00316
00 3 17
003221
"'0321
00322
00323
00324
00325
00326

00327

0033'"
0P!~31

0033?

JMP
LAC

PRGEND
FORWD

04A0 3 3
440035

SHALT

75f10{114

74e100
620313
200933
740040
620313
220322
04~042

440322
2293?2
0MH1I42
4403?2
754000
"20322
10~3?2

IROUTINF: SELECT?(ACS1)
IvES.
ILAST RTN?
INO.
IVES

RTL
SPAlCLA
JMP
GErROY
HLT:CLA
JMP
CHAIN

ILOOP PROGRAM? (ACS2)
IvES.
INO. PROGRAM END HALT.

"LAC·
DAe

IGET NEXT RTN NO.
ISTORE AT RTNNO.

IS2
LAC
DAe
lSi!
LAC
DAC
LAC.
DAC
JMP*
0
LAS

NXTST
RT~NO

NXTST
NXTST
TEMP
NXTST
NXTST
CURTST
TEMP
NXTST
rORWO

5Mb.

JMP*
LAC
HLT
JMP·
STeTR

lfiALT?(ACS0)
IPEA[l SWITCHES

,,"XTST

L~S

22~035

000000

r;ETK:"JY

TAn
Kl
Sr£\!CLA
JMP
GE TR OY+2

60~260

00217
00301
00 3 0 1
00302

C.HALT

RT
etL

75e'2A0

600234
752040

JMS
LAS

... {Jr

>l0?63

003"'"
00305
00306
00307

CfiAIN

SHALT
RTNNO
SHALT

ICET CURRENT RTN NUMBER
ICET CURRENT RTN ADDRESS
ICET NEXT RTN ADDRESS
IEXJT.

IRE AD SWITCHES
IHAlT? (ACS0)
INO. EXIT.
IGET RaUTINE NUMBER
IROUTINE AND HALT
lEX

IT

0

LAC*
STeTR
OAC
TE"'P
TSl
STeTR
STeTR
LAC*
TE"'P
OAC*
STeTR
ISl
CLA!CLL
JMp*
STeTR
SETLOC=JMS STCTR
.EJECT

IGET LOC ADDREss
ISAVE AT Tt:MP
IGET COUNT AND STORE
IAT DESIRED LOCATION
IEXIT

PAGE

6

15TTP2

00333
1i'0334

000000
200023

0033~

091336'
00337

OLYMS

II

~491037

LAr:
OAC

DELAYM
MSeTf?
.+1

62913~7

JM'P.

000340

0034~

200~'41

.+1
LAC

00341
00342

04-Q!040

DAC

910343

00 344
00345
00346
00347
00350
091351
919135'
00353
910354
00355
091356
00357

44~0491

lSi!

600342
4400 3 7
609133,6
754000
6291333
100333
000000
1091411
50910'55
7412A0
6091 3 5 1

JMP

74~91911

IS~.

003M'

00361

00V'000

91~n62

00370
00371

22"'361
91491375
4491361
100451
0091372
440375
600365
fl203t'l

00372

~000j5

~e15

0~367

.-1

MScTR

.-7
JMP
CLA:CLL
JMP.
OLyMS
OELAY=JMS OLYMS
OLeNT
0
JMS
RANGEN
AND
nLYMSK
SN4
JMP
.-3
CMA
TAO
Kl
OAr::
DElAYM
JMP.
OLCNT
CRLF"
0
LAC.
CRlF"
DAC
CReTR
ISl
CRLF
JMS
TYPSTG

3409171
A409123
62913'591

910363
"171364
0036'5
00366

Mill
MILCTR
MILCTR

ISET MILLISECOND COUNT
ISTORE I~ MSC TR
ISET 1 HS CONSTANT
ISTORE AT MILCTR
IOELAV ONE
IMllLISECONO
IDELAYEO NUMBER OF
IMILLISECONO S REQUIRED?

IrEs.

IEXJT.

IGET RANDOM NUMBER
IMASK OUT UNDES IRED BITS
10?
IY(S. GET ANOTHER NUMBER
1S T ORE DELAY COUNT
IEXIT

IGET cRU· COUNT
lAND STORE IT
ICRU· ONCE

•+4

lSl

JMP
JMP.

CReTR
.-3

CRlF

IDONE?
INO. CRlF=' AGAIN
IY[S, EX YT.
ICR

~0373

"'0N'l2

"'012

Ill="

00374
00375

00~00l1

~0~1
(A

lEND CODE
ICRlF COUNTER

~0~7f,

r0P100V'1

00377

44~0C;6

! S~

0~4~P

VJe4~?

70"'4l1!6
20(:'10"6
7512V1e

TlS
LAC
PFlAG
SNA!CLA

0~4~~

~004""'6

004914

JP-IP
TSI='

0~4P.:!.

A00000

~040t:;

70"'4P!1
1'>00401

004"'''

70~4~2

"'~4",7

1 4 "'°">6
6 20 3 7 6

0~410

CRCTR
PUNCH

~

PFLAG

• +3

JMP
TeF

.-4

!:"rll4

PfLAG
PUNCH

J'"'P •
• f JEeT

IPUNCH/PRINT
IGET C(Pr:L4G)
IFLAC RESET?
IvES
INO, FLAG uP?
INO.
IYES, CLFAR PRINTER FLAG
IClEAR PFLAG
IEXIT.

PAGE

7

lc::TTP2

IRANDOl"

f\C'~8ER

PA"!GP,

7'

G[~t=RATnR

;~(~411

~i??~:-'/

0;:'412
00413

2~~4~i

LAC

RANDE>:

544 4 ?1

SA-!)

(RANT>:SL -q0

0~414

7410P,~

SK~

~Ql41r;

6Q[.l425204402

JMP
LAC

RANTAO-1

0041:~

0.0417

~48437

DAr.

0042ft
00421
00422
00423

?0it" 36'

LAC

RANOEX
RAt-JCON

'451~0

S'PA ! ClL

144002
74Nh0
840436
22111437
340436

STL

~0424

1110425
00 4 26
00427
0043"
00431
1110432
00433
1110434
1110435
11I043 f1
00437
0044(11
"'111441

200450
7411102111
36P4.:n
04~4r;0

44f1437
620411
1234'56
000450
654321
361"'16

~044?

0553t-3

~044~

546'M0
243035
76(>572
453237
150214

1110444
00445
00446
00447
0045P.

RANTAD

f.lI6·0437

"'f!~0~~P

RAL
DAC
LAC.
TAr)
DAC.
LAC
RAR
TAr).
DAC
lSi!

JMP*
RANCON
RANOEX
RANT8L

RANCON
RAt-.IOEX
RANCON
RANorx

RANSAV
RA/lJOFX
RANSAV
RANOEX
RANGEN

123456
RANTBL+1111
~54321

361416
05r;363
54f10~0

243035
762572
453237
150214
RANSAV

(RANT8L

0

.EJECT

p~Gr

15TTP2

8

V117J451
0045?

"'0~0~0
22~4'51

I7Jt1I45~

040100

00454
00455
0045"
00457
00460
00461
00462
00463
00 4 6 4
00465
~046f1

0(11467
0047t1l
00471
00472
~17J473

00474
~0475

0'~476

00477
I7JVI~0(71

vH~'501

Vl050(1
l4
62V1467
440102
620467
140 1 0 2
(100101
741110"-1
04111071
74'1(?V'r;,

0~~11

60ii'SV'~

.~0512

3 4007 1
75 1 2111111

11105 1 3
0~514

620451

1 h,

::>00P17

00">1f-

04(i115?~

ii'Vl~17

2{{'10101
10?>'3?l

iii

!~~

~0~?lt1
(~~~:?

j

/TYPE CHARACTEP
TYPSTG
LAC·
(lAC
DiM
IS2
LAC.
TSC1
RTR
RTR
RTR
jfo\S
LAC·
jfo\S
ISl
JMP
TSC2
AND K71
DAC
LAC
SiA!ClA
JMP
LAC
SNA,
jMP
TyPAT
JMS
JMP.
lSi
JMP.
TYPSP
Dr"'!
LAC
CMA
TAr)
SNA
JMP
TAn
SN A !'Cl A
JI"IPo
LAC
rAC

'"

"

LAC
JMS
LAC

?0~110

~~~2?

04 v1 5?h

\lAC

(.'I"'~2~

62~4f-"7

JI"IP.

0V'1C;?4

o 0V1~' c'?

\~0'" ?"'>

:; 401;' 4

,-I"'>;?f.

74111'V

"H152 7

34QllV'o;

0~~30

34~~17tl

~),~'

44(1!5~3

Vl01:)37
Vl054P' .

?205~3

DAC
1St
LAC-It
DAC
1St
LACOAr:

,00'541

Vl4(1!5~'5

440533

,,'' 5 ~ 2

2205~3

00154''3

04~St;6

00:n44
0054-5
00546
00547

22"''5154

910550

00551
00,52
O01553
1lI0554
00555
~(I!556

00557
0056V1
""0561
tlI056?

44~533

060555
44055-4
440555
440556600545
620533
000000

021000"
"'210000
000000
140562
620557
"o0000

"0564

00NHll0
000377

00565

00000O

1lI0563

0~566

2(i'lQl562

~0567

040563

ee'57f11
00571
"'0572

34~071

00573

50"'564
040562
200563

~0574

~2C1!5~5

00575
00576
00.,77

Pl0"'0"''''
040612

0060'"
0"601

'~OVVE

22Q\575
74-~0(i'11

34~071

0060?

440575

0060~

34(-\612

f'0APl4

7502o",
60V!610

0

IS~

MOVEA

LACOAC*
IS~

lSi
ISl
JMP
JMP.

"

'"

IS~

~('I607

440575
62"57.,

"'0fl~

?0V'612

"'0t-l1

62tH; 75

JMP~

00612

00000~

i~("605

1005~3

MOVVF
TAOOR
MOVVF
MOVVr
,",CTR
Movvr
F'AflOR
TADOR
F'ADOR
TAOOR
MCTR
MOVE A
MOVVE

rADOR
0
TADOR
HCTR
VI
ISUBROUTINE TO INrTULlrE BINARY PATTERN
INITPT 0
PT",
D~M
JMP*
INITPT
lEX IT
PT0
0
PT1
PI
PTMSK
377
IS[T AC WITH NEXT R I NA~H CHARACTER SUBROUTINE
GETPTT
PT(A
LAC
leET PTe
PT1
OAC
ISTORE AT PT1
TAD
Kl
/INCREMENT NUMBER
ANn
PT"'SK
/LIMJT TO 8 BITS
PT0
OAC
ISTORE AT PTp!
LAC
PTl
IGET P Tl
JMP ..
GETPTT
lEX IT
ISUBROUTINE TO COMPARE CeAC) TO CCCALL+l>,
CliCK
~
WCHK
DAC
ISTORE AC AT CHK
rHr,K
IGET COMPARE OATA
LAC"
CMA
12'5 COMPLEMENT IT
TAO
Kl
ISET UP UNEQUAL EXIT
TAO
SrA!CLA
JMP
JS2
JMP*
LAr

00606

t-10VVE

WCHK
MOVE=JMS MovvE
.EJECT

'"

CHCI(

WCI-ll<;

PiCK

IAOO C(WCHK)
IEQUAL?
IND,
IS£T UP EQUAL EXIT. EQUAL
IEQUAL EX IT.
IRESTOR( Ar:
IUNEOUAL E.X IT ,

PAGE

10

~'::TTP')

V'0613

~0~Vl00.

Y,~614

1121(11533
000060
0034P.l
777776

~0615

00('16
~0617

0121620
00621
00622
0062~

00624
00625
00626
00627
00630
1210631

15ET BUFrER AREA SUI3 RO:!T I Nt
ST8r
fr'
MOVE
CR
BLOCKA

-2

1"'~533

001i'i06i'J
003513
777776
100~33

MOVE
CR
RLoCKS
-2
MOVE
CR
BLoCKC
-2
JMP.

0065::>

1211210060
003625
777-776
62V11613
12100000
220631
12140636
440631
1121 0 533
000000
003403
777775
100533
12J034Q13
003406
777673
10121533
012134(/13
003515
77767f},
620631
00P.0?0

00653

1e~533

MOVE

~121654

0ft11516

A

~A655

AA34Q13

0~t>5n

7777"1

RLOCK1
-77
MOVE

~063?

006~3

00634
MI635
VlI0636 ,
00637
00640
00641
0121642
00(,43
00644
00645
0121646
0121647
00650
(/I(1'IA51

FBF3

ICRLF TO BLOCK B

ICRLF TO BLOCK C

IT

STAr

lEX

FeF3
.+3
FBF3

IFILL 144 CHARACTER BUFrER
IWITH 3 CHARACTERS WHOSE
/t>iDRESS IS SPECIFIED A.T
1(1\LL+l

(II

LAC.
DAC

1St
MOVE
1/1

BLOCK1
-3
'"lOvE

FBALL

BLOCKl
RLOCK1+3
-105
MOVE
BLOC Kl
RLOCK2
-110
FB~3
JMP*
0

IFILL 144 CHARACTER BUFFER
IWITH ALL PRINTAALE ASCII
ICHARACT(RS.

"'~A57

1liH'IS;~3

~066(1!

Ql01510

A

~(1't>61

~1i'~50?

BLOCK1+77

01'1662

7777f.7

-11

0066~

10v,r:;~3

~0664

Ql0~4~3

00665
"o666

1'10~51"i

006('7

62(l16~2

MOVE
BLOCK1
RLOCK2
-110
JMP*
.EJECT

777670

ICRlF TO BLOCK A

F8ALL

PAGE

11

1I:;TTP?
F8TMP

,"Ql67~

0000vW

7~

H~~533

~ef,7?

P?0~?i

"PT[MP

00~73

V'034()3

8LOC K1

M~674

777776

0~f.75

-2

10~533

~OV£

00676

003403

BLOCK1
RLOCK1+2

00t,

00677

0~34(115

~0700

777672
100533
003403

007211
0070?
00703

-1~6

~03515

MOVE
BLOCKl
BLOCK2

0~704

777670

-110

007~5

62~670
00~0V,0

~070f,

00707

100533

00710
00 7 11
007 1?
0(i1!713
Pl0714
091715

0~14""

00716
00717

00720
00721
00722

00723
vH'P24
00725
00726
00727

777774
100533
003403
0034917
777674
100533
003403
003515
777670
62'~7A6

0073t'1

100533
001472
003403
777770
100533
0034"'3
Il!klI3413
777700
HH'I533
0034913

00737

9!0~51~

~~730

~0731

00732
~('I73~
~Hn34

~0735

F'W334

~03403

0000"'0

"~74~

777670

~H.~741

6207?4

IfILL 144 CHARACTER RUFFfR
IWITH DATA IN PTEMP
lAND PTEM P 1.

/"lOVE

FW33S

JMP*

e

FBT"'IP

MOVE
A33 WP4
BLOC Kl
-4
MOVE
ALOCK1
RLOC K1+4
-1(1'4
MOVE
BLOCKl
8LOCK2
-110
FW334
JMP*
0
MOVE
A33 WP S
BLOC Kl
-10
MOVE
8LOCKl

IFILL 144 CHARACTER BUFFER
,WIHI 4 CHARACTER ASR33
IWORST CASE PRINTER PATTERN

IEXIT
IFILL 144 CHARACTER BUFFER
/WITH ASR33 WORST CASE
IPATTERN WITH INTERSPERSED
18LANKS.

RLOCK1-tl~
-1~0

t-10VE

BLOCKl
ALnCK2
-110
JMP*
.EJECT

rW33S

IEXIT

PAG[

.

~

lC,TTP2

~HJ742

r0~00(.11

r"'74:rl

1~Hlj533

Vl0744

00 1 522
0034A3
777774
100533

ee745
~074"

00747
1i10750
00751
"'0752
00753

F" W354

{11

MOVE
A35WP4
BLOCK1
-4

kHP61

10~533

MOVE
BLOCK1
PLOCK1+4
-104
MOVE
BLOCK1
BLOCK2
-110
F"w354
JMPo
0
MOVE

00762
00763
00764
00765
00766
00767
00770
00771
00772
00773
00774
00775

001506

A35WPS

0034~3

BlOCKl
-1°
MOVE
BLOCKl
BLOCK1+1P
-100
MOVE
BLOCKl
RLOCK2

00776

00"'000
HIJ0322
001007
777672
20HH0

.0034e~

003407
777674
100533

(1)0754

0034~3

0"'755
00756
00757
00760

00351t;
777670
620742
000000

~A777

01000
0H'!01
0100?

7.7777V!
10~533

003403
P03413
7771"0
100533
003403
P03515
777670
6201"0

0100~

H~0376

01004

441007
60HHlI 2·

~10Pt5

~1~Pt6

62~77t.

01"'07

~0NHHJ

0101~

000376
Pt0V10?0

011i'11
~HV'11?

lA~3?2

0101~

0010?f1
7775r;7
1011 4 1

0HH4
01015
01Pi16

75V1~01

~lPt17

040~~3

0102il

10"'322

Vll~21

001064

01022

~0H121

0102~

7003?2
700042
621011

01024
0102r;
01"'26

00vHH~~

IFILL RUFFER wITH ASR3C::
/WORST CASF PATTERN,

F"W35S

lEX

IT

IFILL BUFFER WITH ASR35
IWORST CASE PATTERN WITH
IINTERSprRSED BLANKS,

-110

FW35S
JMPo
IEXIT,
IPUNCH LfADER TRAILER SU8ROUTINE
PlTLR
lil
SETlOC
1-70 TO LTRCTR
LTRCTR
-106
lAC
LOCOE
PUNCH
JMS
IPUNCH 376 CODE
lSi!
LTRCTR
IDONF"?
_"l
JMP
INO, REPFAT,
JMPo
PLTlR
IYES, EX IT
LTRcTR 0
376
LOCOE
0
RsyNC
ISYNC REAOFR SuBROUTI~E
SETLoe
1-145 TO RSCTR
RSCTR
-221
RRny
IWAIT FOR READER NOT BUSY,
JMS
CLA:CMA
RguSY
nAC
ISET READER BUSY INDICATOR
SETLOC
ISET REAnER SERVICE
VCTR
IADORESS,
RSSERV
KRA
ISTART READ
ION
IENABLE INTERRUPT
RSYNC
JMPo
RSCTR
PI
,EJECT

PAGE

13

1">TTP2

0? 7

7;:H'31?

~103V,

70V3;"?

:-A 1Ii'l;; 1

.~4~"''''?

~1~32

01055
010 56
01057
01060
01P61
01062
(lJ1063
01064
01"'65

7502"'0
60 1042
14 006 3
754O"O
200064
,74001:0
2000115
6200P0
441026
601066
7591040
100322
001026
777557
601066
04P1065
740020
040064
7004(IJ1
601061
700402
140056
601066
7003(l!1
601065
6211364
000000
740040

~H166

754~00

\~:

"'1"'33
01(1134
01035
01(IJ36
"'1037
0104~

"'1041
~1042

01043
01044
01045
01046
01047
01V15P1
"'1051
0H'!52
01053
~1054

~H'67

?000~4

0HH0

74P101VJ
200065
700042

~1071

01072

o U?l7~

RSSERV

TAO

JMP

DlM
CL,6,!CLL
LAC

RAL

• +7
RgUSY
LI~K

IS~

RSCTR
OUT

OUT
AC

ITQ MAINLINE
ISAVE AC

LINK

ISAVE LINK
IPUNCH/PRINTER?
INO.
IYES.CLEAR rLAG
ICLEAR PF"LAG.

~

HLT~CLA

VCTR
OUT

fl2~000

P5TUP

SETLOC
RSCTR
-221
JMP
DAC
RAR
DAC
TSr
JMP
TCF"
OlM
JI'1P
KSr
JMP
JMP.

• +4

PFlAG
OUT
• +3
• +1

"

HLT
CLA!CLL
Ll NK
LAC
RAL
AC
LAC·
IOt.j
{iI
JMP.

~1~77

00~4~1

8LOCKA

1005~3

,,",OVE

0000t;7

~lI(CNT

001137
777777
621074
000000
221140
441140

PCTR

~

SETLOC
PAnOR

-1
J~p.

poeR

/RUBOUT?
IND.
ICLEAR READER BUSY.
IR£STORE LINK.
/RESTORE AC,
ITO MAINLINE.
1145 CHARACTERS READ?
INO.
IYES. NO SYNC
1-145 TO RSCTR

JMP

INTSVC

/ADO MINUS RU8r:JUT

AC

f'lHW
01101

V}110f1
"'1107

0'

LAC
JMP.

0000910
100322
001140

~lHJ5

,,~;,

SrA!CLA

·01074
01@75
0107f1

0110?
01 HJ~
~U 04

/REAO RUrFER, SELECT

"'Rq
;.,;:.' t.,

PSTUP

1 S?

PAf10R
PADl!R
PU\iC>J

P;11.1~

1~H'37tl

JMS

~1111

6211~~

J~po

.EJECT

IUNEXPECTED INTERRUPT
IRESTORE LINK
IRESTORE AC
lEN ABLE INTERRUPT
ITO MAINLINE
IPUNCH SET UP
15ET DATA ADDRESS
/5ET BLOCK LENGTH

0

LAC.

IREADER?
INO.ERROR.

porR

/EXIT
IPuNCH DATA CHAR SUB.
/SET DATA
/lJPDATE DATA AnDRESS
/PUNCH/PRINT DATA
lEX IT

~fAT)ER.

PAGE

14

l-;TTP?

0111?
01113
0.1114
yfl,U.5
12I111f,
01117

101e'l74
HH105
441137
601114
621112

0112~

0000~0

~1121

1~1074

01122
~1123

01124
01125
01126
01127
1211130
121 11 3 1
1211132
~1133
~1134

01135
01136
01137
01140
01141
01142
01143
01144
91145
01146
01147
~1150

0 11 5 1
V'l1152
01153
01154
01155
0111:)6
01157
01160
01161

12101i1121~0

PBLKR

221136
040023
441136
112103~3

0000~0

1210000121
21210063
7512121210
61211142
621141
0001211210
101141
440'1163

Is~

PSTUP
Poc R
pCTR

JMP
JMP ...

PBLK

IS~

JMP
JMP.
DAP
PCTR
PADOR
RRnY

RSTUP

100533
0000r;7

RBUSY
LAC
Si!A!CLA
JMP
.-2
RRDY
JMP*
0

RBCTR
D~M

V'l01064

V'I{I!121?
70~04?

6211f-?

RROY
RBUSY

-1

JMP.

RDRLK

ICET STALL COUNT
ISTORE AT DELAYM
IUPOATE nAP ADDRESS.
ISTAll.
ICO PUNCH CHARACTER
IAll CHARACTERS PUCNCHEO?
INO.REPEAT.
IY'S.EXJT

FRRCTR
t1STUP

0

JMS
SETlOC
VCTR
ROSRV
ION
JMP.
.EJECT

I~H IT rOR RE ADER NOT BUSY SUR.
IrETCH R BUSY

18US"?

IYES.
INO.ExIT.
IREADER SETUP SUBROUTINE.
IWAIT rOR READER NOT BUSY,
ISET REA~ER BUSY.
ISET DATA ADDRESS.
IsET BLOCK lENCTH

~LKCNT

0012~r;

10k'13?2

.-6

PBlKR

0
121

777777
1400C:;4
621146

Vl1164
121116C:;
V'l1161'>
01167

PDeR
PCTR

SETLOC
RADDR
BLOCKA
MOvE

0034~1

101146

OAP
DELAYM
OAP

121

IS~

1003~2

0~.0000

PSTUP
DLrNT.P

IPUNCH DATA SLOCK.FULL SPEED
IDa PUNCH SET UP
ICO PUNCH CHARACTER
IALL CHARACTERS pUNCHED?
INO.REPEAT
IYES.£)(IT.
IPUNCH DATA BLOCK. STALLS.
/00 PUNCH SETUP
IrlLl DELAY BLOCK
IDBlK ADDRESS To OAp

Pi

JMS

01211204

~1162

.-2

~

JMS
JMS
sETLOC
DAp
OBLK
LAC.
DAC
ISr
DELAY
JMS

004~01

1e1HI5
441137
61211126
6211:?0
00012100
0000()1e

iii

JMS
JMS

11211273
11210322
001136

0.11~3

0117~

PBLK

RSTUP

RD~LK

IClEAR ERRoR COUNTER.
IEXIT
IREAD DATA BLOCK.FULL SPEED.
100 REAOV.R SET UP
IS[T REAnER SERVICE ADDRESS
/TO ROSRV
lEN ABLE INTERRUPT.
lEX IT

PAGE

15

1C:;TT P 2
DDPUO~

~11 71
0117'2

e000?i'

101.1116

JMS

~1173

10~3?2

~1174

001064

~1175

~9!t20-6

SETLOC
VCTR
RORSRV
sETLoe
DAR
08LK

01176-

10ti'3?2

~11]7

0012F!3

,H2e0

004801

01i!01
IH20'2

.700842

ION

6.21171

JMP.

2-03

0000fl10

OAR

~1204

01205

000000
O'00000

0120~

22t2.~3

fUOOR
RBCTR
RQRSRV

012"'7

040026

~H

0121~.

01211
~121?

"'1213
01214
01215
111?1f1

01217
0122O

'"

'"
LAC.
OAG

441203

IS~

JMS
LAC·
DAC
lSi!
KRR
KRA
JMS

700312
700322
100575

000000

S8

(.:;~TLJ'>

ISET REAnE.R
ITO RDRSRV.

RD8lKR

0

JMP
JMP
DAC

DAR
DELAYS
DAR
OlMSR
RADDR
S8

RADDR

e'l4~0r;3

01224

440054

lSi!

~1?2'5

6~12~0

JMP

.+~

011'26

7500911
O4"'054
75Qt0(j14

ClA~CMA

5000&;2

01233

601240
20(1105 3

~1i?~4

7512P0

IGET STALL COUNT
ISTORE AT DELAYS
IUPOATE OAR.
1ST All
IGET EXPECTED DATA
ISTORE AT SB
luROATE ExPECH:o DATA ADDR.
IRE AD CHARACTER, SELECT READER

IERROR.

~1?23

v'1':5 j
"1('32

ApnRESS

IENABlE INTERRUPT.
IEXIT.

ITO CHECK IT.

ERROR
RUDONE
ERRCR
ERRCTR

01227
01230

SEQV!c~

CHCK

601223
601240

ERROR

SETUP

ISfT DELAY BLOCK ADOREss.

01222

01?21

100 READER

'"

101254
221204
0412'0
441204

RDSRV

IREAD DATA BLOCK. STALLS.

0

OAC
LAS
ANn
SNA!ClA
JMP
LAC
HLT
LAC
HLT

ERRCTR

1511

R9r.TR

10K.

ISTORE 8AO CHARACTER.
TO ERROR COUNTER

1+1

10rlO.
IRESTORE ERRcTR TO 7777.
IREAO SWITCHES

C:;R~~SK

RUOONE
ERRCR

IHAlT ON ERROR?(ACS3)
INO,
IYES. GET BAO CHARACTER
IERROR HALT. BAD C~AP IN AC·

~1;:3'}

74004~~

,',1?3t-

tJ.1237

20122~
74~040

111?4~

441?~5

,Il? 41
i31242

601'Jf..f,

JMP

rUT

20"'05 4

LAC
SNA

f>-lRCTR

IGOOO CHARACTER IN AC.
IAll DONE?
INO. TO MAINLINE
IYES, GET ERROR COUNT.
IANY ERRORS?
IND.
IHALT. ERROR COUNT IN AC,

ICLEAR READER BUSY.

0124~

7412Q1~

RUDONE

iH?44

741000

~1?45

140V'4V'

HlT
CLAlCLl.

58

SKP

~124(-,

754N~~

.1!1247

14"'063

O~M

R8USY

,;\:. ?5P
,~ j ? '} 1

20~0f.4

LAC
RAL

LINK

'~1

?0~~~65

LAC
JMP*
.EJECT

AC

?5?
"'1253

74{,~~'?

62~"'00

P-

IRESTORE lINK
/RESTORE AC
ITO MAINLINE

PAGE

16

15 T T"',

, 1.254

~000Ql0

?t)"

?0~0?6

01?56
t1257
IH260
01261
01262
01263
01264
01265
01266
01267
0127{11
£'11271
01?72
I.H273

041271

;A 1.

~1274

°12 7 5
01276
01277
~1300

01301
1211302
01303
1211304
(111305
01306
01307
01310
:01311
01312
01313
01314
0 131 5
01316

DLM5R

'L"

IREAOER
A \~

JEl!"S

OAC

RCTRl.

6212~0

JMP*

.+1

001261
200041
041272
441272
601263
441271
6012C;7
754000
621254
090000
00"'IlI?0
IlI00000
100533
0000';7
001317
777777
100322
001316
004001

.+1

10~411

5000'55
741200
"e1303
740301
34P'-071
061316
441316
441317
601303
6 212 73
000000

~1317
~132P

~0000!0

01321

75?-0V1

0000P'"

~1322

HH~37b

?1323

6213?0

LAC
DAC
15l
JMP

"4Ill
RCTR8
RCTRR

IS~

RCTRA

r· E i...A

Y

ISUBRQUT!Nt

.-1

JMP
.-7
ClA!CLL
OLMSR
JMP.
RCTRA
RCTRB
DLCNTP

"
PI
PI

ISUB TO rILL DELAY BLOCK.
15ET BLOCK LENGTH.

MOVE
BLKCNT
OCTR
-1

GNRNO

SETLOC
OADOR
OBLK
JM5
AND
5NA
JMP
CMA
TAl')
DAC.

RAI\IG[N
DLYMSK

ICET RANOOM NUMBER,
IRE MOVE ~XCESS BITS

GNRNO

IYES. GET ANOTHER NUMBER.
12'S COMPLEMENT IT

1<:1
OAOOR

IS~

rlAnOR

IS~

('1CTR
GNR·NO

JMP
JMP.
DADDR
nCTR
PSYNC

IUlLK lOOR TO OAOOR

flLfNTP

0

'"
'CLA!C"1A
"
JMS
JMP o
.EJECT

PU~CH

PSYNf

10?

ISTORE IN DELAY BLOCK,
IUPOAr A DELAY ADDRESS
IOONE?
INO,
IYES.EXIT,

PAGE"

17
/C:)NCi-<

1'1324
"'1325

~0?0~e

~1326

221324

Vl1327

14~063

~41332

01330

100776

01331

1013~~

01332
01333
01334
0133 5
01336

~0A000

01337

600260

0134~

('10('1000
140063

01341

Hlt011
101162

100176
101141

121 1342
0 1 343
01344
0134'5
01346

221340
04 1 347

01347
01350
01351
0 13 5 2

0000"'0
101011
101162

01353

601351

01354

0000~0

01355
01356
0 13 57
0136('1

041352
100776

101320

0001210121

14(:l!12I63
100776

(H361

1013?0
101112
101('111

0136?

HH171

01363
0 1 364
01365

101162

01366
01367

101141
60121260

1011?~

10(i11776

NTST

TEST NOPMAl TFST SEOUtNCE
!II

02 "--1
LAC-It
DAr:

JMS

P':'ll

SY

NT~T

NTSTA
PlTlR
PSYNC

/CL£AR READER BUSY
ISELECT P~NCH MOOE

IPUNCH LEAnER
/PUNC H SYNC CHARACTER
IPUNCH DATA SLOCK
RSYNC
JMS
ISYNC R;EAOER
JMS
RDBlK
IRt:AD OAT A,8LOCK
JMS
PLTLR
IPUNCH TRAILER
JMS
RROY
IWAIT fOR READER NOT BUSY
JMP
CHAIN
ICHAIN
IPUNCH TESTS SPECIAL TEST SEQUENCE
5TST
RBUSY
OiM
ICLEAR READER BUSY
STST
LAC·
ISELECT PUNCH MODE
STSTA
OAe
STSle
("lAC
PLTLR
JMS
/PUNCH LEADER
PSyNC
JMS
IPUNCH SyNC CHARACTER
STSTA
/PUNCH DATA ALOCK
RSYNC
JMS
ISYNC READER
STST8
JMS
ROAlK
IREAD DATA BLOCK
STSTC
IPUNCH DATA BLOC~
JMP
STSTB
IGO READ AGAIN
/COMBINED TEST NORt-IAL TEST SEQUENCE.
CNTST
0
DiM
R8USY
ICLEAR READER BUSY.
JMS
PLTLR
/PUNCH u: AOER
PSYNC
JMS
IPUNCH SYNC CHARACTER
JMS
P8LK
IPUtrC;H 0. TA BLOCK (NO ST ALL S)
RSyNC
JHS
ISYNC READER
JMS
RDALKR
IRE AD DATA BLOCK (STALLS)
JMS
P8LKR
/PUNCH DATA RLOCK (STALLS)
JMS
RDRLK
IREAD DATA BLOCK (NO STALL)
PLTlR
JMS
IPUNCH TRAILER
RROY
JMS
IWAIT fOR READER NOT 8USY.
JMP
CHAIN
ICHAIN •
. EJECT
JM~

"

"

"

PAGE"

18

15TTP?

01371
0 13 1 2
01373
01374
013115,

0000(110
140023
2213 70
041376
441370
10e631

0137~

00Pl900

01371
01400

HH401
621370

01'401
01402
01403
(111404
01405
01406
01407
0141"J
01411
01412
01413
01414
(111415
01416
01417
01420
01421
01422
01423
01424
01425

000000

A1310

18~322

0814P2
777664
10611322
901421
003401
200023
740200
100333
221421
100376
441421
441422
601410
6 21 401
000000

000000
0000V10
221423
041460

ITyPE LINE OF ;3 CHARACTERS (NO DELAy)
TYPLN3 0
DlM
DELAYM
'lCLEM~ DE LAY ~
TYPLN3
LAC·
ICET AND STORE DATA ADDRESS.
.+3
DAe
TYPLN3
IS~
F"SF3
JMS
/GO FILL BUFF"E~ WITH DATA

r

TypE
ITYPE LINE Of" DATA
JMS
JMP.
TyPLN3
IExIT.
ITYPE LINE Of" ASCII PRINTABLE CHARAcTER-S
TYPE
0
SElLoe
1-76 TO TCTR
TCTR
-114
~ETLOC

TYPEA

F(TeH
BLOCKA
LAC
SiA
DELAY
LAC·
JMS
lSi!
IS~

FETCH
TCTR
ASCCN

JMP
JMP.
0

10ATA ADDRESS TO FETCH.
nELAYM
FETCH
PUNCH
FETCH
rCTR
TYPEA
TYPE

0
0

LAC.
OAC

ASCCN
WASC
AseCN
ASr.CN
SASC
A,SCCN

~142fo,

44141>3

!S2

~1427

221423
fl41461
441423

LAC·
DAC
IS1
LAC:
K770~
ANO.
WASC
RTR!CLL
RTR
RTR
JMS
r.Nv
I52
SASC
LAC
K770~
("MA,
WASC
AND*
JtoIS
CNV
JMP.
ASCCN
.EJECT

01430
01431
0143?
(111433

?014f,3
5214~0

~1434

746V120

0143'>
01436
"'1437

74?0?~

0144~

742~P0

101 4 46
4414f11

01441
01442

2014t-3

V1144~

S;214f,0

~1444

101446
6214?3

01445

74~0V11

ISTALL?
IYES.
IGET CHARACTER
IPRINT IT
IUPDATE DATA AODpESS
10ONE?
INO. REPEAT.
IYES. F:X IT

PAGE

19
"'.1446
l1447
~'14 5IJ.

0141)1
01452
9.11453
~1454

01455.
01456
91457
0146tIJ

01461
01462
01463
01464
01465
01466
01467
01470
211471
01472
01473
'H474
01475
01476
01477
0150111
01501
01502

1I)TTP?
Q!0~0V'l0

740010
5014f14
341462
501464
341465
061461
62144-6
000000
00QJ000
LlI01i1000
007700
~00107

11106060
000247
A00337
V'l01i13?7
001i1257
000247
000240
000331
000240
000327
(,100240

00~333

01504
(,11505
(A1506
01507
015HI
01511
IiIl1)12
1111513
01514
H151-=;

000277
000303
00A247
000240
00(11333
(11 0 iii 240
00A277
000240
900303

~11)16

""0~301

01517
01520
""1521

(1I0V'13P!2
0003(113

~1522

0003(115
001i1306
000307
001i1310
00V'l311

V.15?6

RAL
AND
TAO

1(6fA6P

SAse

jMP.

CNV

iii

A33WPS

A35WP4

CiI

7700
iii 7 iii 7

606111
247
337
327
257
247
240
337
240
327
240
"57
24(,1
247

333
277
39J3

A35WPS

00~240

00~304

TAO

DAC.

AseT

1<7100
1<0107
K606111
A33WP4

A

><0707

ASCT
K0707

0

SAse

AS(",T

MFI

WASe

00~257

1210024121
000241

(i!

DAC
PTL

7420U3

01583

01523
{tl1524
011)25

CNV

~41462

247
240
333
240
271
240
303
?40
301
~02

303

n

~04

G

305
306
301
31~

311

.EJEcT

I'

ILEFT ARROW
1104

II

/1

ISP

ILErT ARROW
ISP

IW

ISP
II
ISP
I'
I (

11
Ie
I'
ISP
I[
ISP
11
ISP
Ie
ISP

PAGE

20
01527
~1530

V!15~1

01532
01533
01534
01535
01536
01537
01504i11
01541

15TTP2
"'00312
000313
000314

.J

000~1S;

M

01547
01550
(JI1551
01552
01553
01554
011:)55
01556
01557
01560
01561

(il11J0.316
000317
000320
000321
000322
000323
000324
000325
080326.
000327
00033O
000331
000332
000260
"'00261
000262
"'00263
000264
00"'265
000266
000267
000270
000271

01562

"iUJ241

01563
01564
01565
01566
01567
"'1570
01571
01572

~1542

°15"3
01544
01545
~15"6

31::
~13

P

S

314
315
31fl
317
320
::21
322
~23

324
'25

V
y

~26

327
:'30
331
332
260

ONE

261
262

F"OUR

1'64

26~

?6C;

266

SEVEN

?6~

? 7 tc~

271
C241

241
242
243
244
245
246
247
250
251
252

~~C;7:Z

000242
000243
000244
O00245
"'00246
"'00247
00fl250
000251
000252

1),1574

~0V'1?53

2C;~

\-'1575

~00254

254

~1576

0002'55

"'1577

00(~25n

V'160P

0~0257

11601

00027?

?16~2

~0"273

~16~3

~0e274

P'lMH

0~~275

~1605

000::?7t-

C244
C247

C2'52
C255

25'1

256
?~.,

e272

'272
?7~

::>74
C275

?7~

'";76

::>77

'~160"

~00?77

111607

P003V'~

elbl~

0003~~

~3'

~1611

00~334

~34

C300

~r'~

• EJEC'7

"'loGE

21

l'1TTP?

01612

0011'33'5

?'1613

01617

00C1336
000337
00"'001
0000(1)2
000004

~1620

"'00,010

0.1621
0162'2
(H623
{/I1624 ,

000020
000040
000100
000200
000100
000040
000020
000010
000004
000002
000376
000375
000373
000367
000357
000337
000277
000177
000277
000337

~1614

01615
~1616

01625
01626
i'1627

01630
~1631

01632
016,33
01634

01635
01636
01637
01640
016<41
81-642
A1643
~1644

01645
01646
01647
01650

01651
(1'11652
01653
916'54
~1655
~16156

01657
01660
~1661

I?
00"'711
001640
002405

~ .: C;

CRTST

4003

ISP, C
IR,SP
IT,E
IS,T

RMTST

2240
2405
2324
0001
4022
1107
1024
40t5
0122
~711

1640
1'405

2324
0001

.EJECT

lEND CODE
ISP,R
I I, G

IH,T

ISP,M
IA,R
IG, I
IN,SP
IT, E
15,T

lEND COOE

PAGE

('2

01670
01671
~H672
~1673

01674
131675
01676
131677
01700
131701
131702
131103
131704
Iill705
01706
01707
A171'"
01711
01112
01713
01714
01715
131716
"11717
01720
01721
01722
01723
13 1724
"'1725
~172'"

1"'TTP2

1313413;:>3
f?-020\.l'1
0e03e5
0040?4
"'0~523

002400
"'0~100

"'04014
000640
002405
002324
1'100001
0048~3

CHRTST

WCPTST

0017')?

002324
0040"'3
000123
000540
002001
~0?424

0e05?2
001640
0024~5

0173~

00;:>3,)4
1il00015
000012
000"''''1

0173~
~1734

~0V"015

,!j17~"i

V"017l01?

01736

0040(?11
A0?3?2

~1737

01740
01741
"'1742
01743

U"TST

001001
002201
00"'324
000522
2104024
0005?3
0024?3
000001
ee40?7

131727
01731
131732

SPTST

1'106363
~0C:;7t-3

001'!5":0
"'013~1

KMSG1

4023
20131
0305
4024
052:5
2400
0100
4014
0640
24135
2324
13001
4fJ.03
U'01
2201
13324
0522
4024
0523
2423
0001
4027
1722
23?4
4003
0123
0540
2001
2424
0522
1640
2405
23')4
0liH5
0012
A0Al

171015
0012
4001
;:>322
6363
5763
6540
1331

~1744

00~2Q'4

1i'174'5

~"'4~24

0204
4024

~1746

00<'1523

~523

2400
15"'0
1200
01A0

i"1747

",o2400

1'1175'"

01315V1;1!

131751
"'171:)2

A001"''''

A012~(i\

.EJECT

ISP.S
/P.A

jetE

ISP,T
IE,S
IT
lEND CoDE
ISP,L
/F,SP
IT,E
IS,T
lEND CODE
/SP,c
IH,A
IR,A
leT
IE,R
ISP,T
IE.S
IT. S
lEND CODE
ISP,W
IO,R

/S,T
ISP,C
lA,S

IE, SP
IP,A
IT,T
IE,R
IN,SP
IT. E
IS,T
ICR
ILF
lEND CODE
leR
ILF
ISP,A
/S.R
13.3
11.3

15,SP
IK'Y

18.0

ISP,T
IE,s
IT
ICR
IlF
IE NO CODE

pAGE

23

l':·TTp?

IK""SG2. TYPE: PRESS
01753
11754
\Ill 755
01756
"'1757

"'00015
00.0012
9'040?0

K"1SG2

e'e1_ 5
V;;H '2

4e?0

002205

22~5

A

KEY
ICP
ILF
ISP,P
IR'E

~02323

0176~

2323

IS,S

0040~1

01761
"'1762
01763
01764
01765
01766
01767
01770
01771
01772

004013
000531'
005600
001500
0012010
000100
000015
000012
004005
000310
"'01740
002405
011'2324
000015
000012
004003
00HlCil1
002201
000324

40A1
4013
0531
r;600
15et0
1209
0100
0015
0012
4005

ISP,A,
ISp,K
IE,y

0310

IC,H

1740

IO,SP

24~5

2324
0015

IT,E
IS,T
ICR

0012

ILF"

4003
1001

ISP,C
IH,.
IR,A
IC,T

0177~

01774
IH775

01776
01777
V!2000
02001
020102
0?003
02004
0217105
02006
02007
02010
02011
02012
1)12013
1A2014

00~5?2

002340
001305

KMSG3

KMSG3A

22011
0324
11l5?2
2340
1305

I.
ICR
ILF

lEND CODE
ICR
IlF"
ISP,E

IE,R

IS,P
11<,[

003Hl!r;

31~5

ly,E

000440
0027j1
001414
0040012

0440
2711
1414
4002

ID,SP
IW, I
IL,L
ISP,B
IE. SP

00Q1540

"540

0201~

002431

02016

1fl0?~~5

2431
?005

~2017

V'12I04"> 6

0<456

~2020

~0001"i

Vl2~?1

00~(lI12

Pi?022

"'04"'??

02023
0?024
02e25

00?502
0017?5
(110244121

0015
0012
4022
2502
1725
2440

1112e2f.
07027

V'00516

~516

~004:?3

0423
.EJECT

IT.

Y

IP,E
10, •
leR
ILF

ISP,R
IU.S

IO,U
IT, SP
IE. N

10.S

PAGE

24

l';TTP?

4022
17 25
2411

Vl2Vl30

~?4~22

"'2 01 3 1
02\'132
02.033

~017?5

002 4 1:
0016~?

1605

~2"34

ee56~0

0203c:;
0?036
02037
0204111
02041

0015(110

5600
151210
12Q10

~2042

02043
012044
02"'45
"'2\7146
(}I2047

0012~0

0015V'0
0012ep
(1100100
00Y':(?I15
000012
000012
P04017
00~324
~040(iJ5

02051

0021?5
12101126
V'00114

PI????

~20r;7

Vl2V'1MlI
02061

0?062
02063
"'2064
0?(JI65
0?06tl

KMSG4

000114

"'"050

020153
020'.54
Vl205r;
CA20r;f,

15~0

0100516

002440
Pl0?40r;
00?3?4
000015
0000(111
000015
000012
004(1140
CAV!4kH0

0100015

~2067

",(II~012

02~7'"

0~r~Q!1

KMSG5

OCTEOV

12P0
fJ100
0015
0012
0012
4017
121324
0114
4005
2125
1126
O114
0516
244O
2405
2324
"'015
0001
0015
01012
4040
4040
0015
01012
010011

.EJECT

ISP.R

IO,U
IT, I
IN'E
I.
leR
IlF
ICR
Ill="
lEND CODE
ICR
ILF"
ILF'
/SP.0
IC.T
IA,l
15P.f
IO.U
I I ,V

IA,L

IE,N
IT,SP

/T.E
15,T
ICR
lEND CODE
ICR
ILF

leR
/LF

lEND CODE

PAGE

25
.~

15TTP2

~71

10li16j3

0 'lt7?
V'I 11'73
074
" 07'5

lV'032?
?'0"'0?0

02076
02077

0000t"0

9121011
02101
0210?
02103
02UJ4

100361
777776
190451

02105

02116
021''1
0211'
02111
02112
02113
02114
0'115
0211f1
°2 117

02120
O2121
02122
02123
02124
02125
02126
02127

?21.3V'

?02076
6~e?;t3

00~131

0016'31
10~361

777776
,O0'070
100376
200077
040045
44~045

7410'0
600260
2'00045
04P046
2°0066
100376
440046
t.02117

200060
100376
100376
200067
10"~16
~~?112

<:: r ~ eJMS
SETLoe
KSTART
P0TS0
SRS£T
JMP
ICARRIAGf RETLJRN n:ST
paTSe
0
P0TSl
JHS
CRlf
-2
TYPSTG
JHS
CRTST
JMS
CRLr
-2
LAC
C334
JMS
PUNCH
LAC
Mill
U'it""'P
DAC
CRTSTA. 152
IHE M.P
SKP
JMP
CHA!"
CRTSTS LAC
UTEMP
UTfMPl
OAC
LAC
SPACE
JMS
PUNCH
UTfMPl
ISr
JMP
.-3
CR
LAC
JMS
PUNCI-J
JMS
PUNC'"
c257
LAC
PU'./CH
JMS
JMp
CtHSTA
.EJECT

PRr,e

/SET UP gUffER AREA
IINITIAL ROUTINE AnDRESS
ITO KSTART
IGO GET STARTED

ICRLf
ITWICE
IPRINT T£ST T lTLE
ICRLf
ITWICE
IGET tt\" CODE
IPRINT IT
1-73 TO UTEMP

IALL DONE?
INO.
IYES. CHAIN
IC15

~222~

741000

~2?24

600260
200073
340C1146
602207

02225
??'22f

02227

SPTSTS

CRLF
TYPSTG

ICRLF
ITWICE
/PRYNT TEST TITLE

CRlF

/c~r

M...
UT£MP
TYPSTG

/TWICE

'1-36 TO UTEM?

IPRINT\,SP

.+3

UTEMP
SPTSTA

1"\n.SP
IENO CODE
IOONE 36 TIMES?
IN~. 00 IT AGAIN

M44

UTOIP

LAC

1'41

OAC
DAC
LAC
JMS
JMS
LAC
JMS
ISl
JMP
LAC
JMS
ISr
SKP
JMP
LAC
TAO
JMP
.EJECT

UTEMP1
UTEM P 2
CR
PUNCH
PUNCH
SPACE
PUNCH
UTEMP2
.-3
C257

PUNCH
UTFMP
CHAIN
1'12
UTFMPl
SPTSTB

1-36 TO UTEMP
IGET -1
lAC TO UTEMPl
lAND UTE'MP:?
IGET nCR" CODE
IPRINT IT
IDUMMY CYCLE
IGET "SPACE" CODE
IpRINT IT
IOONE SPACING?
INO.REPEAT.
IYES.GET "l"COOE
IPRINT IT
IOONE 36 TYM[S1
IND.
lyEs. CHAIN
1-2 TO AC
IADO C{UTEMP1)

PAr,E

2'8

l';TTP~

0?23(l1

?:0~r.03

02231
02232
02233

~0?21:i4

V!2234

~2235

Vl2?36
02237
1i'l224P'

02241
02242
02243
0 22 44
02?45

10?-361
777776

ILINE FEED TEST
P0TS3
3
P0TS4
CRU"
JMS

-2

10P451
?l1677

JMS
U"TST
JMS

10V'361

777776
700076

.LAC

"'4"'045

OAC

200070
10A376
200061
100376

LFTSTA

LAC
JMS
LAC
JMS

07246

440045

IS;Z

741000
6'H'!260

~2252

10"'333
60?2 4 2

SKP
JMP
JMS
DELAY
JMP
.EJECT

0?253

CRU"

-2

02247
02250
022'51

HH~350

T'fFSTG

~110

UTEMP
C334
PUNCH
LJ:"
PUNCll
UTFMP
CHAIN
DLCNT
LFTSTA

1-72 TO UTEMP
ICET "\" CODE
IPR}NT IT
ICET tllr" CODE
IPRYNT IT
IDONE?
INO.
IYES. CHAIN
IDFLAY COUNT CENERATE.
IU-LAY

PAGE

?9

F'TTP2

~?254

0I00~W4

Vi??!?")

"'''\)267
10 0 3"1

:, ') 2 ')A

0??'57
02260
02261

02?77
1112300
02301
0230~

00:?3~6

02303
02304
02305
02306
02307
0?310
02311
02312
02313

UH370
0'!11527
600260
000010
002313
101370
001'532
600260
000011
002320
101370
001535

02263
02264
02265
~2266

02267
02270
02271
02272
02273
02274
02275
1/12'276

02314

02315
02316
02317
~232P1

02321

02322
0?'32~

JMS
CHRTST
JMS
-2
JMS

ri:i!

F

TYPSTG
CRLF
TYPLN3
CHAIN

ICHAIN

TYPLN3

IPRINT LtNE Of"

DEr

or

GHI

A

P0TS5

JMp
5
P0TS6
JMS
0

JHp
P0TS6

CHAIN

6

P0TS7
JMS

TYPLN3

P0TS7

P0TS10

P0TS1l

P0TS12

JHP
7
P0TS10
JMS
J
JMP
10
P0TSll
JMS
M
JMP
11
P0TS12
JMS
P
JMP

CHAIN
TYPLN3

TYPLN3

TYPLN3
CHAIN

P0TS13
JMS

TYPLN3

TYPLN3

~~:?331

fl0~2MI

02332

00~014

0;>333

~e;;>337

1~2334

10.1370

~2~3r;

0!01S;46
60V12f10

/PRINT LINE OF' STU

S

V

~233~

IPR}NT LINE OF PQR

12

~01~43

02327

,PRINT LINE Of" MNO

CHAIN

00233?
101370

0232f1

,PRINT LINE OF JKL

CHAIN

CHAIN

~00013

IPRINT LINE

G

JMiJ

fl0~26~

~232!?

ICRLF
ITh1C[
/PRINT TT TLE
ICRLf"
/TWICE
/PRINT LINE OF ABC

13
P0TS14
JMS

02324

0.2336

JMS
-2

6002t.0

000012
91023?5
101370
0.01540

4
P~TSs

777776
10(H51

00J 704
100361
777776
101370
001 5 1 6
600260
000005
002274
101370
0015?1
600260
000006
002301
101370
001524
600260
000007

02262

P(JTS4

p0.TS13

P0TS14

JMP
14
P0TS15
JMS

vwx

CHAIN
TYPLN3

y

JMP
.EJErT

/PRINT LINE OF'

CHAIN

/PRrp."r

LINE OF' YI0

P A. r

~

1I':TTP?

.~ ~.)

i'2"l,!V'?34P

?0V1015

P0TS15

02341

H~137e

:5
P0TS16
JMS

~2342

~'H5r;1

ONE

0234~

600260

02344
0234C:
"2346
02347

00NH6

~0?344

JMP
P0TS16

P.0?3iSl
le137e1
~015'54

~?35V

600260

~:?351

M"Pl017

"2~'52

~0:?356

~2353

10137Pl

02354
"?355

~01557
60~260

~2356

~e"020

~2357

00;;>363

~236P

1~1370

e2361
"2362
02363
02364

001562
"""'2f.0
"'0~021

P0TS17

P0TS20

PATS21

P0?370

~236~

1~1370

~;;>:t:6t~?36~

~01565
~~0260

~2~7p

P~(II0?2

~2371

0~2375

02372

1"5.1370
001570

P0TS22

P0TS17
JMS
FOUR
JMP
17
P0TS20
JMS
SEVEN
JMP
20
P0TS21
JMS
C241
JMp
21
P"TS22
JMC:;
C244
JMp

t'k),{"?HI

~?4~7

?M~V'?"

~'?41

?

()02414

.~? 411
0;:41?

1~~370

("V' 161' 1

C2 7 2

6~i'::?A0

c375

~~~~?3

~:?37~

P~?4P2

"237"'

101370

~240r

P~1'573

~2481

~0~2(-0

V'/40?

~e~~?4

~?4r~

~V::>4v'7

il?<104

1?1370

"?4p'C:;

~~157fl

;'?41~

f.002f~

~'" 41.!

,"'~' pi

\12 4 1"

VI? fl
f'0?4;?1

02 4 1t<

1e,137~

-:

?~1t'04
I" ~~'? f', r

~'?41

,'.) 4"2 f'

P0TS23

P0TS24

P0TS25

P0TS26

LINE OF 123

CHAIN

TVPi...~·3

IPRYNT Lr NC:

or

456

/PRINT LINE

or

789

CHAIN

TYPLN3
rHAI\

TYpL .... 3

IPRINT LINE OF!".

CrlAI"
TYPLN3

/PRINT LTNF OF $X&

CHAI~

('2

024"t-

~?~74

\Il

/pr:,INT

16

P0TS23
JMS
C24 7
JMp
23
P0TS24
JMS
C252
JMp
24
peTS2?
JMS
C255
JMp
25
P0TS26
JMS

~2373

TYPLN3

JMp
'26

peTS27
JMS

TYFLN3

.fJEeT

OF' ( )

CHAI~

TYPlN3

IPRINT LINt. OF

.. + ,

IPRINT LINr

JF"

-·1

/PRINT LINE

or : ; <

rHAIN
T\

P

L ....:1:

(,;.1

PAGE

31
l.2421

??42?
~242~

02424
0?425
0242~

02427
02430

0243'1
02432
02433
02434

02435
02436
02437
02440
02441
02442
02443
02444
02445
02446
02447
02450

lC::;TTD?

0000?7
00?4?6

P0TS27

P0TS3~

101370
001607

600260
000030
902433
HH370
e01612
6002MIJ
00Pl.031
002441

Jt-lt:;
JMD

P0TS30

P0TS31

140023
101401
600260

P0T532

101401

6 00 260
00t1l033
002466

P0T533
IPRINT

02451
02452
02453
02454
0?455

02456
02457
0246e
02461
02462

100361
77777f>
100451
001715
10Q1706
140023
100322
000050
777772

1014P11

0246~

44005~

~?464

602462
600260

~?465

TYPLN3

IPRINT LINES OF

~(\

C300

100652

000032
002447
100652
100350

27

CHAI~

30

P0TS31
JMS
TYPLN3
IPRI~T LYNEs·,or )'t AND LEFT ARROW.
C335
JMp
CHAIN
31
P0TS32
JMS
F"8ALL
/PRtNT LINE OF ALL CHARACTERS
DiM
f'ELAYto1
TYPE
JMS
JHP
CHAIN
32
P0T533
JMS
F94LL
/PRINT LINE OF ALL CHARACTERS.
JMS
DLCNT
IFIXED DELAY BETWEEN
TYPE
JMS
ICHAR AC TE:R5
JMP
CHAIN
33
P0TS34
6 LINES OF ASR33 WORST CASE PATTERN. NO DELAY
JMS
rRLF
ICRLF
-2
/TWICE
TYPSTG
JMS
IPRINT TITLE
WCPTST
JMS
Fioi334
/PATTERN TO BUFFER
DiM
OELAYM
10 TO OELAYM
SETLoe
1-6 TO eTRA
eTRA
-6
TYPE
JMS
ITY?[ LINE
eTRA
IS?
/ALl LIN[S TyPED?
JMP
IND. REPrAT
Jt'lP
CHAIN
IYES. CHAIN
.[JECr

p"GE

':?

11)TTP2

?246£>

00~Q)34

P0TS34

~2467

~Q!?501

~247Vt

100706
100322
Ql00050
777772
100350

P0TS35
IPRINT 6 LINES OV ASR;n wORST CASE PATTERN, FIXED STALL BETwEEN CHARS,
VW334
JMS
IPATTERN TO 8UrFER
S[TLDC
1-6 TO CTRA
CTRA
-6
JMS
OLCNT
IGENERATE DELAY COU~T

02471
02472
~2473
~2474

02475
02476
02477
~2500

101401
440050
60 2 474
60V'1260

02501
02502

0000~5

02503
0?504
02505

100742
14el0?3
HH1322
001'1050
777772
101401
44"'050

"',;)-;11.!6

02507
02510
02511

002514

34

JHS

ISe
JMP
JMP
P0TS35 35
P0TS36
IPRI~T 6 LINES
JMS
DtP1
SETLDC
CTRA

TYPE
CTRA
,-3

CHAIN
0;:-

ASR35

r,.~54
nEl~YM

ITYPF LINE
IALL LINES TYPED?
IND. REPF:AT.
IYES. CHAIN
WORST CASE PATTERN. NO DELAY
IPATTERN TO BUFFER
10 TO DELAYM
1-6 TO CTRA

-6

JMS
IS~

TYPE

eH'.

ITYPE LINE.
IALL LINES TyPED?
IND. REPF:AT
IYES, CHAIN

~2512

(-'0?t;H'

J~p

.-~

0251~

f,002f-0

JMP

CHAtl\;

~2514

00"'0~6

P0TS36

02'515

777777

777777
IPRINT 6 LINES OF ASR3'5 WORST CASE pATTERN. FIXED STALL BETWEEN CHARS,
JMS
r~~54
IPATTERN TO RUFrER
SETlOC
1- 6 TO CTRA
CTRA

0251 6

1~~742

02517

HHB22

~?'52V'

00"'05ft'1

02521

777772

"21j??

10t113r;e

~2r;23

101401

36

-6
JMS
JMS

a2524

44V'l050

lS~

~2t;?C;
~~? ~ 2 f.

fl0?'5?2

JMP
JMP
• f JEe i

6 0 (i'2flPl

[lLr~T

TyPE
rTRA

.

-~

r-H.IN

IGENERATE DELAY COUNT
ITyPF LINE
IALl LINrS TYPED?
INO, REPF'AT
IYES. CHAIN

PAGE

33

1~TTP2

~2?27

100322

IPROGRAM 1. PUNCH
PRG1
SETL:JC

/',253111
02531
02532

000.~~2

2

/5ET INTERRUPT SERVICE
IADDRE5S Tn INTSVS

001051
1003?2
02100'57
777408
HJ0_322

INTSVC
SETlOC
BLKCNT

ISET BLOCK COUNT Tn
1-256.

02533

-02534
~25 3'5
11121536
02537

00f10_?0

002541

~254'"

600?33

21254_1
02542
A2543
1lI2544

210021021
0025'52
143401
1210533
0034 01

~2545

02546
02547
e255~

02551
212552
02553
02554
02555
212556
02557
02560
02561
~2562

02563
02564
02'565
02566
02567
021<;7V'
02'571
02572

~03402

777401
1211324
HH112
fiH110001
0212564
14341111
443401

121111533
0213401
0034212
777401
101374
1211112
~0~eA2

002577
1003?2
0034(1)1
~0~0Ctl2

100533
f'!034V" 1

-400

?

MOVE
BLOCKA
RLOCKA+l
-377

1013?4

JMS

~2'576

101112

JMS
.EJECT

7774"'1

TEST

SETLae
!INITIAL ROU~lNE AODRESS
KSTART
ITO KSTART
P1T0
JMP
'SRSET
ICET STARTED
IROUTINE0
IPUNCH AND READ CHECK 8l0CK or ALL ,,'S.
Pi Te
0
P1Tl
DlM
BLOCK A
10 TO BLOCKA
MOVE
IfIll BurfER
BLOCKA
BLOCKA +1
-377
NTST
ICO TO NORMAL TEST
JMS
JMS
PBlK
luSE THIS CALL.
IROUTINE 1.
IPUNCH AND READ CHECK RlOCK or CHANNEL 1PiTt
1
P1T2
02M
RLOCKA
lSi!
RLOCKA
11 TO BLOCKA
MOVE
IrIlL RUFFrR
BLOCK A
BLOCKA+l
;..377
lliTST
JMS
IGO TO NORMAL TEST.
JMS
PBLK
/USE THIS CALL.
IROuTtNE 2.
IPUNCH AND READ CHECH BLOCH OF" CHANNEL 2.
P1T2
2
P1T3
SETLOC
12 TO BLOCKA
BLOCK A

1712'573
02574
f'!2575

~03402

FU~CTIOt-.;

IFILL BUFFER

NTST
PBLK

IGO TO NORMAL T£S T.
IUSE THIS CAll

PAG[

1 c, T P?

'4

Y

~2577

02M!l0
02601

0,2602
~26f33

(1)2604
02605
02606
0126137
0261")
026U
132612
02613
02614
02615
02616
02617

0130003
002612
1130322
0133401
01300V14
100.533
0f334Vll
0034''''2
7774011
1131.324
101112
0eJ0~Vl4

002625
100322
0034C1!l
01210v)1121

~2620'

1130533
Vl03401

0?f>21

00::40.2

02622
02fl23
02624

7774(1)1
101324
101112

02625

0.00005

~?626

02627

002640
1003?2

026~0

00.'~4Vll

Vl2631
02632

"'00V1?~

0;;>633

00;)401

~1? A~

10~5::3

4

\110340?

>~? ,.<~

c:.,
v12b36

777401

~?6~7

101112

101~"')4

IROUTINE 3.
IPUNCH AND READ rHECK RLOCH OF CHANNEL 3.
P1T3
3

P1T4
SETLOC
BLOCKA

14 TO BLOCt756

00~4P13

7774(11")

02 7 57

1013?4

Y,?76(/l

H'l11 ?V!

IROUTINE 12
IPUNCH AND READ CHECK
P1 T12
12
P1T13
MOVE
Sl't 00
8LOCKA
-16
MOVE
BLOCKA
BLOCKA+16

~LOCI(

elF SLIDING o PATTERN,

IFILL BUFfER WIT~
PATTfRN
/SLIOING

"

-362

JMS
J"MS

NTST
P8LK

IGO TO NORMAL TEST
IUSE THIS CALL

IROUTINE 13
IPUNCH AND READ CHLGK QLOCK OF ONES AND lEROS,
Pt T13
13
P1T14
CLA!CMA
PTt"SK
AND
DAC
ALOCKA
1377 TO BLOCt1

~3t'!46

t'!~!767

03~47

70~3~1

~305F-

60~047

V' 3 05 1

700312

(n~5?

70~4~6

~'3~53

70~401

~30C;4

M~30&;3

(~3055

V'3~56

341i'0h2
7 4P12~' 0

\33 0 57

f,

1~3~M~

6V10?f,~

0 3 P14 7

IPROGRAM 2. KEYBOARD T(ST
PRG2
SETLoe
/INITIAL ROU1'YNE AGDRESS
KSTART
ITO f(START
P2T8
TYPSTG
JMS
IPRINT TyTLE
KMSG1
JMP
SRSET
IGET STARTED.
IROUTINE £I
IC~ECK THAT ,-' srG
IPRINT INSTRUCTION

0

.EJECT

/READY?
.-1

INO. WAIT
IYES. READ KfY80ARO

P2T2W
ASeeN
TYPSTG

ICONNECT CHARACTER TO
IPRINTABLE OCTAL
IPRINT ocTAL EQUIVALENT

P2 T2W
~RflOUT

IRUBOUT?
P2T2A
CHAIN

INO.
IYES. CHAIN

PAGE

40

15TTP2
IPRO~RAM

,~31k~7

10~3?2

~311Vl

00~0e2

03111

001051

~31l2

1003?2
000057
777'552
100613
100322

03113
03114
~3115

03116
03117
0312"
03121
03122
03123
03124
03125
03126
£13127
03138
03131
03132
03133
et3134

~3141

03142

~03146

03143

100631
e0l527
101354
00Vo0Q14
0e3153
10P631
001532

~313'5
~3137

0l314C11

~3144

03145
03146
e3147
~131a;p

03151

,

~@002·0

083122
600233
019000
103127
100631
001516
101354
e-0A001
003134
100631
(11015?1
101354
00Q10f'12
P:03141
HI0631
0015?4
101354
000003

03136

PRG3

~315?

1~13";4

03153
03154

pe~0Q15

~315r;

:0~631

~315~

rtH 5~5

P3Te

~3157

H~13C;4

~0~0~6

A

P3T1
JMS

F"SF"3

/DATA:ABC

A

P3Tl

JMS

CNTST

1

P3T2
.'JMS

P3T2

F"8F3

\s

/Q.4.TA:O[F"

CNTST

.3T3

tiS

.
P3T3

F"BF3

~

P3T4

P3TS

FBF"3

FBF3

M
JM:'

CNTST

f'

P3T6
JMS
P
JMS

P:.H6

10ATA:JKL

CNTST

JMS
4
P;5T5
JMS
r;

/OATA:GHI

CNTST

3
P3T4
JMS
J

~031~PI

031bP

3. cOMBINED READER, PRINTER, PUN('~ TEST
ISET INTFRRUPT SERVICE TO
SETLOC
2
IINTSVC
INTSVC
sETLoe
IsET BLOCK COUNT
BLKCNT
ITO -1'50
-226
STtiF
ISET UP RUFF"ER.
JMS
SETLoe
IINITIAL ROUTINE
KSTART
IADDRESS TO KSTART
P3T0
SRS[T
JMP
IGET STARTED.

F"8F"3

IDATA:MNO

IDATA:PQR

CNTST

(,

Vl3161

(il0~1f,5

~3162

1e'0t131

P3T7
JMS

~3163

??154(~

S

0.3164

~01"3S4

JMS
.EJECT

F8r3

--

rNTST

/DATA:STlI

PAGE

41
1 "r::,
6h
.' ~ i 6 7

1'5TTP?

~}~

~0.00Q\7

~q ~

V {I.~ 1 7 ~

031 7'~
03171
~3172
~317~

V'3174
03175
0317f.
"~3177

03200
03201
03202
03203
03204
03205
03206
03207
032HJ
03211
03212
~3213

03214
03215
03216
~3217

03220
Pl3221
~>3222

03223
03224
;113225
03226
Pl3227

101354
000010
003177

001546
101354
000011
00132014
100631
001551
101354
000012
003211
100631

000101.4

003223
100631
001562
101354
000015
003230

0324:1

00324('
1"10631
0Q11573
1ei13C:;4

/C'ATA:Vto;i'

rNTST
F8F3

10ATA: Yiz.e

'(

JMS
P3 T11

CNTST

11

P3T12
JMS

FBr3

/OATA:123

ONE
P3 T12

P3 T13

P;,H14

P3 T15

1010631

~00017

:;z;

; V"

>=-3Tl1
JMS

0101565
1013C)4
0et3235
10et631
001570
1f(J1354

~3?4~~

JI'1S

P3 T10

"'01554

101354
000013
0103216
100631
\?l01557
101354

r 8'

\'

HJ~631

03231
03232
R3233

Vl3237

'Me:

001543

P0V10t6

~3~34

. 3 T 1?

1?06~:

03?3~

V}3?35
V'3236

P3 i 7

P3 T16

JMS
12
P3T13
JMS
rOUR
JMS
13
P3T14
JMS
SEVEN
JMS
14
P3T15
JMS

C241
JMS
15
P3T16
JMS
C244
JMS

CNTST
FBF3

/DATA:456

CNTST
FB!="3

/DATA: 789

CNTST
FBF3

/OATA:!"#

CNTST
FBF3

IDATA:S~~

CNTST

16
P~H17

JMS
C247
JMS
P3 T 17

17
P3T20
JMS
r252
JMS
.EJECT

FBF3

/DATA:'()

CNTST
FB~3

Cl\JTST

IOATA: •• ,

PAQ

42

l"",TH.I?

~324?

eQl~Ql?'"

i~3?43

~vL~247

~3244

. 100631

03245
03246
03247

~01576

.03?54
03255
03256

0135.4
000021
Ql03254
HJ0¢31
001601
1O,-3'54
0000?2
"'03261
100631

~3257

0016~4

03260
03261

Ql0~0?3

03?5~

032.51
03252
~32C;3

~3262

·V"3263
03264
·03265
03?66
03267
03270
03271
\:-'3?72
03::>73
~3274

03275
03276
03277
03300
03301
03302
03303
03304

j

003266
Ul0631
11101607
101354
000024
003273
100631
001612
1"01354
t'l0Q10?5
003277
100652
1 0 1354
"'000;:>6
0033'03
100706
1°1354
0000;:>7
0033~7

HJ07?4

V'~3~6

1 0 13"4

~3307

00(l\03~

"'331Q1

03312

0033t3
10074?
1 0 13&:)4

1~3313

00~V'l31

03314

"'~3317

~3315

1007t.0
1°1354

V'331t.

P3 T21

P3T22

101354

Ql330C:;

1~3311

P3 T20

P3 T23

P3T24

P3T25

P3 T26

P3 T27

P3 T3 0

P3 T31

20
P3 T21
JMS
C2S;5
JMS
21
P3T22
JMS
C272
JMS
22
P3T23
JMS
C275
JMS
?3
P3T24
JMS
C300
JMS
24
P3T25
JMS
C335
JM5
:>5
P3 T26
JMS
JMS
26
P3T27
JMS
JI'4S
77
P3T30
JI'4S
JMS

F"9F3

/OATA: •. /

CNTST
FSF'3

/OATA::;<

CNTST
F8F3

/OATA:=>?

rNTST
F8F3

/DATA:@(\

rr-nST
FeF3

10ATA:], AND LEFT ARROW

CNTST
F"BALL

/OATA: ALL PRINTABLE ASC T I •

rNTST

CNTST

/OATA: ASR33 PRINTER WORST
ICASE PATTF:-RN.

rW:t3S
:- '; TST

10ATA: ASR33 PR t ~HER WORST CASE
IPATTERN WITH lNTERSPERSED BLANKS.

~~~'54

10ATA: ASR35
/PATTERN.

FW334

3~

P3T31
-,Me:;
JMS
31
P3T32
JMS
JMS
.EJECT

rNTST
r:-wo/~5S

r'lTST

PRI~TER

Iooi('PST CASE

10ATA: ASR35 PRINTrR WORST CASE
IPATTERI\j \oIITI-4 PoJTt~SPERSFD BLANKS.

PAGE

43

l';TTP?

03317

~V1(i1012

~~320

777777

32
77"''''77

03,~2j

75(11001

CLA.~CMt.

03322
03323
1213324
03325
03326
03327
03330
03331
03332
1213333
1213334
1213335

')0V\'5f)4

A'" :i

PP1 SK

~43403

tAe

14341114
Hll1533
00341213

:12"1

8L0CKl
ALOC K1-+l

~3336

03337
eJ334~

03341
121 334 2
1213343
03344
03345
0~~46

,Ioo!OVE
PLOCKl

~03-405

777672
112J1i'533
12103403
1211213515
777670
11211354
HJ0613
11210670
140023
7512101214
75110121
1121035121

101401
60334121

8LOCK1+2
-106 .

fo40YE
BLOCKl
. BLOCK2
-110
JHS

eN·TST
IPROGRAM 4. PRINT LINEs OF DATA IN LOC 08021 AND 00022.
IIp AC S 0=1. FULL SPEED, TF ACS~=l STALL ~ETWE:EN CHARACTERS.
PRG4
J"1S
SToF
15ET UP RUFFER
rsTMP
JMS
IFILL BUFFER WIT~ QATA.
DiM
O£LAYM
LAS
IREAO ACS
SP4!CLA
ISTALL?
JMS
OLCNT
/YES.
Jto1S
TYPE
ITYPE LINE
JMP
PRG4+2
IPROGRAM 5. PUNCH AND READ CHECK DATA BLOCKS WITH OATA IN LOC 1218021 AND
100022. IF AC S~ =p. FULL SPEED. IF ACSe= 1 S T4.LL BE TWEEN CHAR Ae TERS
PRG5
LAC
2

08.42
98'44
00843
0010"
00t~1

70CU~6

00456
00467
790401
A0036
~A5~0
014~1

0141'"
01370
~~5P4

00451
00045
~A046

LIT rfo1p.)

0~~47

~.

0154,'~

veTR

P,10f-4

C'i04"

014~'"
0~!'Il?

... sc
j,j

~CPTST
y

. f \'T

~'71~

015 4 b
00~9!0

C

;

!~. (1

.(e

T
KSTAt<";

0et0P~
~00f)0

PT~MP

"00?1
00022
008?3

PTf.HPl
DELAY"
OElAYS

PRCtlfUM

PRGKSK
PRGLIM
PSW
RTNNO
CURTST

NXT5T
TSTM5t(
"SCTR
MIl-eTR
HILt

TEMP

TEMP1
TEMPU

UTfMP
UTEMPl
UT£MP2
CTR •.
cTRB
SR3MSK
rRReR
FRRCTR
OLYMSt<

PF"LAG
8LKCtIIT
CR
LF"

"RaOuT

0Q112b
88127
0083·9
01831
0003.2

01833
00934
00035
00036
08037
00040
00041
00042
08143
00844

0Q1045
011146
0eQl47
00058
00051
00052
00053
00054
~0055

00056
03057
00060
00061
00062

R8USY

18063

LINK

08064

AC
SPACE
C257
C334

Kl
"'1

"'2

"16
M44
14110
14111

TEMa
TEMR

FLAG
K77
M4R

CUl0
C240
SKIpH~

80865
00866
Ql8867
00810
00071
00072
00873
00074
00075
00076
00077
00HHII

0Q11Pl
00102
00103
00104
G1I~10-;

00106
00107

,'; !

~

t

" ::

SITf

"~563
~P564

J05f.5

r~CK

?~\575

wCHK

0061'1

ST~r

~~613

r-~~~

~~631

r~.\L

(~~r;2

r~T\I=-

0l~'61~

rW~3.!.

~07Pfl

r\la3~S

,>'''72 4

j;"W~54

,~~"4 ;.>

r"35S

\.'~'6?:

PL TU~
l'TRClR
t{WN"

~1~07

,

qSv"'lC
.~

,~ ~

.....

P~''776

"1~1~
:~ 1 "" ~ ~
"\

~, ~ ~:

-,

pAGE

RSSEPV
tNTSVC
VCTR
OUT
PSTUP
POCR
PBlK
PBLKR
OAP
PCTR
PAOOR
RROY
RSTUP
ROBLK
RDBLKR
rJAR
RAOOR
RBCTR
RDRSRV
ROSRV
S8
ERROR
RUOONE
OLMSR
RCTRA
RCTRB
nLCNTP
GNRNO
OAOOR
OCTR
PSYNC
NTST
NTST4
STST
STSTA
STST8
STSTC
CNTST
TYPLN3
TYPE
TYPEA
FETCH
TCTR
ASr:CN
CNV
WASC
SASC
ASCT
K77",PI

')3

15TTp?
\~H127

~\ 1851
01164

~1"66

010'4
011~5

"'1112
01120
01136
01137
0t1~0

~1141
~1146

01162
81171
81203
01204
012r.5
01206
01212
CU220
01223
01240
01254
Gl1211
01272
01273
01303
01316
01317
01320
01324
01332
01340
01347
013'51
01352
01354
01370
~14?1

0141~

014?1
014(?2
01423
01446
014t1~

01461
~1462

..'1463

1<0707

"14~4

K606~

t\1465

A33~PS

01466
01472

A3 3 wP4

A35WP4
A35WPS

~15r.2

01506

PAGE

'54
01516
01521
01524
01527

A

o
G
J
H

0t532

P
S

131535
01540
01543
01546

V
y

ONE
rOUR

01551
01554

SEVEN

01557

C241

01562
01565
01570
01573
01576
01601
01604
01607
01612
01615
01633

C24~

C247
C252
C255
C272
C275
C30il
C335
SLIDl
SLID0
CRTST
RMTST

~16C;1

SPTST
LF'TST
CHRTST
WCPTST
KMSGl
KMSG2
KMSG3

KMSG3A
I(MSG4
KMSG5
OCTEQV
PRG",
P0TS~

01656
01670
01677

01704
01715
01734
017'33
1211767
01776
02042
1212062
02064
02071
0212176

CRTSTA

02112

cRTSTB
P(HSl

~2115

~MTSTA

P0TS?
SPTSTA
SPTSTR
PtHS3

LrTSTA
p(nS4

1212131
02143
0?1f>3

0?175

022l"7
02230
1212242
e?254

o~TS5

r"\2f.7

P0TS6

~)274

NHS7

02301
023H6

p~TSHJ
P~TS11

023,3

"iHS12

023

~r

S1

,~

'~

pACE
P0 TS14
PftHS'! 5
P0TS16

peTSt7
P0TS20
P0TS21
P0TS22
. P0TS23
P0TS24

P0TS25
P0TS26
PtHS27
P0TS38
P0TS31
P0TS32
P0TS33
P0TS·34

P0TS35
P0TS36
PRGl
ptTe
P1Tl
P1T2

P1Tl
PtT4
PiTS
P1T6

55

15TTp2
02332
02337
02344
02351
02356
0236:!
02370
02375
0'2402
82407
02414
02421

02426
02433
02441
02447
02466
025~1

02514
02527
02541
02552
02564
02577
02612
02625
02640

P1T7

02653

PtTl?
P1T11
P1T12

02666
02701
02715

P1T13

02731

PtTl"
P1Tl!:'
P1T16

02145

rWBIN

02761
02766
02173

FWRl~A

03~H~3

PRG2
P2Te

03011
03017

P2F0

f'!3036

P2T1
P2T1A

03047

P2T2
P2T2A

03070

P2T2W

PRG3
P3T0
P3T1
P3T2

e!3042
030f-1

03106
t'l3HH

031?2
03127
03134

P3T3

03141

P3T4

0:5146

P3T5

213153
03160
03165
0317?

P3 T6
P3T7
P3T10

PAGE
P3Tl1
P3T12
P3T13
P3T14
P3t15
P3116
P3T17
P3T20
P3T21
P3T22
PlT23
P3T24
P3T25
P3T26
P3T27
P3T3~

P3T31
P3T32
PRG4

PR.G5
PRGSA
PRG5V
PRG6

qLOCKA
RLaCKl
RLOCKS
ALOCK2
RlOCKC

neLK
SETLoe

nELA Y
MOVE
CLSF
CLOf
CLON

56

1';TTP2
03177
032~4

03211
83216
93223
03230
03235
03242
93247
03254
03261
ftll26'6
03273
03277
033913
03307
133313
03317

03336
03346
033l-2

03372
03373
83401
133403
03513
03515
133625

840'.111
188322
le0333
100533
70~081

ReF

7808914
708844
7.00101
7881912

RSA

7~V\104

RRR
RSP

70~11?

RSr:

psr
per

PSA
PSP

70~lA4

7002~H

700202
7002~4
7002~4

KSr

70~301

KRFl

70t'3: ?

KRA

7003?2

TSF

70~401

TLS
rEM
LfM

7004~6

rcr

7?!1!402

707702
7017P4



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Modify Date                     : 2016:05:02 15:30:53-07:00
Create Date                     : 2016:05:02 15:30:53-07:00
Metadata Date                   : 2016:05:02 15:30:53-07:00
Format                          : application/pdf
Document ID                     : uuid:64917f87-6fec-8b43-9ecd-9d3daeacbff3
Instance ID                     : uuid:37e8fb75-7e5b-244b-bf3e-c45070b49da9
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 75