Digital PDFs

MAINDEC-15-D2AA-D

December 1969

42 pages

Original

1.2MB

Document:	Teletype Test Part1
Order Number:	MAINDEC-15-D2AA-D
Revision:
Pages:	42
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D2AA-D_Teletype_Test_Part1_Dec69.pdf

OCR Text

--.,.~-.,-.,~. '

p~OQu~r

COOE'

P~ODUQT

NAME'

MAINQI;·~~·Q~AA-D~O)

OAT[ CREATED.

DECEMIC~ ~~, "~9

M4INTAINER~

DIAGNO"lq ~RO~P

AWTHO~I

R. KQ~~tR

PAGE ,
,

ABITRACT
THE pDP-". ASR33/J' TE~ETYPE T[STS PART 1, II THE rlRIT 0'
A 2 pART t'ST PACKAGE USED TO TEST THE ASR33 OA ASR35 TE~['YPE
WHEN A'TAC~£O '0 A PDP-l';
-.
.

PART ~ CONTAINS SEVEN S[~£CTA.~E ~ROG~AMS VSEQ TO TES! TH~ IN~UY
ANO OUTPUT ~OGIC, AND THE TE~ETYPE READER, THE PROGRAMS ARE
I[~ECTED AND CONTROLLED BY MEA~S 0' TH~ ACCUMULATOR SWrTCHES
(AeS).

THE PROGRAMS AVAILABLE ARE,
PROI-,,11; JN~UT LOGI~ TESTS

PRG1;,,119 OUTPUT ~OGIC TEITS
PRG2~RI'D~R T~'T

PRG3-!EIT !AP~ ~£N~RA!OR. PUNg~~~wON!~NTS 0' Loe ","

AND ~~~2~t

PRI.;!CIT T'P~ GEN'RA!OR. ~UN9~E' ItNARY COUNT PATTERN TCIT TA".
PRG'.RI'D~R

EX£RCI,ER. BINARY ;OUNY ~ATTERN.

PRG6~~EAD'~ E~ERC~'[R.

'.-- ......... ,.,,, ....
REQui~EMIN'S

.........

t't"'.~

STANDARD PDP."

B.
2.2.

REAOS IAPC '~~NQ~~D WIT~ ANY 2 2HARACT'R,.

•.

AiR3$ OR iSR3' T£~ETYPE

'TOR~f":'
.p . . . . . . . . .

LOCAT~ON '.~8~ !H~QUG~ a1~i~ A~E ~'ID.
2,~

PRELiMINARY PROGRAMS
A~~ '~OGRAMS

NECESIARY TO INI~~E CORRECT O'ERAT10N 0' BASIC
SEEN RU~ SU~;~I~~~L~Y.

PROCE~'OR S~O~LD ~'YE

~OAOINQ

PAOCEQURE

TO LOAD T~[ PROGRAM PROCEED A~ ro~~ows.
A.
8.

c,
D.
E.
~.

~O.D THE 08JtCT TAPE IN TMt TE~ETYPE RtADER. OR IN TH[
HIGH S'EED READER, Ir TH,-iYS;tM HAS SAID REAOtR.
IE' AOOAESS SWITCHES TO 17710.
st, BANK SWITOH TO "ON" POi!TJON
P~ESI "RESET" .
.P"ISS "READ IN"
THE PROGRAM WI~~ ~OAD AND HA~T WITH AC • 7'7777 l'
p.OGAAM-LOADED CO~RECT~Y; -r'-TH£ ~AOG~iM'HA~t* WITH
AC • I, A CHECKSUM ERROA HAl OCCURRED. RE'EAT THE
~O'D1N; P~OCEDURE.·
-

PAGE 3
'.

YSE ~~OCt~~RE
.~--~~.-~

A.
8.

,.
Gt
H.

IN'UR~ !E~£rYPE I~ ON·LlN~.

LOAD BINARY COUNT PATTERN TEST TAPE IN READER. l' TAPE IS
NOT SPLJC£D INTo A LOOP, 'OSI'10N TAPE OYER PUNCHED SECTION,
NOT ON TM' ~EAOER.
.. .
TU.N ON'READtR~
ItT CONSOLE REOISTER OISPLAY SWITCH TO ACt
S~, AOORESS SWITOHES TO J.18 ••
Itt AC-Swi'CHEI T6 11111i-tstLECTI PRGe).
P"EI'-liO REstT, PRESS STAAT P"OGRAM HALTS AT ~OC I.a,~ TO PERMIT S,TTJNG 0' AC SWITCH
oPTION'. NORMAL dPERiTIO~ IS ~iT~' AC SWltCHES·SE! TO 8.8 •• 8.
T~E A~

SWITCH OPTIONS 'OR !HI' PRO~RAM AR~'
HALTS PROGRAM AT LOC 18321, AT THE END or OURRENT
RO~TJNE. TH~ NUM~'~ Of. THE R~UTIN~ C~MPLtT~D IS
OJ'PLAVED IN AP. TO PAOC£~D, PRESS CQNTINUE.
SELECT ROUTIN, WHOlE NUMBER IS SET IN ACS12
TH~OU~H ACS~?~ RbO'JN~ IS S£~EOTED U~ON THE
ROUTINE'S COM'~ETJON.
L09P ~ROGRAM. EN!I~E ~ROq~AM IS RePEATED.

AOlil THRU ACI&, ~ NUMBER ~, RO~T1NE TO 8E SEL£CT~g.
AQll MUST IE ~.
.
RE'ER TO APPROPRIATE SECTION UNDER seCTION 9, "PROGRAM
OEICRJ'TJQN," rOR ~PE~I'IC RoQIIN~ QE~~RIPTION' ••
I.

P~C8' CONTINUE.
PROGRAM I~ EXEQUT£D AND HAhTS .AT ~09 e'27'. PRQGRAH
ENO HA~r, I~ NO O~TIONS .~,. s~r, o~ I' NO'ERRORS ~9CUR,

NOT!
ERRORS ARE INDICAT!O BV PRQGRAM WALTS. RE'£A '0 !ECTION
'.1.1, "NORMAL HALTS," OR ~ECTION t.l, "E~ROR HAL!S AND
O~'CRJ~!IONS,"

PAGE 4
4.2

USE ~ROCE~URE 'OR PRG~
A.
B.

c.
D.
E.

G.
H.

IN'UR~ TE~ETVP£.

IS ON·~lN~.
JNIURE THAT READER IS o,r.
INSUR£ THAT THERE IS sur r lCIENT PAPER IN T£~EPRINT£R.
SET CONSO~t R'GIST~R OISP~.Y SWITCH TO ACt
StT ,bORESS SWITC~ES TO ~.a01;
.
sET AO SWiTCHES TO 0mmlli;'(i£~ECTS PRG1)
P~ESS 110 RESET, PAESS StART.
PROGRAM HA~TS AT Loe 1123~i rOR SETTING 0' AC SWITCH
OPT10NI. NORMA~ OP-ERAT10N" IS WITH-ic SWITCHES SE!-·;O 1,.1".
T~E A~ ~W{TCH

AQ"'~

OPTlONS ,O~ !HZ! ~AO~AAM AR~I

HA~TS PROGRAM AT ~oc ,.321, AT END or CURRENT
ROUTINE. -NUMBER or-ROUTINE JUST eOMP~ET£O· IS
DISPLAYED IN AC. TO PROCEED,PRESS OONTINUE.
SE~ECT ROUTlNE WHOlt NUMBER IS SET IN ACSla
T~~OUaW ,ell1; RO~~JNi IS SE~[CTEO UPON
OOMPL~TION O~ QURRCNT ROUTINE,
.
n.

,012."
A9.~a

I.
J.

~OOP ~ROGR'Mt

EN!JRE PROGRAM IS REPEATED.

YHRY AeSi' • NUMBER 0' ROUTINE TO BE SE~tCTED. ACSl
HU.T ~E ,. -i'~~ i~~Ti~~ ? ro~ OESCRI~tl0NS.i

PRESS CONTINUE.

~~OO~A~. I~ ~X~;~T~O AND ~A~TS AT ~~9 1'.~7'f PROGRA.M END
H.~TI, " NO O'TJONS ARE' T, OR I' NO £R~ORS OCCU~,
CIIE "eTloNS 1,1l, AND t •. 'OR HA~TS.)

PAGE ,
'.3

USE P~OCECURE POR PRG2
A.
B.

D.
E.

rt
Gt

INSUR~ TE~ETYPE

I~ ON·~IN~.

LOAD BINARY COUNT PATTERN rEST TAPE IN REAOER. I' TA~[
IS NOT SP~ICEO INTO A ~OO" PO~lTION TAPE OVER PUN~HEP
StCTZON. NOT ON T~[ ~EAO[~,
'
TURN ON READER.
'
SET CONSo~t REGISTER OJSP~AY SWITCH TO AC.
S" ADDRESS SWITCHES TO e.ale~
sET AO'$WtTCHES TO 0111Ii-tStLECTS PRG2),
pftESS-S/O RESET, PRESS START,
pAOGRAM HA~TS AT ~Oe 11233"rOR SETTING or AC SWITCH OPTION~.
NO.~A~ OPERATION IS WiTH iQ S~J~c~f~ SET TO 11010i;
T~E .~ ~WlTCH

A~'I.'

OPTlONS ,O~ IHI~ ~ROgRAM AR~I

PROGRAM AT Loe ~~321, U~ON COMPL~TION

HA~TS

or CURRENT ROUTINE,' NUMBER 0' COM'~E1[D
ROUTJN~ IS Oli;'~AYto IN AC.
PRESS CONTJNU~,

TO PROCE~O,

SELECT ROUTINE WHOlE NUMBER IS SET IN ACS~2
THROU~H Aeli1; ROUTINt IS SELECTED UPON "
ROUTIN£'S COM~~ETION. '
~OOP

PROGRAM,

ENrlRf PROGRAM IS REPEATED,

A;112 THRU ~7 ! NUMBER O~ ~OUTIN£ yo BE S~LECTEO,
ACli MUST 8£ ,. CIEE IEeTION , rOR O~'CRIPTION,)

I,
J.

4..

pftrS$ CONTINUE,

'.DGAA~ zj ExtCUTED

ANDHA,TS AT Loe 0121'. PROGRAM END
HALT, " NO OPTIONS ARE IE , OR I' NO ERRORS OCCU~,
(fEE §gCTION ~.1,~ OR S~~! .. ON tt' ~OR HA~I •• )

USE P~OCEQUR£ 'OR 'RC~

8,
C.
C.

G.
H.

IN'UA~ TE~£TV~C I~ ON.LIN~

TU_N orr T[LtTYPE RtACER.

AND 'U~~ DUPLEX MOD£.

~OAD 'LANK-TA~C IN PU~CH,
TURN ON PUNCH,
oE'OIIT IN LOC 11~21 AND .'122~a), TME 8 BIT 000£ 'OR
CHARAOTERS TO IE PUNCHED,
stT AOQRESS SWITCHES TO Ilill,
stT A~-swiTCHE' T6 1110Ii;~iitLEeT' PRC3)
P-ESS-S/O RESET, PRESS START,
pROGRAM P~NCHES T~ST TAP~-~ON!INUO~~LY UNTIL STOP~~D BV US,R.

PAGE !
4.'

USE ~AOCEQ~RE POR PRG~
".~--~~~-

A.
B.
C.
O.
E.

4..

IN'UR~

-~.-------.

TE~ETYPt

I~ ON·~lN;,

TURN or~ TE~ETYPE REAOER,
LOAO SLANK TAPE IN PUNCH; TURN ON PUNCH.
SET ADDRESS SWITCHES TO 0~ae0,
StT AC SWiTCHES TO 0e011.;' (SE~tCTS PRC4)
P~ESS-I/O RESET. P~ES~ S~ART,
PROGRAM PUNCHES BINARY COUNT PATTERN TEST TAPE CONTINUOUS~Y
uNTt~ STO~PEQ

IV U.SER,

UIE PROCEDURE FOR 'RG'
A.
B.

C.
O.
E.
,~

H.
J.

JNIURt TE~ETYPC IS ON·~INE,
LOAD ~INA~Y COUNT PATTERN-TEST TA,g IN READER, I~ TAPE IS
NO' IP~lctD INTO A ~OOP, POSITION'TAPE OV~R PUNCH~D SECTION,
AND NOT ON THE LEADER,
. .
TU~N ON R~ADERt
stT CONSOCE REGISTER 01SP~AV SWITCH TO AC.
at, ADDRESS SWITC~£S TO 1~211~ . - .
SEt AC SWITCHEI TO elee.~;'CSE~ECTS PRO')
PRE"-IIO REstT, PRESS 51-ART.
'.OGRA" STARTS-READING TAPt, SET AC SWITCHES TO ~4Jel'
TO CAUSE PROGRAM To HAL,·ONftERRQR,
~
'~OGRAM RUNS CONTINUOUSLY, UNLESS tRRORS OCCUR, OR AC
SWiTCH OPTIONS CAUSE A HA~T. 'HE AC SWITCM OPTIONS rOR
THfS ~ROGA.M AREI

PRoeRAH HALTS AT LOC .'6'2, AC DISPLAYS 'HE
ACCUMULATED ERROR eOUNT; I' ANY,
HALT-ONftERROR,

BAO CHARACTER IS DJSP~AYED IN AC,

PROGRAM READ~ !AP~ WITH RANDOM DUR.TI~N SrA~L~
A'TER EACH Q~A~AQT~R,
PROGRAM LOCK, PH ~~RREN! STAL~ BEING WBED CAC~
MU'T ~£ 1), ~~EE ,tC'ION ~t1,1 OR ~t\ 'OR H~LTS.)

PAGE ,

4.1

USE PROCEQURE 'OR PRG6
A.

,.E.
G.

I•

INIUR~

TE~ETYPE

ON~~INLf

~O'O READER wITH 2 CHARACT~R T~ST TAPE,

TURN ON READER,
OE'OS1T IN ~OC 00~21 AND ~~122 THE a-SIT CODES rOR TH[
cHARACTERS PUNCHED IN THE TEST TAPt.
SET CCN~O~E REylSr[R Or~~~AY ~WIT~~ TO ACt
SET ADDRESS SWITCHES TO 112.1.
stT AC SWITCHES TO 010 •• 6;' (SE~ECTS P~G6'
pRESS 110 RES£T, PRESS STA~T.
pROGRAM STARTS·READING TAPE. SET AC SWITCHES TO ~4~.~1
TO CAUIE PROGRAM TO HAL,·ON~ERROR.
pROGRAM RUNS CONTINUOUS~Y, UN~~SS tRRDRS OCCUR, o~ Ir
oius[o TO-HALT BVAC SWITCH o~TioN§.
THE A~ SWITCH OPTJONS rOR IH1~ PRO~RAM AR~I
PROGRAM HALT$ AT LOC .16,2. AC DISPLAyS THE
ACCUMULATED E~~OR ~OUN!, IF ANY,
BAD CHARACTER IS DISPLAYEO IN AC.

ACII."

HALT.ON-ERROR,

AQI~!I"

PROGRAM R~AD~ TAPE WITH RANDOM DURATI9N STAL~~
ArTER EACH CHARACTE~.·
PROGRAM LOCKS ON CURRENT STALL BEJNG USED
CACS4 MUST st~).--Clt[·SE~TIONS
OR 6.~ rOR HALTS.)

5.1.i

PAGE 8

OPERAT1N~
.
...

PROCEOUR£
- -

p~·-.~P-~-·-··----·

5.1

PROGRAM AND/O~ OPERATOR ACrl0 N

5'~11

... .... ....

NORH~~ HA~TS

"'-

,.-

OPTION SET HA~T~ PCCURS CURING PRGe, PRG!,
AND PRG2 TO PtRM!T SETTING 0' OPTIONS, SET
OPTIONS DESIREe AND-PAESS aONT1NUE,
PROGRAM END HA~T. OC9~RS AT ~ND 0' P~GI.
OR PRG2 " NO "~OOP PROGRAM" OPTION
IS SET, SET'O~SIRlO OPTIONS AND PRESS CON.
TINUE; IF NO-~PTIONS ARE SET, THIS H~~T
REOCCURS,
PAG~,

ROUTINE END HA~T, OCCURS AT END or CURRENT
ROUTINE OURIN~"PRG', ItRG1, OR-PRG2 EX~CUTION
I' AOS' IS ON, AC DI8P~AY' AOUTINt NUMBER.
TO PROCEED, P~'SS ~ONTlNUE,
-

Loe a,"i

OCCURS DURING ,RG' AND PR06 Ir AOSI
IS ON, THE ACCUMU~ATEO ERROR COUNT, l' ANY,
IS DI$P~AYED IV TH, AC, TO P~OCE~O, ~RESS
CONT I HUE. . ,.. - - .

HA~T.

PAGE 9
6.

~RROR~
.. ,.

6,1

~RROR

.......
HAL IS AND OESCRIPTION

l.OC ~@"77

INCORRECT PROGRAM NUMBER SELECTEe. stT T~E
CORRECT PROGRAM NUMBER IN .es14 THROUGH ACS17
AND PRESS OON!INU£,
.

NONeEXISTENT MOUTINE NUMBERS SE~ECTEO.

S£T
THE CO_RECT ROUTINt NUMBER IN ACS1~ T~~OUGH
ACi17 AND PR'~' CONrJN~E,
SYNC ERROR, 09CURI CURING PRG2 AND pRG' wHEN
THE "SYNC" SUBROUTJNE OOES NOT P1NO AN A~~ 15
CHARACTER wITHIN 2'6 CHARACTE~S, TO R~TRV, PRESS
CONTINUE,
- _.. .'- - ."
PRG', 'RG~ R~AQ ER~ORt OC9UR~ Ir REA~ ERROR IS
DETECTED AND AC!J IS ON. BAO CHARACTER IS DIS·
PLAYED IN ACt -~AE'S CONTINUE,
rOLL OW UP HA~! TO ~RG~ AND PR~6 R~AO ~kROR,
EXPECTED CHARAQT£R IS DISPLAYEO IN ACe
L.OC i1@,74

ALIGN ERROR HA~r. OC~~RS CURiNG PRG~ !r THE
"ALIGN" SUBROUTINE CANNOT MATaH TM' DATA READ
'ROM PAPER rA~' WITH DATA STO~EO IN ~oc ee02~
AND 00822(81. CHECK THAT CORt DATA I- CO~RECT
AND THATT~E T~IT-TAPt !S CORRECT ANO'"'N optR~
ATING CONDITJON. -RESS CONTINUE TO R:TRY.
PRG". ROUT I Nt @ ERROR j.jA!. T ,

110

CO~'M.ND

711311 'AILED TO C~EA~ THE AC. PRESSING
CONTJNUE ENTER' SCOPE LOOP THAT SETS 1HE
AC TO' AL.L. -. 2,5; - i sse's ?,iJ"~1~ COMMAND TO·
CLEAR THE AC AND REPEATS, 'PROGRAM MUST
BE RE~TARTED M'NUA~L.Y,
-

LaC i,,615

PRGI, .0UTINt ~ ERROR HA~T, AT L.EAST 211 MS A'TER
71132i COMMAND THE READER '~AG PAlLED TO SET,

INSTRUQIION IS ~AILING;
TINUE REPEATS THE TEST.

OA KS~

PRGe, ROUTIN, a ERROR ~ALT A,
ROUTINE 1-£RAOR HA~T.

LOC 01.112

PR~SSlNG

SAH~

CON-

A! PRGe,

PROI, ROUT1Nt ~ E~~OR ~A~T B, Ksr FAlLURE,
WITH READER rLAC 5'T. K5F INSTRUCTION
'AILED TO SKI', P~ESSJNG CONTINUE ENTERS
SCOPE ~OOP TMA! SKIPS ON FLAG CONT~NU~USLY,
MANUA~ RESTAR!.

PAGE ~I

PRGII, ROUTINE ~ ERROR HALT A.
ROUTINE 1 £RRP~ HA~!.

SAME A~ PROII.

PRoe, ROUTINE ~ ERROR HAL.T 8. THE ,e!~12
COMMAND (KRB) 'At~tD TO RESET THE REAOER
'~AG OR THE KS; COMMAND SKIPPED WITH TWE
REAOER r~AG ,I. 'RESSING CONTINUE ENTERS
SCOPE ~OOP !~At g~~ARS THE r~AG ANO SKtPs
ON PL.AC CONTINUOUSLV. MANUAL RESTART.
ROUTIN~ • ERROR HA~T A,
UNEXPECTED
INTERRUPT; Ag-OONTAiNi TH~ IORS WORD;- TURN
or' DEVICE CAUSING THE INTeRRUPT (OTHER THAN
THE T~~ETV'[~, p~~~s PONTINU~ TO REP~AT TEST,

PRG~,

LOC 111,11

P~GI, ROUTINE! ERROR HAL.T B.
WlTW R~ADER
rLAG ~ 1. AND INTERRU,Y ENABLED. NO INTERRUPT
OCCUR~£D.
PRlfSINi CONTINUE ENTERS sgoP[ ~OOP
THAT TURNS ON INTERRUPT CONTINUOUS~Y. MANUAL.
RE'TART,
P~GI, AOUTINE ~ £~ROR HAL.T,
TtMING E~ROR.
'L.AG NOT 1 .1,1"1 A'T,R 10832a COMMAND,
PRgsslNG CONTINUE ~NT[~~ SCOPE L.OOP T~'T
RtAOS TAPE CONTINUOUS~V TO AID IN TIMING
AOJUSTMENT. ,~
-"

PRQII, ROUTINi t ~~~OR ~AL.T A, R~READ ~RRO~.
A REREAD 0' THt TE~ETVPE READER BU"ERD10
NOT MATCH Wl'H THE ORJGINA~ RtAD, THE "NEW"
CHARA2TER IS Q1SPLAY~~ IN AC, PREIS 90NTINUE,
L.OC 11,73

'ROII, ROUTIN~ t tRROA HALT B. rOL.LOW UP HALT
TO PR!I, ROUTINE ~ ~RROR HALT A, TH, "OLD"
CHARA9TER IS ~ISPLAYtO IN AC. PRESSING CONTJNUE RESUMED TES1,

PAGE ~1

LOC 0122'

PRG1, ROUTJNE e ERROR ~ALT A. AT ~EA~T 21e MS ArTER
TLS COMMANO THE PRINTER ~LAG rAl~EO TO SET OR
Tsr COMMAND rilLED TO SKIP, PRESSING' CONTINUE RETRIES
T~[ TEST.
PRG1, ROUTINE ~ ERROR ~ALT B, WITH r~AG • 1,
TS' COMMAND rAILED TO SKIP, PRESSINC"CONTJNUE
~NTERS SCOPE LOOP THAT SKIPS ON FLAG ~ONTINUO~S~Y,
MANUAL RESTAR!,
PRG1. ROUTINE ~ [RROR HALT, !Cr COMMAND rAILED
TO CL~AR THE ~~A~. OR I~F COMMAND SKI~'EO WIT~
FLAG ~ 0, PR~SSINQ OONTINUE ~NTERS S20~E LOOP
THAT CLEARS THt 'LAG AND THEN SKIPS ON rLAG
CONTINUOUSLY, MANWAL RESTART,

LaC 111"

PR01, ROUTINE a ERROR HALT, Te' COMMAND rAILEO
TO CLEAR T~E r~AG, PRESSING CONTINUE tNT£RS
SCOPE LOOP THA! I~'UES Ter coMMAND CONTINUOUSLV,
MANUAL RESTART,
ROUTIN' ~ E~~OR ~ALT A, UNEXP£2TED
INTERRUPT, TURN O~P ANV DEVICE THAT MAY BE
CAUSING THE IN!£RRUPT. (THE TELETYPE R£ADrR
MU'T Sf 0".) P~~I~ QPNTINUE TO R~PEAT T~STt
PR~l,

PR01, ROUTINE ~ ERROR HALT B, WITH P~INT£RI
PUNCH rLAG • ~ AND INTERRU'T ENABLtD, NO INTERRUPT OeCOR~ED,' PR~'SINO· CONTINUEINTtRI
SCOPE LOOP TWA' TUAN,ON INTERRUPT CONTINUOUSLV. MANU.~ RE,!ART.
LaC '~J6'

PRG1, ROUTINE! ERROR HALT, TIMINO E~ROR.
rLAG NOT 1 1,~MS A'T£R T~S CQMMAND. 'RESSING
CONTINUE ENr~~~ ~gp~E ~OOP THAT RUNS ~RINTER
CONTINUOUSLV TO AIO IN TIMING ADJUITMtNT,
MANUAL RESTARt~
.
-

PAOE ~a

PRQ2, ROUTINE I ERROR MA~T A, READ E~ROR.
SAO C~ARACTER iN ACt PRESS CONTINUE.

PRG2, ROUT!NE m [R~OR HA~T Be ro~~ow UP
HA~T TO PRG2, ROUTIN~ ~ ERROR HA~T A.
EXPECTED CHARA9TER IS OISP~AY~D IN AC.
PRESSING CONTINUE RESUMES TESTING.
PRG2, ROUTIN~ ~ ERROR ~A~T A. READ E~ROR.
BAD CMARACTER iN i~, PRESS CON~INUE.
PR~2, ROUTIN~
HA~T TO PROa,

.. ER.~OR ~A~T Bt 'O~~OW ~p
ROUTINE ~ ERAOR HALT A,

EX'ECTED CHARAQTER IS DISP~AVED IN AC.
PRESS CONTINU~ TO ~ES~ME T£STlNG.
PRGa. _OUTINE ~ [RROR HA~T A, REAO ERROR,
BAD CHARACl£R iN A~. PRESS CONTINUE,
PROi. AOUTIN£ , EAROR HA~T B. 'O~LOW UP
MA~T TO PROa, ROUTINt a tRROR HA~T A.
t~PEcfED CHARACTtA IS OlSP~AVED IN AC.
PRtSS-CON~INO~-T~'RESU~E TgstjNG.

PAGE ~~
i.

RESTRICTIONS

7.1

STAR!ING ~ESTRICTIONS
A~~ P~OGRAMS

,.~

MUST BE STARTED AT ADORES~ 00aee.

OPERATING RESTRICTIONS

PRGe ANO PRG1 MUST HAVE BEEN RUN SUCCESSrU~~Y PRIOR TO
EXECUTING ANY OTHE~ PROGRAM.
PROB~EMS D~TECTEO DURING EXECUTION or PRGB ANO PRG1 S~OU~O
BE CORREC!~O AS THEY OCCUR.

~ISC[~~ANEOUS

8.1

tX£cyTION TIMt
PRG' EXECUTION TIME~
~ MIN
15 'Ee ~M'X)
PRG1 EXECUTION TIMEI
30 SEC (MAX)
PRG2 EXECUTION TIME.
2i MIN (MAX)
PRG3 THROUCH PRG6 ARE ~ON'INUOUS~Y RUN PROGRAMS.

I.a

TEST .-TA,,5
.-

p~~-~.~~~~

MAINDtc·e~·02~3.PT

BINARY COUNT PA!TEAN TEIT rAPE IS ~ROVIO£O
WITH tHIS PROGRAM. ~OA EASY ViE, THt TAPE SHOU~C BE SP~ICEO
iNto i LOO~, MATCHING THE PAT'fRN 6r TAE SPLI~E POINT;

~ROG~AM O~~CRIPTION

THE POP-1~, A~R~3/~5 rE~ETYPE !ES!~ PA~T 1. CONSISTS ~r 7
PROGRAMS ~VMBEREO PROM e TO 6,
9,1

PRGe • BA~lC INPUT ~O~IC TEST~
P~--.-~~-~---~--------------·~

THIS PAOGRAM CONTAINS 1 ROUTINES NUMBEREO rROM 0 TO 6
(OCTAL.) •
RTNI

9HECKS THAT lOT 110~~~ IS ABL~ TO C~;AR THE ACt
gONE 1@1~~ TIMES,

RTN1

CHECKS THAT READER r~AG IS SET 200 MS ArTER 101322
lOT ~SELECT READER). 'AILUR~-TO iKIP INOl~.!~S
THAT r~AG IS NOT SET, OR ~sr COMMAND 'Al~UR£ TO
SKIP. DONE lie TIM~S.

RTN2

~HECKS THAT KSF COMMAND ilOT ~~0~~1) SKIPS WITH 'LAG lET,
DONE 1111 TIMES.

RTN3

~~ECKS

THA' KI' COMMAND ClOT 700301) DOES NO! SKIP

WITH 'LAG .~.

DONE ~el-TIMES~

CHECKS THAT NO OTHER OEVICE CAN CAUSE AN INTtRRUPT
iNO THAt READER is CA~AB~t-o~ INT£RROPTING, RTN'

~EAD~R TIMIN~ TE~T.

RTN6

READS A CHARACTER rROM TAPE AND SAVES IT, IT "THEN
~ER[ADS THE TTl STAT1CALLY ~lle TIME- TO CHE~K rOR
¢bNSIS~£Nt RtAOING '~OM "l,"-a'6CHiRACTERS-ARE
REAO'IN THtS-flUNNER,
-

9,2

~RG1.- BA~IC

OUTPUT ~OGIC TES!~

THIS ~ROG~AM ~ONTAINS ,

•• ~

ROUTIN~S N~MBERED

PROM m TO 4,

RTNe

CHECKS THAT PRINTER/PUNCH PLAG IS SET 2~~ MS ArTER
TLS COMMAND. ;AI~URE TO SKIP IN r~AG INDICATES THAT
'~AG-rS NOT SET OR TSr rAI~UR£.
rr 'sr SKIPS~
ROUTINE THEN SKIPS ON PLAG 18il TIME8 TO CHECK
EOR RE~IA'~E SKtPPIN~t
-

RTN1

CHECKS THAT T5' COMMAND DOES NOT SKI' WIT~ 'LAG • I,
QONE 2,108 TIMES,

RTN2

CHECKS THAT Tep COMMAND IS AB~E TO C~£AR 'LA~.
DONE 2,/UI TI ME!,

RTN3

OHECKS THAT NO OTHER OEvrCE CAN INTERRUPT ANg THAT
PAINTER/PUNCH IS ABLE TO INTERRUPT.

RTN4

TIMING TEIT,

..PRGz •

REAQ~R T~ST

--~~.-~.----P-~-

THIS PROGRAM ~ONTAINS 3 ROUTIN~S NUMBERED ~AOM IJ TO 2.

9.'

RTNIJ

READ' ~IJ" CHARACTERS 0' aINA~Y COUN! PATTER~ AT
tLlLL. - SPEED, .
-

RTNS,

READS 21 •• CHARACTERS 0' BINARY COUNT PATTERN WITH
RANDOM STALLS BETWEEN CHARACT~RSt

RTN2

RtAOS ~Ie RANDOM LENGTH CHARACTER BLOCKS, "XED
STALL ~EtW[EN CHARAc~tRS IN A-BLOOK, STALL i,
~~ANqED ,OR ~ACH B~O;R, AND J~ DETERMINED AT"RANDOM,

PAG3.- TEST TA'E GENERATOR

THIS PROGRAM PUNCHES TEST TAPE WITH C~ARACTER' WHOSE
CODE ii' '~T 1~ ~~O 11~21 AND ~'82i,
9.'

PRG4.· TE,T TAPE GENERATOR
PUNCH~S B~NARY

QOUNT ~ATT~RN !~ST IAP~.

PAGE 16

9.6

PRG' • R[ADER EXERCISER,

81NA~Y CO~N!

PAT![RN

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

THIS PROGRAM READS ANU CHECKS ~INARY QOUNT PATTERN TE5T TAPE,
NORMAe TEiT MOOE IS WiTH rULe ~PEEb 'O~~~ATION; ACS~ i-1
GIVES ~ANOOM STA~~S BETWEEN CHAAACTERS~ ACS5 = 1 ~OCKS
PROGRAM ON CURR~NT STA~~ ~AC~! MU~! B~ ON),
9.1

PRC, • READER EXERCISER,

LOC '002~ AND 00022

READS TES! TA~E PUNCHED WITH ANY 2 TE~! CHARACTERS, ~oc
,.121 AND 10022 MUST CONTAIN THE CODES FOR CHARACTERS IN
TEIT TAPE, NORMAL TE~T MOD£ l~ WJTH ~~~L I'[~D OPERAIION,
ACS4 • 1 GIVES RANDOM STA~~S BtTWEEN CHARACTERSS AOS' ~ 1
~OCKS-'RD~R'M IN CURRENT STA~~~
C'CS~ MUST IE ON),

PAGE

i5TTYl
IPDP-15 AND ASR33/35 TELETYPE TEST - PARTl
ICOPYRIGHT 1969, DIGITAL EQUIPMENT CORP" MAYNARD, MASS.
I

IPRG~_RASIC

INPUT CONTROL LOGIC TEST, USES READER
IPRG1-BASIC OUTPUT CONTROL LOGIC TEST, USES PRINTER
IPRG2-READER TEST
IPRG3-TEST TAPE GENERATOR. PUNCHES cONTENTS OF LOC 0021 AND
IpRG4-pUNCHES BINARY COUNT pATTERN TEST TApE,
IPRGS-READER EXERCISER. BINARY COUNT PATTERN
IPRG6-READER EXERCISER. READS TAPE PUNCHED WITH ANY
I
2 CHARACTERS. LOC 0021 AND 0~22 CONTAINS CODES
I
FOR CHARACTERS IN TAPE.

~022

lACS-OPTIONS
I

IACS0-HALT AT END OF ROUTINE. RTN NUMBER IN AC FOR PRG0,PRG1.PRG2.
-HALT ERROR COUNT IN AC FOR PRG5 AND PRG6
IACS1-SElECT ROUTINE WHOSE NUMBER IS SET IN ACS12 THROUGH ACS17.
I
(PRG0,PRG1.PRG2).
IACS2-LOOP PROGRAM. (PRG0.PRGi.PRG2)
IACS3-HAlT ON ERROR, BAD CHARACTER IN AC (PRG5,PRG6)
IACS4-STALL (PRG5,PRG6)
IACS5-LOCK ON STALL (PRG5,PRG6)
.EJECT
I

PAGE

15 TTY 1

.ABS
1210020
00020
00021
e0022
00023
00024
00025
00026
00027
00030
00031
00032
00033
00034
00035
00036
00037
00040
00041
00042
00043
00044
00045
00046
00047
00050
00051
00052
00053
00054
00055
00056
00057
00060
00061

.LOC
000000
000000
000000
000000
620002
00012100
000077
000017
777772
000000
000033
000717
12101201
001373
000571
000576
000602
000611
000000
000000
000000
000000
000000
000000
777142
000000
000000
000000
777401
000000
040000
020000
010000
12100001
700322

KSTART
PTEMP
PTE MP 1
OELAYM

0
0
0

0
JMP. 2
0

TSTMSK
PRGMSK
PRGlIM
PRGNUM
PSW
PRGTAB

77
17
-6
0

PRGTAB
PRG0
PRG1
PRG2
PRG3
PRG4
PRG5
PRG6
0

TEMP
CURTST
0
RTNNO
0
NXTST
0
MSCTR
0
MIlCTR
0
MIll
-636
CTRA
0
CTRB
0
SCNT
0
MRBOUT
-377
PF"lAG
0
SR3MSK
040000
SR4MSK
020000
SR5MSK
1211001210
Kl
1
KRA=700322
I

.EJECT

PAGE

15TTY1
00177
00177
00200
00201
00202
00203
00204
00205
00206
00207
00210
00211
00212
00213
00214
00215
00216
00217
00220
00221
00233
00233
00234
00235
00236
00237
00240
00241
00242
00243
00244
00245
00246
00247
00250
00251
00 2 5 2
00253
08254
00255
00256
00257

74"040
75Q10"4
500027
34"030
740300
600177
750004
500027
040031
340032
040042
220042
040221
100545
000024
000001
777776
620221
00f1000
750040
200020
040045
100277
750004
742010
740400
620043
750004
500026
740001
340061
340044
751200
62 00 43
200045
340061
750200
600236
750040
600234

START

PRGAoR
SRSET
GETROY

INCRTN

.lOC 177
HlT
LAS
AND
TAD
SMA!SlA
JMP
lAS
AND
oAC
TAO
DAC
LAC ..
oAC
JMS
24
1
-2
JMP*
0
.lOC 233
HLT!CLA
LAC
OAC
JMS
LAS
RTL
SNL
JMP*
LAS
AND
CMA
TAO
TAO
SNA!CLA
JMP*
LAC
TAO
SlA!CLA
JMp
HLT!CLA
JMP
.EJECT

IINCORRECT PROGRAM NUMBER
IREAD SWITCHES
lAND WITH PRG MASK
lAnD PROGRAM lIMIT
IVAllD PROGRAM NUMBER?
INO.
IYES, READ SWITCHES

PRGMSK
PRGlIM
177
PRGMSK
PRGNUM
Psw
TEMP
TEMP
PRGADR
MOVE

ISAVE PROGRAM NUMBER
IDE VEL OPE PROGRAM
IAoDRESS.
ISTQRE ADDRESS
IINITIAlIlE INTERRUPT
IAREA

.+1
ISELECT OPTIONS
IGET ADDR OF' 1S T RTN
ISTORE AT NXTST

KSTART
NXTST
F"ORWO

IREAD SWITCHES
ISELECT ROUTINE?
INO, START wITH CURRENT ROUTINE
IYES, READ SWITCHES

CURTST
TSTMSK
K1
RTNNO

lIS IT THIS RTN?
IYES, GO DO IT.
IND.
ILAST ROUTINE?

CURTST
NXTST
K1
GETRDY+2
GETROY

IND.

IYES, INCORRECT ROUTINE NUMBER,

PAGE

15 TTY l
00 26 0
00261
00262
00263
00?64
121121265
1210266
00267
00270
1210271
00272
00273
00274
1210275
00276
00277
00300
0030 1
00302
00303
00304
00305
00306
00307
00310
00311
00312

100 313
75(11004
742010
741400
600234
20(11045
340061
750200
600236
750004
742010
751100
600234
750040
600260
000000
220045
040044
440045
200045
040042
440045
200045
04004 3
220042
04121045
620277

CHAIN

00313
00314
00315
00316
003 17
00320
00321
00322
00323
00324
00325
00326
00 32 7
00330
00331
00332

000000
750004
74121100
620313
200044
740040
620313
000000
220322
040042
440322
220322
06004 2
440322
754000
620322
10121322

SHALT

PRGENO
F'ORWD

JMS
LAS
RTL
StL
JMP
LAC
TAD
StA!CLA
JMP
LAS
RTL
SPA!CLA
JMP
HLT!CLA
JMP
121
LAC·
OAC
1St
LAC
DAC
1St
LAC
DAC
LAC·
DAC
JMP.

IHALT? (SR~)
IREAO SWITCHES

SHALT

IROUTINE SELECT? (SR1)
IYES·

GETRDY
NXTST
K1

ILAST RTN?
GETRDY+2

INO.
IYES.
ILOOP PROGRAM? (SR2)

GETROy
IPROG END HALT
CHAIN
NXTST
RTNNO
NXTST
NXTST
TEMP
NXTST
NXTST
CURTST
TEMP
NXTST
F'°RWD

IGET NEXT RTN NO.
ISTORE AT RTNNO
ISET CURRENT
IRTN NUMBER
ISET CURRENT
IROUTINE AODR
ISET NEXT
IRTN ADDR
IEXIT

STCTR

0
LAS
SMA
JMP*
LAC
HLT
JMP.

SHALT
RTNNO

IREAD SW
IHALT? (SR0)
INO, EXIT
IROUTINE END HALT.

SHALT

121

LACDAC
1St
LAC·
OAC·
lSi!
CLA:CLL
JMP.
SETLOC=JMS STCTR
.EJECT

STCTR
TEMP
STCTR
STCTR
TEMP
STcTR
STCTR

IGET LOC ADDRESS
ISAVE AT TEMP
IGET COUNT AND
ISTORE AT DESIRED LOC.
IEXIT

PAGE

15TTYl
00333
00334
0033'5
00336
00337
00340
00341
00342
00343
00344
00345

?00050
040047
440047
600340
4400 4 6
600336
754000
620333

00346
00347
00350
00351
00352
00353
00354
00355
00356
00357
00360
00361
00362
00363
00364
00365
00366
00367
00370
00371
00372

000000
200374
541514
741000
600362
201515
040374
200373
745100
744002
740010
040373
220374
340373
060374
200405
740020
360374
040405
440374
620346

00373
00374
00375
00376
00377
00400
00401
00402
00403
00404
00405

123456
000405
654321
361416
055363
546060
243035
762572
453237
150214
000000

000000
200023

OLYMS

~4~046

0
LAC
OAC
LAC
OAC
ISr
JMP
IS~

OELAYM
MSCTR
MILl
MILCTR
MILCTR
.-1
MSCTR
.-5

JMP
CLA!CLL
JMP.
OLyMS
IRANOOM NUMBER GENERATOR
(ill
RANGEN
RANDEX
LAC
SAD
CRANTBL+10
SKP
JMP
RANTAO-1
CRANTBL
LAC
RANDEX
DAC
RANCON
LAC
SPA!CLL
STL
RAL
RANCON
OAC
LAC.
RANDEX
RANCON
RANTAD
TAO
RANDEX
DAC.
RANSAV
LAC
RAR
RANOEX
TAO.
RANSAV
OAC
ISr
RANDEX
JMP.
RANGEN

I
RANCON
RANDEX
RANTBL

RANSAV

123456
RA NT SL+10
654321
361416
055363
546060
243035
762572
453237
15ftJ214
0

I
.EJECT

IGET MS COUNT
ISTORE IN MSCTR
IGET 1 MS CONSTANT
ISTORE AT MILCTR
IOELAYEO 1 MS?

INO
IYES. DONE DELAYING?

INO.
IYES.

PAGE

15TTYl
00 4 0 6
00407
00410

000000
14P1412
750000

INITPT

OlM
CLA
JMp*

~0411

62V'406

00412
00413
(11121414
00415
00416
(110417
00420
00421
00422
00423
00424

000000
012100121121
1211210377
000000
200412
040413
340061
500414
040412
200413
620415

PTe!
PT1
PTMSK
GETPTT

00425
00426
00427
00430
00431
00432
00433
00434
00435
00436
00437
00440

000000
440055
70QJ4QJ6
200055
750200
741000
600436
700401
600430
700402
140055
6204 2 5

PUNCH

00441
00442
00443
1210444
00445
00446
00447
00450
00451
0045 2
00453
00454

000000
750004
5121012157
75120121
620441
75 000 4
500060
750200
741000
100474
100333
620441

STALL

PTP'
INITPT

IINITIALltE cOUNT PATTERN
10 TO PT0
10 TO AC
IEXIT.

0
0

377
0
LAC
OAC
TAO
AND
OAC
LAC
JMP*

PT0
PT1
K1
PTMSK
PTe
PT1
GETPTT

IPT0 TO PTl

IPT0+1 TO PT0
IGET PT1
IEXIT

0
1St
TLS
LAC
SlA:CLA
SKP
JMP
TSF
JMP
TCF
DiM
JMP*

PFLAG

ISET PFLAG
IPUNCH/PRINT

pFLAG
IFLAG RESET?
.+3

INO
ISAVE PRINTING?

• -5

IND •

PFLAG
PUNCH

IYES, CLEAR FLAG
10 TO PFLAG
IEXIT.

0
LAS
AND
SNA:CLA
JMP*
LAS
AND
StA!CLA
SKP
JMS
JMS
JMP*
.EJECT

IREAD SWITCHES
SR4MSK
STALL

ISTALL? (ASC4)
INO. EXIT
IYES. READ SWITCHES

SR5MSK
OLCNT
OLYMS
STALL

ILOCK ON STALL?
IYES.
IGENERATE RANDOM COUNT
ISTALL.
IEXIT.

PAGE

15 TTY 1

I
00455
00456
00457
00460
00461
00462
00463
00464
00465
00466
00467
00470
00471
00472
00473
00474
00475
00476
00477
00500
0a501
00582
08503
0a504
00505

000000
100346
500473
741200
600456
740001
340061
040053
220455
040042
200053
060042
440455
620455
000077
000000
100346
500505
741200
600475
740001
340861
040023
620474
000277

085a6
085a7
00510
00511
00512
00513
00514
00515
005 1 6
00517
00520
00521
00522
00523

000000
040523
220506
740001
340061
340523
440506
750200
6005 21
440506
620506
20fJ523
620506
000000

CHRCNT

JMS
ANO
SNA
JMP
CMA
TAD
DAC
LAC.
DAC
LAC
DAC.
IS~

CRMSK
DlCNT

DlYHSK

JMP.
77
0
JHS
AND
SNA
JMP
CMA
TAD
DAC
JMP.
277

ISET RANOOM NUMBER.
IREMOVE EXCESS BITS

RANGEN
CRMSK

I~ERO?

CHRCNT+1
Kl
SCNT
CHRCNT
TEMP
SCNT
TEMP
CHRCNT
CHRCNT

IYES.

ISTORE AT DESIRED AODR
IEXIT

DLCNT+1

IGET RANDOM NUMBER
IREHOVE EXCESS BITS
IlERO?
IYES

Kl
DElAYM
DlCNT

IEXIT

RANGEN
DlYMSK

I
CHCK

0
DAC
LAC.
CHA
TAD
TAD
lSi!

WCHK
CHCK
Kl
WCHK
CHCK

S~A!ClA

WCHK

JHP
lSi!
JMP.
lAC
JMP.
0

I
.EJECT

·+3
CHCK
CHCK
WCHK
CHCK

lAC TO WCHK
IGET COMPARE DATA

15ET UP FOR UNEG EXIT
IEQUAl?
IND.
IYES, SET UP EQUAL EXIT
IEXt T
IRESTORE AC
IEXIT

PAGE

15 TT'1' 1
I

00524
910525
0052 6
00527
00530
00531
910532
00533
00534
09535
00536
09537
09549
09541
00542
00543
00544
00545
0121546
121121547
12112155121
0121551
00552
00553
0121554
0121555
00556
1210557
00560
121056 1
121121562
1210563
0121564
00565
00566
00567
00570

000000
1001322
000544
777400
700322
700301
600531
700312
340054
750209
741000
6205 2 4
440544
690539
740040
600525
000000
000000
22121545
04121566
44121545
220545
04121567
440545
220545
049570
44121545
220566
060567
44121566
440567
440570
600557
620545
000000
000000
000000

SYNK

SYNKA

SETLOC
CTSK
-400
KRA
KSF
JMP
KRI3
TAO
SiA!CLA
SKP
JMP.
IS~

JMP
HLT
JMP
CTSK
MOVE

LAC.
DAC
IS~

LAC·
DAC
IS~

LAC.
DAC
IS~

MOVEA

LAC·
DAC·
IS~

ISl
IS~

F'ADDR
TAODR
MCTR

JMP
JMP.
0
0
0

.EJECT

1-256 TO CTSK

.-1
MRBOUT

ISTART READER.
IFLAG1?
INa
IREAD
I
1377?

INO.
S'1'NK
CTSK
S'1'NKA
SyNK+1
MOVE
F'ADDR
MOVE
MOVE
TADDR
MOVE
MOVE
MeTR
MOVE
F'ADDR
TADDR
F'ADOR
TADOR
MCTR
MOVEA
MOVE

IYES~

EXIT

ICAN'T SYNK
IREPEAT.
IMOVE SUBROUTINE
IGET AND STORE
I"F'ROM" ADDR
IGET AND STORE
I"TO" ADDR
IGET AND STORE
IMOVE COUNT.
IGET "NEW WORD"
ISTORE AT "TO" LOC.
IUPDATE ADDRESSES

IDONE MOVING?
INO.
IYES, EXIT.

PAGE

15TTY1

~0571

20~021

~0572

1~HH25

00573

20"'022

e0574

10~425

00575

600571

00576
00577
00600
00601

100406
1004 1 5
100425
600577

00602
00603
0060 4
00605
00606
00607
00610

100524
140654
100 4 06
700322
100415
100617
60061216

00611
00612
00613
00614
00615
00616
00617
00620
0121621
00622
00623
006 2 4
00625
00626
00627
00630
00631
00632
00633
00634
00635
00636
00637
00640
00641
012164 2
00643
00644
00645

140654
100655
700322
100705
100617
600614
000000
040627
100441
700301
600622
700312
700322
100506
000000
600632
600646
440654
600636
750001
040654
750004
~00056

751200
600646
201215 2 3
740040
200627
740040

IPROGRAM 3 PUNCHES TEST TAPE wITH CHARACTERS STORED IN
ISYM90LIC LOCATION PTEMP AND PTEMP1.
IGET C(PTEMP)
PTEMP
PRG3
LAC
IPUNCH
JMS
PUNCH
IGET CCPTEMP1)
PTEMP1
LAC
IPUNCH
PUNCH
JMS
JMp
IREPEAT.
PRG3
IPROGRA M4 PUNCHES TEST TAPE WITH BINARY COUNT PATTERN
IINITIALI~E PATTERN
J~S
INITPT
PRG4
IGET BINARY CHARACTER
JMS
GETPTT
IPUNCH IT
JMS
PUNCH
IREPEAT •
. -2
JMP
IPROGRAM 5 READS COUNT PATTERN. STALLS OPTIONAL
ISYNK TAPE
JMS
SYNK
PRG5
OlM
10 TO ERRCTR
ERRCTR
IINJTIALllE BINARY PATTERN
JMS
INITPT
ISTART READER
KRA
IGET BINARY NUMBER
SRT0A
GETPTT
JMS
JMS
IREAD AND CHECK CHARACTER
READCK
JMP
SRT0A
IREPEAT
IPROGRAM 6 READS DATA FROM TAPE AND MATCHES AGAINST CHARACTERS
lIN PTEMP AND PTEHP1. RANOOM DELAY BETWEEN CHARACTERS OPTIONAL
Ie TO ERRcTR
ERRCTR
olM
PRG6
JMS
ALIGN
1ST ART READER
KRA
IGET CHARACTER
SRT2A
JMS
GIVE
IREAD AND CHECK
READCK
JMS
IREPEAT
JMP
SRT2A
REAOCK
0
SBSP
DAC
JMS
STALL
KSF
IREADER READY?
JMP
INO, REPEAT.
·-1
IREAD, START READER
KRS
KRA
JMS
CHCK
0
sBSP
JMp
ERRCNT
IERROR.
JMP
HLTTST
10K.
ISl
ERRCNT
ERRCTR
1+1 TO ERRCTR
JMP
.+3
CLA!CMA
ERRCTR
DAC
17777 TO ERRCTR
LAS
IREAD SWITCHES
AND
SR3MSK
SNA!CLA
IHALT ON ERROR (SR3)
JMP
HLTTST
INO
WCHK
IGET BAD CHAR
LAC
HLT
IYES
LAC
S8SP
IGET GOOD CHAR
HLT
IGOOD CHAR IN AC
.EJECT

PAGE 10

15TTYl
HLTTST

0121652
00653
0121654

750004
75011210
620617
20 0 654
7412104121
620617
0000121121

0121655
00656
121121657
121121660
121121661
121121662
121121663
00664
121121665
0121666
121121667
12112167121
0121671
121121672
00673
1210674
0121675
1210676
121121677
121070121
121071211
0071212
12112171213
12112171214

001211210121
71210322
712112131211
61210657
7121121312
7401211211
3412112161
0412171214
3412112121
7512121121
6121121676
2012171214
3412112122
75121210
60071211
7501214121
61210656
7412112101
121412171213
620655
140703
62121655
1211211211210121
1211210121121121

ALIGN

12112171215
121071216
12112171217
121121710
121121711
121121712
121121713
121121714
121121715
1210716

121121121121121121
44071213
61210713
14121703
212112112122
6212171215
751211211211
1214121703
20012121
620705

00646
0121647
1210650
~12I651

ERRCTR

LAS
SMA:CLA
JMP.
LAC
HLT
JMP*
0

IHALT?
REAOCK
ERRCTR
REAOCK

INO, EXIT
IGET ERROR COUNT
IERROR COUNT IN AC
IEXIT

ALl
AL2
INO
ATEMP

121
KRA
KSF"
JMP
KR8
CMA
TAO
OAC
TAD
SNA!CLA
JMP
LAC
TAD
SNA!CLA
JMP
HLT!CLA
JMP
CMA
OAC
JMP.
olM
JMP*
0
0

IREAOER READY?
.-1
IREAO CHARACTER
K1
ATEMP
PTEMP
I I SIT

ALi
ATEMP
PTEMP1

CHAR IN PTEMP?

IYES.
INa.
CHAR IN PTEMP1?
IYES.
INa, ERROR.
IREPEAT.
I I SIT

AL2
ALIGN+1
INO
ALIGN
INO
ALIGN

ISET INO TO -1
Ie

TO I NO

GIVE

121
ISl
JMP
OlM
LAC
JMP*
CLA!CMA
OAC
LAC
JMP*

.EJECT

INO
.+4
INO
PTEHP1
GIVE

IINO:l?
INa
IYES
IGET TEMPl
IEXIT

INO
PTEHP
GIVE

1-1 TO INO
IGET PTEMP
IEXIT.

PAGE 11

15TTY1

1'10717
"'0720
00721
00722

101'1322
000020
001'1723
600233

00723
00724

000000
000746

00725
00726
00727
00730
00731
00732
00733
00734
00735
007 3 6
00737
00740
00741

100322
000051
776030
750001
700311
740000
740200
600741
44 00 5 1
600730
600260
740040

00742
00743
00744
00745

750001
700311
600742
600742

00746
09747
00750
00751
00752
00753
00754
00755
00756
00757
00760
09761
00762
00763
00764
00765

000001
000767
100322
000023
777470
100322
000051
777634
700322
100333
700301
600765
440051
600756
600 2 60
740040

00766

600753

IPROGRAM 0. ASR33/35 TELETYPE BASIC INPUT TESTS.
IPROGRAM CHECKS INPUT lOT'S, INTERRUPT, ANO READER TIMING.
SETLOC
ISET KSTART TO INITIAL
PRG0
KSTART
IROUTINE ADORESS
peTS0
JMP
SRSET
IGO START PROGRAM.
I

740~00

o
P0TS1
IISSUE 700311 OP WITH AC=777777. AC SHOULD GO TO 0
1-1000 TO CTRA
sETLoe
CTRA
-1750
1-1 TO AC
p0TS0A
CLA!CMA
ICLEAR AC.
700311
NOP
NOP
Si!A
IAC=0?
INO, ERROR.
JMP
P0E0
IOONE?
lSi!
CTRA
INO, REPEAT
P0TS0A
JMP
IYES, CHAIN
JMP
CHAIN
IERROR HALT. DID NOT
HLT
ICLEAR AC.
1-1 TO AC
eLA!CMA
ICLEAR AC
700311
JMP .-2
JMP .-3
IISSUE KRA, WAIT AT LEAST 200 MSEC FOR FLAG TO SET. SKIP ON FLAG.
IFAILURE TO SKIP INDICATES THAT FLAG IS NOT SET. OR KSF FAILURE
P0TS1
1
P0TS2
SETLOC
1-200 TO DELAYM
OELAYM
-310
1-100 TO CTRA
P0TS1A
SETLOC
eTRA
-144
ICLEAR AC AND FLAG
P0TS18
KRA
JMS
DLyMS
IOELAy 200 MS.
KSF
ISKIP IF FLAG=l
JMP
IERROR
P0E1
IS2
CTRA
IOONE?
INO, REPEAT.
JMP
P0TS18
IYES, CHAIN
JMP
CHAIN
HLT
IERROR HALT. FLAG IS NOT 1,
P0E1
lOR RSF FAILED.
JMP
IRESTART TEST.
P0TS1A
P0TS0

.EJECT

PAGE 12

15TTY1

00767
00770
00771
00772
00113
00774
00775
00176
00177
01000
01001
0HlJ02
0101213

00C11002

001016
10C11322

001.'1023
777470
10"'322
000051
776030
700322
100333
700301
601010
71219.1 3 01

01004
01005
01006
01007
01010

601012
440051
601003
600260
740040

01011
01012
01013
01014
01015

600777
740040
700301
601013
601013

IISSUE KRA. WAIT AT LEAST 200 MSECS FOR FLAG TO SET. SKIP ON FLAG
11000 TIMES TO VERIFY CONSISTENT SKIPPING
P0TS?
2
p0TS3
1-200 TO DELAYM
SETLOC
OELAYM
-310
1-101210 TO CTRA
SETLOC
CTRA
-1750
P0TS2A
/CLEAR AC, fLAG
KRA
JMS
OLyMS
IDELAY 200 MS.
KSF
IREADY?
JMP
INO, ERROR
P0E2A
KSr
ISKIP ON FLAG:1
INO SKIP ERROR
JMP
P0E28
CTRA
IDONE?
ISr
JMP
INO, REPEAT
.-3
JMP
IYES, CHAIN
CHAIN
HlT
IERR A. FLAG NOT SET
P0E2A
lOR K5F FAILURE
JMP
P0 TS 2A
HLT
IERR 8,KSF fAILURE
P0E28
KSf
ISKIP ON FLAG:1
JMP
IREPEAT
.-1
JMP
IREPEAT
.-2
I
.EJECT

PAGE 13

15TT Y1

01016
01017
et1020

0000'113
001050
100322

01021
01022
'111023
01024
0102'5
0U'26
0UJ27
0103'11
01031
01032
01033
01034
01035
01A36
01037
01040
01041

000"'23

01042
01043

601026
740040

01044
01045
01046
01047

700312
700301
601044
601044

777470
100322
000051
777014
7'11'11322
100333
70'11301
601041
700 31 2
700301
601036
601043
44'11051
MH033
600260
740040

IISSUE KRA. WAIT AT LEAST 200 MSECS FOR FLAG TO SET. VERIFY THAT
IFLAG IS SET. RESET FLAG (KRS> AND SKIP ON FLAG 500 TIMES
ITO VERIFY THAT NO SKIP OCCURS WITH FLAG=0.
3
P0TS3
P0TS4
1-201'1 TO DELAY~
sETLOe
OELAYM
-310
1-500 TO CTRA
sETLOC
CTRA
-764
ISTART READ
P0TS3A
KRA
IDELAY 200 MS.
DLyMS
JMS
IREADY?
KSF
INa, ERROR.
JMP
P0E3A
IYES, RESET FLAG.
KRs
IREADY?
KSF
INa, OK
.+2
JMP
JMp
IYES, ERROR
p0E3S
IOONE?
CTRA
IS r
INa, REPEAT
JMP
.-4
IYES, CHAIN
JMP
CHAIN
IERRA. FLAG NOT SET, OR
HLT
P0E3A
IRSF FAILED
ITRY AGAIN
P0TS3A
JMP
IERR B. FLAG FAILED TO RESET,
HLT
P0E 3S
lOR RSF SKIppED ERRONROUSLY.
ICLEAR FLAG
KRS
ISKIP ON FLAG 1
KSF
IREPEAT
JMP
.-2
JMP
IREPEAT
.-3
I
.EJECT

pAGE 14

15TTYl

01050
01051
01052
01053
01054
01055
01056
01057
01060
01061
01062
0111363
01064
01065
01066
01067
01070
01071
01072
01073
01074
01075
01076
01077
01100

00Ci1004
Cil01112
100322
000002
001062
703302
700042
740000
700002
601065
71130314
740040
601055
100322
01130051
776030
100322
000002
001107
71130322
700301
601074
700042
740000
740040

01ii')1
01102
01U!3

100322
000002
001106

01104
01105
01106

700042
740000
601104

01197
01110
01111

440051
61131076
600260

ITHIS ROUTINE CHECKS THAT NO OTHER DEVICE CA~ CAUSE AN l~TERRUPT,
lAND THEN CHECKS THAT THE READER IS CAPABLE OF INTERRUPTING.
P0TS4
4
P0TS5
SETLOC
15ET INTERRUPT RETURN
2
ITO PraE4A.
P0E4A
P0T54A
CAF
ICLEAR ALL FLAGS
ION
IENABLE INTERRUPT
Nap
IOF
IDISABLE INTERRUPT
JMP
.+4
10RS
P0E4A
HLT
IUNEXPECTED INTERRUPT
JMP
P0TS4A
ITRY AGAIN
SETLOC
1-1000 TO CTRA
CTRA
-1750
SETLOC
ISET INTERRUPT RETURN
2
ITO P0TS4C
P0TS4C
KRA
1ST ART READER
KSF
IWAIT FOR FLAGl
JMP
.-1
ION
P0TS4B
IENABLE INT.
Nap
HLT
P0E4B
IREADER FAILED TO INTERRUPT
lOR INTERRUPT SYSTEM MALFUNCTION.
ISET INTERRUPT RETURN
SETLOC
2
ITO P0TS4C-l
P0TS4C-l
ISCOPE LOOP
ION
NOP
JMP
.-2
I
lSi!
CTRA
loONE?
P0 TS 4C
JMP
P0TS 4 S
INO, REPEAT
IYES, CHAIN
CHAIN
JMP
I
.EJECT

PAGE 15

15T TY 1

~~"'005

01112
01113
01114
01115
01116
01117
01120
01121
01122
01123
01124
01125·
0 112 6
01127
01130
01131

777634
700322
100333
700301
601131
440051
601122
600260
740040

01132
01133
01134
011 3 5

700322
700301
601133
601132

001136
100322
000023
777622
100322
~00051

IREADER TIMING TEST. CHECKS THAT READER FLAG IS=l NO LATER THAN
1110 MILLISECONDS AFTER RSA INSTRUCTION IS ISSUED.
P~HS5
5
P0TS6
SETLOC
1-110 TO DELAYM
DELAYM
-156
1-100 TO CTRA
SElLOC
CTRA
-144
p0TS5A
ISTART READER CLEAR AC AND FLAG
KRA
JMS
DLyMS
IDELAy 110 MSECS
KSF
IREADY?
INO, ERROR
JMP
P0E5
ISr
CTRA
IDONE?
P0TS5A
JMP
INO; REPEAT
IYES, CHAIN
JMP
CHAIN
IERROR, FLAG NOT 1 AFTER
P0E5
HLT
1110 MSECS.
KRA
ISTART READER CLEAR
Ksr
IREADY?
JMP
INO •
• -1
IYES, START READER AGAIN
JMP
.-3
.EJECT

PAGE 16

15TTYl

01136
01137
01140
01141
01142
01143
01144
01145
01146
01147
01150
01151

"'00006
777777

01152

000052

01153
01154
01155
01156
01157
01160
01161
01162
0116 3
01164
01165
01166
01167
01170
01171

776030
700312
041200
740001
340061
341177
750200
601170
44005 2
601154
440051
601143
600260
201200
740040

01172
01173
01174

201177
740040
601165

01175
01176
01177
01200

700312
601175
000000
000000

10~322

000051
777400
703302
700322
700301
601145
700312
041177
100322

IREADS 256 DlrrERENT CHARACTERS. EACH CHARACTER IS REREAD 1000 TIMES
ITO VERIFY CONSISTENCY IN REAOING FROM TTl.
p0TS6
6
777777
1-256 TO CTRA
SETLOC
CTRA
-400
CAr
P0TS6A
ICLEAR rLAGS
KRA
1ST ART READER CLEAR
Ksr
IREADY?
JMP
IWAIT
.-1
KRB
IREAD CHAR
WTS6A
ISAVE IT
DAC
1-1000 TO CTRS
SETLOC
CTR8
-1750
KRB
P0TS6B
DAC
WTS68
ISAVE
CMA
TAD
Kl
TAO
WTS6A
Si!A!CLA
IRESULT 0?
JMP
INO, ERROR.
P0E6A
1St
CTRS
IREREAD 1000 TIMES?
JMP
P0TS 68
INO GO READ AGAIN
IREAD 256 CHARACTERS?
CTRA
P0TS6C
1S t
JMP
P0TS6A
INO
JMP
CHAIN
IYES, CHAIN
WTS68
ILOAD BAD CHAR
LAC
P0E6A
HLT
IERR A. BAD CHAR IN AC
IPRESS CONTINUE,
IEXPECTEO CHAR IN AC
WTS6A
LAC
HLT
JMP P0TS6C
ISCOPE LOOP
KR8
IREAD CHARACTER
JMP
IREPEAT
.-1
WTS6A
0
WTS68
0
I

.EJECT

PAGE 17

15TTYl

01201
~1202

01203
01204

100322
000020
001205
600233

IpRoGRAM 1. ASR33/35 TELETYpE BASIC OUTpUT TESTS. PROGRAM CHECKS
10UTPUT IOT'S, INTERRUPT, TIMING.
PRGl
SETlOC
ISET KSTART TO INITIAL
KSTART
IROUTINE AnDRESS
PiTS0
JMP
SRSET
ISTART PROGRAM
I

01205
01206
01207
01210
01211
01212
01213
01214
01215
01216
01217
01220
01221
01222
01223
01224
01225
01226
01227
01230
01231

000000
001235
100322
000023
777470
100322
000051
776030
750000
700406
100333
700401
601227
700401
601231
440051
601222
600260
750040
60 121 5
750040

01232
01233
01234

700401
601232
601232

IROUTINE 0
11. TLS AND WAIT AT LEAST 200 MSECS FOR FLAG To SET. SKIP ON FLAG=1 (TSF>. TSF SHOJ
ISKIP OR ERROR HALT PIE0A OCCURS, INDICATING FLAG NOT SET, OR TSF FAILURE.
12. wITH FlAG=l, SKIps ON FLAG 1000 TIMEs TO TEST FOR CONSISTENT SKIppING.
IFAILURE To SKIP CAUSES ERROR HALT P1E0S.
PI TS0
0
P1 TS1
1-200 TO DElAYM
SETLOC
DELAYM
-310
1-1000 TO CTRA
SETLOC
CTRA
-1750
ICLEAR AC
ClA
P1TS0A
ISTART PRINTER/PUNCH
Tls
IDELAY 200 MS
JHS
DLYMS
IREADY?
Tsr
INa, ERROR.
Jf1P
PIE0A
ISKIP ON FLAG 1
TSr
PiTS0B
P1E0B
INa SKIP. ERROR
JMP
ISKIP DONE?
CTRA
ISl
INa, REPEAT
JMP
P1 TS0B
IYES, CHAIN
JMP
CHAIN
IERR A. NOT READY AFTER 200 MS.
HLT!CLA
PiE0A
lOR TSF FAILURE
JMP
P1TS0A
IERR B. TSF FAILED TO SKIP
PiE 0 s
HLT!cLA
ISCOPE LOOP
TSF
JMP
.-1
JMP
.-2
I

.EJECT

PAGE 18

15TTY1

01235
01236
01237
01240
01241
01242
211243
01244
211245
211246
211247
01250
01251

"'00001
001256
100322
0001051
776030
7004012
7021401
741000
601251
4421051
601243
600260
750040

01252
01253
211254
01255

700402
700401
601253
601253

IROUTINE 1.
IISSUE TCF TO CLEAR FLAG. SKIP ON FLAG 1000 TIMES TO VERIFV THAT NO
ISKIP OCCURS WITH FLAG=0
P1TS1
1
P1 TS2
SETLOC
1-1000 TO CTRA
CTR.
-1750
TCF
P1TS1A
TSF
SKP
JMP
P1E1
ISl
CTR.
JMP
P1TS1.
JMP
CHAIN
HLT!CLA
/ERR. AFTER TCF, TSF INSTRUCTION
P1E1
ISKIPPED.
ISCOPE LOOP
TCF
ICLEAR F'LAG
TSr
/SKIP ON FLAG:1
.-1
JMP
JMP
.-2
1

.EJECT

PAGE 19

15TTY1
I

01256
01257
01260
01261
01262
01263
01264
01265
01266
01267
01270
01271
01272
01273
01274
01275
01276

000002
0101301
100322
000051
777634
750000
700406
700401
601265
700402
70"'401
741000
601276
440051
601263
600260
750040

01277
01300

700402
601277

IROUTINE 2
IISSUE TLS. ~AIT FOR FLAG1. CLEAR FLAG (TCF>. SKIP ON FLAG1. NO SKIP
ISHOULD OcrUR. IF SKIP, TCF INSTRUCTJON (CLEAR FLAG) FAILED.
;>
P1 TS2
P1TS3
SETloe
1-100 TO eTRA
CTRA
-144
CLA
P1TS2A
IPUNCH/PRINT
TlS
IWAIT FOR FLAG1
TSF
JMP
.-1
ICLEAR FLAG
Tcr
TSF
ISKIP Ir FLAG 1
SKP
JMP
ISKIPPED. ERROR
P1E2
IS~
CTRA
IDONE?
INO, REPEAT
JMP
P1TS2A
IYES, CHAIN
JMP
CHAIN
P1E2
HLT!eLA
IERR. Ter FAILED TO RESET FLAG
ISCOPE LOOP
ICLEAR rLAG
TCF
JMP
IREPEAT
.-1
I

.EJECT

PAGE 20

15TT Y1

01301
01302
01303
01304
01305
01306
01307
01310
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330
01331
01332
01333
01334
01335
01336
01337
01340

01341
01342
01343
01344
01345
01346

~0~003

001347
10~322

000002
001317
703302
7091406
700401
601310
700402
700042
740000
700002
601321
740040
601306
100322
000051
776030
100322
000002
001344
750000
700406
700401
601331
700042
740000
740040
100322
000002
001343
700042
740000
601341
440051
601333
600260

IROUTINE 3.
ITHIS ROUTINE CHECKS THAT NO OTHER DEVICE CAN CAUSE AN INTERRUPT,
lAND THEN CHECKS THAT THE pUNCH/PRINTER CAN CAUSE AN INTERRUpT.
P1 TS3
3
P1TS4
SETLOe
ISET INTERRUPT RETURN
ITO P1E2A
2
P1E3A
CAF
P1TS3A
ICLEAR ALL FLAGS.
TLS
TSF
JMP
.-1
TCF
/CLEAR PUNCH/PRINTER FLAG
ION
/ENABLE INT.
NOP
IOF
/DISABLE INT.
JMP
.+3
HLT
/UNEXPECTED INTERRUPT
P1E3A
JMP
/TRY AGAIN
P1 TS 3A
SETLOC
/-1000 TO CTRA
cTRA
-1750
/SET INTERRUPT RETURN
SETLOC
ITO P1TS3C
2
P1TS3C
CLA
TLS
/START PUNCH/PRINTER
TSF
/FLAG 1?
JMP
/WAIT.
.-1
ION
P1 TS 38
Nap
HLT
/PUNCH/PRINTER FAILED TO
P1E3B
/INTERRUPT OR INTERRUPT
/MALFUNCTION.
SETLOC
2
P1TS3C-1
ION
/sCOPE LOOP
Nap
JMP
.-2
IS~
CTRA
P1TS3C
/DONE?
JMP
/NO. REPEAT
P1 TS 38
JMP
CHAIN
/YES. CHAIN
I

.EJECT

PAGE 21

15TTY1

00~~04

01347
01350
01351
01352
01353
01354
01355
01356
01357
01360
01361
01362
01363
01364
01 3 6 5
01366

777777
10P1322
Pl00023
777622
H'0322
000051
777634
700406
100333
700401
MH366
440051
601351
600260
750040

01367
01370
01371
01372

100406
100401
601310
601361

IROUTINE 4
ITIMING TEST. CHECKS THAT FLAG IS 1 NO LATER THAN 110 MSECS.
IAFTER TLS INSTRUCTION.
P1 TS4
4
777777
1-110 TO OElAYM
sETlOC
OElAyM
-156
1-100 TO CTRA
sETlOC
CTRA
-144
/START PUNCH/READER
P1TS4A
TlS
JMS
OlyMS
/DElAy 110 MSECS.
TSF
IF"lAG 11
JMP
P1E4
INO. ERROR
ISr
CTRA
IYES. DONE?
JMP
INa. REPEAT
P1TS4A
JMP
IYES. CHAIN.
CHAIN
P1E4
IERR. Fl~G NOT 1 110 MSECS
HlT:ClA
IAF"TER TlS INSTRUCTION
ISCOPE lOOP, START PRINTER
TlS
TSF
IWAIT FOR FLAG 1
JMP
.-1
JMP
IREPEAT.
.-3
I
.EJECT

PAGE 22

lSTTY1

01373
01374
01375
01376

100322
000020
001377
600233

01377
014121121
121141211
0141212
121 1403
01404
01405
01406
01407
01410
01411
1211412
1211 4 1 3
1211414
1211415
01416
1211417
01420
01421
1211422

01210000

01423
01424
1211425

01211426
11210524
11210322
000051
770001
1012141216
100415
041415
71210322
712112131211
601411
7121121312
112112151216
001211210121
601422
44121051

6121141216
60026121

7401214121
201415
7401214121
61211417

IPROGRAM 2. ASR33/35 TELETYPE READER TEST. CHECKS ABILITY OF READER
ITO CORRECTLY REAO AT rULL SPEEO ANO WJTH RANDOM STALLS.
ISET KSTART TO INITIAL
PRG2
SETla C
KSTART
IROUTINE AODRESS
P2TS0
JMP SRSET
1S TART
IROUTINE 121
IREAO 412195 CHARACTERS, AT FULL SPEED, MATCHING EACH CHARACTER READ
IAGAINST BINARY COUNT PATTERN
P2 TS0
0
P2TS1
JMS
SYNK
ISYNC READER
SETLOC
1-4095 TO CTRA
CTRA
-7777
INITPT
IINITIALIlE PATTERN
JMS
JMS
GETPTT
IGET PATTERN CHARACTER
P2 TS 0A
OAC
SBf2J
1S T ORE AT SBe
KRA
IREAD
KSr
IREADY?
JMP
IND, WAIT
.-1
KRB
IYES, READ
JMS
CHCK
IGO CHECK CHARACTER
0
SBf2J
JMp
P2EeA
IERROR
CTRA
P2TS0B
IS~
10K. DONE?
JMP
P2TS0A
IND. REPEAT
JMP
CHAIN
IYES, CHAIN
HlT
IERR HALT A. BAD CHAR IN AC.
P2E0A
IPRESS CONTINUE.
LAC
SB0
HLT
IcORRECT CHAR IN AC
P2TseB
JMP
I

.EJECT

PAGE 23

15TTY1

01426
01427
01430
01431
01432
01433
01434
01435
01436
01437
01440
01441
0 1 44 2
01443
01444
01445
01446
01447
01450
01451
01452
01453

000001
001457
10"'524
100322
000051
774060
100406
100415
041446
700322
100474
100333
700301
601442
700312
100506
000000
601453
440051
601435
600260
740040

01454
01455
01456

201446
740040
601450

IROUTINE 1
IREADS 200~ CHARACTERS. RANDEM DELAY BETWEEN C~ARACTERS.
IEACI-I CHARACTER READ IS MATCHED AGAINST COUNT PATTERN.
P2TSl
1
P2TS2
SYNK
JMS
ISYNC READER.
/-2000 TO CTRA
SETloe
CTRA
-3720
IINITIAlI~E PATTERN
INITPT
JMS
ISET PATTERN CHARACTER
JMS
GETPTT
P2 TS 1A
DAC
S81
KRA
IREAO
JMS
DlCNT
IGENERATE DELAY COUNT
JMS
OLYMS
IOELAY
IWAIT FOR
KSF
-1
JMP
IREAOY.
IREAD CHARACTER
KRB
JMS
IGO CHECK CHARACTER
CHCK
0
SBl
JMP
IERROR
P2E1A
IS~
CTRA
P2TS18
IOONE?
JMP
INO. REPEAT
P2TS1A
JMP
IYES, CHAIN
CHAIN
HlT
IERROR HALT A. BAD CHAR IN AC
P2E1A
IPRESS CONTINUE
LAC
s81
HLT
ICORRECT CHAR IN AC
JMP
P2TS1B
I
.EJECT

PAGE 24

15TTY1

01 457
01460
01461
01462
01463
01464
01465
01466
01467
01470
01471
01472
01473
01474
01475
0 1 476
01477
01500
01501
01502
01503
01504
01505
01506
01507
01510

777777
10"'524
H.lPl322
000051
777634
100406
10"'474
100455
000052
10P1415
041501
700322
100333
700301
601475
700312
100506
000000
601510
44l1H1I52
601471
440051
601466
600260
740040

01511
01512
01513

201501
740040
601503

000~02

IROUTINE 2
IREAD 100 GROUPS OF CHARACTERS. EACH GROUP IS OF RANDOM LENGTH.
lEACH GROUP USES A FIXED DELAY DETERMINED AT RANDOM. DELAY CHANGES BETWEEN GROUPS
P2 TS 2
2
777777
ISYNC READER
SYNK
JMS
1-100 TO CTRA
SETLOC
CTRA
-144
IINITIALIlE PATTERN
INITPT
JMS
JMS
DLCNT
IGENERATE DELAY cOUNT
P2 TS2A
JMS
CHRCNT
IGENERATE AND STORE
CTRB
IBLOCK LENGTH
CETPTT
JMS
IGET PATTERN CHARACTER
P2 TS2B
DAC
SB2
KRA
IREAD
OLYMS
JMS
IDELAY
IREAOY?
KSF
INa, WAIT
JMP
.-1
IREAD CHARACTER
KRS
IGO CHECK CHARACTER
CHCK
JMS
PI
SB2
JMp
p2E2A
IERRoR.
IS r
CTRB
IGROUP DONE?
JMP
P2TS2B
INO.
CTRA
ISr
IYES. ALL GROUPS DONE?
JMP
INO.
P2TS2A
JMP
CHAIN
HLT
IERR HALT A. BAD CHAR IN AC
P2E2A
IPRESS CONTINE.
LAC
SB2
HLT
ICORRECT CHAR IN AC
JMP
5B2+2
I

.EJECT

PAGE 25

15TTYl
~00000

01514
01515

~0~405

.ENo

et0~375

NO ERROR LINES