|
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 - metrics - downloadIndex: 5 C I L M P R T
Length: 328704 (0x50400)
Description: Bits:30004118/disk1.imd SW1720/I5 Pascal/MT+ Release 5.5
Types: 5¼" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CpmFSAuto,512,2048,32,0x1,1<2,2:0-35:1
Media: [0, 0, 1] … [35, 1, 9] {128: 16, 256: 16, 512: 630}
Signature: CpmFSAuto,512,2048,32,0x1,1<2,2:0-35:1
Confidence score: +15/-0
Sector size: 512
Block size: 2048
Directory entries: 32
Block number size: 8
Extent-mask: 0x01
Sector-interleave: 1, 3, 5, 7, 9, 2, 4, 6, 8
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (33, 0), (33, 1), (34, 0), (34, 1), (35, 0), (35, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 11520 | LINKMT.COM | ⟦76636782d⟧ |
| 0 | 0 | 256 | MOD1.SRC | ⟦196c8e1e7⟧ TextFile |
| 0 | 0 | 256 | MOD2.SRC | ⟦d0aa54f13⟧ TextFile |
| 0 | 0 | 12800 | MTPLUS.000 | ⟦8fdd1161f⟧ |
| 0 | 0 | 10752 | MTPLUS.001 | ⟦5aea77784⟧ |
| 0 | 0 | 7040 | MTPLUS.002 | ⟦edf25be09⟧ |
| 0 | 0 | 7552 | MTPLUS.003 | ⟦a0cbabbe8⟧ |
| 0 | 0 | 17408 | MTPLUS.004 | ⟦fa5c41b0a⟧ |
| 0 | 0 | 7808 | MTPLUS.005 | ⟦954b36f77⟧ |
| 0 | 0 | 5888 | MTPLUS.006 | ⟦8068f453b⟧ |
| 0 | 0 | 35584 | MTPLUS.COM | ⟦0eba591c2⟧ |
| 0 | 0 | 24320 | PASLIB.ERL | ⟦c0a79f725⟧ |
| 0 | 0 | 896 | PROG.SRC | ⟦4255acb8e⟧ TextFile |
| 0 | 0 | 896 | ROVLMGR.ERL | ⟦f4017e33f⟧ |
0x00000…00080 (0, 0, 1) 0xe5[0x80]
[…0xf…]
0x00800…00900 (0, 1, 1) 0xe5[0x100]
[…0xf…]
0x01800…01a00 (1, 0, 1) 0xe5[0x200]
[…0x11…]
0x03c00…03c20 (2, 0, 1) Dirent {Status=0xe5}
[…0x1…]
0x03c40…03c60 [0, 'PROG.SRC', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c60…03c80 [0, 'MOD1.SRC', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03c80…03ca0 [0, 'MOD2.SRC', 0, 2, 'xl=00', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ca0…03cc0 [0, 'MTPLUS.000', 0, 100, 'xl=00', 'bc=00', 'xh=00', 'rc=64', '0-0-0-0-0-0-0-0-0-0-0', [10, 11, 12, 13, 14, 15, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03cc0…03ce0 [0, 'LINKMT.COM', 0, 90, 'xl=00', 'bc=00', 'xh=00', 'rc=5a', '0-0-0-0-0-0-0-0-0-0-0', [17, 18, 19, 20, 21, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03ce0…03d00 [0, 'PASLIB.ERL', 0, 190, 'xl=01', 'bc=00', 'xh=00', 'rc=3e', '0-0-0-0-0-0-0-0-0-0-0', [23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 0, 0, 0, 0]]
0x03d00…03d20 [0, 'MTPLUS.COM', 0, 256, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50]]
0x03d20…03d40 [0, 'MTPLUS.COM', 1, 22, 'xl=02', 'bc=00', 'xh=00', 'rc=16', '0-0-0-0-0-0-0-0-0-0-0', [51, 52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d40…03d60 [0, 'MTPLUS.001', 0, 84, 'xl=00', 'bc=00', 'xh=00', 'rc=54', '0-0-0-0-0-0-0-0-0-0-0', [53, 54, 55, 56, 57, 58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d60…03d80 [0, 'MTPLUS.002', 0, 55, 'xl=00', 'bc=00', 'xh=00', 'rc=37', '0-0-0-0-0-0-0-0-0-0-0', [59, 60, 61, 62, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03d80…03da0 [0, 'MTPLUS.003', 0, 59, 'xl=00', 'bc=00', 'xh=00', 'rc=3b', '0-0-0-0-0-0-0-0-0-0-0', [63, 64, 65, 66, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03da0…03dc0 [0, 'MTPLUS.004', 0, 136, 'xl=01', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [67, 68, 69, 70, 71, 72, 73, 74, 75, 0, 0, 0, 0, 0, 0, 0]]
0x03dc0…03de0 [0, 'MTPLUS.005', 0, 61, 'xl=00', 'bc=00', 'xh=00', 'rc=3d', '0-0-0-0-0-0-0-0-0-0-0', [76, 77, 78, 79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03de0…03e00 [0, 'MTPLUS.006', 0, 46, 'xl=00', 'bc=00', 'xh=00', 'rc=2e', '0-0-0-0-0-0-0-0-0-0-0', [80, 81, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x03e00…04000 (2, 0, 2) 0xe5[0x200]
0x04000…04020 (2, 0, 3) [0, 'ROVLMGR.ERL', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x04020…04040 Dirent {Status=0xe5}
[…0xe…]
0x04200…04400 (2, 0, 4) 0xe5[0x200]
0x04400…04420 (2, 0, 5) e5 54 52 41 56 45 52 53 45 45 52 4c 00 00 00 03 4a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRAVERSEERL J ┆
0x04420…04440 e5 50 50 49 4e 49 54 20 20 45 52 4c 00 00 00 2f 4b 4c 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPINIT ERL /KLM ┆
0x04440…04460 e5 41 4d 44 49 4f 20 20 20 53 52 43 00 00 00 0a 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMDIO SRC N ┆
0x04460…04480 e5 54 52 41 4e 39 35 31 31 53 52 43 00 00 00 0b 4f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRAN9511SRC O ┆
0x04480…044a0 e5 50 49 4e 49 20 20 20 20 53 52 43 00 00 00 0d 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PINI SRC P ┆
0x044a0…044c0 e5 43 50 4d 52 44 20 20 20 53 52 43 00 00 00 03 51 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CPMRD SRC Q ┆
0x044c0…044e0 e5 48 4c 54 20 20 20 20 20 53 52 43 00 00 00 02 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ HLT SRC R ┆
0x044e0…04500 e5 52 4e 43 20 20 20 20 20 53 52 43 00 00 00 05 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RNC SRC S ┆
0x04500…04520 e5 57 4e 43 20 20 20 20 20 53 52 43 00 00 00 03 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ WNC SRC T ┆
0x04520…04540 e5 58 52 45 46 20 20 20 20 53 52 43 00 00 00 65 55 56 57 58 59 5a 5b 00 00 00 00 00 00 00 00 00 ┆ XREF SRC eUVWXYZÆ ┆
0x04540…04560 e5 55 54 49 4c 4d 4f 44 20 53 52 43 00 00 00 08 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ UTILMOD SRC Ø ┆
0x04560…04580 e5 43 41 4c 43 20 20 20 20 53 52 43 00 00 00 13 5d 5e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CALC SRC Å^ ┆
0x04580…045a0 e5 49 4f 45 52 52 20 20 20 53 52 43 00 00 00 04 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ IOERR SRC _ ┆
0x045a0…045c0 e5 58 42 44 4f 53 20 20 20 53 52 43 00 00 00 07 60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ XBDOS SRC ` ┆
0x045c0…045e0 e5 47 45 54 20 20 20 20 20 53 52 43 00 00 00 07 61 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ GET SRC a ┆
0x045e0…04600 e5 50 55 54 20 20 20 20 20 53 52 43 00 00 00 02 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PUT SRC b ┆
0x04600…04800 (2, 0, 6) 0xe5[0x200]
0x04800…04820 (2, 0, 7) e5 52 4e 42 20 20 20 20 20 53 52 43 00 00 00 12 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RNB SRC cd ┆
0x04820…04840 e5 41 54 57 4e 42 20 20 20 53 52 43 00 00 00 0f 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ATWNB SRC e ┆
0x04840…04860 e5 53 54 52 49 50 20 20 20 53 52 43 00 00 00 12 66 67 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STRIP SRC fg ┆
0x04860…04880 e5 42 41 43 4b 55 50 20 20 53 52 43 00 00 00 22 68 69 6a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ BACKUP SRC "hij ┆
0x04880…048a0 e5 45 44 47 4c 42 4c 53 20 53 52 43 00 00 00 14 6b 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EDGLBLS SRC kl ┆
0x048a0…048c0 e5 45 44 54 59 50 45 53 20 53 52 43 00 00 00 17 6d 6e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EDTYPES SRC mn ┆
0x048c0…048e0 e5 4e 53 42 20 20 20 20 20 53 52 43 00 00 00 46 6f 70 71 72 73 00 00 00 00 00 00 00 00 00 00 00 ┆ NSB SRC Fopqrs ┆
0x048e0…04900 e5 44 42 55 47 48 45 4c 50 54 58 54 00 00 00 06 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ DBUGHELPTXT t ┆
0x04900…04920 e5 53 4d 41 4c 4c 45 52 52 54 58 54 00 00 00 09 75 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SMALLERRTXT u ┆
0x04920…04940 e5 4d 54 45 52 52 53 20 20 54 58 54 00 00 00 26 76 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MTERRS TXT &vwx ┆
0x04940…04960 e5 41 4d 44 39 35 31 31 20 43 4d 44 00 00 00 01 79 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMD9511 CMD y ┆
0x04960…04980 e5 41 4d 44 39 35 31 31 58 43 4d 44 00 00 00 01 7a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMD9511XCMD z ┆
0x04980…049a0 e5 53 54 52 49 50 20 20 20 43 4d 44 00 00 00 02 7b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STRIP CMD æ ┆
0x049a0…049c0 e5 53 50 50 4d 41 49 4e 20 43 4d 44 00 00 00 01 7c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SPPMAIN CMD ø ┆
0x049c0…049e0 e5 53 42 30 30 31 20 20 20 43 4d 44 00 00 00 01 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB001 CMD å ┆
0x049e0…04a00 e5 53 42 30 30 36 20 20 20 43 4d 44 00 00 00 01 7e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB006 CMD ü ┆
0x04a00…04a20 (2, 0, 8) c3 ce 04 c9 00 00 c9 00 00 1a 00 00 00 00 00 00 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 ┆ (INP:/OUT:SPACE)┆
0x04a20…04a40 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 28 49 4e 50 3a 2f 4f 55 54 3a 53 50 41 43 45 29 ┆(INP:/OUT:SPACE)(INP:/OUT:SPACE)┆
[…0x6…]
0x04b00…04b20 20 20 20 43 4f 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 2c 20 44 49 47 49 54 41 4c 20 52 ┆ COPYRIGHT (C) 1979, DIGITAL R┆
0x04b20…04b40 45 53 45 41 52 43 48 2c 20 20 50 49 50 20 56 45 52 53 20 31 2e 35 03 01 06 01 00 24 24 24 20 20 ┆ESEARCH, PIP VERS 1.5 $$$ ┆
0x04b40…04b60 20 20 20 53 55 42 00 00 00 20 3d 2e 3a 2c 3c 3e 0d 5f 5b 5d 49 4e 50 49 52 44 50 54 52 55 52 31 ┆ SUB =.:,<> _ÆÅINPIRDPTRUR1┆
0x04b60…04b80 55 52 32 52 44 52 4f 55 54 4c 50 54 55 4c 31 50 52 4e 4c 53 54 50 54 50 55 50 31 55 50 32 50 55 ┆UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PU┆
0x04b80…04ba0 4e 54 54 59 43 52 54 55 43 31 43 4f 4e 4e 55 4c 45 4f 46 00 44 49 53 4b 20 52 45 41 44 20 45 52 ┆NTTYCRTUC1CONNULEOF DISK READ ER┆
0x04ba0…04bc0 52 4f 52 24 44 49 53 4b 20 57 52 49 54 45 20 45 52 52 4f 52 24 56 45 52 49 46 59 20 45 52 52 4f ┆ROR$DISK WRITE ERROR$VERIFY ERRO┆
0x04bc0…04be0 52 24 4e 4f 54 20 41 20 43 48 41 52 41 43 54 45 52 20 53 49 4e 4b 24 52 45 41 44 45 52 20 53 54 ┆R$NOT A CHARACTER SINK$READER ST┆
0x04be0…04c00 4f 50 50 49 4e 47 0d 0a 24 4e 4f 54 20 41 20 43 48 41 52 41 43 54 45 52 20 53 4f 55 52 43 45 24 ┆OPPING $NOT A CHARACTER SOURCE$┆
0x04c00…04c20 (2, 0, 9) e5 53 42 30 30 37 20 20 20 43 4d 44 00 00 00 01 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB007 CMD ┆
0x04c20…04c40 e5 45 32 20 20 20 20 20 20 43 4d 44 00 00 00 01 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ E2 CMD ┆
0x04c40…04c60 e5 45 33 20 20 20 20 20 20 43 4d 44 00 00 00 01 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ E3 CMD ┆
0x04c60…04c80 e5 53 42 30 30 33 20 20 20 43 4d 44 00 00 00 01 82 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB003 CMD ┆
0x04c80…04ca0 e5 53 42 30 30 34 20 20 20 43 4d 44 00 00 00 01 83 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB004 CMD ┆
0x04ca0…04cc0 e5 53 42 30 30 38 20 20 20 43 4d 44 00 00 00 01 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB008 CMD ┆
0x04cc0…04ce0 e5 53 42 30 30 41 20 20 20 43 4d 44 00 00 00 01 85 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB00A CMD ┆
0x04ce0…04d00 e5 41 50 55 53 55 42 20 20 4d 41 43 00 00 00 0d 86 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ APUSUB MAC ┆
0x04d00…04d20 e5 43 48 4e 20 20 20 20 20 4d 41 43 00 00 00 0d 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CHN MAC ┆
0x04d20…04d40 e5 44 49 56 4d 4f 44 20 20 4d 41 43 00 00 00 24 88 89 8a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ DIVMOD MAC $ ┆
0x04d40…04d60 e5 52 53 54 20 20 20 20 20 4d 41 43 00 00 00 19 8b 8c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RST MAC ┆
0x04d60…04d80 e5 43 57 54 20 20 20 20 20 4d 41 43 00 00 00 08 8d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CWT MAC ┆
0x04d80…04da0 e5 4f 56 4c 4d 47 52 20 20 4d 41 43 00 00 00 4d 8e 8f 90 91 92 00 00 00 00 00 00 00 00 00 00 00 ┆ OVLMGR MAC M ┆
0x04da0…04dc0 e5 4c 49 42 20 20 20 20 20 4d 41 43 00 00 00 0b 93 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ LIB MAC ┆
0x04dc0…04de0 e5 50 41 53 4c 49 42 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PASLIB $$$ ┆
0x04de0…04e00 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 ┆ ┆
0x04e00…04e20 (2, 1, 1) 41 42 4f 52 54 45 44 24 42 41 44 20 50 41 52 41 4d 45 54 45 52 24 49 4e 56 41 4c 49 44 20 55 53 ┆ABORTED$BAD PARAMETER$INVALID US┆
0x04e20…04e40 45 52 20 4e 55 4d 42 45 52 24 52 45 43 4f 52 44 20 54 4f 4f 20 4c 4f 4e 47 24 49 4e 56 41 4c 49 ┆ER NUMBER$RECORD TOO LONG$INVALI┆
0x04e40…04e60 44 20 44 49 47 49 54 24 45 4e 44 20 4f 46 20 46 49 4c 45 2c 20 43 54 4c 2d 5a 3f 24 43 48 45 43 ┆D DIGIT$END OF FILE, CTL-Z?$CHEC┆
0x04e60…04e80 4b 53 55 4d 20 45 52 52 4f 52 24 43 4f 52 52 45 43 54 20 45 52 52 4f 52 2c 20 54 59 50 45 20 52 ┆KSUM ERROR$CORRECT ERROR, TYPE R┆
0x04e80…04ea0 45 54 55 52 4e 20 4f 52 20 43 54 4c 2d 5a 24 49 4e 56 41 4c 49 44 20 46 4f 52 4d 41 54 24 48 45 ┆ETURN OR CTL-Z$INVALID FORMAT$HE┆
0x04ea0…04ec0 58 24 24 24 24 4e 4f 20 44 49 52 45 43 54 4f 52 59 20 53 50 41 43 45 24 4e 4f 20 46 49 4c 45 24 ┆X$$$$NO DIRECTORY SPACE$NO FILE$┆
0x04ec0…04ee0 43 4f 4d 24 53 54 41 52 54 20 4e 4f 54 20 46 4f 55 4e 44 24 51 55 49 54 20 4e 4f 54 20 46 4f 55 ┆COM$START NOT FOUND$QUIT NOT FOU┆
0x04ee0…04f00 4e 44 24 43 41 4e 4e 4f 54 20 43 4c 4f 53 45 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 46 49 4c 45 ┆ND$CANNOT CLOSE DESTINATION FILE┆
0x04f00…04f20 24 44 45 53 54 49 4e 41 54 49 4f 4e 20 49 53 20 52 2f 4f 2c 20 44 45 4c 45 54 45 20 28 59 2f 4e ┆$DESTINATION IS R/O, DELETE (Y/N┆
0x04f20…04f40 29 3f 24 2a 2a 4e 4f 54 20 44 45 4c 45 54 45 44 2a 2a 24 24 24 24 24 24 24 4e 4f 54 20 46 4f 55 ┆)?$**NOT DELETED**$$$$$$$NOT FOU┆
0x04f40…04f60 4e 44 24 43 4f 50 59 49 4e 47 20 2d 24 52 45 51 55 49 52 45 53 20 43 50 2f 4d 20 32 2e 30 20 4f ┆ND$COPYING -$REQUIRES CP/M 2.0 O┆
0x04f60…04f80 52 20 4e 45 57 45 52 20 46 4f 52 20 4f 50 45 52 41 54 49 4f 4e 2e 24 55 4e 52 45 43 4f 47 4e 49 ┆R NEWER FOR OPERATION.$UNRECOGNI┆
0x04f80…04fa0 5a 45 44 20 44 45 53 54 49 4e 41 54 49 4f 4e 24 43 41 4e 4e 4f 54 20 57 52 49 54 45 24 49 4e 56 ┆ZED DESTINATION$CANNOT WRITE$INV┆
0x04fa0…04fc0 41 4c 49 44 20 50 49 50 20 46 4f 52 4d 41 54 24 43 41 4e 4e 4f 54 20 52 45 41 44 24 49 4e 56 41 ┆ALID PIP FORMAT$CANNOT READ$INVA┆
0x04fc0…04fe0 4c 49 44 20 53 45 50 41 52 41 54 4f 52 24 31 f2 1d 01 80 00 c5 1e 80 01 cc 1e cd 18 0a 3a cc 1e ┆LID SEPARATOR$1 : ┆
0x04fe0…05000 d6 00 d6 01 9f 32 a5 1e cd 4c 08 eb 3e 20 cd 84 1d d2 fd 04 01 4d 04 cd 39 08 cd 00 00 cd 16 09 ┆ 2 L > M 9 ┆
0x05000…05020 (2, 1, 2) 0c c4 0c cf 0c 3a 81 1f 32 03 00 c9 21 82 1f 71 3a 82 1f fe 09 ca 22 0d 2a 82 1f 4d cd d0 0b c3 ┆ : 2 ! q: " * M ┆
0x05020…05040 6e 0d 3a 63 1f fe 00 c2 34 0d 2a 82 1f 4d cd d0 0b c3 6e 0d 3a f3 1d 32 83 1f 21 63 1f 3a 83 1f ┆n :c 4 * M n : 2 !c : ┆
0x05040…05060 be da 51 0d 21 63 1f 3a 83 1f 96 32 83 1f c3 3a 0d 21 83 1f 3a 63 1f 96 77 3e 00 21 83 1f be d2 ┆ Q !c : 2 : ! :c w> ! ┆
0x05060…05080 6e 0d 21 83 1f 35 0e 20 cd d0 0b c3 59 0d 3a 82 1f fe 0d c2 7b 0d 21 f3 1d 36 00 c9 21 84 1f 71 ┆n ! 5 Y : æ ! 6 ! q┆
0x05080…050a0 3a 84 1f d6 00 d6 01 9f 21 6c 1f a6 77 1f d2 99 0d 0e 20 cd 0c 0d c3 a2 0d 3a 84 1f c6 30 4f cd ┆: !l w : 0O ┆
0x050a0…050c0 0c 0d c9 21 85 1f 71 3a 85 1f e6 f8 1f 1f 1f 1f 4f cd 7c 0d 3a 85 1f e6 0f 4f cd 7c 0d c9 21 86 ┆ ! q: O ø : O ø ! ┆
0x050c0…050e0 1f 36 01 3a 5d 1f d6 01 d6 01 9f 32 6c 1f 3a 6f 1f 86 27 32 6f 1f 3a 6e 1f ce 00 27 32 6e 1f 3a ┆ 6 :Å 2l :o '2o :n '2n :┆
0x050e0…05100 6d 1f ce 00 27 32 6d 1f 2a 6d 1f 4d cd a3 0d 2a 6e 1f 4d cd a3 0d 2a 6f 1f 4d cd a3 0d 3a 5d 1f ┆m '2m *m M *n M *o M :Å ┆
0x05100…05120 fe 01 c2 12 0e 0e 3a cd 0c 0d 0e 20 cd 0c 0d c3 17 0e 0e 09 cd 0c 0d c9 2a a1 1e 7d e6 7f 32 89 ┆ : * å 2 ┆
0x05120…05140 1f 11 80 ff cd 44 1d 22 87 1f cd c8 0a 2a 87 1f 01 ca 1f 09 e5 2a 89 1f eb cd 18 0a 2a 89 1f 26 ┆ D " * * * &┆
0x05140…05160 00 22 a1 1e c9 21 8a 1f 71 3a 55 1f 1f d2 59 0e 3a 8a 1f fe 0c c2 59 0e c9 3a a6 1e 1f d2 a9 0e ┆ " ! q:U Y : Y : ┆
0x05160…05180 3a 8a 1f fe 0c ca a9 0e 3a 5f 1f 32 8b 1f fe 00 ca 98 0e 3a 8b 1f fe 01 c2 80 0e 21 8b 1f 36 3c ┆: :_ 2 : ! 6<┆
0x05180…051a0 3a f4 1d 3c 32 f4 1d 21 8b 1f be da 98 0e 21 f4 1d 36 00 0e 0c cd 0c 0d 3e 00 21 5d 1f be d2 a4 ┆: <2 ! ! 6 > !Å ┆
0x051a0…051c0 0e cd be 0d 21 a6 1e 36 00 3a 51 1f 1f d2 cc 0e 3a 8a 1f d6 13 d6 01 9f f5 3a a3 1e d6 00 d6 01 ┆ ! 6 :Q : : ┆
0x051c0…051e0 9f c1 48 a1 1f d2 cc 0e cd 18 0e c9 3a 8a 1f fe 0c c2 d9 0e 21 f4 1d 36 00 2a 8a 1f 4d cd 0c 0d ┆ H : ! 6 * M ┆
0x051e0…05200 3a 8a 1f fe 0a c2 ed 0e 21 a6 1e 36 01 c9 21 8c 1f 71 3a 8c 1f d6 61 9f 2f f5 3e 7a 21 8c 1f 96 ┆: ! 6 ! q: a / >z! ┆
0x05200…05220 (2, 1, 3) 32 c0 1e 11 00 00 0e 19 cd 05 00 32 fc 1d 31 f2 1d cd 40 1a 3a c0 1e 32 c1 1e 21 6f 1f 36 00 2b ┆2 2 1 @ : 2 !o 6 +┆
0x05220…05240 36 00 2b 36 00 21 a6 1e 36 01 23 36 00 21 f3 1d 36 00 23 36 fe 3a a5 1e 1f d2 47 05 0e 2a cd 1c ┆6 +6 ! 6 #6 ! 6 #6 : G * ┆
0x05240…05260 08 cd 6f 09 cd 2e 08 21 4e 1f 36 ff 3a cc 1e fe 00 c2 5e 05 2a fc 1d 4d cd 5e 08 cd 00 00 21 4b ┆ o . !N 6 : ^ * M ^ !K┆
0x05260…05280 1e 36 00 21 03 1e 36 00 21 a4 1e 36 00 2b 36 00 01 27 1e cd 20 12 3a a9 1e fe 03 c2 81 05 c3 24 ┆ 6 ! 6 ! 6 +6 ' : $┆
0x05280…052a0 06 3a a9 1e fe 04 c2 c3 05 3a 94 1f 3d 32 4b 1e cd 0c 1d 01 06 1e cd 20 12 3a a9 1e fe 02 ca a4 ┆ : : =2K : ┆
0x052a0…052c0 05 cd 5c 18 3a f5 1d 1f d2 b7 05 01 5c 00 cd ee 1c cd 78 1b c3 c0 05 01 27 1e cd ee 1c cd b2 1a ┆ Ø : Ø x ' ┆
0x052c0…052e0 c3 db 07 3a a9 1e d6 02 c6 ff 9f 21 f5 1d b6 1f d2 d6 05 cd 5c 18 cd a2 1c cd 0c 1d 01 06 1e cd ┆ : ! Ø ┆
0x052e0…05300 20 12 3a a9 1e fe 04 c2 05 06 cd 88 1c cd c6 1c 01 27 1e c5 1e 21 01 06 1e cd 18 0a cd df 1c cd ┆ : ' ! ┆
0x05300…05320 b2 1a c3 db 07 3a a9 1e fe 02 c2 24 06 cd 11 12 3a a8 1e fe 0d ca 1b 06 c3 24 06 cd 88 1c cd b2 ┆ : $ : $ ┆
0x05320…05340 1a c3 db 07 21 4e 1f 36 ff 01 27 1e cd 20 12 3a a9 1e d6 02 9f 21 f5 1d b6 1f d2 43 06 01 77 04 ┆ !N 6 ' : ! C w ┆
0x05340…05360 cd af 09 21 05 1e 36 00 3a a9 1e fe 02 c2 5e 06 cd a2 1c cd 63 18 21 a8 1e 36 ff c3 7b 06 3a a8 ┆ ! 6 : ^ c ! 6 æ : ┆
0x05360…05380 1e d6 13 9f 2f f5 3e 05 21 a8 1e 96 9f 2f c1 48 b1 1f d2 7b 06 01 90 04 cd af 09 3a a8 1e 3c 32 ┆ / > ! / H æ : <2┆
0x05380…053a0 a3 1e fe 0f c2 8a 06 cd cf 15 01 06 1e cd 20 12 3a a9 1e d6 01 c6 ff 9f f5 3a a8 1e d6 3d c6 ff ┆ : : = ┆
0x053a0…053c0 9f c1 48 b1 1f d2 ae 06 01 9d 04 cd af 09 21 a7 1f 36 01 3a a7 1f 1f d2 be 07 3a c0 1e 32 c1 1e ┆ H ! 6 : : 2 ┆
0x053c0…053e0 01 06 1e cd 20 12 21 04 1e 36 00 3a a9 1e d6 02 d6 01 9f f5 3a f5 1d 2f c1 48 a1 1f d2 ed 06 cd ┆ ! 6 : : / H ┆
0x053e0…05400 88 1c cd be 18 21 a8 1e 36 ff c3 13 07 3a a9 1e d6 03 c6 ff 9f f5 3e 0a 21 a8 1e 96 9f 2f f5 3e ┆ ! 6 : > ! / >┆
0x05400…05420 (2, 1, 4) 9f 2f c1 48 a1 1f d2 11 0f 3a 8c 1f e6 5f 32 8c 1f 3a 8c 1f c9 21 8d 1f 71 3a 8d 1f d6 41 9f 2f ┆ / H : _2 : ! q: A /┆
0x05420…05440 f5 3e 5a 21 8d 1f 96 9f 2f c1 48 a1 1f d2 38 0f 3a 8d 1f f6 20 32 8d 1f 3a 8d 1f c9 3a a4 1e 3d ┆ >Z! / H 8 : 2 : : =┆
0x05440…05460 4f 3e 05 b9 da 6d 0f 3a 57 1f 21 51 1f b6 f5 cd 7d 09 c1 48 a1 1f d2 6d 0f cd 13 08 fe 1a c2 64 ┆O> m :W !Q å H m d┆
0x05460…05480 0f 3e 1a c9 01 d7 02 cd 39 08 3e 13 c9 21 90 1f 36 01 3a 03 00 32 8e 1f 2a a4 1e 4d 06 00 21 45 ┆ > 9 > ! 6 : 2 * M !E┆
0x05480…054a0 10 09 09 5e 23 56 eb e9 01 fd 1d 11 9d 1e cd 8e 1d da 97 0f cd 4f 0a 2a 9d 1e eb 2a 01 1e 19 7e ┆ ^#V O * * ü┆
0x054a0…054c0 32 8f 1f 2a 9d 1e 23 22 9d 1e c3 6d 10 cd f3 07 32 8f 1f c3 6d 10 cd 96 09 32 8f 1f c3 6d 10 21 ┆2 * #" m 2 m 2 m !┆
0x054c0…054e0 03 00 36 04 c3 e0 0f c3 6d 10 21 03 00 36 08 c3 e0 0f c3 6d 10 21 03 00 36 0c c3 e0 0f c3 6d 10 ┆ 6 m ! 6 m ! 6 m ┆
0x054e0…05500 11 00 00 0e 03 cd 05 00 e6 7f 32 8f 1f c3 6d 10 c3 08 10 c3 08 10 c3 08 10 c3 08 10 c3 08 10 c3 ┆ 2 m ┆
0x05500…05520 08 10 c3 08 10 c3 08 10 01 e9 02 cd af 09 c3 6d 10 21 03 00 36 00 c3 32 10 c3 6d 10 21 03 00 36 ┆ m ! 6 2 m ! 6┆
0x05520…05540 01 c3 32 10 c3 6d 10 21 03 00 36 03 c3 32 10 c3 6d 10 21 90 1f 36 00 11 00 00 0e 01 cd 05 00 32 ┆ 2 m ! 6 2 m ! 6 2┆
0x05540…05560 8f 1f c3 6d 10 88 0f ad 0f b6 0f bf 0f ca 0f d5 0f e0 0f f0 0f f3 0f f6 0f f9 0f fc 0f ff 0f 02 ┆ m ┆
0x05560…05580 10 05 10 08 10 11 10 1c 10 27 10 32 10 3a 8e 1f 32 03 00 3a 54 1f 1f d2 92 10 3a a3 1e 32 8e 1f ┆ ' 2 : 2 :T : 2 ┆
0x05580…055a0 21 a3 1e 36 13 2a 8f 1f 4d cd 45 0e 3a 8e 1f 32 a3 1e 3a 90 1f 1f d2 dc 10 3a 04 1e 1f d2 b2 10 ┆! 6 * M E : 2 : : ┆
0x055a0…055c0 3a a7 1e 3c 32 a7 1e d6 00 d6 01 9f 32 90 1f c3 bd 10 3a 8f 1f d6 0a d6 01 9f 32 90 1f 3a 90 1f ┆: <2 2 : 2 : ┆
0x055c0…055e0 1f d2 dc 10 cd 7d 09 1f d2 dc 10 cd 13 08 fe 1a c2 d6 10 3e 1a c9 01 00 03 cd af 09 3a 69 1f 1f ┆ å > :i ┆
0x055e0…05600 d2 eb 10 3a 8f 1f e6 7f 32 8f 1f 3a 64 1f 1f d2 fa 10 2a 8f 1f 4d cd ee 0e c9 3a 5b 1f 1f d2 09 ┆ : 2 :d * M :Æ ┆
0x05600…05620 (2, 1, 5) 05 96 9f c1 48 a1 c1 48 b1 1f d2 13 07 01 b0 04 cd af 09 3a 5e 1f 21 04 1e b6 77 3a a8 1e 3c 32 ┆ H H :^ ! w: <2┆
0x05620…05640 a4 1e 3a a8 1e fe 13 c2 30 07 cd cf 15 c3 7d 07 3a a8 1e fe 14 c2 40 07 0e 1a cd 45 0e c3 7d 07 ┆ : 0 å : @ E å ┆
0x05640…05660 3a a8 1e d6 05 9f 21 05 1e a6 1f d2 53 07 21 57 1f 36 01 3a a3 1e fe 0a c2 7a 07 21 5d 1f 36 01 ┆: ! S !W 6 : z !Å 6 ┆
0x05660…05680 3a 63 1f fe 00 c2 6d 07 21 63 1f 36 08 3a 5f 1f fe 00 c2 7a 07 21 5f 1f 36 01 cd 6c 1a cd 12 19 ┆:c m !c 6 :_ z !_ 6 l ┆
0x05680…056a0 01 06 1e cd 20 12 3a a9 1e d6 01 c6 ff 9f f5 3a a8 1e d6 2c c6 ff 9f f5 3a a8 1e d6 0d c6 ff 9f ┆ : : , : ┆
0x056a0…056c0 c1 48 a1 c1 48 b1 1f d2 b0 07 01 bc 04 cd af 09 3a a8 1e d6 0d c6 ff 9f 32 a7 1f c3 b3 06 3a a3 ┆ H H : 2 : ┆
0x056c0…056e0 1e fe 0f c2 ce 07 0e 1a cd 45 0e cd cf 15 3a a3 1e fe 00 c2 db 07 0e 00 cd 31 19 3a a5 1e 32 cc ┆ E : 1 : 2 ┆
0x056e0…05700 1e c3 14 05 fb 76 21 f2 1d 71 21 f2 07 e5 2a 38 02 e9 c9 21 fb 07 e5 2a 36 02 e9 3a 09 01 c9 3e ┆ v! q! *8 ! *6 : >┆
0x05700…05720 fa cd a6 1d 3e fa cd a6 1d c9 11 00 00 0e 03 cd 05 00 c9 11 00 00 0e 01 cd 05 00 c9 21 ab 1e 71 ┆ > ! q┆
0x05720…05740 3a ab 1e e6 7f 5f 16 00 0e 02 cd 05 00 c9 0e 0d cd 1c 08 0e 0a cd 1c 08 c9 21 ad 1e 70 2b 71 cd ┆: _ ! p+q ┆
0x05740…05760 2e 08 2a ac 1e eb 0e 09 cd 05 00 c9 11 00 00 0e 0c cd 05 00 c9 11 00 00 0e 0d cd 05 00 c9 21 af ┆. * ! ┆
0x05760…05780 1e 71 2a af 1e 26 00 eb 0e 0e cd 05 00 c9 21 b1 1e 70 2b 71 2a b0 1e eb 0e 0f cd 05 00 32 ae 1e ┆ q* & ! p+q* 2 ┆
0x05780…057a0 c9 21 b3 1e 70 2b 71 2a b2 1e eb 0e 10 cd 05 00 32 ae 1e c9 21 b5 1e 70 2b 71 2a b4 1e eb 0e 11 ┆ ! p+q* 2 ! p+q* ┆
0x057a0…057c0 cd 05 00 32 ae 1e c9 11 00 00 0e 12 cd 05 00 32 ae 1e c9 21 b7 1e 70 2b 71 2a b6 1e eb 0e 13 cd ┆ 2 2 ! p+q* ┆
0x057c0…057e0 05 00 c9 21 b9 1e 70 2b 71 2a b8 1e eb 0e 14 cd 05 00 c9 21 bb 1e 70 2b 71 2a ba 1e eb 0e 15 cd ┆ ! p+q* ! p+q* ┆
0x057e0…05800 05 00 c9 21 bd 1e 70 2b 71 2a bc 1e eb 0e 16 cd 05 00 32 ae 1e c9 21 bf 1e 70 2b 71 2a be 1e eb ┆ ! p+q* 2 ! p+q* ┆
0x05800…05820 (2, 1, 6) 11 2a 8f 1f 4d cd 15 0f c9 3a 8f 1f c9 3e 00 21 fa 1d be d2 28 11 3a fa 1d 3d 32 fa 1d fe 01 c2 ┆ * M : > ! ( : =2 ┆
0x05820…05840 25 11 3e 0a c9 3e 1a c9 3e 00 21 f8 1d be d2 46 11 21 f8 1d 35 2b 4e 06 00 21 cd 1e 09 7e 32 91 ┆% > > > ! F ! 5+N ! ü2 ┆
0x05840…05860 1f 21 f7 1d 34 c9 cd 3c 0f 32 91 1f fe 1a c2 54 11 3e 1a c9 3e 00 21 62 1f be d2 7d 11 2a 62 1f ┆ ! 4 < 2 T > > !b å *b ┆
0x05860…05880 4d cd ad 11 1f d2 7a 11 3a 62 1f 32 f7 1d 21 62 1f 36 00 3a f9 1d 3c 32 f8 1d c3 a9 11 3e 00 21 ┆M z :b 2 !b 6 : <2 > !┆
0x05880…058a0 60 1f be d2 a5 11 2a 60 1f 4d cd ad 11 1f d2 9e 11 21 60 1f 36 00 21 fa 1d 36 02 3e 0d c9 3a 91 ┆` *` M !` 6 ! 6 > : ┆
0x058a0…058c0 1f c9 c3 a9 11 3a 91 1f c9 c3 28 11 c9 21 92 1f 71 3a f9 1d 21 92 1f 86 77 4f 06 00 21 cd 1e 09 ┆ : ( ! q: ! wO ! ┆
0x058c0…058e0 7e 32 93 1f fe 1a c2 d9 11 2a 92 1f 26 00 01 cd 1e 09 3a 91 1f 77 3e 01 c9 21 91 1f 3a 93 1f be ┆ü2 * & : w> ! : ┆
0x058e0…05900 c2 ea 11 21 f9 1d 34 c3 ef 11 21 f9 1d 36 00 3e 00 c9 3a 4e 1f 3c 32 4e 1f 21 cc 1e be da 03 12 ┆ ! 4 ! 6 > :N <2N ! ┆
0x05900…05920 3e 0d c9 2a 4e 1f 26 00 01 cd 1e 09 4e cd ee 0e c9 cd f2 11 32 a8 1e fe 20 c2 1f 12 c3 11 12 c9 ┆> *N & N 2 ┆
0x05920…05940 21 96 1f 70 2b 71 21 f5 1d 36 00 21 a9 1e 36 00 2b 36 20 21 aa 1e 36 00 3a aa 1e fe 20 d2 53 12 ┆! p+q! 6 ! 6 +6 ! 6 : S ┆
0x05940…05960 3a aa 1e fe 0b c2 4d 12 21 a8 1e 36 00 cd 67 14 c3 38 12 cd 11 12 3a 4e 1f 32 4d 1f 2a a8 1e 4d ┆: M ! 6 g 8 :N 2M * M┆
0x05960…05980 cd 38 14 1f d2 70 12 cd c1 15 21 a9 1e 36 01 c9 21 94 1f 36 00 21 97 1f 36 00 3e 19 21 97 1f be ┆ 8 p ! 6 ! 6 ! 6 > ! ┆
0x05980…059a0 da 95 12 2a 97 1f 26 00 01 50 1f 09 36 00 21 97 1f 34 c2 7a 12 21 f6 1d 36 00 21 f8 1d 36 00 23 ┆ * & P 6 ! 4 z ! 6 ! 6 #┆
0x059a0…059c0 36 00 23 36 00 21 aa 1e 36 00 2a a8 1e 4d cd 38 14 1f da da 12 3a aa 1e fe 08 da be 12 c9 3a a8 ┆6 #6 ! 6 * M 8 : : ┆
0x059c0…059e0 1e fe 2a c2 ce 12 0e 08 cd 87 14 c3 d1 12 cd 67 14 cd f2 11 32 a8 1e c3 aa 12 3a a8 1e fe 3a c2 ┆ * g 2 : : ┆
0x059e0…05a00 bf 13 3a 94 1f fe 00 ca eb 12 c9 3a aa 1e fe 01 c2 2c 13 0e 01 cd a1 14 d6 41 3c 32 94 1f 4f 3e ┆ : : , A<2 O>┆
0x05a00…05a20 (2, 1, 7) 0e 17 cd 05 00 c9 21 c3 1e 70 2b 71 2a c2 1e eb 0e 1e cd 05 00 c9 11 ff 00 0e 20 cd 05 00 c9 21 ┆ ! p+q* !┆
0x05a20…05a40 c4 1e 71 2a c4 1e 26 00 eb 0e 20 cd 05 00 c9 2a c0 1e 4d cd 1f 09 c9 2a c1 1e 4d cd 1f 09 c9 21 ┆ q* & * M * M !┆
0x05a40…05a60 c6 1e 70 2b 71 2a c5 1e eb 0e 21 cd 05 00 c9 21 c8 1e 70 2b 71 2a c7 1e eb 0e 22 cd 05 00 c9 21 ┆ p+q* ! ! p+q* " !┆
0x05a60…05a80 ca 1e 70 2b 71 2a c9 1e eb 0e 24 cd 05 00 c9 21 cb 1e 36 80 11 cb 1e 0e 0a cd 05 00 c9 11 00 00 ┆ p+q* $ ! 6 ┆
0x05a80…05aa0 0e 0b cd 05 00 c9 21 6b 1f 70 2b 71 2a 6a 1f eb 0e 1a cd 05 00 c9 3e 0c d3 01 3e 08 d3 01 db 01 ┆ !k p+q*j > > ┆
0x05aa0…05ac0 07 07 07 1f da aa 09 c3 9e 09 db 03 e6 7f c9 21 71 1f 70 2b 71 cd 2f 09 2a 70 1f 44 4d cd 39 08 ┆ !q p+q / *p DM 9 ┆
0x05ac0…05ae0 0e 3a cd 1c 08 0e 20 cd 1c 08 3a 4d 1f 32 72 1f 3a 4e 1f 21 72 1f be da f8 09 21 cc 1e 3a 72 1f ┆ : :M 2r :N !r ! :r ┆
0x05ae0…05b00 be d2 f1 09 2a 72 1f 26 00 01 cd 1e 09 4e cd 1c 08 21 72 1f 34 c2 d0 09 21 cc 1e 36 00 01 3a 02 ┆ *r & N !r 4 ! 6 : ┆
0x05b00…05b20 cd 94 08 3a ae 1e fe ff ca 11 0a 01 3a 02 cd b3 08 cd 2e 08 c3 0e 05 c9 21 77 1f 73 2b 70 2b 71 ┆ : : . !w s+p+q┆
0x05b20…05b40 2b d1 c1 70 2b 71 d5 3a 77 1f 3d 32 77 1f fe ff ca 4e 0a 2a 73 1f e5 2a 75 1f c1 0a 77 2a 73 1f ┆+ p+q :w =2w N *s *u w*s ┆
0x05b40…05b60 23 22 73 1f 2a 75 1f 23 22 75 1f c3 27 0a c9 21 00 00 22 9d 1e 2a 03 1e 4d cd 5e 08 cd 37 09 21 ┆#"s *u #"u ' ! " * M ^ 7 !┆
0x05b60…05b80 78 1f 36 00 3a fb 1d 21 78 1f be da be 0a 2a 9d 1e eb 2a 01 1e 19 44 4d cd 86 09 01 06 1e cd c3 ┆x 6 : !x * * DM ┆
0x05b80…05ba0 08 32 79 1f fe 00 ca ad 0a 3a 79 1f fe 01 ca 97 0a 01 94 02 cd af 09 2a 9d 1e 22 9f 1e eb 2a 01 ┆ 2y :y * " * ┆
0x05ba0…05bc0 1e 19 36 1a 3a fb 1d 32 78 1f c3 b7 0a 11 80 00 2a 9d 1e 19 22 9d 1e 21 78 1f 34 c2 64 0a 21 00 ┆ 6 : 2x * " !x 4 d ! ┆
0x05bc0…05be0 00 22 9d 1e cd 2f 09 c9 0e 07 21 a1 1e cd 6a 1d 7d 3d 32 7c 1f fe ff c2 db 0a c9 21 00 00 22 a1 ┆ " / ! j å=2ø ! " ┆
0x05be0…05c00 1e 2a 4b 1e 4d cd 5e 08 01 27 1e cd 5f 09 21 7a 1f 36 00 3a 7c 1f 21 7a 1f be da 31 0b 2a a1 1e ┆ *K M ^ ' _ !z 6 :ø !z 1 * ┆
0x05c00…05c20 (2, 1, 8) 1a b9 d2 06 13 c9 cd 11 12 2a a8 1e 4d cd 38 14 1f d2 29 13 3a a8 1e fe 5b c2 1f 13 cd b1 14 21 ┆ * M 8 ) : Æ !┆
0x05c20…05c40 4e 1f 35 21 a9 1e 36 04 c9 c3 b1 13 3a aa 1e fe 03 ca 35 13 c9 21 a1 1f 36 ff 23 36 00 3e 14 21 ┆N 5! 6 : 5 ! 6 #6 > !┆
0x05c40…05c60 a2 1f be da b0 13 21 a0 1f 36 00 3a a0 1f 3c 32 a0 1f 4f 3e 03 91 9f 2f f5 3a a0 1f 21 a1 1f 86 ┆ ! 6 : <2 O> / : ! ┆
0x05c60…05c80 4f 06 00 21 54 02 09 e5 2a a0 1f 4d cd a1 14 e1 96 d6 01 9f c1 48 a1 1f d2 7e 13 c3 4b 13 3a a0 ┆O !T * M H ü K : ┆
0x05c80…05ca0 1f fe 04 c2 a1 13 21 a9 1e 36 03 cd f2 11 fe 5b c2 96 13 cd b1 14 21 4e 1f 35 3a a2 1f 32 a8 1e ┆ ! 6 Æ !N 5: 2 ┆
0x05ca0…05cc0 c9 3a a1 1f c6 03 32 a1 1f 21 a2 1f 34 c2 3d 13 c9 3a a8 1e fe 5b c2 bc 13 cd b1 14 c3 34 14 3a ┆ : 2 ! 4 = : Æ 4 :┆
0x05cc0…05ce0 aa 1e fe 00 c2 c8 13 c9 21 aa 1e 36 08 3a a8 1e fe 2e c2 02 14 cd f2 11 32 a8 1e 4f cd 38 14 1f ┆ ! 6 : . 2 O 8 ┆
0x05ce0…05d00 da 02 14 3a aa 1e fe 0b da ec 13 c9 3a a8 1e fe 2a c2 fc 13 0e 0b cd 87 14 c3 ff 13 cd 67 14 c3 ┆ : : * g ┆
0x05d00…05d20 d5 13 3a a8 1e fe 5b c2 0d 14 cd b1 14 21 4e 1f 35 21 a9 1e 36 02 3a 94 1f fe 00 c2 25 14 3a fc ┆ : Æ !N 5! 6 : % : ┆
0x05d20…05d40 1d 3c 32 94 1f 2a 95 1f 36 00 01 20 00 2a 95 1f 09 36 00 c9 c3 a5 12 c9 21 9a 1f 71 21 9b 1f 36 ┆ <2 * 6 * 6 ! q! 6┆
0x05d40…05d60 00 3e 0a 21 9b 1f be da 64 14 2a 9b 1f 26 00 01 49 02 09 3a 9a 1f be c2 5d 14 3e 01 c9 21 9b 1f ┆ > ! d * & I : Å > ! ┆
0x05d60…05d80 34 c2 41 14 3e 00 c9 3a aa 1e 3c 32 aa 1e 4f 06 00 2a 95 1f 09 3a a8 1e 77 3a a8 1e fe 3f c2 86 ┆4 A > : <2 O * : w: ? ┆
0x05d80…05da0 14 21 f5 1d 36 01 c9 21 9c 1f 71 21 a8 1e 36 3f 21 9c 1f 3a aa 1e be d2 a0 14 cd 67 14 c3 90 14 ┆ ! 6 ! q! 6?! : g ┆
0x05da0…05dc0 c9 21 9d 1f 71 2a 9d 1f 26 00 eb 2a 95 1f 19 7e c9 21 f6 1d 36 01 3a c0 1e 32 c1 1e cd f2 11 32 ┆ ! q* & * ü ! 6 : 2 2┆
0x05dc0…05de0 a8 1e 3a a8 1e d6 0d d6 01 9f f5 3a a8 1e d6 5d d6 01 9f c1 48 b1 1f da ba 15 3a a8 1e d6 41 32 ┆ : : Å H : A2┆
0x05de0…05e00 9e 1f 4f 3e 19 b9 d2 03 15 3a a8 1e fe 20 c2 fa 14 cd f2 11 32 a8 1e c3 00 15 01 08 03 cd af 09 ┆ O> : 2 ┆
0x05e00…05e20 (2, 1, 9) 01 ca 1f 09 22 7d 1f 2a 7d 1f 44 4d cd 86 09 01 27 1e cd d3 08 fe 00 ca 20 0b 01 a4 02 cd af 09 ┆ "å *å DM ' ┆
0x05e20…05e40 11 80 00 2a a1 1e 19 22 a1 1e 21 7a 1f 34 c2 f3 0a 3a 65 1f 1f d2 c9 0b 21 00 00 22 a1 1e 01 80 ┆ * " !z 4 :e ! " ┆
0x05e40…05e60 00 cd 86 09 21 7a 1f 36 00 3a 7c 1f 21 7a 1f be da c0 0b 01 27 1e cd 3f 09 d6 00 d6 01 9f 32 7f ┆ !z 6 :ø !z ' ? 2 ┆
0x05e60…05e80 1f 2a 48 1e 23 22 48 1e 21 7b 1f 36 00 3a 7b 1f d6 80 9f 21 7f 1f a6 1f d2 a2 0b 2a 7b 1f 26 00 ┆ *H #"H !æ 6 :æ ! *æ & ┆
0x05e80…05ea0 01 80 00 09 3a 7b 1f 11 a1 1e e5 cd 34 1d 01 ca 1f 09 c1 0a 96 d6 01 9f 32 7f 1f 21 7b 1f 34 c3 ┆ :æ 4 2 !æ 4 ┆
0x05ea0…05ec0 6d 0b 11 80 00 2a a1 1e 19 22 a1 1e 3a 7f 1f 1f da b9 0b 01 b5 02 cd af 09 21 7a 1f 34 c2 49 0b ┆m * " : !z 4 I ┆
0x05ec0…05ee0 01 27 1e cd d3 08 32 7f 1f 21 00 00 22 a1 1e c9 21 80 1f 71 3a 80 1f fe 20 da f4 0b 21 f3 1d 34 ┆ ' 2 ! " ! q: ! 4┆
0x05ee0…05f00 3e 00 21 53 1f be d2 f4 0b 3a 53 1f 21 f3 1d be d2 f4 0b c9 3a 03 00 32 81 1f 2a a3 1e 4d 06 00 ┆> !S :S ! : 2 * M ┆
0x05f00…05f20 21 dd 0c 09 09 5e 23 56 eb e9 01 ff 1d 11 a1 1e cd 8e 1d da 19 0c cd c8 0a 2a a1 1e 01 ca 1f 09 ┆! ^#V * ┆
0x05f20…05f40 3a 80 1f 77 2a a1 1e 23 22 a1 1e c3 05 0d c3 3d 0c c3 3d 0c c3 3d 0c c3 3d 0c c3 3d 0c 01 c2 02 ┆: w* #" = = = = = ┆
0x05f40…05f60 cd af 09 c3 05 0d 2a 80 1f 4d cd e6 07 c3 05 0d 21 03 00 36 80 c3 71 0c c3 05 0d 21 03 00 36 c0 ┆ * M ! 6 q ! 6 ┆
0x05f60…05f80 c3 71 0c c3 05 0d 21 03 00 36 80 c3 71 0c c3 05 0d 2a 80 1f 26 00 eb 0e 05 cd 05 00 c3 05 0d 21 ┆ q ! 6 q * & !┆
0x05f80…05fa0 03 00 36 10 c3 a0 0c c3 05 0d 21 03 00 36 20 c3 a0 0c c3 05 0d 21 03 00 36 30 c3 a0 0c c3 05 0d ┆ 6 ! 6 ! 60 ┆
0x05fa0…05fc0 2a 80 1f 26 00 eb 0e 04 cd 05 00 c3 05 0d 21 03 00 36 00 c3 cf 0c c3 05 0d 21 03 00 36 01 c3 cf ┆* & ! 6 ! 6 ┆
0x05fc0…05fe0 0c c3 05 0d 21 03 00 36 03 c3 cf 0c c3 05 0d 2a 80 1f 26 00 eb 0e 02 cd 05 00 c3 05 0d 0a 0c 2e ┆ ! 6 * & .┆
0x05fe0…06000 0c 31 0c 34 0c 37 0c 3a 0c 3d 0c 46 0c 50 0c 5b 0c 66 0c 71 0c 7f 0c 8a 0c 95 0c a0 0c ae 0c b9 ┆ 1 4 7 : = F P Æ f q ┆
0x06000…06020 (3, 0, 1) c3 b7 15 3a a8 1e d6 53 d6 01 9f f5 3a a8 1e d6 51 d6 01 9f c1 48 b1 1f d2 49 15 3a 4e 1f 3c 32 ┆ : S : Q H I :N <2┆
0x06020…06040 9f 1f cd f2 11 32 a8 1e d6 1a d6 01 9f f5 3a a8 1e d6 0d d6 01 9f c1 48 b1 1f da 40 15 c3 22 15 ┆ 2 : H @ " ┆
0x06040…06060 cd f2 11 32 a8 1e c3 8d 15 cd f2 11 32 a8 1e d6 30 32 9f 1f 4f 3e 09 b9 d2 63 15 21 9f 1f 36 01 ┆ 2 2 02 O> c ! 6 ┆
0x06060…06080 c3 8d 15 cd f2 11 32 a8 1e d6 30 32 99 1f 4f 3e 09 b9 da 8d 15 2a 9f 1f 26 00 cd 4f 1d e5 2a 99 ┆ 2 02 O> * & O * ┆
0x06080…060a0 1f 26 00 c1 09 eb 21 9f 1f 73 c3 63 15 2a 9e 1f 26 00 01 50 1f 09 3a 9f 1f 77 3a 9e 1f fe 06 c2 ┆ & ! s c * & P : w: ┆
0x060a0…060c0 b7 15 3e 1f 21 9f 1f be d2 b1 15 01 16 03 cd af 09 3a 9f 1f 32 c1 1e c3 c2 14 cd f2 11 32 a8 1e ┆ > ! : 2 2 ┆
0x060c0…060e0 c9 3a a8 1e fe 5f c2 ce 15 21 a8 1e 36 3d c9 21 a3 1f 36 00 3e 27 21 a3 1f be da e9 15 0e 00 cd ┆ : _ ! 6= ! 6 >'! ┆
0x060e0…06100 45 0e 21 a3 1f 34 c2 d4 15 c9 21 a9 1f 70 2b 71 2a a8 1f e5 1e 03 01 30 1e cd 18 0a c9 21 ad 1f ┆E ! 4 ! p+q* 0 ! ┆
0x06100…06120 72 2b 73 2b 70 2b 71 2a ac 1f 7e fe 24 ca 37 16 2a ac 1f 3e 7f a6 2a aa 1f f5 3e 7f a6 c1 48 b9 ┆r+s+p+q* ü $ 7 * > * > H ┆
0x06120…06140 ca 26 16 3e 00 c9 2a aa 1f 23 22 aa 1f 2a ac 1f 23 22 ac 1f c3 07 16 3e 01 c9 cd 0d 11 32 a8 1e ┆ & > * #" * #" > 2 ┆
0x06140…06160 3a 04 1e 1f d2 52 16 01 9d 1e 11 9f 1e cd 8e 1d 9f c9 3a a8 1e d6 1a d6 01 9f c9 21 af 1f 36 01 ┆: R : ! 6 ┆
0x06160…06180 21 9c 1e 36 00 cd 3d 17 32 b5 1f fe 3a ca 99 16 21 9c 1e 36 00 3a b5 1f fe 1a c2 93 16 01 48 03 ┆! 6 = 2 : ! 6 : H ┆
0x06180…061a0 cd 39 08 cd 13 08 fe 1a c2 8e 16 3e 01 c9 21 9c 1e 36 00 cd 2d 17 c3 65 16 21 b5 1f 36 00 cd bb ┆ 9 > ! 6 - e ! 6 ┆
0x061a0…061c0 17 32 b4 1f fe 00 c2 c7 16 cd 3d 17 32 b4 1f fe 1a ca ba 16 cd 2d 17 c3 a9 16 3a af 1f 1f d2 c4 ┆ 2 = 2 - : ┆
0x061c0…061e0 16 3e 01 c9 3e 02 c9 cd c4 17 22 b7 1f cd bb 17 32 b6 1f 3a b4 1f d6 00 c6 ff 9f 21 af 1f a6 1f ┆ > > " 2 : ! ┆
0x061e0…06200 d2 f0 16 21 b4 1f 35 cd bb 17 32 b3 1f c3 d3 16 cd ac 17 21 b5 1f 86 fe 00 ca 02 17 01 5c 03 cd ┆ ! 5 2 ! Ø ┆
0x06200…06220 (3, 0, 2) 59 a8 00 46 23 2f 08 ca cd 51 56 66 00 72 b3 40 00 07 8b 4a fe 02 08 40 20 03 e8 cb 39 00 30 e8 ┆Y F#/ QVf r @ J @ 9 0 ┆
0x06220…06240 60 28 ab 35 00 08 b3 60 00 ab 35 00 17 84 65 67 58 8b 35 00 30 ee 18 20 ab 36 00 39 45 59 b8 01 ┆`( 5 ` 5 egX 5 0 6 9EY ┆
0x06240…06260 d6 e1 39 88 ce 42 ac dc 00 e5 15 66 a0 07 5b 84 e6 23 39 0a b3 70 00 8c 46 e5 15 66 60 07 5b 84 ┆ 9 B f Æ #9 p F f` Æ ┆
0x06260…06280 e6 23 39 08 6c c8 20 8c 46 e5 10 d3 60 51 18 8c bc 23 2b 35 45 59 98 01 a2 19 75 b8 4e 62 33 90 ┆ #9 l F `Q #+5EY u Nb3 ┆
0x06280…062a0 ab 35 00 39 44 20 10 03 95 9b 7d 00 1e 2d 2a d2 0a 21 a8 c0 8e 51 56 6e 00 75 b8 4e 62 33 90 87 ┆ 5 9D å -* ! QVn u Nb3 ┆
0x062a0…062c0 00 00 39 44 20 00 03 ad c2 73 64 cc 48 80 19 b5 a0 11 c2 22 cf 80 0e 11 16 7e 00 70 88 b4 00 03 ┆ 9D sd H " ü p ┆
0x062c0…062e0 36 b9 82 0a b3 f0 03 94 42 00 00 39 59 b5 f8 11 e2 d2 b5 c0 a2 ad 00 00 e5 10 80 40 0e b7 09 cc ┆6 B 9Y @ ┆
0x062e0…06300 46 72 15 67 c0 07 28 84 02 00 75 b8 4e 6c 3b 08 0c 21 cf c0 0e 56 6d 03 00 10 d3 c0 51 16 8c 00 ┆Fr g ( u Nl; ! Vm Q ┆
0x06300…06320 10 e8 c0 07 28 87 45 00 39 44 20 20 03 95 9b 6e 81 04 36 d8 14 45 a2 80 04 37 2c 14 bc 23 2b 3a ┆ ( E 9D n 6 E 7, #+:┆
0x06320…06340 c4 5a 08 00 55 9f 00 1c a2 10 00 01 d6 e1 39 8a b4 10 03 94 42 01 00 39 59 b7 30 10 55 9f 00 02 ┆ Z U 9 B 9Y 0 U ┆
0x06340…06360 c0 02 f3 ac fa 2f 37 b4 4f aa 30 fb 4a c2 03 0a b4 10 00 8c 46 5e 11 95 9d 62 2d 08 00 2a d0 80 ┆ /7 O 0 J F^ b- * ┆
0x06360…06380 0e 51 56 7e 00 72 b3 69 f8 23 c5 a5 4b 81 85 5a 08 00 45 a2 80 05 5a 08 00 bc 23 2b 3a c4 5a 08 ┆ QVü r i # K Z E Z #+: Z ┆
0x06380…063a0 01 87 60 41 85 5a 08 01 d6 2a cf c0 01 91 16 8c 00 10 e8 c0 07 28 87 44 00 39 44 20 20 03 95 9b ┆ `A Z * ( D 9D ┆
0x063a0…063c0 72 01 45 5a 28 01 ca 2a d0 40 0e 56 6d 09 00 15 68 80 07 28 ab 42 00 3a c5 59 f8 00 f6 95 37 9e ┆r EZ( * @ Vm h ( B : Y 7 ┆
0x063c0…063e0 93 86 77 2b 36 8d 80 08 74 10 03 94 55 a0 00 1c a2 10 10 01 ca cd a8 c0 c2 ac f8 00 e5 10 80 40 ┆ w+6 t U @┆
0x063e0…06400 0e b7 09 cd 87 79 01 59 31 d1 e0 08 80 9c 8a af 31 1f 00 66 d7 50 57 08 8b 3a 00 38 44 59 d8 01 ┆ y Y1 1 f PW : 8DY ┆
0x06400…06420 (3, 0, 3) 12 17 cd 2d 17 3a af 1f 1f d2 0f 17 3e 00 c9 3e 02 c9 21 b1 1f 70 2b 71 3a af 1f 1f d2 2c 17 21 ┆ - : > > ! p+q: , !┆
0x06420…06440 af 1f 36 00 2a b0 1f 44 4d cd 39 08 c9 3a ae 1f 1f d2 3c 17 21 ae 1f 36 00 cd 18 0e c9 3a af 1f ┆ 6 * DM 9 : < ! 6 : ┆
0x06440…06460 1f d2 7a 17 cd 0d 11 32 b2 1f fe 13 c2 57 17 21 ae 1f 36 01 c3 44 17 2a 9c 1e 26 00 01 4c 1e 09 ┆ z 2 W ! 6 D * & L ┆
0x06460…06480 3a b2 1f 77 3a 9c 1e 3c 32 9c 1e fe 4f da 76 17 01 2a 03 cd 12 17 3a b2 1f c9 3e 1a c9 cd 3d 17 ┆: w: <2 O v * : > = ┆
0x06480…064a0 32 b9 1f d6 30 4f 3e 09 b9 da 92 17 3a b9 1f d6 30 c9 3a b9 1f d6 41 4f 3e 05 b9 d2 a4 17 01 3a ┆2 0O> : 0 : AO> :┆
0x064a0…064c0 03 cd 12 17 3a b9 1f d6 41 c6 0a c9 cd 7d 17 87 87 87 87 f5 cd 7d 17 c1 48 b1 c9 cd ac 17 21 b5 ┆ : A å å H ! ┆
0x064c0…064e0 1f 86 77 c9 cd bb 17 4f 06 00 60 69 0e 08 cd 64 1d e5 cd bb 17 e1 cd 56 1d c9 cd 5b 16 32 ba 1f ┆ w O `i d V Æ 2 ┆
0x064e0…06500 4f 3e 01 b9 da 32 18 3a ba 1f d6 01 d6 01 9f 21 58 1f a6 1f da 1c 18 21 bb 1f 36 01 3a 9c 1e 21 ┆O> 2 : !X ! 6 : !┆
0x06500…06520 bb 1f be da 1c 18 3a bb 1f 3d 4f 06 00 21 4c 1e 09 4e cd 45 0e 21 bb 1f 34 c2 fc 17 0e 0d cd 45 ┆ : =O !L N E ! 4 E┆
0x06520…06540 0e 0e 0a cd 45 0e 3a ba 1f fe 01 c2 2f 18 c9 c3 da 17 cd 2e 08 2a 9c 1e 26 00 01 4c 1e 09 36 24 ┆ E : / . * & L 6$┆
0x06540…06560 01 4c 1e cd 39 08 01 6b 03 cd 39 08 cd 2e 08 cd 13 08 fe 1a c2 58 18 c9 c3 da 17 c9 01 8f 03 cd ┆ L 9 k 9 . X ┆
0x06560…06580 af 09 c9 2a 4b 1e 4d cd 5e 08 11 9e 03 01 30 1e cd fd 15 32 05 1e 01 30 1e c5 1e 03 01 a4 1f cd ┆ *K M ^ 0 2 0 ┆
0x06580…065a0 18 0a 3a 30 1e e6 7f 32 30 1e 3a 31 1e e6 7f 32 31 1e 01 a2 03 cd ea 15 01 27 1e cd b3 08 01 27 ┆ :0 20 :1 21 ' '┆
0x065a0…065c0 1e cd e3 08 3a ae 1e fe ff c2 b2 18 01 a5 03 cd af 09 21 47 1e 36 00 21 00 00 22 a1 1e c9 21 ff ┆ : !G 6 ! " ! ┆
0x065c0…065e0 ff 22 9f 1e cd 37 09 2a 03 1e 4d cd 5e 08 01 06 1e cd 6e 08 cd 2f 09 3a 61 1f 2f f5 3a 10 1e 07 ┆ " 7 * M ^ n / :a / : ┆
0x065e0…06600 c1 48 a1 1f d2 ec 18 21 ae 1e 36 ff 3a ae 1e fe ff c2 fa 18 01 b8 03 cd af 09 21 26 1e 36 00 11 ┆ H ! 6 : !& 6 ┆
0x06600…06620 (3, 0, 4) e1 22 21 02 31 63 02 21 80 00 34 5e 34 16 00 19 36 20 2a 01 00 11 34 00 19 22 19 02 7e 32 1b 02 ┆ "! 1c ! 4^4 6 * 4 " ü2 ┆
0x06620…06640 23 7e 32 1c 02 2a 1b 02 22 1d 02 21 80 00 23 22 1f 02 c3 45 01 21 80 00 35 ca a3 01 2a 1f 02 7e ┆#ü2 * " ! #" E ! 5 * ü┆
0x06640…06660 23 22 1f 02 c9 01 00 00 cd 35 01 fe 41 ca 56 01 fe 42 c2 45 01 04 cd 35 01 fe 3a c2 45 01 cd 35 ┆#" 5 A V B E 5 : E 5┆
0x06660…06680 01 fe 3d c2 45 01 cd 35 01 fe 53 ca 88 01 fe 44 c2 45 01 cd 35 01 fe 44 c2 45 01 cd 35 01 fe 20 ┆ = E 5 S D E 5 D E 5 ┆
0x06680…066a0 c2 45 01 0e 08 c3 98 01 cd 35 01 fe 53 c2 45 01 cd 35 01 fe 20 c2 45 01 21 1d 02 16 00 58 19 71 ┆ E 5 S E 5 E ! X q┆
0x066a0…066c0 c3 45 01 db 14 e6 80 c2 b6 01 2a 19 02 3a 1d 02 77 23 3a 1e 02 77 11 fb 01 cd f6 01 cd c6 01 cd ┆ E * : w#: w ┆
0x066c0…066e0 cb 01 2a 21 02 e9 0e 01 c3 05 00 0e 0d 11 03 00 c3 05 00 0e 0f c3 05 00 0e 10 c3 05 00 0e 13 c3 ┆ *! ┆
0x066e0…06700 05 00 0e 14 c3 05 00 0e 15 c3 05 00 0e 16 c3 05 00 0e 1a c3 05 00 0e 09 c3 05 00 49 4e 53 45 52 ┆ INSER┆
0x06700…06720 54 20 44 49 53 4b 20 41 4e 44 20 54 59 50 45 20 3c 52 45 54 55 52 4e 3e 24 00 00 00 00 00 00 00 ┆T DISK AND TYPE <RETURN>$ ┆
0x06720…06740 00 00 00 00 00 00 00 00 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…]
0x06780…067a0 31 43 44 33 35 30 31 46 45 35 33 43 32 34 35 30 31 39 39 0d 0a 3a 31 30 30 31 39 30 30 30 43 44 ┆1CD3501FE53C2450199 :10019000CD┆
0x067a0…067c0 33 35 30 31 46 45 32 30 43 32 34 35 30 31 32 31 31 44 30 32 31 36 30 30 35 38 31 39 37 31 46 45 ┆3501FE20C24501211D021600581971FE┆
0x067c0…067e0 0d 0a 3a 31 30 30 31 41 30 30 30 43 33 34 35 30 31 44 42 31 34 45 36 38 30 43 32 42 36 30 31 32 ┆ :1001A000C34501DB14E680C2B6012┆
0x067e0…06800 41 31 39 30 32 33 41 31 44 30 32 44 41 0d 0a 3a 31 30 30 31 42 30 30 30 37 37 32 33 33 41 31 45 ┆A19023A1D02DA :1001B00077233A1E┆
0x06800…06820 (3, 0, 5) c0 03 01 0f 1e cd fd 15 32 04 1e 2a fd 1d 22 9d 1e c9 3e 00 21 62 1f be d2 21 19 01 c4 03 cd af ┆ 2 * " > !b ! ┆
0x06820…06840 09 3e 00 21 60 1f be d2 30 19 01 d4 03 cd af 09 c9 21 bc 1f 71 3a bc 1f 1f d2 45 19 3a 13 1e 32 ┆ > !` 0 ! q: E : 2┆
0x06840…06860 34 1e c3 4a 19 21 34 1e 36 00 2a a1 1e 7d e6 7f fe 00 ca 61 19 21 34 1e 34 0e 1a cd 45 0e c3 4a ┆4 J !4 6 * å a !4 4 E J┆
0x06860…06880 19 cd 12 19 cd c8 0a 2a 4b 1e 4d cd 5e 08 01 27 1e cd 81 08 3a ae 1e fe ff c2 82 19 01 e3 03 cd ┆ *K M ^ ' : ┆
0x06880…068a0 af 09 01 a4 1f cd ea 15 21 33 1e 36 00 01 27 1e cd 6e 08 3a ae 1e fe ff ca e9 19 3a 30 1e 07 1f ┆ !3 6 ' n : :0 ┆
0x068a0…068c0 d2 e3 19 3a 66 1f 1f da d5 19 01 01 04 cd 39 08 cd 13 08 4f cd ee 0e fe 59 ca d2 19 01 23 04 cd ┆ :f 9 O Y # ┆
0x068c0…068e0 39 08 cd 2e 08 01 33 04 cd ea 15 01 27 1e cd b3 08 c9 cd 2e 08 3a 30 1e e6 7f 32 30 1e 01 27 1e ┆9 . 3 ' . :0 20 ' ┆
0x068e0…06900 cd 06 09 01 27 1e cd b3 08 01 27 1e c5 1e 10 01 37 1e cd 18 0a 01 36 04 cd ea 15 01 27 1e cd f6 ┆ ' ' 7 6 ' ┆
0x06900…06920 08 c9 0e 07 21 ff 1d cd 6a 1d 3e ff cd 41 1d 2b eb 21 fb 1d 73 c9 21 ca 1f 22 01 1e 01 00 40 11 ┆ ! j > A + ! s ! " @ ┆
0x06920…06940 ff 1d cd 93 1d da 31 1a 21 80 7f 22 ff 1d c3 3c 1a 2a fd 1d eb 2a ff 1d 19 22 ff 1d cd 02 1a c9 ┆ 1 ! " < * * " ┆
0x06940…06960 01 ca 1f 11 06 00 cd 93 1d 0e 01 e5 cd 6e 1d 01 ca 1f 09 22 01 1e 11 00 ff e1 cd 44 1d 0e 01 cd ┆ n " D ┆
0x06960…06980 6e 1d 22 fd 1d 22 ff 1d cd 02 1a c9 3a a4 1e d6 00 c6 ff 9f 21 51 1f a6 32 bd 1f 1f d2 82 1a cd ┆n " " : !Q 2 ┆
0x06980…069a0 16 1a 3a 58 1f 21 57 1f b6 1f d2 93 1a cd da 17 c3 a4 1a cd 3a 16 1f da a4 1a 2a a8 1e 4d cd 45 ┆ :X !W : * M E┆
0x069a0…069c0 0e c3 93 1a 3a bd 1f 1f d2 b1 1a cd 18 0e cd 40 1a c9 cd 40 1a 3a 4f 1f 32 4d 1f cd 63 18 cd be ┆ : @ @ :O 2M c ┆
0x069c0…069e0 18 21 be 1f 36 01 23 36 00 3e 19 21 bf 1f be da 29 1b 2a bf 1f 26 00 01 50 1f 09 7e fe 00 ca 22 ┆ ! 6 #6 > ! ) * & P ü "┆
0x069e0…06a00 1b 3a bf 1f d6 06 d6 01 9f f5 3a bf 1f d6 0e d6 01 9f c1 48 b1 f5 3a bf 1f d6 11 d6 01 9f c1 48 ┆ : : H : H┆
0x06a00…06c00 (3, 0, 6) 0xe5[0x200]
0x06c00…06c20 (3, 0, 7) b1 f5 3a bf 1f d6 15 d6 01 9f c1 48 b1 f5 3a bf 1f d6 16 d6 01 9f c1 48 b1 1f da 22 1b 21 be 1f ┆ : H : H " ! ┆
0x06c20…06c40 36 00 21 bf 1f 34 c2 c9 1a 3a be 1f 1f d2 5f 1b cd 16 1a cd 6a 1b 1f da 59 1b cd 4f 0a cd 6a 1b ┆6 ! 4 : _ j Y O j ┆
0x06c40…06c60 1f d2 4d 1b 2a 9f 1e 22 a1 1e c3 53 1b 2a ff 1d 22 a1 1e cd c8 0a c3 33 1b cd 40 1a c3 62 1b cd ┆ M * " S * " 3 @ b ┆
0x06c60…06c80 6c 1a 2a be 1f 4d cd 31 19 c9 01 ff ff 11 9f 1e cd 93 1d b5 c6 ff 9f c9 21 00 00 22 c0 1f 22 c4 ┆l * M 1 ! " " ┆
0x06c80…06ca0 1f cd 37 09 2a 03 1e 4d cd 5e 08 01 80 00 cd 86 09 01 5c 00 cd 94 08 21 00 00 22 c2 1f 3a ae 1e ┆ 7 * M ^ Ø ! " : ┆
0x06ca0…06cc0 d6 ff c6 ff 9f 01 c0 1f 11 c2 1f f5 cd 8e 1d 9f c1 48 a1 1f d2 c4 1b 2a c2 1f 23 22 c2 1f cd a7 ┆ H * #" ┆
0x06cc0…06ce0 08 c3 9d 1b cd 2f 09 3a ae 1e fe ff c2 e5 1b 3e 00 11 c4 1f cd 9b 1d b5 c2 e1 1b 01 39 04 cd af ┆ / : > 9 ┆
0x06ce0…06d00 09 cd 2e 08 c9 2a c2 1f 23 22 c0 1f 3a ae 1e e6 03 87 87 87 87 87 5f 16 00 21 80 00 19 e5 1e 10 ┆ . * #" : _ ! ┆
0x06d00…06d20 01 27 1e cd 18 0a 21 27 1e 36 00 21 33 1e 36 00 01 27 1e c5 1e 10 01 06 1e cd 18 0a 3a 31 1e 07 ┆ ' !' 6 !3 6 ' :1 ┆
0x06d20…06d40 2f 21 61 1f b6 1f d2 45 1c 2a c4 1f 23 22 c4 1f 3e 01 cd 7a 1d b5 c2 3f 1c 01 43 04 cd 39 08 cd ┆/!a E * #" > z ? C 9 ┆
0x06d40…06d60 49 1c cd b2 1a c3 81 1b c9 cd 2e 08 21 c6 1f 36 01 3e 0b 21 c6 1f be da 87 1c 2a c6 1f 26 00 01 ┆I . ! 6 > ! * & ┆
0x06d60…06d80 27 1e 09 7e 32 c7 1f fe 20 ca 80 1c 3a c6 1f fe 09 c2 79 1c 0e 2e cd 1c 08 2a c7 1f 4d cd 1c 08 ┆' ü2 : y . * M ┆
0x06d80…06da0 21 c6 1f 34 c2 51 1c c9 3e 00 21 94 1f be d2 9b 1c 3a 94 1f 3d 32 03 1e c3 a1 1c 3a fc 1d 32 03 ┆! 4 Q > ! : =2 : 2 ┆
0x06da0…06dc0 1e c9 3a f6 1d 1f d2 ac 1c cd 5c 18 3e 00 21 94 1f be d2 bf 1c 3a 94 1f 3d 32 4b 1e c3 c5 1c 3a ┆ : Ø > ! : =2K :┆
0x06dc0…06de0 fc 1d 32 4b 1e c9 21 c0 1e 3a c1 1e be ca d1 1c c9 21 03 1e 3a 4b 1e be c2 de 1c cd 5c 18 c9 cd ┆ 2K ! : ! :K Ø ┆
0x06de0…06e00 11 12 3a a8 1e fe 0d ca ed 1c cd 5c 18 c9 21 c9 1f 70 2b 71 cd 88 1c cd df 1c 01 06 1e c5 2a c8 ┆ : Ø ! p+q * ┆
0x06e00…07000 (3, 0, 8) 0xe5[0x200]
0x07000…07020 (3, 0, 9) 1f 44 4d 1e 21 cd 18 0a cd c6 1c c9 01 06 1e cd 20 12 3a a9 1e d6 01 d6 01 9f f5 3a a8 1e d6 3d ┆ DM ! : : =┆
0x07020…07040 d6 01 9f c1 48 a1 1f da 2d 1d cd 5c 18 3a 4e 1f 32 4f 1f c9 eb 5f 16 00 eb 1a 85 6f 13 1a 8c 67 ┆ H - Ø :N 2O _ o g┆
0x07040…07060 c9 5f 16 00 7b a5 6f 7a a4 67 c9 5e 23 56 eb 29 e5 29 29 c1 09 c9 5f 16 00 7b b5 6f 7a b4 67 c9 ┆ _ æ oz g ^#V ) )) _ æ oz g ┆
0x07060…07080 5e 23 56 eb 29 0d c2 64 1d c9 5e 23 56 eb 7c b7 1f 67 7d 1f 6f 0d c2 6e 1d c9 5f 16 00 7b 95 6f ┆^#V ) d ^#V ø gå o n _ æ o┆
0x07080…070a0 7a 9c 67 c9 4f 06 00 7b 91 6f 7a 98 67 c9 69 60 4e 23 46 1a 91 6f 13 1a 98 67 c9 6f 26 00 1a 95 ┆z g O æ oz g i`N#F o g o& ┆
0x070a0…070c0 6f 13 1a 9c 67 c9 06 0c 48 0d c2 a9 1d 3d c2 a8 1d c9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆o g H = ┆
0x070c0…070e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x07100…07120 01 27 1e cd 18 0a 21 27 1e 36 00 21 33 1e 36 00 01 27 1e c5 1e 10 01 06 1e cd 18 0a 3a 31 1e 07 ┆ ' !' 6 !3 6 ' :1 ┆
0x07120…07140 2f 21 61 1f b6 1f d2 45 1c 2a c4 1f 23 22 c4 1f 3e 01 cd 7a 1d b5 c2 3f 1c 01 43 04 cd 39 08 cd ┆/!a E * #" > z ? C 9 ┆
0x07140…07160 49 1c cd b2 1a c3 81 1b c9 cd 2e 08 21 c6 1f 36 01 3e 0b 21 c6 1f be da 87 1c 2a c6 1f 26 00 01 ┆I . ! 6 > ! * & ┆
0x07160…07180 27 1e 09 7e 32 c7 1f fe 20 ca 80 1c 3a c6 1f fe 09 c2 79 1c 0e 2e cd 1c 08 2a c7 1f 4d cd 1c 08 ┆' ü2 : y . * M ┆
0x07180…071a0 21 c6 1f 34 c2 51 1c c9 3e 00 21 94 1f be d2 9b 1c 3a 94 1f 3d 32 03 1e c3 a1 1c 3a fc 1d 32 03 ┆! 4 Q > ! : =2 : 2 ┆
0x071a0…071c0 1e c9 3a f6 1d 1f d2 ac 1c cd 5c 18 3e 00 21 94 1f be d2 bf 1c 3a 94 1f 3d 32 4b 1e c3 c5 1c 3a ┆ : Ø > ! : =2K :┆
0x071c0…071e0 fc 1d 32 4b 1e c9 21 c0 1e 3a c1 1e be ca d1 1c c9 21 03 1e 3a 4b 1e be c2 de 1c cd 5c 18 c9 cd ┆ 2K ! : ! :K Ø ┆
0x071e0…07200 11 12 3a a8 1e fe 0d ca ed 1c cd 5c 18 c9 21 c9 1f 70 2b 71 cd 88 1c cd df 1c 01 06 1e c5 2a c8 ┆ : Ø ! p+q * ┆
0x07200…07400 (3, 1, 1) 0xe5[0x200]
0x07400…07500 (3, 1, 2) DataBlock {»MOD1.SRC«}
0x07500…07520 e5 46 4f 52 4d 41 54 20 20 43 4f 4d 00 00 00 0c 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FORMAT COM ┆
0x07520…07540 e5 4c 4f 41 44 20 20 20 20 43 4f 4d 00 00 00 0e 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ LOAD COM ┆
0x07540…07560 e5 50 49 50 20 20 20 20 20 43 4f 4d 00 00 00 3a 18 00 19 00 1a 00 1b 00 00 00 00 00 00 00 00 00 ┆ PIP COM : ┆
0x07560…07580 e5 53 45 4c 45 43 54 20 20 43 4f 4d 00 00 00 02 1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SELECT COM ┆
0x07580…075a0 e5 53 54 41 54 20 20 20 20 43 4f 4d 00 00 00 29 1d 00 1e 00 1f 00 00 00 00 00 00 00 00 00 00 00 ┆ STAT COM ) ┆
0x075a0…075c0 e5 53 55 42 4d 49 54 20 20 43 4f 4d 00 00 00 0a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SUBMIT COM ┆
0x075c0…075e0 e5 53 59 53 47 45 4e 20 20 43 4f 4d 00 00 00 0b 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SYSGEN COM ! ┆
0x075e0…07600 e5 54 52 41 4e 53 46 45 52 43 4f 4d 00 00 00 0d 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRANSFERCOM " ┆
0x07600…07800 (3, 1, 3) DataBlock {»PROG.SRC«}
0x07800…07820 (3, 1, 4) 6e c2 bc 40 ec 3b b4 0e e1 11 68 10 06 6d a3 07 1d 68 00 05 bb 2a ed 03 8e b3 f8 02 dd 85 76 81 ┆n @ ; h m h * v ┆
0x07820…07840 d8 77 88 1d c2 e3 11 6a 30 01 50 00 00 11 1c 00 03 27 e7 f0 11 85 5d 82 05 55 84 20 22 c2 00 06 ┆ w j0 P ' Å U " ┆
0x07840…07860 46 c2 01 50 00 00 eb 10 80 00 0c da 66 12 ca b2 e1 02 1d 06 00 e5 66 80 00 0c 17 09 e4 ee fe 10 ┆F P f f ┆
0x07860…07880 08 d8 56 18 21 87 47 02 45 55 b8 20 22 c2 00 06 4f c4 f7 f0 ad 95 6d 02 1f c2 d6 55 b4 08 7f 0c ┆ V ! G EU " O m U ┆
0x07880…078a0 1b 56 f4 21 fc 3a 69 5b d0 86 28 87 41 80 01 84 0c 3b 9e 10 2a b3 01 0e 50 88 d0 00 19 2f 08 ca ┆ V ! :iÆ ( A ; * P / ┆
0x078a0…078c0 cd 56 68 00 00 c3 b2 e1 03 61 00 8c 0a c2 b9 e1 02 1d 06 00 e3 72 b0 4f 2e 17 f0 81 95 47 02 5f ┆ Vh a r O. G _┆
0x078c0…078e0 c0 86 55 08 09 3b 88 dc a2 ab 7c 10 e5 08 8d 00 01 92 f0 8c ac d5 66 dc a0 81 55 ec 08 08 b0 80 ┆ U ; ø f U ┆
0x078e0…07900 01 92 70 18 00 c5 61 dd b0 87 28 47 41 80 1f 52 66 f3 e2 69 6a e1 65 5e a0 81 58 d8 40 c3 bd 41 ┆ p a (GA Rf ij e^ X @ A┆
0x07900…07920 02 1d 06 00 eb 15 6a 30 00 08 24 00 09 75 b3 6c 70 13 25 ca d5 62 b3 40 00 06 49 f5 76 c0 3e 2e ┆ j0 $ u lp % b @ I v >.┆
0x07920…07940 99 32 e0 00 09 70 08 04 b8 0c 02 5c 08 01 2e 05 00 97 04 80 4b 84 c0 25 c3 60 12 e2 70 09 71 40 ┆ 2 p Ø . K % ` p q@┆
0x07940…07960 04 b8 a4 02 5c 6a 01 2e 36 00 97 1b 80 4b 90 c0 25 c8 a0 12 e4 60 09 72 90 04 b9 4c 02 5c a8 01 ┆ Øj .6 K % ` r L Ø ┆
0x07960…07980 2e 55 00 97 2b 00 4b 96 00 25 cb 40 12 e6 40 09 73 30 04 b9 9c 02 5c d0 01 2e 7d 00 97 3f 80 4b ┆.U + K % @ @ s0 Ø .å ? K┆
0x07980…079a0 a0 00 25 d0 20 12 e8 30 09 75 18 04 ba 94 02 5d 4c 01 19 7a 07 a8 08 69 0a e6 31 dc c0 78 80 8a ┆ % 0 u ÅL z i 1 x ┆
0x079a0…079c0 a2 a5 1d 2b 08 88 08 e8 aa 51 98 80 8c 80 8e 8a a8 86 91 1d fb 07 88 08 ea 8a 51 d4 30 88 80 98 ┆ + Q Q 0 ┆
0x079c0…079e0 8a a5 19 fb 08 88 09 88 c8 51 d1 30 88 80 98 a6 a5 19 30 09 88 09 aa c9 91 de a0 78 80 9c 8a a5 ┆ Q 0 0 x ┆
0x079e0…07a00 1d 9c 07 88 0a 48 28 51 d3 f0 68 80 a4 82 89 1d 6c 06 88 0a 48 8a d1 d5 f0 68 80 a4 9a 99 19 7b ┆ H(Q h l H h æ┆
0x07a00…07b80 (3, 1, 5) DataBlock {»PROG.SRC«}
0x07b80…07ba0 2c 27 61 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,'a' : BEGIN ┆
0x07ba0…07bc0 49 20 3a 3d 20 31 3b 20 20 20 20 28 2a 20 54 4f 20 44 45 4d 4f 4e 53 54 52 41 54 45 20 41 43 43 ┆I := 1; (* TO DEMONSTRATE ACC┆
0x07bc0…07be0 45 53 53 20 4f 46 20 47 4c 4f 42 41 4c 53 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ESS OF GLOBALS *) ┆
0x07be0…07c00 20 20 20 20 20 4f 56 4c 31 20 20 20 20 20 20 20 28 2a 20 46 52 4f 4d 20 41 4e 20 4f 56 45 52 4c ┆ OVL1 (* FROM AN OVERL┆
0x07c00…07c20 (3, 1, 6) 08 88 0a 49 c8 71 d9 40 78 80 a4 9c 8f 1d db 08 88 0a 4a 46 51 d5 b0 88 80 a4 a4 99 1d 52 06 88 ┆ I q @x JFQ R ┆
0x07c20…07c40 0a 4a 68 51 d8 60 8c 80 a4 a6 8a a8 61 1d 76 08 c8 0a 4a 68 aa 86 31 db d0 8c 80 a4 a6 8a a8 67 ┆ JhQ ` a v Jh 1 g┆
0x07c40…07c60 19 77 08 c8 0a 6b 2a 69 29 d1 d8 60 68 80 ae a4 99 19 fc 04 c8 0b 08 89 2a c8 91 dc f0 38 80 b0 ┆ w k*i) `h * 8 ┆
0x07c60…07c80 9e a1 19 f8 08 68 e8 aa 91 d3 60 5a a4 9e aa 9c 89 1d ea 08 6a 4a 46 51 de 80 8c a4 a4 ac 82 98 ┆ h `Z jJFQ ┆
0x07c80…07ca0 93 1d 1c 09 aa 4a 4b 09 2a 91 d1 40 5a a8 a4 aa 9c 87 38 00 00 9e 1a 69 0a e6 31 dc c0 78 80 8a ┆ JK * @Z 8 i 1 x ┆
0x07ca0…07cc0 a2 a5 1d 2b 08 88 08 e8 aa 51 98 80 8c 80 8e 8a a8 86 91 1d fb 07 88 08 ea 8a 51 d4 30 88 80 98 ┆ + Q Q 0 ┆
0x07cc0…07ce0 8a a5 19 fb 08 88 09 88 c8 51 d1 30 88 80 98 a6 a5 19 30 09 88 09 aa c9 91 de a0 78 80 9c 8a a5 ┆ Q 0 0 x ┆
0x07ce0…07d00 1d 9c 07 88 0a 48 28 51 d3 f0 68 80 a4 82 89 1d 6c 06 88 0a 48 8a d1 d5 f0 68 80 a4 9a 99 19 7b ┆ H(Q h l H h æ┆
0x07d00…07d20 02 1d 06 00 eb 15 6a 30 00 08 24 00 09 75 b3 6c 70 13 25 ca d5 62 b3 40 00 06 49 f5 76 c0 3e 2e ┆ j0 $ u lp % b @ I v >.┆
0x07d20…07d40 99 32 e0 00 09 70 08 04 b8 0c 02 5c 08 01 2e 05 00 97 04 80 4b 84 c0 25 c3 60 12 e2 70 09 71 40 ┆ 2 p Ø . K % ` p q@┆
0x07d40…07d60 04 b8 a4 02 5c 6a 01 2e 36 00 97 1b 80 4b 90 c0 25 c8 a0 12 e4 60 09 72 90 04 b9 4c 02 5c a8 01 ┆ Øj .6 K % ` r L Ø ┆
0x07d60…07d80 2e 55 00 97 2b 00 4b 96 00 25 cb 40 12 e6 40 09 73 30 04 b9 9c 02 5c d0 01 2e 7d 00 97 3f 80 4b ┆.U + K % @ @ s0 Ø .å ? K┆
0x07d80…07da0 a0 00 25 d0 20 12 e8 30 09 75 18 04 ba 94 02 5d 4c 01 19 7a 07 a8 08 69 0a e6 31 dc c0 78 80 8a ┆ % 0 u ÅL z i 1 x ┆
0x07da0…07dc0 a2 a5 1d 2b 08 88 08 e8 aa 51 98 80 8c 80 8e 8a a8 86 91 1d fb 07 88 08 ea 8a 51 d4 30 88 80 98 ┆ + Q Q 0 ┆
0x07dc0…07de0 8a a5 19 fb 08 88 09 88 c8 51 d1 30 88 80 98 a6 a5 19 30 09 88 09 aa c9 91 de a0 78 80 9c 8a a5 ┆ Q 0 0 x ┆
0x07de0…07e00 1d 9c 07 88 0a 48 28 51 d3 f0 68 80 a4 82 89 1d 6c 06 88 0a 48 8a d1 d5 f0 68 80 a4 9a 99 19 7b ┆ H(Q h l H h æ┆
0x07e00…07e20 (3, 1, 7) f0 19 62 20 01 19 f9 fc 30 6d 5b 80 27 f0 e9 a5 6e 00 9c c0 f2 78 eb 11 00 2c 46 58 88 00 46 7e ┆ b 0mÆ ' n x ,FX Fü┆
0x07e20…07e40 7f 0c 1b 56 e0 09 fc 3a 69 5b 80 27 30 3c 0e 07 03 81 dc cf 01 96 23 00 11 9f 9f c3 06 d5 b8 02 ┆ V :iÆ '0< # ┆
0x07e40…07e60 7f 0e 9a 56 e0 09 cc 0f 27 8e b1 18 02 c4 65 88 c0 04 67 e7 f0 c1 b5 6e 00 9f c3 a6 95 b8 02 11 ┆ V ' e g n ┆
0x07e60…07e80 b0 ea 38 1b 14 34 32 ca a0 01 35 79 3c fc 32 c0 60 02 b6 a8 47 12 00 01 81 27 e0 90 ac 36 05 61 ┆ 8 42 5y< 2 ` G ' 6 a┆
0x07e80…07ea0 56 90 30 8e 24 00 03 02 59 b5 cc 05 a2 1a 7f 09 99 56 ec 0d fc 20 65 59 30 37 f0 ed 95 70 00 cf ┆V 0 $ Y V eY07 p ┆
0x07ea0…07ec0 2b 76 55 b2 03 09 b0 eb d0 19 e5 6e c2 b5 40 63 ac 36 00 e6 07 b2 ad 90 1b 18 60 12 09 b5 41 c0 ┆+vU n @c 6 ` A ┆
0x07ec0…07ee0 16 1d 71 03 1d 61 b0 07 30 3d 87 68 00 c7 59 54 00 24 13 6a b0 eb 88 18 38 02 c3 b2 60 63 ac 06 ┆ q a 0= h YT $ j 8 `c ┆
0x07ee0…07f00 00 fe 00 0f 84 0c ab 98 06 3e 16 84 98 2c 96 08 28 43 77 40 cb e1 60 00 64 bc 23 2b 3a dd 37 cc ┆ > , (Cw@ ` d #+: 7 ┆
0x07f00…07f20 0e 85 82 52 60 4a 6a 09 52 01 2b 38 25 ac 05 b9 80 b7 64 16 fd 02 d0 f0 61 0b d9 fe 39 7c 80 c1 ┆ R`Jj R +8% d a 9ø ┆
0x07f20…07f40 45 f0 18 28 ae 03 62 88 40 40 01 c8 04 14 00 66 d2 c0 96 48 85 ec ff 1c be 40 60 a3 78 0c 14 67 ┆E ( b @@ f H @` x g┆
0x07f40…07f60 01 b1 4b c2 32 b0 84 04 00 1c 80 41 40 06 6d 2c 09 64 b4 44 2f 67 f8 e5 f2 03 62 80 41 40 06 6d ┆ K 2 A@ m, d D/g b A@ m┆
0x07f60…07f80 2c 09 64 88 40 00 01 cb ac 42 f6 7f 8e 5f 20 36 28 04 14 00 66 d2 c0 96 48 0c d2 60 11 65 60 07 ┆, d @ B _ 6( f H ` e` ┆
0x07f80…07fa0 08 8b 2c 00 33 6d 38 20 85 ec ff 1c be 42 38 24 00 02 0a 00 33 69 60 48 ab 2b 00 3a 40 66 93 00 ┆ , 3m8 B8$ 3i`H + :@f ┆
0x07fa0…07fc0 8b 2b 00 08 40 00 01 cb ac 43 96 80 00 20 a0 03 36 96 04 88 41 40 01 cb e5 c2 22 cb 00 0c db 4e ┆ + @ C 6 A@ " N┆
0x07fc0…07fe0 08 21 7b 3f c7 2f 90 8e 09 00 00 82 80 0c da 58 12 21 7b 3f c7 2f 90 8e 5a 00 00 82 80 0c da 58 ┆ !æ? / X !æ? / Z X┆
0x07fe0…08000 12 2a ca c0 0e 91 08 00 00 22 c1 20 02 2c 16 00 22 c1 a0 02 2c 1e 00 22 c2 20 02 ac b0 00 7c 5b ┆ * " , " , " øÆ┆
0x08000…08200 (3, 1, 8) 0xe5[0x200]
0x08200…08220 (3, 1, 9) bc ae 88 20 bc ce 3e 7f 8c b0 90 01 f4 5e 6f 11 9f 16 ef aa 10 0a eb 00 84 04 ec d0 00 00 f6 32 ┆ > ^o 2┆
0x08220…08240 c1 a0 0e b0 0b a0 06 cd ba c0 8d 57 58 04 c8 00 66 de 10 46 09 e4 2e 17 0b 85 dc cf 05 98 cb 07 ┆ WX f F . ┆
0x08240…08260 00 3a c0 20 a0 03 36 f4 82 1e c0 e0 70 38 1d 6a 32 c1 e0 0c 91 f0 0c 65 83 40 04 22 73 40 8b 07 ┆ : 6 p8 j2 e @ "s@ ┆
0x08260…08280 00 32 5c 22 2c c8 00 21 00 00 07 2e b1 0e 09 00 00 82 80 0c da 58 12 21 05 00 07 2f 96 6d 63 05 ┆ 2Ø", ! . X ! / mc ┆
0x08280…082a0 15 65 80 07 28 ab 32 00 3a 5c 22 2c c8 00 21 04 80 07 27 e1 96 09 00 66 dc f0 30 90 00 00 00 00 ┆ e ( 2 :Ø", ! ' f 0 ┆
0x082a0…082c0 00 00 00 02 80 00 00 3a c1 20 0b 76 15 5d 05 66 d3 f0 66 1d 18 05 66 d5 20 66 1d 18 05 10 80 00 ┆ : v Å f f f f ┆
0x082c0…082e0 01 1c 1a 00 1a 73 03 cd e1 36 6d 8b 05 09 b3 6c 58 28 8b 2c 00 0e b0 90 02 dd 90 2a cb 00 07 c1 ┆ s 6m lX( , * ┆
0x082e0…08300 79 9c fa 2f 37 88 c4 59 60 01 92 1a 0f 87 c3 e1 f7 30 3d 9b 68 81 49 e0 60 00 25 9b 68 81 43 4e ┆y /7 Y` 0= h I ` % h CN┆
0x08300…08320 60 79 3c 12 c9 6a 97 4a 82 91 48 a4 32 19 68 b2 40 60 a2 f8 0c 14 57 01 9a 4c 02 2c ac 00 21 00 ┆`y< j J H 2 h @` W L , ! ┆
0x08320…08340 00 07 2e b0 08 28 00 cd a5 81 22 10 50 00 72 f9 15 65 60 07 48 0c 14 6f 01 82 80 66 72 f0 8c ac ┆ . ( " P r e` H o fr ┆
0x08340…08360 c3 b6 60 a0 33 49 80 45 95 80 04 20 a0 00 e4 bc 23 2b 08 40 00 01 cb ac 02 0a 00 33 69 60 48 84 ┆ ` 3I E #+ @ 3i`H ┆
0x08360…08380 18 00 1c be 45 59 58 01 d2 03 2c 94 04 2f 67 f8 e5 f2 d5 00 82 80 0c da 58 12 d1 10 82 80 01 97 ┆ EYX , /g X ┆
0x08380…083a0 48 0c d2 60 11 65 60 01 08 00 00 39 75 88 70 48 00 04 14 00 66 d2 c0 91 08 28 00 39 2f 08 ca c2 ┆H ` e` 9u pH f ( 9/ ┆
0x083a0…083c0 10 00 00 72 73 11 9c 84 61 1c 12 00 01 05 00 19 b4 b0 24 55 95 80 1d 2e 11 16 56 00 66 d7 90 66 ┆ rs a $U . V f f┆
0x083c0…083e0 6d 00 00 10 82 80 03 97 c8 ab 2b 00 3a 5c 22 2c ac 00 cd af 20 cc da 7a 00 c3 a9 20 ce 11 16 56 ┆m + :Ø", z V┆
0x083e0…08400 00 66 d7 90 66 6d cb 00 61 d4 90 67 08 8b 2b 00 33 6b c8 33 36 c8 80 b0 ea 48 30 84 16 00 1c ba ┆ f fm a g + 3k 36 H0 ┆
0x08400…08500 (4, 0, 1) DataBlock {»MOD2.SRC«}
0x08500…08520 e5 46 4f 52 4d 41 54 20 20 43 4f 4d 00 00 00 0c 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ FORMAT COM ┆
0x08520…08540 e5 4c 4f 41 44 20 20 20 20 43 4f 4d 00 00 00 0e 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ LOAD COM ┆
0x08540…08560 e5 50 49 50 20 20 20 20 20 43 4f 4d 00 00 00 3a 18 00 19 00 1a 00 1b 00 00 00 00 00 00 00 00 00 ┆ PIP COM : ┆
0x08560…08580 e5 53 45 4c 45 43 54 20 20 43 4f 4d 00 00 00 02 1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SELECT COM ┆
0x08580…085a0 e5 53 54 41 54 20 20 20 20 43 4f 4d 00 00 00 29 1d 00 1e 00 1f 00 00 00 00 00 00 00 00 00 00 00 ┆ STAT COM ) ┆
0x085a0…085c0 e5 53 55 42 4d 49 54 20 20 43 4f 4d 00 00 00 0a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SUBMIT COM ┆
0x085c0…085e0 e5 53 59 53 47 45 4e 20 20 43 4f 4d 00 00 00 0b 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SYSGEN COM ! ┆
0x085e0…08600 e5 54 52 41 4e 53 46 45 52 43 4f 4d 00 00 00 0d 22 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRANSFERCOM " ┆
0x08600…08800 (4, 0, 2) DataBlock {»MTPLUS.000«}
0x08800…08820 (4, 0, 3) 42 00 00 39 59 b5 34 01 e2 d2 b8 00 22 ac 68 00 e5 10 80 00 0e 56 68 00 00 08 66 db 60 10 83 0e ┆B 9Y 4 " h Vh f ` ┆
0x08820…08840 aa 81 88 71 b0 03 95 9b 72 00 40 02 12 80 01 ca cd ae 60 22 1b cc 00 5e 11 95 9d 61 16 10 00 32 ┆ q r @ `" ^ a 2┆
0x08840…08860 eb 10 80 00 01 90 b0 00 bc eb 3e 8c b4 40 00 eb 44 00 09 80 06 f7 28 84 40 00 72 b3 6a 68 0b c5 ┆ > @ D ( @ r jh ┆
0x08860…08880 a5 62 80 87 5a 20 00 4c 00 37 b9 44 20 80 03 95 9b 69 c0 5e 2d 2a 68 04 21 c6 c0 01 60 01 79 aa ┆ b Z L 7 D i ^-*h ! ` y ┆
0x08880…088a0 21 00 00 1c ac db e6 02 f1 69 53 10 21 0e 36 00 75 88 40 00 00 cb 94 43 8d 80 02 c0 02 f3 ac 56 ┆! iS ! 6 u @ C V┆
0x088a0…088c0 eb 70 9c d8 75 58 08 43 8d 80 1c ac da b0 02 21 c6 c0 0e 56 6d 5f 01 1d 68 80 01 30 00 de e5 66 ┆ p uX C ! Vm_ h 0 f┆
0x088c0…088e0 d6 90 16 6d 6c 01 10 94 00 0e 56 6d cd 01 10 dd 00 12 f0 8c ac d5 10 d5 70 22 f0 8c ac eb 08 8d ┆ ml Vm p" ┆
0x088e0…08900 00 01 92 f0 8c ac d5 66 dc 80 01 0d 5e 02 2f 08 ca ce b0 8b 08 00 19 75 88 40 00 00 c8 58 00 5e ┆ f ^ / u @ X ^┆
0x08900…08920 75 9f 46 5a 20 01 87 79 c0 44 38 00 01 ca 21 c0 00 0e 56 6d a1 00 10 91 40 0e 56 6d 31 00 10 8b ┆u FZ y D8 ! Vm @ Vm1 ┆
0x08920…08940 80 0e 56 6d 9a 02 66 d3 40 06 6d a4 02 66 d3 70 01 08 04 00 e5 10 e3 60 00 b0 00 bc d5 68 b8 45 ┆ Vm f @ m f p ` h E┆
0x08940…08960 6e 56 a8 8b 45 00 34 5c 22 37 2b 55 9a 00 00 08 b4 90 00 ab 45 00 08 c4 5a 28 00 55 a4 80 05 62 ┆nV E 4Ø"7+U E Z( U b┆
0x08960…08980 2d 24 00 7c 5a b2 aa 28 18 87 1b 00 3a c5 5a 28 00 32 16 00 17 9a a2 1c 00 00 e5 66 d9 30 26 6d ┆-$ øZ ( : Z( 2 f 0&m┆
0x08980…089a0 a4 00 70 9f 45 e1 f6 95 42 03 10 d7 00 22 f0 8c ac eb 11 68 c0 01 08 00 00 e5 66 80 00 0c d0 00 ┆ p E B " h f ┆
0x089a0…089c0 00 43 41 40 dc ac da 12 06 cd a5 a0 61 42 11 84 c8 20 39 19 4c 26 c1 60 80 a8 72 3c 88 0c 26 73 ┆ CA@ aB 9 L& ` r< &s┆
0x089c0…089e0 09 a4 dc 3a 66 80 00 0c d0 00 00 43 7e c0 9c a2 ad 18 00 eb 70 9c c4 67 26 18 00 00 c3 b9 40 42 ┆ :f Cü p g& @B┆
0x089e0…08a00 ac 68 00 e5 10 e3 60 07 2b 36 c4 80 b8 4f a3 2d 1e 00 c9 98 a0 01 b0 ec 98 0c 64 3c 06 20 28 29 ┆ h ` +6 O - d< ()┆
0x08a00…08c00 (4, 0, 4) DataBlock {»MTPLUS.000«}
0x08c00…08c20 (4, 0, 5) aa 46 45 80 62 02 82 62 24 64 30 0e 20 21 a9 26 46 41 40 a2 02 2a 8a 4c 64 5c 0a 20 27 22 a4 c6 ┆ FE b b$d0 ! &FA@ * LdØ '" ┆
0x08c20…08c40 71 40 a2 02 32 4a 74 64 4c 0e 20 29 a3 21 46 4b 80 e2 02 22 ba 24 64 c4 0e 20 2b a9 29 c6 6e 80 ┆q@ 2JtdL ) !FK " $d + ) n ┆
0x08c40…08c60 62 02 c2 7a 84 65 50 0a 20 29 aa 29 46 69 c0 a2 02 9a 0a 24 67 c4 0a 20 29 a4 a7 46 68 40 a2 02 ┆b z eP ) )Fi $g ) Fh@ ┆
0x08c60…08c80 12 9a a4 64 58 02 20 21 29 a9 46 53 40 a2 02 62 12 0c 64 e4 0a 20 24 a9 a1 46 50 00 a2 02 1a 72 ┆ dX !) FS@ b d $ FP r┆
0x08c80…08ca0 1c 65 28 0a 20 21 a1 a4 46 6a 80 a2 02 9a 9a a4 67 b8 0a 20 29 a6 22 46 5b 40 9a 3a 2a a4 65 38 ┆ e( ! Fj g ) "FÆ@ :* e8┆
0x08ca0…08cc0 0e a1 a7 2b 29 26 46 4d 00 e2 02 62 32 14 64 64 07 20 29 ac a9 a4 a7 46 48 00 62 02 92 72 1c 65 ┆ +)&FM b2 dd ) FH b r e┆
0x08cc0…08ce0 d8 07 20 23 a2 aa 21 a4 46 43 c0 f2 7a aa a2 82 aa a4 e0 00 00 85 d5 d4 95 14 91 50 53 25 15 40 ┆ # ! FC z PS% @┆
0x08ce0…08d00 13 47 90 78 11 01 5d 49 32 01 2a 61 80 00 0c 30 00 01 86 00 00 30 c0 00 06 18 00 00 c3 00 00 26 ┆ G x ÅI2 *a 0 0 &┆
0x08d00…08d20 20 80 0c d0 00 01 9a 00 00 03 30 50 03 34 00 00 66 d1 60 00 06 0a 00 66 80 00 0c da 3e 00 0c c1 ┆ 0P 4 f ` f > ┆
0x08d20…08d40 40 0c da 50 00 00 c1 40 0c da 5c 00 12 00 a0 00 00 06 68 00 00 f1 69 57 80 01 0b b9 fe 22 c1 c0 ┆@ P @ Ø h iW " ┆
0x08d40…08d60 02 ac 1c 00 e5 10 80 00 0e 56 68 00 00 2a c1 c0 0e 56 68 00 00 cd a6 80 00 0c 14 00 cd 00 00 1c ┆ Vh * Vh ┆
0x08d60…08d80 2d 13 ea 8c 3e d2 ae a0 02 ac 1c 00 23 11 60 e0 06 1d 48 00 61 da b0 01 08 00 00 22 c1 c0 02 ac ┆- > # ` H a " ┆
0x08d80…08da0 1c 00 e5 10 84 c0 0e 56 6d 51 00 15 60 e0 07 2b 36 ac 00 33 6a d8 00 03 05 00 33 6b 08 03 85 a2 ┆ VmQ ` +6 3j 3k ┆
0x08da0…08dc0 7d 51 87 da 56 ac 00 55 83 80 04 62 2c 1c 00 c3 af c0 02 ac 1c 00 22 c0 00 02 ac 00 00 e3 74 cc ┆åQ V U b, " t ┆
0x08dc0…08de0 42 80 19 b4 4c 01 c2 22 c5 00 0e 11 16 2a 00 70 88 b1 60 03 36 8e 00 08 40 20 07 28 ab 16 00 39 ┆B L " * p ` 6 @ ( 9┆
0x08de0…08e00 5a 2e 11 5b 95 aa 22 c5 c0 0d 17 08 8d ca d5 66 80 00 02 2d 44 00 2a c5 c0 02 31 16 2e 00 15 6a ┆Z. Æ " f -D * 1 . j┆
0x08e00…09000 (4, 0, 6) DataBlock {»MTPLUS.000«}
0x09000…09020 (4, 0, 7) 20 01 58 8b 51 00 1f 16 ac aa e0 02 2a c5 40 0e 56 6d 91 00 02 33 6f d8 00 03 11 00 33 40 00 06 ┆ X Q * @ Vm 3o 3@ ┆
0x09020…09040 68 00 00 e1 11 63 00 01 56 28 00 72 b3 40 00 01 56 28 00 72 b3 40 00 01 08 c0 00 eb 15 63 00 00 ┆h c V( r @ V( r @ c ┆
0x09040…09060 cb 95 9a 00 00 33 40 00 01 09 44 00 e5 66 80 00 02 ac 54 00 e5 15 62 a0 07 2b 36 ff 80 01 05 58 ┆ 3@ D f T b +6 X┆
0x09060…09080 c0 01 ca cd a7 60 20 0c 44 00 cd a8 60 20 a6 68 00 00 cd 00 00 19 b5 24 04 20 cd aa 60 20 0c 44 ┆ ` D ` h $ ` D┆
0x09080…090a0 00 21 05 00 1c ac da ae 02 08 66 d0 50 16 6d 61 01 06 62 20 06 1d e3 00 64 cc 41 c0 19 b6 dc 01 ┆ ! f P ma b d A ┆
0x090a0…090c0 c2 22 c2 00 0e 11 16 12 00 70 88 b0 a0 03 36 b4 00 83 30 b0 03 36 e3 00 33 6c 08 08 03 0b 00 08 ┆ " p 6 0 6 3l ┆
0x090c0…090e0 40 00 07 2b 36 c5 00 82 19 a0 00 03 c5 a5 6b c0 44 20 00 03 95 9b 65 00 41 0c db 46 02 0c c3 40 ┆@ +6 k D e A F @┆
0x090e0…09100 0c 3b ea 02 cd b4 e0 20 0c 2c 00 cd a4 a0 0c db 60 02 0c c3 40 0c db 72 02 00 c3 40 02 10 28 01 ┆ ; , ` @ r @ ( ┆
0x09100…09120 ca 21 05 00 1c ac db 7e 02 08 66 dc d0 10 53 36 b2 80 8a b0 90 01 78 46 56 75 9f 45 e6 f3 e0 bc ┆ ! ü f S6 xFVu E ┆
0x09120…09140 ce 23 72 b3 6c 70 03 36 a6 80 b3 40 00 06 6d d1 01 06 61 a0 06 6d f0 01 00 61 a0 06 6d 08 01 10 ┆ #r lp 6 @ m a m a m ┆
0x09140…09160 80 00 0e 56 68 00 00 f1 69 51 20 21 08 04 00 22 c4 00 0c 3a 3e 04 cd be c0 20 0c 34 00 cd a0 60 ┆ Vh iQ ! " :> 4 `┆
0x09160…09180 0e 11 16 20 00 15 62 00 07 28 ab 09 00 17 84 65 67 5b 44 32 23 11 61 e0 06 6d 13 02 00 61 60 01 ┆ b ( egÆD2# a m a` ┆
0x09180…091a0 08 00 00 e5 66 d3 10 20 43 36 9e 00 3c 5a 55 30 08 55 87 80 04 62 2c 3c 00 2a c2 00 0e 56 6d 54 ┆ f C6 <ZU0 U b,< * VmT┆
0x091a0…091c0 02 00 08 4a 20 07 2b 36 98 00 88 40 20 07 28 ab 0a 00 17 84 65 66 a8 ab 0f 00 34 4f 69 53 79 e9 ┆ J +6 @ ( ef 4OiSy ┆
0x091c0…091e0 38 67 72 b4 5c 22 b7 2b 54 45 89 80 1a 2e 11 1b 95 aa cd bb c0 02 2d 48 00 2a c4 c0 02 31 16 26 ┆8gr Ø" +TE . -H * 1 &┆
0x091e0…09200 00 15 6a 40 01 58 8b 52 00 1f 16 ac ab 72 04 2a c2 00 0e 56 6d 13 01 15 61 00 07 2b 36 8d 00 88 ┆ j@ X R r * Vm a +6 ┆
0x09200…09400 (4, 0, 8) DataBlock {»MTPLUS.000«}
[…0x14…]
0x0bc00…0be00 (5, 1, 2) DataBlock {»LINKMT.COM«}
0x0be00…0c000 (5, 1, 3) DataBlock {»MTPLUS.000«}
0x0c000…0c200 (5, 1, 4) DataBlock {»LINKMT.COM«}
0x0c200…0c220 (5, 1, 5) a0 44 04 14 d4 49 40 10 04 d5 7c 01 c2 22 c0 00 0e 16 8b 05 8a cd a3 60 0c 13 cb 36 9e 00 33 6a ┆ D I@ ø " ` 6 3j┆
0x0c220…0c240 50 01 dc 46 36 00 0a b0 00 03 a4 26 13 09 81 80 81 a6 6d 43 00 0d 81 58 54 80 00 26 c9 7a b3 40 ┆P F6 & mC XT & z @┆
0x0c240…0c260 00 05 bb ea 96 00 3c 59 2c da 56 00 cd 00 00 19 2c da 56 00 cd 00 00 19 2c da 56 00 cd 00 00 19 ┆ <Y, V , V , V ┆
0x0c260…0c280 2d 50 30 11 9b 4d 40 02 41 30 2b 0a a6 80 34 59 b4 b4 01 6e fa aa e0 0c 99 70 00 04 b8 08 02 3a ┆-P0 M@ A0+ 4Y n p :┆
0x0c280…0c2a0 00 01 10 10 53 51 23 2b 00 15 01 24 e4 d5 0e 32 72 01 50 12 4e 4d 51 23 28 00 15 01 3c e4 d5 0e ┆ SQ#+ $ 2r P NMQ#( < ┆
0x0c2a0…0c2c0 32 8e 01 50 13 ce 4d 51 27 00 00 00 9e 09 81 80 81 a6 6d 43 00 0d 81 58 54 80 00 26 c9 7a b3 40 ┆2 P MQ' mC XT & z @┆
0x0c2c0…0c2e0 00 05 bb ea 96 00 3c 59 2c da 56 00 cd 00 00 19 2c da 56 00 cd 00 00 19 2c da 56 00 cd 00 00 19 ┆ <Y, V , V , V ┆
0x0c2e0…0c300 2d 50 30 11 9b 4d 40 02 41 30 2b 0a a6 80 34 59 b4 b4 01 6e fa aa e0 0c 99 70 00 04 b8 08 02 3a ┆-P0 M@ A0+ 4Y n p :┆
0x0c300…0c320 17 00 33 6d b0 00 33 12 00 33 6d e0 00 03 12 00 33 6e 10 00 51 93 1d 0c 00 49 89 d3 10 d0 06 6d ┆ 3m 3 3m 3n Q I m┆
0x0c320…0c340 77 00 66 dc 80 00 66 3e 00 66 d8 00 01 08 24 00 e5 10 e3 e0 07 28 87 21 00 39 59 b6 3c 00 55 90 ┆w f f> f $ ( ! 9Y < U ┆
0x0c340…0c360 80 1d 62 10 f0 00 fa a3 37 9f 14 46 77 28 84 10 00 72 b3 6d 20 03 c5 a5 42 c0 44 20 10 03 94 42 ┆ b 7 Fw( r m B D B┆
0x0c360…0c380 07 00 39 59 b6 cc 01 9b 74 00 00 18 f8 01 9b 43 00 41 98 d0 01 9b 44 80 40 18 d0 01 9b 46 00 42 ┆ 9Y t C A D @ F B┆
0x0c380…0c3a0 8c 98 e8 78 06 41 52 43 54 41 4e 98 88 00 33 6e 68 03 36 8f 00 83 32 70 03 36 eb 00 08 40 e0 07 ┆ x ARCTAN 3nh 6 2p 6 @ ┆
0x0c3a0…0c3c0 28 87 27 00 39 44 39 48 01 ca cd bc a0 0c da 4c 02 00 c9 c0 0c da 7c 02 0c c8 80 0c da 88 02 00 ┆( ' 9D9H L ø ┆
0x0c3c0…0c3e0 c8 80 0c da 94 02 14 64 c6 48 c0 62 02 82 9a a4 64 b0 06 20 28 26 22 46 7e 80 22 02 2a 8a 4c 65 ┆ d H b d (&"Fü " * Le┆
0x0c3e0…0c400 40 06 20 2c 27 a8 46 42 40 62 02 2a 92 94 64 ec 06 20 20 a6 a2 4e 00 00 00 85 90 54 15 54 d5 50 ┆@ ,' FB@b * d N T T P┆
0x0c400…0c600 (5, 1, 6) DataBlock {»LINKMT.COM«}
0x0c600…0c800 (5, 1, 7) 0xe5[0x200]
0x0c800…0ca00 (5, 1, 8) DataBlock {»LINKMT.COM«}
0x0ca00…0cc00 (5, 1, 9) 0xe5[0x200]
0x0cc00…0ce00 (6, 0, 1) DataBlock {»LINKMT.COM«}
[…0x12…]
0x0f100…0f120 63 69 6d 61 6c 29 20 72 65 63 6f 72 64 73 20 77 72 69 74 74 65 6e 20 74 6f 20 2e 43 4f 4d 20 66 ┆cimal) records written to .COM f┆
0x0f120…0f140 69 6c 65 0d 0a 0d 0a 24 52 65 6d 61 69 6e 69 6e 67 20 3a 20 78 78 78 78 48 20 62 79 74 65 73 0d ┆ile $Remaining : xxxxH bytes ┆
0x0f140…0f160 0a 24 0d 0a 49 6e 76 61 6c 69 64 20 73 79 6e 74 61 78 20 66 6f 72 20 69 6e 70 75 74 20 66 69 6c ┆ $ Invalid syntax for input fil┆
0x0f160…0f180 65 20 6e 61 6d 65 0d 0a 24 0d 0a 44 75 70 6c 69 63 61 74 65 20 53 79 6d 62 6f 6c 20 66 6f 75 6e ┆e name $ Duplicate Symbol foun┆
0x0f180…0f1a0 64 3a 20 24 0d 0a 44 75 70 6c 69 63 61 74 65 20 53 79 6d 62 6f 6c 73 20 64 65 74 65 63 74 65 64 ┆d: $ Duplicate Symbols detected┆
0x0f1a0…0f1c0 0d 0a 24 0d 0a 4f 75 74 20 6f 66 20 4d 65 6d 6f 72 79 0d 0a 24 0d 0a 49 6d 70 72 6f 70 65 72 20 ┆ $ Out of Memory $ Improper ┆
0x0f1c0…0f1e0 42 61 63 6b 63 68 61 69 6e 20 44 65 74 65 63 74 65 64 0d 0a 24 0d 0a 53 59 53 4d 45 4d 20 6e 6f ┆Backchain Detected $ SYSMEM no┆
0x0f1e0…0f200 74 20 66 6f 75 6e 64 20 69 6e 20 2e 53 59 4d 20 66 69 6c 65 0d 0a 24 0d 0a 45 78 74 65 72 6e 61 ┆t found in .SYM file $ Externa┆
0x0f200…0f400 (7, 0, 2) DataBlock {»PASLIB.ERL«}
0x0f400…0f420 (7, 0, 3) 95 00 44 c0 03 7b 94 42 30 00 39 59 b7 a4 2c 75 95 00 44 c0 03 7b 94 42 39 00 39 59 b7 dc 2d c2 ┆ D æ B0 9Y ,u D æ B9 9Y - ┆
0x0f420…0f440 d1 3e a8 cd ed 13 ea cc 3e d2 b0 41 83 ac a8 02 26 00 1b dc a2 12 f8 01 ca cd a4 e0 62 ac 74 04 ┆ > > A & b t ┆
0x0f440…0f460 e5 10 82 40 0e 56 6d 02 0a 70 b4 4f aa 30 fb 4a bb 86 0a b1 d0 10 8c 45 8e 80 85 58 e0 09 ca 2a ┆ @ Vm p O 0 J E X *┆
0x0f460…0f480 c7 40 42 b6 88 65 ca 3a ca 80 22 60 01 bd d6 e1 39 b3 69 40 03 84 fa 32 ca 80 2c 3b ba 16 c9 10 ┆ @B e : "` 9 i@ 2 ,; ┆
0x0f480…0f4a0 80 40 07 d1 96 18 00 10 e3 c0 27 2b 36 a7 80 33 69 d0 03 84 fa 2f 0f b4 ad a0 60 87 1e 01 39 44 ┆ @ '+6 3i / ` 9D┆
0x0f4a0…0f4c0 38 68 01 ca 21 04 00 1c ac db 38 16 21 00 00 0f a3 2c 46 00 c3 a9 21 c2 1c 54 00 e5 10 84 00 0e ┆8h ! 8 ! ,F ! T ┆
0x0f4c0…0f4e0 51 0e 00 00 72 b3 40 00 01 0e 2a 00 72 88 42 00 07 2b 34 00 00 66 d2 e0 01 0e 1a 00 11 6d c0 41 ┆Q r @ * r B +4 f m A┆
0x0f4e0…0f500 0e 3c 02 72 b3 6a 00 03 c5 a5 45 83 85 5b 70 10 22 09 00 06 42 c0 02 f3 54 42 02 00 39 59 b5 48 ┆ < r j E Æp " B TB 9Y H┆
0x0f500…0f520 31 e2 d2 b9 e1 a3 ac a8 02 26 00 1b dc a2 11 d0 01 ca cd a1 61 8f 16 95 cc 0d 66 d2 80 07 09 f4 ┆1 & a f ┆
0x0f520…0f540 65 95 00 45 5b 70 10 22 08 00 06 42 c0 02 f3 ac fa 32 c8 80 42 1c 78 04 e5 66 d4 f0 01 0e 2a 00 ┆e EÆp " B 2 B x f * ┆
0x0f540…0f560 72 88 42 00 07 28 87 00 00 39 59 b7 04 30 43 8a 80 1c a2 10 80 01 ca cd b9 81 8c da 5c 00 21 00 ┆r B ( 9Y 0C Ø ! ┆
0x0f560…0f580 00 0f a3 2c 8c 04 3a c8 c0 42 60 01 bc fa 2f 37 b9 59 b4 dc 01 c2 7d 17 9b da 27 d5 18 7d a5 62 ┆ , : B` /7 Y å ' å b┆
0x0f580…0f5a0 03 44 38 f0 09 ca cd a8 00 03 ac 44 00 26 00 1b dc a3 ac 88 04 26 00 1b dc ac da 08 1a e1 68 9f ┆ D8 D & & h ┆
0x0f5a0…0f5c0 54 66 f3 e8 cb 23 01 30 ea 60 68 eb 23 01 09 80 06 f3 e8 bc 3e d2 b9 81 a2 1c 78 04 e5 10 d2 60 ┆Tf # 0 `h # > x `┆
0x0f5c0…0f5e0 b7 2b 36 95 05 88 41 00 07 2b 36 a4 85 b3 6f d0 2b 36 dc 86 83 04 06 e3 79 d0 40 70 39 19 4e 66 ┆ +6 A +6 o +6 y @p9 Nf┆
0x0f5e0…0f600 53 71 d1 9b 69 03 59 b5 30 2d 9b 53 c2 c4 20 00 01 f4 65 86 00 18 75 24 39 87 44 c3 87 58 98 00 ┆Sq i Y 0- S e u$9 D X ┆
0x0f600…0f800 (7, 0, 4) DataBlock {»PASLIB.ERL«}
[…0x2a…]
0x14c00…14e00 (9, 1, 2) DataBlock {»MTPLUS.COM«}
0x14e00…15000 (9, 1, 3) DataBlock {»PASLIB.ERL«}
0x15000…15200 (9, 1, 4) DataBlock {»MTPLUS.COM«}
0x15200…15400 (9, 1, 5) DataBlock {»PASLIB.ERL«}
0x15400…15600 (9, 1, 6) DataBlock {»MTPLUS.COM«}
0x15600…15800 (9, 1, 7) DataBlock {»PASLIB.ERL«}
0x15800…15a00 (9, 1, 8) DataBlock {»MTPLUS.COM«}
0x15a00…15b00 (9, 1, 9) DataBlock {»PASLIB.ERL«}
0x15b00…15b20 19 35 3d 59 15 49 26 70 00 00 84 d0 d2 15 e0 64 05 05 55 44 34 88 15 01 31 15 05 12 04 40 43 48 ┆ 5=Y I&p d UD4 1 @CH┆
0x15b20…15b40 57 81 50 10 d2 15 cc 65 00 00 13 52 f0 06 0b 85 c2 c5 66 d1 10 07 0b 05 ca c5 2c b3 69 40 03 05 ┆W P e R f , i@ ┆
0x15b40…15b60 92 11 00 80 03 27 d5 a3 20 5a c8 16 b2 03 c2 07 2b 36 94 00 38 45 ac 2a 38 00 c9 70 b5 5c a2 a0 ┆ ' Z +6 8E *8 p Ø ┆
0x15b60…15b80 00 01 d3 1d 00 00 88 08 69 0a f1 d0 70 0a 80 86 90 ae 63 1d 11 00 a8 09 88 a8 28 91 d2 80 0c 80 ┆ i p c ( ┆
0x15b80…15ba0 a0 aa a8 86 91 19 2c 00 c8 0a 6b 2a 69 ea b3 80 00 00 85 13 55 53 15 20 44 04 d5 54 c8 11 01 35 ┆ , k*i US D T 5┆
0x15ba0…15bc0 55 62 50 00 01 35 2a 00 75 84 40 00 03 c9 20 0c 08 0f b4 a8 78 03 ac 32 eb 14 81 58 54 20 00 f2 ┆UbP 5* u @ x 2 XT ┆
0x15bc0…15be0 a7 61 50 50 07 5b 8d d2 e1 60 b4 5c ac 3a 00 00 4d 22 33 68 00 03 85 93 1d 1c 00 88 09 aa a9 91 ┆ aPP Æ ` Ø : M"3h ┆
0x15be0…15c00 d2 30 08 80 9a aa b1 38 00 00 85 94 d5 d0 54 10 96 60 45 35 74 15 09 40 00 04 d4 1c 01 c2 e3 3e ┆ 0 8 T `E5t @ >┆
0x15c00…15e00 (10, 0, 1) DataBlock {»MTPLUS.COM«}
[…0x3f…]
0x1dc00…1de00 (13, 1, 2) DataBlock {»MTPLUS.001«}
0x1de00…1e000 (13, 1, 3) DataBlock {»MTPLUS.COM«}
0x1e000…1e200 (13, 1, 4) DataBlock {»MTPLUS.001«}
0x1e200…1e300 (13, 1, 5) DataBlock {»MTPLUS.COM«}
0x1e300…1e320 29 eb d2 06 8a 2c 09 1c c3 dd 89 eb c9 eb 21 ff ff 3e 01 32 90 a6 c9 af 32 90 a6 b1 c2 28 8a b0 ┆) , ! > 2 2 ( ┆
0x1e320…1e340 ca 80 8a ee 80 ca 80 8a 78 a7 fa 48 8a b2 fa 36 8a eb cd c4 89 c9 7b 2f 6f 7a 2f 67 23 cd c4 89 ┆ x H 6 æ/oz/g# ┆
0x1e340…1e360 7b 2f 5f 7a 2f 57 13 c9 af 91 4f 3e 00 98 47 7a a7 fa 6e 8a c2 5b 8a b3 ca 6e 8a eb cd c4 89 7b ┆æ/_z/W O> Gz n Æ n æ┆
0x1e360…1e380 2f 5f 7a 2f 57 13 7d 91 6f 7c 98 67 23 c9 af 93 6f 3e 00 9a 67 cd c4 89 af 95 6f 3e 00 9c 67 c9 ┆/_z/W å oø g# o> g o> g ┆
0x1e380…1e3a0 3e 01 32 90 a6 11 ff ff 21 00 00 c9 e1 c1 d1 e5 cd 17 8a e1 d5 e9 e1 c1 d1 e5 cd 17 8a e3 e9 d1 ┆> 2 ! ┆
0x1e3a0…1e3c0 c1 e1 d5 cd c4 89 eb e3 e9 d1 c1 e1 d5 cd c4 89 e3 e9 e1 c1 d1 e3 c3 be 8a e1 c1 d1 e3 eb 78 b1 ┆ x ┆
0x1e3c0…1e3e0 ca cd 8a 7e 12 23 13 0b 78 b1 c2 c3 8a eb c9 e1 c1 d1 e3 eb c3 db 8a e1 c1 d1 e3 78 b1 ca ef 8a ┆ ü # x x ┆
0x1e3e0…1e400 09 2b eb 09 2b 7e 12 2b 1b 0b 78 b1 c2 e5 8a eb c9 e1 c1 d1 e3 7b b2 c8 71 23 1b 7b b2 c2 f8 8a ┆ + +ü + x æ q# æ ┆
0x1e400…1e600 (13, 1, 6) DataBlock {»MTPLUS.001«}
0x1e600…1e620 (13, 1, 7) 3a 36 3e cd ad 80 0c 3a 36 3e cd 00 00 18 74 6c 7d 9b 49 c0 18 74 6c 7d 9b 49 00 18 74 6c 7d 9b ┆:6> :6> tlå I tlå I tlå ┆
0x1e620…1e640 41 87 44 34 68 74 bc 23 2b 35 59 a0 00 03 0e 8d 8f b3 6e d0 eb 0e 8d 8f b3 40 00 06 1d 1b 1f 66 ┆A D4ht #+5Y n @ f┆
0x1e640…1e660 d0 90 06 1d 1b 1f 66 d0 c0 06 1d 1b 1f 66 d1 20 06 1d 1b 1f 66 d0 f0 06 1d 1b 1f 66 d6 f0 06 1d ┆ f f f f ┆
0x1e660…1e680 1b 1f 10 80 00 0e 51 08 00 00 e5 66 d1 50 06 1d 1b 1f 66 80 00 0c 3a 36 3e cd a6 00 0c 3a 36 3e ┆ Q f P f :6> :6>┆
0x1e680…1e6a0 21 b4 43 a5 e1 19 59 aa 21 b7 c3 a5 e1 19 59 aa cd a0 e3 8f 16 95 5e 1e 10 e0 00 07 28 84 00 00 ┆! C Y ! Y ^ ( ┆
0x1e6a0…1e6c0 75 b8 4e 6c da 7e 00 c3 a3 63 e2 1a 80 3c 5e 11 95 9a a2 1a 8e 3c 5e 11 95 9a ac da 9c 3c f1 69 ┆u Nl ü c <^ <^ < i┆
0x1e6c0…1e6e0 58 31 e1 0e 02 00 72 88 40 00 07 5b 84 e6 cd a8 40 0c 3a 36 3e 21 a4 e3 a5 e1 19 59 aa cd b9 43 ┆X1 r @ Æ @ :6>! Y C┆
0x1e6e0…1e700 8c db b0 2c f1 69 59 d1 e6 6d 12 00 10 d8 a1 e2 f0 8c ac d5 10 82 00 0e 56 6d 7d 14 10 80 00 0e ┆ , iY m Vmå ┆
0x1e700…1e720 56 6d 98 1d 10 d9 e1 e2 f0 8c ac d5 66 d9 11 e6 6d b0 1e 70 b4 4f ab 30 fb 4a c4 8f 30 e8 d8 fb ┆Vm f m p O 0 J 0 ┆
0x1e720…1e740 36 a2 80 30 e8 d8 fb 36 a4 00 30 e8 d8 fb 36 b3 00 30 e8 d8 fb 36 b4 80 30 e8 d8 fb 36 d0 8d 80 ┆6 0 6 0 6 0 6 0 6 ┆
0x1e740…1e760 00 01 70 05 c7 1d b9 a3 b7 4c 76 ec 8e dd f1 db ca 3b 7a c7 6f d8 ed 01 1e a0 e3 d4 34 7a 89 8f ┆ p Lv ;z o 4z ┆
0x1e760…1e780 51 91 ea 3e 3d 49 47 a9 98 f5 39 1e a7 e3 d5 90 7a c4 8f 5c a1 eb a0 3d 75 87 ae e0 f5 1b 1f 64 ┆Q >=IG 9 z Ø =u d┆
0x1e780…1e7a0 c6 6a 47 a2 02 6a 7a 24 64 fc 46 20 2b a4 a7 46 60 85 a2 02 92 4a 74 65 28 76 20 28 29 aa 46 54 ┆ jG jz$d F + F` Jte(v () FT┆
0x1e7a0…1e7c0 47 62 02 82 62 24 66 24 62 20 21 a9 26 46 7a 86 22 02 1a ba a4 66 f4 7a 20 22 a8 a4 c6 5c c7 a2 ┆Gb b$f$b ! &Fz " f z " Ø ┆
0x1e7c0…1e7e0 02 72 2a 4c 66 40 5a 20 23 aa 24 c6 65 07 a2 02 62 9a 4c 64 c8 5a 20 23 a2 a4 c6 72 03 a2 02 62 ┆ r*Lf@Z # $ e b Ld Z # r b┆
0x1e7e0…1e800 2a 4c 67 8c 7a 20 2c 25 28 46 4c 86 22 02 32 4a 74 67 9c 62 20 29 a3 21 46 60 c6 22 02 22 ba 24 ┆*Lg z ,%(FL " 2Jtg b ) !F` " " $┆
0x1e800…1ea00 (13, 1, 8) DataBlock {»MTPLUS.001«}
0x1ea00…1ea20 (13, 1, 9) 65 08 46 20 22 24 a7 c6 61 86 22 02 ba 92 9c 64 c0 46 20 29 a7 a0 c6 59 44 e2 02 9a a2 94 65 f0 ┆e F "$ a " d F ) YD e ┆
0x1ea20…1ea40 76 20 29 a0 a2 46 55 07 22 02 9a 4a 74 65 e4 76 20 21 29 a9 46 57 84 e2 02 62 12 0c 65 04 4e 20 ┆v ) FU " Jte v !) FW b e N ┆
0x1ea40…1ea60 24 a9 a1 46 56 c4 e2 02 1a 72 1c 65 c4 5e 20 29 29 aa 46 5f c7 62 02 9a 9a a4 65 44 72 20 29 a6 ┆$ FV r e ^ )) F_ b eDr ) ┆
0x1ea60…1ea80 22 46 4b 87 4a cc 66 cc 78 ac 46 7b 07 7a ba 92 4a a2 2a 7a ac 64 84 17 aa a8 22 20 aa 22 ac 46 ┆"FK J f x Fæ z J *z d " " F┆
0x1ea80…1eaa0 6e 03 ba ba 42 2a 92 2a 4a 74 66 f8 63 a9 aa 20 aa 2a a9 a9 46 48 47 7a 9a 1a 92 2a 2a 72 9c 67 ┆n B* *Jtf c * FHGz **r g┆
0x1eaa0…1eac0 f0 77 29 a2 a0 a9 21 a4 46 5b 85 7a 9a 1a 92 2a 2a 72 84 65 4c 6f a9 a1 2a a8 21 a0 a9 c6 72 85 ┆ w) ! FÆ z **r eLo * ! r ┆
0x1eac0…1eae0 7a 8a aa 4a a2 32 62 3c 64 08 7b a9 22 a8 26 20 a1 a2 c6 7d 83 f2 82 92 2a b2 62 34 64 38 33 a8 ┆z J 2b<d æ " & å * b4d83 ┆
0x1eae0…1eb00 27 a9 a1 aa a9 29 c6 59 47 b2 7a 62 22 1a 6a 24 65 b8 63 a7 a9 24 a3 a6 22 a7 46 4b 04 6a 7a aa ┆' ) YG zb" j$e c $ " FK jz ┆
0x1eb00…1eb20 a2 1a 44 67 00 0e a7 27 aa 21 a4 46 7c 87 3a 72 2a ba 62 4a 72 2c 67 18 72 26 24 a7 22 c6 7a 07 ┆ Dg ' ! Fø :r* bJr,g r&$ " z ┆
0x1eb20…1eb40 3a 62 4a 72 2a 32 62 3c 66 e8 7b 26 24 a7 22 a9 ad 46 69 47 3a 62 6a 7a b2 2a 92 4c 67 78 73 a6 ┆:bJr*2b<f æ&$ " FiG:bjz * Lgxs ┆
0x1eb40…1eb60 24 a7 22 ab a6 24 c6 4f 07 7a 62 0a 9a a2 62 4a 74 65 54 6b a6 20 a9 aa 26 a0 a9 46 68 c5 7a 4a ┆$ " $ O zb bJteTk & Fh zJ┆
0x1eb60…1eb80 72 a2 92 32 0a 1c 67 6c 2b a4 a7 29 a2 a9 2a 24 c6 72 07 72 4a 72 9a 2a 92 a4 65 40 6e a3 a2 aa ┆r 2 gl+ ) *$ r rJr * e@n ┆
0x1eb80…1eba0 21 a4 46 4d 47 72 3a 7a a2 7a c2 cc 66 78 73 a3 a2 aa 26 24 a7 22 c6 4f c6 ba 32 4a 92 9a a2 6a ┆! FMGr:z z fxs &$ " O 2J j┆
0x1eba0…1ebc0 0c 65 10 5b a2 a9 20 a9 a2 a6 24 c6 6a 06 7a 2a 72 22 32 4a 62 2c 64 90 77 a2 24 a9 a8 26 20 ac ┆ e Æ $ j z*r"2Jb,d w $ & ┆
0x1ebc0…1ebe0 c6 4d 07 ba 22 2a 62 2a a2 2a 64 67 8c 67 a1 aa a9 29 26 24 a7 46 7d 87 7a 1a 7a 82 ca 12 aa 34 ┆ M "*b* *dg g )&$ Få z z 4┆
0x1ebe0…1ec00 65 b0 79 a1 a6 a2 46 6d c0 32 1a 6a 22 0a 92 94 67 c4 63 a1 a6 29 29 a1 a9 27 46 45 c7 7a 1a 62 ┆e y Fm 2 j" g c )) 'FE z b┆
0x1ec00…1ee00 (14, 0, 1) DataBlock {»MTPLUS.001«}
[…0xf…]
0x20c00…20e00 (14, 1, 8) 0xe5[0x200]
0x20e00…21000 (14, 1, 9) DataBlock {»MTPLUS.001«}
0x21000…21200 (15, 0, 1) 0xe5[0x200]
0x21200…21400 (15, 0, 2) DataBlock {»MTPLUS.002«}
0x21400…21600 (15, 0, 3) 0xe5[0x200]
0x21600…21800 (15, 0, 4) DataBlock {»MTPLUS.002«}
[…0x9…]
0x22980…229a0 28 79 25 28 79 21 dd 01 29 25 30 79 20 24 13 62 00 0c 32 99 da 92 59 a2 3d 04 24 12 08 04 00 04 ┆(y%(y! )%0y $ b 2 Y = $ ┆
0x229a0…229c0 24 12 60 25 30 79 20 24 39 60 32 98 22 00 08 34 9a 7e 25 88 79 25 2a 79 21 d7 00 00 05 00 25 26 ┆$ `%0y $9`2 " 4 ü% y%*y! %&┆
0x229c0…229e0 79 21 29 25 f4 8c 20 9a 8c 25 f2 8c 25 26 79 21 29 25 41 90 a2 60 30 a2 5c 2e 25 41 90 a2 60 30 ┆y!)% % %&y!)%A `0 Ø.%A `0┆
0x229e0…22a00 2c 12 52 65 6d 61 69 6e 69 6e 67 20 4d 65 6d 6f 72 79 3a 20 f0 f0 a2 dd 30 a2 73 04 24 05 f0 a2 ┆, Remaining Memory: 0 s $ ┆
0x22a00…22c00 (15, 1, 5) DataBlock {»MTPLUS.002«}
0x22c00…22c20 (15, 1, 6) 23 39 30 e9 c8 18 ab 1a 00 04 59 a0 00 c9 78 46 56 6a 88 40 20 07 2b 36 ea 01 3c 5a 54 e4 0c 43 ┆#90 Y xFVj @ +6 <ZT C┆
0x22c20…22c40 7b 40 8b c2 32 b3 54 42 00 00 39 59 b4 94 09 e2 d2 a7 20 62 10 08 01 ca 21 a3 a0 6e 56 6d 18 00 ┆æ@ 2 TB 9Y b ! nVm ┆
0x22c40…22c60 64 c7 48 40 3a 62 9a 42 4a 32 a2 7c c4 88 01 9b 6a 40 84 38 d8 01 ca cd 00 00 19 b6 c0 09 9b 43 ┆d H@:b BJ2 ø j@ 8 C┆
0x22c60…22c80 00 1c 27 d1 78 7d a5 71 00 c4 39 58 01 ca 21 cb 00 0e 56 6d 12 00 1d 65 60 01 30 00 de e5 10 e3 ┆ ' xå q 9X ! Vm e` 0 ┆
0x22c80…22ca0 60 07 2b 34 00 00 66 80 00 0f 16 95 7d 03 10 80 00 0e 51 56 58 00 75 b8 4e 62 33 90 eb 2b 00 09 ┆` +4 f å QVX u Nb3 + ┆
0x22ca0…22cc0 80 06 f7 28 87 1b 00 39 59 b5 a0 0d 9b 5a c0 dc 27 d1 79 bd ca cd a1 80 0e 16 89 f5 66 1f 69 55 ┆ ( 9Y Z ' y f iU┆
0x22cc0…22ce0 10 31 d6 56 00 13 00 0d ee 51 0e 36 00 72 b3 6c 48 1b 36 c6 01 b8 4f a2 f0 fb 4a e2 01 8e b2 b0 ┆ 1 V Q 6 r lH 6 O J ┆
0x22ce0…22d00 00 98 00 6f 72 8a b2 c0 03 95 9b 45 40 19 31 d2 40 0c 98 a6 90 92 8c a9 31 25 00 66 d0 c0 07 09 ┆ or E@ 1 @ 1% f ┆
0x22d00…22d20 f4 5e 1f 69 5e 60 31 0e 5a 00 72 88 72 e0 03 95 9b 44 80 04 35 c8 0d ca 2a cb 80 0e b7 09 cc 46 ┆ ^ i^`1 Z r r D 5 * F┆
0x22d20…22d40 72 64 c7 49 c0 3a 4a 72 9a 2a 92 a2 9c c4 a0 01 9b 4e c0 dc 22 2c bc 00 cd a8 a0 62 1a 66 06 5e ┆rd I :Jr * N ", b f ^┆
0x22d40…22d60 11 95 9a a2 12 40 01 ca cd 00 00 1e 2d 2a cc 08 21 10 00 1c ac da 0c 00 21 be 40 6e 51 0d 0b 04 ┆ @ -* ! ! @nQ ┆
0x22d60…22d80 2f 08 ca ce b1 1b ad c2 73 11 9c 85 59 78 00 45 a6 80 05 5a 68 00 22 cd 00 06 4b c2 32 b3 54 42 ┆/ s Yx E Zh " K 2 TB┆
0x22d80…22da0 00 00 39 59 b4 58 0c 55 a6 80 02 2c b0 00 64 bc 23 2b 35 44 20 00 03 95 9b 4a 00 dc 2d 13 ea 8c ┆ 9Y X U , d #+5D J - ┆
0x22da0…22dc0 3e d2 ac c0 82 ad 34 00 11 65 80 03 2e 51 56 9a 00 08 b2 c0 01 92 f0 8c ac eb 15 ba dc 27 31 19 ┆> 4 e .QV '1 ┆
0x22dc0…22de0 c9 93 1d 2a 00 e9 a9 ea c8 a9 89 29 d3 12 b0 06 6d e8 03 70 88 b3 00 03 84 45 98 80 19 b7 bc 0c ┆ * ) m p E ┆
0x22de0…22e00 55 98 00 0b c2 32 b3 ac 46 e5 15 66 20 07 2b 45 c2 2b 72 b5 44 59 90 01 a2 e1 11 b9 5a ac da 82 ┆U 2 F f +E +r DY Z ┆
0x22e00…23000 (15, 1, 7) DataBlock {»MTPLUS.002«}
0x23000…23020 (15, 1, 8) 04 22 d3 80 02 ac c8 00 23 11 66 40 01 56 9c 00 15 88 b4 e0 01 f1 6a ca b6 40 82 11 00 01 ca cd ┆ " # f@ V j @ ┆
0x23020…23040 a0 c0 0c 3b 2a 08 2a cc 00 0e 51 56 62 00 75 b8 4e 62 33 93 26 3a 5a 01 d4 14 92 53 95 14 d6 66 ┆ ;* * QVb u Nb3 &:Z S f┆
0x23040…23060 25 c0 0c da d0 08 e1 11 66 60 07 08 8b 34 00 33 6b 98 20 ab 34 00 08 b4 f0 00 84 02 00 72 8a b4 ┆% f` 4 3k 4 r ┆
0x23060…23080 f0 00 45 92 00 0c 97 84 65 66 ab 45 c2 2b 72 b5 44 59 a8 01 a2 e1 11 b9 5a ac db 20 08 22 d4 00 ┆ E ef E +r DY Z " ┆
0x23080…230a0 02 ac d4 00 23 11 66 a0 01 56 a0 00 15 88 b5 00 01 f1 6a ca a3 a0 a2 ad 3c 00 23 72 8a b3 50 00 ┆ # f V j < #r P ┆
0x230a0…230c0 ad a2 19 0b 00 0b cd 56 6d 06 00 61 df 50 41 56 66 00 72 8a b3 30 01 78 46 56 6a 8a b4 f0 00 45 ┆ Vm a PAVf r 0 xFVj E┆
0x230c0…230e0 92 00 0c 97 84 65 67 5b 44 32 eb 70 9c c4 67 26 4c 74 c0 03 a8 28 29 ac a6 a1 27 cc 4c 40 19 b7 ┆ egÆD2 p g&Lt () ' L@ ┆
0x230e0…23100 00 11 c2 22 cd 80 0c db 96 08 2a cd 80 02 2d 44 00 2a d4 40 01 16 68 00 32 5e 11 95 9a a2 1a 1e ┆ " * -D * @ h 2^ ┆
0x23100…23120 08 e5 66 d1 80 01 0d 57 05 2f 08 ca cd 51 56 a2 00 08 b2 c0 01 92 f0 8c ac eb 68 86 5c a2 1b b6 ┆ f W / QV h Ø ┆
0x23120…23140 06 5e 11 95 9a ac da 86 08 2a d4 40 01 60 01 79 aa 21 0b 80 1c ac d0 00 00 42 18 00 39 59 b6 20 ┆ ^ * @ ` y ! B 9Y ┆
0x23140…23160 15 9a 00 00 33 6d 68 1b 85 a2 7d 59 87 da 56 e4 14 43 57 81 4b c2 32 b3 54 55 a8 80 02 2c b0 00 ┆ 3mh åY V CW K 2 TU , ┆
0x23160…23180 64 bc 23 2b 3a da 21 91 16 6e 00 61 dc 30 51 0d 73 05 2f 08 ca ce b1 16 6e 00 15 66 e0 07 28 ab ┆d #+: ! n a 0Q s / n f ( ┆
0x23180…231a0 51 00 04 59 20 00 c9 78 46 56 75 b4 43 2e 51 09 20 00 e5 66 d7 a0 57 8b 4a a8 03 08 40 20 07 28 ┆Q Y xFVu C.Q f W J @ (┆
0x231a0…231c0 86 d0 02 b9 59 b4 60 00 43 6e 81 4b c2 32 b3 54 55 a8 80 02 2c 90 00 64 bc 23 2b 3a da 21 97 28 ┆ Y ` Cn K 2 TU , d #+: ! (┆
0x231c0…231e0 84 90 00 72 b3 40 00 07 8b 4a 8c 03 08 6f 60 29 78 46 56 75 88 b3 70 03 0e a8 03 0a b5 10 00 45 ┆ r @ J o`)xFVu p E┆
0x231e0…23200 92 00 0c 97 84 65 66 a8 84 90 00 72 b3 6f e8 1b c5 a5 52 81 84 24 80 03 94 55 a8 80 02 2c 90 00 ┆ ef r o R $ U , ┆
0x23200…23400 (15, 1, 9) DataBlock {»MTPLUS.002«}
0x23400…23600 (16, 0, 1) DataBlock {»MTPLUS.003«}
[…0xa…]
0x24980…249a0 00 19 e5 21 20 00 eb e1 73 c9 c3 00 00 c3 93 4e c3 3d 4f cd 8a 2c e1 22 9b 92 cd 90 2c 21 00 00 ┆ ! s N =O , " ,! ┆
0x249a0…249c0 7d 32 97 92 2a 9b 92 e5 cd b0 4e 04 43 4f 4e 3a cd 1e 2c f1 d2 cf 4e 2a 9b 92 11 38 00 19 e5 21 ┆å2 * N CON: , N* 8 !┆
0x249c0…249e0 04 00 eb e1 73 21 01 00 7d 32 97 92 c3 35 4f 2a 9b 92 e5 cd db 4e 04 4c 53 54 3a cd 1e 2c f1 d2 ┆ s! å2 5O* N LST: , ┆
0x249e0…24a00 fa 4e 2a 9b 92 11 38 00 19 e5 21 06 00 eb e1 73 21 01 00 7d 32 97 92 c3 35 4f 2a 9b 92 e5 cd 06 ┆ N* 8 ! s! å2 5O* ┆
0x24a00…24c00 (16, 1, 3) DataBlock {»MTPLUS.003«}
0x24c00…24c20 (16, 1, 4) ff ff 34 02 a1 85 7c 30 0a ba 15 ff ff f9 08 00 40 01 f9 40 39 08 00 30 01 f9 40 39 08 00 00 01 ┆ 4 ø0 @ @9 0 @9 ┆
0x24c20…24c40 f9 40 3f ff ff cd 00 a1 80 1f ff ff ff ff fc 30 0b 96 15 ff ff ff ff ff cd 00 ae 01 5f ff ff 90 ┆ @? 0 _ ┆
0x24c40…24c60 80 55 e0 ae 2c 00 00 eb c0 1f 54 03 90 80 00 80 1f 94 03 e6 80 53 c0 af e2 01 f4 80 2e 20 57 ff ┆ U , T S . W ┆
0x24c60…24c80 ff ff ff ff 34 02 c4 05 7f ff ff 9a 01 43 c0 3f 08 07 7d 00 e5 e0 1c 7c 03 e9 00 5c 40 af ff ff ┆ 4 C ? å ø Ø@ ┆
0x24c80…24ca0 c8 40 06 40 0f ca 01 f3 40 2a 68 57 21 00 c4 00 1f 94 03 e6 80 5c a0 9e 42 00 03 00 7e 50 0f 9a ┆ @ @ @*hW! Ø B üP ┆
0x24ca0…24cc0 01 74 42 7e 68 05 d4 09 f9 a0 14 24 03 ff ff ff ff ff ff ff c8 40 00 20 0e fa 01 cc 80 36 e0 07 ┆ tBüh $ @ 6 ┆
0x24cc0…24ce0 ff ff ff ff ff ff ff 9d 00 6d c0 0e 4c 00 00 ed e0 1f 8c 03 f4 80 7f ff ff ff ff ff ff ff ff ff ┆ m L ┆
0x24ce0…24d00 ff ff 98 91 00 7f ff ff 9a 01 4a 80 3f 88 07 d2 00 bb a1 5f ff ff e1 80 54 90 cf ff ff ff ff f9 ┆ J ? _ T ┆
0x24d00…24d20 08 05 8b 0a e2 c0 00 0e bc 01 f5 40 39 08 00 44 01 f9 40 3e 68 05 96 0a fe 20 1f 48 02 82 05 ff ┆ @9 D @>h H ┆
0x24d20…24d40 ff ff ff ff f3 40 2c e8 57 ff ff e4 20 00 00 07 e5 00 e4 20 00 20 07 e5 00 e4 20 00 50 07 e5 00 ┆ @, W P ┆
0x24d40…24d60 ff ff ff 34 02 86 00 7f ff ff 86 01 52 43 3f ff ff ff ff e4 20 17 78 2b 8b 00 00 3a f0 07 d5 00 ┆ 4 RC? x+ : ┆
0x24d60…24d80 e4 20 03 10 07 e5 00 f9 a0 17 a4 2b f8 80 7d 20 0a 32 17 ff ff fe 68 05 f0 0a ff ff fc 84 02 82 ┆ + å 2 h ┆
0x24d80…24da0 85 f1 60 00 07 5e 00 fa a0 1f 0c 02 8c 06 7f ff ff ff ff ff ff fe 68 05 17 0b ff ff fc 84 02 8d ┆ ` ^ h ┆
0x24da0…24dc0 05 f1 60 00 07 5e 00 fa a0 1c 84 00 1e 00 fc a0 1f 34 02 b4 85 7f 10 0f a4 01 54 02 ff ff ff 21 ┆ ` ^ 4 T !┆
0x24dc0…24de0 00 05 80 3f 28 07 cd 00 b5 c1 5c 84 00 02 00 fc a0 1c 84 00 00 00 fc a0 1f 34 02 ac 05 7c d0 0a ┆ ?( Ø 4 ø ┆
0x24de0…24e00 12 01 ff ff fe 18 05 8a 0b ff ff ff ff ff e6 80 52 40 bf ff ff f3 40 29 50 07 e1 00 ef a0 1c bc ┆ R@ @)P ┆
0x24e00…25000 (16, 1, 5) DataBlock {»MTPLUS.003«}
0x25000…25200 (16, 1, 6) DataBlock {»MTPLUS.004«}
0x25200…25400 (16, 1, 7) DataBlock {»MTPLUS.003«}
0x25400…25600 (16, 1, 8) DataBlock {»MTPLUS.004«}
0x25600…25800 (16, 1, 9) DataBlock {»MTPLUS.003«}
0x25800…25a00 (17, 0, 1) DataBlock {»MTPLUS.004«}
[…0x1b…]
0x29000…29020 (18, 1, 2) 88 41 40 07 2b 36 a8 01 b8 5a 21 97 2b 36 c7 81 82 88 a4 c2 99 14 40 20 10 08 04 02 07 08 8d ca ┆ A@ +6 Z! +6 @ ┆
0x29020…29040 21 05 00 1c ac da d8 06 21 ad e0 6e 51 08 54 00 e5 10 82 80 0e 56 6d 7b 03 70 b4 43 2e 56 6d ba ┆! ! nQ T Vmæ p C.Vm ┆
0x29040…29060 03 05 11 49 c4 41 00 80 40 20 10 08 04 0e 11 1b 94 42 0a 00 39 59 b6 5c 0c 43 66 80 dc a2 10 b0 ┆ I A @ B 9Y Ø Cf ┆
0x29060…29080 01 ca 21 05 00 1c ac db 4c 06 e1 68 86 5c ac db ca 06 0a 2a 93 8a 84 92 60 80 40 20 10 08 1c 22 ┆ ! L h Ø * ` @ "┆
0x29080…290a0 37 28 84 14 00 72 b3 6e 10 18 84 00 00 72 88 40 00 07 5b 84 e6 23 39 08 40 00 07 28 84 00 00 75 ┆7( r n r @ Æ #9 @ ( u┆
0x290a0…290c0 b8 4e 62 33 90 84 00 00 72 88 40 00 07 5b 84 e6 23 39 08 40 00 07 28 84 2e 00 72 b3 40 00 01 08 ┆ Nb3 r @ Æ #9 @ ( . r @ ┆
0x290c0…290e0 60 00 e5 66 d1 c0 46 68 00 00 cd 00 00 04 20 00 03 94 42 17 00 04 5d 2f f0 c8 a5 a2 19 72 b3 6a ┆` f Fh B Å/ r j┆
0x290e0…29100 00 20 08 74 3d 70 88 dc a2 10 10 01 ca cd bd a0 62 1a 58 08 e5 10 86 00 01 17 4b fc 32 29 68 86 ┆ t=p b X K 2)h ┆
0x29100…29120 5c ac da be 08 02 14 0a 9c 22 37 28 84 04 00 72 b3 6a 40 20 84 00 00 72 88 43 00 00 8b a1 fe 19 ┆Ø "7( r j@ r C ┆
0x29120…29140 68 86 5c a2 13 d8 01 d6 e1 39 88 6b 50 23 94 42 19 00 04 5d 0f f0 cb 44 32 e5 10 9f 40 0e b7 09 ┆h Ø 9 kP# B Å D2 @ ┆
0x29140…29160 cc 43 5f 81 1c a2 10 d0 00 22 e8 7f 86 5a 21 97 28 84 76 00 75 b8 4e 62 1b 24 08 e5 10 86 c0 01 ┆ C_ " Z! ( v u Nb $ ┆
0x29160…29180 17 43 fc 32 d1 0c b9 44 23 a0 03 ad c2 73 10 da 60 47 28 84 38 00 08 ba 1f e1 96 88 65 ca 21 1e ┆ C 2 D# s `G( 8 e ! ┆
0x29180…291a0 80 1d 6e 13 98 86 dd 02 39 44 21 d0 00 45 d0 ff 0c b4 43 2e 51 08 a0 00 eb 70 9c c4 37 38 11 ca ┆ n 9D! E C.Q p 78 ┆
0x291a0…291c0 21 0f 00 02 2e 87 f8 65 a2 19 72 88 45 20 07 5b 84 e6 21 bc 40 8e 51 08 7c 00 11 74 3f c3 2d 10 ┆! . e r E Æ ! @ Q ø t? - ┆
0x291c0…291e0 cb 94 42 2e 00 3a dc 27 31 08 00 00 e5 10 80 00 0e b7 09 cc 42 00 00 39 44 20 00 03 ad c2 73 10 ┆ B. : '1 B 9D s ┆
0x291e0…29200 80 00 0e 51 08 08 00 e5 10 80 00 0e 56 68 00 00 21 00 00 1c a2 1a 3c 0a e5 10 80 80 0e 56 6d 67 ┆ Q Vh ! < Vmg┆
0x29200…29400 (18, 1, 3) DataBlock {»MTPLUS.004«}
0x29400…29420 (18, 1, 4) 04 66 80 00 02 10 00 01 ca 21 00 00 1c ac d0 00 01 93 31 0d 00 10 80 00 0e 51 08 00 00 e5 10 98 ┆ f ! 1 Q ┆
0x29420…29440 00 0e 56 6d d1 03 70 b4 43 22 2c 08 00 2a c0 80 0e 51 08 08 00 e5 66 d2 30 41 08 18 00 e5 66 d6 ┆ Vm p C", * Q f 0A f ┆
0x29440…29460 80 56 6d 26 04 66 d2 90 41 56 04 00 08 88 00 01 97 28 84 02 00 72 88 40 00 07 2b 34 00 00 66 d7 ┆ Vm& f AV ( r @ +4 f ┆
0x29460…29480 50 51 56 04 00 08 90 00 01 97 28 84 02 00 72 88 40 00 07 2b 36 c4 02 b3 6c 58 28 86 a5 82 b9 44 ┆PQV ( r @ +6 lX( D┆
0x29480…294a0 20 10 03 94 42 60 00 39 59 b5 5c 15 c2 d1 0c 88 b0 30 00 ab 03 00 39 44 20 20 03 95 9b 5b c1 44 ┆ B` 9Y Ø 0 9D Æ D┆
0x294a0…294c0 20 60 03 95 9b 70 41 59 b5 c8 15 9b 68 41 45 58 18 00 22 20 00 06 5c a2 10 08 01 ca 21 00 00 1c ┆ ` pAY hAEX " Ø ! ┆
0x294c0…294e0 ac db 3c 0a cd b9 c0 a2 ac 0c 00 11 20 00 03 2e 51 08 04 00 e5 10 80 00 0e 56 6d e1 05 66 de 40 ┆ < .Q Vm f @┆
0x294e0…29500 51 0d a4 05 72 88 40 40 07 28 84 c0 00 72 b3 6d 80 2b 85 a2 19 11 60 80 01 56 08 00 72 88 40 40 ┆Q r @@ ( r m + ` V r @@┆
0x29500…29520 07 2b 36 e4 02 88 40 60 07 2b 36 8d 03 33 6e 58 28 84 0c 00 72 b3 69 08 33 36 92 03 33 6f d0 28 ┆ +6 @` +6 3nX( r i 36 3o (┆
0x29520…29540 ab 04 00 04 44 00 00 cb 94 42 04 00 39 59 b4 ac 18 42 05 00 39 59 b5 00 19 9b 4b 81 84 20 60 03 ┆ D B 9Y B 9Y K ` ┆
0x29540…29560 95 9b 51 c1 99 b5 28 19 9b 4c 41 85 58 20 00 22 40 00 06 5c a2 10 08 01 ca 21 00 00 1c ac db ee ┆ Q ( LA X "@ Ø ! ┆
0x29560…29580 0a cd aa e0 c2 1b fa 0a e5 10 80 c0 0e 51 09 80 00 e5 66 d0 90 67 0b 44 32 22 c1 40 02 ac 14 00 ┆ Q f g D2" @ ┆
0x29580…295a0 e5 10 80 80 0e 56 6d 51 06 10 80 c0 0e 56 6d 8d 06 66 d5 40 61 08 18 00 e5 66 d9 40 66 6d 97 06 ┆ VmQ Vm f @a f @fm ┆
0x295a0…295c0 66 d6 d0 61 56 0a 00 08 88 00 01 97 28 84 08 00 72 b3 6c f0 30 84 0a 00 72 b3 6d 98 33 36 d0 83 ┆f aV ( r l 0 r m 36 ┆
0x295c0…295e0 08 40 c0 07 2b 36 dd 03 33 6d e8 30 84 0e 00 72 b3 6e 20 33 36 e3 83 33 6d 20 30 ab 05 00 04 48 ┆ @ +6 3m 0 r n 36 3m 0 H┆
0x295e0…29600 00 00 cb 94 42 01 00 39 44 20 00 03 95 9b 5a 81 99 b7 50 18 43 5c 01 9c a2 10 20 01 ca 21 30 00 ┆ B 9D Z P CØ !0 ┆
0x29600…29800 (18, 1, 5) DataBlock {»MTPLUS.004«}
0x29800…29a00 (18, 1, 6) DataBlock {»MTPLUS.005«}
0x29a00…29c00 (18, 1, 7) DataBlock {»MTPLUS.004«}
0x29c00…29e00 (18, 1, 8) DataBlock {»MTPLUS.005«}
0x29e00…2a000 (18, 1, 9) DataBlock {»MTPLUS.004«}
0x2a000…2a200 (19, 0, 1) DataBlock {»MTPLUS.005«}
[…0x9…]
0x2b400…2b600 (19, 1, 2) DataBlock {»MTPLUS.006«}
0x2b600…2b800 (19, 1, 3) DataBlock {»MTPLUS.005«}
0x2b800…2ba00 (19, 1, 4) DataBlock {»MTPLUS.006«}
0x2ba00…2bc00 (19, 1, 5) DataBlock {»MTPLUS.005«}
0x2bc00…2be00 (19, 1, 6) DataBlock {»MTPLUS.006«}
0x2be00…2c000 (19, 1, 7) DataBlock {»MTPLUS.005«}
0x2c000…2c200 (19, 1, 8) DataBlock {»MTPLUS.006«}
0x2c200…2c280 (19, 1, 9) DataBlock {»MTPLUS.005«}
0x2c280…2c2a0 c3 fa 4c cd 60 4f 5e 23 56 23 4e 23 46 c5 d5 c3 fa 4c e5 cd 60 4f d1 13 13 1a 0f 0f 0f 0f e6 0f ┆ L `O^#V#N#F L `O ┆
0x2c2a0…2c2c0 13 eb 22 d2 92 eb 3c 87 4f 06 00 eb 21 00 00 39 7d 91 6f 7c 98 67 f9 e5 d5 c5 cd 2c 32 c3 fa 4c ┆ " < O ! 9å oø g ,2 L┆
0x2c2c0…2c2e0 5e 23 56 23 7e 23 22 d2 92 e6 0f 4f 06 00 21 af 92 09 09 7e 23 66 6f 19 c9 cd c0 4f 5e 16 00 d5 ┆^#V#ü#" O ! ü#fo O^ ┆
0x2c2e0…2c300 c3 fa 4c cd c0 4f 5e 23 56 d5 c3 fa 4c cd c0 4f 5e 23 56 23 4e 23 46 c5 d5 c3 fa 4c e5 cd c0 4f ┆ L O^#V L O^#V#N#F L O┆
0x2c300…2c320 c3 96 4f cd 60 4f d1 73 c3 fa 4c cd 60 4f d1 73 23 72 c3 fa 4c cd 60 4f d1 c1 73 23 72 23 71 23 ┆ O `O s L `O s#r L `O s#r#q#┆
0x2c320…2c340 70 c3 fa 4c e5 cd 60 4f d1 13 13 1a 13 eb 22 d2 92 0f 0f 0f 0f e6 0f 3c 87 4f 06 00 21 00 00 39 ┆p L `O " < O ! 9┆
0x2c340…2c360 c5 d5 e5 c5 cd 2c 32 e1 39 f9 c3 fa 4c cd c0 4f d1 73 c3 fa 4c cd c0 4f d1 73 23 72 c3 fa 4c cd ┆ ,2 9 L O s L O s#r L ┆
0x2c360…2c380 c0 4f d1 c1 73 23 72 23 71 23 70 c3 fa 4c e5 cd c0 4f c3 28 50 4e 23 22 d2 92 06 00 2a d0 92 09 ┆ O s#r#q#p L O (PN#" * ┆
0x2c380…2c3a0 e5 c3 fa 4c cd 60 4f e5 c3 fa 4c 4e 23 7e 23 22 d2 92 87 5f 16 00 21 af 92 19 5e 23 56 eb 09 e5 ┆ L `O LN#ü#" _ ! ^#V ┆
0x2c3a0…2c3c0 c3 fa 4c 4e 23 46 23 c3 8d 50 4e 23 06 00 eb e1 09 e5 eb e9 eb e1 c1 09 e5 eb e9 e1 d1 7b 95 6f ┆ LN#F# PN# æ o┆
0x2c3c0…2c3e0 7a 9c 67 e5 2a d2 92 e9 cd bd 32 2a d2 92 e9 79 fe 20 ca f8 50 fe 21 ca ff 50 fe 23 ca 07 51 e6 ┆z g * 2* y P ! P # Q ┆
0x2c3e0…2c400 0f 3c 2f 3c 6f 26 ff d1 39 f9 e5 d5 2f 3c 6f 26 00 e5 cd 2c 32 c3 fa 4c d1 1a 5f 16 00 d5 e9 eb ┆ </<o& 9 /<o& ,2 L _ ┆
0x2c400…2c600 (20, 0, 1) DataBlock {»MTPLUS.006«}
[…0x5…]
0x2cf00…2cf20 47 d1 13 13 1a 0f 0f 0f 0f e6 0f 13 eb 22 b0 92 eb 3c 87 4f 06 00 eb 21 00 00 39 7d 91 6f 7c 98 ┆G " < O ! 9å oø ┆
0x2cf20…2cf40 67 f9 e5 d5 c5 cd 2c 32 c3 65 45 5e 23 56 23 7e 23 22 b0 92 e6 0f 4f 06 00 21 8d 92 09 09 7e 23 ┆g ,2 eE^#V#ü#" O ! ü#┆
0x2cf40…2cf60 66 6f 19 c9 cd 2b 48 5e 16 00 d5 c3 65 45 cd 2b 48 5e 23 56 d5 c3 65 45 cd 2b 48 5e 23 56 23 4e ┆fo +H^ eE +H^#V eE +H^#V#N┆
0x2cf60…2cf80 23 46 c5 d5 c3 65 45 e5 cd 2b 48 c3 01 48 cd cb 47 d1 73 c3 65 45 cd cb 47 d1 73 23 72 c3 65 45 ┆#F eE +H H G s eE G s#r eE┆
0x2cf80…2cfa0 cd cb 47 d1 c1 73 23 72 23 71 23 70 c3 65 45 e5 cd cb 47 d1 13 13 1a 13 eb 22 b0 92 0f 0f 0f 0f ┆ G s#r#q#p eE G " ┆
0x2cfa0…2cfc0 e6 0f 3c 87 4f 06 00 21 00 00 39 c5 d5 e5 c5 cd 2c 32 e1 39 f9 c3 65 45 cd 2b 48 d1 73 c3 65 45 ┆ < O ! 9 ,2 9 eE +H s eE┆
0x2cfc0…2cfe0 cd 2b 48 d1 73 23 72 c3 65 45 cd 2b 48 d1 c1 73 23 72 23 71 23 70 c3 65 45 e5 cd 2b 48 c3 93 48 ┆ +H s#r eE +H s#r#q#p eE +H H┆
0x2cfe0…2d000 4e 23 22 b0 92 06 00 2a ae 92 09 e5 c3 65 45 cd cb 47 e5 c3 65 45 4e 23 7e 23 22 b0 92 87 5f 16 ┆N#" * eE G eEN#ü#" _ ┆
0x2d000…2d200 (20, 0, 7) DataBlock {»MTPLUS.006«}
0x2d200…2d400 (20, 0, 8) DataBlock {»ROVLMGR.ERL«}
0x2d400…2d600 (20, 0, 9) DataBlock {»MTPLUS.006«}
0x2d600…2d780 (20, 1, 1) DataBlock {»ROVLMGR.ERL«}
0x2d780…2d7a0 20 01 d0 34 02 47 72 86 97 cc 2a 98 02 23 09 81 58 54 d0 05 c2 11 04 00 03 25 e1 19 59 d6 22 c1 ┆ 4 Gr * # XT % Y " ┆
0x2d7a0…2d7c0 60 0c 97 08 44 14 00 0c b0 e9 38 08 87 07 00 04 6d d8 08 04 10 00 3f 08 c2 41 30 59 e1 62 c2 ab ┆` D 8 m ? A0Y b ┆
0x2d7c0…2d7e0 a0 22 1c 2c 00 11 b8 80 20 10 18 00 fc 23 09 04 c1 67 85 8b 0a b8 00 8e b0 68 03 18 80 32 b7 20 ┆ " , # g h 2 ┆
0x2d7e0…2d800 21 1b 34 02 fe 20 30 ac 80 08 84 40 20 11 5b 90 10 70 25 9a 05 00 03 80 0c d0 28 00 1a 0a 2a 9b ┆! 4 0 @ Æ p% ( * ┆
0x2d800…2da00 (20, 1, 2) 0xe5[0x200]
[…0x3…]
0x2e000…2e020 (20, 1, 6) 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆(*==============================┆
0x2e020…2e040 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x2e040…2e060 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 54 49 54 4c 45 3a 20 50 41 53 ┆======*) (* PROGRAM TITLE: PAS┆
0x2e060…2e080 43 41 4c 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 49 4e 47 20 50 52 4f 47 52 41 4d 20 20 20 ┆CAL CROSS-REFERENCING PROGRAM ┆
0x2e080…2e0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆
0x2e0a0…2e0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e0c0…2e0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a ┆ *) (*┆
0x2e0e0…2e100 20 20 50 52 4f 47 52 41 4d 20 46 49 4c 45 3a 20 58 52 45 46 2e 53 52 43 20 20 20 20 20 20 20 20 ┆ PROGRAM FILE: XREF.SRC ┆
0x2e100…2e120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e120…2e140 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆
0x2e140…2e160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e160…2e180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 4c 41 53 54 20 55 50 44 41 54 ┆ *) (* LAST UPDAT┆
0x2e180…2e1a0 45 3a 20 20 30 39 2d 4d 41 52 2d 38 31 20 62 79 20 4d 69 6b 65 20 4c 65 68 6d 61 6e 20 20 20 20 ┆E: 09-MAR-81 by Mike Lehman ┆
0x2e1a0…2e1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 09 ┆ *) (* ┆
0x2e1c0…2e1e0 09 09 09 09 09 09 20 20 20 20 20 20 2a 29 0d 0a 28 2a 09 4e 4f 54 45 3a 20 54 48 49 53 20 50 52 ┆ *) (* NOTE: THIS PR┆
0x2e1e0…2e200 4f 47 52 41 4d 20 57 41 53 20 4f 52 49 47 49 4e 41 4c 4c 59 20 57 52 49 54 54 45 4e 20 42 59 20 ┆OGRAM WAS ORIGINALLY WRITTEN BY ┆
0x2e200…2e220 (20, 1, 7) 4d 4f 44 55 4c 45 20 57 52 4e 58 43 48 3b 0d 0a 0d 0a 28 2a 24 4d 20 40 57 4e 43 2a 29 0d 0a 28 ┆MODULE WRNXCH; (*$M @WNC*) (┆
0x2e220…2e240 2a 24 4d 20 2a 2a 29 0d 0a 0d 0a 28 2a 24 49 20 46 49 42 44 45 46 2e 4c 49 42 2a 29 0d 0a 0d 0a ┆*$M **) (*$I FIBDEF.LIB*) ┆
0x2e240…2e260 56 41 52 0d 0a 20 20 40 4c 46 42 3a 09 09 45 58 54 45 52 4e 41 4c 20 5e 46 49 42 3b 0d 0a 0d 0a ┆VAR @LFB: EXTERNAL ^FIB; ┆
0x2e260…2e280 45 58 54 45 52 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 20 50 55 54 28 56 41 52 20 46 3a 46 49 42 ┆EXTERNAL PROCEDURE PUT(VAR F:FIB┆
0x2e280…2e2a0 3b 20 53 5a 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 40 57 4e 43 ┆; SZ:INTEGER); PROCEDURE @WNC┆
0x2e2a0…2e2c0 28 43 48 3a 43 48 41 52 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 40 4c 46 42 5e 2e 46 42 55 46 46 ┆(CH:CHAR); BEGIN @LFB^.FBUFF┆
0x2e2c0…2e2e0 45 52 5b 30 5d 20 3a 3d 20 43 48 3b 09 09 28 2a 20 46 5e 20 3a 3d 20 43 48 20 2a 29 0d 0a 20 20 ┆ERÆ0Å := CH; (* F^ := CH *) ┆
0x2e2e0…2e300 50 55 54 28 40 4c 46 42 5e 2c 40 4c 46 42 5e 2e 42 55 46 4c 45 4e 29 09 09 28 2a 20 50 55 54 28 ┆PUT(@LFB^,@LFB^.BUFLEN) (* PUT(┆
0x2e300…2e320 46 29 20 20 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a ┆F) *) END; MODEND. ┆
0x2e320…2e340 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x2e380…2e3a0 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 ┆ ┆
[…0x3…]
0x2e400…2e420 (20, 1, 8) 4e 2e 20 57 49 52 54 48 20 41 4e 44 20 20 20 20 20 2a 29 0d 0a 28 2a 09 41 44 41 50 54 45 44 20 ┆N. WIRTH AND *) (* ADAPTED ┆
0x2e420…2e440 46 4f 52 20 55 43 53 44 20 50 41 53 43 41 4c 20 28 49 2e 34 20 2d 20 54 48 45 20 50 55 42 4c 49 ┆FOR UCSD PASCAL (I.4 - THE PUBLI┆
0x2e440…2e460 43 20 44 4f 4d 41 49 4e 20 56 45 52 53 49 4f 4e 29 20 20 20 20 20 2a 29 0d 0a 28 2a 09 42 59 20 ┆C DOMAIN VERSION) *) (* BY ┆
0x2e460…2e480 53 48 41 57 4e 20 46 41 4e 4e 49 4e 47 20 28 49 4e 20 31 39 37 38 29 20 41 4e 44 20 53 55 42 53 ┆SHAWN FANNING (IN 1978) AND SUBS┆
0x2e480…2e4a0 45 51 55 45 4e 54 4c 59 20 41 44 41 50 54 45 44 20 46 4f 52 09 20 20 20 20 20 20 2a 29 0d 0a 28 ┆EQUENTLY ADAPTED FOR *) (┆
0x2e4a0…2e4c0 2a 09 50 41 53 43 41 4c 2f 4d 54 2b 20 42 59 20 4d 49 4b 45 20 4c 45 48 4d 41 4e 20 28 49 4e 20 ┆* PASCAL/MT+ BY MIKE LEHMAN (IN ┆
0x2e4c0…2e4e0 31 39 38 31 29 20 41 4e 44 20 49 53 20 41 20 50 55 42 4c 49 43 20 44 4f 4d 41 49 4e 20 20 20 20 ┆1981) AND IS A PUBLIC DOMAIN ┆
0x2e4e0…2e500 2a 29 0d 0a 28 2a 09 50 52 4f 47 52 41 4d 2e 20 20 49 46 20 59 4f 55 20 4d 41 4b 45 20 52 45 56 ┆*) (* PROGRAM. IF YOU MAKE REV┆
0x2e500…2e520 49 53 49 4f 4e 53 2c 20 45 54 43 2e 20 50 4c 45 41 53 45 20 4c 45 41 56 45 20 54 48 45 20 41 55 ┆ISIONS, ETC. PLEASE LEAVE THE AU┆
0x2e520…2e540 54 48 4f 52 20 2a 29 0d 0a 28 2a 09 41 4e 44 20 4d 4f 44 49 46 49 45 52 53 20 4e 41 4d 45 20 49 ┆THOR *) (* AND MODIFIERS NAME I┆
0x2e540…2e560 4e 20 54 48 45 20 53 4f 55 52 43 45 20 46 49 4c 45 2e 20 20 54 48 41 4e 4b 20 59 4f 55 2e 09 20 ┆N THE SOURCE FILE. THANK YOU. ┆
0x2e560…2e580 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *) (* ┆
0x2e580…2e5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2e5a0…2e5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 50 52 4f 47 52 41 4d 20 53 ┆ *) (* PROGRAM S┆
0x2e5c0…2e5e0 55 4d 4d 41 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UMMARY: ┆
0x2e5e0…2e600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 ┆ *) (* ┆
0x2e600…2e800 (20, 1, 9) 0xe5[0x200]
0x2e800…2e820 (21, 0, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x2e840…2e860 20 20 20 2a 29 0d 0a 28 2a 20 20 20 20 20 54 48 49 53 20 50 52 4f 47 52 41 4d 20 50 52 4f 44 55 ┆ *) (* THIS PROGRAM PRODU┆
0x2e860…2e880 43 45 53 20 41 20 43 52 4f 53 53 2d 52 45 46 45 52 45 4e 43 45 20 4c 49 53 54 49 4e 47 20 46 4f ┆CES A CROSS-REFERENCE LISTING FO┆
0x2e880…2e8a0 52 20 41 4e 59 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 20 20 50 41 53 43 41 4c 20 50 52 4f ┆R ANY *) (* PASCAL PRO┆
0x2e8a0…2e8c0 47 52 41 4d 2e 20 20 4f 43 43 55 52 45 4e 43 45 53 20 4f 4e 4c 59 20 41 52 45 20 4c 49 53 54 45 ┆GRAM. OCCURENCES ONLY ARE LISTE┆
0x2e8c0…2e8e0 44 2e 20 20 4e 4f 20 44 49 53 54 49 4e 43 54 49 4f 4e 20 49 53 20 20 2a 29 0d 0a 28 2a 20 20 20 ┆D. NO DISTINCTION IS *) (* ┆
0x2e8e0…2e900 4d 41 44 45 20 42 45 54 57 45 45 4e 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 41 4e 44 20 52 45 46 ┆MADE BETWEEN DEFINITIONS AND REF┆
0x2e900…2e920 45 52 45 4e 43 45 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ERENCES. ┆
0x2e920…2e940 20 2a 29 0d 0a 28 2a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ *) (*=========================┆
0x2e940…2e960 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x2e960…2e980 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 58 52 45 ┆===========*) PROGRAM XRE┆
0x2e980…2e9a0 46 3b 0d 0a 0d 0a 28 2a 43 52 4f 53 53 20 52 45 46 45 52 45 4e 43 45 20 47 45 4e 45 52 41 54 4f ┆F; (*CROSS REFERENCE GENERATO┆
0x2e9a0…2e9c0 52 20 46 4f 52 20 50 41 53 43 41 4c 20 50 52 4f 47 52 41 4d 53 2e 20 20 4e 2e 57 49 52 54 48 2c ┆R FOR PASCAL PROGRAMS. N.WIRTH,┆
0x2e9c0…2e9e0 20 37 2e 35 2e 37 34 2a 29 0d 0a 28 2a 27 51 55 41 44 52 41 54 49 43 20 51 55 4f 54 49 45 4e 54 ┆ 7.5.74*) (*'QUADRATIC QUOTIENT┆
0x2e9e0…2ea00 27 20 48 41 53 48 20 4d 45 54 48 4f 44 2a 29 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 20 20 20 20 ┆' HASH METHOD*) CONST ┆
0x2ea00…2ea20 (21, 0, 2) 20 20 20 4b 45 59 5b 32 36 5d 20 3a 3d 20 27 4f 52 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 ┆ KEYÆ26Å := 'OR '; KE┆
0x2ea20…2ea40 59 5b 32 37 5d 20 3a 3d 20 27 4f 55 54 50 55 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 38 5d ┆YÆ27Å := 'OUTPUT '; KEYÆ28Å┆
0x2ea40…2ea60 20 3a 3d 20 27 50 41 43 4b 45 44 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 39 5d 20 3a 3d 20 27 ┆ := 'PACKED '; KEYÆ29Å := '┆
0x2ea60…2ea80 50 52 4f 43 45 44 55 52 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 30 5d 20 3a 3d 20 27 50 52 4f 47 52 ┆PROCEDUR'; KEYÆ30Å := 'PROGR┆
0x2ea80…2eaa0 41 4d 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 31 5d 20 3a 3d 20 27 52 45 41 4c 20 20 20 20 27 3b ┆AM '; KEYÆ31Å := 'REAL ';┆
0x2eaa0…2eac0 0d 0a 20 20 20 4b 45 59 5b 33 32 5d 20 3a 3d 20 27 52 45 43 4f 52 44 20 20 27 3b 0d 0a 20 20 20 ┆ KEYÆ32Å := 'RECORD '; ┆
0x2eac0…2eae0 4b 45 59 5b 33 33 5d 20 3a 3d 20 27 52 45 50 45 41 54 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 ┆KEYÆ33Å := 'REPEAT '; KEYÆ3┆
0x2eae0…2eb00 34 5d 20 3a 3d 20 27 53 45 54 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 35 5d 20 3a 3d ┆4Å := 'SET '; KEYÆ35Å :=┆
0x2eb00…2eb20 20 27 53 54 52 49 4e 47 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 36 5d 20 3a 3d 20 27 54 45 58 ┆ 'STRING '; KEYÆ36Å := 'TEX┆
0x2eb20…2eb40 54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 37 5d 20 3a 3d 20 27 54 48 45 4e 20 20 20 20 ┆T '; KEYÆ37Å := 'THEN ┆
0x2eb40…2eb60 27 3b 0d 0a 20 20 20 4b 45 59 5b 33 38 5d 20 3a 3d 20 27 54 4f 20 20 20 20 20 20 27 3b 0d 0a 20 ┆'; KEYÆ38Å := 'TO '; ┆
0x2eb60…2eb80 20 20 4b 45 59 5b 33 39 5d 20 3a 3d 20 27 54 59 50 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 ┆ KEYÆ39Å := 'TYPE '; KEY┆
0x2eb80…2eba0 5b 34 30 5d 20 3a 3d 20 27 55 4e 54 49 4c 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 31 5d 20 ┆Æ40Å := 'UNTIL '; KEYÆ41Å ┆
0x2eba0…2ebc0 3a 3d 20 27 56 41 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 32 5d 20 3a 3d 20 27 57 ┆:= 'VAR '; KEYÆ42Å := 'W┆
0x2ebc0…2ebe0 48 49 4c 45 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 33 5d 20 3a 3d 20 27 57 49 54 48 20 20 ┆HILE '; KEYÆ43Å := 'WITH ┆
0x2ebe0…2ec00 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 34 34 5d 20 3a 3d 20 27 57 52 49 54 45 20 20 20 27 3b 0d ┆ '; KEYÆ44Å := 'WRITE '; ┆
0x2ec00…2ec20 (21, 0, 3) 50 20 20 3d 20 37 34 39 3b 20 20 20 20 20 20 20 20 20 20 20 28 2a 53 49 5a 45 20 4f 46 20 48 41 ┆P = 749; (*SIZE OF HA┆
0x2ec20…2ec40 53 48 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 20 20 4e 4b 20 3d 20 20 34 35 3b 20 20 20 20 20 20 ┆SHTABLE*) NK = 45; ┆
0x2ec40…2ec60 20 20 20 20 20 20 20 28 2a 4e 4f 2e 20 4f 46 20 4b 45 59 57 4f 52 44 53 2a 29 0d 0a 20 20 20 20 ┆ (*NO. OF KEYWORDS*) ┆
0x2ec60…2ec80 20 20 41 4c 46 41 4c 45 4e 20 20 3d 20 20 38 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 4c ┆ ALFALEN = 8; REFSPERL┆
0x2ec80…2eca0 49 4e 45 20 3d 20 31 35 3b 0d 0a 20 20 20 20 20 20 52 45 46 53 50 45 52 49 54 45 4d 20 3d 20 20 ┆INE = 15; REFSPERITEM = ┆
0x2eca0…2ecc0 35 3b 0d 0a 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 41 4c 46 41 20 3d 20 50 41 43 4b 45 44 ┆5; TYPE ALFA = PACKED┆
0x2ecc0…2ece0 20 41 52 52 41 59 5b 31 2e 2e 41 4c 46 41 4c 45 4e 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 ┆ ARRAYÆ1..ALFALENÅ OF CHAR; ┆
0x2ece0…2ed00 20 20 49 4e 44 45 58 20 3d 20 30 2e 2e 50 3b 0d 0a 20 20 20 20 20 49 54 45 4d 50 54 52 20 3d 20 ┆ INDEX = 0..P; ITEMPTR = ┆
0x2ed00…2ed20 5e 49 54 45 4d 3b 0d 0a 20 20 20 20 20 57 4f 52 44 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 ┆^ITEM; WORD = RECORD ┆
0x2ed20…2ed40 20 20 20 20 20 20 20 20 20 20 20 4b 45 59 3a 20 41 4c 46 41 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ KEY: ALFA; ┆
0x2ed40…2ed60 20 20 20 20 20 20 46 49 52 53 54 2c 20 4c 41 53 54 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 ┆ FIRST, LAST: ITEMPTR; ┆
0x2ed60…2ed80 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 4c 3a 20 49 4e 44 45 58 0d 0a 20 20 20 20 20 20 20 20 ┆ FOL: INDEX ┆
0x2ed80…2eda0 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 4e 55 4d 52 45 46 53 20 3d 20 31 2e 2e 52 45 46 ┆ END ; NUMREFS = 1..REF┆
0x2eda0…2edc0 53 50 45 52 49 54 45 4d 3b 0d 0a 20 20 20 20 20 52 45 46 54 59 50 45 20 3d 20 28 43 4f 55 4e 54 ┆SPERITEM; REFTYPE = (COUNT┆
0x2edc0…2ede0 2c 20 50 54 52 29 3b 0d 0a 20 20 20 20 20 49 54 45 4d 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 ┆, PTR); ITEM = RECORD ┆
0x2ede0…2ee00 20 20 20 20 20 20 20 20 20 20 20 20 52 45 46 20 20 20 3a 20 41 52 52 41 59 5b 4e 55 4d 52 45 46 ┆ REF : ARRAYÆNUMREF┆
0x2ee00…2ee20 (21, 0, 4) 0a 20 20 20 4b 45 59 5b 34 35 5d 20 3a 3d 20 27 57 52 49 54 45 4c 4e 20 27 3b 0d 0a 45 4e 44 3b ┆ KEYÆ45Å := 'WRITELN '; END;┆
0x2ee20…2ee40 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a 45 20 2a 29 0d 0a 20 20 20 57 ┆ BEGIN (* INITIALIZE *) W┆
0x2ee40…2ee60 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 50 61 73 63 61 6c 2f 4d 54 2b 20 ┆RITELN; WRITELN('Pascal/MT+ ┆
0x2ee60…2ee80 50 72 6f 67 72 61 6d 20 58 72 65 66 20 55 74 69 6c 69 74 79 20 2d 2d 20 52 65 6c 65 61 73 65 20 ┆Program Xref Utility -- Release ┆
0x2ee80…2eea0 35 2e 32 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e 28 27 54 68 69 73 20 70 72 6f 67 72 61 6d ┆5.2'); WRITELN('This program┆
0x2eea0…2eec0 20 69 73 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 27 29 3b 0d 0a 20 20 20 57 52 49 54 45 4c 4e ┆ is public domain'); WRITELN┆
0x2eec0…2eee0 3b 0d 0a 20 20 20 46 46 3a 3d 43 48 52 28 31 32 29 3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 31 29 ┆; FF:=CHR(12); NEW(BUF1)┆
0x2eee0…2ef00 3b 0d 0a 20 20 20 4e 45 57 28 42 55 46 32 29 3b 0d 0a 20 20 20 42 55 46 3a 3d 42 55 46 31 3b 0d ┆; NEW(BUF2); BUF:=BUF1; ┆
0x2ef00…2ef20 0a 20 20 20 45 52 52 4f 52 20 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 46 4f 52 20 49 20 ┆ ERROR := FALSE; FOR I ┆
0x2ef20…2ef40 3a 3d 20 30 20 54 4f 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 54 5b 49 5d 2e 4b 45 59 20 3a 3d 20 ┆:= 0 TO P DO TÆIÅ.KEY := ┆
0x2ef40…2ef60 27 20 20 20 20 20 20 20 20 27 3b 0d 0a 20 20 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 20 20 20 53 ┆' '; FIRSTHALF; S┆
0x2ef60…2ef80 45 43 4f 4e 44 48 41 4c 46 3b 0d 0a 20 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 20 30 3b 0d 0a 20 ┆ECONDHALF; LINECOUNT:= 0; ┆
0x2ef80…2efa0 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 20 30 3b 0d 0a 20 20 20 54 4f 50 20 3a 3d 20 50 3b 0d 0a ┆ BUFCURSOR:= 0; TOP := P; ┆
0x2efa0…2efc0 20 20 20 43 48 20 20 3a 3d 20 27 20 27 0d 0a 45 4e 44 3b 20 28 2a 20 49 4e 49 54 49 41 4c 49 5a ┆ CH := ' ' END; (* INITIALIZ┆
0x2efc0…2efe0 45 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4f 50 45 4e 46 49 4c 45 53 3b ┆E *) PROCEDURE OPENFILES;┆
0x2efe0…2f000 0d 0a 56 41 52 0d 0a 20 20 20 20 4e 55 4d 42 4c 4f 43 4b 53 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆ VAR NUMBLOCKS: INTEGER; ┆
0x2f000…2f020 (21, 0, 5) 53 5d 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 ┆SÅ OF INTEGER; C┆
0x2f020…2f040 41 53 45 20 52 45 46 54 59 50 45 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ASE REFTYPE OF ┆
0x2f040…2f060 20 20 43 4f 55 4e 54 3a 20 28 52 45 46 4e 55 4d 3a 20 4e 55 4d 52 45 46 53 29 3b 0d 0a 20 20 20 ┆ COUNT: (REFNUM: NUMREFS); ┆
0x2f060…2f080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 54 52 3a 20 28 4e 45 58 54 3a 20 49 54 45 4d 50 ┆ PTR: (NEXT: ITEMP┆
0x2f080…2f0a0 54 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 42 55 46 ┆TR) END ; BUF┆
0x2f0a0…2f0c0 46 45 52 20 3d 20 50 41 43 4b 45 44 20 41 52 52 41 59 5b 30 2e 2e 31 33 31 5d 20 4f 46 20 43 48 ┆FER = PACKED ARRAYÆ0..131Å OF CH┆
0x2f0c0…2f0e0 41 52 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 54 4f 50 3a 20 49 4e 44 45 58 3b 20 20 20 20 20 ┆AR; VAR TOP: INDEX; ┆
0x2f0e0…2f100 20 20 20 28 2a 54 4f 50 20 4f 46 20 43 48 41 49 4e 20 4c 49 4e 4b 49 4e 47 20 41 4c 4c 20 45 4e ┆ (*TOP OF CHAIN LINKING ALL EN┆
0x2f100…2f120 54 52 49 45 53 20 49 4e 20 54 2a 29 0d 0a 20 20 20 20 49 2c 4c 49 4e 45 43 4f 55 4e 54 2c 42 55 ┆TRIES IN T*) I,LINECOUNT,BU┆
0x2f120…2f140 46 43 55 52 53 4f 52 3a 20 49 4e 54 45 47 45 52 3b 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45 ┆FCURSOR: INTEGER; (*CURRE┆
0x2f140…2f160 4e 54 20 4c 49 4e 45 20 4e 55 4d 42 45 52 2a 29 0d 0a 20 20 20 20 46 46 2c 43 48 3a 20 43 48 41 ┆NT LINE NUMBER*) FF,CH: CHA┆
0x2f160…2f180 52 3b 20 20 20 20 20 20 20 20 20 20 28 2a 43 55 52 52 45 4e 54 20 43 48 41 52 20 53 43 41 4e 4e ┆R; (*CURRENT CHAR SCANN┆
0x2f180…2f1a0 45 44 20 2a 29 0d 0a 20 20 20 20 42 55 46 2c 42 55 46 31 2c 42 55 46 32 3a 20 5e 42 55 46 46 45 ┆ED *) BUF,BUF1,BUF2: ^BUFFE┆
0x2f1a0…2f1c0 52 3b 0d 0a 20 20 20 20 54 3a 20 41 52 52 41 59 20 5b 49 4e 44 45 58 5d 20 4f 46 20 57 4f 52 44 ┆R; T: ARRAY ÆINDEXÅ OF WORD┆
0x2f1c0…2f1e0 3b 20 20 20 20 20 20 20 20 28 2a 48 41 53 48 20 54 41 42 4c 45 2a 29 0d 0a 20 20 20 20 4b 45 59 ┆; (*HASH TABLE*) KEY┆
0x2f1e0…2f200 3a 20 41 52 52 41 59 20 5b 31 2e 2e 4e 4b 5d 20 4f 46 20 41 4c 46 41 3b 20 20 20 20 20 20 28 2a ┆: ARRAY Æ1..NKÅ OF ALFA; (*┆
0x2f200…2f220 (21, 0, 6) 20 20 20 20 4f 50 45 4e 4f 4b 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 4f 50 45 4e 45 52 ┆ OPENOK: BOOLEAN; OPENER┆
0x2f220…2f240 52 4e 55 4d 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 4c 49 53 54 4f 50 54 49 4f 4e 3a ┆RNUM : INTEGER; LISTOPTION:┆
0x2f240…2f260 20 43 48 41 52 3b 0d 0a 20 20 20 20 46 49 4c 45 4e 41 4d 45 3a 20 53 54 52 49 4e 47 3b 0d 0a 0d ┆ CHAR; FILENAME: STRING; ┆
0x2f260…2f280 0a 42 45 47 49 4e 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 ┆ BEGIN (* OPEN *) REPEAT ┆
0x2f280…2f2a0 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 20 27 49 6e 70 75 ┆ WRITELN; WRITE( 'Inpu┆
0x2f2a0…2f2c0 74 20 66 69 6c 65 20 3f 20 27 20 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 20 46 49 4c ┆t file ? ' ); READLN( FIL┆
0x2f2c0…2f2e0 45 4e 41 4d 45 20 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 46 49 4c 45 4e 41 ┆ENAME ); IF LENGTH(FILENA┆
0x2f2e0…2f300 4d 45 29 20 3e 30 20 54 48 45 4e 0d 0a 09 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 41 ┆ME) >0 THEN BEGIN A┆
0x2f300…2f320 53 53 49 47 4e 28 49 4e 46 49 4c 45 2c 20 46 49 4c 45 4e 41 4d 45 20 29 3b 0d 0a 09 20 20 52 45 ┆SSIGN(INFILE, FILENAME ); RE┆
0x2f320…2f340 53 45 54 28 49 4e 46 49 4c 45 29 0d 0a 09 45 4e 44 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 45 52 ┆SET(INFILE) END; OPENER┆
0x2f340…2f360 52 4e 55 4d 20 3a 3d 20 49 4f 52 45 53 55 4c 54 3b 0d 0a 20 20 20 20 20 20 4f 50 45 4e 4f 4b 20 ┆RNUM := IORESULT; OPENOK ┆
0x2f360…2f380 20 20 20 20 3a 3d 20 28 20 4f 50 45 4e 45 52 52 4e 55 4d 20 3c 3e 20 32 35 35 20 29 3b 0d 0a 20 ┆ := ( OPENERRNUM <> 255 ); ┆
0x2f380…2f3a0 20 20 20 20 20 49 46 20 4e 4f 54 20 4f 50 45 4e 4f 4b 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 ┆ IF NOT OPENOK THEN ┆
0x2f3a0…2f3c0 20 57 52 49 54 45 4c 4e 28 20 27 2a 2a 2a 20 49 4e 50 55 54 20 4f 50 45 4e 20 45 52 52 4f 52 20 ┆ WRITELN( '*** INPUT OPEN ERROR ┆
0x2f3c0…2f3e0 23 27 2c 20 4f 50 45 4e 45 52 52 4e 55 4d 20 29 3b 0d 0a 20 20 20 55 4e 54 49 4c 20 4f 50 45 4e ┆#', OPENERRNUM ); UNTIL OPEN┆
0x2f3e0…2f400 4f 4b 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 27 4f 75 74 70 75 74 20 66 69 6c 65 20 6e 61 6d ┆OK; WRITE('Output file nam┆
0x2f400…2f420 (21, 0, 7) 20 52 45 53 45 52 56 45 44 20 4b 45 59 57 4f 52 44 20 54 41 42 4c 45 20 2a 29 0d 0a 20 20 20 20 ┆ RESERVED KEYWORD TABLE *) ┆
0x2f420…2f440 45 52 52 4f 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ERROR, ┆
0x2f440…2f460 20 28 2a 20 45 52 52 4f 52 20 46 4c 41 47 20 2a 29 0d 0a 20 20 20 20 4c 49 53 54 49 4e 47 3a 20 ┆ (* ERROR FLAG *) LISTING: ┆
0x2f460…2f480 42 4f 4f 4c 45 41 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 4c 49 53 54 49 ┆BOOLEAN; (* LISTI┆
0x2f480…2f4a0 4e 47 20 4f 50 54 49 4f 4e 20 2a 29 0d 0a 20 20 20 20 49 4e 46 49 4c 45 3a 20 54 45 58 54 3b 0d ┆NG OPTION *) INFILE: TEXT; ┆
0x2f4a0…2f4c0 0a 20 20 20 20 4c 53 54 20 3a 20 54 45 58 54 3b 09 09 09 0d 0a 20 20 20 20 4c 53 54 46 49 4c 45 ┆ LST : TEXT; LSTFILE┆
0x2f4c0…2f4e0 4e 41 4d 45 20 3a 20 53 54 52 49 4e 47 3b 0d 0a 20 20 20 20 49 4e 50 55 54 5f 4c 49 4e 45 20 3a ┆NAME : STRING; INPUT_LINE :┆
0x2f4e0…2f500 20 53 54 52 49 4e 47 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 49 4e 49 54 49 41 4c 49 5a 45 ┆ STRING; PROCEDURE INITIALIZE┆
0x2f500…2f520 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 50 52 4f 43 45 44 ┆; VAR I : INTEGER; PROCED┆
0x2f520…2f540 55 52 45 20 46 49 52 53 54 48 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 20 31 ┆URE FIRSTHALF; BEGIN KEYÆ 1┆
0x2f540…2f560 5d 20 3a 3d 20 27 41 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 32 5d 20 3a 3d 20 ┆Å := 'AND '; KEYÆ 2Å := ┆
0x2f560…2f580 27 41 52 52 41 59 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 33 5d 20 3a 3d 20 27 42 45 47 49 ┆'ARRAY '; KEYÆ 3Å := 'BEGI┆
0x2f580…2f5a0 4e 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 34 5d 20 3a 3d 20 27 42 4f 4f 4c 45 41 4e 20 27 ┆N '; KEYÆ 4Å := 'BOOLEAN '┆
0x2f5a0…2f5c0 3b 0d 0a 20 20 20 4b 45 59 5b 20 35 5d 20 3a 3d 20 27 43 41 53 45 20 20 20 20 27 3b 0d 0a 20 20 ┆; KEYÆ 5Å := 'CASE '; ┆
0x2f5c0…2f5e0 20 4b 45 59 5b 20 36 5d 20 3a 3d 20 27 43 48 41 52 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b ┆ KEYÆ 6Å := 'CHAR '; KEYÆ┆
0x2f5e0…2f600 20 37 5d 20 3a 3d 20 27 43 4f 4e 53 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 38 5d 20 3a ┆ 7Å := 'CONST '; KEYÆ 8Å :┆
0x2f600…2f620 (21, 0, 8) 65 3f 20 27 29 3b 0d 0a 20 20 20 52 45 41 44 4c 4e 28 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d ┆e? '); READLN(LSTFILENAME); ┆
0x2f620…2f640 0a 20 20 20 41 53 53 49 47 4e 28 4c 53 54 2c 4c 53 54 46 49 4c 45 4e 41 4d 45 29 3b 0d 0a 20 20 ┆ ASSIGN(LST,LSTFILENAME); ┆
0x2f640…2f660 20 52 45 57 52 49 54 45 28 4c 53 54 29 3b 0d 0a 0d 0a 20 20 20 57 52 49 54 45 28 20 27 44 6f 20 ┆ REWRITE(LST); WRITE( 'Do ┆
0x2f660…2f680 79 6f 75 20 77 61 6e 74 20 61 20 6c 69 73 74 69 6e 67 20 3f 20 27 20 29 3b 0d 0a 20 20 20 52 45 ┆you want a listing ? ' ); RE┆
0x2f680…2f6a0 41 44 28 20 4c 49 53 54 4f 50 54 49 4f 4e 20 29 3b 0d 0a 20 20 20 4c 49 53 54 49 4e 47 20 3a 3d ┆AD( LISTOPTION ); LISTING :=┆
0x2f6a0…2f6c0 20 4e 4f 54 28 4c 49 53 54 4f 50 54 49 4f 4e 20 3d 20 27 4e 27 29 3b 0d 0a 20 20 20 49 46 20 4c ┆ NOT(LISTOPTION = 'N'); IF L┆
0x2f6c0…2f6e0 49 53 54 49 4e 47 20 54 48 45 4e 20 50 55 54 4e 55 4d 42 45 52 28 30 29 3b 0d 0a 20 20 20 52 45 ┆ISTING THEN PUTNUMBER(0); RE┆
0x2f6e0…2f700 41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b 0d 0a 20 20 20 57 52 49 ┆ADLN(INFILE,INPUT_LINE); WRI┆
0x2f700…2f720 54 45 4c 4e 3b 0d 0a 45 4e 44 3b 20 28 2a 20 4f 50 45 4e 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 ┆TELN; END; (* OPEN *) PROC┆
0x2f720…2f740 45 44 55 52 45 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 ┆EDURE LPWRITELN; VAR I : INT┆
0x2f740…2f760 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 3a ┆EGER; BEGIN BUF^ÆBUFCURSORÅ:┆
0x2f760…2f780 3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f ┆=CHR(13); BUFCURSOR:=BUFCURSO┆
0x2f780…2f7a0 52 2b 31 3b 0d 0a 20 20 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d ┆R+1; FOR I := 0 TO BUFCURSOR-┆
0x2f7a0…2f7c0 31 20 44 4f 0d 0a 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49 5d 29 3b 0d 0a 20 ┆1 DO WRITE(LST,BUF^ÆIÅ); ┆
0x2f7c0…2f7e0 20 49 46 20 42 55 46 20 3d 20 42 55 46 31 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 32 20 45 4c ┆ IF BUF = BUF1 THEN BUF:=BUF2 EL┆
0x2f7e0…2f800 53 45 20 42 55 46 3a 3d 42 55 46 31 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a ┆SE BUF:=BUF1; BUFCURSOR:=0; ┆
0x2f800…2f820 (21, 0, 9) 3d 20 27 44 49 56 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 20 39 5d 20 3a 3d 20 27 44 4f ┆= 'DIV '; KEYÆ 9Å := 'DO┆
0x2f820…2f840 57 4e 54 4f 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 30 5d 20 3a 3d 20 27 44 4f 20 20 20 20 20 ┆WNTO '; KEYÆ10Å := 'DO ┆
0x2f840…2f860 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 31 5d 20 3a 3d 20 27 45 4c 53 45 20 20 20 20 27 3b 0d 0a ┆ '; KEYÆ11Å := 'ELSE '; ┆
0x2f860…2f880 20 20 20 4b 45 59 5b 31 32 5d 20 3a 3d 20 27 45 4e 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 ┆ KEYÆ12Å := 'END '; KE┆
0x2f880…2f8a0 59 5b 31 33 5d 20 3a 3d 20 27 45 58 49 54 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 34 5d ┆YÆ13Å := 'EXIT '; KEYÆ14Å┆
0x2f8a0…2f8c0 20 3a 3d 20 27 46 49 4c 45 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 35 5d 20 3a 3d 20 27 ┆ := 'FILE '; KEYÆ15Å := '┆
0x2f8c0…2f8e0 46 4f 52 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 36 5d 20 3a 3d 20 27 46 55 4e 43 54 ┆FOR '; KEYÆ16Å := 'FUNCT┆
0x2f8e0…2f900 49 4f 4e 27 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 43 4f 4e 44 48 ┆ION'; END; PROCEDURE SECONDH┆
0x2f900…2f920 41 4c 46 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4b 45 59 5b 31 37 5d 20 3a 3d 20 27 47 4f 54 4f ┆ALF; BEGIN KEYÆ17Å := 'GOTO┆
0x2f920…2f940 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 31 38 5d 20 3a 3d 20 27 49 46 20 20 20 20 20 20 27 ┆ '; KEYÆ18Å := 'IF '┆
0x2f940…2f960 3b 0d 0a 20 20 20 4b 45 59 5b 31 39 5d 20 3a 3d 20 27 49 4e 20 20 20 20 20 20 27 3b 0d 0a 20 20 ┆; KEYÆ19Å := 'IN '; ┆
0x2f960…2f980 20 4b 45 59 5b 32 30 5d 20 3a 3d 20 27 49 4e 50 55 54 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b ┆ KEYÆ20Å := 'INPUT '; KEYÆ┆
0x2f980…2f9a0 32 31 5d 20 3a 3d 20 27 49 4e 54 45 47 45 52 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 32 5d 20 3a ┆21Å := 'INTEGER '; KEYÆ22Å :┆
0x2f9a0…2f9c0 3d 20 27 4d 4f 44 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 33 5d 20 3a 3d 20 27 4e 49 ┆= 'MOD '; KEYÆ23Å := 'NI┆
0x2f9c0…2f9e0 4c 20 20 20 20 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 34 5d 20 3a 3d 20 27 4e 4f 54 20 20 20 20 ┆L '; KEYÆ24Å := 'NOT ┆
0x2f9e0…2fa00 20 27 3b 0d 0a 20 20 20 4b 45 59 5b 32 35 5d 20 3a 3d 20 27 4f 46 20 20 20 20 20 20 27 3b 0d 0a ┆ '; KEYÆ25Å := 'OF '; ┆
0x2fa00…2fa20 (21, 1, 1) 20 20 4c 49 4e 45 43 4f 55 4e 54 3a 3d 4c 49 4e 45 43 4f 55 4e 54 2b 31 3b 0d 0a 20 20 49 46 20 ┆ LINECOUNT:=LINECOUNT+1; IF ┆
0x2fa20…2fa40 28 4c 49 4e 45 43 4f 55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 ┆(LINECOUNT MOD 60) = 0 THEN ┆
0x2fa40…2fa60 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 ┆ PAGE(LST); END; PROCEDURE P┆
0x2fa60…2fa80 55 54 41 4c 46 41 28 53 3a 41 4c 46 41 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4d 4f 56 45 4c 45 ┆UTALFA(S:ALFA); BEGIN MOVELE┆
0x2fa80…2faa0 46 54 28 53 5b 31 5d 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 38 29 3b 0d 0a 20 20 42 ┆FT(SÆ1Å,BUF^ÆBUFCURSORÅ,8); B┆
0x2faa0…2fac0 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 38 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a ┆UFCURSOR:=BUFCURSOR+8; END; ┆
0x2fac0…2fae0 50 52 4f 43 45 44 55 52 45 20 50 55 54 4e 55 4d 42 45 52 28 4e 55 4d 3a 20 49 4e 54 45 47 45 52 ┆PROCEDURE PUTNUMBER(NUM: INTEGER┆
0x2fae0…2fb00 29 3b 0d 0a 56 41 52 20 49 2c 49 50 4f 54 3a 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 41 3a 20 ┆); VAR I,IPOT:INTEGER; A: ┆
0x2fb00…2fb20 41 4c 46 41 3b 0d 0a 20 20 20 20 43 48 3a 20 43 48 41 52 3b 0d 0a 20 20 20 20 5a 41 50 3a 42 4f ┆ALFA; CH: CHAR; ZAP:BO┆
0x2fb20…2fb40 4f 4c 45 41 4e 3b 0d 0a 20 20 20 20 0d 0a 42 45 47 49 4e 0d 0a 20 20 5a 41 50 3a 3d 54 52 55 45 ┆OLEAN; BEGIN ZAP:=TRUE┆
0x2fb40…2fb60 3b 0d 0a 20 20 49 50 4f 54 3a 3d 31 30 30 30 30 3b 0d 0a 20 20 41 5b 31 5d 3a 3d 27 20 27 3b 0d ┆; IPOT:=10000; AÆ1Å:=' '; ┆
0x2fb60…2fb80 0a 20 20 46 4f 52 20 49 3a 3d 20 32 20 54 4f 20 36 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d ┆ FOR I:= 2 TO 6 DO BEGIN ┆
0x2fb80…2fba0 0a 20 20 20 20 20 20 43 48 3a 3d 43 48 52 28 4e 55 4d 20 44 49 56 20 49 50 4f 54 20 2b 20 4f 52 ┆ CH:=CHR(NUM DIV IPOT + OR┆
0x2fba0…2fbc0 44 28 27 30 27 29 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 3e 20 36 20 54 48 45 4e 0d 0a ┆D('0')); IF I <> 6 THEN ┆
0x2fbc0…2fbe0 20 20 20 20 20 20 20 20 49 46 20 5a 41 50 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ IF ZAP THEN ┆
0x2fbe0…2fc00 49 46 20 43 48 20 3d 20 27 30 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 43 ┆IF CH = '0' THEN C┆
0x2fc00…2fc20 (21, 1, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 4e 45 58 ┆ TÆHÅ.LAST^.NEX┆
0x2fc20…2fc40 54 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T:= X; ┆
0x2fc40…2fc60 20 54 5b 48 5d 2e 4c 41 53 54 20 20 20 20 20 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ TÆHÅ.LAST := X; ┆
0x2fc60…2fc80 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END ┆
0x2fc80…2fca0 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 49 54 48 ┆ ELSE WITH┆
0x2fca0…2fcc0 20 54 5b 48 5d 2e 4c 41 53 54 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TÆHÅ.LAST^ DO ┆
0x2fcc0…2fce0 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x2fce0…2fd00 20 20 20 20 20 20 20 20 52 45 46 4e 55 4d 20 20 20 20 20 20 3a 3d 20 52 45 46 4e 55 4d 20 2b 20 ┆ REFNUM := REFNUM + ┆
0x2fd00…2fd20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 ┆1; RE┆
0x2fd20…2fd40 46 5b 52 45 46 4e 55 4d 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 0d 0a 20 20 20 20 20 20 20 20 ┆FÆREFNUMÅ := LINECOUNT ┆
0x2fd40…2fd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END ┆
0x2fd60…2fd80 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆END ELSE ┆
0x2fd80…2fda0 49 46 20 54 5b 48 5d 2e 4b 45 59 20 3d 20 27 20 20 20 20 20 20 20 20 27 0d 0a 20 20 20 20 20 20 ┆IF TÆHÅ.KEY = ' ' ┆
0x2fda0…2fdc0 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x2fdc0…2fde0 20 42 45 47 49 4e 20 28 2a 4e 45 57 20 45 4e 54 52 59 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN (*NEW ENTRY*) ┆
0x2fde0…2fe00 20 20 20 20 20 20 20 20 20 20 20 46 20 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ F := TRUE; ┆
0x2fe00…2fe20 (21, 1, 3) 48 3a 3d 27 20 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 5a 41 50 3a 3d 46 41 4c ┆H:=' ' ELSE ZAP:=FAL┆
0x2fe20…2fe40 53 45 3b 0d 0a 20 20 20 20 20 20 41 5b 49 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 4e 55 4d 3a ┆SE; AÆIÅ:=CH; NUM:┆
0x2fe40…2fe60 3d 4e 55 4d 20 4d 4f 44 20 49 50 4f 54 3b 0d 0a 20 20 20 20 20 20 49 50 4f 54 3a 3d 49 50 4f 54 ┆=NUM MOD IPOT; IPOT:=IPOT┆
0x2fe60…2fe80 20 44 49 56 20 31 30 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 41 5b 37 5d 3a 3d 27 20 27 3b ┆ DIV 10; END; AÆ7Å:=' ';┆
0x2fe80…2fea0 0d 0a 20 20 4d 4f 56 45 4c 45 46 54 28 41 2c 42 55 46 5e 5b 42 55 46 43 55 52 53 4f 52 5d 2c 37 ┆ MOVELEFT(A,BUF^ÆBUFCURSORÅ,7┆
0x2fea0…2fec0 29 3b 0d 0a 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 37 3b 0d 0a 45 ┆); BUFCURSOR:=BUFCURSOR+7; E┆
0x2fec0…2fee0 4e 44 3b 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d ┆ND; PROCEDURE GETNEXTCHAR; ┆
0x2fee0…2ff00 0a 56 41 52 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 0d 0a 20 20 20 20 ┆ VAR I : INTEGER; BEGIN ┆
0x2ff00…2ff20 49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a ┆IF LENGTH(INPUT_LINE) = 0 THEN ┆
0x2ff20…2ff40 20 20 20 20 20 20 52 45 41 44 4c 4e 28 49 4e 46 49 4c 45 2c 49 4e 50 55 54 5f 4c 49 4e 45 29 3b ┆ READLN(INFILE,INPUT_LINE);┆
0x2ff40…2ff60 0d 0a 0d 0a 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 ┆ IF LENGTH(INPUT_LINE) = ┆
0x2ff60…2ff80 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 43 48 20 3a 3d 20 27 20 27 0d 0a 20 20 20 20 45 4c 53 ┆0 THEN CH := ' ' ELS┆
0x2ff80…2ffa0 45 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 43 48 3a 3d 49 4e 50 55 54 5f 4c 49 4e 45 5b ┆E BEGIN CH:=INPUT_LINEÆ┆
0x2ffa0…2ffc0 31 5d 3b 0d 0a 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 28 49 4e 50 55 54 5f 4c 49 4e 45 2c 31 ┆1Å; DELETE(INPUT_LINE,1┆
0x2ffc0…2ffe0 2c 31 29 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 49 46 20 45 4f 46 28 49 4e ┆,1) END; IF EOF(IN┆
0x2ffe0…30000 46 49 4c 45 29 20 54 48 45 4e 20 45 52 52 4f 52 3a 3d 54 52 55 45 0d 0a 20 20 20 20 45 4c 53 45 ┆FILE) THEN ERROR:=TRUE ELSE┆
0x30000…30020 (21, 1, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ NEW(X); ┆
0x30020…30040 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20 3a 3d 20 31 3b 0d 0a 20 20 20 20 ┆ X^.REFNUM := 1; ┆
0x30040…30060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49 ┆ X^.REFÆ1Å := LI┆
0x30060…30080 4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆NECOUNT; T┆
0x30080…300a0 5b 48 5d 2e 4b 45 59 20 20 20 3a 3d 20 49 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ÆHÅ.KEY := ID; ┆
0x300a0…300c0 20 20 20 20 20 20 20 54 5b 48 5d 2e 46 49 52 53 54 20 3a 3d 20 58 3b 0d 0a 20 20 20 20 20 20 20 ┆ TÆHÅ.FIRST := X; ┆
0x300c0…300e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 4c 41 53 54 20 20 3a 3d 20 58 3b 0d 0a ┆ TÆHÅ.LAST := X; ┆
0x300e0…30100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 48 5d 2e 46 4f 4c 20 20 20 ┆ TÆHÅ.FOL ┆
0x30100…30120 3a 3d 20 54 4f 50 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f ┆:= TOP; TO┆
0x30120…30140 50 20 3a 3d 20 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 ┆P := H END ┆
0x30140…30160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x30160…30180 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 43 4f 4c 4c 49 53 49 4f 4e 2a 29 0d 0a 20 20 20 20 20 ┆ BEGIN (*COLLISION*) ┆
0x30180…301a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 2b 44 3b 0d 0a 20 20 20 20 20 ┆ H := H+D; ┆
0x301a0…301c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 20 3a 3d 20 44 2b 32 3b 0d 0a 20 20 20 20 20 ┆ D := D+2; ┆
0x301c0…301e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 48 20 3e 3d 20 50 0d 0a 20 20 20 20 20 ┆ IF H >= P ┆
0x301e0…30200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 ┆ THEN ┆
0x30200…30220 (21, 1, 5) 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43 ┆ BEGIN BUF^ÆBUFC┆
0x30220…30240 55 52 53 4f 52 5d 3a 3d 43 48 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d ┆URSORÅ:=CH; BUFCURSOR:=┆
0x30240…30260 42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4c 45 4e 47 54 48 28 ┆BUFCURSOR+1; IF LENGTH(┆
0x30260…30280 49 4e 50 55 54 5f 4c 49 4e 45 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆INPUT_LINE) = 0 THEN ┆
0x30280…302a0 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 5e 5b 42 55 46 43 55 52 53 4f ┆BEGIN BUF^ÆBUFCURSO┆
0x302a0…302c0 52 5d 3a 3d 43 48 52 28 31 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52 ┆RÅ:=CHR(13); BUFCUR┆
0x302c0…302e0 53 4f 52 3a 3d 42 55 46 43 55 52 53 4f 52 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4c ┆SOR:=BUFCURSOR+1; L┆
0x302e0…30300 49 4e 45 43 4f 55 4e 54 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 20 2b 31 3b 0d 0a 20 20 20 20 20 20 ┆INECOUNT:= LINECOUNT +1; ┆
0x30300…30320 20 20 20 20 20 20 49 46 20 4c 49 53 54 49 4e 47 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF LISTING THEN ┆
0x30320…30340 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 49 46 20 4c 53 54 46 49 4c 45 4e 41 4d 45 20 3c 3e 20 ┆ BEGIN IF LSTFILENAME <> ┆
0x30340…30360 27 43 4f 4e 3a 27 20 54 48 45 4e 0d 0a 09 09 20 20 57 52 49 54 45 28 27 2e 27 29 3b 0d 0a 09 09 ┆'CON:' THEN WRITE('.'); ┆
0x30360…30380 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 42 55 46 43 55 52 53 4f 52 2d 31 20 44 4f 0d 0a 20 20 ┆FOR I := 0 TO BUFCURSOR-1 DO ┆
0x30380…303a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 4c 53 54 2c 42 55 46 5e 5b 49 ┆ WRITE(LST,BUF^ÆI┆
0x303a0…303c0 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 46 20 3d 20 42 55 ┆Å); IF BUF = BU┆
0x303c0…303e0 46 32 20 54 48 45 4e 20 42 55 46 3a 3d 42 55 46 31 20 45 4c 53 45 20 42 55 46 3a 3d 42 55 46 32 ┆F2 THEN BUF:=BUF1 ELSE BUF:=BUF2┆
0x303e0…30400 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 55 46 43 55 52 53 4f 52 3a 3d 30 3b ┆; BUFCURSOR:=0;┆
0x30400…30420 (21, 1, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 20 3a 3d 20 48 20 2d 20 50 3b 0d ┆ H := H - P; ┆
0x30420…30440 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 44 20 3d 20 50 0d 0a ┆ IF D = P ┆
0x30440…30460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 ┆ THEN ┆
0x30460…30480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a ┆ BEGIN ┆
0x30480…304a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 ┆ WR┆
0x304a0…304c0 49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 54 42 4c 45 20 4f 56 46 4c 57 27 29 3b 0d 0a 20 20 20 ┆ITELN(OUTPUT,'TBLE OVFLW'); ┆
0x304c0…304e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4f 52 ┆ ERROR┆
0x304e0…30500 20 3a 3d 20 54 52 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := TRUE ┆
0x30500…30520 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆ END ; EN┆
0x30520…30540 44 0d 0a 20 20 20 55 4e 54 49 4c 20 46 20 4f 52 20 45 52 52 4f 52 0d 0a 45 4e 44 20 28 2a 53 45 ┆D UNTIL F OR ERROR END (*SE┆
0x30540…30560 41 52 43 48 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 52 49 4e 54 57 ┆ARCH*) ; PROCEDURE PRINTW┆
0x30560…30580 4f 52 44 28 57 3a 20 57 4f 52 44 29 3b 0d 0a 56 41 52 0d 0a 20 20 20 20 4c 3a 20 49 4e 54 45 47 ┆ORD(W: WORD); VAR L: INTEG┆
0x30580…305a0 45 52 3b 0d 0a 20 20 20 20 58 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 4e 45 58 54 52 45 ┆ER; X: ITEMPTR; NEXTRE┆
0x305a0…305c0 46 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 54 48 49 53 52 45 46 3a 20 4e 55 4d 52 45 ┆F : INTEGER; THISREF: NUMRE┆
0x305c0…305e0 46 53 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 50 55 54 41 4c 46 41 28 57 2e 4b 45 59 29 3b 0d 0a ┆FS; BEGIN PUTALFA(W.KEY); ┆
0x305e0…30600 20 20 20 58 20 3a 3d 20 57 2e 46 49 52 53 54 3b 0d 0a 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20 ┆ X := W.FIRST; L := 0; ┆
0x30600…30620 (21, 1, 7) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4c 49 4e 45 ┆ PUTNUMBER(LINE┆
0x30620…30640 43 4f 55 4e 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 ┆COUNT); END ┆
0x30640…30660 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 42 55 ┆ ELSE BEGIN BU┆
0x30660…30680 46 43 55 52 53 4f 52 3a 3d 30 3b 0d 0a 09 09 57 52 49 54 45 28 27 2e 27 29 0d 0a 09 20 20 20 20 ┆FCURSOR:=0; WRITE('.') ┆
0x30680…306a0 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 4c 49 4e 45 43 4f ┆ END; IF (LINECO┆
0x306a0…306c0 55 4e 54 20 4d 4f 44 20 36 30 29 20 3d 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆UNT MOD 60) = 0 THEN ┆
0x306c0…306e0 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4c 49 ┆ BEGIN IF LI┆
0x306e0…30700 53 54 49 4e 47 20 54 48 45 4e 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆STING THEN PAGE(LST); ┆
0x30700…30720 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4f 55 54 50 55 54 2c 27 3c 20 27 2c 4c 49 4e 45 43 ┆ WRITELN(OUTPUT,'< ',LINEC┆
0x30720…30740 4f 55 4e 54 3a 34 2c 27 2c 27 2c 4d 45 4d 41 56 41 49 4c 3a 35 2c 27 20 3e 27 29 3b 0d 0a 20 20 ┆OUNT:4,',',MEMAVAIL:5,' >'); ┆
0x30740…30760 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ END; END┆
0x30760…30780 3b 0d 0a 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 45 4e 44 3b 20 28 2a 20 47 45 54 4e 45 58 54 ┆; END; END; (* GETNEXT┆
0x30780…307a0 43 48 41 52 20 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 45 41 52 43 48 28 20 49 ┆CHAR *) PROCEDURE SEARCH( I┆
0x307a0…307c0 44 3a 20 41 4c 46 41 20 29 3b 20 20 20 20 20 20 20 20 20 20 28 2a 4d 4f 44 55 4c 4f 20 50 20 48 ┆D: ALFA ); (*MODULO P H┆
0x307c0…307e0 41 53 48 20 53 45 41 52 43 48 2a 29 0d 0a 28 2a 47 4c 4f 42 41 4c 3a 20 54 2c 20 54 4f 50 2a 29 ┆ASH SEARCH*) (*GLOBAL: T, TOP*)┆
0x307e0…30800 0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 48 2c 44 20 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a ┆ VAR I,J,H,D : INTEGER; ┆
0x30800…30820 (21, 1, 8) 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 4c 20 3d 20 52 45 46 53 50 45 52 4c 49 4e ┆ REPEAT IF L = REFSPERLIN┆
0x30820…30840 45 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆E THEN BE┆
0x30840…30860 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 20 3a 3d 20 30 3b 0d 0a 20 20 20 ┆GIN L := 0; ┆
0x30860…30880 20 20 20 20 20 20 20 20 20 20 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ LPWRITELN; ┆
0x30880…308a0 20 20 20 20 20 20 20 50 55 54 41 4c 46 41 28 27 20 20 20 20 20 20 20 20 27 29 3b 0d 0a 20 20 20 ┆ PUTALFA(' '); ┆
0x308a0…308c0 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 20 20 20 4c 20 3a 3d 20 4c 2b 31 3b 0d ┆ END ; L := L+1; ┆
0x308c0…308e0 0a 20 20 20 20 20 20 54 48 49 53 52 45 46 20 3a 3d 20 28 4c 2d 31 29 20 4d 4f 44 20 52 45 46 53 ┆ THISREF := (L-1) MOD REFS┆
0x308e0…30900 50 45 52 49 54 45 4d 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 4e 45 58 54 52 45 46 20 3a 3d 20 58 ┆PERITEM + 1; NEXTREF := X┆
0x30900…30920 5e 2e 52 45 46 5b 20 54 48 49 53 52 45 46 20 5d 3b 0d 0a 20 20 20 20 20 20 49 46 20 54 48 49 53 ┆^.REFÆ THISREF Å; IF THIS┆
0x30920…30940 52 45 46 20 3d 20 58 5e 2e 52 45 46 4e 55 4d 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a ┆REF = X^.REFNUM THEN ┆
0x30940…30960 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 4e 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 45 ┆ X := NIL E┆
0x30960…30980 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 48 49 53 52 45 46 20 3d 20 52 45 ┆LSE IF THISREF = RE┆
0x30980…309a0 46 53 50 45 52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a ┆FSPERITEM THEN ┆
0x309a0…309c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 20 3a 3d 20 58 5e 2e 4e 45 58 54 3b 0d ┆ X := X^.NEXT; ┆
0x309c0…309e0 0a 20 20 20 20 20 20 50 55 54 4e 55 4d 42 45 52 28 4e 45 58 54 52 45 46 29 3b 0d 0a 20 20 20 55 ┆ PUTNUMBER(NEXTREF); U┆
0x309e0…30a00 4e 54 49 4c 20 58 20 3d 20 4e 49 4c 3b 0d 0a 20 20 4c 50 57 52 49 54 45 4c 4e 3b 0d 0a 45 4e 44 ┆NTIL X = NIL; LPWRITELN; END┆
0x30a00…30a20 (21, 1, 9) 20 20 20 20 58 20 20 20 20 3a 20 49 54 45 4d 50 54 52 3b 0d 0a 20 20 20 20 46 20 20 20 20 3a 20 ┆ X : ITEMPTR; F : ┆
0x30a20…30a40 42 4f 4f 4c 45 41 4e 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 4a 3a 3d 30 3b 0d 0a 20 20 20 ┆BOOLEAN; BEGIN J:=0; ┆
0x30a40…30a60 46 4f 52 20 49 3a 3d 20 31 20 54 4f 20 41 4c 46 41 4c 45 4e 20 44 4f 0d 0a 20 20 20 20 20 4a 3a ┆FOR I:= 1 TO ALFALEN DO J:┆
0x30a60…30a80 3d 20 4a 2a 31 30 2b 4f 52 44 28 49 44 5b 49 5d 29 3b 0d 0a 20 20 20 48 20 20 3a 3d 20 41 42 53 ┆= J*10+ORD(IDÆIÅ); H := ABS┆
0x30a80…30aa0 28 4a 29 20 4d 4f 44 20 50 3b 0d 0a 20 20 20 46 20 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 20 ┆(J) MOD P; F := FALSE; ┆
0x30aa0…30ac0 44 20 20 3a 3d 20 31 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 54 5b ┆D := 1; REPEAT IF TÆ┆
0x30ac0…30ae0 48 5d 2e 4b 45 59 20 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 ┆HÅ.KEY = ID THEN ┆
0x30ae0…30b00 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 28 2a 46 4f 55 4e 44 2a 29 0d 0a 20 20 20 20 20 20 20 ┆ BEGIN (*FOUND*) ┆
0x30b00…30b20 20 20 20 20 20 20 20 20 46 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ F := TRUE; ┆
0x30b20…30b40 20 20 20 49 46 20 54 5b 48 5d 2e 4c 41 53 54 5e 2e 52 45 46 4e 55 4d 20 3d 20 52 45 46 53 50 45 ┆ IF TÆHÅ.LAST^.REFNUM = REFSPE┆
0x30b40…30b60 52 49 54 45 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 ┆RITEM THEN ┆
0x30b60…30b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆ BEGIN ┆
0x30b80…30ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 28 58 29 3b 0d 0a 20 20 20 ┆ NEW(X); ┆
0x30ba0…30bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 5e 2e 52 45 46 4e 55 4d 20 ┆ X^.REFNUM ┆
0x30bc0…30be0 3a 3d 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= 1; ┆
0x30be0…30c00 58 5e 2e 52 45 46 5b 31 5d 20 3a 3d 20 4c 49 4e 45 43 4f 55 4e 54 3b 0d 0a 20 20 20 20 20 20 20 ┆X^.REFÆ1Å := LINECOUNT; ┆
0x30c00…30c20 (22, 0, 1) 20 28 2a 50 52 49 4e 54 57 4f 52 44 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆ (*PRINTWORD*) ; PROCEDUR┆
0x30c20…30c40 45 20 50 52 49 4e 54 54 41 42 4c 45 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 20 20 49 2c 4a 2c 4d 3a ┆E PRINTTABLE; VAR I,J,M:┆
0x30c40…30c60 20 49 4e 44 45 58 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 49 20 3a 3d 20 54 4f 50 3b 0d 0a ┆ INDEX; BEGIN I := TOP; ┆
0x30c60…30c80 20 20 20 57 48 49 4c 45 20 49 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 20 ┆ WHILE I <> P DO BEGIN ┆
0x30c80…30ca0 28 2a 46 49 4e 44 20 4d 49 4e 49 4d 41 4c 20 57 4f 52 44 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 ┆(*FIND MINIMAL WORD*) ┆
0x30ca0…30cc0 4d 20 3a 3d 20 49 3b 0d 0a 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 3b ┆M := I; J := TÆIÅ.FOL;┆
0x30cc0…30ce0 0d 0a 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 4a 20 3c 3e 20 50 20 44 4f 0d 0a 20 20 20 20 ┆ WHILE J <> P DO ┆
0x30ce0…30d00 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 ┆ BEGIN IF┆
0x30d00…30d20 20 54 5b 4a 5d 2e 4b 45 59 20 3c 20 54 5b 4d 5d 2e 4b 45 59 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ TÆJÅ.KEY < TÆMÅ.KEY ┆
0x30d20…30d40 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ THEN ┆
0x30d40…30d60 20 20 20 4d 20 3a 3d 20 4a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 ┆ M := J; J := ┆
0x30d60…30d80 54 5b 4a 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 3b 0d 0a 20 20 20 ┆TÆJÅ.FOL END ; ┆
0x30d80…30da0 20 20 20 20 20 20 50 52 49 4e 54 57 4f 52 44 28 54 5b 4d 5d 29 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ PRINTWORD(TÆMÅ); ┆
0x30da0…30dc0 20 49 46 20 4d 20 3c 3e 20 49 20 54 48 45 4e 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 42 45 47 ┆ IF M <> I THEN BEG┆
0x30dc0…30de0 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4b 45 59 3a 3d 54 5b 49 5d 2e ┆IN TÆMÅ.KEY:=TÆIÅ.┆
0x30de0…30e00 4b 45 59 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 46 49 52 53 54 3a 3d 54 ┆KEY; TÆMÅ.FIRST:=T┆
0x30e00…30e20 (22, 0, 2) 3b 0d 0a 20 20 20 50 52 49 4e 54 54 41 42 4c 45 3b 0d 0a 20 20 20 50 41 47 45 28 4c 53 54 29 3b ┆; PRINTTABLE; PAGE(LST);┆
0x30e20…30e40 0d 0a 20 20 20 43 4c 4f 53 45 28 4c 53 54 2c 49 29 3b 0d 0a 20 20 20 49 46 20 49 20 3d 20 32 35 ┆ CLOSE(LST,I); IF I = 25┆
0x30e40…30e60 35 20 54 48 45 4e 0d 0a 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 45 72 72 6f 72 20 63 6c 6f 73 ┆5 THEN WRITELN('Error clos┆
0x30e60…30e80 69 6e 67 20 6f 75 74 70 75 74 20 66 69 6c 65 27 29 0d 0a 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a ┆ing output file') END. ┆
0x30e80…30ea0 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x30ea0…30ec0 20 20 20 20 20 20 57 48 49 4c 45 20 28 43 48 20 3c 3e 20 27 2a 27 29 20 41 4e 44 20 28 4e 4f 54 ┆ WHILE (CH <> '*') AND (NOT┆
0x30ec0…30ee0 28 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(ERROR)) DO ┆
0x30ee0…30f00 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x30f00…30f20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x30f20…30f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x30f40…30f60 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x30f60…30f80 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ END; E┆
0x30f80…30fa0 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ND ELSE ┆
0x30fa0…30fc0 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 0d 0a 20 20 20 20 20 20 45 4e 44 3b 20 28 ┆ GETNEXTCHAR; END; (┆
0x30fc0…30fe0 2a 20 57 48 49 4c 45 20 2a 29 0d 0a 20 20 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 20 20 20 4c 49 ┆* WHILE *) PAGE(LST); LI┆
0x30fe0…31000 4e 45 43 4f 55 4e 54 20 3a 3d 20 30 3b 0d 0a 20 20 20 42 55 46 43 55 52 53 4f 52 20 3a 3d 20 30 ┆NECOUNT := 0; BUFCURSOR := 0┆
0x31000…31020 (22, 0, 3) 5b 49 5d 2e 46 49 52 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 54 5b 4d 5d 2e 4c 41 ┆ÆIÅ.FIRST; TÆMÅ.LA┆
0x31020…31040 53 54 3a 3d 54 5b 49 5d 2e 4c 41 53 54 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d ┆ST:=TÆIÅ.LAST; END; ┆
0x31040…31060 0a 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 54 5b 49 5d 2e 46 4f 4c 0d 0a 20 20 20 20 20 20 45 ┆ I := TÆIÅ.FOL E┆
0x31060…31080 4e 44 0d 0a 45 4e 44 20 28 2a 50 52 49 4e 54 54 41 42 4c 45 2a 29 20 3b 0d 0a 0d 0a 0d 0a 0d 0a ┆ND END (*PRINTTABLE*) ; ┆
0x31080…310a0 50 52 4f 43 45 44 55 52 45 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 3b 0d 0a 56 41 52 0d 0a 20 ┆PROCEDURE GETIDENTIFIER; VAR ┆
0x310a0…310c0 20 20 20 4a 2c 4b 2c 49 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 49 44 3a 20 41 4c 46 41 ┆ J,K,I: INTEGER; ID: ALFA┆
0x310c0…310e0 3b 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 47 45 54 49 44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a ┆; BEGIN (* GETIDENTIFIER *) ┆
0x310e0…31100 20 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 20 49 44 20 3a 3d 20 27 20 20 20 20 20 20 20 20 27 3b ┆ I := 0; ID := ' ';┆
0x31100…31120 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 49 46 20 49 20 3c 20 41 4c 46 41 4c 45 ┆ REPEAT IF I < ALFALE┆
0x31120…31140 4e 0d 0a 20 20 20 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 ┆N THEN BE┆
0x31140…31160 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 49 2b 31 3b 0d 0a 20 ┆GIN I := I+1; ┆
0x31160…31180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 27 61 27 20 3c 3d 20 43 48 29 20 41 4e 44 ┆ IF ('a' <= CH) AND┆
0x31180…311a0 20 28 43 48 20 3c 3d 20 27 7a 27 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (CH <= 'z') ┆
0x311a0…311c0 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d ┆THEN IDÆIÅ┆
0x311c0…311e0 20 3a 3d 20 43 48 52 28 20 4f 52 44 28 43 48 29 20 2d 20 4f 52 44 28 27 61 27 29 20 2b 20 4f 52 ┆ := CHR( ORD(CH) - ORD('a') + OR┆
0x311e0…31200 44 28 27 41 27 29 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆D('A') ) ELSE┆
0x31200…31400 (22, 0, 4) 0xe5[0x200]
0x31400…31420 (22, 0, 5) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 5b 49 5d 20 3a 3d 20 ┆ IDÆIÅ := ┆
0x31420…31440 43 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 47 45 54 4e ┆CH END; GETN┆
0x31440…31460 45 58 54 43 48 41 52 0d 0a 20 20 20 55 4e 54 49 4c 20 28 20 4e 4f 54 28 28 28 43 48 3e 3d 27 41 ┆EXTCHAR UNTIL ( NOT(((CH>='A┆
0x31460…31480 27 29 20 41 4e 44 20 28 43 48 3c 3d 27 5a 27 29 29 20 4f 52 20 28 28 43 48 3e 3d 27 61 27 29 20 ┆') AND (CH<='Z')) OR ((CH>='a') ┆
0x31480…314a0 41 4e 44 20 28 43 48 3c 3d 27 7a 27 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AND (CH<='z')) ┆
0x314a0…314c0 4f 52 20 28 28 43 48 3e 3d 27 30 27 29 20 41 4e 44 20 28 43 48 3c 3d 27 39 27 29 29 29 29 20 4f ┆OR ((CH>='0') AND (CH<='9')))) O┆
0x314c0…314e0 52 20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 49 20 3a 3d 20 31 3b 0d 0a 20 20 20 4a 20 3a 3d 20 ┆R (ERROR); I := 1; J := ┆
0x314e0…31500 4e 4b 3b 0d 0a 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 4b 20 3a 3d 20 28 49 2b 4a 29 ┆NK; REPEAT K := (I+J)┆
0x31500…31520 20 44 49 56 20 32 3b 20 20 20 20 20 20 28 2a 42 49 4e 41 52 59 20 53 45 41 52 43 48 2a 29 0d 0a ┆ DIV 2; (*BINARY SEARCH*) ┆
0x31520…31540 20 20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF KEYÆKÅ <= ID ┆
0x31540…31560 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 4b 2b 31 3b 0d 0a 0d 0a 20 ┆THEN I := K+1; ┆
0x31560…31580 20 20 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3e 3d 20 49 44 0d 0a 20 20 20 20 20 20 20 20 20 54 ┆ IF KEYÆKÅ >= ID T┆
0x31580…315a0 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 4b 2d 31 3b 0d 0a 0d 0a 20 20 ┆HEN J := K-1; ┆
0x315a0…315c0 20 55 4e 54 49 4c 20 49 20 3e 20 4a 3b 0d 0a 20 20 20 49 46 20 4b 45 59 5b 4b 5d 20 3c 3e 20 49 ┆ UNTIL I > J; IF KEYÆKÅ <> I┆
0x315c0…315e0 44 20 54 48 45 4e 20 53 45 41 52 43 48 28 49 44 29 3b 0d 0a 45 4e 44 3b 20 28 2a 20 47 45 54 49 ┆D THEN SEARCH(ID); END; (* GETI┆
0x315e0…31600 44 45 4e 54 49 46 49 45 52 20 2a 29 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 43 52 4f 53 53 52 45 ┆DENTIFIER *) BEGIN (* CROSSRE┆
0x31600…31800 (22, 0, 6) 0xe5[0x200]
0x31800…31820 (22, 0, 7) 46 20 2a 29 0d 0a 20 20 20 49 4e 49 54 49 41 4c 49 5a 45 3b 0d 0a 0d 0a 20 20 20 4f 50 45 4e 46 ┆F *) INITIALIZE; OPENF┆
0x31820…31840 49 4c 45 53 3b 0d 0a 20 20 20 57 48 49 4c 45 20 28 4e 4f 54 28 45 4f 46 28 49 4e 46 49 4c 45 29 ┆ILES; WHILE (NOT(EOF(INFILE)┆
0x31840…31860 29 29 20 41 4e 44 20 28 4e 4f 54 28 20 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 42 ┆)) AND (NOT( ERROR)) DO B┆
0x31860…31880 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 49 46 20 28 28 43 48 3e 3d 27 41 27 29 20 41 4e 44 20 ┆EGIN IF ((CH>='A') AND ┆
0x31880…318a0 28 43 48 3c 3d 27 5a 27 29 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 45 54 49 44 ┆(CH<='Z')) THEN GETID┆
0x318a0…318c0 45 4e 54 49 46 49 45 52 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 ┆ENTIFIER ELSE ┆
0x318c0…318e0 20 20 49 46 20 28 43 48 20 3d 20 27 27 27 27 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ IF (CH = '''') THEN ┆
0x318e0…31900 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 45 41 54 0d 0a ┆ BEGIN REPEAT ┆
0x31900…31920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 ┆ GETNEXTCHAR; ┆
0x31920…31940 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 43 48 20 3d 20 27 27 27 27 29 20 4f 52 ┆ UNTIL (CH = '''') OR┆
0x31940…31960 20 28 45 52 52 4f 52 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 ┆ (ERROR); GETNEXT┆
0x31960…31980 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 ┆CHAR; END ┆
0x31980…319a0 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 28 27 20 ┆ ELSE IF CH = '(' ┆
0x319a0…319c0 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆THEN BEGIN ┆
0x319c0…319e0 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x319e0…31a00 20 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d 20 27 2a 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆ IF CH = '*' THEN ┆
0x31a00…31a20 (22, 0, 8) 4d 4f 44 55 4c 45 20 55 54 49 4c 49 54 49 45 53 3b 0d 0a 0d 0a 28 2a 20 55 53 45 20 41 53 20 46 ┆MODULE UTILITIES; (* USE AS F┆
0x31a20…31a40 4f 4c 4c 4f 57 53 3a 0d 0a 09 46 55 4e 43 54 49 4f 4e 20 20 52 45 4e 41 4d 45 28 46 2c 4e 45 57 ┆OLLOWS: FUNCTION RENAME(F,NEW┆
0x31a40…31a60 4e 41 4d 45 29 3b 20 4d 55 53 54 20 42 45 20 50 52 45 43 45 45 44 45 44 20 42 59 20 41 53 53 49 ┆NAME); MUST BE PRECEEDED BY ASSI┆
0x31a60…31a80 47 4e 0d 0a 09 50 52 4f 43 45 44 55 52 45 20 45 58 54 52 41 43 54 28 46 2c 4e 41 4d 45 29 3b 20 ┆GN PROCEDURE EXTRACT(F,NAME); ┆
0x31a80…31aa0 20 20 52 45 54 55 52 4e 53 20 4e 41 4d 45 20 46 52 4f 4d 20 41 4e 20 46 49 4c 45 0d 0a 09 46 55 ┆ RETURNS NAME FROM AN FILE FU┆
0x31aa0…31ac0 4e 43 54 49 4f 4e 20 20 4b 45 59 50 52 45 53 53 45 44 20 3a 20 42 4f 4f 4c 45 41 4e 3b 20 54 52 ┆NCTION KEYPRESSED : BOOLEAN; TR┆
0x31ac0…31ae0 55 45 20 49 46 20 4b 45 59 20 50 52 45 53 53 45 44 0d 0a 2a 29 0d 0a 0d 0a 28 2a 24 49 20 46 49 ┆UE IF KEY PRESSED *) (*$I FI┆
0x31ae0…31b00 42 44 45 46 2e 4c 49 42 2a 29 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 46 55 4e 43 54 49 4f 4e 20 ┆BDEF.LIB*) EXTERNAL FUNCTION ┆
0x31b00…31b20 40 42 44 4f 53 28 46 55 4e 43 2c 50 41 52 4d 3a 49 4e 54 45 47 45 52 29 3a 49 4e 54 45 47 45 52 ┆@BDOS(FUNC,PARM:INTEGER):INTEGER┆
0x31b20…31b40 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 52 45 4e 41 4d 45 28 56 41 52 20 46 3a 46 49 42 3b 20 ┆; FUNCTION RENAME(VAR F:FIB; ┆
0x31b40…31b60 56 41 52 20 4e 45 57 4e 41 4d 45 3a 53 54 52 49 4e 47 29 3a 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a ┆VAR NEWNAME:STRING):INTEGER; ┆
0x31b60…31b80 28 2a 20 54 4f 20 55 53 45 3a 0d 0a 0d 0a 09 41 53 53 49 47 4e 28 4d 59 46 49 4c 45 2c 4f 4c 44 ┆(* TO USE: ASSIGN(MYFILE,OLD┆
0x31b80…31ba0 4e 41 4d 45 29 3b 0d 0a 09 49 46 20 52 45 4e 41 4d 45 28 4d 59 46 49 4c 45 2c 4e 45 57 4e 41 4d ┆NAME); IF RENAME(MYFILE,NEWNAM┆
0x31ba0…31bc0 45 29 20 3d 20 32 35 35 20 54 48 45 4e 0d 0a 09 20 20 4f 4c 44 4e 41 4d 45 20 4e 4f 54 20 46 4f ┆E) = 255 THEN OLDNAME NOT FO┆
0x31bc0…31be0 55 4e 44 20 49 4e 20 44 49 52 45 43 54 4f 52 59 0d 0a 09 45 4c 53 45 0d 0a 09 20 20 52 45 4e 41 ┆UND IN DIRECTORY ELSE RENA┆
0x31be0…31c00 4d 45 20 57 41 53 20 53 55 43 43 45 53 53 46 55 4c 0d 0a 0d 0a 2a 29 0d 0a 56 41 52 0d 0a 20 20 ┆ME WAS SUCCESSFUL *) VAR ┆
0x31c00…31c20 (22, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x31c20…31c40 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x31c40…31c60 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 28 43 48 20 3c 3e 20 27 29 27 29 20 41 4e 44 20 ┆ WHILE (CH <> ')') AND ┆
0x31c60…31c80 28 4e 4f 54 28 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(NOT(ERROR)) DO ┆
0x31c80…31ca0 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x31ca0…31cc0 20 20 20 20 20 20 57 48 49 4c 45 20 28 43 48 20 3c 3e 20 27 2a 27 29 20 41 4e 44 20 28 4e 4f 54 ┆ WHILE (CH <> '*') AND (NOT┆
0x31cc0…31ce0 28 45 52 52 4f 52 29 29 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(ERROR)) DO ┆
0x31ce0…31d00 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x31d00…31d20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x31d20…31d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x31d40…31d60 20 20 20 20 20 20 20 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 ┆ GETNEXTCHAR; ┆
0x31d60…31d80 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆ END; E┆
0x31d80…31da0 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ND ELSE ┆
0x31da0…31dc0 20 20 20 20 47 45 54 4e 45 58 54 43 48 41 52 3b 0d 0a 0d 0a 20 20 20 20 20 20 45 4e 44 3b 20 28 ┆ GETNEXTCHAR; END; (┆
0x31dc0…31de0 2a 20 57 48 49 4c 45 20 2a 29 0d 0a 20 20 20 50 41 47 45 28 4c 53 54 29 3b 0d 0a 20 20 20 4c 49 ┆* WHILE *) PAGE(LST); LI┆
0x31de0…31e00 4e 45 43 4f 55 4e 54 20 3a 3d 20 30 3b 0d 0a 20 20 20 42 55 46 43 55 52 53 4f 52 20 3a 3d 20 30 ┆NECOUNT := 0; BUFCURSOR := 0┆
0x31e00…31e20 (22, 1, 1) 54 45 4d 50 46 49 4c 45 20 3a 20 52 45 43 4f 52 44 0d 0a 09 09 43 41 53 45 20 42 4f 4f 4c 45 41 ┆TEMPFILE : RECORD CASE BOOLEA┆
0x31e20…31e40 4e 20 4f 46 0d 0a 09 09 54 52 55 45 3a 20 28 46 59 4c 45 3a 46 49 4c 45 29 3b 0d 0a 09 09 46 41 ┆N OF TRUE: (FYLE:FILE); FA┆
0x31e40…31e60 4c 53 45 3a 28 46 49 42 42 3a 46 49 42 29 0d 0a 09 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 52 45 ┆LSE:(FIBB:FIB) END; RE┆
0x31e60…31e80 53 55 4c 54 3a 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 41 53 53 49 47 4e 28 54 ┆SULT:INTEGER; BEGIN ASSIGN(T┆
0x31e80…31ea0 45 4d 50 46 49 4c 45 2e 46 59 4c 45 2c 4e 45 57 4e 41 4d 45 29 3b 0d 0a 20 20 4d 4f 56 45 28 54 ┆EMPFILE.FYLE,NEWNAME); MOVE(T┆
0x31ea0…31ec0 45 4d 50 46 49 4c 45 2e 46 49 42 42 2e 46 43 42 2c 54 45 4d 50 46 49 4c 45 2e 46 49 42 42 2e 46 ┆EMPFILE.FIBB.FCB,TEMPFILE.FIBB.F┆
0x31ec0…31ee0 43 42 5b 31 36 5d 2c 31 32 29 3b 0d 0a 20 20 4d 4f 56 45 28 46 2e 46 43 42 2c 54 45 4d 50 46 49 ┆CBÆ16Å,12); MOVE(F.FCB,TEMPFI┆
0x31ee0…31f00 4c 45 2e 46 49 42 42 2e 46 43 42 2c 31 32 29 3b 0d 0a 20 20 52 45 53 55 4c 54 20 3a 3d 20 40 42 ┆LE.FIBB.FCB,12); RESULT := @B┆
0x31f00…31f20 44 4f 53 28 32 33 2c 41 44 44 52 28 54 45 4d 50 46 49 4c 45 2e 46 49 42 42 2e 46 43 42 29 29 3b ┆DOS(23,ADDR(TEMPFILE.FIBB.FCB));┆
0x31f20…31f40 0d 0a 20 20 52 45 4e 41 4d 45 20 3a 3d 20 52 45 53 55 4c 54 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a ┆ RENAME := RESULT END; ┆
0x31f40…31f60 50 52 4f 43 45 44 55 52 45 20 45 58 54 52 41 43 54 28 56 41 52 20 46 3a 46 49 42 3b 20 56 41 52 ┆PROCEDURE EXTRACT(VAR F:FIB; VAR┆
0x31f60…31f80 20 4f 55 54 4e 41 4d 45 20 3a 20 53 54 52 49 4e 47 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4f 55 ┆ OUTNAME : STRING); BEGIN OU┆
0x31f80…31fa0 54 4e 41 4d 45 20 3a 3d 20 46 2e 46 4e 41 4d 45 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 46 55 4e 43 ┆TNAME := F.FNAME END; FUNC┆
0x31fa0…31fc0 54 49 4f 4e 20 4b 45 59 50 52 45 53 53 45 44 3a 42 4f 4f 4c 45 41 4e 3b 0d 0a 42 45 47 49 4e 0d ┆TION KEYPRESSED:BOOLEAN; BEGIN ┆
0x31fc0…31fe0 0a 20 20 4b 45 59 50 52 45 53 53 45 44 20 3a 3d 20 28 40 42 44 4f 53 28 31 31 2c 30 29 20 3c 3e ┆ KEYPRESSED := (@BDOS(11,0) <>┆
0x31fe0…32000 20 30 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ 0) END; MODEND. ┆
0x32000…32020 (22, 1, 2) 52 32 29 3b 0d 0a 20 20 20 20 20 20 27 31 27 3a 20 57 52 49 54 45 4c 4e 28 53 51 52 28 52 31 29 ┆R2); '1': WRITELN(SQR(R1)┆
0x32020…32040 2c 27 20 27 2c 53 51 52 28 52 32 29 29 3b 0d 0a 20 20 20 20 20 20 27 32 27 3a 20 57 52 49 54 45 ┆,' ',SQR(R2)); '2': WRITE┆
0x32040…32060 4c 4e 28 52 31 20 2b 20 31 29 3b 0d 0a 20 20 20 20 20 20 27 33 27 3a 20 57 52 49 54 45 4c 4e 28 ┆LN(R1 + 1); '3': WRITELN(┆
0x32060…32080 31 2b 52 31 29 3b 0d 0a 20 20 20 20 20 20 27 34 27 3a 20 57 52 49 54 45 4c 4e 28 54 52 55 4e 43 ┆1+R1); '4': WRITELN(TRUNC┆
0x32080…320a0 28 52 31 29 29 3b 0d 0a 20 20 20 20 20 20 27 35 27 3a 20 57 52 49 54 45 4c 4e 28 52 4f 55 4e 44 ┆(R1)); '5': WRITELN(ROUND┆
0x320a0…320c0 28 52 31 29 29 3b 0d 0a 20 20 20 20 20 20 27 36 27 3a 20 57 52 49 54 45 4c 4e 28 52 43 4f 4e 53 ┆(R1)); '6': WRITELN(RCONS┆
0x320c0…320e0 54 29 3b 0d 0a 20 20 20 20 20 20 27 37 27 3a 20 57 52 49 54 45 4c 4e 28 52 43 4f 4e 53 54 31 29 ┆T); '7': WRITELN(RCONST1)┆
0x320e0…32100 3b 0d 0a 20 20 20 20 20 20 27 38 27 3a 20 42 45 47 49 4e 20 52 31 20 3a 3d 20 2d 32 2e 32 33 34 ┆; '8': BEGIN R1 := -2.234┆
0x32100…32120 3b 20 58 5b 31 5d 20 3a 3d 20 33 2e 34 35 36 3b 20 57 52 49 54 45 4c 4e 28 52 31 2c 27 20 27 2c ┆; XÆ1Å := 3.456; WRITELN(R1,' ',┆
0x32120…32140 58 5b 31 5d 29 3b 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 20 28 2a ┆XÆ1Å); END; END; END; (*┆
0x32140…32160 20 43 41 4c 43 55 4c 41 54 4f 52 20 2a 29 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4d 45 4e 55 ┆ CALCULATOR *) PROCEDURE MENU┆
0x32160…32180 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 53 3a 53 49 4e 20 20 20 27 ┆; BEGIN WRITE('S:SIN '┆
0x32180…321a0 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 43 3a 43 4f 53 20 20 20 27 29 3b 0d 0a 20 20 ┆); WRITE('C:COS '); ┆
0x321a0…321c0 20 20 20 20 57 52 49 54 45 28 27 41 3a 41 52 43 54 41 4e 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 ┆ WRITE('A:ARCTAN '); ┆
0x321c0…321e0 20 57 52 49 54 45 28 27 4c 3a 4c 4e 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 ┆ WRITE('L:LN '); WRITE(┆
0x321e0…32200 27 45 3a 45 58 50 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 31 3a 53 51 52 ┆'E:EXP '); WRITE('1:SQR┆
0x32200…32400 (22, 1, 3) 0xe5[0x200]
0x32400…32420 (22, 1, 4) 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 24 3a 53 51 52 54 20 20 27 ┆ '); WRITELN('$:SQRT '┆
0x32420…32440 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2b 2c 20 2d 2c 20 2a 2c 20 2f 20 41 52 ┆); WRITELN('+, -, *, / AR┆
0x32440…32460 49 54 48 4d 45 54 49 43 20 4f 50 45 52 41 54 4f 52 53 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 ┆ITHMETIC OPERATORS'); WRI┆
0x32460…32480 54 45 4c 4e 28 27 4d 3a 4e 45 47 41 54 45 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 ┆TELN('M:NEGATE'); WRITE('┆
0x32480…324a0 3d 20 3a 20 45 51 55 41 4c 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆= : EQUAL '); WRITELN('┆
0x324a0…324c0 4e 20 3a 20 4e 4f 54 20 45 51 55 41 4c 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 3c ┆N : NOT EQUAL'); WRITE('<┆
0x324c0…324e0 3a 4c 45 53 53 20 54 48 41 4e 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆:LESS THAN '); WRITELN(┆
0x324e0…32500 27 3e 3a 47 52 45 41 54 45 52 20 54 48 41 4e 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 ┆'>:GREATER THAN '); WRITE┆
0x32500…32520 4c 4e 28 27 5a 3a 4c 45 53 53 20 54 48 41 4e 20 4f 52 20 45 51 55 41 4c 20 54 4f 27 29 3b 0d 0a ┆LN('Z:LESS THAN OR EQUAL TO'); ┆
0x32520…32540 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 47 3a 47 52 45 41 54 45 52 20 54 48 41 4e 20 4f 52 ┆ WRITELN('G:GREATER THAN OR┆
0x32540…32560 20 45 51 55 41 4c 20 54 4f 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 34 3a 54 52 55 ┆ EQUAL TO'); WRITE('4:TRU┆
0x32560…32580 4e 43 20 20 20 27 29 3b 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 35 3a 52 4f 55 4e 44 ┆NC '); WRITELN('5:ROUND┆
0x32580…325a0 27 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 4d 41 49 4e 20 50 52 4f 47 52 ┆'); END; BEGIN (* MAIN PROGR┆
0x325a0…325c0 41 4d 20 2a 29 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 52 49 54 45 28 27 45 4e 54 45 ┆AM *) REPEAT WRITE('ENTE┆
0x325c0…325e0 52 20 46 49 52 53 54 20 4f 50 45 52 41 4e 44 3f 20 27 29 3b 0d 0a 20 20 20 20 52 45 41 44 28 52 ┆R FIRST OPERAND? '); READ(R┆
0x325e0…32600 31 29 3b 0d 0a 20 20 20 20 58 5b 31 5d 20 3a 3d 20 52 31 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c ┆1); XÆ1Å := R1; WRITEL┆
0x32600…32800 (22, 1, 5) 0xe5[0x200]
0x32800…32820 (22, 1, 6) 4e 28 27 52 31 3d 27 2c 52 31 29 3b 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 ┆N('R1=',R1); WRITELN; WRITE┆
0x32820…32840 28 27 45 4e 54 45 52 20 53 45 43 4f 4e 44 20 4f 50 45 52 41 4e 44 3f 20 27 29 3b 0d 0a 20 20 20 ┆('ENTER SECOND OPERAND? '); ┆
0x32840…32860 20 52 45 41 44 28 52 32 29 3b 0d 0a 20 20 20 20 58 5b 32 5d 20 3a 3d 20 52 32 3b 0d 0a 20 20 20 ┆ READ(R2); XÆ2Å := R2; ┆
0x32860…32880 20 57 52 49 54 45 4c 4e 28 27 52 32 3d 27 2c 52 32 29 3b 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 ┆ WRITELN('R2=',R2); WRITELN; ┆
0x32880…328a0 20 20 57 52 49 54 45 4c 4e 28 27 45 4e 54 45 52 20 4f 50 45 52 41 54 4f 52 3a 27 29 3b 0d 0a 20 ┆ WRITELN('ENTER OPERATOR:'); ┆
0x328a0…328c0 20 20 20 4d 45 4e 55 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 3f 20 27 29 3b 0d 0a 20 20 20 20 ┆ MENU; WRITE('? '); ┆
0x328c0…328e0 52 45 41 44 28 4f 50 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 43 41 4c ┆READ(OP); WRITELN; CAL┆
0x328e0…32900 43 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 54 59 50 45 20 3c 45 53 43 41 50 45 3e 20 54 ┆C; WRITELN('TYPE <ESCAPE> T┆
0x32900…32920 4f 20 53 54 4f 50 27 29 3b 0d 0a 20 20 20 20 52 45 41 44 28 43 48 31 29 3b 0d 0a 20 20 55 4e 54 ┆O STOP'); READ(CH1); UNT┆
0x32920…32940 49 4c 20 43 48 31 20 3d 20 43 48 52 28 32 37 29 0d 0a 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a ┆IL CH1 = CHR(27) END. ┆
0x32940…32960 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x32980…329a0 27 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 20 28 2a 20 4d 41 49 4e 20 50 52 4f 47 52 ┆'); END; BEGIN (* MAIN PROGR┆
0x329a0…329c0 41 4d 20 2a 29 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 52 49 54 45 28 27 45 4e 54 45 ┆AM *) REPEAT WRITE('ENTE┆
0x329c0…329e0 52 20 46 49 52 53 54 20 4f 50 45 52 41 4e 44 3f 20 27 29 3b 0d 0a 20 20 20 20 52 45 41 44 28 52 ┆R FIRST OPERAND? '); READ(R┆
0x329e0…32a00 31 29 3b 0d 0a 20 20 20 20 58 5b 31 5d 20 3a 3d 20 52 31 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c ┆1); XÆ1Å := R1; WRITEL┆
0x32a00…32a20 (22, 1, 7) 28 2a 20 41 53 20 4f 46 20 31 30 2f 32 31 2f 37 39 20 2a 29 0d 0a 28 2a 24 43 33 2a 29 0d 0a 0d ┆(* AS OF 10/21/79 *) (*$C3*) ┆
0x32a20…32a40 0a 50 52 4f 47 52 41 4d 20 43 41 4c 43 55 4c 41 54 45 3b 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 ┆ PROGRAM CALCULATE; CONST ┆
0x32a40…32a60 52 43 4f 4e 53 54 20 3d 20 2d 32 2e 35 3b 0d 0a 20 20 52 43 4f 4e 53 54 31 3d 20 36 35 35 33 35 ┆RCONST = -2.5; RCONST1= 65535┆
0x32a60…32a80 2e 35 3b 0d 0a 0d 0a 56 41 52 20 52 31 2c 52 32 2c 54 45 4d 50 3a 52 45 41 4c 3b 0d 0a 20 20 20 ┆.5; VAR R1,R2,TEMP:REAL; ┆
0x32a80…32aa0 20 58 20 3a 20 41 52 52 41 59 20 5b 31 2e 2e 32 5d 20 4f 46 20 52 45 41 4c 3b 0d 0a 20 20 20 20 ┆ X : ARRAY Æ1..2Å OF REAL; ┆
0x32aa0…32ac0 43 48 31 2c 4f 50 3a 43 48 41 52 3b 0d 0a 0d 0a 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 53 55 42 ┆CH1,OP:CHAR; FUNCTION SUB┆
0x32ac0…32ae0 52 45 41 4c 28 52 31 2c 52 32 3a 52 45 41 4c 29 20 3a 20 52 45 41 4c 3b 0d 0a 0d 0a 42 45 47 49 ┆REAL(R1,R2:REAL) : REAL; BEGI┆
0x32ae0…32b00 4e 0d 0a 20 20 53 55 42 52 45 41 4c 20 3a 3d 20 52 31 20 2d 20 52 32 0d 0a 45 4e 44 3b 0d 0a 0d ┆N SUBREAL := R1 - R2 END; ┆
0x32b00…32b20 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 41 44 44 52 45 41 4c 28 56 41 52 20 52 31 3a 52 45 ┆ PROCEDURE ADDREAL(VAR R1:RE┆
0x32b20…32b40 41 4c 3b 20 52 32 3a 52 45 41 4c 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 52 31 20 3a 3d 20 52 31 ┆AL; R2:REAL); BEGIN R1 := R1┆
0x32b40…32b60 20 20 2b 20 20 52 32 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 54 46 28 42 3a ┆ + R2 END; PROCEDURE TF(B:┆
0x32b60…32b80 42 4f 4f 4c 45 41 4e 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 42 20 54 48 45 4e 0d 0a 20 ┆BOOLEAN); BEGIN IF B THEN ┆
0x32b80…32ba0 20 20 20 57 52 49 54 45 4c 4e 28 27 54 52 55 45 27 29 0d 0a 20 20 45 4c 53 45 0d 0a 20 20 20 20 ┆ WRITELN('TRUE') ELSE ┆
0x32ba0…32bc0 57 52 49 54 45 4c 4e 28 27 46 41 4c 53 45 27 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 ┆WRITELN('FALSE') END; PROCED┆
0x32bc0…32be0 55 52 45 20 43 41 4c 43 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 20 20 43 41 53 45 20 4f 50 20 4f 46 ┆URE CALC; BEGIN CASE OP OF┆
0x32be0…32c00 0d 0a 20 20 20 20 20 20 27 53 27 3a 20 57 52 49 54 45 4c 4e 28 53 49 4e 28 52 31 29 29 3b 0d 0a ┆ 'S': WRITELN(SIN(R1)); ┆
0x32c00…32e00 (22, 1, 8) 0xe5[0x200]
0x32e00…32e20 (22, 1, 9) 20 20 20 20 20 20 27 43 27 3a 20 57 52 49 54 45 4c 4e 28 43 4f 53 28 52 31 29 29 3b 0d 0a 20 20 ┆ 'C': WRITELN(COS(R1)); ┆
0x32e20…32e40 20 20 20 20 27 41 27 3a 20 57 52 49 54 45 4c 4e 28 41 52 43 54 41 4e 28 52 31 29 29 3b 0d 0a 20 ┆ 'A': WRITELN(ARCTAN(R1)); ┆
0x32e40…32e60 20 20 20 20 20 27 4c 27 3a 20 57 52 49 54 45 4c 4e 28 4c 4e 28 52 31 29 29 3b 0d 0a 20 20 20 20 ┆ 'L': WRITELN(LN(R1)); ┆
0x32e60…32e80 20 20 27 45 27 3a 20 57 52 49 54 45 4c 4e 28 45 58 50 28 52 31 29 29 3b 0d 0a 20 20 20 20 20 20 ┆ 'E': WRITELN(EXP(R1)); ┆
0x32e80…32ea0 27 2b 27 3a 20 42 45 47 49 4e 20 41 44 44 52 45 41 4c 28 58 5b 31 5d 2c 58 5b 32 5d 29 3b 20 57 ┆'+': BEGIN ADDREAL(XÆ1Å,XÆ2Å); W┆
0x32ea0…32ec0 52 49 54 45 4c 4e 28 58 5b 31 5d 3a 31 30 3a 33 29 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 27 2d ┆RITELN(XÆ1Å:10:3) END; '-┆
0x32ec0…32ee0 27 3a 20 57 52 49 54 45 4c 4e 28 53 55 42 52 45 41 4c 28 58 5b 31 5d 2c 58 5b 32 5d 29 3a 31 30 ┆': WRITELN(SUBREAL(XÆ1Å,XÆ2Å):10┆
0x32ee0…32f00 3a 32 29 3b 0d 0a 20 20 20 20 20 20 27 2a 27 3a 20 57 52 49 54 45 4c 4e 28 52 31 20 2a 20 52 32 ┆:2); '*': WRITELN(R1 * R2┆
0x32f00…32f20 29 3b 0d 0a 20 20 20 20 20 20 27 2f 27 3a 20 57 52 49 54 45 4c 4e 28 52 31 20 2f 20 52 32 29 3b ┆); '/': WRITELN(R1 / R2);┆
0x32f20…32f40 0d 0a 20 20 20 20 20 20 27 4d 27 3a 20 57 52 49 54 45 4c 4e 28 2d 52 31 29 3b 0d 0a 20 20 20 20 ┆ 'M': WRITELN(-R1); ┆
0x32f40…32f60 20 20 27 3d 27 3a 20 54 46 28 52 31 20 3d 20 52 32 29 3b 0d 0a 20 20 20 20 20 20 27 4e 27 3a 20 ┆ '=': TF(R1 = R2); 'N': ┆
0x32f60…32f80 54 46 28 52 31 20 3c 3e 20 52 32 29 3b 0d 0a 20 20 20 20 20 20 27 24 27 3a 20 57 52 49 54 45 4c ┆TF(R1 <> R2); '$': WRITEL┆
0x32f80…32fa0 4e 28 53 51 52 54 28 52 31 29 3a 31 30 3a 33 2c 53 51 52 54 28 52 32 29 3a 31 30 3a 33 29 3b 0d ┆N(SQRT(R1):10:3,SQRT(R2):10:3); ┆
0x32fa0…32fc0 0a 20 20 20 20 20 20 27 3c 27 3a 20 54 46 28 52 31 20 3c 20 52 32 29 3b 0d 0a 20 20 20 20 20 20 ┆ '<': TF(R1 < R2); ┆
0x32fc0…32fe0 27 3e 27 3a 20 54 46 28 52 31 20 3e 20 52 32 29 3b 0d 0a 20 20 20 20 20 20 27 5a 27 3a 20 54 46 ┆'>': TF(R1 > R2); 'Z': TF┆
0x32fe0…33000 28 52 31 20 3c 3d 20 52 32 29 3b 0d 0a 20 20 20 20 20 20 27 47 27 3a 20 54 46 28 52 31 20 3e 3d ┆(R1 <= R2); 'G': TF(R1 >=┆
0x33000…33200 (23, 0, 1) 0xe5[0x200]
[…0x2…]
0x33600…33620 (23, 0, 4) 28 2a 20 35 2e 35 20 2a 29 0d 0a 4d 4f 44 55 4c 45 20 42 44 4f 53 46 55 4e 43 3b 0d 0a 0d 0a 28 ┆(* 5.5 *) MODULE BDOSFUNC; (┆
0x33620…33640 2a 24 4d 20 40 42 44 4f 53 2a 29 0d 0a 28 2a 24 4d 20 40 44 46 4c 54 2a 29 0d 0a 28 2a 24 4d 20 ┆*$M @BDOS*) (*$M @DFLT*) (*$M ┆
0x33640…33660 2a 2a 29 0d 0a 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 20 40 49 4f 45 ┆**) EXTERNAL PROCEDURE @IOE┆
0x33660…33680 52 52 28 43 50 4d 46 55 4e 43 4e 55 4d 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 0d 0a 46 55 4e 43 54 ┆RR(CPMFUNCNUM:INTEGER); FUNCT┆
0x33680…336a0 49 4f 4e 20 40 42 44 4f 53 28 46 55 4e 43 3a 49 4e 54 45 47 45 52 3b 20 50 41 52 4d 3a 57 4f 52 ┆ION @BDOS(FUNC:INTEGER; PARM:WOR┆
0x336a0…336c0 44 29 3a 49 4e 54 45 47 45 52 3b 0d 0a 43 4f 4e 53 54 0d 0a 20 20 43 50 4d 45 4e 54 52 59 50 4f ┆D):INTEGER; CONST CPMENTRYPO┆
0x336c0…336e0 49 4e 54 20 3d 20 35 3b 0d 0a 56 41 52 0d 0a 20 20 52 45 53 55 4c 54 20 3a 20 49 4e 54 45 47 45 ┆INT = 5; VAR RESULT : INTEGE┆
0x336e0…33700 52 3b 0d 0a 42 45 47 49 4e 0d 0a 0d 0a 20 20 20 49 4e 4c 49 4e 45 28 20 22 4c 48 4c 44 20 2f 20 ┆R; BEGIN INLINE( "LHLD / ┆
0x33700…33720 46 55 4e 43 20 2f 0d 0a 09 20 20 20 22 4d 4f 56 20 43 2c 4c 20 2f 0d 0a 09 20 20 20 22 4c 48 4c ┆FUNC / "MOV C,L / "LHL┆
0x33720…33740 44 20 2f 20 50 41 52 4d 20 2f 0d 0a 09 20 20 20 22 58 43 48 47 20 2f 0d 0a 09 20 20 20 22 43 41 ┆D / PARM / "XCHG / "CA┆
0x33740…33760 4c 4c 20 2f 20 43 50 4d 45 4e 54 52 59 50 4f 49 4e 54 20 2f 0d 0a 09 20 20 20 22 4d 4f 56 20 4c ┆LL / CPMENTRYPOINT / "MOV L┆
0x33760…33780 2c 41 20 2f 0d 0a 09 20 20 20 22 4d 56 49 20 48 20 2f 20 30 20 2f 0d 0a 09 20 20 20 22 53 48 4c ┆,A / "MVI H / 0 / "SHL┆
0x33780…337a0 44 20 2f 20 52 45 53 55 4c 54 20 29 3b 0d 0a 0d 0a 20 20 40 42 44 4f 53 20 3a 3d 20 52 45 53 55 ┆D / RESULT ); @BDOS := RESU┆
0x337a0…337c0 4c 54 3b 0d 0a 20 20 49 46 20 46 55 4e 43 20 3c 20 31 35 20 54 48 45 4e 0d 0a 20 20 20 20 45 58 ┆LT; IF FUNC < 15 THEN EX┆
0x337c0…337e0 49 54 3b 0d 0a 20 20 49 46 20 46 55 4e 43 20 3d 20 32 36 20 54 48 45 4e 0d 0a 20 20 20 20 45 58 ┆IT; IF FUNC = 26 THEN EX┆
0x337e0…33800 49 54 3b 0d 0a 20 20 49 46 20 28 46 55 4e 43 3d 31 35 29 20 4f 52 20 28 46 55 4e 43 3d 31 36 29 ┆IT; IF (FUNC=15) OR (FUNC=16)┆
0x33800…33820 (23, 0, 5) 28 2a 20 35 2e 35 20 2a 29 0d 0a 4d 4f 44 55 4c 45 20 49 4f 45 52 52 4f 52 3b 0d 0a 0d 0a 28 2a ┆(* 5.5 *) MODULE IOERROR; (*┆
0x33820…33840 24 49 20 38 30 72 74 70 2f 66 69 62 64 65 66 2e 6c 69 62 2a 29 0d 0a 28 2a 24 4d 20 40 49 4f 45 ┆$I 80rtp/fibdef.lib*) (*$M @IOE┆
0x33840…33860 52 52 2a 29 0d 0a 28 2a 24 4d 20 2a 2a 29 0d 0a 0d 0a 56 41 52 0d 0a 20 20 40 4c 46 42 20 3a 20 ┆RR*) (*$M **) VAR @LFB : ┆
0x33860…33880 45 58 54 45 52 4e 41 4c 20 5e 46 49 42 3b 0d 0a 20 20 40 54 4d 50 20 3a 20 5e 46 49 42 3b 09 28 ┆EXTERNAL ^FIB; @TMP : ^FIB; (┆
0x33880…338a0 2a 20 46 4f 52 20 53 41 56 49 4e 47 20 40 4c 46 42 20 2a 29 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆* FOR SAVING @LFB *) PROCEDUR┆
0x338a0…338c0 45 20 40 49 4f 45 52 52 28 43 50 4d 46 55 4e 43 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 42 45 47 49 ┆E @IOERR(CPMFUNC:INTEGER); BEGI┆
0x338c0…338e0 4e 0d 0a 20 20 40 54 4d 50 20 3a 3d 20 40 4c 46 42 3b 0d 0a 20 20 43 41 53 45 20 43 50 4d 46 55 ┆N @TMP := @LFB; CASE CPMFU┆
0x338e0…33900 4e 43 20 4f 46 0d 0a 0d 0a 20 20 20 20 31 35 20 3a 20 57 52 49 54 45 4c 4e 28 27 55 6e 61 62 6c ┆NC OF 15 : WRITELN('Unabl┆
0x33900…33920 65 20 74 6f 20 6f 70 65 6e 3a 20 27 2c 40 54 4d 50 5e 2e 46 4e 41 4d 45 29 3b 0d 0a 20 20 20 20 ┆e to open: ',@TMP^.FNAME); ┆
0x33920…33940 31 36 20 3a 20 57 52 49 54 45 4c 4e 28 27 55 6e 61 62 6c 65 20 74 6f 20 63 6c 6f 73 65 3a 20 27 ┆16 : WRITELN('Unable to close: '┆
0x33940…33960 2c 40 54 4d 50 5e 2e 46 4e 41 4d 45 29 3b 0d 0a 20 20 20 20 32 31 20 3a 20 57 52 49 54 45 4c 4e ┆,@TMP^.FNAME); 21 : WRITELN┆
0x33960…33980 28 27 45 72 72 6f 72 20 77 72 69 74 69 6e 67 20 74 6f 3a 20 27 2c 40 54 4d 50 5e 2e 46 4e 41 4d ┆('Error writing to: ',@TMP^.FNAM┆
0x33980…339a0 45 29 3b 0d 0a 20 20 20 20 32 32 20 3a 20 57 52 49 54 45 4c 4e 28 27 55 6e 61 62 6c 65 20 74 6f ┆E); 22 : WRITELN('Unable to┆
0x339a0…339c0 20 63 72 65 61 74 65 3a 20 27 2c 40 54 4d 50 5e 2e 46 4e 41 4d 45 29 0d 0a 0d 0a 20 20 45 4e 44 ┆ create: ',@TMP^.FNAME) END┆
0x339c0…339e0 3b 20 28 2a 20 43 41 53 45 20 2a 29 0d 0a 20 20 40 4c 46 42 20 3a 3d 20 40 54 4d 50 0d 0a 45 4e ┆; (* CASE *) @LFB := @TMP EN┆
0x339e0…33a00 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆D; MODEND. ┆
0x33a00…33a20 (23, 0, 6) 20 4f 52 20 28 46 55 4e 43 3d 32 32 29 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 ┆ OR (FUNC=22) THEN BEGIN ┆
0x33a20…33a40 20 20 20 20 20 49 46 20 52 45 53 55 4c 54 20 3d 20 32 35 35 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆ IF RESULT = 255 THEN ┆
0x33a40…33a60 20 20 20 40 49 4f 45 52 52 28 46 55 4e 43 29 0d 0a 20 20 20 20 45 4e 44 0d 0a 20 20 45 4c 53 45 ┆ @IOERR(FUNC) END ELSE┆
0x33a60…33a80 0d 0a 20 20 20 20 49 46 20 28 46 55 4e 43 20 3d 20 32 31 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆ IF (FUNC = 21) THEN ┆
0x33a80…33aa0 20 49 46 20 52 45 53 55 4c 54 20 3c 3e 20 30 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 ┆ IF RESULT <> 0 THEN @┆
0x33aa0…33ac0 49 4f 45 52 52 28 46 55 4e 43 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 ┆IOERR(FUNC); END; PROCEDURE ┆
0x33ac0…33ae0 40 44 46 4c 54 3b 0d 0a 56 41 52 0d 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 ┆@DFLT; VAR I : INTEGER; BEG┆
0x33ae0…33b00 49 4e 0d 0a 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 32 36 2c 57 52 44 28 24 38 30 29 29 3b 09 28 ┆IN I := @BDOS(26,WRD($80)); (┆
0x33b00…33b20 2a 20 44 45 46 41 55 4c 54 20 44 4d 41 20 41 44 44 52 45 53 53 20 2a 29 0d 0a 45 4e 44 3b 0d 0a ┆* DEFAULT DMA ADDRESS *) END; ┆
0x33b20…33b40 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ MODEND. ┆
0x33b40…33b60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x33b80…33ba0 44 20 2f 20 52 45 53 55 4c 54 20 29 3b 0d 0a 0d 0a 20 20 40 42 44 4f 53 20 3a 3d 20 52 45 53 55 ┆D / RESULT ); @BDOS := RESU┆
0x33ba0…33bc0 4c 54 3b 0d 0a 20 20 49 46 20 46 55 4e 43 20 3c 20 31 35 20 54 48 45 4e 0d 0a 20 20 20 20 45 58 ┆LT; IF FUNC < 15 THEN EX┆
0x33bc0…33be0 49 54 3b 0d 0a 20 20 49 46 20 46 55 4e 43 20 3d 20 32 36 20 54 48 45 4e 0d 0a 20 20 20 20 45 58 ┆IT; IF FUNC = 26 THEN EX┆
0x33be0…33c00 49 54 3b 0d 0a 20 20 49 46 20 28 46 55 4e 43 3d 31 35 29 20 4f 52 20 28 46 55 4e 43 3d 31 36 29 ┆IT; IF (FUNC=15) OR (FUNC=16)┆
0x33c00…33e00 (23, 0, 7) 0xe5[0x200]
[…0x3…]
0x34400…34420 (23, 1, 2) 4d 4f 44 55 4c 45 20 50 55 54 52 45 43 3b 0d 0a 0d 0a 28 2a 24 4d 20 50 55 54 2a 29 0d 0a 28 2a ┆MODULE PUTREC; (*$M PUT*) (*┆
0x34420…34440 24 4d 20 2a 2a 29 0d 0a 0d 0a 28 2a 24 49 20 38 30 72 74 70 2f 66 69 62 64 65 66 2e 6c 69 62 2a ┆$M **) (*$I 80rtp/fibdef.lib*┆
0x34440…34460 29 0d 0a 0d 0a 56 41 52 0d 0a 20 20 40 4c 46 42 3a 09 09 45 58 54 45 52 4e 41 4c 20 5e 46 49 42 ┆) VAR @LFB: EXTERNAL ^FIB┆
0x34460…34480 3b 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 20 40 57 4e 42 3b 0d 0a 0d ┆; EXTERNAL PROCEDURE @WNB; ┆
0x34480…344a0 0a 50 52 4f 43 45 44 55 52 45 20 50 55 54 28 56 41 52 20 46 3a 46 49 42 3b 20 53 5a 3a 49 4e 54 ┆ PROCEDURE PUT(VAR F:FIB; SZ:INT┆
0x344a0…344c0 45 47 45 52 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 40 4c 46 42 20 3a 3d 20 41 44 44 52 28 46 29 ┆EGER); BEGIN @LFB := ADDR(F)┆
0x344c0…344e0 3b 0d 0a 20 20 40 57 4e 42 09 09 09 09 28 2a 20 47 4f 20 57 52 49 54 45 20 42 55 46 46 45 52 20 ┆; @WNB (* GO WRITE BUFFER ┆
0x344e0…34500 4f 55 54 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a ┆OUT *) END; MODEND. ┆
0x34500…34520 00 52 53 54 20 20 20 20 20 4d 41 43 00 00 00 19 62 00 63 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RST MAC b c ┆
0x34520…34540 00 43 57 54 20 20 20 20 20 4d 41 43 00 00 00 08 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CWT MAC d ┆
0x34540…34560 00 47 45 54 20 20 20 20 20 53 52 43 00 00 00 07 65 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ GET SRC e ┆
0x34560…34580 00 50 55 54 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PUT $$$ ┆
0x34580…345a0 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 ┆ ┆
[…0x3…]
0x34600…34620 (23, 1, 3) 4d 4f 44 55 4c 45 20 47 45 54 52 45 43 3b 0d 0a 0d 0a 28 2a 24 4d 20 47 45 54 2a 29 0d 0a 28 2a ┆MODULE GETREC; (*$M GET*) (*┆
0x34620…34640 24 4d 20 2a 2a 29 0d 0a 0d 0a 28 2a 24 49 20 38 30 72 74 70 2f 66 69 62 64 65 66 2e 6c 69 62 2a ┆$M **) (*$I 80rtp/fibdef.lib*┆
0x34640…34660 29 0d 0a 0d 0a 56 41 52 0d 0a 20 20 40 4c 46 42 3a 09 09 45 58 54 45 52 4e 41 4c 20 5e 46 49 42 ┆) VAR @LFB: EXTERNAL ^FIB┆
0x34660…34680 3b 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 20 40 52 4e 42 3b 0d 0a 0d ┆; EXTERNAL PROCEDURE @RNB; ┆
0x34680…346a0 0a 50 52 4f 43 45 44 55 52 45 20 47 45 54 28 56 41 52 20 46 3a 46 49 42 3b 20 53 5a 3a 49 4e 54 ┆ PROCEDURE GET(VAR F:FIB; SZ:INT┆
0x346a0…346c0 45 47 45 52 29 3b 0d 0a 56 41 52 0d 0a 20 20 49 53 5f 45 4f 4c 4e 20 3a 20 42 4f 4f 4c 45 41 4e ┆EGER); VAR IS_EOLN : BOOLEAN┆
0x346c0…346e0 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 46 2e 46 45 4f 4c 4e 20 3a 3d 20 46 41 4c 53 45 3b 09 28 2a ┆; BEGIN F.FEOLN := FALSE; (*┆
0x346e0…34700 20 44 45 46 41 55 4c 54 20 49 53 20 54 48 41 54 20 57 45 20 52 45 53 45 54 20 49 54 20 2a 29 0d ┆ DEFAULT IS THAT WE RESET IT *) ┆
0x34700…34720 0a 0d 0a 20 20 40 4c 46 42 20 3a 3d 20 41 44 44 52 28 46 29 3b 0d 0a 20 20 49 46 20 46 2e 46 45 ┆ @LFB := ADDR(F); IF F.FE┆
0x34720…34740 4f 46 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 46 2e 46 45 4f 4c ┆OF THEN BEGIN F.FEOL┆
0x34740…34760 4e 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 45 4e 44 3b ┆N := TRUE; EXIT END;┆
0x34760…34780 0d 0a 0d 0a 20 20 40 52 4e 42 3b 09 09 09 28 2a 20 47 4f 20 52 45 41 44 20 46 52 4f 4d 20 54 48 ┆ @RNB; (* GO READ FROM TH┆
0x34780…347a0 45 20 46 49 4c 45 2f 43 4f 4e 53 4f 4c 45 20 2a 29 0d 0a 0d 0a 20 20 49 46 20 46 2e 46 54 45 58 ┆E FILE/CONSOLE *) IF F.FTEX┆
0x347a0…347c0 54 20 54 48 45 4e 09 28 2a 20 54 45 58 54 20 46 49 4c 45 2c 20 45 4f 4c 4e 2f 45 4f 46 20 4d 55 ┆T THEN (* TEXT FILE, EOLN/EOF MU┆
0x347c0…347e0 53 54 20 42 45 20 53 45 54 20 2a 29 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 46 ┆ST BE SET *) BEGIN F┆
0x347e0…34800 2e 46 45 4f 46 20 3a 3d 20 28 46 2e 46 42 55 46 46 45 52 5b 30 5d 20 3d 20 43 48 52 28 24 31 41 ┆.FEOF := (F.FBUFFERÆ0Å = CHR($1A┆
0x34800…34a00 (23, 1, 4) 0xe5[0x200]
0x34a00…34a20 (23, 1, 5) 29 29 20 4f 52 20 28 46 2e 46 45 4f 46 29 3b 0d 0a 20 20 20 20 20 20 49 53 5f 45 4f 4c 4e 20 3a ┆)) OR (F.FEOF); IS_EOLN :┆
0x34a20…34a40 3d 20 28 46 2e 46 42 55 46 46 45 52 5b 30 5d 20 3d 20 43 48 52 28 24 30 44 29 29 3b 0d 0a 20 20 ┆= (F.FBUFFERÆ0Å = CHR($0D)); ┆
0x34a40…34a60 20 20 20 20 49 46 20 28 49 53 5f 45 4f 4c 4e 29 20 4f 52 20 28 46 2e 46 45 4f 46 29 20 54 48 45 ┆ IF (IS_EOLN) OR (F.FEOF) THE┆
0x34a60…34a80 4e 0d 0a 20 20 20 20 20 20 20 20 46 2e 46 45 4f 4c 4e 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 ┆N F.FEOLN := TRUE; ┆
0x34a80…34aa0 20 20 20 49 46 20 28 49 53 5f 45 4f 4c 4e 29 20 41 4e 44 20 28 46 2e 4f 50 54 49 4f 4e 20 3d 20 ┆ IF (IS_EOLN) AND (F.OPTION = ┆
0x34aa0…34ac0 46 52 44 57 52 29 20 54 48 45 4e 20 28 2a 20 47 4f 42 42 4c 45 20 4c 46 20 2a 29 0d 0a 09 40 52 ┆FRDWR) THEN (* GOBBLE LF *) @R┆
0x34ac0…34ae0 4e 42 3b 0d 0a 20 20 20 20 20 20 49 46 20 46 2e 46 45 4f 46 20 4f 52 20 46 2e 46 45 4f 4c 4e 20 ┆NB; IF F.FEOF OR F.FEOLN ┆
0x34ae0…34b00 54 48 45 4e 0d 0a 09 46 2e 46 42 55 46 46 45 52 5b 30 5d 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 ┆THEN F.FBUFFERÆ0Å := ' '; ┆
0x34b00…34b20 20 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a ┆ END END; MODEND. ┆
0x34b20…34b40 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x34b80…34ba0 45 20 46 49 4c 45 2f 43 4f 4e 53 4f 4c 45 20 2a 29 0d 0a 0d 0a 20 20 49 46 20 46 2e 46 54 45 58 ┆E FILE/CONSOLE *) IF F.FTEX┆
0x34ba0…34bc0 54 20 54 48 45 4e 09 28 2a 20 54 45 58 54 20 46 49 4c 45 2c 20 45 4f 4c 4e 2f 45 4f 46 20 4d 55 ┆T THEN (* TEXT FILE, EOLN/EOF MU┆
0x34bc0…34be0 53 54 20 42 45 20 53 45 54 20 2a 29 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 46 ┆ST BE SET *) BEGIN F┆
0x34be0…34c00 2e 46 45 4f 46 20 3a 3d 20 28 46 2e 46 42 55 46 46 45 52 5b 30 5d 20 3d 20 43 48 52 28 24 31 41 ┆.FEOF := (F.FBUFFERÆ0Å = CHR($1A┆
0x34c00…34e00 (23, 1, 6) 0xe5[0x200]
[…0x3…]
0x35400…35420 (24, 0, 1) 4d 4f 44 55 4c 45 20 52 4e 42 4d 4f 44 55 4c 45 3b 0d 0a 0d 0a 28 2a 24 4d 20 40 52 4e 42 2a 29 ┆MODULE RNBMODULE; (*$M @RNB*)┆
0x35420…35440 0d 0a 28 2a 24 4d 20 2a 2a 29 0d 0a 0d 0a 28 2a 24 49 20 38 30 72 74 70 2f 66 69 62 64 65 66 2e ┆ (*$M **) (*$I 80rtp/fibdef.┆
0x35440…35460 6c 69 62 2a 29 0d 0a 0d 0a 56 41 52 0d 0a 20 20 40 4c 46 42 20 3a 20 09 45 58 54 45 52 4e 41 4c ┆lib*) VAR @LFB : EXTERNAL┆
0x35460…35480 20 5e 46 49 42 3b 0d 0a 20 20 52 45 53 55 4c 54 49 4f 3a 09 45 58 54 45 52 4e 41 4c 20 49 4e 54 ┆ ^FIB; RESULTIO: EXTERNAL INT┆
0x35480…354a0 45 47 45 52 3b 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 46 55 4e 43 54 49 4f 4e 20 40 42 44 4f 53 ┆EGER; EXTERNAL FUNCTION @BDOS┆
0x354a0…354c0 28 46 55 4e 43 3a 49 4e 54 45 47 45 52 3b 20 50 41 52 4d 3a 57 4f 52 44 29 3a 49 4e 54 45 47 45 ┆(FUNC:INTEGER; PARM:WORD):INTEGE┆
0x354c0…354e0 52 3b 0d 0a 45 58 54 45 52 4e 41 4c 20 50 52 4f 43 45 44 55 52 45 20 40 44 46 4c 54 3b 0d 0a 0d ┆R; EXTERNAL PROCEDURE @DFLT; ┆
0x354e0…35500 0a 28 2a 09 50 55 52 50 4f 53 45 3a 09 52 45 41 44 20 6e 20 42 59 54 45 53 20 46 52 4f 4d 20 41 ┆ (* PURPOSE: READ n BYTES FROM A┆
0x35500…35520 20 46 49 4c 45 20 50 4f 49 4e 54 45 44 20 54 4f 20 42 59 20 40 4c 46 42 20 09 2a 29 0d 0a 28 2a ┆ FILE POINTED TO BY @LFB *) (*┆
0x35520…35540 09 09 09 6e 20 49 53 20 53 50 45 43 49 46 49 45 44 20 42 59 20 40 4c 46 42 5e 2e 49 4f 53 49 5a ┆ n IS SPECIFIED BY @LFB^.IOSIZ┆
0x35540…35560 45 09 09 20 20 20 20 09 2a 29 0d 0a 28 2a 09 4c 41 53 54 20 55 50 44 41 54 45 3a 09 53 45 50 54 ┆E *) (* LAST UPDATE: SEPT┆
0x35560…35580 45 4d 42 45 52 20 31 37 2c 20 31 39 38 30 09 09 09 09 2a 29 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆EMBER 17, 1980 *) PROCEDUR┆
0x35580…355a0 45 20 40 52 4e 42 3b 0d 0a 56 41 52 0d 0a 20 20 44 53 54 50 54 52 3a 20 5e 42 59 54 45 3b 0d 0a ┆E @RNB; VAR DSTPTR: ^BYTE; ┆
0x355a0…355c0 20 20 4e 2c 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4d 4f 56 45 28 ┆ N,I : INTEGER; BEGIN MOVE(┆
0x355c0…355e0 40 4c 46 42 5e 2e 46 42 55 46 41 44 52 2c 44 53 54 50 54 52 2c 32 29 3b 09 09 20 20 28 2a 20 53 ┆@LFB^.FBUFADR,DSTPTR,2); (* S┆
0x355e0…35600 45 54 20 44 45 53 54 20 50 4f 49 4e 54 45 52 20 2a 29 0d 0a 0d 0a 20 20 49 46 20 40 4c 46 42 5e ┆ET DEST POINTER *) IF @LFB^┆
0x35600…35800 (24, 0, 2) 0xe5[0x200]
0x35800…35820 (24, 0, 3) 2e 4f 50 54 49 4f 4e 20 3d 20 46 43 4f 4e 49 4f 20 54 48 45 4e 20 09 20 20 28 2a 20 43 4f 4e 3a ┆.OPTION = FCONIO THEN (* CON:┆
0x35820…35840 2c 20 44 4f 20 41 4e 20 45 43 48 4f 49 4e 47 20 52 45 41 44 20 2a 29 0d 0a 20 20 20 20 42 45 47 ┆, DO AN ECHOING READ *) BEG┆
0x35840…35860 49 4e 0d 0a 20 20 20 20 20 20 44 53 54 50 54 52 5e 20 3a 3d 20 43 48 52 28 40 42 44 4f 53 28 31 ┆IN DSTPTR^ := CHR(@BDOS(1┆
0x35860…35880 2c 57 52 44 28 30 29 29 29 3b 09 20 20 28 2a 20 47 4f 20 52 45 41 44 20 41 20 43 48 41 52 20 57 ┆,WRD(0))); (* GO READ A CHAR W┆
0x35880…358a0 49 54 48 20 45 43 48 4f 20 2a 29 0d 0a 20 20 20 20 20 20 49 46 20 44 53 54 50 54 52 5e 20 3d 20 ┆ITH ECHO *) IF DSTPTR^ = ┆
0x358a0…358c0 24 30 44 20 54 48 45 4e 09 20 20 09 20 20 28 2a 20 45 43 48 4f 20 43 52 20 57 49 54 48 20 43 52 ┆$0D THEN (* ECHO CR WITH CR┆
0x358c0…358e0 4c 46 20 2a 29 0d 0a 09 49 20 3a 3d 20 40 42 44 4f 53 28 32 2c 57 52 44 28 24 30 41 29 29 0d 0a ┆LF *) I := @BDOS(2,WRD($0A)) ┆
0x358e0…35900 20 20 20 20 20 20 45 4c 53 45 20 49 46 20 44 53 54 50 54 52 5e 20 3d 20 24 30 38 20 54 48 45 4e ┆ ELSE IF DSTPTR^ = $08 THEN┆
0x35900…35920 09 20 20 28 2a 20 45 43 48 4f 20 42 53 20 57 49 54 48 20 53 50 2f 42 53 20 2a 29 0d 0a 09 42 45 ┆ (* ECHO BS WITH SP/BS *) BE┆
0x35920…35940 47 49 4e 0d 0a 09 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 32 2c 57 52 44 28 27 20 27 29 29 3b 0d ┆GIN I := @BDOS(2,WRD(' ')); ┆
0x35940…35960 0a 09 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 32 2c 57 52 44 28 24 30 38 29 29 0d 0a 09 45 4e 44 ┆ I := @BDOS(2,WRD($08)) END┆
0x35960…35980 3b 0d 0a 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 45 4e 44 0d 0a 20 20 45 4c 53 45 0d 0a ┆; EXIT END ELSE ┆
0x35980…359a0 20 20 20 20 49 46 20 40 4c 46 42 5e 2e 4f 50 54 49 4f 4e 20 3d 20 46 54 52 4d 49 4f 20 54 48 45 ┆ IF @LFB^.OPTION = FTRMIO THE┆
0x359a0…359c0 4e 20 09 20 20 28 2a 20 4b 42 44 3a 20 44 4f 20 41 20 4e 4f 4e 2d 45 43 48 4f 20 52 45 41 44 20 ┆N (* KBD: DO A NON-ECHO READ ┆
0x359c0…359e0 2a 29 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 52 45 50 45 41 54 0d 0a 09 20 20 44 53 54 ┆*) BEGIN REPEAT DST┆
0x359e0…35a00 50 54 52 5e 20 3a 3d 20 43 48 52 28 40 42 44 4f 53 28 36 2c 57 52 44 28 24 46 46 29 29 29 3b 20 ┆PTR^ := CHR(@BDOS(6,WRD($FF))); ┆
0x35a00…35c00 (24, 0, 4) 0xe5[0x200]
0x35c00…35c20 (24, 0, 5) 28 2a 20 47 4f 20 52 45 41 44 20 41 20 43 48 41 52 20 57 49 54 48 20 4e 4f 20 45 43 48 4f 20 2a ┆(* GO READ A CHAR WITH NO ECHO *┆
0x35c20…35c40 29 0d 0a 09 55 4e 54 49 4c 20 44 53 54 50 54 52 5e 20 3c 3e 20 30 3b 0d 0a 09 45 58 49 54 0d 0a ┆) UNTIL DSTPTR^ <> 0; EXIT ┆
0x35c40…35c60 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 45 4c 53 45 20 28 2a 20 63 68 65 63 6b 20 66 6f 72 ┆ END ELSE (* check for┆
0x35c60…35c80 20 72 64 72 3a 20 2a 29 0d 0a 20 20 20 20 20 20 49 46 20 40 4c 46 42 5e 2e 4f 50 54 49 4f 4e 20 ┆ rdr: *) IF @LFB^.OPTION ┆
0x35c80…35ca0 3d 20 46 41 55 58 49 4f 20 54 48 45 4e 20 28 2a 20 52 44 52 3a 20 2a 29 0d 0a 20 20 20 20 20 20 ┆= FAUXIO THEN (* RDR: *) ┆
0x35ca0…35cc0 20 20 42 45 47 49 4e 0d 0a 09 20 20 44 53 54 50 54 52 5e 20 3a 3d 20 43 48 52 28 40 42 44 4f 53 ┆ BEGIN DSTPTR^ := CHR(@BDOS┆
0x35cc0…35ce0 28 33 2c 57 52 44 28 30 29 29 29 3b 20 28 2a 20 47 4f 20 52 45 41 44 20 52 44 52 20 2a 29 0d 0a ┆(3,WRD(0))); (* GO READ RDR *) ┆
0x35ce0…35d00 09 45 4e 44 3b 0d 0a 0d 0a 0d 0a 20 20 49 46 20 40 4c 46 42 5e 2e 4e 4f 53 45 43 54 52 53 20 54 ┆ END; IF @LFB^.NOSECTRS T┆
0x35d00…35d20 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 40 4c 46 42 5e 2e 46 45 4f 46 ┆HEN BEGIN @LFB^.FEOF┆
0x35d20…35d40 20 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 45 4e 44 3b 0d ┆ := TRUE; EXIT END; ┆
0x35d40…35d60 0a 0d 0a 20 20 46 4f 52 20 4e 20 3a 3d 20 31 20 54 4f 20 40 4c 46 42 5e 2e 49 4f 53 49 5a 45 20 ┆ FOR N := 1 TO @LFB^.IOSIZE ┆
0x35d60…35d80 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 49 54 48 20 40 4c 46 42 5e 20 ┆DO BEGIN WITH @LFB^ ┆
0x35d80…35da0 44 4f 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆DO BEGIN IF ┆
0x35da0…35dc0 46 53 45 43 49 4e 58 20 3d 20 31 32 38 20 54 48 45 4e 20 28 2a 20 54 49 4d 45 20 54 4f 20 52 45 ┆FSECINX = 128 THEN (* TIME TO RE┆
0x35dc0…35de0 41 44 20 4d 4f 52 45 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 ┆AD MORE *) BEGIN ┆
0x35de0…35e00 20 20 20 20 20 20 46 53 45 43 49 4e 58 20 3a 3d 20 30 3b 0d 0a 09 20 20 20 20 20 20 49 46 20 4e ┆ FSECINX := 0; IF N┆
0x35e00…36000 (24, 0, 6) 0xe5[0x200]
0x36000…36020 (24, 0, 7) 4f 54 20 4e 4f 53 45 43 54 52 53 20 54 48 45 4e 0d 0a 09 20 20 20 20 20 20 20 20 42 45 47 49 4e ┆OT NOSECTRS THEN BEGIN┆
0x36020…36040 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 32 ┆ I := @BDOS(2┆
0x36040…36060 36 2c 57 52 44 28 41 44 44 52 28 46 53 45 43 54 4f 52 29 29 29 3b 0d 0a 09 20 20 20 20 20 20 20 ┆6,WRD(ADDR(FSECTOR))); ┆
0x36060…36080 20 20 20 52 45 53 55 4c 54 49 4f 20 3a 3d 20 40 42 44 4f 53 28 32 30 2c 57 52 44 28 41 44 44 52 ┆ RESULTIO := @BDOS(20,WRD(ADDR┆
0x36080…360a0 28 46 43 42 29 29 29 3b 0d 0a 09 20 20 20 20 20 20 20 20 20 20 49 46 20 52 45 53 55 4c 54 49 4f ┆(FCB))); IF RESULTIO┆
0x360a0…360c0 20 3c 3e 20 30 20 54 48 45 4e 0d 0a 09 20 20 20 20 20 20 20 20 20 20 20 20 4e 4f 53 45 43 54 52 ┆ <> 0 THEN NOSECTR┆
0x360c0…360e0 53 20 3a 3d 20 54 52 55 45 0d 0a 09 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 ┆S := TRUE END ┆
0x360e0…36100 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 53 45 43 54 52 53 ┆ END; IF NOSECTRS┆
0x36100…36120 20 54 48 45 4e 0d 0a 09 20 20 20 20 42 45 47 49 4e 0d 0a 09 20 20 20 20 20 20 44 53 54 50 54 52 ┆ THEN BEGIN DSTPTR┆
0x36120…36140 5e 20 3a 3d 20 43 48 52 28 24 46 46 29 3b 0d 0a 09 20 20 20 20 20 20 46 45 4f 46 20 3a 3d 20 54 ┆^ := CHR($FF); FEOF := T┆
0x36140…36160 52 55 45 3b 0d 0a 09 20 20 20 20 20 20 42 55 46 49 44 58 20 3a 3d 20 30 3b 0d 0a 09 20 20 20 20 ┆RUE; BUFIDX := 0; ┆
0x36160…36180 20 20 40 44 46 4c 54 3b 0d 0a 09 20 20 20 20 20 20 45 58 49 54 0d 0a 09 20 20 20 20 45 4e 44 0d ┆ @DFLT; EXIT END ┆
0x36180…361a0 0a 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 44 53 54 50 54 52 5e 20 3a 3d ┆ ELSE DSTPTR^ :=┆
0x361a0…361c0 20 46 53 45 43 54 4f 52 5b 46 53 45 43 49 4e 58 5d 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 46 53 ┆ FSECTORÆFSECINXÅ; FS┆
0x361c0…361e0 45 43 49 4e 58 20 3a 3d 20 46 53 45 43 49 4e 58 20 2b 20 31 0d 0a 20 20 20 20 20 20 20 20 45 4e ┆ECINX := FSECINX + 1 EN┆
0x361e0…36200 44 3b 20 28 2a 20 57 49 54 48 20 2a 29 0d 0a 20 20 20 20 20 20 44 53 54 50 54 52 20 3a 3d 20 44 ┆D; (* WITH *) DSTPTR := D┆
0x36200…36220 (24, 0, 8) 28 2a 20 35 2e 35 20 76 65 72 73 69 6f 6e 20 2a 29 0d 0a 4d 4f 44 55 4c 45 20 57 52 49 54 45 42 ┆(* 5.5 version *) MODULE WRITEB┆
0x36220…36240 59 54 45 53 3b 0d 0a 0d 0a 28 2a 09 6c 61 73 74 20 75 70 64 61 74 65 3a 09 31 30 2f 32 31 2f 38 ┆YTES; (* last update: 10/21/8┆
0x36240…36260 31 09 2a 29 0d 0a 0d 0a 28 2a 24 4d 20 40 57 4e 42 2a 29 0d 0a 28 2a 24 4d 20 2a 2a 29 0d 0a 0d ┆1 *) (*$M @WNB*) (*$M **) ┆
0x36260…36280 0a 28 2a 24 49 20 38 30 72 74 70 2f 66 69 62 64 65 66 2e 6c 69 62 2a 29 0d 0a 0d 0a 56 41 52 0d ┆ (*$I 80rtp/fibdef.lib*) VAR ┆
0x36280…362a0 0a 20 20 40 4c 46 42 20 3a 20 09 45 58 54 45 52 4e 41 4c 20 5e 46 49 42 3b 0d 0a 20 20 52 45 53 ┆ @LFB : EXTERNAL ^FIB; RES┆
0x362a0…362c0 55 4c 54 49 4f 3a 09 45 58 54 45 52 4e 41 4c 20 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 45 58 54 45 ┆ULTIO: EXTERNAL INTEGER; EXTE┆
0x362c0…362e0 52 4e 41 4c 20 46 55 4e 43 54 49 4f 4e 20 40 42 44 4f 53 28 46 55 4e 43 3a 49 4e 54 45 47 45 52 ┆RNAL FUNCTION @BDOS(FUNC:INTEGER┆
0x362e0…36300 3b 20 50 41 52 4d 3a 57 4f 52 44 29 3a 49 4e 54 45 47 45 52 3b 0d 0a 45 58 54 45 52 4e 41 4c 20 ┆; PARM:WORD):INTEGER; EXTERNAL ┆
0x36300…36320 50 52 4f 43 45 55 44 52 45 20 40 44 46 4c 54 3b 0d 0a 0d 0a 28 2a 24 45 2d 2a 29 0d 0a 50 52 4f ┆PROCEUDRE @DFLT; (*$E-*) PRO┆
0x36320…36340 43 45 44 55 52 45 20 57 52 49 54 45 42 59 54 45 28 43 48 3a 43 48 41 52 29 3b 0d 0a 56 41 52 0d ┆CEDURE WRITEBYTE(CH:CHAR); VAR ┆
0x36340…36360 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 57 49 54 48 20 40 ┆ I : INTEGER; BEGIN WITH @┆
0x36360…36380 4c 46 42 5e 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 49 46 20 46 53 45 43 49 4e ┆LFB^ DO BEGIN IF FSECIN┆
0x36380…363a0 58 20 3d 20 31 32 38 20 54 48 45 4e 20 28 2a 20 54 49 4d 45 20 54 4f 20 57 52 49 54 45 20 2a 29 ┆X = 128 THEN (* TIME TO WRITE *)┆
0x363a0…363c0 0d 0a 09 20 20 42 45 47 49 4e 0d 0a 09 20 20 20 20 52 45 53 55 4c 54 49 4f 20 3a 3d 20 40 42 44 ┆ BEGIN RESULTIO := @BD┆
0x363c0…363e0 4f 53 28 32 36 2c 57 52 44 28 41 44 44 52 28 46 53 45 43 54 4f 52 29 29 29 3b 0d 0a 09 20 20 20 ┆OS(26,WRD(ADDR(FSECTOR))); ┆
0x363e0…36400 20 52 45 53 55 4c 54 49 4f 20 3a 3d 20 40 42 44 4f 53 28 32 31 2c 57 52 44 28 41 44 44 52 28 46 ┆ RESULTIO := @BDOS(21,WRD(ADDR(F┆
0x36400…36420 (24, 0, 9) 53 54 50 54 52 20 2b 20 31 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 40 4c 46 42 5e 2e 42 55 46 ┆STPTR + 1 END; @LFB^.BUF┆
0x36420…36440 49 44 58 20 3a 3d 20 30 3b 09 09 09 28 2a 20 53 4f 20 47 4e 42 20 57 4f 52 4b 53 20 2a 29 0d 0a ┆IDX := 0; (* SO GNB WORKS *) ┆
0x36440…36460 20 20 40 44 46 4c 54 3b 09 09 28 2a 20 54 4f 20 50 52 4f 54 45 43 54 20 55 53 45 52 20 44 41 54 ┆ @DFLT; (* TO PROTECT USER DAT┆
0x36460…36480 41 20 46 52 4f 4d 20 49 2f 4f 20 43 4c 4f 42 42 45 52 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d ┆A FROM I/O CLOBBER *) END; M┆
0x36480…364a0 4f 44 45 4e 44 2e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ODEND. ┆
0x364a0…364c0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x36500…36520 20 54 48 45 4e 0d 0a 09 20 20 20 20 42 45 47 49 4e 0d 0a 09 20 20 20 20 20 20 44 53 54 50 54 52 ┆ THEN BEGIN DSTPTR┆
0x36520…36540 5e 20 3a 3d 20 43 48 52 28 24 46 46 29 3b 0d 0a 09 20 20 20 20 20 20 46 45 4f 46 20 3a 3d 20 54 ┆^ := CHR($FF); FEOF := T┆
0x36540…36560 52 55 45 3b 0d 0a 09 20 20 20 20 20 20 42 55 46 49 44 58 20 3a 3d 20 30 3b 0d 0a 09 20 20 20 20 ┆RUE; BUFIDX := 0; ┆
0x36560…36580 20 20 40 44 46 4c 54 3b 0d 0a 09 20 20 20 20 20 20 45 58 49 54 0d 0a 09 20 20 20 20 45 4e 44 0d ┆ @DFLT; EXIT END ┆
0x36580…365a0 0a 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 44 53 54 50 54 52 5e 20 3a 3d ┆ ELSE DSTPTR^ :=┆
0x365a0…365c0 20 46 53 45 43 54 4f 52 5b 46 53 45 43 49 4e 58 5d 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 46 53 ┆ FSECTORÆFSECINXÅ; FS┆
0x365c0…365e0 45 43 49 4e 58 20 3a 3d 20 46 53 45 43 49 4e 58 20 2b 20 31 0d 0a 20 20 20 20 20 20 20 20 45 4e ┆ECINX := FSECINX + 1 EN┆
0x365e0…36600 44 3b 20 28 2a 20 57 49 54 48 20 2a 29 0d 0a 20 20 20 20 20 20 44 53 54 50 54 52 20 3a 3d 20 44 ┆D; (* WITH *) DSTPTR := D┆
0x36600…36620 (24, 1, 1) 43 42 29 29 29 3b 0d 0a 09 20 20 20 20 46 53 45 43 49 4e 58 20 3a 3d 20 30 0d 0a 09 20 20 45 4e ┆CB))); FSECINX := 0 EN┆
0x36620…36640 44 3b 0d 0a 09 46 53 45 43 54 4f 52 5b 46 53 45 43 49 4e 58 5d 20 3a 3d 20 43 48 3b 0d 0a 09 46 ┆D; FSECTORÆFSECINXÅ := CH; F┆
0x36640…36660 53 45 43 49 4e 58 20 3a 3d 20 46 53 45 43 49 4e 58 20 2b 20 31 0d 0a 20 20 20 20 20 20 45 4e 44 ┆SECINX := FSECINX + 1 END┆
0x36660…36680 20 28 2a 20 57 49 54 48 20 2a 29 0d 0a 45 4e 44 3b 20 28 2a 20 57 52 49 54 45 42 59 54 45 20 2a ┆ (* WITH *) END; (* WRITEBYTE *┆
0x36680…366a0 29 0d 0a 28 2a 24 45 2b 2a 29 0d 0a 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 40 57 4e 42 3b 0d ┆) (*$E+*) PROCEDURE @WNB; ┆
0x366a0…366c0 0a 4c 41 42 45 4c 20 31 3b 0d 0a 56 41 52 0d 0a 20 20 53 52 43 41 44 52 20 3a 20 5e 43 48 41 52 ┆ LABEL 1; VAR SRCADR : ^CHAR┆
0x366c0…366e0 3b 0d 0a 20 20 43 48 20 3a 20 43 48 41 52 3b 0d 0a 20 20 4e 2c 49 20 3a 20 49 4e 54 45 47 45 52 ┆; CH : CHAR; N,I : INTEGER┆
0x366e0…36700 3b 0d 0a 20 20 0d 0a 42 45 47 49 4e 0d 0a 20 20 52 45 53 55 4c 54 49 4f 20 3a 3d 20 30 3b 09 28 ┆; BEGIN RESULTIO := 0; (┆
0x36700…36720 2a 20 44 45 46 41 55 4c 54 20 2a 29 0d 0a 20 20 4d 4f 56 45 28 40 4c 46 42 5e 2e 46 42 55 46 41 ┆* DEFAULT *) MOVE(@LFB^.FBUFA┆
0x36720…36740 44 52 2c 53 52 43 41 44 52 2c 32 29 3b 0d 0a 20 20 49 46 20 40 4c 46 42 5e 2e 4f 50 54 49 4f 4e ┆DR,SRCADR,2); IF @LFB^.OPTION┆
0x36740…36760 20 3e 20 46 52 41 4e 44 4f 4d 20 54 48 45 4e 09 28 2a 20 43 4f 4e 53 4f 4c 45 2f 54 45 52 4d 20 ┆ > FRANDOM THEN (* CONSOLE/TERM ┆
0x36760…36780 49 2f 4f 20 2a 29 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 49 54 48 20 40 4c ┆I/O *) BEGIN WITH @L┆
0x36780…367a0 46 42 5e 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 46 4f 52 20 4e 20 3a 3d 20 31 20 54 4f 20 49 4f ┆FB^ DO FOR N := 1 TO IO┆
0x367a0…367c0 53 49 5a 45 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 20 20 20 20 43 ┆SIZE DO BEGIN C┆
0x367c0…367e0 48 20 3a 3d 20 53 52 43 41 44 52 5e 3b 0d 0a 09 20 20 20 20 69 66 20 28 63 68 20 3d 20 63 68 72 ┆H := SRCADR^; if (ch = chr┆
0x367e0…36800 28 24 30 61 29 20 61 6e 64 20 6e 6f 74 20 28 28 6f 70 74 69 6f 6e 3d 66 74 72 6d 69 6f 29 20 6f ┆($0a) and not ((option=ftrmio) o┆
0x36800…36820 (24, 1, 2) 73 65 63 74 6f 72 73 27 29 3b 0d 0a 0d 0a 20 20 57 52 49 54 45 28 27 42 61 73 65 20 61 64 64 72 ┆sectors'); WRITE('Base addr┆
0x36820…36840 3f 20 27 29 3b 0d 0a 20 20 52 45 41 44 48 45 58 28 49 4e 50 55 54 2c 42 41 53 45 2c 32 29 3b 0d ┆? '); READHEX(INPUT,BASE,2); ┆
0x36840…36860 0a 0d 0a 20 20 4d 4f 56 45 28 42 55 46 5b 30 2c 31 5d 2c 49 2c 32 29 3b 0d 0a 0d 0a 20 20 57 52 ┆ MOVE(BUFÆ0,1Å,I,2); WR┆
0x36860…36880 49 54 45 28 27 54 61 62 6c 65 20 73 74 61 72 74 73 20 61 74 20 4f 66 66 73 65 74 20 3d 20 27 29 ┆ITE('Table starts at Offset = ')┆
0x36880…368a0 3b 20 57 52 49 54 45 48 45 58 28 4f 55 54 50 55 54 2c 49 2d 42 41 53 45 2c 32 29 3b 20 57 52 49 ┆; WRITEHEX(OUTPUT,I-BASE,2); WRI┆
0x368a0…368c0 54 45 4c 4e 3b 0d 0a 0d 0a 20 20 4e 41 4d 45 4c 49 53 54 20 3a 3d 20 4f 52 44 28 41 44 44 52 28 ┆TELN; NAMELIST := ORD(ADDR(┆
0x368c0…368e0 42 55 46 29 29 20 2b 20 28 49 2d 42 41 53 45 29 3b 0d 0a 0d 0a 20 20 44 4f 4e 45 20 3a 3d 20 46 ┆BUF)) + (I-BASE); DONE := F┆
0x368e0…36900 41 4c 53 45 3b 0d 0a 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 57 48 49 4c 45 20 4e 4f 54 20 44 4f ┆ALSE; I := 0; WHILE NOT DO┆
0x36900…36920 4e 45 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 4e 41 ┆NE DO BEGIN WRITE(NA┆
0x36920…36940 4d 45 4c 49 53 54 5e 5b 49 5d 2e 4e 41 4d 45 2c 27 3f 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 ┆MELIST^ÆIÅ.NAME,'?'); REA┆
0x36940…36960 44 4c 4e 28 49 4e 4c 49 4e 45 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 28 6c 65 6e 67 74 68 28 69 ┆DLN(INLINE); IF (length(i┆
0x36960…36980 6e 6c 69 6e 65 29 20 3c 3e 20 30 29 20 61 6e 64 20 28 49 4e 4c 49 4e 45 5b 31 5d 20 49 4e 20 5b ┆nline) <> 0) and (INLINEÆ1Å IN Æ┆
0x36980…369a0 27 4e 27 2c 27 6e 27 5d 29 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 4b 52 55 4e 43 48 28 49 ┆'N','n'Å) THEN KRUNCH(I┆
0x369a0…369c0 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 49 20 3a 3d 20 49 20 2b 20 ┆) ELSE I := I + ┆
0x369c0…369e0 31 3b 0d 0a 20 20 20 20 20 20 44 4f 4e 45 20 3a 3d 20 28 4e 41 4d 45 4c 49 53 54 5e 5b 49 5d 2e ┆1; DONE := (NAMELIST^ÆIÅ.┆
0x369e0…36a00 4e 41 4d 45 5b 31 5d 3d 43 48 52 28 30 29 29 20 4f 52 20 28 49 4e 4c 49 4e 45 5b 31 5d 20 3d 20 ┆NAMEÆ1Å=CHR(0)) OR (INLINEÆ1Å = ┆
0x36a00…36a20 (24, 1, 3) 72 20 28 6f 70 74 69 6f 6e 3d 66 61 75 78 69 6f 29 29 20 74 68 65 6e 0d 0a 09 09 67 6f 74 6f 20 ┆r (option=fauxio)) then goto ┆
0x36a20…36a40 31 3b 0d 0a 09 20 20 20 20 49 46 20 4f 50 54 49 4f 4e 20 3d 20 46 4c 53 54 4f 55 54 20 54 48 45 ┆1; IF OPTION = FLSTOUT THE┆
0x36a40…36a60 4e 0d 0a 09 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 20 20 20 20 20 20 20 20 49 20 3a 3d 20 40 ┆N BEGIN I := @┆
0x36a60…36a80 42 44 4f 53 28 35 2c 57 52 44 28 43 48 29 29 3b 09 28 2a 20 57 52 49 54 45 20 49 54 20 54 4f 20 ┆BDOS(5,WRD(CH)); (* WRITE IT TO ┆
0x36a80…36aa0 54 48 45 20 50 52 49 4e 54 45 52 20 2a 29 0d 0a 09 20 20 20 20 20 20 20 20 49 46 20 43 48 20 3d ┆THE PRINTER *) IF CH =┆
0x36aa0…36ac0 20 43 48 52 28 24 30 44 29 20 54 48 45 4e 20 09 28 2a 20 57 45 20 4d 55 53 54 20 45 43 48 4f 20 ┆ CHR($0D) THEN (* WE MUST ECHO ┆
0x36ac0…36ae0 4c 46 20 2a 29 0d 0a 09 20 20 20 20 20 20 20 20 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 35 2c 57 ┆LF *) I := @BDOS(5,W┆
0x36ae0…36b00 52 44 28 24 30 41 29 29 0d 0a 09 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆RD($0A)) END ┆
0x36b00…36b20 20 20 45 4c 53 45 0d 0a 09 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 09 09 69 66 20 6f 70 74 69 6f ┆ ELSE BEGIN if optio┆
0x36b20…36b40 6e 20 3d 20 66 63 6f 6e 69 6f 20 74 68 65 6e 0d 0a 09 09 20 20 69 20 3a 3d 20 40 62 64 6f 73 28 ┆n = fconio then i := @bdos(┆
0x36b40…36b60 32 2c 77 72 64 28 63 68 29 29 0d 0a 09 09 65 6c 73 65 20 69 66 20 6f 70 74 69 6f 6e 20 3d 20 66 ┆2,wrd(ch)) else if option = f┆
0x36b60…36b80 74 72 6d 69 6f 20 74 68 65 6e 0d 0a 09 09 20 20 69 20 3a 3d 20 40 62 64 6f 73 28 36 2c 77 72 64 ┆trmio then i := @bdos(6,wrd┆
0x36b80…36ba0 28 63 68 29 29 0d 0a 09 09 65 6c 73 65 20 28 2a 20 6d 75 73 74 20 62 65 20 66 61 75 78 69 6f 20 ┆(ch)) else (* must be fauxio ┆
0x36ba0…36bc0 2a 29 0d 0a 09 09 20 20 69 20 3a 3d 20 40 62 64 6f 73 28 34 2c 77 72 64 28 63 68 29 29 3b 0d 0a ┆*) i := @bdos(4,wrd(ch)); ┆
0x36bc0…36be0 0d 0a 09 09 49 46 20 4f 50 54 49 4f 4e 20 3d 20 46 43 4f 4e 49 4f 20 54 48 45 4e 0d 0a 09 09 20 ┆ IF OPTION = FCONIO THEN ┆
0x36be0…36c00 20 49 46 20 43 48 3d 43 48 52 28 24 30 44 29 20 54 48 45 4e 0d 0a 09 09 20 20 20 20 28 2a 20 57 ┆ IF CH=CHR($0D) THEN (* W┆
0x36c00…36c20 (24, 1, 4) 27 2e 27 29 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 28 2a 20 4e 6f 77 20 77 72 69 74 65 ┆'.') END; (* Now write┆
0x36c20…36c40 20 69 74 20 6f 75 74 20 2a 29 0d 0a 0d 0a 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 52 45 50 45 41 ┆ it out *) I := 0; REPEA┆
0x36c40…36c60 54 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 4e 41 4d 45 4c 49 53 54 5e 5b 49 5d 2e 4e 41 4d 45 ┆T WRITELN(NAMELIST^ÆIÅ.NAME┆
0x36c60…36c80 29 3b 0d 0a 20 20 20 20 49 20 3a 3d 20 49 20 2b 20 31 0d 0a 20 20 55 4e 54 49 4c 20 28 4e 41 4d ┆); I := I + 1 UNTIL (NAM┆
0x36c80…36ca0 45 4c 49 53 54 5e 5b 49 5d 2e 4e 41 4d 45 5b 31 5d 20 3d 20 43 48 52 28 30 29 29 3b 0d 0a 0d 0a ┆ELIST^ÆIÅ.NAMEÆ1Å = CHR(0)); ┆
0x36ca0…36cc0 20 20 57 52 49 54 45 4c 4e 28 69 2c 27 20 73 79 6d 62 6f 6c 73 20 72 65 6d 61 69 6e 27 29 3b 0d ┆ WRITELN(i,' symbols remain'); ┆
0x36cc0…36ce0 0a 0d 0a 20 20 4e 45 57 53 49 5a 45 20 3a 3d 20 28 4f 52 44 28 41 44 44 52 28 4e 41 4d 45 4c 49 ┆ NEWSIZE := (ORD(ADDR(NAMELI┆
0x36ce0…36d00 53 54 5e 5b 49 5d 2e 4e 41 4d 45 29 29 2d 4f 52 44 28 41 44 44 52 28 42 55 46 29 29 29 3b 0d 0a ┆ST^ÆIÅ.NAME))-ORD(ADDR(BUF))); ┆
0x36d00…36d20 20 20 49 46 20 28 4e 45 57 53 49 5a 45 20 4d 4f 44 20 31 32 38 29 20 3c 3e 20 30 20 54 48 45 4e ┆ IF (NEWSIZE MOD 128) <> 0 THEN┆
0x36d20…36d40 0d 0a 20 20 20 20 4e 45 57 53 49 5a 45 20 3a 3d 20 4e 45 57 53 49 5a 45 20 2b 20 31 32 38 3b 0d ┆ NEWSIZE := NEWSIZE + 128; ┆
0x36d40…36d60 0a 0d 0a 20 20 57 52 49 54 45 4c 4e 28 27 4e 65 77 20 73 69 7a 65 20 69 73 20 27 2c 4e 45 57 53 ┆ WRITELN('New size is ',NEWS┆
0x36d60…36d80 49 5a 45 20 44 49 56 20 31 32 38 2c 27 20 73 65 63 74 6f 72 73 27 29 3b 0d 0a 0d 0a 20 20 43 4f ┆IZE DIV 128,' sectors'); CO┆
0x36d80…36da0 55 4e 54 20 3a 3d 20 4e 45 57 53 49 5a 45 20 44 49 56 20 31 32 38 3b 0d 0a 0d 0a 20 20 57 52 49 ┆UNT := NEWSIZE DIV 128; WRI┆
0x36da0…36dc0 54 45 28 27 57 72 69 74 65 69 74 3f 20 27 29 3b 0d 0a 20 20 52 45 41 44 4c 4e 28 49 4e 4c 49 4e ┆TE('Writeit? '); READLN(INLIN┆
0x36dc0…36de0 45 29 3b 0d 0a 20 20 49 46 20 49 4e 4c 49 4e 45 20 3c 3e 20 27 59 45 53 44 4f 49 54 27 20 54 48 ┆E); IF INLINE <> 'YESDOIT' TH┆
0x36de0…36e00 45 4e 0d 0a 20 20 20 20 45 58 49 54 3b 0d 0a 0d 0a 20 20 41 53 53 49 47 4e 28 4f 55 54 46 49 4c ┆EN EXIT; ASSIGN(OUTFIL┆
0x36e00…36e20 (24, 1, 5) 45 20 4d 55 53 54 20 45 43 48 4f 20 43 52 2f 4c 46 20 46 4f 52 20 43 52 20 2a 29 0d 0a 09 09 20 ┆E MUST ECHO CR/LF FOR CR *) ┆
0x36e20…36e40 20 20 20 49 20 3a 3d 20 40 42 44 4f 53 28 32 2c 57 52 44 28 24 30 41 29 29 0d 0a 09 20 20 20 20 ┆ I := @BDOS(2,WRD($0A)) ┆
0x36e40…36e60 20 20 45 4e 44 3b 0d 0a 31 3a 09 20 20 20 20 53 52 43 41 44 52 20 3a 3d 20 53 52 43 41 44 52 20 ┆ END; 1: SRCADR := SRCADR ┆
0x36e60…36e80 2b 20 31 0d 0a 09 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 45 4e ┆+ 1 END; EXIT EN┆
0x36e80…36ea0 44 3b 0d 0a 0d 0a 20 20 28 2a 20 57 45 20 20 47 45 54 20 48 45 52 45 20 4f 4e 4c 59 20 49 46 20 ┆D; (* WE GET HERE ONLY IF ┆
0x36ea0…36ec0 4e 4f 4e 2d 43 4f 4e 53 4f 4c 45 20 49 2f 4f 20 2a 29 0d 0a 0d 0a 0d 0a 20 20 46 4f 52 20 4e 20 ┆NON-CONSOLE I/O *) FOR N ┆
0x36ec0…36ee0 3a 3d 20 31 20 54 4f 20 40 4c 46 42 5e 2e 49 4f 53 49 5a 45 20 44 4f 0d 0a 20 20 20 20 42 45 47 ┆:= 1 TO @LFB^.IOSIZE DO BEG┆
0x36ee0…36f00 49 4e 0d 0a 20 20 20 20 20 20 57 52 49 54 45 42 59 54 45 28 53 52 43 41 44 52 5e 29 3b 0d 0a 20 ┆IN WRITEBYTE(SRCADR^); ┆
0x36f00…36f20 20 20 20 20 20 53 52 43 41 44 52 20 3a 3d 20 53 52 43 41 44 52 20 2b 20 31 0d 0a 20 20 20 20 45 ┆ SRCADR := SRCADR + 1 E┆
0x36f20…36f40 4e 44 3b 0d 0a 20 20 40 44 46 4c 54 3b 0d 0a 0d 0a 45 4e 44 3b 0d 0a 0d 0a 4d 4f 44 45 4e 44 2e ┆ND; @DFLT; END; MODEND.┆
0x36f40…36f60 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x36f60…36f80 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x36f80…36fa0 28 63 68 29 29 0d 0a 09 09 65 6c 73 65 20 28 2a 20 6d 75 73 74 20 62 65 20 66 61 75 78 69 6f 20 ┆(ch)) else (* must be fauxio ┆
0x36fa0…36fc0 2a 29 0d 0a 09 09 20 20 69 20 3a 3d 20 40 62 64 6f 73 28 34 2c 77 72 64 28 63 68 29 29 3b 0d 0a ┆*) i := @bdos(4,wrd(ch)); ┆
0x36fc0…36fe0 0d 0a 09 09 49 46 20 4f 50 54 49 4f 4e 20 3d 20 46 43 4f 4e 49 4f 20 54 48 45 4e 0d 0a 09 09 20 ┆ IF OPTION = FCONIO THEN ┆
0x36fe0…37000 20 49 46 20 43 48 3d 43 48 52 28 24 30 44 29 20 54 48 45 4e 0d 0a 09 09 20 20 20 20 28 2a 20 57 ┆ IF CH=CHR($0D) THEN (* W┆
0x37000…37020 (24, 1, 6) 45 2c 54 49 54 4c 45 29 3b 0d 0a 20 20 52 45 57 52 49 54 45 28 4f 55 54 46 49 4c 45 29 3b 0d 0a ┆E,TITLE); REWRITE(OUTFILE); ┆
0x37020…37040 20 20 46 4f 52 20 49 20 3a 3d 20 30 20 54 4f 20 43 4f 55 4e 54 2d 31 20 44 4f 0d 0a 20 20 20 20 ┆ FOR I := 0 TO COUNT-1 DO ┆
0x37040…37060 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 4f 55 54 46 49 4c 45 5e 20 3a 3d 20 42 55 46 5b 49 5d 3b ┆BEGIN OUTFILE^ := BUFÆIÅ;┆
0x37060…37080 0d 0a 20 20 20 20 20 20 53 45 45 4b 57 52 49 54 45 28 4f 55 54 46 49 4c 45 2c 49 29 0d 0a 20 20 ┆ SEEKWRITE(OUTFILE,I) ┆
0x37080…370a0 20 20 45 4e 44 3b 0d 0a 20 20 43 4c 4f 53 45 28 4f 55 54 46 49 4c 45 2c 49 29 0d 0a 45 4e 44 2e ┆ END; CLOSE(OUTFILE,I) END.┆
0x370a0…370c0 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x370c0…370e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x37100…37120 20 20 49 46 20 28 4e 45 57 53 49 5a 45 20 4d 4f 44 20 31 32 38 29 20 3c 3e 20 30 20 54 48 45 4e ┆ IF (NEWSIZE MOD 128) <> 0 THEN┆
0x37120…37140 0d 0a 20 20 20 20 4e 45 57 53 49 5a 45 20 3a 3d 20 4e 45 57 53 49 5a 45 20 2b 20 31 32 38 3b 0d ┆ NEWSIZE := NEWSIZE + 128; ┆
0x37140…37160 0a 0d 0a 20 20 57 52 49 54 45 4c 4e 28 27 4e 65 77 20 73 69 7a 65 20 69 73 20 27 2c 4e 45 57 53 ┆ WRITELN('New size is ',NEWS┆
0x37160…37180 49 5a 45 20 44 49 56 20 31 32 38 2c 27 20 73 65 63 74 6f 72 73 27 29 3b 0d 0a 0d 0a 20 20 43 4f ┆IZE DIV 128,' sectors'); CO┆
0x37180…371a0 55 4e 54 20 3a 3d 20 4e 45 57 53 49 5a 45 20 44 49 56 20 31 32 38 3b 0d 0a 0d 0a 20 20 57 52 49 ┆UNT := NEWSIZE DIV 128; WRI┆
0x371a0…371c0 54 45 28 27 57 72 69 74 65 69 74 3f 20 27 29 3b 0d 0a 20 20 52 45 41 44 4c 4e 28 49 4e 4c 49 4e ┆TE('Writeit? '); READLN(INLIN┆
0x371c0…371e0 45 29 3b 0d 0a 20 20 49 46 20 49 4e 4c 49 4e 45 20 3c 3e 20 27 59 45 53 44 4f 49 54 27 20 54 48 ┆E); IF INLINE <> 'YESDOIT' TH┆
0x371e0…37200 45 4e 0d 0a 20 20 20 20 45 58 49 54 3b 0d 0a 0d 0a 20 20 41 53 53 49 47 4e 28 4f 55 54 46 49 4c ┆EN EXIT; ASSIGN(OUTFIL┆
0x37200…37220 (24, 1, 7) 50 52 4f 47 52 41 4d 20 53 54 52 49 50 49 54 3b 20 28 2a 20 50 52 4f 47 52 41 4d 20 54 4f 20 53 ┆PROGRAM STRIPIT; (* PROGRAM TO S┆
0x37220…37240 54 52 49 50 20 45 4e 54 52 59 20 50 4f 49 4e 54 20 4e 41 4d 45 53 20 46 52 4f 4d 20 41 4e 20 4f ┆TRIP ENTRY POINT NAMES FROM AN O┆
0x37240…37260 56 45 52 4c 41 59 20 2a 29 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 41 4c 50 48 41 20 3d 20 50 41 43 ┆VERLAY *) TYPE ALPHA = PAC┆
0x37260…37280 4b 45 44 20 41 52 52 41 59 20 5b 31 2e 2e 38 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 0d 0a 20 20 4e ┆KED ARRAY Æ1..8Å OF CHAR; N┆
0x37280…372a0 41 4d 45 52 45 43 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AMEREC = RECORD ┆
0x372a0…372c0 20 4e 41 4d 45 20 3a 20 41 4c 50 48 41 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NAME : ALPHA; ┆
0x372c0…372e0 41 44 44 52 20 3a 20 49 4e 54 45 47 45 52 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b ┆ADDR : INTEGER END;┆
0x372e0…37300 0d 0a 20 20 4e 41 4d 45 41 52 52 20 3d 20 41 52 52 41 59 20 5b 30 2e 2e 30 5d 20 4f 46 20 4e 41 ┆ NAMEARR = ARRAY Æ0..0Å OF NA┆
0x37300…37320 4d 45 52 45 43 3b 0d 0a 20 20 53 45 43 54 4f 52 20 3d 20 41 52 52 41 59 20 5b 30 2e 2e 31 32 37 ┆MEREC; SECTOR = ARRAY Æ0..127┆
0x37320…37340 5d 20 4f 46 20 42 59 54 45 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 4e 41 4d 45 4c 49 53 54 20 3a 20 ┆Å OF BYTE; VAR NAMELIST : ┆
0x37340…37360 5e 4e 41 4d 45 41 52 52 3b 0d 0a 20 20 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 42 41 53 ┆^NAMEARR; I : INTEGER; BAS┆
0x37360…37380 45 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 54 49 54 4c 45 20 3a 20 53 54 52 49 4e 47 3b 0d ┆E : INTEGER; TITLE : STRING; ┆
0x37380…373a0 0a 20 20 49 4e 46 49 4c 45 20 3a 20 46 49 4c 45 20 4f 46 20 53 45 43 54 4f 52 3b 0d 0a 20 20 4f ┆ INFILE : FILE OF SECTOR; O┆
0x373a0…373c0 55 54 46 49 4c 45 20 3a 20 46 49 4c 45 20 4f 46 20 53 45 43 54 4f 52 3b 0d 0a 20 20 42 55 46 20 ┆UTFILE : FILE OF SECTOR; BUF ┆
0x373c0…373e0 3a 20 41 52 52 41 59 20 5b 30 2e 2e 31 39 32 5d 20 4f 46 20 53 45 43 54 4f 52 3b 20 20 20 20 20 ┆: ARRAY Æ0..192Å OF SECTOR; ┆
0x373e0…37400 20 28 2a 20 4f 56 45 52 4c 41 59 20 4c 4f 41 44 49 4e 47 20 41 52 45 41 20 2a 29 0d 0a 20 20 43 ┆ (* OVERLAY LOADING AREA *) C┆
0x37400…37600 (24, 1, 8) 0xe5[0x200]
0x37600…37620 (24, 1, 9) 4f 55 4e 54 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 49 4e 4c 49 4e 45 20 3a 20 53 54 52 49 ┆OUNT : INTEGER; INLINE : STRI┆
0x37620…37640 4e 47 3b 0d 0a 20 20 44 4f 4e 45 20 3a 20 42 4f 4f 4c 45 41 4e 3b 0d 0a 20 20 4e 45 57 53 49 5a ┆NG; DONE : BOOLEAN; NEWSIZ┆
0x37640…37660 45 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 4b 52 55 4e 43 48 ┆E : INTEGER; PROCEDURE KRUNCH┆
0x37660…37680 28 49 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 56 41 52 0d 0a 20 20 4a 20 3a 20 49 4e 54 45 47 45 52 ┆(I:INTEGER); VAR J : INTEGER┆
0x37680…376a0 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 4e 41 4d 45 4c 49 53 54 ┆; BEGIN REPEAT NAMELIST┆
0x376a0…376c0 5e 5b 49 5d 20 3a 3d 20 4e 41 4d 45 4c 49 53 54 5e 5b 49 2b 31 5d 3b 0d 0a 20 20 20 20 49 20 3a ┆^ÆIÅ := NAMELIST^ÆI+1Å; I :┆
0x376c0…376e0 3d 20 49 20 2b 20 31 3b 0d 0a 20 20 55 4e 54 49 4c 20 4f 52 44 28 4e 41 4d 45 4c 49 53 54 5e 5b ┆= I + 1; UNTIL ORD(NAMELIST^Æ┆
0x376e0…37700 49 5d 2e 4e 41 4d 45 5b 31 5d 29 20 3d 20 30 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a ┆IÅ.NAMEÆ1Å) = 0 END; BEGIN ┆
0x37700…37720 20 20 57 52 49 54 45 28 27 46 69 6c 65 20 6e 61 6d 65 3f 20 27 29 3b 0d 0a 20 20 52 45 41 44 4c ┆ WRITE('File name? '); READL┆
0x37720…37740 4e 28 54 49 54 4c 45 29 3b 0d 0a 20 20 41 53 53 49 47 4e 28 49 4e 46 49 4c 45 2c 54 49 54 4c 45 ┆N(TITLE); ASSIGN(INFILE,TITLE┆
0x37740…37760 29 3b 0d 0a 20 20 52 45 53 45 54 28 49 4e 46 49 4c 45 29 3b 0d 0a 20 20 43 4f 55 4e 54 20 3a 3d ┆); RESET(INFILE); COUNT :=┆
0x37760…37780 20 30 3b 0d 0a 20 20 57 48 49 4c 45 20 49 4f 52 45 53 55 4c 54 20 3c 3e 20 31 20 44 4f 0d 0a 20 ┆ 0; WHILE IORESULT <> 1 DO ┆
0x37780…377a0 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 43 4f 55 4e 54 20 3a 3d 20 43 4f 55 4e 54 20 2b ┆ BEGIN COUNT := COUNT +┆
0x377a0…377c0 20 31 3b 0d 0a 20 20 20 20 20 20 42 55 46 5b 43 4f 55 4e 54 2d 31 5d 20 3a 3d 20 49 4e 46 49 4c ┆ 1; BUFÆCOUNT-1Å := INFIL┆
0x377c0…377e0 45 5e 3b 0d 0a 20 20 20 20 20 20 53 45 45 4b 52 45 41 44 28 49 4e 46 49 4c 45 2c 43 4f 55 4e 54 ┆E^; SEEKREAD(INFILE,COUNT┆
0x377e0…37800 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 57 52 49 54 45 4c 4e 28 43 6f 75 6e 74 2c 27 20 ┆); END; WRITELN(Count,' ┆
0x37800…37a00 (25, 0, 1) 0xe5[0x200]
0x37a00…37a20 (25, 0, 2) 0d 0a 20 20 53 31 5b 30 5d 20 3a 3d 20 43 48 52 28 50 4f 53 28 27 20 27 2c 53 31 29 2d 31 29 3b ┆ S1Æ0Å := CHR(POS(' ',S1)-1);┆
0x37a20…37a40 20 20 20 28 2a 20 53 45 54 20 54 48 45 20 4c 45 4e 47 54 48 20 42 59 54 45 20 2a 29 0d 0a 20 20 ┆ (* SET THE LENGTH BYTE *) ┆
0x37a40…37a60 53 20 3a 3d 20 53 31 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 47 45 54 52 45 ┆S := S1 END; PROCEDURE GETRE┆
0x37a60…37a80 43 28 49 4e 44 58 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 42 4c 4f 43 4b ┆C(INDX:INTEGER); BEGIN BLOCK┆
0x37a80…37aa0 52 45 41 44 28 49 4e 46 49 4c 45 2c 52 45 43 2c 49 4f 52 2c 31 32 38 2c 49 4e 44 58 20 44 49 56 ┆READ(INFILE,REC,IOR,128,INDX DIV┆
0x37aa0…37ac0 20 34 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 55 54 52 45 43 28 49 4e ┆ 4) END; PROCEDURE PUTREC(IN┆
0x37ac0…37ae0 44 58 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 47 45 54 52 45 43 28 49 4e ┆DX:INTEGER); BEGIN GETREC(IN┆
0x37ae0…37b00 44 58 29 3b 0d 0a 20 20 4d 4f 56 45 28 52 45 43 32 2c 52 45 43 5b 49 4e 44 58 20 4d 4f 44 20 34 ┆DX); MOVE(REC2,RECÆINDX MOD 4┆
0x37b00…37b20 5d 2c 33 32 29 3b 0d 0a 20 20 42 4c 4f 43 4b 57 52 49 54 45 28 49 4e 46 49 4c 45 2c 52 45 43 2c ┆Å,32); BLOCKWRITE(INFILE,REC,┆
0x37b20…37b40 49 4f 52 2c 31 32 38 2c 49 4e 44 58 20 44 49 56 20 34 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 50 ┆IOR,128,INDX DIV 4) END; P┆
0x37b40…37b60 52 4f 43 45 44 55 52 45 20 46 49 4e 44 5f 4c 41 53 54 5f 42 41 43 4b 55 50 28 56 41 52 20 53 54 ┆ROCEDURE FIND_LAST_BACKUP(VAR ST┆
0x37b60…37b80 41 52 54 49 4e 47 50 4f 49 4e 54 20 3a 20 49 4e 54 45 47 45 52 29 3b 0d 0a 56 41 52 0d 0a 20 20 ┆ARTINGPOINT : INTEGER); VAR ┆
0x37b80…37ba0 49 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 46 4f 52 20 49 20 3a 3d 20 ┆I : INTEGER; BEGIN FOR I := ┆
0x37ba0…37bc0 4c 4f 47 49 4e 44 58 5e 2d 31 20 44 4f 57 4e 54 4f 20 30 20 44 4f 20 28 2a 20 57 4f 52 4b 20 42 ┆LOGINDX^-1 DOWNTO 0 DO (* WORK B┆
0x37bc0…37be0 41 43 4b 57 41 52 44 53 20 2a 29 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 47 45 ┆ACKWARDS *) BEGIN GE┆
0x37be0…37c00 54 52 45 43 28 49 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 52 45 43 5b 49 20 4d 4f 44 20 34 2c 32 ┆TREC(I); IF RECÆI MOD 4,2┆
0x37c00…37e00 (25, 0, 3) 0xe5[0x200]
0x37e00…37e20 (25, 0, 4) 38 5d 20 3d 20 27 2d 27 20 54 48 45 4e 20 28 2a 20 54 48 49 53 20 49 53 20 49 54 21 20 2a 29 0d ┆8Å = '-' THEN (* THIS IS IT! *) ┆
0x37e20…37e40 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 49 ┆ BEGIN STARTI┆
0x37e40…37e60 4e 47 50 4f 49 4e 54 20 3a 3d 20 49 20 2b 20 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 58 49 ┆NGPOINT := I + 1; EXI┆
0x37e60…37e80 54 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 28 2a 20 49 ┆T END END; (* I┆
0x37e80…37ea0 46 20 57 45 20 47 45 54 20 48 45 52 45 20 54 48 45 4e 20 45 49 54 48 45 52 20 45 4d 50 54 59 20 ┆F WE GET HERE THEN EITHER EMPTY ┆
0x37ea0…37ec0 46 49 4c 45 20 4f 52 20 4e 4f 20 50 52 45 56 49 4f 55 53 20 42 41 43 4b 55 50 53 20 2a 29 0d 0a ┆FILE OR NO PREVIOUS BACKUPS *) ┆
0x37ec0…37ee0 20 20 53 54 41 52 54 49 4e 47 50 4f 49 4e 54 20 3a 3d 20 30 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 ┆ STARTINGPOINT := 0 END; PR┆
0x37ee0…37f00 4f 43 45 44 55 52 45 20 44 45 4c 45 54 45 5f 46 49 52 53 54 5f 42 41 54 43 48 3b 0d 0a 56 41 52 ┆OCEDURE DELETE_FIRST_BATCH; VAR┆
0x37f00…37f20 0d 0a 20 20 49 2c 4a 2c 4b 2c 4c 2c 4d 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d ┆ I,J,K,L,M : INTEGER; BEGIN ┆
0x37f20…37f40 0a 20 20 52 45 53 45 54 28 4c 4f 47 49 4e 44 58 29 3b 20 20 20 20 20 20 20 28 2a 20 52 45 20 4f ┆ RESET(LOGINDX); (* RE O┆
0x37f40…37f60 50 45 4e 20 54 48 49 53 20 46 49 4c 45 20 2a 29 0d 0a 20 20 49 20 3a 3d 20 30 3b 0d 0a 20 20 57 ┆PEN THIS FILE *) I := 0; W┆
0x37f60…37f80 48 49 4c 45 20 49 20 3c 20 4c 4f 47 49 4e 44 58 5e 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d ┆HILE I < LOGINDX^ DO BEGIN ┆
0x37f80…37fa0 0a 20 20 20 20 20 20 47 45 54 52 45 43 28 49 29 3b 0d 0a 20 20 20 20 20 20 49 46 20 52 45 43 5b ┆ GETREC(I); IF RECÆ┆
0x37fa0…37fc0 49 20 4d 4f 44 20 34 2c 32 39 5d 3d 27 2d 27 20 54 48 45 4e 20 28 2a 20 52 45 43 4f 52 44 20 46 ┆I MOD 4,29Å='-' THEN (* RECORD F┆
0x37fc0…37fe0 4f 55 4e 44 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆OUND *) BEGIN ┆
0x37fe0…38000 20 20 49 46 20 49 20 3d 20 4c 4f 47 49 4e 44 58 5e 2d 31 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 ┆ IF I = LOGINDX^-1 THEN ┆
0x38000…38020 (25, 0, 5) 28 2a 20 20 56 45 52 53 49 4f 4e 20 30 30 32 34 20 2a 29 0d 0a 0d 0a 50 52 4f 47 52 41 4d 20 42 ┆(* VERSION 0024 *) PROGRAM B┆
0x38020…38040 41 43 4b 5f 49 54 5f 55 50 3b 0d 0a 0d 0a 28 2a 20 54 48 49 53 20 50 52 4f 47 52 41 4d 20 57 49 ┆ACK_IT_UP; (* THIS PROGRAM WI┆
0x38040…38060 4c 4c 20 52 45 41 44 20 54 48 45 20 4c 4f 47 2e 44 41 54 20 41 4e 44 20 4c 4f 47 2e 49 44 58 20 ┆LL READ THE LOG.DAT AND LOG.IDX ┆
0x38060…38080 46 49 4c 45 53 20 41 4e 44 20 20 20 20 20 2a 29 0d 0a 28 2a 20 43 52 45 41 54 45 20 46 49 4c 45 ┆FILES AND *) (* CREATE FILE┆
0x38080…380a0 43 4f 50 59 2e 53 55 42 2e 20 20 54 48 45 20 4c 4f 47 2e 44 41 54 20 46 49 4c 45 20 57 49 4c 4c ┆COPY.SUB. THE LOG.DAT FILE WILL┆
0x380a0…380c0 20 42 45 20 4d 41 52 4b 45 44 20 57 49 54 48 20 20 20 2a 29 0d 0a 28 2a 20 41 20 52 45 43 4f 52 ┆ BE MARKED WITH *) (* A RECOR┆
0x380c0…380e0 44 20 43 4f 4e 54 41 49 4e 49 4e 47 20 44 41 53 48 45 53 20 54 4f 20 53 49 47 4e 41 4c 20 54 48 ┆D CONTAINING DASHES TO SIGNAL TH┆
0x380e0…38100 41 54 20 41 4c 4c 20 46 49 4c 45 53 20 50 52 45 56 49 4f 55 53 20 2a 29 0d 0a 28 2a 20 54 4f 20 ┆AT ALL FILES PREVIOUS *) (* TO ┆
0x38100…38120 54 48 41 54 20 52 45 43 4f 52 44 20 48 41 56 45 20 42 45 45 4e 20 42 41 43 4b 45 44 20 55 50 20 ┆THAT RECORD HAVE BEEN BACKED UP ┆
0x38120…38140 28 49 46 20 59 4f 55 20 52 55 4e 20 54 48 45 20 53 55 42 4d 49 54 29 20 20 20 2a 29 0d 0a 0d 0a ┆(IF YOU RUN THE SUBMIT) *) ┆
0x38140…38160 54 59 50 45 0d 0a 20 20 4c 4f 47 45 4e 54 52 59 20 3d 20 50 41 43 4b 45 44 20 41 52 52 41 59 20 ┆TYPE LOGENTRY = PACKED ARRAY ┆
0x38160…38180 5b 30 2e 2e 33 31 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 4c 4f 47 52 45 43 20 20 20 3d 20 50 ┆Æ0..31Å OF CHAR; LOGREC = P┆
0x38180…381a0 41 43 4b 45 44 20 41 52 52 41 59 20 5b 30 2e 2e 33 5d 20 4f 46 20 4c 4f 47 45 4e 54 52 59 3b 0d ┆ACKED ARRAY Æ0..3Å OF LOGENTRY; ┆
0x381a0…381c0 0a 20 20 4e 41 4d 45 53 54 52 20 20 3d 20 53 54 52 49 4e 47 5b 31 36 5d 3b 0d 0a 20 20 4e 41 4d ┆ NAMESTR = STRINGÆ16Å; NAM┆
0x381c0…381e0 45 52 45 43 20 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆EREC = RECORD S┆
0x381e0…38200 20 20 20 20 3a 20 20 4e 41 4d 45 53 54 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : NAMESTR; ┆
0x38200…38220 (25, 0, 6) 20 20 20 20 20 20 45 58 49 54 3b 20 28 2a 20 4e 4f 20 50 52 45 56 49 4f 55 53 20 44 41 54 41 20 ┆ EXIT; (* NO PREVIOUS DATA ┆
0x38220…38240 54 4f 20 44 45 4c 45 54 45 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 4a 20 3a 3d 20 4c 4f 47 ┆TO DELETE *) J := LOG┆
0x38240…38260 49 4e 44 58 5e 20 2d 20 49 20 2d 31 20 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 4b 20 3a 3d 20 4c ┆INDX^ - I -1 ; K := L┆
0x38260…38280 4f 47 49 4e 44 58 5e 3b 20 20 20 20 20 20 20 20 20 20 28 2a 20 53 41 56 45 20 54 48 45 20 43 55 ┆OGINDX^; (* SAVE THE CU┆
0x38280…382a0 52 52 45 4e 54 20 56 41 4c 55 45 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 ┆RRENT VALUE *) REWRIT┆
0x382a0…382c0 45 28 4c 4f 47 49 4e 44 58 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 4c 4f 47 49 4e 44 58 5e 20 ┆E(LOGINDX); LOGINDX^ ┆
0x382c0…382e0 3a 3d 20 4a 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 50 55 54 28 4c 4f 47 49 4e 44 58 29 3b 0d 0a ┆:= J; PUT(LOGINDX); ┆
0x382e0…38300 20 20 20 20 20 20 20 20 20 20 43 4c 4f 53 45 28 4c 4f 47 49 4e 44 58 2c 49 4f 52 29 3b 0d 0a 20 ┆ CLOSE(LOGINDX,IOR); ┆
0x38300…38320 20 20 20 20 20 20 20 20 20 28 2a 20 4e 4f 57 20 53 48 55 46 46 4c 45 20 54 4f 20 54 48 45 20 4c ┆ (* NOW SHUFFLE TO THE L┆
0x38320…38340 45 46 54 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 4d 20 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 ┆EFT *) M := 0; ┆
0x38340…38360 20 20 20 20 20 46 4f 52 20 4c 20 3a 3d 20 49 2b 31 20 54 4f 20 4b 20 44 4f 0d 0a 20 20 20 20 20 ┆ FOR L := I+1 TO K DO ┆
0x38360…38380 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 52 ┆ BEGIN GETR┆
0x38380…383a0 45 43 28 4c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 28 52 45 43 5b 4c ┆EC(L); MOVE(RECÆL┆
0x383a0…383c0 20 4d 4f 44 20 34 5d 2c 52 45 43 32 2c 33 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MOD 4Å,REC2,32); ┆
0x383c0…383e0 20 50 55 54 52 45 43 28 4d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 3a 3d 20 ┆ PUTREC(M); M := ┆
0x383e0…38400 4d 20 2b 20 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 ┆M + 1 END; ┆
0x38400…38420 (25, 0, 7) 4e 58 54 20 20 3a 20 20 5e 4e 41 4d 45 52 45 43 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆NXT : ^NAMEREC E┆
0x38420…38440 4e 44 3b 0d 0a 20 0d 0a 56 41 52 0d 0a 20 20 49 4e 46 49 4c 45 20 3a 20 46 49 4c 45 3b 0d 0a 20 ┆ND; VAR INFILE : FILE; ┆
0x38440…38460 20 4c 4f 47 49 4e 44 58 3a 20 46 49 4c 45 20 4f 46 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 4f 55 ┆ LOGINDX: FILE OF INTEGER; OU┆
0x38460…38480 54 46 49 4c 45 3a 20 54 45 58 54 3b 0d 0a 20 20 52 45 43 20 20 20 20 3a 20 4c 4f 47 52 45 43 3b ┆TFILE: TEXT; REC : LOGREC;┆
0x38480…384a0 0d 0a 20 20 52 45 43 32 20 20 20 3a 20 4c 4f 47 45 4e 54 52 59 3b 20 20 20 20 28 2a 20 55 53 45 ┆ REC2 : LOGENTRY; (* USE┆
0x384a0…384c0 44 20 46 4f 52 20 50 55 54 52 45 43 20 2a 29 0d 0a 20 20 49 4f 52 20 20 20 20 3a 20 49 4e 54 45 ┆D FOR PUTREC *) IOR : INTE┆
0x384c0…384e0 47 45 52 3b 0d 0a 20 20 49 20 20 20 20 20 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 53 20 20 ┆GER; I : INTEGER; S ┆
0x384e0…38500 20 20 20 20 3a 20 53 54 52 49 4e 47 3b 0d 0a 20 20 49 4e 44 45 58 20 20 3a 20 49 4e 54 45 47 45 ┆ : STRING; INDEX : INTEGE┆
0x38500…38520 52 3b 0d 0a 20 20 4c 49 53 54 20 20 20 3a 20 5e 4e 41 4d 45 52 45 43 3b 20 20 20 28 2a 20 53 4f ┆R; LIST : ^NAMEREC; (* SO┆
0x38520…38540 20 57 45 20 43 41 4e 20 45 4c 49 4d 49 4e 41 54 45 20 44 55 50 4c 49 43 41 54 45 53 20 2a 29 0d ┆ WE CAN ELIMINATE DUPLICATES *) ┆
0x38540…38560 0a 20 20 44 41 54 45 20 20 20 3a 20 53 54 52 49 4e 47 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 ┆ DATE : STRING; PROCEDURE┆
0x38560…38580 20 49 4e 49 54 49 41 4c 49 5a 45 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 41 53 53 49 47 4e 28 49 4e ┆ INITIALIZE; BEGIN ASSIGN(IN┆
0x38580…385a0 46 49 4c 45 2c 27 4c 4f 47 2e 44 41 54 27 29 3b 0d 0a 20 20 41 53 53 49 47 4e 28 4c 4f 47 49 4e ┆FILE,'LOG.DAT'); ASSIGN(LOGIN┆
0x385a0…385c0 44 58 2c 27 4c 4f 47 2e 49 44 58 27 29 3b 0d 0a 20 20 41 53 53 49 47 4e 28 4f 55 54 46 49 4c 45 ┆DX,'LOG.IDX'); ASSIGN(OUTFILE┆
0x385c0…385e0 2c 27 46 49 4c 45 43 4f 50 59 2e 53 55 42 27 29 3b 0d 0a 20 20 52 45 53 45 54 28 49 4e 46 49 4c ┆,'FILECOPY.SUB'); RESET(INFIL┆
0x385e0…38600 45 29 3b 0d 0a 20 20 52 45 53 45 54 28 4c 4f 47 49 4e 44 58 29 3b 0d 0a 20 20 52 45 57 52 49 54 ┆E); RESET(LOGINDX); REWRIT┆
0x38600…38620 (25, 0, 8) 20 20 20 46 49 4c 4c 43 48 41 52 28 52 45 43 32 2c 33 32 2c 43 48 52 28 24 31 41 29 29 3b 0d 0a ┆ FILLCHAR(REC2,32,CHR($1A)); ┆
0x38620…38640 20 20 20 20 20 20 20 20 20 20 50 55 54 52 45 43 28 4d 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ PUTREC(M); ┆
0x38640…38660 45 58 49 54 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 49 20 3a 3d 20 49 ┆EXIT END; I := I┆
0x38660…38680 20 2b 20 31 0d 0a 20 20 20 20 45 4e 44 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 42 45 47 49 4e 0d 0a ┆ + 1 END END; BEGIN ┆
0x38680…386a0 20 20 57 52 49 54 45 4c 4e 28 27 50 61 73 63 61 6c 2f 4d 54 2b 20 3f 3f 20 42 61 63 6b 75 70 20 ┆ WRITELN('Pascal/MT+ ?? Backup ┆
0x386a0…386c0 70 72 6f 67 72 61 6d 27 29 3b 0d 0a 20 20 49 4e 49 54 49 41 4c 49 5a 45 3b 0d 0a 20 20 46 49 4e ┆program'); INITIALIZE; FIN┆
0x386c0…386e0 44 5f 4c 41 53 54 5f 42 41 43 4b 55 50 28 49 4e 44 45 58 29 3b 0d 0a 20 20 28 2a 20 4e 4f 57 20 ┆D_LAST_BACKUP(INDEX); (* NOW ┆
0x386e0…38700 42 55 49 4c 44 20 54 48 45 20 4c 49 53 54 20 2a 29 0d 0a 20 20 46 4f 52 20 49 20 3a 3d 20 49 4e ┆BUILD THE LIST *) FOR I := IN┆
0x38700…38720 44 45 58 20 54 4f 20 4c 4f 47 49 4e 44 58 5e 2d 31 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d ┆DEX TO LOGINDX^-1 DO BEGIN ┆
0x38720…38740 0a 20 20 20 20 20 20 45 58 54 52 41 43 54 28 53 2c 49 29 3b 0d 0a 20 20 20 20 20 20 41 44 44 5f ┆ EXTRACT(S,I); ADD_┆
0x38740…38760 32 5f 4c 49 53 54 28 53 29 3b 20 20 20 20 28 2a 20 41 44 44 20 54 4f 20 4c 49 53 54 20 49 46 20 ┆2_LIST(S); (* ADD TO LIST IF ┆
0x38760…38780 4e 4f 54 20 41 4c 52 45 41 44 59 20 54 48 45 52 45 20 2a 29 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a ┆NOT ALREADY THERE *) END; ┆
0x38780…387a0 20 20 57 48 49 4c 45 20 4c 49 53 54 20 3c 3e 20 4e 49 4c 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 ┆ WHILE LIST <> NIL DO BEGI┆
0x387a0…387c0 4e 0d 0a 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 4f 55 54 46 49 4c 45 2c 27 50 49 50 20 42 3a ┆N WRITELN(OUTFILE,'PIP B:┆
0x387c0…387e0 3d 27 2c 4c 49 53 54 5e 2e 53 29 3b 0d 0a 20 20 20 20 20 20 4c 49 53 54 20 3a 3d 20 4c 49 53 54 ┆=',LIST^.S); LIST := LIST┆
0x387e0…38800 5e 2e 4e 58 54 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 43 4c 4f 53 45 28 4f 55 54 46 49 4c 45 ┆^.NXT END; CLOSE(OUTFILE┆
0x38800…38820 (25, 0, 9) 45 28 4f 55 54 46 49 4c 45 29 3b 0d 0a 20 20 4c 49 53 54 20 3a 3d 20 4e 49 4c 3b 0d 0a 20 20 57 ┆E(OUTFILE); LIST := NIL; W┆
0x38820…38840 52 49 54 45 28 27 45 6e 74 65 72 20 74 6f 64 61 79 27 27 73 20 64 61 74 65 3a 20 27 29 3b 0d 0a ┆RITE('Enter today''s date: '); ┆
0x38840…38860 20 20 52 45 41 44 4c 4e 28 44 41 54 45 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆ READLN(DATE) END; PROCEDUR┆
0x38860…38880 45 20 41 44 44 5f 32 5f 4c 49 53 54 28 53 3a 53 54 52 49 4e 47 29 3b 0d 0a 56 41 52 0d 0a 20 20 ┆E ADD_2_LIST(S:STRING); VAR ┆
0x38880…388a0 4c 50 20 3a 20 5e 4e 41 4d 45 52 45 43 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 4c 50 20 3a 3d 20 4c ┆LP : ^NAMEREC; BEGIN LP := L┆
0x388a0…388c0 49 53 54 3b 0d 0a 20 20 57 48 49 4c 45 20 4c 50 20 3c 3e 20 4e 49 4c 20 44 4f 0d 0a 20 20 20 20 ┆IST; WHILE LP <> NIL DO ┆
0x388c0…388e0 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 49 46 20 4c 50 5e 2e 53 20 3d 20 53 20 54 48 45 4e 0d 0a ┆BEGIN IF LP^.S = S THEN ┆
0x388e0…38900 20 20 20 20 20 20 20 20 45 58 49 54 3b 0d 0a 20 20 20 20 20 20 4c 50 20 3a 3d 20 4c 50 5e 2e 4e ┆ EXIT; LP := LP^.N┆
0x38900…38920 58 54 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 4e 45 57 28 4c 50 29 3b 0d 0a 20 20 4c 50 5e 2e ┆XT END; NEW(LP); LP^.┆
0x38920…38940 53 20 3a 3d 20 53 3b 0d 0a 20 20 4c 50 5e 2e 4e 58 54 20 3a 3d 20 4c 49 53 54 3b 0d 0a 20 20 4c ┆S := S; LP^.NXT := LIST; L┆
0x38940…38960 49 53 54 20 3a 3d 20 4c 50 0d 0a 45 4e 44 3b 0d 0a 0d 0a 20 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 ┆IST := LP END; PROCEDUR┆
0x38960…38980 45 20 45 58 54 52 41 43 54 28 56 41 52 20 53 3a 53 54 52 49 4e 47 3b 20 49 4e 44 45 58 3a 49 4e ┆E EXTRACT(VAR S:STRING; INDEX:IN┆
0x38980…389a0 54 45 47 45 52 29 3b 0d 0a 56 41 52 0d 0a 20 20 53 31 20 3a 20 53 54 52 49 4e 47 5b 33 32 5d 3b ┆TEGER); VAR S1 : STRINGÆ32Å;┆
0x389a0…389c0 0d 0a 42 45 47 49 4e 0d 0a 20 20 47 45 54 52 45 43 28 49 4e 44 45 58 29 3b 0d 0a 20 20 4d 4f 56 ┆ BEGIN GETREC(INDEX); MOV┆
0x389c0…389e0 45 28 52 45 43 5b 49 4e 44 45 58 20 4d 4f 44 20 34 5d 2c 53 31 2c 33 32 29 3b 20 20 20 28 2a 20 ┆E(RECÆINDEX MOD 4Å,S1,32); (* ┆
0x389e0…38a00 43 4f 50 59 20 54 48 45 20 44 41 54 41 20 49 4e 54 4f 20 54 48 45 20 53 54 52 49 4e 47 20 2a 29 ┆COPY THE DATA INTO THE STRING *)┆
0x38a00…38a20 (25, 1, 1) 2c 49 4f 52 29 3b 0d 0a 20 20 49 20 3a 3d 20 4c 4f 47 49 4e 44 58 5e 3b 0d 0a 20 20 52 45 57 52 ┆,IOR); I := LOGINDX^; REWR┆
0x38a20…38a40 49 54 45 28 4c 4f 47 49 4e 44 58 29 3b 0d 0a 20 20 42 4c 4f 43 4b 52 45 41 44 28 49 4e 46 49 4c ┆ITE(LOGINDX); BLOCKREAD(INFIL┆
0x38a40…38a60 45 2c 52 45 43 2c 49 4f 52 2c 31 32 38 2c 49 20 44 49 56 20 34 29 3b 0d 0a 20 20 46 49 4c 4c 43 ┆E,REC,IOR,128,I DIV 4); FILLC┆
0x38a60…38a80 48 41 52 28 52 45 43 5b 49 20 4d 4f 44 20 34 5d 2c 33 30 2c 27 2d 27 29 3b 0d 0a 20 20 4d 4f 56 ┆HAR(RECÆI MOD 4Å,30,'-'); MOV┆
0x38a80…38aa0 45 28 44 41 54 45 5b 31 5d 2c 52 45 43 5b 49 20 4d 4f 44 20 34 5d 2c 4c 45 4e 47 54 48 28 44 41 ┆E(DATEÆ1Å,RECÆI MOD 4Å,LENGTH(DA┆
0x38aa0…38ac0 54 45 29 29 3b 0d 0a 20 20 52 45 43 5b 28 49 20 4d 4f 44 20 34 29 2c 33 30 5d 20 3a 3d 20 43 48 ┆TE)); RECÆ(I MOD 4),30Å := CH┆
0x38ac0…38ae0 52 28 31 33 29 3b 0d 0a 20 20 52 45 43 5b 28 49 20 4d 4f 44 20 34 29 2c 33 31 5d 20 3a 3d 20 43 ┆R(13); RECÆ(I MOD 4),31Å := C┆
0x38ae0…38b00 48 52 28 31 30 29 3b 20 20 20 20 20 20 20 20 20 28 2a 20 41 44 44 20 43 52 2f 4c 46 20 41 54 20 ┆HR(10); (* ADD CR/LF AT ┆
0x38b00…38b20 45 4e 44 20 2a 29 0d 0a 20 20 49 46 20 28 49 2b 31 29 20 4d 4f 44 20 34 20 3c 3e 20 30 20 54 48 ┆END *) IF (I+1) MOD 4 <> 0 TH┆
0x38b20…38b40 45 4e 0d 0a 20 20 20 20 46 49 4c 4c 43 48 41 52 28 52 45 43 5b 28 49 2b 31 29 20 4d 4f 44 20 34 ┆EN FILLCHAR(RECÆ(I+1) MOD 4┆
0x38b40…38b60 5d 2c 33 32 2c 43 48 52 28 24 31 41 29 29 3b 20 20 20 20 20 28 2a 20 41 44 44 20 45 4f 46 27 53 ┆Å,32,CHR($1A)); (* ADD EOF'S┆
0x38b60…38b80 20 49 46 20 4e 45 43 45 53 53 41 52 59 20 2a 29 0d 0a 20 20 42 4c 4f 43 4b 57 52 49 54 45 28 49 ┆ IF NECESSARY *) BLOCKWRITE(I┆
0x38b80…38ba0 4e 46 49 4c 45 2c 52 45 43 2c 49 4f 52 2c 31 32 38 2c 49 20 44 49 56 20 34 29 3b 0d 0a 20 20 4c ┆NFILE,REC,IOR,128,I DIV 4); L┆
0x38ba0…38bc0 4f 47 49 4e 44 58 5e 20 3a 3d 20 49 20 2b 20 31 3b 0d 0a 20 20 50 55 54 28 4c 4f 47 49 4e 44 58 ┆OGINDX^ := I + 1; PUT(LOGINDX┆
0x38bc0…38be0 29 3b 0d 0a 20 20 43 4c 4f 53 45 28 4c 4f 47 49 4e 44 58 2c 49 4f 52 29 3b 0d 0a 20 20 44 45 4c ┆); CLOSE(LOGINDX,IOR); DEL┆
0x38be0…38c00 45 54 45 5f 46 49 52 53 54 5f 42 41 54 43 48 3b 20 20 20 28 2a 20 4e 4f 57 20 47 4f 20 41 4e 44 ┆ETE_FIRST_BATCH; (* NOW GO AND┆
0x38c00…38c20 (25, 1, 2) 28 2a 20 20 56 45 52 53 49 4f 4e 20 30 30 30 36 20 2a 29 0d 0a 56 41 52 0d 0a 20 20 42 55 46 53 ┆(* VERSION 0006 *) VAR BUFS┆
0x38c20…38c40 5a 3a 20 20 20 20 20 20 20 20 49 4e 54 45 47 45 52 3b 09 28 2a 20 53 49 5a 45 20 4f 46 20 42 55 ┆Z: INTEGER; (* SIZE OF BU┆
0x38c40…38c60 46 46 45 52 20 2a 29 0d 0a 20 20 4c 41 53 54 4c 49 4e 45 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 ┆FFER *) LASTLINE: INTEGER; (┆
0x38c60…38c80 2a 20 50 4f 49 4e 54 53 20 54 4f 20 45 4e 44 20 4f 46 20 45 44 49 54 45 44 20 46 49 4c 45 20 20 ┆* POINTS TO END OF EDITED FILE ┆
0x38c80…38ca0 2a 29 0d 0a 20 20 43 55 52 52 4c 49 4e 45 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 2a 20 43 55 52 ┆*) CURRLINE: INTEGER; (* CUR┆
0x38ca0…38cc0 52 45 4e 54 20 4c 49 4e 45 20 49 4e 20 42 55 46 20 42 45 49 4e 47 20 45 44 49 54 45 44 2a 29 0d ┆RENT LINE IN BUF BEING EDITED*) ┆
0x38cc0…38ce0 0a 20 20 42 45 47 49 4e 4c 49 4e 45 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 2a 20 46 49 52 53 54 ┆ BEGINLINE: INTEGER; (* FIRST┆
0x38ce0…38d00 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 43 55 52 52 4c 49 4e 45 20 3f 20 2a 29 0d 0a 20 20 45 ┆ CHARACTER IN CURRLINE ? *) E┆
0x38d00…38d20 4e 44 46 49 4c 45 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 2a 20 4c 41 53 54 20 43 48 41 52 41 43 ┆NDFILE: INTEGER; (* LAST CHARAC┆
0x38d20…38d40 54 45 52 2c 20 4f 52 20 5e 5a 20 3f 20 2a 29 0d 0a 20 20 42 4f 46 3a 20 09 09 42 4f 4f 4c 45 41 ┆TER, OR ^Z ? *) BOF: BOOLEA┆
0x38d40…38d60 4e 3b 09 28 2a 20 42 45 47 49 4e 20 46 49 4c 45 20 2a 29 0d 0a 20 20 43 4d 44 3a 20 09 09 49 4e ┆N; (* BEGIN FILE *) CMD: IN┆
0x38d60…38d80 54 45 47 45 52 3b 20 09 28 2a 20 52 45 41 44 20 43 4f 4d 4d 41 4e 44 20 46 52 4f 4d 20 4b 45 59 ┆TEGER; (* READ COMMAND FROM KEY┆
0x38d80…38da0 42 4f 41 52 44 20 3f 2a 29 0d 0a 20 20 4f 4c 44 43 4d 44 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 ┆BOARD ?*) OLDCMD: INTEGER; (┆
0x38da0…38dc0 2a 20 48 4f 4c 44 53 20 50 52 45 56 49 4f 55 53 20 43 4f 4d 4d 41 4e 44 20 2a 29 0d 0a 20 20 43 ┆* HOLDS PREVIOUS COMMAND *) C┆
0x38dc0…38de0 48 3a 20 09 09 43 48 41 52 3b 09 09 28 2a 20 48 4f 4c 44 53 20 43 48 41 52 41 43 54 45 52 20 46 ┆H: CHAR; (* HOLDS CHARACTER F┆
0x38de0…38e00 52 4f 4d 20 4b 45 59 42 4f 41 52 44 20 3f 20 2a 29 0d 0a 20 20 43 4d 44 41 52 52 20 3a 20 41 52 ┆ROM KEYBOARD ? *) CMDARR : AR┆
0x38e00…38e20 (25, 1, 3) 20 44 45 4c 45 54 45 20 46 49 52 53 54 20 42 41 54 43 48 20 4f 46 20 52 45 43 4f 52 44 53 20 2a ┆ DELETE FIRST BATCH OF RECORDS *┆
0x38e20…38e40 29 0d 0a 20 20 43 4c 4f 53 45 28 49 4e 46 49 4c 45 2c 49 4f 52 29 3b 0d 0a 45 4e 44 2e 0d 0a 20 ┆) CLOSE(INFILE,IOR); END. ┆
0x38e40…38e60 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x38e60…38e80 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 0a ┆ ┆
0x38e80…38ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 00 00 00 00 00 00 00 08 00 ┆ ┆
0x38ea0…38ec0 11 f8 16 00 00 00 00 00 45 00 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 45 45 ┆ E E EE┆
0x38ec0…38ee0 52 53 00 4f 00 c3 c7 63 e1 22 45 00 00 00 01 39 eb 21 00 00 6e 06 ff 8c 08 00 4e 00 04 11 85 3e ┆RS O c "E 9 ! n N >┆
0x38ee0…38f00 ff 00 fe 11 23 00 03 00 0d 00 09 ff 17 00 00 00 00 00 00 00 00 00 00 08 00 00 01 00 00 00 00 00 ┆ # ┆
0x38f00…38f20 45 4e 44 20 2a 29 0d 0a 20 20 49 46 20 28 49 2b 31 29 20 4d 4f 44 20 34 20 3c 3e 20 30 20 54 48 ┆END *) IF (I+1) MOD 4 <> 0 TH┆
0x38f20…38f40 45 4e 0d 0a 20 20 20 20 46 49 4c 4c 43 48 41 52 28 52 45 43 5b 28 49 2b 31 29 20 4d 4f 44 20 34 ┆EN FILLCHAR(RECÆ(I+1) MOD 4┆
0x38f40…38f60 5d 2c 33 32 2c 43 48 52 28 24 31 41 29 29 3b 20 20 20 20 20 28 2a 20 41 44 44 20 45 4f 46 27 53 ┆Å,32,CHR($1A)); (* ADD EOF'S┆
0x38f60…38f80 20 49 46 20 4e 45 43 45 53 53 41 52 59 20 2a 29 0d 0a 20 20 42 4c 4f 43 4b 57 52 49 54 45 28 49 ┆ IF NECESSARY *) BLOCKWRITE(I┆
0x38f80…38fa0 4e 46 49 4c 45 2c 52 45 43 2c 49 4f 52 2c 31 32 38 2c 49 20 44 49 56 20 34 29 3b 0d 0a 20 20 4c ┆NFILE,REC,IOR,128,I DIV 4); L┆
0x38fa0…38fc0 4f 47 49 4e 44 58 5e 20 3a 3d 20 49 20 2b 20 31 3b 0d 0a 20 20 50 55 54 28 4c 4f 47 49 4e 44 58 ┆OGINDX^ := I + 1; PUT(LOGINDX┆
0x38fc0…38fe0 29 3b 0d 0a 20 20 43 4c 4f 53 45 28 4c 4f 47 49 4e 44 58 2c 49 4f 52 29 3b 0d 0a 20 20 44 45 4c ┆); CLOSE(LOGINDX,IOR); DEL┆
0x38fe0…39000 45 54 45 5f 46 49 52 53 54 5f 42 41 54 43 48 3b 20 20 20 28 2a 20 4e 4f 57 20 47 4f 20 41 4e 44 ┆ETE_FIRST_BATCH; (* NOW GO AND┆
0x39000…39020 (25, 1, 4) 52 41 59 5b 30 2e 2e 43 4d 44 53 5a 5d 20 4f 46 20 43 48 41 52 3b 20 28 2a 20 48 4f 4c 44 53 20 ┆RAYÆ0..CMDSZÅ OF CHAR; (* HOLDS ┆
0x39020…39040 43 48 41 52 41 43 54 52 20 56 41 4c 53 20 4f 46 20 43 4d 4d 44 53 2a 29 0d 0a 0d 0a 20 20 28 2a ┆CHARACTR VALS OF CMMDS*) (*┆
0x39040…39060 20 45 4c 45 4d 45 4e 54 53 20 41 52 45 20 54 48 45 20 43 4f 4e 54 52 4f 4c 20 46 55 4e 43 54 49 ┆ ELEMENTS ARE THE CONTROL FUNCTI┆
0x39060…39080 4f 4e 53 20 46 4f 52 20 54 48 45 20 43 4f 4d 4d 41 4e 44 53 2e 20 54 48 45 20 49 4e 44 45 58 20 ┆ONS FOR THE COMMANDS. THE INDEX ┆
0x39080…390a0 2a 29 0d 0a 20 20 28 2a 20 49 4e 54 4f 20 43 4d 44 41 52 52 20 49 53 20 54 48 45 20 4e 55 4d 42 ┆*) (* INTO CMDARR IS THE NUMB┆
0x390a0…390c0 45 52 20 4f 46 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 2a 29 0d 0a 0d 0a 20 20 4e 41 4d 45 3a 20 ┆ER OF THE COMMAND *) NAME: ┆
0x390c0…390e0 09 46 49 4c 45 4e 41 4d 45 3b 09 28 2a 20 4e 41 4d 45 20 4f 46 20 46 49 4c 45 20 2a 29 0d 0a 20 ┆ FILENAME; (* NAME OF FILE *) ┆
0x390e0…39100 20 46 3a 20 09 09 46 59 4c 45 3b 09 09 28 2a 20 46 49 4c 45 20 50 4f 49 4e 54 45 52 20 46 4f 52 ┆ F: FYLE; (* FILE POINTER FOR┆
0x39100…39120 20 46 49 4c 45 20 42 45 49 4e 47 20 45 44 49 54 45 44 20 3f 2a 29 0d 0a 20 20 46 49 4c 45 4f 50 ┆ FILE BEING EDITED ?*) FILEOP┆
0x39120…39140 45 4e 3a 20 09 42 4f 4f 4c 45 41 4e 3b 09 28 2a 20 54 52 55 45 20 49 46 20 46 49 4c 45 20 49 53 ┆EN: BOOLEAN; (* TRUE IF FILE IS┆
0x39140…39160 20 53 55 43 43 45 53 53 46 55 4c 4c 59 20 4f 50 45 4e 45 44 20 2a 29 0d 0a 20 20 4e 45 57 46 49 ┆ SUCCESSFULLY OPENED *) NEWFI┆
0x39160…39180 4c 45 3a 20 09 42 4f 4f 4c 45 41 4e 3b 20 20 09 28 2a 20 54 52 55 45 20 49 46 20 46 49 4c 45 20 ┆LE: BOOLEAN; (* TRUE IF FILE ┆
0x39180…391a0 49 53 20 4e 45 57 20 2a 29 0d 0a 20 20 4e 4f 46 49 4c 45 3a 20 09 42 4f 4f 4c 45 41 4e 3b 09 28 ┆IS NEW *) NOFILE: BOOLEAN; (┆
0x391a0…391c0 2a 20 54 52 55 45 20 3a 55 53 45 52 20 4c 45 41 56 45 53 20 42 45 46 4f 52 45 20 4f 50 45 4e 49 ┆* TRUE :USER LEAVES BEFORE OPENI┆
0x391c0…391e0 4e 47 20 46 49 4c 45 2a 29 0d 0a 20 20 52 45 53 55 4c 54 3a 20 09 49 4e 54 45 47 45 52 3b 20 09 ┆NG FILE*) RESULT: INTEGER; ┆
0x391e0…39200 28 2a 20 46 4f 52 20 46 49 4c 45 20 43 4f 4d 4d 41 4e 44 53 3a 20 53 43 52 41 54 43 48 20 2a 29 ┆(* FOR FILE COMMANDS: SCRATCH *)┆
0x39200…39400 (25, 1, 5) 0xe5[0x200]
0x39400…39420 (25, 1, 6) 0d 0a 20 20 46 43 42 35 43 3a 20 09 49 4e 54 45 47 45 52 3b 20 09 28 2a 20 50 4f 49 4e 54 53 20 ┆ FCB5C: INTEGER; (* POINTS ┆
0x39420…39440 54 4f 20 46 49 4c 45 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 41 54 20 48 45 58 20 35 43 20 ┆TO FILE CONTROL BLOCK AT HEX 5C ┆
0x39440…39460 2a 29 0d 0a 20 20 4c 49 4e 45 3a 20 09 50 41 43 4b 45 44 20 41 52 52 41 59 5b 30 2e 2e 4d 41 58 ┆*) LINE: PACKED ARRAYÆ0..MAX┆
0x39460…39480 4c 4e 53 49 5a 45 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 46 4f 52 ┆LNSIZEÅ OF CHAR; (* FOR┆
0x39480…394a0 20 45 44 49 54 4e 47 20 41 20 4c 49 4e 45 20 46 52 4f 4d 20 42 55 46 2a 29 0d 0a 0d 0a 20 20 4f ┆ EDITNG A LINE FROM BUF*) O┆
0x394a0…394c0 52 49 47 4c 45 4e 2c 20 09 09 09 28 2a 20 4f 52 49 47 49 4e 41 4c 20 4c 45 4e 47 54 48 20 4f 46 ┆RIGLEN, (* ORIGINAL LENGTH OF┆
0x394c0…394e0 20 4c 49 4e 45 20 49 4e 20 27 4c 49 4e 45 27 20 2a 29 0d 0a 20 20 4c 45 4e 4c 49 4e 45 2c 20 09 ┆ LINE IN 'LINE' *) LENLINE, ┆
0x394e0…39500 09 09 28 2a 20 4e 45 57 20 4c 45 4e 47 54 48 20 4f 46 20 4c 49 4e 45 20 49 4e 20 27 4c 49 4e 45 ┆ (* NEW LENGTH OF LINE IN 'LINE┆
0x39500…39520 27 2a 29 0d 0a 20 20 4e 55 4d 42 4c 41 4e 4b 53 3a 20 09 49 4e 54 45 47 45 52 3b 09 28 2a 20 44 ┆'*) NUMBLANKS: INTEGER; (* D┆
0x39520…39540 4f 4e 27 54 20 4b 4e 4f 57 20 49 46 20 55 53 45 44 20 41 4e 59 20 4d 4f 52 45 20 3f 20 2a 29 0d ┆ON'T KNOW IF USED ANY MORE ? *) ┆
0x39540…39560 0a 20 20 58 2c 59 3a 20 09 09 49 4e 54 45 47 45 52 3b 20 09 28 2a 20 58 20 41 4e 44 20 59 20 43 ┆ X,Y: INTEGER; (* X AND Y C┆
0x39560…39580 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 20 2a 29 20 0d 0a 20 20 4e 55 4d 4c 46 53 3a 20 09 49 ┆URSOR POSITION *) NUMLFS: I┆
0x39580…395a0 4e 54 45 47 45 52 3b 20 09 28 2a 20 53 45 54 20 42 59 20 46 49 4e 44 20 57 48 45 4e 20 49 54 20 ┆NTEGER; (* SET BY FIND WHEN IT ┆
0x395a0…395c0 53 45 45 53 20 4c 46 20 2a 29 0d 0a 20 20 4e 55 4d 44 45 4c 53 3a 20 09 49 4e 54 45 47 45 52 3b ┆SEES LF *) NUMDELS: INTEGER;┆
0x395c0…395e0 20 09 28 2a 49 4e 43 52 45 4d 45 4e 54 45 44 20 49 4e 20 44 45 4c 45 54 45 4c 49 4e 45 2c 20 55 ┆ (*INCREMENTED IN DELETELINE, U┆
0x395e0…39600 53 45 44 20 49 4e 20 43 4f 50 59 42 55 46 2a 29 0d 0a 20 20 44 45 4c 42 55 46 53 5a 3a 20 09 49 ┆SED IN COPYBUF*) DELBUFSZ: I┆
0x39600…39800 (25, 1, 7) 0xe5[0x200]
0x39800…39820 (25, 1, 8) 4e 54 45 47 45 52 3b 09 28 2a 53 49 5a 45 20 4f 46 20 44 45 4c 45 54 45 20 42 55 46 46 45 52 20 ┆NTEGER; (*SIZE OF DELETE BUFFER ┆
0x39820…39840 2a 29 0d 0a 20 20 51 55 49 54 46 4c 47 2c 09 09 09 28 2a 20 54 52 55 45 20 49 46 20 44 4f 4e 45 ┆*) QUITFLG, (* TRUE IF DONE┆
0x39840…39860 20 57 49 54 48 20 45 44 49 54 20 2a 29 0d 0a 20 20 4e 45 57 4c 49 4e 45 2c 09 09 09 28 2a 20 54 ┆ WITH EDIT *) NEWLINE, (* T┆
0x39860…39880 52 55 45 20 49 46 20 57 52 49 54 49 4e 47 20 41 20 4e 45 57 20 4c 49 4e 45 20 46 52 4f 4d 20 27 ┆RUE IF WRITING A NEW LINE FROM '┆
0x39880…398a0 4c 49 4e 45 27 3f 2a 29 0d 0a 20 20 4c 49 4e 45 46 4c 47 2c 09 09 09 28 2a 20 3f 20 2a 29 0d 0a ┆LINE'?*) LINEFLG, (* ? *) ┆
0x398a0…398c0 20 20 49 4e 53 45 52 54 49 4e 47 2c 09 09 09 28 2a 20 54 52 55 45 20 57 48 45 4e 20 49 4e 20 49 ┆ INSERTING, (* TRUE WHEN IN I┆
0x398c0…398e0 4e 53 45 52 54 20 4d 4f 44 45 20 2a 29 0d 0a 20 20 43 48 41 4e 47 45 44 3a 20 09 42 4f 4f 4c 45 ┆NSERT MODE *) CHANGED: BOOLE┆
0x398e0…39900 41 4e 3b 09 28 2a 20 54 52 55 45 20 49 46 20 4c 49 4e 45 20 49 4e 20 27 4c 49 4e 45 27 20 49 53 ┆AN; (* TRUE IF LINE IN 'LINE' IS┆
0x39900…39920 20 43 48 41 4e 47 45 44 20 2a 29 0d 0a 20 20 53 54 52 3a 20 41 52 52 41 59 5b 31 2e 2e 38 5d 20 ┆ CHANGED *) STR: ARRAYÆ1..8Å ┆
0x39920…39940 4f 46 20 43 48 41 52 3b 20 09 28 2a 20 55 53 45 44 20 49 4e 20 53 54 41 54 55 53 20 4c 49 4e 45 ┆OF CHAR; (* USED IN STATUS LINE┆
0x39940…39960 20 46 4f 52 20 4d 4f 44 45 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 20 20 28 2a 20 46 4f 52 20 47 45 54 ┆ FOR MODE *) (* FOR GET┆
0x39960…39980 54 49 4e 47 20 46 49 4c 45 20 4e 41 4d 45 20 46 52 4f 4d 20 43 4f 4d 4d 41 4e 44 20 42 55 46 46 ┆TING FILE NAME FROM COMMAND BUFF┆
0x39980…399a0 45 52 20 41 54 20 24 38 30 20 2a 29 0d 0a 0d 0a 20 20 43 50 4d 43 4d 44 42 55 46 3a 20 09 41 42 ┆ER AT $80 *) CPMCMDBUF: AB┆
0x399a0…399c0 53 4f 4c 55 54 45 5b 24 38 30 5d 20 50 41 43 4b 45 44 20 41 52 52 41 59 5b 30 2e 2e 43 50 4d 4c ┆SOLUTEÆ$80Å PACKED ARRAYÆ0..CPML┆
0x399c0…399e0 49 4e 45 53 5a 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 43 50 4d 53 54 52 3a 20 09 53 54 52 49 ┆INESZÅ OF CHAR; CPMSTR: STRI┆
0x399e0…39a00 4e 47 5b 43 50 4d 4c 49 4e 45 53 5a 5d 3b 0d 0a 20 20 41 4e 43 48 4f 52 3a 20 09 49 4e 54 45 47 ┆NGÆCPMLINESZÅ; ANCHOR: INTEG┆
0x39a00…39c00 (25, 1, 9) 0xe5[0x200]
0x39c00…39c20 (26, 0, 1) 45 52 3b 0d 0a 20 20 20 20 20 20 28 2a 20 50 4f 49 4e 54 53 20 54 4f 20 43 48 41 52 41 43 54 45 ┆ER; (* POINTS TO CHARACTE┆
0x39c20…39c40 52 20 42 45 46 4f 52 45 20 49 4e 53 45 52 54 2c 20 44 45 4c 45 54 45 2c 41 44 4a 55 53 54 2a 29 ┆R BEFORE INSERT, DELETE,ADJUST*)┆
0x39c40…39c60 0d 0a 20 20 43 42 50 3a 20 09 09 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 20 20 28 2a 20 43 4f ┆ CBP: INTEGER; (* CO┆
0x39c60…39c80 50 59 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 20 46 4f 52 20 49 4e 53 45 52 54 49 4f 4e 53 ┆PY BUFFER POINTER FOR INSERTIONS┆
0x39c80…39ca0 2c 20 44 45 4c 45 54 49 4f 4e 53 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 20 20 53 52 43 48 53 54 52 3a ┆, DELETIONS *) SRCHSTR:┆
0x39ca0…39cc0 20 09 53 53 54 52 49 4e 47 3b 09 28 2a 20 50 55 54 20 53 54 52 49 4e 47 20 54 4f 20 42 45 20 53 ┆ SSTRING; (* PUT STRING TO BE S┆
0x39cc0…39ce0 45 41 52 43 48 45 44 20 46 4f 52 20 48 45 52 45 20 2a 29 0d 0a 20 20 4c 41 53 54 5f 46 49 4e 44 ┆EARCHED FOR HERE *) LAST_FIND┆
0x39ce0…39d00 2c 0d 0a 20 20 4c 41 53 54 5f 52 45 50 4c 3a 20 09 53 53 54 52 49 4e 47 3b 09 28 2a 20 4c 41 53 ┆, LAST_REPL: SSTRING; (* LAS┆
0x39d00…39d20 54 20 44 41 54 41 20 46 4f 52 20 53 45 41 52 43 48 20 41 4e 44 20 52 45 50 4c 41 43 45 20 2a 29 ┆T DATA FOR SEARCH AND REPLACE *)┆
0x39d20…39d40 0d 0a 20 20 46 49 52 53 54 4d 41 52 4b 2c 0d 0a 20 20 4c 41 53 54 4d 41 52 4b 3a 09 49 4e 54 45 ┆ FIRSTMARK, LASTMARK: INTE┆
0x39d40…39d60 47 45 52 3b 0d 0a 0d 0a 20 20 42 55 46 3a 09 09 41 42 53 4f 4c 55 54 45 5b 24 41 30 30 30 5d 20 ┆GER; BUF: ABSOLUTEÆ$A000Å ┆
0x39d60…39d80 41 52 52 41 59 5b 30 2e 2e 30 5d 20 4f 46 20 43 48 41 52 3b 09 28 2a 20 45 44 49 54 20 42 55 46 ┆ARRAYÆ0..0Å OF CHAR; (* EDIT BUF┆
0x39d80…39da0 46 45 52 20 2a 29 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆FER *) ┆
0x39da0…39dc0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x39e00…39e20 (26, 0, 2) 20 20 20 20 20 20 20 58 54 41 42 20 20 20 20 3d 20 31 39 3b 20 20 20 20 20 20 20 20 20 20 20 58 ┆ XTAB = 19; X┆
0x39e20…39e40 57 52 44 52 49 47 48 54 20 3d 20 32 30 3b 0d 0a 20 20 20 20 20 20 20 20 58 57 52 44 4c 45 46 54 ┆WRDRIGHT = 20; XWRDLEFT┆
0x39e40…39e60 20 3d 20 32 31 3b 20 20 20 20 20 20 20 20 20 20 58 53 55 50 45 52 43 4d 44 20 3d 20 32 32 3b 20 ┆ = 21; XSUPERCMD = 22; ┆
0x39e60…39e80 20 20 20 20 20 20 20 20 58 44 45 4c 57 4f 52 44 20 3d 20 32 33 3b 0d 0a 0d 0a 20 20 20 20 20 20 ┆ XDELWORD = 23; ┆
0x39e80…39ea0 20 20 4c 46 54 57 4f 52 44 20 3d 20 24 30 31 3b 20 20 20 7b 41 7d 0d 0a 20 20 20 20 20 20 20 20 ┆ LFTWORD = $01; æAå ┆
0x39ea0…39ec0 45 4e 44 5f 42 45 47 20 3d 20 24 30 32 3b 20 20 20 7b 42 7d 0d 0a 20 20 20 20 20 20 20 20 50 47 ┆END_BEG = $02; æBå PG┆
0x39ec0…39ee0 45 46 57 44 20 20 3d 20 24 30 33 3b 20 20 20 7b 43 7d 0d 0a 20 20 20 20 20 20 20 20 52 54 57 4f ┆EFWD = $03; æCå RTWO┆
0x39ee0…39f00 52 44 20 20 3d 20 24 30 34 3b 20 20 20 7b 44 7d 0d 0a 20 20 20 20 20 20 20 20 53 52 43 48 53 41 ┆RD = $04; æDå SRCHSA┆
0x39f00…39f20 4d 45 3d 20 24 30 35 3b 20 20 20 7b 45 7d 0d 0a 20 20 20 20 20 20 20 20 49 4e 53 52 54 20 20 20 ┆ME= $05; æEå INSRT ┆
0x39f20…39f40 3d 20 24 30 36 3b 20 20 20 7b 46 7d 0d 0a 20 20 20 20 20 20 20 20 44 43 48 52 20 20 20 20 3d 20 ┆= $06; æFå DCHR = ┆
0x39f40…39f60 24 30 37 3b 20 20 20 7b 47 7d 0d 0a 20 20 20 20 20 20 20 20 43 4c 45 46 54 20 20 20 3d 20 24 30 ┆$07; æGå CLEFT = $0┆
0x39f60…39f80 38 3b 20 20 20 7b 48 7d 0d 0a 20 20 20 20 20 20 20 20 54 41 42 5f 43 48 52 20 3d 20 24 30 39 3b ┆8; æHå TAB_CHR = $09;┆
0x39f80…39fa0 20 20 20 7b 49 7d 0d 0a 20 20 20 20 20 20 20 20 43 44 4f 57 4e 20 20 20 3d 20 24 30 41 3b 20 20 ┆ æIå CDOWN = $0A; ┆
0x39fa0…39fc0 20 7b 4a 7d 0d 0a 20 20 20 20 20 20 20 20 43 55 50 20 20 20 20 20 3d 20 24 30 42 3b 20 20 20 7b ┆ æJå CUP = $0B; æ┆
0x39fc0…39fe0 4b 7d 0d 0a 20 20 20 20 20 20 20 20 43 52 49 47 48 54 20 20 3d 20 24 30 43 3b 20 20 20 7b 4c 7d ┆Kå CRIGHT = $0C; æLå┆
0x39fe0…3a000 0d 0a 20 20 20 20 20 20 20 20 43 52 20 20 20 20 20 20 3d 20 24 30 44 3b 20 20 20 7b 4d 20 3d 20 ┆ CR = $0D; æM = ┆
0x3a000…3a200 (26, 0, 3) 0xe5[0x200]
0x3a200…3a220 (26, 0, 4) 43 41 52 52 41 49 47 45 20 52 45 54 55 52 4e 7d 0d 0a 20 20 20 20 20 20 20 20 49 4e 53 4c 49 4e ┆CARRAIGE RETURNå INSLIN┆
0x3a220…3a240 45 20 3d 20 24 30 45 3b 20 20 20 7b 4e 7d 0d 0a 20 20 20 20 20 20 20 20 44 45 4c 57 52 44 20 20 ┆E = $0E; æNå DELWRD ┆
0x3a240…3a260 3d 20 24 30 46 3b 20 20 20 7b 4f 7d 0d 0a 20 20 20 20 20 20 20 20 44 5f 54 4f 5f 45 4f 4c 3d 20 ┆= $0F; æOå D_TO_EOL= ┆
0x3a260…3a280 24 31 30 3b 20 20 20 7b 50 7d 0d 0a 20 20 20 20 20 20 20 20 53 55 50 45 52 20 20 20 3d 20 24 31 ┆$10; æPå SUPER = $1┆
0x3a280…3a2a0 31 3b 20 20 20 7b 51 7d 0d 0a 20 20 20 20 20 20 20 20 50 47 45 42 41 43 4b 20 3d 20 24 31 32 3b ┆1; æQå PGEBACK = $12;┆
0x3a2a0…3a2c0 20 20 20 7b 52 7d 0d 0a 20 20 20 20 20 20 20 20 53 52 43 48 20 20 20 20 3d 20 24 31 33 3b 20 20 ┆ æRå SRCH = $13; ┆
0x3a2c0…3a2e0 20 7b 53 7d 0d 0a 20 20 20 20 20 20 20 20 42 4f 54 5f 54 4f 50 20 3d 20 24 31 34 3b 20 20 20 7b ┆ æSå BOT_TOP = $14; æ┆
0x3a2e0…3a300 54 7d 0d 0a 20 20 20 20 20 20 20 20 41 44 4a 53 54 20 20 20 3d 20 24 31 35 3b 20 20 20 7b 55 7d ┆Tå ADJST = $15; æUå┆
0x3a300…3a320 0d 0a 20 20 20 20 20 20 20 20 41 43 43 45 50 54 20 20 3d 20 24 31 36 3b 20 20 20 7b 56 7d 0d 0a ┆ ACCEPT = $16; æVå ┆
0x3a320…3a340 20 20 20 20 20 20 20 20 43 42 55 46 46 20 20 20 3d 20 24 31 37 3b 20 20 20 7b 57 7d 0d 0a 20 20 ┆ CBUFF = $17; æWå ┆
0x3a340…3a360 20 20 20 20 20 20 52 50 4c 43 45 20 20 20 3d 20 24 31 38 3b 20 20 20 7b 58 7d 0d 0a 20 20 20 20 ┆ RPLCE = $18; æXå ┆
0x3a360…3a380 20 20 20 20 44 4c 49 4e 45 20 20 20 3d 20 24 31 39 3b 20 20 20 7b 59 7d 0d 0a 20 20 20 20 20 20 ┆ DLINE = $19; æYå ┆
0x3a380…3a3a0 20 20 43 48 49 4e 53 20 20 20 3d 20 24 31 41 3b 20 20 20 7b 5a 7d 0d 0a 20 20 20 20 20 20 20 20 ┆ CHINS = $1A; æZå ┆
0x3a3a0…3a3c0 45 53 43 20 20 20 20 20 3d 20 24 31 42 3b 20 20 20 7b 45 53 43 7d 0d 0a 20 20 20 20 20 20 20 20 ┆ESC = $1B; æESCå ┆
0x3a3c0…3a3e0 51 55 49 54 20 20 20 20 3d 20 24 46 45 3b 20 20 20 7b 53 50 45 43 49 41 4c 20 43 48 41 52 41 43 ┆QUIT = $FE; æSPECIAL CHARAC┆
0x3a3e0…3a400 54 45 52 20 46 4f 52 20 51 55 49 54 54 49 4e 47 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 43 4d 44 ┆TER FOR QUITTINGå CMD┆
0x3a400…3a600 (26, 0, 5) 0xe5[0x200]
0x3a600…3a620 (26, 0, 6) 53 5a 20 3d 20 32 33 3b 20 20 20 20 20 20 7b 55 50 50 45 52 20 42 4f 55 4e 44 20 4f 4e 20 43 4f ┆SZ = 23; æUPPER BOUND ON CO┆
0x3a620…3a640 4d 4d 41 4e 44 20 41 52 52 41 59 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 4c 46 20 3d 20 24 30 41 ┆MMAND ARRAYå LF = $0A┆
0x3a640…3a660 3b 20 20 20 20 20 20 20 20 7b 4c 49 4e 45 20 46 45 45 44 7d 0d 0a 20 20 20 20 20 20 20 20 43 4e ┆; æLINE FEEDå CN┆
0x3a660…3a680 54 52 4c 5a 20 3d 20 24 31 41 3b 20 20 20 0d 0a 20 20 20 20 20 20 20 20 45 53 43 41 50 45 20 3d ┆TRLZ = $1A; ESCAPE =┆
0x3a680…3a6a0 20 24 31 42 3b 0d 0a 20 20 20 20 20 20 20 20 4e 4f 4d 41 54 43 48 20 3d 20 2d 31 30 3b 20 20 7b ┆ $1B; NOMATCH = -10; æ┆
0x3a6a0…3a6c0 4f 55 54 20 4f 46 20 52 41 4e 47 45 20 4f 46 20 42 55 46 46 45 52 20 49 4e 44 49 43 41 54 49 4e ┆OUT OF RANGE OF BUFFER INDICATIN┆
0x3a6c0…3a6e0 47 20 4e 4f 20 4d 41 54 43 48 20 7d 0d 0a 20 20 20 20 20 20 20 20 48 41 4c 46 53 43 52 45 45 4e ┆G NO MATCH å HALFSCREEN┆
0x3a6e0…3a700 20 3d 20 31 31 3b 7b 55 53 45 44 20 49 4e 20 50 41 47 49 4e 47 20 42 41 43 4b 20 41 4e 44 20 46 ┆ = 11;æUSED IN PAGING BACK AND F┆
0x3a700…3a720 4f 52 57 41 52 44 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 53 54 41 54 55 53 43 4f 4c 20 3d 20 ┆ORWARD å STATUSCOL = ┆
0x3a720…3a740 30 3b 20 20 7b 53 54 41 52 54 20 50 4f 53 49 54 49 4f 4e 20 46 4f 52 20 53 54 41 54 20 52 45 50 ┆0; æSTART POSITION FOR STAT REP┆
0x3a740…3a760 4f 52 54 53 20 7d 0d 0a 20 20 20 20 20 20 20 20 46 49 52 53 54 52 4f 57 20 3d 20 30 3b 20 20 20 ┆ORTS å FIRSTROW = 0; ┆
0x3a760…3a780 7b 46 49 52 53 54 20 52 4f 57 20 4f 46 20 53 43 52 45 45 4e 20 4f 52 20 42 55 46 20 7d 0d 0a 0d ┆æFIRST ROW OF SCREEN OR BUF å ┆
0x3a780…3a7a0 0a 20 20 20 20 20 20 20 20 46 49 52 53 54 4c 49 4e 45 20 3d 20 30 3b 20 20 0d 0a 20 20 20 20 20 ┆ FIRSTLINE = 0; ┆
0x3a7a0…3a7c0 20 20 20 53 54 52 4c 45 4e 20 3d 20 33 30 3b 20 20 20 20 7b 55 50 50 45 52 20 42 4f 55 4e 44 20 ┆ STRLEN = 30; æUPPER BOUND ┆
0x3a7c0…3a7e0 4f 4e 20 45 44 53 54 52 49 4e 47 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 4d 41 58 4c 4e 53 49 5a ┆ON EDSTRINGå MAXLNSIZ┆
0x3a7e0…3a800 45 20 3d 20 32 35 35 3b 20 20 20 20 20 20 20 20 28 2a 20 4d 41 58 20 41 4c 4c 4f 57 45 44 20 53 ┆E = 255; (* MAX ALLOWED S┆
0x3a800…3aa00 (26, 0, 7) 0xe5[0x200]
0x3aa00…3aa20 (26, 0, 8) 49 5a 45 20 4f 46 20 4c 49 4e 45 53 5a 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 ┆IZE OF LINESZ *) ┆
0x3aa20…3aa40 20 20 20 20 43 50 4d 4c 49 4e 45 53 5a 20 3d 20 31 32 37 3b 7b 46 4f 52 20 4d 54 2b 20 46 49 4c ┆ CPMLINESZ = 127;æFOR MT+ FIL┆
0x3aa40…3aa60 45 20 4e 41 4d 45 49 4e 47 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 4d 41 58 43 48 20 3d 20 37 39 ┆E NAMEINGå MAXCH = 79┆
0x3aa60…3aa80 3b 0d 0a 20 20 20 20 20 20 20 20 0d 0a 54 59 50 45 0d 0a 20 20 20 20 20 20 20 20 46 49 4c 45 4e ┆; TYPE FILEN┆
0x3aa80…3aaa0 41 4d 45 20 3d 20 53 54 52 49 4e 47 5b 31 32 37 5d 3b 20 20 20 20 20 20 20 20 20 7b 46 4f 52 20 ┆AME = STRINGÆ127Å; æFOR ┆
0x3aaa0…3aac0 47 45 54 54 49 4e 47 20 46 49 4c 45 4e 41 4d 45 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 44 49 52 ┆GETTING FILENAMEå DIR┆
0x3aac0…3aae0 45 43 54 49 4f 4e 20 3d 20 28 52 49 47 48 54 2c 20 42 41 43 4b 57 41 52 44 29 3b 20 20 7b 44 49 ┆ECTION = (RIGHT, BACKWARD); æDI┆
0x3aae0…3ab00 52 45 43 54 49 4f 4e 20 54 4f 20 54 52 41 56 45 4c 20 49 4e 20 42 55 46 46 45 52 7d 0d 0a 0d 0a ┆RECTION TO TRAVEL IN BUFFERå ┆
0x3ab00…3ab20 20 20 20 20 20 20 20 20 43 55 52 53 4f 52 50 4f 53 20 3d 20 28 46 49 52 53 54 43 48 2c 4c 41 53 ┆ CURSORPOS = (FIRSTCH,LAS┆
0x3ab20…3ab40 54 43 48 2c 5a 45 52 4f 50 4f 53 2c 4c 41 53 54 50 4f 53 2c 58 50 4f 53 29 3b 0d 0a 0d 0a 20 20 ┆TCH,ZEROPOS,LASTPOS,XPOS); ┆
0x3ab40…3ab60 20 20 20 20 20 20 53 45 41 52 43 48 4b 49 4e 44 20 3d 20 28 45 51 55 41 4c 2c 20 4e 4f 54 45 51 ┆ SEARCHKIND = (EQUAL, NOTEQ┆
0x3ab60…3ab80 55 41 4c 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 45 44 53 54 52 49 4e 47 20 3d 20 41 52 52 41 ┆UAL); EDSTRING = ARRA┆
0x3ab80…3aba0 59 5b 31 2e 2e 53 54 52 4c 45 4e 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 0d 0a 0d 0a ┆YÆ1..STRLENÅ OF CHAR; ┆
0x3aba0…3abc0 20 20 20 20 20 20 20 20 52 57 46 49 4c 45 20 3d 20 28 52 45 53 45 54 54 2c 52 45 57 52 49 54 54 ┆ RWFILE = (RESETT,REWRITT┆
0x3abc0…3abe0 45 29 3b 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 46 4f 52 20 44 4f 46 49 4c 45 2c 20 4f 50 45 4e ┆E); (* FOR DOFILE, OPEN┆
0x3abe0…3ac00 49 4e 47 20 41 4e 44 20 43 52 45 41 54 49 4e 47 20 46 49 4c 45 53 2a 29 0d 0a 0d 0a 20 20 20 20 ┆ING AND CREATING FILES*) ┆
0x3ac00…3ac20 (26, 0, 9) 28 2a 20 20 56 45 52 53 49 4f 4e 20 30 30 30 38 20 2a 29 0d 0a 0d 0a 28 2a 20 4c 41 53 54 20 43 ┆(* VERSION 0008 *) (* LAST C┆
0x3ac20…3ac40 48 41 4e 47 45 20 2d 20 4d 41 52 43 48 20 31 36 2c 20 31 39 38 31 20 2a 29 0d 0a 0d 0a 43 4f 4e ┆HANGE - MARCH 16, 1981 *) CON┆
0x3ac40…3ac60 53 54 0d 0a 20 20 20 20 20 20 20 20 58 49 4e 53 52 54 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 ┆ST XINSRT = 0; ┆
0x3ac60…3ac80 20 20 20 20 58 41 44 4a 53 54 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 58 43 48 49 ┆ XADJST = 1; XCHI┆
0x3ac80…3aca0 4e 53 3d 20 32 3b 0d 0a 20 20 20 20 20 20 20 20 58 53 52 43 48 53 41 4d 45 3d 20 33 3b 20 20 20 ┆NS= 2; XSRCHSAME= 3; ┆
0x3aca0…3acc0 20 20 20 20 20 20 20 20 58 50 47 45 46 57 44 20 3d 20 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ XPGEFWD = 4; ┆
0x3acc0…3ace0 58 50 47 45 42 41 43 4b 20 3d 20 35 3b 0d 0a 20 20 20 20 20 20 20 20 58 43 42 55 46 46 20 3d 20 ┆XPGEBACK = 5; XCBUFF = ┆
0x3ace0…3ad00 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 58 53 52 43 48 20 3d 20 37 3b 20 20 20 20 20 20 20 ┆6; XSRCH = 7; ┆
0x3ad00…3ad20 20 20 20 20 20 20 20 58 52 50 4c 43 45 20 3d 20 38 3b 0d 0a 20 20 20 20 20 20 20 20 58 43 55 50 ┆ XRPLCE = 8; XCUP┆
0x3ad20…3ad40 20 3d 20 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 43 44 4f 57 4e 20 3d 20 31 30 3b ┆ = 9; XCDOWN = 10;┆
0x3ad40…3ad60 20 20 20 20 20 20 20 20 20 20 20 20 58 43 52 49 47 48 54 20 3d 20 31 31 3b 0d 0a 20 20 20 20 20 ┆ XCRIGHT = 11; ┆
0x3ad60…3ad80 20 20 20 58 43 4c 45 46 54 20 3d 20 31 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 58 49 4e 53 4c ┆ XCLEFT = 12; XINSL┆
0x3ad80…3ada0 49 4e 45 20 3d 20 31 33 3b 20 20 20 20 20 20 20 20 20 20 58 44 43 48 52 20 3d 20 31 34 3b 0d 0a ┆INE = 13; XDCHR = 14; ┆
0x3ada0…3adc0 20 20 20 20 20 20 20 20 58 44 4c 49 4e 45 20 3d 20 31 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ XDLINE = 15; ┆
0x3adc0…3ade0 58 44 54 4f 45 4f 4c 20 3d 20 31 36 3b 20 20 20 20 20 20 20 20 20 20 20 58 42 45 47 45 4e 44 20 ┆XDTOEOL = 16; XBEGEND ┆
0x3ade0…3ae00 3d 20 31 37 3b 0d 0a 20 20 20 20 20 20 20 20 58 54 4f 50 42 4f 54 20 3d 20 31 38 3b 20 20 20 20 ┆= 17; XTOPBOT = 18; ┆
0x3ae00…3ae20 (26, 1, 1) 20 20 20 20 46 59 4c 45 20 3d 20 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FYLE = FILE; ┆
0x3ae20…3ae40 20 20 20 20 7b 46 4f 52 20 46 49 4c 45 53 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 53 53 54 52 49 ┆ æFOR FILESå SSTRI┆
0x3ae40…3ae60 4e 47 20 3d 20 52 45 43 4f 52 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 55 53 45 44 ┆NG = RECORD æUSED┆
0x3ae60…3ae80 20 46 4f 52 20 53 45 41 52 43 48 20 41 4e 44 20 52 45 50 4c 41 43 45 7d 0d 0a 20 20 20 20 20 20 ┆ FOR SEARCH AND REPLACEå ┆
0x3ae80…3aea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 4e 20 3a 20 42 59 54 45 3b 0d 0a 20 20 20 20 20 ┆ LEN : BYTE; ┆
0x3aea0…3aec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 3a 20 41 52 52 41 59 5b 31 2e 2e 4d ┆ DATA : ARRAYÆ1..M┆
0x3aec0…3aee0 41 58 43 48 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AXCHÅ OF CHAR; ┆
0x3aee0…3af00 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 53 54 41 54 52 45 43 20 3d 20 52 45 43 4f ┆ END; STATREC = RECO┆
0x3af00…3af20 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 43 43 55 50 49 45 44 ┆RD OCCUPIED┆
0x3af20…3af40 20 3a 20 42 4f 4f 4c 45 41 4e 3b 20 28 2a 20 54 52 55 45 20 49 46 20 42 55 46 20 43 4f 4e 54 41 ┆ : BOOLEAN; (* TRUE IF BUF CONTA┆
0x3af40…3af60 49 4e 53 20 54 45 58 54 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 ┆INS TEXT *) E┆
0x3af60…3af80 4e 44 3b 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ND; ┆
0x3af80…3afa0 59 5b 31 2e 2e 53 54 52 4c 45 4e 5d 20 4f 46 20 43 48 41 52 3b 0d 0a 20 20 20 20 20 0d 0a 0d 0a ┆YÆ1..STRLENÅ OF CHAR; ┆
0x3afa0…3afc0 20 20 20 20 20 20 20 20 52 57 46 49 4c 45 20 3d 20 28 52 45 53 45 54 54 2c 52 45 57 52 49 54 54 ┆ RWFILE = (RESETT,REWRITT┆
0x3afc0…3afe0 45 29 3b 0d 0a 20 20 20 20 20 20 20 20 28 2a 20 46 4f 52 20 44 4f 46 49 4c 45 2c 20 4f 50 45 4e ┆E); (* FOR DOFILE, OPEN┆
0x3afe0…3b000 49 4e 47 20 41 4e 44 20 43 52 45 41 54 49 4e 47 20 46 49 4c 45 53 2a 29 0d 0a 0d 0a 20 20 20 20 ┆ING AND CREATING FILES*) ┆
0x3b000…3b020 (26, 1, 2) 20 20 20 20 20 20 20 45 58 54 45 52 4e 41 4c 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 42 55 46 53 ┆ EXTERNAL INTEGER; BUFS┆
0x3b020…3b040 54 41 54 3a 20 20 20 20 20 20 53 54 41 54 52 45 43 3b 0d 0a 20 20 49 4e 54 52 46 41 43 45 3a 20 ┆TAT: STATREC; INTRFACE: ┆
0x3b040…3b060 20 20 20 20 53 42 5f 49 4e 54 45 52 46 41 43 45 3b 20 20 20 28 2a 20 55 53 45 44 20 54 4f 20 43 ┆ SB_INTERFACE; (* USED TO C┆
0x3b060…3b080 4f 4d 4d 55 4e 49 43 41 54 45 20 42 45 54 57 45 45 4e 20 50 52 4f 47 52 41 4d 53 20 2a 29 0d 0a ┆OMMUNICATE BETWEEN PROGRAMS *) ┆
0x3b080…3b0a0 20 20 53 42 5f 4c 41 53 54 5f 58 2c 0d 0a 20 20 53 42 5f 4c 41 53 54 5f 59 3a 20 20 20 20 49 4e ┆ SB_LAST_X, SB_LAST_Y: IN┆
0x3b0a0…3b0c0 54 45 47 45 52 3b 20 28 2a 20 46 4f 52 20 53 4f 46 54 57 41 52 45 20 43 4c 52 20 54 4f 20 45 4f ┆TEGER; (* FOR SOFTWARE CLR TO EO┆
0x3b0c0…3b0e0 4c 2f 20 43 4c 52 20 54 4f 20 45 4f 53 20 52 4f 55 54 49 4e 45 53 20 2a 29 0d 0a 0d 0a 0d 0a 45 ┆L/ CLR TO EOS ROUTINES *) E┆
0x3b0e0…3b100 58 54 45 52 4e 41 4c 20 46 55 4e 43 54 49 4f 4e 20 40 42 44 4f 53 28 50 41 52 4d 2c 46 55 4e 43 ┆XTERNAL FUNCTION @BDOS(PARM,FUNC┆
0x3b100…3b120 3a 49 4e 54 45 47 45 52 29 3a 49 4e 54 45 47 45 52 3b 0d 0a 0d 0a 45 58 54 45 52 4e 41 4c 20 5b ┆:INTEGER):INTEGER; EXTERNAL Æ┆
0x3b120…3b140 31 5d 20 50 52 4f 43 45 44 55 52 45 20 4c 4f 47 57 52 49 54 45 52 3b 20 28 2a 20 4c 4f 47 20 57 ┆1Å PROCEDURE LOGWRITER; (* LOG W┆
0x3b140…3b160 52 49 54 45 52 20 4f 56 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 32 5d 20 50 ┆RITER OVERLAY *) EXTERNAL Æ2Å P┆
0x3b160…3b180 52 4f 43 45 44 55 52 45 20 53 50 45 45 44 3b 20 20 20 20 20 28 2a 20 45 44 49 54 4f 52 20 4f 56 ┆ROCEDURE SPEED; (* EDITOR OV┆
0x3b180…3b1a0 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 33 5d 20 50 52 4f 43 45 44 55 52 45 ┆ERLAY *) EXTERNAL Æ3Å PROCEDURE┆
0x3b1a0…3b1c0 20 53 59 4e 43 48 45 43 4b 3b 20 20 28 2a 20 53 59 4e 54 41 58 20 43 48 45 43 4b 45 52 20 4f 56 ┆ SYNCHECK; (* SYNTAX CHECKER OV┆
0x3b1c0…3b1e0 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 34 5d 20 50 52 4f 43 45 44 55 52 45 ┆ERLAY *) EXTERNAL Æ4Å PROCEDURE┆
0x3b1e0…3b200 20 56 41 52 43 48 45 43 4b 3b 20 20 28 2a 20 55 4e 44 45 46 20 56 41 52 20 43 48 45 43 4b 45 52 ┆ VARCHECK; (* UNDEF VAR CHECKER┆
0x3b200…3b400 (26, 1, 3) 0xe5[0x200]
0x3b400…3b420 (26, 1, 4) 20 4f 56 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 36 5d 20 50 52 4f 43 45 44 ┆ OVERLAY *) EXTERNAL Æ6Å PROCED┆
0x3b420…3b440 55 52 45 20 4d 54 52 55 4e 3b 20 20 20 20 20 28 2a 20 52 55 4e 20 50 52 4f 47 52 41 4d 20 4f 56 ┆URE MTRUN; (* RUN PROGRAM OV┆
0x3b440…3b460 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 37 5d 20 50 52 4f 43 45 44 55 52 45 ┆ERLAY *) EXTERNAL Æ7Å PROCEDURE┆
0x3b460…3b480 20 44 49 53 50 5f 44 49 52 3b 20 20 28 2a 20 44 49 52 45 43 54 4f 52 59 20 44 49 53 50 4c 41 59 ┆ DISP_DIR; (* DIRECTORY DISPLAY┆
0x3b480…3b4a0 20 4f 56 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 38 5d 20 46 55 4e 43 54 49 ┆ OVERLAY *) EXTERNAL Æ8Å FUNCTI┆
0x3b4a0…3b4c0 4f 4e 20 20 47 45 54 46 49 4c 45 3a 42 4f 4f 4c 45 41 4e 3b 20 28 2a 20 47 45 54 20 45 44 49 54 ┆ON GETFILE:BOOLEAN; (* GET EDIT┆
0x3b4c0…3b4e0 4f 52 20 46 49 4c 45 20 4e 41 4d 45 2c 20 45 54 43 2e 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 ┆OR FILE NAME, ETC. *) EXTERNAL ┆
0x3b4e0…3b500 5b 38 5d 20 50 52 4f 43 45 44 55 52 45 20 49 4e 49 54 3b 20 20 20 20 20 20 28 2a 20 45 44 49 54 ┆Æ8Å PROCEDURE INIT; (* EDIT┆
0x3b500…3b520 4f 52 20 49 4e 49 54 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 20 5b 39 5d 20 50 52 4f 43 45 44 55 ┆OR INIT *) EXTERNAL Æ9Å PROCEDU┆
0x3b520…3b540 52 45 20 45 44 49 54 57 52 49 54 45 3b 20 28 2a 20 45 44 49 54 4f 52 20 57 52 49 54 45 20 42 55 ┆RE EDITWRITE; (* EDITOR WRITE BU┆
0x3b540…3b560 46 46 45 52 20 4f 56 45 52 4c 41 59 20 2a 29 0d 0a 45 58 54 45 52 4e 41 4c 5b 31 30 5d 20 50 52 ┆FFER OVERLAY *) EXTERNALÆ10Å PR┆
0x3b560…3b580 4f 43 45 44 55 52 45 20 50 52 45 54 54 59 3b 20 20 20 20 28 2a 20 50 52 4f 47 52 41 4d 20 52 45 ┆OCEDURE PRETTY; (* PROGRAM RE┆
0x3b580…3b5a0 46 4f 52 4d 41 54 45 52 20 2a 29 0d 0a 0d 0a 0d 0a 28 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆FORMATER *) (*-------------┆
0x3b5a0…3b5c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3b5c0…3b5e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 29 0d 0a 28 2a 20 20 20 20 20 20 55 73 65 ┆-----------------*) (* Use┆
0x3b5e0…3b600 72 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 61 72 65 61 20 42 45 47 49 4e 53 20 68 65 72 65 3a ┆r modification area BEGINS here:┆
0x3b600…3b800 (26, 1, 5) 0xe5[0x200]
0x3b800…3b820 (26, 1, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 2d 2d 2d 2d 2d ┆ *) (*-----┆
0x3b820…3b840 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3b840…3b860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 29 0d 0a 0d 0a 20 ┆-------------------------*) ┆
0x3b860…3b880 0d 0a 46 55 4e 43 54 49 4f 4e 20 4c 49 4e 45 53 5a 20 3a 20 49 4e 54 45 47 45 52 3b 20 20 20 20 ┆ FUNCTION LINESZ : INTEGER; ┆
0x3b880…3b8a0 20 20 28 2a 20 53 4f 20 55 53 45 52 20 43 41 4e 20 53 45 54 20 53 49 5a 45 20 4f 46 20 41 20 4c ┆ (* SO USER CAN SET SIZE OF A L┆
0x3b8a0…3b8c0 49 4e 45 20 2a 29 0d 0a 42 45 47 49 4e 0d 0a 20 20 4c 49 4e 45 53 5a 20 3a 3d 20 37 39 20 20 28 ┆INE *) BEGIN LINESZ := 79 (┆
0x3b8c0…3b8e0 2a 20 38 30 20 2d 20 31 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 53 43 ┆* 80 - 1 *) END; FUNCTION SC┆
0x3b8e0…3b900 52 45 45 4e 53 5a 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 43 52 45 ┆REENSZ : INTEGER; BEGIN SCRE┆
0x3b900…3b920 45 4e 53 5a 20 3a 3d 20 32 32 20 20 20 20 20 20 20 20 28 2a 20 4e 55 4d 42 45 52 20 4f 46 20 4c ┆ENSZ := 22 (* NUMBER OF L┆
0x3b920…3b940 49 4e 45 53 20 4f 4e 20 50 48 59 53 49 43 41 4c 20 53 43 52 45 45 4e 20 2d 20 32 20 2a 29 0d 0a ┆INES ON PHYSICAL SCREEN - 2 *) ┆
0x3b940…3b960 45 4e 44 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 53 54 41 54 55 53 52 4f 57 20 3a 20 49 4e 54 ┆END; FUNCTION STATUSROW : INT┆
0x3b960…3b980 45 47 45 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 54 41 54 55 53 52 4f 57 20 3a 3d 20 53 43 52 ┆EGER; BEGIN STATUSROW := SCR┆
0x3b980…3b9a0 45 45 4e 53 5a 20 2b 20 31 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 42 5f ┆EENSZ + 1 END; PROCEDURE SB_┆
0x3b9a0…3b9c0 4f 55 54 5f 43 48 28 43 48 3a 43 48 41 52 29 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 42 5f 42 49 ┆OUT_CH(CH:CHAR); BEGIN SB_BI┆
0x3b9c0…3b9e0 4f 53 5f 43 41 4c 4c 28 43 4f 4e 4f 55 54 2c 4f 52 44 28 43 48 29 29 0d 0a 45 4e 44 3b 0d 0a 0d ┆OS_CALL(CONOUT,ORD(CH)) END; ┆
0x3b9e0…3ba00 0a 46 55 4e 43 54 49 4f 4e 20 20 53 42 5f 47 45 54 43 48 3a 43 48 41 52 3b 0d 0a 56 41 52 0d 0a ┆ FUNCTION SB_GETCH:CHAR; VAR ┆
0x3ba00…3ba20 (26, 1, 7) 28 2a 20 20 56 45 52 53 49 4f 4e 20 30 30 35 39 20 2a 29 0d 0a 28 2a 24 4b 30 2a 29 0d 0a 28 2a ┆(* VERSION 0059 *) (*$K0*) (*┆
0x3ba20…3ba40 24 4b 31 2a 29 0d 0a 28 2a 24 4b 32 2a 29 0d 0a 28 2a 24 4b 35 2a 29 0d 0a 28 2a 24 4b 36 2a 29 ┆$K1*) (*$K2*) (*$K5*) (*$K6*)┆
0x3ba40…3ba60 0d 0a 28 2a 24 4b 37 2a 29 0d 0a 28 2a 24 4b 38 2a 29 0d 0a 28 2a 24 4b 31 32 2a 29 0d 0a 28 2a ┆ (*$K7*) (*$K8*) (*$K12*) (*┆
0x3ba60…3ba80 24 4b 31 33 2a 29 0d 0a 28 2a 24 4b 31 34 2a 29 0d 0a 28 2a 24 4b 31 35 2a 29 0d 0a 50 52 4f 47 ┆$K13*) (*$K14*) (*$K15*) PROG┆
0x3ba80…3baa0 52 41 4d 20 50 41 53 43 41 4c 5f 53 50 50 3b 0d 0a 0d 0a 28 2a 24 49 20 45 44 54 59 50 45 53 2a ┆RAM PASCAL_SPP; (*$I EDTYPES*┆
0x3baa0…3bac0 29 0d 0a 28 2a 24 49 20 45 44 47 4c 42 4c 53 2a 29 0d 0a 0d 0a 54 59 50 45 0d 0a 43 50 4d 4f 50 ┆) (*$I EDGLBLS*) TYPE CPMOP┆
0x3bac0…3bae0 45 52 41 54 49 4f 4e 20 3d 20 28 43 4f 4c 44 42 4f 4f 54 2c 57 41 52 4d 42 4f 4f 54 2c 43 4f 4e ┆ERATION = (COLDBOOT,WARMBOOT,CON┆
0x3bae0…3bb00 53 54 41 54 2c 43 4f 4e 49 4e 2c 43 4f 4e 4f 55 54 2c 4c 49 53 54 2c 0d 0a 20 20 20 20 20 20 20 ┆STAT,CONIN,CONOUT,LIST, ┆
0x3bb00…3bb20 20 20 20 20 20 20 20 20 20 50 55 4e 4f 55 54 2c 52 44 52 49 4e 2c 48 4f 4d 45 2c 53 45 4c 44 53 ┆ PUNOUT,RDRIN,HOME,SELDS┆
0x3bb20…3bb40 4b 2c 53 45 54 54 52 4b 2c 53 45 54 53 45 43 2c 53 45 54 44 4d 41 2c 0d 0a 20 20 20 20 20 20 20 ┆K,SETTRK,SETSEC,SETDMA, ┆
0x3bb40…3bb60 20 20 20 20 20 20 20 20 20 44 53 4b 52 45 41 44 2c 44 53 4b 57 52 49 54 45 29 3b 0d 0a 0d 0a 46 ┆ DSKREAD,DSKWRITE); F┆
0x3bb60…3bb80 4e 41 4d 45 20 3d 20 20 20 20 20 41 52 52 41 59 20 5b 31 2e 2e 38 5d 20 4f 46 20 43 48 41 52 3b ┆NAME = ARRAY Æ1..8Å OF CHAR;┆
0x3bb80…3bba0 20 20 20 20 20 20 20 28 2a 20 43 50 2f 4d 20 46 49 4c 45 20 4e 41 4d 45 20 2a 29 0d 0a 0d 0a 45 ┆ (* CP/M FILE NAME *) E┆
0x3bba0…3bbc0 58 54 45 4e 53 49 4f 4e 20 3d 20 41 52 52 41 59 20 5b 31 2e 2e 33 5d 20 4f 46 20 43 48 41 52 3b ┆XTENSION = ARRAY Æ1..3Å OF CHAR;┆
0x3bbc0…3bbe0 20 20 20 20 20 20 20 28 2a 20 45 58 54 45 4e 53 49 4f 4e 20 54 4f 20 4e 41 4d 45 20 2a 29 0d 0a ┆ (* EXTENSION TO NAME *) ┆
0x3bbe0…3bc00 0d 0a 46 43 42 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 44 53 4b 20 20 3a 20 42 ┆ FCB = RECORD DSK : B┆
0x3bc00…3bc20 (26, 1, 8) 20 20 43 48 20 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 42 5f 42 49 4f 53 5f 43 ┆ CH : CHAR; BEGIN SB_BIOS_C┆
0x3bc20…3bc40 41 4c 4c 28 43 4f 4e 49 4e 2c 30 29 3b 0d 0a 20 20 49 4e 4c 49 4e 45 28 22 53 54 41 20 2f 20 43 ┆ALL(CONIN,0); INLINE("STA / C┆
0x3bc40…3bc60 48 29 3b 0d 0a 20 20 53 42 5f 47 45 54 43 48 20 3a 3d 20 43 48 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 ┆H); SB_GETCH := CH END; P┆
0x3bc60…3bc80 52 4f 43 45 44 55 52 45 20 58 59 47 4f 54 4f 28 58 2c 59 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 42 ┆ROCEDURE XYGOTO(X,Y:INTEGER); B┆
0x3bc80…3bca0 45 47 49 4e 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 45 53 43 29 29 3b 0d 0a 20 20 ┆EGIN SB_OUT_CH(CHR(ESC)); ┆
0x3bca0…3bcc0 53 42 5f 4f 55 54 5f 43 48 28 27 3d 27 29 3b 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 ┆SB_OUT_CH('='); SB_OUT_CH(CHR┆
0x3bcc0…3bce0 28 59 2b 33 32 29 29 3b 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 58 2b 33 32 29 29 ┆(Y+32)); SB_OUT_CH(CHR(X+32))┆
0x3bce0…3bd00 3b 0d 0a 20 20 53 42 5f 4c 41 53 54 5f 58 20 3a 3d 20 58 3b 0d 0a 20 20 53 42 5f 4c 41 53 54 5f ┆; SB_LAST_X := X; SB_LAST_┆
0x3bd00…3bd20 59 20 3a 3d 20 59 3b 20 20 20 20 20 20 20 28 2a 20 54 48 45 53 45 20 41 52 45 20 55 53 45 44 20 ┆Y := Y; (* THESE ARE USED ┆
0x3bd20…3bd40 4f 4e 4c 59 20 42 59 20 55 53 45 52 20 53 4f 46 54 57 41 52 45 20 20 2a 29 0d 0a 20 20 20 20 20 ┆ONLY BY USER SOFTWARE *) ┆
0x3bd40…3bd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 52 4f 55 54 49 4e 45 53 20 57 ┆ (* ROUTINES W┆
0x3bd60…3bd80 48 49 43 48 20 50 45 52 46 4f 52 4d 20 43 4c 52 20 54 4f 20 45 4f 53 20 41 4e 44 20 2a 29 0d 0a ┆HICH PERFORM CLR TO EOS AND *) ┆
0x3bd80…3bda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 43 4c 52 20 54 ┆ (* CLR T┆
0x3bda0…3bdc0 4f 20 45 4f 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O EOL ┆
0x3bdc0…3bde0 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 42 5f 43 4c 52 5f 53 43 ┆ *) END; PROCEDURE SB_CLR_SC┆
0x3bde0…3be00 52 4e 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 65 73 63 29 ┆RN; BEGIN SB_OUT_CH(CHR(esc)┆
0x3be00…3be20 (26, 1, 9) 59 54 45 3b 0d 0a 20 20 20 20 20 20 20 20 46 4e 20 20 20 3a 20 46 4e 41 4d 45 3b 0d 0a 20 20 20 ┆YTE; FN : FNAME; ┆
0x3be20…3be40 20 20 20 20 20 45 58 54 20 20 3a 20 45 58 54 45 4e 53 49 4f 4e 3b 0d 0a 20 20 20 20 20 20 20 20 ┆ EXT : EXTENSION; ┆
0x3be40…3be60 4f 54 48 45 52 3a 20 41 52 52 41 59 20 5b 31 32 2e 2e 33 36 5d 20 4f 46 20 42 59 54 45 0d 0a 20 ┆OTHER: ARRAY Æ12..36Å OF BYTE ┆
0x3be60…3be80 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 44 49 52 45 4e 54 20 3d 20 52 45 43 4f 52 44 0d 0a 20 20 ┆ END; DIRENT = RECORD ┆
0x3be80…3bea0 20 20 20 20 20 20 20 20 20 45 54 20 20 20 3a 20 42 59 54 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ET : BYTE; ┆
0x3bea0…3bec0 20 20 46 4e 20 20 20 3a 20 46 4e 41 4d 45 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 45 58 54 20 ┆ FN : FNAME; EXT ┆
0x3bec0…3bee0 20 3a 20 45 58 54 45 4e 53 49 4f 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 4f 54 48 52 20 3a ┆ : EXTENSION; OTHR :┆
0x3bee0…3bf00 20 41 52 52 41 59 20 5b 31 32 2e 2e 33 31 5d 20 4f 46 20 42 59 54 45 0d 0a 20 20 20 20 20 20 20 ┆ ARRAY Æ12..31Å OF BYTE ┆
0x3bf00…3bf20 20 20 45 4e 44 3b 0d 0a 0d 0a 28 2a 24 49 20 53 42 49 46 44 45 46 2e 4c 49 42 2a 29 0d 0a 0d 0a ┆ END; (*$I SBIFDEF.LIB*) ┆
0x3bf20…3bf40 0d 0a 0d 0a 56 41 52 0d 0a 0d 0a 20 20 44 49 52 46 49 4c 45 3a 20 20 20 20 20 20 46 43 42 3b 20 ┆ VAR DIRFILE: FCB; ┆
0x3bf40…3bf60 20 20 20 28 2a 20 46 4f 52 20 44 49 53 50 4c 41 59 49 4e 47 20 44 49 52 45 43 54 4f 52 49 45 53 ┆ (* FOR DISPLAYING DIRECTORIES┆
0x3bf60…3bf80 20 2a 29 0d 0a 20 20 44 49 52 42 55 46 3a 20 20 20 20 20 20 20 41 52 52 41 59 20 5b 30 2e 2e 33 ┆ *) DIRBUF: ARRAY Æ0..3┆
0x3bf80…3bfa0 5d 20 4f 46 20 44 49 52 45 4e 54 3b 0d 0a 0d 0a 20 20 46 53 54 52 49 4e 47 3a 20 20 20 20 20 20 ┆Å OF DIRENT; FSTRING: ┆
0x3bfa0…3bfc0 53 54 52 49 4e 47 3b 0d 0a 20 20 4d 45 4d 4f 52 59 3a 20 20 20 20 20 20 20 41 42 53 4f 4c 55 54 ┆STRING; MEMORY: ABSOLUT┆
0x3bfc0…3bfe0 45 20 5b 24 30 30 30 30 5d 20 41 52 52 41 59 5b 30 2e 2e 30 5d 20 4f 46 20 42 59 54 45 3b 0d 0a ┆E Æ$0000Å ARRAYÆ0..0Å OF BYTE; ┆
0x3bfe0…3c000 20 20 43 4d 44 43 48 3a 20 20 20 20 20 20 20 20 43 48 41 52 3b 0d 0a 20 20 40 53 46 50 3a 20 20 ┆ CMDCH: CHAR; @SFP: ┆
0x3c000…3c020 (27, 0, 1) 29 3b 20 73 62 5f 6f 75 74 5f 63 68 28 27 2a 27 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 ┆); sb_out_ch('*') END; PROCE┆
0x3c020…3c040 44 55 52 45 20 53 42 5f 43 4c 52 5f 45 4f 53 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 42 5f 4f 55 ┆DURE SB_CLR_EOS; BEGIN SB_OU┆
0x3c040…3c060 54 5f 43 48 28 43 48 52 28 45 53 43 29 29 3b 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 27 59 27 ┆T_CH(CHR(ESC)); SB_OUT_CH('Y'┆
0x3c060…3c080 29 3b 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 30 29 29 3b 20 20 20 20 28 2a 20 47 ┆); SB_OUT_CH(CHR(0)); (* G┆
0x3c080…3c0a0 49 56 45 20 49 54 20 54 49 4d 45 20 54 4f 20 57 4f 52 4b 20 2a 29 0d 0a 20 20 53 42 5f 4f 55 54 ┆IVE IT TIME TO WORK *) SB_OUT┆
0x3c0a0…3c0c0 5f 43 48 28 43 48 52 28 30 29 29 3b 20 20 20 20 28 2a 20 47 49 56 45 20 49 54 20 54 49 4d 45 20 ┆_CH(CHR(0)); (* GIVE IT TIME ┆
0x3c0c0…3c0e0 54 4f 20 57 4f 52 4b 20 2a 29 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 30 29 29 3b ┆TO WORK *) SB_OUT_CH(CHR(0));┆
0x3c0e0…3c100 20 20 20 20 28 2a 20 47 49 56 45 20 49 54 20 54 49 4d 45 20 54 4f 20 57 4f 52 4b 20 2a 29 0d 0a ┆ (* GIVE IT TIME TO WORK *) ┆
0x3c100…3c120 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 30 29 29 3b 20 20 20 20 28 2a 20 47 49 56 45 20 ┆ SB_OUT_CH(CHR(0)); (* GIVE ┆
0x3c120…3c140 49 54 20 54 49 4d 45 20 54 4f 20 57 4f 52 4b 20 2a 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 50 52 ┆IT TIME TO WORK *) END; PR┆
0x3c140…3c160 4f 43 45 44 55 52 45 20 53 42 5f 43 4c 52 5f 4c 49 4e 45 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 ┆OCEDURE SB_CLR_LINE; BEGIN S┆
0x3c160…3c180 42 5f 4f 55 54 5f 43 48 28 43 48 52 28 45 53 43 29 29 3b 0d 0a 20 20 53 42 5f 4f 55 54 5f 43 48 ┆B_OUT_CH(CHR(ESC)); SB_OUT_CH┆
0x3c180…3c1a0 28 27 54 27 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 28 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆('T'); END; (*------------┆
0x3c1a0…3c1c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3c1c0…3c1e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 29 0d 0a 28 2a 20 20 20 20 20 20 55 73 ┆------------------*) (* Us┆
0x3c1e0…3c200 65 72 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 61 72 65 61 20 45 4e 44 53 20 57 49 54 48 20 53 ┆er modification area ENDS WITH S┆
0x3c200…3c220 (27, 0, 2) 20 20 20 20 28 2a 20 47 45 54 20 46 49 4c 45 20 49 4e 54 4f 20 42 55 46 46 45 52 20 2a 29 0d 0a ┆ (* GET FILE INTO BUFFER *) ┆
0x3c220…3c240 20 20 20 20 20 20 49 4e 49 54 3b 0d 0a 20 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 ┆ INIT; GET_FILE_INTO_BUF┆
0x3c240…3c260 20 3a 3d 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 0d 0a 45 4e 44 3b 0d 0a 28 2a 24 45 ┆ := BUFSTAT.OCCUPIED END; (*$E┆
0x3c260…3c280 2b 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 42 55 46 53 5a 20 3a 3d 20 28 40 53 ┆+*) BEGIN BUFSZ := (@S┆
0x3c280…3c2a0 46 50 20 2d 20 41 44 44 52 28 42 55 46 29 29 2d 24 31 30 30 3b 20 20 20 20 20 28 2a 20 53 45 54 ┆FP - ADDR(BUF))-$100; (* SET┆
0x3c2a0…3c2c0 20 55 50 20 45 44 49 54 4f 52 20 42 55 46 46 45 52 20 53 49 5a 45 20 2a 29 0d 0a 20 20 42 55 46 ┆ UP EDITOR BUFFER SIZE *) BUF┆
0x3c2c0…3c2e0 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 4e 45 57 46 49 ┆STAT.OCCUPIED := FALSE; NEWFI┆
0x3c2e0…3c300 4c 45 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 4d 45 4e 55 ┆LE := FALSE; REPEAT MENU┆
0x3c300…3c320 3b 0d 0a 20 20 20 20 49 4e 54 52 46 41 43 45 2e 4e 45 58 54 5f 43 4d 44 20 3a 3d 20 27 20 27 3b ┆; INTRFACE.NEXT_CMD := ' ';┆
0x3c320…3c340 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 44 45 46 41 55 4c 54 20 4e 4f 20 4e 45 58 54 20 ┆ (* DEFAULT NO NEXT ┆
0x3c340…3c360 50 52 4f 47 52 41 4d 20 2a 29 0d 0a 20 20 20 20 49 4e 54 52 46 41 43 45 2e 45 4e 44 5f 53 54 41 ┆PROGRAM *) INTRFACE.END_STA┆
0x3c360…3c380 54 20 3a 3d 20 4f 4b 3b 0d 0a 20 20 20 20 43 4d 44 43 48 20 3a 3d 20 53 42 5f 55 50 5f 43 41 53 ┆T := OK; CMDCH := SB_UP_CAS┆
0x3c380…3c3a0 45 28 53 42 5f 47 45 54 43 48 29 3b 0d 0a 20 20 20 20 53 42 5f 4f 55 54 5f 43 48 28 43 4d 44 43 ┆E(SB_GETCH); SB_OUT_CH(CMDC┆
0x3c3a0…3c3c0 48 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 45 43 48 4f 20 ┆H); (* ECHO ┆
0x3c3c0…3c3e0 49 54 20 2a 29 0d 0a 20 20 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 46 53 54 52 49 4e 47 ┆IT *) REPEAT FSTRING┆
0x3c3e0…3c400 20 3a 3d 20 27 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 ┆ := ''; (* ┆
0x3c400…3c420 (27, 0, 3) 42 5f 43 4c 52 5f 4c 49 4e 45 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 2d 2d 2d 2d ┆B_CLR_LINE *) (*----┆
0x3c420…3c440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3c440…3c460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 29 0d 0a 0d 0a ┆--------------------------*) ┆
0x3c460…3c480 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 56 41 52 0d 0a ┆ PROCEDURE SB_FLUSH_BUF; VAR ┆
0x3c480…3c4a0 20 20 43 48 20 3a 20 43 48 41 52 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 4e 4f 54 20 42 55 ┆ CH : CHAR; BEGIN IF NOT BU┆
0x3c4a0…3c4c0 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 54 48 45 4e 0d 0a 20 20 20 20 45 58 49 54 3b 0d 0a ┆FSTAT.OCCUPIED THEN EXIT; ┆
0x3c4c0…3c4e0 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 50 52 4e 54 5f 41 54 28 32 30 2c 31 2c 27 42 75 ┆ REPEAT PRNT_AT(20,1,'Bu┆
0x3c4e0…3c500 66 66 65 72 20 6f 63 63 75 70 69 65 64 27 29 3b 0d 0a 20 20 20 20 50 52 4e 54 5f 41 54 28 32 31 ┆ffer occupied'); PRNT_AT(21┆
0x3c500…3c520 2c 31 2c 27 46 29 6c 75 73 68 2c 20 55 29 70 64 61 74 65 2c 20 57 29 72 69 74 65 20 26 20 46 6c ┆,1,'F)lush, U)pdate, W)rite & Fl┆
0x3c520…3c540 75 73 68 2c 20 4c 29 65 61 76 65 3a 27 29 3b 0d 0a 20 20 20 20 43 48 20 3a 3d 20 53 42 5f 55 50 ┆ush, L)eave:'); CH := SB_UP┆
0x3c540…3c560 5f 43 41 53 45 28 53 42 5f 47 45 54 43 48 29 3b 0d 0a 20 20 20 20 53 42 5f 4f 55 54 5f 43 48 28 ┆_CASE(SB_GETCH); SB_OUT_CH(┆
0x3c560…3c580 43 48 29 3b 0d 0a 20 20 20 20 49 46 20 43 48 20 3d 20 27 4c 27 20 54 48 45 4e 0d 0a 20 20 20 20 ┆CH); IF CH = 'L' THEN ┆
0x3c580…3c5a0 20 20 45 58 49 54 3b 0d 0a 0d 0a 20 20 20 20 49 46 20 43 48 20 3d 20 27 46 27 20 54 48 45 4e 0d ┆ EXIT; IF CH = 'F' THEN ┆
0x3c5a0…3c5c0 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 49 46 20 4e 45 57 46 49 4c 45 ┆ BEGIN IF NEWFILE┆
0x3c5c0…3c5e0 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 50 55 52 47 45 28 46 29 3b 0d 0a 20 20 20 20 ┆ THEN PURGE(F); ┆
0x3c5e0…3c600 20 20 20 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 3a 3d 20 46 41 4c 53 45 3b 0d 0a ┆ BUFSTAT.OCCUPIED := FALSE; ┆
0x3c600…3c620 (27, 0, 4) 44 45 46 41 55 4c 54 20 49 53 20 4e 4f 20 50 52 4f 47 52 41 4d 20 2a 29 0d 0a 20 20 20 20 20 20 ┆DEFAULT IS NO PROGRAM *) ┆
0x3c620…3c640 43 41 53 45 20 43 4d 44 43 48 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 27 44 27 20 3a 20 44 49 53 ┆CASE CMDCH OF 'D' : DIS┆
0x3c640…3c660 50 5f 44 49 52 3b 0d 0a 20 20 20 20 20 20 20 20 27 45 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 ┆P_DIR; 'E' : BEGIN ┆
0x3c660…3c680 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 28 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 ┆ IF (BUFSTAT.OCCUPIE┆
0x3c680…3c6a0 44 29 20 41 4e 44 20 28 28 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 20 3d 20 27 53 27 ┆D) AND ((INTRFACE.PREV_CMD = 'S'┆
0x3c6a0…3c6c0 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) ┆
0x3c6c0…3c6e0 20 20 20 20 20 20 20 20 20 20 20 4f 52 20 28 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 ┆ OR (INTRFACE.PREV_CMD┆
0x3c6e0…3c700 20 3d 20 27 52 27 29 29 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = 'R'))THEN ┆
0x3c700…3c720 28 2a 20 44 4f 20 4e 4f 54 48 49 4e 47 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(* DO NOTHING *) ┆
0x3c720…3c740 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 42 5f 46 4c 55 ┆ ELSE SB_FLU┆
0x3c740…3c760 53 48 5f 42 55 46 3b 20 20 20 20 20 20 20 20 28 2a 20 4d 41 4b 45 20 53 55 52 45 20 55 53 45 52 ┆SH_BUF; (* MAKE SURE USER┆
0x3c760…3c780 20 57 41 4e 54 53 20 54 4f 20 44 4f 20 54 48 49 53 20 2a 29 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ┆ WANTS TO DO THIS *) ┆
0x3c780…3c7a0 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 ┆ IF NOT BUFSTAT.OCCUPIED ┆
0x3c7a0…3c7c0 54 48 45 4e 20 28 2a 20 42 55 46 46 45 52 20 49 53 20 45 4d 50 54 59 20 2a 29 0d 0a 20 20 20 20 ┆THEN (* BUFFER IS EMPTY *) ┆
0x3c7c0…3c7e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3c7e0…3c800 20 20 20 20 20 20 20 20 20 49 46 20 47 45 54 46 49 4c 45 20 54 48 45 4e 20 20 20 20 20 20 20 20 ┆ IF GETFILE THEN ┆
0x3c800…3c820 (27, 0, 5) 20 20 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 ┆ EXIT END; ┆
0x3c820…3c840 49 46 20 43 48 20 3d 20 27 57 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 ┆IF CH = 'W' THEN BEGIN ┆
0x3c840…3c860 20 20 20 20 20 20 20 45 44 49 54 57 52 49 54 45 3b 0d 0a 20 20 20 20 20 20 20 20 4c 4f 47 57 52 ┆ EDITWRITE; LOGWR┆
0x3c860…3c880 49 54 45 52 3b 0d 0a 20 20 20 20 20 20 20 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 ┆ITER; BUFSTAT.OCCUPIED ┆
0x3c880…3c8a0 3a 3d 20 46 41 4c 53 45 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 49 46 20 43 ┆:= FALSE END; IF C┆
0x3c8a0…3c8c0 48 20 3d 20 27 55 27 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 ┆H = 'U' THEN BEGIN ┆
0x3c8c0…3c8e0 20 20 20 45 44 49 54 57 52 49 54 45 3b 20 20 20 20 20 20 20 20 28 2a 20 42 55 54 20 4c 45 41 56 ┆ EDITWRITE; (* BUT LEAV┆
0x3c8e0…3c900 45 20 49 54 20 4f 43 43 55 50 49 45 44 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 4c 4f 47 57 52 49 ┆E IT OCCUPIED *) LOGWRI┆
0x3c900…3c920 54 45 52 0d 0a 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 55 4e 54 49 4c 20 28 43 48 3d 27 55 27 29 ┆TER END UNTIL (CH='U')┆
0x3c920…3c940 20 6f 72 20 28 43 48 3d 27 46 27 29 20 4f 52 20 28 43 48 3d 27 57 27 29 3b 0d 0a 20 20 4e 45 57 ┆ or (CH='F') OR (CH='W'); NEW┆
0x3c940…3c960 46 49 4c 45 3a 3d 46 41 4c 53 45 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆FILE:=FALSE; END; ┆
0x3c960…3c980 20 20 20 20 20 20 0d 0a 50 52 4f 43 45 44 55 52 45 20 53 42 5f 42 49 4f 53 5f 43 41 4c 4c 28 46 ┆ PROCEDURE SB_BIOS_CALL(F┆
0x3c980…3c9a0 55 4e 43 3a 43 50 4d 4f 50 45 52 41 54 49 4f 4e 3b 20 50 41 52 4d 3a 49 4e 54 45 47 45 52 29 3b ┆UNC:CPMOPERATION; PARM:INTEGER);┆
0x3c9a0…3c9c0 0d 0a 56 41 52 0d 0a 20 20 44 49 53 50 41 54 43 48 5f 4c 4f 43 20 3a 20 49 4e 54 45 47 45 52 3b ┆ VAR DISPATCH_LOC : INTEGER;┆
0x3c9c0…3c9e0 0d 0a 42 45 47 49 4e 0d 0a 20 20 44 49 53 50 41 54 43 48 5f 4c 4f 43 20 3a 3d 20 28 4d 45 4d 4f ┆ BEGIN DISPATCH_LOC := (MEMO┆
0x3c9e0…3ca00 52 59 5b 31 5d 20 2b 20 53 57 41 50 28 4d 45 4d 4f 52 59 5b 32 5d 29 29 20 2b 20 28 4f 52 44 28 ┆RYÆ1Å + SWAP(MEMORYÆ2Å)) + (ORD(┆
0x3ca00…3ca20 (27, 0, 6) 20 20 28 2a 20 53 45 45 20 49 46 20 48 45 20 57 41 4e 54 53 20 41 20 46 49 4c 45 20 2a 29 0d 0a ┆ (* SEE IF HE WANTS A FILE *) ┆
0x3ca20…3ca40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 ┆ BEGIN ┆
0x3ca40…3ca60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 49 54 3b 20 20 20 20 20 20 ┆ INIT; ┆
0x3ca60…3ca80 20 20 20 20 20 20 20 20 28 2a 20 43 41 4c 4c 20 45 44 49 54 4f 52 20 2a 29 0d 0a 20 20 20 20 20 ┆ (* CALL EDITOR *) ┆
0x3ca80…3caa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 46 53 54 41 54 2e 4f 43 ┆ IF BUFSTAT.OC┆
0x3caa0…3cac0 43 55 50 49 45 44 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CUPIED THEN ┆
0x3cac0…3cae0 20 20 20 20 20 20 20 53 50 45 45 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SPEED ┆
0x3cae0…3cb00 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a ┆ END END ┆
0x3cb00…3cb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x3cb20…3cb40 20 20 20 20 20 20 20 20 53 50 45 45 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SPEED; ┆
0x3cb40…3cb60 20 28 2a 20 42 55 46 46 45 52 20 4f 43 43 55 50 49 45 44 2c 20 45 44 49 54 20 4f 4c 44 20 2a 29 ┆ (* BUFFER OCCUPIED, EDIT OLD *)┆
0x3cb60…3cb80 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f ┆ INTRFACE.PREV_┆
0x3cb80…3cba0 43 4d 44 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 ┆CMD := ' '; IF ┆
0x3cba0…3cbc0 49 4e 54 52 46 41 43 45 2e 4e 45 58 54 5f 43 4d 44 20 3d 20 27 45 27 20 54 48 45 4e 0d 0a 20 20 ┆INTRFACE.NEXT_CMD = 'E' THEN ┆
0x3cbc0…3cbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 4e 45 58 54 5f 43 4d ┆ INTRFACE.NEXT_CM┆
0x3cbe0…3cc00 44 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 ┆D := ' '; END; ┆
0x3cc00…3cc20 (27, 0, 7) 46 55 4e 43 29 2a 33 29 20 2d 20 33 3b 0d 0a 20 20 49 4e 4c 49 4e 45 28 22 4c 48 4c 44 20 2f 20 ┆FUNC)*3) - 3; INLINE("LHLD / ┆
0x3cc20…3cc40 50 41 52 4d 20 2f 0d 0a 20 20 20 20 20 20 20 20 20 22 4d 4f 56 20 43 2c 4c 20 2f 0d 0a 20 20 20 ┆PARM / "MOV C,L / ┆
0x3cc40…3cc60 20 20 20 20 20 20 22 4d 4f 56 20 42 2c 48 20 2f 0d 0a 20 20 20 20 20 20 20 20 20 22 4c 48 4c 44 ┆ "MOV B,H / "LHLD┆
0x3cc60…3cc80 20 2f 20 44 49 53 50 41 54 43 48 5f 4c 4f 43 20 2f 0d 0a 20 20 20 20 20 20 20 20 20 22 50 43 48 ┆ / DISPATCH_LOC / "PCH┆
0x3cc80…3cca0 4c 29 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 50 52 4e 54 5f 41 54 28 52 ┆L); END; PROCEDURE PRNT_AT(R┆
0x3cca0…3ccc0 4f 57 2c 43 4f 4c 3a 49 4e 54 45 47 45 52 3b 20 53 3a 53 54 52 49 4e 47 29 3b 0d 0a 42 45 47 49 ┆OW,COL:INTEGER; S:STRING); BEGI┆
0x3ccc0…3cce0 4e 0d 0a 20 20 58 59 47 4f 54 4f 28 43 4f 4c 2c 52 4f 57 29 3b 0d 0a 20 20 57 52 49 54 45 28 5b ┆N XYGOTO(COL,ROW); WRITE(Æ┆
0x3cce0…3cd00 41 44 44 52 28 53 42 5f 4f 55 54 5f 43 48 29 5d 2c 53 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f ┆ADDR(SB_OUT_CH)Å,S) END; PRO┆
0x3cd00…3cd20 43 45 44 55 52 45 20 4d 45 4e 55 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 53 42 5f 43 4c 52 5f 53 43 ┆CEDURE MENU; BEGIN SB_CLR_SC┆
0x3cd20…3cd40 52 4e 3b 0d 0a 20 20 50 52 4e 54 5f 41 54 28 31 2c 31 2c 27 53 70 65 65 64 50 72 6f 67 72 61 6d ┆RN; PRNT_AT(1,1,'SpeedProgram┆
0x3cd40…3cd60 6d 69 6e 67 20 50 61 63 6b 61 67 65 20 56 35 2e 35 27 29 3b 0d 0a 20 20 50 52 4e 54 5f 41 54 28 ┆ming Package V5.5'); PRNT_AT(┆
0x3cd60…3cd80 33 2c 31 2c 27 4f 70 74 69 6f 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 45 29 64 69 74 27 29 3b ┆3,1,'Options: E)dit');┆
0x3cd80…3cda0 0d 0a 20 20 70 72 6e 74 5f 61 74 28 34 2c 32 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ prnt_at(4,20, ┆
0x3cda0…3cdc0 20 20 20 27 52 29 65 66 6f 72 6d 61 74 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 35 2c 32 30 ┆ 'R)eformat'); prnt_at(5,20┆
0x3cdc0…3cde0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 53 29 79 6e 74 61 78 20 63 68 65 63 ┆, 'S)yntax chec┆
0x3cde0…3ce00 6b 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 36 2c 32 30 2c 20 20 20 20 20 20 20 20 20 20 20 ┆k'); prnt_at(6,20, ┆
0x3ce00…3ce20 (27, 0, 8) 20 20 20 20 20 20 20 27 53 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'S' : BEGIN ┆
0x3ce20…3ce40 20 20 20 20 49 46 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 20 54 48 45 4e 0d 0a 20 ┆ IF GET_FILE_INTO_BUF THEN ┆
0x3ce40…3ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3ce60…3ce80 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 20 3a 3d ┆ INTRFACE.PREV_CMD :=┆
0x3ce80…3cea0 20 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 59 4e 43 48 ┆ ' '; SYNCH┆
0x3cea0…3cec0 45 43 4b 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 4e 54 ┆ECK; IF INT┆
0x3cec0…3cee0 52 46 41 43 45 2e 45 4e 44 5f 53 54 41 54 20 3d 20 53 59 4e 45 52 52 20 54 48 45 4e 0d 0a 20 20 ┆RFACE.END_STAT = SYNERR THEN ┆
0x3cee0…3cf00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 4e 45 58 ┆ INTRFACE.NEX┆
0x3cf00…3cf20 54 5f 43 4d 44 20 3a 3d 20 27 45 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T_CMD := 'E' ┆
0x3cf20…3cf40 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 ┆END END; ┆
0x3cf40…3cf60 20 27 56 27 20 3a 20 49 46 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 20 54 48 45 4e ┆ 'V' : IF GET_FILE_INTO_BUF THEN┆
0x3cf60…3cf80 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 43 48 45 43 4b 3b 0d 0a 20 20 20 ┆ VARCHECK; ┆
0x3cf80…3cfa0 20 20 20 20 20 27 52 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'R' : BEGIN ┆
0x3cfa0…3cfc0 20 20 49 46 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 20 54 48 45 4e 0d 0a 20 20 20 ┆ IF GET_FILE_INTO_BUF THEN ┆
0x3cfc0…3cfe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3cfe0…3d000 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 20 3a 3d 20 27 ┆ INTRFACE.PREV_CMD := '┆
0x3d000…3d020 (27, 0, 9) 20 20 20 20 20 20 20 27 56 29 61 72 69 61 62 6c 65 20 63 68 65 63 6b 27 29 3b 0d 0a 20 20 70 72 ┆ 'V)ariable check'); pr┆
0x3d020…3d040 6e 74 5f 61 74 28 37 2c 32 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 58 29 ┆nt_at(7,20, 'X)┆
0x3d040…3d060 65 71 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 38 2c 32 30 2c 20 20 20 20 20 20 20 20 20 20 ┆eq'); prnt_at(8,20, ┆
0x3d060…3d080 20 20 20 20 20 20 20 20 27 44 29 69 72 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 39 2c 32 30 ┆ 'D)ir'); prnt_at(9,20┆
0x3d080…3d0a0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 46 29 61 73 74 20 63 6f 6d 70 69 6c ┆, 'F)ast compil┆
0x3d0a0…3d0c0 65 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 31 30 2c 32 30 2c 20 20 20 20 20 20 20 20 20 20 ┆e'); prnt_at(10,20, ┆
0x3d0c0…3d0e0 20 20 20 20 20 20 20 27 51 29 75 69 74 27 29 3b 0d 0a 20 20 70 72 6e 74 5f 61 74 28 32 32 2c 31 ┆ 'Q)uit'); prnt_at(22,1┆
0x3d0e0…3d100 2c 27 43 6f 6d 6d 61 6e 64 3f 20 27 29 0d 0a 45 4e 44 3b 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 ┆,'Command? ') END; FUNCTION ┆
0x3d100…3d120 20 53 42 5f 55 50 5f 43 41 53 45 28 43 48 3a 43 48 41 52 29 3a 43 48 41 52 3b 0d 0a 42 45 47 49 ┆ SB_UP_CASE(CH:CHAR):CHAR; BEGI┆
0x3d120…3d140 4e 0d 0a 20 20 49 46 20 28 43 48 20 3e 3d 20 27 61 27 29 20 41 4e 44 20 28 43 48 20 3c 3d 20 27 ┆N IF (CH >= 'a') AND (CH <= '┆
0x3d140…3d160 7a 27 29 20 54 48 45 4e 0d 0a 20 20 20 20 53 42 5f 55 50 5f 43 41 53 45 20 3a 3d 20 43 48 52 28 ┆z') THEN SB_UP_CASE := CHR(┆
0x3d160…3d180 43 48 20 26 20 24 44 46 29 0d 0a 20 20 45 4c 53 45 0d 0a 20 20 20 20 53 42 5f 55 50 5f 43 41 53 ┆CH & $DF) ELSE SB_UP_CAS┆
0x3d180…3d1a0 45 20 3a 3d 20 43 48 0d 0a 45 4e 44 3b 0d 0a 0d 0a 0d 0a 28 2a 24 45 2d 2a 29 0d 0a 46 55 4e 43 ┆E := CH END; (*$E-*) FUNC┆
0x3d1a0…3d1c0 54 49 4f 4e 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 3a 42 4f 4f 4c 45 41 4e 3b 0d ┆TION GET_FILE_INTO_BUF:BOOLEAN; ┆
0x3d1c0…3d1e0 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 4e 4f 54 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 ┆ BEGIN IF NOT BUFSTAT.OCCUPIE┆
0x3d1e0…3d200 44 20 54 48 45 4e 0d 0a 20 20 20 20 49 46 20 47 45 54 46 49 4c 45 20 54 48 45 4e 20 20 20 20 20 ┆D THEN IF GETFILE THEN ┆
0x3d200…3d220 (27, 1, 1) 52 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 45 54 54 59 3b ┆R'; PRETTY;┆
0x3d220…3d240 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4e 54 52 46 41 43 45 2e 4e ┆ INTRFACE.N┆
0x3d240…3d260 45 58 54 5f 43 4d 44 20 3a 3d 20 27 45 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EXT_CMD := 'E'; ┆
0x3d260…3d280 20 20 20 20 20 53 42 5f 43 4c 52 5f 53 43 52 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SB_CLR_SCRN ┆
0x3d280…3d2a0 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 ┆ END END; ┆
0x3d2a0…3d2c0 20 20 20 20 20 27 58 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'X' : BEGIN ┆
0x3d2c0…3d2e0 20 20 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SB_FLUSH_BUF; ┆
0x3d2e0…3d300 20 46 53 54 52 49 4e 47 20 3a 3d 20 27 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FSTRING := ''; ┆
0x3d300…3d320 20 4d 54 52 55 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 ┆ MTRUN END; ┆
0x3d320…3d340 20 20 20 20 27 51 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'Q' : BEGIN ┆
0x3d340…3d360 20 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 20 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 20 ┆ INTRFACE.PREV_CMD := ' '; ┆
0x3d360…3d380 20 20 20 20 20 20 20 20 20 20 20 20 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 20 20 20 20 20 ┆ SB_FLUSH_BUF; ┆
0x3d380…3d3a0 20 20 20 20 20 20 20 20 20 20 20 49 46 20 42 55 46 53 54 41 54 2e 4f 43 43 55 50 49 45 44 20 54 ┆ IF BUFSTAT.OCCUPIED T┆
0x3d3a0…3d3c0 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4d 44 43 48 20 3a 3d 20 ┆HEN CMDCH := ┆
0x3d3c0…3d3e0 27 40 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 ┆'@' ELSE ┆
0x3d3e0…3d400 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3d400…3d420 (27, 1, 2) 3c 70 61 72 6d 3e 20 3d 20 28 3c 6e 61 6d 65 3e 20 6f 72 20 3c 6e 75 6d 3e 29 20 2b 2f 2d 20 3c ┆<parm> = (<name> or <num>) +/- <┆
0x3d420…3d440 6e 75 6d 3e 0d 0a 3c 6e 75 6d 3e 20 20 3d 20 3c 69 6e 74 3e 20 6f 72 20 24 20 3c 68 65 78 6e 75 ┆num> <num> = <int> or $ <hexnu┆
0x3d440…3d460 6d 3e 0d 0a 3c 6e 61 6d 65 3e 20 3d 20 3c 76 61 72 6e 61 6d 65 3e 20 6f 72 20 3c 70 72 6f 63 6e ┆m> <name> = <varname> or <procn┆
0x3d460…3d480 61 6d 65 3e 20 3a 20 3c 76 61 72 6e 61 6d 65 3e 0d 0a 0d 0a 44 69 73 70 6c 61 79 20 63 6f 6d 6d ┆ame> : <varname> Display comm┆
0x3d480…3d4a0 61 6e 64 73 3a 0d 0a 44 3f 20 3c 70 61 72 6d 3e 20 77 68 65 72 65 20 3f 20 69 73 20 61 73 20 66 ┆ands: D? <parm> where ? is as f┆
0x3d4a0…3d4c0 6f 6c 6c 6f 77 73 0d 0a 49 20 2d 20 49 4e 54 45 47 45 52 20 20 20 43 20 2d 20 43 48 41 52 20 20 ┆ollows I - INTEGER C - CHAR ┆
0x3d4c0…3d4e0 20 20 20 20 4c 20 2d 20 42 4f 4f 4c 45 41 4e 20 20 20 52 20 2d 20 52 45 41 4c 0d 0a 42 20 2d 20 ┆ L - BOOLEAN R - REAL B - ┆
0x3d4e0…3d500 42 59 54 45 20 20 20 20 20 20 57 20 2d 20 57 4f 52 44 20 20 20 20 20 20 53 20 2d 20 53 54 52 49 ┆BYTE W - WORD S - STRI┆
0x3d500…3d520 4e 47 20 20 20 20 58 20 2d 20 45 58 54 45 4e 44 45 44 0d 0a 56 20 2d 20 76 61 72 20 62 79 20 6e ┆NG X - EXTENDED V - var by n┆
0x3d520…3d540 61 6d 65 0d 0a 50 4e 20 2d 20 64 69 73 70 6c 61 79 20 70 72 6f 63 6e 61 6d 65 73 0d 0a 56 4e 20 ┆ame PN - display procnames VN ┆
0x3d540…3d560 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 64 69 73 70 6c 61 79 20 61 6c 6c 20 76 61 72 20 6e 61 6d ┆<procname> - display all var nam┆
0x3d560…3d580 65 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 63 0d 0a 53 42 ┆es associated with this proc SB┆
0x3d580…3d5a0 20 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 53 65 74 20 62 72 65 61 6b 70 6f 69 6e 74 0d 0a 52 42 ┆ <procname> - Set breakpoint RB┆
0x3d5a0…3d5c0 20 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 52 65 6d 6f 76 65 20 62 72 65 61 6b 70 6f 69 6e 74 0d ┆ <procname> - Remove breakpoint ┆
0x3d5c0…3d5e0 0a 45 2b 20 20 20 20 45 6e 74 72 79 2f 45 78 69 74 20 64 69 73 70 6c 61 79 20 6f 6e 0d 0a 45 2d ┆ E+ Entry/Exit display on E-┆
0x3d5e0…3d600 20 20 20 20 45 6e 74 72 79 2f 45 78 69 74 20 64 69 73 70 6c 61 79 20 6f 66 66 0d 0a 42 45 20 20 ┆ Entry/Exit display off BE ┆
0x3d600…3d620 (27, 1, 3) 20 20 20 20 20 20 20 20 53 42 5f 43 4c 52 5f 53 43 52 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ SB_CLR_SCRN; ┆
0x3d620…3d640 20 20 20 20 20 20 20 20 20 20 45 58 49 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ EXIT ┆
0x3d640…3d660 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 ┆ END END; ┆
0x3d660…3d680 20 20 20 27 4c 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 'L' : BEGIN ┆
0x3d680…3d6a0 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 ┆SB_FLUSH_BUF; F┆
0x3d6a0…3d6c0 53 54 52 49 4e 47 20 3a 3d 20 27 4c 49 4e 4b 4d 54 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆STRING := 'LINKMT'; ┆
0x3d6c0…3d6e0 20 20 20 20 20 4d 54 52 55 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆ MTRUN END; ┆
0x3d6e0…3d700 20 20 20 20 20 20 20 20 27 46 27 20 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 'F' : BEGIN ┆
0x3d700…3d720 20 20 20 20 20 49 46 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 20 54 48 45 4e 0d 0a ┆ IF GET_FILE_INTO_BUF THEN ┆
0x3d720…3d740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3d740…3d760 20 20 20 20 20 20 20 20 20 20 20 20 20 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 20 20 20 20 ┆ SB_FLUSH_BUF; ┆
0x3d760…3d780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 53 54 52 49 4e 47 20 3a 3d 20 27 46 41 53 54 ┆ FSTRING := 'FAST┆
0x3d780…3d7a0 43 4f 4d 50 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 ┆COMP'; MOVE┆
0x3d7a0…3d7c0 28 45 4e 44 46 49 4c 45 2c 4d 45 4d 4f 52 59 5b 41 44 44 52 28 42 55 46 29 2d 32 5d 2c 32 29 3b ┆(ENDFILE,MEMORYÆADDR(BUF)-2Å,2);┆
0x3d7c0…3d7e0 28 2a 20 53 45 54 20 55 50 20 49 4e 54 45 47 45 52 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆(* SET UP INTEGER *) ┆
0x3d7e0…3d800 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 28 4e 41 4d 45 2c 4d 45 4d 4f 52 59 5b 41 44 44 52 28 ┆ MOVE(NAME,MEMORYÆADDR(┆
0x3d800…3d820 (27, 1, 4) 20 20 42 65 67 69 6e 20 65 78 65 63 20 61 74 20 73 74 61 72 74 20 6f 66 20 75 73 65 72 20 70 72 ┆ Begin exec at start of user pr┆
0x3d820…3d840 6f 67 0d 0a 47 4f 20 20 20 20 43 6f 6e 74 69 6e 75 65 20 65 78 65 63 20 66 72 6f 6d 20 62 72 65 ┆og GO Continue exec from bre┆
0x3d840…3d860 61 6b 70 6f 6e 74 0d 0a 54 52 20 20 20 20 20 45 78 65 63 20 6f 6e 65 20 50 61 73 63 61 6c 20 73 ┆akpont TR Exec one Pascal s┆
0x3d860…3d880 74 61 74 65 6d 65 6e 74 20 61 6e 64 20 72 65 74 75 72 6e 0d 0a 54 3c 6e 75 6d 3e 20 45 78 65 63 ┆tatement and return T<num> Exec┆
0x3d880…3d8a0 20 3c 6e 75 6d 3e 20 50 61 73 63 61 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 ┆ <num> Pascal statements and ret┆
0x3d8a0…3d8c0 75 72 6e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆urn ┆
0x3d8c0…3d8e0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x3d900…3d920 4e 47 20 20 20 20 58 20 2d 20 45 58 54 45 4e 44 45 44 0d 0a 56 20 2d 20 76 61 72 20 62 79 20 6e ┆NG X - EXTENDED V - var by n┆
0x3d920…3d940 61 6d 65 0d 0a 50 4e 20 2d 20 64 69 73 70 6c 61 79 20 70 72 6f 63 6e 61 6d 65 73 0d 0a 56 4e 20 ┆ame PN - display procnames VN ┆
0x3d940…3d960 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 64 69 73 70 6c 61 79 20 61 6c 6c 20 76 61 72 20 6e 61 6d ┆<procname> - display all var nam┆
0x3d960…3d980 65 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 63 0d 0a 53 42 ┆es associated with this proc SB┆
0x3d980…3d9a0 20 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 53 65 74 20 62 72 65 61 6b 70 6f 69 6e 74 0d 0a 52 42 ┆ <procname> - Set breakpoint RB┆
0x3d9a0…3d9c0 20 3c 70 72 6f 63 6e 61 6d 65 3e 20 2d 20 52 65 6d 6f 76 65 20 62 72 65 61 6b 70 6f 69 6e 74 0d ┆ <procname> - Remove breakpoint ┆
0x3d9c0…3d9e0 0a 45 2b 20 20 20 20 45 6e 74 72 79 2f 45 78 69 74 20 64 69 73 70 6c 61 79 20 6f 6e 0d 0a 45 2d ┆ E+ Entry/Exit display on E-┆
0x3d9e0…3da00 20 20 20 20 45 6e 74 72 79 2f 45 78 69 74 20 64 69 73 70 6c 61 79 20 6f 66 66 0d 0a 42 45 20 20 ┆ Entry/Exit display off BE ┆
0x3da00…3da20 (27, 1, 5) 42 55 46 29 2d 38 33 5d 2c 38 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BUF)-83Å,81); ┆
0x3da20…3da40 20 20 20 4d 54 52 55 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d ┆ MTRUN END ┆
0x3da40…3da60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a ┆ END END; ┆
0x3da60…3da80 20 20 20 20 20 20 43 4d 44 43 48 20 3a 3d 20 49 4e 54 52 46 41 43 45 2e 4e 45 58 54 5f 43 4d 44 ┆ CMDCH := INTRFACE.NEXT_CMD┆
0x3da80…3daa0 3b 0d 0a 20 20 20 20 55 4e 54 49 4c 20 28 43 4d 44 43 48 20 3d 20 27 20 27 29 20 4f 52 20 28 43 ┆; UNTIL (CMDCH = ' ') OR (C┆
0x3daa0…3dac0 4d 44 43 48 20 3d 20 49 4e 54 52 46 41 43 45 2e 50 52 45 56 5f 43 4d 44 29 3b 0d 0a 20 20 55 4e ┆MDCH = INTRFACE.PREV_CMD); UN┆
0x3dac0…3dae0 54 49 4c 20 46 41 4c 53 45 0d 0a 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆TIL FALSE END. ┆
0x3dae0…3db00 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x3db00…3db20 20 20 20 20 20 49 46 20 47 45 54 5f 46 49 4c 45 5f 49 4e 54 4f 5f 42 55 46 20 54 48 45 4e 0d 0a ┆ IF GET_FILE_INTO_BUF THEN ┆
0x3db20…3db40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 ┆ BEGIN ┆
0x3db40…3db60 20 20 20 20 20 20 20 20 20 20 20 20 20 53 42 5f 46 4c 55 53 48 5f 42 55 46 3b 0d 0a 20 20 20 20 ┆ SB_FLUSH_BUF; ┆
0x3db60…3db80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 53 54 52 49 4e 47 20 3a 3d 20 27 46 41 53 54 ┆ FSTRING := 'FAST┆
0x3db80…3dba0 43 4f 4d 50 27 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 ┆COMP'; MOVE┆
0x3dba0…3dbc0 28 45 4e 44 46 49 4c 45 2c 4d 45 4d 4f 52 59 5b 41 44 44 52 28 42 55 46 29 2d 32 5d 2c 32 29 3b ┆(ENDFILE,MEMORYÆADDR(BUF)-2Å,2);┆
0x3dbc0…3dbe0 28 2a 20 53 45 54 20 55 50 20 49 4e 54 45 47 45 52 20 2a 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆(* SET UP INTEGER *) ┆
0x3dbe0…3dc00 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 28 4e 41 4d 45 2c 4d 45 4d 4f 52 59 5b 41 44 44 52 28 ┆ MOVE(NAME,MEMORYÆADDR(┆
0x3dc00…3de00 (27, 1, 6) 0xe5[0x200]
[…0x3…]
0x3e400…3e420 (28, 0, 1) 20 20 31 20 20 45 72 72 6f 72 20 69 6e 20 74 79 70 65 0d 0a 20 20 32 20 20 49 64 65 6e 74 69 66 ┆ 1 Error in type 2 Identif┆
0x3e420…3e440 69 65 72 0d 0a 20 20 33 20 20 27 50 52 4f 47 52 41 4d 27 0d 0a 20 20 34 20 20 27 29 27 0d 0a 20 ┆ier 3 'PROGRAM' 4 ')' ┆
0x3e440…3e460 20 35 20 20 27 3a 27 0d 0a 20 20 36 20 20 49 6c 6c 65 67 61 6c 20 73 79 6d 62 6f 6c 0d 0a 20 20 ┆ 5 ':' 6 Illegal symbol ┆
0x3e460…3e480 37 20 20 45 72 72 6f 72 20 69 6e 20 70 61 72 6d 20 6c 69 73 74 0d 0a 20 20 38 20 20 27 4f 46 27 ┆7 Error in parm list 8 'OF'┆
0x3e480…3e4a0 0d 0a 20 20 39 20 20 27 28 27 0d 0a 20 31 30 20 20 45 72 72 6f 72 20 69 6e 20 74 79 70 65 0d 0a ┆ 9 '(' 10 Error in type ┆
0x3e4a0…3e4c0 20 31 31 20 20 27 5b 27 0d 0a 20 31 32 20 20 27 5d 27 0d 0a 20 31 33 20 20 27 45 4e 44 27 0d 0a ┆ 11 'Æ' 12 'Å' 13 'END' ┆
0x3e4c0…3e4e0 20 31 34 20 20 27 3b 27 0d 0a 20 31 35 20 20 49 6e 74 65 67 65 72 0d 0a 20 31 36 20 20 27 3d 27 ┆ 14 ';' 15 Integer 16 '='┆
0x3e4e0…3e500 0d 0a 20 31 37 20 20 27 42 45 47 49 4e 27 0d 0a 20 31 38 20 20 45 72 72 6f 72 20 69 6e 20 64 65 ┆ 17 'BEGIN' 18 Error in de┆
0x3e500…3e520 63 6c 61 72 61 74 69 6f 6e 20 70 61 72 74 0d 0a 20 31 39 20 20 65 72 72 6f 72 20 69 6e 20 3c 66 ┆claration part 19 error in <f┆
0x3e520…3e540 69 65 6c 64 2d 6c 69 73 74 3e 0d 0a 20 32 30 20 20 27 2e 27 0d 0a 20 32 31 20 20 27 2a 27 0d 0a ┆ield-list> 20 '.' 21 '*' ┆
0x3e540…3e560 20 35 30 20 20 45 72 72 6f 72 20 69 6e 20 63 6f 6e 73 74 61 6e 74 0d 0a 20 35 31 20 20 27 3a 3d ┆ 50 Error in constant 51 ':=┆
0x3e560…3e580 27 0d 0a 20 35 32 20 20 27 54 48 45 4e 27 0d 0a 20 35 33 20 20 27 55 4e 54 49 4c 27 0d 0a 20 35 ┆' 52 'THEN' 53 'UNTIL' 5┆
0x3e580…3e5a0 34 20 20 27 44 4f 27 0d 0a 20 35 35 20 20 27 54 4f 27 20 6f 72 20 27 44 4f 57 4e 54 4f 27 0d 0a ┆4 'DO' 55 'TO' or 'DOWNTO' ┆
0x3e5a0…3e5c0 20 35 36 20 20 27 49 46 27 0d 0a 20 35 37 20 20 27 46 49 4c 45 27 0d 0a 20 35 38 20 20 45 72 72 ┆ 56 'IF' 57 'FILE' 58 Err┆
0x3e5c0…3e5e0 6f 72 20 69 6e 20 3c 66 61 63 74 6f 72 3e 0d 0a 20 35 39 20 20 45 72 72 6f 72 20 69 6e 20 76 61 ┆or in <factor> 59 Error in va┆
0x3e5e0…3e600 72 69 61 62 6c 65 0d 0a 20 39 39 20 20 4d 4f 44 45 4e 44 0d 0a 31 30 35 20 20 73 69 67 6e 20 6e ┆riable 99 MODEND 105 sign n┆
0x3e600…3e620 (28, 0, 2) 32 31 20 20 27 2a 27 20 65 78 70 65 63 74 65 64 0d 0a 20 35 30 20 20 45 72 72 6f 72 20 69 6e 20 ┆21 '*' expected 50 Error in ┆
0x3e620…3e640 63 6f 6e 73 74 61 6e 74 0d 0a 20 35 31 20 20 27 3a 3d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 35 ┆constant 51 ':=' expected 5┆
0x3e640…3e660 32 20 20 27 54 48 45 4e 27 20 65 78 70 65 63 74 65 64 0d 0a 20 35 33 20 20 27 55 4e 54 49 4c 27 ┆2 'THEN' expected 53 'UNTIL'┆
0x3e660…3e680 20 65 78 70 65 63 74 65 64 0d 0a 20 35 34 20 20 27 44 4f 27 20 65 78 70 65 63 74 65 64 0d 0a 20 ┆ expected 54 'DO' expected ┆
0x3e680…3e6a0 35 35 20 20 27 54 4f 27 20 6f 72 20 27 44 4f 57 4e 54 4f 27 20 65 78 70 65 63 74 65 64 20 69 6e ┆55 'TO' or 'DOWNTO' expected in┆
0x3e6a0…3e6c0 20 46 4f 52 20 73 74 61 74 65 6d 65 6e 74 0d 0a 20 35 36 20 20 27 49 46 27 20 65 78 70 65 63 74 ┆ FOR statement 56 'IF' expect┆
0x3e6c0…3e6e0 65 64 0d 0a 20 35 37 20 20 27 46 49 4c 45 27 20 65 78 70 65 63 74 65 64 0d 0a 20 35 38 20 20 45 ┆ed 57 'FILE' expected 58 E┆
0x3e6e0…3e700 72 72 6f 72 20 69 6e 20 3c 66 61 63 74 6f 72 3e 20 28 62 61 64 20 65 78 70 72 65 73 73 69 6f 6e ┆rror in <factor> (bad expression┆
0x3e700…3e720 29 0d 0a 20 35 39 20 20 45 72 72 6f 72 20 69 6e 20 76 61 72 69 61 62 6c 65 0d 0a 20 39 39 20 20 ┆) 59 Error in variable 99 ┆
0x3e720…3e740 4d 4f 44 45 4e 44 20 65 78 70 65 63 74 65 64 0d 0a 31 30 31 20 20 49 64 65 6e 74 69 66 69 65 72 ┆MODEND expected 101 Identifier┆
0x3e740…3e760 20 64 65 63 6c 61 72 65 64 20 74 77 69 63 65 0d 0a 31 30 32 20 20 4c 6f 77 20 62 6f 75 6e 64 20 ┆ declared twice 102 Low bound ┆
0x3e760…3e780 65 78 63 65 65 64 73 20 68 69 67 68 20 62 6f 75 6e 64 0d 0a 31 30 33 20 20 49 64 65 6e 74 69 66 ┆exceeds high bound 103 Identif┆
0x3e780…3e7a0 69 65 72 20 69 73 20 6e 6f 74 20 6f 66 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 63 6c ┆ier is not of the appropriate cl┆
0x3e7a0…3e7c0 61 73 73 0d 0a 31 30 34 20 20 55 6e 64 65 63 6c 61 72 65 64 20 69 64 65 6e 74 69 66 69 65 72 0d ┆ass 104 Undeclared identifier ┆
0x3e7c0…3e7e0 0a 31 30 35 20 20 73 69 67 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 30 36 20 20 4e 75 6d ┆ 105 sign not allowed 106 Num┆
0x3e7e0…3e800 62 65 72 20 65 78 70 65 63 74 65 64 0d 0a 31 30 37 20 20 49 6e 63 6f 6d 70 61 74 69 62 6c 65 20 ┆ber expected 107 Incompatible ┆
0x3e800…3e820 (28, 0, 3) 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 30 36 20 20 4e 75 6d 62 65 72 20 65 78 70 65 63 74 65 64 ┆ot allowed 106 Number expected┆
0x3e820…3e840 0d 0a 31 30 38 20 20 46 69 6c 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 68 65 72 65 0d 0a 31 37 ┆ 108 File not allowed here 17┆
0x3e840…3e860 34 20 20 50 61 73 63 61 6c 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 70 72 6f 63 65 64 75 72 65 20 ┆4 Pascal function or procedure ┆
0x3e860…3e880 65 78 70 65 63 74 65 64 0d 0a 31 38 33 20 20 45 78 74 65 72 6e 61 6c 20 64 65 63 6c 61 72 61 74 ┆expected 183 External declarat┆
0x3e880…3e8a0 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 61 74 20 74 68 69 73 20 6e 65 73 74 69 6e 67 20 ┆ion not allowed at this nesting ┆
0x3e8a0…3e8c0 6c 65 76 65 6c 0d 0a 32 30 31 20 20 45 72 72 6f 72 20 69 6e 20 72 65 61 6c 20 6e 75 6d 62 65 72 ┆level 201 Error in real number┆
0x3e8c0…3e8e0 20 2d 20 64 69 67 69 74 20 65 78 70 65 63 74 65 64 0d 0a 32 30 32 20 20 53 74 72 69 6e 67 20 63 ┆ - digit expected 202 String c┆
0x3e8e0…3e900 6f 6e 73 74 61 6e 74 20 6d 75 73 74 20 6e 6f 74 20 65 78 63 65 65 64 20 73 6f 75 72 63 65 20 6c ┆onstant must not exceed source l┆
0x3e900…3e920 69 6e 65 0d 0a 32 30 36 20 20 49 6c 6c 65 67 61 6c 20 72 65 61 6c 20 6e 75 6d 62 65 72 0d 0a 33 ┆ine 206 Illegal real number 3┆
0x3e920…3e940 39 38 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 72 69 63 74 69 6f 6e 0d 0a ┆98 Implementation restriction ┆
0x3e940…3e960 33 39 39 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 72 69 63 74 69 6f 6e 0d ┆399 Implementation restriction ┆
0x3e960…3e980 0a 34 30 30 20 20 49 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 65 78 74 0d ┆ 400 Illegal character in text ┆
0x3e980…3e9a0 0a 34 30 33 20 20 45 72 72 6f 72 20 69 6e 20 72 65 61 64 69 6e 67 20 69 6e 63 6c 75 64 65 20 66 ┆ 403 Error in reading include f┆
0x3e9a0…3e9c0 69 6c 65 0d 0a 34 30 34 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 6c 69 73 74 20 ┆ile 404 Error in writing list ┆
0x3e9c0…3e9e0 66 69 6c 65 2c 20 6e 6f 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 37 20 20 4e 61 6d 65 ┆file, not enough room 407 Name┆
0x3e9e0…3ea00 20 74 61 62 6c 65 20 65 78 63 65 65 64 65 64 20 6d 65 6d 6f 72 79 2c 20 73 6f 72 72 79 2e 0d 0a ┆ table exceeded memory, sorry. ┆
0x3ea00…3ea20 (28, 0, 4) 73 75 62 72 61 6e 67 65 20 74 79 70 65 73 0d 0a 31 30 38 20 20 46 69 6c 65 20 6e 6f 74 20 61 6c ┆subrange types 108 File not al┆
0x3ea20…3ea40 6c 6f 77 65 64 20 68 65 72 65 0d 0a 31 30 39 20 20 54 79 70 65 20 6d 75 73 74 20 6e 6f 74 20 62 ┆lowed here 109 Type must not b┆
0x3ea40…3ea60 65 20 72 65 61 6c 0d 0a 31 31 30 20 20 3c 74 61 67 66 69 65 6c 64 3e 20 74 79 70 65 20 6d 75 73 ┆e real 110 <tagfield> type mus┆
0x3ea60…3ea80 74 20 62 65 20 73 63 61 6c 61 72 20 6f 72 20 73 75 62 72 61 6e 67 65 0d 0a 31 31 31 20 20 49 6e ┆t be scalar or subrange 111 In┆
0x3ea80…3eaa0 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 3c 74 61 67 66 69 65 6c 64 3e 20 70 61 72 74 0d ┆compatible with <tagfield> part ┆
0x3eaa0…3eac0 0a 31 31 32 20 20 49 6e 64 65 78 20 74 79 70 65 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 72 65 61 ┆ 112 Index type must not be rea┆
0x3eac0…3eae0 6c 0d 0a 31 31 33 20 20 49 6e 64 65 78 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 61 20 73 63 61 ┆l 113 Index type must be a sca┆
0x3eae0…3eb00 6c 61 72 20 6f 72 20 61 20 73 75 62 72 61 6e 67 65 0d 0a 31 31 34 20 20 42 61 73 65 20 74 79 70 ┆lar or a subrange 114 Base typ┆
0x3eb00…3eb20 65 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 72 65 61 6c 0d 0a 31 31 35 20 20 42 61 73 65 20 74 79 ┆e must not be real 115 Base ty┆
0x3eb20…3eb40 70 65 20 6d 75 73 74 20 62 65 20 61 20 73 63 61 6c 61 72 20 6f 72 20 61 20 73 75 62 72 61 6e 67 ┆pe must be a scalar or a subrang┆
0x3eb40…3eb60 65 0d 0a 31 31 36 20 20 45 72 72 6f 72 20 69 6e 20 74 79 70 65 20 6f 66 20 73 74 61 6e 64 61 72 ┆e 116 Error in type of standar┆
0x3eb60…3eb80 64 20 70 72 6f 63 65 64 75 72 65 20 70 61 72 61 6d 65 74 65 72 0d 0a 31 31 37 20 20 55 6e 73 61 ┆d procedure parameter 117 Unsa┆
0x3eb80…3eba0 74 69 73 69 66 69 65 64 20 66 6f 72 77 61 72 64 20 72 65 66 65 72 65 6e 63 65 0d 0a 31 31 38 20 ┆tisified forward reference 118 ┆
0x3eba0…3ebc0 20 46 6f 72 77 61 72 64 20 72 65 66 65 72 65 6e 63 65 20 74 79 70 65 20 69 64 65 6e 74 69 66 69 ┆ Forward reference type identifi┆
0x3ebc0…3ebe0 65 72 20 69 6e 20 76 61 72 69 61 62 6c 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 31 31 39 20 ┆er in variable declaration 119 ┆
0x3ebe0…3ec00 20 52 65 2d 73 70 65 63 69 66 69 65 64 20 70 61 72 61 6d 73 20 6e 6f 74 20 4f 4b 20 66 6f 72 20 ┆ Re-specified params not OK for ┆
0x3ec00…3ec20 (28, 0, 5) 34 39 36 20 20 49 6e 76 61 6c 69 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 49 4e 4c 49 4e 45 20 ┆496 Invalid argument to INLINE ┆
0x3ec20…3ec40 70 73 65 75 64 6f 20 70 72 6f 63 65 64 75 72 65 0d 0a 20 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆pseudo procedure ┆
0x3ec40…3ec60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x3ec80…3eca0 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 61 74 20 74 68 69 73 20 6e 65 73 74 69 6e 67 20 ┆ion not allowed at this nesting ┆
0x3eca0…3ecc0 6c 65 76 65 6c 0d 0a 32 30 31 20 20 45 72 72 6f 72 20 69 6e 20 72 65 61 6c 20 6e 75 6d 62 65 72 ┆level 201 Error in real number┆
0x3ecc0…3ece0 20 2d 20 64 69 67 69 74 20 65 78 70 65 63 74 65 64 0d 0a 32 30 32 20 20 53 74 72 69 6e 67 20 63 ┆ - digit expected 202 String c┆
0x3ece0…3ed00 6f 6e 73 74 61 6e 74 20 6d 75 73 74 20 6e 6f 74 20 65 78 63 65 65 64 20 73 6f 75 72 63 65 20 6c ┆onstant must not exceed source l┆
0x3ed00…3ed20 69 6e 65 0d 0a 32 30 36 20 20 49 6c 6c 65 67 61 6c 20 72 65 61 6c 20 6e 75 6d 62 65 72 0d 0a 33 ┆ine 206 Illegal real number 3┆
0x3ed20…3ed40 39 38 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 72 69 63 74 69 6f 6e 0d 0a ┆98 Implementation restriction ┆
0x3ed40…3ed60 33 39 39 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 72 69 63 74 69 6f 6e 0d ┆399 Implementation restriction ┆
0x3ed60…3ed80 0a 34 30 30 20 20 49 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 74 65 78 74 0d ┆ 400 Illegal character in text ┆
0x3ed80…3eda0 0a 34 30 33 20 20 45 72 72 6f 72 20 69 6e 20 72 65 61 64 69 6e 67 20 69 6e 63 6c 75 64 65 20 66 ┆ 403 Error in reading include f┆
0x3eda0…3edc0 69 6c 65 0d 0a 34 30 34 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 6c 69 73 74 20 ┆ile 404 Error in writing list ┆
0x3edc0…3ede0 66 69 6c 65 2c 20 6e 6f 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 37 20 20 4e 61 6d 65 ┆file, not enough room 407 Name┆
0x3ede0…3ee00 20 74 61 62 6c 65 20 65 78 63 65 65 64 65 64 20 6d 65 6d 6f 72 79 2c 20 73 6f 72 72 79 2e 0d 0a ┆ table exceeded memory, sorry. ┆
0x3ee00…3ee20 (28, 0, 6) 61 20 66 6f 72 77 61 72 64 20 64 65 63 6c 61 72 65 64 20 70 72 6f 63 65 64 75 72 65 0d 0a 31 32 ┆a forward declared procedure 12┆
0x3ee20…3ee40 30 20 20 46 75 6e 63 74 69 6f 6e 20 72 65 73 75 6c 74 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 ┆0 Function result type must be ┆
0x3ee40…3ee60 73 63 61 6c 61 72 2c 20 73 75 62 72 61 6e 67 65 20 6f 72 20 70 6f 69 6e 74 65 72 0d 0a 31 32 31 ┆scalar, subrange or pointer 121┆
0x3ee60…3ee80 20 20 46 69 6c 65 20 76 61 6c 75 65 20 70 61 72 61 6d 65 74 65 72 20 6e 6f 74 20 61 6c 6c 6f 77 ┆ File value parameter not allow┆
0x3ee80…3eea0 65 64 0d 0a 31 32 32 20 20 41 20 66 6f 72 77 61 72 64 20 64 65 63 6c 61 72 65 64 20 66 75 6e 63 ┆ed 122 A forward declared func┆
0x3eea0…3eec0 74 69 6f 6e 27 73 20 72 65 73 75 6c 74 20 74 79 70 65 20 63 61 6e 27 74 20 62 65 20 72 65 2d 73 ┆tion's result type can't be re-s┆
0x3eec0…3eee0 70 65 63 69 66 69 65 64 0d 0a 31 32 33 20 20 4d 69 73 73 69 6e 67 20 72 65 73 75 6c 74 20 74 79 ┆pecified 123 Missing result ty┆
0x3eee0…3ef00 70 65 20 69 6e 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 31 32 35 20 ┆pe in function declaration 125 ┆
0x3ef00…3ef20 20 45 72 72 6f 72 20 69 6e 20 74 79 70 65 20 6f 66 20 73 74 61 6e 64 61 72 64 20 70 72 6f 63 65 ┆ Error in type of standard proce┆
0x3ef20…3ef40 64 75 72 65 20 70 61 72 61 6d 65 74 65 72 0d 0a 31 32 36 20 20 4e 75 6d 62 65 72 20 6f 66 20 70 ┆dure parameter 126 Number of p┆
0x3ef40…3ef60 61 72 61 6d 65 74 65 72 73 20 64 6f 65 73 20 6e 6f 74 20 61 67 72 65 65 20 77 69 74 68 20 64 65 ┆arameters does not agree with de┆
0x3ef60…3ef80 63 6c 61 72 61 74 69 6f 6e 0d 0a 31 32 37 20 20 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 ┆claration 127 Illegal paramete┆
0x3ef80…3efa0 72 20 73 75 62 73 74 69 74 75 74 69 6f 6e 0d 0a 31 32 38 20 20 52 65 73 75 6c 74 20 74 79 70 65 ┆r substitution 128 Result type┆
0x3efa0…3efc0 20 64 6f 65 73 20 6e 6f 74 20 61 67 72 65 65 20 77 69 74 68 20 64 65 63 6c 61 72 61 74 69 6f 6e ┆ does not agree with declaration┆
0x3efc0…3efe0 0d 0a 31 32 39 20 20 54 79 70 65 20 63 6f 6e 66 6c 69 63 74 20 6f 66 20 6f 70 65 72 61 6e 64 73 ┆ 129 Type conflict of operands┆
0x3efe0…3f000 0d 0a 31 33 30 20 20 45 78 70 72 65 73 73 69 6f 6e 20 69 73 20 6e 6f 74 20 6f 66 20 73 65 74 20 ┆ 130 Expression is not of set ┆
0x3f000…3f200 (28, 0, 7) 0xe5[0x200]
0x3f200…3f220 (28, 0, 8) 74 79 70 65 0d 0a 31 33 31 20 20 54 65 73 74 73 20 6f 6e 20 65 71 75 61 6c 69 74 79 20 61 6c 6c ┆type 131 Tests on equality all┆
0x3f220…3f240 6f 77 65 64 20 6f 6e 6c 79 0d 0a 31 33 33 20 20 46 69 6c 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 ┆owed only 133 File comparison ┆
0x3f240…3f260 6e 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 33 34 20 20 49 6c 6c 65 67 61 6c 20 74 79 70 65 20 6f ┆not allowed 134 Illegal type o┆
0x3f260…3f280 66 20 6f 70 65 72 61 6e 64 28 73 29 0d 0a 31 33 35 20 20 54 79 70 65 20 6f 66 20 6f 70 65 72 61 ┆f operand(s) 135 Type of opera┆
0x3f280…3f2a0 6e 64 20 6d 75 73 74 20 62 65 20 62 6f 6f 6c 65 61 6e 0d 0a 31 33 36 20 20 53 65 74 20 65 6c 65 ┆nd must be boolean 136 Set ele┆
0x3f2a0…3f2c0 6d 65 6e 74 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 73 63 61 6c 61 72 20 6f 72 20 73 75 62 72 ┆ment type must be scalar or subr┆
0x3f2c0…3f2e0 61 6e 67 65 0d 0a 31 33 37 20 20 53 65 74 20 65 6c 65 6d 65 6e 74 20 74 79 70 65 73 20 6d 75 73 ┆ange 137 Set element types mus┆
0x3f2e0…3f300 74 20 62 65 20 63 6f 6d 70 61 74 69 62 6c 65 0d 0a 31 33 38 20 20 54 79 70 65 20 6f 66 20 76 61 ┆t be compatible 138 Type of va┆
0x3f300…3f320 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 61 72 72 61 79 0d 0a 31 33 39 20 20 49 6e 64 65 78 20 ┆riable is not array 139 Index ┆
0x3f320…3f340 74 79 70 65 20 69 73 20 6e 6f 74 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 74 68 65 20 ┆type is not compatible with the ┆
0x3f340…3f360 64 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 31 34 30 20 20 54 79 70 65 20 6f 66 20 76 61 72 69 61 62 ┆declaration 140 Type of variab┆
0x3f360…3f380 6c 65 20 69 73 20 6e 6f 74 20 72 65 63 6f 72 64 0d 0a 31 34 31 20 20 54 79 70 65 20 6f 66 20 76 ┆le is not record 141 Type of v┆
0x3f380…3f3a0 61 72 69 61 62 6c 65 20 6d 75 73 74 20 62 65 20 66 69 6c 65 20 6f 72 20 70 6f 69 6e 74 65 72 0d ┆ariable must be file or pointer ┆
0x3f3a0…3f3c0 0a 31 34 32 20 20 49 6c 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 20 73 6f 6c 75 74 69 6f 6e ┆ 142 Illegal parameter solution┆
0x3f3c0…3f3e0 0d 0a 31 34 33 20 20 49 6c 6c 65 67 61 6c 20 74 79 70 65 20 6f 66 20 6c 6f 6f 70 20 63 6f 6e 74 ┆ 143 Illegal type of loop cont┆
0x3f3e0…3f400 72 6f 6c 20 76 61 72 69 61 62 6c 65 0d 0a 31 34 34 20 20 49 6c 6c 65 67 61 6c 20 74 79 70 65 20 ┆rol variable 144 Illegal type ┆
0x3f400…3f420 (28, 0, 9) 20 20 31 20 20 45 72 72 6f 72 20 69 6e 20 73 69 6d 70 6c 65 20 74 79 70 65 0d 0a 20 20 32 20 20 ┆ 1 Error in simple type 2 ┆
0x3f420…3f440 49 64 65 6e 74 69 66 69 65 72 20 65 78 70 65 63 74 65 64 0d 0a 20 20 33 20 20 27 50 52 4f 47 52 ┆Identifier expected 3 'PROGR┆
0x3f440…3f460 41 4d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 20 34 20 20 27 29 27 20 65 78 70 65 63 74 65 64 0d ┆AM' expected 4 ')' expected ┆
0x3f460…3f480 0a 20 20 35 20 20 27 3a 27 20 65 78 70 65 63 74 65 64 0d 0a 20 20 36 20 20 49 6c 6c 65 67 61 6c ┆ 5 ':' expected 6 Illegal┆
0x3f480…3f4a0 20 73 79 6d 62 6f 6c 20 28 70 6f 73 73 69 62 6c 79 20 6d 69 73 73 69 6e 67 20 27 3b 27 20 6f 6e ┆ symbol (possibly missing ';' on┆
0x3f4a0…3f4c0 20 6c 69 6e 65 20 61 62 6f 76 65 29 20 0d 0a 20 20 37 20 20 45 72 72 6f 72 20 69 6e 20 70 61 72 ┆ line above) 7 Error in par┆
0x3f4c0…3f4e0 61 6d 65 74 65 72 20 6c 69 73 74 0d 0a 20 20 38 20 20 27 4f 46 27 20 65 78 70 65 63 74 65 64 0d ┆ameter list 8 'OF' expected ┆
0x3f4e0…3f500 0a 20 20 39 20 20 27 28 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 30 20 20 45 72 72 6f 72 20 69 ┆ 9 '(' expected 10 Error i┆
0x3f500…3f520 6e 20 74 79 70 65 0d 0a 20 31 31 20 20 27 5b 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 32 20 20 ┆n type 11 'Æ' expected 12 ┆
0x3f520…3f540 27 5d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 33 20 20 27 45 4e 44 27 20 65 78 70 65 63 74 65 ┆'Å' expected 13 'END' expecte┆
0x3f540…3f560 64 0d 0a 20 31 34 20 20 27 3b 27 20 65 78 70 65 63 74 65 64 20 28 70 6f 73 73 69 62 6c 79 20 6f ┆d 14 ';' expected (possibly o┆
0x3f560…3f580 6e 20 6c 69 6e 65 20 61 62 6f 76 65 29 0d 0a 20 31 35 20 20 49 6e 74 65 67 65 72 20 65 78 70 65 ┆n line above) 15 Integer expe┆
0x3f580…3f5a0 63 74 65 64 0d 0a 20 31 36 20 20 27 3d 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 37 20 20 27 42 ┆cted 16 '=' expected 17 'B┆
0x3f5a0…3f5c0 45 47 49 4e 27 20 65 78 70 65 63 74 65 64 0d 0a 20 31 38 20 20 45 72 72 6f 72 20 69 6e 20 64 65 ┆EGIN' expected 18 Error in de┆
0x3f5c0…3f5e0 63 6c 61 72 61 74 69 6f 6e 20 70 61 72 74 0d 0a 20 31 39 20 20 65 72 72 6f 72 20 69 6e 20 3c 66 ┆claration part 19 error in <f┆
0x3f5e0…3f600 69 65 6c 64 2d 6c 69 73 74 3e 0d 0a 20 32 30 20 20 27 2e 27 20 65 78 70 65 63 74 65 64 0d 0a 20 ┆ield-list> 20 '.' expected ┆
0x3f600…3f620 (28, 1, 1) 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 0d 0a 31 34 35 20 20 54 79 70 65 20 63 6f 6e 66 6c 69 63 ┆of expression 145 Type conflic┆
0x3f620…3f640 74 0d 0a 31 34 36 20 20 41 73 73 69 67 6e 6d 65 6e 74 20 6f 66 20 66 69 6c 65 73 20 6e 6f 74 20 ┆t 146 Assignment of files not ┆
0x3f640…3f660 61 6c 6c 6f 77 65 64 0d 0a 31 34 37 20 20 4c 61 62 65 6c 20 74 79 70 65 20 69 6e 63 6f 6d 70 61 ┆allowed 147 Label type incompa┆
0x3f660…3f680 74 69 62 6c 65 20 77 69 74 68 20 73 65 6c 65 63 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 0d ┆tible with selecting expression ┆
0x3f680…3f6a0 0a 31 34 38 20 20 53 75 62 72 61 6e 67 65 20 62 6f 75 6e 64 73 20 6d 75 73 74 20 62 65 20 73 63 ┆ 148 Subrange bounds must be sc┆
0x3f6a0…3f6c0 61 6c 61 72 0d 0a 31 34 39 20 20 49 6e 64 65 78 20 74 79 70 65 20 6d 75 73 74 20 62 65 20 69 6e ┆alar 149 Index type must be in┆
0x3f6c0…3f6e0 74 65 67 65 72 0d 0a 31 35 30 20 20 41 73 73 69 67 6e 6d 65 6e 74 20 74 6f 20 73 74 61 6e 64 61 ┆teger 150 Assignment to standa┆
0x3f6e0…3f700 72 64 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 35 31 20 ┆rd function is not allowed 151 ┆
0x3f700…3f720 20 41 73 73 69 67 6e 6d 65 6e 74 20 74 6f 20 66 6f 72 6d 61 6c 20 66 75 6e 63 74 69 6f 6e 20 69 ┆ Assignment to formal function i┆
0x3f720…3f740 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 35 32 20 20 4e 6f 20 73 75 63 68 20 66 69 65 6c ┆s not allowed 152 No such fiel┆
0x3f740…3f760 64 20 69 6e 20 74 68 69 73 20 72 65 63 6f 72 64 0d 0a 31 35 33 20 20 54 79 70 65 20 65 72 72 6f ┆d in this record 153 Type erro┆
0x3f760…3f780 72 20 69 6e 20 72 65 61 64 0d 0a 31 35 34 20 20 41 63 74 75 61 6c 20 70 61 72 61 6d 65 74 65 72 ┆r in read 154 Actual parameter┆
0x3f780…3f7a0 20 6d 75 73 74 20 62 65 20 61 20 76 61 72 69 61 62 6c 65 0d 0a 31 35 35 20 20 43 6f 6e 74 72 6f ┆ must be a variable 155 Contro┆
0x3f7a0…3f7c0 6c 20 76 61 72 69 61 62 6c 65 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f 72 6d 61 6c 20 6f 72 20 6e ┆l variable cannot be formal or n┆
0x3f7c0…3f7e0 6f 6e 2d 6c 6f 63 61 6c 0d 0a 31 35 36 20 20 4d 75 6c 74 69 64 65 66 69 6e 65 64 20 63 61 73 65 ┆on-local 156 Multidefined case┆
0x3f7e0…3f800 20 6c 61 62 65 6c 0d 0a 31 35 37 20 20 54 6f 6f 20 6d 61 6e 79 20 63 61 73 65 73 20 69 6e 20 63 ┆ label 157 Too many cases in c┆
0x3f800…3fa00 (28, 1, 2) 0xe5[0x200]
0x3fa00…3fa20 (28, 1, 3) 61 73 65 20 73 74 61 74 65 6d 65 6e 74 0d 0a 31 35 38 20 20 4e 6f 20 73 75 63 68 20 76 61 72 69 ┆ase statement 158 No such vari┆
0x3fa20…3fa40 61 6e 74 20 69 6e 20 74 68 69 73 20 72 65 63 6f 72 64 0d 0a 31 35 39 20 20 52 65 61 6c 20 6f 72 ┆ant in this record 159 Real or┆
0x3fa40…3fa60 20 73 74 72 69 6e 67 20 74 61 67 66 69 65 6c 64 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 0d 0a 31 ┆ string tagfields not allowed 1┆
0x3fa60…3fa80 36 30 20 20 50 72 65 76 69 6f 75 73 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 77 61 73 20 6e 6f 74 ┆60 Previous declaration was not┆
0x3fa80…3faa0 20 66 6f 72 77 61 72 64 0d 0a 31 36 31 20 20 41 67 61 69 6e 20 66 6f 72 77 61 72 64 20 64 65 63 ┆ forward 161 Again forward dec┆
0x3faa0…3fac0 6c 61 72 65 64 0d 0a 31 36 32 20 20 50 61 72 61 6d 65 74 65 72 20 73 69 7a 65 20 6d 75 73 74 20 ┆lared 162 Parameter size must ┆
0x3fac0…3fae0 62 65 20 63 6f 6e 73 74 61 6e 74 0d 0a 31 36 33 20 20 4d 69 73 73 69 6e 67 20 76 61 72 69 61 6e ┆be constant 163 Missing varian┆
0x3fae0…3fb00 74 20 69 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 0d 0a 31 36 34 20 20 53 75 62 73 74 69 74 69 6f ┆t in declaration 164 Substitio┆
0x3fb00…3fb20 6e 20 6f 66 20 73 74 61 6e 64 61 72 64 20 70 72 6f 63 2f 66 75 6e 63 20 6e 6f 74 20 61 6c 6c 6f ┆n of standard proc/func not allo┆
0x3fb20…3fb40 77 65 64 0d 0a 31 36 35 20 20 4d 75 6c 74 69 64 65 66 69 6e 65 64 20 6c 61 62 65 6c 0d 0a 31 36 ┆wed 165 Multidefined label 16┆
0x3fb40…3fb60 36 20 20 4d 75 6c 74 69 64 65 63 6c 61 72 65 64 20 6c 61 62 65 6c 0d 0a 31 36 37 20 20 55 6e 64 ┆6 Multideclared label 167 Und┆
0x3fb60…3fb80 65 63 6c 61 72 65 64 20 6c 61 62 65 6c 0d 0a 31 36 38 20 20 55 6e 64 65 66 69 6e 65 64 20 6c 61 ┆eclared label 168 Undefined la┆
0x3fb80…3fba0 62 65 6c 0d 0a 31 36 39 20 20 45 72 72 6f 72 20 69 6e 20 62 61 73 65 20 73 65 74 0d 0a 31 37 30 ┆bel 169 Error in base set 170┆
0x3fba0…3fbc0 20 20 56 61 6c 75 65 20 70 61 72 61 6d 65 74 65 72 20 65 78 70 65 63 74 65 64 0d 0a 31 37 31 20 ┆ Value parameter expected 171 ┆
0x3fbc0…3fbe0 20 53 74 61 6e 64 61 72 64 20 66 69 6c 65 20 77 61 73 20 72 65 2d 64 65 63 6c 61 72 65 64 0d 0a ┆ Standard file was re-declared ┆
0x3fbe0…3fc00 31 37 32 20 20 55 6e 64 65 63 6c 61 72 65 64 20 65 78 74 65 72 6e 61 6c 20 66 69 6c 65 0d 0a 31 ┆172 Undeclared external file 1┆
0x3fc00…3fe00 (28, 1, 4) 0xe5[0x200]
0x3fe00…3fe20 (28, 1, 5) 37 34 20 20 50 61 73 63 61 6c 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 70 72 6f 63 65 64 75 72 65 ┆74 Pascal function or procedure┆
0x3fe20…3fe40 20 65 78 70 65 63 74 65 64 0d 0a 31 38 33 20 20 45 78 74 65 72 6e 61 6c 20 64 65 63 6c 61 72 61 ┆ expected 183 External declara┆
0x3fe40…3fe60 74 69 6f 6e 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 61 74 20 74 68 69 73 20 6e 65 73 74 69 6e 67 ┆tion not allowed at this nesting┆
0x3fe60…3fe80 20 6c 65 76 65 6c 0d 0a 31 38 37 20 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 6c 69 62 ┆ level 187 Attempt to open lib┆
0x3fe80…3fea0 72 61 72 79 20 75 6e 73 75 63 63 65 73 73 66 75 6c 0d 0a 31 39 31 20 20 4e 6f 20 70 72 69 76 61 ┆rary unsuccessful 191 No priva┆
0x3fea0…3fec0 74 65 20 66 69 6c 65 73 0d 0a 31 39 33 20 20 4e 6f 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 20 66 ┆te files 193 Not enough room f┆
0x3fec0…3fee0 6f 72 20 74 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 0d 0a 31 39 34 20 20 43 6f 6d 6d 65 6e 74 20 ┆or this operation 194 Comment ┆
0x3fee0…3ff00 6d 75 73 74 20 61 70 70 65 61 72 20 61 74 20 74 6f 70 20 6f 66 20 70 72 6f 67 72 61 6d 0d 0a 32 ┆must appear at top of program 2┆
0x3ff00…3ff20 30 31 20 20 45 72 72 6f 72 20 69 6e 20 72 65 61 6c 20 6e 75 6d 62 65 72 20 2d 20 64 69 67 69 74 ┆01 Error in real number - digit┆
0x3ff20…3ff40 20 65 78 70 65 63 74 65 64 0d 0a 32 30 32 20 20 53 74 72 69 6e 67 20 63 6f 6e 73 74 61 6e 74 20 ┆ expected 202 String constant ┆
0x3ff40…3ff60 6d 75 73 74 20 6e 6f 74 20 65 78 63 65 65 64 20 73 6f 75 72 63 65 20 6c 69 6e 65 0d 0a 32 30 33 ┆must not exceed source line 203┆
0x3ff60…3ff80 20 20 49 6e 74 65 67 65 72 20 63 6f 6e 73 74 61 6e 74 20 65 78 63 65 65 64 73 20 72 61 6e 67 65 ┆ Integer constant exceeds range┆
0x3ff80…3ffa0 0d 0a 32 30 36 20 20 49 6c 6c 65 67 61 6c 20 72 65 61 6c 20 6e 75 6d 62 65 72 0d 0a 32 35 30 20 ┆ 206 Illegal real number 250 ┆
0x3ffa0…3ffc0 20 54 6f 6f 20 6d 61 6e 79 20 73 63 6f 70 65 73 20 6f 66 20 6e 65 73 74 65 64 20 69 64 65 6e 74 ┆ Too many scopes of nested ident┆
0x3ffc0…3ffe0 69 66 69 65 72 73 0d 0a 32 35 31 20 20 54 6f 6f 20 6d 61 6e 79 20 6e 65 73 74 65 64 20 70 72 6f ┆ifiers 251 Too many nested pro┆
0x3ffe0…40000 63 65 64 75 72 65 73 20 6f 72 20 66 75 6e 63 74 69 6f 6e 73 0d 0a 32 35 33 20 20 50 72 6f 63 65 ┆cedures or functions 253 Proce┆
0x40000…40020 (28, 1, 6) 41 4d 44 49 4f 0d 0a 46 50 52 54 4e 53 0d 0a 52 45 41 4c 49 4f 0d 0a 54 52 41 4e 39 35 31 31 0d ┆AMDIO FPRTNS REALIO TRAN9511 ┆
0x40020…40040 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x40040…40060 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x40080…400a0 00 42 43 44 52 45 41 4c 53 45 52 4c 00 00 00 1a 0b 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ BCDREALSERL ┆
0x400a0…400c0 00 41 4d 44 49 4f 20 20 20 53 52 43 00 00 00 0a 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMDIO SRC ┆
0x400c0…400e0 00 46 50 52 45 41 4c 53 20 45 52 4c 00 00 00 3c 0e 00 0f 00 10 00 11 00 00 00 00 00 00 00 00 00 ┆ FPREALS ERL < ┆
0x400e0…40100 00 41 4d 44 39 35 31 31 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMD9511 $$$ ┆
0x40100…40120 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 ┆ ┆
[…0x7…]
0x40200…40220 (28, 1, 7) 64 75 72 65 20 74 6f 6f 20 6c 6f 6e 67 0d 0a 32 35 36 20 20 54 6f 6f 20 6d 61 6e 79 20 65 78 74 ┆dure too long 256 Too many ext┆
0x40220…40240 65 72 6e 61 6c 20 72 65 66 65 72 65 6e 63 65 73 0d 0a 32 35 37 20 20 54 6f 6f 20 6d 61 6e 79 20 ┆ernal references 257 Too many ┆
0x40240…40260 65 78 74 65 72 6e 61 6c 73 0d 0a 32 35 38 20 20 54 6f 6f 20 6d 61 6e 79 20 6c 6f 63 61 6c 20 66 ┆externals 258 Too many local f┆
0x40260…40280 69 6c 65 73 0d 0a 32 35 39 20 20 45 78 70 72 65 73 73 69 6f 6e 20 74 6f 6f 20 63 6f 6d 70 6c 69 ┆iles 259 Expression too compli┆
0x40280…402a0 63 61 74 65 64 0d 0a 33 39 38 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 72 ┆cated 398 Implementation restr┆
0x402a0…402c0 69 63 74 69 6f 6e 0d 0a 33 39 39 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 73 74 ┆iction 399 Implementation rest┆
0x402c0…402e0 72 69 63 74 69 6f 6e 0d 0a 34 30 30 20 20 49 6c 6c 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 20 ┆riction 400 Illegal character ┆
0x402e0…40300 69 6e 20 74 65 78 74 0d 0a 34 30 31 20 20 55 6e 65 78 70 65 63 74 65 64 20 65 6e 64 20 6f 66 20 ┆in text 401 Unexpected end of ┆
0x40300…40320 69 6e 70 75 74 0d 0a 34 30 32 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 63 6f 64 ┆input 402 Error in writing cod┆
0x40320…40340 65 20 66 69 6c 65 2c 20 6e 6f 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 33 20 20 45 72 ┆e file, not enough room 403 Er┆
0x40340…40360 72 6f 72 20 69 6e 20 72 65 61 64 69 6e 67 20 69 6e 63 6c 75 64 65 20 66 69 6c 65 0d 0a 34 30 34 ┆ror in reading include file 404┆
0x40360…40380 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 6c 69 73 74 20 66 69 6c 65 2c 20 6e 6f ┆ Error in writing list file, no┆
0x40380…403a0 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 35 20 20 43 61 6c 6c 20 6e 6f 74 20 61 6c 6c ┆t enough room 405 Call not all┆
0x403a0…403c0 6f 77 65 64 20 69 6e 20 73 65 70 61 72 61 74 65 20 70 72 6f 63 65 64 75 72 65 0d 0a 34 30 36 20 ┆owed in separate procedure 406 ┆
0x403c0…403e0 20 49 6e 63 6c 75 64 65 20 66 69 6c 65 20 6e 6f 74 20 6c 65 67 61 6c 0d 0a 34 30 37 20 20 2a 2a ┆ Include file not legal 407 **┆
0x403e0…40400 2a 20 48 45 41 50 20 4f 56 45 52 46 4c 4f 57 20 2a 2a 2a 0d 0a 34 39 36 20 20 49 6e 76 61 6c 69 ┆* HEAP OVERFLOW *** 496 Invali┆
0x40400…40600 (28, 1, 8) 0xe5[0x200]
0x40600…40620 (28, 1, 9) 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 49 4e 4c 49 4e 45 20 70 73 65 75 64 6f 20 70 72 6f 63 ┆d argument to INLINE pseudo proc┆
0x40620…40640 65 64 75 72 65 0d 0a 34 39 37 20 20 45 72 72 6f 72 20 69 6e 20 63 6c 6f 73 69 6e 67 20 63 6f 64 ┆edure 497 Error in closing cod┆
0x40640…40660 65 20 66 69 6c 65 2e 0d 0a 35 30 30 20 20 4e 6f 6e 2d 49 53 4f 20 65 78 74 65 6e 73 69 6f 6e 20 ┆e file. 500 Non-ISO extension ┆
0x40660…40680 62 65 69 6e 67 20 75 73 65 64 21 0d 0a 35 39 39 20 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e ┆being used! 599 Implementation┆
0x40680…406a0 20 52 65 73 74 72 69 63 74 69 6f 6e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ Restriction ┆
0x406a0…406c0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x40700…40720 69 6e 70 75 74 0d 0a 34 30 32 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 63 6f 64 ┆input 402 Error in writing cod┆
0x40720…40740 65 20 66 69 6c 65 2c 20 6e 6f 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 33 20 20 45 72 ┆e file, not enough room 403 Er┆
0x40740…40760 72 6f 72 20 69 6e 20 72 65 61 64 69 6e 67 20 69 6e 63 6c 75 64 65 20 66 69 6c 65 0d 0a 34 30 34 ┆ror in reading include file 404┆
0x40760…40780 20 20 45 72 72 6f 72 20 69 6e 20 77 72 69 74 69 6e 67 20 6c 69 73 74 20 66 69 6c 65 2c 20 6e 6f ┆ Error in writing list file, no┆
0x40780…407a0 74 20 65 6e 6f 75 67 68 20 72 6f 6f 6d 0d 0a 34 30 35 20 20 43 61 6c 6c 20 6e 6f 74 20 61 6c 6c ┆t enough room 405 Call not all┆
0x407a0…407c0 6f 77 65 64 20 69 6e 20 73 65 70 61 72 61 74 65 20 70 72 6f 63 65 64 75 72 65 0d 0a 34 30 36 20 ┆owed in separate procedure 406 ┆
0x407c0…407e0 20 49 6e 63 6c 75 64 65 20 66 69 6c 65 20 6e 6f 74 20 6c 65 67 61 6c 0d 0a 34 30 37 20 20 2a 2a ┆ Include file not legal 407 **┆
0x407e0…40800 2a 20 48 45 41 50 20 4f 56 45 52 46 4c 4f 57 20 2a 2a 2a 0d 0a 34 39 36 20 20 49 6e 76 61 6c 69 ┆* HEAP OVERFLOW *** 496 Invali┆
0x40800…40a00 (29, 0, 1) 0xe5[0x200]
[…0x2…]
0x40e00…40e20 (29, 0, 4) 53 54 52 49 50 2c 52 41 4e 44 4f 4d 49 4f 2c 50 41 53 4c 49 42 2f 53 2f 44 3a 34 30 30 30 0d 0a ┆STRIP,RANDOMIO,PASLIB/S/D:4000 ┆
0x40e20…40e40 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x40e80…40ea0 1a 84 12 13 c3 69 01 d1 2e 00 e9 00 00 00 00 00 21 cd 67 1b c9 3e 0c d3 01 3e 08 d3 01 db 01 07 ┆ i . ! g > > ┆
0x40ea0…40ec0 07 07 1f da a9 08 c3 9d 08 db 03 e6 7f c9 21 83 1d 70 2b 71 2a 82 1d 44 4d cd a1 07 0e 3a cd 86 ┆ ! p+q* DM : ┆
0x40ec0…40ee0 07 0e 20 cd 86 07 3a 5f 1d 32 84 1d 3a 60 1d 21 84 1d be da f4 08 21 de 1c 3a 84 1d be d2 ed 08 ┆ :_ 2 :` ! ! : ┆
0x40ee0…40f00 2a 84 1d 26 00 01 df 1c 09 4e cd 86 07 21 84 1d 34 c2 cc 08 21 de 1c 36 00 01 4a 01 00 c8 e5 1c ┆* & N ! 4 ! 6 J ┆
0x40f00…40f20 00 53 54 52 49 50 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STRIP $$$ ┆
0x40f20…40f40 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 ┆ ┆
[…0x6…]
0x41000…41020 (29, 0, 5) 41 4d 44 49 4f 0d 0a 46 50 52 54 4e 53 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆AMDIO FPRTNS ┆
0x41020…41040 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x41080…410a0 00 42 43 44 52 45 41 4c 53 45 52 4c 00 00 00 1a 0b 00 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ BCDREALSERL ┆
0x410a0…410c0 00 41 4d 44 49 4f 20 20 20 53 52 43 00 00 00 0a 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMDIO SRC ┆
0x410c0…410e0 00 46 50 52 45 41 4c 53 20 45 52 4c 00 00 00 3c 0e 00 0f 00 10 00 11 00 00 00 00 00 00 00 00 00 ┆ FPREALS ERL < ┆
0x410e0…41100 00 41 4d 44 39 35 31 31 20 43 4d 44 00 00 00 01 12 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMD9511 CMD ┆
0x41100…41120 00 54 52 41 4e 39 35 31 31 53 52 43 00 00 00 0b 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRAN9511SRC ┆
0x41120…41140 00 41 50 55 53 55 42 20 20 4d 41 43 00 00 00 0d 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ APUSUB MAC ┆
0x41140…41160 00 55 54 49 4c 4d 4f 44 20 45 52 4c 00 00 00 03 15 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ UTILMOD ERL ┆
0x41160…41180 00 54 52 41 4e 39 35 31 31 45 52 4c 00 00 00 06 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRAN9511ERL ┆
0x41180…411a0 00 41 4d 44 39 35 31 31 58 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ AMD9511X$$$ ┆
0x411a0…411c0 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 ┆ ┆
[…0x2…]
0x41200…41400 (29, 0, 6) 0xe5[0x200]
[…0x4…]
0x41c00…41c20 (29, 1, 2) 53 50 50 3d 53 50 50 2f 4f 3a 31 0d 0a 53 42 4c 4f 47 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f 50 ┆SPP=SPP/O:1 SBLOG A:PASLIB/S/P┆
0x41c20…41c40 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆:1600 ┆
0x41c40…41c60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x41c80…41ca0 00 53 42 30 30 31 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB001 $$$ ┆
0x41ca0…41cc0 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 ┆ ┆
[…0xa…]
0x41e00…41e20 (29, 1, 3) 53 50 50 3d 4e 53 42 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f 56 31 3a 31 36 30 30 2f 58 3a 31 32 ┆SPP=NSB A:PASLIB/S/V1:1600/X:12┆
0x41e20…41e40 30 30 2f 44 3a 38 33 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆00/D:8300 ┆
0x41e40…41e60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x41e80…41ea0 00 50 50 4d 4f 44 31 20 20 50 41 53 00 00 00 23 7b 00 7c 00 7d 00 00 00 00 00 00 00 00 00 00 00 ┆ PPMOD1 PAS #æ ø å ┆
0x41ea0…41ec0 00 50 52 45 54 54 59 20 20 50 41 53 00 00 00 1e 7e 00 7f 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PRETTY PAS ü ┆
0x41ec0…41ee0 00 50 50 4d 4f 44 32 20 20 50 41 53 00 00 00 1e 80 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPMOD2 PAS ┆
0x41ee0…41f00 00 53 54 52 49 50 20 20 20 53 52 43 00 00 00 12 82 00 83 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STRIP SRC ┆
0x41f00…41f20 00 53 54 52 49 50 20 20 20 43 4d 44 00 00 00 02 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ STRIP CMD ┆
0x41f20…41f40 00 53 50 50 4d 41 49 4e 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SPPMAIN $$$ ┆
0x41f40…41f60 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 ┆ ┆
[…0x5…]
0x42000…42200 (29, 1, 4) 0xe5[0x200]
[…0x5…]
0x42c00…42c20 (30, 0, 1) 53 50 50 3d 53 50 50 2f 4f 3a 36 0d 0a 53 42 52 55 4e 0d 0a 43 48 4e 32 0d 0a 41 3a 50 41 53 4c ┆SPP=SPP/O:6 SBRUN CHN2 A:PASL┆
0x42c20…42c40 49 42 2f 53 2f 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆IB/S/P:1600 ┆
0x42c40…42c60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x42c80…42ca0 00 53 42 30 30 31 20 20 20 43 4d 44 00 00 00 01 9f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB001 CMD ┆
0x42ca0…42cc0 00 53 42 30 30 36 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB006 $$$ ┆
0x42cc0…42ce0 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 ┆ ┆
[…0x9…]
0x42e00…43000 (30, 0, 2) 0xe5[0x200]
[…0x5…]
0x43a00…43a20 (30, 0, 8) 53 50 50 3d 53 50 50 2f 4f 3a 32 0d 0a 45 32 0d 0a 55 54 49 4c 33 0d 0a 43 4d 44 53 0d 0a 43 50 ┆SPP=SPP/O:2 E2 UTIL3 CMDS CP┆
0x43a20…43a40 59 49 4e 53 0d 0a 53 52 0d 0a 4d 49 53 43 4c 49 42 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f 40 2f ┆YINS SR MISCLIB A:PASLIB/S/@/┆
0x43a40…43a60 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆P:1600 ┆
0x43a60…43a80 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x43a80…43aa0 00 50 50 4d 4f 44 33 20 20 45 52 4c 00 00 00 15 bd 00 be 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPMOD3 ERL ┆
0x43aa0…43ac0 00 53 43 41 4e 4e 45 52 20 45 52 4c 00 00 00 77 bf 00 c0 00 c1 00 c2 00 c3 00 c4 00 c5 00 c6 00 ┆ SCANNER ERL w ┆
0x43ac0…43ae0 00 49 44 53 45 41 52 43 48 45 52 4c 00 00 00 02 c7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ IDSEARCHERL ┆
0x43ae0…43b00 00 4d 49 4e 49 41 53 4d 20 45 52 4c 00 00 00 0f c8 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ MINIASM ERL ┆
0x43b00…43b20 00 54 52 41 56 45 52 53 45 45 52 4c 00 00 00 03 c9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ TRAVERSEERL ┆
0x43b20…43b40 00 50 50 49 4e 49 54 20 20 45 52 4c 00 00 00 2f ca 00 cb 00 cc 00 00 00 00 00 00 00 00 00 00 00 ┆ PPINIT ERL / ┆
0x43b40…43b60 00 4e 53 42 20 20 20 20 20 53 52 43 00 00 00 46 cd 00 ce 00 cf 00 d0 00 d1 00 00 00 00 00 00 00 ┆ NSB SRC F ┆
0x43b60…43b80 00 53 50 50 20 20 20 20 20 30 30 32 00 00 00 80 d2 00 d3 00 d4 00 d5 00 d6 00 d7 00 d8 00 d9 00 ┆ SPP 002 ┆
0x43b80…43ba0 00 53 50 50 20 20 20 20 20 30 30 32 01 00 00 58 da 00 db 00 dc 00 dd 00 de 00 df 00 00 00 00 00 ┆ SPP 002 X ┆
0x43ba0…43bc0 00 45 32 20 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ E2 $$$ ┆
0x43bc0…43be0 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 ┆ ┆
[…0x1…]
0x43c00…43c20 (30, 0, 9) 53 50 50 3d 53 50 50 2f 4f 3a 37 0d 0a 44 49 52 4f 56 4c 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f ┆SPP=SPP/O:7 DIROVL A:PASLIB/S/┆
0x43c20…43c40 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆P:1600 ┆
0x43c40…43c60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x43c80…43ca0 00 53 42 30 30 31 20 20 20 43 4d 44 00 00 00 01 9f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB001 CMD ┆
0x43ca0…43cc0 00 53 42 30 30 36 20 20 20 43 4d 44 00 00 00 01 a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB006 CMD ┆
0x43cc0…43ce0 00 53 42 4c 4f 47 20 20 20 45 52 4c 00 00 00 0b a1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SBLOG ERL ┆
0x43ce0…43d00 00 53 42 30 30 37 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB007 $$$ ┆
0x43d00…43d20 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 ┆ ┆
[…0x7…]
0x43e00…44000 (30, 1, 1) 0xe5[0x200]
[…0x4…]
0x44800…44820 (30, 1, 6) 53 50 50 3d 53 50 50 2f 4f 3a 33 0d 0a 53 59 4e 43 48 45 43 4b 0d 0a 53 43 41 4e 4e 45 52 0d 0a ┆SPP=SPP/O:3 SYNCHECK SCANNER ┆
0x44820…44840 49 44 53 45 41 52 43 48 0d 0a 4d 49 4e 49 41 53 4d 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f 50 3a ┆IDSEARCH MINIASM A:PASLIB/S/P:┆
0x44840…44860 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆1600 ┆
0x44860…44880 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x44880…448a0 00 53 42 30 30 33 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB003 $$$ ┆
0x448a0…448c0 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 ┆ ┆
[…0xa…]
0x44a00…44a20 (30, 1, 7) 53 50 50 3d 53 50 50 2f 4f 3a 39 0d 0a 45 44 49 54 57 52 49 54 0d 0a 55 54 49 4c 4d 4f 44 0d 0a ┆SPP=SPP/O:9 EDITWRIT UTILMOD ┆
0x44a20…44a40 41 3a 50 41 53 4c 49 42 2f 53 2f 40 2f 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆A:PASLIB/S/@/P:1600 ┆
0x44a40…44a60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x44a80…44aa0 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 ┆ ┆
[…0xb…]
0x44c00…44e00 (30, 1, 8) 0xe5[0x200]
[…0x4…]
0x45600…45620 (31, 0, 4) 53 50 50 3d 53 50 50 2f 4f 3a 38 0d 0a 55 54 49 4c 33 0d 0a 53 42 49 4e 49 54 0d 0a 41 3a 50 41 ┆SPP=SPP/O:8 UTIL3 SBINIT A:PA┆
0x45620…45640 53 4c 49 42 2f 53 2f 40 2f 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆SLIB/S/@/P:1600 ┆
0x45640…45660 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x45680…456a0 00 53 42 30 30 33 20 20 20 43 4d 44 00 00 00 01 ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB003 CMD ┆
0x456a0…456c0 00 53 42 30 30 34 20 20 20 43 4d 44 00 00 00 01 ed 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB004 CMD ┆
0x456c0…456e0 00 53 42 30 30 38 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB008 $$$ ┆
0x456e0…45700 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 ┆ ┆
[…0x8…]
0x45800…45820 (31, 0, 5) 53 50 50 3d 53 50 50 2f 4f 3a 34 0d 0a 54 52 41 56 45 52 53 45 0d 0a 56 41 52 43 48 45 43 4b 0d ┆SPP=SPP/O:4 TRAVERSE VARCHECK ┆
0x45820…45840 0a 49 44 53 45 41 52 43 48 0d 0a 4d 49 4e 49 41 53 4d 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 2f 50 ┆ IDSEARCH MINIASM A:PASLIB/S/P┆
0x45840…45860 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆:1600 ┆
0x45860…45880 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x45880…458a0 00 53 42 30 30 33 20 20 20 43 4d 44 00 00 00 01 ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB003 CMD ┆
0x458a0…458c0 00 53 42 30 30 34 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB004 $$$ ┆
0x458c0…458e0 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 ┆ ┆
[…0x9…]
0x45a00…45c00 (31, 0, 6) 0xe5[0x200]
[…0x4…]
0x46400…46420 (31, 1, 2) 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;-----------------------------┆
0x46420…46440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x46440…46460 2d 2d 3b 0d 0a 3b 09 09 09 09 09 09 09 09 3b 0d 0a 3b 09 39 35 31 31 20 53 55 42 52 4f 55 54 49 ┆--; ; ; ; 9511 SUBROUTI┆
0x46460…46480 4e 45 53 20 46 4f 52 20 54 52 41 4e 39 35 31 31 09 09 09 09 3b 0d 0a 3b 09 09 09 09 09 09 09 09 ┆NES FOR TRAN9511 ; ; ┆
0x46480…464a0 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆; ;----------------------------┆
0x464a0…464c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x464c0…464e0 2d 2d 2d 3b 0d 0a 0d 0a 09 50 55 42 4c 49 43 09 40 41 4d 44 0d 0a 09 45 58 54 52 4e 09 40 49 39 ┆---; PUBLIC @AMD EXTRN @I9┆
0x464e0…46500 35 44 09 3b 44 41 54 41 20 50 4f 52 54 20 49 4e 50 55 54 0d 0a 09 45 58 54 52 4e 09 40 4f 39 35 ┆5D ;DATA PORT INPUT EXTRN @O95┆
0x46500…46520 44 09 3b 44 41 54 41 20 50 4f 52 54 20 4f 55 54 50 55 54 0d 0a 09 45 58 54 52 4e 09 40 49 39 35 ┆D ;DATA PORT OUTPUT EXTRN @I95┆
0x46520…46540 43 09 3b 43 54 52 4c 20 50 4f 52 54 20 49 4e 50 55 54 0d 0a 09 45 58 54 52 4e 09 40 4f 39 35 43 ┆C ;CTRL PORT INPUT EXTRN @O95C┆
0x46540…46560 09 3b 43 54 52 4c 20 50 4f 52 54 20 4f 55 54 50 55 54 0d 0a 0d 0a 3b 20 50 52 4f 43 45 44 55 52 ┆ ;CTRL PORT OUTPUT ; PROCEDUR┆
0x46560…46580 45 20 40 41 4d 44 28 46 55 4e 43 3a 49 4e 54 45 47 45 52 3b 20 56 41 52 20 52 3a 52 45 41 4c 3b ┆E @AMD(FUNC:INTEGER; VAR R:REAL;┆
0x46580…465a0 20 56 41 52 20 53 54 41 54 3a 49 4e 54 45 47 45 52 29 3b 0d 0a 0d 0a 40 41 4d 44 3a 0d 0a 09 50 ┆ VAR STAT:INTEGER); @AMD: P┆
0x465a0…465c0 4f 50 09 48 09 3b 52 45 54 20 41 44 52 0d 0a 09 53 48 4c 44 09 52 45 54 41 44 52 0d 0a 09 50 4f ┆OP H ;RET ADR SHLD RETADR PO┆
0x465c0…465e0 50 09 48 09 3b 41 44 44 52 20 4f 46 20 41 50 55 20 53 54 41 54 0d 0a 09 50 4f 50 09 44 09 3b 41 ┆P H ;ADDR OF APU STAT POP D ;A┆
0x465e0…46600 44 44 52 20 4f 46 20 52 45 41 4c 0d 0a 09 50 4f 50 09 42 09 3b 46 55 4e 43 54 49 4f 4e 0d 0a 0d ┆DDR OF REAL POP B ;FUNCTION ┆
0x46600…46620 (31, 1, 3) 53 50 50 3d 53 50 50 2f 4f 3a 30 41 0d 0a 50 52 45 54 54 59 0d 0a 50 50 4d 4f 44 31 0d 0a 50 50 ┆SPP=SPP/O:0A PRETTY PPMOD1 PP┆
0x46620…46640 4d 4f 44 32 0d 0a 50 50 4d 4f 44 33 0d 0a 50 50 49 4e 49 54 0d 0a 41 3a 50 41 53 4c 49 42 2f 53 ┆MOD2 PPMOD3 PPINIT A:PASLIB/S┆
0x46640…46660 2f 40 2f 50 3a 31 36 30 30 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆/@/P:1600 ┆
0x46660…46680 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x46680…466a0 00 53 42 30 30 33 20 20 20 43 4d 44 00 00 00 01 ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB003 CMD ┆
0x466a0…466c0 00 53 42 30 30 34 20 20 20 43 4d 44 00 00 00 01 ed 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB004 CMD ┆
0x466c0…466e0 00 53 42 30 30 38 20 20 20 43 4d 44 00 00 00 01 ee 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB008 CMD ┆
0x466e0…46700 00 53 42 30 30 41 20 20 20 24 24 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ SB00A $$$ ┆
0x46700…46720 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 ┆ ┆
[…0x7…]
0x46800…46820 (31, 1, 4) 0a 3b 20 52 4f 55 54 49 4e 45 20 46 4f 52 20 46 4c 4f 41 54 49 4e 47 20 50 4f 49 4e 54 20 44 45 ┆ ; ROUTINE FOR FLOATING POINT DE┆
0x46820…46840 52 49 56 45 44 20 46 55 4e 43 54 49 4f 4e 53 0d 0a 3b 20 20 45 4e 54 45 52 20 57 49 54 48 3a 0d ┆RIVED FUNCTIONS ; ENTER WITH: ┆
0x46840…46860 0a 3b 20 20 20 20 42 43 20 3d 20 43 4f 4d 4d 41 4e 44 0d 0a 3b 20 20 4d 28 44 45 29 20 3d 20 46 ┆ ; BC = COMMAND ; M(DE) = F┆
0x46860…46880 55 4e 43 54 49 4f 4e 28 20 4d 28 44 45 29 20 29 0d 0a 3b 20 20 4d 28 48 4c 29 20 3d 20 41 50 55 ┆UNCTION( M(DE) ) ; M(HL) = APU┆
0x46880…468a0 20 53 54 41 54 0d 0a 09 50 55 53 48 20 09 42 0d 0a 09 43 41 4c 4c 20 09 50 53 48 44 09 09 3b 50 ┆ STAT PUSH B CALL PSHD ;P┆
0x468a0…468c0 55 53 48 20 41 52 47 55 4d 45 4e 54 0d 0a 09 50 4f 50 20 09 42 0d 0a 09 4d 4f 56 20 09 41 2c 43 ┆USH ARGUMENT POP B MOV A,C┆
0x468c0…468e0 09 09 3b 49 53 53 55 45 20 43 4f 4d 4d 41 4e 44 0d 0a 09 43 41 4c 4c 20 09 41 50 55 43 53 0d 0a ┆ ;ISSUE COMMAND CALL APUCS ┆
0x468e0…46900 09 43 41 4c 4c 20 09 50 4f 50 53 54 41 54 09 09 3b 47 45 54 20 44 41 54 41 20 41 4e 44 20 52 45 ┆ CALL POPSTAT ;GET DATA AND RE┆
0x46900…46920 54 55 52 4e 20 53 54 41 54 55 53 20 49 4e 20 41 2d 52 45 47 0d 0a 09 4d 4f 56 20 09 4d 2c 41 09 ┆TURN STATUS IN A-REG MOV M,A ┆
0x46920…46940 09 3b 53 54 4f 52 45 20 41 50 55 20 53 54 41 54 55 53 0d 0a 09 49 4e 58 09 48 0d 0a 09 4d 56 49 ┆ ;STORE APU STATUS INX H MVI┆
0x46940…46960 09 4d 2c 30 09 09 3b 5a 45 52 4f 20 48 49 47 48 20 42 59 54 45 0d 0a 09 4c 48 4c 44 09 52 45 54 ┆ M,0 ;ZERO HIGH BYTE LHLD RET┆
0x46960…46980 41 44 52 0d 0a 09 50 43 48 4c 0d 0a 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ADR PCHL ;-----------------┆
0x46980…469a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x469a0…469c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 09 09 09 09 09 09 09 09 3b 0d 0a 3b 09 39 ┆--------------; ; ; ; 9┆
0x469c0…469e0 35 31 31 20 55 54 49 4c 49 54 59 20 52 4f 55 54 49 4e 45 53 09 09 09 09 09 3b 0d 0a 3b 09 4e 4f ┆511 UTILITY ROUTINES ; ; NO┆
0x469e0…46a00 54 45 20 54 48 45 53 45 20 43 41 4c 4c 20 40 49 4e 39 35 20 41 4e 44 20 40 4f 55 54 39 35 20 49 ┆TE THESE CALL @IN95 AND @OUT95 I┆
0x46a00…46c00 (31, 1, 5) 0xe5[0x200]
0x46c00…46c20 (31, 1, 6) 4e 20 41 4d 44 49 4f 09 09 3b 0d 0a 3b 09 09 09 09 09 09 09 09 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d ┆N AMDIO ; ; ; ;-------┆
0x46c20…46c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x46c40…46c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 0d 0a 50 53 48 ┆------------------------; PSH┆
0x46c60…46c80 44 3a 09 49 4e 58 20 09 44 09 09 0d 0a 09 49 4e 58 20 09 44 0d 0a 09 49 4e 58 20 09 44 0d 0a 09 ┆D: INX D INX D INX D ┆
0x46c80…46ca0 4d 56 49 20 09 42 2c 34 0d 0a 0d 0a 50 53 44 31 30 3a 09 4c 44 41 58 20 09 44 0d 0a 09 43 41 4c ┆MVI B,4 PSD10: LDAX D CAL┆
0x46ca0…46cc0 4c 20 09 41 50 55 57 53 0d 0a 09 44 43 58 20 09 44 0d 0a 09 44 43 52 20 09 42 0d 0a 09 4a 4e 5a ┆L APUWS DCX D DCR B JNZ┆
0x46cc0…46ce0 20 09 50 53 44 31 30 0d 0a 09 49 4e 58 20 09 44 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 4c 4f 4f ┆ PSD10 INX D RET APULOO┆
0x46ce0…46d00 50 3a 0d 0a 09 50 55 53 48 20 50 53 57 0d 0a 41 50 55 58 32 41 3a 09 43 41 4c 4c 09 40 49 39 35 ┆P: PUSH PSW APUX2A: CALL @I95┆
0x46d00…46d20 43 0d 0a 09 4f 52 41 09 41 09 0d 0a 09 4a 4d 09 41 50 55 58 32 41 09 0d 0a 09 50 4f 50 09 50 53 ┆C ORA A JM APUX2A POP PS┆
0x46d20…46d40 57 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 52 53 3a 09 43 41 4c 4c 09 41 50 55 4c 4f 4f 50 0d 0a ┆W RET APURS: CALL APULOOP ┆
0x46d40…46d60 09 43 41 4c 4c 09 40 49 39 35 44 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 43 53 3a 09 43 41 4c 4c ┆ CALL @I95D RET APUCS: CALL┆
0x46d60…46d80 09 41 50 55 4c 4f 4f 50 09 0d 0a 09 43 41 4c 4c 09 40 4f 39 35 43 0d 0a 09 52 45 54 0d 0a 0d 0a ┆ APULOOP CALL @O95C RET ┆
0x46d80…46da0 0d 0a 41 50 55 57 53 3a 09 43 41 4c 4c 20 09 41 50 55 4c 4f 4f 50 0d 0a 09 43 41 4c 4c 09 40 4f ┆ APUWS: CALL APULOOP CALL @O┆
0x46da0…46dc0 39 35 44 0d 0a 09 52 45 54 0d 0a 0d 0a 50 4f 50 53 54 41 54 3a 0d 0a 09 50 55 53 48 09 44 0d 0a ┆95D RET POPSTAT: PUSH D ┆
0x46dc0…46de0 09 4d 56 49 09 42 2c 34 09 09 0d 0a 50 50 53 31 30 3a 09 43 41 4c 4c 20 09 41 50 55 52 53 0d 0a ┆ MVI B,4 PPS10: CALL APURS ┆
0x46de0…46e00 09 53 54 41 58 09 44 0d 0a 09 49 4e 58 09 44 0d 0a 09 44 43 52 09 42 0d 0a 09 4a 4e 5a 09 50 50 ┆ STAX D INX D DCR B JNZ PP┆
0x46e00…47000 (31, 1, 7) 0xe5[0x200]
0x47000…47020 (31, 1, 8) 53 31 30 0d 0a 09 50 4f 50 09 44 0d 0a 52 44 53 54 41 54 3a 09 43 41 4c 4c 09 40 49 39 35 43 0d ┆S10 POP D RDSTAT: CALL @I95C ┆
0x47020…47040 0a 09 4f 52 41 09 41 0d 0a 09 4a 4d 09 52 44 53 54 41 54 0d 0a 09 52 45 54 0d 0a 0d 0a 0d 0a 09 ┆ ORA A JM RDSTAT RET ┆
0x47040…47060 44 53 45 47 0d 0a 52 45 54 41 44 52 3a 09 44 53 09 32 0d 0a 09 45 4e 44 0d 0a 1a 1a 1a 1a 1a 1a ┆DSEG RETADR: DS 2 END ┆
0x47060…47080 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x47080…470a0 4d 56 49 20 09 42 2c 34 0d 0a 0d 0a 50 53 44 31 30 3a 09 4c 44 41 58 20 09 44 0d 0a 09 43 41 4c ┆MVI B,4 PSD10: LDAX D CAL┆
0x470a0…470c0 4c 20 09 41 50 55 57 53 0d 0a 09 44 43 58 20 09 44 0d 0a 09 44 43 52 20 09 42 0d 0a 09 4a 4e 5a ┆L APUWS DCX D DCR B JNZ┆
0x470c0…470e0 20 09 50 53 44 31 30 0d 0a 09 49 4e 58 20 09 44 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 4c 4f 4f ┆ PSD10 INX D RET APULOO┆
0x470e0…47100 50 3a 0d 0a 09 50 55 53 48 20 50 53 57 0d 0a 41 50 55 58 32 41 3a 09 43 41 4c 4c 09 40 49 39 35 ┆P: PUSH PSW APUX2A: CALL @I95┆
0x47100…47120 43 0d 0a 09 4f 52 41 09 41 09 0d 0a 09 4a 4d 09 41 50 55 58 32 41 09 0d 0a 09 50 4f 50 09 50 53 ┆C ORA A JM APUX2A POP PS┆
0x47120…47140 57 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 52 53 3a 09 43 41 4c 4c 09 41 50 55 4c 4f 4f 50 0d 0a ┆W RET APURS: CALL APULOOP ┆
0x47140…47160 09 43 41 4c 4c 09 40 49 39 35 44 0d 0a 09 52 45 54 0d 0a 0d 0a 41 50 55 43 53 3a 09 43 41 4c 4c ┆ CALL @I95D RET APUCS: CALL┆
0x47160…47180 09 41 50 55 4c 4f 4f 50 09 0d 0a 09 43 41 4c 4c 09 40 4f 39 35 43 0d 0a 09 52 45 54 0d 0a 0d 0a ┆ APULOOP CALL @O95C RET ┆
0x47180…471a0 0d 0a 41 50 55 57 53 3a 09 43 41 4c 4c 20 09 41 50 55 4c 4f 4f 50 0d 0a 09 43 41 4c 4c 09 40 4f ┆ APUWS: CALL APULOOP CALL @O┆
0x471a0…471c0 39 35 44 0d 0a 09 52 45 54 0d 0a 0d 0a 50 4f 50 53 54 41 54 3a 0d 0a 09 50 55 53 48 09 44 0d 0a ┆95D RET POPSTAT: PUSH D ┆
0x471c0…471e0 09 4d 56 49 09 42 2c 34 09 09 0d 0a 50 50 53 31 30 3a 09 43 41 4c 4c 20 09 41 50 55 52 53 0d 0a ┆ MVI B,4 PPS10: CALL APURS ┆
0x471e0…47200 09 53 54 41 58 09 44 0d 0a 09 49 4e 58 09 44 0d 0a 09 44 43 52 09 42 0d 0a 09 4a 4e 5a 09 50 50 ┆ STAX D INX D DCR B JNZ PP┆
0x47200…47400 (31, 1, 9) 0xe5[0x200]
[…0x48…]