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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 31 08 64 00 12 58 | 3b 20 53 59 53 54 45 4d |..1.d..X|; SYSTEM|
|00000010| 20 52 45 52 55 4e 6e 00 | 18 58 3b 42 79 3a 20 43 | RERUNn.|.X;By: C|
|00000020| 2e 46 2e 46 6f 67 61 72 | 74 79 20 49 49 49 82 00 |.F.Fogar|ty III..|
|00000030| 11 58 3b 56 65 72 73 69 | 6f 6e 3a 20 31 2e 30 96 |.X;Versi|on: 1.0.|
|00000040| 00 05 58 3b a4 01 07 1d | 05 80 06 ae 01 05 58 3b |..X;....|......X;|
|00000050| b8 01 1c 86 44 4f 53 56 | 45 43 1e 06 0a 3b 3b 44 |....DOSV|EC...;;D|
|00000060| 4f 53 20 41 64 72 2e 20 | 66 72 6f 6d bd 01 0a 1a |OS Adr. |from....|
|00000070| 3b 42 41 53 49 43 c2 01 | 1e 86 44 4f 53 49 4e 49 |;BASIC..|..DOSINI|
|00000080| 1e 06 0c 3b 3b 44 69 73 | 6b 20 42 6f 6f 74 20 49 |...;;Dis|k Boot I|
|00000090| 6e 69 74 2e c7 01 0c 1a | 3b 61 64 64 72 65 73 73 |nit.....|;address|
|000000a0| cc 01 05 58 3b d6 01 14 | 85 49 43 43 4f 4d 1e 05 |...X;...|.ICCOM..|
|000000b0| 42 03 3b 3b 49 4f 43 42 | 30 e0 01 0d 85 49 43 42 |B.;;IOCB|0....ICB|
|000000c0| 41 4c 1e 05 44 03 ea 01 | 0d 85 49 43 42 41 48 1e |AL..D...|..ICBAH.|
|000000d0| 05 45 03 f4 01 0d 85 49 | 43 42 4c 4c 1e 05 48 03 |.E.....I|CBLL..H.|
|000000e0| fe 01 0d 85 49 43 42 4c | 48 1e 05 49 03 08 02 0f |....ICBL|H..I....|
|000000f0| 87 50 4f 4b 45 38 34 32 | 1e 05 4a 03 12 02 05 58 |.POKE842|..J....X|
|00000100| 3b 1c 02 19 84 43 49 4f | 56 1e 05 56 e4 3b 3b 43 |;....CIO|V..V.;;C|
|00000110| 65 6e 74 72 61 6c 20 49 | 2f 4f 26 02 05 58 3b 30 |entral I|/O&..X;0|
|00000120| 02 1d 85 57 52 49 54 45 | 1e 06 08 3b 3b 49 43 43 |...WRITE|...;;ICC|
|00000130| 4f 4d 20 57 72 69 74 65 | 20 43 6d 64 3a 02 20 87 |OM Write| Cmd:. .|
|00000140| 42 55 46 52 4c 45 4e 1e | 08 0e 3b 3b 4c 65 6e 67 |BUFRLEN.|..;;Leng|
|00000150| 74 68 20 6f 66 20 47 4f | 54 4f 31 30 44 02 05 58 |th of GO|TO10D..X|
|00000160| 3b 4e 02 04 37 58 02 05 | 58 3b 62 02 24 58 3b 53 |;N..7X..|X;b.$X;S|
|00000170| 74 65 61 6c 20 44 4f 53 | 56 45 43 20 61 6e 64 20 |teal DOS|VEC and |
|00000180| 44 4f 53 49 4e 49 20 74 | 68 65 6e 2e 2e 2e 6c 02 |DOSINI t|hen...l.|
|00000190| 05 58 3b 76 02 0b 51 86 | 44 4f 53 56 45 43 80 02 |.X;v..Q.|DOSVEC..|
|000001a0| 0b 50 86 56 45 43 44 4f | 53 8a 02 0e 51 86 44 4f |.P.VECDO|S...Q.DO|
|000001b0| 53 56 45 43 12 08 01 94 | 02 0e 50 86 56 45 43 44 |SVEC....|..P.VECD|
|000001c0| 4f 53 12 08 01 9e 02 05 | 58 3b a8 02 0b 51 86 44 |OS......|X;...Q.D|
|000001d0| 4f 53 49 4e 49 b2 02 08 | 50 83 44 4f 53 bc 02 0e |OSINI...|P.DOS...|
|000001e0| 51 86 44 4f 53 49 4e 49 | 12 08 01 c6 02 0b 50 83 |Q.DOSINI|......P.|
|000001f0| 44 4f 53 12 08 01 d0 02 | 05 58 3b da 02 20 58 3b |DOS.....|.X;.. X;|
|00000200| 50 6f 69 6e 74 20 74 68 | 65 6d 20 74 6f 20 74 68 |Point th|em to th|
|00000210| 69 73 20 72 6f 75 74 69 | 6e 65 2e e4 02 05 58 3b |is routi|ne....X;|
|00000220| ee 02 14 85 45 4e 54 52 | 59 51 3e 85 45 4e 54 52 |....ENTR|YQ>.ENTR|
|00000230| 59 16 08 ff f8 02 0b 50 | 86 44 4f 53 49 4e 49 02 |Y......P|.DOSINI.|
|00000240| 03 0f 51 3e 85 45 4e 54 | 52 59 15 07 00 01 0c 03 |..Q>.ENT|RY......|
|00000250| 0e 50 86 44 4f 53 49 4e | 49 12 08 01 16 03 05 58 |.P.DOSIN|I......X|
|00000260| 3b 20 03 24 58 3b 43 6f | 6e 74 69 6e 75 65 20 69 |; .$X;Co|ntinue i|
|00000270| 6e 69 74 69 61 6c 69 7a | 61 74 69 6f 6e 20 70 72 |nitializ|ation pr|
|00000280| 6f 63 65 73 73 25 03 1f | 58 3b 61 6e 64 20 72 65 |ocess%..|X;and re|
|00000290| 6c 6f 61 64 20 74 68 65 | 20 22 44 3a 22 20 64 65 |load the| "D:" de|
|000002a0| 76 69 63 65 2a 03 1a 58 | 3b 74 6f 20 74 68 65 20 |vice*..X|;to the |
|000002b0| 48 61 6e 64 6c 65 72 20 | 54 61 62 6c 65 2e 34 03 |Handler |Table.4.|
|000002c0| 24 58 3b 54 68 69 73 20 | 69 73 20 77 68 65 72 65 |$X;This |is where|
|000002d0| 20 74 68 65 20 73 74 6f | 6c 65 6e 20 44 4f 53 49 | the sto|len DOSI|
|000002e0| 4e 49 39 03 17 58 3b 77 | 6f 75 6c 64 20 6e 6f 72 |NI9..X;w|ould nor|
|000002f0| 6d 61 6c 6c 79 20 67 6f | 2e 3e 03 05 58 3b 48 03 |mally go|.>..X;H.|
|00000300| 0f 0b 06 20 3b 3b 4a 53 | 52 20 44 4f 53 52 03 0b |... ;;JS|R DOSR..|
|00000310| 83 44 4f 53 09 05 40 15 | 5c 03 05 58 3b 66 03 22 |.DOS..@.|\..X;f."|
|00000320| 58 3b 54 68 65 6e 20 72 | 65 73 65 74 20 74 68 65 |X;Then r|eset the|
|00000330| 20 61 64 64 72 65 73 73 | 20 74 6f 20 4a 4d 50 6b | address| to JMPk|
|00000340| 03 1f 58 3b 74 6f 20 77 | 68 65 6e 20 44 4f 53 20 |..X;to w|hen DOS |
|00000350| 69 73 20 63 61 6c 6c 65 | 64 20 66 72 6f 6d 70 03 |is calle|d fromp.|
|00000360| 24 58 3b 42 41 53 49 43 | 2e 20 20 54 68 69 73 20 |$X;BASIC|.  This |
|00000370| 61 6c 6c 6f 77 73 20 79 | 6f 75 20 74 6f 20 65 78 |allows y|ou to ex|
|00000380| 69 74 75 03 12 58 3b 42 | 41 53 49 43 20 74 6f 20 |itu..X;B|ASIC to |
|00000390| 44 4f 53 2e 7a 03 21 58 | 3b 4f 74 68 65 72 77 69 |DOS.z.!X|;Otherwi|
|000003a0| 73 65 2c 20 79 6f 75 20 | 77 6f 75 6c 64 20 68 61 |se, you |would ha|
|000003b0| 76 65 20 74 6f 7f 03 1d | 58 3b 73 68 75 74 20 6f |ve to...|X;shut o|
|000003c0| 66 66 20 74 68 65 20 63 | 6f 6d 70 75 74 65 72 20 |ff the c|omputer |
|000003d0| 74 6f 84 03 21 58 3b 67 | 65 74 20 6f 75 74 20 6f |to..!X;g|et out o|
|000003e0| 66 20 74 68 65 20 42 41 | 53 49 43 20 70 72 6f 67 |f the BA|SIC prog|
|000003f0| 72 61 6d 89 03 15 58 3b | 74 68 61 74 20 69 73 20 |ram...X;|that is |
|00000400| 72 75 6e 6e 69 6e 67 2e | 8e 03 05 58 3b 98 03 0f |running.|...X;...|
|00000410| 51 3e 86 44 56 45 43 54 | 52 16 08 ff a2 03 0b 50 |Q>.DVECT|R......P|
|00000420| 86 44 4f 53 56 45 43 ac | 03 10 51 3e 86 44 56 45 |.DOSVEC.|..Q>.DVE|
|00000430| 43 54 52 15 07 00 01 b6 | 03 0e 50 86 44 4f 53 56 |CTR.....|..P.DOSV|
|00000440| 45 43 12 08 01 c0 03 05 | 58 3b ca 03 1a 58 3b 4e |EC......|X;...X;N|
|00000450| 6f 77 20 43 6c 65 61 72 | 20 74 68 65 20 73 63 72 |ow Clear| the scr|
|00000460| 65 65 6e 2c d4 03 22 58 | 3b 4d 6f 76 65 20 74 68 |een,.."X|;Move th|
|00000470| 65 20 63 75 72 73 6f 72 | 20 64 6f 77 6e 20 33 20 |e cursor| down 3 |
|00000480| 6c 69 6e 65 73 2c de 03 | 23 58 3b 57 72 69 74 65 |lines,..|#X;Write|
|00000490| 20 22 47 4f 54 4f 20 31 | 30 22 20 74 6f 20 74 68 | "GOTO 1|0" to th|
|000004a0| 65 20 73 63 72 65 65 6e | 2c e8 03 22 58 3b 4d 6f |e screen|,.."X;Mo|
|000004b0| 76 65 20 74 68 65 20 63 | 75 72 73 6f 72 20 75 70 |ve the c|ursor up|
|000004c0| 20 33 20 6c 69 6e 65 73 | 2e 2e 2e f2 03 05 58 3b | 3 lines|......X;|
|000004d0| fc 03 07 24 3e 08 00 06 | 04 0b 51 3e 85 57 52 49 |...$>...|..Q>.WRI|
|000004e0| 54 45 10 04 0a 50 85 49 | 43 43 4f 4d 1a 04 0f 51 |TE...P.I|CCOM...Q|
|000004f0| 3e 86 47 4f 54 4f 31 30 | 16 08 ff 24 04 0a 50 85 |>.GOTO10|...$..P.|
|00000500| 49 43 42 41 4c 2e 04 10 | 51 3e 86 47 4f 54 4f 31 |ICBAL...|Q>.GOTO1|
|00000510| 30 15 07 00 01 38 04 0a | 50 85 49 43 42 41 48 42 |0....8..|P.ICBAHB|
|00000520| 04 0d 51 3e 87 42 55 46 | 52 4c 45 4e 4c 04 0a 50 |..Q>.BUF|RLENL..P|
|00000530| 85 49 43 42 4c 4c 56 04 | 0a 26 85 49 43 42 4c 48 |.ICBLLV.|.&.ICBLH|
|00000540| 60 04 09 20 84 43 49 4f | 56 6a 04 05 58 3b 74 04 |`.. .CIO|Vj..X;t.|
|00000550| 23 58 3b 2e 2e 2e 73 74 | 61 72 74 20 74 68 65 20 |#X;...st|art the |
|00000560| 64 79 6e 61 6d 69 63 20 | 63 75 72 73 6f 72 2e 2e |dynamic |cursor..|
|00000570| 2e 7e 04 05 58 3b 88 04 | 07 51 3e 08 0d 92 04 0c |.~..X;..|.Q>.....|
|00000580| 50 87 50 4f 4b 45 38 34 | 32 9c 04 05 58 3b a6 04 |P.POKE84|2...X;..|
|00000590| 24 58 3b 2e 2e 2e 61 6e | 64 20 72 65 74 75 72 6e |$X;...an|d return|
|000005a0| 20 63 6f 6e 74 72 6f 6c | 20 74 6f 20 42 41 53 49 | control| to BASI|
|000005b0| 43 2e b0 04 05 58 3b ba | 04 04 3a c4 04 05 58 3b |C....X;.|..:...X;|
|000005c0| ce 04 22 58 3b 43 6f 6e | 74 72 6f 6c 20 67 6f 65 |.."X;Con|trol goe|
|000005d0| 73 20 68 65 72 65 20 77 | 68 65 6e 20 44 4f 53 20 |s here w|hen DOS |
|000005e0| 69 73 d3 04 17 58 3b 63 | 61 6c 6c 65 64 20 66 72 |is...X;c|alled fr|
|000005f0| 6f 6d 20 42 41 53 49 43 | 2e d8 04 22 58 3b 49 74 |om BASIC|..."X;It|
|00000600| 20 72 65 73 65 74 73 20 | 74 68 65 20 70 6f 69 6e | resets |the poin|
|00000610| 74 65 72 73 20 74 6f 20 | 44 4f 53 e2 04 20 58 3b |ters to |DOS.. X;|
|00000620| 61 6e 64 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |and allo|ws you t|
|00000630| 6f 20 65 78 69 74 20 66 | 72 6f 6d e7 04 0b 58 3b |o exit f|rom...X;|
|00000640| 42 41 53 49 43 2e ec 04 | 05 58 3b f6 04 0f 86 44 |BASIC...|.X;....D|
|00000650| 56 45 43 54 52 51 83 44 | 4f 53 00 05 0b 50 86 44 |VECTRQ.D|OS...P.D|
|00000660| 4f 53 49 4e 49 0a 05 0b | 51 83 44 4f 53 12 08 01 |OSINI...|Q.DOS...|
|00000670| 14 05 0e 50 86 44 4f 53 | 49 4e 49 12 08 01 1e 05 |...P.DOS|INI.....|
|00000680| 05 58 3b 28 05 23 58 3b | 4e 6f 77 20 4a 4d 50 20 |.X;(.#X;|Now JMP |
|00000690| 74 6f 20 77 68 65 72 65 | 20 44 4f 53 56 45 43 20 |to where| DOSVEC |
|000006a0| 73 68 6f 75 6c 64 2d 05 | 23 58 3b 68 61 76 65 20 |should-.|#X;have |
|000006b0| 67 6f 6e 65 20 69 66 20 | 69 74 20 77 61 73 6e 27 |gone if |it wasn'|
|000006c0| 74 20 73 74 6f 6c 65 6e | 2e 32 05 1f 58 3b 41 6e |t stolen|.2..X;An|
|000006d0| 64 20 44 4f 53 20 77 69 | 6c 6c 20 74 61 6b 65 20 |d DOS wi|ll take |
|000006e0| 63 6f 6e 74 72 6f 6c 2e | 3c 05 05 58 3b 46 05 12 |control.|<..X;F..|
|000006f0| 0b 06 4c 3b 3b 4a 4d 50 | 20 44 4f 53 56 45 43 50 |..L;;JMP| DOSVECP|
|00000700| 05 0e 86 56 45 43 44 4f | 53 09 05 9f 17 5a 05 05 |...VECDO|S....Z..|
|00000710| 58 3b 64 05 20 58 3b 50 | 4f 4b 45 20 35 36 36 2c |X;d. X;P|OKE 566,|
|00000720| 42 52 45 41 4b 26 32 35 | 35 20 61 6e 64 20 50 4f |BREAK&25|5 and PO|
|00000730| 4b 45 69 05 18 58 3b 35 | 36 37 2c 42 52 45 41 4b |KEi..X;5|67,BREAK|
|00000740| 2f 32 35 36 20 74 68 65 | 6e 2c 6e 05 23 58 3b 43 |/256 the|n,n.#X;C|
|00000750| 6f 6e 74 72 6f 6c 20 67 | 6f 65 73 20 68 65 72 65 |ontrol g|oes here|
|00000760| 20 77 68 65 6e 20 5b 42 | 52 45 41 4b 5d 73 05 10 | when [B|REAK]s..|
|00000770| 58 3b 69 73 20 70 72 65 | 73 73 65 64 2e 78 05 21 |X;is pre|ssed.x.!|
|00000780| 58 3b 54 68 65 73 65 20 | 32 20 63 6f 6d 6d 61 6e |X;These |2 comman|
|00000790| 64 73 20 64 69 73 61 62 | 6c 65 20 74 68 65 7d 05 |ds disab|le the}.|
|000007a0| 21 58 3b 5b 42 52 45 41 | 4b 5d 20 6b 65 79 20 66 |!X;[BREA|K] key f|
|000007b0| 6f 72 20 4f 53 20 27 42 | 27 20 52 4f 4d 53 2e 82 |or OS 'B|' ROMS..|
|000007c0| 05 05 58 3b 8c 05 0a 85 | 42 52 45 41 4b 37 96 05 |..X;....|BREAK7..|
|000007d0| 04 39 a0 05 23 58 3b 54 | 68 65 20 69 6e 66 6f 72 |.9..#X;T|he infor|
|000007e0| 6d 61 74 69 6f 6e 20 74 | 68 61 74 20 79 6f 75 20 |mation t|hat you |
|000007f0| 70 72 69 6e 74 a5 05 1b | 58 3b 74 6f 20 74 68 65 |print...|X;to the|
|00000800| 20 73 63 72 65 65 6e 20 | 66 6f 6c 6c 6f 77 73 3a | screen |follows:|
|00000810| aa 05 05 58 3b b4 05 1c | 86 47 4f 54 4f 31 30 0b |...X;...|.GOTO10.|
|00000820| 41 8e 7d 1d 1d 1d 47 4f | 54 4f 20 31 30 1c 1c 1c |A.}...GO|TO 10...|
|00000830| 41 be 05 04 0e          |                         |A....   |        |
+--------+-------------------------+-------------------------+--------+--------+