|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top
Length: 1177344 (0x11f700)
Description: Bits:30005751 SW1323/I8 RC703 Facility for UCSD Pascal rel. 1.0
Types: 8" Floppy Disk, ImdContainer
Dumping the first 0x40 bytes of each record
0x000000…000080 (0, 0, 1) 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 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 ┆ ┆
[…0x34…]
0x002900…002b00 (1, 0, 2) 65 67 69 6e 20 67 65 74 28 64 61 66 69 6c d7 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 a5 a6 ad d7 a6 02 29 3b 00 cd 00 13 9e 00 a5 a6 ad cd 00 16 9e 00 a5 a6 ad d7 a6 0e 6e 65 78 ┆egin get(dafil ); nex┆
0x002b00…002d00 (1, 0, 3) 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 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 ┆ ┆
0x002d00…002f00 (1, 0, 4) 01 b9 f6 a5 a6 ad d7 a6 03 69 78 78 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 a5 a6 ad a6 0f 5b 69 78 78 70 72 74 5d 2e 70 72 74 3a 3d 70 d7 00 cd 00 13 9e 00 b9 f4 a5 a6 ad d7 a6 ┆ ixx ÆixxprtÅ.prt:=p ┆
0x002f00…003100 (1, 0, 5) 00 00 06 00 00 00 03 46 41 43 00 00 00 00 2e 02 0e 00 00 00 56 a7 00 00 00 00 06 00 1a 00 02 00 0c 49 53 51 54 52 49 4d 2e 43 4f 44 45 00 e2 60 00 02 71 a1 1a 00 42 00 03 00 0b 55 50 44 41 50 ┆ FAC . V ISQTRIM.CODE ` q B UPDAP┆
0x003100…003300 (1, 0, 6) 0d 72 65 77 72 69 74 65 28 64 61 66 69 6c 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 a5 a6 ad a6 02 2c 27 d7 00 cd 00 13 9e 00 a5 a6 ad d8 00 cd 00 13 9e 00 a5 a6 ad d8 a2 0a 00 cd ┆ rewrite(dafil ,' ┆
0x003300…003500 (1, 0, 7) 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 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 ┆ ┆
0x003500…003700 (1, 0, 8) ad dc a2 83 b3 00 cd 00 13 9e 00 a5 a6 ad d7 a6 07 3a 3d 64 61 66 69 6c 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 0d 9e 00 a5 a6 ad a6 06 5e 2e 64 61 74 61 d7 00 cd 00 13 9e 00 b9 f0 a5 a6 ad a6 ┆ :=dafil ^.data ┆
0x003700…003900 (1, 0, 9) 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 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 ┆ ┆
0x003900…003b00 (1, 0, 10) 0d 9e 00 b9 f0 a5 a6 ad d7 a6 03 6b 65 79 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 0d 9e 00 a5 a6 ad a6 06 3a 3d 62 6c 6b 61 d7 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 0d 9e 00 a5 a6 ad a6 0b 5b ┆ key :=blka Æ┆
0x003b00…003d00 (1, 0, 11) 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 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 ┆ ┆
0x003d00…003f00 (1, 0, 12) ec a5 a6 ad d7 a6 04 65 6e 64 3b 00 cd 00 13 9e 00 a5 a6 ad cd 00 16 9e 00 ad 00 65 1b 00 51 04 4c 00 50 00 72 00 00 03 8d 03 0c 00 02 00 15 00 90 04 04 01 01 cc 01 a9 81 7b cc 02 d8 d9 c8 a1 ┆ end; e Q L P r æ ┆
0x003f00…004100 (1, 0, 13) 00 00 00 00 06 00 f0 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 c0 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x004100…004300 (1, 0, 14) ad cd 00 16 9e 00 01 cc 02 a9 81 7b cc 03 d9 da c8 a1 ee a5 81 7c d9 01 0a 88 01 95 a4 83 b8 cc 04 a5 a6 ad db a2 79 00 cd 00 13 9e 00 a5 a6 ad d7 a6 07 3d 72 65 63 6f 72 64 00 cd 00 13 9e 00 ┆ æ ø y =record ┆
0x004300…004500 (1, 0, 15) a9 aa 9f a5 80 03 00 00 cd 00 0a 93 84 a1 63 a5 80 03 a5 aa 65 50 cd 00 12 9e 00 a5 80 03 cd 00 15 9e 00 01 ab aa 9e a5 aa 65 00 be 00 c5 a5 80 03 00 00 cd 00 0a 8d a1 f6 01 cc 01 a5 aa 65 00 ┆ c eP e e ┆
0x004500…004700 (1, 1, 1) 0d 9e 00 a5 a6 ad d7 a6 0a 5d 20 6f 66 20 70 61 69 72 74 00 cd 00 13 9e 00 a5 a6 ad d9 00 cd 00 0d 9e 00 a5 a6 ad 3b 00 cd 00 11 9e 00 a5 a6 ad cd 00 16 9e 00 d9 01 82 cc 02 b9 f0 a5 a6 ad a6 ┆ Å of pairt ; ┆
0x004700…004900 (1, 1, 2) c6 05 d9 50 cd 00 17 c6 05 a5 aa 65 c6 80 85 a9 aa 9e 01 cd 00 19 c6 80 85 c7 a0 00 cd 00 17 c6 05 aa 50 a9 aa 9e 01 82 ab aa 9e a9 aa 9e a5 aa 65 00 be c8 a1 0e a5 aa 65 a9 aa 9e 9b be 3b cb ┆ P e P e e ; ┆
0x004900…004b00 (1, 1, 3) 00 00 15 00 76 04 0a 01 c6 2d da aa 50 c6 04 d9 aa 50 c6 04 d7 a6 00 b7 04 a1 e4 a5 a7 da c6 2d 01 00 cd 00 05 9e 22 00 c3 a1 e6 a5 a6 ad 00 cc 80 82 c6 80 82 a5 81 68 08 cd 00 17 c6 80 82 c6 ┆ v - P P - " h ┆
0x004b00…004d00 (1, 1, 4) e2 a2 09 af 04 ab aa 9f c6 03 cf 04 c6 03 3a af 04 ab aa 9f e2 a2 01 0f cf 05 df 01 82 cc 08 b9 f6 01 cc 09 e0 00 c5 a9 aa 9f 84 a1 5a c6 03 cf 04 c6 03 a6 00 d7 af 04 a1 24 cf 02 e1 a2 83 b2 ┆ : Z $ ┆
0x004d00…004f00 (1, 1, 5) 79 73 66 69 6c 2c 27 d7 00 cd 00 13 a5 a6 ad a5 81 6e 00 cd 00 13 a5 a6 ad a6 03 27 29 3b d7 00 cd 00 13 a5 a6 ad cd 00 16 b9 3f a5 a6 ad d7 a6 05 75 6e 69 74 20 00 cd 00 13 a5 a6 ad c6 04 00 ┆ysfil,' n '); ? unit ┆
0x004f00…005100 (1, 1, 6) 0b 01 d8 cc 07 cf 02 a6 07 75 6e 69 74 76 6f 6c d7 cf 06 de a2 38 08 cf 05 cf 02 c6 02 cf 04 c6 02 a6 04 75 73 65 73 d7 af 04 a1 0a de a5 aa 65 aa 50 cf 02 b9 0a de a6 00 d7 aa 50 01 ab aa 9e ┆ unitvol 8 uses e P P ┆
0x005100…005300 (1, 1, 7) a9 07 cc 05 dc db a2 0a aa 08 dc a2 0c 00 9a dc a2 0b db a3 11 9a dc a2 0a 00 9a dc a2 09 a5 aa 41 da 01 0a 88 01 95 a4 02 f8 9a dc a2 08 00 9a dc a2 07 a5 aa 41 da 01 0a 88 01 95 a4 02 f9 9a ┆ A A ┆
0x005300…005500 (1, 1, 8) 3f 00 0c 00 04 00 09 00 54 00 0e 01 a5 aa 8e b3 04 cf ff 03 00 00 00 00 00 00 04 a0 10 bd 10 a5 aa 55 b3 08 ff 07 fe ff 00 00 00 00 00 00 00 00 00 00 00 00 08 a0 10 bd 10 b6 02 03 d7 a6 0b 74 ┆? T U t┆
0x005500…005700 (1, 1, 9) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x005700…005900 (1, 1, 10) da b9 0a 3e cc 01 b9 10 3c cc 01 b9 0b ac 00 00 01 00 b9 04 11 00 0e 00 ad 01 00 00 06 00 06 00 20 00 02 01 a5 81 7c d8 01 0a 88 01 95 a4 83 b8 cc 03 01 cc 02 da a3 0f cc 04 d9 db c8 a1 f4 da ┆ > < ø ┆
0x005900…005b00 (1, 1, 11) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x005b00…005d00 (1, 1, 12) 6d 65 29 3b d7 00 cd 00 13 9e 00 a5 a6 ad cd 00 16 9e 00 a5 a6 ad d8 a2 83 b3 00 cd 00 13 9e 00 a5 a6 ad a6 08 3a 3d 73 65 71 66 69 6c d7 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 ┆me); :=seqfil ┆
0x005d00…005f00 (1, 1, 13) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 70 65 0d 20 20 20 20 69 73 71 65 72 72 6f 72 73 3d 28 6f 6b 2c 6f 6b 64 75 70 6c 2c 66 69 6c 65 ┆(*$S+*) @08 interface @04 type isqerrors=(ok,okdupl,file┆
0x005f00…006100 (1, 1, 14) 00 cd 00 13 9e 00 a5 a6 ad 3b 00 cd 00 11 9e 00 a5 a6 ad cd 00 16 9e 00 a5 a6 ad a6 0a 70 75 74 28 73 65 71 66 69 6c d7 00 cd 00 13 9e 00 a5 a6 ad b6 01 02 00 cd 00 0d 9e 00 a5 a6 ad 29 00 cd ┆ ; put(seqfil ) ┆
0x006100…006300 (1, 1, 15) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 70 6c 69 63 61 74 65 3a 62 6f 6f 6c 65 61 ┆ fill:integer; duplicate:boolea┆
0x006300…006500 (2, 0, 1) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 70 6c 61 63 65 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 71 6e 61 6d 65 73 29 3b 0d 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 64 65 6c 65 74 65 ┆ procedure replaceisq(isqname:isqnames); procedure delete┆
0x006500…006700 (2, 0, 2) 20 20 20 20 20 67 65 74 28 73 79 73 66 69 6c 29 3b 0d 20 20 20 20 20 20 20 20 20 20 73 79 73 5b 69 73 71 5d 3a 3d 73 79 73 66 69 6c 5e 3b 0d 20 20 20 20 20 20 20 20 20 20 74 72 61 70 6f 66 66 ┆ get(sysfil); sysÆisqÅ:=sysfil^; trapoff┆
0x006700…006900 (2, 0, 3) 20 20 69 78 78 70 72 74 2c 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 2c 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 6b 65 79 73 2c 0d 20 20 ┆ ixxprt, ixprt, antalkeys, ┆
0x006900…006b00 (2, 0, 4) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 6f 70 65 6e 69 73 71 66 69 6c 3b 0d 20 20 20 20 20 20 20 20 69 66 20 69 6f 6f 6b 20 61 6e 64 20 28 61 6e 74 61 6c 72 65 63 73 3e 30 ┆ begin openisqfil; if iook and (antalrecs>0┆
0x006b00…006d00 (2, 0, 5) 20 20 20 69 73 71 72 65 73 3a 69 73 71 65 72 72 6f 72 73 3b 0d 20 20 20 64 6f 74 72 61 70 3a 62 6f 6f 6c 65 61 6e 3b 0d 20 20 20 73 79 73 69 6e 69 74 3a 62 6f 6f 6c 65 61 6e 3b 0d 20 20 20 69 ┆ isqres:isqerrors; dotrap:boolean; sysinit:boolean; i┆
0x006d00…006f00 (2, 0, 6) 69 6c 65 6f 70 65 6e 29 0d 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 20 20 20 65 6e 64 20 ┆ileopen) else error(sysnotinit) end ┆
0x006f00…007100 (2, 0, 7) 73 71 5d 20 64 6f 0d 20 20 20 20 20 20 40 31 36 0d 20 20 65 6e 64 20 28 2a 69 78 74 6f 6b 65 79 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 6b 65 79 74 6f 69 78 78 3b 0d 20 20 62 65 67 69 6e 0d ┆sqÅ do @16 end (*ixtokey*); procedure keytoixx; begin ┆
0x007100…007300 (2, 0, 8) 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 69 66 20 28 73 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 6e 29 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 66 ┆ else if (status<>afteropen) then error(f┆
0x007300…007500 (2, 0, 9) 20 20 65 6e 64 20 28 2a 62 6c 6f 63 6b 70 72 74 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 73 65 74 62 6c 6f 63 6b 70 72 74 28 70 3a 69 6e 74 65 67 65 72 29 3b 0d 20 20 62 65 67 69 6e 0d 20 20 ┆ end (*blockprt*); procedure setblockprt(p:integer); begin ┆
0x007500…007700 (2, 0, 10) 75 5b 69 73 71 5d 2e 66 79 73 6e 72 29 3b 0d 20 20 20 20 20 20 20 20 73 79 73 66 69 6c 5e 3a 3d 73 79 73 5b 69 73 71 5d 3b 0d 20 20 20 20 20 20 20 20 70 75 74 28 73 79 73 66 69 6c 29 3b 0d 20 ┆uÆisqÅ.fysnr); sysfil^:=sysÆisqÅ; put(sysfil); ┆
0x007700…007900 (2, 0, 11) 64 20 28 2a 72 65 73 64 61 74 61 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c 73 64 61 74 61 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 33 30 0d 20 20 65 6e 64 20 28 2a 63 6c 73 64 61 74 ┆d (*resdata*); procedure clsdata; begin @30 end (*clsdat┆
0x007900…007b00 (2, 0, 12) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 69 78 70 72 74 3c 61 6e 74 61 6c 6b 65 79 73 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 ┆ begin if ixprt<antalkeys then begin ┆
0x007b00…007d00 (2, 0, 13) 20 20 20 20 20 20 40 33 31 0d 20 20 65 6e 64 20 28 2a 67 65 74 62 6c 6f 63 6b 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 ┆ @31 end (*getblock*); procedure putblock; begin wi┆
0x007d00…007f00 (2, 0, 14) 20 20 20 20 20 20 6f 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 73 74 61 74 75 73 3c 3e 61 66 74 65 ┆ outrec; end else if status<>afte┆
0x007f00…008100 (2, 0, 15) 20 20 73 65 65 6b 62 6c 6f 63 6b 28 30 29 3b 0d 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 40 33 37 0d 20 20 65 6e 64 20 28 2a 67 65 74 69 78 78 2a 29 3b 0d 70 72 6f 63 65 64 75 72 ┆ seekblock(0); getblock; @37 end (*getixx*); procedur┆
0x008100…008300 (2, 1, 1) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 72 65 63 70 72 74 29 3b 0d 20 20 20 20 20 20 20 20 67 65 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 6f 75 74 ┆ begin seekrec(recprt); getrec; out┆
0x008300…008500 (2, 1, 2) 20 20 20 20 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 69 6e 62 6c 6f 63 6b 0d 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 69 78 70 72 74 3a 3d 30 3b 0d 20 20 20 ┆ getblock; inblock end; ixprt:=0; ┆
0x008500…008700 (2, 1, 3) 6c 65 65 6d 74 79 29 0d 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 ┆leemty) else error (sysnotinit) end (*with*) ┆
0x008700…008900 (2, 1, 4) 6f 63 6b 3b 0d 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 61 6e 74 61 6c 62 6c 6f 63 6b 73 20 64 6f 77 6e 74 6f 20 69 78 78 70 72 74 20 64 6f 0d 20 ┆ock; putblock; for i:=antalblocks downto ixxprt do ┆
0x008900…008b00 (2, 1, 5) 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 62 6c 6f 63 6b 73 20 3c 6d 61 78 62 6c 6f 63 6b 73 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 ┆ if antalblocks <maxblocks then begin ┆
0x008b00…008d00 (2, 1, 6) 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 65 6e 64 20 28 2a 73 70 6c 69 74 62 6c 6f 63 6b 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 65 72 72 6f 72 28 65 72 72 74 79 70 65 3a 69 ┆ end (*with*) end (*splitblock*); procedure error(errtype:i┆
0x008d00…008f00 (2, 1, 7) 0d 20 20 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 6e 75 6d 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 ┆ seekblock(blocknum); outblock; ┆
0x008f00…009100 (2, 1, 8) 28 27 69 6e 69 74 27 29 3b 0d 20 20 20 20 20 20 20 20 6e 6f 74 69 6e 69 74 20 3a 20 77 72 69 74 65 20 28 27 6e 6f 74 69 6e 69 74 27 29 3b 0d 20 20 20 20 20 20 20 20 73 65 71 75 65 6e 63 65 20 ┆('init'); notinit : write ('notinit'); sequence ┆
0x009100…009300 (2, 1, 9) 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 6f 76 65 72 66 6c 6f 77 29 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 65 ┆ error(overflow) end else e┆
0x009300…009500 (2, 1, 10) 20 20 20 20 20 20 64 6f 74 72 61 70 20 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 63 6c 6f 73 65 73 79 73 3b 0d 20 20 20 20 20 20 68 61 6c 74 0d 20 20 20 20 65 6e 64 0d 20 20 65 6e 64 20 28 ┆ dotrap :=false; closesys; halt end end (┆
0x009500…009700 (2, 1, 11) 66 69 6e 64 3b 0d 20 20 20 20 20 20 69 66 20 6d 61 74 63 68 20 74 68 65 6e 0d 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 72 65 63 70 72 74 29 3b 0d 20 20 ┆find; if match then begin seekrec(recprt); ┆
0x009700…009900 (2, 1, 12) 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 63 68 61 6e 67 65 74 72 61 70 28 65 72 72 6f 72 63 6f 64 65 2c 74 72 75 65 29 0d 20 20 65 6e 64 20 28 2a 74 72 61 70 6f ┆n isq:=isqname; changetrap(errorcode,true) end (*trapo┆
0x009900…009b00 (2, 1, 13) 20 20 20 20 20 20 20 20 20 20 20 69 78 74 6f 6b 65 79 3b 0d 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 74 6f 69 78 78 0d 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 20 20 20 73 ┆ ixtokey; keytoixx end; s┆
0x009b00…009d00 (2, 1, 14) 20 20 20 20 20 20 6c 6f 63 6f 6b 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 77 68 69 6c 65 20 28 6e 6f 74 20 6c 6f 63 6f 6b 29 20 61 6e 64 20 28 6e 6f 74 20 65 6f 66 28 73 79 73 66 69 6c 29 ┆ locok:=false; while (not locok) and (not eof(sysfil)┆
0x009d00…009f00 (2, 1, 15) 66 20 73 79 73 69 6e 69 74 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 69 66 20 73 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 6e 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 20 65 72 72 ┆f sysinit then if status<>afteropen then err┆
0x009f00…00a100 (3, 0, 1) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 63 6d 70 3d 30 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 ┆ begin if cmp=0 then begin seekre┆
0x00a100…00a300 (3, 0, 2) 20 20 40 32 39 0d 20 20 65 6e 64 20 28 2a 72 65 77 64 61 74 61 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c 73 64 61 74 61 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 33 30 0d 20 20 65 6e ┆ @29 end (*rewdata*); procedure clsdata; begin @30 en┆
0x00a300…00a500 (3, 0, 3) 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 31 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 70 72 74 29 3b ┆ begin ixxprt:=1; seekblock(blockprt);┆
0x00a500…00a700 (3, 0, 4) 20 20 20 20 20 20 40 33 31 0d 20 20 65 6e 64 20 28 2a 67 65 74 62 6c 6f 63 6b 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 ┆ @31 end (*getblock*); procedure putblock; begin wi┆
0x00a700…00a900 (3, 0, 5) 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 66 69 6c 65 63 6c 6f 73 65 64 29 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 6e 6f 74 66 6f ┆ error (fileclosed) else error (notfo┆
0x00a900…00ab00 (3, 0, 6) 20 20 73 65 65 6b 62 6c 6f 63 6b 28 30 29 3b 0d 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 40 33 37 0d 20 20 65 6e 64 20 28 2a 67 65 74 69 78 78 2a 29 3b 0d 70 72 6f 63 65 64 75 72 ┆ seekblock(0); getblock; @37 end (*getixx*); procedur┆
0x00ab00…00ad00 (3, 0, 7) 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 74 61 3a 3d 62 6c 6f 63 6b 73 69 7a 65 2a 61 6e 74 61 6c 62 6c 6f 63 6b 73 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆; beta:=blocksize*antalblocks; w┆
0x00ad00…00af00 (3, 0, 8) 20 20 20 20 40 34 32 0d 20 20 65 6e 64 20 28 2a 64 65 6c 77 72 6b 66 69 6c 65 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 65 74 73 65 71 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 34 33 0d ┆ @42 end (*delwrkfile*); procedure getseq; begin @43 ┆
0x00af00…00b100 (3, 0, 9) 20 20 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00b100…00b300 (3, 0, 10) 77 72 69 74 65 28 27 6e 6f 73 70 61 63 65 27 29 3b 0d 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 6f 77 20 3a 20 77 72 69 74 65 28 27 6f 76 65 72 66 6c 6f 77 27 29 3b 0d 20 20 20 20 20 20 20 20 ┆write('nospace'); overflow : write('overflow'); ┆
0x00b300…00b500 (3, 0, 11) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00b500…00b700 (3, 0, 12) 20 20 20 20 20 20 20 20 65 6f 66 69 6c 65 20 3a 20 77 72 69 74 65 20 28 27 65 6f 66 69 6c 65 27 29 3b 0d 20 20 20 20 20 20 20 20 66 69 6c 65 65 6d 74 79 20 3a 20 77 72 69 74 65 20 28 27 66 69 ┆ eofile : write ('eofile'); fileemty : write ('fi┆
0x00b700…00b900 (3, 0, 13) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00b900…00bb00 (3, 0, 14) 3a 3d 73 77 69 74 63 68 3b 0d 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 ┆:=switch; isqres:=ok end else ┆
0x00bb00…00bd00 (3, 0, 15) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00bd00…00bf00 (3, 1, 1) 20 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 63 61 74 65 28 73 79 73 6e 61 76 6e 3a 73 74 72 69 6e 67 3b 69 73 71 6e 61 6d 65 3a 69 73 71 6e 61 6d 65 73 29 3b 0d 20 20 20 20 76 61 72 0d 20 20 20 ┆ procedure locate(sysnavn:string;isqname:isqnames); var ┆
0x00bf00…00c100 (3, 1, 2) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 70 65 0d 20 20 20 20 69 73 71 65 72 72 6f 72 73 3d 28 6f 6b 2c 6f 6b 64 75 70 6c 2c 66 69 6c 65 ┆(*$S+*) @08 interface @04 type isqerrors=(ok,okdupl,file┆
0x00c100…00c300 (3, 1, 3) 72 61 70 3a 3d 74 72 75 65 3b 0d 20 20 20 20 20 20 73 79 73 69 6e 69 74 3a 3d 6c 6f 63 6f 6b 3b 0d 20 20 20 20 20 20 69 66 20 6c 6f 63 6f 6b 20 74 68 65 6e 0d 20 20 20 20 20 20 62 65 67 69 6e ┆rap:=true; sysinit:=locok; if locok then begin┆
0x00c300…00c500 (3, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 70 6c 69 63 61 74 65 3a 62 6f 6f 6c 65 61 ┆ fill:integer; duplicate:boolea┆
0x00c500…00c700 (3, 1, 5) 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 66 69 6c 65 6e 6f 74 66 6f 75 6e 64 0d 20 20 65 6e 64 20 28 2a 69 6e 69 74 73 79 73 2a 29 3b 0d 70 72 6f 63 65 ┆ else isqres:=filenotfound end (*initsys*); proce┆
0x00c700…00c900 (3, 1, 6) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 71 6e 61 6d 65 73 29 3b 0d 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 69 73 71 28 ┆ procedure openisq(isqname:isqnames); procedure closeisq(┆
0x00c900…00cb00 (3, 1, 7) 65 73 3a 3d 6f 6b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6f 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 20 65 72 72 ┆es:=ok end else if ioresult=0 then err┆
0x00cb00…00cd00 (3, 1, 8) 74 75 74 79 70 65 3d 72 65 63 6f 72 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 79 73 6e 72 2c 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 2c 0d 20 ┆tutype=record fysnr, ixxprt, ┆
0x00cd00…00cf00 (3, 1, 9) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 70 75 74 69 78 78 3b 0d 20 20 20 20 20 20 20 20 63 6c 73 69 73 71 66 69 6c 3b 0d 20 20 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 61 ┆ begin putixx; clsisqfil; status:=a┆
0x00cf00…00d100 (3, 1, 10) 20 20 20 73 79 73 3a 61 72 72 61 79 20 5b 69 73 71 6e 61 6d 65 73 5d 20 6f 66 20 73 79 73 72 65 63 74 79 70 65 3b 0d 20 20 20 69 73 71 72 65 73 3a 69 73 71 65 72 72 6f 72 73 3b 0d 20 20 20 64 ┆ sys:array ÆisqnamesÅ of sysrectype; isqres:isqerrors; d┆
0x00d100…00d300 (3, 1, 11) 2e 73 74 61 74 75 73 20 6f 66 0d 20 20 20 20 20 20 20 20 20 20 61 66 74 65 72 6f 70 65 6e 20 3a 20 63 6c 6f 73 65 69 73 71 28 69 73 71 29 3b 0d 20 20 20 20 20 20 20 20 20 20 61 66 74 65 72 69 ┆.status of afteropen : closeisq(isq); afteri┆
0x00d300…00d500 (3, 1, 12) 20 69 78 74 6f 6b 65 79 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b 69 73 71 5d 20 64 6f 0d 20 20 20 20 20 20 40 31 36 0d 20 20 65 6e 64 20 28 2a 69 78 74 6f 6b 65 ┆ ixtokey; begin with situÆisqÅ do @16 end (*ixtoke┆
0x00d500…00d700 (3, 1, 13) 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 75 70 64 61 74 65 65 72 72 6f 72 29 0d 20 20 20 20 65 6e 64 0d 20 20 20 20 65 6c 73 65 20 0d 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 ┆ error(updateerror) end else error (sysnot┆
0x00d700…00d900 (3, 1, 14) 20 20 65 6e 64 20 28 2a 73 65 74 62 6c 6f 63 6b 70 72 74 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 72 65 63 70 72 74 3a 69 6e 74 65 67 65 72 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 74 68 ┆ end (*setblockprt*); function recprt:integer; begin with┆
0x00d900…00db00 (3, 1, 15) 78 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 74 72 65 63 70 72 74 28 61 6e 74 61 6c 72 65 63 73 2b 31 29 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 61 6e 74 61 6c 72 65 63 73 ┆x; setrecprt(antalrecs+1); seekrec(antalrecs┆
0x00db00…00dd00 (4, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 69 78 78 70 72 74 2b 31 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 3a 3d 31 0d 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ ixxprt:=ixxprt+1; ixprt:=1 end┆
0x00dd00…00df00 (4, 0, 2) 72 6f 72 20 28 65 6f 66 69 6c 65 29 0d 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 70 72 74 29 3b 0d 20 20 20 20 20 ┆ror (eofile) end; seekblock(blockprt); ┆
0x00df00…00e100 (4, 0, 3) 0d 20 20 76 61 72 0d 20 20 20 20 69 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 73 70 61 63 65 3a 62 6f 6f 6c 65 61 6e 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d ┆ var i:integer; space:boolean; begin isq:=isqnam┆
0x00e100…00e300 (4, 0, 4) 20 20 65 6e 64 20 28 2a 69 73 71 72 65 73 75 6c 74 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 73 79 73 76 61 6c 69 73 71 3b 0d 20 20 76 61 72 0d 20 20 20 20 61 6c 66 61 2c 62 65 74 61 3a 69 6e 74 ┆ end (*isqresult*); function sysvalisq; var alfa,beta:int┆
0x00e300…00e500 (4, 0, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 62 6c 6f 63 6b 3a 3d 69 2b 31 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin nextblock:=i+1; ┆
0x00e500…00e700 (4, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 71 3a 3d 61 6c 66 61 20 64 69 76 20 28 62 65 74 61 20 64 69 76 20 31 30 30 29 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sysvalisq:=alfa div (beta div 100) ┆
0x00e700…00e900 (4, 0, 7) 20 70 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 61 63 65 3a 3d 28 69 6f 72 65 73 75 6c 74 3d 30 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c ┆ putrec; space:=(ioresult=0); cl┆
0x00e900…00eb00 (4, 0, 8) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00eb00…00ed00 (4, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x00ed00…00ef00 (4, 0, 10) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00ef00…00f100 (4, 0, 11) 61 74 75 73 3c 3e 61 66 74 65 72 63 6c 6f 73 65 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 6e 69 74 29 0d 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 ┆atus<>afterclose then error(init) else ┆
0x00f100…00f300 (4, 0, 12) 28 2a 24 53 2b 2a 29 0d 40 30 38 0d 69 6e 74 65 72 66 61 63 65 0d 20 20 40 30 34 0d 20 20 74 79 70 65 0d 20 20 20 20 69 73 71 65 72 72 6f 72 73 3d 28 6f 6b 2c 6f 6b 64 75 70 6c 2c 66 69 6c 65 ┆(*$S+*) @08 interface @04 type isqerrors=(ok,okdupl,file┆
0x00f300…00f500 (4, 0, 13) 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 20 20 6b 65 79 74 6f 69 78 78 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 74 62 6c 6f 63 6b 70 72 74 28 69 78 ┆ putblock; keytoixx; setblockprt(ix┆
0x00f500…00f700 (4, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6c 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 75 70 6c 69 63 61 74 65 3a 62 6f 6f 6c 65 61 ┆ fill:integer; duplicate:boolea┆
0x00f700…00f900 (4, 0, 15) 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 20 20 65 6e 64 ┆ else error (sysnotinit) end (*with*) end┆
0x00f900…00fb00 (4, 1, 1) 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 71 6e 61 6d 65 73 29 3b 0d 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 69 73 71 28 ┆ procedure openisq(isqname:isqnames); procedure closeisq(┆
0x00fb00…00fd00 (4, 1, 2) 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 72 65 63 28 69 73 71 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 73 65 71 0d 20 20 20 ┆ begin initrec(isq); getseq ┆
0x00fd00…00ff00 (4, 1, 3) 6e 61 6d 65 73 3b 65 72 72 6f 72 63 6f 64 65 3a 69 73 71 65 72 72 6f 72 73 29 3b 0d 20 20 20 20 66 75 6e 63 74 69 6f 6e 20 69 73 71 72 65 73 75 6c 74 3a 69 73 71 65 72 72 6f 72 73 3b 0d 20 20 ┆names;errorcode:isqerrors); function isqresult:isqerrors; ┆
0x00ff00…010100 (4, 1, 4) 73 65 71 3b 0d 20 20 76 61 72 0d 20 20 20 20 62 65 66 6f 72 65 2c 20 62 61 64 3a 62 6f 6f 6c 65 61 6e 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 ┆seq; var before, bad:boolean; begin isq:=isqname; ┆
0x010100…010300 (4, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 72 65 63 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 3a 66 69 6c 65 73 74 ┆ nextrec:integer; status:filest┆
0x010300…010500 (4, 1, 6) 20 20 20 20 20 20 20 20 20 20 62 61 64 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 20 67 65 74 6e 69 73 71 28 69 73 71 29 3b 0d 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 69 ┆ bad:=false; getnisq(isq); while (i┆
0x010500…010700 (4, 1, 7) 20 40 31 31 0d 20 20 65 6e 64 20 28 2a 69 6e 72 65 63 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 69 6e 62 6c 6f 63 6b 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 31 33 0d 20 20 65 6e 64 20 28 ┆ @11 end (*inrec*); procedure inblock; begin @13 end (┆
0x010700…010900 (4, 1, 8) 0d 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 20 65 6e 64 20 28 2a 6f 75 74 73 65 71 2a 29 ┆ error (sysnotinit) end (*with*) end (*outseq*)┆
0x010900…010b00 (4, 1, 9) 20 20 62 65 67 69 6e 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b 69 73 71 5d 20 64 6f 0d 20 20 20 20 20 20 40 31 38 0d 20 20 65 6e 64 20 28 2a 69 78 78 74 6f 6b 65 79 2a 29 3b 0d 70 72 6f 63 ┆ begin with situÆisqÅ do @18 end (*ixxtokey*); proc┆
0x010b00…010d00 (4, 1, 10) 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 62 6c 6f 63 6b 73 2d 31 20 64 6f 0d 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 ┆ for i:=1 to maxblocks-1 do begin ┆
0x010d00…010f00 (4, 1, 11) 5d 20 64 6f 0d 20 20 20 20 20 20 40 32 34 0d 20 20 65 6e 64 20 28 2a 73 65 74 72 65 63 70 72 74 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 20 20 20 63 6d 70 3a 69 6e 74 65 67 65 72 3b 0d 20 20 62 ┆Å do @24 end (*setrecprt*); function cmp:integer; b┆
0x010f00…011100 (4, 1, 12) 20 20 20 20 66 69 6e 69 73 71 28 69 73 71 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 71 72 65 73 3d 6f 6b 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 ┆ finisq(isq); if isqres=ok then begin ┆
0x011100…011300 (4, 1, 13) 20 20 62 65 67 69 6e 0d 20 20 20 20 40 33 30 0d 20 20 65 6e 64 20 28 2a 63 6c 73 64 61 74 61 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c 73 69 73 71 66 69 6c 3b 0d 20 20 62 65 67 69 6e 0d ┆ begin @30 end (*clsdata*); procedure clsisqfil; begin ┆
0x011300…011500 (4, 1, 14) 20 20 20 65 6e 64 20 28 2a 72 65 6f 72 67 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 65 74 6e 69 73 71 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 ┆ end (*reorgisq*); procedure getnisq; begin isq:=isqname┆
0x011500…011700 (4, 1, 15) 75 5b 69 73 71 5d 2e 62 6c 6f 63 6b 6e 75 6d 3a 3d 69 6e 64 65 78 3b 0d 20 20 20 20 40 33 33 0d 20 20 65 6e 64 20 28 2a 73 65 65 6b 62 6c 6f 63 6b 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 67 ┆uÆisqÅ.blocknum:=index; @33 end (*seekblock*); procedure g┆
0x011700…011900 (5, 0, 1) 20 20 65 6e 64 20 28 2a 67 65 74 69 78 78 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 70 75 74 69 78 78 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 30 29 3b 0d 20 20 ┆ end (*getixx*); procedure putixx; begin seekblock(0); ┆
0x011900…011b00 (5, 0, 2) 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 74 6f 69 78 78 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 62 6c 6f 63 6b 70 72 74 28 69 78 78 70 72 74 29 3b 0d 20 20 20 20 20 20 20 ┆; keytoixx; setblockprt(ixxprt); ┆
0x011b00…011d00 (5, 0, 3) 65 79 73 29 3b 0d 20 20 20 20 20 20 65 6e 64 6f 66 66 69 6c 65 3a 3d 28 63 6d 70 3e 30 29 3b 0d 20 20 20 20 20 20 6d 61 74 63 68 3a 3d 28 63 6d 70 3d 30 29 0d 20 20 20 20 65 6e 64 20 28 2a 77 ┆eys); endoffile:=(cmp>0); match:=(cmp=0) end (*w┆
0x011d00…011f00 (5, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 72 65 63 73 3e 3d 6d 61 78 72 65 63 73 20 74 68 65 6e 0d 20 20 20 20 20 20 ┆ else if antalrecs>=maxrecs then ┆
0x011f00…012100 (5, 0, 5) 20 20 20 20 20 20 20 20 6d 6f 76 69 78 78 28 69 2b 31 2c 69 29 3b 0d 20 20 20 20 20 20 61 6e 74 61 6c 62 6c 6f 63 6b 73 3a 3d 61 6e 74 61 6c 62 6c 6f 63 6b 73 2b 31 3b 0d 20 20 20 20 20 20 69 ┆ movixx(i+1,i); antalblocks:=antalblocks+1; i┆
0x012100…012300 (5, 0, 6) 20 20 20 20 20 69 66 20 69 6f 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b ┆ if ioresult=0 then begin putblock┆
0x012300…012500 (5, 0, 7) 20 63 6c 73 73 65 71 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 40 34 31 0d 20 20 65 6e 64 20 28 2a 63 6c 73 73 65 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 64 65 6c 77 72 6b 66 69 6c 65 28 ┆ clsseq; begin @41 end (*clsseq*); procedure delwrkfile(┆
0x012500…012700 (5, 0, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 72 65 63 73 2d 31 20 64 6f 0d 20 20 20 ┆ begin for i:=1 to maxrecs-1 do ┆
0x012700…012900 (5, 0, 9) 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 77 72 69 74 65 6c 6e 3b 20 77 72 69 74 65 28 27 69 73 71 2d 65 72 72 6f 72 3a 20 27 29 3b 0d 20 20 20 20 20 20 63 61 73 65 20 65 72 72 74 79 70 ┆ begin writeln; write('isq-error: '); case errtyp┆
0x012900…012b00 (5, 0, 10) 6f 63 6b 73 3a 3d 30 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 3a 3d 31 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 ┆ocks:=0; ixprt:=1; ixxpr┆
0x012b00…012d00 (5, 0, 11) 72 69 74 65 20 28 27 66 69 6c 65 6f 70 65 6e 27 29 3b 0d 20 20 20 20 20 20 20 20 66 69 6c 65 63 6c 6f 73 65 64 20 3a 20 77 72 69 74 65 20 28 27 66 69 6c 65 63 6c 6f 73 65 64 27 29 3b 0d 20 20 ┆rite ('fileopen'); fileclosed : write ('fileclosed'); ┆
0x012d00…012f00 (5, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 6f 65 72 72 6f 72 29 0d 20 20 ┆ end else error(ioerror) ┆
0x012f00…013100 (5, 0, 13) 20 20 62 65 67 69 6e 0d 20 20 20 20 69 66 20 73 79 73 69 6e 69 74 20 74 68 65 6e 0d 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 69 66 20 65 72 72 3e 3d 66 69 6c 65 6e 6f 74 66 6f 75 6e 64 ┆ begin if sysinit then begin if err>=filenotfound┆
0x013100…013300 (5, 0, 14) 31 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 6b 65 79 73 3a 3d 69 78 70 72 74 2d 31 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 ┆1 then begin antalkeys:=ixprt-1; see┆
0x013300…013500 (5, 0, 15) 65 29 0d 20 20 65 6e 64 20 28 2a 74 72 61 70 6f 66 66 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 73 79 73 3b 0d 20 20 76 61 72 0d 20 20 20 6c 6f 63 6f 6b 3a 62 6f 6f 6c 65 ┆e) end (*trapoffisq*); procedure initsys; var locok:boole┆
0x013500…013700 (5, 1, 1) 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 62 6c 61 6e 6b 65 6e 74 72 79 3a 3d 30 3b 0d 20 20 20 20 20 20 20 20 70 75 74 69 78 78 3b 0d 20 20 20 20 20 20 20 20 63 6c ┆ else blankentry:=0; putixx; cl┆
0x013700…013900 (5, 1, 2) 20 20 20 20 20 20 20 20 67 65 74 28 73 79 73 66 69 6c 29 0d 20 20 20 20 20 20 65 6e 64 20 3b 0d 20 20 20 20 20 20 73 69 74 75 5b 69 73 71 6e 61 6d 65 5d 2e 66 79 73 6e 72 3a 3d 66 79 73 6e 72 ┆ get(sysfil) end ; situÆisqnameÅ.fysnr:=fysnr┆
0x013900…013b00 (5, 1, 3) 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 62 65 66 6f 72 65 3a 3d 64 6f 74 72 61 70 3b 20 64 6f 74 72 61 70 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 ┆ begin before:=dotrap; dotrap:=false; while ┆
0x013b00…013d00 (5, 1, 4) 6f 74 66 6f 75 6e 64 0d 20 20 20 20 65 6e 64 0d 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 69 66 20 69 6f 72 65 73 75 6c 74 3d 31 32 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 69 73 71 72 65 ┆otfound end else if ioresult=12 then isqre┆
0x013d00…013f00 (5, 1, 5) 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 6f 65 72 72 6f 72 29 0d 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 ┆ error(ioerror) end end els┆
0x013f00…014100 (5, 1, 6) 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 6c 6f 63 6b 70 72 74 29 3b 0d 20 20 20 20 20 20 20 20 20 20 67 65 74 62 6c 6f 63 6b 3b 0d 20 20 20 20 20 20 20 20 20 20 69 6e 62 ┆ seekblock(blockprt); getblock; inb┆
0x014100…014300 (5, 1, 7) 74 72 61 70 3b 20 64 6f 74 72 61 70 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 20 69 78 78 70 72 74 3a 3d 31 3b 20 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 62 6c 6f 63 6b 28 62 ┆trap; dotrap:=false; ixxprt:=1; seekblock(b┆
0x014300…014500 (5, 1, 8) 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 77 69 74 68 20 73 69 74 75 5b 69 73 71 5d 2c 73 79 73 5b 69 73 71 5d 20 64 6f 0d 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 69 ┆ isq:=isqname; with situÆisqÅ,sysÆisqÅ do begin i┆
0x014500…014700 (5, 1, 9) 20 20 20 20 20 20 20 20 20 20 64 6f 74 72 61 70 3a 3d 62 65 66 6f 72 65 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 62 61 64 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 ┆ dotrap:=before; if not bad then ┆
0x014700…014900 (5, 1, 10) 20 20 65 6e 64 20 28 2a 63 6c 6f 73 65 69 73 71 2a 29 3b 0d 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 73 79 73 3b 0d 20 20 76 61 72 0d 20 20 20 20 62 61 64 2c 62 65 66 6f 72 65 3a 62 6f 6f ┆ end (*closeisq*); procedure closesys; var bad,before:boo┆
0x014900…014b00 (5, 1, 11) 69 6e 0d 20 20 20 20 20 20 20 20 20 62 65 66 6f 72 65 3a 3d 64 6f 74 72 61 70 3b 20 64 6f 74 72 61 70 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 20 6f 75 74 73 65 71 28 69 73 71 2c 77 ┆in before:=dotrap; dotrap:=false; outseq(isq,w┆
0x014b00…014d00 (5, 1, 12) 20 20 20 20 64 6f 74 72 61 70 3a 3d 62 65 66 6f 72 65 3b 0d 20 20 20 20 20 20 73 79 73 69 6e 69 74 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 69 66 20 6e 6f 74 20 62 61 64 20 74 68 65 6e 0d ┆ dotrap:=before; sysinit:=false; if not bad then ┆
0x014d00…014f00 (5, 1, 13) 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 72 65 63 0d 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 20 20 20 20 20 6e 65 78 74 72 65 63 3a 3d 30 3b 0d 20 20 20 20 20 ┆ putrec end; nextrec:=0; ┆
0x014f00…015100 (5, 1, 14) 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 72 65 63 73 3d 30 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 73 65 71 6f 6b 3a 3d 74 72 75 65 0d 20 20 ┆ begin if antalrecs=0 then seqok:=true ┆
0x015100…015300 (5, 1, 15) 20 69 66 20 73 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 6e 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 66 69 6c 65 63 6c 6f 73 65 64 29 0d 20 20 20 20 20 20 20 20 ┆ if status<>afteropen then error(fileclosed) ┆
0x015300…015500 (6, 0, 1) 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 3a 3d 31 3b 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 69 78 78 70 ┆ else begin ixprt:=1; if ixxp┆
0x015500…015700 (6, 0, 2) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x015700…015900 (6, 0, 3) 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 66 69 6c 65 65 6d 74 79 29 0d 20 20 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 20 20 65 6e 64 20 28 2a 67 65 ┆lse error (fileemty) end (*with*) end (*ge┆
0x015900…015b00 (6, 0, 4) 28 2a 24 53 2b 2a 29 0d 55 4e 49 54 20 40 75 3b 0d 0d 49 4e 54 45 52 46 41 43 45 0d 20 20 74 79 70 65 20 0d 20 20 20 20 20 20 20 73 6f 72 74 72 65 63 20 3d 20 72 65 63 6f 72 64 0d 20 20 20 20 ┆(*$S+*) UNIT @u; INTERFACE type sortrec = record ┆
0x015b00…015d00 (6, 0, 5) 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 6e 6f 74 66 6f 75 6e 64 29 0d 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 ┆ else error (notfound) end else ┆
0x015d00…015f00 (6, 0, 6) 20 72 65 63 6f 72 64 20 6c 2c 72 20 3a 20 69 6e 74 65 67 65 72 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 69 6e 64 61 72 72 20 3d 20 61 72 72 61 79 5b 31 2e 2e 31 5d 20 6f 66 20 69 6e 64 3b 0d 20 ┆ record l,r : integer end; indarr = arrayÆ1..1Å of ind; ┆
0x015f00…016100 (6, 0, 7) 3a 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 73 70 61 63 65 3a 62 6f 6f 6c 65 61 6e 3b 0d 20 20 62 65 67 69 6e 0d 20 20 20 20 69 73 71 3a 3d 69 73 71 6e 61 6d 65 3b 0d 20 20 20 20 77 69 74 68 20 ┆:integer; space:boolean; begin isq:=isqname; with ┆
0x016100…016300 (6, 0, 8) 20 20 20 20 20 20 48 45 41 50 20 20 20 20 3a 5e 69 6e 74 65 67 65 72 3b 0d 20 20 20 20 20 20 66 6f 65 72 73 74 65 67 61 6e 67 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 20 20 20 20 20 20 0d 20 20 20 ┆ HEAP :^integer; foerstegang : boolean; ┆
0x016300…016500 (6, 0, 9) 20 20 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 20 20 20 73 70 61 63 65 3a 3d 66 61 6c 73 65 3b 0d 20 20 20 20 20 20 20 20 69 ┆ end else space:=false; i┆
0x016500…016700 (6, 0, 10) 28 66 69 31 29 3b 0d 20 20 74 31 3a 3d 31 3b 20 74 32 3a 3d 31 3b 0d 20 20 77 68 69 6c 65 20 28 74 31 3c 3d 61 6e 74 31 29 20 61 6e 64 20 28 74 32 3c 3d 61 6e 74 32 29 20 64 6f 0d 20 20 62 65 ┆(fi1); t1:=1; t2:=1; while (t1<=ant1) and (t2<=ant2) do be┆
0x016700…016900 (6, 0, 11) 62 6c 61 6e 6b 65 6e 74 72 79 29 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 72 65 63 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 61 6e 6b 65 6e 74 72 79 3a 3d 6e 65 78 74 72 65 63 ┆blankentry); getrec; blankentry:=nextrec┆
0x016900…016b00 (6, 0, 12) 20 20 20 20 69 66 20 74 31 3c 3d 61 6e 74 31 20 74 68 65 6e 20 67 65 74 28 66 69 31 29 3b 0d 20 20 65 6e 64 3b 0d 20 20 77 68 69 6c 65 20 74 32 3c 3d 61 6e 74 32 20 64 6f 20 20 20 20 20 0d 20 ┆ if t1<=ant1 then get(fi1); end; while t2<=ant2 do ┆
0x016b00…016d00 (6, 0, 13) 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 69 66 20 73 79 73 69 6e 69 74 20 74 68 65 6e 0d 20 20 20 20 20 20 20 20 20 20 69 66 20 73 74 61 74 75 73 3c 3e 61 66 74 65 72 6f 70 65 ┆ else if sysinit then if status<>afterope┆
0x016d00…016f00 (6, 0, 14) 20 6d 61 72 6b 28 48 45 41 50 29 3b 0d 20 20 6e 65 77 28 69 72 65 63 29 3b 0d 20 20 52 45 43 41 4e 54 41 4c 20 3a 3d 20 28 6d 65 6d 61 76 61 69 6c 2d 50 52 4f 43 53 50 41 43 45 29 20 64 69 76 ┆ mark(HEAP); new(irec); RECANTAL := (memavail-PROCSPACE) div┆
0x016f00…017100 (6, 0, 15) 20 20 20 20 62 6c 61 6e 6b 65 6e 74 72 79 3a 3d 72 65 63 70 72 74 3b 0d 20 20 20 20 20 20 20 70 75 74 72 65 63 3b 0d 20 20 20 20 20 20 20 61 6e 74 61 6c 72 65 63 73 3a 3d 61 6e 74 61 6c 72 65 ┆ blankentry:=recprt; putrec; antalrecs:=antalre┆
0x017100…017300 (6, 1, 1) 62 65 67 69 6e 0d 20 20 28 2a 24 52 2d 2a 29 0d 20 20 73 65 65 6b 28 69 6e 66 2c 66 72 61 29 3b 0d 20 20 69 66 20 66 6f 65 72 73 74 65 67 61 6e 67 20 74 68 65 6e 0d 20 20 62 65 67 69 6e 0d 20 ┆begin (*$R-*) seek(inf,fra); if foerstegang then begin ┆
0x017300…017500 (6, 1, 2) 20 20 20 20 20 20 20 20 20 70 75 74 62 6c 6f 63 6b 0d 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 20 20 20 ┆ putblock end else begin ┆
0x017500…017700 (6, 1, 3) 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 63 75 72 72 65 6e 74 2b 31 3b 0d 20 20 20 20 65 6e 64 3b 0d 20 20 65 6e 64 3b 0d 20 20 66 6c 65 72 65 3a 3d 28 6e 6f 74 20 65 6f 66 28 69 6e 66 29 29 20 ┆ current:=current+1; end; end; flere:=(not eof(inf)) ┆
0x017700…017900 (6, 1, 4) 20 20 65 72 72 6f 72 28 66 69 6c 65 65 6d 74 79 29 0d 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 28 73 79 73 6e 6f 74 69 6e 69 74 29 0d 20 20 20 20 20 65 ┆ error(fileemty) else error (sysnotinit) e┆
0x017900…017b00 (6, 1, 5) 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 6d 69 6e 64 72 65 65 6e 64 28 78 2c 61 5e 5b 6a 5d 29 20 64 6f 20 6a 3a 3d 6a 2d 31 3b 0d 20 20 20 20 20 20 20 20 69 66 20 69 3c 3d 6a 20 74 68 65 6e ┆ while mindreend(x,a^ÆjÅ) do j:=j-1; if i<=j then┆
0x017b00…017d00 (6, 1, 6) 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 0d 20 20 20 20 20 20 20 20 65 6e 64 0d 20 20 20 20 20 20 20 20 65 6c 73 65 0d 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 20 20 20 20 ┆ isqres:=ok end else begin ┆
0x017d00…017f00 (6, 1, 7) 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 75 6e 74 69 6c 20 6c 3e 3d 72 3b 0d 20 20 20 75 6e 74 69 6c 20 73 3d 30 3b 0d 20 20 20 28 2a 24 52 2d 2a 29 0d 20 65 6e 64 3b 0d 20 20 20 20 0d ┆ end; until l>=r; until s=0; (*$R-*) end; ┆
0x017f00…018100 (6, 1, 8) 20 20 20 20 20 20 20 20 20 20 69 78 70 72 74 3a 3d 31 0d 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 20 20 20 20 20 20 20 20 20 20 73 65 65 6b 72 65 63 28 72 65 63 70 72 74 29 3b 0d 20 20 20 ┆ ixprt:=1 end; seekrec(recprt); ┆
0x018100…018300 (6, 1, 9) 20 20 69 66 20 69 6f 72 65 73 75 6c 74 3c 3e 30 20 74 68 65 6e 20 65 78 69 74 28 40 71 29 3b 0d 65 6e 64 3b 0d 20 20 0d 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 3b 0d 62 65 67 69 6e 0d 10 22 ┆ if ioresult<>0 then exit(@q); end; procedure init; begin "┆
0x018300…018500 (6, 1, 10) 20 20 20 20 65 6e 64 20 28 2a 77 69 74 68 2a 29 0d 20 20 65 6e 64 20 28 2a 72 65 70 6c 61 63 65 69 73 71 2a 29 3b 0d 66 75 6e 63 74 69 6f 6e 20 69 73 71 72 65 73 75 6c 74 3b 0d 20 20 62 65 67 ┆ end (*with*) end (*replaceisq*); function isqresult; beg┆
0x018500…018700 (6, 1, 11) 63 3b 6e 6f 6f 66 72 65 63 73 3a 69 6e 74 65 67 65 72 29 3a 69 6e 74 65 67 65 72 3b 0d 74 79 70 65 20 65 6e 74 72 79 74 79 70 65 20 3d 20 28 76 6f 6c 75 6d 65 2c 20 6e 6f 72 6d 61 6c 29 3b 0d ┆c;noofrecs:integer):integer; type entrytype = (volume, normal); ┆
0x018700…018900 (6, 1, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 66 61 3a 3d 61 6c 66 61 2b 61 6c 66 61 3b 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 74 61 3a 3d 62 65 74 61 2b 62 65 ┆ alfa:=alfa+alfa; beta:=beta+be┆
0x018900…018b00 (6, 1, 13) 10 21 66 75 6e 63 74 69 6f 6e 20 6f 70 65 6e 76 6f 6c 28 76 6f 6c 6e 61 6d 65 3a 73 74 72 69 6e 67 3b 76 61 72 20 75 6e 69 74 6e 6f 3a 69 6e 74 65 67 65 72 29 3a 62 6f 6f 6c 65 61 6e 3b 0d 10 ┆ !function openvol(volname:string;var unitno:integer):boolean; ┆
0x018b00…018d00 (6, 1, 14) 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x018d00…018f00 (6, 1, 15) 69 3a 3d 20 31 20 74 6f 20 6c 67 64 20 64 6f 0d 20 20 20 62 65 67 69 6e 0d 20 20 20 20 20 69 66 20 28 66 69 6c 65 6e 61 6d 65 5b 69 5d 20 3e 3d 20 27 61 27 29 20 61 6e 64 20 28 66 69 6c 65 6e ┆i:= 1 to lgd do begin if (filenameÆiÅ >= 'a') and (filen┆
0x018f00…019100 (7, 0, 1) 10 23 20 20 69 66 20 28 6e 6f 6f 66 72 65 63 73 3c 3e 30 29 20 61 6e 64 20 28 6e 6f 6f 66 72 65 63 73 3c 73 69 7a 65 29 20 74 68 65 6e 20 73 69 7a 65 3a 3d 6e 6f 6f 66 72 65 63 73 3b 0d 10 23 ┆ # if (noofrecs<>0) and (noofrecs<size) then size:=noofrecs; #┆
0x019100…019300 (7, 0, 2) 10 2a 77 72 69 74 65 28 27 6b 6f 6d 6d 61 6e 64 6f 3f 20 27 29 3b 20 72 65 61 64 28 63 29 3b 20 77 72 69 74 65 6c 6e 3b 0d 10 2a 65 6e 64 0d 10 28 65 6e 64 3b 0d 10 24 63 6c 6f 73 65 69 73 71 ┆ *write('kommando? '); read(c); writeln; *end (end; $closeisq┆
0x019300…019500 (7, 0, 3) 65 20 66 6c 65 72 65 20 64 6f 0d 10 26 62 65 67 69 6e 0d 10 28 52 65 61 64 49 6e 46 69 6c 65 3b 0d 10 28 69 66 20 65 6c 65 6d 61 6e 74 3e 30 20 74 68 65 6e 0d 10 28 62 65 67 69 6e 0d 10 2a 61 ┆e flere do &begin (ReadInFile; (if elemant>0 then (begin *a┆
0x019500…019700 (7, 0, 4) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x019700…019900 (7, 0, 5) 20 20 20 20 20 63 6c 6f 73 65 28 69 6e 66 2c 6c 6f 63 6b 29 3b 20 63 6c 6f 73 65 28 72 65 73 66 69 6c 65 2c 6c 6f 63 6b 29 3b 20 63 6c 6f 73 65 28 61 72 62 31 66 69 6c 2c 70 75 72 67 65 29 3b ┆ close(inf,lock); close(resfile,lock); close(arb1fil,purge);┆
0x019900…019b00 (7, 0, 6) 00 00 00 00 01 00 08 0a 0a 00 40 07 00 00 00 00 00 00 00 00 0f 00 be 00 11 00 0c 05 16 00 d4 00 18 00 28 02 1c 00 32 00 20 00 44 03 25 00 e2 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ ( 2 D % ┆
0x019b00…019d00 (7, 0, 7) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x019d00…019f00 (7, 0, 8) e1 22 37 00 d1 21 0e 00 19 5e 23 56 eb e9 c8 00 a7 02 c5 02 ed 00 ee 02 2d 04 c1 06 cd 05 f7 00 b6 05 2a 06 2a 37 00 e9 2e 05 c3 00 00 2e 0d c3 00 00 2e 06 c3 00 00 00 00 00 00 00 00 00 00 00 ┆ "7 ! ^#V - * *7 . . . ┆
0x019f00…01a100 (7, 0, 9) 00 00 00 00 01 00 14 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x01a100…01a300 (7, 0, 10) fa 09 02 79 2f 3c 4f 54 5d 1a ce 00 27 77 2b 1b 0c c2 09 02 23 f9 d2 24 02 2b 36 01 f9 3a 45 00 3c 32 45 00 3a 47 00 32 49 00 c3 af 01 3a 43 00 21 45 00 be c2 4d 02 47 2a 3b 00 eb 2a 3d 00 1a ┆ y/<OTÅ 'w+ # $ +6 :E <2E :G 2I :C !E M G*; *= ┆
0x01a300…01a500 (7, 0, 11) c6 04 da aa 50 b6 02 03 c6 04 00 cd 00 13 9e 00 b6 02 03 cd 00 16 9e 00 d9 00 cb a1 12 b6 02 03 d9 00 cd 00 0d 9e 00 b6 02 03 cd 00 16 9e 00 d8 b9 0c 01 02 9e 04 b9 12 01 03 9e 04 b9 0c ac 80 ┆ P ┆
0x01a500…01a700 (7, 0, 12) 00 eb 2a 51 00 3a 53 00 47 d2 20 04 3e 00 ce 99 96 eb 86 eb 27 12 2b 1b 05 c2 0c 04 0c c3 fe 03 b7 1a 8e 27 12 2b 1b 05 c2 21 04 0d c9 cd 6b 00 79 b7 ca 32 00 7b b9 c2 4d 04 2a 3b 00 eb 2a 3d ┆ *Q :S G > ' + ' + ! k y 2 æ M *; *=┆
0x01a700…01a900 (7, 0, 13) aa 50 00 cc 7e 01 cc 7d ca 7e 93 9e 22 00 c3 84 a1 6c d8 c6 2b c6 7e cf 05 a5 81 c6 ca 7d 01 05 88 01 95 a4 01 c6 2b c6 54 af 04 9a c6 2b c6 02 b7 04 c6 2b c6 54 b7 04 84 a1 2a a6 23 20 73 6f ┆ P ü å ü " l + ü å + T + + T * # so┆
0x01a900…01ab00 (7, 0, 14) 47 2a 3d 00 7e 12 13 23 05 c2 04 06 2a 3b 00 eb 21 52 00 06 04 7e 12 2b 1b 05 c2 15 06 1b 3a 47 00 12 1b 1b 3e 03 12 c3 24 00 e1 7d 3d 32 43 00 e1 22 47 00 d6 03 da 49 06 47 e1 7c b5 c2 be 06 ┆G*= ü # *; !R ü + :G > $ å=2C "G I G ø ┆
0x01ab00…01ad00 (7, 0, 15) c6 80 f7 00 cd 00 13 9e 00 b6 02 03 d7 a6 0e 20 20 65 72 20 69 6c 6c 65 67 61 6c 20 20 00 cd 00 13 9e 00 b6 02 03 cd 00 16 9e 00 20 00 02 cf 04 b9 f0 a5 84 25 01 cd 00 06 9e 00 ad 00 80 0c 00 ┆ er illegal % ┆
0x01ad00…01af00 (7, 1, 1) de 05 dd 05 dc 05 db 05 da 05 d9 05 d7 05 d5 05 d3 05 d0 05 cc 05 cb 05 ca 05 c9 05 c7 05 c6 05 c2 05 c1 05 bf 05 be 05 ac 05 ab 05 a0 05 9d 05 9c 05 9a 05 99 05 97 05 96 05 95 05 94 05 91 05 ┆ ┆
0x01af00…01b100 (7, 1, 2) 9e 00 d8 cd 00 16 9e 00 ad 00 10 00 3b 01 06 00 04 00 0a 00 46 01 0a 01 01 cc 03 a9 85 52 da 95 00 c4 a1 f4 d8 cd 00 16 9e 00 da 01 c5 a1 10 d8 d7 a6 06 20 65 6c 73 65 20 00 cd 00 13 9e 00 d8 ┆ ; F R else ┆
0x01b100…01b300 (7, 1, 3) 00 0a 00 00 02 00 01 01 da 05 d9 05 d7 05 d5 05 d3 05 d0 05 cc 05 cb 05 ca 05 c9 05 c7 05 c6 05 c2 05 c1 05 bf 05 be 05 ac 05 ab 05 a0 05 9d 05 9c 05 9a 05 99 05 97 05 96 05 95 05 94 05 91 05 ┆ ┆
0x01b300…01b500 (7, 1, 4) cd 00 13 9e 00 d8 a5 80 f9 de 01 05 88 01 95 a4 29 00 cd 00 13 9e 00 d8 d7 a6 07 3a 3d 69 6e 66 5e 2e 00 cd 00 13 9e 00 d8 a5 80 f9 de 01 05 88 01 95 a4 29 00 cd 00 13 9e 00 d8 3b 00 cd 00 11 ┆ ) :=inf^. ) ; ┆
0x01b500…01b700 (7, 1, 5) 44 45 43 4f 50 53 20 20 0b 00 01 00 00 00 00 00 44 45 43 4f 50 53 20 20 06 00 01 00 00 00 00 00 20 20 20 20 20 20 20 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 ┆DECOPS DECOPS ┆
[…truncated at 200 lines…]