DataMuseum.dk

;slip<
[1.6.68                                             T1, L1 Gier Algol 4
                                                           16]
b c83, e69 ; Outermost block
_
[Definition of loading parameters
           Possible values    , meaning]
e14=90   ; Depending on available drum, first track for reading by slip.
e4=15    ;     10 _ e4  _ 17  , first core used by translator.
                  <     <
e20=1022 ; 1015e4 _ e20 _ 1022, last   -    -   -      -
                  <     <
e38=15   ;     10 _ e38 _ 200 , first core used by translated program.
                  <     <
e37=1022 ;    800 _ e37 _ 1022, last   -    -   -      -         -
                  <     <
         ;                      Note below: e37 = 1e37.
e27=0    ;   0, arrays in core, e18 and e40 must also be 0.
         ;   1,   -    -  buffer.
e44=0    ;   0, translator medium is drum.
         ;   1,     -        -    - a buffer medium.
e18=0    ;   0, backing store is drum.
         ; 400,    -      -   -  disc with block length 400.
         ; 640,    -      -   -   -    -     -     -    640.
e40=0    ; < 0, no tape units , SAMBA record   handling procedures are included.
         ; = 0, -   -     -   ,   -     -          -        -       - not  -   .
         ; > 0, e40 -     -   ,   -     - and tape -        -       -      -   .
e69=4    ; 4 _ e69 _ 40 , SAMBA record segment length.
             <     <
i redefine wanted loading parameters
_
s
_
[here follows stop code and clear code]
[stop] [clear]
<e40+1,<-e40+1
⨯
e27=1
>
[check load parameters]
<e4-17,e4=0>
<-e4+10,e4=0>
<e20-1022,e4=0>
<-e20+1005e4,e4=0>
<e38-200,e4=0>
<-e38+10,e4=0>
<e37-1022,e4=0>
<-e37+800,e4=0>
<e27-1,e4=0>
<-e27,e4=0>
<e44-1,e4=0>
<-e44,e4=0>
<e40-6,e4=0>
<-e69+4,e4=0>
<e69-40,e4=0>
<-e27+1,<-e18,e4=0>
<-e27+1,<e18,e4=0>
e3=1
<e18+1,<-e18+1,e3=0>
<e18-399,<-e18+401,e3=0>
<e18-599,<-e18+601,e3=0>
<e3,e4=0>
<-e4+1
i wrong redefinition, restart the slip reading
_
e
_
s
_
>
[define some general names]
e13=21e4    ; start translator buffer areas
e28=163e13  ; start adress of GP fixed part
e3=40e28    ; byte input-output code
e16=40e3    ; normal first word of a pass
e37=1e37    ;
e41=1       ; GP seg size
<e44        ; if translator medium is buffer medium then
              __                                    ____
e41=40      ;   GP seg size := 40;
>           ;
e26=41      ; trackplace length for RS
[version and tape number definitions]
d e48=0     ; translator is in := false
_
d e51=16     ; version number
_
d e50=e51   ; max version number := version number
_
            ; set version number for :
d e61=e51   ; T1,L1
_
d e62=9     ; T2
_
d e63=10     ; T3
_
d e64=13     ; T4
_
d e65=15     ; T5
_
d e66=12     ; T6,L2
_
d e67=14     ; T7,L3
_
d e68=8
_
[stop]
bk=e14,i=e28,a25,b35,c7
_
e28:qq
qq
a16:
a:110-3
1
10
960
b1:
e6:bt___t-55
     474
hsa4
e7:gre13,gm41e13
ck0,tl-69
e8:mlna,ptb2
a1:ck-10,gab3
bs(b4)LZ
ptb2t16
b2:pab3tLZ
b3:sy,ncnsa10
a2:pab1t474
b4:ncn_t-256
      0
mln2a,hva1
arne13,pm41e13
a3:
b5:sy59,pab5
sy0,hrs1
a4:
e9:sy64,pab1
b6:sy_,pab6
     1
e29h:hva3,ita17
e5:pab11,it123e13
bs(b15),it83e13
b10:pa124e13DXt124e13
e42:hsb11
e30:
b11:arna__Dte41
       _19
<e41-1
ck10,ar11e4
ar(b10)D
e43:qq_,vk(b9)
      0
il0,hv(s-1)
⨯
hsa5
lk(b10),vk(b9)
e43:qq_,hv(s-1)
      0
a5:ck10,ar11e4
>
e11:gm41e13X
dln3a,ck-10
gab8,cl-10
gab9,pm41e13
b8:vkt960
e17:
b9:vk,hrs1
e3:de22=1,e24=0,e10=i
   _
[stop]
bc7
_
c1:hrnr1X
arns1,it41e13
bs(b17),it-41
it(rb21),pab10
gtrb21,cl-2
tk38,ck-18
acr,ud__e_
      13_4
sy58,arne4
hse9X
nc0,gsrb23
ca3.2,hvrc2
arn16e4,abrb22
ga16e4,sy29
c2:sy35,sy57
sy37,sy53
c3h:qqrc5,hsne8
c4h:pab11,hse30
c5:
b21:pmn__e__Xt
       42_13
ptrb21t-40
is(b10),its39
bs(rb21),hhrc4
c6h:cl34,ck-4
garb22,ca15
hv(rb21)Dt41
b22:sy1.3,cln-6
nc160,hhrc6
pab11ta19
arn8e4,hse11
lk(b10),sy62
b23:pse42-2,ud16e4
grnrc1-1VX1M
hve17
hvr-2
de31=k,e32=j
_
de10=120e10,e22=3e22
_
de24=e24+e41+e41+e41
_
e
_
[stop]
bk=e31,i=0
_
i=e32
e33:tprogram too big;
    _
e34:tstack;
    _
e45:tpass sum;
    _
e46:tpass medium;
    _
e32=i
e
_
[stop]
bc11
_
i=e10,a17=e24
e23=k
c1:it(e43)t1
arnrc_XIRC
   __3
hhrc10NZ
hhrc9LRB
c2:arnrc_t1IRC
      __4
gre__t1MRC
  _13
hvrc2NB
hv(rc11)DVtc5
c3:e21=j,a8=c3-e28
qq
qq
qq
qq
qqf,
qq
qq
qq
qq
qqf,
qq
qq
qq
qq
qqf,
qq
qq
c4=i-1,c5=1e13-e30
pi(16e4),hsne3
grna9,hsne3
c6:pprc7,hsne3
gpb16,hhrc6
c7:hhrc9NPA
gmrc7,hse9
pmn1e4,hse8
arn2e4,pm3e4
c8:nc0,hse7
hvnrc8XNZ
c9h:pmrc7,pse42
c10h:hvfe42,gab10
grnrc3Vt1M
c11:hre3_
      _ 0
hvr-2
e
_
e10=40e10,e22=1e22
e24=e24+e41
e10:
[stop]
bc11
_
<-e44+1
c1:gmne13XVIZC
c2:arn12e4,hvrc7
gtr,pp
c3h:garb25,arn12e4
bsp-512t-473
ca0,hvrc6
hsrc7
ppp-1,it1
c4:qq(rb25)t40
ncnp,hhrc3
parb26,pmn8e4
hsrc9X
c5:
b25:are____t-1
      _16-1
ar2DLA
ar1DLB
pme13X
ca(rb25)X
hrs1IZB
hvrc5
c6:hsrc10
lk(rb25)
ppp-40,arn1a16
ac12e4,hvrc4
c7:
b26:bs,hhrc8
hsrc9
c8h:arn12e4,garb27
ar1D
ca40,arrc11
garb26,it(rb28)
b27:pmXIRC
gr(rb25)MRC
gm12e4,hrs1
c9:hsrc10
parb28,it41e13
bs(b17),it1e13
b28:lkt42e13
vk(e17),hrns1
c10:tk10,ck30
hve11
c11:qq-40t1.29
⨯
c1:gmne13XVIZC
c2:arn1a16,hvrc3
gmrb26,garb25
[stop]
ck10,tl-30
c3:sr12e4,gr41e13
qqnNT
sc41e13,ar12e4
hhrc7LZ
tk20,arrb33
ar(rb25)D
sr12e4,il0
b26:arn_a_6,hvrc6
      _1 1   _ _
ck20,tk30
acrb25,ck10
c4h:sc12e4,arn41e13
hvrc3NZ
c5:
b25:are____t-1
      _16-1
ar2DLA
ar1DLB
pme13X
ca(rb25)VX
c6:sc12e4,arne16-1
hrs1IZB
c7h:hvrc5,parb29
arnrb30,acrb31
c8:
b27:arnrb31,il
b28:arnrb34,il
il0,pmrb32
c9:arrc10D
us0,arn12e4
b29:btVt-200LT
gm12e4,hhrc4
hrs1IZC
hvrc8
qq
b30:qq
b31:qq
b32:qq
b33:qq
b34:qq12e4.9+1.19+b31.39-e28.39
c10=b31-12e4
>
[stop]
e
_
e10=40e10,e22=1e22
e24=e24+e41
e10:
[stop]
bb3,c5
_
c:cln-20,garb1
gtrb2,tl-5
pse13-1,pmrc5
cl-10NZA
b1:piVt508LZB
gme13,hve5
hhrc4LZA
dc6=e20+i-c-40
_
car-c6-i+9,hhne29
gab6,ud14e4
pm8e4,arn9e4
hvrc1XLRA
hvrc1NQA
sr5e4,mb1a
gr8e4,ar5e4
pm5e4X
sr8e4,sr1a
c1:gm8e4,gr9e4
qq(b11)te41LRB
qqr2,ite3
pab10,hse30
pa2e4,pa3e4
c2:arn8e4,hse11
pab5t59
lk1e13,uda2
arn8e4,ar1a
grne4VNRB
gr9e4LQA
grna12LQA
grn1e4LQA
arna9,gte5
c3:arn(b18)t1
hsa14LA
qq(b18)V-1NZ
c4h:hvrc3,ud14e4
lynDLKA
pi(16e4),ud16e4
grnrc-1Vt1M
b2:hv_t
     0
hvr-2
c5:qqne46te45+1.26
e
_
e10=40e10,e22=1e22
e24=e24+e41
e10:[stop]
bk=e22+e14,i=e3,a1,b1
_
a18=e24
e3:hv_e_t2NKB
     1_3
a9:a10=-a9
hse_t123e13
  _6
hv(e3)t2
e12:
b15:gr__e__t1
      82_13
hrs1
ck-10,gt(b15)
hrs1
ck20,ac(b15)
hrs1
ck10,ac(b15)
pae3ta9
hrs1NA
arn10e4,ac1e4
arn4e4,sr1e4
hse5LT
hvr1,qqne33
hsa1
qq9e4,arn(b15)
is(b15),sks-40
qq(b15)t-82LB
b16:hve12
a12:srn1_e_,ac1e4
      _ 0 4  _ _
hsa1
qq8e4,arn(b1)
is(b1),lks-40
qq(b1)t-82LB
e2:b1:
a14:
b17:arn__e__t1
       81_13
gae13-4V__
        NA
hva12
tk10,gae13-3
tk10,gae13-2
tk10,gae13-1
b18:e1:arne13-1t-4
hrs1
a13:
a1:arn10e4,ac(s1)
e15:
arn6e4,sr(s1)
arn(s1)VNT
srn4e4,hha1
hve11
qq
de24=e24+e41,e10=40e10
_
de22=1e22
_
e
_
[stop]
bk=e22+e14,i=e3,a1
_
e3:hhe_t2NKB
     _3
hse_t122e13
 __6
  _
  _
  _
hva1,ck10
e12:
b15:gr___e__t-1
      123_13
hrs1,ck20
ac(b15),hrs1
ck-10
gt(b15),hrs1
ac(b15)
pae3Ve3
a1:hh(e3)t2
hrs1NA
e25:arn10e4,ac1e4
arn4e4,sr1e4
hse5LT
hvr1,qqne33
hsa13
qq9e4,arn(b15)
is(b15),sks1
qq(b15)t82LB
b16:hve__
      _12
e35:
a12:srn1_e_,ac1e4
      _ 0 4  _ _
hsa13
qq8e4,arn(b17)
is(b17),lks1
qq(b17)t82LB
e2:
b17:arn42e13t-1
gae13-1VNA
hva12
tk10,gae13-2
tk10,gae13-3
tk10,gae13-4
e1:arne____t-4
      _13-1
hrs1
a13:srn10e4,ac(s1)
arn(s1),sr5e4
arn(s1)VNT
arn4e4,hha13
hve11
qq
e16:
de24=e24+e41,e10=40e10
_
de22=1e22
_
e
_
[stop]
i=e10
bc7
_
a19=e24
bs(e43),hvrc6
arn11e4,arrc5
a21:gr12e4,pmrc4
c1h:pp86,ppp-1
canp-4,it-43
grn123e13t-1M
bsp-13,hhrc1
acn13e4t-1M
bsp-4,hhrc1
gm17e4t-1MA
bsp-2,hhrc1
grn205e13t-82MA
grn164e13t-82MC
bsp-1,hhrc1
pab11ta18
qqr2,ite3
pab10,hse30
arn8e4,ga15e4
tk14,gr2e4
arn6e4,gr-2
c2h:arn9e4,ppp-1
ck-10,gtp16e4
bsp3,hhrc2
grne4,arn5e4
gr9e4,ar4e4
sr1a16,gr6e4
gr8e4,hse11
sk42e13,pi(10e4)
gi16e4,arn1a16
ar1a16LQA
gr10e4,sc9e4
grn1e4,hhne29
c4:qq1023,vy
c5:qq1e22.39
c6:pa2e4,arn2e4
tk-14,hse11
lke3,vk(e17)
it(15e4),hvne3
qq
qq
de24=e24+e41,e10=40e10
_
de22=1e22
_
e10:
e
_
[stop]
<-e44+1
da20=e42
_
⨯
a20:arn14e4,gtb27
ck-10,gtb28
arn11e4,grb30
arn13e4,grb32
arn12e4,grb31
tk24,ck16
arb32,grb33
acb34,ara22
gr11e4,ara23
us0,srna24
arb32,gr12e4
hvr-1LT
gr12e4,hha21
a22:qqte41
a23:qqe28te28-e10-e41
a24:qq40e10.39-e28.39
i=39e10
qq
de24=e24+e41,e10=40e10
_
de22=1e22,i=e10
_
>
i=e28
qqe10-e28,hva20
qqa8.9+e4.19+e27.20+e44.21f,
e
_
[stop]
e39=190
<e27
e39=e39+11
>
<e40+1,<-e40+1
⨯
e39=e39+e69+56
>
<e40
e39=e39+e40
>
e36=e37-200
<e39-200
e36=e36-40
>
<e39-240
e36=e36-40
>
<e39-280
e36=e36-40
>
e36=e36-40
e36=e36-40
bk=e22+e14,i=e36,a50,b50,d40
_
d33=e40+e40+e40+e40
d33=d33+d33+1
d1=e38
d3=4
d4=164
d8=19
[stop]
a42:nt(13e4),qq(rb34)
arn1e4,ck-10
sc13e4
arn3e4,gtrb35
arn(13e4)D
garb32,ck10
acrb35,ps(2e4)
nts3,parb33
pss2,itsd9
ptrb33,pi(16e4)
srnd28D
ac13e4,tl-30
ar9e4,gr9e4
sr5e4,ppr40a42
hse5LT
ac5e4,qqne33
a43:arn9e4,hse11
skp,ppp40
arnrd21,ac9e4
ncnp-e37+1,hvra43
hvra44NPA
hse9
pmn1e4,hse8
srn(13e4)D
hse7
pmn5e4,dlrd20
ck-10,hse7
cln-10,hse7
a44:pa2e4,arn2e4
tk-14,hse11
lke3,vk(e17)
srn(13e4)D
ck-14,ar5e4
it(15e4),hve3
qq
qq
qq
qq
qq
qq
d26=k-e14
[stop]
a40:ppa40,hsra41
ppp40,ncnp-e37
lkp,hhra40
it(rb37),ptd6
pp(rb36),arnd25
acra40-1,hsra41
gpd6,pp(rb36)
b32:qq,hsa34
b33:qq,ps
a35:ppp-1,ard23
grd2t-1MA
bsp-1,hvra35
<e27,<-e40+1
arnra40-6,grd13
⨯<e27
arnb44,grd13
>
<e27
acd14,arnra40-5
tk15,grb20
⨯
qq
qq
qq
>
gsb20,pmnra40-2
arnra40-4,grd32
dlnrd20,ck20
acd17,cln-10
gad18,pmnrd24
arnra40-3,gad31
gm0MA
pmrd22,udra36
gkr-2,it(r-2)
ptd19,udra36
gmd1MC
a36:gmd1te26MA
it(rb32),ptd15
b34:it,ptd16
b35:hsa8,qq
a41:arnrd21,acra40-1
pmra40-1,dlnrd20
ck-10,garb36
cln-10,garb37
b36:vkt960
b37:vk,hrs1
[stop]
d20:qq960.39
d21:qq1.39
d22:qq512,hsa10
d24=39a40
d24:qq,hhd31
pa8,hsf3
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
i=e37-e39+1
a34:gsb31,acb30
ps(s),pma33
its-576,bs(b30)
pss960,ppp1
gpd30,nts-512
b30:ps___,gsb28
      512
nts512,ptb26
itp,ptb1
itp-1,pab27
gmd9MA
[stop]
<e40+1,<-e40+1
⨯
e60=i
arnb13,srb29
hvr3LT
grb13,arb38
us0,hvr-3
arnb45
arb29,it1
it(b23),bse40+1
us0,hvr-2
e60=-e60+i
>
b31:ps,arnd2
a31:gmd_t-1MA
      _9
pma32,it-1
bt(s1),hva31
ppd8,hhs1
a32:arn_,gar1
       0
a33:qq_,hha8
      0
c49:
d2:ca_,hhd1
     0
d9=d2-d8,c=d9
[stop]
hhb28NRC
a1:c23:
b1:ps,vk
b26:its-512,bs
b27:vk,iss960
b28:vks,ps(b2)
a2:gsr1,arns
sr__t-e26
  -1
ps(r-1)NT
hha2NB
arnd10,acb14
hhr1NRC
lks1,gsb11
a3:bss-d1+512e26t512e26
pss-e26-1,hva3
it(b1),pas+d2-d1
ps(b11),arn(b7)
ca0,hva4
is(b20),its-e26-512
bs(b3),hva4
gan(b7)t-1
arnb10,ara5
b2:grd__d__e__te26MA
     _1+_4-_26
b3:qqd__d_____te26
     _1+_4-512
a4:hha10NRC
d30:vk,hha10
a5:qq-4.9+123.26+42.35,qqd7
a6:gab4,it0
a7:
b4:arn__Vt-e26NB
      -1
hv(a11)D-1004
ar21D
arn512DNO
ga(b4),hva7
[stop]
c3:pma16,uda16
c1:grb21,arns
gtb9IRC
arn(b1)D1
d19h:hv(b7),vy
c4:it(b1),ptb8
it(b11),pab5
b5:c32:qq,gsb6
c2:
a8:grb21,arns
c26:
a9:gtb9IRC
ck-10,gab1
b7:
c5:hvd___,arnb5
     _2-3
b6:ps,gab11
c62:
b8:pab1V__IRC
        -1
a10:d7=a10-2
b9:gsb11,pss__
            -1
a11:
b10:arn____D1
       -492
c65:
b11:ga__VNO
      -1
arnb2,hva6
arnb21
hhs1LRC
hvs1LRA
b12:hvt1
c6:grb21,gsb12
arna16,it(s)
arn(b1)DIRC
ptb9,hv(b7)
c63:gsb12,hva9
[stop]
c7:it(s),pab24
arnb20,gab16
a15:nt(b24),is(b20)
its-512,bs(b3)
a16:pafb12Vd5IRC
a17:gsb17,hva27
dd5=a17-1
_
a18:qq(b3)t-e26
qq(b2)t-e26
it(b7)t1
bsd2-d3+2,hva19
ptd2-1,hvd6
c8:arnb1,ck10
gr(b20)t-1MA
gp(b20),nts
nt(b11),pt(b20)
a19:is(b20),its-512
bs(b3),hva18
hha22NA
a20:ps(s),arns
pp(s),hhp
c13:pp(b22),psa12
<e27
c9:pp(p),arnp1
mbd12,grb20
srp1,tk15
acb20,hvs1
⨯
c9:pp(p),pmp1
gmb20,hvs1
>
c14:ard10XIZA
ar512DVLZA
ptd2-2,hvd6
a22h:hrs1,its-512
bs(b3),hva17
nts,nt(b11)
ptb9,hva1
[stop]
c11:gr(b16)t-2MA
gp(b16),pp(b16)
gtr,is__
      -1
gps1,pmb20
gmp1,hva27
c12:arnsD
qq(b24)t1
ac(b16),hva27
d11:qq1.26+1.36
b25:pab22t
a23:hha20NZ
hva26XIRC
a24:arpDV
a25:
c57:
b24:qqt-1
a26:c10:
b16:grt-1MRC
a27:c38:
b17:pmnXt1IRC
hva25NC
hva24NT
grb18
c51:
b18:qq,
ptb25
hva23LRC
arnb18,mbd11
arb25IRA
d15:hva26,ps
[stop]
c15:ar(s)DLO
gab19VLT
hvs1
b19:
c16:arnst3IRC
grb23,grb15
hvs2NC
c52:
b15:qq,
pab22NRA
grb23VLRB
nkf39,grfb23
d16:hvs2,ps
c28:arn(s1)
hvs2NZ
c25:ptd2-9,hvd6
c18:
a28:pab22tb23
c19:
a29h:ps(b20),grb21
its1,pab20
pp(s)V
a12=i-1
ps(b22)
arns,hhp
c37:lynp_D
        0
c39:sy(s),hvs1
[stop]
<e27
c20:acp1,pmd12
cm0DNZ
a30:ptd2-3,hvd6
ck15,scb20
arnb20,tk11
tk-26,srd13
hva30LT
ard14,hvs1
d12:qq-1.25
c36:
d13:qq0
d14:qqb23t1
c21:pmp-1,uda28
c22h:gmb23,arnp1
mbd12,grb20
hhna29
c24:pab22tb23
grb21,uds1
arn(s1)
us0VNZ
ptd2-9,hvd6
arnb21,hvs2
⨯
c20:arnb20VLT
a30:ptd2-3,hvd6
ck10,sr(s)
hva30LT
ck-10,gab20
gap1,hhc7
[stop]
c21:pmp-1,uda28
c22h:gmb23,hhna29
c24:grb21,arn(s1)
gab22VNZ
ptd2-9,hvd6
arnb21,hhs1
>
d32:
c31:qq
d31:
c64:qq,ptd2-10
c27:
d6:vk,vk
lk(d17),udd17
c29:
d17:hv1d1,vk___
            960
d18:vk,hv1d6
<e40+1,<-e40+1
⨯
c66:gar2,tk-27
ard35,grb47
c67:btt-e40+511
il0,hrs1
ptd2-17,hsd6
pmb23,gar2
cab23,il0
arn_,hvr5
   0
pmb23,grb23
arn(s),gar-2
cab23,us0
arnb23,gr(r-4)
gmb23,hrs1
[stop]
c48:xrLOC
ilXLTB
usXLTA
hvs1NPB
xr
gab41,gtr1
gsb40,psn
pss-1,ar(b41)
bss,hvr-1
b41:qqs,acb44
b40:hvt1
c40:arnb47,us0
c46:hhrc_,udc18
       _5
pac46tc5-c46
psp+2,hhc22
c60:arnd34,is(b45)
ils224,il0
arnb46,hrs1
>
c41:d10:
c42:qq1.39
c58:qq10.39
c43:
c44:qq-1t256
c53:qq0t256
c35:b20:qqf
c55:vy48t768
c61:b14:qq
c30:b22:qq
c33:qq
c54:qq
[stop]
<e40+1,<-e40+1
⨯
c45:b46:qq
c83:qq
c82:qq
c47:b44:qqd33.39
c81:b47:qq
c73:qq
c74:b38:qqb23t8
c79:b29:qq8.39
c80:b13:qq4096.39
i=c73+e69
>
c50:b21:qq
c34:b43:qq
c68:qq
c70:d25:qq
c72:d23:qqte26
c17:b23:qq
c56:qq
<e40+1,<-e40+1
⨯
qq
qq
qq
c69:qq
qq
qq
c71:b45:qqb23t1
>
<e40
qq
qq
qq
qq
qq
qq
i=c71+e40+1
>
[stop]
<e40+1,<-e40+1
⨯
c75:d34:qqb46t1
c76:qq1
c77:qqt1
c78:qq1.25-1.39
d35:qqc56.9+8.19-7.39
e60=e60+c60+c40+c46+c71+c72+c56+c71
e60=-e60+c66+c67+c48+c45+c81+c80+c45
>
c59=1023
e37:
e19=c+c1+c7+c11+c13+c20+c24+c17
e19=e19+c1+c11+c20+c17
[stop]
d27=k-e14
bk=d27+e14,i=1d1,c18
_
gi1d1IRC
gs2d1,udd19
gr3d1IOA
gp4d1,arnd6
sy64,gm5d1
gt6d1,ps
ga9d1,cans-959
ps-1,it1
vk,vks1
lk42d1,vk(9d1)
c1:pp-1,arnpd2
ck10,nc0
ppp-1,hhc1
arnp1d2,arr1
gtpd2,xrne26
bsp11,ntp
arnc_,sy58
   _3
sy29,cl40
c2:cl-6,ck-4
ca63,arr1
gar1,nc10
sy,hvnc2
srnpDX
gm6d1,bsp-502
cl-30,hsnc17
<e40
sy0,sy(3c69)
>
sy0,hv42d1
c3:terror ;
   _
tstack;
_
tmult;
_
<e40+1,<-e40+1
tarray;
_
⨯
tbuffer;
_
>
tcase;
_
tindex;
_
tln;
_
tsqrt;
_
texp;
_
tformal;
_
tspill;
_
qq
qq
<e40
⨯
qq
>
[stop]
c4=41d1
c4:arnb8,pp(b1)
qq,udd16
ntp-511,bss-512
gtr,pp
sy0,udd15
c5:itp-576,bss-512
psp-65,parc8
c6:pss+64,uda1
ud1a1,ud1a1
ud2a1,ud2a1
ud3a1,lk83d1
vk(2a1),pmn122d1
gp7d1,cln-10
c7:qq_V_NO
     0 0
it1
ptrc7,ck-10
ar(rc7)DX
cln-20,gm9d1
c8:bs_,hvrc5
     1
c9:bs_,gm8d1
     1
hsrc12
can(rc9),hvrc10
psp,sy32
parc9,hhrc6
c10:pmn7d1X
sy27,sy0
cl10,hsrc12
ps1d1,arn6d1
hh(d17)D41
c11:m10-3
    _
10
c12:mlnrc11,parc15
c13:ck-10,bs(rc16)
c14:parc15t16
c15:arn_DLZ
       0
gar1,nc0
sy_,udrc14
  0
c16:ncn_t-256
       0
mlnr1c11,hvrc13
hrs1
c17=c12+1
c18=81d1
c18:qq
e22=k-e14,e47=j
d29=e36-80
e
_
[stop]
d28=e22-d26
i=d25
qqe22.39-d27.39-1.39
bk=e23,i=0
_
i=16e21
qqd29.9-1.9+e37.19-d29.19+3.20+d29.39-1.39f
e
_
e
_
de49=2
_
i[stop] [sum] [046] T1,L1
_
s
_