|
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…00030 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 00 00 00 00 72 d4 5a 00 00 00 00 00 00 00 00 00 ┆ !H Z cdancldpptx disc r Z ┆
0x00030…00060 00 00 00 00 53 d8 00 00 0a 00 00 13 64 6f 70 72 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 ┆ S doprocprior disc eM ┆
0x00060…00090 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 73 63 00 00 00 00 00 00 00 00 65 4d c8 00 00 00 ┆ a doproctx disc eM ┆
0x00090…000c0 00 00 00 00 00 00 00 00 00 00 72 ea 00 00 0a 00 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 ┆ r findudtx disc s ┆
0x000c0…000f0 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 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 ┆ initsysnavn disc ┆
0x000f0…00120 67 f6 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆g å 0 N pri0tx disc ┆
0x00120…00150 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 00 00 00 00 00 00 00 00 00 04 64 69 73 63 00 00 ┆ B N pritx disc ┆
0x00150…00180 00 00 00 00 00 00 9b b1 40 00 00 00 00 00 00 00 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…001b0 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 45 73 79 73 66 72 65 67 00 00 00 00 00 00 00 49 ┆c tØ q < Esysfreg I┆
0x001b0…001e0 64 69 73 63 00 00 00 00 00 00 00 00 77 0d 0d 00 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 ┆disc w X sysgenhænd ┆
0x001e0…00210 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 b8 00 00 0a 00 00 13 74 63 75 64 73 6b 72 69 66 ┆ disc c1y U tcudskrif┆
0x00210…00240 74 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 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 ┆t disc bo a tdotds┆
0x00240…00270 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 00 00 00 00 08 b1 93 00 00 0a 00 00 13 74 64 73 ┆t disc Æ J tds┆
0x00270…002a0 74 6c 6f 67 00 00 00 00 00 00 00 04 64 69 73 63 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 ┆tlog disc _P^ ┆
0x002a0…002d0 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 00 00 00 00 00 00 00 00 00 00 09 13 cb 00 00 0a ┆tilføjdest disc _* ┆
0x002d0…00300 00 00 13 74 72 65 77 69 6e 64 00 00 00 00 00 00 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 ┆ trewind disc a;6 ┆
0x00300…00330 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 00 00 00 00 5d 0c af 00 00 00 00 00 00 00 00 00 ┆ R0 tsættid disc Å ┆
0x00330…00360 00 00 00 09 66 50 00 00 0a 00 00 13 74 7a 66 72 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 ┆ fP tzfra disc c + ┆
0x00360…00390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xc…]
0x005d0…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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 ┆ ┆
0x00600…00630 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 29 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 ┆begin zone zi,zu(13,1,stderror); real array ┆
0x00630…00660 62 7d 6e 64 6e 61 76 6e 2c 74 65 72 6d 28 31 3a 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 ┆båndnavn,term(1:2), names(1:4), pval(1:4,1:2); ┆
0x00660…00690 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 67 65 72 20 70 6f 73 2c 74 65 67 6e 2c 76 65 72 ┆ integer array field iaf; integer pos,tegn,ver┆
0x00690…006c0 73 2c 75 64 67 2c 73 75 62 6e 72 3b 0a 20 20 69 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 ┆s,udg,subnr; integer array ptype(1:4), alfa(0:┆
0x006c0…006f0 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 0a 20 20 69 61 66 3a 3d 20 30 3b 0a 20 20 73 79 ┆255); boolean array son(1:2); iaf:= 0; sy┆
0x006f0…00720 73 74 65 6d 28 37 2c 30 2c 74 65 72 6d 29 3b 0a 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 ┆stem(7,0,term); open(zi,8,term,0); open(zu,8,t┆
0x00720…00750 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 29 3a 3d 20 37 20 73 68 69 66 74 20 31 32 20 2b ┆erm,0); alfabet(alfa); alfa(46):= 7 shift 12 +┆
0x00750…00780 20 34 36 3b 20 69 6e 74 61 62 6c 65 28 61 6c 66 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 ┆ 46; intable(alfa); write(zu,nl,2,<:- generer┆
0x00780…007b0 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 20 20 3c 3a 20 61 66 20 68 6f 76 65 64 70 72 6f ┆ing af produktionsversion :>, <: af hovedpro┆
0x007b0…007e0 67 72 61 6d 20 66 6f 72 20 73 61 6d 6c 65 74 20 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 ┆gram for samlet drift -<10>:>); rep: write(zu,┆
0x007e0…00810 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 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 65 ┆<:<10>indtast magnetbåndsnavn: :>); ud(zu); re┆
0x00810…00840 61 64 73 74 72 69 6e 67 28 7a 69 2c 62 7d 6e 64 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 ┆adstring(zi,båndnavn,1); if -,( læstegn(bånd┆
0x00840…00870 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 20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 ┆navn.iaf,1,tegn)=109 and ┆
0x00870…008a0 20 6c 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 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 ┆ læstegn(båndnavn.iaf,2,tegn)=116 a┆
0x008a0…008d0 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 61 66 2c 33 2c 74 65 67 6e 29 20 61 6e 64 20 74 ┆nd 96<læstegn(båndnavn.iaf,3,tegn) and t┆
0x008d0…00900 65 67 6e 3c 31 32 36 20 20 20 20 20 61 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 61 66 2c ┆egn<126 and 96<læstegn(båndnavn.iaf,┆
0x00900…00930 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 20 20 20 20 20 34 37 3c 6c 7b 73 74 65 67 6e 28 ┆4,tegn) and tegn<126 and 47<læstegn(┆
0x00930…00960 62 7d 6e 64 6e 61 76 6e 2e 69 61 66 2c 35 2c 74 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 ┆båndnavn.iaf,5,tegn) and tegn< 58 and ┆
0x00960…00990 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 29 20 61 6e 64 20 74 65 67 6e 3c 20 35 38 20 20 ┆ 47<læstegn(båndnavn.iaf,6,tegn) and tegn< 58 ┆
0x00990…009c0 20 20 20 61 6e 64 0a 20 20 20 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 37 2c 74 65 67 6e 29 20 61 ┆ and 47<læstegn(båndnavn.iaf,7,tegn) a┆
0x009c0…009f0 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 7b 73 74 65 67 6e 28 62 7d 6e 64 6e 61 76 6e 2e ┆nd tegn< 58 and 47<læstegn(båndnavn.┆
0x009f0…00a20 69 61 66 2c 38 2c 74 65 67 6e 29 20 61 6e 64 20 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 ┆iaf,8,tegn) and tegn< 58 ) then begin ┆
0x00a20…00a50 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 20 70 7d 20 62 7d 6e 64 6e 61 76 6e 20 2d 20 70 ┆ write(zu,<:*** illegalt format på båndnavn - p┆
0x00a50…00a80 72 7c 76 20 69 67 65 6e 3c 31 30 3e 3a 3e 29 3b 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 ┆røv igen<10>:>); goto rep; end; write(z┆
0x00a80…00ab0 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 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 ┆u,<:<10>indtast versionsnummer: :>); ud(zu); r┆
0x00ab0…00ae0 65 61 64 28 7a 69 2c 76 65 72 73 29 3b 0a 20 20 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 ┆ead(zi,vers); write(zu,<:indtast udgave (xx.yy┆
0x00ae0…00b10 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 62 6e 72 29 3b 0a 0a 20 20 69 6e 74 61 62 6c 65 ┆): :>); ud(zu); read(zi,udg,subnr); intable┆
0x00b10…00b40 28 30 29 3b 0a 0a 20 20 6d 6f 76 65 73 74 72 69 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 ┆(0); movestring(names,1,<:genprodbase:>); m┆
0x00b40…00b70 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 29 3b 0a 20 20 70 76 61 6c 28 31 2c 31 29 3a 3d ┆ovestring(names,3,<:genprodjob:>); pval(1,1):=┆
0x00b70…00ba0 20 62 7d 6e 64 6e 61 76 6e 28 31 29 3b 20 70 76 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 ┆ båndnavn(1); pval(1,2):= båndnavn(2); ptype(1):┆
0x00ba0…00bd0 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 20 70 76 61 6c 28 32 2c 32 29 3a 3d 20 30 3b 20 ┆= 10; pval(2,1):= vers; pval(2,2):= 0; ┆
0x00bd0…00c00 20 20 20 20 20 20 20 20 20 20 70 74 79 70 65 28 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 ┆ ptype(2):= 4; pval(3,1):= udg; ┆
0x00c00…00c30 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 70 65 28 33 29 3a 3d 20 20 34 3b 0a 20 20 70 76 ┆ pval(3,2):= 0; ptype(3):= 4; pv┆
0x00c30…00c60 61 6c 28 34 2c 31 29 3a 3d 20 73 75 62 6e 72 3b 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 ┆al(4,1):= subnr; pval(4,2):= 0; ┆
0x00c60…00c90 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 73 2c 70 76 61 6c 2c 70 74 79 70 65 2c 34 2c 73 ┆ptype(4):= 4; makroproc(names,pval,ptype,4,s┆
0x00c90…00cc0 6f 6e 2c 30 29 3b 0a 20 20 6e 61 6d 65 73 28 31 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 ┆on,0); names(1):= names(3); names(2):= names(4┆
0x00cc0…00cf0 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 28 7a 75 2c 74 72 75 65 29 3b 20 63 6c 6f 73 65 ┆); connect_in(names); close(zu,true); close┆
0x00cf0…00d20 28 7a 69 2c 74 72 75 65 29 3b 0a 20 20 74 72 61 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 ┆(zi,true); trapmode:= 1 shift 10; end gin ┆
0x00d20…00d50 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 20 70 7d 20 62 7d 6e 64 6e 61 76 6e 20 2d 20 70 ┆ write(zu,<:*** illegalt format på båndnavn - p┆
0x00d50…00d80 72 7c 76 20 69 67 65 6e 3c 31 30 3e 3a 3e 29 3b 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 ┆røv igen<10>:>); goto rep; end; write(z┆
0x00d80…00db0 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 3a 3e 29 3b 20 75 64 28 7a 75 29 3b 0a 20 20 72 ┆u,<:<10>indtast versionsnummer: :>); ud(zu); r┆
0x00db0…00de0 65 61 64 28 7a 69 2c 76 65 72 73 29 3b 0a 20 20 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 ┆ead(zi,vers); write(zu,<:indtast udgave (xx.yy┆
0x00de0…00e10 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 62 6e 72 29 3b 0a 0a 20 20 69 6e 74 61 62 6c 65 ┆): :>); ud(zu); read(zi,udg,subnr); intable┆
0x00e10…00e40 28 30 29 3b 0a 0a 20 20 6d 6f 76 65 73 74 72 69 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 ┆(0); movestring(names,1,<:genprodbase:>); m┆
0x00e40…00e70 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 29 3b 0a 20 20 70 76 61 6c 28 31 2c 31 29 3a 3d ┆ovestring(names,3,<:genprodjob:>); pval(1,1):=┆
0x00e70…00ea0 20 62 7d 6e 64 6e 61 76 6e 28 31 29 3b 20 70 76 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 ┆ båndnavn(1); pval(1,2):= båndnavn(2); ptype(1):┆
0x00ea0…00ed0 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 20 70 76 61 6c 28 32 2c 32 29 3a 3d 20 30 3b 20 ┆= 10; pval(2,1):= vers; pval(2,2):= 0; ┆
0x00ed0…00f00 20 20 20 20 20 20 20 20 20 20 70 74 79 70 65 28 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 ┆ ptype(2):= 4; pval(3,1):= udg; ┆
0x00f00…00f30 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 74 69 6f 6e 2c 0a 20 20 20 77 30 2e 69 6e 2e 33 ┆do x3.driverproc process description, w0.in.3┆
0x00f30…00f60 30 20 79 30 2e 31 36 37 37 37 31 31 36 0a 64 6f 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 ┆0 y0.16777116 do x3.s process description, w0┆
0x00f60…00f90 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 30 2e 30 20 77 30 2e 78 30 2e 30 2c 0a 20 20 20 ┆.in.30 y0.16777117 do w0.78 w0.x0.0 w0.x0.0, ┆
0x00f90…00fc0 77 30 2e 69 6e 2e 33 30 20 79 30 2e 31 36 37 37 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 ┆w0.in.30 y0.16777117 41 ┆
0x00fc0…00ff0 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 ff 00 00 13 00 00 13 00 00 07 00 00 9a 00 00 9b ┆ ┆
0x00ff0…01020 00 00 00 00 00 01 00 00 99 00 00 00 00 00 01 00 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…01050 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 00 ff f0 00 ff f0 00 ff f0 00 ff ff ff ff f0 00 ┆ ┆
0x01050…01080 ff f0 00 00 cd b1 00 cd a9 00 cd a1 00 00 08 00 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…010b0 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 37 00 00 00 00 3c 2a 00 00 00 00 00 00 00 00 00 ┆ % % & & & wrk000537 <* ┆
0x010b0…010e0 00 00 00 00 00 00 00 00 01 00 00 00 00 c3 25 00 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…01110 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 00 00 00 01 00 00 04 00 c5 3d 00 c7 3d 00 02 00 ┆ doproctx <, = = ┆
0x01110…01140 00 00 00 ff ff fa 02 e1 da 00 ce 82 00 c7 55 00 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 U V V V sysvedl <" ┆
0x01140…01170 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 fa 02 e1 da 00 ce b4 00 c9 6d 00 cb 6d 00 cb 6e ┆ U U m m n┆
0x01170…011a0 00 cb 6e 00 cb 6e 00 00 00 00 cb 77 00 cb 78 00 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 ┆ n n w x x x do m┆
0x011a0…011d0 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 cd 00 c2 ab 00 c2 89 00 00 22 00 00 00 00 02 00 ┆ m " ┆
0x011d0…01200 00 80 04 00 00 00 00 40 0a 77 30 00 00 00 00 00 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 ┆ @ w0 contract ┆
0x01200…01230 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 74 69 6f 6e 2c 0a 20 20 77 72 69 74 65 20 78 30 ┆do x3.driverproc process description, write x0┆
0x01230…01260 2e 74 65 78 74 2e 31 30 0a 64 6f 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 77 72 69 74 65 20 78 30 ┆.text.10 do x3.s process description, write x0┆
0x01260…01290 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 78 30 2e 30 2c 0a 20 20 77 72 69 74 65 20 78 30 ┆.text.10 do w0.78 w0.x0.0, w0.x0.0, write x0┆
0x01290…012c0 2e 74 65 78 74 2e 31 30 0a 19 00 00 00 00 00 00 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 ┆.text.10 ┆
0x012c0…012f0 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 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x012f0…01320 ff ff ff 00 00 12 00 00 07 00 00 0a ff ff ff 00 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…01350 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 00 ff ff ff ff f0 00 ff f0 00 ff ff ff ff f0 0a ┆ ┆
0x01350…01380 ff f0 20 ff ff ff ff f0 00 ff ff ff ff f0 00 ff 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…013b0 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 00 00 00 00 00 c3 2f 00 c5 2f 00 c5 30 00 c5 30 ┆ / / 0 0┆
0x013b0…013e0 00 c5 30 00 00 00 00 00 82 00 cf 4f 00 00 00 00 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 ┆ 0 O / /┆
0x013e0…01410 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 00 00 90 e4 40 00 00 00 c0 09 00 90 09 00 cf 6e ┆ @ G G H H H @ n┆
0x01410…01440 00 af b6 09 c1 ec 00 a3 12 00 a3 16 00 00 00 00 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…01470 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 00 00 00 01 00 00 00 00 00 00 00 00 01 00 00 04 ┆ ` ` ` tomcontract <" ┆
0x01470…014a0 00 c7 5f 00 c9 5f 00 02 00 00 00 00 ff ff fa 02 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…014d0 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 0a 64 6f 00 00 00 00 00 00 00 00 00 00 00 40 0a ┆do @ w0 do @ ┆
0x014d0…01500 78 33 00 00 00 00 00 00 00 00 00 00 00 80 0a 73 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 ┆x3 s @ process @ ┆
0x01500…01530 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 30 30 33 32 34 2f 63 6c 3b 0a 20 20 69 6e 74 65 ┆begin message findud, side 1 - 800324/cl; inte┆
0x01530…01560 67 65 72 20 6d 6b 3b 0a 20 20 6c 6f 6e 67 20 61 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 ┆ger mk; long array navn(1:2); message procedu┆
0x01560…01590 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 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 ┆re findout, side 1 - 800324/cl; integer procedu┆
0x01590…015c0 72 65 20 66 69 6e 64 6f 75 74 28 6e 61 76 6e 29 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 ┆re findout(navn); long array navn; <* procedu┆
0x015c0…015f0 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 6e 20 61 66 20 73 6b 72 69 76 65 72 6e 65 0a 70 ┆ren forsøger, i rækkefølge, om en af skriverne p┆
0x015f0…01620 72 69 6e 74 65 72 31 2c 20 70 72 69 6e 74 65 72 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 ┆rinter1, printer2 eller printer kan benyttes som┆
0x01620…01650 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 72 6f 63 65 73 2c 20 64 76 73 2e 20 61 74 20 64 ┆ output- medie af den kaldende proces, dvs. at d┆
0x01650…01680 65 74 20 75 6e 64 65 72 73 7c 67 65 73 20 6f 6d 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 ┆et undersøges om printer-processen er reserveret┆
0x01680…016b0 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 20 72 65 74 75 72 6e 65 72 65 73 20 66 65 6a 6c ┆ af en anden proces eller om der returneres fejl┆
0x016b0…016e0 73 74 61 74 75 73 20 76 65 64 20 66 6f 72 73 7c 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 ┆status ved forsøg på skrivning. kald: findout(n┆
0x016e0…01710 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 20 20 20 20 20 6d 6f 64 65 6b 69 6e 64 20 66 6f ┆avn); findout (retur,integer) modekind fo┆
0x01710…01740 72 20 64 65 6e 20 66 75 6e 64 6e 65 20 79 64 72 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 ┆r den fundne ydre enhed, ┆
0x01740…01770 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 6e 20 20 20 20 20 28 72 65 74 75 72 2c 6c 6f 6e ┆ se endvidere navn. navn (retur,lon┆
0x01770…017a0 67 20 61 72 72 61 79 29 20 20 20 6e 61 76 6e 28 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 ┆g array) navn(1:2) : navn på den første ydre e┆
0x017a0…017d0 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 20 20 20 20 64 65 72 20 66 69 6e 64 65 73 20 6f ┆nhed der findes o┆
0x017d0…01800 6b 2e 20 46 69 6e 64 65 73 20 69 6e 67 65 6e 20 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 ┆k. Findes ingen af de ovennævnte ┆
0x01800…01830 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 6e 65 72 65 73 20 6d 65 64 20 6e 61 76 6e 20 28 ┆ skrivere ok returneres med navn (┆
0x01830…01860 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 6d 6f 64 65 6b 69 6e 64 29 20 66 6f 72 20 70 ┆og modekind) for p┆
0x01860…01890 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 72 20 28 7b 6e 64 72 65 72 29 20 64 65 73 75 64 ┆rimary-output. proceduren danner (ændrer) desud┆
0x01890…018c0 65 6e 20 65 6e 20 69 6e 64 67 61 6e 67 20 69 20 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 ┆en en indgang i kataloget med navnet 'hpo', så d┆
0x018c0…018f0 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 65 64 2e 20 28 73 6b 72 69 76 65 72 2f 73 6b 7b ┆en beskriver den fundne ydre enhed. (skriver/skæ┆
0x018f0…01920 72 6d 29 0a 0a 66 65 6a 6c 73 74 61 74 75 73 20 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 ┆rm) fejlstatus ved skrivning undersøges ved at ┆
0x01920…01950 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 74 65 6e 20 3c 3a 3c 33 32 3e 3c 33 32 3e 3c 33 ┆sende en output-message med teksten <:<32><32><3┆
0x01950…01980 32 3e 3c 33 32 3e 3c 31 33 3e 3a 3e 0a 0a 6b 61 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 ┆2><32><13>:> kaldte procedurer: ingen fejlreak┆
0x01980…019b0 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 64 75 72 65 20 66 69 6e 64 6f 75 74 2c 20 73 69 ┆tioner: ingen *> message procedure findout, si┆
0x019b0…019e0 64 65 20 32 20 2d 20 38 30 30 33 32 34 2f 63 6c 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 ┆de 2 - 800324/cl; begin integer forsøg,st,mk;┆
0x019e0…01a10 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 64 28 31 3a 32 30 29 2c 7a 73 28 31 3a 31 32 29 ┆ boolean ok; integer array zd(1:20),zs(1:12)┆
0x01a10…01a40 2c 74 61 69 6c 2c 69 61 28 31 3a 31 30 29 2c 61 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 ┆,tail,ia(1:10),answ(1:8); real array field doc┆
0x01a40…01a70 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 3a 3d 20 32 3b 0a 20 20 66 6f 72 73 7c 67 3a 3d ┆; zone z(1,1,stderror); doc:= 2; forsøg:=┆
0x01a70…01aa0 20 30 3b 0a 20 20 72 65 70 65 61 74 0a 20 20 20 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 ┆ 0; repeat forsøg:= forsøg+1; getzone6┆
0x01aa0…01ad0 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 69 6e 64 20 2a 3e 0a 20 20 20 20 6d 6f 76 65 73 ┆(z,zd); zd(1):= 14; <* modekind *> moves┆
0x01ad0…01b00 74 72 69 6e 67 28 7a 64 2e 64 6f 63 2c 31 2c 63 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 ┆tring(zd.doc,1,case forsøg of ( <:printer1┆
0x01b00…01b30 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 20 20 20 7a 64 28 37 29 3a 3d 20 7a 64 28 38 29 ┆:>,<:printer2:>,<:printer:>)); zd(7):= zd(8)┆
0x01b30…01b60 3a 3d 20 7a 64 28 39 29 3a 3d 20 30 3b 0a 20 20 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(9):= 0; zd(10):= 0; <* giveup *> z┆
0x01b60…01b90 64 28 31 32 29 3a 3d 20 31 3b 20 3c 2a 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 2a 3e 0a 20 20 20 20 7a 64 28 31 33 29 3a 3d 20 30 3b 20 3c 2a ┆d(12):= 1; <* partial word *> zd(13):= 0; <*┆
0x01b90…01bc0 20 7a 2e 73 74 61 74 65 20 2a 3e 0a 20 20 20 20 7a 64 28 31 34 29 3a 3d 20 7a 64 28 31 39 29 3b 20 3c 2a 20 72 65 63 6f 72 64 20 62 61 73 65 20 ┆ z.state *> zd(14):= zd(19); <* record base ┆
0x01bc0…01bf0 2a 3e 0a 20 20 20 20 7a 64 28 31 36 29 3a 3d 20 7a 64 28 32 30 29 2f 7a 64 28 31 38 29 2a 34 3b 20 3c 2a 20 72 65 63 6f 72 64 20 6c 65 6e 67 74 ┆*> zd(16):= zd(20)/zd(18)*4; <* record lengt┆
0x01bf0…01c20 68 20 2a 3e 0a 20 20 20 20 7a 64 28 31 35 29 3a 3d 20 7a 64 28 31 34 29 2b 7a 64 28 31 36 29 3b 20 3c 2a 20 6c 61 73 74 20 62 79 74 65 20 2a 3e ┆h *> zd(15):= zd(14)+zd(16); <* last byte *>┆
0x01c20…01c50 0a 20 20 20 20 7a 64 28 31 37 29 3a 3d 20 31 3b 20 3c 2a 20 6e 6f 20 6f 66 20 73 68 61 72 65 73 20 2a 3e 0a 20 20 20 20 73 65 74 7a 6f 6e 65 36 ┆ zd(17):= 1; <* no of shares *> setzone6┆
0x01c50…01c80 28 7a 2c 7a 64 29 3b 0a 0a 20 20 20 20 73 74 3a 3d 20 6d 6f 6e 69 74 6f 72 28 38 29 72 65 73 65 72 76 65 3a 28 7a 2c 30 2c 7a 64 29 3b 0a 20 20 ┆(z,zd); st:= monitor(8)reserve:(z,0,zd); ┆
0x01c80…01cb0 20 20 69 66 20 73 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6f 6b 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 ┆ if st<>0 then begin ok:= false; ┆
0x01cb0…01ce0 20 20 67 6f 74 6f 20 6e 7b 73 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 7a 28 31 29 3a 3d 72 65 61 6c 3c 3a 20 20 20 20 3c 31 33 3e 3a ┆ goto næste; end; z(1):=real<: <13>:┆
0x01ce0…01d10 3e 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 36 28 7a 2c 7a 73 2c 31 29 3b 0a 20 20 20 20 7a 73 28 31 29 3a 3d 20 30 3b 0a 20 20 20 20 7a 73 28 ┆>; getshare6(z,zs,1); zs(1):= 0; zs(┆
0x01d10…01d40 34 29 3a 3d 20 35 20 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 7a 73 28 35 29 3a 3d 20 7a 64 28 31 34 29 2b 31 3b 0a 20 20 20 20 7a 73 28 36 29 ┆4):= 5 shift 12; zs(5):= zd(14)+1; zs(6)┆
0x01d40…01d70 3a 3d 20 7a 64 28 31 34 29 2b 34 3b 0a 20 20 20 20 73 65 74 73 68 61 72 65 36 28 7a 2c 7a 73 2c 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆:= zd(14)+4; setshare6(z,zs,1); monitor(┆
0x01d70…01da0 31 36 29 73 65 6e 64 20 6d 65 73 73 61 67 65 3a 28 7a 2c 31 2c 7a 73 29 3b 0a 20 20 20 20 73 74 3a 3d 20 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 ┆16)send message:(z,1,zs); st:= monitor(18)wa┆
0x01da0…01dd0 69 74 20 61 6e 73 77 65 72 3a 28 7a 2c 31 2c 61 6e 73 77 29 3b 0a 20 20 20 20 6f 6b 3a 3d 20 73 74 3d 31 20 61 6e 64 20 61 6e 73 77 28 31 29 3d ┆it answer:(z,1,answ); ok:= st=1 and answ(1)=┆
0x01dd0…01e00 30 3b 0a 6e 7b 73 74 65 3a 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 72 65 6c 65 61 73 65 3a 28 7a 2c 30 2c 7a 64 29 3b 0a 20 20 75 6e 74 ┆0; næste: monitor(10)release:(z,0,zd); unt┆
0x01e00…01e30 69 6c 20 6f 6b 20 6f 72 20 66 6f 72 73 7c 67 3d 33 3b 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 6f 75 74 2c 20 73 ┆il ok or forsøg=3; message procedure findout, s┆
0x01e30…01e60 69 64 65 20 33 20 2d 20 38 30 30 33 32 34 2f 63 6c 2c 38 30 30 37 33 31 2f 68 6b 6f 3b 0a 0a 20 20 69 66 20 6f 6b 20 74 68 65 6e 0a 20 20 62 65 ┆ide 3 - 800324/cl,800731/hko; if ok then be┆
0x01e60…01e90 67 69 6e 0a 20 20 20 20 6d 6b 3a 3d 20 31 34 3b 0a 20 20 20 20 74 6f 66 72 6f 6d 28 6e 61 76 6e 2c 7a 64 2e 64 6f 63 2c 38 29 3b 0a 20 20 65 6e ┆gin mk:= 14; tofrom(navn,zd.doc,8); en┆
0x01e90…01ec0 64 0a 20 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 6b 3a 3d 20 38 3b 0a 20 20 20 20 73 79 73 74 65 6d 28 37 2c 30 2c 6e 61 76 6e ┆d else begin mk:= 8; system(7,0,navn┆
0x01ec0…01ef0 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 20 20 6f 70 65 6e 28 7a 2c 30 2c 3c 3a 68 70 6f 3a 3e 2c 30 ┆); end; close(z,true); open(z,0,<:hpo:>,0┆
0x01ef0…01f20 29 3b 0a 20 20 74 61 69 6c 28 31 29 3a 3d 20 31 20 73 68 69 66 74 20 32 33 20 61 64 64 20 6d 6b 3b 0a 20 20 74 6f 66 72 6f 6d 28 74 61 69 6c 2e ┆); tail(1):= 1 shift 23 add mk; tofrom(tail.┆
0x01f20…01f50 64 6f 63 2c 6e 61 76 6e 2c 38 29 3b 0a 20 20 74 61 69 6c 28 36 29 3a 3d 20 73 79 73 74 69 6d 65 28 37 2c 30 2c 30 2e 30 29 3b 0a 20 20 74 61 69 ┆doc,navn,8); tail(6):= systime(7,0,0.0); tai┆
0x01f50…01f80 6c 28 37 29 3a 3d 20 74 61 69 6c 28 38 29 3a 3d 20 74 61 69 6c 28 39 29 3a 3d 20 74 61 69 6c 28 31 30 29 3a 3d 20 30 3b 0a 20 20 69 66 20 6d 6f ┆l(7):= tail(8):= tail(9):= tail(10):= 0; if mo┆
0x01f80…01fb0 6e 69 74 6f 72 28 34 32 29 6c 6f 6f 6b 75 70 3a 28 7a 2c 30 2c 69 61 29 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 34 ┆nitor(42)lookup:(z,0,ia) = 0 then monitor(44┆
0x01fb0…01fe0 29 63 68 61 6e 67 65 3a 28 7a 2c 30 2c 74 61 69 6c 29 0a 20 20 65 6c 73 65 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 63 72 65 61 74 65 3a ┆)change:(z,0,tail) else monitor(40)create:┆
0x01fe0…02010 28 7a 2c 30 2c 74 61 69 6c 29 3b 0a 0a 20 20 66 69 6e 64 6f 75 74 3a 3d 20 6d 6b 3b 0a 65 6e 64 3b 0a 0a 20 20 6d 6b 3a 3d 20 66 69 6e 64 6f 75 ┆(z,0,tail); findout:= mk; end; mk:= findou┆
0x02010…02040 74 28 6e 61 76 6e 29 3b 0a 0a 20 20 74 72 61 70 6d 6f 64 65 3a 3d 31 20 73 68 69 66 74 20 31 30 3b 0a 20 20 69 66 20 74 65 73 74 62 69 74 28 30 ┆t(navn); trapmode:=1 shift 10; if testbit(0┆
0x02040…02070 29 20 74 68 65 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 75 64 64 61 74 61 6d 65 64 69 65 3a 20 3a 3e 2c 6e 61 76 6e 2c 3c 3a 20 20 ┆) then write(out,<:uddatamedie: :>,navn,<: ┆
0x02070…020a0 28 3a 3e 2c 3c 3c 64 3e 2c 6d 6b 2c 3c 3a 29 3c 31 30 3e 3a 3e 29 3b 0a 65 6e 64 0a 19 00 73 74 3a 3d 20 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 ┆(:>,<<d>,mk,<:)<10>:>); end st:= monitor(18)wa┆
0x020a0…020d0 69 74 20 61 6e 73 77 65 72 3a 28 7a 2c 31 2c 61 6e 73 77 29 3b 0a 20 20 20 20 6f 6b 3a 3d 20 73 74 3d 31 20 61 6e 64 20 61 6e 73 77 28 31 29 3d ┆it answer:(z,1,answ); ok:= st=1 and answ(1)=┆
0x020d0…02100 30 3b 0a 6e 7b 73 74 65 3a 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 72 65 6c 65 61 73 65 3a 28 7a 2c 30 2c 7a 64 29 3b 0a 20 20 75 6e 74 ┆0; næste: monitor(10)release:(z,0,zd); unt┆
0x02100…02130 6a 6f 62 20 62 6e 68 20 33 20 39 39 39 0a 69 6e 69 74 70 61 72 61 6d 0a 73 79 73 6e 61 76 6e 65 0a 32 0a 6b 6f 6d 6d 61 6e 64 6f 66 69 6c 20 20 ┆job bnh 3 999 initparam sysnavne 2 kommandofil ┆
0x02130…02160 31 20 20 30 20 20 31 20 20 30 0a 62 65 6c 61 73 74 6e 69 6e 67 20 20 20 31 20 20 30 20 20 32 20 20 30 0a 62 74 72 20 20 31 32 20 31 20 30 20 30 ┆1 0 1 0 belastning 1 0 2 0 btr 12 1 0 0┆
0x02160…02190 0a 73 73 6d 31 20 31 31 20 31 20 30 20 30 0a 73 6d 31 20 20 31 31 20 31 20 30 20 30 0a 73 73 6d 32 20 31 30 20 31 20 30 20 30 0a 73 6d 32 20 20 ┆ ssm1 11 1 0 0 sm1 11 1 0 0 ssm2 10 1 0 0 sm2 ┆
0x02190…021c0 31 30 20 31 20 30 20 30 0a 62 61 74 20 20 20 39 20 31 20 30 20 30 0a 70 73 6d 20 20 20 38 20 31 20 30 20 30 0a 6b 74 72 20 20 20 37 20 31 20 30 ┆10 1 0 0 bat 9 1 0 0 psm 8 1 0 0 ktr 7 1 0┆
0x021c0…021f0 20 30 0a 6d 20 20 20 20 20 30 20 32 20 30 20 30 0a 73 20 20 20 20 20 34 20 32 20 30 20 30 0a 61 20 20 20 20 20 32 20 32 20 30 20 30 0a 62 20 20 ┆ 0 m 0 2 0 0 s 4 2 0 0 a 2 2 0 0 b ┆
0x021f0…02220 20 20 20 36 20 32 20 30 20 30 0a 73 74 70 20 20 20 20 20 20 20 20 20 20 31 20 20 33 20 30 20 30 0a 76 76 73 20 20 20 20 20 20 20 20 20 20 32 20 ┆ 6 2 0 0 stp 1 3 0 0 vvs 2 ┆
0x02220…02250 20 33 20 30 20 30 0a 70 2d 73 6b 7b 72 6d 20 20 20 20 20 32 30 20 20 33 20 30 20 30 0a 62 2d 73 6b 7b 72 6d 20 20 20 20 20 32 31 20 20 33 20 30 ┆ 3 0 0 p-skærm 20 3 0 0 b-skærm 21 3 0┆
0x02250…02280 20 30 0a 70 62 2d 73 6b 7b 72 6d 20 20 20 20 32 32 20 20 33 20 30 20 30 0a 74 72 2d 73 6b 7b 72 6d 20 20 20 20 32 33 20 20 33 20 30 20 30 0a 76 ┆ 0 pb-skærm 22 3 0 0 tr-skærm 23 3 0 0 v┆
0x02280…022b0 76 73 2d 73 6b 7b 72 6d 20 20 20 32 34 20 20 33 20 30 20 30 0a 74 72 76 76 73 2d 73 6b 7b 72 6d 20 32 35 20 20 33 20 30 20 30 0a 6c 6c 2d 73 6b ┆vs-skærm 24 3 0 0 trvvs-skærm 25 3 0 0 ll-sk┆
0x022b0…022e0 7b 72 6d 20 20 20 20 32 36 20 20 33 20 30 20 30 0a 73 69 6d 2d 73 6b 7b 72 6d 20 20 20 32 37 20 20 33 20 30 20 30 0a 73 79 73 2d 73 6b 72 69 76 ┆ærm 26 3 0 0 sim-skærm 27 3 0 0 sys-skriv┆
0x022e0…02310 65 72 20 34 30 20 20 33 20 30 20 30 0a 70 2d 73 6b 72 69 76 65 72 20 20 20 34 31 20 20 33 20 30 20 30 0a 62 2d 73 6b 72 69 76 65 72 20 20 20 34 ┆er 40 3 0 0 p-skriver 41 3 0 0 b-skriver 4┆
0x02310…02340 32 20 20 33 20 30 20 30 0a 70 62 2d 73 6b 72 69 76 65 72 20 20 34 33 20 20 33 20 30 20 30 0a 74 72 2d 73 6b 72 69 76 65 72 20 20 34 34 20 20 33 ┆2 3 0 0 pb-skriver 43 3 0 0 tr-skriver 44 3┆
0x02340…02370 20 30 20 30 0a 76 76 73 2d 73 6b 72 69 76 65 72 20 34 35 20 20 33 20 30 20 30 0a 74 72 76 76 73 2d 73 6b 72 69 76 20 34 36 20 20 33 20 30 20 30 ┆ 0 0 vvs-skriver 45 3 0 0 trvvs-skriv 46 3 0 0┆
0x02370…023a0 0a 74 72 2d 61 2d 73 6b 72 69 76 65 20 34 37 20 20 33 20 30 20 30 0a 76 76 73 2d 61 2d 73 6b 72 69 76 20 34 38 20 20 33 20 30 20 30 0a 74 72 76 ┆ tr-a-skrive 47 3 0 0 vvs-a-skriv 48 3 0 0 trv┆
0x023a0…023d0 76 73 2d 61 2d 73 6b 72 20 34 39 20 20 33 20 30 20 30 0a 73 69 6d 2d 73 6b 72 69 76 65 72 20 35 30 20 20 33 20 30 20 30 0a 64 6f 74 20 20 20 20 ┆vs-a-skr 49 3 0 0 sim-skriver 50 3 0 0 dot ┆
0x023d0…02400 20 20 20 20 20 20 31 20 20 34 20 30 20 30 0a 63 6f 76 20 20 20 20 20 20 20 20 20 20 32 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 31 20 20 ┆ 1 4 0 0 cov 2 4 0 0 terminal1 ┆
0x02400…02430 20 32 30 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 32 20 20 20 32 31 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 33 20 20 20 32 32 20 ┆ 20 4 0 0 terminal2 21 4 0 0 terminal3 22 ┆
0x02430…02460 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 34 20 20 20 32 33 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 35 20 20 20 32 34 20 20 34 20 30 ┆ 4 0 0 terminal4 23 4 0 0 terminal5 24 4 0┆
0x02460…02490 20 30 0a 74 65 72 6d 69 6e 61 6c 37 20 20 20 32 35 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 38 20 20 20 32 36 20 20 34 20 30 20 30 0a 70 ┆ 0 terminal7 25 4 0 0 terminal8 26 4 0 0 p┆
0x02490…024c0 72 69 6e 74 65 72 20 20 20 20 20 34 30 20 20 34 20 30 20 30 0a 70 72 69 6e 74 65 72 31 20 20 20 20 34 31 20 20 34 20 30 20 30 0a 70 72 69 6e 74 ┆rinter 40 4 0 0 printer1 41 4 0 0 print┆
0x024c0…024f0 65 72 32 20 20 20 20 34 32 20 20 34 20 30 20 30 0a 70 72 69 6e 74 65 72 33 20 20 20 20 34 33 20 20 34 20 30 20 30 0a 70 72 69 6e 74 65 72 34 20 ┆er2 42 4 0 0 printer3 43 4 0 0 printer4 ┆
0x024f0…02520 20 20 20 34 34 20 20 34 20 30 20 30 0a 70 72 69 6e 74 65 72 35 20 20 20 20 34 35 20 20 34 20 30 20 30 0a 40 0a 65 6e 64 0a 66 69 6e 69 73 0a 19 ┆ 44 4 0 0 printer5 45 4 0 0 @ end finis ┆
0x02520…02550 20 33 20 30 20 30 0a 70 2d 73 6b 7b 72 6d 20 20 20 20 20 32 30 20 20 33 20 30 20 30 0a 62 2d 73 6b 7b 72 6d 20 20 20 20 20 32 31 20 20 33 20 30 ┆ 3 0 0 p-skærm 20 3 0 0 b-skærm 21 3 0┆
0x02550…02580 20 30 0a 70 62 2d 73 6b 7b 72 6d 20 20 20 20 32 32 20 20 33 20 30 20 30 0a 74 72 2d 73 6b 7b 72 6d 20 20 20 20 32 33 20 20 33 20 30 20 30 0a 76 ┆ 0 pb-skærm 22 3 0 0 tr-skærm 23 3 0 0 v┆
0x02580…025b0 76 73 2d 73 6b 7b 72 6d 20 20 20 32 34 20 20 33 20 30 20 30 0a 74 72 76 76 73 2d 73 6b 7b 72 6d 20 32 35 20 20 33 20 30 20 30 0a 6c 6c 2d 73 6b ┆vs-skærm 24 3 0 0 trvvs-skærm 25 3 0 0 ll-sk┆
0x025b0…025e0 7b 72 6d 20 20 20 20 32 36 20 20 33 20 30 20 30 0a 73 69 6d 2d 73 6b 7b 72 6d 20 20 20 32 37 20 20 33 20 30 20 30 0a 73 79 73 2d 73 6b 72 69 76 ┆ærm 26 3 0 0 sim-skærm 27 3 0 0 sys-skriv┆
0x025e0…02610 65 72 20 34 30 20 20 33 20 30 20 30 0a 70 2d 73 6b 72 69 76 65 72 20 20 20 34 31 20 20 33 20 30 20 30 0a 62 2d 73 6b 72 69 76 65 72 20 20 20 34 ┆er 40 3 0 0 p-skriver 41 3 0 0 b-skriver 4┆
0x02610…02640 32 20 20 33 20 30 20 30 0a 70 62 2d 73 6b 72 69 76 65 72 20 20 34 33 20 20 33 20 30 20 30 0a 74 72 2d 73 6b 72 69 76 65 72 20 20 34 34 20 20 33 ┆2 3 0 0 pb-skriver 43 3 0 0 tr-skriver 44 3┆
0x02640…02670 20 30 20 30 0a 76 76 73 2d 73 6b 72 69 76 65 72 20 34 35 20 20 33 20 30 20 30 0a 74 72 76 76 73 2d 73 6b 72 69 76 20 34 36 20 20 33 20 30 20 30 ┆ 0 0 vvs-skriver 45 3 0 0 trvvs-skriv 46 3 0 0┆
0x02670…026a0 0a 74 72 2d 61 2d 73 6b 72 69 76 65 20 34 37 20 20 33 20 30 20 30 0a 76 76 73 2d 61 2d 73 6b 72 69 76 20 34 38 20 20 33 20 30 20 30 0a 74 72 76 ┆ tr-a-skrive 47 3 0 0 vvs-a-skriv 48 3 0 0 trv┆
0x026a0…026d0 76 73 2d 61 2d 73 6b 72 20 34 39 20 20 33 20 30 20 30 0a 73 69 6d 2d 73 6b 72 69 76 65 72 20 35 30 20 20 33 20 30 20 30 0a 64 6f 74 20 20 20 20 ┆vs-a-skr 49 3 0 0 sim-skriver 50 3 0 0 dot ┆
0x026d0…02700 20 20 20 20 20 20 31 20 20 34 20 30 20 30 0a 63 6f 76 20 20 20 20 20 20 20 20 20 20 32 20 20 34 20 30 20 30 0a 74 65 72 6d 69 6e 61 6c 31 20 20 ┆ 1 4 0 0 cov 2 4 0 0 terminal1 ┆
0x02700…02730 0c 6d 2e 6f 70 70 72 69 6f 72 69 74 65 72 69 6e 67 20 61 66 20 70 72 6f 63 65 73 73 65 72 2c 20 73 69 64 65 20 31 20 2d 20 38 30 30 33 30 33 2f ┆ m.opprioritering af processer, side 1 - 800303/┆
0x02730…02760 63 6c 2e 0a 62 2e 20 67 31 2c 65 31 30 0a 77 2e 0a 73 2e 20 61 35 2c 62 35 2c 63 35 2c 66 35 0a 77 2e 0a 65 30 3a 20 20 20 20 30 20 2c 20 72 2e ┆cl. b. g1,e10 w. s. a5,b5,c5,f5 w. e0: 0 , r.┆
0x02760…02790 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 20 64 75 6d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆8 ; register dump ┆
0x02790…027c0 20 20 20 20 20 20 20 20 20 20 20 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ┆ ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
[…truncated at 200 lines…]