DataMuseum.dk

[7 MAJ 1969                                                         lik,page 1]
[Call:  lik<
This aux programme will read a sik 2,3 or 4 into the staorage. Sik 1 tapes
can be read by call of lik with empty reader, followed by manual set of
R to first cell.9+first track.19 and set of r1 to 42(bits 4,6,8). 0.19 indicates
core store and not track 0]
[here follows STOPCODE,CLEARCODE]
[stop] [clear]
b k=d1, i=240
_
[the program is loaded from cell 240, but executed from cell 10]
zq
arn  s1    ,ga   r34
vy                t-8
ga   r16   ,tk   20
ga   r24   ,vk  (r24)
qq  (r14)         t-1
grn  r26   ,lyn  r4
ca   51    ,hv   r29
ca   25    ,hr   s2
ca         ,hh   r-3
pi   25           t956
hv   r12      NTB
ga   r8    ,pp   6
tl   -6    ,pp   p-1
ly   r1    ,it   63
bs         ,zq
it  (r-1)  ,qq  (r4)
bs   p     ,hv   r-4
tl   4
gr   555      MRC t1
arn  244   D
tk   -7    ,ac   r11
lyn  r-12  ,hv   r-12
bs  (r-13) ,zq
ly   r3    ,tk   -7
ly   r2    ,sr   r7
tk   3     ,ck
zq   6        NZ
can        ,hv   r-22
sk  (r6)   ,it   -40
qq  (r-11) ,it   1
vk  (r-3)  ,hv   r-25
qq
gr   r1    ,hs   r-32
qq   512          t44
zq   512   ,hv   r-2
it   s1    ,pa   r2
hs   r-36         t32
qq   33
hv   r-38
<j,i load error, lik
   _
s
_
>
i=i+39, d=k-d1
b k=d42, i=0, a10
_
a1=d19-960
a=d,<d35,a=1>
<d39
i=d2,hs1
hva5
<d36,tres;
     _
qqf  a.39
⨯<d39
tset;
_
qqf  d35.39
qqf  a.39
[after i follows STOP ,SUM and sum character]
       _
i[stop] [sum] [046] base,lik
_
s
_
[STOP,CLEAR][stop] [clear]
><d39
qq   39,
qq   57,
qq   52,
qqf
tlik;
_
qqf   d.9+42.19+10.29
qqf,
a5:hs   1
hv   a6
tmove;
_
qq   50,
qqf   d.23+d1.39+a1.29-a1.33
tlik;
_
qqf,
a6:hs  1
hv   a7
tsetsum;
_
tlik;
_
qqf,
d2=i
a7:hsf  2
⨯
i=d48
qq  d35.2+11.7+d36.5+d.23+d1.39,
qq,
tlik;
_
qq   d.9+42.19+10.29
d48=i,qqf
>
d1=d+d1
e
_
e
_
i[stop] [sum] [057] lik
_
s
_
[stop]