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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 47 08 0a 00 20 58 | 3b 4c 69 73 74 69 6e 67 |..G... X|;Listing|
|00000010| 20 31 20 66 6f 72 20 43 | 68 61 72 61 63 74 65 72 | 1 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 20 58 3b 45 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 6e |r IOCB o|peration|
|00000090| 73 64 00 05 58 3b 6e 00 | 0b 84 4f 50 45 4e 1e 06 |sd..X;n.|..OPEN..|
|000000a0| 03 78 00 0d 86 47 45 54 | 52 45 43 1e 06 05 82 00 |.x...GET|REC.....|
|000000b0| 0d 86 50 55 54 52 45 43 | 1e 06 09 8c 00 0c 85 43 |..PUTREC|.......C|
|000000c0| 4c 4f 53 45 1e 06 0c 96 | 00 0a 83 45 4f 4c 1e 06 |LOSE....|...EOL..|
|000000d0| 9b a0 00 05 58 3b aa 00 | 1d 58 3b 70 6f 69 6e 74 |....X;..|.X;point|
|000000e0| 65 72 20 74 6f 20 63 68 | 61 72 61 63 74 65 72 20 |er to ch|aracter |
|000000f0| 73 65 74 b4 00 05 58 3b | be 00 0d 85 43 48 42 41 |set...X;|....CHBA|
|00000100| 53 1e 05 f4 02 c8 00 05 | 58 3b d2 00 1f 58 3b 65 |S.......|X;...X;e|
|00000110| 71 75 61 74 65 73 20 66 | 6f 72 20 49 4f 43 42 20 |quates f|or IOCB |
|00000120| 61 64 64 72 65 73 73 65 | 73 dc 00 05 58 3b e6 00 |addresse|s...X;..|
|00000130| 0d 85 49 43 43 4f 4d 1e | 05 42 03 f0 00 0d 85 49 |..ICCOM.|.B.....I|
|00000140| 43 42 41 4c 1e 05 44 03 | fa 00 0d 85 49 43 42 41 |CBAL..D.|....ICBA|
|00000150| 48 1e 05 45 03 04 01 0d | 85 49 43 42 4c 4c 1e 05 |H..E....|.ICBLL..|
|00000160| 48 03 0e 01 0d 85 49 43 | 42 4c 48 1e 05 49 03 18 |H.....IC|BLH..I..|
|00000170| 01 0d 85 49 43 41 58 31 | 1e 05 4a 03 22 01 0d 85 |...ICAX1|..J."...|
|00000180| 49 43 41 58 32 1e 05 4b | 03 2c 01 0c 84 43 49 4f |ICAX2..K|.,...CIO|
|00000190| 56 1e 05 56 e4 36 01 05 | 58 3b 40 01 21 58 3b 72 |V..V.6..|X;@.!X;r|
|000001a0| 65 64 65 66 69 6e 65 64 | 20 63 68 61 72 61 63 74 |edefined| charact|
|000001b0| 65 72 20 73 65 74 20 77 | 69 6c 6c 4a 01 23 58 3b |er set w|illJ.#X;|
|000001c0| 73 74 61 72 74 20 61 74 | 20 24 34 30 30 30 20 61 |start at| $4000 a|
|000001d0| 6e 64 20 67 6f 20 74 6f | 20 24 34 33 46 46 54 01 |nd go to| $43FFT.|
|000001e0| 05 58 3b 5e 01 0e 86 52 | 41 4d 53 45 54 1e 05 00 |.X;^...R|AMSET...|
|000001f0| 40 68 01 05 58 3b 72 01 | 20 58 3b 52 4f 4d 20 63 |@h..X;r.| X;ROM c|
|00000200| 68 61 72 61 63 74 65 72 | 20 73 65 74 20 73 74 61 |haracter| set sta|
|00000210| 72 74 73 20 61 74 7c 01 | 1c 58 3b 24 45 30 30 30 |rts at|.|.X;$E000|
|00000220| 20 61 6e 64 20 67 6f 65 | 73 20 74 6f 20 24 45 33 | and goe|s to $E3|
|00000230| 46 46 86 01 05 58 3b 90 | 01 0e 86 52 4f 4d 53 45 |FF...X;.|...ROMSE|
|00000240| 54 1e 05 00 e0 9a 01 05 | 58 3b a4 01 23 58 3b 2a |T.......|X;..#X;*|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a ae 01 1d |********|*****...|
|00000270| 58 3b 20 20 20 20 20 50 | 52 4f 47 52 41 4d 20 42 |X;     P|ROGRAM B|
|00000280| 45 47 49 4e 53 20 48 45 | 52 45 b8 01 23 58 3b 2a |EGINS HE|RE..#X;*|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a c2 01 05 |********|*****...|
|000002b0| 58 3b cc 01 07 1d 05 00 | 50 d6 01 05 58 3b e0 01 |X;......|P...X;..|
|000002c0| 0d 20 88 4d 4f 56 45 43 | 48 41 52 ea 01 0d 20 88 |. .MOVEC|HAR... .|
|000002d0| 52 45 44 45 46 49 4e 45 | f4 01 0a 20 85 50 52 49 |REDEFINE|... .PRI|
|000002e0| 4e 54 fe 01 0c 83 45 4e | 44 21 83 45 4e 44 08 02 |NT....EN|D!.END..|
|000002f0| 05 58 3b 12 02 23 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 1c 02 | 1f 58 3b 20 20 20 20 53 |******..|.X;    S|
|00000320| 55 42 52 4f 55 54 49 4e | 45 53 20 42 45 47 49 4e |UBROUTIN|ES BEGIN|
|00000330| 20 48 45 52 45 26 02 23 | 58 3b 2a 2a 2a 2a 2a 2a | HERE&.#|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 | 30 02 05 58 3b 3a 02 22 |********|0..X;:."|
|00000360| 58 3b 73 75 62 72 6f 75 | 74 69 6e 65 20 74 6f 20 |X;subrou|tine to |
|00000370| 63 6f 70 79 20 65 6e 74 | 69 72 65 20 52 4f 4d 44 |copy ent|ire ROMD|
|00000380| 02 23 58 3b 63 68 61 72 | 61 63 74 65 72 20 73 65 |.#X;char|acter se|
|00000390| 74 20 69 6e 74 6f 20 52 | 41 4d 20 61 74 20 79 6f |t into R|AM at yo|
|000003a0| 75 72 4e 02 20 58 3b 64 | 65 73 69 67 6e 61 74 65 |urN. X;d|esignate|
|000003b0| 64 20 61 64 64 72 65 73 | 73 20 28 52 41 4d 53 45 |d addres|s (RAMSE|
|000003c0| 54 29 58 02 05 58 3b 62 | 02 0c 88 4d 4f 56 45 43 |T)X..X;b|...MOVEC|
|000003d0| 48 41 52 6c 02 07 24 3e | 08 00 76 02 09 85 43 48 |HARl..$>|..v...CH|
|000003e0| 4c 50 31 80 02 0c 51 86 | 52 4f 4d 53 45 54 39 8a |LP1...Q.|ROMSET9.|
|000003f0| 02 0c 50 86 52 41 4d 53 | 45 54 39 94 02 10 51 86 |..P.RAMS|ET9...Q.|
|00000400| 52 4f 4d 53 45 54 12 05 | 00 01 39 9e 02 10 50 86 |ROMSET..|..9...P.|
|00000410| 52 41 4d 53 45 54 12 05 | 00 01 39 a8 02 10 51 86 |RAMSET..|..9...Q.|
|00000420| 52 4f 4d 53 45 54 12 05 | 00 02 39 b2 02 10 50 86 |ROMSET..|..9...P.|
|00000430| 52 41 4d 53 45 54 12 05 | 00 02 39 bc 02 10 51 86 |RAMSET..|..9...Q.|
|00000440| 52 4f 4d 53 45 54 12 05 | 00 03 39 c6 02 10 50 86 |ROMSET..|..9...P.|
|00000450| 52 41 4d 53 45 54 12 05 | 00 03 39 d0 02 04 32 da |RAMSET..|..9...2.|
|00000460| 02 0a 48 85 43 48 4c 50 | 31 e4 02 04 3a ee 02 05 |..H.CHLP|1...:...|
|00000470| 58 3b f8 02 24 58 3b 73 | 75 62 72 6f 75 74 69 6e |X;..$X;s|ubroutin|
|00000480| 65 20 74 6f 20 72 65 64 | 65 66 69 6e 65 20 73 65 |e to red|efine se|
|00000490| 6c 65 63 74 65 64 02 03 | 23 58 3b 67 72 6f 75 70 |lected..|#X;group|
|000004a0| 20 6f 66 20 63 68 61 72 | 61 63 74 65 72 73 20 69 | of char|acters i|
|000004b0| 6e 20 74 68 65 20 52 41 | 4d 0c 03 24 58 3b 73 65 |n the RA|M..$X;se|
|000004c0| 74 3b 20 69 6e 20 74 68 | 69 73 20 63 61 73 65 2c |t; in th|is case,|
|000004d0| 20 35 20 63 68 61 72 61 | 63 74 65 72 73 16 03 21 | 5 chara|cters..!|
|000004e0| 58 3b 74 6f 74 61 6c 6c | 69 6e 67 20 34 30 20 62 |X;totall|ing 40 b|
|000004f0| 79 74 65 73 3b 20 72 65 | 70 6c 61 63 65 73 20 03 |ytes; re|places .|
|00000500| 20 58 3b 63 68 61 72 61 | 63 74 65 72 73 20 33 33 | X;chara|cters 33|
|00000510| 2d 33 37 20 69 6e 20 52 | 41 4d 20 73 65 74 2a 03 |-37 in R|AM set*.|
|00000520| 05 58 3b 34 03 0c 88 52 | 45 44 45 46 49 4e 45 3e |.X;4...R|EDEFINE>|
|00000530| 03 07 24 3e 08 27 48 03 | 09 85 52 44 4c 50 31 52 |..$>.'H.|..RDLP1R|
|00000540| 03 0d 51 87 4e 45 57 43 | 48 41 52 39 5c 03 10 50 |..Q.NEWC|HAR9\..P|
|00000550| 86 52 41 4d 53 45 54 12 | 07 08 01 39 66 03 04 30 |.RAMSET.|...9f..0|
|00000560| 70 03 0a 49 85 52 44 4c | 50 31 7a 03 04 3a 84 03 |p..I.RDL|P1z..:..|
|00000570| 05 58 3b 8e 03 23 58 3b | 74 61 62 6c 65 20 6f 66 |.X;..#X;|table of|
|00000580| 20 62 79 74 65 20 64 61 | 74 61 20 66 6f 72 20 74 | byte da|ta for t|
|00000590| 68 65 20 6e 65 77 98 03 | 22 58 3b 63 68 61 72 61 |he new..|"X;chara|
|000005a0| 63 74 65 72 73 2c 20 38 | 20 62 79 74 65 73 20 70 |cters, 8| bytes p|
|000005b0| 65 72 20 63 68 61 72 2e | a2 03 05 58 3b ac 03 0b |er char.|...X;...|
|000005c0| 87 4e 45 57 43 48 41 52 | b6 03 0f 0b 08 3c 3d 08 |.NEWCHAR|.....<=.|
|000005d0| 66 3d 08 c6 3d 08 c6 c0 | 03 0f 0b 08 c6 3d 08 66 |f=..=...|.....=.f|
|000005e0| 3d 08 3b 3d 08 00 ca 03 | 0f 0b 08 3e 3d 08 63 3d |=.;=....|...>=.c=|
|000005f0| 08 63 3d 08 63 d4 03 0f | 0b 08 7e 3d 08 63 3d 08 |.c=.c...|..~=.c=.|
|00000600| 7e 3d 08 00 de 03 0f 0b | 08 3c 3d 08 63 3d 08 60 |~=......|.<=.c=.`|
|00000610| 3d 08 60 e8 03 0f 0b 08 | 60 3d 08 63 3d 08 3e 3d |=.`.....|`=.c=.>=|
|00000620| 08 00 f2 03 0f 0b 08 3c | 3d 08 63 3d 08 63 3d 08 |.......<|=.c=.c=.|
|00000630| 63 fc 03 0f 0b 08 63 3d | 08 66 3d 08 7c 3d 08 00 |c.....c=|.f=.|=..|
|00000640| 06 04 0f 0b 08 3c 3d 08 | 62 3d 08 60 3d 08 7c 10 |.....<=.|b=.`=.|.|
|00000650| 04 0f 0b 08 60 3d 08 7f | 3d 08 3c 3d 08 00 1a 04 |....`=..|=.<=....|
|00000660| 05 58 3b 24 04 24 58 3b | 73 75 62 72 6f 75 74 69 |.X;$.$X;|subrouti|
|00000670| 6e 65 20 74 6f 20 70 72 | 69 6e 74 20 61 20 73 74 |ne to pr|int a st|
|00000680| 72 69 6e 67 20 6f 66 2e | 04 22 58 3b 74 65 78 74 |ring of.|."X;text|
|00000690| 20 6f 6e 20 74 68 65 20 | 73 63 72 65 65 6e 20 28 | on the |screen (|
|000006a0| 75 70 20 74 6f 20 35 31 | 32 38 04 24 58 3b 63 68 |up to 51|28.$X;ch|
|000006b0| 61 72 61 63 74 65 72 73 | 20 6c 6f 6e 67 29 2c 20 |aracters| long), |
|000006c0| 75 73 69 6e 67 20 74 68 | 65 20 52 41 4d 42 04 12 |using th|e RAMB..|
|000006d0| 58 3b 63 68 61 72 61 63 | 74 65 72 20 73 65 74 4c |X;charac|ter setL|
|000006e0| 04 05 58 3b 56 04 09 85 | 50 52 49 4e 54 60 04 1a |..X;V...|PRINT`..|
|000006f0| 51 3e 86 52 41 4d 53 45 | 54 15 07 00 01 3b 3b 70 |Q>.RAMSE|T....;;p|
|00000700| 6f 69 6e 74 20 74 6f 6a | 04 17 50 85 43 48 42 41 |oint toj|..P.CHBA|
|00000710| 53 3b 3b 52 41 4d 20 63 | 68 61 72 73 65 74 74 04 |S;;RAM c|harsett.|
|00000720| 10 24 3e 08 00 3b 3b 49 | 4f 43 42 20 23 31 7e 04 |.$>..;;I|OCB #1~.|
|00000730| 1a 51 3e 86 50 55 54 52 | 45 43 3b 3b 6f 70 65 72 |.Q>.PUTR|EC;;oper|
|00000740| 61 74 69 6f 6e 20 69 73 | 88 04 19 50 85 49 43 43 |ation is|...P.ICC|
|00000750| 4f 4d 39 3b 3b 50 55 54 | 20 61 20 52 45 43 6f 72 |OM9;;PUT| a RECor|
|00000760| 64 92 04 1b 51 3e 84 54 | 45 58 54 16 08 ff 3b 3b |d...Q>.T|EXT...;;|
|00000770| 70 6f 69 6e 74 20 74 6f | 20 74 68 65 9c 04 18 50 |point to| the...P|
|00000780| 85 49 43 42 41 4c 39 3b | 3b 74 65 78 74 20 73 74 |.ICBAL9;|;text st|
|00000790| 72 69 6e 67 a6 04 0e 51 | 3e 84 54 45 58 54 15 07 |ring...Q|>.TEXT..|
|000007a0| 00 01 b0 04 0b 50 85 49 | 43 42 41 48 39 ba 04 14 |.....P.I|CBAH9...|
|000007b0| 51 3e 08 00 3b 3b 70 72 | 69 6e 74 20 75 70 20 74 |Q>..;;pr|int up t|
|000007c0| 6f c4 04 16 50 85 49 43 | 42 4c 4c 39 3b 3b 32 2a |o...P.IC|BLL9;;2*|
|000007d0| 32 35 36 3d 35 31 32 ce | 04 0e 51 3e 08 02 3b 3b |256=512.|..Q>..;;|
|000007e0| 62 79 74 65 73 d8 04 0b | 50 85 49 43 42 4c 48 39 |bytes...|P.ICBLH9|
|000007f0| e2 04 14 20 84 43 49 4f | 56 3b 3b 67 6f 20 64 6f |... .CIO|V;;go do|
|00000800| 20 69 74 21 ec 04 04 3a | f6 04 05 58 3b 00 05 23 | it!...:|...X;..#|
|00000810| 58 3b 73 74 72 69 6e 67 | 20 62 65 69 6e 67 20 70 |X;string| being p|
|00000820| 72 69 6e 74 65 64 20 6f | 6e 20 73 63 72 65 65 6e |rinted o|n screen|
|00000830| 0a 05 05 58 3b 14 05 16 | 84 54 45 58 54 0b 41 85 |...X;...|.TEXT.A.|
|00000840| 41 42 43 44 45 41 3d 83 | 45 4f 4c                |ABCDEA=.|EOL     |
+--------+-------------------------+-------------------------+--------+--------+