|
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: 193536 (0x2f400)
Names: »tcldprocbib «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »tcldprocbib «
0x00000…00030 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 ┆ Q n wafsluttextx disc c ┆
0x00030…00060 00 00 00 00 72 50 00 00 5a 00 00 63 61 66 76 65 6e 74 62 7d 6e 74 78 00 00 00 0e 64 69 73 63 00 00 00 00 00 00 00 00 77 61 f6 00 00 00 00 00 00 ┆ rP Z cafventbåntx disc wa ┆
0x00060…00090 00 00 00 00 00 00 01 51 40 00 00 6e 00 00 77 61 6c 66 61 62 65 74 74 78 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 6e a2 0b 00 00 00 ┆ Q@ n walfabettx disc n ┆
0x00090…000c0 00 00 00 00 00 00 00 00 00 01 71 10 00 00 d2 00 00 db 61 6e 62 72 69 6e 67 68 65 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 75 c7 8b ┆ q anbringhetx disc u ┆
0x000c0…000f0 00 00 00 00 00 00 00 00 00 00 00 00 01 b2 d0 00 00 6e 00 00 77 61 6e 62 72 69 6e 67 74 61 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 ┆ n wanbringtatx disc ┆
0x000f0…00120 66 54 e4 00 00 00 00 00 00 00 00 00 00 00 00 01 f6 80 00 00 c8 00 00 d2 62 65 6c 74 78 00 00 00 00 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 ┆fT beltx disc ┆
0x00120…00150 00 00 00 67 36 16 00 00 00 00 00 00 00 00 00 00 00 00 02 16 88 00 00 6e 00 00 77 62 69 6e 7b 72 73 7c 67 74 78 00 00 00 00 05 64 69 73 63 00 00 ┆ g6 n wbinærsøgtx disc ┆
0x00150…00180 00 00 00 00 00 00 63 e9 d6 00 00 00 00 00 00 00 00 00 00 00 00 02 61 58 00 00 0a 00 00 13 63 68 65 63 6b 62 61 73 65 74 78 00 00 00 03 64 69 73 ┆ c aX checkbasetx dis┆
0x00180…001b0 63 00 00 00 00 00 00 00 00 6a 0f c4 00 00 00 00 00 00 00 00 00 00 00 00 02 94 e8 00 00 6f 00 00 70 63 68 65 63 6b 64 61 74 6f 74 78 00 00 00 02 ┆c j o pcheckdatotx ┆
0x001b0…001e0 64 69 73 63 00 00 00 00 00 00 00 00 65 a0 29 00 00 00 00 00 00 00 00 00 00 00 00 02 b6 a8 00 00 c8 00 00 d2 63 6c 64 70 72 6f 63 62 69 74 78 00 ┆disc e ) cldprocbitx ┆
0x001e0…00210 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 4d 00 00 00 00 00 00 00 00 00 00 00 00 02 d2 70 00 00 5a 00 00 63 63 6c 6f 73 65 66 70 74 78 ┆ disc 7M p Z cclosefptx┆
0x00210…00240 00 00 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 6b 0f 6a 00 00 00 00 00 00 00 00 00 00 00 00 03 23 40 00 00 5a 00 00 63 63 6f 6e 6e 65 63 ┆ disc k j #@ Z cconnec┆
0x00240…00270 74 69 6e 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 72 e0 8a 00 00 00 00 00 00 00 00 00 00 00 00 03 52 b0 00 0b d6 00 0b df 66 69 6e ┆tintx disc r R fin┆
0x00270…002a0 64 66 70 70 61 72 74 78 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 63 85 29 00 00 00 00 00 00 00 00 00 00 00 00 03 a0 78 00 00 6e 00 00 77 ┆dfppartx disc c ) x n w┆
0x002a0…002d0 66 70 6f 75 74 70 75 74 74 78 00 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 69 2c fa 00 00 00 00 00 00 00 00 00 00 00 00 03 d0 b0 00 00 6e ┆fpoutputtx disc i, n┆
0x002d0…00300 00 00 77 66 70 70 61 72 61 6d 74 78 00 00 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 e9 d8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 ┆ wfpparamtx disc c D┆
0x00300…00330 04 03 c2 00 00 0a 00 00 13 66 70 70 61 72 67 72 75 70 74 78 00 00 00 08 64 69 73 63 00 00 00 00 00 00 00 00 75 b2 98 00 00 00 00 00 00 00 00 00 ┆ fppargruptx disc u ┆
0x00330…00360 00 00 00 04 82 4a 00 00 0a 00 00 13 66 70 70 61 72 6d 61 6e 74 74 78 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 71 30 fd 00 00 00 00 00 00 ┆ J fpparmanttx disc q0 ┆
0x00360…00390 00 00 00 00 00 00 04 90 9a 00 00 0a 00 00 13 66 70 70 61 72 6d 6c 69 73 74 78 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 71 31 56 00 00 00 ┆ fpparmlistx disc q1V ┆
0x00390…003c0 00 00 00 00 00 00 00 00 00 04 f1 90 00 00 00 00 4e 1f 67 63 6c 64 70 72 6f 63 62 69 62 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 9b 9c fb ┆ N gcldprocbib disc ┆
0x003c0…003f0 00 00 00 00 00 00 00 00 00 00 00 00 05 43 b8 00 00 6e 00 00 77 67 65 74 62 73 64 65 76 69 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 ┆ C n wgetbsdevitx disc ┆
0x003f0…00420 67 8a f0 00 00 00 00 00 00 00 00 00 00 00 00 05 82 03 00 00 0a 00 00 c7 68 61 73 68 6e 7c 67 6c 65 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 ┆g hashnøgletx disc ┆
0x00420…00450 00 00 00 76 02 8f 00 00 00 00 00 00 00 00 00 00 00 00 05 a3 3b 00 00 0a 00 00 13 68 6e 61 76 6e 74 78 00 00 00 00 00 00 00 03 64 69 73 63 00 00 ┆ v ; hnavntx disc ┆
0x00450…00480 00 00 00 00 00 00 68 cb 79 00 00 00 00 00 00 00 00 00 00 00 00 05 d2 8b 00 00 00 00 03 e7 68 7b 67 74 73 68 6f 72 74 74 78 00 00 00 03 64 69 73 ┆ h y hægtshorttx dis┆
0x00480…004b0 63 00 00 00 00 00 00 00 00 66 a8 a0 00 00 00 00 00 00 00 00 00 00 00 00 06 01 18 00 00 6e 00 00 77 68 7b 67 74 73 74 72 69 6e 74 78 00 00 00 03 ┆c f n whægtstrintx ┆
0x004b0…004e0 64 69 73 63 00 00 00 00 00 00 00 00 66 54 e7 00 00 00 00 00 00 00 00 00 00 00 00 06 35 c8 00 00 6e 00 00 77 68 7b 67 74 74 65 6b 73 74 74 78 00 ┆disc fT 5 n whægtteksttx ┆
0x004e0…00510 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 63 b2 34 00 00 00 00 00 00 00 00 00 00 00 00 06 71 e0 00 00 c8 00 00 d2 69 6e 74 67 74 78 00 00 00 ┆ disc c 4 q intgtx ┆
0x00510…00540 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 89 00 00 00 00 00 00 00 00 00 00 00 00 06 80 c8 00 0b d6 00 0b df 6c 69 6e 6a 65 73 ┆ disc 7 linjes┆
0x00540…00570 6c 75 74 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 37 00 00 00 00 00 00 00 00 00 00 00 00 06 a5 40 00 00 00 00 03 e7 6c 7b 73 ┆luttx disc c 7 @ læs┆
0x00570…005a0 62 69 74 69 61 74 78 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 3e 00 00 00 00 00 00 00 00 00 00 00 00 06 b3 50 00 00 00 00 03 e7 ┆bitiatx disc 7> P ┆
0x005a0…005d0 6c 7b 73 62 69 74 69 74 78 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 3c 00 00 00 00 00 00 00 00 00 00 00 00 06 c6 50 00 00 00 ┆læsbititx disc 7< P ┆
0x005d0…00600 00 03 e7 6c 7b 73 62 69 74 6c 74 78 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 3d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 ┆ læsbitltx disc 7= D┆
0x00600…00630 06 d7 88 00 00 6e 00 00 77 6c 7b 73 68 65 6c 74 61 6c 74 78 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 63 bd 15 00 00 00 00 00 00 00 00 00 ┆ n wlæsheltaltx disc c ┆
0x00630…00660 00 00 00 07 33 30 00 00 d2 00 00 db 6c 7b 73 68 65 78 74 78 00 00 00 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 75 c7 fa 00 00 00 00 00 00 ┆ 30 læshextx disc u ┆
0x00660…00690 00 00 00 00 00 00 07 92 70 00 0b d6 00 0b df 6c 7b 73 74 65 67 6e 74 78 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 38 00 00 00 ┆ p læstegntx disc c 8 ┆
0x00690…006c0 00 00 00 00 00 00 00 00 00 07 b0 70 00 0b d6 00 0b df 6c 7b 73 74 65 78 74 74 78 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 38 ┆ p læstexttx disc c 8┆
0x006c0…006f0 00 00 00 00 00 00 00 00 00 00 00 00 07 d1 e0 00 00 6f 00 00 70 6d 61 6b 72 6f 70 72 6f 63 74 78 00 00 00 08 64 69 73 63 00 00 00 00 00 00 00 00 ┆ o pmakroproctx disc ┆
0x006f0…00720 6b 08 db 00 00 00 00 00 00 00 00 00 00 00 00 08 52 52 00 00 0a 00 00 13 6d 6f 6e 69 74 6f 72 63 61 74 78 00 00 00 01 64 69 73 63 00 00 00 00 00 ┆k RR monitorcatx disc ┆
0x00720…00750 00 00 00 62 a9 56 00 00 00 00 00 00 00 00 00 00 00 00 08 62 82 00 00 0a 00 00 13 6d 6f 6e 69 74 6f 72 65 72 74 78 00 00 00 01 64 69 73 63 00 00 ┆ b V b monitorertx disc ┆
0x00750…00780 00 00 00 00 00 00 62 a9 68 00 00 00 00 00 00 00 00 00 00 00 00 08 73 70 00 00 6e 00 00 77 6f 70 65 6e 62 73 74 78 00 00 00 00 00 00 03 64 69 73 ┆ b h sp n wopenbstx dis┆
0x00780…007b0 63 00 00 00 00 00 00 00 00 69 25 e5 00 00 00 00 00 00 00 00 00 00 00 00 08 a2 9b 00 00 5a 00 00 63 6f 70 65 6e 66 70 74 78 00 00 00 00 00 00 08 ┆c i% Z copenfptx ┆
0x007b0…007e0 64 69 73 63 00 00 00 00 00 00 00 00 6b 08 35 00 00 00 00 00 00 00 00 00 00 00 00 09 22 c8 00 00 00 00 03 e7 72 65 77 69 6e 64 6d 74 74 78 00 00 ┆disc k 5 " rewindmttx ┆
0x007e0…00810 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 6e c1 b5 00 00 00 00 00 00 00 00 00 00 00 00 09 43 18 00 00 6e 00 00 77 73 68 6f 72 74 74 6f 74 69 ┆ disc n C n wshorttoti┆
0x00810…00840 74 78 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 63 ab c1 00 00 00 00 00 00 00 00 00 00 00 00 09 52 d0 00 00 6f 00 00 70 73 6b 72 69 76 64 ┆tx disc c R o pskrivd┆
0x00840…00870 61 74 6f 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 b8 13 00 00 00 00 00 00 00 00 00 00 00 00 09 83 20 00 00 0a 00 00 13 73 6b 72 ┆atotx disc c skr┆
0x00870…008a0 69 76 65 6e 74 72 74 78 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 6a 27 b2 00 00 00 00 00 00 00 00 00 00 00 00 09 d1 fb 00 00 0a 00 00 13 ┆iventrtx disc j' ┆
0x008a0…008d0 73 6b 72 69 76 68 65 6c 65 74 78 00 00 00 07 64 69 73 63 00 00 00 00 00 00 00 00 79 e4 a0 00 00 00 00 00 00 00 00 00 00 00 00 0a 42 40 00 00 00 ┆skrivheletx disc y B@ ┆
0x008d0…00900 00 4e 1f 73 6b 72 69 76 70 72 6f 63 74 78 00 00 00 0a 64 69 73 63 00 00 00 00 00 00 00 00 9b 9c 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 ┆ N skrivproctx disc D┆
0x00900…00930 0a e4 80 00 00 6f 00 00 70 73 6b 72 69 76 73 68 6f 72 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 b8 12 00 00 00 00 00 00 00 00 00 ┆ o pskrivshortx disc c ┆
0x00930…00960 00 00 00 0b 10 88 00 00 00 00 03 e7 73 6b 72 69 76 73 74 61 74 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 9b 8b 0a 00 00 00 00 00 00 ┆ skrivstattx disc ┆
0x00960…00990 00 00 00 00 00 00 0b 35 a8 00 0b d6 00 0b df 73 6b 72 69 76 74 65 67 6e 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 3b 00 00 00 ┆ 5 skrivtegntx disc c ; ┆
0x00990…009c0 00 00 00 00 00 00 00 00 00 0b 55 60 00 0b d6 00 0b df 73 6b 72 69 76 74 65 78 74 74 78 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 43 ┆ U` skrivtexttx disc c C┆
0x009c0…009f0 00 00 00 00 00 00 00 00 00 00 00 00 0b 74 08 00 00 6e 00 00 77 73 6b 72 69 76 7a 62 65 73 74 78 00 00 00 05 64 69 73 63 00 00 00 00 00 00 00 00 ┆ t n wskrivzbestx disc ┆
0x009f0…00a20 64 04 9a 00 00 00 00 00 00 00 00 00 00 00 00 0b c0 92 00 00 0a 00 00 13 73 6c 69 63 65 73 74 78 00 00 00 00 00 00 07 64 69 73 63 00 00 00 00 00 ┆d slicestx disc ┆
0x00a20…00a50 00 00 00 67 f6 b3 00 00 00 00 00 00 00 00 00 00 00 00 0c 38 68 00 00 5a 00 00 63 73 79 73 74 69 64 74 78 00 00 00 00 00 00 03 64 69 73 63 00 00 ┆ g 8h Z csystidtx disc ┆
0x00a50…00a80 00 00 00 00 00 00 65 54 37 00 00 00 00 00 00 00 00 00 00 00 00 0c 63 58 00 00 00 00 03 e7 73 7b 74 62 69 74 62 74 78 00 00 00 00 00 03 64 69 73 ┆ eT7 cX sætbitbtx dis┆
0x00a80…00ab0 63 00 00 00 00 00 00 00 00 8a 37 38 00 00 00 00 00 00 00 00 00 00 00 00 0c 93 c0 00 00 00 00 03 e7 73 7b 74 62 69 74 69 61 74 78 00 00 00 00 02 ┆c 78 sætbitiatx ┆
0x00ab0…00ae0 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 3c 00 00 00 00 00 00 00 00 00 00 00 00 0c b1 d0 00 00 00 00 03 e7 73 7b 74 62 69 74 69 74 78 00 00 00 ┆disc 7< sætbititx ┆
0x00ae0…00b10 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 39 00 00 00 00 00 00 00 00 00 00 00 00 0c e4 d0 00 00 00 00 03 e7 73 7b 74 62 69 74 6c 74 78 ┆ disc 79 sætbitltx┆
0x00b10…00b40 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 8a 37 3a 00 00 00 00 00 00 00 00 00 00 00 00 0d 03 f8 00 00 6e 00 00 77 73 7b 74 73 6c 65 ┆ disc 7: n wsætsle┆
0x00b40…00b70 74 62 69 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 63 50 43 00 00 00 00 00 00 00 00 00 00 00 00 0d 42 30 00 00 d2 00 00 db 73 7c 67 ┆tbitx disc cPC B0 søg┆
0x00b70…00ba0 66 70 67 72 75 70 74 78 00 00 00 07 64 69 73 63 00 00 00 00 00 00 00 00 75 b2 9d 00 00 00 00 00 00 00 00 00 00 00 00 0d b3 e8 00 00 6e 00 00 77 ┆fpgruptx disc u n w┆
0x00ba0…00bd0 74 61 6c 74 65 6b 73 74 74 78 00 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 63 e9 df 00 00 00 00 00 00 00 00 00 00 00 00 0e 17 10 00 00 6e ┆talteksttx disc c n┆
0x00bd0…00c00 00 00 77 74 65 73 74 69 6e 69 74 74 78 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 50 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 ┆ wtestinittx disc cPQ D┆
0x00c00…00c30 0e 30 38 00 00 6e 00 00 77 74 65 73 74 73 6b 72 69 76 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 e9 e0 00 00 00 00 00 00 00 00 00 ┆ 08 n wtestskrivtx disc c ┆
0x00c30…00c60 00 00 00 0e 65 00 00 00 6e 00 00 77 74 65 73 74 74 78 00 00 00 00 00 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 63 50 43 00 00 00 00 00 00 ┆ e n wtesttx disc cPC ┆
0x00c60…00c90 00 00 00 00 00 00 0e 93 90 00 0b d6 00 0b df 74 65 78 74 74 61 6c 74 78 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 85 4b 00 00 00 ┆ texttaltx disc c K ┆
0x00c90…00cc0 00 00 00 00 00 00 00 00 00 0e b0 e0 00 00 6e 00 00 77 74 69 6d 65 74 6f 73 68 6f 74 78 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 63 ab b4 ┆ n wtimetoshotx disc c ┆
0x00cc0…00cf0 00 00 00 00 00 00 00 00 00 00 00 00 0e c3 2b 00 00 0a 00 00 13 74 7c 6d 6c 69 6e 69 65 74 78 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 ┆ + tømlinietx disc ┆
0x00cf0…00d20 65 9f c2 00 00 00 00 00 00 00 00 00 00 00 00 0e e0 00 00 00 6e 00 00 77 75 64 74 61 67 68 65 6c 74 74 78 00 00 00 04 64 69 73 63 00 00 00 00 00 ┆e n wudtaghelttx disc ┆
0x00d20…00d50 00 00 00 64 5f eb 00 00 00 00 00 00 00 00 00 00 00 00 0f 28 80 00 00 6e 00 00 77 75 64 74 78 00 00 00 00 00 00 00 00 00 00 02 64 69 73 63 00 00 ┆ d_ ( n wudtx disc ┆
0x00d50…00d80 00 00 00 00 00 00 63 b2 37 00 00 00 00 00 00 00 00 00 00 00 00 0f 41 70 00 00 5a 00 00 63 75 6e 6c 6f 61 64 6d 74 74 78 00 00 00 00 02 64 69 73 ┆ c 7 Ap Z cunloadmttx dis┆
0x00d80…00db0 63 00 00 00 00 00 00 00 00 6f 56 19 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆c oV ┆
0x00db0…00de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x00ed0…00f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 44 ┆ D┆
0x00f00…00f30 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 61 66 73 6c 75 74 5f 74 65 78 74 20 73 69 64 65 20 31 2e 20 6a 67 28 61 72 29 20 37 38 ┆ message procedure afslut_text side 1. jg(ar) 78┆
0x00f30…00f60 31 31 30 39 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 61 66 73 6c 75 74 5f 74 65 78 74 28 74 65 78 74 2c 70 6f 73 29 3b 0a ┆1109; integer procedure afslut_text(text,pos); ┆
0x00f60…00f90 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 65 78 74 3b 0a 69 6e 74 65 67 65 72 20 70 6f 73 3b 0a 0a 3c 2a 0a 61 66 73 6c 75 74 5f 74 65 78 74 ┆integer array text; integer pos; <* afslut_text┆
0x00f90…00fc0 20 61 66 73 6c 75 74 74 65 72 20 65 6e 20 74 65 6b 73 74 20 69 20 65 74 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 76 65 64 20 61 74 20 66 79 ┆ afslutter en tekst i et integer array ved at fy┆
0x00fc0…00ff0 6c 64 65 20 64 65 74 20 6f 72 64 2c 0a 64 65 72 20 69 6e 64 65 68 6f 6c 64 65 72 20 74 65 67 6e 20 6e 72 20 70 6f 73 2c 20 6f 70 20 6d 65 64 20 ┆lde det ord, der indeholder tegn nr pos, op med ┆
0x00ff0…01020 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 0a 70 61 72 61 6d 65 74 72 65 6e 65 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a ┆null-tegn. parametrene har følgende betydning: ┆
0x01020…01050 61 66 73 6c 75 74 5f 74 65 78 74 20 20 3a 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 61 6e 74 61 6c 20 6e 75 6c 6c 2d 74 65 67 6e 2c 20 ┆afslut_text : (retur,integer) antal null-tegn, ┆
0x01050…01080 64 65 72 20 65 72 20 73 6b 72 65 76 65 74 2e 0a 74 65 78 74 20 20 20 20 20 20 20 20 20 3a 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 64 ┆der er skrevet. text : (retur,integer) d┆
0x01080…010b0 74 65 67 6e 20 6e 72 20 70 6f 73 2c 20 70 6f 73 2b 31 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 79 6c 64 65 73 20 6f 70 20 6d 65 ┆tegn nr pos, pos+1.. fyldes op me┆
0x010b0…010e0 64 20 6e 75 6c 6c 2d 74 65 67 6e 2c 20 69 6e 64 74 69 6c 20 64 65 74 20 6f 72 64 2c 20 74 65 67 6e 20 6e 72 20 70 6f 73 20 0a 20 20 20 20 20 20 ┆d null-tegn, indtil det ord, tegn nr pos ┆
0x010e0…01110 20 20 20 20 20 20 20 20 20 6c 69 67 67 65 72 20 69 20 65 72 20 66 79 6c 64 74 20 6f 70 20 6d 65 64 20 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 70 6f 73 ┆ ligger i er fyldt op med null-tegn. pos┆
0x01110…01140 20 20 20 20 20 20 20 20 20 20 3a 20 28 6b 61 6c 64 2c 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 76 65 64 20 6b 61 6c 64 3a 20 73 65 20 74 65 ┆ : (kald,retur,integer) ved kald: se te┆
0x01140…01170 78 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 64 20 72 65 74 75 72 20 6e 72 20 70 7d 20 66 7c 72 73 74 65 20 74 65 67 6e 20 65 ┆xt. ved retur nr på første tegn e┆
0x01170…011a0 66 74 65 72 20 73 69 64 73 74 20 61 6e 62 72 61 67 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 0a ┆fter sidst anbragte null-tegn. ┆
0x011a0…011d0 6b 61 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 73 6b 72 69 76 74 65 67 6e 2e 0a 2a 3e 0a 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 ┆kaldte procedurer: skrivtegn. *> begin integer ┆
0x011d0…01200 61 6e 74 2c 69 3b 0a 20 20 61 66 73 6c 75 74 5f 74 65 78 74 3a 3d 61 6e 74 3a 3d 33 2d 28 70 6f 73 2d 31 29 20 6d 6f 64 20 33 3b 0a 20 20 66 6f ┆ant,i; afslut_text:=ant:=3-(pos-1) mod 3; fo┆
0x01200…01230 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 ┆r i:=1 step 1 until ant do skriv_tegn(text,p┆
0x01230…01260 6f 73 2c 30 29 3b 0a 65 6e 64 3b 0a 19 00 00 70 72 6f 63 65 64 75 72 65 20 61 66 73 6c 75 74 5f 74 65 78 74 28 74 65 78 74 2c 70 6f 73 29 3b 0a ┆os,0); end; procedure afslut_text(text,pos); ┆
0x01260…01290 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 65 78 74 3b 0a 69 6e 74 65 67 65 72 20 70 6f 73 3b 0a 0a 3c 2a 0a 61 66 73 6c 75 74 5f 74 65 78 74 ┆integer array text; integer pos; <* afslut_text┆
0x01290…012c0 20 61 66 73 6c 75 74 74 65 72 20 65 6e 20 74 65 6b 73 74 20 69 20 65 74 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 76 65 64 20 61 74 20 66 79 ┆ afslutter en tekst i et integer array ved at fy┆
0x012c0…012f0 6c 64 65 20 64 65 74 20 6f 72 64 2c 0a 64 65 72 20 69 6e 64 65 68 6f 6c 64 65 72 20 74 65 67 6e 20 6e 72 20 70 6f 73 2c 20 6f 70 20 6d 65 64 20 ┆lde det ord, der indeholder tegn nr pos, op med ┆
0x012f0…01320 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 0a 70 61 72 61 6d 65 74 72 65 6e 65 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 62 65 74 79 64 6e 69 6e 67 3a 0a ┆null-tegn. parametrene har følgende betydning: ┆
0x01320…01350 61 66 73 6c 75 74 5f 74 65 78 74 20 20 3a 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 61 6e 74 61 6c 20 6e 75 6c 6c 2d 74 65 67 6e 2c 20 ┆afslut_text : (retur,integer) antal null-tegn, ┆
0x01350…01380 64 65 72 20 65 72 20 73 6b 72 65 76 65 74 2e 0a 74 65 78 74 20 20 20 20 20 20 20 20 20 3a 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 64 ┆der er skrevet. text : (retur,integer) d┆
0x01380…013b0 74 65 67 6e 20 6e 72 20 70 6f 73 2c 20 70 6f 73 2b 31 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 79 6c 64 65 73 20 6f 70 20 6d 65 ┆tegn nr pos, pos+1.. fyldes op me┆
0x013b0…013e0 64 20 6e 75 6c 6c 2d 74 65 67 6e 2c 20 69 6e 64 74 69 6c 20 64 65 74 20 6f 72 64 2c 20 74 65 67 6e 20 6e 72 20 70 6f 73 20 0a 20 20 20 20 20 20 ┆d null-tegn, indtil det ord, tegn nr pos ┆
0x013e0…01410 20 20 20 20 20 20 20 20 20 6c 69 67 67 65 72 20 69 20 65 72 20 66 79 6c 64 74 20 6f 70 20 6d 65 64 20 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 70 6f 73 ┆ ligger i er fyldt op med null-tegn. pos┆
0x01410…01440 20 20 20 20 20 20 20 20 20 20 3a 20 28 6b 61 6c 64 2c 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 76 65 64 20 6b 61 6c 64 3a 20 73 65 20 74 65 ┆ : (kald,retur,integer) ved kald: se te┆
0x01440…01470 78 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 64 20 72 65 74 75 72 20 6e 72 20 70 7d 20 66 7c 72 73 74 65 20 74 65 67 6e 20 65 ┆xt. ved retur nr på første tegn e┆
0x01470…014a0 66 74 65 72 20 73 69 64 73 74 20 61 6e 62 72 61 67 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 6c 6c 2d 74 65 67 6e 2e 0a 0a ┆fter sidst anbragte null-tegn. ┆
0x014a0…014d0 6b 61 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 73 6b 72 69 76 74 65 67 6e 2e 0a 2a 3e 0a 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 ┆kaldte procedurer: skrivtegn. *> begin integer ┆
0x014d0…01500 61 6e 74 2c 69 3b 0a 20 20 61 66 73 6c 75 74 5f 74 65 78 74 3a 3d 61 6e 74 3a 3d 33 2d 28 70 6f 73 2d 31 29 20 6d 6f 64 20 33 3b 0a 20 20 66 6f ┆ant,i; afslut_text:=ant:=3-(pos-1) mod 3; fo┆
0x01500…01530 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 61 66 76 65 6e 74 62 7d 6e 64 2c 20 73 69 64 65 20 31 20 2d 20 37 39 31 32 31 33 2f 63 6c ┆message procedure afventbånd, side 1 - 791213/cl┆
0x01530…01560 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 61 66 76 65 6e 74 5f 62 7d 6e 64 28 74 61 70 65 2c 6d 6f 64 65 6b 69 6e 64 2c 77 ┆; integer procedure afvent_bånd(tape,modekind,w┆
0x01560…01590 72 69 74 65 5f 65 6e 61 62 6c 65 64 2c 70 6f 75 74 29 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 74 61 70 65 3b 20 69 6e 74 65 67 65 72 20 6d ┆rite_enabled,pout); long array tape; integer m┆
0x01590…015c0 6f 64 65 6b 69 6e 64 3b 20 62 6f 6f 6c 65 61 6e 20 77 72 69 74 65 5f 65 6e 61 62 6c 65 64 3b 20 0a 20 20 7a 6f 6e 65 20 70 6f 75 74 3b 0a 0a 3c ┆odekind; boolean write_enabled; zone pout; <┆
0x015c0…015f0 2a 20 70 72 6f 63 65 64 75 72 65 6e 20 61 66 76 65 6e 74 65 72 20 6d 6f 6e 74 65 72 69 6e 67 20 61 66 20 65 74 20 6d 61 67 6e 65 74 62 7d 6e 64 ┆* proceduren afventer montering af et magnetbånd┆
0x015f0…01620 20 70 7d 0a 20 20 20 62 7d 6e 64 73 74 61 74 69 6f 6e 65 6e 20 6f 67 20 63 68 65 63 6b 65 72 20 27 6c 61 62 65 6c 27 20 70 7d 20 62 7d 6e 64 65 ┆ på båndstationen og checker 'label' på bånde┆
0x01620…01650 74 20 66 6f 72 20 6f 76 65 72 2d 0a 20 20 20 65 6e 73 73 74 65 6d 6d 65 6c 73 65 20 6d 65 6c 6c 65 6d 20 73 70 65 63 69 66 69 63 65 72 65 74 20 ┆t for over- ensstemmelse mellem specificeret ┆
0x01650…01680 6e 61 76 6e 20 6f 67 20 6e 61 76 6e 20 69 20 6c 61 62 65 6c 2e 0a 20 20 20 44 65 73 75 64 65 6e 20 63 68 65 63 6b 65 73 20 6d 6f 64 65 6b 69 6e ┆navn og navn i label. Desuden checkes modekin┆
0x01680…016b0 64 20 6f 67 20 6f 6d 20 73 6b 72 69 76 65 72 69 6e 67 20 65 72 20 70 7d 73 61 74 2c 20 68 76 69 73 0a 20 20 20 64 65 74 74 65 20 66 6f 72 75 64 ┆d og om skrivering er påsat, hvis dette forud┆
0x016b0…016e0 73 7b 74 74 65 73 2e 0a 20 20 20 20 20 75 6e 64 65 72 20 75 64 66 7c 72 65 6c 73 65 6e 20 73 6b 72 69 76 65 73 20 6d 65 64 64 65 6c 65 6c 73 65 ┆sættes. under udførelsen skrives meddelelse┆
0x016e0…01710 72 20 74 69 6c 20 6f 70 65 72 61 74 7c 72 65 6e 2e 0a 0a 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 3a 0a 0a 20 20 20 61 66 76 65 6e 74 5f 62 7d 6e ┆r til operatøren. procedurekald: afvent_bån┆
0x01710…01740 64 28 74 61 70 65 2c 6d 6f 64 65 6b 69 6e 64 2c 77 72 69 74 65 5f 65 6e 61 62 6c 65 64 2c 70 6f 75 74 29 0a 0a 61 66 76 65 6e 74 5f 62 7d 6e 64 ┆d(tape,modekind,write_enabled,pout) afvent_bånd┆
0x01740…01770 20 20 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 20 20 20 20 20 72 65 74 75 72 73 74 61 74 75 73 3a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (retur,integer) returstatus: ┆
0x01770…017a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 20 20 3a 20 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = 0 : ok ┆
0x017a0…017d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3e 20 30 20 3a 20 72 65 74 75 72 73 74 61 74 75 73 20 66 72 61 20 6d 6f 6e 69 ┆ <> 0 : returstatus fra moni┆
0x017d0…01800 74 6f 72 20 76 65 64 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 20 20 20 20 66 65 ┆tor ved fe┆
0x01800…01830 6a 6c 2e 20 64 65 73 75 64 65 6e 20 73 7b 74 74 65 73 20 62 69 74 20 32 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆jl. desuden sættes bit 23 ┆
0x01830…01860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 61 72 64 20 65 72 72 6f 72 29 20 68 76 69 73 20 64 65 72 20 65 72 20 75 6f 76 65 72 2d 0a ┆ (hard error) hvis der er uover- ┆
0x01860…01890 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 20 20 20 20 65 6e 73 73 74 65 6d 6d 65 6c ┆ ensstemmel┆
0x01890…018c0 73 65 20 6d 65 6c 6c 65 6d 20 6e 61 76 6e 20 6f 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 20 20 20 ┆se mellem navn og ┆
0x018c0…018f0 20 20 20 20 20 20 20 20 6c 61 62 65 6c 2c 20 65 6c 6c 65 72 20 68 76 69 73 20 70 72 6f 67 72 61 6d 75 64 66 7c 72 65 6c 73 65 6e 0a 20 20 20 20 ┆ label, eller hvis programudførelsen ┆
0x018f0…01920 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 69 6b 6b 65 20 65 72 20 74 69 6c 6c 61 64 ┆ ikke er tillad┆
0x01920…01950 74 20 20 28 73 65 20 6e 65 64 65 6e 66 6f 72 29 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 ┆t (se nedenfor) ┆
0x01950…01980 20 20 20 20 20 20 20 62 69 74 20 32 31 20 28 72 65 6a 65 63 74 65 64 29 20 73 7b 74 74 65 73 20 68 76 69 73 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ bit 21 (rejected) sættes hvis ┆
0x01980…019b0 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 62 7d 6e 64 73 74 61 74 69 6f 6e 65 6e 20 65 72 20 72 65 73 ┆ båndstationen er res┆
0x019b0…019e0 65 72 76 65 72 65 74 20 61 66 20 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 20 20 20 20 20 20 20 20 ┆erveret af en ┆
0x019e0…01a10 20 20 20 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2e 0a 0a 74 61 70 65 20 20 20 20 20 20 20 20 20 28 6b 61 6c 64 2c 6c 6f 6e 67 20 61 72 72 61 79 ┆ anden bruger. tape (kald,long array┆
0x01a10…01a40 29 20 20 20 20 6e 61 76 6e 20 70 7d 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 62 7d 6e 64 2e 0a 0a 6d 6f 64 65 6b 69 6e 64 20 20 20 20 20 28 6b 61 ┆) navn på det ønskede bånd. modekind (ka┆
0x01a40…01a70 6c 64 2c 69 6e 74 65 67 65 72 29 20 20 20 20 20 20 20 74 72 61 69 6c 20 73 68 69 66 74 20 31 38 20 2b 20 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 ┆ld,integer) trail shift 18 + mode ┆
0x01a70…01aa0 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 73 68 69 66 74 20 31 32 20 2b 20 6b 69 6e 64 2e 0a 20 20 20 20 20 ┆ shift 12 + kind. ┆
0x01aa0…01ad0 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 73 65 20 2f 61 6c 67 6f 6c 36 20 39 2e 34 31 2f 0a 0a 0a ┆ se /algol6 9.41/ ┆
0x01ad0…01b00 77 72 69 74 65 5f 65 6e 61 62 6c 65 64 20 28 6b 61 6c 64 2c 62 6f 6f 6c 65 61 6e 29 20 20 20 20 20 20 74 72 75 65 3a 20 73 6b 72 69 76 65 72 69 ┆write_enabled (kald,boolean) true: skriveri┆
0x01b00…01b30 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 ┆ng skal være på. ┆
0x01b30…01b60 20 20 20 66 61 6c 73 65 3a 20 69 6e 67 65 6e 20 73 6b 72 69 76 65 72 69 6e 67 2e 0a 0a 70 6f 75 74 20 20 20 20 20 20 20 20 20 28 6b 61 6c 64 2c ┆ false: ingen skrivering. pout (kald,┆
0x01b60…01b90 7a 6f 6e 65 29 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 20 7d 62 6e 65 74 20 74 69 6c 20 64 65 74 20 64 6f 6b 75 6d 65 6e 74 2c 0a 20 20 20 20 ┆zone) zone åbnet til det dokument, ┆
0x01b90…01bc0 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 68 76 6f 72 20 6d 65 64 64 65 6c 65 6c 73 65 72 20 74 ┆ hvor meddelelser t┆
0x01bc0…01bf0 69 6c 20 6f 70 65 72 61 74 7c 72 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 20 20 20 20 20 20 20 20 ┆il operatøren ┆
0x01bf0…01c20 73 6b 72 69 76 65 73 20 28 62 7c 72 20 6e 6f 72 6d 61 6c 74 20 76 7b 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆skrives (bør normalt være ┆
0x01c20…01c50 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6d 61 72 79 20 6f 75 74 70 75 74 29 2e 0a 0a 66 6f 72 20 61 74 20 70 72 6f 63 65 64 75 72 65 6e 20 ┆ primary output). for at proceduren ┆
0x01c50…01c80 73 6b 61 6c 20 6b 75 6e 6e 65 20 75 64 66 7c 72 65 73 20 73 6b 61 6c 20 62 69 74 20 34 20 6f 67 20 35 20 76 7b 72 65 20 73 61 74 0a 69 20 64 65 ┆skal kunne udføres skal bit 4 og 5 være sat i de┆
0x01c80…01cb0 6e 20 6b 61 6c 64 65 6e 64 65 20 70 72 6f 63 65 73 27 73 20 66 75 6e 63 74 69 6f 6e 6d 61 73 6b 2e 28 63 72 65 61 74 65 2f 72 65 6d 6f 76 65 20 ┆n kaldende proces's functionmask.(create/remove ┆
0x01cb0…01ce0 70 65 72 69 70 68 65 72 61 6c 29 2e 0a 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 61 66 76 65 6e 74 5f 62 7d 6e 64 2c 20 73 69 ┆peripheral). message procedure afvent_bånd, si┆
0x01ce0…01d10 64 65 20 32 20 2d 20 37 39 31 32 31 33 2f 63 6c 3b 0a 0a 6d 65 64 64 65 6c 65 6c 73 65 72 20 74 69 6c 20 6f 70 65 72 61 74 7c 72 65 6e 3a 0a 0a ┆de 2 - 791213/cl; meddelelser til operatøren: ┆
0x01d10…01d40 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01d40…01d70 20 20 20 20 31 0a 2b 29 20 20 20 6d 6f 6e 74 65 72 20 62 7d 6e 64 65 74 20 27 62 7d 6e 64 6e 61 76 6e 27 20 28 6d 65 64 20 73 6b 72 69 76 65 72 ┆ 1 +) monter båndet 'båndnavn' (med skriver┆
0x01d70…01da0 69 6e 67 20 70 7d 73 61 74 29 20 20 20 21 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 ┆ing påsat) ! ┆
0x01da0…01dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0a 0a 2b 29 20 20 20 73 6b 72 69 76 65 72 69 6e 67 20 69 6b 6b 65 20 70 7d 73 61 74 ┆ 0 +) skrivering ikke påsat┆
0x01dd0…01e00 20 2d 20 6d 6f 6e 74 65 72 20 73 6b 72 69 76 65 72 69 6e 67 20 21 0a 0a 2b 29 20 20 20 74 7b 6e 64 20 27 68 69 2d 64 65 6e 27 20 6f 67 20 27 6f ┆ - monter skrivering ! +) tænd 'hi-den' og 'o┆
0x01e00…01e30 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 0a 0a 20 20 20 20 20 2a 2a 2a 20 6d 61 67 6e 65 74 62 7d 6e 64 73 74 ┆nline' på båndstationen ! *** magnetbåndst┆
0x01e30…01e60 61 74 69 6f 6e 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 20 61 66 20 65 6e 20 61 6e 64 65 6e 20 62 72 75 67 65 72 0a 0a 20 20 20 20 20 2a ┆ationen er reserveret af en anden bruger *┆
0x01e60…01e90 2a 2a 20 70 72 6f 67 72 61 6d 75 64 66 7c 72 65 6c 73 65 6e 20 69 6b 6b 65 20 74 69 6c 6c 61 64 74 20 69 20 64 65 6e 6e 65 20 70 72 6f 63 65 73 ┆** programudførelsen ikke tilladt i denne proces┆
0x01e90…01ec0 0a 0a 20 20 20 20 20 2a 2a 2a 20 70 61 72 69 74 65 74 73 66 65 6a 6c 20 70 7d 20 6d 61 67 6e 65 74 62 7d 6e 64 0a 0a 20 20 20 20 20 2a 2a 2a 20 ┆ *** paritetsfejl på magnetbånd *** ┆
0x01ec0…01ef0 6c 61 62 65 6c 20 6d 61 6e 67 6c 65 72 20 70 7d 20 64 65 74 20 6d 6f 6e 74 65 72 65 64 65 20 62 7d 6e 64 0a 0a 20 20 20 20 20 75 6f 76 65 72 65 ┆label mangler på det monterede bånd uovere┆
0x01ef0…01f20 6e 73 73 74 65 6d 6d 65 6c 73 65 20 6d 65 6c 6c 65 6d 20 62 7d 6e 64 6e 61 76 6e 20 69 20 6c 61 62 65 6c 20 28 27 6e 61 76 6e 2d 31 27 29 0a 20 ┆nsstemmelse mellem båndnavn i label ('navn-1') ┆
0x01f20…01f50 20 20 20 20 6f 67 20 64 65 74 20 73 70 65 63 69 66 69 63 65 72 65 64 65 20 6e 61 76 6e 20 28 27 6e 61 76 6e 2d 32 27 29 0a 0a 0a 64 65 20 6d 65 ┆ og det specificerede navn ('navn-2') de me┆
0x01f50…01f80 64 20 2b 29 20 6d 7b 72 6b 65 64 65 20 6d 65 64 64 65 6c 65 6c 73 65 72 20 62 65 76 69 72 6b 65 72 20 61 74 20 70 72 6f 63 65 64 75 72 65 6e 20 ┆d +) mærkede meddelelser bevirker at proceduren ┆
0x01f80…01fb0 76 65 6e 74 65 72 20 70 7d 0a 61 74 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 74 69 6c 73 74 61 6e 64 20 65 74 61 62 6c 65 72 65 73 2e 0a 20 20 76 ┆venter på at den ønskede tilstand etableres. v┆
0x01fb0…01fe0 65 64 20 64 65 20 7c 76 72 69 67 65 20 6d 65 64 64 65 6c 65 6c 73 65 72 20 72 65 74 75 72 6e 65 72 65 73 20 66 65 6a 6c 73 74 61 74 75 73 20 6f ┆ed de øvrige meddelelser returneres fejlstatus o┆
0x01fe0…02010 67 20 62 7d 6e 64 73 74 61 74 69 6f 6e 65 6e 0a 74 69 6c 62 61 67 65 73 70 6f 6c 65 73 20 6f 67 20 73 7b 74 74 65 73 20 6f 66 66 2d 6c 69 6e 65 ┆g båndstationen tilbagespoles og sættes off-line┆
0x02010…02040 2e 0a 0a 6e 7d 72 20 70 72 6f 63 65 64 75 72 65 6e 20 72 65 74 75 72 6e 65 72 65 72 20 6d 65 64 20 73 74 61 74 75 73 20 6f 6b 20 65 72 20 65 6e ┆. når proceduren returnerer med status ok er en┆
0x02040…02070 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 65 73 73 0a 6f 70 72 65 74 74 65 74 20 6f 67 20 72 65 73 65 72 76 65 72 65 74 2c 20 6f 67 20 62 ┆ peripheral process oprettet og reserveret, og b┆
0x02070…020a0 7d 6e 64 65 74 20 65 72 20 70 6f 73 69 74 69 6f 6e 65 72 65 74 20 74 69 6c 20 66 69 6c 20 6e 72 2e 20 30 2c 0a 62 6c 6f 6b 20 6e 72 2e 20 30 2e ┆åndet er positioneret til fil nr. 0, blok nr. 0.┆
0x020a0…020d0 0a 0a 6e 62 21 21 21 20 70 72 6f 63 65 64 75 72 65 6e 20 62 7c 72 20 6b 61 6c 64 65 73 20 66 7c 72 20 27 6f 70 65 6e 27 20 61 66 20 7a 6f 6e 65 ┆ nb!!! proceduren bør kaldes før 'open' af zone┆
0x020d0…02100 20 74 69 6c 20 6d 61 67 6e 65 74 62 7d 6e 64 20 69 0a 6b 61 6c 64 65 6e 64 65 20 70 72 6f 67 72 61 6d 6d 65 72 2e 0a 0a 6b 61 6c 64 74 65 20 70 ┆ til magnetbånd i kaldende programmer. kaldte p┆
0x02100…02130 72 6f 63 65 64 75 72 65 72 3a 0a 20 20 6c 7b 73 74 65 67 6e 2c 20 75 64 0a 0a 2a 3e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 ┆rocedurer: læstegn, ud *> message procedure ┆
0x02130…02160 61 66 76 65 6e 74 5f 62 7d 6e 64 2c 20 73 69 64 65 20 33 20 2d 20 37 39 31 32 31 33 2f 63 6c 3b 0a 0a 62 65 67 69 6e 0a 20 20 7a 6f 6e 65 20 6d ┆afvent_bånd, side 3 - 791213/cl; begin zone m┆
0x02160…02190 74 28 31 32 38 2c 31 2c 73 7b 74 73 74 61 74 75 73 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 20 72 65 73 2c 20 61 64 72 2c 20 73 74 61 74 75 ┆t(128,1,sætstatus); integer i, res, adr, statu┆
0x02190…021c0 73 2c 20 62 6c 6f 6b 6c 67 64 2c 20 74 65 67 6e 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6c 61 28 2d 31 3a 32 30 29 3b 0a 20 20 69 6e 74 65 ┆s, bloklgd, tegn; long array la(-1:20); inte┆
0x021c0…021f0 67 65 72 20 61 72 72 61 79 20 7a 6c 64 28 31 3a 32 30 29 2c 20 7a 73 68 28 31 3a 31 32 29 2c 20 62 75 66 28 31 3a 38 29 2c 20 69 61 28 2d 32 3a ┆ger array zld(1:20), zsh(1:12), buf(1:8), ia(-2:┆
0x021f0…02220 31 37 29 3b 0a 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 ┆17); real array field raf; integer array f┆
0x02220…02250 69 65 6c 64 20 6e 61 76 6e 2c 20 69 61 66 3b 0a 20 20 72 65 61 6c 20 66 69 65 6c 64 20 72 66 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 6c 61 ┆ield navn, iaf; real field rf; real array la┆
0x02250…02280 62 28 31 3a 32 29 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 73 6b 72 69 76 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 73 7b 74 73 74 61 74 75 73 28 ┆b(1:2); boolean skriv; procedure sætstatus(┆
0x02280…022b0 7a 2c 73 2c 62 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 73 2c 20 62 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 74 ┆z,s,b); zone z; integer s, b; begin st┆
0x022b0…022e0 61 74 75 73 3a 3d 20 73 3b 20 62 6c 6f 6b 6c 67 64 3a 3d 20 62 3b 0a 20 20 20 20 69 66 20 73 20 73 68 69 66 74 20 28 2d 32 31 29 20 65 78 74 72 ┆atus:= s; bloklgd:= b; if s shift (-21) extr┆
0x022e0…02310 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 62 3a 3d 20 32 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6d 74 6f 70 65 72 ┆act 1 = 1 then b:= 2; end; procedure mtoper┆
0x02310…02340 28 7a 2c 62 75 66 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 62 75 66 3b 0a 20 20 62 65 67 69 6e 0a ┆(z,buf); zone z; integer array buf; begin ┆
0x02340…02370 20 20 20 20 7a 6f 6e 65 20 7a 31 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 72 65 73 3b 0a 20 20 20 20 ┆ zone z1(1,1,stderror); integer res; ┆
0x02370…023a0 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 64 2c 7a 64 31 28 31 3a 32 30 29 2c 20 7a 73 28 31 3a 31 32 29 3b 0a 0a 20 20 20 20 67 65 74 7a 6f ┆integer array zd,zd1(1:20), zs(1:12); getzo┆
0x023a0…023d0 6e 65 36 28 7a 2c 7a 64 29 3b 20 67 65 74 7a 6f 6e 65 36 28 7a 31 2c 7a 64 31 29 3b 0a 20 20 20 20 74 6f 66 72 6f 6d 28 7a 64 31 2c 7a 64 2c 32 ┆ne6(z,zd); getzone6(z1,zd1); tofrom(zd1,zd,2┆
0x023d0…02400 36 29 3b 0a 20 20 20 20 73 65 74 7a 6f 6e 65 36 28 7a 31 2c 7a 64 31 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 36 28 7a 31 2c 7a 73 2c 31 29 ┆6); setzone6(z1,zd1); getshare6(z1,zs,1)┆
0x02400…02430 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 ┆; zs(1):= 1; zs(4):= buf(1); zs(5):= buf┆
0x02430…02460 28 32 29 3b 20 7a 73 28 36 29 3a 3d 20 62 75 66 28 33 29 3b 20 7a 73 28 37 29 3a 3d 20 62 75 66 28 34 29 3b 0a 20 20 20 20 7a 73 28 38 29 3a 3d ┆(2); zs(6):= buf(3); zs(7):= buf(4); zs(8):=┆
0x02460…02490 20 62 75 66 28 35 29 3b 20 7a 73 28 39 29 3a 3d 20 62 75 66 28 36 29 3b 20 7a 73 28 31 30 29 3a 3d 20 62 75 66 28 37 29 3b 20 7a 73 28 31 31 29 ┆ buf(5); zs(9):= buf(6); zs(10):= buf(7); zs(11)┆
0x02490…024c0 3a 3d 20 62 75 66 28 38 29 3b 0a 20 20 20 20 73 65 74 73 68 61 72 65 36 28 7a 31 2c 7a 73 2c 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆:= buf(8); setshare6(z1,zs,1); monitor(1┆
0x024c0…024f0 36 29 73 65 6e 64 20 6d 65 73 73 61 67 65 3a 28 7a 31 2c 31 2c 7a 73 29 3b 0a 20 20 20 20 72 65 73 3a 3d 20 6d 6f 6e 69 74 6f 72 28 31 38 29 77 ┆6)send message:(z1,1,zs); res:= monitor(18)w┆
0x024f0…02520 61 69 74 20 61 6e 73 77 65 72 3a 28 7a 31 2c 31 2c 62 75 66 29 3b 0a 20 20 20 20 62 75 66 28 31 29 3a 3d 20 62 75 66 28 31 29 20 61 64 64 20 28 ┆ait answer:(z1,1,buf); buf(1):= buf(1) add (┆
0x02520…02550 31 20 73 68 69 66 74 20 72 65 73 29 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 70 65 72 69 70 ┆1 shift res); end; integer procedure perip┆
0x02550…02580 68 65 72 61 6c 28 64 65 76 6e 6f 2c 69 61 29 3b 0a 20 20 20 20 76 61 6c 75 65 20 64 65 76 6e 6f 3b 20 69 6e 74 65 67 65 72 20 64 65 76 6e 6f 3b ┆heral(devno,ia); value devno; integer devno;┆
0x02580…025b0 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 ┆ integer array ia; begin integer array┆
0x025b0…025e0 20 69 61 31 28 31 3a 32 29 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 35 2c 37 34 2c 69 61 31 29 3b 0a 20 20 20 20 69 66 20 28 69 61 31 28 32 29 2d ┆ ia1(1:2); system(5,74,ia1); if (ia1(2)-┆
0x025e0…02610 69 61 31 28 31 29 29 2f 2f 32 2b 31 20 3c 20 64 65 76 6e 6f 20 6f 72 20 64 65 76 6e 6f 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆ia1(1))//2+1 < devno or devno < 0 then begin┆
0x02610…02640 0a 20 20 20 20 20 20 70 65 72 69 70 68 65 72 61 6c 3a 3d 20 30 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 ┆ peripheral:= 0; end else begi┆
0x02640…02670 6e 0a 20 20 20 20 20 20 73 79 73 74 65 6d 28 35 2c 69 61 31 28 31 29 2b 64 65 76 6e 6f 2a 32 2c 69 61 31 29 3b 0a 20 20 20 20 20 20 70 65 72 69 ┆n system(5,ia1(1)+devno*2,ia1); peri┆
[…truncated at 200 lines…]