/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D06.D64 / prob1b

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 40 24 40 0a 00 8f 20 | 20 2a 2a 2a 2a 2a 2a 2a |.@$@... | *******|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 00 47 40 14 | 00 8f 20 20 2a 20 4f 4e |****.G@.|..  * ON|
|00000030| 4c 59 20 46 4f 52 20 38 | 30 2d 43 4f 4c 55 4d 4e |LY FOR 8|0-COLUMN|
|00000040| 20 31 32 38 53 20 2a 00 | 6a 40 1e 00 8f 20 20 2a | 128S *.|j@...  *|
|00000050| 20 57 49 4c 4c 20 50 52 | 4f 44 55 43 45 20 4e 4f | WILL PR|ODUCE NO|
|00000060| 20 52 45 53 55 4c 54 53 | 20 2a 00 8d 40 28 00 8f | RESULTS| *..@(..|
|00000070| 20 20 2a 20 49 46 20 55 | 53 45 44 20 57 49 54 48 |  * IF U|SED WITH|
|00000080| 20 41 20 53 54 41 4e 44 | 41 52 44 20 2a 00 b0 40 | A STAND|ARD *..@|
|00000090| 32 00 8f 20 20 2a 20 34 | 30 2d 43 4f 4c 55 4d 4e |2..  * 4|0-COLUMN|
|000000a0| 20 53 43 52 45 45 4e 20 | 20 20 20 20 20 20 20 2a | SCREEN |       *|
|000000b0| 00 d3 40 3c 00 8f 20 20 | 2a 20 20 20 20 20 20 20 |..@<..  |*       |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 2a 00 f6 40 46 00 | 8f 20 20 2a 20 42 59 20 |  *..@F.|.  * BY |
|000000e0| 4a 2e 46 49 4e 43 48 2f | 54 45 43 48 4e 4f 20 49 |J.FINCH/|TECHNO I|
|000000f0| 4e 46 4f 20 20 2a 00 19 | 41 50 00 8f 20 20 2a 2a |NFO  *..|AP..  **|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 00 1f 41 5a 00 3a 00 |********|*..AZ.:.|
|00000120| 41 41 64 00 8f 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |AAd.. **|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 00 63 41 6e 00 8f 20 | 2a 20 50 52 4f 47 52 41 |*.cAn.. |* PROGRA|
|00000150| 4d 20 52 45 41 44 53 20 | 49 4e 20 44 41 54 41 20 |M READS |IN DATA |
|00000160| 20 20 2a 00 85 41 78 00 | 8f 20 2a 20 41 4e 44 20 |  *..Ax.|. * AND |
|00000170| 45 58 45 43 55 54 45 53 | 20 43 4f 44 45 20 2d 20 |EXECUTES| CODE - |
|00000180| 46 4f 52 20 2a 00 a7 41 | 82 00 8f 20 2a 20 44 49 |FOR *..A|... * DI|
|00000190| 53 41 53 53 45 4d 42 4c | 59 2c 20 53 45 45 20 45 |SASSEMBL|Y, SEE E|
|000001a0| 4e 44 20 20 20 20 2a 00 | c9 41 8c 00 8f 20 2a 2a |ND    *.|.A... **|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 00 cf 41 96 00 3a 00 |********|*..A..:.|
|000001d0| d9 41 a0 00 fe 25 3a de | 35 00 df 41 aa 00 3a 00 |.A...%:.|5..A..:.|
|000001e0| 0c 42 b4 00 81 20 4e b2 | 30 20 a4 20 34 38 3a 20 |.B... N.|0 . 48: |
|000001f0| 87 20 5a 24 3a 20 97 20 | d1 28 22 30 44 30 30 22 |. Z$: . |.("0D00"|
|00000200| 29 aa 4e 2c d1 28 5a 24 | 29 3a 20 82 00 8d 42 be |).N,.(Z$|): ...B.|
|00000210| 00 83 20 41 32 2c 31 32 | 2c 41 39 2c 32 30 2c 32 |.. A2,12|,A9,20,2|
|00000220| 30 2c 31 44 2c 30 44 2c | 45 38 2c 41 39 2c 30 30 |0,1D,0D,|E8,A9,00|
|00000230| 2c 32 30 2c 31 44 2c 30 | 44 2c 41 32 2c 31 46 2c |,20,1D,0|D,A2,1F,|
|00000240| 41 30 2c 30 30 2c 42 39 | 2c 32 39 2c 30 44 2c 32 |A0,00,B9|,29,0D,2|
|00000250| 30 2c 31 44 2c 30 44 2c | 43 38 2c 43 30 2c 30 38 |0,1D,0D,|C8,C0,08|
|00000260| 2c 39 30 2c 46 35 2c 36 | 30 2c 38 45 2c 30 30 2c |,90,F5,6|0,8E,00,|
|00000270| 44 36 2c 32 43 2c 30 30 | 2c 44 36 2c 31 30 2c 46 |D6,2C,00|,D6,10,F|
|00000280| 42 2c 38 44 2c 30 31 2c | 44 36 2c 36 30 00 c7 42 |B,8D,01,|D6,60..B|
|00000290| c8 00 83 20 33 43 2c 33 | 43 2c 31 38 2c 33 43 2c |... 3C,3|C,18,3C,|
|000002a0| 35 41 2c 31 38 2c 33 43 | 2c 36 36 3a 20 8f 20 2a |5A,18,3C|,66: . *|
|000002b0| 2a 2a 20 43 48 41 52 41 | 43 54 45 52 20 44 45 46 |** CHARA|CTER DEF|
|000002c0| 49 4e 49 54 49 4f 4e 00 | cd 42 d2 00 3a 00 33 43 |INITION.|.B..:.3C|
|000002d0| dc 00 9e 20 d1 28 22 30 | 44 30 30 22 29 3a e7 36 |... .("0|D00"):.6|
|000002e0| 2c 31 32 3a 99 22 93 9a | 20 20 20 20 20 20 20 02 |,12:."..|       .|
|000002f0| 45 58 41 4d 50 4c 45 20 | 4f 46 20 41 20 52 45 44 |EXAMPLE |OF A RED|
|00000300| 45 46 49 4e 45 44 20 43 | 48 41 52 41 43 54 45 52 |EFINED C|HARACTER|
|00000310| 20 49 4e 20 45 49 47 48 | 54 59 20 43 4f 4c 55 4d | IN EIGH|TY COLUM|
|00000320| 4e 20 4d 4f 44 45 20 4f | 4e 20 54 48 45 20 43 31 |N MODE O|N THE C1|
|00000330| 32 38 22 00 93 43 e6 00 | 99 22 11 11 20 20 20 20 |28"..C..|."..    |
|00000340| 20 0f 4e 4f 54 45 20 54 | 48 41 54 20 54 48 45 52 | .NOTE T|HAT THER|
|00000350| 45 20 49 53 20 4e 4f 20 | 4e 45 45 44 20 54 4f 20 |E IS NO |NEED TO |
|00000360| 41 4c 54 45 52 20 52 45 | 47 49 53 54 45 52 53 20 |ALTER RE|GISTERS |
|00000370| 54 4f 20 50 4f 49 4e 54 | 20 54 4f 20 54 48 45 20 |TO POINT| TO THE |
|00000380| 4e 45 57 20 53 45 54 2e | 11 11 05 22 3a 99 22 20 |NEW SET.|...":." |
|00000390| 20 22 3b 00 cd 43 f0 00 | 99 22 40 22 c8 28 22 20 | ";..C..|."@".(" |
|000003a0| 20 20 20 20 22 2c bb 28 | 31 29 ac 35 aa 31 29 3b |    ",.(|1).5.1);|
|000003b0| 3a 20 8b 20 b9 28 30 29 | b1 37 33 20 a7 20 99 3a |: . .(0)|.73 . .:|
|000003c0| 99 22 11 20 20 22 3b 3a | 4c b2 4c aa 31 00 e2 43 |.".  ";:|L.L.1..C|
|000003d0| fa 00 8b 20 4c b3 37 20 | a7 20 32 34 30 3a 20 d5 |... L.7 |. 240: .|
|000003e0| 20 80 00 e8 43 04 01 3a | 00 11 44 0e 01 8f 20 2a | ...C..:|..D... *|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000410| 2a 00 3a 44 18 01 8f 20 | 2a 20 54 48 45 20 46 4f |*.:D... |* THE FO|
|00000420| 4c 4c 4f 57 49 4e 47 20 | 4c 49 4e 45 53 20 41 52 |LLOWING |LINES AR|
|00000430| 45 20 54 48 45 20 20 20 | 20 2a 00 63 44 22 01 8f |E THE   | *.cD"..|
|00000440| 20 2a 20 45 51 55 49 56 | 41 4c 45 4e 54 20 4f 46 | * EQUIV|ALENT OF|
|00000450| 20 54 48 45 20 43 4f 44 | 45 20 49 4e 20 20 20 20 | THE COD|E IN    |
|00000460| 20 20 2a 00 8c 44 2c 01 | 8f 20 2a 20 41 53 53 45 |  *..D,.|. * ASSE|
|00000470| 4d 42 4c 59 20 4c 41 4e | 47 55 41 47 45 20 20 20 |MBLY LAN|GUAGE   |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 2a 00 b5 44 36 |        |   *..D6|
|00000490| 01 8f 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.. *****|********|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 2a 2a 2a 2a 00 bb 44 | 40 01 3a 00 fa 44 4a 01 |*****..D|@.:..DJ.|
|000004c0| 4c 44 58 20 23 24 31 32 | 20 20 5f 20 52 45 47 49 |LDX #$12|  _ REGI|
|000004d0| 53 54 45 52 20 31 38 20 | 49 53 20 55 53 45 44 20 |STER 18 |IS USED |
|000004e0| a4 20 44 45 54 45 52 4d | 49 4e 45 20 55 50 44 41 |. DETERM|INE UPDA|
|000004f0| 54 45 20 41 44 44 52 45 | 53 53 00 3f 45 54 01 4c |TE ADDRE|SS.?ET.L|
|00000500| 44 41 20 23 24 32 30 20 | 20 5f 20 48 49 47 48 20 |DA #$20 | _ HIGH |
|00000510| 42 59 54 45 20 4f 46 20 | 41 44 44 52 45 53 53 20 |BYTE OF |ADDRESS |
|00000520| a4 20 42 45 20 55 50 44 | 41 54 45 44 20 28 43 48 |. BE UPD|ATED (CH|
|00000530| 41 4e 47 45 44 29 20 20 | 28 24 32 30 30 30 29 00 |ANGED)  |($2000).|
|00000540| 66 45 5e 01 4a 53 52 20 | 57 52 49 54 45 20 5f 20 |fE^.JSR |WRITE _ |
|00000550| 57 52 49 54 45 20 49 4e | 46 4f 20 a4 20 52 45 47 |WRITE IN|FO . REG|
|00000560| 49 53 54 45 52 53 00 b1 | 45 68 01 49 4e 58 20 20 |ISTERS..|Eh.INX  |
|00000570| 20 20 20 20 20 5f 20 52 | 45 47 49 53 54 45 52 20 |     _ R|EGISTER |
|00000580| 31 39 20 49 53 20 55 53 | 45 44 20 a4 20 44 45 54 |19 IS US|ED . DET|
|00000590| 45 52 4d 49 4e 45 20 4c | 4f 57 20 42 59 54 45 20 |ERMINE L|OW BYTE |
|000005a0| 4f 46 20 55 50 44 41 54 | 45 20 41 44 44 52 45 53 |OF UPDAT|E ADDRES|
|000005b0| 53 00 e5 45 72 01 4c 44 | 41 20 23 24 30 30 20 20 |S..Er.LD|A #$00  |
|000005c0| 5f 20 4c 4f 57 20 42 59 | 54 45 20 4f 46 20 41 44 |_ LOW BY|TE OF AD|
|000005d0| 44 52 45 53 53 20 49 53 | 20 24 30 30 20 20 28 24 |DRESS IS| $00  ($|
|000005e0| 32 30 30 30 29 00 0c 46 | 7c 01 4a 53 52 20 57 52 |2000)..F||.JSR WR|
|000005f0| 49 54 45 20 5f 20 57 52 | 49 54 45 20 49 4e 46 4f |ITE _ WR|ITE INFO|
|00000600| 20 a4 20 52 45 47 49 53 | 54 45 52 53 00 53 46 86 | . REGIS|TERS.SF.|
|00000610| 01 4c 44 58 20 23 24 31 | 46 20 20 5f 20 52 45 47 |.LDX #$1|F  _ REG|
|00000620| 49 53 54 45 52 20 33 31 | 20 9a 41 49 4e 53 20 83 |ISTER 31| .AINS .|
|00000630| 20 54 4f 20 42 45 20 57 | 52 49 54 54 45 4e 20 54 | TO BE W|RITTEN T|
|00000640| 4f 2f 52 45 41 44 20 46 | 52 4f 4d 20 41 44 44 52 |O/READ F|ROM ADDR|
|00000650| 45 53 53 00 6b 46 90 01 | 4c 44 59 20 23 24 30 30 |ESS.kF..|LDY #$00|
|00000660| 20 20 5f 20 43 4f 55 4e | 54 45 52 00 94 46 9a 01 |  _ COUN|TER..F..|
|00000670| 4c 44 41 20 44 a5 2c 59 | 20 5f 20 a1 20 e0 41 43 |LDA D.,Y| _ . .AC|
|00000680| 54 45 52 20 96 49 4e 49 | 54 49 91 20 49 4e 20 42 |TER .INI|TI. IN B|
|00000690| 59 54 45 53 00 d1 46 a4 | 01 4a 53 52 20 57 52 49 |YTES..F.|.JSR WRI|
|000006a0| 54 45 20 5f 20 57 52 49 | 54 45 20 49 4e 46 4f 20 |TE _ WRI|TE INFO |
|000006b0| a4 20 82 20 41 44 44 52 | 45 53 53 20 28 dc 20 55 |. . ADDR|ESS (. U|
|000006c0| 50 44 41 54 45 20 af 20 | 49 4e 43 52 45 41 53 45 |PDATE . |INCREASE|
|000006d0| 29 00 f2 46 ae 01 49 4e | 59 20 20 20 20 20 20 20 |)..F..IN|Y       |
|000006e0| 5f 20 49 4e 43 8f 45 4e | 54 20 52 45 47 49 53 54 |_ INC.EN|T REGIST|
|000006f0| 45 52 00 28 47 b8 01 43 | 50 59 20 23 24 30 38 20 |ER.(G..C|PY #$08 |
|00000700| 20 5f 20 41 4c 4c 20 45 | 49 47 48 54 20 42 59 54 | _ ALL E|IGHT BYT|
|00000710| 45 53 20 eb 4e 45 20 a4 | 20 4d 41 4b 45 20 e0 41 |ES .NE .| MAKE .A|
|00000720| 43 54 45 52 20 59 45 54 | 00 5e 47 c2 01 42 43 43 |CTER YET|.^G..BCC|
|00000730| 20 28 34 31 30 29 20 5f | 20 8b 20 a8 20 a7 20 cb | (410) _| . . . .|
|00000740| 20 42 41 43 4b 20 a4 20 | 4c 49 4e 45 20 54 48 41 | BACK . |LINE THA|
|00000750| 54 20 87 53 20 20 4c 44 | 41 20 44 a5 2c 59 00 7f |T .S  LD|A D.,Y..|
|00000760| 47 cc 01 52 54 53 20 20 | 20 20 20 20 20 5f 20 59 |G..RTS  |     _ Y|
|00000770| 45 53 20 53 4f 20 8e 20 | a4 20 42 41 53 49 43 00 |ES SO . |. BASIC.|
|00000780| 8a 47 d6 01 2e 57 52 49 | 54 45 00 bb 47 e0 01 53 |.G...WRI|TE..G..S|
|00000790| 54 58 20 24 44 36 30 30 | 20 5f 20 53 a4 52 45 20 |TX $D600| _ S.RE |
|000007a0| 52 45 47 49 53 54 45 52 | 20 4e 55 4d 42 45 52 20 |REGISTER| NUMBER |
|000007b0| 49 4e 20 43 4f 4d 50 55 | 54 45 52 00 fe 47 ea 01 |IN COMPU|TER..G..|
|000007c0| 42 49 54 20 24 44 36 30 | 30 20 5f 20 53 50 45 43 |BIT $D60|0 _ SPEC|
|000007d0| 49 41 4c 20 46 55 4e 43 | 54 49 91 20 a4 20 53 45 |IAL FUNC|TI. . SE|
|000007e0| 45 20 8b 20 54 48 45 20 | 42 59 54 45 20 48 41 53 |E . THE |BYTE HAS|
|000007f0| 20 42 45 45 4e 20 41 43 | 43 45 50 54 45 44 00 2b | BEEN AC|CEPTED.+|
|00000800| 48 f4 01 42 50 4c 20 28 | 34 39 30 29 20 5f 20 8b |H..BPL (|490) _ .|
|00000810| 20 a8 20 a7 20 4b 45 45 | 50 20 43 48 45 43 4b 49 | . . KEE|P CHECKI|
|00000820| 4e 47 20 fc 20 49 54 20 | 48 41 53 00 67 48 fe 01 |NG . IT |HAS.gH..|
|00000830| 53 54 41 20 24 44 36 30 | 31 20 5f 20 57 52 49 54 |STA $D60|1 _ WRIT|
|00000840| 45 20 4f 54 48 45 52 20 | 49 4e 81 4d 41 54 49 91 |E OTHER |IN.MATI.|
|00000850| 20 81 20 52 45 47 49 53 | 54 45 52 20 a4 20 44 45 | . REGIS|TER . DE|
|00000860| 41 4c 20 57 49 54 48 00 | 89 48 08 02 52 54 53 20 |AL WITH.|.H..RTS |
|00000870| 20 20 20 20 20 20 5f 20 | 8e 20 46 52 4f 4d 20 53 |      _ |. FROM S|
|00000880| 55 42 52 4f 55 54 49 4e | 45 00 91 48 12 02 2e 44 |UBROUTIN|E..H...D|
|00000890| a5 00 d1 48 1c 02 42 59 | 54 20 24 33 43 2c 24 33 |...H..BY|T $3C,$3|
|000008a0| 43 2c 24 31 38 2c 24 33 | 43 2c 24 35 41 2c 24 31 |C,$18,$3|C,$5A,$1|
|000008b0| 38 2c 24 33 43 2c 24 36 | 36 20 5f 20 49 4e 46 4f |8,$3C,$6|6 _ INFO|
|000008c0| 20 81 20 e0 41 43 54 45 | 52 20 96 49 4e 49 54 49 | . .ACTE|R .INITI|
|000008d0| 91 00 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+