/ Ahoy 1985 November / Ahoy_Magazine_85-11_1985_Double_L.d64 / blackboard.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 2a 0d 2a a0 62 6c | 61 63 6b 62 6f 61 72 64 |..*.*.bl|ackboard|
|00000010| 0d 2a 0d 20 6f 72 67 20 | 24 38 30 30 30 0d 2a 0d |.*. org |$8000.*.|
|00000020| 63 6f 6c 6f 72 20 65 71 | 75 20 24 31 30 0d 62 61 |color eq|u $10.ba|
|00000030| 73 65 20 65 71 75 20 24 | 32 30 30 30 0d 73 63 72 |se equ $|2000.scr|
|00000040| 6f 6c 79 20 65 71 75 20 | 24 64 30 31 31 0d 76 6d |oly equ |$d011.vm|
|00000050| 63 73 62 20 65 71 75 20 | 24 64 30 31 38 0d 63 6f |csb equ |$d018.co|
|00000060| 6c 6d 61 70 20 65 71 75 | 20 24 30 34 30 30 0d 2a |lmap equ| $0400.*|
|00000070| 0d 68 6d 61 78 20 65 71 | 75 20 33 32 30 0d 76 6d |.hmax eq|u 320.vm|
|00000080| 61 78 20 65 71 75 20 32 | 30 30 0d 68 6d 69 64 20 |ax equ 2|00.hmid |
|00000090| 65 71 75 20 31 36 30 0d | 76 6d 69 64 20 65 71 75 |equ 160.|vmid equ|
|000000a0| 20 31 30 30 0d 2a 0d 73 | 63 72 6c 65 6e 20 65 71 | 100.*.s|crlen eq|
|000000b0| 75 20 38 30 30 30 0d 6d | 61 70 6c 65 6e 20 65 71 |u 8000.m|aplen eq|
|000000c0| 75 20 31 30 30 30 0d 2a | 0d 74 65 6d 70 61 20 65 |u 1000.*|.tempa e|
|000000d0| 71 75 20 24 66 62 0d 74 | 65 6d 70 62 20 65 71 75 |qu $fb.t|empb equ|
|000000e0| 20 74 65 6d 70 61 2b 32 | 0d 2a 0d 74 61 62 70 74 | tempa+2|.*.tabpt|
|000000f0| 72 20 65 71 75 20 74 65 | 6d 70 61 0d 74 61 62 73 |r equ te|mpa.tabs|
|00000100| 69 7a 20 65 71 75 20 24 | 39 30 30 30 0d 2a 0d 68 |iz equ $|9000.*.h|
|00000110| 70 73 6e 20 65 71 75 20 | 74 61 62 73 69 7a 2b 32 |psn equ |tabsiz+2|
|00000120| 0d 76 70 73 6e 20 65 71 | 75 20 68 70 73 6e 2b 32 |.vpsn eq|u hpsn+2|
|00000130| 0d 63 68 61 72 20 65 71 | 75 20 76 70 73 6e 2b 31 |.char eq|u vpsn+1|
|00000140| 0d 72 6f 77 20 65 71 75 | 20 63 68 61 72 2b 31 0d |.row equ| char+1.|
|00000150| 6c 69 6e 65 20 65 71 75 | 20 72 6f 77 2b 31 0d 62 |line equ| row+1.b|
|00000160| 79 74 65 20 65 71 75 20 | 6c 69 6e 65 2b 31 0d 62 |yte equ |line+1.b|
|00000170| 69 74 74 20 65 71 75 20 | 62 79 74 65 2b 32 0d 2a |itt equ |byte+2.*|
|00000180| 0d 6d 70 72 6c 20 65 71 | 75 20 62 69 74 74 2b 31 |.mprl eq|u bitt+1|
|00000190| 0d 6d 70 72 68 20 65 71 | 75 20 6d 70 72 6c 2b 31 |.mprh eq|u mprl+1|
|000001a0| 0d 6d 70 64 6c 20 65 71 | 75 20 6d 70 72 68 2b 31 |.mpdl eq|u mprh+1|
|000001b0| 0d 6d 70 64 68 20 65 71 | 75 20 6d 70 64 6c 2b 31 |.mpdh eq|u mpdl+1|
|000001c0| 0d 70 72 6f 64 6c 20 65 | 71 75 20 6d 70 64 68 2b |.prodl e|qu mpdh+|
|000001d0| 31 0d 70 72 6f 64 68 20 | 65 71 75 20 70 72 6f 64 |1.prodh |equ prod|
|000001e0| 6c 2b 31 0d 2a 0d 66 69 | 6c 76 61 6c 20 65 71 75 |l+1.*.fi|lval equ|
|000001f0| 20 70 72 6f 64 68 2b 31 | 0d 6a 73 76 20 65 71 75 | prodh+1|.jsv equ|
|00000200| 20 66 69 6c 76 61 6c 2b | 31 0d 2a 0d 63 69 61 70 | filval+|1.*.ciap|
|00000210| 72 61 20 65 71 75 20 24 | 64 63 30 30 0d 2a 0d 20 |ra equ $|dc00.*. |
|00000220| 6a 6d 70 20 73 74 61 72 | 74 0d 2a 0d 2a a0 62 6c |jmp star|t.*.*.bl|
|00000230| 6f 63 6b a0 66 69 6c 6c | a0 72 6f 75 74 69 6e 65 |ock.fill|.routine|
|00000240| 0d 2a 0d 62 6c 6b 66 69 | 6c 20 6c 64 61 20 66 69 |.*.blkfi|l lda fi|
|00000250| 6c 76 61 6c 0d 20 6c 64 | 78 20 74 61 62 73 69 7a |lval. ld|x tabsiz|
|00000260| 2b 31 0d 20 62 65 71 20 | 70 61 72 74 70 67 0d 20 |+1. beq |partpg. |
|00000270| 6c 64 79 20 23 30 0d 66 | 75 6c 6c 70 67 20 73 74 |ldy #0.f|ullpg st|
|00000280| 61 20 28 74 61 62 70 74 | 72 29 2c 79 0d 20 69 6e |a (tabpt|r),y. in|
|00000290| 79 0d 20 62 6e 65 20 66 | 75 6c 6c 70 67 0d 20 69 |y. bne f|ullpg. i|
|000002a0| 6e 63 20 74 61 62 70 74 | 72 2b 31 0d 20 64 65 78 |nc tabpt|r+1. dex|
|000002b0| 0d 20 62 6e 65 20 66 75 | 6c 6c 70 67 0d 70 61 72 |. bne fu|llpg.par|
|000002c0| 74 70 67 20 6c 64 78 20 | 74 61 62 73 69 7a 0d 20 |tpg ldx |tabsiz. |
|000002d0| 62 65 71 20 66 69 6e 69 | 0d 20 6c 64 79 20 23 30 |beq fini|. ldy #0|
|000002e0| 0d 70 61 72 74 6c 70 20 | 73 74 61 20 28 74 61 62 |.partlp |sta (tab|
|000002f0| 70 74 72 29 2c 79 0d 20 | 69 6e 79 0d 20 64 65 78 |ptr),y. |iny. dex|
|00000300| 0d 20 62 6e 65 20 70 61 | 72 74 6c 70 0d 66 69 6e |. bne pa|rtlp.fin|
|00000310| 69 20 72 74 73 0d 2a 0d | 2a a0 31 36 2d 62 69 74 |i rts.*.|*.16-bit|
|00000320| a0 6d 75 6c 74 69 70 6c | 69 63 61 74 69 6f 6e a0 |.multipl|ication.|
|00000330| 72 6f 75 74 69 6e 65 0d | 2a 0d 6d 75 6c 74 31 36 |routine.|*.mult16|
|00000340| 20 6c 64 61 20 23 30 0d | 20 73 74 61 20 70 72 6f | lda #0.| sta pro|
|00000350| 64 6c 0d 20 73 74 61 20 | 70 72 6f 64 68 0d 20 6c |dl. sta |prodh. l|
|00000360| 64 78 20 23 31 37 0d 20 | 63 6c 63 0d 6d 75 6c 74 |dx #17. |clc.mult|
|00000370| 20 72 6f 72 20 70 72 6f | 64 68 0d 20 72 6f 72 20 | ror pro|dh. ror |
|00000380| 70 72 6f 64 6c 0d 20 72 | 6f 72 20 6d 70 72 68 0d |prodl. r|or mprh.|
|00000390| 20 72 6f 72 20 6d 70 72 | 6c 0d 20 62 63 63 20 63 | ror mpr|l. bcc c|
|000003a0| 74 64 6f 77 6e 0d 20 63 | 6c 63 0d 20 6c 64 61 20 |tdown. c|lc. lda |
|000003b0| 6d 70 64 6c 0d 20 61 64 | 63 20 70 72 6f 64 6c 0d |mpdl. ad|c prodl.|
|000003c0| 20 73 74 61 20 70 72 6f | 64 6c 0d 20 6c 64 61 20 | sta pro|dl. lda |
|000003d0| 6d 70 64 68 0d 20 61 64 | 63 20 70 72 6f 64 68 0d |mpdh. ad|c prodh.|
|000003e0| 20 73 74 61 20 70 72 6f | 64 68 0d 63 74 64 6f 77 | sta pro|dh.ctdow|
|000003f0| 6e 20 64 65 78 0d 20 62 | 6e 65 20 6d 75 6c 74 0d |n dex. b|ne mult.|
|00000400| 20 72 74 73 0d 2a 0d 2a | a0 70 6c 6f 74 a0 72 6f | rts.*.*|.plot.ro|
|00000410| 75 74 69 6e 65 0d 2a 0d | 2a a0 72 6f 77 3d 76 70 |utine.*.|*.row=vp|
|00000420| 73 6e 2f 38 a0 28 38 2d | 62 69 74 a0 64 69 76 69 |sn/8.(8-|bit.divi|
|00000430| 64 65 29 0d 2a 0d 70 6c | 6f 74 20 6c 64 61 20 76 |de).*.pl|ot lda v|
|00000440| 70 73 6e 0d 20 6c 73 72 | 20 61 0d 20 6c 73 72 20 |psn. lsr| a. lsr |
|00000450| 61 0d 20 6c 73 72 20 61 | 0d 20 73 74 61 20 72 6f |a. lsr a|. sta ro|
|00000460| 77 0d 2a 0d 2a a0 63 68 | 61 72 3d 68 70 73 6e 2f |w.*.*.ch|ar=hpsn/|
|00000470| 38 a0 28 31 36 2d 62 69 | 74 a0 64 69 76 69 64 65 |8.(16-bi|t.divide|
|00000480| 29 0d 2a 0d 20 6c 64 61 | 20 68 70 73 6e 0d 20 73 |).*. lda| hpsn. s|
|00000490| 74 61 20 74 65 6d 70 61 | 0d 20 6c 64 61 20 68 70 |ta tempa|. lda hp|
|000004a0| 73 6e 2b 31 0d 20 73 74 | 61 20 74 65 6d 70 61 2b |sn+1. st|a tempa+|
|000004b0| 31 0d 20 6c 64 78 20 23 | 33 0d 64 6c 6f 6f 70 20 |1. ldx #|3.dloop |
|000004c0| 6c 73 72 20 74 65 6d 70 | 61 2b 31 0d 20 72 6f 72 |lsr temp|a+1. ror|
|000004d0| 20 74 65 6d 70 61 0d 20 | 64 65 78 0d 20 62 6e 65 | tempa. |dex. bne|
|000004e0| 20 64 6c 6f 6f 70 0d 20 | 6c 64 61 20 74 65 6d 70 | dloop. |lda temp|
|000004f0| 61 0d 20 73 74 61 20 63 | 68 61 72 0d 2a 0d 2a a0 |a. sta c|har.*.*.|
|00000500| 6c 69 6e 65 3d 76 70 73 | 6e a0 61 6e 64 a0 37 0d |line=vps|n.and.7.|
|00000510| 2a 0d 20 6c 64 61 20 76 | 70 73 6e 0d 20 61 6e 64 |*. lda v|psn. and|
|00000520| 20 23 37 0d 20 73 74 61 | 20 6c 69 6e 65 0d 2a 0d | #7. sta| line.*.|
|00000530| 2a a0 62 69 74 74 3d 37 | 2d 28 68 70 73 6e a0 61 |*.bitt=7|-(hpsn.a|
|00000540| 6e 64 a0 37 29 0d 2a 0d | 20 6c 64 61 20 68 70 73 |nd.7).*.| lda hps|
|00000550| 6e 0d 20 61 6e 64 20 23 | 37 0d 20 73 74 61 20 62 |n. and #|7. sta b|
|00000560| 69 74 74 0d 20 73 65 63 | 0d 20 6c 64 61 20 23 37 |itt. sec|. lda #7|
|00000570| 0d 20 73 62 63 20 62 69 | 74 74 0d 20 73 74 61 20 |. sbc bi|tt. sta |
|00000580| 62 69 74 74 0d 2a 0d 2a | a0 62 79 74 65 3d 62 61 |bitt.*.*|.byte=ba|
|00000590| 73 65 2b 72 6f 77 2a 68 | 6d 61 78 2b 38 2a 63 68 |se+row*h|max+8*ch|
|000005a0| 61 72 2b 6c 69 6e 65 0d | 2a 0d 2a a0 66 69 72 73 |ar+line.|*.*.firs|
|000005b0| 74 a0 6d 75 6c 74 69 70 | 6c 79 a0 72 6f 77 a0 2a |t.multip|ly.row.*|
|000005c0| a0 68 6d 61 78 0d 2a 0d | 20 6c 64 61 20 72 6f 77 |.hmax.*.| lda row|
|000005d0| 0d 20 73 74 61 20 6d 70 | 72 6c 0d 20 6c 64 61 20 |. sta mp|rl. lda |
|000005e0| 23 30 0d 20 73 74 61 20 | 6d 70 72 68 0d 20 6c 64 |#0. sta |mprh. ld|
|000005f0| 61 20 23 3c 68 6d 61 78 | 0d 20 73 74 61 20 6d 70 |a #<hmax|. sta mp|
|00000600| 64 6c 0d 20 6c 64 61 20 | 23 3e 68 6d 61 78 0d 20 |dl. lda |#>hmax. |
|00000610| 73 74 61 20 6d 70 64 68 | 0d 20 6a 73 72 20 6d 75 |sta mpdh|. jsr mu|
|00000620| 6c 74 31 36 0d 20 6c 64 | 61 20 6d 70 72 6c 0d 20 |lt16. ld|a mprl. |
|00000630| 73 74 61 20 74 65 6d 70 | 61 0d 20 6c 64 61 20 6d |sta temp|a. lda m|
|00000640| 70 72 6c 2b 31 0d 20 73 | 74 61 20 74 65 6d 70 61 |prl+1. s|ta tempa|
|00000650| 2b 31 0d 2a 0d 2a a0 61 | 64 64 a0 70 72 6f 64 75 |+1.*.*.a|dd.produ|
|00000660| 63 74 a0 74 6f a0 62 61 | 73 65 0d 2a 0d 20 63 6c |ct.to.ba|se.*. cl|
|00000670| 63 0d 20 6c 64 61 20 23 | 3c 62 61 73 65 0d 20 61 |c. lda #|<base. a|
|00000680| 64 63 20 74 65 6d 70 61 | 0d 20 73 74 61 20 74 65 |dc tempa|. sta te|
|00000690| 6d 70 61 0d 20 6c 64 61 | 20 23 3e 62 61 73 65 0d |mpa. lda| #>base.|
|000006a0| 20 61 64 63 20 74 65 6d | 70 61 2b 31 0d 20 73 74 | adc tem|pa+1. st|
|000006b0| 61 20 74 65 6d 70 61 2b | 31 0d 2a 0d 2a a0 6d 75 |a tempa+|1.*.*.mu|
|000006c0| 6c 74 69 70 6c 79 a0 38 | a0 2a a0 63 68 61 72 0d |ltiply.8|.*.char.|
|000006d0| 2a 0d 20 6c 64 61 20 23 | 38 0d 20 73 74 61 20 6d |*. lda #|8. sta m|
|000006e0| 70 72 6c 0d 20 6c 64 61 | 20 23 30 0d 20 73 74 61 |prl. lda| #0. sta|
|000006f0| 20 6d 70 72 68 0d 20 6c | 64 61 20 63 68 61 72 0d | mprh. l|da char.|
|00000700| 20 73 74 61 20 6d 70 64 | 6c 0d 20 6c 64 61 20 23 | sta mpd|l. lda #|
|00000710| 30 0d 20 73 74 61 20 6d | 70 64 68 0d 20 6a 73 72 |0. sta m|pdh. jsr|
|00000720| 20 6d 75 6c 74 31 36 0d | 20 6c 64 61 20 6d 70 72 | mult16.| lda mpr|
|00000730| 6c 0d 20 73 74 61 20 74 | 65 6d 70 62 0d 20 6c 64 |l. sta t|empb. ld|
|00000740| 61 20 6d 70 72 68 0d 20 | 73 74 61 20 74 65 6d 70 |a mprh. |sta temp|
|00000750| 62 2b 31 0d 2a 0d 2a a0 | 61 64 64 a0 6c 69 6e 65 |b+1.*.*.|add.line|
|00000760| 0d 2a 0d 20 63 6c 63 0d | 20 6c 64 61 20 74 65 6d |.*. clc.| lda tem|
|00000770| 70 62 0d 20 61 64 63 20 | 6c 69 6e 65 0d 20 73 74 |pb. adc |line. st|
|00000780| 61 20 74 65 6d 70 62 0d | 20 6c 64 61 20 74 65 6d |a tempb.| lda tem|
|00000790| 70 62 2b 31 0d 20 61 64 | 63 20 23 30 0d 20 73 74 |pb+1. ad|c #0. st|
|000007a0| 61 20 74 65 6d 70 62 2b | 31 0d 2a 0d 2a a0 74 65 |a tempb+|1.*.*.te|
|000007b0| 6d 70 61 a0 2b a0 74 65 | 6d 70 62 a0 3d a0 62 79 |mpa.+.te|mpb.=.by|
|000007c0| 74 65 0d 2a 0d 20 63 6c | 63 0d 20 6c 64 61 20 74 |te.*. cl|c. lda t|
|000007d0| 65 6d 70 61 0d 20 61 64 | 63 20 74 65 6d 70 62 0d |empa. ad|c tempb.|
|000007e0| 20 73 74 61 20 74 65 6d | 70 62 0d 20 6c 64 61 20 | sta tem|pb. lda |
|000007f0| 74 65 6d 70 61 2b 31 0d | 20 61 64 63 20 74 65 6d |tempa+1.| adc tem|
|00000800| 70 62 2b 31 0d 20 73 74 | 61 20 74 65 6d 70 62 2b |pb+1. st|a tempb+|
|00000810| 31 0d 2a 0d 2a a0 70 6f | 6b 65 a0 62 79 74 65 2c |1.*.*.po|ke.byte,|
|00000820| 70 65 65 6b 28 62 79 74 | 65 29 6f 72 32 5e 62 69 |peek(byt|e)or2^bi|
|00000830| 74 0d 2a 0d 20 6c 64 78 | 20 62 69 74 74 0d 20 69 |t.*. ldx| bitt. i|
|00000840| 6e 78 0d 20 6c 64 61 20 | 23 30 0d 20 73 65 63 0d |nx. lda |#0. sec.|
|00000850| 73 71 75 61 72 65 20 72 | 6f 6c 0d 20 64 65 78 0d |square r|ol. dex.|
|00000860| 20 62 6e 65 20 73 71 75 | 61 72 65 0d 20 6c 64 79 | bne squ|are. ldy|
|00000870| 20 23 30 0d 20 6f 72 61 | 20 28 74 65 6d 70 62 29 | #0. ora| (tempb)|
|00000880| 2c 79 0d 20 73 74 61 20 | 28 74 65 6d 70 62 29 2c |,y. sta |(tempb),|
|00000890| 79 0d 20 72 74 73 0d 2a | 0d 2a a0 6d 61 69 6e a0 |y. rts.*|.*.main.|
|000008a0| 72 6f 75 74 69 6e 65 a0 | 73 74 61 72 74 73 a0 68 |routine.|starts.h|
|000008b0| 65 72 65 0d 2a 0d 2a a0 | 66 69 72 73 74 a0 64 65 |ere.*.*.|first.de|
|000008c0| 66 69 6e 65 a0 62 69 74 | a0 6d 61 70 a0 61 6e 64 |fine.bit|.map.and|
|000008d0| a0 65 6e 61 62 6c 65 0d | 2a a0 68 69 67 68 2d 72 |.enable.|*.high-r|
|000008e0| 65 73 6f 6c 75 74 69 6f | 6e a0 67 72 61 70 68 69 |esolutio|n.graphi|
|000008f0| 63 73 0d 2a 0d 73 74 61 | 72 74 20 6c 64 61 20 23 |cs.*.sta|rt lda #|
|00000900| 24 31 38 0d 20 73 74 61 | 20 76 6d 63 73 62 0d 2a |$18. sta| vmcsb.*|
|00000910| 0d 20 6c 64 61 20 73 63 | 72 6f 6c 79 0d 20 6f 72 |. lda sc|roly. or|
|00000920| 61 20 23 33 32 0d 20 73 | 74 61 20 73 63 72 6f 6c |a #32. s|ta scrol|
|00000930| 79 0d 2a 0d 2a a0 73 65 | 6c 65 63 74 a0 67 72 61 |y.*.*.se|lect.gra|
|00000940| 70 68 69 63 73 a0 62 61 | 6e 6b a0 31 0d 2a 0d 20 |phics.ba|nk.1.*. |
|00000950| 6c 64 61 20 24 64 64 30 | 32 0d 20 6f 72 61 20 23 |lda $dd0|2. ora #|
|00000960| 24 30 33 0d 20 73 74 61 | 20 24 64 64 30 32 0d 2a |$03. sta| $dd02.*|
|00000970| 0d 20 6c 64 61 20 24 64 | 64 30 30 0d 20 6f 72 61 |. lda $d|d00. ora|
|00000980| 20 23 24 30 33 0d 20 73 | 74 61 20 24 64 64 30 30 | #$03. s|ta $dd00|
|00000990| 0d 2a 0d 2a a0 63 6c 65 | 61 72 a0 62 69 74 a0 6d |.*.*.cle|ar.bit.m|
|000009a0| 61 70 0d 2a 0d 20 6c 64 | 61 20 23 30 0d 20 73 74 |ap.*. ld|a #0. st|
|000009b0| 61 20 66 69 6c 76 61 6c | 0d 20 6c 64 61 20 23 3c |a filval|. lda #<|
|000009c0| 62 61 73 65 0d 20 73 74 | 61 20 74 61 62 70 74 72 |base. st|a tabptr|
|000009d0| 0d 20 6c 64 61 20 23 3e | 62 61 73 65 0d 20 73 74 |. lda #>|base. st|
|000009e0| 61 20 74 61 62 70 74 72 | 2b 31 0d 20 6c 64 61 20 |a tabptr|+1. lda |
|000009f0| 23 3c 73 63 72 6c 65 6e | 0d 20 73 74 61 20 74 61 |#<scrlen|. sta ta|
|00000a00| 62 73 69 7a 0d 20 6c 64 | 61 20 23 3e 73 63 72 6c |bsiz. ld|a #>scrl|
|00000a10| 65 6e 0d 20 73 74 61 20 | 74 61 62 73 69 7a 2b 31 |en. sta |tabsiz+1|
|00000a20| 0d 20 6a 73 72 20 62 6c | 6b 66 69 6c 0d 2a 0d 2a |. jsr bl|kfil.*.*|
|00000a30| a0 73 65 74 a0 62 6b 67 | a0 61 6e 64 a0 6c 69 6e |.set.bkg|.and.lin|
|00000a40| 65 a0 63 6f 6c 6f 72 73 | 0d 2a 0d 20 6c 64 61 20 |e.colors|.*. lda |
|00000a50| 23 63 6f 6c 6f 72 0d 20 | 73 74 61 20 66 69 6c 76 |#color. |sta filv|
|00000a60| 61 6c 0d 20 6c 64 61 20 | 23 3c 63 6f 6c 6d 61 70 |al. lda |#<colmap|
|00000a70| 0d 20 73 74 61 20 74 61 | 62 70 74 72 0d 20 6c 64 |. sta ta|bptr. ld|
|00000a80| 61 20 23 3e 63 6f 6c 6d | 61 70 0d 20 73 74 61 20 |a #>colm|ap. sta |
|00000a90| 74 61 62 70 74 72 2b 31 | 0d 20 6c 64 61 20 23 3c |tabptr+1|. lda #<|
|00000aa0| 6d 61 70 6c 65 6e 0d 20 | 73 74 61 20 74 61 62 73 |maplen. |sta tabs|
|00000ab0| 69 7a 0d 20 6c 64 61 20 | 23 3e 6d 61 70 6c 65 6e |iz. lda |#>maplen|
|00000ac0| 0d 20 73 74 61 20 74 61 | 62 73 69 7a 2b 31 0d 20 |. sta ta|bsiz+1. |
|00000ad0| 6a 73 72 20 62 6c 6b 66 | 69 6c 0d 2a 0d 2a a0 64 |jsr blkf|il.*.*.d|
|00000ae0| 72 61 77 a0 68 6f 72 69 | 7a 6f 6e 74 61 6c a0 6c |raw.hori|zontal.l|
|00000af0| 69 6e 65 0d 2a 0d 20 6c | 64 61 20 23 76 6d 69 64 |ine.*. l|da #vmid|
|00000b00| 0d 20 73 74 61 20 76 70 | 73 6e 0d 20 6c 64 61 20 |. sta vp|sn. lda |
|00000b10| 23 30 0d 20 73 74 61 20 | 68 70 73 6e 0d 20 73 74 |#0. sta |hpsn. st|
|00000b20| 61 20 68 70 73 6e 2b 31 | 0d 61 67 69 6e 20 6a 73 |a hpsn+1|.agin js|
|00000b30| 72 20 70 6c 6f 74 0d 20 | 69 6e 63 20 68 70 73 6e |r plot. |inc hpsn|
|00000b40| 0d 20 62 6e 65 20 6e 65 | 78 74 0d 20 69 6e 63 20 |. bne ne|xt. inc |
|00000b50| 68 70 73 6e 2b 31 0d 6e | 65 78 74 20 6c 64 61 20 |hpsn+1.n|ext lda |
|00000b60| 68 70 73 6e 2b 31 0d 20 | 63 6d 70 20 23 3e 68 6d |hpsn+1. |cmp #>hm|
|00000b70| 61 78 0d 20 62 63 63 20 | 61 67 69 6e 0d 20 6c 64 |ax. bcc |agin. ld|
|00000b80| 61 20 68 70 73 6e 0d 20 | 63 6d 70 20 23 3c 68 6d |a hpsn. |cmp #<hm|
|00000b90| 61 78 0d 20 62 63 63 20 | 61 67 69 6e 0d 2a 0d 2a |ax. bcc |agin.*.*|
|00000ba0| a0 64 72 61 77 a0 76 65 | 72 74 69 63 61 6c a0 6c |.draw.ve|rtical.l|
|00000bb0| 69 6e 65 0d 2a 0d 20 6c | 64 61 20 23 30 0d 20 73 |ine.*. l|da #0. s|
|00000bc0| 74 61 20 76 70 73 6e 0d | 70 6f 69 6e 74 20 6c 64 |ta vpsn.|point ld|
|00000bd0| 61 20 23 3c 68 6d 69 64 | 0d 20 73 74 61 20 68 70 |a #<hmid|. sta hp|
|00000be0| 73 6e 0d 20 6c 64 61 20 | 23 3e 68 6d 69 64 0d 20 |sn. lda |#>hmid. |
|00000bf0| 73 74 61 20 68 70 73 6e | 2b 31 0d 20 6a 73 72 20 |sta hpsn|+1. jsr |
|00000c00| 70 6c 6f 74 0d 20 69 6e | 63 20 68 70 73 6e 0d 20 |plot. in|c hpsn. |
|00000c10| 62 6e 65 20 73 6b 69 70 | 0d 20 69 6e 63 20 68 70 |bne skip|. inc hp|
|00000c20| 73 6e 2b 31 0d 73 6b 69 | 70 20 6a 73 72 20 70 6c |sn+1.ski|p jsr pl|
|00000c30| 6f 74 0d 20 6c 64 78 20 | 76 70 73 6e 0d 20 69 6e |ot. ldx |vpsn. in|
|00000c40| 78 0d 20 73 74 78 20 76 | 70 73 6e 0d 20 63 70 78 |x. stx v|psn. cpx|
|00000c50| 20 23 76 6d 61 78 0d 20 | 62 63 63 20 70 6f 69 6e | #vmax. |bcc poin|
|00000c60| 74 0d 69 6e 66 20 6a 6d | 70 20 69 6e 66 0d       |t.inf jm|p inf.  |
+--------+-------------------------+-------------------------+--------+--------+