DataMuseum.dk

;slip<
ba50,b30,c20,d50
_
iP1, include algol:
_
di=15,d37=0
_
d24:qq
di=i-1
_
itype: actual first track of translator
_
s
_
itype: d35 = kind of final translator medium
_
s
_
<-d35,d37=1>
<d35-6,d37=1>
<d35-3,<-d35+6
d37=1
>
<d37,iwrong kind
     _
hsf2
ei-1
_
>
c:qq1.39
c5:ttranslator medium;
   _
c9:qq40.39
c10:qq39.39
c11:qq400.39
c12:qq512.39
[stop]
a18:vy17,sy29
pta22,hhr2
a19:pta22t1
a25:vy17,sy64
it(s),par1
a20:pmn__X
       -1
cl34,ck-4
gaa21,ca15
hv(a20)D1
ca10,hha22
ca63,it1
a21:sy,cln-6
a22:hh1a20,bs
vy33,hrs1
hsf2
a12:hv(a14)D1
a13:dlna16,ara16
ck-10,gaa26
cl-10,gaa14
a14:is,cans-960
paa14,it1
a26:vk,vk(a14)
a15:lkd_,vk(a14)
      _2
qq(a15)t40LZA
hrs1
a16:qq960.39
d20:gsd21,pmnd24
hsna13IZA
arnd2,gaa1
a1:pp,vy33
ppp-40,psr-1
bsp,hva12
paa15td2
arnd9,gar1
pptd2
<-d35+6
gpb1,ck21
⨯gpa10,ck21
>
d21:hvt1IOB
<-d35+6
b10:grnb2,hsd20
pp-1,ppp1
b1:pmp,ncnp-14
tl9,tln-9
tln19,acb2
bsp496,hh1b10
[stop]
arnd9,gtr1
arn___D
   184
ck-10,gtb3
ck-10,acb3
pmn(a1)DXt-1
cl10,dlnc9
arc,ck-10
gab3,arnb2
srcX
dlnc9,arc
tk16,ard24
grb9,grn-1
bs511d35VLOB
bsd35
qqc5,hsa18
arnb2,src
xr,dlnd13
arc,grb2
arnb_,nc39
   _2
acn(r-1)MB
hv(r-2)Dt1LZ
dd36=0
_
<-d35+2,iif reserved then type: d36=1
        _
s
_
>
<-d35+6
hs1
hvb5
<d36,tres;
     _
⨯<-d35+6
tset;
_
qqfd35.39
>
<-d35+6
b2:qqf
qqf3.39
qqf
qqf
<-d35+1
di=i-3,d13=c9
_
<-d36+1,itype: final first track
        _
s
_
>
<d35,<-d35+2
di=i-3
_
<-d36+1,itype: disc no, first block
        _
s
_
>
<d35-1,<-d35+3
di=i-2,d13=c12
_
itype: reel, first block
_
s
_
>
<d35-2,<-d35+4
di=i-3,d13=c11
_
itype: unit, file, block
_
s
_
>
[stop]
<-d35+6
qq39,
qq57,
qq52,
qqf0
b4:itype: tname of translator;
   _      _
s
_
b3:qqf
qqf0,
b5:arnb___t1IRC
      _4-1
grb_t1MRC
  _9
grb_t1MRC
  _6
hvb5NRC
grn(1b5)MC
grn(2b5)MC
hs1
hvb8
tmove;
_
qq50,
b9:qqf
di=50i
_
b8:hs1
hsf2
tsetsum;
_
db6=i-1
_
<d35,<-d35+2,itype: if CDC disc then 640 else 400
             _
d13:qq
d i=i-1
_
s
_
>
<-d35+6
dd2=50i,d9=1d2
_
eb10
_
>
[stop]
b11:hsd20
pp(a1)VNO
qqc5,hsa18
hsna23
pmn(d2)DXVt-1LZ
qqc4,hsa18
cl10,dlnc9
ck-10,gad23
pp(d2)td4
arnd9,pad12
gtd22,ck10
gad1,gar1
ps,itsd5
d12:itp_,ptd2
       0
its21,pad
its263,pad13
itpd6,paa3
itp,pt(a10)
ppd7,vy33
pm(d2)DX
ck10,grc7
a2:pmpdIRC
a3:gmp_MRC
      0
ppp-1,canp-39
paa3td8
bsp,hva2
pp(d2)
ppp-1,hsna23
pp(d2),grpd11
srnpd11,grpd11
pp-1,hsa17
qqc2,hsa19
it(a10),pta24
[stop]
a4:lynD
a5:hsa17
sy13,grnc1
a6:ppp1
bsp-39VNZA
hha7
pp0,hsa12
arnpd2
ar2DLA
ar1DLB
a7h:acc1,pmnpd2
ar2.2DLA
ar1.2DLB
paa9X5
a8h:cl32,gar1
sy,cl-7
a9:bt_t-1
     5
hha8
arnc7,src
arnc1VLZ
grc7,hva6
pin0LZA
a10:arnXVt1LZ
qqc4,hsa18
a24:ns(a10),pss
ncns14X
tk10,ck-10
tl-20,grc7
cans2,hva11
ncns17,hva5
pta22,hsa17
qqc6,hsa25
a11:hsa17
qqc3,hsa19
hva4
a23:ppp-1,arpd2
ar2DLA
ar1DLB
bsp,hva23
ck0,hrs1
c1:qq
c7:qq
c2:ttear off. first tape is punched by typing SPACE;
   _
c3:ttear off. next tape is punched by typing SPACE;
   _
c4:tpass sum;
   _
c6:ttear off. end paper tapes;
   _
[stop]
d:
ba2,b10,c10,e28
_
de4=0,e13=21,e28=163e13
_
de16=80e28,e11=34e28
_
c1:gmnVXIZC
c2:grnrb6
d22h:gsrc8,ps
hhrc5LZ
gtr,pp
garb5,tk20
nc2.4,hvrc5
c3h:pmrb8,uds14
sy64,sy58
sy62,sy0
c4:cln-6,ck-4
garb1,nc2
b1:sy,hvrc4
lynrb1,uds16
canp,hvrc7
c5:
c5h:grns41e13,uds15
ca13,grnrb2
b2:lynrb_,hhrc_
    ____1 ____5
parb3t5
c6h:lynrb4,tl-7
b3:btVt-1NT
hvrc9IZC
lyrb1,hhrc6
tl10,uds16
b4:pit1020
d13:
b5:gre____MRC
     _16-1
b6:qq(rb5)Vt1
arn(rb5),hvrc9
ar2DLRA
ar1DLRB
acs41e13,ppp-1
ncnp,hhnrc5
arns41e13IZB
pmrb7,arnse13
tk20,ca1.0+1.4
hhrc3LZB
c7:pmse13
c8:
c9:ps,hrs1
b7:tready;
   _
b8:tpasses;
   _
[stop]
d1:
a2:pp,arnp5
srp3e28,grp11
a:arnp5,hspe11
skpe__t40
   _28
arnp3e28,acp5
scp4,it-1
d23:ncn,hvra
vk(p5e11),hhra2-37
qq
e
_
dd4=i-d1
_
a17:par1t100
btt-1
sy0,hvr-1
hrs1
dd2=i,d3=1d2,d5=-d4+184
_
dd6=d2-39d4-1,d7=39d4
_
dd8=d2+200,d9=1d2,d11=d2-1
_
ub11
_
e
_
e
_
s
_
[stop]