/ Loadstar 50 / 050.d81 / raster.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 2a 0d 2a a0 a0 |.. lst o|ff.*.*..|
|00000010| a0 6c 6f 61 64 73 74 61 | 72 a0 70 72 65 73 65 6e |.loadsta|r.presen|
|00000020| 74 73 a0 2e 2e 2e 2e 0d | 2a 0d 2a a0 a0 a0 a0 a0 |ts......|*.*.....|
|00000030| a0 a0 7a 65 72 6f a0 70 | 61 67 65 a0 3a a0 62 69 |..zero.p|age.:.bi|
|00000040| 74 73 0d 2a 0d 2a a0 a0 | a0 a0 a0 a0 72 61 73 74 |ts.*.*..|....rast|
|00000050| 65 72 a0 69 6e 74 65 72 | 72 75 70 74 73 0d 2a 0d |er.inter|rupts.*.|
|00000060| 2a 0d 2a a0 a0 a0 a0 a0 | a0 77 72 69 74 74 65 6e |*.*.....|.written|
|00000070| a0 62 79 a0 6a 69 6d a0 | 72 6f 77 0d 2a a0 a0 a0 |.by.jim.|row.*...|
|00000080| a0 a0 a0 a0 61 6e 64 a0 | 6d 69 6b 65 a0 6d 61 79 |....and.|mike.may|
|00000090| 6e 61 72 64 0d 2a 0d 2a | a0 a0 a0 a0 a0 a0 a0 a0 |nard.*.*|........|
|000000a0| a0 28 63 29 a0 31 39 38 | 38 0d 2a 0d 2a a0 a0 74 |.(c).198|8.*.*..t|
|000000b0| 68 69 73 a0 69 73 a0 6e | 6f 74 a0 70 75 62 6c 69 |his.is.n|ot.publi|
|000000c0| 63 a0 64 6f 6d 61 69 6e | 21 0d 2a 0d 0d 20 6f 72 |c.domain|!.*.. or|
|000000d0| 67 20 33 32 37 36 38 0d | 0d 2a 0d 2a a0 6f 75 72 |g 32768.|.*.*.our|
|000000e0| a0 74 61 62 6c 65 a0 6f | 66 a0 65 71 75 61 74 65 |.table.o|f.equate|
|000000f0| 73 a0 66 6f 72 a0 74 68 | 65 0d 2a a0 72 6f 75 74 |s.for.th|e.*.rout|
|00000100| 69 6e 65 73 a0 61 6e 64 | a0 6c 6f 63 61 74 69 6f |ines.and|.locatio|
|00000110| 6e 73 a0 74 68 61 74 0d | 2a a0 77 65 27 6c 6c a0 |ns.that.|*.we'll.|
|00000120| 62 65 a0 75 73 69 6e 67 | 0d 2a 0d 0d 0d 6c 6f 6e |be.using|.*...lon|
|00000130| 75 6d 62 20 65 71 75 20 | 32 35 33 20 3b 74 6f 70 |umb equ |253 ;top|
|00000140| 0d 68 69 6e 75 6d 62 20 | 65 71 75 20 32 35 34 20 |.hinumb |equ 254 |
|00000150| 3b 62 6f 74 74 6f 6d 0d | 63 6f 6c 6f 72 31 20 65 |;bottom.|color1 e|
|00000160| 71 75 20 32 35 31 0d 63 | 6f 6c 6f 72 32 20 65 71 |qu 251.c|olor2 eq|
|00000170| 75 20 32 35 32 0d 69 72 | 71 76 65 63 20 65 71 75 |u 252.ir|qvec equ|
|00000180| 20 37 38 38 0d 72 61 73 | 6c 69 6e 20 65 71 75 20 | 788.ras|lin equ |
|00000190| 35 33 32 36 36 0d 69 6e | 74 73 74 61 20 65 71 75 |53266.in|tsta equ|
|000001a0| 20 35 33 32 37 33 0d 69 | 6e 74 65 6e 61 20 65 71 | 53273.i|ntena eq|
|000001b0| 75 20 35 33 32 37 34 0d | 62 61 63 6b 67 72 20 65 |u 53274.|backgr e|
|000001c0| 71 75 20 35 33 32 38 31 | 0d 62 6f 72 64 65 72 20 |qu 53281|.border |
|000001d0| 65 71 75 20 35 33 32 38 | 30 0d 69 6e 74 74 69 6d |equ 5328|0.inttim|
|000001e0| 20 65 71 75 20 35 36 33 | 33 33 0d 0d 0d 2a a0 a0 | equ 563|33...*..|
|000001f0| a0 a0 a0 64 69 73 61 62 | 6c 65 a0 69 6e 74 65 72 |...disab|le.inter|
|00000200| 72 75 70 74 73 0d 2a a0 | a0 73 74 6f 72 65 a0 74 |rupts.*.|.store.t|
|00000210| 68 65 a0 6f 72 69 67 69 | 6e 61 6c a0 62 6f 72 64 |he.origi|nal.bord|
|00000220| 65 72 0d 2a a0 a0 61 6e | 64 a0 62 61 63 6b 67 72 |er.*..an|d.backgr|
|00000230| 6f 75 6e 64 a0 63 6f 6c | 6f 72 73 a0 69 6e 74 6f |ound.col|ors.into|
|00000240| 0d 2a a0 a0 74 65 6d 70 | 6f 72 61 72 79 a0 6c 6f |.*..temp|orary.lo|
|00000250| 63 61 74 69 6f 6e 73 2e | 0d 2a 0d 6f 6e 20 73 65 |cations.|.*.on se|
|00000260| 69 0d 20 6c 64 61 20 62 | 6f 72 64 65 72 0d 20 73 |i. lda b|order. s|
|00000270| 74 61 20 74 62 6f 72 64 | 65 72 0d 20 6c 64 61 20 |ta tbord|er. lda |
|00000280| 62 61 63 6b 67 72 0d 20 | 73 74 61 20 74 62 61 63 |backgr. |sta tbac|
|00000290| 6b 67 72 0d 2a 0d 2a a0 | 73 61 76 65 a0 6f 72 69 |kgr.*.*.|save.ori|
|000002a0| 67 69 6e 61 6c a0 69 72 | 71 a0 76 65 63 74 6f 72 |ginal.ir|q.vector|
|000002b0| a0 69 6e 0d 2a a0 6f 72 | 67 69 72 71 a0 61 6e 64 |.in.*.or|girq.and|
|000002c0| a0 69 6e 73 65 72 74 a0 | 6e 65 77 a0 76 65 63 74 |.insert.|new.vect|
|000002d0| 6f 72 0d 2a a0 61 64 64 | 72 65 73 73 a0 66 6f 72 |or.*.add|ress.for|
|000002e0| a0 6f 75 72 a0 6e 65 77 | a0 72 6f 75 74 69 6e 65 |.our.new|.routine|
|000002f0| 2e 0d 2a 0d 20 6c 64 61 | 20 69 72 71 76 65 63 0d |..*. lda| irqvec.|
|00000300| 20 73 74 61 20 6f 72 67 | 69 72 71 0d 20 6c 64 61 | sta org|irq. lda|
|00000310| 20 69 72 71 76 65 63 2b | 31 0d 20 73 74 61 20 6f | irqvec+|1. sta o|
|00000320| 72 67 69 72 71 2b 31 0d | 2a 0d 2a a0 73 74 6f 72 |rgirq+1.|*.*.stor|
|00000330| 69 6e 67 a0 6e 65 77 a0 | 61 64 64 72 65 73 73 a0 |ing.new.|address.|
|00000340| 66 6f 72 a0 6f 75 72 0d | 2a a0 72 6f 75 74 69 6e |for.our.|*.routin|
|00000350| 65 2e 0d 2a 0d 20 6c 64 | 61 20 23 3c 6e 65 77 69 |e..*. ld|a #<newi|
|00000360| 72 71 0d 20 73 74 61 20 | 69 72 71 76 65 63 0d 20 |rq. sta |irqvec. |
|00000370| 6c 64 61 20 23 3e 6e 65 | 77 69 72 71 0d 20 73 74 |lda #>ne|wirq. st|
|00000380| 61 20 69 72 71 76 65 63 | 2b 31 0d 2a 0d 2a a0 a0 |a irqvec|+1.*.*..|
|00000390| 70 75 74 a0 6c 6f 77 a0 | 72 61 73 74 65 72 a0 6c |put.low.|raster.l|
|000003a0| 69 6e 65 a0 6e 75 6d 62 | 65 72 0d 2a a0 a0 69 6e |ine.numb|er.*..in|
|000003b0| a0 22 72 61 73 6c 69 6e | 22 0d 2a 0d 20 6c 64 61 |."raslin|".*. lda|
|000003c0| 20 6c 6f 6e 75 6d 62 0d | 20 73 74 61 20 72 61 73 | lonumb.| sta ras|
|000003d0| 6c 69 6e 0d 2a 0d 2a a0 | a0 6d 61 6b 65 a0 73 75 |lin.*.*.|.make.su|
|000003e0| 72 65 a0 68 69 2d 62 69 | 74 a0 6f 66 a0 72 61 73 |re.hi-bi|t.of.ras|
|000003f0| 74 65 72 0d 2a a0 a0 6c | 69 6e 65 a0 6e 75 6d 62 |ter.*..l|ine.numb|
|00000400| 65 72 a0 69 73 a0 6f 66 | 66 21 0d 2a 0d 20 6c 64 |er.is.of|f!.*. ld|
|00000410| 61 20 72 61 73 6c 69 6e | 2d 31 0d 20 61 6e 64 20 |a raslin|-1. and |
|00000420| 23 31 32 37 0d 20 73 74 | 61 20 72 61 73 6c 69 6e |#127. st|a raslin|
|00000430| 2d 31 0d 2a 0d 2a a0 a0 | 65 6e 61 62 6c 65 a0 72 |-1.*.*..|enable.r|
|00000440| 61 73 74 65 72 a0 69 6e | 74 65 72 72 75 70 74 73 |aster.in|terrupts|
|00000450| 0d 2a 0d 2a a0 a0 73 65 | 74 a0 62 69 74 a0 30 a0 |.*.*..se|t.bit.0.|
|00000460| 66 6f 72 a0 61 a0 72 61 | 73 74 65 72 0d 2a a0 a0 |for.a.ra|ster.*..|
|00000470| 63 6f 6d 70 61 72 65 2e | a0 a0 6d 61 6b 65 a0 73 |compare.|..make.s|
|00000480| 75 72 65 a0 74 68 61 74 | a0 62 69 74 73 0d 2a a0 |ure.that|.bits.*.|
|00000490| a0 31 2d 37 a0 61 72 65 | a0 6f 66 66 2e 0d 2a 0d |.1-7.are|.off..*.|
|000004a0| 20 6c 64 61 20 23 30 31 | 0d 20 73 74 61 20 69 6e | lda #01|. sta in|
|000004b0| 74 65 6e 61 0d 2a 0d 2a | 0d 2a a0 a0 65 76 65 72 |tena.*.*|.*..ever|
|000004c0| 79 74 68 69 6e 67 a0 68 | 61 73 a0 62 65 65 6e a0 |ything.h|as.been.|
|000004d0| 73 65 74 a0 66 6f 72 a0 | 6f 75 72 0d 2a a0 72 61 |set.for.|our.*.ra|
|000004e0| 73 74 65 72 a0 69 6e 74 | 65 72 72 75 70 74 73 a0 |ster.int|errupts.|
|000004f0| 61 6e 64 a0 77 65 a0 77 | 69 6c 6c 0d 2a a0 72 65 |and.we.w|ill.*.re|
|00000500| 74 75 72 6e a0 74 6f a0 | 62 61 73 69 63 2e 0d 2a |turn.to.|basic..*|
|00000510| 0d 2a a0 a0 74 75 72 6e | a0 69 6e 74 65 72 72 75 |.*..turn|.interru|
|00000520| 70 74 73 a0 6f 6e a0 61 | 6e 64 a0 72 74 73 21 0d |pts.on.a|nd.rts!.|
|00000530| 20 63 6c 69 0d 20 72 74 | 73 0d 0d 2a a0 63 68 65 | cli. rt|s..*.che|
|00000540| 63 6b a0 69 6e 74 65 72 | 72 75 70 74 a0 73 74 61 |ck.inter|rupt.sta|
|00000550| 74 75 73 a0 72 65 67 69 | 73 74 65 72 0d 2a a0 69 |tus.regi|ster.*.i|
|00000560| 74 a0 74 65 6c 6c 73 a0 | 77 68 61 74 a0 63 61 75 |t.tells.|what.cau|
|00000570| 73 65 64 a0 74 68 65 0d | 2a a0 69 6e 74 65 72 72 |sed.the.|*.interr|
|00000580| 75 70 74 2e 0d 2a 74 68 | 69 73 a0 63 68 65 63 6b |upt..*th|is.check|
|00000590| 73 a0 74 68 65 a0 68 69 | 67 68 a0 62 69 74 a0 28 |s.the.hi|gh.bit.(|
|000005a0| 62 69 74 a0 37 29 0d 2a | a0 69 66 a0 69 74 a0 69 |bit.7).*|.if.it.i|
|000005b0| 73 a0 73 65 74 a0 62 72 | 61 6e 63 68 a0 74 6f a0 |s.set.br|anch.to.|
|000005c0| 76 69 63 72 61 73 74 72 | 0d 2a a0 28 6f 75 72 a0 |vicrastr|.*.(our.|
|000005d0| 72 6f 75 74 69 6e 65 29 | 0d 2a 0d 6e 65 77 69 72 |routine)|.*.newir|
|000005e0| 71 20 6c 64 61 20 69 6e | 74 73 74 61 0d 20 73 74 |q lda in|tsta. st|
|000005f0| 61 20 69 6e 74 73 74 61 | 0d 20 62 6d 69 20 76 69 |a intsta|. bmi vi|
|00000600| 63 72 61 73 74 72 0d 0d | 2a 0d 2a a0 6f 75 72 a0 |crastr..|*.*.our.|
|00000610| 72 61 73 74 65 72 a0 69 | 6e 74 65 72 72 75 70 74 |raster.i|nterrupt|
|00000620| a0 64 69 64 a0 6e 6f 74 | 0d 2a a0 6f 63 63 75 72 |.did.not|.*.occur|
|00000630| 2e a0 77 65 a0 6e 65 65 | 64 a0 74 6f a0 6c 6f 61 |..we.nee|d.to.loa|
|00000640| 64 a0 2e 61 a0 77 69 74 | 68 0d 2a a0 69 6e 74 74 |d..a.wit|h.*.intt|
|00000650| 69 6d a0 61 6e 64 a0 63 | 6c 65 61 72 a0 74 68 65 |im.and.c|lear.the|
|00000660| a0 69 6e 74 65 72 72 75 | 70 74 0d 2a a0 66 6c 61 |.interru|pt.*.fla|
|00000670| 67 2e a0 a0 77 65 a0 6c | 6f 61 64 a0 2e 61 a0 74 |g...we.l|oad..a.t|
|00000680| 6f a0 68 65 6c 70 a0 77 | 69 74 68 0d 2a a0 72 61 |o.help.w|ith.*.ra|
|00000690| 73 74 65 72 a0 63 6c 65 | 61 6e a0 75 70 2e 0d 2a |ster.cle|an.up..*|
|000006a0| 0d 20 6c 64 61 20 69 6e | 74 74 69 6d 0d 20 63 6c |. lda in|ttim. cl|
|000006b0| 69 0d 2a 0d 2a a0 a0 61 | 6c 6c 6f 77 a0 74 68 65 |i.*.*..a|llow.the|
|000006c0| a0 69 72 71 a0 74 6f a0 | 63 6f 6e 74 69 6e 75 65 |.irq.to.|continue|
|000006d0| 0d 2a a0 74 6f a0 69 74 | 73 a0 6f 72 69 67 69 6e |.*.to.it|s.origin|
|000006e0| 61 6c a0 6c 6f 63 61 74 | 69 6f 6e 2e 0d 2a 0d 20 |al.locat|ion..*. |
|000006f0| 6a 6d 70 20 28 6f 72 67 | 69 72 71 29 0d 0d 2a a0 |jmp (org|irq)..*.|
|00000700| 72 61 73 74 65 72 a0 63 | 6f 6d 70 61 72 65 a0 6c |raster.c|ompare.l|
|00000710| 69 6e 65 a0 77 61 73 a0 | 72 65 61 63 68 65 64 0d |ine.was.|reached.|
|00000720| 2a a0 73 6f a0 61 6e a0 | 69 6e 74 65 72 72 75 70 |*.so.an.|interrup|
|00000730| 74 a0 6f 63 63 75 72 72 | 65 64 2e 0d 2a 0d 2a a0 |t.occurr|ed..*.*.|
|00000740| a0 74 68 65 a0 73 63 61 | 6e a0 6c 69 6e 65 a0 72 |.the.sca|n.line.r|
|00000750| 65 61 63 68 65 64 a0 6f | 6e 65 a0 6f 66 0d 2a a0 |eached.o|ne.of.*.|
|00000760| 6f 75 72 a0 74 77 6f a0 | 66 6c 61 67 73 2e 2e 2e |our.two.|flags...|
|00000770| 6e 6f 77 a0 77 65 a0 6e | 65 65 64 0d 2a a0 74 6f |now.we.n|eed.*.to|
|00000780| a0 73 65 65 a0 77 68 69 | 63 68 a0 66 6c 61 67 a0 |.see.whi|ch.flag.|
|00000790| 77 61 73 a0 72 65 61 63 | 68 65 64 2e 0d 2a 0d 2a |was.reac|hed..*.*|
|000007a0| a0 64 69 64 a0 74 68 65 | a0 72 61 73 74 65 72 a0 |.did.the|.raster.|
|000007b0| 68 69 74 a0 68 69 6e 75 | 6d 62 3f 0d 2a 0d 76 69 |hit.hinu|mb?.*.vi|
|000007c0| 63 72 61 73 74 72 20 6c | 64 61 20 72 61 73 6c 69 |crastr l|da rasli|
|000007d0| 6e 0d 20 63 6d 70 20 68 | 69 6e 75 6d 62 0d 20 62 |n. cmp h|inumb. b|
|000007e0| 63 73 20 67 72 65 61 74 | 65 72 0d 0d 20 6c 64 61 |cs great|er.. lda|
|000007f0| 20 63 6f 6c 6f 72 31 0d | 20 73 74 61 20 62 61 63 | color1.| sta bac|
|00000800| 6b 67 72 0d 20 6c 64 61 | 20 63 6f 6c 6f 72 32 0d |kgr. lda| color2.|
|00000810| 20 73 74 61 20 62 6f 72 | 64 65 72 0d 20 6c 64 61 | sta bor|der. lda|
|00000820| 20 68 69 6e 75 6d 62 0d | 20 6a 6d 70 20 65 78 69 | hinumb.| jmp exi|
|00000830| 74 0d 0d 67 72 65 61 74 | 65 72 20 6c 64 61 20 74 |t..great|er lda t|
|00000840| 62 61 63 6b 67 72 0d 20 | 73 74 61 20 62 61 63 6b |backgr. |sta back|
|00000850| 67 72 0d 20 6c 64 61 20 | 74 62 6f 72 64 65 72 0d |gr. lda |tborder.|
|00000860| 20 73 74 61 20 62 6f 72 | 64 65 72 0d 20 6c 64 61 | sta bor|der. lda|
|00000870| 20 6c 6f 6e 75 6d 62 0d | 0d 65 78 69 74 20 73 74 | lonumb.|.exit st|
|00000880| 61 20 72 61 73 6c 69 6e | 0d 20 6a 6d 70 20 24 66 |a raslin|. jmp $f|
|00000890| 65 62 63 0d 0d 6f 72 67 | 69 72 71 20 64 66 62 20 |ebc..org|irq dfb |
|000008a0| 30 30 2c 30 30 0d 74 62 | 61 63 6b 67 72 20 64 66 |00,00.tb|ackgr df|
|000008b0| 62 20 30 30 0d 74 62 6f | 72 64 65 72 20 64 66 62 |b 00.tbo|rder dfb|
|000008c0| 20 30 30 0d 63 72 65 64 | 69 74 73 20 74 78 74 20 | 00.cred|its txt |
|000008d0| 22 77 72 69 74 74 65 6e | a0 62 79 a0 6a 69 6d 22 |"written|.by.jim"|
|000008e0| 0d 20 74 78 74 20 22 72 | 6f 77 a0 61 6e 64 a0 6d |. txt "r|ow.and.m|
|000008f0| 69 6b 65 22 0d 20 74 78 | 74 20 22 6d 61 79 6e 61 |ike". tx|t "mayna|
|00000900| 72 64 a0 66 6f 72 22 0d | 20 74 78 74 20 22 6c 6f |rd.for".| txt "lo|
|00000910| 61 64 73 74 61 72 a0 69 | 6e 63 2e 22 0d 20 74 78 |adstar.i|nc.". tx|
|00000920| 74 20 22 a0 28 63 29 a0 | 31 39 38 38 a0 22 0d 20 |t ".(c).|1988.". |
|00000930| 64 66 62 20 30 30 0d    |                         |dfb 00. |        |
+--------+-------------------------+-------------------------+--------+--------+