PDP 1_Subroutines_1961 1 Subroutines 1961
PDP-1_Subroutines_1961 PDP-1_Subroutines_1961
User Manual: PDP-1_Subroutines_1961
Open the PDF directly: View PDF 
.
Page Count: 47
| Download | |
| Open PDF In Browser | View PDF |
S ut)
(ZO UTI ~f5
,Divide + Multiply test US/lng random numb"ere
,9/25/61
,B.G. S.L.
dzm ctnl ,no. of goodts
bel
It
If
dzm ctn2 , "
II
II
over-flows
dzm ctn3 ,
If
n
dzm ctn4 , "
"
lac rand1
,initllize random no. gen.
dac rdl
If
t1
1t
n
,
lac rand2
dac rd2
pl
clf 6
szo
,clear overflow
nop
jsp abc
,put rand no. in a,b,c
rar s1
,AC holds b
xor a
sma
,is bit 17 of b equal to o of a
jmp p~'
lac b
xor re1
dae b
,bit 0 of a equals bit 17 of b
p2
szs 60
jmp muldiv
,multiply + divide subroutine
lac a
lio b
dis c
,high speed divide
jmp divovflo
dac quot
dio rem
mus c
,high speed multiply
szs 20
p3
jmp p2
spa
stf 16
,remember prod negative
dac hprod
dio lprod
lac lprod
szo
,clear overflow from d1vd subroutine
nop
rar s1
,add remainder to low product
add rem
,is there a carry into high product
szo
jmp p4
ral s1
dac t1
jmp p5
p4
,fix up sign bit of low product
xor t2
ral 81
dac t1
law 1
,sub one if hprod is negative
szf 6
cma
add hprod
dae hprod
,lprod + rem carry added to hprod
lac t1
sas b
p5
jmp errorone
,low product + remainder not equal to b
lac hprod
sas a
,high product not equal to a
jmp errortwo
elf 6
idx ctn1
sma
muld1v
divovflo
jmp pi
dzmctn1
idx ctn2 ,count sucessful matches
jmp pi
lac a
lio b
jda dvd
,use divide subroutine
lac c
jrnp divovflo
dac quot
dio rem
lac quot
jda mpy
,use multiply subroutine
lac c
jrnp p3
idx ctn3
sma
,count no of overflows
idx ctn4
dzm ctn3
jrnp p1
a
b
c
quat
rem
hprod
t1
Iprod
ctn2
ctn1
ctn4
ctn3
t2
t3
t4
t5
rc1
cr
rand1
rand2
rd1
rd2
errorone
errortwo
o
o
o
o
o
o
o
o
o
o
o
o
400000
2
110 t2
o
1
77
742335
125131
o
o
110 rc1
jmp
lio
tyo
law
dap
,print out errors
errortwo + 1
t3
I
a
p12
p11
110 t2
plf
tyo '
lio
law
jda
idx
sas
jmp
lio
tyo
szs
jrnp
szs
jmp
I
o
6
print
p1~
t4
p11
cr
'
20
p2
10
bel
jrnp p1
print
,stop code for typeout
dio ts
·'l!ap··~fl:
~;i'
.:i~" '. ~
"
,"
p7
pl0
abc
.
cla
110 t5
rc1 53
5za
1
110
lac
reI
dac
tyo
isp
jmp
jmp
dap
t3
t5
t5
1
p~int
p7
out
jsp random
dac
jsp
dac
jsp
dac
jmp
out
dap
random
lac
110
rcr
xor
110
dac
dio
jmp
exit
jmp bel end •
-
53
,get random number
a
random
c
random
b
exit
rd2
rdl
s7
rdl
rd2
rd2
rdl
,random num generator
org 100
m
n
b
a
lac
dac
dae
dac
dae
dac
dac
lac
dac
jrnp
lac
dac
dac
dac
dac
dac
dac
lac
dac
lac
dac
lac
dac
dac
lio
o
c
,ppa "
+
+
+
c +
k +
e +
b
k +
a +
a +
c +
c +
c +
c +
k +
e +
j +
h +
1
3
7
11
1
1
,ppb
1
2
,ppa
I
5
1
3
7
11
3
1
4
,-2 reset a ctrs
,-12
j
h + 1
h
+ 3
h
,377,
10 lines all holes
h + 3
a + 4
h + 4
,-12
b + 2
h + 2
h + 6
h
+ 7
110 h + 5
o
110
o
h +
6
110 h
a
110
a
e
,ppb ' c1
1
,-12
isp
jmp
isp
jmp
lac
dac
dac
h +
7
isp h + 7
jmpc + 6
lac h + 11
dac h + 10
lac h + 5
dac h + 1~
110 h + 12
o
lac
add
dac
isp
jmp
szs
jmp
el, setup punch 1
1
1sp h + 6
jmp c
f
setup punch 0, general test
+ 1
+ 5
isp h + 1
jrnp a
1io h + 2
o
d
k
a
a
c
c
c
h +.12
h + 13
h + 12
h + 10
e
10
aa
.imo e
+ 7
,777400, 10 lines no holes
,-2
,reset c etrs
,0, o,n,J on+l, etc.
,777400
,377, n.,377, n +
1, etc.
,777400
,-100, reset e ctrs
,0
,0 1n1t, b1n 0-77
,10000
,constants
377
0
777400
0
0
0
0'
0
0
- 100
0
j
org 220
g
p
r
k
10000
- 12
- 2
lac
jrnp
lac
jrnp
lac
jmp
lac
dac
dac
lac
dac
lac
dac
lat
dac
lio
0
rir
0
isp
jrnp
isp
jmp
jrnp
ppa
ppb
ppa
ppb
k
g
k
g
k
g
k
,Oa, tw mode
+
+
+
+
+
+
7
1
,Ob
7
,1a
2
7
3
,1b
r
r + 2
k + 4
k + 5
k + 6
,-23 setup line ctr
,-60k stop delay 250ms
k + 7
k + 10
k + 10
s9
k + 5
p + 7
k + 7
r + 5
p + 1
,
,punch rt half if a, It half if b
,punch It half if a, rt half if b
,-23 line count
,-60k stop delay
,constants
1
cl
c1
- 23
aa
ac
ab
0
- 60000
0
0
lac ah
dio
sad
jrnp
lac
dac
lac
dac
dac
lac
xor
,100 locate data, general test read check
ah + 1
ah + 1
aa + 1
j + 1
ah + 7
ah
+ 4
ah
ah
ah
ah
+ 6,....
+ 3
+ c:
+ 1
,-2' reset ab and ad
,-12
,377, check 10 lines all holes
sza
jda
isp
jmp
jrnp
rpa
bd
,error
ah + 3
,-12
ab + 7'
ad
,check next 10
1
ad
an
ae
>illo,-,ah-+- 1-:
jrnp 'ab
rpa t
,check 10 lines no holes
dio ah +1
lac ah + '5
,0
ior ah + 1
sza
jda bd
,error
isp ah + 6
,-12
jmp ad
tsp ah + 7
,-2
jrnp aci + 13
,check next 10, 377
jrnp an
rpa I
dio ah + 1
jrnp ac + 2
,0 reset for ,O,n
lac ah + 5
dac aj
dac ah + 6
lac aj + 1
,-377
da.c ah + 3
,pr ctr
lac j + 1
,-cr-.
dac ah + 7
jrnp ae
,check O,n
rpa 1
dio ah + 1
lac aj
,0
xor ah + 1
sza
jda bd
rpa
dio ah + 1
lac ah + 6
,0 init
xor ah + 1
,
:.;:
sza
af
ag
jd1
isp
jmp
jrnp
1dx
jmp
isp
jrnp
jmp
lac
dac
lac
dac
lac
dac
jrnp
lac
dac
lac
dac
rpa
dio
lac
xor
sza
jda
isp
jmp
bd
ah
ae
af
ah
ae
ah
af
af
ah
aj
ah
ah
aj
ah
ae
aj
aj
aj
aj
,error
+ 3
+ 17
,-377
+ 6
,compare word
+
+
+
+
7
3
,-2
2
,377 reset for 377, n
,0
12
+ 5
+ 6
+ 1
+ 3
,-377
,pr ctr
,check 377,n
,-100, reset for binary
+ 2
+ 3
+ 4
+ 5
1
ah + 1
aj + 5
ah + 1
,200 compare word
, check binary
bd
,error
aj + 3
ag + 11
1mp ag + 13
1dx aj + 5
.imn ag
,200 init
,-100
:--~.jJ
- lac
rpa
dio
sad
hIt
jda
ah
,100 check feed
ah
~-
I
ah + 1
ah + 1
_, test complete
bd
,error
; constants
000
0
377
0
- 12
0
0
0
aj
org 450
ba
bb
0
- 377
- 100
0
200
a
lac
rpa
dio
sad
jmp
lat
and
xor
8za
ah
,100, locate data
'
ah + 1
ah + 1
ba + 1
,check data, rt alpha
ah + 2
,377
ah + 1
jda bd
rpa
be
org 500
be
bf
bg
dio
lat
sar
and
xor
sza
jda
rpa
dio
jmp
lac
rpa
dio
sad
jrnp
lat
and
rar
rar
add
xor
sza
jda
rpa
dio
lat
and
rar
add
xor
sza
jda
rna
,error
I
ah + 1
,check data It
89
,377
ah + 2
ah + 1
bd
,error
I
ah + 1
bb
ah
,100 locate data
'
ah + 1
ah + 1
be + 1
,check data , It bin
bk
,770000
86
s6
aj + 4
,200
ah + 1
bd
,error
'
ah + 1
,check data, rt bin
bk
+ 1
,770
s3
aj + 4
ah + 1
bd
1
,200
,error
d10 ah + 1
jrnpbf
bk
bd
770000
770
0
dap bd +
lacbd
hIt
jmp
org 0
bj
0
jmp end
4
,error routine.
,TAPE CONTROL PROGRAM S. L.
,calling sequence
, law or lac command'_
,jda tape
,initial address back' or foward
,final address
11
n
,hIt non normal return
,hIt normal return
opd mam
720073
opd mwc
720071'
opd mrc
720072
opd mec
720034
opd mcb
720070
org 7000
o
tape
,command
dap ~ + 1
ql00
lac
dap kl
idx ql00
lac I ql00
dap k2
idx qi00
dap k3
1io tape
rir 58
spi
,operate bit off
jmp pl04
lac ti05
sza
,tape is sopped
lio tape
msm
cIa
mec
,strobe status
pl02
jmp 1 k3
pl04
lac tape
and t11.1
dac t3
lac tiOS ,what unit number
dac t2
and till
sas t3
,was last operation continue
jmp p60
mec
spi
,is present unit busy
jmp pl03
p60
110 tape
msm
,start up tape transport
dzm
tl0S
pl03
dzm t122 ,flag 4
law p132
dap p131
law p131
dap p134
law q6
dap p12~
dap q7 + 1
dap q7 + 3
dap ql0 + 2
law 6
dap p32
law q15
dap q13 - 4
law p44
dap pl"13
-law
dap
law
dap
law
dap
pSO
p125
p52
p130
q1
q13
rncb
p113
p114
pll5
pl16
p117
pl05
plo6
pl07
pll0
p137
lio
ril
spi
jmp
ril
api
jmp
r1l
spi
jmp
ril
spi
jmp
ril
spi
jmp
ril
spi
jmp
rll
spi
jmp
jmp
law
dap
jrnp
lac
dac
law
dap
dap
dap
jrnp
law
dap
jmp
law
dap
law
dap
dap
lac
cma
dae
jmp
idx
p112
,early complete different unit
p105
81
,its your gap
pl06
81
,-read check
pl07
81
,space back or fow ard
pl10
82
,rewind
p137
51
,foward or reverse
pill
51
,read or write
p112
p120
p122
p123
pl13
tape
tio5
p122
p133
P125
p130
p114
rdck
p134
p115
space
p134
p134
p133
p125
ki
t1l0
p116
k3
dzm bk
eli cIa
msm
mee
jmp
p1ll
tape
86
I
k3
law bread
dap p13l
jmp pll7
lac t2
sza I
jmp -+ + 4
law write + 2
da 'O1~4
p120
p134
p131
p132
p133
p44
p45
p123
p46
p122
p32
jmp
law
dap
lac
dap
law
add
dap
dap
lac
dap
dap
dap
eli
jmp
jrnp
lac
dac
lac
dac
dac
lac
dac
idx
jsp
jrnp
lac
jda
lio
msm
jmp
lac
jda
lac
p120
write
p134
kl
q31
I
q15
k2
q33
q1'1
tl03
7
p131
p132
t107
q7
q32 + 1
q2
q4
q30
q5
bk
read
p44
,your gap
tl13 ,fixed delay for eob
delay
t3
p46
,early complete different
t114 ,fixed stop delay
delay
q6
szf 6
jmp p56
lac t122
sza
I
+ 3
stf 4
jrnp P56
idx k3
lac bk
mec
jmp 1 k3
lac t p122
mec
jmp t k3 ,non-normal return
lac q6
dap ql1
dap t103
lac k2
dap q6
dap q15
lac t104
dac q7
lac tl06
dac q~
dac q4
dac q5
law t 1
add bk
dac bk
stf 6
jsp read
.imn p')O
,your gap
jrnp -+-
p56
bread
0125
1
kl
q6
p50
write
q35
p130
p52
space
rdek
q30
q31
q32
read
p2
lac
jda
jmp
lac
jda
1dx
la:w
dap
jmp
lac
jda
mcb
jrnp
lac
jda
jmp
law
dap
isp
jmp
law
dap
law
dap
law
dap
jrnp
law
dap
law
dap
dap
dap
dap
jrnp
nop
law
dae
110
rnwc
ril
cIa
jda
1sp
jrnp
nop
rowe
nop
idx
sad
jmp
jrnp
dap
mcb
lac
dac
szf
jmp
isp
jmp
jmp
law
eli
dap
mrc
cIa,
t115 ,delay back
delay
p45
t116
delay'_
bk
q31
p122
q30
t1l7
de;1ay
,your gap
p52
t120 ,stopping delay
delay
p45
p22
q13
t1l0
p131
p44
p133
p50
p1e5
2000
p32
p131
q6
q13 - 4
q15
p122
q7 + 1
q7 + 3
ql0 + 2
p13l
' 2
t2
86
delay
t2
q32
q31
q33
q35
q30
p31
t11c
t2
,delay before error miss
r-
c.
~
+ 4
t2
p2
q14
,tape has no characters
t123
I
q~3
ql
110p
jmp ql
szf 2
jmp q2
szf 2
jmp q2
szf 2
jmp q2
szf 2
jrnp q2
5zf 2
jmp q2
szf 2
jmp q2
szf 2
jrnp q2
5zf 2
jmp q2
5zf 2
jmp q2
q~
q7
jrnp p22
ril 56
jrnp ql0
add q6
mre
ql0
dae q6
jmp q3
lac q6
mre
idx q6
q3
sad ql1.
jmp q3
jmp p26
szf 2
jmp q4
szf 2
jmp q4
szf 2
jmp q4
szf 2
jmp q4
szf 2
jrnp q4
q4
q5
q6
szf 2
jrnp q4
szf 2
jmp q4
szf 2
jrnp q4
szf 2
jrnp q4
jrnp q14
ril s6
mre
nop
dio
eli elf 6
szf 2
jrnp q12
szf
r"\
c..
jmp q12
szf 2
jmp q12
szf 2
jmp q12
szf 2
::llBJ)'3q3.2 '
s'zf 2 .
jmp q12
szf 2
jmp q12
szf 2
jmp q12
szf 2
q12
jmp q12
jmp q14
lac t~23
rnre
q15
q14
sas
jrnp
jrnp
law
dac
azf
p26 - 1
ql
I
0
t2
2
jsp q16
iap t2
jrnp q14 + 2
jrnp p26
q16
dap
+ 3
stf 6
mrc
jmp
~
p22
szf
p26
mre
clf
jmp
stf
szf
idx
law
dae
t 6
jmp q14
,is it eob
7
p2
6
4
t122
t 14
t2
,delay after character
rnrc
p27
p31
delay
exit
q11
q33
t2
t3
k1
k~
k3
t7
t103
tl06
t104
t105
t107
tll0
szf
jmp
iap
jrnp
cli
jmp
2
p26 + 2
t2
p27
clf
4
o
dap exit
iap delay
jmp ~ - 1
jmp
dio
lio
o
o
o
o
o
o
,index counter
,unit no + temp stor
,initial address
,final address
,non norm return
,address equal
o
,continue memory
sas
rir 86
law ' 1
jrnp ql0
o
bk
t1l1
o
t112
- 764
t1.1~
- 102
000003
,space count
,block count
,unit mask
,begining delay onread mis char
.foward delay read before ston
:-
t1~1Il
t115
t1l6
ti1?
t120
t122
t123
end
306
- 412
- 424
- 13
- 524
o
o·
,final stop delay-read + write
,back read delay before stop
,write start delay
,eob delay write
_ ,write delay before stop
,flag 4
~storage for read check
, any tape duplicator verifier
org 3000
cIa
dap zero
zero
dzm
idx zero
sas limit
,limit is 340400
jrnp zero
hIt
,set master then contin
rpa I
leader
rcr 89
rcr s9
sas stopcode
jmp leader
rcr s9
rcr s9
,on is no punching
szs 20
jmp setreadbloc
law punchbloc
dap punchorread
law 1000
dap block
jmp patchl
readbloc law 1000
dap block
rpa t
rcr s9
rcr s9
sad stopcode
jmp patch2
dap histo
block
dac
histo
idx
1dx block
sas limit1
,limit1 is 241100
jrnp readbloc + 2
punchorread
jmp
punchbloc
law 1000
dap block1
lac block
dap limit2
,limit2 is 22xxxx
blockl
lio
ppa 1
idx blockl
sas limit2
jmp block1
sad limit3
,limit3 is 221100
jmp readbloc
loadcopy hIt
,set copy then contin
law 0400
dap zero1
zero1
dzm
1dx zerol
sas limit4
,limit4 is 341000
jmp zerol
rpa 1
leader1
rcr s9
rcr 89
sas stopcode
jmp leader1
jmp read + 5
rpa I
read
rcr sg
rcr 89
sad stopcode
jmp patch3
add constant
dap his tal
histol
idx
jinp read
compare
law 0000
dap masterhisto
law 0400
dap copyhisto
,
lac
masterhisto
copyhisto
sas
jmp error
indexer
idx masterhisto
idx copyhisto
sas limit5
jmp masterhisto
jmp loadcopy
error
lio save3
tyo t
,cr
110 lc
tyo t
,lc
lio sam
tyo 1
,m
rir 86
tyo t
,a
rir s6
tyo 1
,s
cli
tyo t
,space
lac masterhisto
and save3
jda type
cli
tyo 1
,space
lac f masterhisto
jda type
lio save3
tyo
,cr
lio poe
tyo
,c
,constant is 000400
,limits is 52'1000
,
,
r1r s6
tyo 1
,0
rir 86
,p
tyo '
cli
tyo t
,space
lac copyhisto
and save3
jda type
cli ,
tyo
,space
lac t copyhisto
jda type
lio save3
tyo ,
,cr
szs 10
,on to contin despite err
jmp indexer
hIt
,if ssl dn end prog
trailer
szs 20
jmp loadcopy
jrnp punchbloc
setreadbloc
law readbloc
jmp readbloc - 4
limit
340400
stope ode
I1m1t1
limit2
lim1t~
limit
constant
limit5
poe
Ie
sam
save3
type
go
exit
leading
twenty
temp
temp1
two
patchl
patch2
n
patch3
m
000113
241'100
220000
22:1100
341000
000400
521000
474663
000072
226144
000777
0
dap exit
dzm temp1
law 1 6
dae temp
lac type
cli
reI s3
dae type
cIa
rcr s3
sza 1
jmp leading
reI 63
1dx tempi
tyo '
iap temp
jmp type + 5
jmp
sas temp1
jmp twenty
law t 1
sas temp
jmp go
lio two
jrnp go
0
0
000020
rer 89
rcr 59
jmp readbloc + 7
dap n
dac block
idx ••
idx block
jmp trailer
add constant
dap m
idx
jmp compare
jrnp end
..
••• multiply subroutine
·..
xsy mpy
imp 1 • b.
a.
loc
dap a
xct
jda g
lac b
idx a
rir 1
rer 9
rcr 9
jmp l a
loe .•• temporary storage
loc
dap f
lac g
spa
ema
rcr 9
rcr 9
xct
spa
ema
dac e
cIa
z eoe mus
z eJz eJz eJz eJz eJz e,z eJz e,z eJz eJz eJz eJz eJz e,
Z eJz e,z e
••• 17mus e
dae e
xct f
xor g
sma
jmp h
lac e
ema
rcr 9
rcr 9
cma
rer 9
rcr 9
dac e
h,
idx f
lac e
jrnplf
fin
{
• •• decprint subroutine, routine to print decimal
••. July 11, 1961
.. .
decprint I
•
law teny
dap return
dap tenz ••• set the nonprint trap
dzm value
••• reset value
law'5
dac position
••• reset position
law a'
dap tenj
••. reset end trap
rcl 9
rcl 9
sma
•.. check for minus
jmp b
cma
dac store
law c
dap printit
••. set trap to print minus sign
jmp set
b.
dac store
cli
xct command
•.• print space since no minus sign
set;
law store
add position
dap d
••• next number to subtract
form~
lac store
d.
sub
spa
jrnp print
dac store
idx value
jrnp form
addtd
print,
dac store
••• restore after going negative
lac value
e.
sza
jrnp printit
printzero.
law 20
jmp teny
tenz.
tenx.
jmp printit
tenya
eli
xct command
••• trap to print no leading zeros
jmp tenb
printit. jrnp tenk
c.
lio minus
xct command
tenk.
reI 9
reI 9
xct command
dzm value
law tenk
dap printit
law tenx.
dap tenz ••• unset nonprint trap
tenb.
isp position
jrnp set
law tenx
dap tenz
tenjl
jmp -+ + 1
a.
law return
dap -+ - 2
lac store
.imn e
stores
value.
loc
Icc
loc
lee
loc
Icc
Ide
positions
jmp
return.
minus.
bei
command, tyo'
fin.
loc
,binary punch and load package modified 19JAN61 for read in check and •
,10 and mid version (loader first)
,binary loader with_check feature added
,19 JAN 61
BF
org 1
a
dzm sum
,clear suegister
jsp rbs
,read binary word and sum
dac b
dap c
spa
jrnp e
,negative ac
assumed jump
lac a + 2
szs 20
lac c-p
dip e
jsp rbs
,read length
add c
,compute end
dac tsl
jsp rcs
,read check sum and check
jsp rbs
d
,read binary word and sum
c
,dac in memory or sad with memory
jmp -+ + 3
lac ' c
hIt
idx c
,index store or check address
sas tsl
,checks for end of block
jrnp d
,store or check next word
jsp rcs
,end of block read check sum and check·
rCjrnp
jrnp a
jsp rcs
e
s'zs 10
,ss 1 off jump to address) set
halt
hIt
jmp ••
b
rbw
dap f
,read binary word subroutine
rpb 1
dio bwd
lac bwd
jmp ••
f
rbs
dap g
,read binary word and sum subroutine
jsp rbw
add sum
dac sum
lac bwd
g
jmp ••
res
dap h
,read check sum and check subroutine
jsp rbw
lac sum
sas bwd
hIt
dzm sum
h
jmp ••
c-p
sad ••
,
sum
contains sum
bwd
,contains binary word
,temporary storage
tsl
rim
jsp longlead
lac rcdio
dac bwd
110 bwd
15q
jsp pbw
lio 1 bwd
jsp pbw
idx bwd
sas reendload
:<'Jmp 15q,
lio rcjrnp
jsp pbw
jrnp pbt
,control and punch 'section
,
scontrol
control
return
clear
next
begin
length
final
jump
dzm
lac
sza
jmp
lac
sza
jmp
dzm
cli
szf
jmp
jmp
tyi
rcr
rcr
sad
jmp
lio
sad
jrnp
sad
jrnp
sad
jrnp
sad
jmp
sad
jmp
sad
jmp
sad
jmp
ril
rcr
ril
dio
jmp
dio
dzm
jmp
dio
jmp
idx
sub
dac
jmp
dio
idx
return?
jump?
pjp
return?
..
sum
clf 1 cIa
1
~
~
+
-
2
2
s9
s9
rc)
clear
sum
rc-b
begin
rc-l
length
rc-f .
final
rc-r
rim
rc-p
pbt
rc-j
jump
rc-s
a
83
53
s3
sum
next
inl
jump?
clear
len
clear
sum
inl
len
clear
jpl
jump?
jrnp control + 3
rC-l
43
66
rc-f
rc-r
51
rc-p
47
62
rc-b
41
rC-j
22
rc-s
rc)
56
return?
jump?
,binary format punch routinepbt
.isP ptf
,initial tape feed
·110 ·1nl
dio bwd
jsp
1io
jsp
dac
pws
len
pws
fnl
, 11,o":eta~J.ng·
~••
s.
,punch location block containing initial location of
,program block, length of block and sum
lio sum
,
jsp ptf
b1
exit
,
pbw
a1
,
pws
d1
,
pjp
jsp pbw
,punch program block with check sum at end
110 ' bwd
jsp pws
idx bwd
sas fnl
jmp b1
lio sum
jsp pbw,
jrnp control
dap
xct
ril
xct
ril
xct
jmp
a1
,punch binary word subroutine
punch-b
s6
punch-b
dap
dio
jsp
lac
add
dac
jmp
d1
tsl,
pbw
tsl
sum
sum
••
jsp
lac
dap
lio
jsp
lio
jsp
jsp
ptf
jpl
jpx
s6
punch-b
punch word and sum subroutine
,punch jump pair subroutine
jpx
pbw
jpx
pbw
longlead
dzm jump?
,
ptf
hi
check
jpx
,
lead
tfl
tf12
ts2
inl
fnl
len
jpl
redia
rcendload
jmp exit
dap jpx
lio lead
dzm sum
xct punch-a
ldx sum
sas tfl
jmp hi
dzm sum
jmp
100
12
340
,temporary storage 2
,initial loaction stored here
,final location stored here
,block length stored here
,jump location stored here
dio a
dio 150 + 12
'loglead, "'
~~dap
. lr
1dx check
lr
punch-a
punch-b
,
,routine
,
pb
jsp ptf
law tfl
dap check
jmp
ppa
I
ppb
I
for program control of bin p+l package
..
,beginning of block stored here
rim?
return
return?
,set control to return
pb
inl
len
rim?
dzm
dap
idx
lac
dac
dio
lac
sza
jmp
jrnp
rim
pbt
dap
idx
lac
dac
jmp
return
rim?
pbr
pb
pb + 3
pbr
rim?
pj
jmp end
dap return
idx return?
jmp jump
,binary punch and load package
,
scontrol
control
return
clear
next
org
dzm
lac
sza
jmp
lac
sza
jmp
dzm
cli
szf
jmp
jmp
tyi
rcr
rcr
sad
jmp
110
begin
length
final
jump
sad
jmp
sad
jmp
sad
jmp
sad
jmp
sad
jmp
sad
jmp
sad
jmp
ril
rcr
ril
dio
jmp
dio
dzm
jrnp
dio
jmp
idx
sub
dac
jmp
dio
idx
jmp
43
7500 ._
return?
jump?
pjp
return?
..
sum
clf 1 cIa
1
~
+ 2
~
2
-
89
s9
rc)
clear
sum
rc-b
begin
rc-l
length
rc-f
final
rc-r
rim
rc-p
pbt
rc-j
jump
rC-5
a
53
53
s3
sum
next
inl
jump?
clear
len
clear
sum
inl
len
clear
jpl
jump?
control + 3
rc-l
66
rc-f
rc-r
51
rc-p
47
62
rc-b
rC-j
41
rc-s
cc..
rc)
56
return?
jump?
, binary format punch routine
r',,,",
modified 19JAN61 for read in check and •
pbt
,
jsp ptf
bl
jsp
110
dio
jsp
110
js'p
dac
lio
jsp
ptf
inl
bwd
pws
len
pws
fnl
sum
pbw
,initial tape feed
,lio starting address
_,punch location block containing initial location of
,program block, length of block and sum
,punch'prograrn block with check sum at end
lio r bwd
jsp pws
idx bwd
sas fnl
jmp bl
lio sum
jsp pbw
J
exit
jmp control
J
pbw
al
,
pws
d1
,
pjp
,
ptf
dap
xct
ril
xct
ril
xct
jmp
dap
dio
jsp
lac
add
dac
jrnp
a1
,punch binary word subroutine
punch-b
86
punch-b
s6
punch-b
d1
tsl,
pbw
tsl
sum
sum
••
punch word and sum subroutine
jsp
lac
dap
lio
jsp
lio
jsp
ptf
,punch jump pair subroutine
jpl
jpx
jpx
pbw
jpx
pbw
jsp longlead
dzm jump?
jmp exit
jpx
dap
lio
dzm
xct
idx
sas
jmp
dzm
"",,,.~,,,,
~l.fJ
. I'
'--~--i
/6
1
II
t
II
'S'
I.
,
t>
IsIt
lu
Iv
Iw
Ix
7z
I,
/tab, printing
I.
~
11
/m
In
/0
?I~
1-
~
/(
la
/b
Ic
/d
/e
If
/g
, ..
;
,..-..-
'1..
~ ~
,'l.
(}
',.,
..
''1
f..> ...,_.
t
')
~ It ; ;
1$
. """-r-
1
t . '. .l . ~~.L~,. .
..... ~.
It
, .... ..
"'''''"'''.~
/0
G'~-;
:'
Ie)
"'I~
~"",.., ~.-.,."
0
0
0
245114
010101
016000
010744
122000
142000
142000
242000
522451
276000
0
600000
0
0
174200
0
214000
614002
222410
204106
164000
124000
114000
522456
645116
124000
0
0
000000
204210
000037
020202
\
II '0( Ir
I~
/1
...~ .."-"'"
14
....-'
~
. ....
".._
.s-
.-~.--.-~~
Ql'far S
7.
I
upr,
112245
561020
042555
061400
122451
042175
0
306020
134410
030004
- 224512
000000
'266504
010000
0
204600
374200
000000
000000
000000
760207
042452
214251
010421
101010
441020
0
0
0
0
0
0
040574
040020
~64205
41020
164306
042506
125326
612420
441020
774040
0
407603
0
0
050774
000000
023562
004304
005250
200000
142000
210000
010101
104210
052704
0
0
0
0
0
0
210000
243056
241056
010237
143061
143061
143061
010521
010521
004077
0
300000
0
0
312000
0
400000
204107
051121
041020
153561
353461
143056
243076
143056
243076
a
007600
144410
214523
374102
214306
214306
164306
604103
154526
614523
/h
/i
/1. e. , printing
/.
/u. c., printing
/bksp, printing
le.r. , printing
/spaee, printing
In
I'
/-
\
2
~
I-:J
Iv
'f
/A
(..
}
If
1
S
~
~
I~
/?
/s
IT
~
Iw
Ix
/Y
/z
/=
/tab, printing
~
/K
/L
1M
/N
/0
Ip
j~
0
a
441174
060410
441020
461020
0
214376
764307
164302
364306
774103
604103
164336
614307
561020
042555
404250
122451
042175
0
306020
start
a
- 0
010000
'204106
010204
010206
0
143056
243076
041056
143076
041037
041037
041056
343061
010216
224512
025040
266504
010000
a
204600
1+
7
~~
fA
IB
Ie
ID
IE
IF
/a
/H
II
Il.c., printing
Ix
/u.c. , printing
/bksp, printing
/c.r., printing
/codeword digit disI?lay
cwd,
0
dap
lac
sad
law
sad
law
ral
add
dac
cwx
cwd
(20
12
(5~
13
is
(lwr
cwd
ewe,
lac i cwd
dac cw
ldx cwd
lac JiO
dac y
setup ctr, 22
setup cty, 7
d,
setup ctx, 5
c,
110 cw
rl1 1s
dio cw
spi
jmp pI t
a,
b,
cwx,
isp ctr
jmp b
lac i cwd
dac cw
setup ctr, 22
isp ctx
jmp lnx
isp cty
jmp iny
lac x
add 2dl
dac x
jmp
.
inx,
lac
add
dac
jmp
x
del
x
c
iny,
lac
sub
dac
lac
add
dac
jmp
x
4dl
x
y
del
y
d
pIt"
lac x
lio y
dpy-i
jmp a
siz,del,
2000
dap sex
lac de+
sal 1s
sex"
dac 2dl
salls
dac 4dl
jmp .
2dl,
4dl,
4000
10000
so,x,
o
sox,
dap sox
dio yO
jmp .
yO,
0
/set origin
variables
constants
/alphabetic codeword tables
lwr,
start
000000
561020
774040
564204
420413
164204
564307
604040
564305
564205
144512
000174
000000
010604
005056
203056
345122
175037
241056
004077
243056
343056
45114
000000
/space
/1
/2
/3
/4
/5
/6
~7
/9
/0
/-
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2003:12:04 18:10:44-08:00 Modify Date : 2009:12:23 20:12:11-08:00 Metadata Date : 2009:12:23 20:12:11-08:00 Producer : Adobe Acrobat 9.2 Paper Capture Plug-in Format : application/pdf Document ID : uuid:23b48cbf-bbdb-4882-9bc8-008db0269c56 Instance ID : uuid:3355f8a7-2e5a-46d6-8e16-f456a06d3c18 Page Layout : SinglePage Page Mode : UseOutlines Page Count : 47EXIF Metadata provided by EXIF.tools