Digital PDFs

MAINDEC-08-D2P

December 1967

52 pages

Original

2.7MB

Document:	maindec-08-d2pe-d
Order Number:	MAINDEC-08-D2P
Revision:
Pages:	52
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-d2p/maindec-08-d2pe-d.pdf

OCR Text

IDENTIFICATION
Product Code:

MAIINDEC—OBFDZPE-D

Product Name;

Family~of~8 ASR 33/35
Teletype Tests Part I

Date Created:

February 2]

Maintainer:

Diagnostic Group

I969

P I! 9-8
LIDEARY

ABSTRACT

The Family-ot—8 ASR33/35 Teletype Tests Part 1 is the first part of a two part package used to
i

test

the ASR33, ASR33TY,or ASR35 Teletype when attached to a

Family—ot-B system.

Part 1 contains nine selectable programs numbered From 0 to l0 (octal).

The programs are

selected by means of the switch register (SR).
The programs available are:
PRGO

Basic

PRGT

Basic Output

PRG2

Reader Test

PRG3

Test Tape Generator.

Input Logic Tests

Logic Tests

Punches tape with characters stored in locations

002T and 0022.

PRG4
PRG5

Test Tape Generator.

Reader Exerciser.

Punches Binary Count Pattern test tape.

Reads Binary Caunt pattern tape in random

blocks, and with Fixed stalls between characters

length

The stall is determined

at random.
PRGé

PRG7

Reads Binary Count pattern tape.
Stall count is taken From LOC 0023

Reader Exerciser.

characters.

Fixed stall between

Reads tape punched with any 2 test characters. Random
blocks
and
Fixed
stall between characters. The stall is determined
length

Reader Exerciser.
at

random.

PRGlO

Reader Exerciser. Reads tape punched with any 2 test charaCters.
stall between characters. Stall count taken tram LOC 0023.

PRGH

ASR33TY Automatic Reader option test.

Fixed

Checks for correct response to

READER ON, and READER OFF commands.

PRGTZ

ASR33TY Automatic Punch option test.

Checks For correct response to

PUNCH ON and PUNCH OFF commands

REQUIREMENTS

2. i

Equipment
Standard PDP-B/S, PUP-8 or PDP—8/I with ASRBB, AsR33TY, or ASR35 Teletype.

NOTE

Programs PRGO through PRGlO are not written

specifically For the ASR33TY Teletype.
ever

When-

these programs are run, be sure to lock the

punch and reader in their ON position. In the
at the reader, use a heavy rubber band to
keep the reader switch in the ON position.
case

2.2

Storage
Locations 0000 through 234] are used.

LOADING PROCEDURE

3.1

Method

The Binary Loader is used to load the program.

STARTING PROCEDURE

4.1

4.2

(PRGO)

Control Switch Settings (PRGO)
SRO

Halt at end of routine.

SRI

Select routine whose number is set in SR6 through SRI T

SR2

Loop program

SR6 through SRIl

Routine number to be selected.

Routine number in AC.
.

Starting Addresses (PRGO)
This program starts at LOC 0200.

-4.3

Program and/or Operator Action (PRGO)
a

Insure Teletype is on-line.

Load binary count pattern test tape in reader.

Turn on reader.

Load address 0200.

Set SR to 0000.

Press START.

Program halts at LOC 0232 to permit setting of options.

Select desired options, if any, in SR.

For normal

run

SR should

be 0000.

Press

CONTINUE.
i.

Program is executed and halts at LOC 0274, program end halt, it no loop options are

selected and it no errors occur.

OPERATING PROCEDURE (PRGO)

.5, I

Program and/orOperator Action (PRGO)

5 .I .i

Normal Halts (PRGO)
SRSET halt". Occurs to permit setting of desired options.
Program end halt. Occurs if no ”loop program" option is set.

LOC 0232

LOC 0274

Set de-

If no options are set, this halt

sired options and press CONTINUE.
reoccurs.

Routine end halt.

LOC 0320

press CONTINUE

ERRORS

Occurs

at; end of routine if SRO: I

proceed,

(PRGO)

Error Haltsand Description (PRGO)

s. I

incorrect program number selected

LOC Ol77

Set 'SR to 0000 and press

CONTINUE.
Nonexistent routine selected.

LOC 0255

Set correct routine number in SR6

through SR“ and press CONTINUE.

PRGO, routine 0 error halt. KCC instruction failed to clear the AC.
Pressing CONTINUE enters scope loop that sets AC to all is, issues
KCC to clear AC, and repeats. Manual restart.

LOC i22i

PRGO, routine I error halt.

LQC n44
.

not set,

200 ms after KRB'instruction the Hag is

KSF instruction Failed to skip on flag
’

TINUE repeats the test.

LOC l267
LOC i237!

PRC-30, routine Zerror halt A.

Pressing CON-r

Same as PRGO, routine I

error

halt.

PRGO, routine 2 error halt Bi. KSF instruction tailed to skip with flag
]. Pressing CONTINUE enters scope loop that skips on Flag continu-

.7—

ously. Manual Restart.

routine I

halt.

LQC i320

PRGO, routine 3 error hait A.

LOC l322

PRGO, routine 3 error haitB. KCC iaiieci to reset, or KSF instruction
skipped with Hag O. Pressing CONTINUE} enters scope loop that
clears the flag and skips on Flag continuously. Manual restart.

Same as PRGO,

error

2-"

LOC i345

PRGO, routine 4, error halt A Unexpected interrupt. Turn’oti any
device that may be causing an interrupt (other than the Teletype).
.

Pressing CONTINUE repeats the test.

Loc i362

PRGO, routine 4, error halt B. With reader flag 2i and interrupt enm
ahled, no interrupt occurred. Pressing CONTINUE enters scope loop
that turns on interrupt continuously.

Manual restart.

LOC Mi?

PRGO, routine 5, error halt.

Timing

Flag not -l “O ms after
loop that reads tape
to
aid
Manualrfestart.
in'timin‘g
continuously
adjustment.
KRB command.

error.

Pressing CONTINUE enters scope

PRGO, routine 6, error halt A. Reread error. A reread of the Teletype buffer did not match with the original read. New character is

LOC I457
i

displayed in AC.

Press CONTINUE.

PRGO, routine 6, error halt B. Follow up halt to PRGO, routine 6,
error halt A. The "old" character is displayed in AC. Pressing
CONTINUE enters scope loop that reads the teletype buffer continuously.

LOC I462

Manual restart.

4A.

STARTING PROCEDURES (PRGI)

4.IA

Control Switch Settings (PRGI)
Routine number in

AC.

SRO

Halt at end of routine.

SRI

Select routine whose number is set in SR6 through SRI I

SR2

Loop program.

SR6 through SRII

Routine number to be selected.

Starting Addresses (PRGI)

4.2A

This program starts at LOC 0200.

Program and/or Operator Action (PRGI)

4.3A

Insure Teletype is on—line.

Insure reader is off.

Insure that there is paper in teleprinter.

Load address 0200.

'Set SR to 000T

Press START.

Program halts at LOC 0232 to permit setting of options.

Select desired options, if any, in SR.

For normal run SR should be 0000.

Press

CONTINUE
i.

Program is executed and halts at LOC 0274, program end halt, if no loop options are

selected and if no errors occur.

5 .A

5.IA

OPERATING PROCEDURE (PRGI)

Program and/or Operator Action (PRGI)

Normal Halts (PRGT)

5.l.lA

SR SET halt.

LOC 0232

Occurs to permit setting of desired options.

Press

CONTINUE.

Programiend halt. Occurs if no “loop program" option is set.

LOC 0274

Set de-

If no options are Set, the halt

sired options and press CONTINUE.

reoccurs.

Routine end halt.

LOC 0320

.
,

Occurs at end of routine if SRO

To proceed,

press CONTINUE.

6.A

ERRORS

6.lA

Error Halts and

(PRGT)

Description (PRGT)
Incorrect program number selected. Set SR to COM and press CON-

LOC Ol77

TINUE.

‘

Nonexistent routine selected.

LOC 0255

Set correct routine number in SR6 through

SR“ and press CONTINUE.
..

PRGT , routine 0, error halt A.

LOC l627

not

200 ms after TLS command the Flag is

TSF command failed to skip.

‘

Pressing CONTINUE repeats

the test.
LOC lo3l

PRGl, routine 0, error halt 8. With Flag l, TSF command tailed to
'skip. Pressing CONTINUE enters scope loop that skips on Flag continw
—-

~Uously.

Manual restart.

PRGT , routine l error halt.

LOC i65l
'

TCF command Failed to clear

TSF command skipped with Flag

flag,

Pressing CONTINUE entersscope
loop that clears the flag and then skips on flag continuously. Manual
=

restart.

LOC M76

RRGT , routine 2 error halt.

TCF command failed to clear tlag

,Prese

sing CONTiNUE enters scope loop that issues TCF command contin“

uously.
LOC l7i7

Manual restart.

PRGT , routine 3, error halt A.

Unexpected interrupt. Turn ott any
(The teletype reader must

device that may be causing an interrupt.

be off).
LOC T734

Press CONTINUE to repeat test.

ERGT , routine 3, error halt 8.

With Flag;

l, and interrupt enabled,
loop that

interrupt occurred. Pressing CONTTNUE enters scope
turns an interrupt continuously.
Manual restart.
no

LOC T765

PRGT , routine 4 error halt.

Timing error. Flag not l ”0 ms after

TLS command.

Pressing CONTINUE enters scope

printer/punch continuously,
restart.

4.3

STARTING PROCEDURES (PR6?)

aid

in timing

loop that runs the

adjustment.

Manual

4.IB

Control Switch Settings (PRGZ)
Routine number in AC.

SRO

Halt at end of routine.

SRI

Select routine whose number is set in SR6 through SRl l

SR2

Loop program

SR6 through SRlI

Routine number to be selected.

4 .23

Starting Addresses (PRGZ)
This program starts ar LOC 0200.

4.38

Program and/or Operator Action (PRG2)
a.

Insure Teletype is on-line.

Load binary count pattern test tape in reader.

Turn on reader.

Load address 0200.

Set SR to 0002.

3‘0

Press START

Program halts at LOC 0232 to permit setting of options.
Set desired options, if any. in SR.

For normal run, SR should be 0000.

Press CO N-

TINUE.

Program is executed and halts at LOC 0274, program end halt, if no loop options are set,
and if no errors occur.

5.8

OPE RATING PROCEDURE

5. TB

Program and/or Operator Action (PRGZ)

5.I.IB

‘Normal Halts (PRGZ)
0232

LOC

(PRGZ)

SR SET halt.

Occurs to permit setting of desired options.

Press

CONTINUE.
LOC 0274
*

LOC 0320

Program end halt. Occurs if no ”loop program" option is set, set opIf no options are set, this halt reoccurs.

tions and press CONTINUE.
Routine end halt.
press CONTINUE.

6 B
.

ERRORS (PRGZ)

Occurs at end of routine if SRO

To proceed

6.IB

Error Halts and Description

LOC 0177

(PRGZ)

Incorrect program number selected.

TINUE
Loc 0255

Nonexistent routine selected.
,

Set correct routine number in SR6

through SR” and press CONTINUE.

0554

LOC

Set SR to 0002 and press CON-

Unable to sync. Sync subroutine has not Found an all I's character
within 256 characters. Press CONTINUE to retry.

PRGZ, routine 0, error halt A.

LOC 2030

Read error.

Bad character in AC.

Press CONTINUE.

PRG2, routine 0, error halt B. Follow up halt.
Pressing CONTINUE resumes test.

LOC 2033

Expected character

in AC.

PRG2, routine I, error halt A.

LOC 2062

Read error.

Bad character in AC.

Press CONTINUE.

LOC 2065

PRG2, routine I, error halt B. Follow up halt.
Pressing CONTINUE resumes test.

Expected character

in AC.

PRG2, routine 2, error halt A.

Loc 2120

Press CONTINUE

Read error.

Bad character in AC.

PRG2, routine 2, error halt B. Follow up halt.
AC. Pressing CONTINUE resumes test.

LOC 2123

Expected character

PROCEDURES (PRGB)

4.c

STARTING

4.I.C

Control Switch Settings (PRG3)
None

4.2C

Starting Addresses (PRG3)
This program starts at LOC 0200.

4.3C

Program and/or Operator Action (PROS)
CI

Insure Teletype is on-line.

Turn off teletype reader.

Load blank

Turn on punch.

Deposit in LOVC 002T and 0022 (8), theKB-bit gode For characters to be punched

‘

tape in punch.

Load address 0200.

Set SR to 0003.

Press START.

Program punches tape until stopped by user.

5.CA

OPERATING PROCEDURE

(PRGB)

5.lC

Program and/or OperatorActi'on (PRG3)

5.].IC

Normal Halts (PRG3)
None

(PRG3)

6.C

ERRORS

6.lC

Error Halts and

Description (PRG3)
'

LOC 0177

Incorrect
.

program. number selected

Set SR to 0003 and press

CONTINUE.

4.D

STARTING PROCEDURES

4.ID

Control Switch Settings (PRG4)

(PRG4)

None

4.2D

Starting Addresses (PRG4)
This program starts at LOC 0200.

4.3D

Program and/or Operator Action (PRG4)
a

Insure Teletype is on-line

Turn off teletype reader.

c .

Load blank tape in punch

Turn on punch.

Load address 0200-.

Set SR to 0004.

Press STA RT

Program punches loinary count pattern test tape until stopped user.-

(PRO-4)

5.D

OPERATING PROCEDURE

5.ID

Program and/or Operator Action (PRO-4)

5.l.lD

Normal Halts (PRG4)
lflone.

(PRG4)

o D

ERRORS

6. ID

Error Halts and

Description (PRG4)

LOC 0l77

Incorrect program number selected.

Set SR to 0004 and press CON-

TINUE.

4.E

STARTING PROCEDURES

4.IE

Control Switch Settings (PRGE)
SRO

’

Halt.

Program halts with accumulated error count in AC.

Halt on error.

SR5

4.2E

(PROS)

Program halts it read-error occurs.

Starting Addresses (PROS)
This program starts at LOC 0200.

4.3E

Program and/or Operator Action (PRG5)
0

Insure Teletype is on-line

O—

Load binary count pattern test tape in reader.

Turn on reader.

Load address 0200.

Set SR to 0005.

T.
g

Press START.
.

SRO is set to I

5.E

Program runs continuously until stopped, unless a read error occurs with SR5
.

OPERATING PROCEDURE (PRG5)

I, or

5.lE

Program and/or Operator Action (PRG5)

5.l.lE

Normal Halts

Halt.

LOC lll5

Occurs it SRO

Accumulated errors in AC.

Press CON-

TINUE to proceed.

‘

‘
'

(PRG5)

6.E

ERRORS

6.lE

Error Halts and Description

(PRGS)

Incorrect program number selected.

LOC 0l77

Set SR to 0005 and press CON-

TINUE.

Read error halt.

LOC ll l0

4.F

STARTING PROC EDURES

Occurs if SR5

Press CONTINUE to proceed.

(PRGé)

Control Switch Settings (PRGo)

SRO,
SR5

Halt.

Program halts with accumulated error count in AC.
Program halts it read error occurs.

Halt on error.

4.2F

Starting Addresses (PRGc’J)
This program starts at LOC 0200.

Program and/or Operator Action (PRGo)

4.3F

a .

gives

Insure Teletype is on—line.

Load binary count pattern test tape in reader.

Turn on reader.

Deposit in LOC 0023 the desired stall count in 2's complement Form.

A count of -l

lms stall, etc.
e

Load address 0200.

Set SR to 0006.

Press START.

Program runs continuously until stopped, unless a read error occurs with SR5

is set to l.

l, or SRO

5.F

OPERATING PROCEDURE (PRGé)

5. IF

Program and/or Operator Action (PRGé)

5.l.IF

Normal Halts

(PRGé)

Ill5

LOC

Halt.

Accumulated errors in AC.

Occurs it SRO

Press CON-

TINUE to proceed.

6.F

ERRORS

6.lF

Error

(PRGé)

Haltsand Description (PRGé)
Incorrect program number selected.

LOC 0l77

Set SR to 0006 and press CON-

TINUE.
'

LOC lll0

Read error halt.

4.6

STARTING PROCEDURES (PRG7)

4.lG

Control Switch Settings (PRG7)

Occurs if SR5

Press CONTINUE to proceed.

Program halts with accumulated error count in AC

SRO

Halt.

SR5

Halt on error.

Program halts it read error occurs.

Starting Addresses (PRG7)

4.2G

This program starts at LOC 0200.

Program and/or Operator Action (PRG7)

4.36

a .

Insure Teletype is on-line.

Load reader with 2—character test tape.

Turn on reader.
_

d.
test tape

Deposit in location 0021 and 0022 the 8~bit codes for the character punched in the

Load address 0200.

Set SR to 0007.

Press START

Program runs continuously until stopped, unless a read error occurs with SR5

SRO is set to I.

I, or

5.6

OPERATING PROCEDURE (PR67)

5.16

Program and/or Operator Action (PR67)

5.1.16

Normal Halts (PR67)
LOC 111.5

Halt.

,
.

Occurs if SRO .= 1., Press CON-

Accumulated errors in AC.

TINUE to proceed

(PR67)

6.6

ERRORS

6.16

Error Halts and

Description (PR67)
Incorrect program number selected

LOC. 0177

TINUE.
LOC 1110

Set SR to 0007.0“. press CON'

Read error halt.

Occurs if SR5=1.

Align error halt.

Insure that correct tape is used, and check Step

LOC 1137

4.36d

4.H

STARTING

4.1H

Control Switch Settings (PR6

Press CONTINUE to proceed

PROCEDURES (PR6 10)
'

4.2H

10)

SRO

Halt. Program halts with accumulated error count in AC

SR5

Halt on error.

Program halts if read‘error occurs.

Starting Addresses (PR6 10)
This program starts at LOC 0200.

4.3H

Program and/or Operator Action (PR6 10)
Insure Teletype is on-line.

Load reader with 2-character test tape

c. "Turn on reader
d
Deposit in LOC 0023 the desired stall count in 2's complementaform. A count of -1
gives a 1 ms stall, etc.
e

Load address 0200.

Set SR to 0010.

in.

Press START

Program runs continuously until stopped, unless a read error occurs with SR5

l, or SRO

is set to l.

5.H

OPERATING PROCEDURE (PRGlO)

5.lH

Normal Halts (PRG l0)
Halt.

LOC lll5

Accumulated errors in AC.

Occurs is SRO

Press CON-

TINUE to proceed.

(PRO 10)

6.H

ERRORS

6.lH

Error Halts and

LOC 0l77

Description (PRO 10)
Incorrect program number selected.

Set SR to 0007 and press CON-

TINUE.

LOC lllO

Read error halt.

Occurs it SR5

LOC 1137

Align error halt.

Insure that correct tape is used, and check Step

Press CONTINUE to proceed.

'
'

4.3Hd

4.1

STARTING PROCEDURES

(PRO 11)

Control 'Switch Settings (PRO-11)
None

4.21

Starting Addresses (PRO 11)
This program starts at LOC 0200.

Program and/or Operator Action (PRO 11)

4.31

Insure that Teletype is on-line.

Load reader with any test tape loop

Turn on reader by pushing the momentary contact switch to the START position.

Make sure that teletype punch is not locked on.

Load Address 0200..

Set SR to 0011.
Press START

3"(0 Program

runs

continuously until stopped, unless an error halt occurs.

OPERATING PROCEDURE

5.1

(PRO 11)

Normal Halts (PRO 11)
None

6.1

ERRORS

6.11

Error halts and Description

(PRO 11)

Reader Flag not set after

LOC 2212

*”""”’{”imwm“-.
LOC 2227

approximately 110

after READER ON command.

(PRO 11)

to turn

K“
1

”’

the reader.

ms after KCC command issued
the
READER
ON command Failed
Probably

Press CONTINUE to proceed.

Reader Flag was set after approximately 110 ms after KCC command issued

after READER OFF command.
to turn off the

reader.

.14

Probably the READER OFF command Failed

Press CONTINUE to proceed.

,4 J

"STARTING PROCEDURES (PRO 12)
Control Switch Settings (PRO

12)

N on e

4.2J

Starting A-ddresSes (PRO 12)
This program starts at LOC 0200.

4.3J

Program and/or Operator Action (PRO 12)

a
With Teletype off-line, punch a section Of blank leader about 6 inches long
Teletype to on-line position.
.

Load leader on reader,

Return

leaving very little slack between punch and reader.

Turn on reader by pushing the momemtary contact switch to the START position.

Make sure that teletype punch is not locked on.

(D .

Load address 0200.

-n

Set ”SR to 0012.

Press START

TCQ Program
5.J

runs

continuously until stopped, unless an error halt occurs.

OPERATING PROCEDURE (PRO

Normal Halts (PRO

12)

None

E RRO RS

(PRO 12)

Error halts and

LOC 2337

Description (PRO 12)
Reader failed to read correctly if characrubout. It tape character is a r-ubo-ut, the PUNCH FEED
OFF command failed to stop the punch from feeding
Check for other
similar Failures. To be correct, the punched tape should contain all rubReader failed to read a rubout.

ter on tape is a

outs.
6.2.1

Press CONTINUE to proceed.

Other Errors (PRO 12)

Failure of the PUNCH FEED ON command wi l l eventually be detected by the tightening of
the slack between the reader and, punch.

The longer the program is run the better the chances are of

detecting the problem, if present.

RESTRICTIONS

7.I

Starting Restrictions
All programs must be started at LOC

7.2

0200.

Operating Restrictions
PRGO and PRGI must be run prior to executing any other

programs.

Problems detected during

execution of PRGO and PRGI should be corrected as they occur.
V

PRGII must precede PRGIZ execution.

MISCELLANEOUS

8.I

Execution Time

PRGO execution time:

I minute

PRGI execution time:

20 seconds

PRGZ execution time:

I8 minutes

PRG3 through PRGIZ are continuous run programs.

8 .2

Test Tapes

MAINDEC-08-D2G3—PT Binary Count Pattern test tape is provided with this program.
convenience in use, the tape should be spliced into a

For

loop, making sure that the pattern is matched at

the splice point.

PROGRAM DESCRIPTION

The Family-of-8 ASR33/35 Teletype Tests, Part
to I2

9.l

I, consists of II programs numbered From 0

(octal).

PRGO

Basic

Input Logic Tests

This program contains 7 routines numbered from 0 to 6 (octal).
RTNO

Checks that KCC command is abie to clear the AC.

RTNI

Issues

Test is done 1000 times.

I. A Failure to skip on
KCC, waits 200 ms and checks for flag
I, or KSF command failure to skip.
I

flag indicates that Flag is not

Checks ability of KSFF command to skip with flag

:RTNZ

Checks that K SF command does not skip Wll'l'l flag

’0

Done 100-0 times.

Done 5?“ times

Checks that no other device can cause an Interrupt and then checks that the

RTN4

readerIs capab1e of Interruptmg

Rth

Timing Test.

RTNé

Reads a character from tape and saves it.

It then ere-reads the TTI statically

1000 times to check for consistent reading “from TTI.

256. characters are read

in this manner.

9.2

*PR-Gl

Basic Output Logic Tests

This program contains five routines numbered from 0 to 4.

Issues TLS, waits 200 ms, and checks for flag = l. A failure to skip indicates

RT N0

that flag is not 1, or KS'F command failed. If this part is satisfied the routine
l, 1000 times. Failure to skip indicates TSF failure
skips on flag
=

RT Ni

Checks that TSF command does not skip with flag

RT N2

Checks that TCF command clears

RT N3

Checks that no other device can cause an

Bone 1000 times.
V

printer/punch

RT N4

9.3

PRGZ

flag.

able to interrupt.

Done 100 times.

interrupt, and then checks that the
.

Timing Test.

Reader Test

This program contains three routines numbered from 0 to 2.
RTNO

Reads 4095 characters of binary count pattern, at full speed

RTNT

Reads 2000 characters of binary count patterns with random stalls between

characters
RTN2

PRGB

Reads 100 random-length character blocks.
a

9.4

block.

Fixed stall between characters in
Stall is changed for each block and is determined at random.

Test Tape Generator

This program punches test tape with characters whose code is store-d in LOC 0021 and 0022.

9.5

PRG4

Test Tape Generator

Punches binary count pattern test tape

9.6

PRG5 ‘7 Reader Exerciser

This program reads binary count pattern test tape, in random length blocks, and with Fixed

stalls between characters.

9.7

PRGé

Stall is determined at random.

Reader Exerciser

Reads binary count pattern test tape

Fixed stall between characters.

Stall count is taken

from LOC 0023.

9.8

PRG7

Reader Exerciser

Reads test tape punched with any two test characters, random
between characters.

9.9

PRGTO

Stall is determined at random.

Reader Exerciser

Reads test tape punched with any two test characters.
count taken

9.10

length blocks, and fixed stall

Fixed stall between characters.

Stall

from LOC 0023.

PRGll

ASR33TY Automatic Reader Option Test

Checks For correct response to READER ON, and READER OFF commands by checking for
correct state

of reader Flag llO ms after issuing KCC command which is preceded by one of the reader
A

control commands.
_

The coder’control commands used are:
READER ON
READER OFF

9. ll

PRGl2

—

221
223

ASR33TY Automatic Punch Option Test

Checks for correct operation of PUNCH FEED ON and PUNCH FEED OFF commands by

punching rubouts with the punch Feed on, and all 0's characters with the punch Feed off.
tape should contain all rubouts.

The tape is verified by running it through the reader at the same time.

The punch control commands used are:
PUNCH FEED ON
PUNCH FEED OFF

The resulting

222

224

’ALll

V153

18:16

21-ptB-09
/EA%ILY

PAGE

ASRés/és TELETYDE TEST:

PART

/CUPYR15HI

DIDITAL

1969.

EDDIRMEDT

DDRRDRATIDN.

MAYNARD,

MASS.

/RHuD-5ASTD

INPUT

COVTRDL

/PH61—BASIC OUTPUT
/PHGZ~R&ADEH TFST

’PHG5T‘EST

TAPE

/RHG4.TEST

TAPE

CONTROL

LOGIC

TEST
TEST

(USES

RTADER)

(URES

DRIMTER)

CONTENTS GE LDC DD21 AND Razz
PUNCHES BINARY COUNT PATTERN TEST TAPE
/P”GS~REAUER EXtRCISER. READS BINARY COUNT PATTERN TFST TAPE IN RAMDDM
/
LENGTH RLDCKS, STALLS wITH FIXED DELAY RETNEEN CHARACTERR. STALL
/
IS DIFFERENT FOR EACH RLDCK.
/PR06~READER
/P“G7-READER

GENERATOR.
GENERATOR.

PHNCHES

EXERCISER READS BINARY COUNT PATTERN, FIXED
EXERCISER. READS TAPE PUNCRED BY RRGs. TEST

STALL

BETWEEN CHARACTERS,

BF STORED
MDZZ. RANDOM LENGTH BLOCKS. FIXED STALL RETwEEm
/
CHARACTERS. STALL DIFFERENT FOR EACH BLOCK
/PR61DeSAME AS PRGI. BUT FIXED STALL BETWEEN CHARACTERS (ND RANDDM LENGTH RLDCKs)
/PH511*ASR33TY AUTOMATIC READER OPTION TEST
/

LOO

@621

AND

/PH612'ASR53TY AUTOMATIC PUNCH OPTION TEST
/
/SH

OPTIU\S

AT tNU 0F
ROUTINE. ROUTINE NUMBER IN
/S”1'StLEu1 RDUTINE wHOSE NUMBER 15 SET IN 3R5
/SH2-LUJR PROGRAM
/SH5-HALT UN ERROR
/SH6-SR11-R0UTINE NUMBER To BE SELECTED,

ISTV'HALT

AC
To

SRll

DATA

MUST

9AL13

V153

21'FE8969

@006

PAGE

’FAMILY'OF’B A5R53/35_TEL£TYPE TESTS-PART
@680
@031

$080
5201

wowa

0932
GEES

zewz
GEQS
@395

2
3

ZEZS
flflaé

5492

JMP

069%

602%

0921
0022
@023
@624
BB 5
90 6
@927

0330
6631
9932
@835

BE34
GQSS
0036
@037
6640

0941
@042

6043
@044

0045
0046
@047
@059

0051

@EZE
EEEQ
@690
0999
@000

JMP

PTEMP,
PTtHPl;
DELAYNa

SHLTI

0333
@345
6232
@409
@617

DLY15C0
DLviHSa

1200
1600
2690
1000
1906
1213
1031
1042
1069
2200
2244

$210

KSVARTI

CHllN,

7766
0005
@637

0257

5353

8&8

CHAINN
SHALT

SETCTRI STCTR
SRSTI
RANDNO;
PRGMSKa

0Lvsc
DLYMS
SRSET
RANGEN

PRGLIHc

'12

pRGNUHa
PS“;
PRGTABa

PRGTAB
PRGG

PRG1
PRC?
PRGS
PRG4
PRG5
PRGé
PRG7

PRClE
PRG11
PRGlZ

/USER PROGRAM START,

lCHAIN.RTN

ENTRY.

IHALT TEST ENTRY
[SET COUNTER ENTRY
/DELAY SECONDS ENTRY
ENTRY
’DEL‘Y HILLISECS

”Aglz

V163

21‘FLB'69

@052

amaz

TEMP:

3&5;

émwg

za77

TSTMSKn

$655

alwg

SRDMSKp

3856
3357

aeao
Zflfifi

CPIDO

CUHTSYI

59am

RTNNU,
NXTSTI

mafia
azvfl

SccTR

77
10¢

aegm

MSCTR:

wmvg
game

3%66 ‘7444

MILCTR:
MILl:
“95'

3067
3970

7764

‘3273

@Qwfl
96MB
@906
@077

K7]:

9&74

774B

M4”:

*4“

3675

3076

@1@@
@248

1am
24%

3677

75%@

313%
Zlfl

7516
@690

2172

wawa
566%
7634

C100.
C240:
SKIPMA:
SKleAt
CTRAI
CTHB;
SCNTa
Klmfla

F144

29mm

KZUWUa

20mm

3&71
@fl72

$123

JIF4
A125

pAGE

/wORK

/LOCATIONS

3A54

Zflbfi
Zflél
3362
3663
3M64
3665

18:16

15R 6-11 ENABLE MASK
lsfis MASK
/IDENTIF1LS CPU
/FOR CURHLNT TEST ADDRFSS
/FOR CURRENT TEST NUMBER
/FOR NEXT TEST ADDRESS

’SEcONDS COUNTER
/MILLISECUNUS COUNTER

/FOR
Iprs

KPdSo

”$34
~14

TEMQ,

TEMRt

FLAG:

IPDPBS

MSLC CONSTANT
MSEC CONSTANT
1 MSEC CONSTANT

ICONSTANTS

/FOR
/TYPE
ICHARACTER
/STRING
/SUBROUTINE

SMA
QPA
Q
w

/COUNTER
/COUNTER

A._
B.

A12
313
2110
3111
3112
3113
3114

23344

SYNC:
INPATT:

SYNK

INITPT
GEYPTT

@531
ZSEZ

SHIFT:
CHtCKp
CRCNT,

@520

DLYCNTI

CHRCNT
DLCNT

flfiflfl
@465

PFLAG,

3115

UPUNCHo

PUNCH

3116
3117

660%
74%1

UMUVEI

MOVE

MRUOUTa

H577

@453

CHCK

/ENTRY
/ENTRY
IENTRY

TAPE

SYNC

INITIATE

GET

RTN.

PATTERN
PATTERN CHAR.

”ALIZ

V133

ICUNIROL
@177

‘

ROUTINL

74%2

@236

7684

@201
0222
6203
3264
$255
0206
02fl7

0933

AND

PRGMSK

1%34

TAD
SMA

PRGLIM

0210
0211
0212
$213
9214
0215
0216
3217
822%
8221

9224
@225

HLT

START,

DCA PRGNUM

1035

TAD

1036
3052

TAU

LAS
AND

DCA
TAD
DCA

ID:

771%
5222
1966
7410
1067
3965
4516
@665

CLA
SPA
JMP
TAU
SKP
TAD

PRUADR.

0233

7266
1920
3061
4276

GETRDV,

u‘3
KP8

K988

lxNxTxALIZE
IINTERRUPT.
/AREA,

7776
.

SRSET:

J
a

‘HLT

CLA
TAD

KSTART

/SET

DCA
JMS

NXTST

’STORE AT NXTST

7664

LAS

7654

RAL

41
@242
@243

7500
5457

SMA

LAS

0244

7664
@ESA

@245
@246
@247

7E41
166%
7650

CIA

5457

JMP
TAD

0252

1061
7%91

@253

7646

SiA

@254
6255
3256

5236
7402
5233

CLA

@QBi

9996
7602

5%
51

PRGNUM
Psw
TEMP
I TEMP
PRGADR
CLL CMA-RAR

5631

PRGMSK

MILl
I UMDVE

@231
@232

NUMBER

SEA
JMP ‘177

0226
6227
9239

0234
6235
$236
@237

PROGRAM

IINCORRECT

LAS

7540
5177
7634
0653
3035

1452
3251
7350

PAGE

177

@177

$222
6223

18:16

21-FEB-69

JMP
AND

TAD
SNA

FORND

/READ

CURTST

JMP
HLT

JMP

157

ROUTINE

/ROUTINE SELECT?
START WITH
/NO,

18T

RTN

/YEs
TSTMSK
RTNNO

CLA
I CURTST
NXTST

IAC

INCRTN!

ADDRESS

CLA
GETRDY*3

/IS

/YES.
/N0
/IS

THIS

RTN?

DO
LAST

IT
TRN?

/NO

/YES.
GETRDY

THIS
GO

INCORRECT

ROUTINE

NO.

)ALIZ

vl33

21‘FLB'69

CHAINNo

18816

SHALT

PAGE

3257

4313

”253

7bfl4

3251
32‘?

7$A6

LAR
NIL

7636

StL

CLA

/SELECT ROUTINE?

3253

5253
lfibl

JMP

GtTHUY
NXTST

/YEs

CLA
GETRUY*6

/LAST

SPA

CLA

/LO0P

4MP
HLT

GLTRUY

/YES’
/END OF

JMP

CHAINN

3254

3265

3257

7661
764%
5236

3273
@271
0272
@273
@274

7066
7710
5233
7402

‘3266

3275
Z276

TAU

JMP
LAS

2061
1961
3052
2061
1861

Z337

3957

Z315
Z311
Z312

1452
3061
5676

7390

1461
3062

(SRP)
SR

(SR1)

ROUTINE?

/N0.

RTL

PRUENUa

5257
@EZB

/HALT?
/READ

IAC
Sta

76d4

@277
3333
0331
3332
9333
@324
3335
Z356

JMS

FOHNU,

PROGRAM?

(SR2)

PROGRAM

CLA
TAD
DEA

CLL

ISfi

ersr

TAU

NXTST
TEMP
NXTST
NXTST

DCA

IS?
TAD
DCA
TAD
DCA

JMP

i NXTST
RTNNO

CURTST
1 TEMP
NXTST
I FORND

/GET NEXT
/STORE AT

lsET
/RTN

RTN

NO
RTNNO

CURRENT
NUMBER

ISET CURRENT
/RTN ADDR,
ISET NEXT
/RTN ADDR '
/EXIT

HALT

PAL1Z
@513
3314
3315
3316
3317
@329
832;
3322
@323
5324
@325
3326
@327
933%

5331
3332
@333

V133

21-FLB-69

@600
76M4

SHALT,

SMA
JMP

iflbfl
74%2
5713

726%
1722
$652
2322
1722
3452
2322
5722
agmfi
73E®

DCA

STCTR
EMF
TCTR
I STC?R
I TEMP

{SE

STCTR

JMP

ESE
vAD

CLL

@336

3&62

DCA

Z DLYSC
SCCTR

JMS DLYMS
“175%

4345

634;
3342

6Q3$
2662
533?

343
344
@345
@346
3347
@359

$39@
739%
1&2}
5&63

182

SCCTR'

JMP

‘83

2333

x8?

DLYSC

5733

JMP

OLYMSF

ADDR

/GET

CTR

/AND

SAVE AT TEMP

/GET COUNT
/STORE PER

STCTR

TAD

(5R9

ANQ

C(TEMP}

{EXIT

CLA

HALT

/£xxT.s/.1@LI

1753

(SR6)

’UNCONDITIONAL

SHALT

@334
@335

/HALT?

DCA

DLYSCa

/READ
CLA
I SHALT

TAD RTNND

HLT
JMP

STcTR‘

PAGE

LAS

77flfl
5713

@966

18316

DLYSC

fGEY SECONDS COUNT
/STORE AT SCCTR
150 DELAY
i1 SECOND sigma MSEcis
{DUNE DELAYING?

lyEs
/EXIT

CLA
TAD
DCA

CLL
DELAYM
MSCTR

@351

lméS

TAD

MILi

3352
@353
@354
8355

5664
2%64
5353

DCA
ISZ
JMP

MILCTR
ami

2&63

0356

5351

@357

5745-

[SE
JMP
JMP

MILcTR

/GET

MS COUN?
KSTORE 1N MSCTR
lGET 1 MS CONSTfiNT
IsTORE IN MILcTR
loELAYED 1 MSEC?

MSCTR

IDONE

.WS
I DLYMS

/EXIT

DELAYING?

9AL15

V133

18316

Pl-FtB-bg

2422

2222

MANDO"4
RANGLN.

2431

7222
1242
1227

CLA

7642
5215
1231

85A

CLA

JMP
TAD

RANTAU

3227
1232
71M4
7432
7221
3230

DCA

2425

2426
2427

2412
3411
2412
2413
@414
2415
0416
$417
2420

@421
2422
0423
2424

2425

$426
2427'
2432

2431
2432
2433

2434
@435
2436
2437
2442

@441
3442
2443

1232

NUMBER

GLNLRATOR

TAU
TAU

TAD

CLL

RANTND
RANDEX

RANTBL
RANDEX
RANCON
RAL

52;

RANTAD.

IAC
DCA
TAD
TAD

1627
3627
1243

DCA
TAD

7212

RAR

1627

TAD

2227
3243
1243
5622

152

@442
6543
2462
6543
3212
@765
5432
2127
76b4

177+1

2422

2432
2423
2424

PAGE

RANuax.
RANCONo
RANTBLn

1 RANDEX
RANDEX
DCA RANSAV
TAD RANSAV
JMP 1 RANGEN
RANTND
6543

.*1
6543
3212
@765
5432
2127
7654

4321
1276

4321

RANCUN
RANCON
: RANDEX
I RANDEX
RANSAV

1276
7336

RANTNDa

2222

RANSAV:

SUBROUTINE

”ALIQ

3444
3445
@446
0447

3459

V133

@000
7280
3259
5644

21-FEB-69

/SUBR0UTINE
INITPTI 0
CLA
JMP

@451
@452

9453

@000

/SUBH0UTINE
CEIPTT. @

0454
@455
@456
@457
masg

7209
1256
3251
1251
7901
0252
325%

$462
5465
@464

BINARY

PTQ

/SET
PTB

PT”,
PTlp
PTMSK,

PAGE

INITIALIZE

DCA

@flUg
090%
$377

645;

18816

INIIPT

IEXIT

377

CLA
TAD

PROVIDE

TAD

PTi
PTi

/GET PTB
/STORE AT
/GET PT1

C
AID

PTMSK

ILIMIT

DCA

PTG

1251
5653

JMP

GETPTT

/GET

6%46

$479
@471
@472
@473

72@@
1114

135
TLS
CLA
TAD

764%

SKA

741%
527?
6941

SKP

JMP
TSF

n‘3

5271

.JMP
TCF

[”5

/NO.
/YES.

DCA

PFLAG
I PUNCH

/RESET

@476
@477
ZSQQ

$531

6942
3114
5665

5522

seam

3553
5524

4432
3317
7459
53w3

JMP

/SUBRDUTINE
CHHCNTI

JMS
AND

2537
3519

7941
31v3

”CA

3511
2512
3513
2514
3515
@516
3517

17m2
3952
was
3452
2392
57a2
@977

TAD

CRMSKo

GENERATE

I RANDNO
CRMSK

(CHAR

AC).

lsET PFLAG
/PUNCH

IFLAG
IND
/YES.
/00NE

RESET?

PRINTINva
PUNCH/PRINTER
PFLAG.

FLAG

RESET

IEXIT,
RANDOM

CHARACTER

COUNT.'

(NOT

/2's
TLMP

DCA

SCNT
I TEMP

IS?
JMP

CHRCNT
I CHRCNT

xco GENERATE
IREMDVE HIGH

RANDOM NUMBER
ORDER 6 BITS

COMPLEMENT

SCNT
I CHHCNT

TAD

AC)

BITS

CHRCNT‘i

UCA

(IN

S'VA
.JMP
CIA

3585
3536

ORE AT
PTl
/EXIT

2114

PFLAG
CLA

CHARACTER

PTi

lpU CH/pRlN T ONE CHARACTER 3U8R0UTINE
PFLAG

PATTERN

/INcREMENT ACCUMULATOR

@467

@4?5

COUNT

BINARY

$465
$466

$474

DCA
TAD

@590

PATTERN

COUNT

ISTORE AT SPECIFIED
/SET UP EXIT
/EXIT

ADDRESS

THAN

77(8))

DAL1z

18:16

21‘FEB-69

V133

/SUBR0UTI~E

GENLRATE

3526
2591
.222

RANHUM

DELAY

COUNT

(NOT

”450

{NA

JMP

L?25

794

CIA

dJ66

3023
D726

DCA

JMP
DLYMSK.

DLLAYM
I DLCNT

/EX1T

uLYrSK

532

@277

ULCNT*1

GENERATE RANDOM NUMBER
/MASK GUT UNDESIRED H175.
/zERO?
/YES. GET ANOTHER NUMBER

RANDNO

‘m8
gwr

:223

CHCKI

/g's

COMPARE C(AC)

COMPLEMENT

CONTENTS STORED AT CALL¢1

053

@903

353

3345

VDCA

6533
$534
@535
6536
@537
@546

1731
7041
1345
2331
7646

TAD

5343

4MP

.*3

3541
6542

2331
5751

{SE
JMP

CHCK
I CHCK

@543
@544

TAD

WCHK

5731

JMP

3545

@Zflfl

CIA
TAD
.

1345
-

wCHKp

ISYNC

IGO

277

fiSUBROUTINE

HCHK

CHCK

ISZ

HCHK
CHCK

82A

CLA

CHCK

ISTORE AC AT HCHK
IGET COMPARE DATA
/2'S COMPLEMENT IT
/ADD C(HCHK)
ISET UP FOR UNEQUAL EXIT
/EQUAL (AC 3 0)
IND
SET UP FOR EQUAL EXIT
IYES.
IEQUAL EXIT
IRESTORE AC
luNEQuAL EXIT

TAPE

SUBROUTINE

3546
3547

mama
4426

@556

@566
749%

3551
3552
3553

SYNK:

JMS

SYNKA.

SETCTR

name

/CTSK
/CLEAR AC
IREADY?

KCC

@555

6034

KRS

2556
3557
2556

1117
7640
7419

TAD
SZA

2561

5746

JMP

CTSK
SYNKA

KSF

JMP

xwo.

.01

/YEs.
MRBOUT
CLA

/377?

SYNK

IYES.

TEST

@ND

FLAG

AGAIN

READ

sap

@552

2366

15%

3563

5352
7462
5347
009%

J49

3566

COUNT OF
(DEC) IN

/«256

3554

2555

/SET

075K

6032
6031
5353

3554

THAN 3777(8)).

DLCV‘,

A600

«432
6339

0324
3527
@530

PAGE

HLT

4MP

CTSKa

SYNK+1
.

EXIT

IBUMP CHAR CYR +1
IGO READ AGAIN
x256 CHARS RFAD.
loo T0 SRST
/CHAR COUNTER

CAN'T

SYNC

pAle

V133

21’FEBE69

@690

@6D2
3603
@684
3605
0606

@667
0610
$611
@612
@613
@614
56 5
06

@617
@620
3621
0622
0623
0624
@625

@000
7200
1690
3223

MOVE;

MOVE

CLA
TAD
DCA

1 MOVE
FADDR

152

MOVE

TAD
DCA

1600

TAD

1 MOVE
TAODR
MOVE
1 MOVE

3225

00A

MCTR

:sz

152‘ MOVE
MOVEAa

DCA

152
15?

2224
2225
5213
5609
0009
@009
@000

VARIABLE LENGTH DATA FIELDS

/GET

"FROM

,STORE
[GET

"To

ADOR"
FADDR

ADDR"

AND

,svone AT eron.

IGET "MOVE COUNT"
ISTORE AT MCTR.
ISET UP FOR EXIT.

AND

CLA
TAD

1623
36 4
22

2250
.1600
3224
2200

2299
72gfl

PAGE

177*1

/§UBROUTINE
3630
3631

18:16

FADDR
I TADOR
FADOR
I

TADOR

[SE

MCTR

JMP
JMP

MOVEA

FADDR,

'TADDR.

"CTR:

MOVE

[GET "FROM" wono
lsToRE AT "TO" LOCATION
1.1 To "FROM" anon
/.1 To "70” Anon
lALL wonos novzoé
/No. Go MOVE AGAIN
IYES. 2x11

”ALla

v153

21'FgB-69

1000

“A 177*1
/PROGRAM

18:16

1000
1001
1002
1003
1004

1005

PRU}:

7200

CLA
TAD

1021
4515
1022
4515
5200

NUMBER

/SPECIFIED

PAGE

JMS

PTEHP
1 UPUNCH

TAD

PTEH91

JMS

/PRoGRAM
4507
4510

1911

4515

UPUNCH

lPUNCH

C(PTEMPi)

IREPEAT.

NUMBER 4. PUNCHES'TEST TAPE NITH BXNARY COUNT PATTERN.
CLA
.A'
JMS l INPATT
IINITIALIZE BINARY COUNT PATTERN
JMS 1 GETPT
IGET BINARY COUNT CHARACTERAII
IPUNCH CHARACTER
JMS x UPUNCH
‘

PRU4A

1012. 5210

/PRocRAN
/

1913
i014
1015
1016
1017
1020
1921

CHARACTERS

PTEMPIQ

IGET C(PTEHP)
/PUNCH C(PTEMP)
IGET C(PTEMPi)

‘

JMP Pass

7200'

WITH 2
AND

PTEMP;

LOCATIONS

1006
1927
1010

TAPE

PUNCHES TEST

SYMBCL1C

4506
3317
4507

S-READS COUNT PATTERN-RANDOM NUMBERED caoups.
ExxEo RANDOM DELAY
CHARACTERS IN A GROUP.
c TA E
JMs I SYNC
DCA ERRCTR
COUNTER

YEETNEEN

'pRG5'

_JMS

6052

._ch

IELEAR ERROR

/:~:TIAL12E PATTERN.
ISTART READER

lNPATT
-

1023
1224

3276

DCA

4430

13256

4271

JHS
JMS

923%

xsz ETRA,

IGENERAYE DELAY COUNT
xco GENERATE AND STORE
IRANooM CHAR. COUNT
IGET PATTERN CHAR
ISTORE AT 5959.
xco DELAY
Ico READ AND CHECK CHAR,
IGROUP DONE?

JHP saves

/NO

1922

1957
1030

‘1uslj
1032
1033
1034
1035
1036
1037
1040
1041

sRToA.* JHS : DLYCNT

4513
4512

JMS

6101

_-,

SRTOB,

451a

5217

JM5

CRCNT

1 GETPT
5859
z ovans
READCK

SRTBA

IvEs. START AcAgw
/
proGRAN 5-READS COUNT PATTERNnFIXEO DELAY
Pace.
JMS t SYNC
Istc TAPE
DCA ERRCTR
ICLEAR ERROR COUNTER
JMP

aErNEEN CNAEAcTEns

4506
3317

4507
6032
4510
3276
4430

z
CTRA,

JMS
zxcc

5R11A,

JMS
DCA

JMS

'/INITIALXZE

INPATT

ISTART

: GETPT
5359
1 DLYlHS

READS:

ATTERN

15E? PATTERN CHAR.
/STORE AT
.150 DELAY

5839

4271
5235

JMS

READCK

JMP SRT1A

IGO READ AND CHECK CHAR.
'IREPEAT

”A117

V133

21‘FL8969
7

/PHOGRAM
1042
1043
1944
1045
1046
1047
1050
1051
1052
1953
1054

1355
1056
1Ds7

7200
3317
4320
6032
4513
4512

0101
4350
3276

18'16

PRG70

CLA

READS CHARS
RON TAPE AND MATCHES A
TEMP AND TENP1. RANDOM DELAY BETNEEN

DCA

ERRCTR

/CLEAR

JMS

ALIGN

DLYCNT

JMS I CRCNT
CTRA
JMS GIVE
DCA SBSP

4430

JMS

4271
2101
5251

JMS

READCK

JMP
JMP

AINST CHARS

SHARS.

COUNTER

READER

/GENERATE DELAY COUNT
xco GENERATE AND STORE
IRANDOM CHAR COUNT
IGET CHARACTER
ISToRE.AT SBSP

DLY1MS

IcovDELAY
IGO

IS? DTRA

5246

ERROR

/START

JMS -1

SRTZBI

—

KCC

SRTZA.

PAGE

AND

READ

CHECK

CHAR

[GROUP DONE?

SRTZB

IND..

SRT2A

IYES START AGAXN

/PROGRAM

1060’
1061
1062
1063
1064
1065
1066
1067
1070

7200
3317

CHARS.

PRulup

*CLA

4320
6032

4350
3276

10'9 SAME

./CLEAR ERROR COUNTER.’
/

JMS

4271
5264

JMP

READCKI

0000

5305

1174

1135

3317
7604

LAs

1136

0055

.AND

1107

7640
7402
7604
7700
5671
1317
7402

32A
HLT
LAS
SMA

1110
1111

1112
1113
1114
1115
1116
1117

ALIGN

GIVE
DCA SBSP
JMS I DLY1MS
JMS READCK

4430

KSF

5272
6036
4511
0000

JMS

5311
2317

,JMP

7240

HLTTSTI

5671
ERRCTRn

CHhCK

JMP

ERRCNT1

xco
IGO

SBSP

DELAY
AND

READ

CHECK

CHAR,

[REPEAT.

"/READY?
0‘1

5301

0000

SRT3A

/START READER
ISET CHARACTER.
/STDRE AT

6031

SBSP:

JMS
KCC.

SRTSA,

SRT2, BUT FIXED DELAY BETWEEN
IS SPECIFIED IN LDC
DELAY“.

DCA ,ERRDTR

1071
1072
1073
1074
1075
1076
1077
1100
1101

11a:

DELAY

/READ CLEAR AC AND FLAG,
/GO CHECK CHARACTER WORD.
/

ERRCNT
HLTTST

ISZ ERRCTR
1‘3

JMP
DLA

CMA

DCA

ERRCTR

/ERROR.

IOFLON.

RESET

SR;

CLA

IHALT

IYES.
/READ

CLA

IHALT?
/NO
EXIT

TAD
HLT
JMP

ERRCTR

READCK
READCK

MATCH.

INC.

/1NCREMENT ERROR COUNTER

/READ

SRSNSK

JMP

[TEST AGAIN.

/DET

7777:

ERROR?

ERRDR CDUNT
ERRDR CDDNT

/HALT,
/EXIT.

/ERROR

CDUNTER

ERRCNT

°AL13

V133

18:16

21‘FEB'69

PAGE

1120
1121

1122
1123
1124
1125
1126
1127
113a
1131
1132

1133
1134
1135
1136
1137
1145
1141
1142
1143
1144
1145

KRS

CIA

17%

1157
1169
1161
1162

7340
3346
1021
5759

ALZ,

IREADY?_
/TEST AGAIN!
/READ CHARACTER,
/2’S COMPLEMENT IT.

ATEMP
ATEMP

TAD

PTEMP

SNA

CLA
ALI

/XS

ATEMP

/N0.

/STORE AT

TEMP.

CHAR

PTEMP?

PTEMPl?

PTEMPl

4MP

CLA
AL2

HLT
JMP

ALIGN+1

118 IT CHAR
/YES.
IND, ERROR.
IREPEAT.

DCA

IND

/SET

IND

—1

JMP

l'ALIGN

DCA

IND

"/sET

IND

JMP

SNA

ALl,

.41

DCA
TAD

JMP
TAD
TAD

5321

3346

1152

JMP

7041
3347
1347
1021
7650
5341
1347
1622
7650
5344
74%2

1154

1159
1151

CLA
KSF

6034

1153

1147

ALIGN,

6931
5322

704%
3346
5720
3346
572%
@929
@000
@206
7260
2346
5357

1146

WW/

EDME
726%

CMA

ALIEN

INU.
ATtMPo
GIVE;
CLA

IS?
JMP
UCA
TAD
JMP

IND

IIS

IND

-1?

/NO.
IND
PTEMP
I GIV

xyas.
/GET CHAR FROM

DCA

-IND

TAD

PTEMP

/SE7
/GET

JMP

CMA

51v:

xgxrr,
IND

cHAR
75x17,

TEMP1

TO -1.
FROM TEMP,

°AL12

V133

21'FE8969

1200

*9 117*1
/PHOGRAM
IPROGRAM

4426

1200
1201
1202
1203
1204
1205
1206

0000
1225

pRGg,

18316

53/35
INPUT
SETCTR

ASR
CHECKS

JMS.I

0020

KSTART

1295
5604

POTSO
JMP 1

0232

SRSET

PAGE

TELETYPE BASIC INPUT TESTS.
IOT'S, INTERRUPT. AND READER
ISET KSTART I0 INITIAL
InouTINE

.41

ISO

START

TIMING

ADDRESS.
TEST

POT50,
/Issue
/AC

1207
1210
1211
1212
1213
1214

NOT

POT81
KCC WITH
0

0101
6030
7240
6032

524

1215
1216
1217
1220
1221

5221
2101
5212

JMP
152

1222
1223
1224
1225
1226

7240
6032
5222
0001
1246

5424

1227
1230
1231
1232
1233
1234

4426
0023
7470
4426

1235
1236
1237
1240
1241
1242
1243
1244

6032
4430
6031
5244

1245

5232

P0E0.

43751.

Ioofiev

JMP
JMP
HLT

.‘5
CHAIN

/N0,

CMA

JMP

.-2

ERROR.

REPEAT

ICHAIN
ITSTO ERR HALT.- ch DID
/NOT RESULT IN AC - 0

CLA
«cc

TIMES.

/SET
.

ICLEAR

TO
AC

7777
AND FLAG

’RPEAT

1
90132

/ISSUE KCC wAIT 200 MSEC FOR FLAG TO SET
FAILURE TO SKIP INDICATES
/5KIP ON FLAG.
ITHAT FLAG IS NOT SET. 0R KSF FAILURE.
/TEST IS DONE 100 TIMES.
JMS I SETCTR
ISET DELAYM
DELAYM
ITO -200
«310

P0781Aa

JMS I
CTRA
-144

P078180

KCC

@101
7634

JMS

SETCTR

DLYlMS

5235
5424

Pflfiln

IGO SET COUNT 0F
l-100 (DEC) IN
ICTRA
/CLEAR AC AND FLAG
IGO

DELAY

JMP
IS?

P051
CTRA

ISKIP ON FLAG I 1
/ERROR4 GO TO E1
IALL DONE?

JMP
JMP
HLT

PUTSIB
I CHAlN

/N0, REPEAT
ICHAIN

JMP

PMTSIA

KSF

2101

7402

CTRA

«cc

7440

7402

POE0

JMS I SETCTR
CTRA
-1750
CLA CMA

4426

SHOULD 50
0.
TEST IS DONE 1000
ISET COUNT or
/.1000 (DEC) IN
ICTRA
ISET AC 70 7777
ICLEAR AC AND FLAG
Its Ac 3 0?
co T0 POE0
/~o

ACt7777.

INDICATES KCC FAILURE.

/T5T1 ERROR HALT: FLAG
/SETo 0R KSF FAILED
IRESTARTING TEST:

NOT

”ALla
1246
.1247

V133

21-FEBsb9

@@@2

P9152:

1275

18:16

PAGE

15'

2
PMTSS

/ISSUE KCC. WAIT 20% MSEC FOR FLAG
ISKIP ON FLAG iflflfl'TIMES
VERIFY

1252
5

{552
1253
1254
1255
1256
1257
1252
1261
1252
1253
1264
1265
1266
1267
127%
1271

4426

@923
7479

4426

@101
6330
6032
443%

PETSZA;

JMS I SETCTR
DELAYN
5310
JMS I SETCTR
CTRA
«175$
KCC
JMS I DLYlMS

6631
5267

KSF

6031

KSF

5271
2101

JMP

PELZA,

5256
7492

PEEZB,

HL$ P

‘

IND,

UTszA
.

23%: 2513

JMP

DONE?'
REPEAT
/CHAIN
/TST2 ERROR HALT: FLAG
INOT SET 0R KSF FAILURE.

/ALL

‘

KSF

DELAYM

~20“
.

.33
I CHAIN

6031

/SKIP ON FLAG l 1
/010 NOT SKIP, GO TO E28

‘

1272

SET.

CONSISTENT SKIPPING.

/G0 SET COUNT OF 1909
/(DEC) 1N
/CTRA
/CLEAR AC AND FLAG
lGO DELAY
0N FLAG 3 1
[SKI
.[DID NOT SKIP. GO T0 52‘

PEEZB
CTRA

7402

5424

/TO

PgEZA

JMP
152
JMP
JMP
HLT

5262

/sET

ITSTZ ERR HALT 8.
-/KSF FAILURE.
/sxzp ON FLAG . 1
IREPEAT
xnzpzar

pAng
1275
1276

V133

21’FEB’69

0003
1327

P9'S5t

18816

PAGE

P0TS4
/

/ISSUE KCC. .NAIT
/VhRIFY THAT FLAG

/SKIP
/SKIP

200

MSECS

SET,

TIMES TO

FLAG sum
OCCURS WITH

FLAG

FOR FLAG TO SET.
RESET FLAG (KCC) AND
VERIFY THAT NO

1277
1300
1301
1302
1303
1304

1305
1306
1307
1310
1311
1312

4426
0023
7470
4426

JMS I SETCTR
DELAYM
u310
JMS I SETCTR

0191
7014
6032
4430
6031
5320

CTRA

“764
-’
KCC
JMS I DLYLMS
KSF
JMP PMESA

PQTSSAR

6032

KCC
KSF

6031

/SET DELATM
/T0 HZQZ.

ISET COUNT or
/.5@@ (DEC) IN
ICTRA
ICLEAR FLAG

'»/co DELAY

IREADY?
ERROR
RESET FLAG
IYES.
IREADY?

/No.

1315
1316
1317
1320

5424
74n2

P0t3A.

JMP
JMP
ISZ
JMP
JMP
HLT

1321
1322

5305
7402

Pafiaa.

H LT

lgii 53%2
2101
5312

P063B'
CTRA

.u4
CHAIN
,

0K
INo.
ERROR
lyEs.
/ALL DONE TESTING?
REPEAT
1N0.
CHAIN
'IYES.
FLAG
/TSTS ERR HALT A.
INOT SET 0R KSF FAILURE
'

JMP

POT53A

/TRY AGAIN
FLAG
ITSTS ERR HALT Ba
/FAILED TO RESET: 0R KSF
/SK1PPED ERRONEOUSLYu

/TURN OFF READER BEFORE
ISGDPE

LOOP:

1323

6032

324

603

KCC
KSF

532
5323

JMP
JMP

i325
1326

.w2

ICLEAR FLAG AND AC
xsxzp ON FLAG = 1
/REPEAT

'93.

/REPEAT

PAL10

1327
1330

1331
1332
1333
1334
1335
1336
1337
1340
1341

1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357

1360
36

V133

21'FEB'69

0004

P0754:

4426

1345
6042
6032
6031
5336

6032
6001
7000
6002
5347
7402

CHECKS THAT NO OTHER DEVXCE CAN CAUSE
THEN CHECKS THAT THE READER FLAG IS CAPABLE OF
JMS I SETCTR
-/SET INTERRUPT RETURN
2
ITO POE4A.
POE4A
P0TS4An TCF
/CLEAR PUNCH/PRINTER FLAG
KCC
ICLEAR READER FLAG AFTER
KSF
lIT COMES UP
JMP 3'1
KCC
ICLEAR READER FLAG
ION
/ENABLE INTERRUPT
N09
ITURN OFF INTERRUPT
10F
JMP ,+3

INTERRUPTING.

Pacaa,

JMP

POTS4A
I SETCTR

JMS

CTRA
.1750

6030
4426
0002

/UNEXPECTED INTERRUPT
ITRY AGAIN
ISET CTRA To

HLT

4426

JMS

lu1000

SETCTR

/SET INTERRUPT
/TO POTS4C.

.2
PUTSAC
KCC

1371
6032
6031

7402

KSF

PETS4Bt

JMP
ION

[WAIT FOR
ITO SET

0'1

IENABLE

PgE4e,

HLT

4426

JM3

0962

1370

FLAG

SETCTR

IREADER FLAG FAILED T0 INTERRUPT:
[0R INTERRUPT SYSTEM MALFUNCTION
ISET INTERRUPT RETURN
ITO POTS4C“1.

P0TS4C61

1366
1367

6001
7000

NOP

1370

5366

JMP

1371
1372
1373

ION
032

53?@

152 CTRA
Pars4c. JMP
POTS4B

5424

JMp

READER

INTERRUPT

ISCOPE‘LOOP

RETURN

NOP

1363
1364
1365

INTERRUPT.

IAND

0191

7000

/THIS ROUTINE

5334

5356
600

PAGE

POTSS

1400

0002

18116

CHAIN

IDONE?

/N0.REPEAT

PAL1a

1400
1401

V133

21'FEBF69

1400
0005
1424

’. 177.1
5
PQTS50
PET56
thADER

18:16

PAGE

TEST. CHECKS THAT READER FLAG IS '1 N0
ILATER THAN 110 HILLISECONDS AFTER KCC INSTRUCTION IS
TIMING

ISSUED.

1‘92

JMS I SETCTR
DELAYM
-156
JMS 1 SETCTR

4426
09

3
2

404
1405
1406
1407
1410

6032

1411

4430

JMS

1412
1413
1414
1415
1416
1417

6031

KSF

5217
2191
5210

JMP

1420
1421
1422
1423

76
4426

0191
7634

PBTS5Aa

'6032
6031
5221
5220

DLYIHS

DELAYM

ITO-110
ISET COUNT or
1-109 (DEC) !N
ICTRA
ISTART READER. CLEAR PC FLAG
IGO DELAY 110 MILLJSECS

PDES

IS! CTRA
JMP PatssA
JMP 1 CHAIN

5424

7402

CTRA
-144
KCC

ISET
,

Pats.

11515 ERR HALT. FLAG Nov-1
I110 MSECS AFTER KCC INSTRUCTION.
ISTART READER, CLEAR FLAG. AC.

HLT
KCC
KSF

JMP
JMP

’FLAsll?

.-1
.-3

INO. TEST AGAIN
IVES. REPEAT.

PALlfl
1424
1425

V133

21~FE8_69

Dflfib
7777

PETsén

18!16

PAGE

7777

15 READ

/RLAD 256 DIFFERENT CHARACTERS. EACH CHARACTER
ITO VERIFY CONSISTENCY 0F READING FROM TTII
/
’

1426
1427

1436
1431
1432

1433
1434
1435
1436
1437
144a
1441
1442
1443
1444
1445
1446

1447
1459
1451
1452
1453
1454
1455
1456

4426

JMS

Gigi

CTRA
n4QB

7400
6@32

JHP

DCA

PflTséaa

7fl41
1266

5424

1266
7402

H7868
HTS6B

NTSéA

JMP
£52
JMP
ISZ

5256
21fl2
5241
2191
5231

PfltbA,

P0
CT

6‘
9

JMP
JHP

PETSOB
CTRA
PQTS6A
I CHAIN

TAD

HTSbB

1463
i464
1465
1466
1457

Pghéag

7250

CLA
KRS

5263

JMP

”TséAc

wsta,

IAESULT a?

0
a

IND. ERROR. 50 T0 56‘.
IREAo CHAR xaaa TIMES?
IND. 90 READ IT AGAIN,
lvis. READ 256 DIFF. CHARS?
IND.
Ivzs. CHAlN
‘

CONTINUE

HTSGA

xrsye
/WHAT
13:.

6034
5699
EQQQ

ISAVE AT NTSéB
IcET IT BACK.
12's COHPLEHENT IT
I no EXPECTED CHAR

IKEY

HLT

7681 AGAIN.

IREAD CHARACTER.
ISAVE AT HTSbA.
ISET COUNT 0F
ICTRB
lalflflfl (DEC) 1N

77376 ERR HALT A. Ac DESPLAYS
zxucoanzctLv READ CHAR. napness

HLT

CLA
TAD

A
0
ST RT R R .

IREAD CHARACTER.

DCA
TAD
CIA
D

F LAG.

AC.

-175 6
CLA

39A CLA

7646

1461
1462

SETCTR

KRS

3267
1267

72@@

NTSéA

JMS 1
CTRB

693$

1459

INC.

3'1

KRS

6102

1267
7402

ISET COUNT 0F
l-256(DEC)
l1
CTRA
/c

4426.

1457

SETCTR

/READR?

6331
5232
6934
3266

729$
6%34

ERR HALT 9.
THE CORRECT

IREAO CHARACTER
IL

otspLAvs

AC
CHAR

SHOULD

1009

TIMES

PAL12

1622
62

160

1603
1624

V133

21'FEB'69

1600

I
177*1
5
IpRoGRAM 1.

4426
00 0
16 5
5604

0232

18116

PAGE

ASR35/65 TELETYPE BASIC OUTPUT TESTS.
IPROGRAM CHECKS OUTPUT IOT.S. INTERRUPT. AND TIMING.
JMS I SETCTR
PRG1.
lsET KSTART To INITIAL
IROUTINE ADDRESS.
KSTART
P1TSO
JMP I .21
IGO START TEST
SRSET
.

1605
1606~

0000
1635'

P1752,

2
'

P1T51
I1. TLS AN
3 FOR FLAG TO SET. SKIP 0N 2LA5=1 173;).
waT 222 25'
SKIP. 0R
HALT P1EOA occuRs. FLAG NOT SET. 0R TSF FAILURE.
'/22 H1TH FLAGB12 SKIP ON FLAG 1000 TIMES T0 TEST FOR CONSISTENT SKIPPING.
IFAILURE’TO SKIP CAUSES ERROR HALT P1EOBc
JMS I SETCTR
(-200 T0 DELAYM

ERBBR

ITSF-SHOULB

1607
1610
1611
1612
1613
1614
1615
1616
1617
1620
6

4426

2223

DELAYM

7472
4426

I319
JMS 1

2121

CTRA
-1752
CLA

6030
7222
6246
4432
6241
7
5

1652 6531
1623
1624
1625
1626
1627
1632
1631

1632
1633
1634

217524.

P1Tst.

5231
2121
5222
5424
7622
5215
7622

6241
5232
5232

TLS
JMS
TSF

JMP
TSF

P1EOA

JMP

P1E08

6152

PitgA '
21222,

SETCTR

DLYlMS

‘

CTRA

JMP
JMP

P1TSOB
1 CHAIN

HLT
JMP
HLT

TSF
JMP
JMP

52A

CLA
.-1'
1'2

/.1222.To

CTRA

ICLEAR Ac
ISTART PRINTER/PUNCH
/DELAY 222 MSEcs.
IFLAG=1?

IND. ERROR
IFLAG=1?
IERROR. FAILED T0 stp.
IDONE?
IND..REPEAT.
IyEs. CHAIN
FL 0 NOT=1
[ERR HALT A

AFTER

/222 MS
s;'0R 5F FAILUR
IERR
B. TSF FAILED 7
ISCOPE Loop. sles 0N
IFLAG CONTlNUOUSLYn

RAE?

SKIP

pH.121

1635
1636

1637
1646
1641
1642
1643
1644
1645
1646
1647
1656
1651

1652
1653
1654
1655

V133

21‘FL8*69

9661
1656

P1T31p

4426

18:16

CTRA'

6030
6042

.1750
TCTS

p1751A.

7410

5251
2191

/CL E AR

FLAG

CTRA

1666

TIMES

VERIFY

THAT

F LA G

SKP

PlEi
152 CTRA
JMP PlfslA
JMP I CHAIN
HLT CLA
JMP

5243
5424
7602

PlTSZ
/ISSUE TCF TO CLEAR FLAG, SKIP
ISKIP OCCURS erH FLAG=U
/-1066
JMS 1 SETCTR

@101

6041

'PAGE

P151.

6642

TCF

6541
5253
5253

TSP

JMP
JMP

/ERR HALT. AFTER CLEAR FLAG
ITSF INSTRUCTION SKIPPED.
ISCOPELOOP. CLEARS FLAG.
IADN THEN SKlPS ON FLAG

(TCF).

ICONTINUDUSLY.

.-1
.92

1656
1657

1983

P1752,

115505

1660
1661
1662
1663
1664
1665
1666
1667
1679
1671
1672
1673
1674
1675
1676

[SHQULD

OCCUR.

PITS2A1

JMS 1
CTRA
.144
CLA

4426

@191
7634

72E0
6946

FOR FLAG
SKIP

SETCTR

CLEAR FLAG (T
TCF INSTRUCTION
T0 CTRA

SET.

occURS,
/61@@

TSF
JMP
TCF

5265
6042

TSF

6041
741%
5276
21ml

6642
5277

SKIP

.«1

SKP

JMP

P1t2a

P152

[SE

CTRA

JMP

PlTSZA
I CHAIN

4MP
HLT

CLA

ngR HALT,

TCF

FAILED

/FLAG.
1677
173%

p).

TCF

JKp

ISCOPE
,.1

LOOP.

CLEARS

/CONTINUOUSLY,

FLAg:1,NO SKIP

§CLEAR FLAG). FAILED,

71$

6041

5263
5424
7602

2
P1TS3
YLS. NAIT

FLAG

RESET

V133

21"F£B-69

1731

OOOS

PlTs3,

,1722

1746

DAg1Z

1733
1724
1735
1736

1737
1710
1711
1712
1713
1714
1715
1716
1717
172%
1721
1722
1723
1724
1725
1726
1727
1739
1731
1732
1733
1734

1735
1736
1737
174%
74

4426

JMS
2

P1TS3AI

SETCTR

OTHER DEVICE CAN CAUSE AN
PUNCH/PRINTER FLAG CAN CAUSE
/SET INTERRUPT RETURN TO
NO

IPIESA

KCC

JMP
TCF

6002

5321

P1E3A,

4426

/CLEAR

READER FLAG 1r up.

ION
NOP
IOF
JMP
HLT
JMP
JMS

/CLEAR

PUNCH/PRINTER FLAG

.ai

/ENABLE

/DISABLE INTERRUPTS

.43

PITS3A
I

SETCTR

/UNEXPECYEO INTERRUPT.
/TRY AGAIN.
[“1969 T0 CTRA.

91756

4426

JMS

@002
1743
6&46
6041
5339
6391
7999

SETCTR

P1TS3C
TLS
TSF

JMP
PlTSSBa

ION

PitEB;

HLT

‘

n'i

/SET INTERRUPT RETURN

/To p1TS3C

IsTART PUNCH/PRINTER
/FLAG UP?
1N0. TEST AGAIN
IvEs. ENABLE INTERRUPT

NOP

SETCTR

/PR1NTER FLAG FAILED TO INTERRUPT
/OR INTERRUPT MALFUNCTION.
ISET INTERRUPT RETURN

4426

JMS

name
1742

/TO

Plrssc~1
ION

/sCOPE

6OU1

5424

PITSSC-l

LOOP.

NOP

7900
5340

1745

INTERRUPTSv

CTRA

Olfll
603%

1744

INTERRUPT.
INTERRUPT,

TLS
TSF

7039

2101
5332

1743

P153A

6691

7402

PAGE

3
P1TS4
/THIS ROUTINE CHECKS THAT
/AND THEN CHECKS THAT THE

OOOZ
1717
6932
6046
6941
531%
6042

7462
5306

18:16

P1TS$CI

JMP
152
JMP

u’2
CTRA

P1TS$B
JMP I CHAIN

IDONE?
/N0. REPEAT
/vEs. CHAIN

PALIZ

1746
1747

6664
7777

18:16

21-758469

V133

P1T34.
"

pAGE 23

‘

7777

/PUNCHIPRINTER TIMING TEST. CHECKS THAT FLAG
lllz'MILLISECONDS AFTER TLS INSTRUCTION
JMS I SETCTR
DELAYM
«156

7.116

DELAYM

JMS I SETCTR

7.166

CTRA

6641
5365

JMS I 61y1ms
TSF
JMP p124

760 DELAY
lFLAG-i?

IND.

2161

152 CTRA

lvEs.

5356
5424
7662

p1Ts4A

HLT

CLA

1756

4426

1751
1752

6623
7622

1753
1754
1755
1756
1757
1766
1761
1762
1763
1764
1765

1766
1767
1776
1771

4426

6161
7634
6646
4436

P1TS4A1

CTRA
-144
TLS

ISTART

665 I CHAIN
6164.

6646

TLS

6641
5367

JMP

5366

JMP

TSF‘

.61
.-3

'7
.’

15:1

LATER

PUNCH/PRINTER
116 nszcs,

ERROR.
DONE?

RE EAT.

7425. cflAIN

/ERR HALT. FLAG NOT 1 116 HSECS
IAFTER TLs INSTRUCTION.
Iscop: LOOP. START PRINTER

7:1 6:17
/NO. CHECK AGAIN

/yES

REPEAT.

THAN

V133

PAL1Z

209%

2Ozz

4426

2931

maze

2622
20a;
2994

2005
56$4

@232

18:16

21-F58a69

PAGE 24

*. 177*1
IPHOGRAM 2. ASR36/65 TELETYPE READER TEST. CHECKS ABILITY
,/TU CORRECTLY READ AT FULL SPEED AND WITH RANDOM STALLS.
'PR52;
JMS T
lsET-KSTART T0 INITIAL
SETCTR
KSTART
/ROUTINE ADDRESS.
R2Tsm
JMP I .+1
xco.sTART TEST
SRSET
:

2065
2036

@900

P275“,

2035
lRtAD
IREAD

P2T51
INEXT RTN AODR.
4995 CHARACTERS. AT FULL SPEED. MATCHING
AGAINST COUNT PATTERN

2027
2010

4506
4426

2011
2012

0101
OOO1

.7777

663

K00

450

JMS

3914

2015
2016

2317
2620
2921

451a

3223
6931
5217

EACH

CHARACTER

I
I

JMS
JMS

/GO

SYNC
SETCTR

CTRA
‘

P2TSMA,

SYNC

TAPE'

ISET COUNT OF
/.4095(DEC) IN
ICTRA
READER
INITIALIZE

(START
I
I

INPATT

JMS
GETPT,
DCA SBZ

IGO

PATTERN

IGET PATTERN CHARAcTER
'lsTORE AT 880

KsF
'

JMP

.ul

KRB

6036

JMS

2922
2M23
2324
2925
2926
2927
ZESD

4511
COCO

58”,

szsg
2101

PZTEBA

JMP
ISZ

5215

JMP

5424
74%2

PZth

JMP
HLT

2031
2fl32

726%
1223
74%2
5225

CHECK

PZEO
CTRA
P2TSRA

CHAIN

/READY?

TEST AGAIN
READ CHARACTER
/GO CHECK FOR CORRECT
ICORRECT CHAR HERE
GO TO PZER
/ERROR.
ALL DONE?
loK.
REPEAT
IND.

/NO.
»/YES.

MATCH

CHAIN
/YEs.
Ac CONTAINS
ITSTifl ERR HALT.
ICHAR THAT DID NOT MATCH
EPRESS
/ACAINST PATTERN.
IKEY CONTINUE
'

2033
2034

CLA
TAD

SBO

HLT
JMP

/GET
IAC

PZTEB

CORRECT
CONTAINS

CHARACTER
THE EXPECTED

CHARACTER

READER

’ALiz

2035
2036

V133

21‘Ft8'69

2001
2067

P2l51.

18:15

PAGE

PZTSR
/RtAU ZDDE CHARACTERS
/MATCH EACH CHARACILR

NITH

READ

RANDOM DELAY HETNEEN CHARACTERS.
AGAINST COUNT PATTERN

2037
2040

2041
2042
2043
2044
2045
2046
2047
2050
2051
2052
2053

4506
4426

4950

~6720

6052
4507
4510
3255
4513
4432
6031

KCC

0000

2063
2064
2065
2066

PZTSIA.

5262
2101
5245
5424
7402

JMS
JMS
DCA

JMs
JMS

SYNC

SETCIH

INPATT

GETPT

881
I DLYC
I

881,

JMP
KRB

9'1

JMS

JMP

P2T181

CHECK

I32

P2E1
CTRA

JMp pZTslA

PZLII

JMP
HLT

7200
1255

CLA

7402

HLT

5257

JMP

TAD

CHAIN

/TO SYNC TAPE
/sET COUNT 0F
/—2OOD (DEC) IN
/CTRA
/START READER
/INITIALIZE PATTERN

/GET PATTERN CHARAcTER
/5TORE AT 881
T

DLYluS

KSF

5251

2054

2057
2060
2061
2062

JMS I
CTRA

0101

6036
4511

293?

JMS

/DELAY
/READY?

/NO,

TEST

AGAIN

/YES
READ cHARACTER
/CO CHECK FDR CORRECT
/CORRECT

CHAR

/ERROR,

/OK,
/

ALL

MATCH

HERE
To p251
DONE?

x595.

CHAIN

AC CONTAINS
/TST1 ERR HALT.
IcHARACTER THAT DID NOT MATCH
DEPRESS
IACAINST PATTERN.
/KEYCONTINUE

$81

PZTIB

/GET CORRECT
IAC CONTAINS
/CHARACTER

CHARACTER
THE

EXPECTED

JAglz
2267
2279

18316

21'Ft8'69

V153

EBW2

R2132.

’RtAU

WITH

Ile

GROUPS

PAGE

7777

RANDOM STALL BETWEEN RANDOM CHARACTER GROUPS
READ.

2271
2272
2273
2074
2275
2276

2077

212%
2131
2132
2123
2124
2135
2156
2127

211%
2111
2112
2113
2114
2115
2116
2117

2129

4596
4426

JMS
JMS

Elfll

CTRA

7634

~144
KCC

6032
4507
4513
4512

JMS

P2T32A:

0192
4512

SYNC

/GO

SETCTR

I
I
I

DLYCNT

COUNT or
/—1CO (DEC) IN
/CTRA
/START READER
/INITIALIzE PATTERN
lsET RANDOM DELAY
lsET RANOON CHARACTER
/cOUNT IN CTRB
IOET PATTERN CHARACTER
lAND STORE AT 882
/OO DELAY No or

INPATT
CRCNT

CTRB

P2TSZB:

JMS
DCA
JMS
KSF

3311
4436
6631
5385
6036

JMP

KRB'
JMS

4511
@000
5320
2102
5392

582,

2191
5277

PQTZCI

5424
7432

JMS
JMS

P2521,

I GETPT
882

DLY1MS

.01,
1

CHECK

SYNC

/REAOv7
TEST AGAIN
/NO
IR
CHARACT
ECK FOR
IAGAINST 332 CONTENTS
Go To P2E2
/ERROR.
ALL CHARS FOR GROUP
/oK,

R510

JMP
ISZ
4MP

P2E2
CTRB
PZTSZB

ISZ
’JMP
JMP

CTRA

/YES.

PZTSZA
I CHAIN

INO

HLT

TAPE

/SET

cogRECT-MATCH

DONE?,
'

/ND

IVES.
ITSTz

[DID

ALL

GROUPS

DONE?

CHAIN
Ac CONTAINS CHAR
ERROR MALT.
NOT MATCH AGAINST RATTERN.. DEPRESS;KEY

THAT'

IOONTINUE

as;
2123
2124

CLA

TAO

7402
5315

882

HLT
JMP PZTZC

IGET CORRECT CHARACTER
IAC CONTAINS THE EXPTECTED CHARACTER

DALIZ

V153

21'FLB'69

18:16

/pH612.

A5R33TY

/CHECKS

OPLNATION

AUTOMTIC pUNCH OPTION TEST

,pUHON.

ANU

ALL

/RLAUER

ANU

PUNCH.

TAD
DCA
JMS
TAD

K7650

PAGE

BY PUNCHING RUHOUTS WITH
WITH PcHoF, THE TAPE RESULTING
/SHOULU HAVE ALL RUBOUTS, AS THE TAPE SHOULD NOT ADVANCE
/wHEN PUNCHTNG WITH PCHOFF. THE READER IS USED TO CHECK THE
ITAPE, REPEATED FAILURE OF THE PUNCH FEED T0 TURN ON WILL
/EVENTUALLY BL INDICATED BY TIGHTENING 0F SLACK BETWEEN
U'S

AUTOMATIC
CHARACTERS

PUNCH

2244
2245

2246
2247
2250

1242
3326
4273

PR512,

1236

2257
2260

4311
1233
4311
4311
2102
5253
1241
4311
1191

2261
2262

3102
1235

2263
2264
2265

3237
1235
4311

DCA

2266
2267

TAD

2279

1241
4311
2192

2271
2272

5266
5246

2251
2252
2253
2254
2255
2256

JMS
TAD
JMS
JMS
ISZ
JMP
TAD

CECE

274

4426

2275
2276
2277
2322

@923
7622
4432
@242

2521
2322
2323

5277
7341

2324
2325
2326
2327
2512

7450

3191
1101
3102
3237
5673

RDRON

/TURN

TTOUT
TTOUT

TTOUT

DCA

TAD

PCHON

READER.

/PUNCH ALL 0'8 CHAR.
/DONE FOR N O CHARS?
/N0. REPEAT.
/YEs, PUNCH A RusoUT

a"?
KU37/
CTRA
CTRB

CTRB

JMS

IRELOAD CHAR COUNT
/1NTO CTRB
[SET SPFLAG

SPFLAG
PCHON
TTOUT
K0377

/TURN

PUNCH

FEED.

/PUNCH A RUBOUT

TTOUT
182 CTRB
JMP .‘3
'JMP 22612+2

JMS

273

CRPIN

PCHOFF
TTOUT

TAD

IGET (SNA CLA) CODE AND
/sET AT TTOUTA.
/1NITIALIEE DELAY AND CHAR
/TURN OFF PUNCH FEED

TTOUTA

xsu
CRP

FOR

/DONE

RUBOUTS?

/N0. REPEAT:
START

xves.

OVER.

INITIALIZE DELAY CAUSED AND SET CHAR COuNT
-

SETCTR

JMS 1
DELAYM
I156
JMS I RANDNO
AND K0fl07
SNA
JMP 3'3
CIA
DCA CTRA

/~110 To DELAYM

TAD chA

/AND CTRB

IGET

RANDOM

NUMBER

/STILL NON-0?

DCA

CTRB

DCA

SPFLAG
I CRPIN

JMP

/N0.
/SET

/CLEAR
/EXIT

CTRA

SPFLAG

COUNT.

9AL13

18:16

21”FEB'69

V133

PAGE

PAGE,

ZZWG

ASRSSTY AUTOMATIC READER OPTION TEST;
/CHECKS THAT READER FLAG REsPQNDS TO KCC AFTER "READER 0N" COMMAND.
IAND THAT FLAG DOES NOT RESPOND TO ch AFTER "READER OFF" COMMAND,
/A TEST IS DONE DETNEEN 1 AND 7 CHARACTERS AFTER EACH READER CONTROL
/CUMMAND, TEST :5 CONTINUQUS RUNNING. FAILURES ARE INDICATED av HALTS.
[PRfillp

223%
2231
2232

'pRgilp

2233
22a4
2235
2236

2210
2211
‘2212
2213
221%
2315

JMS
KCE
JMS
KCC

DuYgMS

/CLEAR.SPFLAG.;
/TURN

OFF

PUNCH

FEED
AND

IINITIALiEE DELAY
/TURN

CHAR

/WA1T AN ADDITIONAL 11¢ MSECS.
xxssuc READER START,
v/DELflY 119 MSECSB
/FLAG UP?
IND; ERROR. FLAG SHOULD BE UP
IDONE FDR N CHARACTER?
IND; REPEAT.
IYESA RELOAD CHAR COUNT
IINYO CTRB,
ITURN OFF REABER
-

CTRA
CTRB

RDROFF
YTOUT
E

DLY1MS

DLYififi

SK?

HLT CLA
18% CYRQ
JMP «“6
JHP EROAAAD

RQROND

221

RDRQFF: 223
222
QCHONO
PCHOFFD

22‘

COUNT-

READER

ICLEAR READER FLAG;
[DELAY 11$ MSECS
IESSUE READER START»
INATT 116 NEEDSa
iFLAG UP?
{N03 0K8
lYESs ”ALTA VLAG SHUULD BE DfiHN
iaONt N TIMES
lNOA REPEAT
-/YESA START OVERA
'

4M3

2232

2242

KSF

2231

2243

TTGUT'
I DngMS

TAD
DCA
TAD

2239

2246

JMS

CLA‘
CTRB
JMP sag

222%
222%
2222
2223
2224
2225
2226
2227

2241

RDRON

HLT
{$2

6
?

2233
223$
223$
2236
223?

?AD

JMS
KCC
JMS
KS?

22%?

‘

JMS
JMS

SPFLAGPCHOFF
TTOUT
CRPZN

DCA

TAD

PALia

V133

21‘FLB969

18:16.

PAGE

DATA T0 TELEPRINTER/PUNCHa
/SQB‘T0 OUTPUT
READ A CHARACTER

SET,
/THAT IT IS
a
TTUUT,
/15

2311
2312
2313
2314
2315

2316
2317
2329
2321
2322
2523
2324

@000
6046

JMP
TCF

233a

1243

2331
2332
2333
2334
2335_
2336
233?

3326
6934

.1117
265%
5711
6%34
2462

TAPE

READER

IF SPFLAG
AND CHECK

RUBOUT;

u“1

/0UTPUT CHAR.
/DONE?
INO. WAIT
/YEs. CLEAR FLAG.

CLA
TAD

SPFLAG

SNA

CLA
I TTOUT

JMP

KCC
KSF

6231

2327

TLS
TSP

6041
5313
6242
7202
1237
7650
5711
6032
5323
6E34
7653
5711

2325
2326

FROM

JMP

6‘1

KRS

TTOUTAn

SNA

JMP
TAD
DCA
KRS
TAD

CLA
I TTDUT

K7619
TTOUTA
MRBOUT
L

Jmé % TTOUT
KRS

23$?

22$Q

HLT
CLA

.2341

5711

JMP

TTOUT

/
/

UNCH 0N?

0. E 3T:
/YES. §TART READER.
IFLAG UP?
IND. WAIT
IYES. READ CHAR
loR (SKP CLA)
/CHAR is @. EXIT.
IGET (SKP CLA) AND
ISET AT TTouvAa
IREREAD CHAR.
ITAD (“377
1w 3 IT A RUBOUT?
/Y S» 0K.
INDa ERROR. REREAD CHAR,
IDESPLAY CHAR.

IEXIT,

DALlZ

V133

21'FtB'69
$

18316

PAGE

PALIZ

V153

AL1

1141
1144
1120

AL2

ALIGV
ATEM»
c120
3240

CHAIV
CHAIVN

1147
0075

@076
0024

CHEC‘
CHRCVT

@257
0531
0111
0502

CPiD

@056

CRCNT
CRMSK

0112
0517

capzv
CTRA

2273
0101

CTQB

@102

CTSK
CURTST

0566
0057

aagavn

0023
0520
0030
0027
0113

CHCK

DLCNT

0Lvaws
DLY1SC
DLVCNT
DLYMS
DLYHSK
DLYSC
ERRCVT
ERRCTR
Fauna
FLAG
FORWD
GEYPT
GETPTT
GETRDY
Siva
HL?TST

@345
0530
0333

1101
1117
0623
0072
0276
0110

21'FEBfi69

0014

PITSSA

1706

0625
0065
0064
0600

PlTSSB
PITSSC

0615

P2E0

0117

P2E1

1732
1743
1746
1756
2030
2962

0063

P2E2
P2TOB

MILl
MILCTR
MOVE
MOVEA
MRHOUT
MSCTR
NXTST

P050

P0£1
POE2A
POE2B
PEESA
PUESB
P054A
POE4B
pwta
PEEéA
pmaéa
parse

news;
PZTS1A
pwvs19
pwvsz

917521
99753
POTSSA
pmvsa
PstaA
parsne

99154;
99755

907551
parss
POTSGA
P0756B

IND

INITPT

0444

INPATT
Kflgfl7
K0377

0107
2240
2241

K109
K2990

@104
@105

p1rsa
917551

K7610

2243
2242
0073

91753:
91751
P1Ts11
91752
p1rsza
91783

0066
0067
0020

30~1

MCTR

p1eaa
P1808
p151
P1E2
p1zsa
p1Esa
p164

K7659
K77:
KPS:
KPESKSVART

PAGE

M40

0453
0233
1150
1111
0215
0255
1146

INCRTN

18316

P1TS4
PlTSAA

888?
SCCTR
SCNT

PZTlB
PZTZC

2115

1267
1271
1320

P2TSO
P2T50A
P2731

2005
2015
2035
2045
2067

P2731A‘
'PZTS2

1402
1205
1225

2077

PCHOFF
PCHQN

2236
2235
@114
1200
1600
1060
2200
2244
2000
1000
1006
1013

FREQ
PR61
PRGIZ
PR611
PRGlZ
PRGZ
PROS
PRG4

1232
1235
1246
1256
1275
1305
1327
$334
1300
1371
1400
1410
1424:
1431.
1441
1637
1531.
1051,
1676

PROS
PR66
PRG7

PRGADR

PRGEND
PRGLSH
‘

PRGHSK
PRGNUM
PRGTAB
PSH
PT!

PT!

1717
1754
1765
1605
1615
1022
1635
1643
10561665
1731

PZYSZA
927328

PFLAG

$81
$82

2025
2057

1345
1352
1617
1456

880

2120

0061
1221
1244

1322

RANTMD
RDROFF
RDRDN
READCK
RTNND

SETCTR
SHALT
SHLT
SKIPMA
SKIPPA
SPFLAG
SRSMSK
SRSET
SRST
SRTOA
SRTOB
SRTlA
SRTZA
SRYZB
SRT3A
STAR?
STCTR

2102

1031
1042
0231

SYNC
SYNK
SYNKA
TAODR
TEMP

0442
2234

2233
1071
0060

2023
7055
2111
1076

@062
alga
@026
@313
@025
0677

@166
2237
0055
@232

0031
1017
1022
1935
1066

1051
196$
@200

0322
@105

9546

0558?

0626~
0052

‘0274

TENP1

5953~

003‘
0033
9035'
0037
0036
0450

TEHO

.'flfl7l

YEHR

.TSTHSK
TTOUT

rvouva.

9411‘
0621

PTEHP
PTEMP1
PTMSK
PUNCH
RANCON
RANDEX
RANDNO
RANGEN
RANSAV
RANTAD

0022
5452‘
0465
5430
0427
5032
0400
3443
5413“

RANTBLi

043i

’

1971
5994

2311
2329

UHOVE
0116
UPUNCH
0115
0549
"CHK
1466
HTSfiA.
HTSfiB
.1s57‘

was»
*wwgq
*

DAle

ERRORS

JtTECTED:

RUNOTIME3
5K

CORE

V133

USED

SECONDS

21'Ft8369

18 :16

PAGE

3fi-2