|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 290304 (0x46e00)
Names: »tcldprocbib «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »tcldprocbib «
Dumping the first 0x40 bytes of each record 0x00000…00900 (1, 36141) 00 51 b0 00 00 6e 00 00 77 61 66 73 6c 75 74 74 65 78 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 b9 08 00 00 00 00 00 00 00 00 00 00 00 00 00 72 50 00 00 5a 00 00 63 61 66 76 65 ┆ Q n wafsluttextx disc c rP Z cafve┆ 0x00900…01200 (1, 36142) 0a 7d f3 00 00 00 00 4e 1f 73 6b 72 69 76 70 72 6f 63 74 78 00 00 00 7e 64 69 73 63 31 00 00 00 00 00 00 00 f6 6d 44 00 00 00 00 00 00 00 00 00 00 00 00 12 54 80 00 00 6f 00 00 70 73 6b 72 69 ┆ å N skrivproctx üdisc1 mD T o pskri┆ 0x01200…01b00 (1, 36143) 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 61 6e 74 20 64 6f 0a 20 20 20 20 73 6b 72 69 76 5f 74 65 67 6e 28 74 65 78 74 2c 70 6f 73 2c 30 29 3b 0a 65 6e 64 3b 0a 19 00 00 70 ┆r i:=1 step 1 until ant do skriv_tegn(text,pos,0); end; p┆ 0x01b00…02400 (1, 36144) 6e 67 20 73 6b 61 6c 20 76 7b 72 65 20 70 7d 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 3a 20 69 6e 67 65 6e 20 ┆ng skal være på. false: ingen ┆ 0x02400…02d00 (1, 36145) 3b 0a 20 20 20 20 7a 73 28 31 29 3a 3d 20 31 3b 0a 20 20 20 20 7a 73 28 34 29 3a 3d 20 62 75 66 28 31 29 3b 20 7a 73 28 35 29 3a 3d 20 62 75 66 28 32 29 3b 20 7a 73 28 36 29 3a 3d 20 62 75 66 ┆; zs(1):= 1; zs(4):= buf(1); zs(5):= buf(2); zs(6):= buf┆ 0x02d00…03600 (1, 36146) 69 61 28 33 29 3d 74 61 70 65 2e 6e 61 76 6e 28 33 29 20 61 6e 64 20 69 61 28 34 29 3d 74 61 70 65 2e 6e 61 76 6e 28 34 29 20 61 6e 64 0a 20 20 20 20 20 69 61 28 2d 32 29 3c 3d 28 6c 61 28 31 ┆ia(3)=tape.navn(3) and ia(4)=tape.navn(4) and ia(-2)<=(la(1┆ 0x03600…03f00 (1, 36147) 74 65 28 70 6f 75 74 2c 3c 3a 74 7b 6e 64 20 27 68 69 2d 64 65 6e 27 20 6f 67 20 27 6f 6e 6c 69 6e 65 27 20 70 7d 20 62 7d 6e 64 73 74 61 74 69 6f 6e 65 6e 20 21 21 21 3c 31 30 3e 3a 3e 29 3b ┆te(pout,<:tænd 'hi-den' og 'online' på båndstationen !!!<10>:>);┆ 0x03f00…04800 (1, 36148) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 61 6c 66 61 62 65 74 20 73 69 64 65 20 31 2e 20 61 72 20 38 30 30 31 31 37 3b 0a 0a 20 20 20 3c 2a 20 61 6c 66 61 62 65 74 20 69 6e 69 ┆ message procedure alfabet side 1. ar 800117; <* alfabet ini┆ 0x04800…05100 (1, 36149) 20 3a 28 6b 61 6c 64 2c 69 6e 74 29 20 74 61 6c 20 64 65 72 20 73 6b 61 6c 20 6b 6f 6e 76 65 72 74 65 72 65 73 2e 0a 20 20 20 66 65 6c 74 6c 7b 6e 67 64 65 20 20 20 3a 28 6b 61 6c 64 2c 69 6e ┆ :(kald,int) tal der skal konverteres. feltlængde :(kald,in┆ 0x05100…05a00 (1, 36150) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 61 6e 62 72 69 6e 67 74 61 6c 20 73 69 64 65 20 31 2e 20 61 72 20 37 39 30 32 32 31 20 76 65 72 73 69 6f 6e 20 31 3b 0a 0a 20 20 20 69 ┆ message procedure anbringtal side 1. ar 790221 version 1; i┆ 0x05a00…06300 (1, 36151) 63 65 64 75 72 65 20 61 6e 62 72 69 6e 67 74 61 6c 3b 0a 19 00 74 65 6d 6d 65 73 2c 20 6f 67 20 66 65 6c 74 6c 7b 6e 67 64 65 6e 20 67 7c 72 65 73 20 70 6f 73 69 74 69 76 2e 20 2a 3e 0a 20 20 ┆cedure anbringtal; temmes, og feltlængden gøres positiv. *> ┆ 0x06300…06c00 (1, 36152) 0c 6d 65 73 73 61 67 65 20 62 69 6e 7b 72 73 7c 67 20 73 69 64 65 20 31 2e 20 6a 67 2c 63 6c 61 2c 28 61 72 29 20 37 38 31 31 31 37 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 ┆ message binærsøg side 1. jg,cla,(ar) 781117; integer procedure┆ 0x06c00…07500 (1, 36153) 64 65 78 20 75 64 70 65 67 65 64 65 20 65 6c 65 6d 65 6e 74 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 20 6c 69 67 20 6d 65 ┆dex udpegede element er lig me┆ 0x07500…07e00 (1, 36154) 65 72 65 6e 63 65 0a 0a 20 20 20 20 20 20 20 20 20 20 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 61 6c 64 2c 69 6e 74 65 67 65 72 20 61 72 72 61 79 29 20 62 61 73 65 72 20 64 65 72 20 ┆erence b (kald,integer array) baser der ┆ 0x07e00…08700 (1, 36155) 20 72 20 3a 3d 20 73 79 73 74 69 64 28 64 61 67 2c 73 65 63 29 3b 0a 20 20 20 3c 2a 61 30 20 77 72 69 74 65 28 6f 75 74 2c 64 61 67 2c 73 65 63 2c 3c 3a 20 73 79 73 74 69 6d 65 20 3d 20 3a 3e ┆ r := systid(dag,sec); <*a0 write(out,dag,sec,<: systime = :>┆ 0x08700…09000 (1, 36156) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 66 70 20 73 69 64 65 20 31 2e 20 61 72 2c 63 6c 20 37 39 30 38 32 32 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 ┆ message procedure closefp side 1. ar,cl 790822; procedure clos┆ 0x09000…09900 (1, 36157) 73 68 61 72 65 20 66 72 61 20 7a 20 74 69 6c 20 6f 75 74 20 2a 3e 0a 20 20 7a 64 65 73 63 72 31 34 3a 3d 20 7a 64 65 73 63 72 28 31 34 29 3b 0a 20 20 7a 64 65 73 63 72 31 35 3a 3d 20 7a 64 65 ┆share fra z til out *> zdescr14:= zdescr(14); zdescr15:= zde┆ 0x09900…0a200 (1, 36158) 6e 61 76 6e 28 31 3a 32 29 20 65 72 20 6e 61 76 6e 20 70 7d 20 65 6e 20 6b 61 74 61 6c 6f 67 69 6e 64 67 61 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆navn(1:2) er navn på en katalogindgang ┆ 0x0a200…0ab00 (1, 36159) 68 76 69 73 20 64 65 72 20 73 7c 67 65 73 20 6e 61 76 6e 65 70 61 72 61 6d 65 74 72 65 2e 0a 0a 20 20 76 7b 72 64 69 65 72 20 20 20 20 20 28 72 65 74 75 72 70 61 72 61 6d 65 74 65 72 2c 20 69 ┆hvis der søges navneparametre. værdier (returparameter, i┆ 0x0ab00…0b400 (1, 36160) 20 20 20 20 20 20 20 20 69 66 20 6b 3e 7c 67 72 20 74 68 65 6e 20 70 61 72 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 20 69 66 20 70 ┆ if k>øgr then par:=true; end end else if p┆ 0x0b400…0bd00 (1, 36161) 6f 63 75 6d 65 6e 74 28 33 29 20 3a 3d 20 64 6f 63 75 6d 65 6e 74 28 34 29 20 3a 3d 20 30 3b 0a 20 20 66 70 70 61 72 61 6d 28 31 2c 76 61 6c 2c 6f 75 74 70 75 74 70 61 72 61 6d 2c 73 65 70 29 ┆ocument(3) := document(4) := 0; fpparam(1,val,outputparam,sep)┆ 0x0bd00…0c600 (1, 36162) 20 6e 6f 2c 20 69 2c 20 66 70 73 65 70 2c 66 70 6c 65 6e 67 74 68 2c 20 6a 2c 20 6b 3a 3e 2c 3c 3c 20 64 64 64 3e 2c 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 69 20 73 68 69 66 74 ┆ no, i, fpsep,fplength, j, k:>,<< ddd>,no, i,i shift┆ 0x0c600…0cf00 (1, 36163) 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 61 6c 6f 67 74 20 74 69 6c 20 66 70 70 61 72 61 6d 29 3a 0a 20 20 ┆type (analogt til fpparam): ┆ 0x0cf00…0d800 (1, 36164) 2c 7c 67 72 31 2c 7c 67 72 32 2c 66 6f 72 74 65 67 6e 2c 67 72 2c 69 6e 78 31 2c 69 6e 78 32 2c 61 6e 74 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 28 30 3a 66 70 70 61 72 6d 61 ┆,øgr1,øgr2,fortegn,gr,inx1,inx2,ant; integer array t(0:fpparma┆ 0x0d800…0e100 (1, 36165) 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 66 70 70 61 72 6d 61 6e 74 61 6c 2c 20 73 69 64 65 20 31 20 2d 20 38 30 30 34 32 38 2f 63 6c 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 ┆message procedure fpparmantal, side 1 - 800428/cl; integer proc┆ 0x0e100…0ea00 (1, 36166) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 3a 20 73 65 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2: seperator ┆ 0x0ea00…0f300 (1, 36167) 20 75 6e 74 69 6c 20 7c 67 72 32 20 64 6f 0a 20 20 20 20 76 7b 72 64 69 28 69 29 3a 3d 20 30 3b 0a 20 20 70 6f 73 3a 3d 20 30 3b 0a 20 20 69 61 66 3a 3d 20 70 61 72 2a 38 3b 0a 20 20 77 68 69 ┆ until øgr2 do værdi(i):= 0; pos:= 0; iaf:= par*8; whi┆ 0x0f300…0fc00 (1, 36168) 20 20 20 20 20 6d 61 6b 72 6f 70 72 6f 63 74 78 2e 6d 61 6b 72 6f 70 72 6f 63 2c 0a 20 20 20 20 20 20 20 73 6b 72 69 76 70 72 6f 63 74 78 2e 73 6b 72 69 76 70 72 6f 63 65 73 2c 0a 20 20 20 20 ┆ makroproctx.makroproc, skrivproctx.skrivproces, ┆ 0x0fc00…10500 (1, 36169) 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 62 73 64 65 76 69 63 65 20 73 69 64 65 20 31 2e 20 61 72 20 37 39 30 34 31 30 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 ┆message procedure getbsdevice side 1. ar 790410; integer proced┆ 0x10500…10e00 (1, 36170) 62 73 64 65 76 69 63 65 20 3a 3d 20 2d 32 3b 0a 20 20 20 20 20 20 64 65 76 69 63 65 6e 61 6d 65 28 31 29 20 3a 3d 20 64 65 76 69 63 65 6e 61 6d 65 28 32 29 20 3a 3d 20 30 3b 0a 20 20 20 65 6e ┆bsdevice := -2; devicename(1) := devicename(2) := 0; en┆ 0x10e00…11700 (1, 36171) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 68 6e 61 76 6e 20 20 73 69 64 65 20 31 20 2d 20 37 39 30 35 33 30 2f 68 6b 6f 3b 0a 0a 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 ┆ message procedure hnavn side 1 - 790530/hko; boolean proced┆ 0x11700…12000 (1, 36172) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 68 7b 67 74 73 68 6f 72 74 20 73 69 64 65 20 31 20 2d 20 37 39 30 33 30 36 2f 63 6c 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 68 7b 67 74 ┆ message procedure hægtshort side 1 - 790306/cl; procedure hægt┆ 0x12000…12900 (1, 36173) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 68 7b 67 74 5f 73 74 72 69 6e 67 20 73 69 64 65 20 31 2e 20 66 67 73 2c 61 72 20 37 39 30 32 32 31 3b 0a 0a 20 20 20 20 62 6f 6f 6c 65 ┆ message procedure hægt_string side 1. fgs,ar 790221; boole┆ 0x12900…13200 (1, 36174) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 68 7b 67 74 5f 74 65 6b 73 74 20 73 69 64 65 20 31 2e 20 66 67 73 2c 61 72 20 37 38 31 31 30 38 3b 0a 0a 20 20 20 20 62 6f 6f 6c 65 61 ┆ message procedure hægt_tekst side 1. fgs,ar 781108; boolea┆ 0x13200…13b00 (1, 36175) 6b 73 74 3b 0a 19 2e 0a 0a 20 20 20 66 65 6a 6c 72 65 61 6b 74 69 6f 6e 65 72 3a 0a 20 20 20 68 76 69 73 20 74 6f 5f 69 61 20 69 6b 6b 65 20 6b 61 6e 20 72 75 6d 6d 65 20 64 65 6e 20 73 61 6d ┆kst; . fejlreaktioner: hvis to_ia ikke kan rumme den sam┆ 0x13b00…14400 (1, 36176) 6c 7b 73 62 69 74 69 2c 0a 6c 7b 73 62 69 74 6c 2c 0a 6c 7b 73 62 69 74 69 61 2c 0a 69 6e 74 67 2c 0a 73 6b 72 69 76 73 74 61 74 75 73 20 0a 0a 6d 65 73 73 61 67 65 0a 6d 65 73 73 61 67 65 2c ┆læsbiti, læsbitl, læsbitia, intg, skrivstatus message message,┆ 0x14400…14d00 (1, 36177) 74 65 67 6e 3b 0a 0a 20 20 72 65 70 65 61 74 20 6c 7b 73 5f 74 65 67 6e 28 6c 69 6e 6a 65 2c 70 6f 73 2c 74 65 67 6e 29 0a 20 20 75 6e 74 69 6c 20 74 65 67 6e 20 3c 3e 20 33 32 3b 0a 20 20 6c ┆tegn; repeat læs_tegn(linje,pos,tegn) until tegn <> 32; l┆ 0x14d00…15600 (1, 36178) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6c 7b 73 5f 62 69 74 5f 6c 20 20 73 69 64 65 20 31 20 2d 20 38 31 30 34 31 33 2f 68 6b 6f 3b 0a 0a 20 20 62 6f 6f 6c 65 61 6e 20 70 72 ┆ message procedure læs_bit_l side 1 - 810413/hko; boolean pr┆ 0x15600…15f00 (1, 36179) 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 64 65 74 20 74 65 67 6e 2c 20 64 65 72 20 61 66 73 6c 75 74 74 65 64 65 20 74 61 6c 6c 65 74 2e 0a 0a 66 65 6a 6c 72 65 61 6b 74 69 6f 6e 65 ┆ (retur,integer) det tegn, der afsluttede tallet. fejlreaktione┆ 0x15f00…16800 (1, 36180) 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 74 61 6c 20 3a 3d 20 38 33 38 38 36 30 37 3b 0a 20 20 20 20 20 20 20 20 20 6c 7b 73 68 65 6c 74 61 6c 20 3a 3d 20 31 3b 0a 20 20 20 20 20 ┆ begin tal := 8388607; læsheltal := 1; ┆ 0x16800…17100 (1, 36181) 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 64 65 74 20 74 65 67 6e 2c 20 64 65 72 20 61 66 73 6c 75 74 74 65 64 65 20 74 61 6c 6c 65 74 2e 0a 0a 66 65 6a 6c 72 65 61 6b 74 69 6f 6e 65 72 3a ┆retur,integer) det tegn, der afsluttede tallet. fejlreaktioner:┆ 0x17100…17a00 (1, 36182) 73 68 65 78 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 6c 61 6e 67 74 61 6c 20 73 ┆shex := 0; end; end else begin if langtal s┆ 0x17a00…18300 (1, 36183) 6d 65 73 73 61 67 65 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6c 7b 73 5f 74 65 78 74 20 73 69 64 65 20 31 2e 20 6a 67 28 61 72 29 20 37 38 31 31 30 31 3b 0a 0a 69 6e 74 65 67 ┆message integer procedure læs_text side 1. jg(ar) 781101; integ┆ 0x18300…18c00 (1, 36184) 20 27 3c 73 77 69 74 63 68 6e 72 3e 27 2c 20 68 76 6f 72 20 27 20 73 6b 61 6c 20 76 7b 72 65 20 64 6f 6c 6c 61 72 74 65 67 6e 2c 20 0a 20 20 20 64 65 72 20 68 65 6c 6c 65 72 20 69 6b 6b 65 20 ┆ '<switchnr>', hvor ' skal være dollartegn, der heller ikke ┆ 0x18c00…19500 (1, 36185) 0a 20 20 20 3c 2a 61 31 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 62 69 74 28 34 36 29 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 72 65 61 6c 20 61 72 72 ┆ <*a1 if testbit(46) then begin real arr┆ 0x19500…19e00 (1, 36186) 3d 32 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 74 79 70 65 20 38 30 3b 0a 20 20 20 20 ┆=25; close(z,true); end type 80; ┆ 0x19e00…1a700 (1, 36187) 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 62 73 20 73 69 64 65 20 31 2e 20 61 72 20 37 39 30 36 31 33 20 76 65 72 73 69 6f 6e 20 31 3b 0a 0a 69 6e 74 65 67 65 72 20 70 ┆message procedure openbs side 1. ar 790613 version 1; integer p┆ 0x1a700…1b000 (1, 36188) 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 66 70 20 73 69 64 65 20 31 2e 20 68 6b 6f 2c 61 72 2c 63 6c 20 37 39 30 38 32 37 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 ┆message procedure openfp side 1. hko,ar,cl 790827; integer proc┆ 0x1b000…1b900 (1, 36189) 30 2c 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 73 6b 72 69 76 7a 62 65 73 6b 72 28 75 64 7a 2c 3c 3a 7a 20 69 20 6b 61 6c 64 20 61 66 20 6f 70 65 6e 66 70 3a 3e 2c 7a 29 3b 0a 20 20 65 ┆0,tail); skrivzbeskr(udz,<:z i kald af openfp:>,z); e┆ 0x1b900…1c200 (1, 36190) 73 68 61 72 65 28 32 29 2b 31 3b 0a 20 20 20 20 6f 75 74 64 65 73 63 72 28 31 35 29 3a 3d 20 6f 75 74 64 65 73 63 72 28 31 34 29 2b 6f 75 74 64 65 73 63 72 28 31 36 29 3b 0a 20 20 20 20 73 65 ┆share(2)+1; outdescr(15):= outdescr(14)+outdescr(16); se┆ 0x1c200…1cb00 (1, 36191) 61 67 65 3a 28 7a 31 2c 31 2c 73 68 29 3b 0a 0a 20 20 3c 2a 20 61 66 76 65 6e 74 20 73 76 61 72 20 2a 3e 0a 20 20 72 65 73 3a 3d 20 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 20 61 6e 73 77 ┆age:(z1,1,sh); <* afvent svar *> res:= monitor(18)wait answ┆ 0x1cb00…1d400 (1, 36192) 20 64 61 74 6f 65 6e 20 70 7d 20 74 65 67 6e 66 6f 72 6d 20 67 7d 72 20 70 72 6f 63 65 64 75 72 65 6e 0a 6e 65 64 2e 0a 0a 6b 61 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 61 66 73 6c ┆ datoen på tegnform går proceduren ned. kaldte procedurer: afsl┆ 0x1d400…1dd00 (1, 36193) 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6b 2c 6c 3b 0a 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 62 28 31 3a 38 29 3b 0a 20 20 20 20 20 72 65 61 6c 20 72 3b 0a 20 20 20 ┆ integer i,j,k,l; integer array ib(1:8); real r; ┆ 0x1dd00…1e600 (1, 36194) 6e 64 20 68 65 61 64 5f 61 6e 64 5f 74 61 69 6c 28 32 29 3d 69 62 28 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 68 65 61 64 5f 61 6e 64 5f 74 61 69 6c 28 33 29 ┆nd head_and_tail(2)=ib(5) and head_and_tail(3)┆ 0x1e600…1ef00 (1, 36195) 0a 0a 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 6e 75 6d 62 65 72 73 28 69 2c 6a 29 3b 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 20 20 77 72 69 74 65 28 7a 6f 75 74 2c 3c 3c 64 64 64 64 3e ┆ procedure writenumbers(i,j); integer i,j; write(zout,<<dddd>┆ 0x1ef00…1f800 (1, 36196) 2c 3c 3a 64 63 33 3a 3e 2c 3c 3a 64 63 34 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e 61 6b 3a 3e 2c 3c 3a 73 79 6e 3a 3e 2c 3c 3a 65 74 62 3a 3e 2c 0a 20 ┆,<:dc3:>,<:dc4:>, <:nak:>,<:syn:>,<:etb:>, ┆ 0x1f800…20100 (1, 36197) 20 61 64 72 65 73 73 65 3b 20 3c 70 72 6f 63 61 64 72 3e 27 2e 0a 0a 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 20 20 20 20 20 20 20 28 6b 61 6c 64 2c 69 6e 74 65 67 65 72 20 61 72 72 61 79 29 ┆ adresse; <procadr>'. term (kald,integer array)┆ 0x20100…20a00 (1, 36198) 2c 22 2d 22 2c 38 30 2c 6e 6c 2c 31 29 3b 20 6c 69 6e 69 65 3a 3d 6c 69 6e 69 65 2b 31 3b 0a 20 20 20 20 69 66 20 6d 7d 64 65 3d 30 20 6f 72 20 6d 7d 64 65 20 65 78 74 72 61 63 74 20 33 20 3c ┆,"-",80,nl,1); linie:=linie+1; if måde=0 or måde extract 3 <┆ 0x20a00…21300 (1, 36199) 0a 20 20 20 20 20 20 6a 3a 3d 20 63 61 73 65 20 69 20 6f 66 20 28 33 34 2c 33 38 2c 33 36 29 3b 0a 20 20 20 20 20 20 70 6f 73 3a 3d 77 72 69 74 65 28 7a 2c 3c 3c 2d 64 64 64 64 64 64 64 3e 2c ┆ j:= case i of (34,38,36); pos:=write(z,<<-ddddddd>,┆ 0x21300…21c00 (1, 36200) 75 72 65 20 73 6b 72 69 76 70 72 6f 63 65 73 20 20 73 69 64 65 20 35 20 2d 20 38 37 30 33 30 35 2f 68 6b 6f 3b 0a 0a 69 66 20 6d 7d 64 65 3c 32 20 6f 72 20 6d 7d 64 65 20 73 68 69 66 74 28 2d ┆ure skrivproces side 5 - 870305/hko; if måde<2 or måde shift(-┆ 0x21c00…22500 (1, 36201) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x22500…22e00 (1, 36202) 80 00 01 7f ff fd 00 00 00 70 72 69 6d 6f 00 00 00 00 00 00 00 00 00 8f ff 40 08 3f 2e e6 3f 2e e6 3d d4 b6 3d d4 b6 00 e0 00 01 30 00 01 20 08 00 07 c0 00 00 00 0f 00 07 00 00 00 00 e2 68 00 ┆ primo @ ?. ?. = = 0 h ┆ 0x22e00…23700 (1, 36203) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x23700…24000 (1, 36204) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 40 01 3d dc 38 3d dc 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ = 8= 8 ┆ 0x24000…24900 (1, 36205) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x24900…25200 (1, 36206) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 52 00 3d e3 be 3d e3 be 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ R = = ┆ 0x25200…25b00 (1, 36207) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x25b00…26400 (1, 36208) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 50 40 3d eb 44 3d eb 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P@= D= D ┆ 0x26400…26d00 (1, 36209) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x26d00…27600 (1, 36210) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 50 08 3d f2 ca 3d f2 ca 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P = = ┆ 0x27600…27f00 (1, 36211) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x27f00…28800 (1, 36212) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 50 01 3d fa 50 3d fa 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P = P= P ┆ 0x28800…29100 (1, 36213) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x29100…29a00 (1, 36214) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 62 00 3e 01 d6 3e 01 d6 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ b > > ┆ 0x29a00…2a300 (1, 36215) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x2a300…2ac00 (1, 36216) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 60 40 3e 09 5c 3e 09 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ `@> Ø> Ø ┆ 0x2ac00…2b500 (1, 36217) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x2b500…2be00 (1, 36218) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 60 08 3e 10 e2 3e 10 e2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ` > > ┆ 0x2be00…2c700 (1, 36219) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x2c700…2d000 (1, 36220) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 60 01 3e 18 68 3e 18 68 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ` > h> h ┆ 0x2d000…2d900 (1, 36221) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x2d900…2e200 (1, 36222) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff 72 00 3e 1f ee 3e 1f ee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ r > > ┆ 0x2e200…2eb00 (1, 36223) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆ 0x2eb00…2f400 (1, 36224) 02 40 20 c0 03 9a 00 0b 0a 00 06 c4 00 0c 10 00 0e e2 00 0d cc 00 06 3e 00 06 c2 c0 03 92 00 06 c0 00 06 a3 c0 05 f4 00 0f 84 c0 00 44 00 0e da 00 0f 78 1c c0 be 1c c0 3d 00 00 01 00 60 17 00 ┆ @ > D x = ` ┆ 0x2f400…2fd00 (1, 36225) 02 80 04 c0 03 a0 00 0e da 1c f0 00 1c f0 ac 1c f0 87 1c f0 da 1c f0 7b 1c f1 08 1c f0 6f 1c f1 36 1c f0 63 1c f1 64 1c f0 57 1c f1 92 1c f0 4b 1c f1 c0 1c f0 3f 1c f1 f0 1c f0 2f 1d 00 84 80 ┆ æ o 6 c d W K ? / ┆ 0x2fd00…30600 (1, 36226) 02 00 20 c0 03 a6 00 06 a3 c0 03 a8 00 0b 0a c0 03 aa c0 05 f2 00 0c 10 00 0e da 00 06 c4 00 0d cc 00 06 3e c0 03 a4 00 06 3d c0 07 0a 00 0f 78 00 10 ae 34 31 e6 00 41 8c 00 40 12 01 01 30 00 ┆ > = x 41 A @ 0 ┆ 0x30600…30f00 (1, 36227) 01 60 0c c0 03 ac 00 0f 84 c0 00 44 00 0e da 00 0c 10 00 0b 0a 1d 50 00 1d 50 00 1d 50 00 1d 51 90 1d 50 33 00 0f ff 00 00 00 6b 7c 00 00 00 00 6f 67 6e 20 69 20 20 66 6f 72 20 76 6c 73 74 61 ┆ ` D P P P Q P3 kø ogn i for vlsta┆ 0x30f00…31800 (1, 36228) 01 20 12 c0 03 b2 00 06 3e 00 0c 10 00 0f 84 c0 00 42 00 0f 78 c0 05 f6 c0 05 f2 c0 05 f4 01 00 3c 01 c1 98 ff ff ff 01 81 30 00 80 e0 01 1f ff 01 00 96 01 80 6c 37 cf e2 5e 10 00 50 8f fb 53 ┆ > B x < 0 l7 ^ P S┆ 0x31800…32100 (1, 36229) 02 60 22 c0 03 b8 00 0c 10 00 06 3d c0 00 48 c0 00 3a 00 06 3e c0 07 08 00 0e da 00 06 c4 00 0d cc c0 07 20 c0 05 f2 00 0f 78 00 0f 84 c0 05 f6 c0 05 f4 c0 00 42 1d b0 00 1f 61 86 00 c0 72 00 ┆ `" = H : > x B a r ┆ 0x32100…32a00 (1, 36230) 01 20 12 c0 03 be 00 0f 84 00 06 3d c0 00 4c 00 0c 10 c0 05 f4 00 06 3e c0 07 06 c0 00 42 00 27 10 0f ff ff 00 00 03 00 41 82 01 01 1a 80 00 00 00 0f ff 64 00 00 00 00 07 00 00 00 00 00 05 01 ┆ = L > B ' A d ┆ 0x32a00…33300 (1, 36231) 01 40 12 c0 03 c4 00 06 3e 00 0f 78 00 0c 10 c0 03 d4 c0 03 ec c0 05 f4 00 0f 84 c0 05 f6 1e 10 00 01 80 54 01 41 a8 01 01 30 ff ff ff 01 80 94 53 8f e0 dc 10 05 53 2f f8 2c 3f 39 2f 00 1a dc ┆ @ > x T A 0 S S/ ,?9/ ┆ 0x33300…33c00 (1, 36232) 00 80 06 c0 03 ca 00 0f 84 00 0f 78 1e 40 00 00 10 00 00 0f ff 00 00 02 53 2f f8 1d 2f b1 5d 2f 9b 51 2f bf 2d 1f ff 29 8f f5 2d 10 0a 91 00 01 1d 2f 9b 50 3b d9 a1 7b d7 a4 1f ff 37 cf dc 1d ┆ x @ S/ / Å/ Q/ - ) - / P; æ 7 ┆ 0x33c00…34500 (1, 36233) 01 00 10 c0 03 d0 00 0f 78 c0 03 d2 00 06 3d c0 07 28 00 06 3e 00 0f 84 00 0c 10 00 00 1f 00 c1 7c 34 31 30 c0 00 00 00 c0 7a d0 00 00 51 10 00 1d 8f fd 5d 6f a7 34 80 80 2d 00 00 5d 2f bf 2d ┆ x = ( > ø410 z Q Åo 4 - Å/ -┆ 0x34500…34e00 (1, 36234) 01 60 14 c0 03 d6 00 0c 10 00 0f 84 c0 03 dc c0 03 ec c0 05 f4 00 06 3e c0 05 f6 00 0f 78 c0 00 42 1e b0 3a 00 00 03 01 80 50 01 41 a0 01 1f ff 01 01 46 ff ff ff 01 81 1c 01 00 d4 2c 10 21 2f ┆ ` > x B : P A F , !/┆ 0x34e00…35700 (1, 36235) 01 40 10 c0 03 dc 00 0c 10 00 0f 84 c0 07 20 00 06 3e c0 07 3c 00 0e e2 c0 05 f6 1e d0 fe 1e e0 30 01 40 5c 0f ff ff c0 00 00 00 00 01 00 40 12 01 81 7a 00 00 05 01 41 2a 00 03 ff ff ff ff 2f ┆ @ > < 0 @Ø @ z A* /┆ 0x35700…36000 (1, 36236) 01 60 12 c0 03 e2 c0 07 3c 00 0e e2 00 0f 84 00 0c 10 00 06 3d c0 03 b4 00 06 3e 00 0f 78 1f 00 ce 1f 01 c8 00 00 00 00 00 05 01 40 26 0f ff ff 01 40 fa 01 00 aa 00 00 03 53 2f f8 1d 3e ed 53 ┆ ` < = > x @& @ S/ > S┆ 0x36000…36900 (1, 36237) 01 00 10 c0 03 e8 00 0c 10 00 0f 84 c0 00 42 00 06 3e 00 0f 78 c0 03 ec c0 05 f4 00 c0 28 00 00 01 04 80 3c 01 c1 32 01 40 d4 53 2f fa 2d 00 00 5d 6f a7 51 3f 6d 53 2f f8 1d 2f af 2d 10 0c 50 ┆ B > x ( < 2 @ S/ - Åo Q?mS/ / - P┆ 0x36900…37200 (1, 36238) 02 60 20 c0 03 ee 00 10 ae 00 0b 0a 00 06 c4 00 0c 10 00 0e e2 00 0d cc 00 06 3e 00 06 c2 c0 03 9a 00 06 c0 00 06 a3 c0 05 f4 00 0f 84 c0 00 44 00 0e da 1f 60 00 1f 60 82 1f 60 47 00 00 01 00 ┆ ` > D ` ` `G ┆ 0x37200…37b00 (1, 36239) 76 74 65 67 6e 0a 2a 3e 0a 0a 62 65 67 69 6e 0a 20 20 72 65 61 6c 20 79 6d 64 61 79 2c 74 6d 73 2c 6d 64 61 79 2c 74 6d 73 31 3b 0a 20 20 69 6e 74 65 67 65 72 20 7d 72 2c 6d 2c 64 61 79 2c 74 ┆vtegn *> begin real ymday,tms,mday,tms1; integer år,m,day,t┆ 0x37b00…38400 (1, 36240) 73 65 66 65 6a 6c 3a 3e 2c 0a 3c 2a 31 34 2a 3e 20 20 20 20 20 20 20 20 3c 3a 6d 6f 64 65 2d 66 65 6a 6c 3a 3e 2c 0a 3c 2a 31 35 2a 3e 20 20 20 20 20 20 20 20 3c 3a 73 6b 72 69 76 65 72 69 6e ┆sefejl:>, <*14*> <:mode-fejl:>, <*15*> <:skriverin┆ 0x38400…38d00 (1, 36241) 6d 65 73 73 61 67 65 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 73 6b 72 69 76 5f 74 65 78 74 20 73 69 64 65 20 31 2e 20 6a 67 28 61 72 29 20 37 38 31 31 30 31 3b 0a 0a 69 6e 74 ┆message integer procedure skriv_text side 1. jg(ar) 781101; int┆ 0x38d00…39600 (1, 36242) 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 6e 61 76 6e 3b 0a 20 20 20 20 77 72 69 74 65 28 7a 75 64 2c 3c 3a 3c 31 30 3e 3a 3e 2c 73 74 72 2c 3c 3a 3c 31 30 3e 20 23 23 ┆ long array field inavn; write(zud,<:<10>:>,str,<:<10> ##┆ 0x39600…39f00 (1, 36243) 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 20 74 6f 70 20 74 72 61 6e 73 66 2e 3d 20 3a 3e 2c 73 68 64 65 73 63 72 28 31 32 29 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 20 69 3a 3d 69 20 6d 6f 64 ┆ <:<10> top transf.= :>,shdescr(12),nl,1); i:=i mod┆ 0x39f00…3a800 (1, 36244) 20 64 6f 6b 75 6d 65 6e 74 65 74 20 65 6b 73 69 73 74 65 72 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 6c 65 72 73 20 65 72 20 73 61 6d 74 6c 69 67 65 20 65 6c 65 6d 65 ┆ dokumentet eksisterer, ellers er samtlige eleme┆ 0x3a800…3b100 (1, 36245) 32 29 3b 0a 20 20 20 20 3c 2a 33 2a 3e 20 63 68 61 69 6e 68 65 61 64 28 6e 2b 6a 2d 31 29 3a 3d 69 61 28 6a 2d 31 29 20 65 78 74 72 61 63 74 20 31 32 20 73 68 69 66 74 20 28 2d 33 29 3b 0a 20 ┆2); <*3*> chainhead(n+j-1):=ia(j-1) extract 12 shift (-3); ┆ 0x3b100…3ba00 (1, 36246) 20 20 20 20 28 7d 72 20 6d 6f 64 20 31 30 30 29 2a 31 30 30 30 30 20 2b 20 6d 64 2a 31 30 30 20 2b 20 64 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (år mod 100)*10000 + md*100 + dg ┆ 0x3ba00…3c300 (1, 36247) 2e 20 61 74 20 6d 69 6e 64 73 74 20 62 65 74 79 64 65 6e 64 65 20 62 69 74 20 68 61 72 20 6e 75 6d 6d 65 72 20 30 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆. at mindst betydende bit har nummer 0. ┆ 0x3c300…3cc00 (1, 36248) 20 20 20 20 20 20 20 20 20 20 20 20 64 2e 76 2e 73 2e 20 62 69 74 5f 61 72 72 28 31 29 20 6f 6d 66 61 74 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ d.v.s. bit_arr(1) omfatter ┆ 0x3cc00…3d500 (1, 36249) 68 69 66 74 20 28 2d 6a 29 20 65 78 74 72 61 63 74 20 31 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 66 75 6e 6b 3d 32 20 74 68 65 6e 20 66 75 6e 6b 3a 3d 28 72 65 73 2b 31 29 20 65 78 74 72 61 ┆hift (-j) extract 1; if funk=2 then funk:=(res+1) extra┆ 0x3d500…3de00 (1, 36250) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 73 7b 74 73 6c 65 74 62 69 74 20 73 69 64 65 20 31 2e 20 61 72 20 37 38 31 30 32 34 20 76 65 72 73 69 6f 6e 20 31 3b 0a 0a 62 6f 6f 6c ┆ message procedure sætsletbit side 1. ar 781024 version 1; bool┆ 0x3de00…3e700 (1, 36251) 74 61 74 75 73 20 3a 3d 20 6c 6f 67 61 6e 64 28 73 74 61 74 75 73 2c 65 78 6f 72 28 65 78 74 65 6e 64 20 28 2d 31 29 2c 65 78 74 65 6e 64 20 31 20 73 68 69 66 74 20 62 69 74 29 29 3b 0a 20 20 ┆tatus := logand(status,exor(extend (-1),extend 1 shift bit)); ┆ 0x3e700…3f000 (1, 36252) 64 65 20 65 6e 6b 65 6c 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 65 74 72 65 20 70 7d 20 66 6f 72 6d 65 6e ┆de enkelte parametre på formen┆ 0x3f000…3f900 (1, 36253) 65 20 74 69 6c 20 65 6e 20 69 6b 6b 65 2d 65 6b 73 69 73 74 65 72 65 6e 64 65 20 70 61 72 61 6d 65 74 65 72 2e 20 64 65 20 74 69 6c 73 76 61 72 65 6e 64 65 20 65 6c 65 6d 65 6e 74 65 72 0a 69 ┆e til en ikke-eksisterende parameter. de tilsvarende elementer i┆ 0x3f900…40200 (1, 36254) 20 20 20 70 6f 73 69 74 69 76 74 20 67 72 75 6e 64 74 61 6c 20 61 6e 67 69 76 65 72 20 61 74 20 64 65 72 20 73 6b 61 6c 20 6b 6f 6e 76 65 72 74 65 72 65 73 20 66 72 61 20 62 69 6e 7b 72 20 0a ┆ positivt grundtal angiver at der skal konverteres fra binær ┆ 0x40200…40b00 (1, 36255) 6c 73 65 20 34 35 20 3c 2a 2d 2a 3e 3b 0a 20 20 20 20 76 7b 72 64 69 3a 3d 69 66 20 66 6f 72 74 65 67 6e 73 6c 7c 73 74 20 74 68 65 6e 20 65 78 74 65 6e 64 20 30 20 61 64 64 20 74 61 6c 20 65 ┆lse 45 <*-*>; værdi:=if fortegnsløst then extend 0 add tal e┆ 0x40b00…41400 (1, 36256) 0a 20 20 20 69 6e 67 65 6e 2e 0a 0a 20 20 20 6b 61 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 20 20 20 73 7b 74 73 6c 65 74 62 69 74 0a 20 20 20 2a 3e 0a 20 20 20 62 65 67 69 6e 0a 20 ┆ ingen. kaldte procedurer: sætsletbit *> begin ┆ 0x41400…41d00 (1, 36257) 72 73 74 20 70 7d 20 6c 69 6e 69 65 6e 20 75 64 73 6b 72 69 76 65 73 20 6e 72 20 70 7d 20 64 65 74 20 66 7c 72 73 74 65 20 65 6c 65 6d 65 6e 74 2c 20 64 65 72 20 75 64 73 6b 72 69 76 65 73 0a ┆rst på linien udskrives nr på det første element, der udskrives ┆ 0x41d00…42600 (1, 36258) 2e 20 74 65 73 74 62 69 74 20 3d 3a 3e 2c 74 65 73 74 62 69 74 6e 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6e 72 20 3d 3a 3e 2c 6e 72 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a ┆. testbit =:>,testbitnr, <: nr =:>,nr,<:<10>:>); ┆ 0x42600…42f00 (1, 36259) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 74 69 6d 65 74 6f 73 68 6f 72 74 20 73 69 64 65 20 31 2e 20 6a 67 2c 28 61 72 29 20 37 38 31 31 30 37 3b 0a 0a 0a 69 6e 74 65 67 65 72 ┆ message procedure timetoshort side 1. jg,(ar) 781107; integer┆ 0x42f00…43800 (1, 36260) 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 75 64 74 61 67 68 65 6c 74 61 6c 20 73 69 64 65 20 31 2e 20 61 72 20 37 38 31 32 30 35 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 ┆ message procedure udtagheltal side 1. ar 781205; integer proce┆ 0x43800…44100 (1, 36261) 6c 75 74 74 65 72 20 6b 6f 72 72 65 6b 74 2e 2a 3e 0a 20 20 20 20 20 20 69 61 28 67 72 7b 6e 73 65 29 20 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 3c 2a 20 6e 75 20 66 6c 79 74 74 65 73 20 66 65 ┆lutter korrekt.*> ia(grænse) := 0; <* nu flyttes fe┆ 0x44100…44a00 (1, 36262) 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 75 6e 6c 6f 61 64 6d 74 2c 20 73 69 64 65 20 31 20 2d 20 37 39 31 32 31 33 2f 63 6c 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 ┆message procedure unloadmt, side 1 - 791213/cl; integer procedu┆ 0x44a00…45300 (1, 36263) 20 2e 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 20 2e 2e 2e 2e 2e 2e 20 2e 2e 31 31 2e 2e 0a 2d 2d 2d 2d 0a 0a 6f 70 37 38 36 36 3a 0a 20 20 6f 70 73 69 7a 65 20 20 20 20 20 36 30 0a 20 20 6f 70 74 ┆ ...... ...... ...... ..11.. ---- op7866: opsize 60 opt┆ 0x45300…45c00 (1, 36264) 20 20 20 74 65 67 6e 20 20 20 74 65 6b 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 69 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 0a 20 20 20 31 20 20 31 38 33 30 20 20 20 33 ┆ tegn tekst bits 1 1830 3┆ 0x45c00…46500 (1, 36265) 2e 31 2e 31 31 2e 20 31 2e 31 2e 2e 31 20 31 2e 31 31 2e 2e 0a 20 20 20 34 20 20 20 35 31 34 20 20 20 20 37 35 20 20 20 32 31 30 35 34 31 39 20 20 20 33 32 20 20 33 32 20 20 37 35 20 21 20 20 ┆.1.11. 1.1..1 1.11.. 4 514 75 2105419 32 32 75 ! ┆ 0x46500…46e00 (1, 36266) 31 38 20 20 33 31 37 37 20 20 20 32 31 32 34 39 30 35 20 20 20 33 32 20 31 30 38 20 31 30 35 20 21 20 6c 69 21 20 20 2e 2e 31 2e 2e 2e 20 2e 2e 2e 31 31 2e 20 31 31 2e 2e 2e 31 20 31 2e 31 2e ┆18 3177 2124905 32 108 105 ! li! ..1... ...11. 11...1 1.1.┆