|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen GIER Computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen GIER Computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 135816 (0x21288)
Description: Bits:30000741 Kildetekst til HJÆLP
Types: 8-hole paper tape
Notes: Gier Text, Has10
[start 320 kanaler]
;b d16
_
;d8=100,d9=0,d10=0
;s
_
; [start 960 kanaler]
b d16
_
d8=100,d9=0,d10=640
;s
_
[ s t o p ]
[HJÆLP] ;2,0 1
[SLIP]
b k=2d8, i=0, a24, b21, c16, d6, e88
_
e64=d9, e88=d10
d=972, d1=-4, d2=517, d3=-11, d5=979, e1=382, d7=323, e8=d7-9, e3=369, e56=318
e28=525, e38=640, e39=e38+40, e40=e38+80, e50=600, d6=320, e34=372,e59=536,e62=9
93
e75=978
e86: thsf 2 ;
_
e65: sy 64 ,it -1
grn -1 ,it -11 ;arbc nulstilles
bs (r-1) ,hh r-2
arn1d5 ,hse21
arn 1d2 ,hse42
grn720 MC ;stak
grn 721 ,pa e83
[ordrelæsning]
b a12, b8
_
e4: gk VD
[10][1e4] pa e4
ps 6e4 ,pi
pi (e4) IK t-18
grn d XM
pi ,grn e 27 ;forbered ny linie
[6e4] hh e20 , ;første symbol
e29: gr1d3 ,hv p+a1 ;gem 1 op hopordbog
_________
e7:a1: hve28 ,hv e9 ;0-9 tal, adr
hva2 ,hve9 ;a-eik, op ell lab, adr
hve28 ,hve9 ;+- tal, adr
[20] hve28 ,hvc1 ; 10 tal, fejl
hva3 ,hvb1 ; , /CR terminator1, 2
hva4 ,hvb2 ;AXS). op, mod
hva4 ,hvb3 ;mprst(op, start adr,
hva4 ,hvc1 ;=:h op ,fejl
a2: it(4d3) ,pae5 ;pos:=y
hse20
bsp+511 ,hha11 ;test g=0, label m index
bsp-6 ,hvna12 ;test g=7 label
hva5 ;op
a3:[30] CA64 ,HVe4 ;blank CR
b1: CA64 ,HVa6 ;linie slut
hvc1 LTB ;test om hhao tilladt
bs s-2 ,hvc1 ;test om for mange adr
pi32t-33 ;sæt hhao
hse20 ,qq1 ;læs 1 op
gr1d3 ,ca64 ;test for linie slut
a6: pse4-1 ,HVe43 ;gem 1 op, helord lagres
a4: hse20 ;læs resten af op
a5: ck-6 ,ar1d3 ;tabelopslag
[ s t o p ]
;3,40 2
gr1d3 ,arne36
hse
e36: qq10e64 ,arn1d3
paa7te8 ;start adr op tabel
pme19 ,gme27 ;ant ret mrk.
ar(a7)9
hvr-1NO
a7: art1
_
hvr-1NT
pm3d2 ,ck0 ;test for venstre
[50] cm5d2 ,hha8 ;nej skift
a9: ck-4 ,mbd6 ;operation paa plads
a10: ck-10 LPA ;evt hhao
abd ;til helord
grdMA
hsne20X ;læs 1 adrcif
a8h: hhp+a1 ,ck18 ;hopordbog
cm1d3 ,hvc1 ;forbudt operation
hva9 ;operation OK
b2: pm1d6 ,it(4d3)
[60] bs44 ,hvnb4 ; , -, SnfF)
ca54 ,itn-17 ;fF
b5: pi80LZ-65 ;Fmærke, forbyd hhao ell blind
tln(4d3)V ;skift
b4: hvb5NPA ;hop til OK hvis -, hhao
hvc1LZ ;fejl hvis 0
mb2d6 ,hva10 ;accumuler bit
b3: ca19 ,hhb6 ;t
bs s-1 ,hvc1 ; , fejl(tælledel)
ca8 ,hvb7 ; (
b8:[70] arn4d3 ,ca4 ; , sæt rel mærke
hvc1 ;fejl hvis ( eller t
gae27 ,HVe10 ;læs adr m. e20
b7: hse20
pte27 t4 ;sæt (
bsp+505t510
hvb8 ;g=6
b6h:e68: hve9 ,grne27 ;læs adr, slet rel mærke
bs s+510 , ps s+2 ; , sæt tælledellæsn
[navn:]a11h: hve10 ,hse24 ;læs heltal, ciffer læst
[ s t o p ]
;4,80 3
a12: gr2d1 ,it(e5)
bs2 ,hv e53 ;i eller k
pae49t1
arn4d3 ,ca47 ; ,h
pae49 ,hse20
arn4d3 ,gae52
ca48 ,hhr+1
hv e12 ,arnd5
ck30 ,hse51
hv 1e4 ,qq 2
e
_
b a20
_
e10:[90] hsn e20 X
e9: pae25 ,gm1d1 ;fortegn, adr:=0
gmd1 ,it s+509 ;term s=0
a11: pta1 ,pae24 ;def, ciffertæller
hsne22X ;læs et led
bsp+509 ,hvp+a2 ;p=0∨1∨2
a12: bss+509 ,hvna3 ;s=0∨1∨2 udhop ordre
bss+507 ,hvc1 ;s=3∨4 for mange adresser
arn1d1 ,it512
bsp+508 ,hvc1 ;fejl hvis terminator | ,∨/∨CR
=
e15:a18:[100] hrs+1 ,qq1 ;bruges som konstant
a2: pp(2d3) ,hva5 ; , heltal
pp(e5) ,hva6 ; , navn
hvc1 ; , fejl(++)
a6: bsp-1 ,hva7 ; ,a-e
bs(e24) ,hvc1 ;cifre efter i eller k
arnp+d5 ,hva8 ;hent i eller k
a7: hse16 ;opslag
hva9NRA ;udefnavn
tl-30 ,pp(e27) ; , rel msk
[110] cap-2 ,srd5 ; , -i
a8: ard1 ,pp(2d3) ; + term,
a14: bsp+508t510
bs(4d3) ,hha10 ; ,
a15h: tk30 ,mte25 ;adr paa plads, fortegn
ac1d1 ,it510 ;adresse
a13: bsnp+510 ,hvc1 ; fejl hvis navn følger term
grd1 ,hva11 ;term=heltal ell 0
tk30 ,mte25 ;term var heltal
ac1d1 ,hva12 ; . udhop
[ s t o p ]
;5,120 4
a5: bsp+509 ,hvp+a13 ;for heltal: switch paa termin.
a10h: hva14 ,grd1 ; ,efter
hsne26X ;læs rent heltal
tk20 ,gtr+1
arnd1 ,ns
cls+39 ,hha15 ;skift term, akkumuler
[udef navn]
a9: pp(2d3) ,nt(e25)
bs1 ,it(e47)
a1h: bs(e5) ,it
bs1 ,hvc2 ;forbudt udef. navn
[130] bsp+508 ,hvc2
bss ,ck10
ga1d1 ,tl-30
arnd5 ,tl30 ;i
bss ,ck-10
ck20 LRB
GR(e5) ,hvna12 ;sæt i ordbog, udhop ordre]
a3:e27: arnD ;relativmærke ind
ck20 ,ab1d1 ; ,; , adresse
bss ,cl-10 ; , hhao
[140] pss+2 ,ptd ;tæl s, tælledel=0
abd ,grd ;helord, helord
grne27 ,pmd3 ;relativmærke, symbol
hhnp+e7X ;hopordbog b
[opslag]
e16: tk30 ,ck-1
ara18 ,gaa16
gta17 ,itd5
e5: arn ,gar
ca512 ,hvc3 ;ikke ærklæret
gtr ,it0
e18h:a16:[150] bs ,hve5 ;hop index > længde
gre30 ,it(a16)
a17h: arn(e5) ,bs
ck20 V IRA
pi 5 V IQA -264
pi8 V IQB -266
pi 2 LB -3
ck20 ,hrs+1
[h=def adr eller =def adr]
e13: hsn e20 X ;læs ciffer
e11: pa e52 ,arn 4d3 ;redef. lovlig
[ s t o p ]
;6,160 5
ca 49 ,hv e10 ;læs defineret adresse
hv c1 ;ikke=
e58: arn 1i ,hs e
qq 1e64 ,hv d6
e
_
b a20
_
e17: arnd3 ,ca64
hhs
hse10
hrs+1
e22: arn4d3 ,pp(2d3) ;læs et adresseled
bsp-2 ,hrs+1 ;p_3 udhop
>
a18:[170] gp 3d3 ,ga 5d3
bsp ,hva16 ;p|0
=
hse24 ;p=0 læs heltal
pp(3d3) ,hrs+1
a16: bsp-1 ,hva17 ;p=2 fortegn
it(4d3) ,pae5 ;p=1 navn
hse26
pp(3d3) ,hrs+1
a17: it(e23) ,pae25
hse20
[180] bsp-1 ,hrs+1
hva18
e24: qqt1
arn4d3 ,ck-30
ml1d2
e26: hse20
bsp+511 ,hve24
hrns+1X
e14: arnd3 ,ca64 ;som e20 men udhop for CR
hhs
[Den centrale læsesekvens
læs et symbol]
e20:[190] pp ,lynd3 ;comment situation
gad3 ,ck-1 ;lige-ulige
gaa2 ,it64
bs(d3) ,hha3
gt a1 ,it e1
a1: a2: arn ,it
bs ,ck10 ;skift for ulige
e23: ck-10 ,tk-7 ;case tilføjes
ga 2d3 ,sr 2d3 ;g
ck 7 ,ga 4d3 ;y
[ s t o p ]
;7,200 6
e2: bs ,hva4 ;evt fejludskrift
ca 126 ,hh e20
nc p92 ,hv a12
pa e32 t511
sy 29 ,can (e83)
arn 1d5 ,hs e81
arn d5 ,hs e81
ps 6e4 ,sy 62
qqn X
a12: bsp-17 ,hva5 ; , comment eller streng
a11:[210] pp(2d3) ,it100
bs(4d3) ,hva5 ;internt symbol
[p=292]a10: arnd3 ,hrs+1 ;symbol, udhop
a5: ca125 ,uda6 ;UC
ca124 ,uda7 ;LC
bsp-200 ,hvp+a8 ;streng ell comment
ca123 ,hva9 ; _
[17e2][p=297] ca122 ,pp300 ;; , CR
ca121 ,pp301 ; [ , ]
ca120 ,hvc5 ;forbudt
[p=300] a19:[220]cap-200 ,hva11 ;CR=100, udhop
[p=301] cap-200 ,hve20 ; ]=101, ] comment slut
a3h: hhe20 ,it126 ;blind
bs(d3) ,hhe20 ; ,8 huller
e25: ,hvc5 ; , fejl
a9: cans-e29+1 ,hh e6 ; _fra e4
cans-d6 ,hhe6 ;_fra d6 efter b
_
hve20 ; _blind
[fejludskrift]
a13:a4: ca ,hva14 ;samme som sidst, ja
ca100 ,it-1 ;CR, tæl linie
a14:[230] qq(e2) ,ga a13
sy (d3) ,hv a12
a6: pae23t10 ;sæt UC
a7:[-2] PAe23t-10 ;sæt LC
a8=a19-300 ,e82 =a10 -a19 +300
e
_
[definition]
b a3
_
e53: hv c1 NZ ;index efter i
ncn (e5) ,hv c1 ;k definition udenfor blokhoved
hs e11 ,qq e4 ;læs def. adr.
cl -30 ,hv e42 ;sæt Il
e12: it (e5) ,pt a2 ;gem bogstav
pa e52 ,hs e10 ;redef. lovlig, læs def. adr.
[ s t o p ]
;8,240 7
a2h: pa e5
ps e4 ,hv e51 ;hop til sporing
e74: ca (e48) ,hr s1 ;kontroldefinition
hv c6
e85: it (4d3) ,pa e5 ;ærklæring
bsn (e5) X t1
can p-1 ,hv e26
e
_
[c] e41h: hv c4 ,hs e10 ;læs def. adr.
_
ck 10 ,grd
arnd5 ,is(e25)
[250] cas ,qqn ;hvis fortegn
ard ,pse3-1 ;
[i=] e42: ,gra15 ;a15:=i ny
[+1] srne47 ,tk-20 ;ibt
ara15 IPC ;iny-ibt
tl-10 ,tln-29
dln1e62 ,are47 ;R:=ent((iby-ibt)/40)+k0
mb 1e56 ,gra14
[ændring]
e46: vk (e44) t-1 ;gem gamle kanaler
sk e38 ,pa e45
[260] vk (e44) t1
[3e46] sk e39 ,arn a14
[4e46] hv e37 LPB ;helt slut
e21: gr1d5 ,tk30 ;kl
gae44 ,arna15
grd5 ,srne47 ;il
tk -20 ,ar d5 ;il-ibt
tl-10 ,tln-29
dl 1e62 X
pae45t1 LZ ;frisk kanal
[270] ar4d2 ,gr7d5 ;iv=e39+R((il-ibt)/40)
is(e44) ,vks-1 ;læs tre nye kanaler
lke38 ,vk(e44)
a10h: lke39
a16: arn7d5 ,tk30 ;a13:=N
gae57 ,vk(e44)
hrs+1 ,arn 1d5 ;ud af komp ind
[e43-2] pm d5 ,ps e4-2
[e43-1] gm a15 ,hv e21
[gemning] e43: arnd
[ s t o p ]
;9,280 8
e57:[280] grMPC
arn6d2 ,ac7d5 ;iv:=iv+1
acd5 ,pae45 ;il:=il+1, -, frisk
arn7d5 ,sr7d2
hva16LT ;hvis kanal ikke fuld
is(e44) ,vks-1 ;skriv gammel kanal
ske38 ,srn1e62
e44: vkt1 ;kl:=kl+1
pae45t1 ;sæt frisk
ac7d5 ,arn 6d2 ;iv:=iv-40
[290] ac 1d5 ;kl
a11h: pp-1 ,ppp+1 ;flyt
arnp+e39IPC
grp+e38MPC
bsp+473 ,hha11
hv a10
e6: hs e20
bs(e23) ,hre29
ca50 ,hve34 ;b egynd
ca51 ,hhe41 ;c olga-tæller
[300] ca52 ,qqn ;d efiner
ca53 ,hve35 ;e nd
ca54 ,udne62 ;f lydende
ca55 ,qqn ;g ruppe
ca56 ,hve58 ;h jælp
ca35 ,vyn16 ;l æser
ca36 ,pane62 ;m askintal
ca37 ,pane19 ;n ormal adresse
ca41 ,udne56 ;r elativ adresse
ca19 ,hv1e59 ;t ekst
[310] ca20 ,hh e73 ;u dhopsadresse
ca23 ,hve67 ;x expeder adressebog til troml
e
ca25 ,hve66 ;z sæt adressebog
ca17 ,hv e69 ;< intern kode
hv 1e4 LZ
[e56-3] vy 17 ,ud e53-1
sy 58 ,sy 64
[e56-1] pa e2 ,hh e4-1
e56: PAe19t2
[1e56] 1023
[ s t o p ]
;10,320 9
d6: qq63.25 ;4d2->d6
qq1.1+3.16+7.24+5.32 ;9d2
qq1.26+1023.39 ;10d2->
[operations tabel]
[ 323] 456/ 720/ 0/ 0,
[ 324] 510/ 9/ 486/ 236,
[ 325] 0/ 437/ 766/ 952,
[ 326] 0/ 345/ 509/ 429,
[ 327] 0/ 259/1022/ 807,
[ 328] 0/ 495/ 254/ 229,
[ 329] 0/ 153/ 511/ 505,
[ 330] 0/ 81/ 255/ 404,
[ 331] 0/ 271/ 255/ 716,
[ 332] 15/ 528/ 0/ 0,
[ 333] 499/ 243/ 733/ 189,
[ 334] 0/ 802/ 756/ 976,
[ 335] 0/ 222/ 764/ 153,
[ 336] 1/ 260/ 767/ 877,
[ 337] 0/ 503/ 763/ 30,
[ 338] 0/ 158/1021/ 984,
[ 339] 9/ 15/ 511/ 187,
[ 340] 0/ 859/ 985/ 287,
[ 341] 13/ 928/ 0/ 0,
[ 342] 498/ 279/ 927/ 96,
[ 343] 0/ 320/ 511/ 187,
[ 344] 1/ 514/ 510/ 899,
[ 345] 0/ 264/1017/ 50,
[ 346] 0/ 262/ 255/ 25,
[ 347] 0/ 744/1021/ 927,
[ 348] 0/ 255/ 511/ 3,
[ 349] 0/ 956/ 252/ 41,
[ 350] 25/ 880/ 0/ 0,
[ 351] 486/ 400/ 359/ 494,
[ 352] 0/ 125/1022/ 784,
[ 353] 3/1007/ 504/ 350,
[ 354] 0/ 737/1014/ 983,
[ 355] 1/ 260/ 763/ 634,
[ 356] 0/ 765/ 252/1003,
[ 357] 0/ 223/ 508/ 427,
[ 358] 0/ 221/ 255/ 626,
[ 359] 0/ 0/ 16/ 0,
[ s t o p ]
;11, 360 10
[retablering af adressebøger]
e55: hs e72 ,arn a1
gai+1 ,it6
vk t-1
[3e55] qq
nc (i-2) ,hv i-2
[-4] vk 17e64 ,arn d5
hh e4-1 NOA
gra15 ,arn1d5
gra14 ,hv r2
e3: arnd3 ,ca64
[370] ps e4-2 ,hv e46
ps11e28 ,hve59
[begin]
e34: arn e3-4 ,hs e
hvd6 ,arna17 ;længde:=ent(index/2)+1
are31 ,gr(e5)
IT(a18) ,pt(e5) ;stak[i]:=pak(n,længde,Ref)
b6: hse31 ;tæl n
grn(e31)M
a18:e63: arnDt-1 ;længde:=længde-1
hvb6NZ
[380] hse31
a1: qq 287e88 ,hv b1
[opslags tabel 33 celler]
e1: 1/ 109/ 640/ 109,
[ 383] 3/ 640/ 512/ 2,
[ 384] 5/ 945/ 122/ 4,
[ 385] 7/ 121/ 101/ 6,
[ 386] 9/ 772/ 686/ 8,
[ 387] 119/ 120/ 119/ 120,
[ 388] 640/ 119/ 640/ 119,
[ 389] 120/ 118/ 120/ 123,
[ 390] 640/ 640/ 117/ 0,
[ 391] 772/ 685/ 645/ 769,
[ 392] 640/ 640/ 649/ 640,
[ 393] 640/ 640/ 650/ 640,
[ 394] 640/ 640/ 644/ 640,
[ 395] 512/ 120/ 384/ 120,
[ 396] 119/ 119/ 119/ 119,
[ 397] 119/ 119/ 119/ 119,
[ 398] 640/ 256/ 640/ 256,
[ 399] 640/ 643/ 661/ 129,
[ s t o p ]
;12, 400 11
[ 400] 685/ 646/ 647/ 768,
[ 401] 771/ 658/ 674/ 640,
[ 402] 770/ 659/ 666/ 640,
[ 403] 640/ 120/ 640/ 120,
[ 404] 120/ 119/ 120/ 119,
[ 405] 120/ 120/ 120/ 120,
[ 406] 130/ 640/ 642/ 640,
[ 407] 132/ 641/ 656/ 131,
[ 408] 134/ 648/ 640/ 133,
[ 409] 640/ 686/ 640/ 686,
[ 410] 128/ 640/ 684/ 943,
[ 411] 385/ 124/ 944/ 124,
[ 412] 119/ 125/ 119/ 125,
[ 413] 126/ 119/ 126/ 119,
[ 414] 0/ 612/ 0/ 612,
[sporing]
e51: gae48 ,arn2d1 ;e48:=il,R:=index
hse16IOB ;hent, OB:=0
hve52LRA ;defineret
paa17 ,pta17
b2: gr(e5) ,it(e48) ;definer bit 1-10
[420] pa(e5) ,hh 1i
b4: arna21 ,ga a20 ;næste til R
ca ,hvb3 ;færdig
ck ,tl -30 ;id=løbende adr gemmes
qq ;1 tom celle
ara17XIOA ;k:=ent((Ref+id)/40)
dln1e62 ,tk30
ga b11 ,gm a23
vk (b11) ,sr e44
ca -2 ,hh b5
[430] ca -1 ,hvn a19
a8: lke50 ,vk(b11)
[+1] PADt5 ;sporingskanal i brug
b7: cln-10 ,ara8 ;R:=c[id]
b10: gaa 9 ,arn(a9)
ck-10VNOB ; if r∨p then OA:=1
__ ____
ck-2VNA
ck-2IOA
ck12 ,gaa21 ;næste adr gemmes
gr(a9) ,it(e48) ;c[id] ændres
[ s t o p ]
;13, 440 12
pa(a9) ,ck29
piLOt511 ;i_p then OA:=0
_ ____
tk31
e49: bs ,hhnb8 ;ikke h
a24: qqVNOB ;p, tælledel
hhnb8NA
ck-4 ,pm6d2
ca56 ,tl28 ; HV-> HH
ca32 ,tl26 ; PA-> PT
b8: tl27 ,ar(a9)
a20:[450] srDLOA ;-r
ck-10LOB ;10-19
a9: gr ,bs(1a8) ;paa plads
pa1a8 ,ske50
b5h: hvb4 ,srn 1e62
a19: ar a23 ,ar 4d2
ck-10 ,hvb10
b3: arn(e5) ,ck10 ;ordbog
pi256VNOB-257 ;0-9 eller 10-19
b11:a7: vkV
a21:[460] ,hvb2
ck20NRB ;ordbog paa plads
gr(e5)MQC
HRs+1
e52: bs ,hv e74 ;redefiner
gr(e5) ,it(e48)
pa(e5) ,it(e48)
pt(e5) ,arn(e5)
ck20 ,hvb11
[end]
e35: pm(2d)IPC
[470] arna ,hs e
hs e72 ,hv 1d6 ;e uden adresse
_
pi 16 t-17 ;e med adresse, idicer udhop
_
ga e70 ,hv d6
e72: hsn e20 X ;vr eller def. adresse
ca 64 ,hh s
hs e9
hv s1
qq ;1 tom celle
e61: hv e46 NPA ;resten af end
[ s t o p ]
;14, 480 13
gr a14 ,tln 10
gr a15 ,hv e46
arn 10e64 D
e: ca (r3) ,hr s1 ;skift program kanal
a: [1e] qq 18e64 ,ga r2 ;
vk (r1) ,lk d6
vk 10 ,hr s1
e69: arn 1i ,hs 1e ;læs komp
qq 22e64 ,hv d6
e66: pmn 3i VIZA ;z
_
e67:[490] pmn 3i IOA ;x
_
gm 3e55 ,hv e55
lk 1000 t-40
sk 1000 t-40
b a7 [adressetrykning]
_
[e81-1] pa re32 t 511
e81: tk 20 ;tryk bit 30-39 efter ml.
e80: tk 11 ,tk -1
e77: bt (re32) t1 ;tryk bit 0 -9 efter ml.
sy ,hv r-1
e79: pa re32 t506 ;anslag:=-5
e78:[500] hs re33
srn (ra4) D t-16
hv ra
e32: qq [antal] ,ck ;tryk 0_x_1023
< <
e33: bs 570[case] ,it 510 ;tryk -512 _x_ 511
< <
a7: sy (re33) ,tl -30
pa ra1 ,dk ra2
hv ra3 XNT
sy 32 ,mt ra7
xr (re32) V t1
a6:[510] sy ,it 16
a3: pa ra4 ,it -128
a1:e83: bt 1 ,hrn s1
mln ra5 ,tk 30
a4: ar DLZ
a: hh ra3 LZ
qq (re32) t1
d2: ga ra6 ,hv ra6
a5: 10
a2: 9999
e
_
[ s t o p ]
;15,520 14
[3d2] qq 1.3-1.15 ;maske
[4d2] qq e39.39
[5d2] qq
[6d2] qq 1.39
[7d2] qq e40.39
ba [tallæsning]
_
e28: arne60 ,hse
c1h: hv d6 ,hs a ;1. syntax læs til ,/: el CR o
g hop e4
c2: hs a ,hv e4 ;2 forb. udef. samme reaktion
c3: hs a ;3. ikke ærklæret - -
c4: hs a ;4. gal ærkl. læs ,/: el CR og
hop 1b1
c5:[530] hs a ;5. ubenyttet symb. fortsætter
c6: hs a ,qq e4-1 ;6. kontrol def. -
c7: hs a ;7. talfejl syntax -
c8: hs a ;8. - størrelse -
c9: hs a ,qq e56-4 ;9 stak overlb læser fra skri
vem.
qq ;1 tom celle
e59:a: gm6d3 ,ite50
pte60te54
vk21e64 ,lke50
paa7t21
e60:[540] vk19e64 ,hv
e
_
b a23,b7
_
d b2=6d2, b4=d, b5=1d2, b1=d1, b7=2e62, b6=358, b3=358
_
a17: HSSe20 X
a3: PAa7 IZB ;sæt ikke decimaler, og førcifr
e
CA32 ,IT(e23) ;
PAa4 ,CA32 ;sæt fortegn
a8: HSe20 IZB
BSp ,HRs+1 ;udhop hvis ikke cifre
ARS4d3 ,CK10
a7: PP ,MLb5 ;tal:=tal⨯10+ciffer
PPp1 NZ ;korriger for flere cifre
[550] DLb5 X NZ ; end der kan være i M
CASp ,HVa8 ;ingen faktor korrektion
GMb4 ,PMb1
a15: MKSpb6 ,NKa14 ; .8 eller 10/16
BSp ,IT4
a14: ITt-3
a2: XR ,IT-1 ;korriger exp2
a1: BT ,HVa15 ;kun effektiv under 10 potens omr
.
GMb1 ,PMb4
CASs-e ,HVa16 ;udhop efter potens omregn.
[ s t o p ]
;16,560 15
a9: HVa8 ,GMb4 ;her_starter_læsning_af__potens
___ _______ _______ __ 10 ______
HSa17 ;
PP(a4) X9 ;if pos exp then p:=1
__ ____
BSp ,PP1 ;else p:=-1
____
PMb1 ,SRb7
HSc8 NT ;fejl exp for stor
____
ARb7 ,CK-10
GAa1 ,HHa2 ;sæt exp10; hop til potens omr
a19: PAa18 t40 LZB ;_ruppe_læsning
G_____ _______
ARSb4 ,TK10
[570] GRb4 ,HSa17
XR ,MTa4
a18: TK t-10
NS(a18) ,CKs
ACb4 X
CA3 ,HVa19 ;ny/
a13: PP(2d3) ,ARSb3 ;_alslut,
T______
BSp-1 ,HVa
IT(4d3) ,CK(4d3)
GAa20 ,IT-49
a20:[580] PI ,PP4 ;sæt mrk.
a: HSe43 ;sliplagring
BSp+508 ,HSc7 ;fejl terminator
____
PMd3 X
a21: CA64 ,HVe4 ;CR, udhop
HSe20 ,QQe ;læs evt blinde terminatorer
HV1d6
[Tekst trykprogram]
e84: pp (s) ,ar s
pp (s1) NA
pmn p X
[590] pa r8 ,cl 36
ar 32 DLA
ar 16 DLB
pp p1 ,ca 160
sy 58 ,hr s1
ck -4 ,ga r2
ca 63 ,it 1
sy ,it 950
bt ,hv r-9
cl -6 ,hh r-6
e50:
[ s t o p ]
;19,320 16
b k=19d8, i=d6
_
d a22=324, a6=333, a4=334, a16=337
_
d a10=339, a11=347, a12=348, a23=350, a5=351
_
ARSd3 ,HHa22-1
BSp+511 ,HVa22 ;test for blinde,
BSp+510 t-511 ;terminatorer
[indh(høj)] HVa21 ,PAa1 ;sæt exp10
a22: PM256 DXIZB ;sæt cifre ikke læst
GRb1 ,PAa2 ;sæt 10-potens faktor og exp2
HSSa3 X ;læs evt. fortegn og cifre
BSp509 -512 IPC ;sæt NPC, test for . og 10
XR ,HHa5 ;rent heltal læst
BS(e23) ,hva6 ; 10 uden.
[330] PAa7t-1 ;sæt efter
HSa8 ;læs decimaler
HSc7 NZB ;fejl . uden cifre
____
a6: PMb2 NZB ;2∧(-39), 10 uden cifre
|
a4: XR ,MTa4
PMe23 X
CAp+7 ,HHa9 ; 10
a16: MLSb1 ,NLa10 ;heltal⨯10 potens faktor
HVa11 LZ ;tal=0;
a10: IT ,PP(a2)
[340] BS(e62) ,HVa12 ;flydende
TL1ITA
TK-1,GRd
ANndNTA
BSp+39 ,HSc8 ;fejl, maskintal for stort,
____
TKp+40
SRb2 LO ;korriger +1,
a11: GRb4 V ;maskintal lagres
a12: NKFp+40 ,GRFb4 ;flydende tal lagres
HSc8LO ;fejl, maskintal for stor
____
a23:[350] HS c7 NZB ;endelig lagring ;
a5: hv a13 ,MT a4 ;fejl, uden cifre
____
GRb4 X ;heltal
CA3 ,HVa19 ;test for gruppe
BS(e62) ,HVa16 ;test for f, i=370
_
BS(a2) ,HSc8 ;fejl, heltal for stort
HVa23 ;hop til test for cifre og lagr
ing
can s409 ,cm (r-410)
b6:b3: qq 1.8+7.13
qq 320
e
_
e
_
s
_
v
_
[ s t o p ]
;20,974 17
b k=20d8, i=2d
_
qq 720 ;n,ib,,kb
a14: qq 294e88.39 ;Kny
a15: qq ;Iny
e47: qq 294e88.39+721 ;tromlehoved stak[reft,ibt,1b]
e45: qq ;frisk
d5: qq ;Il
[980] qq 294e88.39 ;Kl
qq 512 ;a
qq512 ;b
qq 512 ;c
qq 512 ;d
qq 512 ;e
qq ;Iv
a17:e30: qq 294e88.36+294e88.36+294e88.36+294e88.36+294e88.36;Ref
e48: qq
a23: qq
e19:[990] ar D ;v
_
e70: qq ,hv (r)
e71: qq 38e64
e62: pa D t3
[1e62] 40
[2e62] 153
e31: qq 722 t1 ;tæl op i stak
bs (e31) t968
hv c9
e73: hr s1 ,hs 2e17 ;u
_
[1000] pa e71 t 294e88
ga e70 ,hv e4
e37: pp (e71) ,arn e70 ;udhop
vk 1e64 ,lk 960
vk 294e88 ,hh e75
qq
e76: [kanalen fortsætter paa side 25]
e
_
[ s t o p ]
;17,320 18
[begin]
b k=17d8, i=d6, a2
_
db18=332, b9=331, b19h=336
_
hse20 ;læs tegn, understregning infor
m
ca64 ,hve4 ; , ny linie (ordre)
b12: ca34 ,pi32 ; , k
arn1d5
gra14 ,tk10 ;Kny:=Kl
ar2d ,ard5
gr(e31)MPC ;pak[ref, ib, kl, il]
arnd3 ,ca34 ; , k
psb18 ,hvb9
a1:[9d6] ca 57 ,hha
b17:[330] arnd5 ,hhb19 ;Iny:=Il
b9: can(e45) ,arn 6d2 ;if frisk then Kl:=Kl+1
__ ____
b18: ac1d5 ,hve13
cl-30 ,gra14 ;kny:=læst
hse14 ,hvb17 ;if CR
a: hva1 ,hse13
b19h: cl-30 ,gra15 ;ib:=Iny
tk20 ,gr2d
it(e31) ,pa2d ;ref:=n
hse31 ,qqa2 ;tæl n
[340] hv1e42NPA ;ikke tromle
arne47 ,gr(e31) ;gem tromleref
arna14 ,ar2d
gre47 ,it(e31)
pae47 ,hse31 ;pak[reft, ibt, kb]
a2: hse46IPC ;ændring
arne47 ,tl-30
tln10 ,tk19
tl-19 ,mtr
ml 1e62 ,gm a17 ;Ref:=kb⨯40-ibt
b1:[350] canp-4 ;test
hse14 ,hh e4-1
hs e85
bsp+508X512
hvc4
arn(e5)td5 ;R:=stak[i], e5a:=i
gr(e31) ,sr2d ;stak[n]:=stak[i]
hv c4NT ;if start[i]> ref
__
cln-11 ,are15
gae63 ,hh1e34
e
_
[ s t o p ]
[end] ;18,320 19
b k=18d8, i=d6, b7
_
pa e71 t294e88
gk e4 ,ps b2
vy ,arn e47
b1: vy 32 LKA t-33
vy 16 LKB t-17
sy 64 ,ud e79
b2: hh s ,hs e81-1
arn 2d ,hs e80
arn d5 ,hs e81
arn 1d5 ,hs e81
[330] pt e18 t b5
pp1 ,it (2d)
b6: pa e31 ,arn p1d5
ga a24 ,pp p1
gan b ,it (a24)
bs (e31) ,hv b4
b3: gp e5 ,hs e16
gr d ,vy
hv r4 LRA
tl -20
[340] vy 16 NZ
hv b LZ
hs b1 ,sy p47
arn b ,hs e32
arn d ,hs e77
hv b LRA
arn d ,hs e80
b: arn Dt1
ck-30 ,hv b3
b5: arn (a24) ,gr pd5
b4:[350] bs p506 ,hh b6
pt e18 te5
hs b1 ,arn (e47)
gr e47 LPA
arn d5 ,gr a15
arn 1d5 ,gr a14
arn (e31) ,tl -20
tk 20 ,gr 2d
ps e4-2 ,vy (e4)
tln 10 ,hv e61
e
_
[ s t o p ]
;21,600 20
[fejl] b k=21d8, i=e50, a10
_
a1:a2: gk DIK
gi a ,pi (a1)
pa e2 NRB 3
sy 58 ,sy29
arn s-c2+2 DIK
ga a2 ,gs a3
sy ,hs e79 ;tryk fejltype
arn d5 ,hs e81 ;tryk adresse
a: pp ,sy
can (e2) ,hh 2i ;hop skrivemaskine-input
[610] bs (e23) ,sy 60
sy (d3) ,sy 62 ;tryk sidst læste symbol
a3: ps ,pm 6d3
bs s-c5 ,hr e15 ;udhop for type 6,7,8 og 9
bs s-c4 ,hr 6e4 ;udhop for type 5
bs s-c3 ,pa a4 ;sæt udhop for type 4
ps i-1 ,arn 4d3 ;skip symboler indtil ,/: el CR
nc 48 ,it 512
bs p508 ,hv e20
a4: hh rc2 ,hv 1b1
[tekst]
e54:[620] pana5t6
a6: pp e82 ,ps2e54
grd ,hhe20
ard ,ca64
sr1D ;i=640
ca5
bs(e23) ,hva8
[a6+6]a9: tl4 ,gaa2
tl-10 ,it5
bs(a5) ,pi(a2)
a5:[630] bt_-1
6
hvp+a6-e82
tl10 ,itp
par1 ,hse57
pp
bsp218 ,hve54
pse4-1 ,hhn 17e2
a8: ar5D
pp 6e82 ,hv a9
[1 celle fri]
qq
e
_
[ s t o p ]
[læs komprimeret kode] ;22,320 21
b k=22d8, i=d6, a22, c6
_
d a4=d
_
pa b11 t 29e64
vk 29e64 ,lk e50
is (e44) ,vk s-1
pp (e57) t-e39
sk e38 ,ly a9
nc 62 ,hv a20
bt-434 t1
ca 17 ,hh i-3
ly a9 ,hv i-2
a20: pa a19 ,pa a13 ;sum og antal=0
a9:[330] pi ,hs a ;læs etikette
a8: pm a5 ,ga a3
ga c6 ,tk 10
ga a2 ,tk10
gr a4 X MRA
hv a6 LRB ;hop ikke overspringelse
bt 51 V NQB t-1 ;hvis startetikette tæl mellems
lag
c6: pp p[ac] ,hv a18 ;ellers tæl i p og hop
ly a9 ,hv i-2
nt (e44) ,qq (a2) ;a2:=a2-e44 antal kanaler at ov
erspr.
a18h:[340] pp (a3) ,it -2
pi 1 ,bs p-39
pp p-40 ,it 1
can (a2) ,hv a10 ;hop hvis samme kanal
it (e44) ,vk (a2)
c4: lk (c3) ,arn a2
hs c1 ,hv a12
c: gs 4c ,ps (e44)
[1c] bs s-831e88 t-832e88
vk s1 ,lk (c3)
[350] pt 1c t511
[4c] ps ,hh s
a5: hsf 2
a17: hs c1 ,tl -30
pm p XD
tk -30 ,gm e47-2 ;sæt Kny
sr e30 ,ml 1e62
hh e43-3 LT
arn e47-2 ,hh e43-2
a22: qqf 63.41+29.35+55.29+49.23+35.17+10.11, ;gal
[ s t o p ]
;29,604 22
i=604
a7: hs a NB ;læs et ord
a14: gr se39 MRC ;gem et ord
hk c ,pp p1
bs p472 ,hv c2 ;hop hvis ikke ny kanal
hs c ,pp
a6h: hs c1 ,it -1
a2:[610] btf [ak] ,it 40 ;tæl kanaler
c2h: qq (a3) ,ps p
a3: bt [ac] IRCt-1 ;tæl celler
a12h: hv a7 ,ga e44
a10: hv a20 NQB
arn a4 IRA
hh a8 NZ
hv a9 NRA
lyn a16 ,tk -7 ;læs sum og antal
ly a16 ,tk-7
[620] ly a16 ,tk4
nc (a19) ,hv a21
tk 10 ,ca (a13)
arn e44 ,hv a17
a21: qq a22 ,hs e84 ;fejludskrift
vy 17 ,hh e4-1
c1: pt 1c IRB t-832e88 ;start skrivning paa kanal
it(c3) ,pa a14
c3: nt(e38) ,qq e38+e39
vk(e44) ,it 1
is(e44) ,it s+511
bs 832e88 ,sk (c3)
hh s
a: pmn 1.3 XD IZA ;læs et ord
tl -7 ,ly a16
a16: pi LZA t-516
a13: ac DX
hv 1a X LZ
a19: xr t6
tl 3 ,hr s1
e
_
[ s t o p ]
[HP ADMINISTRATION]; 23
b b25, c9
_
d c=25e64 ;gemning 1
_
d c1=31e64 ;grænse for sum ved nøgleindhop
_
d c2=c-1 ;gemning 2
_
d c3=23e64 ;hp indhop
_
d c4=37e64 ;parentes liste
_
d c5=38e64 ;informationer
_
d c6=29e64 ;hp register
_
d c7=30e64 ;ordretrykning
_
d c8=33e64 ;taltrykning
_
d c9=39e64 ;h tryk
_ _
d b4=640, b11=0, b6=960, b13=931, b15=15e50,b19=58e64
_
[Lagring af registre
og indikatorindhold efter gemning
FL kanal 319 bit 0-19 10-19 20-29 30-39
40 - 41
0 24 ⨯ ⨯ ⨯
⨯ ⨯
1 25 by tk ⨯ ⨯
⨯ ⨯
2 26 in ⨯ ⨯ ⨯
⨯ ⨯
3 27 M0-9 M10-19 M20-29 M30-39
R40 R41
4 28 R0-9 R10-19 R20-29 R30-39
0 0
5 29 r1 ved fl ov. - - -
⨯ ⨯
6 30 s ⨯ ⨯ ⨯
⨯ ⨯
7 31 R00 R00 R00 R00,0
⨯ ⨯
8 32 p ⨯ ⨯ ⨯
⨯ ⨯
9 33 gammel r1 OV situation ⨯ ⨯
⨯ h
kanal 294
6 6 ⨯ tk ⨯ ⨯
⨯ ⨯
9 9 r1 OV situation ⨯ ⨯
⨯ h
indikator
O T P Q R
0 ⨯ 0 1 ⨯ ⨯ 0 0 ⨯ ⨯ nøgle indhop fra HJÆLP, ingen gemning
1 ⨯ 0 0 ⨯ ⨯ 0 ⨯ 1 0 flydende overløb i helcelle eller venstre halvcelle
1 ⨯ 0 0 ⨯ ⨯ 0 ⨯ 1 1 - - - højre halvcelle
1 ⨯ 0 1 ⨯ ⨯ 0 0 1 0 nøgleindhop fra helcelle eller højre halvcelle
1 ⨯ 0 1 ⨯ ⨯ 0 0 1 1 - - venstre halvcelle
1 ⨯ 1 0 ⨯ ⨯ 1 0 1 0 hs 2
1 ⨯ 1 0 ⨯ ⨯ 1 1 1 0 hsf 2
1 ⨯ 1 1 ⨯ ⨯ 0 0 1 0 hs 1
1 ⨯ 1 1 ⨯ ⨯ 0 1 1 0 hf 1]
[ s t o p ]
[hp-valg] ;23,680 24
b k=c3+d8-e64, i=680,a11
_
b10: cl -30 ,gr (a4)
pp 120 b4 ,pp p-1
a4: pm p IPC ;flyt parametre paa plads
gm p-80 MPC
bs p-80 b4 ,hh i-3
gm 527 MPC
sk 520 ,grn i-1
b21: pa 39b11 D te37
bs (a4) t 118 b4
pp 120 b4 ,it 1
[690] vk (823) ,gs a9
a11: can ,hv a
sk p V
b12: qq a5 ,hs e84
b7:a9: is 2e37 ,hv s-2 ;udgang fra hp
vy (a3) ,ps a10 ;fra hp til SLIP
b18: vk (2i) ,it -40
lk 600 ,it -1
vk 16 e64 ,it 1 e64
bs (i-1) ,hh i-3
a10:[700] hh s ,arn a14
a2: ps ,hv e21
b9:a3: grn b7 ,it e4-2 ;til hp fra SLIP
a: pa a2 t e65-1
vk 14 e64 ,lk 480
vk 28 e64 ,lk 600
vk 16 e64 ,lk 560
vk c6 ,arn 1 b4
gk b9 ,vy 17
ps a8
b8:[710] lk 1 b11 ,pa 1i
vk ,it 1
ud (s-2) ,hh i-1
a8: arn (s-2) ,hv s1
hs b15 IPC ;hent og kontroler hp
hv s b11 ,hh 1 a9
a5: ttomt hp ;
_
b: tfl.overløb ;
_
[ s t o p ]
[hp-valg] ;20,1006 25
b k=20d8, i=2d, a
_
d i=e76
_
vk c3 ,lk b10 ;indhop til hp fra tastatur
;ellerstrimmel
vk c5 ,lk 2b4
arn d5 ,tk 20
sr a ,vk
[1010] ar 41b4 ,gr 1b4
hv b9
a: qq t2b4
[d3:] qq
e
_
[hp-liste faste del] ;29,600
b k=c6+d8-e64, i=b11
_
h start/2.29+26e64f
_
h kontrol/2e50.29+26e64f
_
vk 36e64 ,
it ,hv b8
e87:
e
_
[del af hsf 1 adm ] ;26,823
b k=26d8, i=800
_
i=823
b20: vk [inf kan] ,tk 20
ga a4 ,lk 80 b4
is (b20) ,vk s1
lk 120 b4 ,vk 294e88
lkn 520 X
arn (a4) ,cl 30
ga a11 ,vk 294e88
[830] sr r ,hv b10
[h slip] vy (2b4) ,hh 1 b7
_
e
_
e
_
[ s t o p ]
[GEMNING 2] ;24,920 26
b k=c2+d8-e64, i=920, a22
_
sr 958 LB
ar 958 LRB
gr 960 MRC
[923] gp 960 ,vk 319e88
hv a14 NZA
arn 1 ,gt 957
sk 1000 ,vk 294e88
sk 951 ,arn 953
gr -1 ,vy (1)
a14: vk 20e64 ,lk 2d
[930] hv a15 LTC
b13: arn 960 IRB
hs b18 ,gt e70
paa22 V LQC te86
hh e65 LQA
paa22 V NTC t b
pa a22 NTA ta18
vy 17 ,sy 64
sy 29 ,sy 58
b14: a22: qq 636 ,hs e84
[940] arn 960 ,hs e78
sy 56 LRB
sy 62 ,hv e65
a15: hv 1 b9 NQB
qq b11 ,vk 26e64
lk 800 ,arn 960
vk c4 ,hs b8
pp 81 b4 ,tk 10
ga b20 ,hv b20
a18: thp-knap ;
_
i=951 [FASTE DEL AF FERRITLAGER]
it a19 ,it a20
it a21 ,pt 0
gk 1 ,vy r79[81]
vk 318e88 ,sk 960
vk c ,lk 960
vk 317e88 ,hv 960
lk b6 ,vk
qq N
vy t-65
[qq ,hv (r)]
[ s t o p ]
[k=c GEMNING 1] ;25,960 27
gi 2 IPC ;gem in
gm 3 MPC ;gem M, R40, 41
a: sk 960 IOB t-40 ;gem celle 0-959
[1a] vk 317e88 t-1 ;paa kanal 294-317
bt 23 t-1
gp 8 ,hv a ;gem p
gr 4 MOB ;gem R0-39, 0
gr 5 ,tl -39 ;tem R0-39
gr 7 ,arn 0
gs 6 ,pi 1.0+1.7 ;gem s
a1:[970] gt a1 ,is
a3: hh sa2 ,pi 1.0+1.7+3 ;hop ordbog, fl. ov. h eller f
a4: it -1 ,ps(5) ;fl. ov. ∨
a5: hh a7 ,pi 1.0+3.3+2 ;hs 1
a6: hv a7 ,pi 1.0+2.3+2.7+2 ;hs 2
a7: is s1 ,pp s ;
arn 1a ,it -433 ;R40,41=0 R10-19=-1
bs s-408 ,hh a8
vk 317e88 ,lk 880
vk 318e88 ,lk 920
a8h:[980] ps s-40 ,vk 294e88
hv a9 NRC ;hop fl. ov.∨
pm s IQB ;indicer rvt. flydende
hv a13 LRB
a12: is (a11) ,it s-447
bs -511 ,it 41
a11: pm s IPC t1
gm b4 MPC t1
arn 1b4 NQC
tk 10 ,it 1
[990] ca -2 ,hr a10
pp p1 ,hv a12
a10: gs 6 V
a13:a9: pi 2 NA t-4
arn 9 ,lk 951
b3: vk c2 ,lk 920
vk c3 ,lk b10
bs p502 LZA t508
hh923
qq 920 ,hv (r)
d a2=a5+a6-a4, a19=a3-a4, a20=a4-a5, a21=a4-a6
_
e
_
[parentes liste] ;37,0
b k=c4+d8-e64, i=b11
_
is ,hv (b21)
i=33b11
qq r-33
qq p
qq 43.15+1.39+b19
tgal hsf 1 ;
_
vk 26e64 ,lk 600
hv b13
e
_
[ s t o p ]
[hp-knap administration] ;0,0 28
b k=d8, i=0, a7
_
qq
it 1 ,pa a1
a3: gk 1 ,vy r79[81]
gi 2 IPC
gm 3 MPC
a: vk 1c1 IOB t-1
gr 4 MOB
tl -39 ,pm a2
gr 7 ,tln -19 ;dan maske 2∧-19 -2∧-39 i M
| |
arn a3 ,cm -1
a1:[10] pmnf r IRB
pi 1.3+2 IZA t2.1+1
hh a5 NZA
gp 8 ,pp 38e64
a4: vk 319e88 t-1
sk 1000 t-40
bt 23 t-1
a5h: hv a4 ,pp 294e88
gs 6 ,gin 9
vk c ,lk 960
[20] vk p ,lk 951
a7: vk (a) ,lk 900
ps 41 ,ud a
ps s-1 ,ar s899
a2: bs s-1 ,hv r-1
bs (a) IOB te64-1
pp(0) ,hv a7
sy 64 VNZ
arn 999 ,hv b3
sy 29 ,sy 60
[30] sy 54 ,sy 53
sy 33 ,sy 35
gr 512 MOB
ly i ,vy 80
pmn 1.3 XDIZA
tl -7 ,ly r1
pi LZA t508
xr XIZB
hv i-3 LZB
gr 2i MRC t-1
e
_
[ s t o p ]
[h] ;1,320 eller 960 29
_
b k=1d8, i=d6, a6
_
arn a3 IPC
a: ac d ,hs e20
ca 64 ,hv a1
mt e23 ,ca 3
ps e10-1 ,hv e-1
hv a
a3: nc , ;konstant
a5: qq 2b4.10+c5.20 ;konstant
a1: pa 4e46 te76
vk c5 ,sk d-39
[330] pi 48 ,arn 1d5
tk 10 ,ar 2d
pm a5 ,ar d5
gr (e31) MPC
tln 10 ,gr d5
tln 10 ,gr a14
arn 17e64 D
ps 9d6 ,pp 4
[RETABLERING]
b k=1d8, i=960, b4
_
d i=978
_
e75: hv e ,lk
vk p IPC
[980] gr 9 MPC
sk ,vk 319e88
vy 64 ,lk 1000
vk 317e88 ,ps (6)
vy (1) t 64
srn b2 ,pm 4
tk 39 LB
gr b2 ,gr b
arn 7 ,tl 39
sc b VNZ
[990] srn b2 ,hvn b1
ac b2 LT
b1: pp (8) ,pm 3
b4: pi (2) ,it -40
lk 960 ,it -1
b3: vk 317e88 ,it -1
bt 23 ,hh b4
vk 318e88 ,hv 6
b2: qq 512 ,qq s
b: qq
e
_
e
_
[ s t o p ]
;27,600 30
b k=27d8, i=40e50, d5
_
d b17=154
_
h slip/31.29+26e64 f
_
h hent/4.29+53 e64 f
_
d: h/b12.29+28e64
_
h sam/2.29+43e64
_
h tryk/b17.29+c9
_
h kompud/2.29+48e64
_
h læs hp/2.29+57e64
_
hgem/2.29+53e64f
_
h hp ud/2.29+55e64
_
hhp ind/2.29+54e64
_
[610] h ret/2.29+52e64
_
h algol/23.29+45
_
d3: itf ,hv b12
d1: tuaflaasede;
_
i=2d1, tsam;
_
i=4d1, ttryk;
_
i=6d1, tkompud;
_
i=8d1,[620] tlæs hp;
_
i=10d1, thent og gem;
_
i=12d1, thp ind;
_
i=14d1, thp ud;
_
i=16d1,[630] tret;
_
i=18d1, talgol;
_
i=20d1,d2: t;
_
d5: 0/0/-1/
d4: tsumfejl;
_
[ s t o p ]
;28,600 31
b k=28d8, i=e50, a12
_
a7=d1,a5=d,a6=d4
qq 385
qq
[kontrol]b16: vk 36e64 ,lk 520
arn 1b4 ,tk 10
ca ,pa a3
vk 27 ,lk 40e50
a12: sy 64 ,vk 36e64
a4: arn 519 IPC t1
ps a2 ,pm d5
cm a5 LPA
arn d3 ,hv a11
bt 2 t-1
hv a4
it (a9) ,bs d2
qq (a9) t2
b15: ck 10 ,ga a
tk 10 ,gt s
qqn LPB
pa a1 ,vk (a)
lk b11 ,pp
a: vk t 1
a1: qq p t40
[620] bs (b11) ,lk (a1)
pp p-1 ,ar (a1)
bs p40 ,hv i-1
ck ,it -57
bt (b11) ,hh a-1
hr s1 LZ
sy 29
a8: hs e84
qq a6 ,sy62
a2: hh s1 ,
a3:[630] hh ra12 ,ud e81-1
arn (a4) ,hs e80
bt (e32) t1
sy ,hv i-1
a9: qq a7-2 ,hs e84
a11h: hv a12 ,sy 62
gr (a4) MA
sk 520 ,hv b7
e
_
[ s t o p ]
;26,0 32
b k=26d8, i=b11, a2
_
is ,hv(b21)
qq
[start] vk 24e64 ,lk 40b11
arn a
gr 80b11 MB t 1
bt 39 t-1
hv i-2
grn 121b11 M t1
bt 7 t-1
hv i-2
[10] arn a1 ,gr 121 b11
arn a2 ,vk (2i)
gt -33 [MK PATCH]
gr 80b11 ,sk 81b11
vk b19 t1
arn i-1 ,ca 294e88
sk 71b11 ,hv i-2
nc 319e88 ,hh i-4
sk 96b11 ,vk 37e64
sk b11 ,vk 27e64
hh b16
a:[20] hs 2
a1: qq 17
a2: qq 10 ,hv (r)
i=33b11
qq r-33
qq p
qq 43.15+1.39+b19
tgal hsf 1 ;
_
vk 26e64 ,lk 600
hv b13
e
_
e
_
s
_
[ s t o p ]
[HJÆLPEPROGRAM TRYK] ;39,0 33
b k=c9+d8-e64, i=b11, a29, e32
_
e23=304b11, e22=41e23, e24=c7+d8-e64, e26=c8+d8-e64, e6=9e22, e=120e6
a14=1e23, a19=39a14
qq 385
qq
a25: hvr a1 NZ ;gal information
arn (ra2) ,ga e8 ;absolut adresse i e8
hhra LA ;register udskrift
tk 10 ,ar a4
nc 1 ,sr e8
gar a5 ,arn (ra2) ;antal ord i a5
ck -10 ,srr a6
ca ,arr a9 ;ferritlaberbildede
[10] gar a3 ,tl -30
dlnr a8 ,tl 30
arr a3 ,gar a10 ;begyndelseskanal i a10
tk 10
gar a11 ,vk (ra10)
[TRYK ET INTERVAL]
b d6
_
d6: hv rd5 ,it -1
d1: bt ,hvr d ;tæl ord paa linie
d5: sy 64 ,pm e8
a12: it 2[ord/linie] ,pa d1
a13: bs ,hvr d2 ;hop hvis ikke adressetrykning
[20] arn e9 ,hs e7 ;tryk [
qqr a7 ,hs e1 ;tryk adresse
arn e10 ,hs e7 ;tryk ]
d: d2 h: sy ,it (ra11)
bs a19 ,hvr d4 ;hop hvis ikke ny kanal
qq (ra11) t-40
lk a14 ,it 1
a10: d4 h: vk [kanal] ,it 1
a11: arn [adresse] ,hs p ;tryk et ord
qq (e8) t1 ;tæl i absolut adresse
a5: [30] can [antal ord] t-1 ;tæl ord i interval
hvr a16 ;hop næste information
can p a18 ,hvr d5 ;program trykning
a23: qq 29 ,hhr d6
e
_
[REGISTERTRYKNING]
b d28
_
a: qq , sy64
ck 30 ,tl -3
pm e9 ,ps ra26
ca 40[cl] ,hv r d1 ;celle d.v.s. (r)
ca 4[ar] ,hvr d5 ;alle registre
bs (ra13) ,hv rd6
[ s t o p ]
;40,40 34
hs e7 X ;tryk [
sy ,sy
d6: ca 44[ga] ,psn -0 ;adresse d.v.s. r
ca 42[gr] ,hv rd7 ;R
ca 52[gm] ,hvr d8 ;M
ca 122[gs] ,psn47 ;s
ca 84[gp] ,psn 49 ;p
ca 108[gk] ,psn42 ;tk
ca 58[gi] ,hvr d9 ;in
ca 116[sy] ,hvrd10 ;by
[50] hv ra1 NZ
d11: qq 41[r] ,pmn se23
bs (ra13) ,hv rd12 ;tryk r,s,p eller tk
sy 58 ,nc s-42
sy V
sy 19[t]
it rd11 ,pa r1
sy (s) ,sy 60
sy 7 ,sy
d12: ca s-41 ,tl 10
[60] xr a7 ,hs e1
hv ra16
d8: bs (ra3) ,hv rd18 ;tryk M
sy ,sy 36[M]
sy 7 ,sy
d18: arn 2e22 ,it -13
pi 4 ,hv p
d9: bs (ra13) ,hv rd15
sy 58 ,sy 57[i]
sy 37[n] ,sy 60
[70] sy 7 ,sy
d15: arn 1e22 ,pp
hs r d
sy 60 ,sy 4
sy 58 ,arn 1e22
d17: pp p1 ,ga r1
pi ,tk 2
sy 59[.] NOC V
sy 49[a] NOB V
sy 51[c] LOC V
sy 50[b] LOB
[ s t o p ]
;41,80 35
bs p-4 ,hv rd27
d1 h: hv rd17 ,gs rd24 ;tryk celle
bs (ra13) ,hv r d23
arn e9 ,hs e7
arn e23 ,hs r d
arn e10 ,hs e7
d24: ps [s] ,sy
d23: arn e23 ,ga e8
tl -40 ,dln r a8
[90] tl 30 ,ar r a9
ga r1 ,ar r1
vk [kanal] ,lk a14
[42d11] qq 34[k] ,gt r1
vk ,arn [celle]
hv p
d10: bs (ra13) ,hv r d13 ;tryk by
sy 58 ,sy 50[b]
[47d11] qq 18[s] ,sy 24[y]
sy 60 ,sy 7
[49d11] qq 39[p] ,sy
d13:[100] arn e22 ,pp -1
hs r d
sy 60 ,sy 4
sy 58 ,arn e22
d14: tk 1 ,pp p1
sy p LT
bs p-8 ,hr s1
sy 59 LT
hv rd14
d7: bs (ra13) ,hv rd21 ;tryk R eller RF
[110] sy NPB
sy 41[R]
sy 54[F] LPB
sy 7 ,sy
d21: arn 6e22 ,pm 3e22
tl 39 ,it p
bs re18 ,hv rd19
pm 526[|] XVD LO
sy ,hv rd20
hs e7
[ s t o p ]
;42,120 36
d20 h: d19 h: sy 2[⨯] ,pm 2e22
pi 8 LPB t-9
d5 h: hv p ,gi rd26 ;tryk alle registre
arn e23 ,hs rd
sy ,gp rd25
pp e6 ,pi -256
hs rd23
d25: pp ,sy 64
d26: pi ,hs d21
[130] pi (rd26)
it re20 ,bs p
sy 64 V NPB
sy NPB
hs r d18 NPB
sy 64 ,arn 5e22
hs r d
sy ,arn 7e22
hs rd
sy ,arn e22
[140] tk 10 ,hs rd
sy ,hs rd15
sy ,hs rd13
d27h: hv ra16 ,sy
sy 59 NKCV
sy 49 NKBV
sy 51 LKCV
sy 50 LKB
sy ,arn 3e22
hr s1 NB
[150] sy 60 ,sy 38[o]
sy 58 ,hr s1
d: hs e1
qq ra7 ,hr s1
e
_
a22:b17: vk 294e88 ,lk e23-9
vk 319e88 ,lk e22-25
hv r 162b11
qq ;3 tomme celle
qq
qq
[ s t o p ]
;43,160 37
i=160b11
qq 220
qq
vk c8 ,lk e
vk 1c8 ,lk a27
vk 2c8 ,lk a28
vk c7 ,lk e6
vk 1c7 ,lk 40 e6
vk 2c7 ,lk 80 e6
vk ,pp e6
arn 1b4 ,ar r1
a26:[170] gt r2 ,qq b4-1
a16: vy 16 ,pa e11
pi 512 ,it -1
bs (ra2) ,hv r a24 ;UDHOP
a2: arn 1b4 IPB t1 ;hent information
ck 28 IOB ;indicer præsision aller abs. a
dr.
ck -8 ,tl -3
ca 78[bt] ,hv r e12 ;basis trimning
ca 82[nt] ,hv r e13 ;numerisk trimning
ca ,qqn
[180] ca 84[gp] ,ppn e6 ;program
ca 58[gi] ,ppn re14 ;heltal
ca 59[gin] ,ppn re15 ; - trimmet
ca 52[gm] ,ppn re16 ;maskintal
ca 53[gmn] ,ppn re17 ; - -
ca 42[gr] ,ppn re18 ;flydende tal
ca 43[grn] ,ppn r e19 ; - - trimmet
ca 44[ga] ,ppn r e20 ;grupper
bs r-i+1 ,hv a25
a24h: hv re30 ,sy 58
[190] sy 64 ,hv b7
[TRIMNING]
e13: tl 23 ,ga r a17 ;2-potens i a17
gt r a20 ,ud r a2 ;10-potens i a20
gr e5 ,hv r a16 ;layout i e5
e12: tl 13 ,bs r-i-512
ga ra29 ,hv r5
pa ra13
pa ra13 LT t1 ;sæt boolean adressetrykning
nc
sr e25 ,ga ra12 ;antal ord/linie - 1 i a12
[ s t o p ]
;44,200 38
[5] tk 10 ,gt ra6 ;basis i a6
nc ,ga ra16 ;outputmedium i a16
hv ra16
a6: qq
[FEJL REAKTION]
t
_
gal information ;
a1: arn r a23 ,hs e7
vk 16e64 ,lk a14
vk r1a6 ,hs 27a14
[210] arn (ra2) ,hs e6
sy 62 ,grn b7
pa b9 t17
hv ra16
[TRYK R00-41 SOM TAL]
b d22
_
e14: gs r d6 IRC ;tryk heltal
d11: qq 512 V NT
mt r-1 ,it 32
pa rd4 ,tl -39
ar rd LT ;koriger for -2
dl rd1 ,tk 30
[220] ca 10 ,hv rd2
sy ,ga rd5
ca ,hv rd8
arn rd4 ,hs e7
d5: sy [pos 10 11] ,hv r3
d2: arn rd4 ,hs e7
sy 1 ,sy 16
pa e27 te28
d8h: hv rd7 ,sy
d4: bs [fortegn] X
[230] mt rd11 V
d7h: sy ,it3
qq (e) t2
qq r d9 ,hs e2
pa e27 te29
d6: ps [s] ,hv rd10
e16: bs (e1) IRC t4 ;tryk maskintal
sy (e1) t510
hv rd13 NOB
sy V NT
[ s t o p ]
;45,240 39
mt rd11 ,sy 32
tl -39 ,tk 20
ar e16 LT
sy 16 V LZ
gt r ,sy
qq (e) t2
hs e3 X
d13h: qq rd12 ,nkf
hs e4 NOB
qq rd14 ,hv rd10
e18:[250] gr rd15 IRC ;tryk flydende tal
arnf rd15 NQA
hv r d16 NOB
hs e4
qq r d17 ,hv rd10
d16: hs e4
qq rd18 ,hv rd10
e19: gr rd15 IRC ;tryk flydende tal trimmet
arnf rd15 NQA
hv ra20
e15:[260] pm 28 DV IRC ;tryk heltal trimmet
e17: pm -11 D IRC ;tryk maskintal trimmet
a20: pa e11 X [10-potens]
a17: ar [2-potens] DX
hs e4
qq e5
d10: hr s1 LQB
sy 27[,] NRC V
sy 49[a] NRB V
sy 51[c] LRC V
[270] sy 50[b] LRB
qq (e) t1
pa e11 ,hr s1
e20: gs rd19 IRC ;tryk grupper
qq (e) t3
d22: pa rd20 ,gr rd15
qq rd21 ,hs e
arn rd15 ,tk 10
d20: bt t-129
d19: ps ,hv rd10
[ s t o p ]
;46,280 40
sy 60 ,sy 3
sy 58 ,hh rd22
m
_
d: 4
d1: 100000000000
d9: qq 11.3+11.7+0.9+0.13+1.14+0.17+0.19+2.23+3.27+3.31+3.35+0.39
d12: qq 12.3+0.7+0.9+12.13+0.14+0.17+0.19+0.23+3.27+3.31+3.35+3.39
d14: qq 7.3+1.7+1.9+6.13+1.14+1.23+3.27+3.31+0.35+0.39
d17: qq 10.3+3.7+1.9+9.13+0.14+3.17+1.19+3.23+3.27+3.31+3.35+0.39
d18: qq 5.3+3.7+1.9+4.13+0.14+2.17+1.19+3.23+4.27+0.31+0.25+0.39
d21: qq 4.3+4.7+0.9+0.13+1.14+0.17+0.19+4.23+0.27+0.31+0.35+0.39
a7:[290] qq 3.3+3.7+1.9+0.13+1.14+0.17+0.19+3.23+0.27+0.31+0.35+0.39
a8: qq 20
a9: qq 294e88
a3: qq ta19
d15: 0
e5:
i=i+9
e23:
e
_
[ s t o p ]
[ORDRETRYKPROGRAM] ;30,354 41
b k=e24, i=e6, a34
_
r
_
e6: gp a22 ,bs (a31)
sy (a31) t510 ;tryk lower case
gr a MOC ;gem ordre,marker vhao og evt.
abs-tryk
a8: gs a7 IRC ;gem s indicer hao og f
pp (a30) t6 ;a30:=p:=a30+6
pp p6 LOB ;hvis abs-tryk p:=p+6
[360] it p5 ,pa a33 ;a33:=ant. ans i hao
a28: qq m27 ,pp a3
tk m20 ,ck m2
ga a1 ,ck m-18
a2:[10e6] gt a2 ,pm p
a1: pin X t-253
a21: tk m20 LTA
tk m10 LTB
cl m5 ,tk m-15
a4: gt r ,ps [bogstav nr.]
[370] bs s-18 ,ps s-49
bs s-9 ,ps s-25
sy s48 ,cln m-20 ;tryk operationsdel
hv a4 NZ
[20e6] sy m54 LRB ;tryk f
sy m37 LPA V ;tryk n
a18: sy ,qq
sy NRB
sy NPB V
arn a20 ,hs a32 ;tryk (
[380] pm a ,arn a21
hv a5 X NQC
ar m-2 D LQB
ar m21 D LQA
a20:[30e6] qq m520 ,hs a32 ;tryk r,s eller p
qq (a30) t1
a5: qq a19 ,hs a31 ;tryk adressedel
sy NPB V
arn a23 ,hs a32 ;tryk )
hv a6 LQB
[390] arn a IQB
e8: ar [løbende adr]DXV LQC
e31: a33: qq ,hv a6
arn a24 ,hs a32 ;tryk [
[ s t o p ]
;31,394 42
qq a19 ,hs a31 ;tryk abso
arn a25 ,hs a32 ;tryk ]
qq (a30) IPB t2
a6: pm a17 ,arn a
hv a26 NA
cm a18 NRA
[400] hs a12 ,pm a28
tk m10 ,ps a8
gr a X MOB ;gem hhao, marker hhao
hv a27 X NRA ;hop hvis heo
e7:a32:[50e6] ga r3 ,bs (a31) ;tryk symbol m. case
mt a23 ,it m510
a29: sy (a31) LT t-510
[3] sy X
a27h: hr s1 ,tk m21
pp (a30) M t7
[410] gp a33 ,hs a9
qq m23 ,hs a9
qq m21 ,ps a10
a9: ud a29 NPB
a34:[60e6] pp (a30) V NT t-1
sy (s1) IPB
a10: tk m1 ,hh s1
qq m52 ,pp p-4
hv a11 LZ
hs a12 ,tl m-39
[420] sy (a31) NPB t-510
tk m30 ,ga a13
tln m3 ,ud a34
a17: 0/-1/0/-1
[70e6] tk m20 ,gt a13
tl m32 ,ga a14
ps a15 ,is a16
a13: ud s ,ud s
a14: a11h: ud s ,arn a
a23: qqf m521 ,gp a30
[430] ca ,hv a7
[2] pm m19 XD
hs a12 ,hs a32
qq a19 ,hs a31
a26: qq (a30) t1
a7: ps [s]
[ s t o p ]
;32,434 43
a22: pp [p] ,hr s1
a24: e9: qq m518 ,it m1
a12: e32: it (a30) ,bs (a33)
sy ,hh r-2
a25: e10:[440] qqf m519 ,hh s
n
_
a15: pp p-1 ,pp p-1
sy 50 ,sy 34
[90e6] sy 49 ,sy 25
sy 51 ,sy 38
sy 37 ,sy 19
sy 35 ,sy 39
a16: sy 57 ,sy 40
sy 36 ,sy 41
a19: e21: qq 3.3+3.23
a3:[450] qq 17.4+17.9+17.14+26.19+18.24+ 1.29+18.34+19.39 ;operations-
qq 14.4+ 1.9+14.14+19.19+ 3.24+ 1.29+ 3.34+19.39 ;ordbog
qq 2.4+13.9+ 2.14+ 1.19+20.24+13.29+11.34+13.39
qq 12.4+13.9+11.14+ 4.19+12.24+ 4.29+11.34+14.39
[100e6] qq 12.4+14.9+18.14+ 8.19+12.24+20.29+11.34+ 3.39
qq 12.4+ 3.9+18.14+ 7.19+ 1.24+ 7.29+20.34+ 7.39
qq 11.4+20.9+ 1.14+ 3.19+13.24+ 7.29+13.34+16.39
qq 18.4+24.9+ 9.14+ 7.19+19.24+16.29+16.34+16.39
qq 1.4+16.9+20.14+16.19+11.24+ 8.29+ 9.34+16.39
qq 19.4+ 9.9+20.14+ 9.19+13.24+ 3.29+20.34+ 2.39
[460] qq 19.4+14.9+20.14+14.19+16.24+ 7.29+ 3.34+14.39
qq 12.4+ 9.9+19.14+21.19+ 7.24+26.29+ 3.34+ 7.39
qq 3.4+16.9+19.14+ 2.19+19.24+ 8.29+25.34+22.39
qq 11.4+12.9+11.14+19.19+11.24+ 7.29+11.34+22.39
[110e6] qq 22.4+ 8.9+10.14+26.19+25.24+19.29+25.34+12.39
qq 8.4+ 8.9+19.14+ 7.19+12.24+26.29+ 4.34+21.39
a: qq
i=e
a30:
a31=1i
e
_
a27=40e, a28=80e
[ s t o p ]
[TALTRYKPROGRAM] ;33,474 44
b k=e26, i=e, a49
_
r
_
e:a42: qq [anslag] ,ck ;tryk adressedel 0_x<1024
<
e1: qq m570[case] ,tl m-30 ;tryk adressedel -512_x_511
< <
e2: pm m28 DV ;tryk heltal
e3: pm m-11 D ;tryk maskintal
e4: pa a11 X t485 ;tryk flydende tal, taldel:=tru
___
e
_
gs a12 ,gp a13 ;a12:=s, a13:=p
[480] ga a14 ,gm a23
pm (s) ,arn s
pm (s1) NA
a14: psn [exp 2] X
[10e] ps s11 ,cl m-20
tk m14 ,ga a17 ;a17:=b
tk m10 ,pa a16 ;a16:=exp10=0
a40:e11: it [10-potens] ,pa a4
pp m256 ,ck m-6
[490] ga a18 ,tk m10 ;a18:=h
ck m-8 ,ga a19 ;a19:=f1
tk m10 ,ck m-6
ga a20 ,tk m11 ;a20:=d
tk m-20 ,gt a21 ;a21h:=-n
[20e]
tk m20 ,ck m-1
[20e] ga a22 ,tk m-6
ca m1 ,pp m10
ca m2 ,pp m100
tln m34 ,ar a43
gr a8 ,snn a23
pa a4 V LZ t-15
a49: nk a46 XV
[490] gr a26 ,hv a31
bs s-11 ,hv a47
a34:[30e] hv a48 ,sr a26 ;R:=afrundet x
a17: pa [b] XVD NO t11 ;hvis ikke overløb a17:=11
mt a7 ,hv a49 ;forfra for trykning af 0.1
bs (a4) ,ntn (a4) ;if H>0 then begin R:=0
__ ____ _____
a21: qq (a18) [-n] ;h:=h-H end else h:=h-n
___ ____
a19: pp [f1] ,gt a13 ;p:=f1, a13 td:=R
bs p509 ,hv a36 ;if p|3 then hop a36
__ = ____
a11: arn m485 D t-485 ;expdel:=-,taldel, taldel:=fals
____
e
_
[500] hs a5 LT ;if expdel then tryk 10
__ ____
bs (a24) ,arn a23 ;if b1>0∧x<0 then
__ ____
[ s t o p ]
;34,502 45
arn m-480 DV NT ;R:=-
arn m32 DV ;else R:=+
____
bs p510 ,ck m10 ;if R<0∧p<2 then R=lille
hs a37 ,pp m3 ;tryk fortegn
a36: a18: bt [h] t-1 ;tæl h
e27: hsn a2 ,hv a36 ;tryk ml før første betydende c
iffer
bs p509 ,hv a11 ;hop hvis fortegn ny
a13: pp [p] ,ncn [hvis 0] ;retabler p
[510] hsn a1 ,qq[tom] ;tryk evt. heltalsnul
[-1] bt (a4) t-1 ;tæl H
[50e] hsn a ,hv r-1 ;tryk heltalscifre
arn a38 ,bs (a20) ;if d>0 then
__ ___
hs a5 ,it m-1 ;tryk punkt
a20: bt [d] ,hh a39 ;tæl d, tryk decimaler
a12: ps [s] ,xrn ;retabler s, M:=0
bs (a24) ,pm a16 ;if b2>0 then M:=exp10
__
can (a22) ,hr s1 ;UDHOP
gm a23 ,srn a9 ;1 gruppe i exp
[520] pm (a22) DX
ps m9 ,hh a40 ;hop til exp trykning
a37:[60e] ca p ,hh s ;if p=0∧Radr=0 then hop
__ ____
gr a26 ,arn a9 ;fortegn skal ikki med i gruppe
tælling
ac a8 ,arn a26
a5: bs (a) ,hv a1 ;if b1>0 then tryk ciffer
__ ____
mb a44 ,ga a6
a39: hvn a10 ,arn a3 ;else if ciffer|0 then tryk cif
____ __ = ____
fer
a4: it [H] t1 ;tæl H else tryk
____
0
bs ,hvn a5 ;if H<0 then tryk 0
__ ____
a:[530] bt [b1] t-1 ;tæl b1
mln a3 ,tk m30 ;næste ciffer i R
a1:[70e] ar m16 D LZ ;erstat 0 med 16
a2: ga a6 ,bs (e1) ;if aktuelle case=upper then
__ ____
mt a7 ,it m510 ;R:=-R
sy (e1) LT t-510 ;tryk case
a10: qq (a42) 1
arn a8 ,sr a9
gr a8 ,nc m-273
a6: sy ,hhn s
[540] tk m4 ,it m58
bs (a6) ,hv 2a10
[ s t o p ]
;35,542 46
a44: sy m-256 ,ud a10
a41: hh 1a10 ,it m1
a28: qq (a4) t-1 ;tæl i a4
a25: ps s-3 ,nk r1
ps s ,gr a26
pm a26 ,bs (a46)
a47: mkn a27 ,hh a41 ;⨯ 4
a46: tk s ,gr a26
a48:[550] ps s7 ,ar a29
pm m-1 DV LT ;M:=-1
[90e] mkn a30 ,hv a28 ;⨯10/16
ps (a4) ,can (a22) ;s:=H, if bE=0∧f2=0then begin
__ ____ _____
bs s-15 ,it m64 ;if s>15 then bE=1 end
__ ____ ___
a22: ca [bE,f2] ,hv a31 ;if bE=0∧f2=0 then go_to a31
__ ____ __ __
arn a17 ,sr a20 ;b-d
ga a32 ,sr a18 ;a32:=b-d,Radr:=b-d-h-1
a7: mb m-1 LT DX ;M:=if b-d-h-1<0 then b-d-h-1 e
__ ____ _
lse -1
___
a38: xr m315 ,it (a4) ;R:=M
a32:[560] bs [b-d] ,hs a33 ;if b-d>H then a33
__ ____
mt a7 ,it (a18) ;R:=-R
[100e] bs (a4) ,hs a33 ;if H>b then a33
__ ____
a31: arn a20 ,ga a ;b1:=d
a45: ar a4 ,ga a24 ;b2:=H+d
a24: bs [b2] ,ga a ;if b2>0 then b1:=b2
__ ____
it (a17) ,bs (a24) ;if b<H-d then
__
arn a17 ,hh a45 ;b2:=b; go to a24
arn m256 DNT ;if b2_0 then R:=.5
__ > ____
a35: ps (a24) ,pm a21 ;s:=b2
[570] bs s511 ,hh a34 ;if s_0 then go_to a34
__ < ____ __ __
a16: xr p[exp10] ,mln a29 ;R:=R⨯.1
[110e] ps s-1 ,hh a35 ;s:=s-1, go_tt a35
__ __
a33: ac a16 ,bs (a16) ;tæl i exp10, if exp10_exp10min
__ >
then
____
sc a4 ,hh s-1 ;tæl i H, go_to s-1
__ __
sc a16 ,hv a31 ;tæl tilbage i exp10, goto a31
____
m
_
a3: 10
a9: e25: qq m1
a27: can s409 ,cm (r-410) ;0.8
a29: vy p51 ,mln (m204) ;0.1
a30:[580] qq m320 ;10/16
a43: qq -17.5+1.25-1.39
a8:
e28=a1-e27, e29=a2-e27, a26=1i, a23=2i
e
_
a4=e25, a18=-e6
n
_
[ s t o p ]
[SAM] ;46,296 47
b i=1e5, d21
_
e30: ca 106 ,hv rd ;saminformation
hv rd1 LZ ;omraadeinformation
dh: hv rd18 ,arn (ra2) ;fejludskrift
ca ,ar ra9
[300] ga rd2 ,ck 10 ;ferritafsnit
ca ,ar rd3 ;
ga rd4 ,ga rd5 ;tromleafsnit
d1 h: hv ra16 ,it (rd2) ;hent omraadeinformation
pa rd6 ,it (rd4) ;evt. retablering af afsnit
pa rd7 ,arn (ra2)
ga e8 ;absolut adr.
tk 10 ,ar s4
nc 1 ,sr e8
ga rd8 ,arn (ra2) ;antal ord i d8
[310] ck -10 ,sr ra6 ;korriger for basisadr.
tl -30 ,dln ra8
tk 30 ,ac rd6 ;beg. kanal ferrit
sr a4 ,ac rd7 ;beg. kanal tromle -1
tl 40 ,ar rd9
d15: ga rd10 ,it (rd10) ;beg. celle +79
bs d11 ,hv rd10 ;hop, hvis ikke ny kanal
vk (rd6) ,it 319e88
bs (rd6) ,hv rd18 ;fejludskrift, hvis ferritkanal
>319
lk d12 ,it 1
[ s t o p ]
;47,320 48
d7: vk ,it 319e88
bs (rd7) ,hv rd18 ;fejludskrift, hvis tromlekanal
>319
lk d13 ,it 1
d6: vk ,it -79
d10: arn t -39 ;sammenligning
sr (rd10) t 40
hv rd14 NZ ;forskel
d17: qq (e8) t 1 ;tæl i abs. adr.
d8: can t-1 ;tæl i antal ord
d2: qq 294e88 ,hv ra16 ;hent ny information
d14h:[330] hh rd15 ,sy 64 ;fortsæt sammenligning
can (rd5) ,hv rd16 ;hoved trykt
gan rd5 ,arn rd2
pa e t-7
qq rd21 ,hs e1 ;ferritafsnit trykkes
hs rd20 ,arn rd4
qq ra7 ,hs e1 ;tromleafsnit trykkes
d16h: sy 64 ,pm e8
arn e9 ,hs e7 ;[
qq ra7 ,hs e1 ;ferritadr. trykkes
[340] arn e10 ,hs e7 ;]
pa e
d5: sy -1 [0] ,is (rd10)
arn s-40 ,hs p ;tryk ferritord
hs rd20 ,
arn (rd10) ,hs p ;tryk tromleord
d4:b22: qq 268e88 ,hv rd17 ;fortsæt sammenlign.
d3:b23: qq 268e88
d9: qq d11
d20: a29: ncn ,hh r3
[350] arn ra16 ,tk 4
sy 30 V NT
it 37 ,it (rd20)
pa e31 ,hv e32
d21: qq 10.3+10.7+1.9+1.14+10.23
d12=200, d11=79d12, d13=40d12, d18=a1
e
_
e
_
s
_
v
_
[ s t o p ]
[kompud] ;48,0 49
b k=48d8, i=b11, a24, c19, d12
_
a2=280b11, a18=a2-1, c15=161b11
qq165
qq
a24: vk 33e64 ,lk 160b11
vk 34e64 ,lk 200b11
vk 35e64 ,lk 240b11
vk ,arn 1b4
tk 10 ,sr a13
ca -1 ,hv b7 ;ingen informationer
ga d ,ps (d)
grn s3b4 ,arn s2b4
[10] ck -10 ,ca
qq (d) LC t-1 ;sidste information ren afslutn
ing
c12: vy 32 ,pi -120 ;næste information
a23: pmn 1b4 X IPC t1
d: bt t-1
pi t-9 ;ikke sidste information
hv d1 LPC ;sær information
pa a12 t294e88
d5: hs c17 ,ga a1 ;normer bk,bc
gr a6 ,ck 10
[20] ga a ,ck 10
hs c17 ,gr a24 ;normer sk,sc
sr a6 ,pm a24
hh d9 LT
bs (d6) ,hh d7 ;hop første gang til indledning
d8: hv d2 LPA ;hop hvis tomme skal overspring
es
arn a ,ar a13
hs c16 IQB ;beregn længde af gab
hs c7 NZ ;hul etikette for gab
d2: arn a24 ,ar d10
[30] gt a11 ,tk -10
gt a10 ,ps a18
hh d3 NPB ;hop til test og hulning af
tk 10 ,ar a13 ; interval
ga a1 ,tk 10
ga a ,grn a6
d9: hv c3 ,vy 17 ;sæt interval tomt
sy 29 ,sy 64
qq d11 ,hs e84
hh 1b7
[ s t o p ]
;49,40 50
d11: tgal information;
_
c17: ca ,ar a12 ;normer tromleadresse
ga a12 ,cl -30
dln 20 D
cl 30 ,ar a12
d3: hh s ,vk (a1) ;test of hulning af interval
lk a2 ,ud a1
c5:a10:c10: ns (a1) ,ns s
bsn s510 IZB t510 ;S:=true
____
a11: it (a) ,bs s
pi t-257 ;S:=false, interval ikke slut
_____
pm a7 ,it (a)
[50] bs s40 ,hv c6
pa a ,lk a2
a1: vk t1
c6: arn a3 ,it 1
a: cm s ,hv c ;hop ikke tom
hv c LA ;hop ikke tom
hv c1 LB ;hop tom
c:[ikke tom] hv c2 NOA ;hop ikke T
c3: pmn a X ITA ;pak halvetikette
ga a8 LOA
[60] hs c16
hh c4 NOA ;hop T til trykning
gm a6 MQB
gr (a6) VD IOA ;T:=false
_____
c1:[tom] hv c3 NOA ;hop ikke T
c2: hv c5 NOB ;hop ikke S
c4: hv c3 ,cl -20
ac a6 V NOB ;interval ikke færdig
ac a6 MQC
is (a1) ,it s511
pt a16 ,pmn a6
hs c7 X ;hul etikette
vk (a9) t-1
lk a2 ,ud a9
c9: it -1 ,it (a8)
bs s40 ,hv c8
pa a8 ,lk a2
a9: vk t1
a8: c8: pmn s IZA t1
is (a9)
a16: bs s512
[ s t o p ]
;50,80 51
it (a8) ,bs (a)
hs c7 X ;hul et ord
hh c9 NZ
hv c10 NOB ;interval ikke færdig
hh c12 NQA ;ikke sidste information
it (a17) ,pa -1 ;sum og antal
arn -1 ,cl 10
ga 1i ,cl -7
sy ,ga r1
sy ,cl -7
[90] ga 1i ,ud a23
sy ,cl -10
ab a20 ,ck 20 ;hul afslutning
gt i ,pi
gr a20 ,ck -10
hv c13 NQB
sy 14 ,sy 20 ;u
_
qq c19 ,hs c15
sy 64
c13: sy 14 LRA ;s
_
[100] sy 18 LRA
hh c14 NRB
sy 14 ,sy 53 ;e
_
arn a20
qq c19 ,hs c15
c14: sy 64 ,sy
d7: hv b7 ,sy 14 ;hul indledning
d12: can 1 ,vy
sy 17 ,sy
is (a1) ,it s1
[110] pa a5 ,arn a1
cl -10 ,hs c7 ;hul start etikette
d6: bt 48 t-1
sy ,hv d6 ;hul ml
sy 14
vy 32 ,sy 17
sy 4 ,is 1
it (a) ,pa a4
pt -1 ,hv d8
d1: ck -10 ,ab a20 ;sær information
[ s t o p ]
;51,120 52
gr a20 IPC
ca 1 ,pmn a21 ;hele feritlageret
ca 2 ,pmn a22 ;hele lageret
ca 3 ,pa d12 ;ingen indledning
ca 4 ,grn c-1 ;ingen hsf 2 behandling
hv c12 NB
hv d5 X
c7: cl 32 ,pp 6 ;tryk et ord
ar 1 D LB
ar 2 D LA
c11: pp p-1 ,ga a19
a19: [130] sy ,bs p
cl -7 ,hv c11
a17: qqn -6 X t6
arn a19 ,hr s1
c16: sr a4 ,ac a4 ;beregn længde
qq (a5) LT t1
ar 40 D LT
cl 10 ,arn a1
ar 1 DV LTA
ga a9 LOA
[140] sr a5 ,ac a5
cl -10 ,hr s1
m
_
a3: hs2
a4: cm s ,hv c
a5: vk t1
a6: qq
a7: -1
a12: qq
a13: qqf 1
a20: qq
a21: qq 294e88.9+319e88.29+33.39 f,
a22: qq319e88.29+33.39+b19 f,
d10: qq t1
c19: qq 3.3+1.9+3.23
e
_
[ s t o p ]
[ret] ;52,0 53
bk=52d8, i=b11,a10
_
a5: qq
qq
vk 319e88 ,lk a1 ;register til a1 ff.
arn 1b4 ,tk 10
nc 2 ,hv a ;galt antal informationer
arn 2b4 ,ck 16
ca 21[gr] ,hv a2 ;ret i R eller RF
ca 26[gm] ,hv a3 ;ret i M
ca 61[gs] ,ppn 30 ;ret i s
ca 42[gp] ,ppn 32 ;ret i p
[10] ca 54[gk] ,ppn 6 ;ret i tk
ca 29[gi] ,ppn 26 ;ret i in
ca 58[sy] ,ppn 25 ;ret i by
hv a NZ ;god information
arn 3b4 ,ck -10
ca ,tk 10
vk 319e88 ,ga pa1 ;veti s,p,in eller by
nc p-6 ,hv a10
vk 294e88 ,lk a1 ;ret i tk
tk -10 ,vk 294e88
[20] gt pa1 V
a3: arn 3b4 ,vk 319e88
a10h: gr a9 ,sk a1
a2h: hv b7 ,vk 319e88
arn (2b4) D IPB
tk 9 ITB
tk 1 ,ar 3b4
gr a8 MTB
ga a5 ,tl -39
gr a7 IRC
[30] pm a9 V NPB
pm a5 ,pa a8
gm a9 MRC
ah: hh a10 ,vy 17
qq a4 ,hs e84
hh 1b7
a4: t
_
gal information;
a1:a9=27a1, a7=31a1, a8=28a1
e
_
[ s t o p ]
[hent og gem] ;53,0 54
bk=53d8,i=0,a14
_
qq
qq
[gem] pt a t a4
b24: pa a1 t 268e88
[hent] arn 1b4 ,tk 10
ca ,hhn a2 ;ingen inf.
a11h: ga a3 ,it 1 ;antal inf. til a3
a:a2: arn 1b4 ,hv 1i ;hent inf., hop hvis gem
ca ,ar a5 ;fra kanal 268
ga a7 ,ck -10
[10] ca ,ar a8 ;26 kanaler
ga a9 ,ck 20
a4: ca ,ar a1 ;til kanal 294 eller 268
ga a10 ,ps ;s=0
pp (a9) ,is 511 ;antal kanaler i p
ns (a7) ,it (a10)
bs p511 ,hv a12 ;forbudt overlapning
is p-833e88 ,it (a7)
bs p-794e88 ,hv a12 ;gem udenfor tromle
is p-833e88 ,it (a10)
bs p-794e88 ,hv a12 ;hent udenfor tromle
a7:[20] vk s294e88 ,lk a13 ;flytning
a10: vk s ,sk a13
ps s1 ,it s
a9: bs 26 ,hv a7
it t1
a3: bs ,hh a11
a12h: hv b7 ,sy 29 ;udhop, fejludskrivning
qq a6 ,hs e84
sy 62 ,hh 1b7
a1: qq 294e88 ;konstanter
a5:b25: qq 268e88
a8: [30] qq 26
a6: t
_
gal information;
a13:
e
_
[ s t o p ]
;55,0 55
bk=54d8,i=0,a28
_
qq 110
qq
[hp ind] vk c4 ,lk a ;læs hpp register
ps 1b4 ,hr 1i
vk ,arn a4
ca -1 ,hv a9 ;hpp register fuldt
arn (a1) ,ck 10
hv a5 LA
nc ,ga a13 ;gem kanal
ck 20 ,ga a6 ;gem basis
[10] tk 10 ,ps s-1
ca ,hv a2 ;pladsering ikke angivet
ga a11 ,tl -20 ;gem k
dln a17 ,tk 30 ;normer k,r
ac a11 ,tl 40 ;koriger k
a2h: ga a10 ,ud a1 ;gem r, hent inf.
a5h: ck 10 ,vk (a11)
lk a14 ,it s-1 ;sæt informationstal
pt (a1) ,ga a16 ;gem adr, subtraher basis
sr a6 ,tl -40 ;normer kanal, adr.
[20] dln a17 ,tk 30
ac a13 ,tl 40 ;koriger kanal
a13: vk 294e88 ,lk a12
ga a18 ,pm (a4) ;gem rel.adr.
arn a10 ,tk -20
ar a11 ,ck -10 ;nc<adr>, <r>29+<k>
ar a16
gr (a4) MA
gm (a4) MC t 1 ;sæt slutord
srn a22 ,ac a16
[30] pm a8 ,vk (a13)
a18: arn IPC t a12
cm a19 ,hh 1i
ar a16 ,ck 10
cm a19 LPA
hh 1i
ar a16 ,ck -10
pm a7 ,pp a14
gr (a10) MPC
hv a28
[ s t o p ]
;55,0 56
bk=55d8,i=0,d26
_
qq 55
qq
[hp ud] vk c4 ,lk d ;læs hpp kanal
arn 2b4 ,ga d15
ga d3 ,sr d2
ga d4 ,tk 10
d1: nc ,ga d5
tk 20 ,sr d3
mt d6 ,tl -40
dln d7 ,tk 30
[10] ac d5 ,tl 40
d5: vk 294e88 ,lk d8
pp 1 ,ga d3
arn d15 ,tl -40
dln d7 ,tk 30
ac d21 ,tl 40
d21: vk 294e88 ,lk d22
ga d23 ,ps (5b14)
d11: arn d9 IPC t 1
d15: ca p [adr] ,hv d10
d14:[20] gr d9 MPC t 1
d16: hv d11 NPB
vk c4 ,sk d
ns (d14) ,nt sd13
pa d12 ,gs 5b14
d10h: hv b7 ,it (d14)
bs sd24 ,ps s-1
pm d25 ,hv 1i
d6: pt r-1 t d16
tk 10 ,ga 1i
[30] vk ,lk d17
tk 20 ,ga d18
arn (d3) td8
cm d26 LB
grn d3
arn (d23) t d22
cm d26 LB
grn d23
vk (d5) ,pm d19
d18: arn IPC t d17
cm d20 ,hh 1i
sr d4 ,ck 10
cm d20 LPA
hh 1i
sr d4 ,ck -10
d3: gr [adr] MPB
[ s t o p ]
;56,40 57
d23: gr MPB
sk d8 ,vk (d21)
sk d22 ,hv d11
d2:a22=40i, qq 7
d7:a17=40i, qq 20
d19:a8=40i, qq p
d20:a19=40i, qq r
d4:a6=40i, qq [adr-7]
d26:a7=40i, hs 1
d25: -1/0//-1
d:a28=40i,d9=d-1,d12=33d,d13=33d,d8=40d,d17=80d,d22=120d ,d24=d9-b11
e
_
i=a28, gm (a18) MB
sk a12 ,it
a15:a1:[90] arn 2b4 IPC t 1
ps s-1 ,it (a10)
bs a20 ,hv a3
vk (a11) ,sk a14
vk (a11) t 1
lk a14 ,vk (a11)
pa a10 t -1
a3: bs s512 ,hh 2i
gr (a10) MPC t1
hv a15 ,vk (a11)
[100] sk a14 ,vk c4
qq (a10) t1
sk a ,hv b7
a9: qq a21 ,bs e84
hh 1b7
a21: t
_
hpp liste fuld;
a16: qq
a:a4=33a,a10=34a,a11=35a,a12=40a,a14=80a,a20=39a14
e
_
[ s t o p ]
[læs hp] ;57,520 58
b k=57d8, i=520, a10
_
qq
qq
[læs hp] vk(618) t-1
lk 520
vk 36e64 ,hv 1i
arn 2b4 ,lk 640
gr a4 ,ck 10
ga a ,ga a2
tk 10 ,nc 688
pp a9 ,hv a8 ;gal information
[530] pa a1 ,vk (a)
lk b11 ,pp
a: vk t1
a1: qq p t40
bs (b11) ,lk (a1)
pp p-1 ,ar (a1)
bs p40 ,hv i-1
pm b12 ,it -57
bt (b11) ,hh a-1
a2: vk ,lk b11
[540] vk (a2) ,sc 1b11
sk b11 ,vk 29e64
lk b11 ,arn a3
gr b12 ,arn a4
vk 36e64 ,lk 2b11
vk 36e64 ,it 1
a6: ud b11-1 ,hh i-1
a7: gm e12 ,hv a10
a3: a8h: hv a5 ,vy 17
qq p ,hs e84
[550] sy 64 ,hh 1b7
a5: gm e12 ,pm (a6)
gm (a6) MC t1
a10: gr (a6) MA t-1
sk 2b11 ,hv b7
a9: tgal information;
_
a4:
e
_
s
_
[ s t o p ]
[afslutning og hulning] ;500 59
d10=b19+d8-1,d11=b22,d12=b23,d13=b24,d14=b25,d15=b19-39e64,d16=e88
e
_
e
_
b c51
_
[ret sum i hp]
b i=500, a5, b11
_
b11=0
vk 294 ,sk
ps d8
vk s27 ,lk c42
vk s36 ,sk c42
pa a4 tc44
arn a5 V
a4: arn c44 t1
ck 10 ,ga a
ga a2 ,tk 10
qqn LB
pa a1 ,vk (a)
lk b11 ,pp
a: vk s t1
a1: qq p t40
bs (b11) ,lk (a1)
pp p-1 ,ar (a1)
bs p40 ,hv i-1
ck ,it -57
bt (b11) ,hh a-1
a2: vk s ,lk b11
vk (a2) ,sc 1b11
sk b11 ,it (a4)
bs c45 ,hv a4
pa b XV t31d8
a5: h/26f
_
[ret sum]
b a1
_
a1: vkn (a) ,lk
a:b: vk 31d8 t-1
pp 41
pp p-1 ,ar p-1
bs p-1 ,hv r-1
bs (a) IOA td8-1
hh a1
vk 20d8 ,lk 100
vk (i-1) ,sc 105
qqn IOB
ar D512 LOB
ac 139 ,ac 104
sk 100
e
_
e
_
[ s t o p ]
[styring af udskrifter] ; 60
c42=-207
c40: vk 294 ,lk
vk 16 ,lk c3
c37: vk ,vy 17
c4: ps c1 ,sy 62
qq V NKC
hs c2
qqc51 V NKC
hv i-1
hs c2
qq c7 ,ps s1
bs sc50 ,ps c9
c: lyn D
ca 53 ,psn c9 ;e go
ca 16 ,psn c10 ;0 kanal 0
ca 56 ,psn c11 ;h jælp
ca 20 ,psn c12 ;u aflaasede
ca 49 ,psn c13 ;a udenom algol
ca 19 ,psn c14 ;t ryk og sam
ca 34 ,psn c15 ;k ompud
ca 35 ,psn c16 ;l æs hp
ca 55 ,psn c17 ;g em og hent
ca 57 ,psn c18 ;i hp ind og hp ud
ca 41 ,psn c19 ;r et
hv c5 NZ ;exsisterer ikke
hs c2
qq (s) ,gs c4
sy 29 ,ly c
ca 37 ,hv c8 ;n ej
ps c43 ,hh (c4) ;hop til hulning
c5: sy 29 ,sy 37
c8: sy 53 ,sy 33
c1: sy 62 ,hv c4
c9:[1c1] qq c20 ,hv c31 ;ego
c10:[2c1] qq c21 ,hv c32 ;kanal 0
c11:[3c1] qq c22 ,hv c33 ;HJÆLP
c12:[4c1] qq c23 ,hv c34 ;HJÆLP uaflaasede
c13:[5c1] qq c24 ,hv c35 ;HJÆLP uaflaasede udenom ALGOL
c14:[6c1] qq c25 ,ps s-3 ;htryk og hsam
_ _
c15:[7c1] qq c26 ,ps s-3 ;hkompud
_
c16:[8c1] qq c27 ,ps s-3 ;hlæs hp
_
c17:[9c1] qq c28 ,ps s-3 ;hgem og hhent
_ _
c18:[10c1] qq c29 ,ps s-3 ;hhp ind og hhp ud
_ _
c19:[11c1] qq c30 ,hv c36 ;hret
_
c50=-c19
c51: t
_
slet KA og KB;
c7: t
_
Hul (;
c20: t) ego ;
_
c21: t) kanal 0 ;
_
c22: t) HJÆLP ;
_
c23: t) uaflaasede ;
_
c24: t) udenom ALGOL ;
_
c25: t) tryk og sam ;
_
c26: t) kompud ;
_
c27: t) læs hp ;
_
c28: t) gem og hent ;
_
c29: t) hp ind og hp ud ;
_
c30: t) ret ;
_
[ s t o p ]
; 61
c31: hs 1 ;hul ego
hkompud/3
_
qq tc42.29+500
qq d10.29+39.39+d8-3
qq s ,qqf c40
hv c37
c33: vk d8-3 ,lk 10 ;hul HJÆLP
vk d8-2 ,lk 50
vk d8-1 ,lk 90
vk ,hv 10
c34: pmn c47 ,ps c48 ;hul HJÆLP uaflaasede
c46: vy 32 ,sy 14
pa 4i X t53
sy 17 ,cl 35
[-3] sy ,tk -13
gt i ,sy
[4] bt t-1
cln -7 ,hh i-3
hv 1
c47: qq 32.19
c49:c48: qq294d16.19-d15.19
hkompud/3
_
10/3c
qq 32d8.9+37d8.29+39.39
qq39d8.9+d10.29+39.39
hv c37
b a6
_
c35: vk 36d8 ,lk 10 ;hul HJÆLP uaflaasede udenom AL
GOL
vk 36d8 ,pm a4
pa a t9
a: arn t1
cm a5 ,hv a1
ca 812 ,hv a
ps (a) ,hr r1
bs s-38d9
it s255d16-d15 ,pt (a)
a1h: hv a ,sk 10
vk 39d8 ,lk50
vk 43d8 ,lk90
vk 47d8 ,lk130
vk 53d8 ,lk170
arn -d15 D
ac 51 ,ac 51
sc 91 ,sc 91
ac d11-190 ,ac d12-190
vk 39d8 ,sk50
sc 171 ,ac170d14
tk -10 ,sc 171
ac 170d13 ,vk43d8
sk 90 ,vk 47d8
sk 130 ,vk53d8
[ s t o p ]
; 62
sk 170 ,pmn c47
hs c46
hkompud/2
_
3c
qq32d8.9+37d8.29+39.39
pmn c49 ,hs c46
hkompud/2
_
10/3c
qq39d8.9+d10.29+39.39
arn -d15 D
sc 51 ,sc 51
ac 91 ,ac 91
sc d11-190 ,sc d12-190
vk 39d8 ,sk 50
ac 171 ,sc 170d14
tk -10 ,ac 171
sc 170d13 ,vk 43d8
sk 90 ,vk 47d8
sk 130 ,vk 53d8
sk 170 ,pm a4
pa a3 t9
a3: arn t1
cm a5 ,hv a6
ps (a3) ,hr r1
bs s-293d16+d15
it s-255d16+d15 ,pt (a3)
a6h: hv a3 ,vk 36d8
sk 10 ,hv c37
a4: 0/0/-1/
a5: nc
e
_
b c7
_
[c43-15] 39//47/39 ;tryk og sam
qq c1
qq
[c43-12] 48//51/39 ;kompud
qq c2
qq
[c43-9] 57///39 ;læs hp
qq c3
qq
[c43-6] 53///39 ;hent og gem
qq c4
qq
[c43-3] 54//56/39 ;hp ind og hp ud
qq c5
qq
c43: 52///39 ;ret
qq c6
qq
[ s t o p ]
; 63
c1: t3
_
hsam/2.29+4a
_
htryk/154;
_
c2: t5
_
hkompud/2;
_
c3: t6
_
hlæs hp/2;
_
c4: t1
_
hhent/4.29+af
_
i=7
hgem/2;
_
c5: t8
_
hhp ud/2.29+1a
_
hhp ind/2;
_
c6: t10
_
hret/2;
_
b a5,b4
_
c36: c7: vy 33 ,vk 16
lk c38 ,vk
a4: hs c39
qq b ,arn s
gr a2
hs 1
h kompud/2
_
3c
a2: qq
hs c39
qq b2
hs c39
qq (s1)
hs c39
qq b3 ,ud s2
qq b4 ,hs c39
hv c37
b: tb a
__
a:b k=a,i=0
_
;
b2: te
__
b k=36,i=0
_
i=;
b3: t.29+a;
_
b4: t
_
e
_
e
_
s
_
;
e
_
e
_
[ s t o p ]
[hul kanal 0] ; 64
b a14
_
c32: pa a2 ta
a4: vy 32 ,pp 11
a2: pm a t-1
a1: cln -3 ,pp p-1
tk -4 ,ga 1i
sy ,cln -6
bs p ,hh a1
a7: sy 64 ,it a3
bs (a2) ,hh a4
pa a9 t a5
a10: pp 6
a9: pmn a5 X t-1
a6: cl 36 ,pp p-1
tk -4 ,ga 1i
a8: sy ,cln -6
bs p ,hh a6
tk -4 ,ar a7
ga a8 ,sy (a8)
bs (a9) ta
hv a10
vk d8 ,lk a14
vk d8
pa 1i ta11
a12: pmn a11 IRC t-1
ar D256 LRA
ar D128 LRB
xr ,tl -10
ar D128
tl -7 IZA X
gt i ,sy
hv i-2 NZA X
bs (a12) ta13
hv a12
sy ,hv c37
a3:[3] tl 10
[4] gr 16 M t-1
[5] hv 1
[3] gm 6 M t-1
[4] hv 1
a:[5] pmn 1.3 IZA XD
[6] tl -7
[7] ly 8
[8] pi LZA t508
[9] xr IZB X
[10] hv 6 LZB
[11] tl 3
[12] gr 56 MRC t-1
[13] hv 5
a5: a13: [14] vk ,sk 16
[15] sk 16 ,sk 16
[16] sk 16 ,zq
a14:
a11=40a14
e
_
[ s t o p ]
; 65
c42: c3=13c42, c38=c3, c2=27c3, c39=c2, c44=c42-1, c45=10c42
[ HUL HJÆLP ]
b k=d8-3, i=10, a3, b1
_
arn a3 t-1
tk 3 ,gr (i-1)
bt 3 t-1
vy 32 ,hv i-3
a2: pmn a IRC t-1
ar D256 LRA
ar D128 LRB
xr ,tl -10
ar D128
tl -7 IZA X
gt i ,sy
hv i-2 NZA X
bs (a2) ta1
hv a2
bt 10 t-1
sy ,hv i-1
pmn 1i V
qq t1
hs c46
hkompud/2
_
10/3c
qq 1d8+d10.29+39.39
hv c37
i=42
a1:
b a22, c6,e44
_
d e38=200, e39=240, a4=280
_
pm -1 ,gm b
pm b1 ,gm -1
vy 16 ,ly a9
nc 17 ,hv i-1
ly a9
a20: pa a19 ,pa a13 ;sum og antal=0
a9: pi ,hs a ;læs etikette
a8: pm a5 ,ga a3
ga c6 ,tk 10
ga a2 ,tk10
[330] gr a4 X MRA
hv a6 LRB ;hop ikke overspringelse
bt 51 V NQB t-1 ;hvis startetikette tæl mellesl
ag
c6: pp p[ac] ,hv a18 ;ellers tæl i p og hop
ly a9 ,hv i-2
e44: nt 1 ,qq (a2)
a18h: pp (a3) ,it -2
pi 1 ,bs p-39
pp p-40 ,it 1
can (a2) ,hv a10 ;hop hvis samm kanal
it (e44) ,vk (a2)
c4:[340] lk e38 ,arn a2
hs c1 ,hv a12
[ s t o p ]
; 66
c: bs (e44) t317 ;start læsning fra kanal
pt c ,hh s
is (e44) ,vk s1
c3: lk e38 ,hv 1c
a5: hsf 2
a7: hs a NB ;læs et ord
a14: gr se39 MRC ;gem et ord
hk c ,pp p1
bs p472 ,hv c2 ;hop hvis ikke ny kanal
hs c ,pp
a6h: hs c1 ,it -1
a2: btf [ak] ,it 40 ;tæl kanaler
c2h: qq (a3) ,ps p
a3: bt [ac] IRCt-1 ;tæl celler
a12h: hv a7 ,ga e44
a10:[610] hv a20 NQB
arn a4 IRA
hh a8 NZ
hv a9 NRA
lyn a16 ,tk -7 ;læs sum og antal
ly a16 ,tk-7
ly a16 ,tk4
nc (a19) ,hv a21
tk 10 ,ca (a13)
hs c1 ,hv a17
a21:[620] arn i ,hv 27
c1: pt c IRB t317 ;start skrivning paa kanal
is ,it (a14)
pa c3 ,it (c4)
pa a14 ,it (c3)
pa c4 ,vk (e44)
sk (c4) ,it 1
qq (e44) ,hh s
a: pmn 1.3 XD IZA ;læs et ord
tl -7 ,ly a16
a16: pi LZA t-516
a13: ac DX
[630] hv 1a X LZ
a19: xr t6
tl 3 ,hr s1
b1: gk ,vy r
a17:
e
_
vk 25 ,lk 960
pm a ,gm -1
vy 81 ,pp (0)
pi (9) ,vk 38
vk 294 NZA
lk 951 ,hv 28
qq
tl 3
gr r-a1+1 MRC t-1
hv 34
gr 43 MRC t-1
a3: 272/351/68/3a
a:b: qq
e
_
e
_
;e 500
_
[FINIS]
[ s t o p ]
[MODEFIKATION AF HJÆLP TIL GIER MED ANELEX]
b k=124, i=920
_
i=953, gk 1 ,vy r-497
i=959, vy t511
e
_
b k=100, i=0
_
i=2, gk 1 ,vy r-497
i=33, ly i ,vy 528
e
_
b k=101, i=960
_
i=982, vy 512 ,lk 1000
i=984, vy (1) t512
e
_
[De 3 foregaaende rettelser ændrer HJÆLP til at aceptere hp-knap spæring med
by 0 i stedet for by 3.
De 2 efterfølgende rettelser flytter noget af skrivemaskineoutputet (by 5)
til ANELEX (by 6).]
b k=118, i=320
_
i=324, vy 8 LKB t-9
e
_
b k=139, i=0
_
i=171, vy 8 ,pa 487
e
_
e500
_