|
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 - metrics - download
Length: 580608 (0x8dc00)
Names: »ht8000 «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »ht8000 «
Dumping the first 0x20 bytes of each record 0x00000…00900 (1, 15062) 00 16 0b 00 00 00 00 03 e7 68 74 61 74 74 65 6e 74 69 6f 6e 00 00 00 53 64 69 73 63 31 00 00 00 ┆ htattention Sdisc1 ┆ 0x00900…01200 (1, 15063) 6e 74 61 6c 5f 6f 70 65 72 61 74 7c 72 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ntal_operatører ┆ 0x01200…01b00 (1, 15064) 3b 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 70 61 72 61 6d 20 73 69 64 65 20 ┆; message procedure param side ┆ 0x01b00…02400 (1, 15065) 29 20 3a 3d 20 61 6b 74 75 65 6c 5f 70 61 72 61 6d 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆) := aktuel_param(i); ┆ 0x02400…02d00 (1, 15066) 38 31 30 34 32 38 2f 63 6c 3b 0a 0a 20 20 20 20 20 20 3c 2a 20 63 61 73 65 20 33 20 2d 20 73 70 ┆810428/cl; <* case 3 - sp┆ 0x02d00…03600 (1, 15067) 2c 69 6e 74 29 20 20 69 6e 64 65 68 6f 6c 64 65 20 64 65 74 20 61 6e 67 69 76 6e 65 20 61 6e 74 ┆,int) indeholde det angivne ant┆ 0x03600…03f00 (1, 15068) 34 29 2c 20 20 20 20 20 20 20 20 20 3c 2a 20 76 7b 72 64 69 20 61 66 20 61 6b 74 75 65 6c 20 70 ┆4), <* værdi af aktuel p┆ 0x03f00…04800 (1, 15069) 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 67 72 75 70 70 65 6e 61 ┆en begin <* gruppena┆ 0x04800…05100 (1, 15070) 73 2e 74 61 6c 20 65 6c 6c 65 72 20 6c 69 6e 69 65 6e 72 20 2a 3e 0a 0a 20 20 20 20 20 20 20 20 ┆s.tal eller linienr *> ┆ 0x05100…05a00 (1, 15071) 20 69 66 20 74 28 31 29 3c 3e 35 20 6f 72 20 28 74 28 32 29 3c 3e 35 20 61 6e 64 20 74 28 32 29 ┆ if t(1)<>5 or (t(2)<>5 and t(2)┆ 0x05a00…06300 (1, 15072) 61 72 61 6d 2e 74 79 70 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆aram.type*> else ┆ 0x06300…06c00 (1, 15073) 20 20 20 20 20 20 20 65 6e 64 20 3c 2a 20 6e 72 3d 33 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 ┆ end <* nr=3 *> ┆ 0x06c00…07500 (1, 15074) 20 20 61 66 73 6c 75 74 5f 74 65 78 74 28 64 2e 6f 70 5f 72 65 66 2e 64 61 74 61 2c 61 70 6f 73 ┆ afslut_text(d.op_ref.data,apos┆ 0x07500…07e00 (1, 15075) 31 29 2c 76 7b 72 64 69 28 32 29 2c 76 7b 72 64 69 28 33 29 2c 76 7b 72 64 69 28 34 29 2c 0a 20 ┆1),værdi(2),værdi(3),værdi(4), ┆ 0x07e00…08700 (1, 15076) 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ begin if┆ 0x08700…09000 (1, 15077) 73 65 20 69 66 20 61 5f 72 65 73 3c 3e 31 20 74 68 65 6e 20 72 65 73 3a 3d 32 37 3c 2a 70 61 72 ┆se if a_res<>1 then res:=27<*par┆ 0x09000…09900 (1, 15078) 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ end el┆ 0x09900…0a200 (1, 15079) 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆ 0x0a200…0ab00 (1, 15080) 3c 2a 20 70 61 72 61 6d 65 74 65 72 74 79 70 65 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆<* parametertype *> ┆ 0x0ab00…0b400 (1, 15081) 0a 3c 2a 31 35 3a 20 3c 6c 69 6e 69 65 3e 2e 3c 69 6e 64 65 6b 73 3e 20 3c 62 75 73 3e 20 2a 3e ┆ <*15: <linie>.<indeks> <bus> *>┆ 0x0b400…0bd00 (1, 15082) 68 65 6e 20 72 65 73 3a 3d 20 32 35 20 3c 2a 70 61 72 61 6d 65 74 65 72 20 6d 61 6e 67 6c 65 72 ┆hen res:= 25 <*parameter mangler┆ 0x0bd00…0c600 (1, 15083) 20 32 35 20 3c 2a 70 61 72 61 6d 65 74 65 72 20 6d 61 6e 67 6c 65 72 2a 3e 0a 20 20 20 20 20 20 ┆ 25 <*parameter mangler*> ┆ 0x0c600…0cf00 (1, 15084) 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 61 28 32 29 3a 3d 20 66 69 6e ┆in ia(2):= fin┆ 0x0cf00…0d800 (1, 15085) 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆ 0x0d800…0e100 (1, 15086) 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆nd else ┆ 0x0e100…0ea00 (1, 15087) 3a 3e 2c 0a 3c 2a 34 31 2a 3e 3c 3a 73 70 72 69 6e 67 20 69 6b 6b 65 20 69 67 61 6e 67 73 61 74 ┆:>, <*41*><:spring ikke igangsat┆ 0x0ea00…0f300 (1, 15088) 6e 67 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ng); integer ┆ 0x0f300…0fc00 (1, 15089) 6f 70 74 61 67 65 74 3a 3d 6c 7b 73 62 69 74 5f 6c 28 61 74 74 5f 66 6c 61 67 2c 6a 29 3b 0a 20 ┆optaget:=læsbit_l(att_flag,j); ┆ 0x0fc00…10500 (1, 15090) 66 69 6c 73 79 73 74 65 6d 2e 0a 3a 31 3a 20 66 69 6c 73 79 73 74 65 6d 5f 70 61 72 61 6d 65 74 ┆filsystem. :1: filsystem_paramet┆ 0x10500…10e00 (1, 15091) 69 6c 72 65 66 20 69 20 66 64 69 6d 28 34 29 2c 75 64 64 61 74 61 20 66 64 69 6d 28 31 3a 38 29 ┆ilref i fdim(4),uddata fdim(1:8)┆ 0x10e00…11700 (1, 15092) 7a 3e 30 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 64 62 6b 61 ┆z>0 then begin if dbka┆ 0x11700…12000 (1, 15093) 32 2b 34 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6e 61 76 6e 28 31 29 3d 64 62 6b 61 74 65 2e 65 ┆2+4; if navn(1)=dbkate.e┆ 0x12000…12900 (1, 15094) 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 ┆ ┆ 0x12900…13200 (1, 15095) 28 7a 2c 32 29 3a 3d 64 62 6b 61 74 7a 28 7a 6e 6f 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆(z,2):=dbkatz(zno,2); ┆ 0x13200…13b00 (1, 15096) 28 69 29 29 29 2c 30 29 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6e 64 3b 0a 0c 6d ┆(i))),0) end end; m┆ 0x13b00…14400 (1, 15097) 73 68 69 66 74 20 28 2d 31 39 29 2c 0a 20 20 64 62 6b 61 74 65 28 69 2c 32 29 20 73 68 69 66 74 ┆shift (-19), dbkate(i,2) shift┆ 0x14400…14d00 (1, 15098) 64 75 72 65 20 70 66 64 69 6d 28 66 64 69 6d 29 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 ┆dure pfdim(fdim); integer array ┆ 0x14d00…15600 (1, 15099) 75 74 2c 3c 3a 3c 31 30 3e 6f 70 72 65 74 66 69 6c 3a 3a 3e 2c 73 74 61 74 75 73 2c 3c 3a 20 3a ┆ut,<:<10>opretfil::>,status,<: :┆ 0x15600…15f00 (1, 15100) 20 20 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 65 72 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ goto returner; end; ┆ 0x15f00…16800 (1, 15101) 64 20 74 69 6c 6b 6e 79 74 5f 66 69 6c 3b 0a 0c 6d 65 73 73 61 67 65 20 66 72 69 67 69 76 66 69 ┆d tilknyt_fil; message frigivfi┆ 0x16800…17100 (1, 15102) 20 20 20 74 61 69 6c 28 37 29 3a 3d 20 64 62 6b 61 74 65 28 66 6e 6f 2c 31 29 20 65 78 74 72 61 ┆ tail(7):= dbkate(fno,1) extra┆ 0x17100…17a00 (1, 15103) 3d 20 31 3b 20 67 6f 74 6f 20 72 65 74 75 72 6e 65 72 3b 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 ┆= 1; goto returner; end; if ┆ 0x17a00…18300 (1, 15104) 6e 20 66 65 6a 6c 72 65 61 6b 74 69 6f 6e 28 31 2c 73 2c 3c 3a 72 65 6d 6f 76 65 20 65 6e 74 72 ┆n fejlreaktion(1,s,<:remove entr┆ 0x18300…18c00 (1, 15105) 69 73 61 62 6c 65 20 62 65 67 69 6e 0a 0a 20 20 20 20 3c 2a 61 6c 6c 6f 6b 65 72 20 62 69 64 64 ┆isable begin <*alloker bidd┆ 0x18c00…19500 (1, 15106) 20 20 77 72 69 74 65 28 7a 2c 3c 3a 7a 64 3a 3a 3e 29 3b 20 73 6b 72 69 76 5f 68 65 6c 65 28 7a ┆ write(z,<:zd::>); skriv_hele(z┆ 0x19500…19e00 (1, 15107) 28 31 29 3b 0a 20 20 20 20 64 2e 6f 70 2e 64 61 74 61 28 34 29 3a 3d 20 33 20 73 68 69 66 74 20 ┆(1); d.op.data(4):= 3 shift ┆ 0x19e00…1a700 (1, 15108) 74 20 32 34 20 61 64 64 20 38 33 38 38 36 30 37 20 74 68 65 6e 0a 20 20 66 65 6a 6c 5f 72 65 61 ┆t 24 add 8388607 then fejl_rea┆ 0x1a700…1b000 (1, 15109) 67 61 72 61 67 65 2e 0a 0a 3a 31 3a 20 67 61 72 61 67 65 3a 20 70 61 72 61 6d 65 74 65 72 65 72 ┆garage. :1: garage: parameterer┆ 0x1b000…1b900 (1, 15110) 74 65 73 74 62 69 74 31 36 20 61 6e 64 20 6f 76 65 72 76 7d 67 65 74 20 20 6f 72 20 74 65 73 74 ┆testbit16 and overvåget or test┆ 0x1b900…1c200 (1, 15111) 2c 76 6f 67 6e 2c 22 6e 6c 22 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 20 6c 6c ┆,vogn,"nl",1, <: ll┆ 0x1c200…1cb00 (1, 15112) 38 31 30 34 32 34 2f 68 6b 6f 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 61 6b 74 69 6f 6e 2b 36 ┆810424/hko; case aktion+6┆ 0x1cb00…1d400 (1, 15113) 20 20 20 20 20 20 20 20 20 20 20 2d 31 3c 2a 74 69 6d 65 6f 75 74 20 73 65 6b 2a 3e 29 3b 0a 20 ┆ -1<*timeout sek*>); ┆ 0x1d400…1dd00 (1, 15114) 20 20 20 20 20 20 20 69 66 20 69 20 3d 20 30 20 6f 72 20 69 20 3e 20 33 20 74 68 65 6e 0a 20 20 ┆ if i = 0 or i > 3 then ┆ 0x1dd00…1e600 (1, 15115) 2c 22 6e 6c 22 2c 31 2c 22 2a 22 2c 37 37 2c 22 6e 6c 22 2c 31 29 3b 0a 0c 6d 65 73 73 61 67 65 ┆,"nl",1,"*",77,"nl",1); message┆ 0x1e600…1ef00 (1, 15116) 20 20 20 20 20 65 6e 64 3b 20 3c 2a 20 63 61 73 65 20 61 6b 74 69 6f 6e 2b 36 20 2a 3e 0a 0a 20 ┆ end; <* case aktion+6 *> ┆ 0x1ef00…1f800 (1, 15117) 69 6f 2e 0a 0a 3a 31 3a 20 69 6f 3a 20 70 61 72 61 6d 65 74 65 72 65 72 6b 6c 7b 72 69 6e 67 65 ┆io. :1: io: parametererklæringe┆ 0x1f800…20100 (1, 15118) 6e 74 65 67 65 72 20 6b 6f 64 65 2c 62 75 73 2c 6c 69 6e 69 65 2c 62 6f 67 73 74 2c 6c 7c 62 2c ┆nteger kode,bus,linie,bogst,løb,┆ 0x20100…20a00 (1, 15119) 2c 6b 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 70 6c 61 63 65 5f 63 68 61 72 28 31 2c 6c ┆,kl); replace_char(1,l┆ 0x20a00…21300 (1, 15120) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6d 66 61 6e 67 3b 0a 20 20 20 20 20 ┆ omfang; ┆ 0x21300…21c00 (1, 15121) 76 6c 69 67 20 74 69 6c 73 74 61 6e 64 20 2a 3e 0a 20 20 20 20 20 20 3c 2a 20 37 20 65 6a 20 6b ┆vlig tilstand *> <* 7 ej k┆ 0x21c00…22500 (1, 15122) 20 20 20 20 3c 2a 47 52 2c 44 2a 3e 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ <*GR,D*> else ┆ 0x22500…22e00 (1, 15123) 20 20 20 20 20 20 20 20 72 66 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ rf:= 4; ┆ 0x22e00…23700 (1, 15124) 20 74 65 73 74 62 69 74 36 20 3a 3d 20 74 72 75 65 3b 74 65 73 74 62 69 74 37 20 3a 3d 20 74 72 ┆ testbit6 := true;testbit7 := tr┆ 0x23700…24000 (1, 15125) 65 3b 74 65 73 74 62 69 74 32 36 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆e;testbit26:= false; ┆ 0x24000…24900 (1, 15126) 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 3c 2a 63 61 73 65 ┆nd; end;<*case┆ 0x24900…25200 (1, 15127) 20 62 6f 67 73 74 2b 27 41 27 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bogst+'A'-1; ┆ 0x25200…25b00 (1, 15128) 65 20 6f 6d 72 3a 3d 20 31 34 20 73 68 69 66 74 20 32 30 20 2b 20 33 3b 20 3c 2a 4f 4d 52 20 54 ┆e omr:= 14 shift 20 + 3; <*OMR T┆ 0x25b00…26400 (1, 15129) 7d 67 65 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 61 ┆åget then disa┆ 0x26400…26d00 (1, 15130) 20 20 70 6f 73 3a 3d 20 31 3b 20 6a 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pos:= 1; j:= 0; ┆ 0x26d00…27600 (1, 15131) 20 20 20 20 20 68 7b 67 74 5f 74 65 6b 73 74 28 64 2e 6f 70 5f 72 65 66 2e 64 61 74 61 2c 69 2c ┆ hægt_tekst(d.op_ref.data,i,┆ 0x27600…27f00 (1, 15132) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 69 6f 2d 6b 6f 6d 6d 61 6e 64 6f 28 67 ┆ <:io-kommando(g┆ 0x27f00…28800 (1, 15133) 7b 73 66 69 6c 28 64 2e 6f 70 5f 72 65 66 2e 64 61 74 61 28 32 29 2c 70 6f 73 2c 6a 29 3b 0a 20 ┆æsfil(d.op_ref.data(2),pos,j); ┆ 0x28800…29100 (1, 15134) 74 72 69 6e 67 20 28 65 78 74 65 6e 64 20 64 2e 6f 70 5f 72 65 66 2e 64 61 74 61 28 32 29 20 73 ┆tring (extend d.op_ref.data(2) s┆ 0x29100…29a00 (1, 15135) 65 78 74 72 61 63 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆extract 5; ┆ 0x29a00…2a300 (1, 15136) 20 20 73 6b 72 69 76 5f 6b 76 69 74 74 65 72 69 6e 67 28 7a 5f 69 6f 2c 6f 70 5f 72 65 66 2c 2d ┆ skriv_kvittering(z_io,op_ref,-┆ 0x2a300…2ac00 (1, 15137) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 ┆ end; message proc┆ 0x2ac00…2b500 (1, 15138) 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 77 68 69 6c 65 20 73 65 70 ┆ end while sep┆ 0x2b500…2be00 (1, 15139) 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 31 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"nl",1,"sp",13); ┆ 0x2be00…2c700 (1, 15140) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 61 6c 74 28 74 79 70 29 3a 3d 20 69 61 6c 74 28 74 ┆ ialt(typ):= ialt(t┆ 0x2c700…2d000 (1, 15141) 20 20 20 20 69 66 20 2d 2c 28 61 6c 61 72 6d 63 61 75 73 65 20 73 68 69 66 74 20 28 2d 32 34 29 ┆ if -,(alarmcause shift (-24)┆ 0x2d000…2d900 (1, 15142) 69 6f 5f 73 70 6f 6f 6c 28 7a 62 69 6c 6c 65 64 65 2c 31 29 3b 0a 20 20 20 20 65 6e 64 20 69 6f ┆io_spool(zbillede,1); end io┆ 0x2d900…2e200 (1, 15143) 34 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 64 69 73 61 62 6c 65 20 62 65 67 69 6e 0a 20 20 ┆46 then disable begin ┆ 0x2e200…2eb00 (1, 15144) 6c 3a 3d 20 6e 65 78 74 5f 73 65 6d 63 68 3b 0a 3c 2a 2b 33 2a 3e 20 73 6b 72 69 76 5f 6e 65 77 ┆l:= next_semch; <*+3*> skriv_new┆ 0x2eb00…2f400 (1, 15145) 61 72 72 61 79 20 63 6c 6f 63 6b 28 31 3a 33 29 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 65 76 65 6e ┆array clock(1:3); boolean even┆ 0x2f400…2fd00 (1, 15146) 20 20 20 20 20 20 20 20 34 20 3c 2a 20 74 69 6d 65 72 71 75 65 75 65 20 2a 3e 20 2b 0a 20 20 20 ┆ 4 <* timerqueue *> + ┆ 0x2fd00…30600 (1, 15147) 63 6f 75 6e 74 20 3e 20 6d 61 78 63 6f 72 75 20 74 68 65 6e 20 69 6e 69 74 65 72 72 6f 72 28 33 ┆count > maxcoru then initerror(3┆ 0x30600…30f00 (1, 15148) 74 65 6e 20 61 6e 64 0a 20 20 20 20 20 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 69 73 20 74 ┆ten and the execution is t┆ 0x30f00…31800 (1, 15149) 20 27 73 65 6d 61 70 68 6f 72 65 27 20 62 79 20 31 2e 0a 20 20 20 20 69 6e 20 63 61 73 65 20 73 ┆ 'semaphore' by 1. in case s┆ 0x31800…32100 (1, 15150) 20 20 20 20 69 66 20 6f 70 65 72 61 74 69 6f 6e 20 69 73 20 70 6f 73 69 74 69 76 65 20 61 6e 64 ┆ if operation is positive and┆ 0x32100…32a00 (1, 15151) 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 63 75 72 72 6f 70 ┆ begin link(currop┆ 0x32a00…33300 (1, 15152) 73 3a 3d 20 63 6f 75 6e 74 65 72 3b 0a 0a 3c 2a 2b 31 2a 3e 0a 3c 2a 2a 3e 20 20 69 66 20 28 64 ┆s:= counter; <*+1*> <**> if (d┆ 0x33300…33c00 (1, 15153) 63 65 76 65 6e 74 74 65 73 74 29 20 65 78 74 72 61 63 74 20 31 32 20 3c 3e 20 30 0a 3c 2a 2a 3e ┆ceventtest) extract 12 <> 0 <**>┆ 0x33c00…34500 (1, 15154) 6d 65 73 73 62 75 66 3b 0a 20 20 20 20 20 20 6d 65 73 73 62 75 66 3a 3d 20 6d 65 73 73 72 65 66 ┆messbuf; messbuf:= messref┆ 0x34500…34e00 (1, 15155) 72 61 79 20 66 69 65 6c 64 20 6f 70 3b 0a 20 20 20 20 20 20 6f 70 3a 3d 20 6f 70 65 72 61 74 69 ┆ray field op; op:= operati┆ 0x34e00…35700 (1, 15156) 20 20 20 20 20 20 20 20 64 2e 6f 62 6a 2e 6e 65 78 74 3a 3d 20 63 68 65 61 64 3b 0a 20 20 20 20 ┆ d.obj.next:= chead; ┆ 0x35700…36000 (1, 15157) 3c 2a 2a 3e 0a 3c 2a 2a 3e 20 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 5f 61 72 72 5f 76 61 ┆<**> <**> procedure test_arr_va┆ 0x36000…36900 (1, 15158) 65 72 65 64 20 2a 3e 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 63 6f 72 ┆ered *> integer procedure cor┆ 0x36900…37200 (1, 15159) 20 73 65 6d 61 70 68 6f 72 65 2c 6f 70 65 72 61 74 69 6f 6e 3b 0a 20 20 20 20 62 6f 6f 6c 65 61 ┆ semaphore,operation; boolea┆ 0x37200…37b00 (1, 15160) 20 20 20 20 69 66 20 2d 2c 6d 61 74 63 68 20 74 68 65 6e 20 63 75 72 72 6f 70 3a 3d 20 64 2e 63 ┆ if -,match then currop:= d.c┆ 0x37b00…38400 (1, 15161) 20 28 64 2e 63 75 72 72 65 6e 74 2e 63 6f 72 75 74 65 73 74 6d 61 73 6b 20 61 6e 64 20 63 65 76 ┆ (d.current.corutestmask and cev┆ 0x38400…38d00 (1, 15162) 64 6c 65 71 75 65 75 65 29 3b 0a 0a 3c 2a 2b 31 2a 3e 0a 3c 2a 2a 3e 20 20 20 20 20 20 20 20 20 ┆dlequeue); <*+1*> <**> ┆ 0x38d00…39600 (1, 15163) 78 74 72 61 63 74 20 32 34 20 3d 20 28 2d 39 29 20 3c 2a 20 62 72 65 61 6b 20 2a 3e 20 61 6e 64 ┆xtract 24 = (-9) <* break *> and┆ 0x39600…39f00 (1, 15164) 20 20 6f 70 74 79 70 65 3a 3d 20 6f 70 73 69 7a 65 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ optype:= opsize + 1; ┆ 0x39f00…3a800 (1, 15165) 6d 73 69 7a 65 20 2b 20 34 3b 0a 20 20 20 20 20 20 66 69 72 73 74 6f 70 3a 3d 20 6f 70 72 65 66 ┆msize + 4; firstop:= opref┆ 0x3a800…3b100 (1, 15166) 6f 70 65 72 61 74 7c 72 2e 0a 0a 3a 31 3a 20 6f 70 65 72 61 74 7c 72 3a 20 70 61 72 61 6d 65 74 ┆operatør. :1: operatør: paramet┆ 0x3b100…3ba00 (1, 15167) 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 7a 28 31 29 3a 3d 72 65 61 6c 20 ┆ begin z(1):=real ┆ 0x3ba00…3c300 (1, 15168) 3e 2c 0a 20 20 20 20 22 65 73 63 22 20 61 64 64 20 31 32 38 2c 31 2c 20 3c 3a 5c 3a 3e 2c 20 3c ┆>, "esc" add 128,1, <:Ø:>, <┆ 0x3c300…3cc00 (1, 15169) 20 20 20 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆ value o┆ 0x3cc00…3d500 (1, 15170) 0a 20 20 20 20 62 65 67 69 6e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 68 5f ┆ begin message procedure h_┆ 0x3d500…3de00 (1, 15171) 61 74 7c 72 3b 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 73 6b 7b 72 6d 73 74 ┆atør; message procedure skærmst┆ 0x3de00…3e700 (1, 15172) 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 67 72 75 70 70 65 2a ┆ end; begin <*gruppe*┆ 0x3e700…3f000 (1, 15173) 66 74 20 28 38 2a 69 29 20 65 78 74 72 61 63 74 20 38 29 2c 31 29 3b 0a 20 20 20 20 20 20 65 6e ┆ft (8*i) extract 8),1); en┆ 0x3f000…3f900 (1, 15174) 6e 72 2c 6b 2c 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 5f 6f 70 28 ┆nr,k,false); write(z_op(┆ 0x3f900…40200 (1, 15175) 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 3b 0a 20 20 20 20 62 65 67 69 ┆r nr; begi┆ 0x40200…40b00 (1, 15176) 61 6e 74 2d 35 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆ant-5); end else ┆ 0x40b00…41400 (1, 15177) 2c 20 2d 34 29 29 2c 0a 20 20 20 20 20 20 3c 2a 20 37 20 65 6a 20 6b 6e 79 74 74 65 74 20 20 20 ┆, -4)), <* 7 ej knyttet ┆ 0x41400…41d00 (1, 15178) 20 20 69 66 20 6b 6f 64 65 20 3d 20 33 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e ┆ if kode = 31 then┆ 0x41d00…42600 (1, 15179) 20 20 20 20 62 65 67 69 6e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 ┆ begin message procedure ope┆ 0x42600…42f00 (1, 15180) 61 63 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆act 5; if ┆ 0x42f00…43800 (1, 15181) 20 20 20 20 20 20 20 69 66 20 6b 6f 64 65 20 3d 20 34 38 20 3c 2a 4d 45 2c 47 2a 3e 20 74 68 65 ┆ if kode = 48 <*ME,G*> the┆ 0x43800…44100 (1, 15182) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 2e 6f 70 72 65 66 2e 64 61 74 61 28 33 29 ┆ d.opref.data(3)┆ 0x44100…44a00 (1, 15183) 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 ┆ ┆ 0x44a00…45300 (1, 15184) 34 20 3c 2a 6f 70 74 61 67 65 74 2a 3e 20 65 6c 73 65 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 ┆4 <*optaget*> else 0) ┆ 0x45300…45c00 (1, 15185) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆ else ┆ 0x45c00…46500 (1, 15186) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6f 70 67 61 76 65 3d 31 31 ┆ if opgave=11┆ 0x46500…46e00 (1, 15187) 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 6f 70 65 72 61 74 69 6f 6e 20 72 65 74 75 72 ┆ write(out,<: operation retur┆ 0x46e00…47700 (1, 15188) 63 68 28 63 73 5f 6f 70 65 72 61 74 7c 72 28 6e 72 29 2c 76 74 5f 6f 70 2c 6f 70 5f 6f 70 74 79 ┆ch(cs_operatør(nr),vt_op,op_opty┆ 0x47700…48000 (1, 15189) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 72 65 73 3d 30 20 74 ┆ else if res=0 t┆ 0x48000…48900 (1, 15190) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ end; ┆ 0x48900…49200 (1, 15191) 74 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 72 69 76 5f ┆t:>); skriv_┆ 0x49200…49b00 (1, 15192) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 73 74 72 69 6e 67 20 28 65 78 74 ┆ <:.:>,string (ext┆ 0x49b00…4a400 (1, 15193) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6c 3a 3d 66 69 6c 28 6a ┆ ll:=fil(j┆ 0x4a400…4ad00 (1, 15194) 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 73 7b 74 62 69 74 69 28 73 61 6d 74 61 6c 65 6b 7c 2c ┆ if sætbiti(samtalekø,┆ 0x4ad00…4b600 (1, 15195) 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 65 ┆ e┆ 0x4b600…4bf00 (1, 15196) 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 3c 2a 2d 32 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ end; <*-2*> if┆ 0x4bf00…4c800 (1, 15197) 20 20 20 20 74 65 72 6d 69 6e 61 6c 5f 74 61 62 2e 72 65 66 28 32 29 3a 3d 20 62 5f 73 3b 0a 20 ┆ terminal_tab.ref(2):= b_s; ┆ 0x4c800…4d100 (1, 15198) 63 61 73 65 20 61 6b 74 69 6f 6e 2b 36 20 2a 3e 0a 0a 20 20 20 20 20 75 6e 74 69 6c 20 66 61 6c ┆case aktion+6 *> until fal┆ 0x4d100…4da00 (1, 15199) 72 61 64 69 6f 2e 0a 0a 3a 31 3a 20 72 61 64 69 6f 3a 20 70 61 72 61 6d 65 74 65 72 65 72 6b 6c ┆radio. :1: radio: parametererkl┆ 0x4da00…4e300 (1, 15200) 20 20 3c 2a 20 72 61 64 69 6f 5f 6d 65 64 64 20 2a 3e 0a 20 20 20 20 20 2b 20 6d 61 78 5f 61 6e ┆ <* radio_medd *> + max_an┆ 0x4e300…4ec00 (1, 15201) 65 6e 20 6c 69 6e 69 65 2b 36 20 65 6c 73 65 20 6c 69 6e 69 65 29 2f 2f 36 3b 0a 20 20 20 20 20 ┆en linie+6 else linie)//6; ┆ 0x4ec00…4f500 (1, 15202) 20 20 20 20 20 69 66 20 62 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if b = 0 then begin┆ 0x4f500…4fe00 (1, 15203) 72 65 20 73 6b 72 69 76 5f 6f 70 6b 61 6c 64 73 6b 7c 20 73 69 64 65 20 31 20 2d 20 38 32 30 33 ┆re skriv_opkaldskø side 1 - 8203┆ 0x4fe00…50700 (1, 15204) 69 3b 0a 0a 20 20 20 20 77 72 69 74 65 28 7a 2c 22 6e 6c 22 2c 32 2c 22 2a 22 2c 35 2c 3c 3a 20 ┆i; write(z,"nl",2,"*",5,<: ┆ 0x50700…51000 (1, 15205) 49 4e 2c 4f 2f 45 4b 2c 4f 2f 49 4e 2c 52 2f 45 4b 2c 52 2f 46 4f 2c 4c 2f 46 4f 2c 47 2f 53 54 ┆IN,O/EK,O/IN,R/EK,R/FO,L/FO,G/ST┆ 0x51000…51900 (1, 15206) 20 74 74 6d 6d 3a 20 20 20 20 20 20 3a 3e 2c 74 74 6d 6d 2c 22 6e 6c 22 2c 31 2c 0a 20 20 20 20 ┆ ttmm: :>,ttmm,"nl",1, ┆ 0x51900…52200 (1, 15207) 0a 20 20 20 20 20 20 20 20 20 20 6f 6d 72 3a 3d 20 6f 70 6b 61 6c 64 73 6b 7c 2e 72 65 66 28 35 ┆ omr:= opkaldskø.ref(5┆ 0x52200…52b00 (1, 15208) 70 6b 61 6c 64 73 6b 7c 2e 6e 7b 73 74 65 28 31 29 3a 3d 20 6f 70 6b 61 6c 64 73 6b 7c 2e 6e 7b ┆pkaldskø.næste(1):= opkaldskø.næ┆ 0x52b00…53400 (1, 15209) 6b 61 6e 61 6c 5f 69 64 31 3a 3d 20 6b 61 6e 61 6c 74 61 62 2e 69 61 66 2e 6b 61 6e 61 6c 5f 69 ┆kanal_id1:= kanaltab.iaf.kanal_i┆ 0x53400…53d00 (1, 15210) 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 20 20 6f 70 65 72 61 74 7c 72 3a 3d 20 64 2e 6f 70 ┆t (-12); operatør:= d.op┆ 0x53d00…54600 (1, 15211) 6f 67 6e 20 73 68 69 66 74 20 28 2d 32 32 29 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ogn shift (-22) = 0 then ┆ 0x54600…54f00 (1, 15212) 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ *> begin ┆ 0x54f00…55800 (1, 15213) 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 2e 72 61 ┆ begin d.ra┆ 0x55800…56100 (1, 15214) 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 61 78 5f 61 6e 74 61 6c 5f 6b 61 6e 61 6c 65 ┆ 1 step 1 until max_antal_kanale┆ 0x56100…56a00 (1, 15215) 61 74 7c 72 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 66 72 69 67 69 76 20 ┆atør)); <* frigiv ┆ 0x56a00…57300 (1, 15216) 20 20 20 20 20 20 20 20 20 20 20 27 42 27 20 73 68 69 66 74 20 31 32 20 2b 20 36 30 29 3b 0a 20 ┆ 'B' shift 12 + 60); ┆ 0x57300…57c00 (1, 15217) 6f 70 72 65 66 2e 64 61 74 61 28 36 29 20 65 78 74 72 61 63 74 20 32 30 3b 0a 20 20 20 20 20 20 ┆opref.data(6) extract 20; ┆ 0x57c00…58500 (1, 15218) 20 20 20 20 20 20 20 20 66 6f 72 20 6b 3a 3d 20 35 2c 20 36 20 20 64 6f 0a 20 20 20 20 20 20 20 ┆ for k:= 5, 6 do ┆ 0x58500…58e00 (1, 15219) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0; ┆ 0x58e00…59700 (1, 15220) 20 20 3a 3e 2c 61 63 2c 22 6e 6c 22 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a ┆ :>,ac,"nl",1, <:┆ 0x59700…5a000 (1, 15221) 20 20 20 20 20 20 64 2e 76 74 5f 6f 70 2e 72 65 73 75 6c 74 61 74 3a 3d 20 30 3b 0a 20 20 20 20 ┆ d.vt_op.resultat:= 0; ┆ 0x5a000…5a900 (1, 15222) 70 6b 61 6c 64 20 62 75 73 20 69 20 6b 7c 2a 3e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 ┆pkald bus i kø*> message proced┆ 0x5a900…5b200 (1, 15223) 64 75 72 65 20 69 6e 64 73 7b 74 5f 6f 70 6b 61 6c 64 20 73 69 64 65 20 33 20 2d 20 38 31 30 36 ┆dure indsæt_opkald side 3 - 8106┆ 0x5b200…5bb00 (1, 15224) 27 44 27 29 3b 0a 20 20 20 20 20 20 61 6e 62 72 69 6e 67 74 61 6c 28 61 6e 73 77 2c 70 6f 73 2c ┆'D'); anbringtal(answ,pos,┆ 0x5bb00…5c400 (1, 15225) 64 73 6b 7c 5f 6c 65 64 69 67 65 20 2b 20 31 3b 0a 20 20 20 20 20 20 69 66 20 74 3d 32 20 74 68 ┆dskø_ledige + 1; if t=2 th┆ 0x5c400…5cd00 (1, 15226) 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 7b 73 74 65 67 6e 28 74 6c 67 72 2c 70 6f 73 2c 74 65 ┆ læstegn(tlgr,pos,te┆ 0x5cd00…5d600 (1, 15227) 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 73 3c 3e 27 5a 27 20 61 6e 64 20 ┆ if bs<>'Z' and ┆ 0x5d600…5df00 (1, 15228) 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xtract 4; ┆ 0x5df00…5e800 (1, 15229) 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 5f 66 72 5f 6f 75 74 2c 30 ┆ setposition(z_fr_out,0┆ 0x5e800…5f100 (1, 15230) 77 68 69 6c 65 20 69 20 3c 20 70 6f 73 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆while i < pos do s┆ 0x5f100…5fa00 (1, 15231) 20 20 20 20 20 20 20 20 73 69 67 6e 61 6c 62 69 6e 28 62 73 5f 6d 6f 62 69 6c 5f 6f 70 6b 61 6c ┆ signalbin(bs_mobil_opkal┆ 0x5fa00…60300 (1, 15232) 44 27 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 74 65 ┆D' then begin <*te┆ 0x60300…60c00 (1, 15233) 28 64 2e 6f 70 72 65 66 2e 64 61 74 61 2c 69 2c 73 74 72 69 6e 67 20 6b 61 6e 61 6c 5f 6e 61 76 ┆(d.opref.data,i,string kanal_nav┆ 0x60c00…61500 (1, 15234) 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 61 6c 63 68 28 64 2e 6f 70 72 65 66 2e 72 65 74 75 72 ┆ signalch(d.opref.retur┆ 0x61500…61e00 (1, 15235) 20 20 20 61 63 3a 3d 20 32 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 3a 3d 20 31 3b ┆ ac:= 2; pos:= 1;┆ 0x61e00…62700 (1, 15236) 61 72 74 6f 70 65 72 61 74 69 6f 6e 28 6f 70 72 65 66 2c 34 30 31 2c 63 73 5f 72 61 64 69 6f 5f ┆artoperation(opref,401,cs_radio_┆ 0x62700…63000 (1, 15237) 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 70 6f 73 3a 3d 20 69 ┆ begin pos:= i┆ 0x63000…63900 (1, 15238) 61 64 5f 75 64 5f 69 6e 70 75 74 2c 69 6f 5f 6f 70 72 65 66 2c 72 61 64 5f 6f 70 74 79 70 65 2c ┆ad_ud_input,io_opref,rad_optype,┆ 0x63900…64200 (1, 15239) 65 66 2e 64 61 74 61 28 35 29 29 2b 27 40 27 29 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ef.data(5))+'@'); ┆ 0x64200…64b00 (1, 15240) 3a 3d 20 64 2e 69 6f 5f 6f 70 72 65 66 2e 72 65 73 75 6c 74 61 74 3b 0a 20 20 20 20 20 20 20 20 ┆:= d.io_opref.resultat; ┆ 0x64b00…65400 (1, 15241) 6c 65 72 65 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 61 6c 63 68 28 64 2e 6f 70 ┆leret *> signalch(d.op┆ 0x65400…65d00 (1, 15242) 64 5f 6f 70 74 79 70 65 29 3b 0a 3c 2a 56 2a 3e 20 20 20 20 20 20 20 77 61 69 74 5f 63 68 28 63 ┆d_optype); <*V*> wait_ch(c┆ 0x65d00…66600 (1, 15243) 72 61 70 29 3b 0a 20 20 20 20 20 20 73 74 61 63 6b 5f 63 6c 61 69 6d 28 28 69 66 20 63 6d 5f 74 ┆rap); stack_claim((if cm_t┆ 0x66600…66f00 (1, 15244) 78 5f 63 69 66 66 65 72 28 6f 70 6b 61 6c 64 73 5f 6b 7c 2e 69 61 66 2c 31 2c 6f 70 65 72 61 74 ┆x_ciffer(opkalds_kø.iaf,1,operat┆ 0x66f00…67800 (1, 15245) 31 29 20 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆1) extract 2; if┆ 0x67800…68100 (1, 15246) 74 72 61 63 74 20 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7b 74 62 69 74 69 28 ┆tract 1); sætbiti(┆ 0x68100…68a00 (1, 15247) 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 64 2e 6f 70 72 65 66 2e 72 65 73 ┆ end; d.opref.res┆ 0x68a00…69300 (1, 15248) 2c 6c 67 64 2c 74 65 67 6e 29 3c 3e 30 20 64 6f 20 3b 0a 20 20 20 20 6c 67 64 3a 3d 20 6c 67 64 ┆,lgd,tegn)<>0 do ; lgd:= lgd┆ 0x69300…69c00 (1, 15249) 72 69 6f 72 69 74 65 74 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 75 65 3c ┆rioritet*> true<┆ 0x69c00…6a500 (1, 15250) 69 76 5f 6e 65 77 61 63 74 69 76 69 74 79 28 6f 75 74 2c 69 2c 6a 29 3b 0a 3c 2a 2d 33 2a 3e 0a ┆iv_newactivity(out,i,j); <*-3*> ┆ 0x6a500…6ae00 (1, 15251) 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 0c 6d 65 73 73 61 67 65 20 72 61 64 69 6f 5f 69 6e 69 74 69 ┆d; end; message radio_initi┆ 0x6ae00…6b700 (1, 15252) 73 79 73 74 65 6d 6d 6f 64 75 6c 2e 0a 3a 31 3a 20 73 79 73 3a 20 70 61 72 61 6d 65 74 65 72 65 ┆systemmodul. :1: sys: parametere┆ 0x6b700…6c000 (1, 15253) 20 31 34 3b 0a 0a 74 65 73 74 62 69 74 30 20 3a 3d 74 65 73 74 62 69 74 28 20 30 29 3b 0a 74 65 ┆ 14; testbit0 :=testbit( 0); te┆ 0x6c000…6c900 (1, 15254) 3a 3d 69 2b 32 3b 20 20 72 65 74 75 72 3a 3d 69 3b 0a 20 20 69 3a 3d 69 2b 32 3b 20 20 6f 70 6b ┆:=i+2; retur:=i; i:=i+2; opk┆ 0x6c900…6d200 (1, 15255) 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6d 72 3b 0a 20 20 ┆lue omr; ┆ 0x6d200…6db00 (1, 15256) 20 20 20 69 66 20 73 65 6d 3e 30 20 74 68 65 6e 20 73 69 67 6e 61 6c 5f 63 68 28 73 65 6d 2c 6f ┆ if sem>0 then signal_ch(sem,o┆ 0x6db00…6e400 (1, 15257) 6e 61 6c 3b 20 69 6e 74 65 67 65 72 20 6b 61 6e 61 6c 3b 0a 62 65 67 69 6e 0a 20 20 6b 61 6e 61 ┆nal; integer kanal; begin kana┆ 0x6e400…6ed00 (1, 15258) 2c 20 32 29 29 20 73 68 69 66 74 20 35 20 2b 0a 20 20 20 20 28 63 61 73 65 20 69 20 6f 66 20 28 ┆, 2)) shift 5 + (case i of (┆ 0x6ed00…6f600 (1, 15259) 3b 0a 20 20 74 6f 66 72 6f 6d 28 6f 70 6b 61 6c 64 73 5f 74 7b 6c 6c 65 72 65 2c 66 69 6c 28 6b ┆; tofrom(opkalds_tællere,fil(k┆ 0x6f600…6ff00 (1, 15260) 20 20 20 22 6e 6c 22 2c 31 2c 3c 3a 66 69 6c 6c 7b 73 74 3d 20 20 20 3a 3e 2c 66 69 6c 6c 7b 73 ┆ "nl",1,<:fillæst= :>,fillæs┆ 0x6ff00…70800 (1, 15261) 74 20 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 3c 2a 20 73 70 ┆t 1); end else <* sp┆ 0x70800…71100 (1, 15262) 20 20 20 20 20 20 20 69 66 20 69 3d 30 20 74 68 65 6e 20 3c 3a 6e 65 75 74 72 61 6c 3a 3e 20 65 ┆ if i=0 then <:neutral:> e┆ […truncated at 200 lines…]