DataMuseum.dk

[26.7.68                                            T6 and L2    Gier algol 4
                                       20]
[Here follows STOPCODE and CLEARCODE][stop] [clear]
d e56=1             ;   test tape number
_
<e49-5, <-e49+7,    ;   should be 2 or 6
d e56=0             ;
_
⨯                   ;
<e49-1, <-e49+3,    ;
d e56=0             ;
_
>                   ;
<e56                ;
i wrong tape
_
s
_
                   ;
>                   ;
d e56=20            ;   version number
_
<e56-e50,           ;   if version number T6 and L2 gr max version number
                        __                          __
                    ;   then the following definitions are loaded;
                        ____
d e61=16             ;   define version number T1 and L1
_
d e62=9             ;   define version number T2
_
d e63=18            ;   define version number T3
_
d e64=17             ;   define version number T4
_
d e65=15            ;   define version number T5
_
d e66=e56           ;   define version number T6 and L2
_
d e67=14             ;   define version number T7 and L3
_
d e68=19             ;   define version number T8 and L4
_
d e50=e56
_
>                   ;
[stop]
bd10
_
dd1=e14
_
<e48,d1=d1+e22>
di=1e4
_
qqd1.39
bi=3e4,a30,b35,c15
_
a:qq
qq
qq67.39,
qq_.9
  0
qq39.39
qq_.9
  1
qq40.39
qq1.19
1023/0/1023/1023
qq43.39
db2=i,b3=41b2
_
dd=d1,i=41b3
_
c1:vy16,sy29
b1:qq,hsb16
hsf2
b16:sy58,sy64
it(s),pab20
b20:pmn_Xt1
       0
a1:cl34,ck-4
gaa2,ca15
hv(b1)D
ca10,hvs1
ca63,it1
a2:sy,cln-6
hha1
c2:gr_b_t1MRC
     3_2
it(c2),bs40b2
hrs1
vk(b4),skb2
b4:vkd_t1
     _1
hv(c2)D-41
c3:gmb___t1MRC
     _3-1
it(c3),bs40b3
hrs1
vk(b5),skb3
b5:qq_
     0
hv(c3)D-41
[stop]
c4:pmn(b6)Xt1
a4h:cl34,ck-4
gaa3,itb7
a3:ud_,hh(r)
     0
bsp,hvc1
gm1a,pma
hrs1
c5:gma,pm1a
a5:cln-6,hha4
b7:qq,hva5
arn58D
arn59D
arn60D
arn61D
arn62D
arn63D
arn64D
arn65D
arn66D
arna,hrc6
qq,hva5
qq,hva5
qq,hvc1
qq,hvc1
qq,hvc4
arn57D
qq,hvc1
arnp19DV
arnp20DV
arnp21DV
arnp22DV
arnp23DV
arnp24DV
arnp25DV
arnp26DV
qq,hvc1
qq,hvc1
qq,hvc1
qq,hvc1
qq,hva5
[stop]
qq,hva5
qq,hvc1
arnp10DV
arnp11DV
arnp12DV
arnp13DV
arnp14DV
arnp15DV
arnp16DV
arnp17DV
arnp18DV
qq,hvc1
arnp28DV
qq,hva5
qq,hvc1
qq,hvc1
qq,hvc1
arnp27DV
arnp1DV
arnp2DV
arnp3DV
arnp4DV
arnp5DV
arnp6DV
arnp7DV
arnp8DV
arnp9DV
pp0,hva5
qq,hvc1
pp28,hva5
qq,hvc1
qq,hvc1
qq,hva5
[stop]
ui
_
b11:pmd_X
      _4
hv(r-1)Dt1NB
gab12
arnd4D
a6:pm(b11)t-1
b6:gm____t-1
     1023
nc(b11),hva6
c7h:it-1,it(b6)
pab1,arnb6
ca1022,hvc8
ps(b8),pp0
hsnc4IZC
gar1,it56
b9:bsn_,hvc1
      0
c9:hsc5XIOB
ck10,ml2a
hvc9XLZ
b8:gmd_Vt1NZA
     _4
a7:cl19VXIZA
hvc9
ck-19,uda8
hvc9LA
c6:hvc1LZB
pm0DVLZA
pm512DVXNZA
ca0,hva8
hva7XLZA
gm(b8)t1
it(b8),pts1
acs2V
a8:gr(b8)Xt1MZA
it(b9),pas1
pmn(b6)Xt1
gr(b8)Vt1NZ
hvc1
cl30,cln-10
gaa14,pi128
cln-5,tk-15
gta9,cln-5
tk-5,gaa9
ca0,hva10
a14:itt472
bs472,hvc1
a9:bsXt
sr3aITA
hvc1LTA
a10:pm(b6)t1
gm(b8)t1
ac3a,it2
qq(5a),hhc7
[stop]
c8:grn(b8)t1M
pmnb12X
srd1D
cl10,mln6a
cl-20,ar7a
gr2b2
pmn(b8)XD1
srd4D
sr5a,ck-10
grb2,ck-20
ar9a,gm3b2
pa3b2Xe19
dln6a,gr1b2
ac2b2,ck-10
grb5,arn5a
ck-10,gt1b2
ck-20,ar4a
pp(b12)X-1
dln6a,ac2b2
ck-10,arb5
gab13,acb12
arnb4,acb5
vkp,lkb3
b13:vkp_,skb3
       0
vkp-1,ncp
ppp-1,hhb13-1
b10:arnd_t1IRC
       _4
hvc10LZ
gta11
mb8aNA
a11h:hsc2,qq_
            0
hva13LRA
gsb10,gsa12
a12:arn_ITA
       0
hsc2
hv(a12)D-1NTA
a13:pm(b10)t1
hsc3
pm(b10)t1
psb10-1,hvc3
c10:pi0,hsnc2
hsnc3X
vk(b4),skb2
vk(b5),skb3
vk(b5)
[stop]
b12:
d6:arnDt1
ck10,gr2e4
ck10
ard1D
aca15
a24:grn-1,hsf2
hs1
hvb18
toutparam;
_
tbinin;
_
tfree;
_
qqf,
b18:hs1
hvb19
tbinout;
_
qq50,
qqf0
qq37,
a15:qqf
qqf,
b19:hs1
hva24
toutparam;
_
tt;
_
qqf,
e
_
dd4=i,e49=7
_
i[stop] [sum] [045] T6,L2
_
s
_
[stop]