|
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: 96768 (0x17a00)
Names: »vtlo961120 «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »vtlo961120 «
Dumping the first 0x40 bytes of each record 0x00000…00900 (1, 15815) 6c ac 59 60 00 1e 00 00 00 00 00 00 0c fb 20 0c ff 60 ff ff f6 0b 16 a8 6c ac 5c 6a a0 1e 00 00 06 01 87 5e 40 30 01 00 00 00 00 00 00 00 00 00 6c ac 5c 6a e0 1e 00 00 06 01 87 78 40 30 02 00 ┆l Y` ` l Øj ^@0 l Øj x@0 ┆ 0x00900…01200 (1, 15816) 6c ac 5c 80 d0 1e 00 00 06 01 87 40 42 70 05 00 00 00 00 00 00 00 00 00 6c ac 5c 81 00 1e 00 00 06 01 87 7c 42 70 06 00 00 00 00 00 00 00 00 00 6c ac 5c 81 40 1e 00 00 06 01 87 7d 42 70 07 00 ┆l Ø @Bp l Ø øBp l Ø @ åBp ┆ 0x01200…01b00 (1, 15817) 6c ac 5d 77 60 1e 00 00 06 01 c7 54 44 50 02 00 00 00 00 00 00 00 00 00 6c ac 5d 77 a0 1e 00 00 06 01 c7 5c 44 50 07 00 00 00 00 00 00 00 00 00 6c ac 5d 77 f0 1e 00 00 06 01 c7 50 44 e0 01 00 ┆l Åw` TDP l Åw ØDP l Åw PD ┆ 0x01b00…02400 (1, 15818) 6c ac 5e 99 10 1e 00 00 05 00 07 3a 00 00 00 40 e0 08 00 00 00 00 00 00 6c ac 5e 9f 70 1e 00 00 05 00 04 e7 00 00 00 40 e0 09 00 00 00 00 00 00 6c ac 5e a1 d0 1e 00 00 05 00 07 b1 00 00 00 55 ┆l ^ : @ l ^ p @ l ^ U┆ 0x02400…02d00 (1, 15819) 6c ac 61 96 c0 1e 00 00 05 00 06 39 00 00 00 42 80 02 00 00 00 00 00 00 6c ac 61 9c e0 1e 00 00 05 00 06 45 00 00 00 42 80 03 00 00 00 00 00 00 6c ac 61 a3 70 1e 00 00 05 00 06 46 00 00 00 42 ┆l a 9 B l a E B l a p F B┆ 0x02d00…03600 (1, 15820) 6c ac 73 d7 40 1e 00 00 06 05 1a 1d 4a 50 10 00 00 00 00 00 00 00 00 00 6c ac 73 d7 70 1e 00 00 06 05 1a 1e 4a 50 13 00 00 00 00 00 00 00 00 00 6c ac 73 d7 c0 1e 00 00 06 05 17 cc 4a 70 11 00 ┆l s @ JP l s p JP l s Jp ┆ 0x03600…03f00 (1, 15821) 6c ac 78 66 60 1e 00 00 05 00 08 11 00 00 00 42 e0 02 00 00 00 00 00 00 6c ac 78 76 40 1e 00 00 05 00 08 46 00 00 00 41 f0 0b 00 00 00 00 00 00 6c ac 78 77 b0 1e 00 00 05 00 18 1a 00 00 00 49 ┆l xf` B l xv@ F A l xw I┆ 0x03f00…04800 (1, 15822) 6c ac 8e dd e0 1e 00 00 06 05 88 fc 4a e0 3d 00 00 00 00 00 00 00 00 00 6c ac 8e de 30 1e 00 00 06 05 88 fd 4a e0 3e 00 00 00 00 00 00 00 00 00 6c ac 8e de 70 1e 00 00 06 05 88 fe 4a e0 3f 00 ┆l J = l 0 J > l p J ? ┆ 0x04800…05100 (1, 15823) 6c ac 9e 14 b0 1e 00 00 05 00 09 60 00 00 00 4a e0 45 00 00 00 00 00 00 6c ac 9e 7b d0 1e 00 00 05 00 09 61 00 00 00 4a e0 46 00 00 00 00 00 00 6c ac 9e 87 80 1e 00 00 05 00 09 62 00 00 00 4a ┆l ` J E l æ a J F l b J┆ 0x05100…05a00 (1, 15824) 6c ac bb f9 40 1e 00 00 05 00 06 b5 00 00 00 48 b0 06 00 00 00 00 00 00 6c ac bc 06 90 1e 00 00 05 00 06 b6 00 00 00 62 70 01 00 00 00 00 00 00 6c ac bc 10 90 1e 00 00 05 00 06 d1 00 00 00 62 ┆l @ H l bp l b┆ 0x05a00…06300 (1, 15825) 6c ad 6d 7c d0 1e 00 00 06 01 86 eb 40 a0 10 00 00 00 00 00 00 00 00 00 6c ad 6d 87 80 1e 00 00 06 01 86 f5 41 00 0c 00 00 00 00 00 00 00 00 00 6c ad 6d 87 b0 1e 00 00 05 00 06 eb 00 00 00 41 ┆l mø @ l m A l m A┆ 0x06300…06c00 (1, 15826) 6c ae 09 5e 50 1e 00 00 06 01 87 75 40 30 09 00 00 00 00 00 00 00 00 00 6c ae 09 5e 80 1e 00 00 05 00 07 77 00 00 00 40 30 09 00 00 00 00 00 00 6c ae 0b 4f b0 1e 00 00 06 01 87 7c 40 30 0c 00 ┆l ^P u@0 l ^ w @0 l O ø@0 ┆ 0x06c00…07500 (1, 15827) 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6b 73 20 73 68 69 66 74 20 28 2d 6b 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 30 20 61 6e 64 20 6b 3c 6d 61 78 5f 61 6e 74 61 6c 5f 6b 61 6e 61 ┆ while ks shift (-k) extract 1 = 0 and k<max_antal_kana┆ 0x07500…07e00 (1, 15828) 61 6c 5f 75 64 73 6b 72 69 76 65 73 20 73 69 64 65 20 31 20 2d 20 39 34 30 35 32 32 2f 63 6c 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 73 6b 61 6c 5f 75 64 73 6b 72 69 76 ┆al_udskrives side 1 - 940522/cl; boolean procedure skal_udskriv┆ 0x07e00…08700 (1, 15829) 31 30 30 2e 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 6c 7b 73 62 69 74 5f 69 61 28 6f 70 6b 61 6c 64 73 6b 7c 2e 72 65 66 2e 6f 70 6b 61 6c 64 5f 6d 65 6c 64 74 2c 6e ┆100.0); if -, læsbit_ia(opkaldskø.ref.opkald_meldt,n┆ 0x08700…09000 (1, 15830) 72 61 74 69 6f 6e 20 66 72 61 20 63 73 3a 3e 2c 3c 3c 64 3e 2c 63 73 5f 6f 70 65 72 61 74 7c 72 28 6e 72 29 2c 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 3c ┆ration fra cs:>,<<d>,cs_operatør(nr), <┆ 0x09000…09900 (1, 15831) 65 66 2c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 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 3c 2a 20 30 3a 20 69 6b 6b 65 20 69 6d 70 6c 65 6d 65 ┆ef,-1); end; begin <* 0: ikke impleme┆ 0x09900…0a200 (1, 15832) 2f 66 6c 79 74 20 62 75 73 20 69 20 76 6f 67 6e 74 61 62 65 6c 20 2a 3e 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 6f 67 6e 3a 3d 69 61 28 31 29 3b 0a 20 20 20 20 20 20 20 ┆/flyt bus i vogntabel *> vogn:=ia(1); ┆ 0x0a200…0ab00 (1, 15833) 20 20 20 6f 70 5f 72 65 66 2c 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 6f 70 5f 6f 70 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ op_ref, op_optype, ┆ 0x0ab00…0b400 (1, 15834) 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 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 5f 6f 70 28 6e 72 29 2c 22 73 70 22 2c 28 62 6f 67 73 ┆ begin write(z_op(nr),"sp",(bogs┆ 0x0b400…0bd00 (1, 15835) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 47 45 2c 54 3a 3e 29 2c 3c 3a 20 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 69 66 20 28 72 6b 6f 6d ┆ <:GE,T:>),<: :>); if (rkom┆ 0x0bd00…0c600 (1, 15836) 72 6d 5f 73 74 61 74 75 73 28 74 69 6c 73 74 61 6e 64 2c 62 5f 76 2c 62 5f 73 2c 62 5f 73 5f 74 69 6c 73 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 20 64 ┆rm_status(tilstand,b_v,b_s,b_s_tilst); i:= d┆ 0x0c600…0cf00 (1, 15837) 74 68 65 6e 20 31 36 20 65 6c 73 65 0a 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 20 61 6e 64 20 73 74 61 74 75 73 3c 32 20 74 68 65 6e 20 ┆then 16 else if opgave=11 and status<2 then ┆ 0x0cf00…0d800 (1, 15838) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 52 27 20 73 68 69 66 74 20 31 32 20 2b 20 34 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'R' shift 12 + 44); ┆ 0x0d800…0e100 (1, 15839) 20 20 20 20 20 20 20 3c 3a 20 6f 70 65 72 61 74 7c 72 2c 72 61 64 69 6f 5f 6f 70 2c 72 65 73 75 6c 74 61 74 3a 3e 2c 31 29 3b 0a 3c 2a 2d 34 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <: operatør,radio_op,resultat:>,1); <*-4*> ┆ 0x0e100…0ea00 (1, 15840) 65 66 2e 64 61 74 61 28 35 29 3b 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 65 6e 64 3b 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 72 ┆ef.data(5); end; message procedure oper┆ 0x0ea00…0f300 (1, 15841) 20 20 20 20 20 20 69 61 66 3a 3d 20 28 69 2d 31 29 2a 6b 61 6e 61 6c 5f 62 65 73 6b 72 5f 6c 7b 6e 67 64 65 3b 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 ┆ iaf:= (i-1)*kanal_beskr_længde; ┆ 0x0f300…0fc00 (1, 15842) 20 27 44 27 20 73 68 69 66 74 20 31 32 20 2b 20 34 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 2e 69 61 66 2e 64 61 74 61 28 31 29 3a 3d 20 6f 70 5f 74 61 6c 65 ┆ 'D' shift 12 + 44); d.iaf.data(1):= op_tale┆ 0x0fc00…10500 (1, 15843) 74 61 28 31 32 29 20 73 68 69 66 74 20 28 2d 32 30 29 20 3d 20 31 34 20 74 68 65 6e 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 77 72 69 74 65 28 6f 75 74 ┆ta(12) shift (-20) = 14 then write(out┆ 0x10500…10e00 (1, 15844) 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6b 5f 61 6c 61 72 6d 2e 74 61 62 2e 61 6c 61 72 6d 5f 6b 6d 64 6f 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ opk_alarm.tab.alarm_kmdo:= 3; ┆ 0x10e00…11700 (1, 15845) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6f 72 28 7a 5f 6f 70 28 6e 72 29 2c 32 34 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 64 2e 6f ┆ cursor(z_op(nr),24,1); if d.o┆ 0x11700…12000 (1, 15846) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 5f 6f 70 28 6e 72 29 2c 22 65 73 63 22 20 61 64 64 20 31 32 38 2c 31 2c 3c 3a 5b 4b 3a 3e 2c 3c 3a 2b 3e 3a 3e 29 3b 0a ┆ write(z_op(nr),"esc" add 128,1,<:ÆK:>,<:+>:>); ┆ 0x12000…12900 (1, 15847) 70 65 2a 3e 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 65 6e 64 3b 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 69 66 20 72 65 73 ┆pe*> end; if res┆ 0x12900…13200 (1, 15848) 20 69 66 20 6c 32 32 20 74 68 65 6e 0a 20 20 20 20 20 20 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 20 20 20 20 20 20 63 75 72 73 6f 72 28 ┆ if l22 then begin cursor(┆ 0x13200…13b00 (1, 15849) 72 28 6e 72 29 2c 6f 70 5f 72 65 66 2c 6f 70 5f 6f 70 74 79 70 65 2c 2d 31 3c 2a 74 69 6d 65 6f 75 74 2a 3e 29 3b 0a 3c 2a 2b 32 2a 3e 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 61 62 6c 65 ┆r(nr),op_ref,op_optype,-1<*timeout*>); <*+2*> disable┆ 0x13b00…14400 (1, 15850) 20 70 5f 73 6b 72 65 76 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 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 ┆ p_skrevet then begin ┆ 0x14400…14d00 (1, 15851) 65 66 2c 67 65 6e 5f 6f 70 74 79 70 65 20 6f 72 20 6f 70 5f 6f 70 74 79 70 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 63 68 28 63 73 5f 6f 70 65 72 61 ┆ef,gen_optype or op_optype); waitch(cs_opera┆ 0x14d00…15600 (1, 15852) 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 62 70 6c 3a 3d 20 36 35 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 74 6f 70 5f 62 70 6c 5f 67 72 75 70 70 65 20 64 ┆=0; for bpl:= 65 step 1 until top_bpl_gruppe d┆ 0x15600…15f00 (1, 15853) 2a 63 61 73 65 20 6a 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 3c 2a 20 6a 20 3e 20 30 20 2a 3e 0a 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 ┆*case j *> end <* j > 0 *> else ┆ 0x15f00…16800 (1, 15854) 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6f 72 28 7a 5f 6f 70 28 6e 72 29 2c 31 2c 31 29 3b 0a 3c 2a 56 2a 3e 20 20 20 20 ┆i); end; cursor(z_op(nr),1,1); <*V*> ┆ 0x16800…17100 (1, 15855) 20 20 20 20 20 20 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 20 20 20 20 20 20 69 61 66 31 3a 3d 20 69 2a 74 65 72 6d 69 6e 61 6c 5f 62 65 ┆ begin iaf1:= i*terminal_be┆ 0x17100…17a00 (1, 15856) 20 20 20 20 20 20 20 20 20 20 62 70 6c 5f 74 69 6c 73 74 28 6b 2c 31 29 3a 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 3c 2a 2a 3e 20 3c 2a 20 20 0a 20 20 20 20 20 20 20 ┆ bpl_tilst(k,1):= n; end; <**> <* ┆