Digital PDFs

DIGITAL-7-57-M

August 1965

23 pages

Original

0.5MB

Document:	MAINDEC 710 PTP Rdr
Order Number:	DIGITAL-7-57-M
Revision:
Pages:	23
Original Filename:	http://bitsavers.org/pdf/dec/pdp7/DIGITAL-7-57-M_MAINDEC_710_PTP_Rdr_Aug65.pdf

OCR Text

IDENTIFICATION

1 •1

Maindec 710

1 .2

PDP-7 Tape Reader (Type 444B) Test

1 .3

August 27, 1965

(7- 57 - fYl )

PDP

LI BRARY

Maindec 710
Page 1

1
2.

ABSTRACT

Maindec 710 incorporates two separate test programs. The first tests the performance of all
the lOT instructions associated with the reader and its connections to the program interrupt. It reads a
loop of tape containing alternate characters of lis and OIS, first in alphanumeric, then in binary mode.
The second test reads a loop of tape containing the sequence 1-377 repeated three times.
This program tests only the accuracy of reading; the interrupt is not used, and the flags are assumed to be
working.

REQU IREMENTS

3.1

Storage

Maindec 710 occupies memory locations 0 - 7 and 20 - 1325. It requires that the RIM Loader
be in memory.
3.2

Subprograms and/or Subroutines
Maindec 710 uses two library subroutines:
Teletype Output Package (Oigital-7-10-0)
Octal Print Subroutine (Digital-7-14-0)

Both subroutines are included in the Maindec 710 Funny Format binary tape provided. The
ASCII tapes of the two subroutines are not supplied.
3.3

Equipment
,¥,>,<,\ \

Standard PDP-7 with paper tape re%,er and punch."
3.4

Miscellaneous
Tapes suppl..ied:
ASC II (Test program on Iy)
Funny Format binary

rvv

USAGE

4.1

4. 1 .1

Place the FFbinary tape in" the reader.

4'.1 .2

Set the ADDRESS switches to (1)7770.

4.1.3

Press 5TART.
,. \,~

_;/..J.--I

~ .JLer+"" /"

4.1j:~''''

4.3

Switch ~~tings

4.3.1

Loading Address:

4.3.2

Starting Addresses

(l )7770 ,

Section 1:

100
140

(To punch test loop)
(To test reader)

Section 2:

200
375

(To punch test loop)
(T0 test reader)

(I~

Maindec 710
Page 2
Other Switch Settings

4.3.3

The settings given apply to both sections of the test program.

Switch

Setting

ACS

Down
Up

Ha It on error
No halt on error

Down
Up

Print error messages
Do not print message

ACS

ACS _
2 17

Function

The setting determines the speed at which the reader operates:
the higher the number in the switches, the slower the rate
used down to a minimum of 3 cps.

4.4

Start up and/or Entry

4.4.1

Section 1: Maximum Noise Test

Set the ADDRESS switches to 00100 and press START. The program title will be printed on
the teleprinter:
SECTION 1 TEST.
POSITION TAPE IN READER.
ACSO DOWN FOR HALTS, UP FOR NONE.
ACS1 DOWN FOR PRINTING, UP FOR NONE.
ACS2-17 FOR SPEED CONTROL.
CHARACTER
READ
EXPECTED
The computer will stop with the AC and Iink cI eared.
Remove the test tape from the punch bin, and make c .!')OP by overlapping the blank ends of
the tape.
Place the test loop in the reader so that the blank section falls under the read heads. Put
the reotter arm down.
Set the AC switches as desired (see Section 4.3.3) and press CONTINUE. The program
will read the loop and continue until an error is encountered or until the operator stops the computer.
It is not necessary to punch a new loop every time the test is run. If a loop has already
been made, place it in the reader, set the ADDRESS switches to 140, and press START. The title and
instructions will be printed, and the computer will halt. Proceed as outlined above.
4.4.2

Section 2: Numeric Sequence Test
Set the ADDRESS switches to 00200 and press START. The title will be printed:

SECTION 2 PUNCH.

Maindec 710
Page 3
The test tape is punched, and the title and instructions for the test are printed. These are
identical to the instructions for Section 1, except for the first line, which reads:
SECTION 2 TEST.
The computer halts with the AC and Iink clear. Make a loop of the test tape by overlapping
blank ends as before, and place it in the reader with the blank section under the read heads. Put the
reader arm down. Set the AC switches as desired, and press CONTINUE.
The test will run until an error is encountered, or until the operator stops the computer.

As in Section 1, the test tape can be used over again. If the loop has been prepared, place
it in the reader as before. Set the ADDRESS switches to 00375, and press START. The title and instructions are printed, and the procedure is as described above.
4. 5

Errors in Usage
On all error halts, the link is set to 1 •
Error E01-E05 will halt only if ACS

Error:
Message:
C(MA):
C(AC):
. Cause:

Recovery:
Error:
Message:
C(MA):
C(AC):
Cause:
Recovery:
Error:
Message:

C(MA):
C(AC):
Cause:

Error:
Message:
C(MA):
C(AC):
Cause:
Recovery:

is down.

E01
CAF DID NOT CLEAR FLAG.
00153
I/O status
The CAF instruction failed to clear the reader flag. Since the flag is not set by
the program up to this point, the error impl ies that the flag is permanently on;
otherwise, it would have been cleared when t he START button was pressed to
start the program.
Press CONTINUE. The test will proceed from the point of error.
E02
RSF SKIPPED ON CLEARED FLAG.
00047

I/O status
The reader flag was clear; nevertheless the RSF instruction skipped~
Press CONTINUE. The test will proceed from the point of error. E03
RSA DID NOT CLEAR FLAG.
or
RSB DID NOT CLEAR FLAG.
00226
I/O status
In both cases, the reader select instruction failed to clear the reader flag. This
may imply the same thing as EOl, above, unless it is clear that the tape has been
read at least in part, in which case this is not I ikely to be a systematic failure.
E04
RRB DID NOT CLEAR FLAG.
00246
I/O status
Again, the flag was unaffected by an associated lOT.
Press CONTINUE. The test will proceed from the point of error.

Maindec 710

Page 4
Error:
Message:
C(MA):
C(AC):
Cause:
Recovery:

E05
RSF DID NOT SKIP WHEN FLAG WAS SET.
00032
I/O status
This is the other possible skip error. In this case, the RSF failed to skip even
though the flag was set.
Press CONTINUE. The test will proceed from the point of error.
Errors E30-E33 will always halt, regardless of the setting of ACS •

Error:
Message:
C(MA):
C(AC):
Cause:
Recovery:

E30
RRB DID NOT CLEAR AC.
00337
777777
The AC was not cleared when the RRB instruction was executed.
Reposition the tape so that the blank section falls under the read heads, and put
the arm down. Press CONTINUE. The program will try ~o put the tape in phase
again.

Errort
Message:
C(MA):
C(AC):
Cause:

E31
LEADER SIGNAL IS INCORRECT.
00332
Word read from tape.
On both test tapes, the test sequence is preceded by a signal to indicate the end
of the blank tape section. This signal consists of three binary characters forming
the word 770000. The program tests to see if the signal read from tape is in fact
770000. If not, this error occurs.
Reposition the tape so that the blank section falls under the read heads, and put
the arm down. Press CONTINUE. The program will try to put the tape in phase
again.

Recovery:

Error:
Message:
C(MA):
C(AC):
Cause:

E32
NO INTERRUPT AFTER 10 MSEC. IS THE READER ARM DOWN?
00236
I/O status
The time ran out while waiting for a program interrupt from the reader. The
question in the diagnostic implies that the tape did not move beyond the leader
signal. If the error occurs after some of the test sequence has been read, it may
be the result of a failure in the program interrupt control.

Recovery:

Press CONTINUE. The test will begin again, printing the title and instructions.
When the computer halts, proceed a$ described in Section 4.4.1 or 4.4.2.

In each of the following errors, no message is printed. Instead, the erroneous and correct
characters are printed in the columns labeled IIREADII and "EXPECTED, II respectively. Errors E10 and
Ell refer to the alphanumeric sequence of the Section 1 test. Errors E12 and E13 refer to the binary sequence of the S'lme test. Error E20 refers to Section 2. Each of these errors occurs when the character
(or word) read from tape does not match that expected by the program. In each case, when the program
halts, the AC displays as lis those bits which do not match.
Error:
C(MA):
Expected Character:

El0
00166
377

Maindec 710
Page 5

Ell

Error:
C(MA):
Expected Character:

00174
000

Error:
C(MA):
Expected Word:

E12
00211
770077

Error:
C(MA):
Expected Word:

E13
00217
007700

Error:
C(MA):
Expected Character:

E20
00443
1-377 in sequence.

Recovery:

From each of these error halts, the recovery procedure is the same. Press
CONTINUE. The test will proceed from the point of error.

Error:
Message:

E33
INTERRUPT FROM SOMETHING OTHER THAN THE READER. CHECK THE
OTHER DEVICES ••• 1/0 STATUS IS IN THE AC.
00026
I/O status
A device other than the reader has caused an interrupt. By examining the I/O
status, the offending device probably can be identified.
Press CONTINUE. The test will begin again, printing the title and instructions.
When the computer halts, proceed as described in Section 4.4.1 or-4.4.2.

C(MA):
C(AC):
Cause:
Recovery:

4.6

Recovery frqm Such Errors:
See Section 4.5, Errors.

RESTRICTIONS

If the automatic priority interrupt option is installed, it must be kept off. Since pressing the
START key disables the API, there should be no interference from that system.

OESCR IPTION

6. 1

Section 1

The first section of Maindec 710 tests all of the lOTs associated with the tape reader, the
performance of the program interrupt, and the accuracy of information transfer under conditions of maximum noise. This is obtained by causing the reader to scan a tape punched with alternating characters of
337 and 000.
(Reading in binary mode, the alternation is between words of 770077 and 007700.) The test
tape is produced by an auxil iary punch program. The tape has the following format:
blank leader (40 lines)
leader signal
alphanumeric sequence
binary sequence
blank trail er (40 lines)

Maindec 710

Page 6
The leader signal consists of the three binary characters 277, 200, 200. The alphanumeric
sequence consists of 25710 character pairs of 377 and 000. The binary sequence consists of 25810 character
pairs of 277 and 200. The test program keeps a count as it scans the tape. When the end is reached, an
RSB is given which causes the blank section of the loop to be skipped. The next information read from tape
is the leader signal, and the test begins again.
The reading speed is controlled by the setting of AC switches 2-17. If all switches are down,
there is no deley, and the reader operates at maximum speed, 300 cps. The speed decreases Iinearly as the
value of the switches increases. The slowest speed is obtained by a setting of 177777, corresponding to a
reading rate of about 3 cps.

6.1.2

Section 2

This test operates in exactly the same mariner as Section 1, except that it assumes that all
lOTs are working (except, possibly, RSA). It does not use the program interrupt. The tape has the same
leader and traiier format and leader signal. The body of the tape consists of the sequence of character
codes 1-377 repeated three times. This test is designed to check the accuracy of transmission of every
possible combination of bits.
The speed control works exactly the same way as for Section 1 •

6.2

Examples and/or Appl ications

The use of each section of Maindec 710 is evident from the foregoing. It should be noted,
however, that the speed control can be used to detect certain types of failures-. There are certain reading rates at which the reader is more Iikely to fai I than at others. Using the ACS, the ope:-ator can find
these error points by making the following test.
Start the program with the loop positioned and ACS2_17 down. After a short time, raise ACS17'
Gradually decrease the reading speed by putting up each switch in turn from the lowest order to the highest,
putting the previous switch down as you raise the next. At some point, the reader may fail. You can then
test reader accuracy at speeds near that point.

METHODS
See OESCRI PT ION

FORMAT (Not Applicable)

EXECUTION TIME

The time for one pass over a test tape depends on the setting of the AC switches. Reading
rates can be varied from 3 to 300 cps.

10.

PROGRAM

10.4

Program Listing

Maindec 710
Page 7

/MAINDEC 710: PDP-7 TAPE READER TEST
/IN TWO SECTIONS: SECTION 1---MAXIMUM NOISE, RSA, A RSB
/SECTION 2--NUMERIC SEQUENCE, RSA ONL V
/SECTION 1 PUNCH

100/
PUNT1,

PALF,

PUBS,

PEND,

PULS,

TIN
LAW PIT
TSR
LAM -50
JMS FEED
JMS PULS

/TITLE
/LEADER
/LEADER SIGNAL

LAM -400
DAC APTEM
LAW 377
PSA
PSF
JMP .-1
SMAVCMA
ISZ APTEM
JMP .-5

/ ALPHA SEQUENCE

LAM-401
DAC APTEM
LAW 77
JMS BIP
SMA CMA
ISZ APTEM
JMP .-3

/BINARV SEQUENCE

LAM-50
JMS FEED
JMP RETl
0
LAW 77
JMS BIP
CLA
JMS BIP
JMS BIP
JMP I PULS

ORB-700102

/COUNT?
/VES

/GO TEST
/PUNCH LEADER SIGNAL

lOR READER BUFFER INTO AC.

/MAINDEC 710, PAGE 2
RET1,

TIN
LAW RIT
TSR
LAW RIP
TSR
HLTVCLAVCLL
LAC DCAF

/SECTION 1 TEST

/INITIALIZE EMO

Maindec 710

Page 8
DAC DIPT
CLOF
CAF
JMS REFT
HLTV STL

E01,
INRA,

JMS TAPH
LAC DRSA
DAC DIPT
LAM -400
DAC APTEM

/INITIALIZE TEST

RALPH,

JMS DELAY
RSA

/ALPHA TEST

.LAM

/(" -3
/(p ,

4009-~

(/::1

"'"JJ\'\,S TESC
377
HLTV STL
JMS DELAY
RSA

E10,

17 I

/1 NTERRUPT TIME
/ARGUMENT
/BAD BITS IN AC ON HALT

(' l--/!')

JMS TESC
000
HLT STL
ISZ APT EM
JMP RALPH
SKP

/GET AROUND ENTRY

200/

JMP PUNT2

/ENTRY FOR SECTION 2

INREB,

ISZ DIPT
LAM -125
DAC APTEM
JMS DELAY
RSB

/CHANGES TO RSB

Ell,

201- BIRD,
2

J-' I

/TEST FLAGS
/CAF DIDN IT CLEAR

E12,

•• '~

,··_··'~'::f>-'(''1'·.·h<~

....

,~OOOP

(

/BINARY MODE TIMER

JMS TESC
770077
HLTV STL
JMS DELAY
RSB
~-t4:OO(}l-

E13,

/BI NARY TEST

(

-JMS TESC
007700
HLTV STL

/MAINDEC 710: PAGE 3

TESC,

ISZ APTEM
JMP BIRD
JMP INRA

/FINISHED?
/NO
/YES. ROUND AGAIN

/COMPARING SUBROUTINE
/SET TIMER

DAC PICT

Maindec 710
Page 9

E03,

ER32,

E32,
IRET,

E04,
COMC,
ER1,
TOUT,

JMS REFT
HLTVSTL
ION
ISZ PICT
JMP .-1

/FLAG STILL SET
/TIME TILL BREAK

laRS
JMS RACS
LAW EM32
Nap
HLTV STL
JMP RET1

/NO BREAK

laRS
RAL
SMA RAR
JMP COMC
JMSRACS
LAW EM04
HLTVSTL

/RETURN HERE FROM BREAK

LAC AP2
SAD I TESC
JMP TOUT
JMS RACS
JMP ERP
JMP E1 H
ISZ TESC
ISZ TESC
JMP I TESC

/ALWAYS HALTS

/IS THE FLAG CLEAR?
/yES.
/NO.

/COMPARE CHARACTERS
JOKe
/BAD.
/GO AWAY

E1 H,

LAC I TESC
XOR AP2
JMP TOUT+1

/ERROR STOP
/EXTRACT BAD BITS

ERP,

TIN
LAC AP2
JMS OPT
TYT
LAC I TESC
JMS OPT
JMP RAC2

/ERROR PRINT

STEM,
PICT,

0
0

/STATUS HOLDER
/INTERRUPT TIMER

RACS,

/SAVE THIS SPACE

/MAINDEC 710, PAGE 4
/INTERRUPT SERVICES AND OTHERS
0/

0
laRS
RAL

Maindec 710

Page 10
SMAVRAR
JMP ER33
RSF
JMP ER05
JMP IAWAY

/15 READER FLAG SET?
/NO
/TEST SKIP
/FAILED

20/

0
HLT
JMP .-1

/CALCATCHER

ER33,

JMS RACS
LAW EM33
NOP
HLTV STL
JMP RET1

/SPURIOUS INTERRUPT

E33,
ER05,
E05,
IAWAY,

REFT,

ER02,
E02,
ERO,
REO,
EOP,

/ALWAYS HALTS

JMSRACS
LAW EM05
HLTVSTL

/RSF FAILED

RRB
DAC AP2
JMP IRET

/OK, READ BUFFER

0
IORS
RAL
SPAVRAR
JMP ERO
RSF
JMP REO
JMS RACS
LAW EM02
HLTVSTL
JMP REO

/FLAG TEST SUBROUTINE

JMS RACS
JMP EOP
JMP I REFT
ISZ REFT
JMP I REFT

/FLAG NOT CLEARED

LAC DIPT
TY3
LAW EMO
JMP RAC2-1

/PRINT DIAGNOSTIC

/GO COMPARE

/15 FLAG STILL SET?
/yES
/NO. TEST SKIP
/OK. GO AWAY
/SKIPPED ON CLEAR FLAG

/IF STOPPING
/IF NOT

/MAINDEC 710, PAGE 5
/VARIOUS KINDS OF SUBROUTINES
RACS/

0
DAC STEM
IOF
LAS

/DIAGNOSTIC HANDLER
/SAVE STATUS

Maindec 710
Page 11

RAC2, .

TAPH,

RAL
SPAVRAR
JMP RAC2+1
TIN
XCT I RACS
TSR
LAS
SPA
ISZ RACS
ISZ RACS
CAF
LAC STEM
JMP I RACS

o
RSB
RSF
JMP .-1
CLC
RRB
SAD (-0
JMP ER30
SAD (770000
JMP I TAPH

ER31,

E31,
ER30,
E30,
FEED,

/PRINT MESSAGE?
/NO
/LAW OR JMP
/IF LAW
/STOP FOR ERROR?
/NO
/CLEARS HANGING TTY FLAGS

IT APE PHASER
ISKIP BLANK TAPE, PICK UP LEAD SIGNAL
/TO TEST RRB

IDID AC CLEAR?

INa
liS SIGNAL OK?
IYES, PROCEED

JMSRACS
LAW EM31

INa

Nap

IALWAYS HALTS

HLTVSTL
JMP TAPH+1

ITRY AGAIN

JMSRACS
LAW EM30

/RRB FAILED

Nap

ITHIS ONE ALWAYS STOPS, TOO

HLTVSTL
JMP TAPH+1

/iRY AGAIN

0
DAC APTEM
PSA+10
PSF
JMP .-1
ISZ APTEM
JMP .-4
JMP I FEED

/T APE BLAN KER

/MAINDED 710: PAGE 6
/SECTION 2---NUMERIC SEQUENCE TEST
PUNT2,

TIN
LAW P2T
TSR
LAM -50

ISECT. 2 PUNCH

Maindec 710

Page 12
JMS FEED
JMS PULS
PUSE,

PIX,

RET2,

NESQ,

RECH,

ER20,

LAM -2
DAC APTEM
LAM -376
DAC PIX
LAM
PSA
PSF
JMP .-1
ISZ PIX
JMP PIX
ISZ APTEM
JMP PIX-2
LAM -50
JMS FEED

ITHREE CYCLES OF 1-377
IINDEX AND LOAD AC

lEND OF CYCLE
INO
IYES - END OF SEQUENCE?
INO
/yES

TIN
LAW R2T
TSR
LAW RIP
TSR
IOF
HLTVCLAV CLL

ISECTION 2 TEST

JMS TAPH
LAM -2
DAC AP2
LAM -376
DAC APTEM
JMS DELAY

ITRY PHASING TAPE
ISET UP COUNTERS

RSA
RSF
JMP .-1
LAM -377
ORB
SAD APTEM
JMP REX
JMS RACS
JMP E20P
JMP E20H

1777400 IN AC
IORS READER BUFFER INTO AC
ICOMPARE RESULT
10K
INO GOOD

IMAINDEC 710: PAGE 7
REX,

ISZ APTEM
JMP RECH-l
ISZ AP2
JMP NESQ
JMP B+l

E20P,

TIN
LAC STEM

lEND OF CYCLE?
INO
IYES. END OF TAPE?
INO
IYES. GO ROUND AGAI~

Maindec 710
Page 13
AND (377
JMS OPT
TYT
LAC APTEM
AND (377
JMS OPT
JMP RAC2
E20H,
E20,

IEXTRACT CHARACTER

XOR APTEM
HLTV STL
JMP REX

lAC SHOWS WRONG BITS

DELAY,

ISPEED CONTROL

DLOUT,

LAS
AND (177777
CMA
DAC AP3
ISZ AP3
JMP .-1
JMP I DELAY

EOP+41
OTY,

IPRINT A CHARACTER

TLS
TSF
JMP .-1
JMP I OTY
APTEM,
AP2,
AP3,
BIP,

o
o
o
o

I ALL PURPOSE TEMPORARY STORAGE
IPUNCH BINARY CHARACTER

PSB
PSF
JMP .-1
JMP I BIP
IMAINDEC 710: PAGE 8
IORACLES, WARNINGS, AND ANSWERS
DLOUT+1I
P1T,

TEXT -SECTION 1 PUNCH.

Rl T,

TEXT -SECTION 1 TEST.

P2T,

TEXT -SECTION 2 PUNCH.

R2T,

TEXT -SECTION 2 TEST.

RIP,
TEXT
IPOSITION TAPE IN READER.
ACSO DOWN FOR HALTS, UP FOR NONE.

Maindec 710

Page 14
ACS1 DOWN FOR PRINTING, UP FOR NONE
ACS2-17 FOR SPEED CONTROL.
READ

CHARACTER
EXPECTED

DCAF,
DRSA,
DIPT,
EMO,

FLEX CAF
/D IPT SETUPS
FLEX RSA
0
TEXT -DID NOT CLEAR FLAG.

EM02,

TEXT -RSF SKIPPED ON CLEARED FLAG.

EM04,

TEXT -RRB DID NOT CLEAR FLAG.

EM05,

TEXT -RSF DID NOT SKIP WHEN FLAG WAS SET.

EM30,

TEXT -RRB DI D NOT CLEAR AC.

EM31 ,

TEXT -LEADER SIGNAL IS INCORRECT.

EM32,
TEXT -NO INTERRUPT AFTER 10 MSEC.
IS THE READER ARM DOWN?
EM33,
TEXT -INTERRUPT FROM SOMETHING OTHER THAN THE READER.
CHECK THE OTHER DEVICES ••• 1/0 STATUS IS IN THE AC.
START
/TELETYPE OUTPUT PACKAGE 8-13-63
XIT=LAC-JMS

TTAB=10

/TYPE 1 CHARACTER FROM AC BITS 12-17
TY1=JMS •

o
DAC TY .... SVAC
RAR
JMS TY1A
XIT TY1
TYEXIT

/TYPE 1 CHARACTER (5 BIT), LINK INDICATES CASE
TY1A,

0
DAC T.... EMY
AND (37
SNA
JMP TY2
703301
SKP
JMP TY1 B

Maindec 710
Page 15

TY2,

LAC OCL
SZL
LAC OCU
SAD OCS
JMP.3
JMS OTY
DAC OCS
LAC TEMY
JMS OTY
ISZ T BC
LAC TEMY
JMP I TY1A

ITYPE 3 CHARACTERS FROM AC 0-5, 6-11, 12-17 RESPECTIVELY
TY3=JMS.

o
DAC TYSVAC
JMS RL6
JMS TY1A
. JMS RL6
JMS TY1A
JMS RL6
JMS TY1A
XIT TY3
TYEXIT
ITELETYPE OUTPACKAGE PAGE 2
ITYPE A CARRIAGE RETURN, AND LINE FEED
TCR=JMS .

o
DAC TYSVAC
703301
SKP
JMP TCRA
LAW 2
JMS OTY
LAW 10
JMS OTY
DZM TBC
XIT TCR
TYEXIT
ITYPE A SPACE
TSP=JMS .

o
DAC TYSVAC
LAW 4
703301
SKP

Maindec 710

Page 16
lAW 240
JMS OTY
ISZ TBC
XIT TSP
TYEXIT
/TYPE A TABULA TI ON
TYT=JMS .

o
DAC TYSVAC
lAC TBC
ADD (1
TAD (-TTAB
SMA
JMP .-2
TAD (-1
DAC TEMY1
lAC TYSVAC
TSP
ISZ TEMY1
JMP .-2
XIT TYT
TYEXIT
/TElETYPE OUTPUT PACKAGE - PAGE 3
/TYPEWRITER INITIALIZE
TIN=JMS •

o
DAC TYSVAC
lAC OCl
DAC OCS
703301

SKP
JMP.3
TlS
JMS OTY
lAC TYSVAC
TCR
JMP I TIN-JMS
/TYPE THE DIGIT IN THE AC
TDIGIT=JMS .

o
DAC TEMYl
AND (17
ADD (lAC NCT
DAC. 1
XX
TY1

Maindec 710
Page 17

LAC TEMYl
JMP I TDIGIT -JMS
ITYPE A STRING OF CHARACTERS
TSR=JMS •

o
DAC T-+EMYl
LAC I TEMY1
TY3
AND (76
ISZ TEMY1
SZA
JMP TSR+2-JMS
LAC TEMY1
JMP I TSR-JMS

IEXIT AFTER RESTORING AC AND LINK
TYEXIT=JMP •
DAC TEMY
RAL
LAC TYSVAC
JMP I TEMY
ITELETYPE OUTPUT PACKAGE - PAGE 4
IROTATE LEFT 6
RL6,

0
RTL
RTL
RTL
JMP I RL6

IT ABLE OF DIGITS
NCT,

ICASE STORAGE

OCU,
OCL,
OCS,

33
37
0

lEND OF TELETYPE OUTPUT PACKAGE
IPDP-4/7 ADDENDUM
TY1B,
ADD (LAC BTATAB-1
DAC. 1
XX
SZL
JMP TY1C
TYl D,
JMS OTY
JMP TY2-l

Maindec 710

Page 18
TY1C,

TCRA,

BTATAB,

JMS RL6
RTL
RTL
JMP TY1 0
LAW 215
JMS OTY
LAW 212
JMP TCR-JMS 10

265324

15,T

215215

ICARRIAGE RETURN

271317

19,0

240240

ISPACE

243310
254316
256315

I"N

212212

251314
264322
246307
270311
260320
272303
273326
263305
242332
244304

Ix,H

I.,M
ILiNE FEED
I), L

14,R
1+, G
18, I
10,P

I:,C
Ii, V

13,E

I$,Z
1::::>0

277302

I?,B

211323

IBELL,S

266331

16,Y

241306
257330

It,F
X

255301
262327
247312

377377

IFI GURES

267325

17,U
11"Q

261321
250313
377377

II,

I-,A

12, W
,J

/(, K
ILETTERS

START
OCTAL PRINT SUBROUTINE 9-26-62
IENTER HERE TO SUPPRESS INITIAL ZEROS
OPT,

0
DAC O+CN
LAC OP3 1
JMS OP1
JMP I OPT

Maindec 710
Page 19

/ENTER HERE. TO SUPPRESS INITIAL ZEROS WITH SPACES
OPS,

0
DAC OCN
LAC (JMP OP3
JMS OP1
JMP lOPS

/PRINT SUBROUTINE
OP1,

0
DAC OPM 3
LAM -5
DAC 0" PC
LAC (SZA
DAC OPM

OPO,

LAC OCN
RCL
RTL
DAC OCN
RAL
AND (7

OPM,

XX
JMP OP2
ISZ OPC

XX
TDIGIT
JMP I OP1
OP2,

TDIGIT
LAC OPM 1
ISZ OPC
JMP OPO-1
JMP I OP1

OP3,

TSP
JMP OPO

/END OCTAL PRINT SUBROUTINE
START
A
APTEM
AP2
AP3
B
BIP
BIRD
BTATAB
COMC
DCAF

145
67
70
71
403
72
204
1177
247
577

DELAY
DIPT
DLOUT
DRSA
EMO
EM02
EM04
EM05
EM30
EM31

445
601
454
600
602
612
625
636
653
663

Maindec 710

Page 20
EM32
EM33
ERP
ERO
ER02
ER05
ER1
ER20
ER30
ER31 ,
ER32
ER33
EOP
EOl
E02
E03
E04
E05
E1H
El0 '
Ell
E12
E13
E20
E20H
E20P
E30
E31
E32
E33
FEED
IAWAY
INRA
INREB
IRET
NCT
NESQ
OCl
OCN
OCS

ocu
OPC
OPM
bps
OPT
OPO
OPl
OP2
OP3
ORB

675
720
263,
51
45
30
252
421
334
327
232 '
23
56
153
47 '
226
246
32
260
166
174
211 '
217
443
442
431
337
332
236
26
341
33
154
201
240
1143
407
1156
1302
1157
1155'
1301
1264
1243
1236
1256 '
1250
1272
1277
700102

OTY
PAlF
PEND
PICT
PIX
PUBS
PUlS
PUNT1
PUNT2
PUSE
P1T
P2T
RACS
RAC2
RALPH
RECH
REFT
REO
RETl
RET2
REX
RIP
Rl6
R1T
R2T
STEM
TAPH
TBC
TCR
TCRA
TDIGIT
TEMY
TEMY1
TESC
TIN
TOUT
TSP
TSR
TTAB
TYEXIT
TYSVAC
TYT
TYl
TY1A
TY1B
TY1C
TY1D
TY2
TY3
XIT

62
106
126
273
363
117
131
100
351
357
455
472
274
306
161
412
36
54
140
375
424
507
1136
464
501
272
315
1304
101026
1173
101107
1305
1303
223
101073
255
101042
101120
10
601132
1306
101054
100762
770
1160
1167
1165
1012
101014
100000

Maindec 710
Page 21
TTAB
ER33
E33
ER05
E05
IAWAY
REFT
ER02
E02
ERO
REO
EOP
OTY
APTEM
AP2
AP3
BIP
PUNT1
PAlF
PUBS
PEND
PUlS
RET1
A
EOl
INRA
RALPH
EIO
Ell
INREB
BIRD
E12
E13
TESC
E03
ER32
E32
IRET
E04
COMC
ER1
TOUT
EIH
ERP
STEM
PICT
RACS
RAC2
TAPH
ER31

10
23
26
30
32
33
36
45
47
51
54
56
62
67
70
71
72
100
106
117
126
131
140
145
153
154
161
166
174
201
204
211
217
223
226
232
236
240
246
247
252
255
260
263
272
273
274
306
315
327

E31
ER30
E30
FEED
PUNT2
PUSE
PIX
RET2
B
NESQ
RECH
ER20
REX
E20P
E20H
E20
DELAY
DlOUT
P1T
R1T
P2T
R2T
RIP
DCAF
DRSA
DIPT
EMO
EM02
EM04
EM05
EM30
EM31
EM32
EM33
TY1A
TY2
Rl6
NCT
OCU
OCl
OCS
TY1B
TY1D
TY1C
TCRA
BTATAB
OPT
OPS
OP1
OPO

332
334
337
341
351
357
363
375
403
407
412
421
424
431
442
443
445
454
455
464
472
501
507
377
600
601
602
612
625
636
653
663
675
720
770
1012
1136
1143
1155
1156
1157
1160
1165
1167
1173
1177
1236
1243
1250
1256

Maindec 710
Page 22
OPM
OP2
OP3
OPC
OCN
TEMY1
TBC
TEMY
TYSVAC
XIT

1264
1272
1277
1301
1302
1303
1304
1305
1306
100000

11.

DIAGRAMS {Not Appl icable}

12.

REFERENCES {Not Appl icable}

TYl
TY3
TCR
TSP
TYT
TIN
TDIGIT
TSR
TYEXIT
ORB

100762
101014
101026
101042
101054
101073
101107
101120
601132
700102