|
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)
Names: »EF4B.TXT«
└─⟦08a923884⟧ Bits:30009789/_.ft.Ibm2.50006605.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EF4B.TXT«
0x00000…00020 45 46 34 42 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 ┆EF4B ┆
0x00020…00040 00 00 00 00 07 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 33 30 30 c3 21 ┆ H 0300 !┆
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 ff ff ff ff ff c0 7f 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 54 45 53 54 20 00 00 00 03 00 00 ┆ ØEOSTEST ┆
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 54 45 53 54 20 00 00 50 49 50 45 54 45 53 54 53 41 00 00 00 00 00 0f ┆ ØEOSTEST PIPETESTSA ┆
0x00320…00340 00 00 00 0f 00 00 00 47 00 00 02 ec 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 ┆ G H H ┆
0x00340…00360 00 00 57 54 54 45 53 54 20 20 53 41 00 00 00 00 00 68 00 00 00 68 00 00 00 60 00 00 03 fa 00 00 ┆ WTTEST SA h h ` ┆
0x00360…00380 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 00 00 54 55 4e 49 58 46 53 20 53 41 00 00 ┆ H H TUNIXFS SA ┆
0x00380…003a0 00 00 00 e1 00 00 02 c3 00 00 01 82 00 00 0d cb 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 ┆ H H ┆
0x003a0…003c0 00 00 00 00 00 00 55 58 46 53 54 45 53 54 53 41 00 00 00 00 03 2c 00 00 03 2c 00 00 00 42 00 00 ┆ UXFSTESTSA , , B ┆
0x003c0…003e0 02 c4 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 00 00 56 46 53 54 45 53 54 20 ┆ H H VFSTEST ┆
0x003e0…00400 53 41 00 00 00 00 03 7d 00 00 03 7d 00 00 00 38 00 00 01 e4 00 00 03 08 00 00 00 00 01 08 07 48 ┆SA å å 8 H┆
0x00400…00420 07 48 00 00 00 00 00 00 00 00 50 49 50 45 54 45 53 54 43 46 00 00 00 00 03 c6 00 00 03 c6 00 00 ┆ H PIPETESTCF ┆
0x00420…00440 00 00 00 00 00 0b 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 00 00 57 54 54 45 ┆ H H WTTE┆
0x00440…00460 53 54 20 20 43 46 00 00 00 00 03 cf 00 00 03 cf 00 00 00 01 00 00 00 12 00 00 03 08 00 00 00 00 ┆ST CF ┆
0x00460…00480 01 08 07 48 07 48 00 00 00 00 00 00 00 00 56 46 53 54 45 53 54 20 43 46 00 00 00 00 03 d8 00 00 ┆ H H VFSTEST CF ┆
0x00480…004a0 03 d8 00 00 00 01 00 00 00 0f 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 00 00 ┆ H H ┆
0x004a0…004c0 54 55 4e 49 58 46 53 20 43 46 00 00 00 00 03 e1 00 00 03 e1 00 00 00 01 00 00 00 11 00 00 03 08 ┆TUNIXFS CF ┆
0x004c0…004e0 00 00 00 00 01 08 07 48 07 48 00 00 00 00 00 00 00 00 00 58 46 53 54 45 53 54 43 46 00 00 00 00 ┆ H H XFSTESTCF ┆
0x004e0…00500 00 00 00 00 00 00 ff ff ff ff ff ff ff ff 00 00 03 08 00 00 00 00 01 08 07 48 07 48 00 00 00 00 ┆ H H ┆
0x00500…00520 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 ┆ ┆
[…0xf…]
0x00700…00720 00 01 7b 00 00 01 20 00 00 01 20 00 00 01 20 00 00 14 91 55 81 4e 81 49 81 58 83 46 81 53 83 54 ┆ æ U N I X F S T┆
0x00720…00740 81 45 81 53 81 54 00 01 20 00 00 01 20 00 00 01 7d 00 00 01 20 00 00 1a 4f 42 4a 45 43 54 20 50 ┆ E S T å OBJECT P┆
0x00740…00760 52 4f 47 52 41 4d 20 75 6e 69 78 46 73 54 65 73 74 3b 00 01 20 00 00 01 20 00 00 05 7b 24 4c 2d ┆ROGRAM unixFsTest; æ$L-┆
0x00760…00780 7d 00 00 01 20 00 00 16 7b 24 46 3d 53 59 53 3a 30 2e 2e 55 4e 49 56 46 41 4d 2e 49 44 7d 00 16 ┆å æ$F=SYS:0..UNIVFAM.IDå ┆
0x00780…007a0 7b 24 46 3d 53 59 53 3a 30 2e 2e 4b 4e 45 4c 46 41 4d 2e 49 44 7d 00 01 20 00 00 2d 50 52 4f 43 ┆æ$F=SYS:0..KNELFAM.IDå -PROC┆
0x007a0…007c0 45 44 55 52 45 20 70 72 69 6e 74 54 65 78 74 20 28 74 65 78 74 20 3a 20 66 75 6c 6c 49 64 29 3b ┆EDURE printText (text : fullId);┆
0x007c0…007e0 20 46 4f 52 57 41 52 44 3b 00 00 41 50 52 4f 43 45 44 55 52 45 81 70 72 69 6e 74 56 61 72 81 28 ┆ FORWARD; APROCEDURE printVar (┆
0x007e0…00800 74 65 73 74 81 3a 81 66 75 6c 6c 49 64 3b 81 55 4e 49 56 81 76 61 6c 81 3a 81 62 6c 6f 63 6b 50 ┆test : fullId; UNIV val : blockP┆
0x00800…00820 74 72 29 3b 82 46 4f 52 57 41 52 44 3b 00 00 01 20 00 00 17 7b 24 46 3d 53 59 53 3a 30 2e 2e 41 ┆tr); FORWARD; æ$F=SYS:0..A┆
0x00820…00840 4c 4c 4f 43 46 41 4d 2e 49 44 7d 00 00 17 7b 24 46 3d 53 59 53 3a 30 2e 2e 53 43 48 45 44 46 41 ┆LLOCFAM.IDå æ$F=SYS:0..SCHEDFA┆
0x00840…00860 4d 2e 49 44 7d 00 00 17 7b 24 46 3d 53 59 53 3a 30 2e 2e 4f 42 4a 44 49 52 46 4d 2e 49 44 7d 00 ┆M.IDå æ$F=SYS:0..OBJDIRFM.IDå ┆
0x00860…00880 00 17 7b 24 46 3d 53 59 53 3a 30 2e 2e 41 50 50 4c 49 46 41 4d 2e 49 44 7d 00 00 01 20 00 00 1a ┆ æ$F=SYS:0..APPLIFAM.IDå ┆
0x00880…008a0 7b 24 46 3d 53 59 53 3a 32 36 31 31 2e 2e 55 4e 49 58 49 4f 46 4d 2e 49 44 7d 00 10 7b 24 46 3d ┆æ$F=SYS:2611..UNIXIOFM.IDå æ$F=┆
0x008a0…008c0 54 45 52 4d 54 4f 4f 4c 2e 53 41 7d 00 01 20 00 00 05 7b 24 4c 2b 7d 00 00 01 20 00 00 05 43 4f ┆TERMTOOL.SAå æ$L+å CO┆
0x008c0…008e0 4e 53 54 00 00 0d 82 73 70 61 63 65 81 3d 81 27 81 27 3b 00 00 01 20 00 00 32 46 55 4e 43 54 49 ┆NST space = ' '; 2FUNCTI┆
0x008e0…00900 4f 4e 20 6d 61 6b 65 52 65 73 20 28 6d 2c 66 2c 61 2c 63 20 3a 20 69 6e 74 65 67 65 72 29 20 3a ┆ON makeRes (m,f,a,c : integer) :┆
0x00900…00920 20 72 65 73 75 6c 74 54 79 70 65 3b 00 14 82 56 41 52 81 72 81 3a 81 72 65 73 75 6c 74 54 79 70 ┆ resultType; VAR r : resultTyp┆
0x00920…00940 65 3b 00 05 42 45 47 49 4e 00 00 0d 82 72 2e 6d 61 69 6e 81 3a 3d 81 6d 3b 00 00 0f 82 72 2e 66 ┆e; BEGIN r.main := m; r.f┆
0x00940…00960 61 6d 69 6c 79 81 3a 3d 81 66 3b 00 00 0e 82 72 2e 61 72 67 4e 6f 82 3a 3d 81 61 3b 00 11 82 72 ┆amily := f; r.argNo := a; r┆
0x00960…00980 2e 61 75 78 43 61 75 73 65 81 3a 3d 81 63 3b 00 00 0f 82 72 2e 6f 72 67 4e 6f 81 3a 3d 81 31 37 ┆.auxCause := c; r.orgNo := 17┆
0x00980…009a0 3b 00 00 10 82 72 2e 6f 72 67 53 79 73 81 3a 3d 81 33 34 3b 00 0e 82 6d 61 6b 65 52 65 73 81 3a ┆; r.orgSys := 34; makeRes :┆
0x009a0…009c0 3d 81 72 3b 00 0e 45 4e 44 3b 82 7b 6d 61 6b 65 52 65 73 7d 00 01 20 00 00 01 20 00 00 24 50 52 ┆= r; END; æmakeReså $PR┆
0x009c0…009e0 4f 43 45 44 55 52 45 20 78 43 68 65 63 6b 20 28 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 ┆OCEDURE xCheck (res : resultType┆
0x009e0…00a00 29 3b 00 05 42 45 47 49 4e 00 00 31 82 70 72 69 6e 74 56 61 72 81 28 27 2a 2a 2a 81 75 78 46 73 ┆); BEGIN 1 printVar ('*** uxFs┆
0x00a00…00a20 54 65 73 74 81 63 68 65 63 6b 81 2a 2a 2a 83 72 65 73 81 3d 81 27 2c 81 72 65 73 29 3b 00 00 28 ┆Test check *** res = ', res); (┆
0x00a20…00a40 82 49 46 81 72 65 73 2e 6d 61 69 6e 81 3c 3e 81 6f 6b 81 54 48 45 4e 81 45 78 63 65 70 74 69 6f ┆ IF res.main <> ok THEN Exceptio┆
0x00a40…00a60 6e 81 28 72 65 73 29 3b 00 04 45 4e 44 3b 00 01 20 00 00 01 20 00 00 21 50 52 4f 43 45 44 55 52 ┆n (res); END; !PROCEDUR┆
0x00a60…00a80 45 20 74 72 79 20 28 72 65 73 20 3a 20 72 65 73 75 6c 74 54 79 70 65 29 3b 00 00 05 42 45 47 49 ┆E try (res : resultType); BEGI┆
0x00a80…00aa0 4e 00 00 2f 82 70 72 69 6e 74 56 61 72 81 28 27 2a 2a 2a 81 75 78 46 73 54 65 73 74 81 74 72 79 ┆N / printVar ('*** uxFsTest try┆
0x00aa0…00ac0 81 2a 2a 2a 83 72 65 73 81 3d 81 27 2c 81 72 65 73 29 3b 00 00 04 45 4e 44 3b 00 01 20 00 00 01 ┆ *** res = ', res); END; ┆
0x00ac0…00ae0 20 00 00 04 7b 24 45 7d 00 01 20 00 00 20 46 55 4e 43 54 49 4f 4e 81 67 65 74 49 6e 74 81 28 6c ┆ æ$Eå FUNCTION getInt (l┆
0x00ae0…00b00 69 6e 65 84 3a 81 73 68 6f 72 74 49 64 3b 00 12 91 56 41 52 81 70 6f 73 81 3a 81 69 6e 74 65 67 ┆ine : shortId; VAR pos : integ┆
0x00b00…00b20 65 72 00 0d 90 29 81 3a 81 69 6e 74 65 67 65 72 3b 00 00 04 82 56 41 52 00 16 84 63 2c 81 69 2c ┆er ) : integer; VAR c, i,┆
0x00b20…00b40 81 6b 2c 81 6e 81 3a 81 69 6e 74 65 67 65 72 3b 00 11 84 64 69 67 69 74 86 3a 81 62 6f 6f 6c 65 ┆ k, n : integer; digit : boole┆
0x00b40…00b60 61 6e 3b 00 00 01 20 00 00 3e 7b 20 52 65 61 64 73 20 61 6e 20 69 6e 74 65 67 65 72 20 66 72 6f ┆an; >æ Reads an integer fro┆
0x00b60…00b80 6d 20 27 6c 69 6e 65 27 20 66 72 6f 6d 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e ┆m 'line' from character position┆
0x00b80…00ba0 20 27 70 6f 73 27 20 7d 00 01 20 00 00 05 42 45 47 49 4e 00 00 17 82 6b 81 3a 3d 81 67 65 74 4c ┆ 'pos' å BEGIN k := getL┆
0x00ba0…00bc0 65 6e 67 74 68 81 28 6c 69 6e 65 29 3b 00 00 08 82 6e 81 3a 3d 81 30 3b 00 0c 82 69 81 3a 3d 81 ┆ength (line); n := 0; i := ┆
0x00bc0…00be0 70 6f 73 2d 31 3b 00 10 82 64 69 67 69 74 81 3a 3d 81 66 61 6c 73 65 3b 00 01 20 00 00 1c 82 7b ┆pos-1; digit := false; æ┆
0x00be0…00c00 81 73 6b 69 70 81 6c 65 61 64 69 6e 67 81 6e 6f 6e 2d 64 69 67 69 74 73 81 7d 00 07 82 52 45 50 ┆ skip leading non-digits å REP┆
0x00c00…00c20 45 41 54 00 00 0a 84 69 81 3a 3d 81 69 2b 31 3b 00 2f 84 49 46 81 69 81 3c 3d 81 6b 81 54 48 45 ┆EAT i := i+1; / IF i <= k THE┆
0x00c20…00c40 4e 81 63 81 3a 3d 81 4f 52 44 81 28 6c 69 6e 65 5b 69 5d 29 81 45 4c 53 45 81 63 81 3a 3d 81 30 ┆N c := ORD (lineÆiÅ) ELSE c := 0┆
0x00c40…00c60 3b 00 00 22 84 64 69 67 69 74 81 3a 3d 81 28 63 81 3e 3d 81 34 38 29 81 41 4e 44 81 28 63 81 3c ┆; " digit := (c >= 48) AND (c <┆
0x00c60…00c80 3d 81 35 37 29 3b 00 18 82 55 4e 54 49 4c 81 64 69 67 69 74 81 4f 52 81 28 69 81 3e 81 6b 29 3b ┆= 57); UNTIL digit OR (i > k);┆
0x00c80…00ca0 00 01 20 00 00 1e 82 7b 81 72 65 61 64 81 75 6e 74 69 6c 81 6e 65 78 74 81 6e 6f 6e 2d 64 69 67 ┆ æ read until next non-dig┆
0x00ca0…00cc0 69 74 81 7d 00 1c 82 57 48 49 4c 45 81 64 69 67 69 74 81 41 4e 44 81 28 69 81 3c 3d 81 6b 29 81 ┆it å WHILE digit AND (i <= k) ┆
0x00cc0…00ce0 44 4f 00 06 82 42 45 47 49 4e 00 14 84 6e 81 3a 3d 81 6e 2a 31 30 81 2b 81 63 81 2d 81 34 38 3b ┆DO BEGIN n := n*10 + c - 48;┆
0x00ce0…00d00 00 0a 84 69 81 3a 3d 81 69 2b 31 3b 00 0f 84 49 46 81 69 81 3c 3d 81 6b 81 54 48 45 4e 00 00 06 ┆ i := i+1; IF i <= k THEN ┆
0x00d00…00d20 84 42 45 47 49 4e 00 14 86 63 81 3a 3d 81 4f 52 44 81 28 6c 69 6e 65 5b 69 5d 29 3b 00 22 86 64 ┆ BEGIN c := ORD (lineÆiÅ); " d┆
0x00d20…00d40 69 67 69 74 81 3a 3d 81 28 63 81 3e 3d 81 34 38 29 81 41 4e 44 81 28 63 81 3c 3d 81 35 37 29 3b ┆igit := (c >= 48) AND (c <= 57);┆
0x00d40…00d60 00 05 84 45 4e 44 3b 00 00 05 82 45 4e 44 3b 00 00 01 20 00 00 0a 82 70 6f 73 81 3a 3d 81 69 3b ┆ END; END; pos := i;┆
0x00d60…00d80 00 0d 82 67 65 74 49 6e 74 81 3a 3d 81 6e 3b 00 00 0d 45 4e 44 3b 82 7b 67 65 74 49 6e 74 7d 00 ┆ getInt := n; END; ægetIntå ┆
0x00d80…00da0 00 01 20 00 00 01 20 00 00 01 20 00 00 28 50 52 4f 43 45 44 55 52 45 20 67 65 74 54 65 78 74 20 ┆ (PROCEDURE getText ┆
0x00da0…00dc0 28 6c 69 6e 65 2c 20 74 65 78 74 20 3a 20 73 68 6f 72 74 49 64 3b 00 11 93 66 69 6c 6c 43 68 61 ┆(line, text : shortId; fillCha┆
0x00dc0…00de0 72 83 3a 81 63 68 61 72 3b 00 00 14 93 56 41 52 81 70 6f 73 84 3a 81 69 6e 74 65 67 65 72 29 3b ┆r : char; VAR pos : integer);┆
0x00de0…00e00 00 04 82 56 41 52 00 16 84 69 2c 81 6a 2c 81 6b 2c 81 74 81 3a 81 69 6e 74 65 67 65 72 3b 00 0a ┆ VAR i, j, k, t : integer; ┆
0x00e00…00e20 84 63 8a 3a 81 63 68 61 72 3b 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ c : char; ┆
0x00e20…00e40 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…]
0x00f00…00f20 00 00 00 00 00 00 00 00 07 00 00 00 00 07 00 6c 08 00 00 00 00 10 00 53 06 00 00 00 00 18 00 3e ┆ l S >┆
0x00f20…00f40 07 00 00 00 00 20 00 2a 05 00 00 00 00 28 00 3e 08 00 00 00 00 30 00 48 08 00 00 00 00 38 00 4d ┆ * ( > 0 H 8 M┆
0x00f40…00f60 07 00 00 00 00 40 00 29 05 00 00 00 00 48 00 3a 06 00 00 00 00 50 00 42 06 00 00 00 00 58 00 4e ┆ @ ) H : P B X N┆
0x00f60…00f80 06 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 ┆ ┆
0x00f80…00fa0 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 ┆ ┆
[…0x3…]
0x01000…01020 00 46 7b 20 52 65 61 64 73 20 69 6e 74 6f 20 27 74 65 78 74 27 20 61 20 74 78 74 20 73 74 72 69 ┆ Fæ Reads into 'text' a txt stri┆
0x01020…01040 6e 67 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79 20 27 2e 2e 2e 27 20 66 72 6f 6d 20 27 6c 69 6e ┆ng surrounded by '...' from 'lin┆
0x01040…01060 65 27 2c 20 66 72 6f 6d 00 45 82 63 68 61 72 61 63 74 65 72 81 70 6f 73 69 74 69 6f 6e 81 27 70 ┆e', from E character position 'p┆
0x01060…01080 6f 73 27 2e 81 41 6e 79 81 75 6e 75 73 65 64 81 63 68 61 72 73 81 69 6e 81 27 74 65 78 74 27 81 ┆os'. Any unused chars in 'text' ┆
0x01080…010a0 61 72 65 81 66 69 6c 6c 65 64 81 77 69 74 68 00 00 0c 82 4e 55 4c 2d 63 68 61 72 73 81 7d 00 01 ┆are filled with NUL-chars å ┆
0x010a0…010c0 20 00 00 05 42 45 47 49 4e 00 00 17 82 6b 81 3a 3d 81 67 65 74 4c 65 6e 67 74 68 81 28 6c 69 6e ┆ BEGIN k := getLength (lin┆
0x010c0…010e0 65 29 3b 00 00 16 82 74 81 3a 3d 81 65 6c 65 6d 65 6e 74 73 81 28 74 65 78 74 29 3b 00 0c 82 69 ┆e); t := elements (text); i┆
0x010e0…01100 81 3a 3d 81 70 6f 73 2d 31 3b 00 08 82 6a 81 3a 3d 81 30 3b 00 01 20 00 00 17 82 7b 81 73 6b 69 ┆ := pos-1; j := 0; æ ski┆
0x01100…01120 70 81 75 6e 74 69 6c 81 66 69 72 73 74 81 27 81 7d 00 00 07 82 52 45 50 45 41 54 00 00 0a 84 69 ┆p until first ' å REPEAT i┆
0x01120…01140 81 3a 3d 81 69 2b 31 3b 00 2c 84 49 46 81 69 81 3c 3d 81 6b 81 54 48 45 4e 81 63 81 3a 3d 81 6c ┆ := i+1; , IF i <= k THEN c := l┆
0x01140…01160 69 6e 65 5b 69 5d 81 45 4c 53 45 81 63 81 3a 3d 81 27 27 27 27 3b 00 10 82 55 4e 54 49 4c 81 63 ┆ineÆiÅ ELSE c := ''''; UNTIL c┆
0x01160…01180 81 3d 81 27 27 27 27 3b 00 01 20 00 00 17 82 7b 81 72 65 61 65 64 81 75 6e 74 69 6c 81 6e 65 78 ┆ = ''''; æ reaed until nex┆
0x01180…011a0 74 81 27 81 7d 00 00 07 82 52 45 50 45 41 54 00 00 0a 84 69 81 3a 3d 81 69 2b 31 3b 00 2c 84 49 ┆t ' å REPEAT i := i+1; , I┆
0x011a0…011c0 46 81 69 81 3c 3d 81 6b 81 54 48 45 4e 81 63 81 3a 3d 81 6c 69 6e 65 5b 69 5d 81 45 4c 53 45 81 ┆F i <= k THEN c := lineÆiÅ ELSE ┆
0x011c0…011e0 63 81 3a 3d 81 27 27 27 27 3b 00 20 84 49 46 81 28 63 81 3c 3e 81 27 27 27 27 29 81 41 4e 44 81 ┆c := ''''; IF (c <> '''') AND ┆
0x011e0…01200 28 6a 81 3c 81 74 29 81 54 48 45 4e 00 06 84 42 45 47 49 4e 00 0a 86 6a 81 3a 3d 81 6a 2b 31 3b ┆(j < t) THEN BEGIN j := j+1;┆
0x01200…01220 00 0e 86 74 65 78 74 5b 6a 5d 81 3a 3d 81 63 3b 00 05 84 45 4e 44 3b 00 00 10 82 55 4e 54 49 4c ┆ textÆjÅ := c; END; UNTIL┆
0x01220…01240 81 63 81 3d 81 27 27 27 27 3b 00 01 20 00 00 25 82 7b 81 66 69 6c 6c 81 72 65 73 74 81 6f 66 81 ┆ c = ''''; % æ fill rest of ┆
0x01240…01260 74 65 78 74 81 77 69 74 68 81 66 69 6c 6c 2d 63 68 61 72 81 7d 00 00 15 82 46 4f 52 81 6a 81 3a ┆text with fill-char å FOR j :┆
0x01260…01280 3d 81 6a 2b 31 81 54 4f 81 74 81 44 4f 00 00 15 84 74 65 78 74 5b 6a 5d 81 3a 3d 81 66 69 6c 6c ┆= j+1 TO t DO textÆjÅ := fill┆
0x01280…012a0 43 68 61 72 3b 00 00 0a 82 70 6f 73 81 3a 3d 81 69 3b 00 0e 45 4e 44 3b 82 7b 67 65 74 54 65 78 ┆Char; pos := i; END; ægetTex┆
0x012a0…012c0 74 7d 00 01 20 00 00 01 20 00 00 04 7b 24 45 7d 00 01 20 00 00 12 7b 20 4c 6f 63 61 6c 20 70 6f ┆tå æ$Eå æ Local po┆
0x012c0…012e0 69 6e 74 65 72 73 20 7d 00 01 20 00 00 04 54 59 50 45 00 01 20 00 00 16 82 75 78 54 65 73 74 4c ┆inters å TYPE uxTestL┆
0x012e0…01300 6f 63 61 6c 73 81 3d 81 52 45 43 4f 52 44 00 0b 84 63 6f 64 65 87 3a 81 5e 5e 3b 00 00 14 84 73 ┆ocals = RECORD code : ^^; s┆
0x01300…01320 74 75 62 52 65 66 84 3a 81 5e 5e 4f 62 6a 44 69 72 3b 00 06 84 66 61 6f 31 2c 00 06 84 66 61 6f ┆tubRef : ^^ObjDir; fao1, fao┆
0x01320…01340 32 2c 00 13 84 66 61 6f 33 87 3a 81 66 61 6f 52 65 66 54 79 70 65 3b 00 00 07 84 73 74 64 49 6e ┆2, fao3 : faoRefType; stdIn┆
0x01340…01360 2c 00 00 08 84 73 74 64 4f 75 74 2c 00 17 84 73 74 64 45 72 72 6f 72 83 3a 81 66 61 6f 52 65 66 ┆, stdOut, stdError : faoRef┆
0x01360…01380 54 79 70 65 3b 00 00 13 84 75 78 89 3a 81 69 6f 53 79 73 52 65 66 54 79 70 65 3b 00 00 05 82 45 ┆Type; ux : ioSysRefType; E┆
0x01380…013a0 4e 44 3b 00 00 01 20 00 00 04 7b 24 45 7d 00 01 20 00 00 39 50 52 4f 47 52 41 4d 20 69 55 6e 69 ┆ND; æ$Eå 9PROGRAM iUni┆
0x013a0…013c0 78 46 73 54 65 73 74 20 4f 42 4a 45 43 54 20 41 70 70 6c 69 63 61 74 69 6f 6e 20 57 49 54 48 20 ┆xFsTest OBJECT Application WITH ┆
0x013c0…013e0 75 78 54 65 73 74 4c 6f 63 61 6c 73 3b 00 00 01 20 00 00 09 45 4e 54 52 59 20 52 75 6e 00 00 26 ┆uxTestLocals; ENTRY Run &┆
0x013e0…01400 82 7b 81 66 69 6c 65 45 6e 76 2c 81 6a 6f 62 53 79 73 81 3b 81 70 72 6f 67 49 64 81 5b 2c 81 74 ┆ æ fileEnv, jobSys ; progId Æ, t┆
0x01400…01420 65 78 74 5d 81 7d 00 0c 82 57 49 54 48 81 52 45 43 4f 52 44 00 09 89 74 74 81 3a 81 5e 5e 3b 00 ┆extÅ å WITH RECORD tt : ^^; ┆
0x01420…01440 00 05 87 45 4e 44 3b 00 00 01 20 00 00 04 82 56 41 52 00 26 84 6c 69 6e 65 2c 81 69 4c 69 6e 65 ┆ END; VAR & line, iLine┆
0x01440…01460 81 3a 81 61 72 72 61 79 81 5b 31 2e 2e 31 30 30 5d 81 6f 66 81 63 68 61 72 3b 00 1d 84 62 75 66 ┆ : array Æ1..100Å of char; buf┆
0x01460…01480 89 3a 81 61 72 72 61 79 81 5b 31 2e 2e 31 30 5d 81 6f 66 81 62 79 74 65 3b 00 00 23 84 73 6d 61 ┆ : array Æ1..10Å of byte; # sma┆
0x01480…014a0 6c 6c 42 75 66 84 3a 81 61 72 72 61 79 81 5b 31 2e 2e 32 39 38 5d 81 6f 66 81 62 79 74 65 3b 00 ┆llBuf : array Æ1..298Å of byte; ┆
0x014a0…014c0 00 1d 84 69 2c 81 6a 2c 81 70 6f 73 2c 81 74 65 73 74 4e 6f 81 3a 81 69 6e 74 65 67 65 72 3b 00 ┆ i, j, pos, testNo : integer; ┆
0x014c0…014e0 00 12 84 72 65 73 89 3a 81 72 65 73 75 6c 74 54 79 70 65 3b 00 01 20 00 00 01 20 00 00 24 50 52 ┆ res : resultType; $PR┆
0x014e0…01500 4f 43 45 44 55 52 45 20 70 72 69 6e 74 4c 69 6e 65 20 28 74 78 74 20 3a 20 73 68 6f 72 74 49 64 ┆OCEDURE printLine (txt : shortId┆
0x01500…01520 29 3b 00 05 42 45 47 49 4e 00 00 12 82 63 6c 65 61 72 54 65 78 74 81 28 6c 69 6e 65 29 3b 00 15 ┆); BEGIN clearText (line); ┆
0x01520…01540 82 70 75 74 54 65 78 74 81 28 6c 69 6e 65 2c 81 74 78 74 29 3b 00 00 0e 82 70 75 74 4e 6c 81 28 ┆ putText (line, txt); putNl (┆
0x01540…01560 6c 69 6e 65 29 3b 00 2b 82 78 43 68 65 63 6b 81 28 81 74 65 72 6d 49 6f 81 28 73 74 64 4f 75 74 ┆line); + xCheck ( termIo (stdOut┆
0x01560…01580 2c 81 57 72 69 74 65 53 65 71 2c 81 6c 69 6e 65 29 29 3b 00 00 10 45 4e 44 3b 82 7b 70 72 69 6e ┆, WriteSeq, line)); END; æprin┆
0x01580…015a0 74 4c 69 6e 65 7d 00 01 20 00 00 01 20 00 00 25 50 52 4f 43 45 44 55 52 45 20 70 72 69 6e 74 45 ┆tLineå %PROCEDURE printE┆
0x015a0…015c0 72 72 6f 72 20 28 74 78 74 20 3a 20 73 68 6f 72 74 69 64 29 3b 00 00 04 82 56 41 52 00 16 84 73 ┆rror (txt : shortid); VAR s┆
0x015c0…015e0 61 76 65 52 65 73 81 3a 81 72 65 73 75 6c 74 54 79 70 65 3b 00 05 42 45 47 49 4e 00 00 00 00 00 ┆aveRes : resultType; BEGIN ┆
0x015e0…01600 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 ┆ ┆
[…0x10…]
0x01800…01820 00 19 82 73 61 76 65 52 65 73 81 3a 3d 81 67 65 74 45 78 63 65 70 74 69 6f 6e 3b 00 00 11 82 70 ┆ saveRes := getException; p┆
0x01820…01840 72 69 6e 74 54 65 78 74 81 28 74 78 74 29 3b 00 00 11 82 70 72 69 6e 74 4c 69 6e 65 81 28 74 78 ┆rintText (txt); printLine (tx┆
0x01840…01860 74 29 3b 00 00 20 82 70 75 74 45 72 72 6f 72 81 28 6c 69 6e 65 2c 81 73 61 76 65 52 65 73 2c 81 ┆t); putError (line, saveRes, ┆
0x01860…01880 27 27 2c 30 29 3b 00 27 82 74 72 79 81 28 74 65 72 6d 49 6f 81 28 73 74 64 4f 75 74 2c 81 57 72 ┆'',0); ' try (termIo (stdOut, Wr┆
0x01880…018a0 69 74 65 53 65 71 2c 81 6c 69 6e 65 29 29 3b 00 00 11 45 4e 44 3b 82 7b 70 72 69 6e 74 45 72 72 ┆iteSeq, line)); END; æprintErr┆
0x018a0…018c0 6f 72 7d 00 00 01 20 00 00 01 20 00 00 01 20 00 00 21 50 52 4f 43 45 44 55 52 45 20 72 65 61 64 ┆orå !PROCEDURE read┆
0x018c0…018e0 49 6e 74 20 28 74 78 74 20 3a 20 73 68 6f 72 74 49 64 3b 00 00 14 93 56 41 52 81 76 61 6c 81 3a ┆Int (txt : shortId; VAR val :┆
0x018e0…01900 81 69 6e 74 65 67 65 72 29 3b 00 05 42 45 47 49 4e 00 00 11 82 70 72 69 6e 74 4c 69 6e 65 81 28 ┆ integer); BEGIN printLine (┆
0x01900…01920 74 78 74 29 3b 00 00 01 20 00 00 2a 82 78 43 68 65 63 6b 81 28 81 74 65 72 6d 49 6f 81 28 73 74 ┆txt); * xCheck ( termIo (st┆
0x01920…01940 64 49 6e 2c 81 52 65 61 64 53 65 71 2c 81 69 4c 69 6e 65 29 29 3b 00 0a 82 70 6f 73 81 3a 3d 81 ┆dIn, ReadSeq, iLine)); pos := ┆
0x01940…01960 33 3b 00 1c 82 76 61 6c 81 3a 3d 81 67 65 74 49 6e 74 81 28 69 4c 69 6e 65 2c 81 70 6f 73 29 3b ┆3; val := getInt (iLine, pos);┆
0x01960…01980 00 0e 45 4e 44 3b 82 7b 72 65 61 64 49 6e 74 7d 00 01 20 00 00 01 20 00 00 01 20 00 00 27 50 52 ┆ END; æreadIntå 'PR┆
0x01980…019a0 4f 43 45 44 55 52 45 20 72 65 61 64 54 65 78 74 20 28 74 78 74 2c 20 76 61 6c 20 3a 20 73 68 6f ┆OCEDURE readText (txt, val : sho┆
0x019a0…019c0 72 74 49 64 3b 00 00 13 94 66 69 6c 6c 43 68 61 72 81 3a 81 63 68 61 72 84 29 3b 00 00 05 42 45 ┆rtId; fillChar : char ); BE┆
0x019c0…019e0 47 49 4e 00 00 11 82 70 72 69 6e 74 4c 69 6e 65 81 28 74 78 74 29 3b 00 00 01 20 00 00 2a 82 78 ┆GIN printLine (txt); * x┆
0x019e0…01a00 43 68 65 63 6b 81 28 81 74 65 72 6d 49 6f 81 28 73 74 64 49 6e 2c 81 52 65 61 64 53 65 71 2c 81 ┆Check ( termIo (stdIn, ReadSeq, ┆
0x01a00…01a20 69 69 4c 69 6e 65 29 29 3b 00 0a 82 70 6f 73 81 3a 3d 81 33 3b 00 25 82 67 65 74 54 65 78 74 81 ┆iiLine)); pos := 3; % getText ┆
0x01a20…01a40 28 69 4c 69 6e 65 2c 81 76 61 6c 2c 81 66 69 6c 6c 43 68 61 72 2c 81 70 6f 73 29 3b 00 00 0f 45 ┆(iLine, val, fillChar, pos); E┆
0x01a40…01a60 4e 44 3b 82 7b 72 65 61 64 54 65 78 74 7d 00 00 01 20 00 00 04 7b 24 45 7d 00 01 20 00 00 14 50 ┆ND; æreadTextå æ$Eå P┆
0x01a60…01a80 52 4f 43 45 44 55 52 45 20 70 72 69 6e 74 4d 65 6e 75 3b 00 05 42 45 47 49 4e 00 00 1f 82 70 72 ┆ROCEDURE printMenu; BEGIN pr┆
0x01a80…01aa0 69 6e 74 4c 69 6e 65 81 28 27 82 30 81 3a 81 70 72 69 6e 74 4d 65 6e 75 81 27 29 3b 00 00 47 82 ┆intLine (' 0 : printMenu '); G ┆
0x01aa0…01ac0 70 72 69 6e 74 4c 69 6e 65 81 28 27 82 31 81 3a 81 74 65 73 74 31 3a 81 57 72 69 74 65 53 65 71 ┆printLine (' 1 : test1: WriteSeq┆
0x01ac0…01ae0 81 27 27 2f 70 69 70 2f 65 64 69 74 68 27 27 81 26 81 27 27 2f 70 69 70 2f 63 61 72 73 74 65 6e ┆ ''/pip/edith'' & ''/pip/carsten┆
0x01ae0…01b00 27 27 81 27 29 3b 00 00 33 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 82 32 81 3a 81 74 65 73 74 32 ┆'' '); 3 printLine (' 2 : test2┆
0x01b00…01b20 81 52 65 61 64 53 65 71 81 27 27 2f 70 69 70 2f 65 64 69 74 68 27 27 81 27 29 3b 00 00 34 82 70 ┆ ReadSeq ''/pip/edith'' '); 4 p┆
0x01b20…01b40 72 69 6e 74 4c 69 6e 65 81 28 27 82 33 81 3a 81 74 65 73 74 33 3a 81 43 72 65 61 74 65 4c 69 6e ┆rintLine (' 3 : test3: CreateLin┆
0x01b40…01b60 6b 81 26 81 44 65 6c 65 74 65 4c 69 6e 6b 81 27 29 3b 00 37 82 70 72 69 6e 74 4c 69 6e 65 81 28 ┆k & DeleteLink '); 7 printLine (┆
0x01b60…01b80 27 82 34 81 3a 81 74 65 73 74 34 3a 81 61 70 70 65 6e 64 81 74 6f 81 27 27 2f 70 69 70 2f 63 61 ┆' 4 : test4: append to ''/pip/ca┆
0x01b80…01ba0 72 73 74 65 6e 27 27 81 27 29 3b 00 00 3f 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 82 35 81 3a 81 ┆rsten'' '); ? printLine (' 5 : ┆
0x01ba0…01bc0 74 65 73 74 35 3a 81 63 72 65 61 74 65 81 6e 65 77 81 64 69 72 65 63 74 6f 72 79 81 27 27 2f 70 ┆test5: create new directory ''/p┆
0x01bc0…01be0 69 70 2f 64 69 72 31 27 27 81 27 29 3b 00 00 29 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 82 36 81 ┆ip/dir1'' '); ) printLine (' 6 ┆
0x01be0…01c00 3a 81 74 65 73 74 36 3a 81 72 65 61 64 81 70 69 70 65 81 31 30 81 27 29 3b 00 00 2a 82 70 72 69 ┆: test6: read pipe 10 '); * pri┆
0x01c00…01c20 6e 74 4c 69 6e 65 81 28 27 82 37 81 3a 81 74 65 73 74 37 3a 81 77 72 69 74 65 81 70 69 70 65 81 ┆ntLine (' 7 : test7: write pipe ┆
0x01c20…01c40 31 30 81 27 29 3b 00 28 82 70 72 69 6e 74 6c 69 6e 65 81 28 27 82 38 81 3a 81 74 65 73 74 38 3a ┆10 '); ( printline (' 8 : test8:┆
0x01c40…01c60 81 72 65 61 64 81 70 69 70 65 81 31 81 27 29 3b 00 29 82 70 72 69 6e 74 6c 69 6e 65 81 28 27 82 ┆ read pipe 1 '); ) printline (' ┆
0x01c60…01c80 39 81 3a 81 74 65 73 74 39 3a 81 77 72 69 74 65 81 70 69 70 65 81 31 81 27 29 3b 00 00 2b 82 70 ┆9 : test9: write pipe 1 '); + p┆
0x01c80…01ca0 72 69 6e 74 6c 69 6e 65 81 28 27 81 31 30 81 3a 81 74 65 73 74 31 30 3a 81 72 65 61 64 81 70 69 ┆rintline (' 10 : test10: read pi┆
0x01ca0…01cc0 70 65 81 31 35 81 27 29 3b 00 00 2c 82 70 72 69 6e 74 6c 69 6e 65 81 28 27 81 31 31 81 3a 81 74 ┆pe 15 '); , printline (' 11 : t┆
0x01cc0…01ce0 65 73 74 31 31 3a 81 77 72 69 74 65 81 70 69 70 65 81 31 35 81 27 29 3b 00 11 82 70 72 69 6e 74 ┆est11: write pipe 15 '); print┆
0x01ce0…01d00 4c 69 6e 65 81 28 27 81 27 29 3b 00 00 25 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 31 30 31 81 3a ┆Line (' '); % printLine ('101 :┆
0x01d00…01d20 81 74 41 73 73 69 67 6e 81 28 66 61 6f 31 29 81 27 29 3b 00 00 26 82 70 72 69 6e 74 4c 69 6e 65 ┆ tAssign (fao1) '); & printLine┆
0x01d20…01d40 81 28 27 31 30 32 81 3a 81 74 44 65 61 6c 6c 6f 63 81 28 66 61 6f 31 29 81 27 29 3b 00 21 82 70 ┆ ('102 : tDealloc (fao1) '); ! p┆
0x01d40…01d60 72 69 6e 74 4c 69 6e 65 81 28 27 31 30 34 81 3a 81 74 43 72 65 61 74 65 4c 69 6e 6b 27 29 3b 00 ┆rintLine ('104 : tCreateLink'); ┆
0x01d60…01d80 00 21 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 31 30 35 81 3a 81 74 44 65 6c 65 74 65 4c 69 6e 6b ┆ ! printLine ('105 : tDeleteLink┆
0x01d80…01da0 27 29 3b 00 00 1e 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 31 30 36 81 3a 81 74 49 6e 63 6c 75 64 ┆'); printLine ('106 : tInclud┆
0x01da0…01dc0 65 27 29 3b 00 1e 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 31 30 37 81 3a 81 74 45 78 63 6c 75 64 ┆e'); printLine ('107 : tExclud┆
0x01dc0…01de0 65 27 29 3b 00 26 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 31 31 30 81 3a 81 74 46 61 6f 45 6e 74 ┆e'); & printLine ('110 : tFaoEnt┆
0x01de0…01e00 72 79 81 28 66 61 6f 31 29 27 29 3b 00 11 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 81 27 29 3b 00 ┆ry (fao1)'); printLine (' '); ┆
0x01e00…01e20 00 42 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 32 30 31 2c 32 30 32 2c 32 31 30 81 3a 81 74 41 73 ┆ B printLine ('201,202,210 : tAs┆
0x01e20…01e40 73 69 67 6e 2c 81 74 44 65 61 6c 6c 6f 63 2c 81 74 46 61 6f 45 6e 74 72 79 81 28 66 61 6f 32 29 ┆sign, tDealloc, tFaoEntry (fao2)┆
0x01e40…01e60 27 81 29 3b 00 42 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 33 30 31 2c 33 30 32 2c 33 31 30 81 3a ┆' ); B printLine ('301,302,310 :┆
0x01e60…01e80 81 74 41 73 73 69 67 6e 2c 81 74 44 65 61 6c 6c 6f 63 2c 81 74 46 61 6f 45 6e 74 72 79 81 28 66 ┆ tAssign, tDealloc, tFaoEntry (f┆
0x01e80…01ea0 61 6f 33 29 27 81 29 3b 00 11 82 70 72 69 6e 74 4c 69 6e 65 81 28 27 81 27 29 3b 00 00 1a 82 70 ┆ao3)' ); printLine (' '); p┆
0x01ea0…01ec0 72 69 6e 74 4c 69 6e 65 81 28 27 39 39 39 81 3a 81 73 74 6f 70 27 29 3b 00 10 45 4e 44 3b 82 7b ┆rintLine ('999 : stop'); END; æ┆
[…truncated at 200 lines…]