/ A.N.A.L.O.G. Magazine 1987 September / 87_sep_a.atr / bootcmp6.m65

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe fe 03 64 00 25 58 | 3b 45 78 61 6d 70 6c 65 |....d.%X|;Example|
|00000010| 20 34 2d 72 65 61 64 69 | 6e 67 20 64 69 73 6b 20 | 4-readi|ng disk |
|00000020| 64 69 72 65 63 74 6f 72 | 79 6e 00 17 58 3b 62 79 |director|yn..X;by|
|00000030| 20 4b 61 72 6c 20 45 2e | 20 57 69 65 67 65 72 73 | Karl E.| Wiegers|
|00000040| 78 00 05 58 3b 82 00 08 | 0f 46 3d 45 49 8c 00 12 |x..X;...|.F=EI...|
|00000050| 11 3e 8c 44 38 3a 4d 41 | 43 52 4f 2e 4c 49 42 96 |.>.D8:MA|CRO.LIB.|
|00000060| 00 05 58 3b a0 00 24 58 | 3b 2a 2a 2a 2a 2a 2a 2a |..X;..$X|;*******|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | aa 00 1c 58 3b 20 20 20 |********|...X;   |
|00000090| 20 50 52 4f 47 52 41 4d | 20 53 54 41 52 54 53 20 | PROGRAM| STARTS |
|000000a0| 48 45 52 45 b4 00 24 58 | 3b 2a 2a 2a 2a 2a 2a 2a |HERE..$X|;*******|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | be 00 05 58 3b c8 00 07 |********|...X;...|
|000000d0| 1d 05 00 50 d2 00 05 58 | 3b dc 00 1e 58 3b 6f 70 |...P...X|;...X;op|
|000000e0| 65 6e 20 49 4f 43 42 20 | 23 31 20 74 6f 20 72 65 |en IOCB |#1 to re|
|000000f0| 61 64 20 64 69 73 6b e6 | 00 21 58 3b 64 69 72 65 |ad disk.|.!X;dire|
|00000100| 63 74 6f 72 79 20 2d 20 | 75 73 65 20 61 6e 79 20 |ctory - |use any |
|00000110| 66 69 6c 65 73 70 65 63 | f0 00 05 58 3b fa 00 1c |filespec|...X;...|
|00000120| 07 85 4f 50 45 4e 20 08 | 01 3d 08 06 3d 08 00 3d |..OPEN .|.=..=..=|
|00000130| 41 86 44 31 3a 2a 2e 2a | 41 04 01 0b 87 52 45 41 |A.D1:*.*|A....REA|
|00000140| 44 4f 4e 45 0e 01 1a 20 | 85 49 4e 50 55 54 3b 3b |DONE... |.INPUT;;|
|00000150| 67 65 74 20 61 20 66 69 | 6c 65 6e 61 6d 65 18 01 |get a fi|lename..|
|00000160| 15 29 3e 08 88 3b 3b 65 | 6e 64 20 6f 66 20 66 69 |.)>..;;e|nd of fi|
|00000170| 6c 65 3f 22 01 14 46 84 | 44 4f 4e 45 3b 3b 79 65 |le?"..F.|DONE;;ye|
|00000180| 73 2c 20 71 75 69 74 2c | 01 21 07 86 50 52 49 4e |s, quit,|.!..PRIN|
|00000190| 54 20 88 46 49 4c 45 4e | 41 4d 45 3b 3b 6e 6f 2c |T .FILEN|AME;;no,|
|000001a0| 77 72 69 74 65 20 69 74 | 36 01 16 2c 3b 3b 67 65 |write it|6..,;;ge|
|000001b0| 74 20 74 68 65 20 6e 65 | 78 74 20 6f 6e 65 40 01 |t the ne|xt one@.|
|000001c0| 0c 44 87 52 45 41 44 4f | 4e 45 4a 01 08 84 44 4f |.D.READO|NEJ...DO|
|000001d0| 4e 45 54 01 17 07 86 43 | 4c 4f 53 45 20 08 01 3b |NET....C|LOSE ..;|
|000001e0| 3b 61 6c 6c 20 64 6f 6e | 65 5e 01 04 2b 68 01 05 |;all don|e^..+h..|
|000001f0| 58 3b 72 01 21 58 3b 73 | 61 76 65 20 31 38 20 62 |X;r.!X;s|ave 18 b|
|00000200| 79 74 65 73 20 66 6f 72 | 20 61 20 66 69 6c 65 6e |ytes for| a filen|
|00000210| 61 6d 65 7c 01 05 58 3b | 86 01 0f 88 46 49 4c 45 |ame|..X;|....FILE|
|00000220| 4e 41 4d 45 12 08 12 90 | 01 05 58 3b 9a 01 24 58 |NAME....|..X;..$X|
|00000230| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| a4 01 22 58 3b 73 75 62 | 72 6f 75 74 69 6e 65 20 |.."X;sub|routine |
|00000260| 74 6f 20 72 65 61 64 20 | 61 20 66 69 6c 65 6e 61 |to read |a filena|
|00000270| 6d 65 ae 01 20 58 3b 66 | 72 6f 6d 20 74 68 65 20 |me.. X;f|rom the |
|00000280| 64 69 73 6b 20 64 69 72 | 65 63 74 6f 72 79 20 61 |disk dir|ectory a|
|00000290| 6e 64 b8 01 21 58 3b 73 | 74 6f 72 65 20 69 74 20 |nd..!X;s|tore it |
|000002a0| 61 74 20 61 64 64 72 65 | 73 73 20 46 49 4c 45 4e |at addre|ss FILEN|
|000002b0| 41 4d 45 c2 01 24 58 3b | 2d 2d 2d 2d 2d 2d 2d 2d |AME..$X;|--------|
|000002c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002d0| 2d 2d 2d 2d 2d 2d 2d cc | 01 05 58 3b d6 01 09 85 |-------.|..X;....|
|000002e0| 49 4e 50 55 54 e0 01 14 | 24 3e 06 10 3b 3b 75 73 |INPUT...|$>..;;us|
|000002f0| 65 20 49 4f 43 42 20 23 | 31 ea 01 18 51 3e 86 47 |e IOCB #|1...Q>.G|
|00000300| 45 54 52 45 43 3b 3b 63 | 6f 6d 6d 61 6e 64 20 69 |ETREC;;c|ommand i|
|00000310| 73 f4 01 19 50 85 49 43 | 43 4f 4d 39 3b 3b 47 45 |s...P.IC|COM9;;GE|
|00000320| 54 20 61 20 52 45 43 6f | 72 64 fe 01 1a 51 3e 34 |T a RECo|rd...Q>4|
|00000330| 88 46 49 4c 45 4e 41 4d | 45 3b 3b 70 75 74 20 69 |.FILENAM|E;;put i|
|00000340| 74 20 61 74 08 02 1d 50 | 85 49 43 42 41 4c 39 3b |t at...P|.ICBAL9;|
|00000350| 3b 61 64 64 72 65 73 73 | 20 46 49 4c 45 4e 41 4d |;address| FILENAM|
|00000360| 45 12 02 0f 51 3e 35 88 | 46 49 4c 45 4e 41 4d 45 |E...Q>5.|FILENAME|
|00000370| 1c 02 0b 50 85 49 43 42 | 41 48 39 26 02 15 51 3e |...P.ICB|AH9&..Q>|
|00000380| 08 12 3b 3b 67 65 74 20 | 31 38 20 63 68 61 72 73 |..;;get |18 chars|
|00000390| 30 02 0b 50 85 49 43 42 | 4c 4c 39 3a 02 07 51 3e |0..P.ICB|LL9:..Q>|
|000003a0| 08 00 44 02 0b 50 85 49 | 43 42 4c 48 39 4e 02 13 |..D..P.I|CBLH9N..|
|000003b0| 20 84 43 49 4f 56 3b 3b | 67 6f 20 64 6f 20 69 74 | .CIOV;;|go do it|
|000003c0| 58 02 04 3a 62 02 05 58 | 3b 6c 02 23 58 3b 69 6e |X..:b..X|;l.#X;in|
|000003d0| 63 6c 75 64 65 20 74 68 | 65 20 73 75 62 72 6f 75 |clude th|e subrou|
|000003e0| 74 69 6e 65 20 6c 69 62 | 72 61 72 79 76 02 05 58 |tine lib|raryv..X|
|000003f0| 3b 80 02 11 11 3e 8b 44 | 38 3a 53 55 42 53 2e 4c |;....>.D|8:SUBS.L|
|00000400| 49 42                   |                         |IB      |        |
+--------+-------------------------+-------------------------+--------+--------+