|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 256256 (0x3e900)
Notes: Unread_Sectors
Names: »EFL1.TXT«
└─⟦398ae89d3⟧ Bits:30009789/_.ft.Ibm2.50007353.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.TXT«
0x00000…00020 45 46 4c 31 00 00 00 00 00 01 00 01 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆EFL1 ┆
0x00020…00040 00 00 00 00 07 39 45 4f 53 20 53 4f 52 43 45 20 38 35 2d 31 2d 32 32 20 20 20 30 33 30 30 c3 56 ┆ 9EOS SORCE 85-1-22 0300 V┆
0x00040…00060 0f 1e 2d 3c 4b 5a 69 78 87 96 a5 b4 c3 d2 e1 f0 0f 1e 2d 3c 4b 5a 69 78 87 96 a5 b4 c3 d2 e1 f0 ┆ -<KZix -<KZix ┆
0x00060…00080 f1 f2 f4 f8 f9 fa fc fe ff 7f bf df ef 6f af cf 4f 8f 0f 07 0b 0d 0e 06 0a 0c 04 08 04 02 01 00 ┆ o O ┆
0x00080…000a0 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 ┆ ┆
[…0x2…]
0x000e0…00100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 45 58 4f 52 4d 41 43 53 ┆ EXORMACS┆
0x00100…00120 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 ff ff ┆ ┆
[…0x2…]
0x00160…00180 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff fe 00 00 00 00 00 ff ff ff ┆ ┆
0x00180…001a0 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 ff ff ┆ ┆
[…0x3…]
0x00200…00220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 5c 45 4f 53 4d 4f 44 55 4c 00 00 00 03 00 00 ┆ ØEOSMODUL ┆
0x00220…00240 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 ┆ ┆
[…0x6…]
0x00300…00320 00 00 00 00 11 5c 45 4f 53 4d 4f 44 55 4c 00 00 43 4c 4f 43 4b 20 20 20 53 41 00 00 00 00 00 0f ┆ ØEOSMODUL CLOCK SA ┆
0x00320…00340 00 00 00 0f 00 00 00 0d 00 00 00 7d 00 00 03 08 00 00 00 00 01 08 07 39 07 39 00 00 00 00 00 00 ┆ å 9 9 ┆
0x00340…00360 00 00 4a 43 4c 20 20 20 20 20 53 41 00 00 00 00 00 28 00 00 00 28 00 00 00 55 00 00 03 01 00 00 ┆ JCL SA ( ( U ┆
0x00360…00380 03 08 00 00 00 00 01 08 07 39 07 39 00 00 00 00 00 00 00 00 4a 43 4c 43 4f 4e 46 20 53 41 00 00 ┆ 9 9 JCLCONF SA ┆
0x00380…003a0 00 00 00 b1 00 00 00 b1 00 00 00 11 00 00 00 b1 00 00 03 08 00 00 00 00 01 08 07 39 07 39 00 00 ┆ 9 9 ┆
0x003a0…003c0 00 00 00 00 00 00 4d 43 43 4d 20 20 20 20 53 41 00 00 00 00 00 ca 00 00 01 bb 00 00 00 bf 00 00 ┆ MCCM SA ┆
0x003c0…003e0 06 72 00 00 03 08 00 00 00 00 01 08 07 39 07 39 00 00 00 00 00 00 00 00 4f 42 4a 44 49 52 20 20 ┆ r 9 9 OBJDIR ┆
0x003e0…00400 53 41 00 00 00 00 01 cc 00 00 03 ae 00 00 01 43 00 00 0a f4 00 00 03 08 00 00 00 00 01 08 07 39 ┆SA C 9┆
0x00400…00420 07 39 00 00 00 00 00 00 00 00 00 50 54 49 46 53 20 20 53 41 00 00 00 00 03 c7 00 00 03 c7 00 00 ┆ 9 PTIFS SA ┆
0x00420…00440 00 24 00 00 01 af 00 00 03 08 00 00 00 00 01 08 07 39 07 39 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $ 9 9 ┆
0x00440…00460 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 ┆ ┆
[…0x15…]
0x00700…00720 00 01 20 00 00 42 7b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ Bæ*************************┆
0x00720…00740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00740…00760 2a 2a 2a 2a 2a 2a 2a 2a 00 12 98 43 6f 70 79 72 69 67 68 74 81 31 39 38 34 81 62 79 00 10 98 4e ┆******** Copyright 1984 by N┆
0x00760…00780 43 52 81 43 6f 72 70 6f 72 61 74 69 6f 6e 00 14 98 44 61 79 74 6f 6e 2c 81 4f 68 69 6f 82 55 2e ┆CR Corporation Dayton, Ohio U.┆
0x00780…007a0 53 2e 41 2e 00 14 98 41 6c 6c 81 52 69 67 68 74 73 81 52 65 73 65 72 76 65 64 00 42 2a 2a 2a 2a ┆S.A. All Rights Reserved B****┆
0x007a0…007c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x007c0…007e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a ┆****************************** ┆
0x007e0…00800 98 45 4f 53 81 53 6f 66 74 77 61 72 65 81 70 72 6f 64 75 63 65 64 81 62 79 3a 00 25 98 4e 43 52 ┆ EOS Software produced by: % NCR┆
0x00800…00820 81 53 79 73 74 65 6d 73 81 45 6e 67 69 6e 65 65 72 69 6e 67 81 2d 81 43 6f 70 65 6e 68 61 67 65 ┆ Systems Engineering - Copenhage┆
0x00820…00840 6e 00 00 0b 98 43 6f 70 65 6e 68 61 67 65 6e 00 00 08 98 44 45 4e 4d 41 52 4b 00 42 2a 2a 2a 2a ┆n Copenhagen DENMARK B****┆
0x00840…00860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00860…00880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 01 ┆*****************************å ┆
0x00880…008a0 20 00 00 15 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 20 63 6c 6f 63 6b 3b 00 00 15 7b 24 48 3d ┆ object program clock; æ$H=┆
0x008a0…008c0 30 83 4e 6f 81 68 65 61 70 81 73 70 61 63 65 81 7d 00 00 01 20 00 00 41 7b 84 43 81 4c 81 4f 81 ┆0 No heap space å Aæ C L O ┆
0x008c0…008e0 43 81 4b 83 6f 62 6a 65 63 74 81 77 72 69 74 74 65 6e 81 62 79 83 56 81 49 81 4c 81 48 81 45 81 ┆C K object written by V I L H E ┆
0x008e0…00900 4c 81 4d 82 52 81 4f 81 53 81 45 81 4e 81 51 81 56 81 49 81 53 81 54 81 7d 00 00 01 20 00 00 1d ┆L M R O S E N Q V I S T å ┆
0x00900…00920 63 6f 6e 73 74 81 6f 72 67 4e 6f 81 3d 30 85 3b 81 6f 72 67 53 79 73 82 3d 31 32 84 3b 00 00 27 ┆const orgNo =0 ; orgSys =12 ; '┆
0x00920…00940 86 76 65 72 73 69 64 3d 27 63 6c 6f 63 6b 81 76 65 72 73 69 6f 6e 81 31 2e 30 30 81 38 33 2d 31 ┆ versid='clock version 1.00 83-1┆
0x00940…00960 31 2d 32 35 81 27 3b 00 00 01 20 00 00 05 7b 24 4c 2d 7d 00 00 13 7b 24 46 3d 46 41 4d 49 4c 59 ┆1-25 '; æ$L-å æ$F=FAMILY┆
0x00960…00980 2e 55 4e 49 56 2e 49 44 7d 00 00 13 7b 24 46 3d 46 41 4d 49 4c 59 2e 4b 4e 45 4c 2e 49 44 7d 00 ┆.UNIV.IDå æ$F=FAMILY.KNEL.IDå ┆
0x00980…009a0 00 14 7b 24 46 3d 46 41 4d 49 4c 59 2e 53 43 48 45 44 2e 49 44 7d 00 05 7b 24 4c 2b 7d 00 00 14 ┆ æ$F=FAMILY.SCHED.IDå æ$L+å ┆
0x009a0…009c0 7b 24 46 3d 46 41 4d 49 4c 59 2e 43 4c 4f 43 4b 2e 49 44 7d 00 01 20 00 00 1c 70 72 6f 63 65 64 ┆æ$F=FAMILY.CLOCK.IDå proced┆
0x009c0…009e0 75 72 65 20 73 74 61 72 74 50 54 4d 3b 20 66 6f 72 77 61 72 64 3b 00 27 70 72 6f 63 65 64 75 72 ┆ure startPTM; forward; 'procedur┆
0x009e0…00a00 65 20 70 72 69 6e 74 54 65 78 74 28 74 3a 66 75 6c 6c 49 64 29 3b 20 66 6f 72 77 61 72 64 3b 00 ┆e printText(t:fullId); forward; ┆
0x00a00…00a20 00 01 20 00 00 3b 70 72 6f 63 65 64 75 72 65 20 6d 65 67 61 44 69 76 4d 6f 64 28 76 61 72 20 74 ┆ ;procedure megaDivMod(var t┆
0x00a20…00a40 20 3a 20 75 53 65 63 54 79 70 65 3b 20 76 61 72 20 71 2c 20 72 20 3a 20 69 6e 74 65 67 65 72 29 ┆ : uSecType; var q, r : integer)┆
0x00a40…00a60 3b 00 00 22 74 79 70 65 20 62 79 74 65 38 20 3d 20 61 72 72 61 79 20 5b 30 2e 2e 37 5d 20 6f 66 ┆; "type byte8 = array Æ0..7Å of┆
0x00a60…00a80 20 62 79 74 65 3b 00 13 76 61 72 20 69 2c 20 62 20 3a 20 69 6e 74 65 67 65 72 3b 00 00 05 62 65 ┆ byte; var i, b : integer; be┆
0x00a80…00aa0 67 69 6e 00 00 0c 82 71 3a 3d 30 3b 81 72 3a 3d 30 3b 00 18 82 66 6f 72 81 69 3a 3d 81 30 81 74 ┆gin q:=0; r:=0; for i:= 0 t┆
0x00aa0…00ac0 6f 81 37 81 64 6f 81 62 65 67 69 6e 00 10 84 62 3a 3d 81 74 3a 62 79 74 65 38 5b 69 5d 3b 00 1b ┆o 7 do begin b:= t:byte8ÆiÅ; ┆
0x00ac0…00ae0 84 69 66 81 62 81 3c 81 30 81 74 68 65 6e 81 62 3a 3d 81 62 81 2b 81 32 35 36 3b 00 00 0f 84 72 ┆ if b < 0 then b:= b + 256; r┆
0x00ae0…00b00 3a 3d 81 72 2a 32 35 36 81 2b 81 62 3b 00 00 1b 84 71 3a 3d 81 71 2a 32 35 36 81 2b 81 72 81 64 ┆:= r*256 + b; q:= q*256 + r d┆
0x00b00…00b20 69 76 81 31 30 30 30 30 30 30 3b 00 00 13 84 72 3a 3d 81 72 81 6d 6f 64 81 31 30 30 30 30 30 30 ┆iv 1000000; r:= r mod 1000000┆
0x00b20…00b40 3b 00 00 06 82 65 6e 64 81 3b 00 05 65 6e 64 20 3b 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 ┆; end ; end ; ┆
0x00b40…00b60 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 ┆ ┆
[…0x1d…]
0x00f00…00f20 00 00 00 00 00 00 00 00 03 00 00 00 00 07 00 2d 05 00 00 00 00 10 00 4d 08 00 00 00 00 18 00 04 ┆ - M ┆
0x00f20…00f40 01 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 ┆ ┆
0x00f40…00f60 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…]
0x01000…01020 00 17 74 79 70 65 20 63 6c 6f 63 6b 44 61 74 61 20 3d 20 72 65 63 6f 72 64 00 00 20 87 62 61 73 ┆ type clockData = record bas┆
0x01020…01040 65 54 69 6d 65 81 3a 81 69 6e 74 65 67 65 72 3b 81 7b 81 33 32 81 62 69 74 73 81 7d 00 1f 87 62 ┆eTime : integer; æ 32 bits å b┆
0x01040…01060 61 73 65 43 6e 74 82 3a 81 69 6e 74 65 67 65 72 3b 81 7b 81 33 32 81 62 69 74 73 81 7d 00 00 06 ┆aseCnt : integer; æ 32 bits å ┆
0x01060…01080 85 65 6e 64 81 3b 00 01 20 00 00 17 74 79 70 65 20 63 6c 6f 63 6b 50 74 72 73 20 3d 20 72 65 63 ┆ end ; type clockPtrs = rec┆
0x01080…010a0 6f 72 64 00 00 0b 87 63 6f 64 65 88 3a 81 5e 5e 3b 00 00 15 87 63 44 61 74 61 87 3a 81 5e 5e 63 ┆ord code : ^^; cData : ^^c┆
0x010a0…010c0 6c 6f 63 6b 44 61 74 61 3b 00 00 18 87 69 6e 74 73 63 68 65 64 84 3a 81 5e 5e 73 63 68 65 64 75 ┆lockData; intsched : ^^schedu┆
0x010c0…010e0 6c 65 72 3b 00 17 7b 86 61 6c 6c 6f 63 87 3a 81 5e 5e 61 6c 6c 6f 63 61 74 65 3b 88 7d 00 00 12 ┆ler; æ alloc : ^^allocate; å ┆
0x010e0…01100 7b 86 73 65 63 75 72 69 74 79 84 3a 81 5e 5e 3b 90 7d 00 06 85 65 6e 64 81 3b 00 04 7b 24 45 7d ┆æ security : ^^; å end ; æ$Eå┆
0x01100…01120 00 2d 70 72 6f 67 72 61 6d 20 63 6c 6f 63 6b 53 79 73 20 6f 62 6a 65 63 74 20 63 6c 6f 63 6b 20 ┆ -program clockSys object clock ┆
0x01120…01140 77 69 74 68 20 63 6c 6f 63 6b 50 74 72 73 3b 00 00 01 20 00 00 01 20 00 00 36 65 6e 74 72 79 20 ┆with clockPtrs; 6entry ┆
0x01140…01160 67 65 74 43 6c 6f 63 6b 20 7b 3b 20 6f 75 74 20 73 65 63 6f 6e 64 73 2c 20 6f 70 74 69 6f 6e 61 ┆getClock æ; out seconds, optiona┆
0x01160…01180 6c 6c 79 3a 20 6f 75 74 20 75 73 65 63 73 20 7d 00 01 20 00 00 15 77 69 74 68 20 72 65 63 6f 72 ┆lly: out usecs å with recor┆
0x01180…011a0 64 20 74 3a 5e 5e 20 65 6e 64 3b 00 00 29 76 61 72 20 63 6e 74 2c 63 70 75 20 3a 20 75 53 65 63 ┆d t:^^ end; )var cnt,cpu : uSec┆
0x011a0…011c0 54 79 70 65 3b 20 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 3b 00 00 10 84 75 73 65 63 81 ┆Type; res : resultType; usec ┆
0x011c0…011e0 3a 81 69 6e 74 65 67 65 72 3b 00 12 84 70 61 72 61 6d 81 3a 81 5e 69 6e 74 65 67 65 72 3b 00 05 ┆: integer; param : ^integer; ┆
0x011e0…01200 62 65 67 69 6e 00 00 2f 7b 23 45 4e 54 52 59 23 82 70 72 69 6e 74 54 65 78 74 28 27 43 6c 6f 63 ┆begin /æ#ENTRY# printText('Cloc┆
0x01200…01220 6b 2e 47 45 54 54 49 4d 45 81 27 29 82 26 45 4e 54 52 59 26 7d 81 3b 00 00 17 77 69 74 68 20 63 ┆k.GETTIME ') &ENTRY&å ; with c┆
0x01220…01240 3d 63 44 61 74 61 5e 5e 20 64 6f 20 62 65 67 69 6e 00 00 3e 82 72 65 73 3a 3d 81 47 65 74 54 69 ┆=cData^^ do begin > res:= GetTi┆
0x01240…01260 6d 65 28 63 6e 74 2c 63 70 75 29 3b 83 7b 81 63 6e 74 3a 3d 81 72 65 61 6c 81 74 69 6d 65 81 63 ┆me(cnt,cpu); æ cnt:= real time c┆
0x01260…01280 6f 75 6e 74 65 72 81 69 6e 81 6b 65 72 6e 65 6c 81 7d 00 1e 82 6d 65 67 61 44 69 76 4d 6f 64 28 ┆ounter in kernel å megaDivMod(┆
0x01280…012a0 63 6e 74 2c 73 65 63 6f 6e 64 73 2c 75 73 65 63 29 3b 00 27 82 73 65 63 6f 6e 64 73 3a 3d 73 65 ┆cnt,seconds,usec); ' seconds:=se┆
0x012a0…012c0 63 6f 6e 64 73 2d 63 2e 62 61 73 65 43 6e 74 2b 63 2e 62 61 73 65 54 69 6d 65 3b 00 00 20 82 69 ┆conds-c.baseCnt+c.baseTime; i┆
0x012c0…012e0 66 81 6e 65 78 74 56 61 6c 41 72 67 28 70 61 72 61 6d 29 81 74 68 65 6e 81 62 65 67 69 6e 00 0e ┆f nextValArg(param) then begin ┆
0x012e0…01300 84 70 61 72 61 6d 5e 3a 3d 75 73 65 63 3b 00 06 82 65 6e 64 81 3b 00 0c 65 6e 64 81 7b 77 69 74 ┆ param^:=usec; end ; end æwit┆
0x01300…01320 68 7d 83 3b 00 0e 65 6e 64 20 7b 67 65 74 54 69 6d 65 7d 3b 00 01 20 00 00 01 20 00 00 1b 65 6e ┆hå ; end ægetTimeå; en┆
0x01320…01340 74 72 79 20 73 65 74 43 6c 6f 63 6b 20 7b 3b 20 73 65 63 6f 6e 64 73 20 7d 00 00 01 20 00 00 11 ┆try setClock æ; seconds å ┆
0x01340…01360 77 69 74 68 20 72 65 63 6f 72 64 20 74 3a 5e 5e 3b 00 00 0e 82 69 67 81 3a 81 5e 5e 81 67 61 74 ┆with record t:^^; ig : ^^ gat┆
0x01360…01380 65 3b 00 05 65 6e 64 20 3b 00 00 2d 76 61 72 20 78 78 78 2c 63 6e 74 2c 63 70 75 20 3a 20 75 53 ┆e; end ; -var xxx,cnt,cpu : uS┆
0x01380…013a0 65 63 54 79 70 65 3b 20 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 3b 00 00 0d 84 69 81 3a ┆ecType; res : resultType; i :┆
0x013a0…013c0 81 69 6e 74 65 67 65 72 3b 00 00 05 62 65 67 69 6e 00 00 29 7b 23 45 4e 54 52 59 23 7d 82 70 72 ┆ integer; begin )æ#ENTRY#å pr┆
0x013c0…013e0 69 6e 74 54 65 78 74 28 81 76 65 72 73 69 64 81 29 82 7b 26 45 4e 54 52 59 26 7d 81 3b 00 00 17 ┆intText( versid ) æ&ENTRY&å ; ┆
0x013e0…01400 77 69 74 68 20 63 3d 63 44 61 74 61 5e 5e 20 64 6f 20 62 65 67 69 6e 00 00 18 82 72 65 73 3a 3d ┆with c=cData^^ do begin res:=┆
0x01400…01420 81 47 65 74 54 69 6d 65 28 78 78 78 2c 63 70 75 29 3b 00 18 82 72 65 73 3a 3d 81 47 65 74 54 69 ┆ GetTime(xxx,cpu); res:= GetTi┆
0x01420…01440 6d 65 28 63 6e 74 2c 63 70 75 29 3b 00 01 20 00 00 24 7b 20 70 65 72 66 6f 72 6d 20 73 65 63 75 ┆me(cnt,cpu); $æ perform secu┆
0x01440…01460 72 69 74 79 20 63 68 65 63 6b 20 6f 6e 20 63 61 6c 6c 65 72 20 7d 00 24 7b 2a 2a 2a 2a 2a 2a 2a ┆rity check on caller å $æ*******┆
0x01460…01480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 01 20 00 ┆***************************å ┆
0x01480…014a0 00 4f 69 66 20 28 20 78 78 78 2e 68 69 67 68 4f 72 64 65 72 3d 63 6e 74 2e 68 69 67 68 4f 72 64 ┆ Oif ( xxx.highOrder=cnt.highOrd┆
0x014a0…014c0 65 72 20 29 20 61 6e 64 20 28 20 78 78 78 2e 6c 6f 77 4f 72 64 65 72 3d 63 6e 74 2e 6c 6f 77 4f ┆er ) and ( xxx.lowOrder=cnt.lowO┆
0x014c0…014e0 72 64 65 72 20 29 20 74 68 65 6e 20 62 65 67 69 6e 00 00 3c 7b 20 6f 62 73 20 6f 62 73 20 6f 62 ┆rder ) then begin <æ obs obs ob┆
0x014e0…01500 73 20 74 68 69 73 20 63 6f 64 65 20 69 73 20 66 6f 72 20 74 68 65 20 45 58 4f 52 6d 61 63 73 20 ┆s this code is for the EXORmacs ┆
0x01500…01520 76 65 72 73 69 6f 6e 20 6f 6e 6c 79 20 3f 20 7d 00 26 82 7b 81 74 68 65 81 6b 65 72 6e 65 6c 81 ┆version only ? å & æ the kernel ┆
0x01520…01540 63 6f 75 6e 74 65 72 81 69 73 81 6e 6f 74 81 72 75 6e 6e 69 6e 67 81 7d 00 26 82 72 65 73 3a 3d ┆counter is not running å & res:=┆
0x01540…01560 81 69 6e 74 73 63 68 65 64 2e 6e 65 77 47 61 74 65 28 6f 75 74 81 69 67 3b 81 69 6e 81 31 29 3b ┆ intsched.newGate(out ig; in 1);┆
0x01560…01580 00 3f 82 72 65 73 3a 3d 81 69 67 2e 6c 6f 63 6b 3b 81 7b 81 65 6e 74 65 72 81 64 72 69 76 65 72 ┆ ? res:= ig.lock; æ enter driver┆
0x01580…015a0 81 6d 6f 64 65 2c 81 63 6f 6e 74 65 78 74 81 62 65 63 6f 6d 65 73 81 72 65 73 69 64 65 6e 74 81 ┆ mode, context becomes resident ┆
0x015a0…015c0 7d 00 00 28 82 73 74 61 72 74 50 54 4d 3b 81 7b 81 61 6c 6c 6f 77 81 50 54 4d 81 63 68 69 70 81 ┆å ( startPTM; æ allow PTM chip ┆
0x015c0…015e0 74 6f 81 6f 70 65 72 61 74 65 81 7d 00 0f 82 72 65 73 3a 3d 81 69 67 2e 6f 70 65 6e 3b 00 00 05 ┆to operate å res:= ig.open; ┆
0x015e0…01600 65 6e 64 20 3b 00 00 16 82 63 2e 62 61 73 65 54 69 6d 65 3a 3d 81 73 65 63 6f 6e 64 73 3b 00 1d ┆end ; c.baseTime:= seconds; ┆
0x01600…01620 82 6d 65 67 61 44 69 76 4d 6f 64 28 63 6e 74 2c 63 2e 62 61 73 65 43 6e 74 2c 69 29 3b 00 00 0c ┆ megaDivMod(cnt,c.baseCnt,i); ┆
0x01620…01640 65 6e 64 81 7b 77 69 74 68 7d 83 3b 00 0e 65 6e 64 20 7b 73 65 74 54 69 6d 65 7d 3b 00 01 20 00 ┆end æwithå ; end æsetTimeå; ┆
0x01640…01660 00 01 20 00 00 26 6f 74 68 65 72 77 69 73 65 20 65 72 72 6f 72 20 77 69 74 68 20 72 65 63 6f 72 ┆ &otherwise error with recor┆
0x01660…01680 64 20 74 3a 5e 5e 3b 20 65 6e 64 3b 00 15 76 61 72 20 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 ┆d t:^^; end; var res : resultTy┆
0x01680…016a0 70 65 3b 00 00 05 62 65 67 69 6e 00 00 1b 82 72 65 73 2e 6d 61 69 6e 3a 3d 81 2d 81 65 6e 74 72 ┆pe; begin res.main:= - entr┆
0x016a0…016c0 79 49 6c 6c 65 67 61 6c 3b 00 00 18 82 72 65 73 2e 66 61 6d 69 6c 79 3a 3d 81 75 6e 69 76 65 72 ┆yIllegal; res.family:= univer┆
0x016c0…016e0 73 61 6c 3b 00 14 82 72 65 73 2e 6f 72 67 53 79 73 3a 3d 6f 72 67 53 79 73 3b 00 13 82 72 65 73 ┆sal; res.orgSys:=orgSys; res┆
0x016e0…01700 2e 6f 72 67 4e 6f 81 3a 3d 6f 72 67 4e 6f 3b 00 00 10 82 6f 62 6a 52 65 74 75 72 6e 28 72 65 73 ┆.orgNo :=orgNo; objReturn(res┆
0x01700…01720 29 3b 00 05 65 6e 64 20 3b 00 00 01 20 00 00 10 65 6e 64 20 7b 63 6c 6f 63 6b 53 79 73 7d 20 3b ┆); end ; end æclockSyså ;┆
0x01720…01740 00 01 20 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 ┆ ┆
0x01740…01760 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…]
0x01800…01820 00 3c 69 6e 69 74 69 61 6c 69 7a 65 20 63 6c 6f 63 6b 53 79 73 20 27 63 6c 6f 63 6b 27 20 3a 20 ┆ <initialize clockSys 'clock' : ┆
0x01820…01840 63 44 61 74 61 2c 20 69 6e 74 73 63 68 65 64 20 27 69 6e 74 73 63 68 65 64 75 6c 65 72 27 00 01 ┆cData, intsched 'intscheduler' ┆
0x01840…01860 20 00 00 04 65 6e 64 2e 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ end. ┆
0x01860…01880 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 ┆ ┆
[…0x4…]
0x01900…01920 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x37…]
0x02000…02020 00 01 20 00 00 42 7b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ Bæ*************************┆
0x02020…02040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x02040…02060 2a 2a 2a 2a 2a 2a 2a 2a 00 12 98 43 6f 70 79 72 69 67 68 74 81 31 39 38 34 81 62 79 00 10 98 4e ┆******** Copyright 1984 by N┆
0x02060…02080 43 52 81 43 6f 72 70 6f 72 61 74 69 6f 6e 00 14 98 44 61 79 74 6f 6e 2c 81 4f 68 69 6f 82 55 2e ┆CR Corporation Dayton, Ohio U.┆
0x02080…020a0 53 2e 41 2e 00 14 98 41 6c 6c 81 52 69 67 68 74 73 81 52 65 73 65 72 76 65 64 00 42 2a 2a 2a 2a ┆S.A. All Rights Reserved B****┆
0x020a0…020c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x020c0…020e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a ┆****************************** ┆
0x020e0…02100 98 45 4f 53 81 53 6f 66 74 77 61 72 65 81 70 72 6f 64 75 63 65 64 81 62 79 3a 00 25 98 4e 43 52 ┆ EOS Software produced by: % NCR┆
0x02100…02120 81 53 79 73 74 65 6d 73 81 45 6e 67 69 6e 65 65 72 69 6e 67 81 2d 81 43 6f 70 65 6e 68 61 67 65 ┆ Systems Engineering - Copenhage┆
0x02120…02140 6e 00 00 0b 98 43 6f 70 65 6e 68 61 67 65 6e 00 00 08 98 44 45 4e 4d 41 52 4b 00 42 2a 2a 2a 2a ┆n Copenhagen DENMARK B****┆
0x02140…02160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x02160…02180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 01 ┆*****************************å ┆
0x02180…021a0 20 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 ┆ ┆
0x021a0…021c0 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 ┆ ┆
[…0x2…]
0x02200…02220 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x2f…]
0x02800…02820 00 00 00 00 00 00 00 00 0a 00 00 00 00 20 00 0d 02 00 00 00 00 29 00 62 08 00 00 00 00 31 00 15 ┆ ) b 1 ┆
0x02820…02840 02 00 00 00 00 39 00 40 08 00 00 00 00 41 00 51 07 00 00 00 00 49 00 25 05 00 00 00 00 51 00 44 ┆ 9 @ A Q I % Q D┆
0x02840…02860 07 00 00 00 00 59 00 24 06 00 00 00 00 61 00 15 03 00 00 00 00 69 00 07 01 00 00 00 00 71 00 4b ┆ Y $ a i q K┆
0x02860…02880 07 00 00 00 00 79 00 3b 07 00 00 00 00 81 00 25 04 00 00 00 00 89 00 16 03 00 00 00 00 91 00 32 ┆ y ; % 2┆
0x02880…028a0 06 00 00 00 00 99 00 31 06 00 00 00 00 a1 00 20 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 1 ┆
0x028a0…028c0 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 ┆ ┆
[…0x2…]
0x02900…02920 00 13 6f 62 6a 65 63 74 20 70 72 6f 67 72 61 6d 20 4a 43 4c 3b 00 00 01 20 00 00 05 7b 24 4c 2d ┆ object program JCL; æ$L-┆
0x02920…02940 7d 00 00 13 7b 24 46 3d 46 41 4d 49 4c 59 2e 55 4e 49 56 2e 49 44 7d 00 00 13 7b 24 46 3d 46 41 ┆å æ$F=FAMILY.UNIV.IDå æ$F=FA┆
0x02940…02960 4d 49 4c 59 2e 4b 4e 45 4c 2e 49 44 7d 00 00 14 7b 24 46 3d 46 41 4d 49 4c 59 2e 49 4f 53 59 53 ┆MILY.KNEL.IDå æ$F=FAMILY.IOSYS┆
0x02960…02980 2e 49 44 7d 00 14 7b 24 46 3d 46 41 4d 49 4c 59 2e 41 4c 4c 4f 43 2e 49 44 7d 00 14 7b 24 46 3d ┆.IDå æ$F=FAMILY.ALLOC.IDå æ$F=┆
0x02980…029a0 46 41 4d 49 4c 59 2e 53 43 48 45 44 2e 49 44 7d 00 15 7b 24 46 3d 46 41 4d 49 4c 59 2e 4f 42 4a ┆FAMILY.SCHED.IDå æ$F=FAMILY.OBJ┆
0x029a0…029c0 44 49 52 2e 49 44 7d 00 00 14 7b 24 46 3d 46 41 4d 49 4c 59 2e 4a 4f 42 48 41 2e 49 44 7d 00 14 ┆DIR.IDå æ$F=FAMILY.JOBHA.IDå ┆
0x029c0…029e0 7b 24 46 3d 46 41 4d 49 4c 59 2e 41 50 50 4c 49 2e 49 44 7d 00 05 7b 24 4c 2b 7d 00 00 0f 63 6f ┆æ$F=FAMILY.APPLI.IDå æ$L+å co┆
0x029e0…02a00 6e 73 74 20 6f 72 67 53 79 73 3d 36 3b 00 00 19 7b 24 46 3d 50 41 53 49 4e 43 4c 55 2e 4d 49 4b ┆nst orgSys=6; æ$F=PASINCLU.MIK┆
0x02a00…02a20 54 59 50 45 53 2e 53 41 7d 00 00 19 7b 24 46 3d 50 41 53 49 4e 43 4c 55 2e 54 45 52 4d 54 4f 4f ┆TYPES.SAå æ$F=PASINCLU.TERMTOO┆
0x02a20…02a40 4c 2e 53 41 7d 00 00 05 7b 24 4c 2b 7d 00 00 01 20 00 00 38 74 79 70 65 20 63 6f 6d 54 79 70 65 ┆L.SAå æ$L+å 8type comType┆
0x02a40…02a60 3d 28 65 6d 70 74 79 43 6f 6d 2c 6c 6f 61 64 43 6f 6d 2c 63 72 65 61 74 65 43 6f 6d 2c 65 78 65 ┆=(emptyCom,loadCom,createCom,exe┆
0x02a60…02a80 63 43 6f 6d 2c 73 65 74 43 6f 6d 2c 00 37 8e 65 63 68 6f 43 6f 6d 2c 73 70 65 65 64 43 6f 6d 2c ┆cCom,setCom, 7 echoCom,speedCom,┆
0x02a80…02aa0 6b 69 6c 6c 43 6f 6d 2c 64 65 6c 65 74 65 43 6f 6d 2c 71 75 69 74 43 6f 6d 2c 73 79 6e 74 61 78 ┆killCom,deleteCom,quitCom,syntax┆
0x02aa0…02ac0 43 6f 6d 29 3b 00 00 05 63 6f 6e 73 74 00 00 0f 83 6d 61 63 72 6f 43 68 61 72 3d 27 24 27 3b 00 ┆Com); const macroChar='$'; ┆
0x02ac0…02ae0 00 01 20 00 00 0e 66 75 6e 63 74 69 6f 6e 20 65 71 75 61 6c 00 11 82 28 73 31 2c 73 32 3a 81 73 ┆ function equal (s1,s2: s┆
0x02ae0…02b00 68 6f 72 74 49 64 29 00 00 0b 82 3a 81 62 6f 6f 6c 65 61 6e 3b 00 00 04 82 76 61 72 00 0d 84 69 ┆hortId) : boolean; var i┆
0x02b00…02b20 81 3a 81 69 6e 74 65 67 65 72 3b 00 00 0d 84 62 81 3a 81 62 6f 6f 6c 65 61 6e 3b 00 00 06 82 62 ┆ : integer; b : boolean; b┆
0x02b20…02b40 65 67 69 6e 00 22 84 62 81 3a 3d 81 65 6c 65 6d 65 6e 74 73 28 73 31 29 81 3d 81 65 6c 65 6d 65 ┆egin " b := elements(s1) = eleme┆
0x02b40…02b60 6e 74 73 28 73 32 29 3b 00 08 84 69 81 3a 3d 81 31 3b 00 23 84 77 68 69 6c 65 81 62 81 61 6e 64 ┆nts(s2); i := 1; # while b and┆
0x02b60…02b80 81 28 69 81 3c 3d 81 65 6c 65 6d 65 6e 74 73 28 73 31 29 29 81 64 6f 00 00 06 84 62 65 67 69 6e ┆ (i <= elements(s1)) do begin┆
0x02b80…02ba0 00 14 86 62 81 3a 3d 81 73 31 5b 69 5d 81 3d 81 73 32 5b 69 5d 3b 00 0a 86 69 81 3a 3d 81 69 2b ┆ b := s1ÆiÅ = s2ÆiÅ; i := i+┆
0x02ba0…02bc0 31 3b 00 05 84 65 6e 64 3b 00 00 0c 84 45 71 75 61 6c 81 3a 3d 81 62 3b 00 0d 82 65 6e 64 3b 82 ┆1; end; Equal := b; end; ┆
0x02bc0…02be0 7b 45 71 75 61 6c 7d 00 00 01 20 00 00 10 66 75 6e 63 74 69 6f 6e 20 67 65 74 4e 61 6d 65 00 10 ┆æEqualå function getName ┆
0x02be0…02c00 82 28 6c 69 6e 65 3a 81 73 68 6f 72 74 49 64 3b 00 0b 83 76 61 72 81 73 74 61 72 74 2c 00 00 0f ┆ (line: shortId; var start, ┆
0x02c00…02c20 87 73 74 6f 70 3a 81 69 6e 74 65 67 65 72 29 00 00 0b 82 3a 81 62 6f 6f 6c 65 61 6e 3b 00 00 43 ┆ stop: integer) : boolean; C┆
0x02c20…02c40 82 7b 61 66 74 65 72 81 74 68 65 81 63 61 6c 6c 81 6c 69 6e 65 5b 73 74 61 72 74 2e 2e 73 74 6f ┆ æafter the call lineÆstart..sto┆
0x02c40…02c60 70 5d 81 77 69 6c 6c 81 63 6f 6e 74 61 69 6e 81 74 68 65 81 6e 65 78 74 81 6e 61 6d 65 81 61 66 ┆pÅ will contain the next name af┆
0x02c60…02c80 74 65 72 00 00 47 83 74 68 65 81 63 61 6c 6c 81 76 61 6c 75 65 81 6f 66 81 73 74 61 72 74 2e 81 ┆ter G the call value of start. ┆
0x02c80…02ca0 49 66 81 6e 6f 81 6e 61 6d 65 2c 81 73 74 6f 70 3d 30 81 61 6e 64 81 67 65 74 4e 61 6d 65 81 72 ┆If no name, stop=0 and getName r┆
0x02ca0…02cc0 65 74 75 72 6e 73 81 66 61 6c 73 65 7d 00 00 09 82 6c 61 62 65 6c 81 30 3b 00 00 1e 82 76 61 72 ┆eturns falseå label 0; var┆
0x02cc0…02ce0 81 70 6f 73 2c 81 6c 69 6e 65 4c 65 6e 67 74 68 3a 81 69 6e 74 65 67 65 72 3b 00 05 62 65 67 69 ┆ pos, lineLength: integer; begi┆
0x02ce0…02d00 6e 00 00 2a 7b 70 72 69 6e 74 56 61 72 28 27 4a 43 4c 20 2a 67 65 74 6e 61 6d 65 2a 2c 20 6c 69 ┆n *æprintVar('JCL *getname*, li┆
0x02d00…02d20 6e 65 3d 20 27 2c 20 6c 69 6e 65 29 3b 7d 00 0f 82 67 65 74 4e 61 6d 65 3a 3d 74 72 75 65 3b 00 ┆ne= ', line);å getName:=true; ┆
0x02d20…02d40 00 09 82 73 74 6f 70 3a 3d 30 3b 00 00 1d 82 6c 69 6e 65 4c 65 6e 67 74 68 3a 3d 67 65 74 4c 65 ┆ stop:=0; lineLength:=getLe┆
0x02d40…02d60 6e 67 74 68 28 6c 69 6e 65 29 3b 00 00 1f 82 69 66 81 73 74 61 72 74 3e 6c 69 6e 65 4c 65 6e 67 ┆ngth(line); if start>lineLeng┆
0x02d60…02d80 74 68 81 74 68 65 6e 81 62 65 67 69 6e 00 00 10 84 67 65 74 4e 61 6d 65 3a 3d 66 61 6c 73 65 3b ┆th then begin getName:=false;┆
0x02d80…02da0 00 08 84 67 6f 74 6f 81 30 3b 00 05 82 65 6e 64 3b 00 00 16 82 7b 73 6b 69 70 81 6c 65 61 64 69 ┆ goto 0; end; æskip leadi┆
0x02da0…02dc0 6e 67 81 73 70 61 63 65 73 7d 00 1f 82 77 68 69 6c 65 81 6c 69 6e 65 5b 73 74 61 72 74 5d 3d 27 ┆ng spaceså while lineÆstartÅ='┆
0x02dc0…02de0 81 27 81 64 6f 81 62 65 67 69 6e 00 00 10 84 73 74 61 72 74 3a 3d 73 74 61 72 74 2b 31 3b 00 1f ┆ ' do begin start:=start+1; ┆
0x02de0…02e00 84 69 66 81 73 74 61 72 74 3e 6c 69 6e 65 4c 65 6e 67 74 68 81 74 68 65 6e 81 62 65 67 69 6e 00 ┆ if start>lineLength then begin ┆
0x02e00…02e20 00 10 86 67 65 74 4e 61 6d 65 3a 3d 66 61 6c 73 65 3b 00 08 86 67 6f 74 6f 81 30 3b 00 05 84 65 ┆ getName:=false; goto 0; e┆
0x02e20…02e40 6e 64 3b 00 00 05 82 65 6e 64 3b 00 00 17 82 7b 27 73 74 61 72 74 27 81 69 73 81 6e 6f 77 81 66 ┆nd; end; æ'start' is now f┆
0x02e40…02e60 69 78 65 64 7d 00 00 0d 82 73 74 6f 70 3a 3d 73 74 61 72 74 3b 00 00 1f 82 77 68 69 6c 65 81 6c ┆ixedå stop:=start; while l┆
[…truncated at 200 lines…]