Digital PDFs

MAINDEC-15-D2BB-D

July 1978

75 pages

Original

2.2MB

Document:	Teletype Test Part2 Jul70
Order Number:	MAINDEC-15-D2BB-D
Revision:
Pages:	75
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D2BB-D_Teletype_Test_Part2_Jul70.pdf

OCR Text

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

PRODUCT COCE.

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

pRODUCT NAME.

DATE CREATED.

JU~V ~6.

MAINTAINER.

DIAGNOSTICS GROuP

AUTHOR.

A. t<OL.l.ER

1910

ABSTRACT
• • • - . . . "!t'"

THE POP-1' ASR~3/3' TELETVP£ T[STS PART 2 IS T~E SECOND
PART 0' A TWO-PART PAC~AGE us EO TO TEST T~E ASR33, OR
ASR!5 TELETVPE W~EN ATT ACWED TO A POP.l, S"tlt,tM.
'"'
PARt 2 CONTAINS SEVEN I£L'CTAB~' PROGRA~S ~StD!TO
TEST THE
TEI.EPRiNTER! PUNCH. KEYBOARD! AND T~£ "Rl~T~l PUNCH ANO
READER IN COM8ItUTtON,
THE pROGRAMS ARe: SE.l.ftTtO ANO CONTROLLEO BY MEANS 0' T~f ACCUMU~ATOR SWITC~tS (AOS),
.

THE

PROGRA~S

AVAI~.eLE

ARE.

PRCf!

PAINTER TEST·

PRG1

PUNCH TEST

pRG2

KEv80ARO TEST

PRG3

COMBINED REAOtR, PR1NT,q, PU~CM T£ST,

P~ 1NTER EX[RC I SER.

PR I NTS L. I NtS or CHAR";:c TERS STORED
IN Loe 00'21 ANO 11022.
.
PUNCHt-S AN~ REAO CkCKS OAT. BI..OCKS
I N ~OC 00121 AND 0082{1·

PUNCH eXERCISER,
0' OA T. 5 TOREO

PUNCH[S ANO READ C:.;KS BL.OCKS or
B!NARY COUNT PATTERN.
~

pRG6
2.

~[Q~~R£M~NTS

2.1

EQUIPMENT

2.2

PUNCH fXERC I stA,

........ --_ .... "'t!.

....... ---.
A.

STANOARD POP.l' AND

ASR33 OR ASR35 TEL[TVPE.

STOFUG£
--~--

LOCATIONS 00e00

2,3

~R~~~MIN~RY

T~ROUG~

04406 ARt

USEO,

PROGRAMS

w·-.. -.-.----- ___ -_.

POP;15 ASR33/~5 TELtTY'£ TESTS PART 1 PROGRAMS PRG0, PRG1, AND
~.vE BEtN qUN SUeCESSru~~y.

pRG2 MUST

LOA01NG
. ........PROCEOU~E
-

B.
C.
O.
EI

LOAO OIJ£C' TAPE IN TELEtY'E REAOIA. OR t~ HICiIoi SPEEO
REAOER l' 'HE SYSTEM HAS 'AID -EADER,

St! ,OORES$ SW1TQ~£S TO 1~1".
IE' 8ANK IWITCM TO "ON" POSITION
PRESSwRES,T"
"~E'O

l'N"
,. ptt[SS
TM' PROG.~M WI~L LOAO ANO MALT wlT~ AC""'" I' PRO.

GRAM ~O.O£O CORR!O'LY 1 S' THE 'ROGRAM ~'LT' ~l'H 4a.e
A CHECKSU" ERROR HAS OCCURRED, Rt".T THE ,-OADING

p~OeEDUR[,

ySE PROCEDURE
...
_-- .... - ... .,.

INSURE TELET""

TURN 0"

SET CONSOLE REGISTER OISP~AY TO 4C.

SE' ADOR£SS SWITCH TO 80201.

SET A~ SWITCH'S TO 0~a0001 (SELECTS PAGe)

pqfSS 1/0 REStT, PR[SS STAAT.

IS ON-LINE

T£L£TVPE READER ANO ~UNCHt

PROGRAM NALTS AT Loe ~123~ TO PERMIT SETTING 0' AC

swiTeH OPTIONS, NO~M'L OPERATION IS WIT~ .t SWITCM£S
SET '0 008a.0,

THE AC S~lTCN oPTIONS rOR TMIS PROGRAM A~Ef

.T ~OC e~320, .T END or
CURRENT ROVTIN'. NUMBER 0' ROUTINE JUST

~.LTS ~ROGR.M

COMPLETEDlS DISPLAY£O IN AC. To PROCEED,
PRESS CONTINUE.
A081w1

SELECT, ROUTINE WHOSE NUMSEA IS SET tN
4el12 THROUGH ACS~11 ROuTINE IS SELECTED
AT COMPLETION or CURR£NT ROuT1NE.

40S2.1

LOOP PROGRAM, ENTIRE PROGRAM IS REPEATED.

ACS12

NUMBER or ROVTIN£ TO BE SELECTED.

THROut;H
ACS1?

ACS1 MUST IE 1,

PRESS CO\TINUE.

PROG~AM IS ExECUTED ANO HA~TS AT ~cc 002". PROGRAM
rNO ~ALT, lr NO LOoP OPTIONS 4~E SE!,

NOTE:
T~£ P~lNTOUTS, RESuLTl~G rROM T~E E~£CUTION or ~RG0,
MUST it vtRI'JEO By USER TO DETERMINE CORRECT
Tt~EPRI~TER OP[R4TION. (SEt SECTION 9, roR
DESCRIpTION.)

4.2

uSE P~OC[OUR£ 'OR PRCl
A,

tURN ON TELETV'E PUNCW~
WITH T'~[T¥Pt O"-LINE, '~NCH 6 IN, 0' eLAN~ LEAO~R.

Rt+U~N T[~ETY'r

to ON-LINE potJTION~

LOAD ReAO'. wlTHILANK LtAQr~f LEAVINQ VERY LITTLJ
SLACK "'TWEEN PUNCM AND RtADE~.

TURN ON R'.OER.

£.

StT CONSOLI -'GIITER Oi"~A' SWITCH TO AC.

S£T AOOR'SS SWITCHeS To

stT AC twlTCHe, TO III,." lSE~tCTI PRG1)
PRISS 110 .tStT. PREst START,

.,1",

PROGRAM HALTS AT LOC .,211 TO PERMIT "TTING 0' A~
SWITCH OPTIONS.NORMA~ OPIRATION II WITH AC SWITCHES
SET TO 0.1',1, to bAUSI PROGRAM TO HAL'~'N.ERROR~

tHE AC SWiTCH OPTIONS 'OR THIS PROGRAM ARE
PROGRA" AT LOC "32., AT END 0'
CURREN! ROVTINt. NUMBER 0' ROUTINE JUST
COM'LE'ED IS DISPLAVED IN AC. TO '.OC££D,
P-RESS eONT! NUE,
~ALTS

S'~ECT

AC5111

RoutINE WHOSE NUMBER II SET IN ACS12
Aell'1 ROUTINE II S£LICTEO U'ON
~OU'JNI'S COM'LCTION,
.
THRou;~

~OOP P~OGRAM.

ENTIRE PROGRA~ IS RIPEATED,

~A~~wON.ERAOA.

BAO CHARACTER IS DISPLAYED

IN AC.
H.~T AT END or CATA BLOCK Ir ERRORS
OCCURRED. ERROR COUNT IS OISPLAYED IN AC.
NU~8£R

4C512
T!04IitOUG~

or ~OUTSNt TO BE SE~teTtO.

ACSl MUST BE ~.

&Cll'

CONTINUE.

PRESS

PROGRAM IS EXECUTEO ANO HALTS AT LOC elz". PROGRAM
END ~ALT, l~ NO OPTIONS ARE SET, OR I' NO tRRORS OCCUR.

(!r[

SECTION '~1.1 OR 6.1 'OR HALTS)

IS ON-LINt

l~SURt TE~ETYP£

TURN orr Tt~ETYPE READER A~O PUNCH,

e. SEt CONSO~' RIG1STr~ OiS'~AVSWITC~ TO Ae.
o. SET AOOREII SWITCHES TO e~a.et
£. SET.C SWITCHES TO eel'SI.
,.

PRlSS 110 _ESET,

PROGRAM TJT~t lS 'RINTEO AND PROGRAM ~'LT' AT ~oc 00231
TO PERMIT SETTING 0' AC SWITCH OPTlo~S. NORMAL
OPERaTION IS WIT~ AC SWITC~£S SET To 110000,

P~ESS

STAR,.

tHE 40 SWITCH OPT10NS 'OR THII PROGRAM ARE
AT ~oc 11328. AT ENO 0' CURRENT
NUM8,R or CO"p~tTED ~OUTJN£ 1$
OISPLAveo IN AC. TO ,RoCIEo. PREI. CONTINUE.
H'~TS '~OGA.M

ROUTINe.

SE~tCT ~OUTIN£

WHOSE NUMBER IS SET IN ACS12
TIotROUGw A0517, ROUTINE IS SELECTEO AT
COMP~t;tON 0' CURR[~' RoUTtN£.
ACS2.~

~OOP

40512
TIotROUGH

NUMBER or ROUTINE To BE S[LEeTEO,
ACSl MUST BE ~.

,csl'

PROGRAM,

ENTIAt PAOGAA~ IS REPEATED.

CONTINUE.

PRESS

rO~~OW T[~tPR1NTER

W~£N ~'$T ROUT1~£ IS COMP~ET[O, ANO PROVIOED T~AT NO OPTIONS
PREVENTS IT. TNE PROGRAM STOPS AT PROGRAM ENO ~A~T AT
Loe 0~21',

INSTRUCTIONS,

NOTE
CORRECT KEYBOARD OPERATION IS OETERMINED ev
uSER, IY C~£CKI~G t~AT PRINTEO CHARACTERS
COOR£SPONO wIT~ CHRACT£RS ~EVEO.
(S[[ SECTIONS 5.1.1 ANO 6.1 rOR ~ALTS

A~O RE~£Oy.)

4,4

uSE ~ROC£OURE rOR PRGa
-----~---

...

TU~N

ON T'~~TVPE- PUNCH,

IIflT~ T£L£T",£ O"-1.JNE. PUNCH 6 INCHES 0' Sl.ANI( 1.e:AD[~"
RETURN TELETYPE TO ON-LIN, 'OSITION.

LOAD R['DE~ wtTW ILANK LEADER, LEAVING 1.ITT1.[ SLACK
8ETWEEN PU~CH AND ~EAOER.

. TURN ON REAOER t

SET CONSOL' RIGISTER OJS'-LAY SWITC~ES TO AC,

SET AODRESS SWITCHES TO '8ae,.

SET AC SwITCHeS TO 11"e~.

PRESS tlO ~ESETI

pROGRAM HALTS At LOC 1'2'~ TO "RMlt 'ITTIN~ 0' AC SWI'CH
oPTIONS. NORMAL OPERATION IS WITH AC SWITCH[S I[T TO 040pee,
TO CAUSE PROGRAM HAl.T-ON-,RAOR.

-~~-.-.--.

P~ESS

(SEl.ECTs PAG3)

START,

THE AC SwITCH OPTIONS 'OA THIS PROORAM ARE
HALTS 'ROGAA" 'T ,-OC "~I'. U'ON RDUTINt"
COMPLETION. NUMIER 0' CoM'LETED ~OUTtN' IS
OZSP~AvtO IN AC.
TO PROCEED. PRESS CONTINUE,

SELECT RoutlNt WHOSt NU~8EA IS SET IN ACS1Z
THROUGH ACS17! ROUTINE IS S[~tCT[O UPON
ROUTINE'S C~M'LtTION.

ACS111

ACSJ.l

LOOP PROGRAM,

ENTIAt ~ROQRAM fS ~EPE'T[O,

~A~T~ON.ERROR.

8AO C~ARACTtR IS OtSP~AYEO

M'~T

AT ENO 0' OATA 8~OCK 1~ ERRORS OCCURREO.

ERROR COUNT IS OISPLAYto IN ACt

ACS12

T~ROUGH

NUM9[R 0' ROUTINE TO BE SELECTEO.
ACSl I'4UST IE ,..

Aell'
CONTINUE,

~RESS

PROGRAM IS EX£CurEo ANO MALTS AT LOC 012", PROGRAM (NO
~ALT' l' ~c OP'IONS ARE St', OR l' NO ERRORS OCCUR,

(SEE SEC;IONS 5.1.1 ANO 6.1 'OR HALTS ANO REMEOY.)

AC.

...

_p~ _ _ _ _ _ • • • _ _ ~_~ _ _ _ • • ft

TE~tTY~E

IS ON.~lNt

I~SuRt

TURN 0"

otPoslT IN ~Qe t0~21 AND ~~a22 T~t e BIT CODES FOR
CHARAOTERS T~8E PAINTED.
SET CONIO!.E REGISTER OISPI.AY $WI10101 TO ACt

£.

SET ~ODR£SS SWITCHES '0 eezal.

SET AC swlTCMtS TO 0"1'4,

Cit

'OR ,ULI. "tID OPI:"ATION ,-CAV.E Acse.0.
BtTW'EN CHARACTERS SET AC$'~lt

p~£SS

tHE PROGRAM RUNS CONTINUOUILY, PRINTING LINES WITH
CHARACTERS STORtD tN I.OC '1121 ANO 00122 UNTIL 5'OPP£0
BY UStR,

T(~ETYPE ~EAO!R

AND pu~e~.

rOR STAI.L.ING

110 RtStT, PRESS START,

TURN ON 'ILE'TV", PUNCH',

WITH TELETVPE O,V"LINI, PUNCH' IN. 0,. B1.ANK L.EAO~R.
TO ON-LINE PO$ITION.

FtETURN T(i.ETV"

LOAD "IAD(R WI'TH 'LANK LEADER, L.EAVING LITTLE SLA~K S[TW££N
PUNCH AND R'AOCR.

TURN O~ RE',Ot".

£.

~OR p"O'.

DI,olrt IN 1.00 •••,' AHO 1,.12 TNt '~BIT

CODES 'OR CHA"lCTe". TO IE'UNCH£O,

r. SEt CONSOLE "IGIITI" otSPL" SWITCH TO AC.
G,
~,

stT AOORtSS SWITCMIS TO ""',
SET AQ SWJTC~I' to ••••• , 0" •••••• ~

rOR ,ijLL 1"'0 O""ATION LEAVE ACI~.I.
8ETWEEN CHARACTER' SET ACII'l,

PRISS 110 RESET, PRESS START.

tNE SELECTED '''OGR~" RUNS CONTINUOUSLV UNTIL 8TOP'£0 IV
USER, UNLESS ERRORS OCCUR,
AT ANY TIMe_

'OR STAL.LING

AC SWITCH OPTIONS MAY BE SET

THE AC SWITCH OPTIONS 'OR THIS PROGRAM ARE

'C53.1

HALT.ON-ERROR, BAD CHARACTER IS DISPLAYED IN AC.
HALT AT [NO 0' DATA BLOCK I' ~RRORS OCCURRED,
[RROR COUNT IN ACt

(SE£ SECTIONS '.1.1 1 'OR HALTS ANO REMEOY,)

OPERAT1~G

_- ______ .

PROCEDURE

~--.-.w----_

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

5,l.l

~C~~~~ ~~L'S
.~.-.~--~

Loe ea233
LOC 0.27'

Loe e~320

O"loN SET HAhT, OCCURS DURING PAGI, 'R01,
PRG2, AND PRGf TO PERMIT stTTING 0' OPTIONS,
SET oP'tONS DESIREO AND PREsS CONT!NUE.
PftOGRAM tNO HA~T. OCCURS AT tNO 0' PROl,
~RGT, PROi, ANO PRG3, J, NO "LOOP 'RoG~AM~
OPTIONS 1$ StT. SCT DEsIREe O'TIONS AND
PRCSS CONTINUE. I' NO o~TIONS ARt StT. THIS
~ALT REOCCURS,
ROUTINE END H'~T. OCCVRS AT [HO 0' cURRENT
ROUTINE DURING PRGI, PRC1, PRGI, ANO PRGJ,
l ' Ac11 IS ON, AC OIS'LA,S RbuTIN£ NUMB!R~
TO PROCEEO, PAtSS CONTINUE.

LOC JI177

INCOR~'CT PROG~AM NU~8E~ "Lt~TEO.
S,T THE
PROGRAM NUM8ER IN ACSi 4 T~OUGH ACI~1 AND
Plttss CONTINUt.

LOC ,82'6

NON~£xtST£NT ROUTINE NU~aER S£LECTED~ SET THE
CORRECT NUMBER IN AClit TM~OUG~ AIQ11 ANO 'AEIS
CONTINUE.

Loe 01044

SYNC '_ROR. SYNC RtAO'. 'UI~OUT!NC HAS NOT
IVNC CWAAACTtR WITNIN 1!' CH'~ACTERS,
Pt)IITION TAPE IN RIAOCR 10 ' .... T SYNC CtofARAC'ER CRUIOUT) 18 Wl'MIN~ I., CHARActEAS
FROM RIAO ,TATION, AND '~I'S CONtINUE.
('~G1' PR03. ,RG6"

Loe ~la65

UNEXPECTED INTERRU'T, A NON.TILTY', CEVICE
TUR- 0" O£VJC~ ANO
PRill CONTiNUE, ,'RG1, .~G3 •• RG6'~
READ CHECK ERROA A, "0 CN,.AOTEA IN AC,
PRISS CCNTINut. (ACS~ ~UST It ON 'OR THII
HAL.T TO OCCUR.) C'Rll. '·"03, 'RGt ••
REAO CNECK ERROR B. 'OLLOW uP HALT,
CORRECt CHARACTER IN AC •. TO 'ROCEED,
PRESS CONTINU', C'RGi. p~G3, PRG6»,

FOVN~

HAl CAUSED INT'RRU'T.

Loe 01235
Loe ~123'
Loe e1245

BLOCK ERRORS HALT, NUMBER 0' tRRDRS IN AC;
PROCEEO, PRESS CONTINUt. CpRG1,pRG3,PRG6).

Loe ~3e36

P~G2.

RouTtNE I ERROR ~AL'. ~S, 'AIL[D TO SKIP
KEYBOARD rLAG SEt, .RESSINC CONTINUE ENTERS
SCOPE LOOP THAT SKIPS 0, 'LAG CONTI~UCUSLY,
WIT~

A~~

',2

PROGRAMS MUST BE S'lRT£O 4T ~OC ~0'00.

OP,RA T1NG ftiiTAICTtON$
--.-~.~-~

•• -.*~"- .•.••

.~O PRG1 MUS' PRECEDE EXECUT10~ 0' PRG3.
pRGJ "UST PRECEDE EXECUTION or PRG~.

PRG0
~t

~lSC~LLA~EOUS

8,1

EX[CUTION
TIM'
~

---.---~

..
....

--~.

16 MIN (~AX)
ae MIN eMA.I
pRII. USER Ot'ENOENT
,RG31 4~ MIN (MAX)
P~G. T~ROUGH p_G18 ARE CO~TINUOUS~V RUNNING pRoeRAMS

PRGII
pRQ11

l'AG[ 12

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

THE pop.f'• • ,R-3313, TELETYP£ TESTS P.RT 2, CONSIST OF '1
'ROM • TO 6,

PROC*AMI·t4UMB'~r:O

9.1

~R'!~~Rl~T~~~'~ST
_w ___

••••

_*~.~p

TMtS PROGRAM CONTAINS 11 ROUTINES NUMB'RED ,ROM e ~O ~6
(OCTAL),
RTN.

CARRI'G' R"URN TE'T, CHICKS "I~J'Y 0'
CAR~I.'t R,TURN TO PRINT 'OSITION ~ 'ROM
ALL OTNER PRINT PO'ITIONS, NO 'RtNttNG
SMOULD OCCUR IN
PRIN' 'OSITION OTHER
' .... N IIOSITtON ,.

~TN1

RIG~t ~A~GtN

,N'

T'IT SHOWI WHEN THE RIGHT MARGIN

II INC~RR'CTL' AO~UST'D.

THE 'CST PRINTS ~.

GROUP' 0' •• ,. I 'OI.1.0WeD I, CHAlUCTtRI -I, ~

A CORRtctl.'AD~US'EO MARGIN WILL GIV[ 'HE
'OI.LOW1NG pRINTOUT'

~TN2

qTN3

TMt IS ARt PRINTtO TO '.CILITATE COUNTING
PRINt ~O'ltl0N'.
SPACE TEST. THt TEST PRINTS I IN 'LT£R~AT£
POSitIoNS 0' THE LINE. A'T'~ A DOUILE
C.~~IAOE RtTURN. IT S"CES TO THE 8LANK
POSITIONS AND PRINTS A 1.£" SLANT ILASH, A
DOUBLE CARRIAG~ R'TURN IS ISSUIO A'TEA PRINTl~G
EAC~ ~E'T SLANT SLASH,
LINt '[EO TEST, T~E TEST '~IN'S A LE,r SLAS~
FOLLOWEO By A ~INE PEtO, 'OLLOWEO SY RANDOM
STALLS UNTIL 12 SLASHES HAVE BEEN PRtN'[O,
THE ~£'UI.T IS A LE'T SLANTED ~lNE 'ROM
POSITION 1 TO 72. VERTICAL SPACING V.R1ATIONS
WILL INDICATE rr ADJUSTMENT fS RtQUIR(O,

PAGE J.3

(9.1 CONT'O)

RTN_

TY~ES

I.INE Or CHARACTERS

ASC,

RTt-J'

TYPES LINE OF' CIoIARACTERS

DE'.

AT""'.

TY'(S LotNt or CIHRACTERS

GHlt

R'f'N1

TYPE8 LINE or CMARA,CTEAS

JKL.

J:tTN1~

TVP[S LtNt 0' CHMUCTERs

MNO.

qTN1-1

TV'£! L.INt 0' CHARACTERS

PQR.

JolTN12

TV'ES LINt 0' CHARACTERS

STU,

RTN1~

T.'£S LINE or CHAfUCTtRS

VII.

Rns141

TV'ES L.INe 0' CH'FUCTt~S

Y!I

RTN15

123

.TN2e

TV'!S LINE 0' CHARACTERS
TV'ES L.INE 0' CHAIUCTtAs
TVPES L.INt 0' CHA'UCTERS
TVPES LINE 0' CH.UUCTEAs

ATN21

TYPES L.INt or CtoURACTERS

I"~

qTN22

TYPtS LINE 0' CIofARACTERS

R'N2~

T¥PES LINt 0' CHARACTERS

ATN24

T"PES LtNE 0' CHARACTERS

-.1

RTN25

TVPES LINt 0' CHARACTERS

lIe

RTN26

TVPES L.INE 0' CHARACTERS

,)f

qrN21

TYPES LINt or C~AR'CTERS

'C\

qTN3e

TVPES LINE OF' CHAIUCT[RS

J ••

RT~~l

TyPES LINE OF' AL.L. CrURACT£AS

RTN16
Rn~l'

4',
11'
I'"

(9.1 CONT'O>

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 or

'e'e

.---_ .... ., .. ....
-,."

r~lS

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

(OC'A~',

SET uP QAT. S~DCK

PU~CH·'-I.Ot~

e. PUNC'" 'VHC CHA1hCTrR CAUeOUf)

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

R'AO OAT. 11.0CK

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',
RTN1

PUNCH AND READ CHECK e\,oCl( 0' CHANNEL. 1,

RTN2

PUNO,", AND READ CHECK al.Ocl( or CHANNE~ 2.

RTN3

"!.INCH AND REAO

RTN ..

PV~CN

AND READ CHECI( l'-oCI( 0' CHANNEL.

IolT",,'

PUNCH AND READ CIolECK 81.0Cl( 0' CHAN~£L

RTN6

PU~CIoI

RT,..'

PUNCH AND READ CHECK Bl.oeK or CHANNEl.

qTN1~

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

qT~11

~TNlc

cr SL.tD1NG 1- pA'TEI1N.
PUNCIoi AflJO 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 8ETWE£~
CMARACTERS PUNC~£O.

RTt-.15

PUNC~

CHECK Bl.oCI< Or CHANNEL. 3.

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

PUNCH AND READ CHECK

B~:le(

ANO "£AO CHECK 81.0C~ 0' BINARy COUNT

PATTERN.
RTt-J16

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

OEl.AY BETWEEN

---.-----"----.--T~lS P~OGRAM CONTA~S J

ROUTINE. ~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.

'AINtER, PUNC~ TEST

. . . - _ • • - . . . . . ~ - - . - . - ~...... - . - . '!It 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

'ILL. CO.! 8LOC~ wl'~ DATA TO Sf pUNew£D/PRINTEO

PUNC'" I.EAOER

PUNC~

PUNCW DATA aLOCK ~NO DIL.AY 8ETWEEN CHARACTERS)

SYNC TNt R"O£~

REAO/CWEcK OATA BLOCK CRA~DOM DELAY BETWEEN CMARACTERS)

PUNCH

qEAO OlT. BLoCK (NO OE~.Y BETWEEN C~ARlCfERS)

SYNC CHARACTER

DATA BLOCK ~RlNCOM OtL.AY BE'W£[N CWARACTERS)
TRAILER

I •

PU~CJ.4

\oiAIT 'OR REAOER TO COMpLET£ ~EAOl~G OAT, BL.OCK

I< •

[~O

0' T[ST SEQUENCE

RTN'

PUNCI1/"Rl~T

RTNl

PUNCIo4/PRINT AND "tAD CfoI£Cf( BLOCK 0' ClEF'

RTN2

PUNC~/PRINT

ANO JIlEAO C~ECK

.~o

BLOCK 0' ASC

READ CfoItCK BI.OCt( 0' GH!

PAGE 17
(9. 4 CONY'O)

or ..!~~

RTN3

~UNCl-l/pqtNT

ATN4

PUNCH/PRINT AND REAO C~ECI< BL.OCK or

RTN'

PUNCH/PAINT AND READ C~Eef( BL.OCK 0' pQR

RTN6

PUNCJo1/;A1N; ANO R,'O CI-I£Cf( 9~OCI< 0' STu

~TN"

PUNC""/PAINT AND ~EAO CHECI< BL.OCK 0' VW)(

~TN1~

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

RTN11

PUNCH/PRINT AND READ CHECK BL.OCI< 0' ~~~

RTN12

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 R£AO CHECK BL.OCK 0·' 5"&

tilTN16

PUNCH/'RINT AND R'AD CHECK BL.OCI< 0'

RTN11

PUNCH,,.RINT AND REAO CI1[CI( BL.OCK or

R'N2~

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

RTN21

PUNCH/"~ I NT

RTN22

PUNCIo4/;JIIINT AND REAO C"'~CK BL.OCK 0'

RTN23

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

RT ... 24

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

RTN2'

PUNC~/;RINT
P~INTAB~E

qTN26

AND '«AD CIoIECK Bl.OCK

t-INO

'189

.. ,

, C) ,

0' ;",1

AND R,"'C CIo4[CI( BL.OCK 0' 11<

.)'

.,\
)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 C~£CK B~OCK 0' .SR35

PUNc~/P~INT

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

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 PATTER~i
AANOO~ STALLS BETWEEN CHARACTERS.

THE TWO EXERCISERS USE THi 'OLLOwING stQUENCEI

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

PUNCIoI L.EAOER

ItUNCIo4 SYNC CHARACTER

PUNCH DATA SLOCI(

[

SYNC THE REAOER

,. ,
~

~EAD

PUNCj.j OAT. 8LOC1(

....

BACK TO ST[FJ ' •

DATA SLOCr<

C~U80UT)

PI\GE

1
Ipnp-15-AS~33-~5

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

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

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

"
'"

PAGE.

15TTP2

.' ,~? 6"

~H';~vw0

RBUSY

0~QlI-:'::

00v,: ?VI

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

0(1\(.' ,~(i'0

:,~ '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

flAG

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

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

')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

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

0~217

0022~

~~221

00233
O0233
00234
0023~

00236
00237

00241'1
00241
0~?42

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

P0i11001

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

..,.

~~?234

;'V'?~

START

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?

CfiAIN

JMS

1'~26r

A.0~313

/~~? A'

750PP4

LAS

:2~~?

~ .)~ ...

RT
etL

{Jr

>l0?63

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

600234
752040

~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?

PRGEND
FORWD

22~035

04A0 3 3
440035

SHALT

75f10{114

74e100
620313
200933
740040
620313
000000

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

60~260

0001""0

r;ETK:"JY

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

75e'2A0

00217
00301
00 3 0 1
00302
003"'"
00305
00306
00307

JMP
LAC

C.HALT

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

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

15TTP2

00333
1i'0334

000000
200023

0033~

091336'
00337

OLYMS

~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

lc::TTP2

IRANDOl"

f\C'~8ER

PA"!GP,

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

.EJECT

p~Gr

15TTP2

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
l<l0503
0(1l~04
~~';v15

00506
1II{I\C:;(ll7
0(i11')10

1401~2
4~0451
2201~0

741'020
142020
7420?0
100461
220100
100 4 67
440H'I0
600456
000000
5001"'3
040101
200102
751112(110
600504
200101
741200
60Q15l712
100'5:;>4
62V1467
440102
620467
140 1 0 2
(100101
741110"-1
04111071
74'1(?V'r;,

0~~11

60ii'SV'~

.~0512

11105 1 3

3 4007 1
75 1 2111111

iii !~~ 1 h,

::>00P17

00">1f-

04(i115?~

ii'Vl~17

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

0~514

~0~?lt1

620451

(~~~:? j

?0~110

~~~2?

04 v1 5?h

(.'I"'~2~

62~4f-"7

0V'1C;?4

o 0V1~' c'?

\~0'" ?"'>

:; 401;' 4

,-I"'>;?f.

74111'V

"H152 7

34QllV'o;

0~~30

34~~17tl

~),~'<H

1 0 v~ 3 7 h

~v~"3?

6205?4

/TYPE CHARACTEP STRING SUBROUTINE
TYPSTG
TYPSTG
LAC·
IGET ANO STORE STRING
(lAC
TEMa
/AOORESS
DiM
rl~C
IClEAR FLAG
TYPSTG
IS2
ISET UP EXIT
LAC.
TSC1
TEMa
IPICK uP DATA.
RTR
RTR
RTR
jfo\S
TSC2
ICO TYPE 1ST CHARACTER
TEMa
LAC·
IPICK UP DATA
jfo\S
TSC2
ICO TYPE 2ND CHARACTER
ISl
TEMa
TSCl
JMP
IGO BACK FOR MORE.
TSC2
AND K71
/MASK orr 6 BITS
TEMR
DAC
/SAvr CHARACTER
LAC
FLAG
IH:S T "SPECIAL" rAlG.
SiA!ClA
JMP
TYPSP
ISPECIAl
TEMR
LAC
IREGUlAR
SNA,
10?
jMP
• +3
IYES. SET FLAG TO SPECIAL
TyPAT
JMS
PRINT
IND. GO PRINT IT
JMP.
TSC2
IRE TURN
lSi
FLAG
ISET FLAG TO "SPECIAL"
JMP.
TSC2
IRETURN.
TYPSP
Dr"'!
FLAG
ICLEAR FLAG.
TE~R
15[T CHARACTER
LAC
CMA
TAr)
Kl
SNA
TYPAT
JMP
IIT'S0: PRINT
"
TAn
ITEST F'OR °1
K1
SN A !'Cl A
1011
JI"IPo
TYPSTG
IYES. EX!T CODE. E X IT .
IsET CC$IooITCI-l) To "S~A"
LAC
SKyPt-4 A
rAC
swITCH
TEtwlR
LAC
/GET CHARACTfR
PRINT
JMS
IGO PRINT IT
SKIPPA
LAC
1 5fT c(S~ITc~) TO "SPA".
SWITCH
\lAC
JI"IP.
TSC2
IRETUBN.
PRINT
0
TAn
/-141/1
ICOMPAR( "YTH 40
SWITCH SPA
ICHA,RGEn T() SI'!A FOR SPECIAL COnES.
TAO
r,100
f~24 0
TAn
PUI\,C~
JMS
IPRINT CJ.<A!:iACTER
JMP.
PRINT
IRE TURN
.EJECT

....

PAGE

lJ.]TTPc

l~533

0ev0(1!~

(l!V~3.G

?2~533

LAr;~

,",OVV[

,H""i~.,

V'4~C:;'54

rA~DR

li'e53f>

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

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-<i'(
.+3

CHCK
CH(,K
We>ll<;

PiCK

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

PAGE

~'::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

~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

STAr

lEX IT

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

~(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

1I:;TTP?
F8TMP

,"Ql67~

0000vW

00t, 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

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*

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

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

f'lHW
01101

V}110f1
"'1107

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

LAC.

IREADER?
INO.ERROR.

porR

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

~fAT)ER.

PAGE

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

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

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

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.

~H 2-03

0000fl10

OAR

~1204

01205

000000
O'00000

0120~

22t2.~3

fUOOR
RBCTR
RQRSRV

012"'7

040026

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

(.:;~TLJ'>

ISET REAnE.R
ITO RDRSRV.

RD8lKR

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.

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.

SKP

~124(-,

754N~~

.1!1247

14"'063

O~M

R8USY

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

20~0f.4

LAC
RAL

LINK

'~1 ?5?

?0~~~65

"'1253

62~"'00

LAC
JMP*
.EJECT

74{,~~'?

P-

IRESTORE lINK
/RESTORE AC
ITO MAINLINE

PAGE

15 T T"',

, 1.254

~000Ql0

;A 1. ?t)"

?0~0?6

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

041271

~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

'"
'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"

15TTP?

A1310

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

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

><0707

ASCT
K0707

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

~04

305
306
301
31~

311

.EJEcT

ILEFT ARROW
1104

ISP

ILErT ARROW
ISP

ISP
II
ISP
I'
I (

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

PAGE

15TTP2

01527

"'00312
000313
000314

000~1S;

~1530

V!15~1

01532
01533
01534
01535
01536
01537
01504i11
01541

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

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

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<H662
~1663

01664
01665

C:335

33~

"!-37
SLIOl

~1666

0023~4

01667

000001

2
A

10
20
40
100
200
1':H1

40
20
10
4

SLID0

376
375
373
367
357
~37

277
177
277
337
357
367
373
37r;

0003~7

000367
000373
000375
0040(1'13
002240
002405
002324
000001
004022
001107
001024
004015
0001::>?
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

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

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

0015
0012
4022
2502
1725
2440

~2020

~0001"i

Vl2~?1

00~(lI12

Pi?022

"'04"'??

02023
0?024
02e25

00?502
0017?5
(110244121

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

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
IC<UTEMP) TO UTEMP1.
15ET "SPACE" CODE
IPRINT IT.
ISPACEO pER C(UTEMP1)?
INO. sPACE AGAIN.
IYES. GET nCR" CODE
IPRINT IT
IDUMMY CYCLE.
IGET "I" CODE
IPRINT IT

PAGE

1'5 TT p?

/R!GHT
~2131

CiHW 0 (71 1

~213?

0021t.3
100361
777776
100451
001656

02133
02134
~2135
~2136

"'2137
fn?140
02141
02142
~2143

02144
02145
~2146

02147
02150

~Akr.I"J

peTS?
.)'" c:;

-2
J/"IS

11l10~61

~'MS

CRLI='

-2
LA::
')AC

"'16.

..;p.lS

TYPSTG

RMTSTA

JMP
1100

?2152

44"'04'5
602143
100451
002157
60?162
005511
"'0550li'!

~2160

{l!2161
02162

ICRLF'
ITWICE

1-14 TO UTEMP

UTEMP

/PRINT "----1"

.+5

:"555
C::S55
?1~~

~2157

ICRLF"
ITWICE
IPRINT TEST TITLE

,+2

0011~0

~2154

TYPSTG

777776
?00074
04004'5
100451
002146
602152
00'5'5'55
0055'55
000HHl

1i'2155
02156

CRLF

!::"'ITST

~2151
~21';3

TEST

P0TS1

yS1
~MP

JMS

(!TEMP
RMrSTA
TYPSTG

IrONE 14 TIMES?
I~' d.
REPEAT
1\ ..~ S . PRINT "-I- n

• +?

J"'I P

• +4

5511
S:;5~0

000H'I0

~10e

6002f0

JMP
.EJECT

CHAIN

ICHAIN

PAGE

lSTTP;?

021f3

~011l(1~2

.~2164

00?2~0

12165

100361

P?1f,fI

777776
1004?1.
001670
100361
717776

02167
021 70
~21.71

ISPACE TEST
P0TS2
?
P0TS3
JMS
-2
JMS
SPTST
JMS
-2
LAC
OAC
SPTSTA JMS
.+2
JMP
3440
0001

02172
.°21 7 3
02174
02175
02176
02177
0?200
02201

040045
100451
0022(110
6022. 02
003440
000-"01

022~~

44Q04S

IS~

02203
02204
02205
02206
02207
02210
02211
02212
02213
02214

602175

JMP
LAC
OAC

20~075

02216
02217
02220
02221

200075
040045
200072
040046
040047
200060
100376
100376
200066
100376
440047
602214
200067
1091376

V12222

44~045

021>15

~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

CRU"

777776
700076

.LAC

~110

"'4"'045

OAC

UTEMP
C334
PUNCH
LJ:"
PUNCll
UTFMP

200070
10A376
200061
100376

-2
LFTSTA

LAC
JMS
LAC
JMS

07246

440045

IS;Z

02247
02250
022'51

741000
6'H'!260

~2252

10"'333
60?2 4 2

SKP
JMP
JMS
DELAY
JMP
.EJECT

0?253

T'fFSTG

HH~350

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

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!

TYPSTG
CRLF
TYPLN3
CHAIN

ICHAIN

TYPLN3

IPRINT LtNE Of"

P0TS5

JMp
5
P0TS6
JMS
JHp

P0TS6

CHAIN

P0TS7
JMS

TYPLN3

P0TS7

P0TS10

P0TS1l

P0TS12

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

TYPLN3

~~:?331

fl0~2MI

00~014

0;>333

~e;;>337

1~2334

10.1370

~2~3r;

0!01S;46
60V12f10

IPR}NT LINE OF PQR

CHAIN

12
P0TS13
JMS

TYPLN3

/PRINT LINE OF' STU

TYPLN3

02332

,PRINT LINE Of" MNO

CHAIN

~233~

,PRINT LINE OF JKL

CHAIN

~01~43

02327

or GHI

CHAIN

00233?
101370

0232f1

IPRINT LINE

CHAIN

~00013

DEr

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

JMP
.EJErT

/PRINT LINE OF'

CHAIN

/PRrp."r

LINE OF' YI0

P A. r ~

.~ ~.)

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

1I':TTP?
?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 VI? fl

\12 4 1"

f'0?4;?1

02 4 1t<

1e,137~

~'?41 -:

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

,'.) 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

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:

(,;.<q,

Tyi:)l~3

('HAI~

TYPLN3

(':275
JM~

IPRINT LINf

;'"141'

/PRINT LINE OF =>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

CHAI~

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

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

-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

1~TTP2

~2?27

100322

IPROGRAM 1. PUNCH
PRG1
SETL:JC

/',253111
02531
02532

000.~~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[

~2577

02M!l0
02601

0,2602
~26f33

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

1 c, T P?
Y

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~ 4

\110340?

>~? ,.<~ c:.,

777401

10~5::3

v12b36

101~"')4

~?6~7

101112

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

P1T4
SETLOC
BLOCKA

14 TO BLOCt<A

MOvE
BLOCKA
BLOCKA+l
'-377

JMS
JMS

IFILL BUFFER

NTST
PBLK

IGO TO NORMAL TEST

IUSE nqS CALL
IROUTINE 4
IPUNCH AND READ rHFC~ ALOCK OF CHANNEL 4.
P1T4
4
P1T5
SETLOC
110 TO 8LOCKA
8LOCKA
10
MOVE
BLOCKA
RLOCKA+l
-377
NTST
/GO TO NORMAL TEST
JMS
JMS
P8LK
fuSE THIS CALL
IROUTINE 5.
IPUNCH AND READ CHECK ALOCK OF CHANNEL 5.
..,
PiTS
P1T6
SETLoe
120 TO BLOCKA
BLnCKA
?0
~OVE
IFILL BUFFER
BLOCKA
ALOCI<A+l
-377
/Go TO NOR~AL TEST
NTST
JMS
JMS
PBLK
fUSE THIS CALL

.EJECT

::L-

1:";

1,~'-iUT;'
, :-' I

l ~(oJ,

(

"1 C~-

-- -

.... ~ b

':. " "1'
- ·4'

ee~6C:)

.'! -- 4?

~7.?:t??

~ETL.0C:

"'264~

r0~4p:

t<l()Ci(~

02644
02645

@0P040

109'533

22646
92647

'034P1

V265~

7774@1

"'OvE
BLOCKA
8LOCKA+l
-371

e034~2

/4?t

H~-:' 324

JMS

~TST

101112

JMS

PSLI(

l3l2653
t2654
02655
02656

002666
180322

i'2657

1'180100

~2660

i!266C)

10P533
0034@1
"'034"'2
777401
101324
191112

??66~

Pl0~elp

02661
~2662

"2663
~2664

02667
02670

?2671

0i""H~ 7

~0~401

002711
100322
0..,:t4Pl
1005~~

'-40V£

.'267.
.1?1) 7S

110:.H~t

RL(lCKA

fUSE THIS CALL.

C~A~NfL

IrlLL BUFFE'R

ICO TO NORMAL TEST.
IUSE THIS CALL.

or CHANNEL 8.
1200 TO

IfILL BurrER

~lOCKA+l

7774911

-37 1

1013;;4

JMS

\ -; S1

~2'9P

1~11~?

/GO

.JMS

P9LK

IUSE

IRI')UTINf 11
,PUNCH AND '1£ .....
1"'rl;~3

~77\H

P.~1('1;

~270C:;

."A?7f,7

"'Ql34~1
7777f<?
1 ~,~.,.~ ~

~2"7H~

~W1~4r,

k~ 2" 7~6

~?71'

QI~~4'7

~2712

,'211 ~

77741b
, ~ 1 ~(.? 4

~?"14

lPl1i;)

~LOCKA

?0~

P034r2

.1? 7A3

1100 TO BLOCKA.

~2f.7~
~2~""

t'?7A2

TO 8l.-0CKA

100

t-40vE
BlOCKA
BLOCK'''1
-377
JMS
NTST
JMS
P8LK
IROUTINE10.
IPUNCH ANO REAl"' CHECI( 8LOCI<
P1T10
10
Pi T l1
SEllOC
8LOCKA

(,2'~2~~

~~\'rl1
~0?71C;

IGO TO NORMAL TEST.

/ROUTINE 1
/PUNCH AND ~fA~ C... £::; .... QLCCK Or
P1 T7
1
PiT10
SETLOe
8LOCKA

~2~72
~2673

~27Q11

,- - ~.

IFILL BUFFER

26S;2

: ~ A"'" \f ~.. L.

P1 T 7

02651
t

Cit

P1 Tl1

TO NOR~AL
T~IS

TEST

CALL.

rHrc" .;lrr'" or: SLIDING ~ND PATTERN,

P1 Tl?
MOVE
SLIDl

If:' lL L

RlIrrrR I<IITH
/SLIDING 1 PATTERN.

~lOCKA

-16

,,",OVE
RLOCKA
ALOCKA+l"
-362
JMC;
J~S

; r JE (' T

~T~"
1\

p~.

IGO To N(H~t-AAL TE Sf
fUSE THl~ ('All

PAGE

02 7 1'5
02716

l')TTP?

000012
002731-

~~717

100533

"272~

0272:

001633
003401

~2722

777'762

~2723

10~533

02724

003401
003417
777416

0272~

CJJ272t.

02727
02730
02731
02732
02733
02734
02735
02736
02737
~2740

02741
02742

k12743
02744

02745
02746

101324

101112
000013
"'02745
750001
5005ti4

043401
143402
100533
00 3 4""1
00344'13
777402
1013?4

101112

V!00014
el02761

02751

75vHH11
500564
(Il434P11

0275?

1434(1l2

0?753

j0P'5j3
00 3 4Lil1

~?747
0275~

~2754

1i12755
0/>756

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 BLOCt<A
O!M
RLOCKA+1
10 TO BLOCKA+l
MOVE
IFILL BUFFER WITH
BLOCKA
laNES Al\Jn ~EROES.
flLOCKA+2
-376
NTST
JMS
IGO TO NORMAL TEST
JMS
P8LK
IUSE THIS CALL
IROUTINE 14,
IPUNCH AND READ CHECK BLOCK OF ONES AND cEROES. RANDOM
ISTALLS BETWEEN CHARACTR[RS PUNCHED.
P1T14
1.
PiT15
CL~:CMA

ANn
DAC

PTMSK
RLOCKA

nV1

o!... (~CK A + 1

~OVE

PLOCKA
FlLOCKA+2

1377 TO RLOCKA
/0 T0 RLOCKA+1
IFILL RUFFER WITH
IONES AND tEROF:S

-376

JMS
JMS
.EJECT

NTST
P8LKR

IGo To NORMAL LIST
IUSE THIS CALL.

PAGE

,3· 7

15TT P 2

t ~"7 ~ ~

00V!~1r;

ti2 7 6?

00?76b

P;?7b3

10?773
101324
10j112

~2764

0?16'5

0276'6
02767
02770
a2711
02772

021i3
0277.
82775
02776
02777
03080
03081
~3"02

03003
03Pl4
03005
03t106

03007
03.:'10

00910 16
777777
102773
HH324
101120
000000
1 0 0322
000044
003401
100322
000050
777400
t00557
100565
060044
440044
44V1050
603003
622773

/ROUTINE 1';
/PUNC'-1 AND REAC- rHJ:"CK ;:,LOCK OF BINARY COUNT PATTERN.
P1Tl?
15
P1T16
r w8 r N
JMS
/GO FIll WITH BINARY PATTERN
NTST
JMS
/GO TO NORMAL TEST
JMS
PBLK
IUSE THIS CAll
/ROUTINE 1~.
IPUNCH AND READ e~EeK RlOCK OF BINARY COUNT PATT£RN.
IRANDOM STAllS BETWEEN CHARACTERS PUNCHED.
P1 T1 6
16
777777

tWBIN

JMS
...lMS
JMS

Fw8lN

NT'ST
pelKR

SETloe
TEHPU
BLOCI<A
SETLoe
eTRA

IGO rILL WITH BJNARY PATTERN
IGO TO NORMAL TEST
IUSE THIS CAll.

IBLOCKA ADDRESS TO TEMPU
1-256 TO CTRA

-4@0

tWBINA

J,..s

JMS
DAC·
lSi
IS~

JMP

JMp.
.EJECT

INITPT
GETPTT
TEMPU
TEf04PU
CTR"
PIPINA
FWPIN

IINITIAlllE pATTERN.
IGET BINARY CHARACTER
ISTORE PER TEMPU
1+1 TO TEMPU
IQONE?
INO.
/YES. ExIT

PAGE

15TTP?

f),3011

100 3 22

03~12

0001et20
003817

03013
03014
03015
03~16

032117
A302f1

03021
03022
213023
03824
V\3025

03026
03e27
03030
03031
03832
03033

HH~451

001734
68(l!?33
800800
003042
100322
000050
776038
703302
HHlJ451
081753
70(l!301
683027
70~301

603036
44"'0150

~3~34

~.0~031

03035
03036
03(l!37

6002613
750040

~304(l!

03041

603037
603037

~3042

~0~~01

~3"43

f'~~11lf,1

700301

~3e44

7033~2

~3045

]004':>1

~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, 0 3 P14 7

1~3~M~

6V10?f,~

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 ,<SF cOMMANn SKIPS WIT~ f"LAG=l. 10021 TI~ES.
P2T8
0
P2Tl
SETLOC
1-1000 TO CTRA.
ClRA
-1750
CAf"
ICLEAR ALL F'LAGS.
TyPSTG
JMS
IPRINT INSTRUCTION
KMSC2
KSF'
/WA IT FOR f"LAG 1JMP
.-1
KSr
I:: KIP ONE f"LAG.
JMP
P2E0
INO SKIP. rRROR.
lSi!
CTRA
IDONE 1000 TJMES?
JMP
INO. REPEAT.
.-~
JMP
CHAIN
IYES. CHAIN
HLT!CLA
P2E0
IERROR. FAtLfO TO SKYP.
KSF
ISCOPE LOOP, SKIP :-"" FLAG 1JMP
, -j
IREPEAT
JMP
/REPfAT
.-2
IROUTINE 1.
IECHO TEST. CHAR.cTER REcEIVED IS TYPED. KEYED At.iO PRINTED Ci-IARACTER
ISHOULD MATCH. RlJROUT CHARACTER ENDS ROUTINE,
P2 T l

P2 T1A

P2T2
CAF
JMS
KMSC3
KSF
JMP
KR8
TLS
TSF
JMP
TAl)
StA
JMP
JMP
.EJECT

TyPSTG
• -1

-1

IPRINT INSTRUCTION
IREADY?
IWA IT
IRE AD C~ARACTER,
IPRINT IT
IOONE TYPI~G?
INPO. WAIT·

MR~OUT

P2 T1 A
rt1AIN

/RUBOUT?
INO, REPFAT
IYES. CHAIN

PA(.[

15TTP2
I.ROUT I ~·C 2.

; 3e Ol

0'HiH3~ 2

f'3~6?

777777

~,3e63

703302
HH14t;1

~3~64

~3a65

002042

0l~66

i00~51

031i'6?

03073

001776
700301
603070
700312
0431Q16

03074
03i'l15
03016

003106
002064

A3~70

03071
03.07 2

03077

10*1451

002062
2133106
340062
74020Q1
603070
600260
000000

~3H'1

~310S

03106

KMSG4

JI1S
KMSG3A
P2T2A

Jf'1P

P2T2W

TY.PSlG

KS':

JMP
KR9
OAC
JMS
P2T2W
OCTrQY
JMS
KMSG'5
LAC
TAO
SiA
JMP

101423

~310P

0310?
03HI3
03104

IOr,TAL EOU:C,,,,_:N"!' TEST. THE OCTAL EGiUIV,.1 E~;T or ~!\jY CHARACTER
IKEY[O IS ;:)~:\-~~. RUgPOLJi (NOS' POUTINE".
P2 T2
2
777777
CAr
J-t1 S
TY>-' srG
IPRINT INSTRUCTION

.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

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

P3T1
JMS

F"SF"3

/DATA:ABC

P3Tl

JMS

CNTST

P3T2
.'JMS

P3T2

F"8F3

/Q.4.TA:O[F"

CNTST

.3T3

P3T3

tiS

F"BF3

. ~

CNTST

3
P3T4
JMS

FBF"3

P3T4

P3TS

FBF3

M
JM:'

CNTST

P:.H6

/OATA:GHI

10ATA:JKL

CNTST

JMS
4
P;5T5
JMS

P3T6
JMS
P
JMS

~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(~

0.3164

~01"3S4

JMS
.EJECT

F8r3

rNTST

/DATA:STlI

PAGE

1'5TTP?
P3 i 7

"r::,

~0.00Q\7

6h
.' ~ i 6 7

V {I.~ 1 7 ~
1?06~:

'Me:

031 7'~
03171

001543

~}~ 1
~q ~

~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
101354
000013
0103216
100631
\?l01557
101354
000101.4

003223
100631
001562
101354
000015
003230

Vl3237
~3?4~~

0324:1

JMS
P3 T11

~00017

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

rNTST
F8F3

10ATA: Yiz.e

CNTST

P3T12
JMS

FBr3

/OATA:123

ONE
P3 T12

P3 T13

P;,H14

P3 T15

1010631

0et3235
10et631
001570
1f(J1354

/C'ATA:Vto;i'

0101565
1013C)4

03231
03232
R3233

r 8' :;z;

; V"

>=-3Tl1
JMS

"'01554

P0V10t6

~3~34

JI'1S

P3 T10

HJ~631

03?3~

V}3?35
V'3236

. 3 T 1?

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

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

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

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

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
<INTSVr
ISET INTrRRUPT SERVICE TO INTSVC

03350
03351
03352
03353
03354
03355
03356
;113357
03360
03361
0336?

2(1144",3
04(11(1102
204404
121412112157
10121533
000021
012134(111
777776
11210533
003401
003403
777402
?04405

"'3363

Vl4337?

;lAr

~3364

750004

03365
111336£1
0 336 7

7501"'121
603371
?12144(.l16
043372
tc1l134eJ
00 vHHIJ 0

LAS
SM4!CLA

0~~347

03370
03371
03372

IDATA:

r .• c

LAC

(-40121

OAC
MOVE
PTEMP
9LOCKA

SLKCNT

ISET

8LOC~

COUNT TO -256

IFILL RUFFER WITH DATA.

-2
"'0 'IE
BLOCKA
~LOC!O(A+2

-376

LAC

JMP

LAC

oAr
PRG5V

JMs
VI

.EJECT

(JMS pRLK
PRG5V

PRG5V-t
(JMS PRLKR
PRG5V

STST

/p~ESET

ro~

FuLL spEro RUN.

IRE AD ACS.
ISTALL?
INO.

IYES. SET UP STST SU8ROUTINE
ITO STALL.
IGO TO spECIAL SUBROUTINE
IJMS PRLK. O~ JMS PBLKR

PAGE

1'5TTP2

/PQOGRAM 6. PUNCI4 AND READ CHECK BLOCK~ OF BINARY ~OUNT PATTERN,
IF ACS0=1 RANDOM STALLS BETWEEN CLASS PU~C~ED,

IF 4CSPl=0, rUll SPEED.

03313
03314
03375
03376
03377
03400

204-403

PRC6

~40002

LAC

(I~TSVc

DAC

LAC

204404
0400t;7
10?773
MI3362

OAC

JMS
JMP

(-400

8lKCNT
FWBIN
PRG5A

ISET INTERRUPT SERVIrE TO INTSVC
ISET BLOCK COUNT TO -2'6

IFILL BUFFER WITH BINARY COUNT,

03401
03402
03403
03513
03513
03514
1?13515
03625
03625
03626
04001
04001
04401

000215
00"212
000000

ALOCKA

215
212

BLOCKl

.LOC BLOCK1+1101

000215
000212
V!00000

BLOCKB

215
212

BLOCK2

000215

BLOCKC

215

0000rlJ0

oaLK

tJl00000
rt!440j
0004'50
"'4402
000440
04403
001051
04404
777400
04405
101112
04406
101120
Sl;;rE:04407

/CR
ILF

.LOC BLOCK2+110

212
.LOC BLOr,KA+4011J

"'00212

ICR
ILF

".LOC DBlK+400
.Et<40

-l

*L
.L

.L
.L
NO ERROR LINES

/eR
ltV

PAr,F

15TT P 2

? j ~ 16

;..10t'J~')

A$CCN
ASCT
A33w?S

01462
01472

~J4?3

A33WP4

~1466

A35WPS
A3SWP4
BLKCNT
ALOCKA
RLOCKB
ALOCKC
RLOCKl
RLDCK.2
CHAIN
CHCK
CHRrST

015216

CLeF"

CLON
CLSF
CNTST
CNV
CR
CReTR
CRLF'
CRTST
CRTSTA
CRTSTS
CTRA
CTRB
CURTST
CHJe
C240
C241
C244
C247
C2r;2
C255
C257
C272
(';275
C30e
C334
C335
0

DADDR
OAP
DAR
DBLK
OCTR
OELAY
nELAYM
DELAYS
nlCNT
OLCNTP

211502
e00~7

03401
03513

03625
93403
213515
021260
2121575
017P.4
7212121"'4
72102144

702121211
211354
211446
0021621
021375
00361
211651
02112

02115
00ec;e
021051

00034
2101215

210106
01562
01565
1i'157e
"'157:r;
'H576
21212167
211601
~16"'4

016217
02121721
9161?
01521
0LH6
01136
012213
~4001

211317
1210333
0~023
el~026

21213')0

01213

PAGE

!)U'SR
OLYMS
OLVMS~

(EM

ERRCR
ERRCTR
F'RROR
rADDR
F'BALL
rer3
raTMp
rETCH
rLAG
rORwD
rOUR
F'W~lN

rWBINA
rW33S
rW334
F'W35S
rW354
G
GETPTT

GETRf'lY
GNRNO
INCRTN
INITPT
INTSVC
J

KMSGl
KMSG2
KMSG3
KMSG3A
KMSG4
KMSG5
KRA
KRR
Ksr
KSTART
K0707
K1

<=6

1'5TTP2
~. j 2";4
00333

0~055

7077f12
00053
00054
01223
00554
006';2
00631
00670
01421
00102
00277
01554
02773
03003
00724
00706
00760
00742
01524
00565
00234
01303
00256
00557
0U'51
01527
01734
01753
01767
01776
~2042

02062.
700322
700312
7~~3~1

",00?0

01464
~Q!071

K6(1!60

01.465

K77
K7700
LOCOE

001~3

Lft-1

01463
0HJ10
707 7 04

00061

LF'TST
LrTSTA
LINK
LTRCTR
M
MeTR
MILCTR
MILl

~H677

0?24,)

00064

01007
01532
00556
00040
00041

PAGE.
~O\lE
~O\l[A.

"'O"Vr.
"4RflO0T

"1SCTR
~:

M1le
Mill
1416
~2

"14e
10444

NTST
NTSTA

15TTP2
HJ0533
00545
00533
00062
00037
00072
00076
00077
390;4
00073
001"04
00075
(il13~4

PRG6
PRINT
PSA
PSq
PSf
PSTUP
PSW

01332
00035
02064
01551
01066
01535
01140
01112
01120
700202
01137
01105
00056
00776
00221
00275
00031
00030
00027
00111
02071
025??
03fU1
03107
03336
03346
03362
03372
03313
"0S?4
700?'(}I4
HI0244
700201
01074
00032

P$YNC

013('0

PTFMo

00021
00022
00564
(}I0562

'~XTST

OCTEQV

ONt

OUT

P.DOR
?BlK
P8LKR

pcr

PCTR

poeR

prLAG
PLTlR
PRGAOR
PRCEND

PRGLIM
PRGMSK
PRGNUt4
PRGT~B

PRGe
PRG1

PRG2
PRG~

PRe.
PRG5
PRG5A
PRG')'"

prOtPl

PTIoCSK
PTQI
PT1
PUNCH

005t-3

00376

PAGE
P0TS0
P0TSl
P0TS10
P0TS11
P0TS12
P0TS13
P0TS14
P0TS15
P0TS16
P0TS17
P0TS2
P0TS20
P0TS21
P0TS22
P0TS23
P0TS24
P0TS25
P0TS26
P0TS27
P0TS3
P0TS30
P0TS31
P0TS32
P0TS33
.P0TS34
P0TS35

P0TS36
P0TS4
P0TS5
P0TS6
P0TS7

P1T0

48
02076

02131
0.2306
02313
0'2320
02325
02·332
02337

02·344
02351
02163

023:56
02363
02370
02375

02402

02407
02414
02421

02230
02426

02.433
02~41

02447

02466
02501

02514
02254
02267

02274
023"'1
02541

P1Tl
PiT10
P1Tll
P1T12
P1T13
PiT14
P1Tl?

02552
02666

P1T16

02760
02'5/'.4

P1T2
P1T3

P1T4
PiT5
PiT6
P1T7
P2E0

P2T0

027~1

027115
02731
02745

02761
02577
02612
02625
0264ii'
0265~

03036
03017

P2Tl

03~42

P2T1A
P2T2

03047
03061
03070
03H'!b
03122
03t?7

P2T2A
P2T2W

P3T0
[1~Tl

P3Tl~

:'3172

P3;11
P3i12
P3T13
P3T14
P3T15
P3T16
P3T,.7

03177

P3T2

P3T20
P3T21
P3T22
P3T23
P3T2 4
P3T25
P~H26

P3T27
P3T3

P3T30
P3T31
P3T32
P3T4
P3T5

P3T6
P3T7

RADOR
RANCO~

RANOEX
RANGEN
RANSAV
RANTAO
RANTBL
RBCTR
RBUSY

ReF
RCTRA
RCTR8
RORLK
ROALKR
RORS~V

ROSRV
RMTST
RMTSTA
RRA
RRnv
RSA
RSS
RSCTR
RSf'

RSSERV
RSTUP
PSYNC
RTNNO
RUOONE
S

03??4
~3211

03216
03223
03230
03235
03134

03:?42
03247
1213254
03261
03266
03273
03277
83383
03141
033117

03313
03317
03146
03153
03160
03165
01204
0121436
09437
00411
90450
00426
00440
01205
00063
700112
01271
1211272

011f12
01111
91206
91212
01656
02143
7vHH12
Vl1141
1~~91914

71219144
12112126
7121011211

01027
01146
01011
00033
1211240
01549

,., A :;F

SASC
58
SETloe
SEVEN
SHALT
St<IPMA
SI<tPP4
5LID0
SLIDl
SPACE
SPTST
SPTSTA
SP.TSTR
SRSET
SR3MSK
START
STBr
STCTR
STST
STSTA
STSTR
STSTC
SWITCH
TAOOR
Ter
TCTR
TEMP
TEMPU
TE"'Pl
TEMa

TEMR
TLS
15C1
TSC2
Tsr
t51"'51(
P'PA T

TYPE

TYPEA.
TYPlN~

TYPSP
TYPSTG
UT(MP
UTr"'Pl

.•l

01461
0122'"
1~"'322

01557
0031:5
e0107
00110
01633
0.1615
00066
01670
02175
02297
09233
09052
00200

00613
00322
211340
01347
01351
01352
00526
00555
700402
0141>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

;

!~. (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

" ::

SI<TPPA
PRCTlg
START
PRCAOR
SRS[T
CETRO"
I~CRT~

CHAIN
PRG£NO

rOANO
SHALT
STCYR

OLYMS

OLC"T
CRLf'
CRCTR
PUNC'"
RANGE'4

RANTA!"
fUNCO~

RA"O[l
IhNTBL
~At\iSAV

TYPSTG
TSCl
TSC2
TYPAT
TVPSP
PRINT

SWITr ...

fo1cvvr

"'0'lE4
~lC'DI:

TAr.D~

,..eTR

1;,iT~2

tJ.1! ~ J
210111
'Hll211

00221
'8233
08234
11256
88260
81275
10277
10313
"1322

"333

011351
".361
88375
"8376
""411
0~426

0"436

8.437
"0440
10450
.00451
0"-456

011467

e..5."
""504
0'5?~

10526
'1533

011545

"e5~4

PISS5
~~5S6

:~fTP'"

~P~C:;7

o T ,l

~"5(-c

PTt
PTMSIo..
l;ET;:>Tf

"~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
A

o
G
J

'54
01516
01521
01524
01527

0t532

P
S

131535
01540
01543
01546

V
y

ONE
rOUR
SEVEN
C241
C24~

C247
C252
C255
C272
C275
C30il
C335
SLIDl
SLID0
CRTST
RMTST

SPTST
LF'TST
CHRTST
WCPTST
KMSGl
KMSG2
KMSG3

KMSG3A
I(MSG4
KMSG5
OCTEQV
PRG",
P0TS~

01551
01554

01557
01562
01565
01570
01573
01576
01601
01604
01607
01612
01615
01633
~16C;1

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 S 1 ,~

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

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

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