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

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 5e 04 64 00 24 58 | 3b 45 78 61 6d 70 6c 65 |..^.d.$X|;Example|
|00000010| 20 31 20 2d 20 4c 6f 63 | 6b 69 6e 67 20 61 20 64 | 1 - Loc|king a d|
|00000020| 69 73 6b 20 66 69 6c 65 | 6e 00 17 58 3b 62 79 20 |isk file|n..X;by |
|00000030| 4b 61 72 6c 20 45 2e 20 | 57 69 65 67 65 72 73 78 |Karl E. |Wiegersx|
|00000040| 00 05 58 3b 82 00 08 0f | 46 3d 45 49 8c 00 05 58 |..X;....|F=EI...X|
|00000050| 3b 96 00 1f 58 3b 65 71 | 75 61 74 65 73 20 66 6f |;...X;eq|uates fo|
|00000060| 72 20 43 49 4f 20 6f 70 | 65 72 61 74 69 6f 6e 73 |r CIO op|erations|
|00000070| a0 00 05 58 3b aa 00 0d | 86 50 55 54 52 45 43 1e |...X;...|.PUTREC.|
|00000080| 06 09 b4 00 0b 84 4c 4f | 43 4b 1e 06 23 be 00 0a |......LO|CK..#...|
|00000090| 83 45 4f 4c 1e 06 9b c8 | 00 0d 85 49 43 43 4f 4d |.EOL....|...ICCOM|
|000000a0| 1e 05 42 03 d2 00 0d 85 | 49 43 42 41 4c 1e 05 44 |..B.....|ICBAL..D|
|000000b0| 03 dc 00 0d 85 49 43 42 | 4c 4c 1e 05 48 03 e6 00 |.....ICB|LL..H...|
|000000c0| 0d 85 49 43 41 58 31 1e | 05 4a 03 f0 00 0d 85 49 |..ICAX1.|.J.....I|
|000000d0| 43 41 58 32 1e 05 4b 03 | fa 00 0c 84 43 49 4f 56 |CAX2..K.|....CIOV|
|000000e0| 1e 05 56 e4 04 01 05 58 | 3b 0e 01 24 58 3b 2a 2a |..V....X|;..$X;**|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 18 01 1a |********|*****...|
|00000110| 58 3b 20 20 50 52 4f 47 | 52 41 4d 20 42 45 47 49 |X;  PROG|RAM BEGI|
|00000120| 4e 53 20 48 45 52 45 22 | 01 24 58 3b 2a 2a 2a 2a |NS HERE"|.$X;****|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2c 01 05 58 3b |********|***,..X;|
|00000150| 36 01 07 1d 05 00 50 40 | 01 05 58 3b 4a 01 14 24 |6.....P@|..X;J..$|
|00000160| 3e 06 30 3b 3b 75 73 65 | 20 49 4f 43 42 20 23 33 |>.0;;use| IOCB #3|
|00000170| 54 01 1b 51 3e 84 4c 4f | 43 4b 3b 3b 63 6f 6d 6d |T..Q>.LO|CK;;comm|
|00000180| 61 6e 64 20 69 73 20 4c | 4f 43 4b 5e 01 0b 50 85 |and is L|OCK^..P.|
|00000190| 49 43 43 4f 4d 39 68 01 | 13 51 3e 08 00 3b 3b 64 |ICCOM9h.|.Q>..;;d|
|000001a0| 6f 6e 27 74 20 6e 65 65 | 64 72 01 1a 50 85 49 43 |on't nee|dr..P.IC|
|000001b0| 42 4c 4c 39 3b 3b 74 6f | 20 73 65 74 20 62 75 66 |BLL9;;to| set buf|
|000001c0| 66 65 72 7c 01 19 50 85 | 49 43 42 4c 4c 12 08 01 |fer|..P.|ICBLL...|
|000001d0| 39 3b 3b 6c 65 6e 67 74 | 68 20 6f 72 86 01 1a 50 |9;;lengt|h or...P|
|000001e0| 85 49 43 41 58 31 39 3b | 3b 61 6e 79 20 61 75 78 |.ICAX19;|;any aux|
|000001f0| 20 62 79 74 65 73 90 01 | 0b 50 85 49 43 41 58 32 | bytes..|.P.ICAX2|
|00000200| 39 9a 01 19 51 3e 34 88 | 46 49 4c 45 4e 41 4d 45 |9...Q>4.|FILENAME|
|00000210| 3b 3b 70 6f 69 6e 74 20 | 74 6f a4 01 17 50 85 49 |;;point |to...P.I|
|00000220| 43 42 41 4c 39 3b 3b 66 | 69 6c 65 20 74 6f 20 62 |CBAL9;;f|ile to b|
|00000230| 65 ae 01 17 51 3e 35 88 | 46 49 4c 45 4e 41 4d 45 |e...Q>5.|FILENAME|
|00000240| 3b 3b 6c 6f 63 6b 65 64 | b8 01 0e 50 85 49 43 42 |;;locked|...P.ICB|
|00000250| 41 4c 12 08 01 39 c2 01 | 11 20 84 43 49 4f 56 3b |AL...9..|. .CIOV;|
|00000260| 3b 64 6f 20 69 74 21 cc | 01 14 49 87 41 4c 4c 44 |;do it!.|..I.ALLD|
|00000270| 4f 4e 45 3b 3b 65 72 72 | 6f 72 3f d6 01 1d 20 87 |ONE;;err|or?... .|
|00000280| 4c 4f 43 4b 45 52 52 3b | 3b 79 65 73 2c 20 70 72 |LOCKERR;|;yes, pr|
|00000290| 69 6e 74 20 6d 73 67 2e | e0 01 0b 87 41 4c 4c 44 |int msg.|....ALLD|
|000002a0| 4f 4e 45 ea 01 04 2b f4 | 01 05 58 3b fe 01 1e 58 |ONE...+.|..X;...X|
|000002b0| 3b 6e 61 6d 65 20 6f 66 | 20 66 69 6c 65 20 74 6f |;name of| file to|
|000002c0| 20 62 65 20 6c 6f 63 6b | 65 64 08 02 05 58 3b 12 | be lock|ed...X;.|
|000002d0| 02 1f 88 46 49 4c 45 4e | 41 4d 45 0b 41 8f 44 38 |...FILEN|AME.A.D8|
|000002e0| 3a 50 52 41 43 54 49 43 | 45 2e 46 49 4c 41 1c 02 |:PRACTIC|E.FILA..|
|000002f0| 05 58 3b 26 02 24 58 3b | 2a 2a 2a 2a 2a 2a 2a 2a |.X;&.$X;|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000310| 2a 2a 2a 2a 2a 2a 2a 30 | 02 05 58 3b 3a 02 25 58 |*******0|..X;:.%X|
|00000320| 3b 65 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |;error h|andling |
|00000330| 73 75 62 72 6f 75 74 69 | 6e 65 20 2d 20 6a 75 73 |subrouti|ne - jus|
|00000340| 74 44 02 25 58 3b 70 72 | 69 6e 74 73 20 61 20 6d |tD.%X;pr|ints a m|
|00000350| 65 73 73 61 67 65 20 69 | 66 20 61 6e 79 20 65 72 |essage i|f any er|
|00000360| 72 6f 72 20 69 73 4e 02 | 10 58 3b 65 6e 63 6f 75 |ror isN.|.X;encou|
|00000370| 6e 74 65 72 65 64 58 02 | 05 58 3b 62 02 0b 87 4c |nteredX.|.X;b...L|
|00000380| 4f 43 4b 45 52 52 6c 02 | 07 24 3e 08 00 76 02 0c |OCKERRl.|.$>..v..|
|00000390| 51 3e 86 50 55 54 52 45 | 43 80 02 0b 50 85 49 43 |Q>.PUTRE|C...P.IC|
|000003a0| 43 4f 4d 39 8a 02 0d 51 | 3e 34 86 45 52 52 4d 53 |COM9...Q|>4.ERRMS|
|000003b0| 47 94 02 0b 50 85 49 43 | 42 41 4c 39 9e 02 0d 51 |G...P.IC|BAL9...Q|
|000003c0| 3e 35 86 45 52 52 4d 53 | 47 a8 02 0e 50 85 49 43 |>5.ERRMS|G...P.IC|
|000003d0| 42 41 4c 12 08 01 39 b2 | 02 07 51 3e 08 50 bc 02 |BAL...9.|..Q>.P..|
|000003e0| 0b 50 85 49 43 42 4c 4c | 39 c6 02 07 51 3e 08 00 |.P.ICBLL|9...Q>..|
|000003f0| d0 02 0e 50 85 49 43 42 | 4c 4c 12 08 01 39 da 02 |...P.ICB|LL...9..|
|00000400| 0b 50 85 49 43 41 58 32 | 39 e4 02 09 20 84 43 49 |.P.ICAX2|9... .CI|
|00000410| 4f 56 ee 02 04 3a f8 02 | 05 58 3b 02 03 1b 58 3b |OV...:..|.X;...X;|
|00000420| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 20 74 6f |error me|ssage to|
|00000430| 20 70 72 69 6e 74 0c 03 | 05 58 3b 16 03 0a 86 45 | print..|.X;....E|
|00000440| 52 52 4d 53 47 20 03 1d | 0b 41 91 45 72 72 6f 72 |RRMSG ..|.A.Error|
|00000450| 20 64 75 72 69 6e 67 20 | 6c 6f 63 6b 41 3d 83 45 | during |lockA=.E|
|00000460| 4f 4c                   |                         |OL      |        |
+--------+-------------------------+-------------------------+--------+--------+