|
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: 118272 (0x1ce00)
Names: »sysvedl «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »sysvedl «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »sysvedl «
0x00000…00020 (1, 31178) 00 21 48 00 00 5a 00 00 63 64 61 6e 63 6c 64 70 70 74 78 00 00 00 00 03 64 69 73 63 00 00 00 00 ┆ !H Z cdancldpptx disc ┆
0x00020…00040 00 00 00 00 72 d4 5a 00 00 00 00 00 00 00 00 00 00 00 00 00 53 d8 00 00 0a 00 00 13 64 6f 70 72 ┆ r Z S dopr┆
0x00040…00060 6f 63 70 72 69 6f 72 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 65 4d cd 00 00 00 00 00 00 ┆ocprior disc eM ┆
0x00060…00080 00 00 00 00 00 00 00 61 f0 00 00 0a 00 00 13 64 6f 70 72 6f 63 74 78 00 00 00 00 00 00 01 64 69 ┆ a doproctx di┆
0x00080…000a0 73 63 00 00 00 00 00 00 00 00 65 4d c8 00 00 00 00 00 00 00 00 00 00 00 00 00 72 ea 00 00 0a 00 ┆sc eM r ┆
0x000a0…000c0 00 13 66 69 6e 64 75 64 74 78 00 00 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 73 90 8b ┆ findudtx disc s ┆
0x000c0…000e0 00 00 00 00 00 00 00 00 00 00 00 00 00 b2 88 00 00 0a 00 00 13 69 6e 69 74 73 79 73 6e 61 76 6e ┆ initsysnavn┆
0x000e0…00100 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 67 f6 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc g å ┆
0x00100…00120 d2 30 00 00 00 00 4e 1f 70 72 69 30 74 78 00 00 00 00 00 00 00 00 04 64 69 73 63 00 00 00 00 00 ┆ 0 N pri0tx disc ┆
0x00120…00140 00 00 00 9b b1 42 00 00 00 00 00 00 00 00 00 00 00 00 01 11 c0 00 00 00 00 4e 1f 70 72 69 74 78 ┆ B N pritx┆
0x00140…00160 00 00 00 00 00 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 9b b1 40 00 00 00 00 00 00 00 ┆ disc @ ┆
0x00160…00180 00 00 00 00 00 01 52 f8 00 00 00 00 03 e7 72 63 33 36 30 30 64 75 6d 74 78 00 00 00 02 64 69 73 ┆ R rc3600dumtx dis┆
0x00180…001a0 63 00 00 00 00 00 00 00 00 74 5c db 00 00 00 00 00 00 00 00 00 00 00 00 01 71 a0 00 00 3c 00 00 ┆c tØ q < ┆
0x001a0…001c0 45 73 79 73 66 72 65 67 00 00 00 00 00 00 00 49 64 69 73 63 00 00 00 00 00 00 00 00 77 0d 0d 00 ┆Esysfreg Idisc w ┆
0x001c0…001e0 00 00 00 00 00 00 00 00 00 00 00 06 02 58 00 00 0b 00 00 0b 73 79 73 67 65 6e 68 7b 6e 64 00 00 ┆ X sysgenhænd ┆
0x001e0…00200 00 00 15 64 69 73 63 00 00 00 00 00 00 00 00 63 31 79 00 00 00 00 00 00 00 00 00 00 00 00 07 55 ┆ disc c1y U┆
0x00200…00220 b8 00 00 0a 00 00 13 74 63 75 64 73 6b 72 69 66 74 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 ┆ tcudskrift disc ┆
0x00220…00240 00 00 62 6f 97 00 00 00 00 00 00 00 00 00 00 00 00 07 61 bb 00 00 0a 00 00 13 74 64 6f 74 64 73 ┆ bo a tdotds┆
0x00240…00260 74 00 00 00 00 00 00 00 15 64 69 73 63 00 00 00 00 00 00 00 00 5b f1 4a 00 00 00 00 00 00 00 00 ┆t disc Æ J ┆
0x00260…00280 00 00 00 00 08 b1 93 00 00 0a 00 00 13 74 64 73 74 6c 6f 67 00 00 00 00 00 00 00 04 64 69 73 63 ┆ tdstlog disc┆
0x00280…002a0 00 00 00 00 00 00 00 00 5f 50 5e 00 00 00 00 00 00 00 00 00 00 00 00 08 f5 0b 00 00 0a 00 00 13 ┆ _P^ ┆
0x002a0…002c0 74 69 6c 66 7c 6a 64 65 73 74 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 5f 2a 12 00 00 ┆tilføjdest disc _* ┆
0x002c0…002e0 00 00 00 00 00 00 00 00 00 00 09 13 cb 00 00 0a 00 00 13 74 72 65 77 69 6e 64 00 00 00 00 00 00 ┆ trewind ┆
0x002e0…00300 00 04 64 69 73 63 00 00 00 00 00 00 00 00 61 3b 36 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ┆ disc a;6 ┆
0x00300…00320 09 52 30 00 00 0a 00 00 13 74 73 7b 74 74 69 64 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 ┆ R0 tsættid disc ┆
0x00320…00340 00 00 00 00 5d 0c af 00 00 00 00 00 00 00 00 00 00 00 00 09 66 50 00 00 0a 00 00 13 74 7a 66 72 ┆ Å fP tzfr┆
0x00340…00360 61 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 63 aa 2b 00 00 00 00 00 00 ┆a disc c + ┆
0x00360…00380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x13…]
0x005e0…00600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ┆ ┆
0x00600…00620 62 65 67 69 6e 0a 20 20 7a 6f 6e 65 20 7a 69 2c 7a 75 28 31 33 2c 31 2c 73 74 64 65 72 72 6f 72 ┆begin zone zi,zu(13,1,stderror┆
0x00620…00640 29 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 62 7d 6e 64 6e 61 76 6e 2c 74 65 72 6d 28 31 3a ┆); real array båndnavn,term(1:┆
0x00640…00660 32 29 2c 20 6e 61 6d 65 73 28 31 3a 34 29 2c 20 70 76 61 6c 28 31 3a 34 2c 31 3a 32 29 3b 0a 20 ┆2), names(1:4), pval(1:4,1:2); ┆
0x00660…00680 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 61 66 3b 0a 20 20 69 6e 74 65 ┆ integer array field iaf; inte┆
0x00680…006a0 67 65 72 20 70 6f 73 2c 74 65 67 6e 2c 76 65 72 73 2c 75 64 67 2c 73 75 62 6e 72 3b 0a 20 20 69 ┆ger pos,tegn,vers,udg,subnr; i┆
0x006a0…006c0 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 74 79 70 65 28 31 3a 34 29 2c 20 61 6c 66 61 28 30 3a ┆nteger array ptype(1:4), alfa(0:┆
0x006c0…006e0 32 35 35 29 3b 0a 20 20 62 6f 6f 6c 65 61 6e 20 61 72 72 61 79 20 73 6f 6e 28 31 3a 32 29 3b 0a ┆255); boolean array son(1:2); ┆
0x006e0…00700 0a 20 20 69 61 66 3a 3d 20 30 3b 0a 20 20 73 79 73 74 65 6d 28 37 2c 30 2c 74 65 72 6d 29 3b 0a ┆ iaf:= 0; system(7,0,term); ┆
0x00700…00720 20 20 6f 70 65 6e 28 7a 69 2c 38 2c 74 65 72 6d 2c 30 29 3b 20 6f 70 65 6e 28 7a 75 2c 38 2c 74 ┆ open(zi,8,term,0); open(zu,8,t┆
0x00720…00740 65 72 6d 2c 30 29 3b 0a 20 20 61 6c 66 61 62 65 74 28 61 6c 66 61 29 3b 20 61 6c 66 61 28 34 36 ┆erm,0); alfabet(alfa); alfa(46┆
0x00740…00760 29 3a 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b 20 34 36 3b 20 69 6e 74 61 62 6c 65 28 61 6c 66 ┆):= 7 shift 12 + 46; intable(alf┆
0x00760…00780 61 29 3b 0a 0a 20 20 77 72 69 74 65 28 7a 75 2c 6e 6c 2c 32 2c 3c 3a 2d 20 67 65 6e 65 72 65 72 ┆a); write(zu,nl,2,<:- generer┆
0x00780…007a0 69 6e 67 20 61 66 20 70 72 6f 64 75 6b 74 69 6f 6e 73 76 65 72 73 69 6f 6e 20 3a 3e 2c 0a 20 20 ┆ing af produktionsversion :>, ┆
0x007a0…007c0 20 20 3c 3a 20 61 66 20 68 6f 76 65 64 70 72 6f 67 72 61 6d 20 66 6f 72 20 73 61 6d 6c 65 74 20 ┆ <: af hovedprogram for samlet ┆
0x007c0…007e0 64 72 69 66 74 20 2d 3c 31 30 3e 3a 3e 29 3b 0a 72 65 70 3a 0a 20 20 77 72 69 74 65 28 7a 75 2c ┆drift -<10>:>); rep: write(zu,┆
0x007e0…00800 3c 3a 3c 31 30 3e 69 6e 64 74 61 73 74 20 6d 61 67 6e 65 74 62 7d 6e 64 73 6e 61 76 6e 3a 20 3a ┆<:<10>indtast magnetbåndsnavn: :┆
0x00800…00820 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 61 64 73 74 72 69 6e 67 28 7a 69 2c 62 7d 6e 64 ┆>); ud(zu); readstring(zi,bånd┆
0x00820…00840 6e 61 76 6e 2c 31 29 3b 0a 20 20 69 66 20 2d 2c 28 20 20 20 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 ┆navn,1); if -,( læstegn(bånd┆
0x00840…00860 6e 61 76 6e 2e 69 61 66 2c 31 2c 74 65 67 6e 29 3d 31 30 39 20 20 20 20 20 20 20 20 20 20 20 20 ┆navn.iaf,1,tegn)=109 ┆
0x00860…00880 20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 ┆ and læstegn(båndnav┆
0x00880…008a0 6e 2e 69 61 66 2c 32 2c 74 65 67 6e 29 3d 31 31 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆n.iaf,2,tegn)=116 a┆
0x008a0…008c0 6e 64 0a 20 20 20 20 20 20 20 20 39 36 3c 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 ┆nd 96<læstegn(båndnavn.i┆
0x008c0…008e0 61 66 2c 33 2c 74 65 67 6e 29 20 61 6e 64 20 74 65 67 6e 3c 31 32 36 20 20 20 20 20 61 6e 64 0a ┆af,3,tegn) and tegn<126 and ┆
0x008e0…00900 20 20 20 20 20 20 20 20 39 36 3c 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c ┆ 96<læstegn(båndnavn.iaf,┆
0x00900…00920 (1, 31179) 34 2c 74 65 67 6e 29 20 61 6e 64 20 74 65 67 6e 3c 31 32 36 20 20 20 20 20 61 6e 64 0a 20 20 20 ┆4,tegn) and tegn<126 and ┆
0x00920…00940 20 20 20 20 20 34 37 3c 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c 35 2c 74 ┆ 47<læstegn(båndnavn.iaf,5,t┆
0x00940…00960 65 67 6e 29 20 61 6e 64 20 74 65 67 6e 3c 20 35 38 20 20 20 20 20 61 6e 64 0a 20 20 20 20 20 20 ┆egn) and tegn< 58 and ┆
0x00960…00980 20 20 34 37 3c 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c 36 2c 74 65 67 6e ┆ 47<læstegn(båndnavn.iaf,6,tegn┆
0x00980…009a0 29 20 61 6e 64 20 74 65 67 6e 3c 20 35 38 20 20 20 20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 34 ┆) and tegn< 58 and 4┆
0x009a0…009c0 37 3c 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c 37 2c 74 65 67 6e 29 20 61 ┆7<læstegn(båndnavn.iaf,7,tegn) a┆
0x009c0…009e0 6e 64 20 74 65 67 6e 3c 20 35 38 20 20 20 20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 34 37 3c 6c ┆nd tegn< 58 and 47<l┆
0x009e0…00a00 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c 38 2c 74 65 67 6e 29 20 61 6e 64 20 ┆æstegn(båndnavn.iaf,8,tegn) and ┆
0x00a00…00a20 74 65 67 6e 3c 20 35 38 20 20 20 20 20 29 0a 20 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 ┆tegn< 58 ) then begin ┆
0x00a20…00a40 20 20 77 72 69 74 65 28 7a 75 2c 3c 3a 2a 2a 2a 20 69 6c 6c 65 67 61 6c 74 20 66 6f 72 6d 61 74 ┆ write(zu,<:*** illegalt format┆
0x00a40…00a60 20 70 7d 20 62 7d 6e 64 6e 61 76 6e 20 2d 20 70 72 7c 76 20 69 67 65 6e 3c 31 30 3e 3a 3e 29 3b ┆ på båndnavn - prøv igen<10>:>);┆
0x00a60…00a80 0a 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 77 72 69 74 65 28 7a ┆ goto rep; end; write(z┆
0x00a80…00aa0 75 2c 3c 3a 3c 31 30 3e 69 6e 64 74 61 73 74 20 76 65 72 73 69 6f 6e 73 6e 75 6d 6d 65 72 3a 20 ┆u,<:<10>indtast versionsnummer: ┆
0x00aa0…00ac0 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 61 64 28 7a 69 2c 76 65 72 73 29 3b 0a 20 20 ┆:>); ud(zu); read(zi,vers); ┆
0x00ac0…00ae0 77 72 69 74 65 28 7a 75 2c 3c 3a 69 6e 64 74 61 73 74 20 75 64 67 61 76 65 20 28 78 78 2e 79 79 ┆write(zu,<:indtast udgave (xx.yy┆
0x00ae0…00b00 29 3a 20 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 61 64 28 7a 69 2c 75 64 67 2c 73 75 ┆): :>); ud(zu); read(zi,udg,su┆
0x00b00…00b20 62 6e 72 29 3b 0a 0a 20 20 69 6e 74 61 62 6c 65 28 30 29 3b 0a 0a 20 20 6d 6f 76 65 73 74 72 69 ┆bnr); intable(0); movestri┆
0x00b20…00b40 6e 67 28 6e 61 6d 65 73 2c 31 2c 3c 3a 67 65 6e 70 72 6f 64 62 61 73 65 3a 3e 29 3b 0a 20 20 6d ┆ng(names,1,<:genprodbase:>); m┆
0x00b40…00b60 6f 76 65 73 74 72 69 6e 67 28 6e 61 6d 65 73 2c 33 2c 3c 3a 67 65 6e 70 72 6f 64 6a 6f 62 3a 3e ┆ovestring(names,3,<:genprodjob:>┆
0x00b60…00b80 29 3b 0a 20 20 70 76 61 6c 28 31 2c 31 29 3a 3d 20 62 7d 6e 64 6e 61 76 6e 28 31 29 3b 20 70 76 ┆); pval(1,1):= båndnavn(1); pv┆
0x00b80…00ba0 61 6c 28 31 2c 32 29 3a 3d 20 62 7d 6e 64 6e 61 76 6e 28 32 29 3b 20 70 74 79 70 65 28 31 29 3a ┆al(1,2):= båndnavn(2); ptype(1):┆
0x00ba0…00bc0 3d 20 31 30 3b 0a 20 20 70 76 61 6c 28 32 2c 31 29 3a 3d 20 76 65 72 73 3b 20 20 20 20 20 20 20 ┆= 10; pval(2,1):= vers; ┆
0x00bc0…00be0 20 70 76 61 6c 28 32 2c 32 29 3a 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 70 74 79 70 65 28 ┆ pval(2,2):= 0; ptype(┆
0x00be0…00c00 32 29 3a 3d 20 20 34 3b 0a 20 20 70 76 61 6c 28 33 2c 31 29 3a 3d 20 75 64 67 3b 20 20 20 20 20 ┆2):= 4; pval(3,1):= udg; ┆
0x00c00…00c20 20 20 20 20 70 76 61 6c 28 33 2c 32 29 3a 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 70 74 79 ┆ pval(3,2):= 0; pty┆
0x00c20…00c40 70 65 28 33 29 3a 3d 20 20 34 3b 0a 20 20 70 76 61 6c 28 34 2c 31 29 3a 3d 20 73 75 62 6e 72 3b ┆pe(3):= 4; pval(4,1):= subnr;┆
0x00c40…00c60 20 20 20 20 20 20 20 70 76 61 6c 28 34 2c 32 29 3a 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ pval(4,2):= 0; ┆
0x00c60…00c80 70 74 79 70 65 28 34 29 3a 3d 20 20 34 3b 0a 0a 20 20 6d 61 6b 72 6f 70 72 6f 63 28 6e 61 6d 65 ┆ptype(4):= 4; makroproc(name┆
0x00c80…00ca0 73 2c 70 76 61 6c 2c 70 74 79 70 65 2c 34 2c 73 6f 6e 2c 30 29 3b 0a 20 20 6e 61 6d 65 73 28 31 ┆s,pval,ptype,4,son,0); names(1┆
0x00ca0…00cc0 29 3a 3d 20 6e 61 6d 65 73 28 33 29 3b 20 6e 61 6d 65 73 28 32 29 3a 3d 20 6e 61 6d 65 73 28 34 ┆):= names(3); names(2):= names(4┆
0x00cc0…00ce0 29 3b 0a 20 20 63 6f 6e 6e 65 63 74 5f 69 6e 28 6e 61 6d 65 73 29 3b 0a 0a 20 20 63 6c 6f 73 65 ┆); connect_in(names); close┆
0x00ce0…00d00 28 7a 75 2c 74 72 75 65 29 3b 20 63 6c 6f 73 65 28 7a 69 2c 74 72 75 65 29 3b 0a 20 20 74 72 61 ┆(zu,true); close(zi,true); tra┆
0x00d00…00d20 70 6d 6f 64 65 3a 3d 20 31 20 73 68 69 66 74 20 31 30 3b 0a 65 6e 64 0a 19 00 67 69 6e 0a 20 20 ┆pmode:= 1 shift 10; end gin ┆
0x00d20…00d40 20 20 77 72 69 74 65 28 7a 75 2c 3c 3a 2a 2a 2a 20 69 6c 6c 65 67 61 6c 74 20 66 6f 72 6d 61 74 ┆ write(zu,<:*** illegalt format┆
0x00d40…00d60 20 70 7d 20 62 7d 6e 64 6e 61 76 6e 20 2d 20 70 72 7c 76 20 69 67 65 6e 3c 31 30 3e 3a 3e 29 3b ┆ på båndnavn - prøv igen<10>:>);┆
0x00d60…00d80 0a 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 77 72 69 74 65 28 7a ┆ goto rep; end; write(z┆
0x00d80…00da0 75 2c 3c 3a 3c 31 30 3e 69 6e 64 74 61 73 74 20 76 65 72 73 69 6f 6e 73 6e 75 6d 6d 65 72 3a 20 ┆u,<:<10>indtast versionsnummer: ┆
0x00da0…00dc0 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 61 64 28 7a 69 2c 76 65 72 73 29 3b 0a 20 20 ┆:>); ud(zu); read(zi,vers); ┆
0x00dc0…00de0 77 72 69 74 65 28 7a 75 2c 3c 3a 69 6e 64 74 61 73 74 20 75 64 67 61 76 65 20 28 78 78 2e 79 79 ┆write(zu,<:indtast udgave (xx.yy┆
0x00de0…00e00 29 3a 20 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 61 64 28 7a 69 2c 75 64 67 2c 73 75 ┆): :>); ud(zu); read(zi,udg,su┆
0x00e00…00e20 62 6e 72 29 3b 0a 0a 20 20 69 6e 74 61 62 6c 65 28 30 29 3b 0a 0a 20 20 6d 6f 76 65 73 74 72 69 ┆bnr); intable(0); movestri┆
0x00e20…00e40 6e 67 28 6e 61 6d 65 73 2c 31 2c 3c 3a 67 65 6e 70 72 6f 64 62 61 73 65 3a 3e 29 3b 0a 20 20 6d ┆ng(names,1,<:genprodbase:>); m┆
0x00e40…00e60 6f 76 65 73 74 72 69 6e 67 28 6e 61 6d 65 73 2c 33 2c 3c 3a 67 65 6e 70 72 6f 64 6a 6f 62 3a 3e ┆ovestring(names,3,<:genprodjob:>┆
0x00e60…00e80 29 3b 0a 20 20 70 76 61 6c 28 31 2c 31 29 3a 3d 20 62 7d 6e 64 6e 61 76 6e 28 31 29 3b 20 70 76 ┆); pval(1,1):= båndnavn(1); pv┆
0x00e80…00ea0 61 6c 28 31 2c 32 29 3a 3d 20 62 7d 6e 64 6e 61 76 6e 28 32 29 3b 20 70 74 79 70 65 28 31 29 3a ┆al(1,2):= båndnavn(2); ptype(1):┆
0x00ea0…00ec0 3d 20 31 30 3b 0a 20 20 70 76 61 6c 28 32 2c 31 29 3a 3d 20 76 65 72 73 3b 20 20 20 20 20 20 20 ┆= 10; pval(2,1):= vers; ┆
0x00ec0…00ee0 20 70 76 61 6c 28 32 2c 32 29 3a 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 70 74 79 70 65 28 ┆ pval(2,2):= 0; ptype(┆
0x00ee0…00f00 32 29 3a 3d 20 20 34 3b 0a 20 20 70 76 61 6c 28 33 2c 31 29 3a 3d 20 75 64 67 3b 20 20 20 20 20 ┆2):= 4; pval(3,1):= udg; ┆
0x00f00…00f20 64 6f 20 78 33 2e 64 72 69 76 65 72 70 72 6f 63 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 ┆do x3.driverproc process descrip┆
0x00f20…00f40 74 69 6f 6e 2c 0a 20 20 20 77 30 2e 69 6e 2e 33 30 20 79 30 2e 31 36 37 37 37 31 31 36 0a 64 6f ┆tion, w0.in.30 y0.16777116 do┆
0x00f40…00f60 20 78 33 2e 73 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 2c 0a 20 20 20 77 30 ┆ x3.s process description, w0┆
0x00f60…00f80 2e 69 6e 2e 33 30 20 79 30 2e 31 36 37 37 37 31 31 37 0a 64 6f 20 77 30 2e 37 38 20 77 30 2e 78 ┆.in.30 y0.16777117 do w0.78 w0.x┆
0x00f80…00fa0 30 2e 30 20 77 30 2e 78 30 2e 30 2c 0a 20 20 20 77 30 2e 69 6e 2e 33 30 20 79 30 2e 31 36 37 37 ┆0.0 w0.x0.0, w0.in.30 y0.1677┆
0x00fa0…00fc0 37 31 31 37 0a 19 00 00 34 31 10 ff ff ff ff ff ff ff ff ff ff ff ff 00 00 01 00 00 14 ff ff ff ┆7117 41 ┆
0x00fc0…00fe0 ff ff ff ff ff ff 00 00 07 ff ff ff 00 00 00 00 00 00 ff ff ff 00 00 04 ff ff ff 00 01 01 ff ff ┆ ┆
0x00fe0…01000 ff 00 00 13 00 00 13 00 00 07 00 00 9a 00 00 9b 00 00 00 00 00 01 00 00 99 00 00 00 00 00 01 00 ┆ ┆
0x01000…01020 00 01 00 00 02 00 00 00 00 00 00 00 00 01 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01020…01040 00 00 00 ff f0 00 ff ff ff ff f0 00 ff ff ff ff f0 0a ff f0 20 ff f0 00 ff f0 00 ff f0 00 ff f0 ┆ ┆
0x01040…01060 00 ff f0 00 ff f0 00 ff f0 00 ff ff ff ff f0 00 ff f0 00 00 cd b1 00 cd a9 00 cd a1 00 00 08 00 ┆ ┆
0x01060…01080 00 00 00 cd 9d 00 00 04 00 00 00 00 cd 95 00 00 08 00 00 00 00 cd 85 00 00 10 00 00 00 00 cb 85 ┆ ┆
0x01080…010a0 00 02 00 00 00 00 00 c3 25 00 c5 25 00 c5 26 00 c5 26 00 c5 26 80 00 04 77 72 6b 30 30 30 35 33 ┆ % % & & & wrk00053┆
0x010a0…010c0 37 00 00 00 00 3c 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 c3 25 00 ┆7 <* % ┆
0x010c0…010e0 c5 25 00 00 00 00 00 00 ff ff fa 02 e1 da 40 00 00 00 c5 3d 00 c7 3d 00 c7 3e 00 c7 3e 00 c7 3e ┆ % @ = = > > >┆
0x010e0…01100 80 00 04 64 6f 70 72 6f 63 74 78 00 00 00 00 00 3c 2c 00 00 00 00 00 00 00 00 01 00 00 00 00 00 ┆ doproctx <, ┆
0x01100…01120 00 00 00 01 00 00 04 00 c5 3d 00 c7 3d 00 02 00 00 00 00 ff ff fa 02 e1 da 00 ce 82 00 c7 55 00 ┆ = = U ┆
0x01120…01140 c9 55 00 c9 56 00 c9 56 00 c9 56 80 00 04 73 79 73 76 65 64 6c 00 00 00 00 00 00 3c 22 00 00 00 ┆ U V V V sysvedl <" ┆
0x01140…01160 00 00 99 00 00 9a 00 00 00 00 00 00 00 00 01 00 00 04 00 c7 55 00 c9 55 00 02 00 00 00 00 ff ff ┆ U U ┆
0x01160…01180 fa 02 e1 da 00 ce b4 00 c9 6d 00 cb 6d 00 cb 6e 00 cb 6e 00 cb 6e 00 00 00 00 cb 77 00 cb 78 00 ┆ m m n n n w x ┆
0x01180…011a0 cb 78 00 cb 78 00 00 00 00 00 00 00 20 02 00 20 0a 64 6f 00 00 00 00 00 00 00 00 00 04 00 c9 6d ┆ x x do m┆
0x011a0…011c0 00 cb 6d 00 02 00 00 00 00 ff ff fa 02 e1 da 00 ce e6 00 c3 11 00 00 14 00 00 00 00 c2 ef 00 c2 ┆ m ┆
0x011c0…011e0 cd 00 c2 ab 00 c2 89 00 00 22 00 00 00 00 02 00 00 80 04 00 00 00 00 40 0a 77 30 00 00 00 00 00 ┆ " @ w0 ┆
0x011e0…01200 00 06 00 00 00 00 00 00 00 00 00 ff ff fa 00 c2 8a 00 20 0a 63 6f 6e 74 72 61 63 74 00 00 20 02 ┆ contract ┆
0x01200…01220 (1, 31180) 64 6f 20 78 33 2e 64 72 69 76 65 72 70 72 6f 63 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 ┆do x3.driverproc process descrip┆
0x01220…01240 74 69 6f 6e 2c 0a 20 20 77 72 69 74 65 20 78 30 2e 74 65 78 74 2e 31 30 0a 64 6f 20 78 33 2e 73 ┆tion, write x0.text.10 do x3.s┆
0x01240…01260 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 2c 0a 20 20 77 72 69 74 65 20 78 30 ┆ process description, write x0┆
0x01260…01280 2e 74 65 78 74 2e 31 30 0a 64 6f 20 77 30 2e 37 38 20 77 30 2e 78 30 2e 30 2c 0a 20 20 77 30 2e ┆.text.10 do w0.78 w0.x0.0, w0.┆
0x01280…012a0 78 30 2e 30 2c 0a 20 20 77 72 69 74 65 20 78 30 2e 74 65 78 74 2e 31 30 0a 19 00 00 00 00 00 00 ┆x0.0, write x0.text.10 ┆
0x012a0…012c0 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x012c0…012e0 ff ff ff ff ff ff ff ff ff 00 00 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 09 ff ff ┆ ┆
0x012e0…01300 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 12 00 00 07 00 00 0a ff ff ff 00 ┆ ┆
0x01300…01320 00 09 00 00 00 ff ff ff ff ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01320…01340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 ff ff ff ff ff ff ff ff ff ff ff ff ff f0 ┆ ┆
0x01340…01360 00 ff ff ff ff f0 00 ff f0 00 ff ff ff ff f0 0a ff f0 20 ff ff ff ff f0 00 ff ff ff ff f0 00 ff ┆ ┆
0x01360…01380 f0 00 ff f0 00 00 00 00 00 00 82 00 00 00 00 00 8b 00 cd bb 00 cd b3 00 cd ab 00 00 08 00 00 00 ┆ ┆
0x01380…013a0 00 cd a7 00 00 04 00 00 00 00 cd 9f 00 00 08 00 00 00 00 cd 8f 00 00 10 00 00 00 00 cb 8f 00 02 ┆ ┆
0x013a0…013c0 00 00 00 00 00 c3 2f 00 c5 2f 00 c5 30 00 c5 30 00 c5 30 00 00 00 00 00 82 00 cf 4f 00 00 00 00 ┆ / / 0 0 0 O ┆
0x013c0…013e0 00 ff 00 10 01 00 00 00 00 00 00 80 00 00 04 10 00 00 00 00 ff ff aa 00 00 04 00 c3 2f 00 c5 2f ┆ / /┆
0x013e0…01400 00 02 00 00 00 00 ff ff fa 02 e1 da 40 00 00 00 c5 47 00 c7 47 00 c7 48 00 c7 48 00 c7 48 00 00 ┆ @ G G H H H ┆
0x01400…01420 00 00 90 e4 40 00 00 00 c0 09 00 90 09 00 cf 6e 00 af b6 09 c1 ec 00 a3 12 00 a3 16 00 00 00 00 ┆ @ n ┆
0x01420…01440 c0 88 00 00 04 00 c5 47 00 c7 47 00 02 00 00 00 00 ff ff fa 02 e1 da 00 ce 8c 00 c7 5f 00 c9 5f ┆ G G _ _┆
0x01440…01460 00 c9 60 00 c9 60 00 c9 60 80 00 04 74 6f 6d 63 6f 6e 74 72 61 63 74 00 00 3c 22 00 00 00 00 00 ┆ ` ` ` tomcontract <" ┆
0x01460…01480 00 00 00 01 00 00 00 00 00 00 00 00 01 00 00 04 00 c7 5f 00 c9 5f 00 02 00 00 00 00 ff ff fa 02 ┆ _ _ ┆
0x01480…014a0 e1 da 00 ce be 00 c9 77 00 cb 77 00 cb 78 00 cb 78 00 cb 78 00 00 00 00 00 00 00 20 02 00 20 0a ┆ w w x x x ┆
0x014a0…014c0 64 6f 00 00 00 00 00 00 00 00 00 00 00 40 0a 77 30 00 00 00 00 00 00 00 00 00 00 00 20 02 00 20 ┆do @ w0 ┆
0x014c0…014e0 0a 64 6f 00 00 00 00 00 00 00 00 00 00 00 40 0a 78 33 00 00 00 00 00 00 00 00 00 00 00 80 0a 73 ┆ do @ x3 s┆
0x014e0…01500 00 00 00 00 00 00 00 00 00 00 00 00 40 0a 70 72 6f 63 65 73 73 00 00 00 00 00 00 40 0a 00 20 02 ┆ @ process @ ┆
0x01500…01520 62 65 67 69 6e 20 6d 65 73 73 61 67 65 20 66 69 6e 64 75 64 2c 20 73 69 64 65 20 31 20 2d 20 38 ┆begin message findud, side 1 - 8┆
0x01520…01540 30 30 33 32 34 2f 63 6c 3b 0a 20 20 69 6e 74 65 67 65 72 20 6d 6b 3b 0a 20 20 6c 6f 6e 67 20 61 ┆00324/cl; integer mk; long a┆
0x01540…01560 72 72 61 79 20 6e 61 76 6e 28 31 3a 32 29 3b 0a 0a 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 ┆rray navn(1:2); message procedu┆
0x01560…01580 72 65 20 66 69 6e 64 6f 75 74 2c 20 73 69 64 65 20 31 20 2d 20 38 30 30 33 32 34 2f 63 6c 3b 0a ┆re findout, side 1 - 800324/cl; ┆
0x01580…015a0 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 6f 75 74 28 6e 61 76 6e 29 ┆ integer procedure findout(navn)┆
0x015a0…015c0 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 6e 61 76 6e 3b 0a 0a 3c 2a 20 70 72 6f 63 65 64 75 ┆; long array navn; <* procedu┆
0x015c0…015e0 72 65 6e 20 66 6f 72 73 7c 67 65 72 2c 20 69 20 72 7b 6b 6b 65 66 7c 6c 67 65 2c 20 6f 6d 20 65 ┆ren forsøger, i rækkefølge, om e┆
0x015e0…01600 6e 20 61 66 20 73 6b 72 69 76 65 72 6e 65 0a 70 72 69 6e 74 65 72 31 2c 20 70 72 69 6e 74 65 72 ┆n af skriverne printer1, printer┆
0x01600…01620 32 20 65 6c 6c 65 72 20 70 72 69 6e 74 65 72 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 20 73 6f 6d ┆2 eller printer kan benyttes som┆
0x01620…01640 20 6f 75 74 70 75 74 2d 0a 6d 65 64 69 65 20 61 66 20 64 65 6e 20 6b 61 6c 64 65 6e 64 65 20 70 ┆ output- medie af den kaldende p┆
0x01640…01660 72 6f 63 65 73 2c 20 64 76 73 2e 20 61 74 20 64 65 74 20 75 6e 64 65 72 73 7c 67 65 73 20 6f 6d ┆roces, dvs. at det undersøges om┆
0x01660…01680 0a 70 72 69 6e 74 65 72 2d 70 72 6f 63 65 73 73 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 ┆ printer-processen er reserveret┆
0x01680…016a0 20 61 66 20 65 6e 20 61 6e 64 65 6e 20 70 72 6f 63 65 73 20 65 6c 6c 65 72 0a 6f 6d 20 64 65 72 ┆ af en anden proces eller om der┆
0x016a0…016c0 20 72 65 74 75 72 6e 65 72 65 73 20 66 65 6a 6c 73 74 61 74 75 73 20 76 65 64 20 66 6f 72 73 7c ┆ returneres fejlstatus ved forsø┆
0x016c0…016e0 67 20 70 7d 20 73 6b 72 69 76 6e 69 6e 67 2e 0a 0a 6b 61 6c 64 3a 20 66 69 6e 64 6f 75 74 28 6e ┆g på skrivning. kald: findout(n┆
0x016e0…01700 61 76 6e 29 3b 0a 0a 66 69 6e 64 6f 75 74 20 20 28 72 65 74 75 72 2c 69 6e 74 65 67 65 72 29 20 ┆avn); findout (retur,integer) ┆
0x01700…01720 20 20 20 20 20 6d 6f 64 65 6b 69 6e 64 20 66 6f 72 20 64 65 6e 20 66 75 6e 64 6e 65 20 79 64 72 ┆ modekind for den fundne ydr┆
0x01720…01740 65 20 65 6e 68 65 64 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 ┆e enhed, ┆
0x01740…01760 20 20 20 20 20 20 20 20 20 73 65 20 65 6e 64 76 69 64 65 72 65 20 6e 61 76 6e 2e 0a 0a 6e 61 76 ┆ se endvidere navn. nav┆
0x01760…01780 6e 20 20 20 20 20 28 72 65 74 75 72 2c 6c 6f 6e 67 20 61 72 72 61 79 29 20 20 20 6e 61 76 6e 28 ┆n (retur,long array) navn(┆
0x01780…017a0 31 3a 32 29 20 3a 20 6e 61 76 6e 20 70 7d 20 64 65 6e 20 66 7c 72 73 74 65 20 79 64 72 65 20 65 ┆1:2) : navn på den første ydre e┆
0x017a0…017c0 6e 68 65 64 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 ┆nhed ┆
0x017c0…017e0 20 20 20 20 64 65 72 20 66 69 6e 64 65 73 20 6f 6b 2e 20 46 69 6e 64 65 73 20 69 6e 67 65 6e 20 ┆ der findes ok. Findes ingen ┆
0x017e0…01800 61 66 20 64 65 20 6f 76 65 6e 6e 7b 76 6e 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆af de ovennævnte ┆
0x01800…01820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 72 69 76 65 72 65 20 6f 6b 20 72 65 74 75 72 ┆ skrivere ok retur┆
0x01820…01840 6e 65 72 65 73 20 6d 65 64 20 6e 61 76 6e 20 28 6f 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆neres med navn (og ┆
0x01840…01860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 6b 69 6e 64 29 20 66 6f 72 20 70 ┆ modekind) for p┆
0x01860…01880 72 69 6d 61 72 79 2d 6f 75 74 70 75 74 2e 0a 0a 70 72 6f 63 65 64 75 72 65 6e 20 64 61 6e 6e 65 ┆rimary-output. proceduren danne┆
0x01880…018a0 72 20 28 7b 6e 64 72 65 72 29 20 64 65 73 75 64 65 6e 20 65 6e 20 69 6e 64 67 61 6e 67 20 69 20 ┆r (ændrer) desuden en indgang i ┆
0x018a0…018c0 6b 61 74 61 6c 6f 67 65 74 20 6d 65 64 0a 6e 61 76 6e 65 74 20 27 68 70 6f 27 2c 20 73 7d 20 64 ┆kataloget med navnet 'hpo', så d┆
0x018c0…018e0 65 6e 20 62 65 73 6b 72 69 76 65 72 20 64 65 6e 20 66 75 6e 64 6e 65 20 79 64 72 65 20 65 6e 68 ┆en beskriver den fundne ydre enh┆
0x018e0…01900 65 64 2e 20 28 73 6b 72 69 76 65 72 2f 73 6b 7b 72 6d 29 0a 0a 66 65 6a 6c 73 74 61 74 75 73 20 ┆ed. (skriver/skærm) fejlstatus ┆
0x01900…01920 76 65 64 20 73 6b 72 69 76 6e 69 6e 67 20 75 6e 64 65 72 73 7c 67 65 73 20 76 65 64 20 61 74 20 ┆ved skrivning undersøges ved at ┆
0x01920…01940 73 65 6e 64 65 20 65 6e 20 6f 75 74 70 75 74 2d 6d 65 73 73 61 67 65 0a 6d 65 64 20 74 65 6b 73 ┆sende en output-message med teks┆
0x01940…01960 74 65 6e 20 3c 3a 3c 33 32 3e 3c 33 32 3e 3c 33 32 3e 3c 33 32 3e 3c 31 33 3e 3a 3e 0a 0a 6b 61 ┆ten <:<32><32><32><32><13>:> ka┆
0x01960…01980 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 20 69 6e 67 65 6e 0a 0a 66 65 6a 6c 72 65 61 6b ┆ldte procedurer: ingen fejlreak┆
0x01980…019a0 74 69 6f 6e 65 72 3a 20 69 6e 67 65 6e 0a 0a 2a 3e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 ┆tioner: ingen *> message proce┆
0x019a0…019c0 64 75 72 65 20 66 69 6e 64 6f 75 74 2c 20 73 69 64 65 20 32 20 2d 20 38 30 30 33 32 34 2f 63 6c ┆dure findout, side 2 - 800324/cl┆
0x019c0…019e0 3b 0a 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 66 6f 72 73 7c 67 2c 73 74 2c 6d 6b 3b ┆; begin integer forsøg,st,mk;┆
0x019e0…01a00 0a 20 20 62 6f 6f 6c 65 61 6e 20 6f 6b 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a ┆ boolean ok; integer array z┆
0x01a00…01a20 64 28 31 3a 32 30 29 2c 7a 73 28 31 3a 31 32 29 2c 74 61 69 6c 2c 69 61 28 31 3a 31 30 29 2c 61 ┆d(1:20),zs(1:12),tail,ia(1:10),a┆
0x01a20…01a40 6e 73 77 28 31 3a 38 29 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 64 6f 63 ┆nsw(1:8); real array field doc┆
0x01a40…01a60 3b 0a 20 20 7a 6f 6e 65 20 7a 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 0a 20 20 64 6f 63 ┆; zone z(1,1,stderror); doc┆
0x01a60…01a80 3a 3d 20 32 3b 0a 20 20 66 6f 72 73 7c 67 3a 3d 20 30 3b 0a 20 20 72 65 70 65 61 74 0a 20 20 20 ┆:= 2; forsøg:= 0; repeat ┆
0x01a80…01aa0 20 66 6f 72 73 7c 67 3a 3d 20 66 6f 72 73 7c 67 2b 31 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 36 ┆ forsøg:= forsøg+1; getzone6┆
0x01aa0…01ac0 28 7a 2c 7a 64 29 3b 0a 20 20 20 20 7a 64 28 31 29 3a 3d 20 31 34 3b 20 3c 2a 20 6d 6f 64 65 6b ┆(z,zd); zd(1):= 14; <* modek┆
0x01ac0…01ae0 69 6e 64 20 2a 3e 0a 20 20 20 20 6d 6f 76 65 73 74 72 69 6e 67 28 7a 64 2e 64 6f 63 2c 31 2c 63 ┆ind *> movestring(zd.doc,1,c┆
0x01ae0…01b00 61 73 65 20 66 6f 72 73 7c 67 20 6f 66 20 28 0a 20 20 20 20 20 20 3c 3a 70 72 69 6e 74 65 72 31 ┆ase forsøg of ( <:printer1┆
0x01b00…01b20 (1, 31181) 3a 3e 2c 3c 3a 70 72 69 6e 74 65 72 32 3a 3e 2c 3c 3a 70 72 69 6e 74 65 72 3a 3e 29 29 3b 0a 20 ┆:>,<:printer2:>,<:printer:>)); ┆
0x01b20…01b40 20 20 20 7a 64 28 37 29 3a 3d 20 7a 64 28 38 29 3a 3d 20 7a 64 28 39 29 3a 3d 20 30 3b 0a 20 20 ┆ zd(7):= zd(8):= zd(9):= 0; ┆
0x01b40…01b60 20 20 7a 64 28 31 30 29 3a 3d 20 30 3b 20 3c 2a 20 67 69 76 65 75 70 20 2a 3e 0a 20 20 20 20 7a ┆ zd(10):= 0; <* giveup *> z┆
[…truncated at 200 lines…]