/ Loadstar 54 / 054.d81 / bits.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 20 6c 73 74 20 6f | 66 66 0d 0d 2a 0d 2a a0 |.. lst o|ff..*.*.|
|00000010| a0 a0 a0 a0 73 6d 6f 6f | 74 68 a0 73 63 72 6f 6c |....smoo|th.scrol|
|00000020| 6c 0d 2a 0d 2a a0 77 72 | 69 74 74 65 6e a0 62 79 |l.*.*.wr|itten.by|
|00000030| a0 6a 69 6d a0 26 a0 6d | 69 6b 65 21 0d 2a 0d 2a |.jim.&.m|ike!.*.*|
|00000040| a0 a0 a0 a0 a0 63 6f 70 | 79 72 69 67 68 74 a0 31 |.....cop|yright.1|
|00000050| 39 38 38 0d 2a 0d 2a a0 | a0 a0 a0 a0 a0 73 6f 66 |988.*.*.|.....sof|
|00000060| 74 64 69 73 6b a0 69 6e | 63 2e 0d 2a 0d 0d 20 6f |tdisk.in|c..*.. o|
|00000070| 72 67 20 35 32 36 35 30 | 0d 0d 76 6d 63 73 62 20 |rg 52650|..vmcsb |
|00000080| 65 71 75 20 35 33 32 37 | 32 0d 69 6e 74 65 6e 61 |equ 5327|2.intena|
|00000090| 20 65 71 75 20 35 33 32 | 37 34 0d 72 61 73 74 65 | equ 532|74.raste|
|000000a0| 72 20 65 71 75 20 35 33 | 32 36 36 0d 63 69 61 69 |r equ 53|266.ciai|
|000000b0| 63 72 20 65 71 75 20 35 | 36 33 33 33 0d 76 69 63 |cr equ 5|6333.vic|
|000000c0| 69 72 71 20 65 71 75 20 | 35 33 32 37 33 0d 69 72 |irq equ |53273.ir|
|000000d0| 71 6d 73 6b 20 65 71 75 | 20 35 33 32 37 34 0d 69 |qmsk equ| 53274.i|
|000000e0| 72 71 76 65 63 20 65 71 | 75 20 37 38 38 0d 73 63 |rqvec eq|u 788.sc|
|000000f0| 72 6f 6c 78 20 65 71 75 | 20 35 33 32 37 30 0d 73 |rolx equ| 53270.s|
|00000100| 63 72 65 65 6e 20 65 71 | 75 20 39 36 30 0d 74 65 |creen eq|u 960.te|
|00000110| 78 74 20 65 71 75 20 35 | 32 39 35 30 0d 0d 20 6c |xt equ 5|2950.. l|
|00000120| 64 61 20 74 6f 67 67 6c | 65 0d 20 62 65 71 20 6f |da toggl|e. beq o|
|00000130| 6e 0d 0d 20 6c 64 61 20 | 23 30 30 0d 20 73 74 61 |n.. lda |#00. sta|
|00000140| 20 74 6f 67 67 6c 65 0d | 0d 0d 5d 6c 6f 6f 70 20 | toggle.|..]loop |
|00000150| 6c 64 61 20 72 61 73 74 | 65 72 0d 20 63 6d 70 20 |lda rast|er. cmp |
|00000160| 62 6f 74 74 6f 6d 0d 20 | 62 6e 65 20 5d 6c 6f 6f |bottom. |bne ]loo|
|00000170| 70 0d 0d 20 6c 64 61 20 | 23 30 30 0d 20 73 74 61 |p.. lda |#00. sta|
|00000180| 20 69 6e 74 65 6e 61 0d | 2a 0d 2a a0 72 65 73 74 | intena.|*.*.rest|
|00000190| 6f 72 65 a0 6f 72 67 69 | 6e 61 6c a0 69 72 71 a0 |ore.orgi|nal.irq.|
|000001a0| 76 65 63 74 6f 72 73 0d | 2a a0 74 6f a0 74 68 65 |vectors.|*.to.the|
|000001b0| 69 72 a0 6f 72 67 69 6e | 61 6c a0 76 61 6c 75 65 |ir.orgin|al.value|
|000001c0| 73 0d 0d 20 73 65 69 0d | 20 6c 64 61 20 6f 72 67 |s.. sei.| lda org|
|000001d0| 69 72 71 0d 20 73 74 61 | 20 69 72 71 76 65 63 0d |irq. sta| irqvec.|
|000001e0| 20 6c 64 61 20 6f 72 67 | 69 72 71 2b 31 0d 20 73 | lda org|irq+1. s|
|000001f0| 74 61 20 69 72 71 76 65 | 63 2b 31 0d 20 63 6c 69 |ta irqve|c+1. cli|
|00000200| 0d 2a 0d 2a a0 72 65 73 | 74 6f 72 65 a0 74 68 65 |.*.*.res|tore.the|
|00000210| a0 73 63 72 65 65 6e 0d | 2a 0d 0d 0d 2a a0 72 65 |.screen.|*...*.re|
|00000220| 73 74 6f 72 65 a0 74 69 | 6d 6d 65 72 a0 61 a0 69 |store.ti|mmer.a.i|
|00000230| 6e 74 65 72 72 75 70 74 | 0d 0d 20 6c 64 61 20 23 |nterrupt|.. lda #|
|00000240| 31 32 39 0d 20 73 74 61 | 20 35 36 33 33 33 0d 0d |129. sta| 56333..|
|00000250| 2a a0 72 65 74 75 72 6e | a0 74 6f a0 62 61 73 69 |*.return|.to.basi|
|00000260| 63 a0 70 61 6c 2e 2e 2e | 0d 0d 20 72 74 73 0d 0d |c.pal...|.. rts..|
|00000270| 6f 6e 0d 2a a0 a0 65 6e | 61 62 6c 65 a0 72 61 73 |on.*..en|able.ras|
|00000280| 74 65 72 a0 69 6e 74 65 | 72 72 75 70 74 73 0d 20 |ter.inte|rrupts. |
|00000290| 73 65 69 0d 20 6c 64 61 | 20 69 72 71 6d 73 6b 0d |sei. lda| irqmsk.|
|000002a0| 20 6f 72 61 20 23 30 31 | 0d 20 73 74 61 20 69 72 | ora #01|. sta ir|
|000002b0| 71 6d 73 6b 0d 0d 2a a0 | a0 73 65 74 a0 66 69 72 |qmsk..*.|.set.fir|
|000002c0| 73 74 a0 6c 69 6e 65 a0 | 74 6f a0 69 6e 74 65 72 |st.line.|to.inter|
|000002d0| 72 75 70 74 0d 20 6c 64 | 61 20 74 6f 70 0d 20 73 |rupt. ld|a top. s|
|000002e0| 74 61 20 72 61 73 74 65 | 72 0d 20 6c 64 61 20 72 |ta raste|r. lda r|
|000002f0| 61 73 74 65 72 2d 31 0d | 20 61 6e 64 20 23 31 32 |aster-1.| and #12|
|00000300| 37 0d 20 73 74 61 20 72 | 61 73 74 65 72 2d 31 0d |7. sta r|aster-1.|
|00000310| 0d 2a a0 a0 a0 a0 a0 63 | 6c 65 61 72 a0 72 61 73 |.*.....c|lear.ras|
|00000320| 74 65 72 a0 6c 61 74 63 | 68 0d 20 6c 64 61 20 23 |ter.latc|h. lda #|
|00000330| 30 31 0d 20 73 74 61 20 | 76 69 63 69 72 71 0d 0d |01. sta |vicirq..|
|00000340| 2a 0d 2a a0 a0 a0 a0 a0 | a0 6d 65 6d 6f 72 69 7a |*.*.....|.memoriz|
|00000350| 65 a0 73 63 72 65 65 6e | a0 63 6f 6c 6f 72 0d 2a |e.screen|.color.*|
|00000360| 0d 0d 20 6c 64 61 20 35 | 33 32 38 31 0d 20 73 74 |.. lda 5|3281. st|
|00000370| 61 20 62 61 63 6b 67 72 | 0d 2a a0 6d 65 6d 6f 72 |a backgr|.*.memor|
|00000380| 69 7a 65 a0 74 68 65 a0 | 6f 72 67 69 6e 61 6c a0 |ize.the.|orginal.|
|00000390| 69 72 71 a0 76 65 63 73 | 0d 0d 20 6c 64 61 20 69 |irq.vecs|.. lda i|
|000003a0| 72 71 76 65 63 0d 20 73 | 74 61 20 6f 72 67 69 72 |rqvec. s|ta orgir|
|000003b0| 71 0d 20 6c 64 61 20 69 | 72 71 76 65 63 2b 31 0d |q. lda i|rqvec+1.|
|000003c0| 20 73 74 61 20 6f 72 67 | 69 72 71 2b 31 0d 0d 2a | sta org|irq+1..*|
|000003d0| a0 a0 a0 a0 63 68 61 6e | 67 65 a0 74 68 65 a0 69 |....chan|ge.the.i|
|000003e0| 72 71 a0 76 65 63 74 6f | 72 0d 20 6c 64 61 20 23 |rq.vecto|r. lda #|
|000003f0| 3c 6e 65 77 69 72 71 0d | 20 73 74 61 20 69 72 71 |<newirq.| sta irq|
|00000400| 76 65 63 0d 20 6c 64 61 | 20 23 3e 6e 65 77 69 72 |vec. lda| #>newir|
|00000410| 71 0d 20 73 74 61 20 69 | 72 71 76 65 63 2b 31 0d |q. sta i|rqvec+1.|
|00000420| 0d 2a a0 a0 a0 74 75 72 | 6e a0 6f 66 66 a0 74 69 |.*...tur|n.off.ti|
|00000430| 6d 65 72 a0 69 6e 74 65 | 72 72 75 70 74 73 0d 20 |mer.inte|rrupts. |
|00000440| 6c 64 61 20 23 30 31 0d | 20 73 74 61 20 63 69 61 |lda #01.| sta cia|
|00000450| 69 63 72 0d 0d 2a a0 69 | 6e 69 74 69 6c 69 7a 65 |icr..*.i|nitilize|
|00000460| a0 74 68 65 a0 6c 69 6e | 65 a0 70 6f 73 a0 63 6f |.the.lin|e.pos.co|
|00000470| 75 6e 74 65 72 0d 0d 20 | 6c 64 61 20 23 30 37 0d |unter.. |lda #07.|
|00000480| 20 73 74 61 20 6c 69 6e | 65 73 0d 20 73 74 61 20 | sta lin|es. sta |
|00000490| 74 6f 67 67 6c 65 0d 0d | 2a a0 a0 a0 a0 a0 a0 6d |toggle..|*......m|
|000004a0| 65 6d 6f 72 69 7a 65 a0 | 6f 72 67 a0 73 63 72 6f |emorize.|org.scro|
|000004b0| 6c 6c a0 73 69 7a 65 0d | 20 6c 64 61 a0 20 73 63 |ll.size.| lda. sc|
|000004c0| 72 6f 6c 78 0d 20 73 74 | 61 a0 20 6f 72 67 78 0d |rolx. st|a. orgx.|
|000004d0| a0 20 63 6c 69 0d 20 72 | 74 73 0d 0d 2a a0 a0 a0 |. cli. r|ts..*...|
|000004e0| a0 a0 a0 6e 65 77 a0 69 | 72 71 a0 72 6f 75 74 69 |...new.i|rq.routi|
|000004f0| 6e 65 0d 2a 0d 2a a0 a0 | a0 a0 69 74 27 73 a0 64 |ne.*.*..|..it's.d|
|00000500| 65 66 69 6e 61 74 65 6c | 79 a0 72 61 73 74 65 72 |efinatel|y.raster|
|00000510| 21 0d 2a a0 a0 a0 a0 a0 | 63 6c 65 61 72 a0 72 61 |!.*.....|clear.ra|
|00000520| 73 74 65 72 a0 6c 61 74 | 63 68 0d 6e 65 77 69 72 |ster.lat|ch.newir|
|00000530| 71 20 6c 64 61 20 23 30 | 31 0d 20 73 74 61 20 76 |q lda #0|1. sta v|
|00000540| 69 63 69 72 71 0d 0d 2a | a0 a0 74 6f 70 a0 72 61 |icirq..*|..top.ra|
|00000550| 73 74 65 72 a0 6f 72 a0 | 62 6f 74 74 6f 6d a0 72 |ster.or.|bottom.r|
|00000560| 61 73 74 65 72 3f 0d 20 | 6c 64 61 20 72 61 73 74 |aster?. |lda rast|
|00000570| 65 72 0d 20 63 6d 70 20 | 74 6f 70 0d 20 62 6e 65 |er. cmp |top. bne|
|00000580| 20 6e 6f 74 74 6f 70 0d | 0d 2a a0 a0 a0 a0 a0 69 | nottop.|.*.....i|
|00000590| 74 a0 77 61 73 a0 74 68 | 65 a0 74 6f 70 a0 72 61 |t.was.th|e.top.ra|
|000005a0| 73 74 65 72 0d 2a 0d 2a | a0 73 68 72 69 6e 6b a0 |ster.*.*|.shrink.|
|000005b0| 62 6f 72 64 65 72 0d 0d | 20 6c 64 61 20 73 63 72 |border..| lda scr|
|000005c0| 6f 6c 78 0d 20 61 6e 64 | 20 23 32 34 37 0d 20 6f |olx. and| #247. o|
|000005d0| 72 61 20 6c 69 6e 65 73 | 0d 20 73 74 61 20 73 63 |ra lines|. sta sc|
|000005e0| 72 6f 6c 78 0d 0d 20 6c | 64 61 20 76 6d 63 73 62 |rolx.. l|da vmcsb|
|000005f0| 0d 20 61 6e 64 20 23 31 | 35 0d 20 73 74 61 20 76 |. and #1|5. sta v|
|00000600| 6d 63 73 62 0d 0d 2a a0 | 70 6f 6b 65 a0 62 61 63 |mcsb..*.|poke.bac|
|00000610| 6b 67 72 64 a0 63 6f 6c | 6f 72 0d 0d 20 6c 64 61 |kgrd.col|or.. lda|
|00000620| 20 74 62 61 63 6b 67 72 | 0d 20 73 74 61 20 35 33 | tbackgr|. sta 53|
|00000630| 32 38 31 0d 0d 2a a0 64 | 65 63 72 65 6d 65 6e 74 |281..*.d|ecrement|
|00000640| a0 6c 69 6e 65 73 a0 61 | 6e 64 a0 63 68 65 63 6b |.lines.a|nd.check|
|00000650| a0 66 6f 72 0d 2a a0 72 | 6f 6c 6c a0 6f 76 65 72 |.for.*.r|oll.over|
|00000660| a0 69 66 a0 73 6f a0 74 | 68 65 6e a0 63 6f 70 79 |.if.so.t|hen.copy|
|00000670| a0 74 68 65 0d 2a a0 62 | 6f 74 74 6f 6d a0 6c 69 |.the.*.b|ottom.li|
|00000680| 6e 65 a0 6f 76 65 72 a0 | 6f 6e 65 2e 0d 20 64 65 |ne.over.|one.. de|
|00000690| 63 20 6c 69 6e 65 73 0d | 20 62 70 6c 20 69 6e 73 |c lines.| bpl ins|
|000006a0| 69 64 65 31 0d 0d 20 6c | 64 61 20 23 30 37 0d 20 |ide1.. l|da #07. |
|000006b0| 73 74 61 20 6c 69 6e 65 | 73 0d 0d 63 6f 70 79 69 |sta line|s..copyi|
|000006c0| 74 0d 20 6c 64 79 20 23 | 30 31 0d 20 6c 64 78 20 |t. ldy #|01. ldx |
|000006d0| 23 30 30 0d 5d 6c 6f 6f | 70 20 6c 64 61 20 73 63 |#00.]loo|p lda sc|
|000006e0| 72 65 65 6e 2c 79 0d 20 | 73 74 61 20 73 63 72 65 |reen,y. |sta scre|
|000006f0| 65 6e 2c 78 0d 20 69 6e | 79 0d 20 69 6e 78 0d 20 |en,x. in|y. inx. |
|00000700| 63 70 79 20 23 34 30 0d | 20 62 6e 65 20 5d 6c 6f |cpy #40.| bne ]lo|
|00000710| 6f 70 0d 0d 2a 0d 2a a0 | 70 6c 61 63 65 a0 74 68 |op..*.*.|place.th|
|00000720| 65 a0 63 68 61 72 a0 69 | 6e a0 74 68 65 a0 33 39 |e.char.i|n.the.39|
|00000730| 74 68 a0 70 6f 73 0d 2a | a0 6f 66 a0 74 68 65 a0 |th.pos.*|.of.the.|
|00000740| 73 63 72 65 65 6e 0d 0d | 5d 6c 6f 6f 70 20 69 6e |screen..|]loop in|
|00000750| 63 20 6b 6f 75 6e 74 65 | 72 0d 20 6c 64 79 20 6b |c kounte|r. ldy k|
|00000760| 6f 75 6e 74 65 72 0d 20 | 6c 64 61 20 74 65 78 74 |ounter. |lda text|
|00000770| 2c 79 0d 20 63 6d 70 20 | 65 6f 74 6d 0d 20 62 65 |,y. cmp |eotm. be|
|00000780| 71 20 65 6f 74 0d 20 6c | 64 79 20 23 33 39 0d 20 |q eot. l|dy #39. |
|00000790| 73 74 61 20 73 63 72 65 | 65 6e 2c 79 0d 20 6a 6d |sta scre|en,y. jm|
|000007a0| 70 20 69 6e 73 69 64 65 | 31 0d 65 6f 74 20 6c 64 |p inside|1.eot ld|
|000007b0| 61 20 23 30 30 0d 20 73 | 74 61 20 6b 6f 75 6e 74 |a #00. s|ta kount|
|000007c0| 65 72 0d 20 6c 64 79 20 | 23 30 30 0d 20 6c 64 61 |er. ldy |#00. lda|
|000007d0| 20 74 65 78 74 2c 79 0d | 20 6c 64 79 20 23 33 39 | text,y.| ldy #39|
|000007e0| 0d 20 73 74 61 20 73 63 | 72 65 65 6e 2c 79 0d 0d |. sta sc|reen,y..|
|000007f0| 2a a0 a0 a0 73 65 74 75 | 70 a0 66 6f 72 a0 6e 65 |*...setu|p.for.ne|
|00000800| 78 74 a0 69 6e 74 65 72 | 72 75 70 74 0d 69 6e 73 |xt.inter|rupt.ins|
|00000810| 69 64 65 31 0d 20 6c 64 | 61 20 62 6f 74 74 6f 6d |ide1. ld|a bottom|
|00000820| 0d 20 73 74 61 20 72 61 | 73 74 65 72 0d 0d 2a a0 |. sta ra|ster..*.|
|00000830| a0 a0 68 61 73 a0 74 69 | 6d 65 72 2d 61 a0 63 6f |..has.ti|mer-a.co|
|00000840| 75 6e 74 65 64 a0 64 6f | 77 6e 3f 0d 20 6c 64 61 |unted.do|wn?. lda|
|00000850| 20 63 69 61 69 63 72 0d | 20 61 6e 64 20 23 30 31 | ciaicr.| and #01|
|00000860| 0d 20 62 65 71 20 65 78 | 69 74 72 61 73 0d 0d 2a |. beq ex|itras..*|
|00000870| a0 a0 a0 a0 79 65 73 2c | a0 6a 75 6d 70 a0 74 6f |....yes,|.jump.to|
|00000880| a0 68 6f 75 73 65 6b 65 | 65 70 65 72 0d 20 6a 6d |.houseke|eper. jm|
|00000890| 70 20 24 65 61 33 31 0d | 0d 2a a0 a0 a0 a0 a0 69 |p $ea31.|.*.....i|
|000008a0| 73 a0 77 61 73 a0 62 6f | 74 74 6f 6d a0 72 61 73 |s.was.bo|ttom.ras|
|000008b0| 74 65 72 0d 2a 0d 2a a0 | a0 a0 a0 a0 a0 a0 73 65 |ter.*.*.|......se|
|000008c0| 74 a0 62 6f 72 64 65 72 | a0 63 6f 6c 6f 72 0d 6e |t.border|.color.n|
|000008d0| 6f 74 74 6f 70 20 6c 64 | 61 20 62 61 63 6b 67 72 |ottop ld|a backgr|
|000008e0| 0d 20 73 74 61 20 35 33 | 32 38 31 0d 0d 20 6c 64 |. sta 53|281.. ld|
|000008f0| 61 a0 20 6f 72 67 78 0d | 20 73 74 61 a0 20 73 63 |a. orgx.| sta. sc|
|00000900| 72 6f 6c 78 0d 0d 20 6c | 64 61 20 73 63 72 6f 6c |rolx.. l|da scrol|
|00000910| 78 0d 20 61 6e 64 20 23 | 32 34 37 0d 20 6f 72 61 |x. and #|247. ora|
|00000920| 20 23 30 38 0d 20 73 74 | 61 20 73 63 72 6f 6c 78 | #08. st|a scrolx|
|00000930| 0d 0d 0d 2a 0d 2a a0 6d | 6f 76 65 a0 73 63 72 65 |...*.*.m|ove.scre|
|00000940| 65 6e a0 6d 65 6d a0 62 | 61 63 6b a0 74 6f a0 6e |en.mem.b|ack.to.n|
|00000950| 6f 72 6d 0d 20 6c 64 61 | 20 76 6d 63 73 62 0d 20 |orm. lda| vmcsb. |
|00000960| 61 6e 64 20 23 31 35 0d | 20 6f 72 61 20 73 63 72 |and #15.| ora scr|
|00000970| 65 65 6e 6d 65 6d 0d 20 | 73 74 61 20 76 6d 63 73 |eenmem. |sta vmcs|
|00000980| 62 0d 0d 0d 2a a0 a0 a0 | a0 73 65 74 75 70 a0 66 |b...*...|.setup.f|
|00000990| 6f 72 a0 6e 65 78 74 a0 | 69 6e 74 65 72 72 75 70 |or.next.|interrup|
|000009a0| 74 0d 20 6c 64 61 20 74 | 6f 70 0d 20 73 74 61 20 |t. lda t|op. sta |
|000009b0| 72 61 73 74 65 72 0d 0d | 2a a0 a0 a0 a0 a0 6d 61 |raster..|*.....ma|
|000009c0| 6b 65 a0 61 a0 63 6c 65 | 61 6e a0 65 78 69 74 0d |ke.a.cle|an.exit.|
|000009d0| 65 78 69 74 72 61 73 20 | 6a 6d 70 20 24 66 65 62 |exitras |jmp $feb|
|000009e0| 63 0d 0d 74 6f 70 20 64 | 66 62 20 32 34 31 0d 62 |c..top d|fb 241.b|
|000009f0| 6f 74 74 6f 6d 20 64 66 | 62 20 32 35 35 0d 6f 72 |ottom df|b 255.or|
|00000a00| 67 78 20 64 66 62 20 30 | 30 0d 6c 69 6e 65 73 20 |gx dfb 0|0.lines |
|00000a10| 64 66 62 20 30 37 0d 6b | 6f 75 6e 74 65 72 20 64 |dfb 07.k|ounter d|
|00000a20| 66 62 20 30 30 0d 65 6f | 74 6d 20 64 66 62 20 30 |fb 00.eo|tm dfb 0|
|00000a30| 30 0d 74 6f 67 67 6c 65 | 20 64 66 62 20 30 30 0d |0.toggle| dfb 00.|
|00000a40| 6f 72 67 69 72 71 20 64 | 66 62 20 30 30 2c 30 30 |orgirq d|fb 00,00|
|00000a50| 0d 62 61 63 6b 67 72 20 | 64 66 62 20 30 30 0d 74 |.backgr |dfb 00.t|
|00000a60| 62 61 63 6b 67 72 20 64 | 66 62 20 31 34 0d 73 63 |backgr d|fb 14.sc|
|00000a70| 72 65 65 6e 6d 65 6d 20 | 64 66 62 20 31 36 0d 63 |reenmem |dfb 16.c|
|00000a80| 72 65 64 69 74 73 20 74 | 78 74 20 22 62 79 a0 6a |redits t|xt "by.j|
|00000a90| 69 6d a0 26 a0 6d 69 6b | 65 21 22 0d 20 64 66 62 |im.&.mik|e!". dfb|
|00000aa0| 20 30 30 0d             |                         | 00.    |        |
+--------+-------------------------+-------------------------+--------+--------+