/ A.N.A.L.O.G. Magazine 1987 February / 87_feb.atr / bootcmp2.m65

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 8b 0a 0a 00 20 58 | 3b 4c 69 73 74 69 6e 67 |...... X|;Listing|
|00000010| 20 32 20 66 6f 72 20 43 | 68 61 72 61 63 74 65 72 | 2 for C|haracter|
|00000020| 20 53 65 74 14 00 1a 58 | 3b 52 65 64 65 66 69 6e | Set...X|;Redefin|
|00000030| 69 74 69 6f 6e 20 45 78 | 61 6d 70 6c 65 73 1e 00 |ition Ex|amples..|
|00000040| 05 58 3b 28 00 17 58 3b | 62 79 20 4b 61 72 6c 20 |.X;(..X;|by Karl |
|00000050| 45 2e 20 57 69 65 67 65 | 72 73 32 00 05 58 3b 3c |E. Wiege|rs2..X;<|
|00000060| 00 08 0f 46 3d 45 49 46 | 00 05 58 3b 50 00 05 58 |...F=EIF|..X;P..X|
|00000070| 3b 5a 00 1f 58 3b 65 71 | 75 61 74 65 73 20 66 6f |;Z..X;eq|uates fo|
|00000080| 72 20 49 4f 43 42 20 6f | 70 65 72 61 74 69 6f 73 |r IOCB o|peratios|
|00000090| 64 00 05 58 3b 6e 00 0b | 84 4f 50 45 4e 1e 06 03 |d..X;n..|.OPEN...|
|000000a0| 78 00 0d 86 47 45 54 52 | 45 43 1e 06 05 82 00 0d |x...GETR|EC......|
|000000b0| 86 50 55 54 52 45 43 1e | 06 09 8c 00 0c 85 43 4c |.PUTREC.|......CL|
|000000c0| 4f 53 45 1e 06 0c 96 00 | 0a 83 45 4f 4c 1e 06 9b |OSE.....|..EOL...|
|000000d0| a0 00 05 58 3b aa 00 1d | 58 3b 70 6f 69 6e 74 65 |...X;...|X;pointe|
|000000e0| 72 20 74 6f 20 63 68 61 | 72 61 63 74 65 72 20 73 |r to cha|racter s|
|000000f0| 65 74 b4 00 05 58 3b be | 00 0d 85 43 48 42 41 53 |et...X;.|...CHBAS|
|00000100| 1e 05 f4 02 c8 00 05 58 | 3b d2 00 1f 58 3b 65 71 |.......X|;...X;eq|
|00000110| 75 61 74 65 73 20 66 6f | 72 20 49 4f 43 42 20 61 |uates fo|r IOCB a|
|00000120| 64 64 72 65 73 73 65 73 | dc 00 05 58 3b e6 00 0d |ddresses|...X;...|
|00000130| 85 49 43 43 4f 4d 1e 05 | 42 03 f0 00 0d 85 49 43 |.ICCOM..|B.....IC|
|00000140| 42 41 4c 1e 05 44 03 fa | 00 0d 85 49 43 42 41 48 |BAL..D..|...ICBAH|
|00000150| 1e 05 45 03 04 01 0d 85 | 49 43 42 4c 4c 1e 05 48 |..E.....|ICBLL..H|
|00000160| 03 0e 01 0d 85 49 43 42 | 4c 48 1e 05 49 03 18 01 |.....ICB|LH..I...|
|00000170| 0d 85 49 43 41 58 31 1e | 05 4a 03 22 01 0d 85 49 |..ICAX1.|.J."...I|
|00000180| 43 41 58 32 1e 05 4b 03 | 2c 01 0c 84 43 49 4f 56 |CAX2..K.|,...CIOV|
|00000190| 1e 05 56 e4 36 01 05 58 | 3b 40 01 21 58 3b 72 65 |..V.6..X|;@.!X;re|
|000001a0| 64 65 66 69 6e 65 64 20 | 63 68 61 72 61 63 74 65 |defined |characte|
|000001b0| 72 20 73 65 74 20 77 69 | 6c 6c 4a 01 23 58 3b 73 |r set wi|llJ.#X;s|
|000001c0| 74 61 72 74 20 61 74 20 | 24 34 30 30 30 20 61 6e |tart at |$4000 an|
|000001d0| 64 20 67 6f 20 74 6f 20 | 24 34 33 46 46 54 01 05 |d go to |$43FFT..|
|000001e0| 58 3b 5e 01 0e 86 52 41 | 4d 53 45 54 1e 05 00 40 |X;^...RA|MSET...@|
|000001f0| 68 01 05 58 3b 72 01 24 | 58 3b 2a 2a 2a 2a 2a 2a |h..X;r.$|X;******|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 7c 01 1d 58 3b 20 20 |********|*|..X;  |
|00000220| 20 20 20 50 52 4f 47 52 | 41 4d 20 42 45 47 49 4e |   PROGR|AM BEGIN|
|00000230| 53 20 48 45 52 45 86 01 | 24 58 3b 2a 2a 2a 2a 2a |S HERE..|$X;*****|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 90 01 05 58 3b 9a |********|**...X;.|
|00000260| 01 07 1d 05 00 50 a4 01 | 05 58 3b ae 01 07 24 3e |.....P..|.X;...$>|
|00000270| 08 10 b8 01 0d 20 88 4f | 50 45 4e 49 4f 43 42 c2 |..... .O|PENIOCB.|
|00000280| 01 0b 49 86 4e 4f 45 52 | 52 31 cc 01 0e 20 89 4f |..I.NOER|R1... .O|
|00000290| 50 45 4e 45 52 52 4f 52 | d6 01 04 2c e0 01 08 44 |PENERROR|...,...D|
|000002a0| 83 45 4e 44 ea 01 0a 86 | 4e 4f 45 52 52 31 f4 01 |.END....|NOERR1..|
|000002b0| 07 24 3e 08 10 fe 01 0d | 20 88 52 45 41 44 46 49 |.$>.....| .READFI|
|000002c0| 4c 45 08 02 07 24 3e 08 | 10 12 02 0e 20 89 43 4c |LE...$>.|.... .CL|
|000002d0| 4f 53 45 49 4f 43 42 1c | 02 0a 20 85 50 52 49 4e |OSEIOCB.|.. .PRIN|
|000002e0| 54 26 02 0c 83 45 4e 44 | 21 83 45 4e 44 30 02 05 |T&...END|!.END0..|
|000002f0| 58 3b 3a 02 24 58 3b 2a | 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 44 02 | 20 58 3b 20 20 20 20 20 |******D.| X;     |
|00000320| 53 55 42 52 4f 55 54 49 | 4e 45 53 20 42 45 47 49 |SUBROUTI|NES BEGI|
|00000330| 4e 20 48 45 52 45 4e 02 | 24 58 3b 2a 2a 2a 2a 2a |N HEREN.|$X;*****|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 58 02 05 58 3b 62 |********|**X..X;b|
|00000360| 02 23 58 3b 73 75 62 72 | 6f 75 74 69 6e 65 20 74 |.#X;subr|outine t|
|00000370| 6f 20 6f 70 65 6e 20 61 | 6e 20 49 4f 43 42 20 66 |o open a|n IOCB f|
|00000380| 6f 72 6c 02 1f 58 3b 72 | 65 61 64 20 61 63 63 65 |orl..X;r|ead acce|
|00000390| 73 73 20 2d 20 6e 65 65 | 64 20 74 6f 20 6c 6f 61 |ss - nee|d to loa|
|000003a0| 64 76 02 1a 58 3b 77 69 | 74 68 20 49 4f 43 42 23 |dv..X;wi|th IOCB#|
|000003b0| 20 2a 20 31 36 20 66 69 | 72 73 74 80 02 05 58 3b | * 16 fi|rst...X;|
|000003c0| 8a 02 0c 88 4f 50 45 4e | 49 4f 43 42 94 02 1b 51 |....OPEN|IOCB...Q|
|000003d0| 3e 84 4f 50 45 4e 3b 3b | 6f 70 65 72 61 74 69 6f |>.OPEN;;|operatio|
|000003e0| 6e 20 69 73 20 74 6f 9e | 02 19 50 85 49 43 43 4f |n is to.|..P.ICCO|
|000003f0| 4d 39 3b 3b 4f 50 45 4e | 20 61 6e 20 49 4f 43 42 |M9;;OPEN| an IOCB|
|00000400| a8 02 18 51 3e 85 46 4e | 41 4d 45 16 08 ff 3b 3b |...Q>.FN|AME...;;|
|00000410| 70 6f 69 6e 74 20 74 6f | b2 02 19 50 85 49 43 42 |point to|...P.ICB|
|00000420| 41 4c 39 3b 3b 6e 61 6d | 65 20 6f 66 20 64 69 73 |AL9;;nam|e of dis|
|00000430| 6b bc 02 1d 51 3e 85 46 | 4e 41 4d 45 15 07 00 01 |k...Q>.F|NAME....|
|00000440| 3b 3b 66 69 6c 65 20 74 | 6f 20 6f 70 65 6e c6 02 |;;file t|o open..|
|00000450| 0b 50 85 49 43 42 41 48 | 39 d0 02 11 51 3e 08 04 |.P.ICBAH|9...Q>..|
|00000460| 3b 3b 6f 70 65 6e 20 66 | 6f 72 da 02 18 50 85 49 |;;open f|or...P.I|
|00000470| 43 41 58 31 39 3b 3b 72 | 65 61 64 20 61 63 63 65 |CAX19;;r|ead acce|
|00000480| 73 73 e4 02 14 20 84 43 | 49 4f 56 3b 3b 67 6f 20 |ss... .C|IOV;;go |
|00000490| 64 6f 20 69 74 21 ee 02 | 04 3a f8 02 05 58 3b 02 |do it!..|.:...X;.|
|000004a0| 03 22 58 3b 73 75 62 72 | 6f 75 74 69 6e 65 20 74 |."X;subr|outine t|
|000004b0| 6f 20 72 65 61 64 20 31 | 30 32 34 20 62 79 74 65 |o read 1|024 byte|
|000004c0| 73 0c 03 22 58 3b 66 72 | 6f 6d 20 6f 70 65 6e 20 |s.."X;fr|om open |
|000004d0| 49 4f 43 42 20 61 6e 64 | 20 70 75 74 20 69 6e 20 |IOCB and| put in |
|000004e0| 52 41 4d 16 03 23 58 3b | 61 74 20 61 64 64 72 65 |RAM..#X;|at addre|
|000004f0| 73 73 20 52 41 4d 53 45 | 54 2e 20 20 49 4f 43 42 |ss RAMSE|T.  IOCB|
|00000500| 23 20 2a 20 31 36 20 03 | 21 58 3b 6d 75 73 74 20 |# * 16 .|!X;must |
|00000510| 62 65 20 69 6e 20 58 2d | 72 65 67 69 73 74 65 72 |be in X-|register|
|00000520| 20 66 69 72 73 74 2e 2a | 03 05 58 3b 34 03 0c 88 | first.*|..X;4...|
|00000530| 52 45 41 44 46 49 4c 45 | 3e 03 1a 51 3e 86 47 45 |READFILE|>..Q>.GE|
|00000540| 54 52 45 43 3b 3b 6f 70 | 65 72 61 74 69 6f 6e 20 |TREC;;op|eration |
|00000550| 69 73 48 03 19 50 85 49 | 43 43 4f 4d 39 3b 3b 47 |isH..P.I|CCOM9;;G|
|00000560| 45 54 20 61 20 52 45 43 | 6f 72 64 52 03 1b 51 3e |ET a REC|ordR..Q>|
|00000570| 86 52 41 4d 53 45 54 16 | 08 ff 3b 3b 77 69 6c 6c |.RAMSET.|..;;will|
|00000580| 20 73 74 6f 72 65 5c 03 | 17 50 85 49 43 42 41 4c | store\.|.P.ICBAL|
|00000590| 39 3b 3b 61 74 20 61 64 | 64 72 65 73 73 66 03 18 |9;;at ad|dressf..|
|000005a0| 51 3e 86 52 41 4d 53 45 | 54 15 07 00 01 3b 3b 52 |Q>.RAMSE|T....;;R|
|000005b0| 41 4d 53 45 54 70 03 0b | 50 85 49 43 42 41 48 39 |AMSETp..|P.ICBAH9|
|000005c0| 7a 03 14 51 3e 08 00 3b | 3b 77 61 6e 74 20 74 6f |z..Q>..;|;want to|
|000005d0| 20 67 65 74 84 03 17 50 | 85 49 43 42 4c 4c 39 3b | get...P|.ICBLL9;|
|000005e0| 3b 34 2a 32 35 36 3d 31 | 30 32 34 8e 03 0e 51 3e |;4*256=1|024...Q>|
|000005f0| 08 04 3b 3b 62 79 74 65 | 73 98 03 0b 50 85 49 43 |..;;byte|s...P.IC|
|00000600| 42 4c 48 39 a2 03 14 20 | 84 43 49 4f 56 3b 3b 67 |BLH9... |.CIOV;;g|
|00000610| 6f 20 64 6f 20 69 74 21 | ac 03 04 3a b6 03 05 58 |o do it!|...:...X|
|00000620| 3b c0 03 21 58 3b 73 75 | 62 72 6f 75 74 69 6e 65 |;..!X;su|broutine|
|00000630| 20 74 6f 20 63 6c 6f 73 | 65 20 61 6e 20 49 4f 43 | to clos|e an IOC|
|00000640| 42 2e ca 03 20 58 3b 58 | 2d 72 65 67 69 73 74 65 |B... X;X|-registe|
|00000650| 72 20 6d 75 73 74 20 63 | 6f 6e 74 61 69 6e 20 74 |r must c|ontain t|
|00000660| 68 65 d4 03 16 58 3b 49 | 4f 43 42 23 20 2a 20 31 |he...X;I|OCB# * 1|
|00000670| 36 20 66 69 72 73 74 2e | de 03 05 58 3b e8 03 0d |6 first.|...X;...|
|00000680| 89 43 4c 4f 53 45 49 4f | 43 42 f2 03 0b 51 3e 85 |.CLOSEIO|CB...Q>.|
|00000690| 43 4c 4f 53 45 fc 03 0b | 50 85 49 43 43 4f 4d 39 |CLOSE...|P.ICCOM9|
|000006a0| 06 04 09 20 84 43 49 4f | 56 10 04 04 3a 1a 04 05 |... .CIO|V...:...|
|000006b0| 58 3b 24 04 05 58 3b 2e | 04 05 58 3b 38 04 22 58 |X;$..X;.|..X;8."X|
|000006c0| 3b 73 61 6d 65 20 50 52 | 49 4e 54 20 73 75 62 72 |;same PR|INT subr|
|000006d0| 6f 75 74 69 6e 65 20 74 | 68 61 74 20 77 65 42 04 |outine t|hat weB.|
|000006e0| 16 58 3b 75 73 65 64 20 | 69 6e 20 4c 69 73 74 69 |.X;used |in Listi|
|000006f0| 6e 67 20 31 4c 04 05 58 | 3b 56 04 09 85 50 52 49 |ng 1L..X|;V...PRI|
|00000700| 4e 54 60 04 10 51 3e 86 | 52 41 4d 53 45 54 15 07 |NT`..Q>.|RAMSET..|
|00000710| 00 01 6a 04 0a 50 85 43 | 48 42 41 53 74 04 07 24 |..j..P.C|HBASt..$|
|00000720| 3e 08 00 7e 04 0c 51 3e | 86 50 55 54 52 45 43 88 |>..~..Q>|.PUTREC.|
|00000730| 04 0b 50 85 49 43 43 4f | 4d 39 92 04 0d 51 3e 84 |..P.ICCO|M9...Q>.|
|00000740| 54 45 58 54 16 08 ff 9c | 04 0b 50 85 49 43 42 41 |TEXT....|..P.ICBA|
|00000750| 4c 39 a6 04 0e 51 3e 84 | 54 45 58 54 15 07 00 01 |L9...Q>.|TEXT....|
|00000760| b0 04 0b 50 85 49 43 42 | 41 48 39 ba 04 07 51 3e |...P.ICB|AH9...Q>|
|00000770| 08 00 c4 04 0b 50 85 49 | 43 42 4c 4c 39 ce 04 07 |.....P.I|CBLL9...|
|00000780| 51 3e 08 02 d8 04 0b 50 | 85 49 43 42 4c 48 39 e2 |Q>.....P|.ICBLH9.|
|00000790| 04 09 20 84 43 49 4f 56 | ec 04 04 3a f6 04 05 58 |.. .CIOV|...:...X|
|000007a0| 3b 00 05 23 58 3b 70 72 | 69 6e 74 20 74 68 69 73 |;..#X;pr|int this|
|000007b0| 20 6c 6f 6e 67 20 74 65 | 78 74 20 73 74 72 69 6e | long te|xt strin|
|000007c0| 67 20 73 6f 0a 05 24 58 | 3b 79 6f 75 20 63 61 6e |g so..$X|;you can|
|000007d0| 20 73 65 65 20 77 68 61 | 74 20 74 68 65 20 63 68 | see wha|t the ch|
|000007e0| 61 72 61 63 74 65 72 73 | 14 05 22 58 3b 79 6f 75 |aracters|.."X;you|
|000007f0| 20 6c 6f 61 64 65 64 20 | 66 72 6f 6d 20 74 68 65 | loaded |from the|
|00000800| 20 64 69 73 6b 20 66 69 | 6c 65 1e 05 23 58 3b 6c | disk fi|le..#X;l|
|00000810| 6f 6f 6b 20 6c 69 6b 65 | 20 28 61 63 74 75 61 6c |ook like| (actual|
|00000820| 6c 79 2c 20 74 79 70 65 | 20 61 6e 79 2d 28 05 21 |ly, type| any-(.!|
|00000830| 58 3b 74 68 69 6e 67 20 | 79 6f 75 20 77 61 6e 74 |X;thing |you want|
|00000840| 20 69 6e 20 31 33 35 30 | 2d 31 34 31 30 29 32 05 | in 1350|-1410)2.|
|00000850| 05 58 3b 3c 05 08 84 54 | 45 58 54 46 05 14 0b 41 |.X;<...T|EXTF...A|
|00000860| 8d 41 42 43 44 45 46 47 | 48 49 4a 4b 4c 4d 41 50 |.ABCDEFG|HIJKLMAP|
|00000870| 05 14 0b 41 8d 4e 4f 50 | 51 52 53 54 55 56 57 58 |...A.NOP|QRSTUVWX|
|00000880| 59 5a 41 5a 05 14 0b 41 | 8d 61 62 63 64 65 66 67 |YZAZ...A|.abcdefg|
|00000890| 68 69 6a 6b 6c 6d 41 64 | 05 14 0b 41 8d 6e 6f 70 |hijklmAd|...A.nop|
|000008a0| 71 72 73 74 75 76 77 78 | 79 7a 41 6e 05 11 0b 41 |qrstuvwx|yzAn...A|
|000008b0| 8a 31 32 33 34 35 36 37 | 38 39 30 41 78 05 12 0b |.1234567|890Ax...|
|000008c0| 41 8b 21 23 24 25 26 27 | 40 28 29 3c 3e 41 82 05 |A.!#$%&'|@()<>A..|
|000008d0| 15 0b 41 8e 2d 3d 2b 2a | 5f 7c 5c 5e 2c 2e 2f 5b |..A.-=+*|_|\^,./[|
|000008e0| 5d 3f 41 8c 05 08 0b 83 | 45 4f 4c 96 05 05 58 3b |]?A.....|EOL...X;|
|000008f0| a0 05 23 58 3b 63 6f 6d | 70 6c 65 74 65 20 6e 61 |..#X;com|plete na|
|00000900| 6d 65 20 6f 66 20 74 68 | 65 20 66 69 6c 65 20 77 |me of th|e file w|
|00000910| 69 74 68 aa 05 1c 58 3b | 79 6f 75 72 20 63 68 61 |ith...X;|your cha|
|00000920| 72 61 63 74 65 72 20 73 | 65 74 20 64 61 74 61 b4 |racter s|et data.|
|00000930| 05 05 58 3b be 05 1e 85 | 46 4e 41 4d 45 0b 41 8c |..X;....|FNAME.A.|
|00000940| 44 31 3a 46 41 4e 43 59 | 2e 46 4e 54 41 3d 83 45 |D1:FANCY|.FNTA=.E|
|00000950| 4f 4c c8 05 05 58 3b d2 | 05 24 58 3b 73 75 62 72 |OL...X;.|.$X;subr|
|00000960| 6f 75 74 69 6e 65 20 74 | 6f 20 68 61 6e 64 6c 65 |outine t|o handle|
|00000970| 20 6f 70 65 6e 20 65 72 | 72 6f 72 dc 05 05 58 3b | open er|ror...X;|
|00000980| e6 05 0d 89 4f 50 45 4e | 45 52 52 4f 52 f0 05 19 |....OPEN|ERROR...|
|00000990| 24 3e 08 00 3b 3b 70 72 | 69 6e 74 20 6d 65 73 73 |$>..;;pr|int mess|
|000009a0| 61 67 65 20 6f 6e fa 05 | 14 51 3e 86 50 55 54 52 |age on..|.Q>.PUTR|
|000009b0| 45 43 3b 3b 73 63 72 65 | 65 6e 04 06 0b 50 85 49 |EC;;scre|en...P.I|
|000009c0| 43 43 4f 4d 39 0e 06 1b | 51 3e 86 4f 45 54 45 58 |CCOM9...|Q>.OETEX|
|000009d0| 54 16 08 ff 3b 3b 65 72 | 72 6f 72 20 74 65 78 74 |T...;;er|ror text|
|000009e0| 18 06 15 50 85 49 43 42 | 41 4c 39 3b 3b 74 6f 20 |...P.ICB|AL9;;to |
|000009f0| 70 72 69 6e 74 22 06 10 | 51 3e 86 4f 45 54 45 58 |print"..|Q>.OETEX|
|00000a00| 54 15 07 00 01 2c 06 0b | 50 85 49 43 42 41 48 39 |T....,..|P.ICBAH9|
|00000a10| 36 06 15 51 3e 08 50 3b | 3b 38 30 20 63 68 61 72 |6..Q>.P;|;80 char|
|00000a20| 73 2c 20 6f 72 40 06 1b | 50 85 49 43 42 4c 4c 39 |s, or@..|P.ICBLL9|
|00000a30| 3b 3b 45 4f 4c 2c 20 77 | 68 69 63 68 65 76 65 72 |;;EOL, w|hichever|
|00000a40| 4a 06 14 51 3e 08 00 3b | 3b 63 6f 6d 65 73 20 66 |J..Q>..;|;comes f|
|00000a50| 69 72 73 74 54 06 0b 50 | 85 49 43 42 4c 48 39 5e |irstT..P|.ICBLH9^|
|00000a60| 06 09 20 84 43 49 4f 56 | 68 06 04 3a 72 06 0a 86 |.. .CIOV|h..:r...|
|00000a70| 4f 45 54 45 58 54 7c 06 | 19 0b 41 8d 45 72 72 6f |OETEXT|.|..A.Erro|
|00000a80| 72 20 6f 6e 20 6f 70 65 | 6e 41 3d 83 45 4f 4c    |r on ope|nA=.EOL |
+--------+-------------------------+-------------------------+--------+--------+