/ A.N.A.L.O.G. Magazine 1989 March / 89_mar.atr / dupbasic.m65

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 51 0a 0a 00 24 58 | 2a 2a 2a 2a 2a 2a 2a 2a |..Q...$X|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 14 00 24 58 2a 20 20 20 |********|..$X*   |
|00000030| 20 20 20 20 42 41 53 49 | 43 20 44 55 50 65 72 20 |    BASI|C DUPer |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 2a 1e 00 24 58 |        |   *..$X|
|00000050| 2a 20 20 20 20 20 42 79 | 20 42 69 6c 6c 20 42 6f |*     By| Bill Bo|
|00000060| 64 65 6e 73 74 65 69 6e | 20 20 20 20 20 20 20 2a |denstein|       *|
|00000070| 28 00 24 58 2a 20 20 20 | 20 20 20 20 20 20 20 20 |(.$X*   |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 20 20 20 2a 32 00 24 58 | 2a 20 20 20 20 20 20 20 |   *2.$X|*       |
|000000a0| 43 4f 50 59 52 49 47 48 | 54 20 31 39 38 38 20 20 |COPYRIGH|T 1988  |
|000000b0| 20 20 20 20 20 20 20 2a | 3c 00 24 58 2a 20 20 20 |       *|<.$X*   |
|000000c0| 20 20 42 59 20 41 4e 41 | 4c 4f 47 20 43 4f 4d 50 |  BY ANA|LOG COMP|
|000000d0| 55 54 49 4e 47 20 20 20 | 20 20 20 2a 46 00 24 58 |UTING   |   *F.$X|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 50 00 05 58 3b 5a 00 22 | 58 3b 54 68 69 73 20 70 |P..X;Z."|X;This p|
|00000110| 72 6f 67 72 61 6d 20 6d | 6f 64 69 66 69 65 73 20 |rogram m|odifies |
|00000120| 44 55 50 2e 53 59 53 64 | 00 23 58 3b 28 44 4f 53 |DUP.SYSd|.#X;(DOS|
|00000130| 20 32 2e 35 20 76 65 72 | 73 69 6f 6e 20 6f 6e 6c | 2.5 ver|sion onl|
|00000140| 79 29 20 74 6f 20 6d 61 | 6b 65 6e 00 22 58 3b 69 |y) to ma|ken."X;i|
|00000150| 74 20 64 69 73 61 62 6c | 65 20 42 41 53 49 43 20 |t disabl|e BASIC |
|00000160| 77 68 65 6e 20 6c 6f 61 | 64 65 64 2c 78 00 23 58 |when loa|ded,x.#X|
|00000170| 3b 61 6e 64 20 65 6e 61 | 62 6c 65 20 74 68 65 20 |;and ena|ble the |
|00000180| 42 41 53 49 43 20 63 61 | 72 74 72 69 64 67 65 82 |BASIC ca|rtridge.|
|00000190| 00 1e 58 3b 77 68 65 6e | 20 65 78 69 74 69 6e 67 |..X;when| exiting|
|000001a0| 20 77 69 74 68 20 74 68 | 65 20 52 55 4e 8c 00 18 | with th|e RUN...|
|000001b0| 58 3b 43 41 52 54 52 49 | 44 47 45 20 66 75 6e 63 |X;CARTRI|DGE func|
|000001c0| 74 69 6f 6e 2e 96 00 1d | 58 3b 41 70 70 65 6e 64 |tion....|X;Append|
|000001d0| 20 74 68 69 73 20 63 6f | 64 65 20 74 6f 20 79 6f | this co|de to yo|
|000001e0| 75 72 a0 00 12 58 3b 44 | 55 50 2e 53 59 53 20 66 |ur...X;D|UP.SYS f|
|000001f0| 69 6c 65 2e aa 00 05 58 | 3b b4 00 13 58 2a 2a 2a |ile....X|;...X***|
|00000200| 20 45 51 55 41 54 45 53 | 20 2a 2a 2a be 00 05 58 | EQUATES| ***...X|
|00000210| 3b c8 00 1f 86 43 4f 4e | 53 4f 4c 1e 05 1f d0 3b |;....CON|SOL....;|
|00000220| 3b 42 75 74 74 6f 6e 20 | 70 72 65 73 73 65 64 3f |;Button |pressed?|
|00000230| d2 00 1a 86 53 45 4c 45 | 43 54 1e 08 05 3b 3b 54 |....SELE|CT...;;T|
|00000240| 68 69 73 20 62 75 74 74 | 6f 6e dc 00 05 58 3b e6 |his butt|on...X;.|
|00000250| 00 1a 85 50 4f 52 54 42 | 1e 05 01 d3 3b 3b 52 4f |...PORTB|....;;RO|
|00000260| 4d 20 6f 72 20 52 41 4d | 3f f0 00 05 58 3b fa 00 |M or RAM|?...X;..|
|00000270| 1e 86 44 4d 41 43 54 4c | 1e 05 00 d4 3b 3b 53 63 |..DMACTL|....;;Sc|
|00000280| 72 65 65 6e 20 6f 6e 2f | 6f 66 66 3f 04 01 05 58 |reen on/|off?...X|
|00000290| 3b 0e 01 1c 86 52 41 4d | 54 4f 50 1e 06 6a 3b 3b |;....RAM|TOP..j;;|
|000002a0| 4e 75 6d 20 52 41 4d 20 | 70 61 67 65 73 18 01 05 |Num RAM |pages...|
|000002b0| 58 3b 22 01 1e 87 49 4e | 49 54 41 44 52 1e 05 e2 |X;"...IN|ITADR...|
|000002c0| 02 3b 3b 42 69 6e 20 6c | 64 20 76 65 63 74 6f 72 |.;;Bin l|d vector|
|000002d0| 2c 01 05 58 3b 36 01 05 | 58 3b 40 01 23 58 2a 2d |,..X;6..|X;@.#X*-|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 4a 01 1f |--------|----*J..|
|00000300| 58 3b 20 20 44 69 73 61 | 62 6c 65 20 42 41 53 49 |X;  Disa|ble BASI|
|00000310| 43 20 63 61 72 74 72 69 | 64 67 65 2e 54 01 23 58 |C cartri|dge.T.#X|
|00000320| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 5e |--------|------*^|
|00000340| 01 24 58 3b 42 65 66 6f | 72 65 20 44 55 50 20 74 |.$X;Befo|re DUP t|
|00000350| 61 6b 65 73 20 6f 76 65 | 72 2c 20 74 75 72 6e 20 |akes ove|r, turn |
|00000360| 74 68 65 68 01 1d 58 3b | 63 61 72 74 20 6f 66 66 |theh..X;|cart off|
|00000370| 20 75 6e 6c 65 73 73 20 | 5b 53 45 4c 45 43 54 5d | unless |[SELECT]|
|00000380| 72 01 22 58 3b 70 72 65 | 73 73 65 64 2e 20 54 68 |r."X;pre|ssed. Th|
|00000390| 69 73 20 72 6f 75 74 69 | 6e 65 20 69 73 20 6f 6e |is routi|ne is on|
|000003a0| 6c 79 7c 01 22 58 3b 75 | 73 65 64 20 6f 6e 63 65 |ly|."X;u|sed once|
|000003b0| 2c 20 73 6f 20 73 74 6f | 72 65 20 69 74 20 69 6e |, so sto|re it in|
|000003c0| 20 74 68 65 86 01 11 58 | 3b 74 65 78 74 20 62 75 | the...X|;text bu|
|000003d0| 66 66 65 72 2e 90 01 05 | 58 3b 9a 01 07 1d 05 80 |ffer....|X;......|
|000003e0| 05 a4 01 05 58 3b ae 01 | 0c 88 43 41 52 54 2e 4f |....X;..|..CART.O|
|000003f0| 46 46 b8 01 1b 51 86 43 | 4f 4e 53 4f 4c 3b 3b 5b |FF...Q.C|ONSOL;;[|
|00000400| 53 65 6c 65 63 74 5d 20 | 62 65 69 6e 67 c2 01 17 |Select] |being...|
|00000410| 52 3e 86 53 45 4c 45 43 | 54 3b 3b 20 70 72 65 73 |R>.SELEC|T;; pres|
|00000420| 73 65 64 3f cc 01 18 46 | 86 47 4f 2e 44 55 50 3b |sed?...F|.GO.DUP;|
|00000430| 3b 45 78 69 74 20 69 66 | 20 79 65 70 d6 01 05 58 |;Exit if| yep...X|
|00000440| 3b e0 01 1a 51 85 50 4f | 52 54 42 3b 3b 52 4f 4d |;...Q.PO|RTB;;ROM|
|00000450| 2f 52 41 4d 20 73 74 61 | 74 75 73 ea 01 17 4c 3e |/RAM sta|tus...L>|
|00000460| 06 02 3b 3b 42 69 74 20 | 31 20 74 65 6c 6c 73 20 |..;;Bit |1 tells |
|00000470| 75 73 f4 01 1b 52 85 50 | 4f 52 54 42 3b 3b 20 69 |us...R.P|ORTB;; i|
|00000480| 66 20 63 61 72 74 20 6f | 6e 2f 6f 66 66 fe 01 18 |f cart o|n/off...|
|00000490| 46 86 47 4f 2e 44 55 50 | 3b 3b 45 78 69 74 20 69 |F.GO.DUP|;;Exit i|
|000004a0| 66 20 6f 66 66 08 02 05 | 58 3b 12 02 19 50 85 50 |f off...|X;...P.P|
|000004b0| 4f 52 54 42 3b 3b 45 6c | 73 65 20 74 75 72 6e 20 |ORTB;;El|se turn |
|000004c0| 6f 66 66 1c 02 15 51 3e | 08 01 3b 3b 54 65 6c 6c |off...Q>|..;;Tell|
|000004d0| 20 6f 2e 73 2e 20 74 6f | 26 02 17 50 05 f8 03 3b | o.s. to|&..P...;|
|000004e0| 3b 20 6b 65 65 70 20 63 | 61 72 74 20 6f 66 66 30 |; keep c|art off0|
|000004f0| 02 05 58 3b 3a 02 15 51 | 3e 06 c0 3b 3b 47 69 76 |..X;:..Q|>..;;Giv|
|00000500| 65 20 75 73 20 6d 6f 72 | 65 44 02 19 50 86 52 41 |e us mor|eD..P.RA|
|00000510| 4d 54 4f 50 3b 3b 20 66 | 72 65 65 20 6d 65 6d 6f |MTOP;; f|ree memo|
|00000520| 72 79 4e 02 05 58 3b 58 | 02 23 58 3b 4c 65 74 20 |ryN..X;X|.#X;Let |
|00000530| 44 55 50 20 72 65 2d 6f | 70 65 6e 20 65 64 69 74 |DUP re-o|pen edit|
|00000540| 6f 72 20 74 6f 20 6d 6f | 76 65 62 02 1d 58 3b 73 |or to mo|veb..X;s|
|00000550| 63 72 65 65 6e 20 6d 65 | 6d 6f 72 79 20 75 70 20 |creen me|mory up |
|00000560| 69 6e 20 52 41 4d 2e 6c | 02 05 58 3b 76 02 0a 86 |in RAM.l|..X;v...|
|00000570| 47 4f 2e 44 55 50 80 02 | 15 3a 3b 3b 46 69 6e 69 |GO.DUP..|.:;;Fini|
|00000580| 73 68 20 62 69 6e 20 6c | 6f 61 64 8a 02 05 58 3b |sh bin l|oad...X;|
|00000590| 94 02 20 58 3b 52 65 6d | 65 6d 62 65 72 3a 20 44 |.. X;Rem|ember: D|
|000005a0| 55 50 2e 53 59 53 20 69 | 73 20 6c 6f 61 64 65 64 |UP.SYS i|s loaded|
|000005b0| 9e 02 24 58 3b 6c 69 6b | 65 20 61 6e 79 20 62 69 |..$X;lik|e any bi|
|000005c0| 6e 61 72 79 20 66 69 6c | 65 2e 20 53 6f 20 77 65 |nary fil|e. So we|
|000005d0| 20 63 61 6e a8 02 24 58 | 3b 75 73 65 20 74 68 65 | can..$X|;use the|
|000005e0| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 6a 75 6d 70 | initial|ize jump|
|000005f0| 20 76 65 63 74 6f 72 2e | b2 02 05 58 3b bc 02 0c | vector.|...X;...|
|00000600| 1d 87 49 4e 49 54 41 44 | 52 c6 02 0d 09 88 43 41 |..INITAD|R.....CA|
|00000610| 52 54 2e 4f 46 46 d0 02 | 05 58 3b da 02 05 58 3b |RT.OFF..|.X;...X;|
|00000620| e4 02 24 58 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..$X*---|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2a ee 02 20 58 | 3b 20 20 20 20 45 6e 61 |---*.. X|;    Ena|
|00000650| 62 6c 65 20 42 41 53 49 | 43 20 63 61 72 74 72 69 |ble BASI|C cartri|
|00000660| 64 67 65 2e f8 02 24 58 | 2a 2d 2d 2d 2d 2d 2d 2d |dge...$X|*-------|
|00000670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2a | 02 03 23 58 3b 57 65 27 |-------*|..#X;We'|
|00000690| 6c 6c 20 73 74 69 63 6b | 20 74 68 69 73 20 72 6f |ll stick| this ro|
|000006a0| 75 74 69 6e 65 20 72 69 | 67 68 74 0c 03 23 58 3b |utine ri|ght..#X;|
|000006b0| 69 6e 20 74 68 65 20 52 | 55 4e 20 43 41 52 54 20 |in the R|UN CART |
|000006c0| 66 75 6e 63 74 69 6f 6e | 20 63 6f 64 65 2e 16 03 |function| code...|
|000006d0| 24 58 3b 57 65 27 6c 6c | 20 74 68 65 6e 20 6e 65 |$X;We'll| then ne|
|000006e0| 65 64 20 74 6f 20 72 65 | 2d 77 72 69 74 65 20 74 |ed to re|-write t|
|000006f0| 68 65 20 03 22 58 3b 6f | 72 69 67 69 6e 61 6c 20 |he ."X;o|riginal |
|00000700| 44 55 50 20 63 6f 64 65 | 2c 20 63 6f 6e 64 65 6e |DUP code|, conden|
|00000710| 73 69 6e 67 2a 03 24 58 | 3b 69 74 20 74 6f 20 6e |sing*.$X|;it to n|
|00000720| 6f 77 20 66 69 74 20 69 | 6e 20 74 68 65 20 73 61 |ow fit i|n the sa|
|00000730| 6d 65 20 61 72 65 61 2e | 34 03 05 58 3b 3e 03 07 |me area.|4..X;>..|
|00000740| 1d 05 50 27 48 03 05 58 | 3b 52 03 0b 87 43 41 52 |..P'H..X|;R...CAR|
|00000750| 54 2e 4f 4e 5c 03 18 51 | 3e 08 00 3b 3b 43 61 72 |T.ON\..Q|>..;;Car|
|00000760| 74 20 6f 6e 20 69 6e 20 | 63 61 73 65 66 03 14 50 |t on in |casef..P|
|00000770| 05 f8 03 3b 3b 20 6f 66 | 20 5b 52 45 53 45 54 5d |...;; of| [RESET]|
|00000780| 70 03 19 50 86 44 4d 41 | 43 54 4c 3b 3b 53 63 72 |p..P.DMA|CTL;;Scr|
|00000790| 20 74 65 6d 70 20 6f 66 | 66 7a 03 05 58 3b 84 03 | temp of|fz..X;..|
|000007a0| 19 51 85 50 4f 52 54 42 | 3b 3b 4d 65 6d 6f 72 79 |.Q.PORTB|;;Memory|
|000007b0| 20 73 74 61 74 75 73 8e | 03 18 4d 3e 06 ff 13 06 | status.|..M>....|
|000007c0| 02 3b 3b 43 6c 72 20 62 | 69 74 20 31 20 74 6f 98 |.;;Clr b|it 1 to.|
|000007d0| 03 1a 50 85 50 4f 52 54 | 42 3b 3b 20 20 74 75 72 |..P.PORT|B;;  tur|
|000007e0| 6e 20 63 61 72 74 20 6f | 6e a2 03 05 58 3b ac 03 |n cart o|n...X;..|
|000007f0| 05 58 3b b6 03 21 58 3b | 4e 6f 77 2c 20 77 65 20 |.X;..!X;|Now, we |
|00000800| 72 65 2d 77 72 69 74 65 | 20 70 61 72 74 20 6f 66 |re-write| part of|
|00000810| 20 74 68 65 c0 03 20 58 | 3b 6f 72 69 67 69 6e 61 | the.. X|;origina|
|00000820| 6c 20 63 6f 64 65 20 66 | 6f 72 20 44 55 50 27 73 |l code f|or DUP's|
|00000830| 20 52 55 4e ca 03 0f 58 | 3b 43 41 52 54 52 49 44 | RUN...X|;CARTRID|
|00000840| 47 45 2e d4 03 05 58 3b | de 03 14 25 05 fd bf 3b |GE....X;|...%...;|
|00000850| 3b 53 65 65 20 69 66 20 | 74 68 69 73 e8 03 16 22 |;See if |this..."|
|00000860| 05 fd bf 3b 3b 20 62 79 | 74 65 20 52 4f 4d 2f 52 |...;; by|te ROM/R|
|00000870| 41 4d f2 03 07 29 05 fd | bf fc 03 0d 46 88 59 45 |AM...)..|....F.YE|
|00000880| 53 2e 43 41 52 54 06 04 | 07 27 05 fd bf 10 04 0b |S.CART..|.'......|
|00000890| 87 4e 4f 2e 43 41 52 54 | 1a 04 18 51 3e 06 9f 3b |.NO.CART|...Q>..;|
|000008a0| 3b 50 72 69 6e 74 20 22 | 6e 6f 20 63 61 72 74 22 |;Print "|no cart"|
|000008b0| 24 04 16 24 3e 06 27 3b | 3b 20 6d 73 67 20 61 6e |$..$>.';|; msg an|
|000008c0| 64 20 65 78 69 74 2e 04 | 07 20 05 b0 31 38 04 07 |d exit..|. ..18..|
|000008d0| 21 05 0f 21 42 04 0c 88 | 59 45 53 2e 43 41 52 54 |!..!B...|YES.CART|
|000008e0| 4c 04 15 51 3e 06 a0 3b | 3b 52 65 73 65 74 20 23 |L..Q>..;|;Reset #|
|000008f0| 20 66 72 65 65 56 04 17 | 50 86 52 41 4d 54 4f 50 | freeV..|P.RAMTOP|
|00000900| 3b 3b 20 52 41 4d 20 70 | 61 67 65 73 60 04 16 51 |;; RAM p|ages`..Q|
|00000910| 05 fc bf 3b 3b 43 68 65 | 63 6b 20 69 66 20 63 61 |...;;Che|ck if ca|
|00000920| 72 74 6a 04 15 48 87 4e | 4f 2e 43 41 52 54 3b 3b |rtj..H.N|O.CART;;|
|00000930| 20 63 61 6e 20 62 65 74 | 04 14 51 05 fd bf 3b 3b | can bet|..Q...;;|
|00000940| 20 72 65 2d 65 6e 74 65 | 72 65 64 7e 04 0c 46 87 | re-ente|red~..F.|
|00000950| 4e 4f 2e 43 41 52 54 88 | 04 13 34 3b 3b 52 65 2d |NO.CART.|..4;;Re-|
|00000960| 61 6c 69 67 6e 20 63 6f | 64 65 92 04 05 58 3b 9c |align co|de...X;.|
|00000970| 04 23 58 3b 52 65 73 74 | 20 6f 66 20 63 6f 64 65 |.#X;Rest| of code|
|00000980| 20 72 65 6d 61 69 6e 73 | 20 74 68 65 20 73 61 6d | remains| the sam|
|00000990| 65 2e a6 04 05 58 3b b0 | 04 05 58 3b ba 04 22 58 |e....X;.|..X;.."X|
|000009a0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a c4 04 |--------|-----*..|
|000009c0| 1b 58 3b 20 20 20 20 20 | 20 4e 65 77 20 6d 65 6e |.X;     | New men|
|000009d0| 75 20 68 65 61 64 65 72 | 2e ce 04 22 58 2a 2d 2d |u header|..."X*--|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a d8 04 22 58 3b |--------|--*.."X;|
|00000a00| 52 65 70 6c 61 63 65 20 | 74 68 65 20 6f 72 69 67 |Replace |the orig|
|00000a10| 69 6e 61 6c 20 44 4f 53 | 20 69 6e 66 6f e2 04 13 |inal DOS| info...|
|00000a20| 58 3b 77 69 74 68 20 6f | 75 72 20 74 65 78 74 2e |X;with o|ur text.|
|00000a30| ec 04 05 58 3b f6 04 07 | 1d 05 29 1f 00 05 05 58 |...X;...|..)....X|
|00000a40| 3b 0a 05 14 0b 41 8d 56 | 45 52 53 2e 20 b2 ae b5 |;....A.V|ERS. ...|
|00000a50| 20 6d 6f 64 41          |                         | modA   |        |
+--------+-------------------------+-------------------------+--------+--------+