/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / mychrs.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 2a 0d 2a a0 6d 79 | 63 68 72 73 0d 2a 0d 20 |..*.*.my|chrs.*. |
|00000010| 6f 72 67 20 24 38 30 30 | 30 0d 2a 0d 72 36 35 31 |org $800|0.*.r651|
|00000020| 30 20 65 71 75 20 24 30 | 30 30 31 0d 6e 65 77 61 |0 equ $0|001.newa|
|00000030| 64 72 20 65 71 75 20 24 | 33 30 30 30 0d 63 68 72 |dr equ $|3000.chr|
|00000040| 62 61 73 20 65 71 75 20 | 24 64 30 30 30 0d 63 69 |bas equ |$d000.ci|
|00000050| 61 63 72 65 20 65 71 75 | 20 24 64 63 30 65 0d 63 |acre equ| $dc0e.c|
|00000060| 32 64 64 72 61 20 65 71 | 75 20 24 64 64 30 32 0d |2ddra eq|u $dd02.|
|00000070| 6d 65 6d 72 65 67 20 65 | 71 75 20 24 64 30 31 38 |memreg e|qu $d018|
|00000080| 0d 2a 0d 66 72 65 74 6f | 70 20 65 71 75 20 24 30 |.*.freto|p equ $0|
|00000090| 30 33 34 0d 6d 65 6d 73 | 69 7a 20 65 71 75 20 24 |034.mems|iz equ $|
|000000a0| 30 30 33 38 0d 2a 0d 74 | 61 62 6c 65 6e 20 65 71 |0038.*.t|ablen eq|
|000000b0| 75 20 24 31 30 30 30 0d | 6d 76 73 72 63 65 20 65 |u $1000.|mvsrce e|
|000000c0| 71 75 20 24 66 62 0d 6d | 76 64 65 73 74 20 65 71 |qu $fb.m|vdest eq|
|000000d0| 75 20 6d 76 73 72 63 65 | 2b 32 0d 63 68 72 61 64 |u mvsrce|+2.chrad|
|000000e0| 72 20 65 71 75 20 6d 76 | 64 65 73 74 0d 2a 0d 6c |r equ mv|dest.*.l|
|000000f0| 65 6e 70 74 72 20 65 71 | 75 20 24 32 30 30 0d 72 |enptr eq|u $200.r|
|00000100| 61 6d 63 68 72 20 65 71 | 75 20 6c 65 6e 70 74 72 |amchr eq|u lenptr|
|00000110| 2b 32 0d 2a 0d 20 6a 6d | 70 20 73 74 61 72 74 0d |+2.*. jm|p start.|
|00000120| 2a 0d 73 68 61 70 65 20 | 68 65 78 20 31 38 2c 64 |*.shape |hex 18,d|
|00000130| 62 2c 34 32 2c 37 65 2c | 31 38 2c 37 65 2c 36 36 |b,42,7e,|18,7e,66|
|00000140| 2c 65 37 20 3b 61 a0 6d | 61 6e 0d 2a a0 73 65 74 |,e7 ;a.m|an.*.set|
|00000150| a0 63 69 61 a0 62 69 74 | 73 a0 74 6f a0 6f 75 74 |.cia.bit|s.to.out|
|00000160| 70 75 74 73 0d 2a 0d 73 | 74 61 72 74 20 6c 64 61 |puts.*.s|tart lda|
|00000170| 20 63 32 64 64 72 61 0d | 20 6f 72 61 20 23 33 0d | c2ddra.| ora #3.|
|00000180| 20 73 74 61 20 63 32 64 | 64 72 61 0d 2a 0d 2a a0 | sta c2d|dra.*.*.|
|00000190| 63 6c 65 61 72 a0 72 61 | 6d a0 66 6f 72 a0 63 68 |clear.ra|m.for.ch|
|000001a0| 72 a0 6d 65 6d 6f 72 79 | 0d 2a 0d 20 6c 64 61 20 |r.memory|.*. lda |
|000001b0| 23 34 38 0d 20 73 74 61 | 20 66 72 65 74 6f 70 0d |#48. sta| fretop.|
|000001c0| 20 73 74 61 20 6d 65 6d | 73 69 7a 0d 2a 0d 2a a0 | sta mem|siz.*.*.|
|000001d0| 74 75 72 6e a0 6f 66 66 | a0 6b 62 a0 69 6e 74 65 |turn.off|.kb.inte|
|000001e0| 72 72 75 70 74 a0 74 69 | 6d 65 72 0d 2a 0d 20 6c |rrupt.ti|mer.*. l|
|000001f0| 64 61 20 63 69 61 63 72 | 65 0d 20 61 6e 64 20 23 |da ciacr|e. and #|
|00000200| 24 66 65 0d 20 73 74 61 | 20 63 69 61 63 72 65 0d |$fe. sta| ciacre.|
|00000210| 2a 0d 2a a0 73 77 69 74 | 63 68 a0 69 2f 6f a0 6f |*.*.swit|ch.i/o.o|
|00000220| 66 66 2c a0 63 68 61 72 | a0 72 6f 6d a0 6f 6e 0d |ff,.char|.rom.on.|
|00000230| 2a 0d 20 6c 64 61 20 72 | 36 35 31 30 0d 20 61 6e |*. lda r|6510. an|
|00000240| 64 20 23 24 66 62 0d 20 | 73 74 61 20 72 36 35 31 |d #$fb. |sta r651|
|00000250| 30 0d 2a 0d 2a a0 63 6f | 70 79 a0 63 68 61 72 61 |0.*.*.co|py.chara|
|00000260| 63 74 65 72 73 a0 69 6e | 74 6f a0 72 61 6d 0d 2a |cters.in|to.ram.*|
|00000270| 0d 20 6c 64 61 20 23 3c | 63 68 72 62 61 73 0d 20 |. lda #<|chrbas. |
|00000280| 73 74 61 20 6d 76 73 72 | 63 65 0d 20 6c 64 61 20 |sta mvsr|ce. lda |
|00000290| 23 3e 63 68 72 62 61 73 | 0d 20 73 74 61 20 6d 76 |#>chrbas|. sta mv|
|000002a0| 73 72 63 65 2b 31 0d 2a | 0d 20 6c 64 61 20 23 3c |srce+1.*|. lda #<|
|000002b0| 6e 65 77 61 64 72 0d 20 | 73 74 61 20 6d 76 64 65 |newadr. |sta mvde|
|000002c0| 73 74 0d 20 6c 64 61 20 | 23 3e 6e 65 77 61 64 72 |st. lda |#>newadr|
|000002d0| 0d 20 73 74 61 20 6d 76 | 64 65 73 74 2b 31 0d 2a |. sta mv|dest+1.*|
|000002e0| 0d 20 6c 64 61 20 23 3c | 74 61 62 6c 65 6e 0d 20 |. lda #<|tablen. |
|000002f0| 73 74 61 20 6c 65 6e 70 | 74 72 0d 20 6c 64 61 20 |sta lenp|tr. lda |
|00000300| 23 3e 74 61 62 6c 65 6e | 0d 20 73 74 61 20 6c 65 |#>tablen|. sta le|
|00000310| 6e 70 74 72 2b 31 0d 2a | 0d 2a a0 73 74 61 72 74 |nptr+1.*|.*.start|
|00000320| a0 6d 6f 76 65 0d 2a 0d | 20 6c 64 79 20 23 30 0d |.move.*.| ldy #0.|
|00000330| 20 6c 64 78 20 6c 65 6e | 70 74 72 2b 31 0d 20 62 | ldx len|ptr+1. b|
|00000340| 65 71 20 6d 76 70 61 72 | 74 0d 6d 76 70 61 67 65 |eq mvpar|t.mvpage|
|00000350| 20 6c 64 61 20 28 6d 76 | 73 72 63 65 29 2c 79 0d | lda (mv|srce),y.|
|00000360| 20 73 74 61 20 28 6d 76 | 64 65 73 74 29 2c 79 0d | sta (mv|dest),y.|
|00000370| 20 69 6e 79 0d 20 62 6e | 65 20 6d 76 70 61 67 65 | iny. bn|e mvpage|
|00000380| 0d 20 69 6e 63 20 6d 76 | 73 72 63 65 2b 31 0d 20 |. inc mv|srce+1. |
|00000390| 69 6e 63 20 6d 76 64 65 | 73 74 2b 31 0d 20 64 65 |inc mvde|st+1. de|
|000003a0| 78 0d 20 62 6e 65 20 6d | 76 70 61 67 65 0d 6d 76 |x. bne m|vpage.mv|
|000003b0| 70 61 72 74 20 6c 64 78 | 20 6c 65 6e 70 74 72 0d |part ldx| lenptr.|
|000003c0| 20 62 65 71 20 6d 76 65 | 78 69 74 0d 6d 76 6c 61 | beq mve|xit.mvla|
|000003d0| 73 74 20 6c 64 61 20 28 | 6d 76 73 72 63 65 29 2c |st lda (|mvsrce),|
|000003e0| 79 0d 20 73 74 61 20 28 | 6d 76 64 65 73 74 29 2c |y. sta (|mvdest),|
|000003f0| 79 0d 20 69 6e 79 0d 20 | 64 65 78 0d 20 62 6e 65 |y. iny. |dex. bne|
|00000400| 20 6d 76 6c 61 73 74 0d | 6d 76 65 78 69 74 0d 2a | mvlast.|mvexit.*|
|00000410| 0d 2a a0 73 77 69 74 63 | 68 a0 69 2f 6f a0 62 61 |.*.switc|h.i/o.ba|
|00000420| 63 6b a0 69 6e 0d 2a 0d | 20 6c 64 61 20 72 36 35 |ck.in.*.| lda r65|
|00000430| 31 30 0d 20 6f 72 61 20 | 23 34 0d 20 73 74 61 20 |10. ora |#4. sta |
|00000440| 72 36 35 31 30 0d 2a 0d | 2a a0 74 75 72 6e a0 74 |r6510.*.|*.turn.t|
|00000450| 69 6d 65 72 a0 62 61 63 | 6b a0 6f 6e 0d 2a 0d 20 |imer.bac|k.on.*. |
|00000460| 6c 64 61 20 63 69 61 63 | 72 65 0d 20 6f 72 61 20 |lda ciac|re. ora |
|00000470| 23 31 0d 20 73 74 61 20 | 63 69 61 63 72 65 0d 2a |#1. sta |ciacre.*|
|00000480| 0d 2a a0 73 65 74 a0 76 | 69 63 a0 6d 65 6d 6f 72 |.*.set.v|ic.memor|
|00000490| 79 a0 63 6f 6e 74 72 6f | 6c a0 72 65 67 69 73 74 |y.contro|l.regist|
|000004a0| 65 72 0d 2a 0d 20 63 6c | 63 0d 20 6c 64 61 20 6d |er.*. cl|c. lda m|
|000004b0| 65 6d 72 65 67 0d 20 61 | 6e 64 20 23 24 66 30 0d |emreg. a|nd #$f0.|
|000004c0| 20 61 64 63 20 23 24 30 | 63 0d 20 73 74 61 20 6d | adc #$0|c. sta m|
|000004d0| 65 6d 72 65 67 0d 2a 0d | 2a a0 6e 6f 77 a0 77 65 |emreg.*.|*.now.we|
|000004e0| a0 61 6c 74 65 72 a0 61 | a0 63 68 61 72 61 63 74 |.alter.a|.charact|
|000004f0| 65 72 a0 28 7a 29 0d 2a | 0d 20 6c 64 61 20 23 32 |er.(z).*|. lda #2|
|00000500| 36 20 3b 7a 0d 20 73 74 | 61 20 72 61 6d 63 68 72 |6 ;z. st|a ramchr|
|00000510| 0d 2a 0d 2a a0 63 61 6c | 63 75 6c 61 74 65 a0 72 |.*.*.cal|culate.r|
|00000520| 61 6d 63 68 72 27 73 a0 | 61 64 64 72 65 73 73 0d |amchr's.|address.|
|00000530| 2a 0d 20 6c 64 61 20 23 | 30 0d 20 73 74 61 20 72 |*. lda #|0. sta r|
|00000540| 61 6d 63 68 72 2b 31 0d | 20 6c 64 61 20 72 61 6d |amchr+1.| lda ram|
|00000550| 63 68 72 0d 20 63 6c 63 | 0d 20 61 73 6c 20 61 0d |chr. clc|. asl a.|
|00000560| 20 72 6f 6c 20 72 61 6d | 63 68 72 2b 31 0d 20 61 | rol ram|chr+1. a|
|00000570| 73 6c 20 61 0d 20 72 6f | 6c 20 72 61 6d 63 68 72 |sl a. ro|l ramchr|
|00000580| 2b 31 0d 20 61 73 6c 20 | 61 0d 20 72 6f 6c 20 72 |+1. asl |a. rol r|
|00000590| 61 6d 63 68 72 2b 31 0d | 20 73 74 61 20 72 61 6d |amchr+1.| sta ram|
|000005a0| 63 68 72 0d 2a 0d 20 63 | 6c 63 0d 20 6c 64 61 20 |chr.*. c|lc. lda |
|000005b0| 72 61 6d 63 68 72 0d 20 | 61 64 63 20 23 3c 6e 65 |ramchr. |adc #<ne|
|000005c0| 77 61 64 72 0d 20 73 74 | 61 20 63 68 72 61 64 72 |wadr. st|a chradr|
|000005d0| 0d 20 6c 64 61 20 72 61 | 6d 63 68 72 2b 31 0d 20 |. lda ra|mchr+1. |
|000005e0| 61 64 63 20 23 3e 6e 65 | 77 61 64 72 0d 20 73 74 |adc #>ne|wadr. st|
|000005f0| 61 20 63 68 72 61 64 72 | 2b 31 0d 2a 0d 2a a0 6e |a chradr|+1.*.*.n|
|00000600| 6f 77 a0 77 65 a0 63 68 | 61 6e 67 65 a0 74 68 65 |ow.we.ch|ange.the|
|00000610| a0 63 68 61 72 61 63 74 | 65 72 0d 2a 0d 20 6c 64 |.charact|er.*. ld|
|00000620| 79 20 23 30 0d 64 6f 73 | 68 61 70 65 20 6c 64 61 |y #0.dos|hape lda|
|00000630| 20 73 68 61 70 65 2c 79 | 0d 20 73 74 61 20 28 63 | shape,y|. sta (c|
|00000640| 68 72 61 64 72 29 2c 79 | 0d 20 69 6e 79 0d 20 63 |hradr),y|. iny. c|
|00000650| 70 79 20 23 39 0d 20 62 | 63 63 20 64 6f 73 68 61 |py #9. b|cc dosha|
|00000660| 70 65 0d 2a 0d 20 72 74 | 73 0d 2a 0d 20 65 6e 64 |pe.*. rt|s.*. end|
|00000670| 0d 2a 0d                |                         |.*.     |        |
+--------+-------------------------+-------------------------+--------+--------+