DataMuseum.dk

[30.11.68                           T7,L3 / SAMBA    Gier Algol 4]
[this tape is to be loaded after the tape T7,L3 if some SAMBA-system
 is to be added to the standard Gier Algol 4-compiler]
<e49-8, <-e49+10, ⨯  ;   test tape number
i wrong tape
_
s
_
>
[here follows STOPCODE and CLEARCODE]
[stop] [clear]
ba40,b50
_
m
_
b48=e69+e69+e69+e69+e60+114
<b48+1,<-b48+1,⨯
e
_
ino T1,L1 - SAMBA match
_
i=10
hsf2
e10
_
>
<e40
b0=1
⨯
b0=0
>
b26=e69
[define standard SAMBA system]
b1=b0
b2=b0
b3=b0
b4=b0
b5=1
b6=b0
b7=b0
b8=b0
b9=b0
b10=b0
b11=b0
b12=b0
b13=1
b14=1
b15=b0
b16=b0
b17=b0
b18=b0
b19=b0
b20=b0
b41=b0
b28=0
b29=0
b30=0
b25=1
b31=0
b32=0
b24=0
b43=0
b44=4
[here follows STOPCODE , SUMCODE and a sum character]
[stop] [sum] [032]
<b0
iredefine SAMBA system
_
[after s follows about 100 SPACES]
       _
s
_
>
[here follows STOPCODE and CLEARCODE]
[stop] [clear]
[check system consistence]
<b41,<-e40+3
isort requieres 3 or more tape units
_
isort is deleted
_
b41=0
>
<-b1+1
b33=b2+b3+b4+b6+b7+b8+b9
b33=b33+b10+b11+b12+b15+b16
b33=b33+b17+b18+b19+b20+b41
<b33
b1=2
>
<-b28+1
<b6+b7+b8+b9+b10+b12+b41
b28=1
>
<-b29+1
b33=b3+b4+b5+b6+b7+b8+b9
b33=b33+b10+b11+b12+b13+b14
<b33
b29=1
>
[stop]
<-b5+1
<b6+b7+b13+b14
b5=2
>
<-b12+1
<b3+b4+b6+b7+b8+b9+b10+b11+b41
b12=2
>
<-b3+1
<b6+b8+b41
b3=2
>
<-b4+1
<b7+b9+b41
b4=2
>
<b10
<-b3+1,<-b4+1
isetproc without open
_
>
<b11
<-b3+1,<-b4+1
iresearch without open
_
>
<b12
<-b3+1,<-b4+1
iclose without open
_
>
<b31-b32
b15=0
b16=0
b17=0
b20=0
b41=0
>
[stop]
<b32-b31
b2=0
b3=0
b4=0
b5=0
b6=0
b7=0
b8=0
b9=0
b10=0
b11=0
b12=0
b13=0
b14=0
b28=0
b29=0
b41=0
>
[define error messages]
b34=14
b35=15
b36=16
b37=17
b38=18
b39=19
b40=20
[define RS-entries]
b49=3c67
b50=6c67
[here follows STOPCODE , SUMCODE and a sum character]
[stop] [sum] [044]
<b24
iredefine SAMBA system in debug mode
_
[after s follows about 100 SPACES]
       _
s
_
>
[here follows STOPCODE and CLEARCODE]
[stop] [clear]
<b0,<b17+b19
a35=d-d1
d=1d
>
<b0,<b17
d=1d
>
<b0,<b19
d=1d
>
bk=d,i=11,e54
_
a0=d-d1
e40=a0-1
[stop]
<b1+b18+b19,<b24
itapetest,rewind
_
>
<b1+b18+b19
b a10,d11
_
e40=1e40, e43=e40
a0: hsra4,grn2c69
pmc72,mlnrd1
a1h:hvr1,mlnc58
arc58LZ
ar2c69,tk6
gr2c69,it-256
ncn0,hhra1
srnc34ITB
acn3c69MTB
ganra2,hvra9
a2:qq,gsr
a9:qq1,hsc6
its1,ptra10
pac33t-2
arnc35,tk-15
a3:mbc78,src36
tl-2,pmc77
hv2c20LZ
cln-38,gmc17
arc36,is(3c69)
d7:ils16,hsc60
bt(c33)t1LT
arnrd2V
psra3,hvnra5
arc36,il0
arnc74,ck-10
para0-1Xt512
qq(c33)t-1
a10:arnra2,hv_
             0
hsr1,hvc40
a4:hsc66
a5:pmc56,is(3c69)
uss64XVNC
ptc49-b36,hsc27
arn3c69XIRB
tl-12,tl12
gm3c69MRB
us0,hhs
d1:10-3
d2:qqc73t4
e12=d7-a0+1
e20=a4-a0
e21=a2-a0+1
i=40a0
[stop]
<b24
itapetest 2
_
>
<b1+b18+b19
e40=1e40
a8:qq1,hsc6
qq(c23)te32
past512
para8-1t512
gard8,gmc74
pm3c69,is(3c69)
uss64LB
arn2c69,src74
mt-1DLT
it(c33)
bs1,hvr3
mtr-3,is(3c69)
uss64NZ
pm(rd8)DX
hvrd8XNZ
arnc74,gr2c69
bs(c34),it5
pan2c66X
qq(2c66)V20LZ
qq(c17)t1
itrd5,pard
arnc80,cl-24
pmc73X
gsrd8 ,srrd3
hvra6LZ
arrd4,udra7
qq(rd)XV2LZ
qq(c17)Xt4
arc79,src70
qq(c17)V2NZ
a7:qq(rd)t1
a6:d:arn,pmc17
d8:ps,hvs1
d3:qq41.5+51.11+49.17+41.23
d4:qq49.5+57.11+60.17+0.23
d5:
qq0.3+0.8+10.13+2.18+15.23+3.28+15.33+3.38
qq2.3+2.8+10.13+2.18+ 2.23+2.28+10.33+2.38
qq2.3+2.8+10.13+2.18+ 3.23+3.28+11.33+3.38
qq0.3+0.8+ 8.13+0.18+ 0.23+0.28+ 8.33+0.38
qq0.3+0.8+ 8.13+0.18+12.23+0.28+12.33+0.38
>
<b1,<b30
iread tapetest redefinition tape
_
[here follows STOPCODE , SUMCODE and a sum character]
[stop] [sum] [044]
[after s follows about 100 SPACES]
       _
s
_
[here follows STOPCODE and CLEARCODE]
[stop] [clear]
<-b25+1
iSAMBA alas
_
e
_
e
_
i=10
hsf2
e10
_
>
<b1+b18+b19
i=40a8
[stop]
<b24
itapetest 3,unload
_
>
<b1+b18+b19
e40=1e40,e53=e40
it(c65-1),par-1
bs(c33),it10
ck(2c66),gar1
d9:piXt63
bs(c33),mtr1
tk-30,grc17
acn1c56MOC
acn2c69MTC
hsc60
ck-4,mbrd6
ca(c68),hvc40
arc68,gar1
pi,pm-1
ca4,pi2
vy17,sy64
sy20,sy37
sy57,sy19
sy0,sy(3c69)
d6:hhr3NRA
sy0,sy41
sy57,sy37
sy55,sy0
hhr4NRB
sy52,sy53
sy37,sy18
sy57,sy19
sy24,gm-1
qqe31,hsc6
lynrd9,udc55
arn3c69,hvs1
d10: hsc66
pmc56,ps(3c69)
pm3c56VNC
ptc49-b36,hsc27
uss96VNC
hvr-2,psc56-1
acnc56-1Mt1
nc0t128
hhr-3
gsr-3,hvc40
e54=d10-d9+3
i=80a8
e
_
⨯
e20=0,e21=0
e43=0,e53=0
e54=0,e12=0
>
[stop]
<b2+b3+b4,<b24
iget file,openin,openout
_
>
<b2+b3+b4
ba30,d20
_
e40=1e40,e42=e40
a2:pmrd0,hhr2
pmrd1,hhr1
pmrd2,hsc66
d0:xr0,gar1
ps,ck2
gara21,pm1c56
hvraNC
d1:ar1DLB
d2:ar2DLA
ca5,hvra
a21:pi,ca10
a:ptc49-b34,hsc27
pi20LQB
pmsc68,arnc56
gm3c56VNC
ptc49-b36,hsc27
pmsc34,hsc60
a15:gm2c56,tk3
hhnra1NT
qqe30,hsc6
gpc30,hsse21
a1:qq1,hsc6
pm3c69IPA
grnc72VNZ
para2-1XVt-512LZ
srnc42,hvsd17
gara22,mbc78
grc72,arnra22
ck-10,arra22
grc69MA
arnc35,tk-15
mbc78,src36
grc73,src58
hv2c20LT
gpc30,arnc58
tk20,arc36
grc56,arrd4
gr1c56,hvs1
d4:qqc74.9-7.19
a22:il
e17=a15-a2+1
i=40a2
[stop]
<b24
iget file 2
_
>
<b2+b3+b4
e40=1e40
a11:qq1,hsc6
itra4,pac57
hhnra9LTB
para23,pp(3c69)
a5h:pasd5,srn3c56
arc72VLT
a6:ptc49-b38,hsc27
hhra10LT
arnc42IPA
ilp96,scc72
acn1c69M
a10h:hhra5,arnc42
hvra6LPA
a8:acc72,ilp64
hss1
mbc78,src72
a23:bt_Vt300NZ
      0
arnc72,hvra9
srnc72,hvra4
usp64,grnc72
arnc42,hvra8
a9:sr3c56,pmc42
hhra10LT
hvra6LPC
tl3,arn2c56
gtr1,pp(2c56)
arnp1,ppp
arp2X
srp3
arn8DVLT
arnp3,ck-10
src76,gasd6
ar3D
tk-10,grc79
arnrd11,hvsd7
a4:grc17,it(3c69)
pac72,pmc72
gm3c69MPA
pp(c30),hvc40
d11:qqc17.9+1.19+2.39
d17=a4-a11+1
i=40a11
[stop]
<b24
iget file 3
_
>
<b2+b3+b4
d9=i-1,e40=1e40
a12:arnc56,udc69
a20:hsc60
hhra19LT
cl-32,arn1c56
il0,cln32
a19h:src79,pmc74
a25:bt_Vt300NZ
      0
hrs1XIPA
srnc72,hv(c57)
ilp32,arnc56
udc69,hvra20
a7:pp(3c69),arc36
xrLQA
a13:ilX
us,arc42
a26:bt_Xt-1
      0
arc42,hvra13
qq1,hsc6
hvsd16NQC
arnc34,gac72
hvnra18LTB
bs(c34)t3NT
a14:ptc49-b37,hsc27
hsns1LQB
pi4,ilp32
arnc68,srrd10
hvra14LT
a18:arnc36,arc79
grc56,arnc68
src42,abc42
tk14,arc72
grc74MPA
arnrd12,acc69
para25,srnc77
ar1c56,us
hsra12
hvsd16NQB
hvsd18IK
d12:qq32.9+1.25+1.35
d10:qq11.39
d5=a25-d9
d6=a26-d9
d7=a7-d9
i=40a12
[stop]
<b24
iget file 4
_
>
<b2+b3+b4
e40=1e40
a3:bs(c34),arnc74
ca2,hvs-1
ca6,hvs-1
pi0,arnc34
pi1NZ
pp8,it1
a17:pi(c74),pm2c69
gmc80,arnc74
tk-14,mbc78
grc74MA
scc73,srrd13
tl-40,arnc73
hv2c20LT
gm2c69,arnrd15
acc69LQB
it(3c69),pac74
grnc79,arn1c56
us0,arrd13
us0,mbc78
gr1c69,ar2c69
arrd14,pmc36
pip_Xt3
   0
tk14,acc72
gm2c56XMRC
ar2c69,arc42
gr1c56,pmc74
src42NRA
grc56XMQC
mbc78,acc36
ac1c36,srnc42
tk1,ar2c69
pmn2c69XVLQA
scc56,pmnc77
tk20,ar1c69
il(c69)LQA
gm3c56MQC
a16:arnc73,hv(c57)
d15:qq16t16
d14:qqc68t1
d13:qq3.39
d16=a16-a3+1
d18=a17-a3+1
i=40a3
e
_
⨯
e42=0
e17=0
>
[stop]
<b12,<b24
iclose
_
>
<b12
ba10,d2
_
e40=1e40,e48=e40
a0:qqe36,hsc6
a5h:hsnse18,it1
bt(c17),hhra2
is(3c69),its144
ptc69,pmrd1
gm3c56,pmc42
gmc73,hhra0
a1:ps(3c69),ils32
a2h:uss176,hsc60
ck1,pm1c69
hvra8LO
bt(c17)Xt-1
arc80,hvra1
arn3c69
mbc78,mtr
a3:grc17,hvc40
a4:gara7,hsc66
pmnc56XIQC
hvnra3NQC
gmc17,sr2c56
hhra6LQA
src42LA
grc73,src42
src42,gic33
hhra5LZ
a6h:hhra0,hsc60
ck1,pm3c56
qqVLO
a7:il_t64LA
     0
a8:pa(c65)t-512LQB
arn3c69,ck-14
mbc78,pm3c69
grc56M
arrd2,il0
xr1,hsc6
para0-1t-512
pmc80,gm2c69
hvse16
d1:qq15.5+15.11+15.17+15.23
d2:qqc74t3
e13=a4-a0
i=40a0
e
_
⨯
e48=0,e13=0
>
[stop]
<b29,<b24
irelease
_
>
<b29
ba20
_
e40=1e40,e49=e40
a14:grc73,gmc74
ar1c36,src36
arc74,grc70
a11:il,sr1c36
hhra15XLZ
arnc17,gara2
pac17X
hv2c20LC
hv2c20NC
a2:usXVt80LA
sc(ra2),hhra12
hsc66
xr,scc56
sc1c56,sc2c56
sc1c69,tk14
sc3c69X
a12h:us,arnc17
a9:grc45,arnc70
il,src74
us,srnc42
scc70,arc45
hvra9NZ
pmc74,arnc70
a15h:hvra11,scc36
sc1c36,hrs1
a1:arc42,gr3c69
mbc78,pmc81
gr3c56XM
grc80,us
pac74,pmc74
arnc56,hsra14
qqe37,hsc6
para14-1t-512
arnc80,il0
grc81,pmc34
pi72VLQB
pi0V
acn3c69MA
grnc34,grnc68
hvse17
i=40a14
e16=a1-a14+1
e
_
⨯
e16=0
e49=0
>
[stop]
<b6+b7,<b24
iinrec,outrec
_
>
<b6+b7
ba10
_
e40=1e40,e44=e40
a0:qqe27,hsc6
hss1,pi(c33)
hvra3,hhnra8
a1:pi65,hhr1
a2:pi392,hsc66
a3:pm3c56IRA
grnc47XIQB
sr2c56IPC
arc56,grc17
gic33,arn(c34)
grc70,il0
arnc50,grc68
arc56,sr1c56
hvra5LRC
hvra5LQC
ptc49-b35,hsc27
a4:pi704XV319
a5:hvra0NT
a6:arnc42,arc70
grc70,il0
arnc50IRC
hvra4LRA
arc56,hsc48
pmc68XVLRB
pi(c33),hvra6
arc42VLPA
a7:acc56,hvc40
pmc47X
gmc70,tk10
arc47,cl-10
pmc56X
src42,gmc68
us0XVLQB
il0X
a8h:src68,pmc70
hvra7XNPB
hvra7XLZ
qq(c23)t2
arnc76,hhra0
qq
e6=a1-a0,e7=a2-a0
i=40a0
e
_
⨯
e44=0,e6=0,e7=0
>
[stop]
<b8+b9
ba30,d5
_
d0=0
>
<b8,<b24
iinvar
_
>
<b8
e40=1e40,e52=e40
a0:qqe25,hsc6
hss1,pi(c33)
hvra1,hhra6
a1:arnc17,tl-20
grc74,hvra3
a2:pi705,hsc66
arnc70,gar1
ps_,gtr1
  0
arns1,pss_
         0
ars2,mbc78
arc68,src42
grc17,srnc68
hv2c67NT
ars3
hv2c67LT
arc42,grc74
tk20,acc17
a3:pm2c56IPC
pm3c56IRA
pmnc42XVLRC
ptc49-b35,hsc27
gic33
a4:hhra7LPA
arnc34,hsb49
hv2c67LT
grc68,arc56
sr1c56,pmc68
hhra0NT
arnc74,src68
hv2c67LT
a5h:xr,grc70
a6h:qq1,hsc6
pssd5VNPA
ca1,pssd4
a7h:hss1,grc68
arc56,sr1c56
hhra0NT
arnc56,src42
il0,arnc68
cl-30,hhra5
d0=a0-a7
e8=a2-a0
i=40a0
⨯
e8=0,e52=0
>
[stop]
<b8+b9,<b24
iinvar-outvar 2
_
>
<b8+b9
e40=1e40
a20:gsra27,src42
qqc34,hsb50
src74,mtra21
pin0t1007LT
mtra21,arc74
a21:grc72,grnc47
arnc56
mbc78,arrd2
grc50,arnc17
mbc78,arrd2
a23h:grc45,arnc72
hhra26LZ
srrd1,grc72
hvra25LT
a24:arnc50,pmc45
hsc48
arnrd1,acc45
acc50,hhra23
a25:tk20,acc45
acc50,grnc72
a26h:hvra24,pmc70
hvra28NPA
arnc47,tk10
arc47,cl-10
grc68X
arnc56,src42
us0XVLQB
il0X
hvra28NPB
a27:ps_,src68
      0
hvra28LZ
qq(c23)te26
arnc76,hhsd0
a28:pmc56,arnc70
acc56X
sr2c56,ar3c56
grc17,hvc40
d1:qqb26.39
d2:qqc73.9+b26.19
qq
d3=a21-a20+1
d4=a28-a20
d5=a21-a20
i=40a20
>
[stop]
<b9,<b24
ioutvar
_
>
<b9
e40=1e40,e22=e40
a10:qqe23,hsc6
hss1,pi(c33)
arnc17,tl-20
grc74,hvra12
a11:pi968,hsc66
arnc70,gar1
ps_,gtr1
  0
arns1,pss_
         0
ars2,mbc78
arc68,src42
grc17,srnc68
hv2c67NT
ars3,gic33
hv2c67LT
arc42,grc74
tk20,acc17
a12:pm2c56IPC
pm3c56IQB
hvra13LQC
ptc49-b35,hsc27
a13:arnc74,src34
hv2c67LT
arnc34,grc68
hv2c67LT
arc56,sr1c56
hhra10NT
arnc68,pmc34
arc42LPA
xr-1,hsc6
gmc70,hvsd3
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
e9=a11-a10
i=40a10
⨯
e22=0,e9=0
>
<b8+b9
e
_
>
[stop]
<b28+b10,<b24
iblockchange
_
>
<b28+b10
ba50,d30
_
e40=1e40,e45=e40
a0:pm2c69,arc42
hhra2NQB
arnc56,sr2c56
a1:src42LPA
a2h:xr,gmc73
src68,udra1
e18=i-a0+1
pm1c69VNT
ptc49-b39,hsc27
hsc60
e0=1j
ck-6X
arrd2,il0
gsc67X
grc72,tk12
ck-6,src80
qq(c72)t16NZ
bsn(c72),hhra3
d0=i-a0+1
pm3c56,arn2c69
srnc79VNQB
gmc79,hhra5
ar3c56,arc77
hhra4LZ
a3h:qq1,hsc6
a4h:hss1,arnc80
a5h:ck-20,grc74
arnc73,ck20
grc80,arn2c56
mbc78,arrd2
us0,mbc78
pm1c69,gr1c69
arc80,udc69
xr,arrd1
gr2c56,arc42
grc56,arc74
gr1c56,arnc77
ac3c56,arnc42
acc56LPA
acc56,nt(s-1)
qq(c23),hhs
d1:qqc68t1
d2:qqc79t2
i=40a0
[stop]
<b24
irecovery
_
>
<b28+b10
e40=1e40,e47=e40
d3:pac30,udra10
hhra8LZ
arnrd4,hhra12
a6:ps(3c69),ils32
arnc42,acsc71
arnc80VLQB
a7:arn2c69,ck20
ar1c69,udc57
udc69,hsc60
arn1c69,arrd8
a8h:il0,arnc45
pi(c45)t63
d6:tk6,ck-6
src80,pmrd5
hhra12XLOB
arn3DVNZ
arn2DLOA
d5:qq5,gac50
pac30t1LTB
hvra15LZ
bs(c57),hvra6
hhra12NPB
nc2NQB
d4:qq4,hhra12
a9h:hhra16,pmrd7
a10:pac57t3
can(c30)LQB
a11h:hvra6,pmrd6
a12h:xr1,hsc6
pss-d0+1,hvra18
a13:arnc77,udra10
ac3c56,hvra7
a14:ps(3c69),ils32
d7:a15:qq7VNQB
a17:bs(c30),hhra11
a16:qq-1,hsc6
pard3-1t-512
a18:gsr1,ps(c67)
hvtd0
d8:qqc79t2
d9=a9-d3+1
d13=a13-d3+1
d14=a14-d3+1
d17=a17-d3+1
i=40d3
[stop]
<b24
ierroradm 1
_
>
<b28+b10
e40=1e40,e46=e40
d12=26
a20:ns(s-1),pss-2
gsc67,pm3c56
bs(c50)t5
grnc50NB
bs(c50)t4
gm3c56M
ca7,hhra24
ca5,gmnc79
ca6,qqn
nc0,arnc45
tk6,ck-26
a24h:grc72,arn3c69
tk-14,arc42
arc75,il0
arnc62,gtrd11
arn1c5,src32
cl10,arnrd11
cl-20,ud1c8
arnc46,ca0
pp(p),itd12-4
qq(c35),gp(c35)
qqd12,hsc7
hvc11,hhc-2
hh(c38),pmc50
can(c50),hvra23
can(c45),hvra21
xr1,hsc6
tl-30,hvra22
a21:xr3,hsc6
a22:pmc67,hss1
a23:pac30,pac46
arnc79,src77
xr(c67),hsc6
ca1,hhs3
nc4,pm3c56
nt(c67),qq(c23)
pss2,gsc67
qq-1,hsc6
gm3c56,hvsd17
d11:qq10.7+_.19
           0
d20=a21-a20+1
i=40a20
[stop]
<b24
ierroradm 2
_
>
<b28+b10
e40=1e40
a25:grp-13,ud1c46
gmp-14,pmc80
tln-20,arnc50
ca4,gmc72
pmc33,gmp-19
arnc30,psc56
a26h:para27,isp
a27:grs_t-1
       0
bs(ra27)tc73-1
arn(ra27),hhra26
arnc81,us0
pmc70,arnc56
mbc78,src42
bs(c50)t1IRC
pmc72,arn1c69
gmp-15,gmp-16
ar1c36,src36
src42,grp-18
arnc23,pmrd16
cl-30,pm3c69
grp-20XMA
tk-30,grp-12
itp-20,pac10
itp-15,pt4c12
a28h:arn4c12,udc10
arc77,it-256
bt-257,hhra28
arnc42,grp-17
arc42,grp-22
psp-19,gsp-22
gsp1,gpp-20
psc45,hhc13-2
d18=i-a25
pmp-19,psc56
a29h:para30,isp-1
a30:arns_t-1
        0
bs(ra30)tc73-1
gr(ra30),hhra29
qq1,hsc6
ck-10,hvc66
d16:qqd18.29+5.36
i=40a25
[stop]
<b24
ierroradm 3
_
>
<b28+b10
e40=1e40
a35:gmc33,pmp-1
gmc30,pmp-14
gmc67,pmp-13
cln-10,pi(c33)
qq-2,hsc6
pac46,arnc67
cae19,hvra36
bs(p-7)t4
pm3c56,hvra38
a36:pmc50,arnp-7
ca(c50),hhsd20
qq(c67),hsc6
ca1,hhra37
nt(c67),qq(c23)
pss2,gsc67
xr-1,hsc6
bs(p-7)t5
pac30,hvsd17
hhsd9LZ
hvsd13NQB
a37h:hvsd14,xr
arnc70NZ
acc56,hhs2
a38:ncn(c50),hhra39
hhra39NC
qq(c67),hsc6
arnp-7,nc5
arnc79,hvra40
arnc79,gr3c56
nt(c67),qq(c23)
pss2,gsc67
qq-1,hsc6
a39h:hhsd9,arnp-7
ca(c50),hhsd20
grnc17,hvc40
a40:arc77,arc77
gr3c56,grnc80
arnrd30,ar1c69
us0,hhs2
d30:qqc80.9+1.19+1.39
i=40a35
[stop]
<b24
ierroradm 4,setproc
_
>
<b28+b10
e40=1e40,e11=e40
a45:qq(c23)Xt-3
a46:arn(3c69)D
tl4,grc82
tln5,arra45
tk30,acc82
arnc50,ca1
arn3c56,hhr1
arnc79,tk-10
acc82,arnc56
sr2c56,it(c50)
bs2,acc82
arnc67,it5
bs(c50),pac30
cae19,hvra50
bs(c50)t4
grnc17,hvc40
a50:pmc50,hhs1
a47:ud(c35),hsc8
ps(c35),arns2
tk20,gtc62
gsra48,arn(c30)
a48:qq+1.19+1.39
ck-10,hsc66
arn3c69,pmc56
hvra49NC
ck-14,mbc78
arra48,us0
is(c35),pss2
hhnc19
a49:ptc49-b35,hsc27
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
e2=a47-a45
i=40a45
e
_
⨯
e45=0,e46=0,e47=0
e2=0,e11=0,e0=0
>
[stop]
<b5,<b24
irecord
_
>
<b5
ba23,d20
_
d10=1c56
d11=c73
d12=c74
d13=c50
d14=c36
d15=3c56
d16=c69
d17=1c69
d18=c79
d19=c80
d20=2c69
e38=1e40
[stop]
e40=1e40
a5:arn(c35),ck10
gara23,arn(ra23)
ncc50,hvra9
ck10
nc1,hvra9
ck-10,src42
il0,mbc78
xr,arnc50
nc(ra23),hvra9
qqe28,hsc6
mbc78,nte28
xr(c23),hss1
a9:arn1c36,arc42
ard6D
gr(ra23),arnc35
ck-15,mbc78
src36,grd16
a23:xr_,grnd10
      0
it(c57),bs3
grn(ra23),hhra12
it(c35),pad10
grnd11,grnd15
grnd17,grnd20
grnd18VMA
a11:ud(d10),hsc8
mbc78,grd12
qq1,hsc6
its1,para12
qq1,hsc6
its1,para13
itra12,ptsd7
ps(ra12),is(ra13)
itsd5,ptsd0
itra11,pasd1
a13:it_,pasd2
      0
pi(d20)
hvsd4NZ
a12:hv_,gmc17
      0
a21:it(c35),is(c57)
pss-1,hhnc19
i=40a5
d6=c50-c17
[stop]
<b24
irecord 2
_
>
<b5
e40=1e40
a0:arn(d10)t1
tk20,ck-4
ca32,hvra7
ca30,hhra17
a2:ca2,hv_
         0
hhra17LA
arn(d10),gar1
ps_,gtr1
  0
arns1,pss_
         0
ars2,mbc78
grd12,pms3
gmd13,psra1
hsra8IZB
arnc42,scd12
a1:srnc42,scd12
ard13,grd13
psra0LZ
a3:arnd18,pmd12
tk10,cab26
hsn(ra4)NZA
arnc77,acd19
acd18
gmd11,hvs
a7:pmn(d10)IZB
tl9,tln10
pmc78
grd12,hsra8
psra0,hvra3
a8:srd11,gir1
pm_DX
  0
ck-8
nc3,ca0
xr,src42
a4:hs_NZ
     0
a17h:hrs1,gid20
qq-2,hsc6
hv_
  0
a18:pmc78
hsra8IZB
psra0,hvra3
i=40a0
d0=a2-a0
d1=a17-a0+2
d2=a4-a0
d4=a18-a0
[stop]
<b24
irecord 3
_
>
<b5
e40=1e40
a14:arnd18,gtr1
qq(d17)t_
        0
arnd18D
arc77VNZA
ard19-d18D
ard14,arc77
gr2c56,srnc42
src42NZA
scd14,scd15
ard16,grd16
hhra15LT
arn2c56,us0
arnd17,ck10
grd19,arnd12
grd18,arnc77
pad18tc73IK
scd19,gpr1
ppp_IK
   0
arnc73DVNZA
arnd12,ck-10
src68D
acd19M
a15h:hrns1,it(c35)
it(c57),arn-1
tk20,gtc62
ptc49-3,hsc27
a19:acnd19MB
arn1c36,grd13
pi768VLOA
pi0
cl20,hsnra14
arnd14,tk20
cl-20,gr1c36
arnd17,ck10
grc56,pm(c35)
tl-20,cln-10
ard15,pmd13
grc17XMB
arc77,us0
a22h:pmd16,hh_
             0
i=40a14
d5=a19-a14
d7=a22-a14+1
e
_
⨯
e38=0
>
[stop]
<b13+b14,<b24
itorec,fromrec
_
>
<b13+b14
ba6
_
e40=1e40
e51=e40
a1:pi5,hhr1
pi2,gar1
a4:pm_,gira6
     0
srnc77X
grc72,cmra3
a2:ptc49-b37,hsc27
il0,pmc50
gmc17,src42
il0,arnc50
nc(ra4),hvra2
arnc68,gar1
ps_,gtr1
  0
pms1,pss0
arnc34,src42
hvra2LT
src42
arc17,srs3
hvra2NT
a6:xr_,ars2
     0
arc34,src42
arc68-c17DV
a5:pi11Vt1012
ah:grc70,pi(ra6)
arnc72,arc42
grc72,il0
arnc50IPB
arc70VNA
xr,hvra5
xrLQC
ilXLRA
usLRB
hhraNPB
hhc5
a3:qqc50t1
qq
qq
qq
qq
qq
qq
i=40a1
e
_
⨯
e51=0
>
[stop]
<b24,<b41,iinitsort
          _
><b41
e40=1e40,a31=e40-a
be10,a2,d1
_
grc52,arnc42
tk2,ar1c36
grc51,src76
acc83,src83
pare1Vtd1LZ
ptc49-b40,hsc27
pare5tc17-4
e1:arnrt1IRB
hhre8XLC
gtr,arn_
       _
       _
gare2,gtre3
e2:ps_ck-10
     _
     _
     ,
e3:pms1,pss_
           _
           _
ca2,ud(re1)
e4:ptc49-b37,hsc27
ars2,gr1c17
pms3,tln33
hvre4NZ
tl36,pm1c17
e5:grc____Vt-1LRB
     _17-4
nc(c17-5),hvre4
gare7,hvre7
e6:arc42X
arnc51,us
arc42,grc51
e7:bt_t-1
     _
     _
     X
il,hvre6
e8h:hvre1,sr1c36
ac1c36,acc36
grc17-7MB
pac17-7tc83
arnc83,arra2
us
psc46-1,hvn4c20
a1:pafc17DXVc17NC
pac17-1DXVc17-1LA
pac52DXVc52NC
pac17-2DXVc17-2NC
pafc17-3DXVc17-3NC
a2:qq-6.9+3.19-4.39f,
dd1=a1-e1-1
_
<j,i=40i-j,ilength
           _
><b41
e
_
<b24,iendinitsort
     _
>
[stop]
e19=e48-e46
e23=e45-e22
e25=e45-e52
e26=e46-e45-1
e27=e45-e44
e28=e49-e38
e30=e43-e42
e31=e30
e32=-e30-2
e33=e46-e44
e35=e45-e46
e36=e45-e48
e37=e42-e49
a1=e40-a0+1
a2=e43-a0
a3=e42-a0
a4=e44-a0
a5=e48-a0
a6=e38-a0
a8=e51-a0
a10=e6
a11=e7
a13=e13
a16=e2
a17=e11-a0
a18=e8
a19=e9
a20=e20
a21=e52-a0
a22=e53-a0
a23=e54
a24=e22-a0
a25=e45-a
a26=e49-a
a27=e0
a28=0
a32=d
a37=e21
a38=e12
e
_
d = d+a1
[stop]
<b15+b16+b17+b20
bk=a35+d1,i=10,e20
_
e1=a35-1
>
[stop]
<b15+b16,<b24
iblockin,blockout
_
>
<b15+b16
ba10
_
e1=1e1,e2=e1
a0:gic34,pi(c34)
hvnra4NT
qqe11,hsc6
para0-1t-512
arnra3,hss1
a1:it4
a2:para3,hsc66
pmc56IPC
pi(c34)VNPC
ptc49-b36,hsc27
a3:ps_,pm2c69
     0
bsns,udra9
hvra10NB
its504,it(c34)
bss504,hv2c67
hsc60
tk3,hvra0
a4:ar16DLRA
ar128DNRB
ar32DLQB
gara7
arnc68,gar1
ps_,gtr1
  0
arns1,pss_
         0
ars2,tk20
bs(ra3),hhra5
xr,srnc70
hv2c67NT
ars3
hv2c67LT
xr,arc70
a5h:hvra6,ars3
a6:ck20,ps(3c69)
bs(ra3),hhra8
a7:uss_,grnc17
      0
a8h:hhc5,il(ra7)
a9h:hhra7,it0
hvra10NA
a10:ptc49-b34,hsc27
qq
i=40a0
e6=a1-a0,e7=a2-a0
e
_
⨯
e2=0,e6=0,e7=0
>
[stop]
<b15+b16+b17+b20,<b24
iinit local tapetest
_
>
<b15+b16+b17+b20
e1=1e1,e3=e1
ba10
_
a0:nt(s-2),para2
gara3,pm3c69
nc0LB
psra2,hvra4
hsra4,pi(c34)
arnc68,gar1
ps_,gtr1
  0
arns1,pss_
         0
ars2,mbc78
arra8,il0
arnc80,ck0
hhra1LRA
tl-2
pmc79IRC
ar512DLRA
ar256DLRB
a1h:cl-16,tl-16
tk6,gr2c69
arnc81,us0
a2:qq_,hsc6
     0
a3:it_,pa(s5)
     0
hhns1
a4:gsra6
a5:qqe13,hsc6
hsse10
qq(c23)te14
a6:hh_LZ
     0
hvra7NT
qqe13,hsc6
pase15t144
hsse10
qq(c23)te14
qqe13,hsc6
nt(r-1),qq(c23)
pase15t16
hh(ra6)LZ
srnc42VLT
a7:ptc49-b34,hsc27
grc17,hhc5
a8:qqc79t2
i=40a0
e
_
⨯
e3=0
>
[stop]
<b17+b20,<b24
idrive,status
_
>
<b17+b20
ba10
_
e1=1e1,e4=e1
a0:hvra2NT
qq
qqe12,hsc6
para0-1t-512
arnra7,hss1
a8:hsra5,ncn(c34)
psra1,hvc60
srnc42,is(3c69)
ils256,qqn
a1:grc17,hhc5
a7:tk3,hvra0
a2:pmc34ITA
annc34,src76
gac34,it1
bs(c34),hv2c67
tk6
ar32DLTA
gara3,is(3c69)
a3:ilns_,hvra1
       0
a4:hsra5,hsc60
ck20,mbc78
qqc34,hsb50
pmnc45X
cl-36,hvra1
a5:hsc66
pm2c69
hvra6NC
pmc56
hhsNC
ptc49-b36,hsc27
a6:ptc49-b34,hsc27
qq
qq
qq
qq
qq
qq
qq
qq
qq
i=40a0
e8=a8-a0,e9=a4-a0
e
_
⨯
e4=0,e8=0,e9=0
>
[stop]
<b15+b16+b17+b20
e10=a37
e11=e3-e2
e12=e3-e4
e13=a2+a0-e3
e14=e3-a3-a0
e15=a38
a7=e2-a35
a9=e4-a35
a12=e6
a14=e7
a15=e9
a34=e8
a36=e1-a35+1
e
_
>
[stop]
<b24,<b41,isort 1
          _
><b41
[stop]
b42=-163
b42=b42-e40
bk=d,i=b42-80,d175
_
d101=k
d90=0
d91=0
d69=1a13
d70=a27
d71=a25+a32
d72=a5+a32
d73=a2+a32
d74=a3+a32
d75=a26+a32
d9=-1e40
d85=b42
d4=d9
d82=-1
d85=d85-1,d23=d85,d97=d85
d85=d85-1,d26=d85,d89=d85
d85=d85-4,d83=d85
d86=d83
d32=d83,d19=d83
d24=1d83,d51=1d83
d85=d85-3,d12=d85
d85=d85-1,d10=d85,d21=d85
d85=d85-1,d81=d85
d85=d85-1,d18=d85
d85=d85-1,d28=d85,d52=d85
d85=d85-1,d29=d85,d54=d85
d85=d85-1,d39=d85,d60=d85
d85=d85-1,d11=d85,d50=d85
d85=d85-1,d1=d85
d85=-d85+2
d87=d85+164
[stop]
be5,a5
_
dd76=k,a30=j
_
ps(c35),arns6
tk20,gtc62
bss-d87+512,hsc8-1
qqd85,hsc7
hvc11,hhc-2
hh(c38),udnc57-1
a1:qqd83-c17+1.9+3.19-4.39
arc83,arra1
il,grpd89
ps(p2d83),ite40-515
bss-516,hs2c67
grnpd82,itp2
e1:ud(pd82),hsc8
pm(c30),gm(pd82)
pm(pd82)DXt1
ncp6,hvre1
arnp8,tk20
gtc62,arnp2d83
ck10,src76
grpd86,grnpd97
srnp2,grc17
hs2c67NT
arnp1d83,arp2d83
tk1,gare2
e2:qq,hsc7
hh(c38),arnp2d83
gare2,annc17
src42,grc17
hh(re2)Dt-1NT
qqd80,hsc6
qq(c23)td88
pi0,hss1
dd110=k,d111=j
_
qq
dd79=1j
_
arnpd89,il
mbc78,papd83
qqd75-d76,hsc6
pmpd83,hss1
qqd84,hsc6
grnc83,hspd44
dd116=k,d117=j
_
qq
<j,i=40i-j,iENTRY-tracklength
           _
><b41
e
_
[stop]
<b24,<b41,isort 2
          _
><b41
be20
_
dd78=k,d84=d78-d75
_
e1:
<d91,zqd___d__,hsc6
       _71-_78
⨯<b41
qqd___d__,hsc6
  _71-_78
><b41
e2:hss_,gpc17
      1
hvre3,ps(p)
itsd35,pasd34
e3:pi(c33),hvc40
e4:gspd34,ps-2
pare1td72-d78
pare2td69
arnpd31,hhre8
e5:gspd34,ps0
arnp4,mbc76
pmpd31,hvre7
e6:gspd34,ps1
pmpd32,gmc17-3
arnp4,pmp6
e7:grc17-4,gmsc17-3
pare1td74-d78
its2,pare2
pm(pd2),tl9
e8h:tln10,grsc17-2
gspd98,arn(pd2)
psre13,udpd66
e9:it(c23),ptc62
qq(c23)t2NC
it(c65),pac32
gs1c5,hvre1
e11:pare2td70M
e12:gspd34,psre14
hvre9
de13=i-1
_
arnc17,ps(pd98)
hvpd33LT
arn3c69,tk-14
mbc78,arc77
pi(pd58),pm2c56
arp7DIPC
ncs9,hspd41
de14=i-1
_
pare2t1
pare1td71-d78
ps(pd34),udpd27
arnc17,hrs1
dd61=e4-e1+1
_
dd62=e5-e1+1
_
dd63=e6-e1+1
_
dd64=e11-e1+1
_
dd65=e12-e1+1
_
dd38=e12-e1+1
_
<j,i=40i-j,iCALLTRACKlength
           _
><b41
e
_
[stop]
<b24,<b41,isort 3
          _
><b41
dd112=i-40,d115=k
_
dd77=k
_
dd80=d77-d76,d88=d78-d77
_
ba10
_
d44:d20:
<d90,zqp,arns1
⨯<b41
qqp,arns1
><b41
gara3,gtra5
tk20,gara4
gtra1,ps(c23)
d37:a1h:
qqpd__,pss_
   _42    _
          _
d22:a2h:
qqp,udc23
ud1c23,ud1c23
ud2c23,ud2c23
ud3c23,pss1
a3:d98:
lkpt40
   _
   _
   _
vk(c3-8),it-40
d34:a4:
bt_hhra2
  _
  _
  ,
d56:a5h:
<d90,zq,hvp_
           _
           _
⨯<b41
qq,hvp_
      _
      _
><b41
d66:mb-1DM
d:d53:
qq,hvc66
d27:pac48t
d25:qq1.9-c68.9-1.39
d31:qq0t-1.9+2.29
qqc17.10+1.20
qq1.39
d41:arc42,us
arnrd58,gird58
d58:nc__,hs2c67
      64
d57:qq___,hvs1
      132
dd45=i
_
e
_
ba1
_
be10
_
d113:arnc62,gtrd27
arnp3,scp3
pap3t1LT
gpre7,hsre6
grrd1XMA
[stop]
<b24,<b41,isort 4
          _
><b41
nt(r2d83),it(re7)
e2h:pard56,hsra1
e3h:pi-1,hsre6
e4:grp_t-1M
      __
      0
nc(rd1),udre5
e5:pm(re4)DXV
nc(re7),hhre2
gare7,pmc17-1
gmr1d12,pmc17-2
gmr2d12,hhre3
e6:arnc83,il
bt____t-256
  -511
arrd86,hhre6
grrd21,arnc42
acc83,pmc17-4
tl29,arnc17-3
tl30
e7:pm_it-1
     _
     _
     ,
bt(r2d83),hvs1
gm(re4)t-1MA
gmrd12,grn(re7)
e
_
be10
_
pard97t511
pmp4ITB
pm(c35)DX
acre7,acre1
arnr1d83,udrd27
tk1,arre1
gare5,pmre2
e7:gr__Xt1M
     -1
e8:gr(re7)t1MTC
e9:arnrd21,il
arc42,grrd21
arnp2,snc17-4
hs2c67LT
tk30,srrd97
acrd97LT
arnc17-4,tk10
hs2c67LZ
arc17-4,tk20
arre3,mtc17-4
arre4,udre8
arnre5,udre7
pmre6,it-1
ncn(r1d83),hvre9
qqd76-d78,hsc6
gm(re7),hvsd79
e1:gs_IK
     1
e2:pp(s),ps(s1)
e3:qq1.29-1.39
e4:arnr_,srr_
      _1   _1
e5:hvNZ
e6:hhVIK
e[stop]
_
<b24,<b41,isort 5
          _
><b41
be19
_
dd148=i-j,d151=k
_
a1:
arn(c23)D
arre19,ck10
grre2,gsre3
hspd66X
ps30,pmc17-1
eh:mlnre14,pss-6
arc58LZ
tks,sc2c69
arn2c69,bss-6
mlnc58,hhre
e1:hsc60IZA
tk-4,pmc56
mb3DVNC
ptc49-b36,hsc27
ab2DLQB
grc17,mbr-1
arp3,grc17-3
src17IZB
hv(re3)VLZC
grnc17-4,arn3c69
e2:hsc4,
arnc17,psre1
e3:hv_LZ
     _
     _
     V
is(3c69),uss96
pm-1,gmc17
vy17,sy64
pare4te15IZA
e4:pmrt1
      _
      _
      _
e5:cln-6,tk-4
ca7,hvre4
gare6,ca2
e16:nte17,hvre18
e6:sy_hvre5
     _
     _
     ,
e7:pmc17-1,mlnre14
e8:ck-10,bs(re12)
e9:pare10t16
e10:ar__LZ
      _D
      0
gare11,nc0
e11:sy_udre9
      _
      _
      ,
e12:ncn_t-256
       __
       0
mlnc58,hvre8
pare10,hvre4
e13:sy(3c69),pmc17
lyn-1,udc55
gm-1,hvc60
[stop]
<b24,<b41,isort 6
          _
><b41
e14:m10-3
    _
de15=i-e4-1
_
qq58.39+36.33+38.27+20.21+37.15+19.9+7.3
qq0.39+41.33+53.27+53.21+35.15+0.9+2.3
qq0.39+38.33+37.27+0.21+20.15+37.9+7.3
qq57.39+19.33+0.27+2.21
de17=e13-e16,e18=e7+e17
_
e19:qqd73-d78,hsc4
e
_
dd149=i-d148
_
be10
_
ps(pd20),gspd51
e1h:hhnre2,psp-1
e2h:gspd56,gsre3
e3:pm_
     _
     _
hhre1LA
gr(re3),gppd2
arn(re3)Xt-1
hvre3NZ
ps(pd20),pi-1
gspd56LA
pmp1d12,gmc17-1
pmp2d12,gmc17-2
pmpd12,hsra1
e4:it(re6),papd50
e5:arn(pd2)t-1IZB
nt(pd4),it(re6)
papd53,grnpd52
hhre7LA
pm(pd2)DXNZB
e6:grpd_MZB
      _1
hvre4LZ
is(c65),hssd62
qq(re6),hspd36
e7h:hvre5,itpd12
papd2,hspd44
dd152=k,d153=j
_
qq
dd160=i-d148
_
grnpd54,hspd44
qq
e
_
<j,i=40i-j,iTESTUNITSlength
           _
><b41,<i+1e40,iTESTUNITStoobig
              _
><b41,<i-80d148,iINITMERGEtoobig
                _
><b41
dd150=i-40d148
_
dd114=i-80d112
_
dd100=k
_
e
_
[stop]
<b24,<b41,isort 7
          _
><b41
bk=d100,i=d45
_
ba10
_
d121=k,d118=i-40
d2:
d33:qq,hsrd44
d170=k,d171=j
qq
d42:is(s),pms1
tln9,src42
grrd10,tk20
arrd25,grrd26
d43:
d5:pi_gic33
     _
     ,
arnrd10,pm3c56
grc68VLB
a1:ptc49-b35,hsc27
arc56,sr1c56
gsra10,is(c65)
hssd65NT
arnc56,udra8
arrd26,hs2c48
arnc68,arc42
a2:src42NPA
a3h:hhra9,hs5c48
tl-10,arc47
src68,tk11
hvra9LZ
psra6,arnc76
is(c65),hvsd38
a4:
acn3c56M
grn(s)MB
hvnra9IZB
a5:
hsc60
pm1c69,ck1
hvra4LO
ck-1,is(c65)
hssd64
hvra4LZ
d36:d6:
pi_gsra10
  _
  _
  ,
a6=i-1
gic33,pmp2
gmc70,pm2c69
gmc73,pm3c56
hvra1NA
arn1c56,src56
ps(ra10),udra2
hvra5LZ
[stop] <b24,<b41,isort 8
                 _
><b41
pmnc56XVNT
ptc49-b39,hsc27
hvra8NPA
src42,il0
pmc68,is(s)
gms1,grnc47
tl9,grc70
tk30,srrd4
d7:ar_DVLT
     1
a7:ptc49-b39,hsc27
hvra7LT
tk-10,arc56
a8:ar(s)D
arrd23,il0
hhra3LPC
d35=i-1
a9:arnc70,acc56
arnc81,us0
a10:hv_
      _
      _
      V
e
_
dd102=i
_
<i+1e40+80,istartaddressinitialisedtoohigh
           _
><b41,<-i-1e40-80,istartaddressinitialisedtoolow
                  _
><b41
ba10
_
d119:itrd31,pard31
pm(c23)DX
arra,ck10
grra,pmpd1
tl9,tln10
gr1c34,pmrd31
arnpd1,udrd66
gmc34,gprd
a:qqd74-d78,hsc4
arn1c36,il0
pmc17,tln9
tk30,grp4
tk8,ck-4
acrd57,pi(rd57)
pi0t-17LPA
gird57,acrd58
pi0t-17
gird5,pi(rd58)
gird6,tln16
grrd81,arnc35
ck-15,mbc78
grrd39,srra10
[stop]
<b24,isort 9
     _
><b41
src36,srrd81
dkb44D
dkr2d83,tl-18
grrd32,arnp2
grrd10,grrd11
ck-10,gprd2
ar2D
grrd4,pmc42
sc(rd)DXtd1
acrd11VLPA
arc42,itd43-d42
qq(rd37),tk10
arrd11,tk20
ar(rd)D
grrd24,srrd11
srrd11,acrd39
arnrd11,tk1
arra9,srrd32
acrd32NT
arnp2,ck-10
srrd97LPA
it(rd97),qq(rd7)
tk-10,arra2
grrd26,grrd23
ps-1,arnp-1
pss-1LZ
gsrd20,gsrd22
a5:pm(rd2)Xt-1
hvra4LA
hvra5LZ
is(c65),hssd63
a4h:hvra5,hsrd44
d122=k,d123=j
qq
a10:qqb43.39
a2:qq2.9-c68.9-1.19
a9:qq7.39
qq
qq
qq
qq
d120=i-80d118
<j,i=40i-j,iINITIAL-length
           _
><b41
dd100=k
_
e
_
e
_
[stop]
<b24,isort 10
     _
><b41
bk=d100,i=d102,a15
_
d124=i-40,d127=k
a1:itpd1,pard2
is(c65)
hssd62
arnc36,arra15
grrd29,arnrd39
srrd24,srrd29
hs3c20LT
arrd11,arrd11
pi0,hvc20
d125:
hsra1
arnc42,hhr2
a5:arn(rd20),tk20
ck-20,ac(rd22)
hvra4LOB
a2:grrd18,arnrd29
srrd11,grrd28
arnpd1,hsrd66
hsrd44
d134=k,d135=j
qq
a6:hsra1
d143:hvra9LOB
a11:arnrd18,src42
hvra2NZ
a4:arn(rd22)t-1
hvra10LA
hvra4LZ
sr(rd20)
hvra5NZ
a3h:hvra4,pard20
a10:arn(rd20)t-1
hhra3LA
hvra8LOB
hvra10LZ
pard22,hvra4
a9:itpd1,pard2
is(c65),hssd61
arnp1,mbc78
scp1,ck15
acc35,pmc77
ncn(r3d83)Xt-1IZB
[stop]
<b24,isort 11
     _
><b41
acpd1,hvra6
hvra4
a8:pmpXt-1
hvra14LA
hvra8LZ
it(ra8),pard2
is(c65),hssd61
a14h:hvra8,arnc35
ck-15,mbc78
src36,srra15
tl-9,dlr2d83
grrd32,srrd81
acrd81LT
arnp5,tk30
src76,grrd60
grp5,hsrd44
d146=k,d147=j
qq
a15:qqb43.39
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
qq
d126=i-80d124
<j,i=40i-j,iDISTRIBUT-length
           _
><b41
d100=k
e[stop]
_
<b24,isort 12
     _
><b41
bk=d100,i=d102,a20
_
d136=i-40j,d139=k
d137:
a13:qq(rd),hsrd36
arnrd28,arrd11
btn(ra12)Vt256LOB
grrd28,arrd24
us0,srrd39
pmnrd29VXNT
hvra13
grc81,arnrd
srrd4,gara1
srrd4,gara3
arnrd24,srrd4
grc34,srrd4
grc51,arnrd28
grc80,src81
hvra12LT
a14:gmc34t1
a:arnc80,grc73
src81XIZA
hvra11LZA
dlnrd11,tl-40
mlrd11X
arc81,grc79
arc51,il0
grnc74,arnc81
a5:arc74,grc74
arc34,il0
arnc74,src80
hvra6LZ
a3:qq,hs(c35)
a1:qqnVLT
arnrd11,hvra5
a6:arc73,grc73
arrd24,il0
arnc73,src81
hvra7LZ
qq(rd),hs(c35)
qqn(ra3)VLT
srnrd11,hvra6
[stop]
<b24,isort 13
     _
><b41
a7:arnc74,src73
hvra8NT
arnc73,arc34
us0,arnc74
arrd24,us0
arnrd11,scc73
a8h:hvra5,arnc74
src79
hvra9NT
arnc74,arc51
us0,arnc79
arc34,us0
arnrd11,acc74
a9:arnc79,src73
hvra10NT
arnc79,arrd24
us0,arnc73
arc51,us0
arnrd11,scc73
a10:arnc73,arc74
src80,pmc80
src81XITA
arnc73VNTA
pmc73,gmc80
tk20,pmc74
arc74VLTA
arc81,gmc81
hvra14X
a11:pm(ra14),tln19
hvra4LZ
grc80,tln20
qq(ra14)t-1
grc81,hvra
a4:arn(rd22),hsrd66
arnrd29,arrd24
a2:il0,arrd11
gr(rd),hs(rd37)
arnrd28,arrd24
sr(rd),pm(rd)
hvra2XNT
a12:pi_hsrd44
      _
      ,
d140=k,d141=j
qq
<j,i=40i-j,iQUICKSORT-length
           _
><b41
d138=i-80d136
d100=k
e[stop]
_
<b24,<b41,isort 14
          _
><b41
bk=d100,i=d102,e21,a3
_
dd166=i-40,d169=k
_
e1:is(rd51),pms-1
pmp-1LA
gmc17,pmp-1
e2h:psp-1,srnc77
mbsIZB
grs,arns-1
pi0Xt511LA
arrd12NZ
arc17,mbra1
acsNZB
pss-1,pard52
hhre2LZA
d167:
e3:arnrd4,ck-10
gtre6,gtre11
e4:arnrd53,gare6
e5h:gare11,udre6
hvre11LA
hvnre21NB
pare13,hhre5
e6:pmt_
     __
     __
     _
hvre8LA
hvre6LB
e7:qq_hs(c35)
     _
     _
     ,
e21:it(re6)NT
pare7NT
hvre6
e8:arnrd12,hsrd66
qq(re7),hs(rd37)
ps(re7),arn(s)
pms,hsrd66
gm(rd50),hsrd36
hvre9LZB
qq(rd50),hs(c35)
qq(re7)VLT
acn(rd50)M
e9:it(re7),pard50
grn(rd50)MB
e10h:hvre4,pare16
acn(re11)MZB
e11:arnt_ZB
       __
       __
       _I
hhre10NA
[stop]
<b24,<b41,isort 15
          _
><b41
e12:arnc42,acrd12
pmra1,psre4
e13:arnpt-1
        _
        _
        _
hvsLA
hvre13LZ
src42,gr(re13)
cmc76,hvre13
it(re13),pard54
psre14,hvre13
e14:pmn(rd54)XIZA
e15:hsrd66NZ
pm3c69
hvre1LA
can(rd52),hvre18
e16:pmnp_Vt-1
        _
        _
        X
d173:pm(rd2)V
hvre15NA
tln9,grrd19
e17h:psrd1,gsrd2
is(c65),hssd61
pspt-1
   _
   _
   _
pmrd19,arns
psrd12LZ
hhre17NA
psp8,hhc21
d93:
e18:arnrd53,gare20
e19:it(rd4),arn(re20)
hvre19NZ
arnre20,ps(rd54)
ca(rd50),hvre19
gsrd2,hsrd44
d158=k,d159=j
qq
d94:d161:
is(c65),hssd61
arnrd51,pmrd12
e20:d92:
ga_
  _
  _
  M
gm(rd51),srnc42
tk1,ar3c69
hvrd102IRB
d95:
a1:qq1.19-1.39
<j,i=40i-j,iMERGElength
           _
><b41
dd168=i-80d166,d100=k
_
e
_
[stop]
<b24,<b41,isort 16
          _
><b41
bk=d100,i=d102,e12
_
dd154=i-40,d157=k
_
gr3c69MRB
tk31,ps(3c69)
uss64VLZ
ils96,ils96
arnc81,us
e1:itrd12,pard2
nt1,hvr1d94
is(c65),hssd62
qq(rd92),hsrd36
pm(rd54),gmrd12
it(rd54),pard51
d155:
grn(rd51),grnc47
is(c65),hssd63
e2h:pmnrd95,cmc42
hvre8NZ
e3:arnpt-1
       _
       _
       _
hhre2NA
ps(rd56),arnrd51
cas,hhre7
arnc42,acrd12
scs,gsrd54
e4:arnrd53,gare6
e5:it(rd4),arn(re6)
hvrd93LA
nc(rd56),hvre5
arnrd12,hsrd66
e6:qq_hs(rd37)
     _
     _
     ,
arn(rd56),hsrd66
qq(re6),hsrd36
e7h:hhre5,grnre9
grnre10,ps(rd57)
gsrd5,pmrd81
gmrd32,gprd52
e8:arnrd51,pi(rd58)
e9:nc_rd____hhre___
    ____20)_____11_
     (     ,_ _
              _
can(rd60),it(p5)
ncn(rd60)t-1
e10:pi_t____
     ____17_
      ___  _
      0__  _
       _-  _
       _
       _
e11h:gird6,hsrd44
dd164=k,d165=j
_
qq
<j,i=40i-j,iEXCHANGElength
           _
><b41
dd100=k,d156=i-80d154
_
e
_
[stop]
dd115=d115-d78,d121=d121-d78,d127=d127-d78,d139=d139-d78
_
dd151=d151-d78,d157=d157-d78,d169=d169-d78
_
dd149=d149+d102,d160=d160+d102
_
bk=d110,i=0
_
i=d111
qqd112.9+d113.19+d114.29+d115.39
e
_
bk=d116,i=0
_
i=d117
qqd118.9+d119.19+d120.29+d121.39
e
_
bk=d122,i=0
_
i=d123
qqd124.9+d125.19+d126.29+d127.39
e
_
bk=d134,i=0
_
i=d135
qqd136.9+d137.19+d138.29+d139.39
e
_
bk=d140,i=0
_
i=d141
qqd124.9+d143.19+d126.29+d127.39
e
_
bk=d146,i=0
_
i=d147
qqd102-40.9+d149.19+d150.29+d151.39
e
_
bk=d152,i=0
_
i=d153
qqd154.9+d160.19+d156.29+d157.39
i=1i
qq40d166.9+d155.19+0.29+1d169.39
e
_
bk=d158,i=0
_
i=d159
qqd154.9+d161.19+d156.29+d157.39
e
_
bk=d164,i=0
_
i=d165
qqd166.9+d167.19+d168.29+d169.39
e
_
bk=d170,i=0
_
i=d171
qqd166.9+d173.19+d168.29+d169.39
e
_
da28=d100-d101
_
da29=d76-d101
_
e
_
dd=d+a28
_
<b24,<b41,iendsort
          _
>
[stop]
<b11,<b24
iresearch
_
>
<b11
bk=d,i=10
_
ba35,d1
_
a0:pmc34,hsc66
acn3c56XIPC
hvra8NPC
cl-20,ck20
grc79,cl20
grc80,arn3c56
src79,tk-20
hhra5LZ
arra9NPB
grc68,ps(3c69)
hhra2NT
hv2c67LPB
a11:xr,hsc60
tk2
hvra10LT
a1:xr1,hsc6
a2h:hss1,src42
hhra1LZ
a3:arnc68,src42
hvra11LT
grc68,ils32
hsc60
tk2
hvra3NT
ilns0,hhnra3
a4:hvra6NZ
ils64LPA
a10:acn3c56M
srnc42,grc17
a5h:hhra7,arnc56
hvra6NPB
sr2c56,src80
hv2c67LT
a6:arn2c56,arc80
grc56,sr1c56
arc42
hv2c67NT
a7h:grnc17,hvc40
a8:ptc49-b35,hsc27
a9:qq2.39
d1=a4-a2
i=40a0
[stop]
<b24
iresearch 2
_
>
<b11
a20:gsra31,ps(3c69)
a21h:para25,pm2c69
hhra31LZ
a22:tl59,ar1c69
a23h:ils0,hsc60
tk2,ps(3c69)
arnc45VNT
a24:ils32,hhnra29
a25:bt_Vt300LT
      0
arnra35,hvra27
a26:para25,hhra21
ils32,hhra21
a27:ar1c69
arc77,il0
arnc68,src79
hvra21LT
hvra24NZ
arnc45,src70
tk-20,mbc78
hvra24NZ
hhra31LPB
arn2c56,mbc78
tk20,ar2c69
ck20,ils0
arnc70,tk-20
a28:ar1c69,arra35
arc42,gr1c56
arn2c56,mbc78
sr1c69,ac1c69
a29h:sc2c56,pmc79
gm3c56,itd1
a31h:hv_,arnc77
       0
hhra23NPB
scc68,grnc70
arn2c56,arc77
us0,ils32
arn2c69,hvra28
a35:qqc68.9+1.19
qq
qq
e
_
a33=d-d1,a39=0,a40=0
d=2d
e
_
>
[stop]
<b15,iblockin
     _
tblockin;
_
qqa35.9+a36.14+a7.19+a12.29+33.39
qq6.9+10.14+6.19
>
<b16,iblockout
     _
tblockout;
_
qqa35.9+a36.14+a7.19+a14.29+33.39
qq6.9+10.14+2.19+6.24
>
<b20,idrive
     _
tdrive;
_
qqa35.9+a36.14+a9.19+a34.29+35.39
qq6.9+6.14
>
<b17,istatus
     _
tstatus;
_
qqa35.9+a36.14+a9.19+a15.29+33.39
qq7.9+6.14
>
<a1,iThe SAMBA block consists of:
    _
>
<b1-1,itapetest added
      _
⨯<b1,itapetest
     _
><b1
ttapetest;
_
qqa.9+a1.14+a2.19+0.29+33.39
qq6.9+6.14+5.19+2.24+6.29
>
<b18,irewind
     _
trewind;
_
qqa.9+a1.14+a2.19+a20.29+36.39
qq6.9
>
<b19,iunload
     _
tunload;
_
qqa.9+a1.14+a22.19+a23.29+36.39
qq6.9
>
[stop]
<b2,igetfile
    _
tgetfile;
_
qqa.9+a1.14+a3.19+0.29+33.39
qq10.9+2.14+6.19
>
<b3-1,iopenin added
      _
⨯<b3,iopenin
     _
><b3
topenin;
_
qqa.9+a1.14+a3.19+1.29+33.39
qq6.9+10.14+2.19+6.24
>
<b4-1,iopenout added
      _
⨯<b4,iopenout
     _
><b4
topenout;
_
qqa.9+a1.14+a3.19+2.29+33.39
qq6.9+2.14+10.19+2.24+6.29
>
<b12-1,iclose added
       _
⨯<b12,iclose
      _
><b12
tclose;
_
qqa.9+a1.14+a5.19+a13.29+33.39
qq10.9+6.14
>
<b5-1,irecord added
      _
⨯<b5,irecord
     _
><b5
trecord;
_
qqa.9+a1.14+a6.19+3.33+41.39
qq12.9+9.14
>
<b6,iinrec
    _
tinrec;
_
qqa.9+a1.14+a4.19+a10.29+35.39
qq9.9+6.14
>
<b7,ioutrec
    _
toutrec;
_
qqa.9+a1.14+a4.19+a11.29+35.39
qq9.9+6.14
>
<b8,iinvar
    _
tinvar;
_
qqa.9+a1.14+a21.19+a18.29+35.39
qq7.9+2.14+10.19+6.24
>
<b9,ioutvar
    _
toutvar;
_
qqa.9+a1.14+a24.19+a19.29+35.39
qq2.9+2.14+10.19+6.24
>
[stop]
<b10,isetproc
     _
tsetproc;
_
qqa.9+a1.14+a17.19+a16.29+2.33+40.39
qq13.9+6.14
>
<b13,itorec
     _
ttorec;
_
qqa.9+a1.14+a8.19+1.29+33.39
qq2.9+10.14+9.19
>
<b14,ifromrec
     _
tfromrec;
_
qqa.9+a1.14+a8.19+0.29+33.39
qq2.9+10.14+9.19
>
<b41,iinitsort
     _
tinitsort;
_
qqa.9+a1.14+a31.19+36.39
qq6.9+10.14+10.19+10.24+10.29+10.34
>
[stop]
<a1,<-a1+2,i1 SAMBA-track
           _
>
<a1-1,<-a1+3,i2 SAMBA-tracks
             _
>
<a1-2,<-a1+4,i3 SAMBA-tracks
             _
>
<a1-3,<-a1+5,i4 SAMBA-tracks
             _
>
<a1-4,<-a1+6,i5 SAMBA-tracks
             _
>
<a1-5,<-a1+7,i6 SAMBA-tracks
             _
>
<a1-6,<-a1+8,i7 SAMBA-tracks
             _
>
<a1-7,<-a1+9,i8 SAMBA-tracks
             _
>
<a1-8,<-a1+10,i9 SAMBA-tracks
              _
>
<a1-9,<-a1+11,i10 SAMBA-tracks
              _
>
<a1-10,<-a1+12,i11 SAMBA-tracks
               _
>
<a1-11,<-a1+13,i12 SAMBA-tracks
               _
>
<a1-12,<-a1+14,i13 SAMBA-tracks
               _
>
<a1-13,<-a1+15,i14 SAMBA-tracks
               _
>
<a1-14,<-a1+16,i15 SAMBA-tracks
               _
>
<a1-15,<-a1+17,i16 SAMBA-tracks
               _
>
<a1-16,<-a1+18,i17 SAMBA-tracks
               _
>
<a1-17,<-a1+19,i18 SAMBA-tracks
               _
>
<a1-18,<-a1+20,i19 SAMBA-tracks
               _
>
<a1-19,<-a1+21,i20 SAMBA-tracks
               _
>
<a1-20,<-a1+22,i21 SAMBA-tracks
               _
>
<a1-21,<-a1+23,i22 SAMBA-tracks
               _
>
<a1-22,<-a1+24,i23 SAMBA-tracks
               _
>
<a1-23,<-a1+25,i24 SAMBA-tracks
               _
>
<a1-24,<-a1+26,i25 SAMBA-tracks
               _
>
<a1-25,itoo many SAMBA-tracks
       _
e
_
i=10
hsf2
e10
_
>
[stop]
<b41,isort
     _
tsort;
_
qqa1.9+a.9+a28.14+a29.19+a30.29+2.33+37.39
qq13.9+10.14+2.19+5.24+5.29+2.34
>
<b11,iresearch
     _
tresearch;
_
qqa33.9+2.14+a39.19+a40.29+0.33+33.39
qq5.9+6.14
>
<e40
tsambasum;
_
qqc47-c.9+1.23+1.29+4.33+24.39
qq
tsambaerror;
_
qqc82-c.9+1.23+1.29+4.33+26.39
qq
tunit1error;
_
qqc71-c+1.9+1.23+1.29+4.33+24.39
qq
<e40-1
tunit2error;
_
qqc71-c+2.9+1.23+1.29+4.33+24.39
qq
<e40-2
tunit3error;
_
qqc71-c+3.9+1.23+1.29+4.33+24.39
qq
<e40-3
tunit4error;
_
qqc71-c+4.9+1.23+1.29+4.33+24.39
qq
<e40-4
tunit5error;
_
qqc71-c+5.9+1.23+1.29+4.33+24.39
qq
<e40-5
tunit6error;
_
qqc71-c+6.9+1.23+1.29+4.33+24.39
qq
<e40-6
tonly 6 unit-error - variables
_
>
e
_
[stop]
de49=8
_
i [stop] [sum] [060] T7,L3
_
s
_