/ Loadstar 16 / 016.d81 / sysplotterc.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 20 6f 72 67 20 34 | 39 31 35 32 0d 20 6c 73 |.. org 4|9152. ls|
|00000010| 74 20 6f 66 66 0d 63 68 | 6b 63 6f 6d 20 3d 20 24 |t off.ch|kcom = $|
|00000020| 61 65 66 64 0d 66 72 6d | 65 76 61 6c 20 3d 20 34 |aefd.frm|eval = 4|
|00000030| 34 34 34 36 0d 66 61 63 | 74 6f 69 6e 74 20 3d 20 |4446.fac|toint = |
|00000040| 24 62 63 39 62 0d 66 61 | 63 20 3d 20 24 36 31 0d |$bc9b.fa|c = $61.|
|00000050| 61 64 64 72 65 73 73 20 | 3d 20 32 35 31 0d 0d 2a |address |= 251..*|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000080| 2a a0 a0 a0 a0 6a 6d 70 | a0 74 61 62 6c 65 a0 74 |*....jmp|.table.t|
|00000090| 6f a0 72 6f 75 74 69 6e | 65 73 a0 a0 a0 a0 a0 2a |o.routin|es.....*|
|000000a0| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 0d 0d 20 6a 6d 70 20 | 73 65 74 67 72 61 70 68 |*.. jmp |setgraph|
|000000d0| 69 63 0d 20 6a 6d 70 20 | 75 6e 67 72 61 70 68 69 |ic. jmp |ungraphi|
|000000e0| 63 0d 20 6a 6d 70 20 63 | 6c 65 61 72 0d 20 6a 6d |c. jmp c|lear. jm|
|000000f0| 70 20 63 6f 6c 6f 72 73 | 6d 65 61 72 0d 20 6a 6d |p colors|mear. jm|
|00000100| 70 20 70 6c 6f 74 63 6f | 6c 6f 72 0d 20 6a 6d 70 |p plotco|lor. jmp|
|00000110| 20 70 6c 6f 74 0d 20 6a | 6d 70 20 75 6e 70 6c 6f | plot. j|mp unplo|
|00000120| 74 0d 20 6a 6d 70 20 64 | 6f 6c 69 6e 65 0d 20 6a |t. jmp d|oline. j|
|00000130| 6d 70 20 75 6e 6c 69 6e | 65 0d 0d 0d 67 65 74 69 |mp unlin|e...geti|
|00000140| 6e 75 6d 62 65 72 0d 2a | 0d 2a a0 a0 78 2d 72 65 |number.*|.*..x-re|
|00000150| 67 a0 63 6f 6e 74 61 69 | 6e 73 a0 6c 6f 77 a0 62 |g.contai|ns.low.b|
|00000160| 79 74 65 0d 2a a0 a0 79 | 2d 72 65 67 a0 63 6f 6e |yte.*..y|-reg.con|
|00000170| 74 61 69 6e 73 a0 68 69 | a0 a0 62 79 74 65 0d 2a |tains.hi|..byte.*|
|00000180| a0 a0 61 74 a0 65 78 69 | 74 a0 6f 66 a0 72 6f 75 |..at.exi|t.of.rou|
|00000190| 74 69 6e 65 0d 2a 0d 20 | 6a 73 72 20 63 68 6b 63 |tine.*. |jsr chkc|
|000001a0| 6f 6d 0d 20 6a 73 72 20 | 66 72 6d 65 76 61 6c 0d |om. jsr |frmeval.|
|000001b0| 20 6a 73 72 20 66 61 63 | 74 6f 69 6e 74 0d 20 6c | jsr fac|toint. l|
|000001c0| 64 79 20 23 24 30 30 0d | 20 6c 64 61 20 66 61 63 |dy #$00.| lda fac|
|000001d0| 2b 34 0d 20 74 61 78 0d | 20 6c 64 61 20 66 61 63 |+4. tax.| lda fac|
|000001e0| 2b 33 0d 20 74 61 79 0d | 20 72 74 73 0d 0d 66 69 |+3. tay.| rts..fi|
|000001f0| 6e 64 70 6c 6f 74 0d 20 | 6c 64 61 20 79 62 79 74 |ndplot. |lda ybyt|
|00000200| 65 0d 20 63 6c 63 0d 20 | 6c 73 72 0d 20 6c 73 72 |e. clc. |lsr. lsr|
|00000210| 0d 20 6c 73 72 0d 20 73 | 74 61 20 72 6f 77 0d 0d |. lsr. s|ta row..|
|00000220| 20 6c 64 61 20 23 24 30 | 30 0d 20 73 74 61 20 74 | lda #$0|0. sta t|
|00000230| 65 6d 70 0d 20 6c 64 61 | 20 78 68 69 62 79 74 65 |emp. lda| xhibyte|
|00000240| 0d 20 6c 73 72 0d 20 62 | 63 63 20 6e 6f 63 61 72 |. lsr. b|cc nocar|
|00000250| 72 79 0d 20 6c 64 61 20 | 23 33 32 0d 20 73 74 61 |ry. lda |#32. sta|
|00000260| 20 74 65 6d 70 0d 6e 6f | 63 61 72 72 79 0d 20 6c | temp.no|carry. l|
|00000270| 64 61 20 78 6c 6f 62 79 | 74 65 0d 20 6c 73 72 0d |da xloby|te. lsr.|
|00000280| 20 6c 73 72 0d 20 6c 73 | 72 0d 20 63 6c 63 0d 20 | lsr. ls|r. clc. |
|00000290| 61 64 63 20 74 65 6d 70 | 0d 20 73 74 61 20 63 68 |adc temp|. sta ch|
|000002a0| 61 72 0d 0d 20 6c 64 61 | 20 79 62 79 74 65 0d 20 |ar.. lda| ybyte. |
|000002b0| 61 6e 64 20 23 24 30 37 | 0d 20 73 74 61 20 6c 69 |and #$07|. sta li|
|000002c0| 6e 65 0d 0d 20 6c 64 61 | 20 78 6c 6f 62 79 74 65 |ne.. lda| xlobyte|
|000002d0| 0d 20 61 6e 64 20 23 24 | 30 37 0d 20 73 74 61 20 |. and #$|07. sta |
|000002e0| 74 65 6d 70 0d 20 6c 64 | 61 20 23 24 30 37 0d 20 |temp. ld|a #$07. |
|000002f0| 73 65 63 0d 20 73 62 63 | 20 74 65 6d 70 0d 20 73 |sec. sbc| temp. s|
|00000300| 74 61 20 62 69 74 0d 0d | 20 6c 64 61 20 23 24 30 |ta bit..| lda #$0|
|00000310| 30 0d 20 73 74 61 20 61 | 64 64 72 65 73 73 0d 20 |0. sta a|ddress. |
|00000320| 73 74 61 20 61 64 64 72 | 65 73 73 2b 31 0d 0d 20 |sta addr|ess+1.. |
|00000330| 6c 64 61 20 23 24 30 30 | 0d 20 73 74 61 20 62 79 |lda #$00|. sta by|
|00000340| 74 65 0d 20 73 74 61 20 | 62 79 74 65 2b 31 0d 20 |te. sta |byte+1. |
|00000350| 6c 64 61 20 72 6f 77 0d | 20 73 74 61 20 62 79 74 |lda row.| sta byt|
|00000360| 65 2b 31 0d 20 6c 73 72 | 20 62 79 74 65 2b 31 0d |e+1. lsr| byte+1.|
|00000370| 20 72 6f 72 20 62 79 74 | 65 0d 20 6c 73 72 20 62 | ror byt|e. lsr b|
|00000380| 79 74 65 2b 31 0d 20 72 | 6f 72 20 62 79 74 65 0d |yte+1. r|or byte.|
|00000390| 20 6c 64 61 20 72 6f 77 | 0d 20 63 6c 63 0d 20 61 | lda row|. clc. a|
|000003a0| 64 63 20 62 79 74 65 2b | 31 0d 20 73 74 61 20 62 |dc byte+|1. sta b|
|000003b0| 79 74 65 2b 31 0d 20 6a | 73 72 20 61 64 64 74 6f |yte+1. j|sr addto|
|000003c0| 61 64 64 72 65 73 73 0d | 0d 20 6c 64 61 20 23 24 |address.|. lda #$|
|000003d0| 30 30 0d 20 73 74 61 20 | 62 79 74 65 0d 20 73 74 |00. sta |byte. st|
|000003e0| 61 20 62 79 74 65 2b 31 | 0d 20 6c 64 61 20 63 68 |a byte+1|. lda ch|
|000003f0| 61 72 0d 20 61 73 6c 0d | 20 61 73 6c 0d 20 61 73 |ar. asl.| asl. as|
|00000400| 6c 0d 20 73 74 61 20 62 | 79 74 65 0d 20 62 63 63 |l. sta b|yte. bcc|
|00000410| 20 6e 6f 68 69 62 79 74 | 65 0d 20 6c 64 61 20 23 | nohibyt|e. lda #|
|00000420| 24 30 31 0d 20 73 74 61 | 20 62 79 74 65 2b 31 0d |$01. sta| byte+1.|
|00000430| 6e 6f 68 69 62 79 74 65 | 0d 20 6a 73 72 20 61 64 |nohibyte|. jsr ad|
|00000440| 64 74 6f 61 64 64 72 65 | 73 73 0d 0d 20 6c 64 61 |dtoaddre|ss.. lda|
|00000450| 20 6c 69 6e 65 0d 20 73 | 74 61 20 62 79 74 65 0d | line. s|ta byte.|
|00000460| 20 6c 64 61 20 23 24 32 | 30 0d 20 73 74 61 20 62 | lda #$2|0. sta b|
|00000470| 79 74 65 2b 31 0d 20 6a | 73 72 20 61 64 64 74 6f |yte+1. j|sr addto|
|00000480| 61 64 64 72 65 73 73 0d | 0d 20 6c 64 61 20 23 24 |address.|. lda #$|
|00000490| 30 31 0d 20 73 74 61 20 | 70 6f 77 65 72 0d 20 6c |01. sta |power. l|
|000004a0| 64 61 20 62 69 74 0d 20 | 62 65 71 20 6e 6f 6c 75 |da bit. |beq nolu|
|000004b0| 70 65 0d 0d 20 6c 64 61 | 20 70 6f 77 65 72 0d 20 |pe.. lda| power. |
|000004c0| 6c 64 79 20 23 24 30 30 | 0d 6c 75 70 65 61 67 61 |ldy #$00|.lupeaga|
|000004d0| 69 6e 0d 20 63 6c 63 0d | 20 61 73 6c 0d 20 69 6e |in. clc.| asl. in|
|000004e0| 79 0d 20 63 70 79 20 62 | 69 74 0d 20 62 6e 65 20 |y. cpy b|it. bne |
|000004f0| 6c 75 70 65 61 67 61 69 | 6e 0d 20 73 74 61 20 70 |lupeagai|n. sta p|
|00000500| 6f 77 65 72 0d 6e 6f 6c | 75 70 65 0d 20 72 74 73 |ower.nol|upe. rts|
|00000510| 0d 0d 0d 70 6c 6f 74 61 | 70 6f 69 6e 74 0d 20 6c |...plota|point. l|
|00000520| 64 79 20 23 24 30 30 0d | 20 6c 64 61 20 28 61 64 |dy #$00.| lda (ad|
|00000530| 64 72 65 73 73 29 2c 79 | 0d 20 6f 72 61 20 70 6f |dress),y|. ora po|
|00000540| 77 65 72 0d 20 73 74 61 | 20 28 61 64 64 72 65 73 |wer. sta| (addres|
|00000550| 73 29 2c 79 0d 20 72 74 | 73 0d 0d 72 65 73 65 74 |s),y. rt|s..reset|
|00000560| 61 70 6f 69 6e 74 0d 20 | 6c 64 79 20 23 24 30 30 |apoint. |ldy #$00|
|00000570| 0d 20 6c 64 61 20 70 6f | 77 65 72 0d 20 65 6f 72 |. lda po|wer. eor|
|00000580| 20 23 24 66 66 0d 20 61 | 6e 64 20 28 61 64 64 72 | #$ff. a|nd (addr|
|00000590| 65 73 73 29 2c 79 0d 20 | 73 74 61 20 28 61 64 64 |ess),y. |sta (add|
|000005a0| 72 65 73 73 29 2c 79 0d | 20 72 74 73 0d 0d 63 68 |ress),y.| rts..ch|
|000005b0| 61 6e 67 65 62 6b 67 72 | 0d 20 6c 64 61 20 23 3c |angebkgr|. lda #<|
|000005c0| 31 30 32 34 0d 20 73 74 | 61 20 61 64 64 72 65 73 |1024. st|a addres|
|000005d0| 73 0d 20 6c 64 61 20 23 | 3e 31 30 32 34 0d 20 73 |s. lda #|>1024. s|
|000005e0| 74 61 20 61 64 64 72 65 | 73 73 2b 31 0d 72 65 64 |ta addre|ss+1.red|
|000005f0| 6f 0d 20 6c 64 79 20 23 | 24 30 30 0d 20 6c 64 61 |o. ldy #|$00. lda|
|00000600| 20 28 61 64 64 72 65 73 | 73 29 2c 79 0d a0 20 61 | (addres|s),y.. a|
|00000610| 6e 64 20 23 32 34 30 0d | a0 20 63 6c 63 0d a0 20 |nd #240.|. clc.. |
|00000620| 61 64 63 a0 20 6e 65 77 | 63 6f 6c 6f 72 0d a0 20 |adc. new|color.. |
|00000630| 73 74 61 a0 20 28 61 64 | 64 72 65 73 73 29 2c 79 |sta. (ad|dress),y|
|00000640| 0d 20 69 6e 63 20 61 64 | 64 72 65 73 73 0d 20 62 |. inc ad|dress. b|
|00000650| 6e 65 20 6e 6f 68 69 67 | 68 0d 20 69 6e 63 20 61 |ne nohig|h. inc a|
|00000660| 64 64 72 65 73 73 2b 31 | 0d 6e 6f 68 69 67 68 0d |ddress+1|.nohigh.|
|00000670| 20 6c 64 61 20 61 64 64 | 72 65 73 73 2b 31 0d 20 | lda add|ress+1. |
|00000680| 63 6d 70 20 23 3e 32 30 | 32 33 0d 20 62 6e 65 20 |cmp #>20|23. bne |
|00000690| 72 65 64 6f 0d 20 6c 64 | 61 20 61 64 64 72 65 73 |redo. ld|a addres|
|000006a0| 73 0d 20 63 6d 70 20 23 | 3c 32 30 32 34 0d 20 62 |s. cmp #|<2024. b|
|000006b0| 6e 65 20 72 65 64 6f 0d | 20 72 74 73 0d 0d 0d 63 |ne redo.| rts...c|
|000006c0| 68 61 6e 67 65 70 6c 6f | 74 0d 20 6c 64 61 20 23 |hangeplo|t. lda #|
|000006d0| 3c 31 30 32 34 0d 20 73 | 74 61 20 61 64 64 72 65 |<1024. s|ta addre|
|000006e0| 73 73 0d 20 6c 64 61 20 | 23 3e 31 30 32 34 0d 20 |ss. lda |#>1024. |
|000006f0| 73 74 61 20 61 64 64 72 | 65 73 73 2b 31 0d 0d a0 |sta addr|ess+1...|
|00000700| 20 6c 64 61 a0 20 6e 65 | 77 63 6f 6c 6f 72 0d a0 | lda. ne|wcolor..|
|00000710| 20 61 73 6c 0d a0 20 61 | 73 6c 0d a0 20 61 73 6c | asl.. a|sl.. asl|
|00000720| 0d a0 20 61 73 6c 0d a0 | 20 73 74 61 a0 6e 65 77 |.. asl..| sta.new|
|00000730| 63 6f 6c 6f 72 0d 0d 72 | 65 6c 6f 6f 70 0d 20 6c |color..r|eloop. l|
|00000740| 64 79 20 23 24 30 30 0d | 20 6c 64 61 20 28 61 64 |dy #$00.| lda (ad|
|00000750| 64 72 65 73 73 29 2c 79 | 0d 20 61 6e 64 20 23 31 |dress),y|. and #1|
|00000760| 35 0d 20 63 6c 63 0d 20 | 61 64 63 20 6e 65 77 63 |5. clc. |adc newc|
|00000770| 6f 6c 6f 72 0d 20 73 74 | 61 20 28 61 64 64 72 65 |olor. st|a (addre|
|00000780| 73 73 29 2c 79 0d 20 69 | 6e 63 20 61 64 64 72 65 |ss),y. i|nc addre|
|00000790| 73 73 0d 20 62 6e 65 20 | 6e 6f 68 69 67 68 61 67 |ss. bne |nohighag|
|000007a0| 61 69 6e 0d 20 69 6e 63 | 20 61 64 64 72 65 73 73 |ain. inc| address|
|000007b0| 2b 31 0d 6e 6f 68 69 67 | 68 61 67 61 69 6e 0d 20 |+1.nohig|hagain. |
|000007c0| 6c 64 61 20 61 64 64 72 | 65 73 73 2b 31 0d 20 63 |lda addr|ess+1. c|
|000007d0| 6d 70 20 23 3e 32 30 32 | 33 0d 20 62 6e 65 20 72 |mp #>202|3. bne r|
|000007e0| 65 6c 6f 6f 70 0d 20 6c | 64 61 20 61 64 64 72 65 |eloop. l|da addre|
|000007f0| 73 73 0d 20 63 6d 70 20 | 23 3c 32 30 32 34 0d 20 |ss. cmp |#<2024. |
|00000800| 62 6e 65 20 72 65 6c 6f | 6f 70 0d 20 72 74 73 0d |bne relo|op. rts.|
|00000810| 0d 63 6f 6c 6f 72 73 6d | 65 61 72 0d 20 6a 73 72 |.colorsm|ear. jsr|
|00000820| 20 67 65 74 69 6e 75 6d | 62 65 72 0d 20 73 74 78 | getinum|ber. stx|
|00000830| 20 6e 65 77 63 6f 6c 6f | 72 0d 20 6a 73 72 20 63 | newcolo|r. jsr c|
|00000840| 68 61 6e 67 65 62 6b 67 | 72 0d 20 6a 6d 70 20 65 |hangebkg|r. jmp e|
|00000850| 78 69 74 0d 0d 70 6c 6f | 74 63 6f 6c 6f 72 0d 20 |xit..plo|tcolor. |
|00000860| 6a 73 72 20 67 65 74 69 | 6e 75 6d 62 65 72 0d 20 |jsr geti|number. |
|00000870| 73 74 78 20 6e 65 77 63 | 6f 6c 6f 72 0d 20 6a 73 |stx newc|olor. js|
|00000880| 72 20 63 68 61 6e 67 65 | 70 6c 6f 74 0d 20 6a 6d |r change|plot. jm|
|00000890| 70 20 65 78 69 74 0d 0d | 70 6c 6f 74 0d 20 6a 73 |p exit..|plot. js|
|000008a0| 72 20 67 65 74 69 6e 75 | 6d 62 65 72 0d 20 73 74 |r getinu|mber. st|
|000008b0| 78 20 78 6c 6f 62 79 74 | 65 0d 20 73 74 79 20 78 |x xlobyt|e. sty x|
|000008c0| 68 69 62 79 74 65 0d 20 | 6a 73 72 20 67 65 74 69 |hibyte. |jsr geti|
|000008d0| 6e 75 6d 62 65 72 0d 20 | 73 74 78 20 79 62 79 74 |number. |stx ybyt|
|000008e0| 65 0d 0d 20 6a 73 72 20 | 66 69 6e 64 70 6c 6f 74 |e.. jsr |findplot|
|000008f0| 0d 20 6a 73 72 20 70 6c | 6f 74 61 70 6f 69 6e 74 |. jsr pl|otapoint|
|00000900| 0d 20 6a 6d 70 20 65 78 | 69 74 0d 0d 75 6e 70 6c |. jmp ex|it..unpl|
|00000910| 6f 74 0d 20 6a 73 72 20 | 67 65 74 69 6e 75 6d 62 |ot. jsr |getinumb|
|00000920| 65 72 0d 20 73 74 78 20 | 78 6c 6f 62 79 74 65 0d |er. stx |xlobyte.|
|00000930| 20 73 74 79 20 78 68 69 | 62 79 74 65 0d 20 6a 73 | sty xhi|byte. js|
|00000940| 72 20 67 65 74 69 6e 75 | 6d 62 65 72 0d 20 73 74 |r getinu|mber. st|
|00000950| 78 20 79 62 79 74 65 0d | 0d 20 6a 73 72 20 66 69 |x ybyte.|. jsr fi|
|00000960| 6e 64 70 6c 6f 74 0d 20 | 6a 73 72 20 72 65 73 65 |ndplot. |jsr rese|
|00000970| 74 61 70 6f 69 6e 74 0d | 20 6a 6d 70 20 65 78 69 |tapoint.| jmp exi|
|00000980| 74 0d 0d 63 6c 65 61 72 | 0d 20 6c 64 61 20 23 3c |t..clear|. lda #<|
|00000990| 38 31 39 32 0d 20 73 74 | 61 20 61 64 64 72 65 73 |8192. st|a addres|
|000009a0| 73 0d 20 6c 64 61 20 23 | 3e 38 31 39 32 0d 20 73 |s. lda #|>8192. s|
|000009b0| 74 61 20 61 64 64 72 65 | 73 73 2b 31 0d 62 69 67 |ta addre|ss+1.big|
|000009c0| 6c 6f 6f 70 0d 20 6c 64 | 79 20 23 24 30 30 0d 20 |loop. ld|y #$00. |
|000009d0| 6c 64 61 20 23 24 30 30 | 0d 20 73 74 61 20 28 61 |lda #$00|. sta (a|
|000009e0| 64 64 72 65 73 73 29 2c | 79 0d 20 69 6e 63 20 61 |ddress),|y. inc a|
|000009f0| 64 64 72 65 73 73 0d 20 | 62 6e 65 20 6e 6f 74 61 |ddress. |bne nota|
|00000a00| 68 69 67 68 0d 20 69 6e | 63 20 61 64 64 72 65 73 |high. in|c addres|
|00000a10| 73 2b 31 0d 6e 6f 74 61 | 68 69 67 68 0d 20 6c 64 |s+1.nota|high. ld|
|00000a20| 61 20 61 64 64 72 65 73 | 73 2b 31 0d 20 63 6d 70 |a addres|s+1. cmp|
|00000a30| 20 23 3e 31 36 31 39 32 | 0d 20 62 6e 65 20 62 69 | #>16192|. bne bi|
|00000a40| 67 6c 6f 6f 70 0d 20 6c | 64 61 20 61 64 64 72 65 |gloop. l|da addre|
|00000a50| 73 73 0d 20 63 6d 70 20 | 23 3c 31 36 31 39 33 0d |ss. cmp |#<16193.|
|00000a60| 20 62 6e 65 20 62 69 67 | 6c 6f 6f 70 0d 20 6a 6d | bne big|loop. jm|
|00000a70| 70 20 65 78 69 74 0d 0d | 73 65 74 67 72 61 70 68 |p exit..|setgraph|
|00000a80| 69 63 0d 20 6c 64 61 20 | 35 33 32 37 32 0d 20 6f |ic. lda |53272. o|
|00000a90| 72 61 20 23 38 0d 20 73 | 74 61 20 35 33 32 37 32 |ra #8. s|ta 53272|
|00000aa0| 0d 20 6c 64 61 20 35 33 | 32 36 35 0d 20 6f 72 61 |. lda 53|265. ora|
|00000ab0| 20 23 33 32 0d 20 73 74 | 61 20 35 33 32 36 35 0d | #32. st|a 53265.|
|00000ac0| 20 6a 6d 70 20 65 78 69 | 74 0d 0d 75 6e 67 72 61 | jmp exi|t..ungra|
|00000ad0| 70 68 69 63 0d 20 6c 64 | 61 20 23 32 33 0d 20 73 |phic. ld|a #23. s|
|00000ae0| 74 61 20 35 33 32 37 32 | 0d 20 6c 64 61 20 23 32 |ta 53272|. lda #2|
|00000af0| 37 0d 20 73 74 61 20 35 | 33 32 36 35 0d 20 6a 6d |7. sta 5|3265. jm|
|00000b00| 70 20 65 78 69 74 0d 0d | 0d 76 65 72 74 69 63 61 |p exit..|.vertica|
|00000b10| 6c 0d 20 6a 73 72 20 6c | 69 6e 65 70 6c 6f 74 0d |l. jsr l|ineplot.|
|00000b20| 20 6c 64 61 20 79 70 0d | 20 63 6d 70 20 79 62 0d | lda yp.| cmp yb.|
|00000b30| 20 62 63 63 20 70 6f 69 | 31 0d 20 62 65 71 20 70 | bcc poi|1. beq p|
|00000b40| 6f 69 34 0d 20 64 65 63 | 20 79 70 0d 20 6a 6d 70 |oi4. dec| yp. jmp|
|00000b50| 20 76 65 72 74 69 63 61 | 6c 0d 70 6f 69 31 0d 20 | vertica|l.poi1. |
|00000b60| 69 6e 63 20 79 70 0d 20 | 6a 6d 70 20 76 65 72 74 |inc yp. |jmp vert|
|00000b70| 69 63 61 6c 0d 70 6f 69 | 34 0d 20 72 74 73 0d 0d |ical.poi|4. rts..|
|00000b80| 0d 64 6f 6c 69 6e 65 0d | 20 6c 64 61 20 23 24 30 |.doline.| lda #$0|
|00000b90| 30 0d 20 73 74 61 20 6c | 69 6e 65 66 6c 61 67 0d |0. sta l|ineflag.|
|00000ba0| 6c 69 6e 65 73 74 61 72 | 74 0d 20 6a 73 72 20 67 |linestar|t. jsr g|
|00000bb0| 65 74 69 6e 75 6d 62 65 | 72 0d 20 73 74 78 20 78 |etinumbe|r. stx x|
|00000bc0| 70 0d 20 73 74 79 20 78 | 70 2b 31 0d 20 6a 73 72 |p. sty x|p+1. jsr|
|00000bd0| 20 67 65 74 69 6e 75 6d | 62 65 72 0d 20 73 74 78 | getinum|ber. stx|
|00000be0| 20 79 70 0d 20 6a 73 72 | 20 67 65 74 69 6e 75 6d | yp. jsr| getinum|
|00000bf0| 62 65 72 0d 20 73 74 78 | 20 78 62 0d 20 73 74 79 |ber. stx| xb. sty|
|00000c00| 20 78 62 2b 31 0d 20 6a | 73 72 20 67 65 74 69 6e | xb+1. j|sr getin|
|00000c10| 75 6d 62 65 72 0d 20 73 | 74 78 20 79 62 0d 0d a0 |umber. s|tx yb...|
|00000c20| 20 6c 64 61 a0 20 78 70 | 2b 31 0d a0 20 63 6d 70 | lda. xp|+1.. cmp|
|00000c30| a0 20 78 62 2b 31 0d 20 | 62 6e 65 20 68 6f 6f 67 |. xb+1. |bne hoog|
|00000c40| 69 65 0d 20 6c 64 61 20 | 78 70 0d 20 63 6d 70 20 |ie. lda |xp. cmp |
|00000c50| 78 62 0d 68 6f 6f 67 69 | 65 0d 20 62 63 63 20 70 |xb.hoogi|e. bcc p|
|00000c60| 31 31 0d 20 62 65 71 20 | 76 65 72 74 69 63 61 6c |11. beq |vertical|
|00000c70| 0d 73 77 61 70 65 6d 0d | 20 6c 64 61 20 78 70 0d |.swapem.| lda xp.|
|00000c80| 20 73 74 61 20 74 65 6d | 70 0d 20 6c 64 61 20 78 | sta tem|p. lda x|
|00000c90| 62 0d 20 73 74 61 20 78 | 70 0d 20 6c 64 61 20 74 |b. sta x|p. lda t|
|00000ca0| 65 6d 70 0d 20 73 74 61 | 20 78 62 0d 0d 20 6c 64 |emp. sta| xb.. ld|
|00000cb0| 61 a0 78 70 2b 31 0d 20 | 73 74 61 a0 74 65 6d 70 |a.xp+1. |sta.temp|
|00000cc0| 0d a0 20 6c 64 61 a0 78 | 62 2b 31 0d a0 20 73 74 |.. lda.x|b+1.. st|
|00000cd0| 61 a0 78 70 2b 31 0d a0 | 20 6c 64 61 a0 74 65 6d |a.xp+1..| lda.tem|
|00000ce0| 70 0d a0 20 73 74 61 a0 | 78 62 2b 31 0d 0d 20 6c |p.. sta.|xb+1.. l|
|00000cf0| 64 61 20 79 70 0d 20 73 | 74 61 20 74 65 6d 70 0d |da yp. s|ta temp.|
|00000d00| 20 6c 64 61 20 79 62 0d | 20 73 74 61 20 79 70 0d | lda yb.| sta yp.|
|00000d10| 20 6c 64 61 20 74 65 6d | 70 0d 20 73 74 61 20 79 | lda tem|p. sta y|
|00000d20| 62 0d 0d 70 31 31 0d 20 | 6c 64 61 20 23 24 30 30 |b..p11. |lda #$00|
|00000d30| 0d 20 73 74 61 20 6b 2d | 31 0d 20 6c 64 61 20 79 |. sta k-|1. lda y|
|00000d40| 70 0d 20 73 74 61 20 6b | 0d 0d 20 73 65 63 0d 20 |p. sta k|.. sec. |
|00000d50| 6c 64 61 20 78 62 0d 20 | 73 62 63 20 78 70 0d 20 |lda xb. |sbc xp. |
|00000d60| 73 74 61 20 61 61 0d a0 | 20 6c 64 61 a0 78 62 2b |sta aa..| lda.xb+|
|00000d70| 31 0d a0 20 73 62 63 a0 | 78 70 2b 31 0d a0 20 73 |1.. sbc.|xp+1.. s|
|00000d80| 74 61 a0 61 61 2b 31 0d | 0d 20 6c 64 61 20 79 62 |ta.aa+1.|. lda yb|
|00000d90| 0d 20 63 6d 70 20 79 70 | 0d 20 62 63 73 20 6c 64 |. cmp yp|. bcs ld|
|00000da0| 6f 77 6e 0d 20 6a 6d 70 | 20 6c 75 70 0d 6c 64 6f |own. jmp| lup.ldo|
|00000db0| 77 6e 0d 20 6c 64 61 20 | 79 62 0d 20 73 62 63 20 |wn. lda |yb. sbc |
|00000dc0| 79 70 0d 20 73 74 61 20 | 63 2b 31 0d 20 6a 73 72 |yp. sta |c+1. jsr|
|00000dd0| 20 64 69 76 69 64 65 0d | 20 6c 64 61 20 23 30 30 | divide.| lda #00|
|00000de0| 0d 20 73 74 61 20 6b 2d | 31 0d 20 6c 64 61 20 79 |. sta k-|1. lda y|
|00000df0| 70 0d 20 73 74 61 20 6b | 0d 20 6a 73 72 20 6c 69 |p. sta k|. jsr li|
|00000e00| 6e 65 70 6c 6f 74 0d 20 | 63 6c 63 0d 70 32 0d 20 |neplot. |clc.p2. |
|00000e10| 6c 64 61 20 6b 2d 31 0d | 20 61 64 63 20 62 0d 20 |lda k-1.| adc b. |
|00000e20| 73 74 61 20 6b 2d 31 0d | 20 6c 64 61 20 6b 0d 20 |sta k-1.| lda k. |
|00000e30| 61 64 63 20 62 2b 31 0d | 20 73 74 61 20 6b 0d 20 |adc b+1.| sta k. |
|00000e40| 63 6d 70 20 79 70 0d 20 | 62 65 71 20 70 31 0d 20 |cmp yp. |beq p1. |
|00000e50| 69 6e 63 20 79 70 0d 20 | 6a 73 72 20 6c 69 6e 65 |inc yp. |jsr line|
|00000e60| 70 6c 6f 74 0d 20 69 6e | 63 20 78 70 0d a0 20 62 |plot. in|c xp.. b|
|00000e70| 6e 65 a0 6e 6f 78 70 68 | 69 0d a0 20 69 6e 63 a0 |ne.noxph|i.. inc.|
|00000e80| 78 70 2b 31 0d 6e 6f 78 | 70 68 69 0d 70 33 0d 20 |xp+1.nox|phi.p3. |
|00000e90| 6a 73 72 20 6c 69 6e 65 | 70 6c 6f 74 0d 20 6c 64 |jsr line|plot. ld|
|00000ea0| 61 20 79 70 0d 20 63 6d | 70 20 6b 0d 20 62 63 73 |a yp. cm|p k. bcs|
|00000eb0| 20 70 34 0d 20 63 6d 70 | 20 79 62 0d 20 62 63 73 | p4. cmp| yb. bcs|
|00000ec0| 20 70 37 0d 20 69 6e 63 | 20 79 70 0d 20 62 6e 65 | p7. inc| yp. bne|
|00000ed0| 20 70 33 0d 70 31 0d 20 | 69 6e 63 20 78 70 0d a0 | p3.p1. |inc xp..|
|00000ee0| 20 62 6e 65 a0 6e 78 70 | 68 69 0d a0 20 69 6e 63 | bne.nxp|hi.. inc|
|00000ef0| a0 78 70 2b 31 0d 6e 78 | 70 68 69 0d 20 6a 73 72 |.xp+1.nx|phi. jsr|
|00000f00| 20 6c 69 6e 65 70 6c 6f | 74 0d 70 34 0d a0 20 6c | lineplo|t.p4.. l|
|00000f10| 64 61 a0 78 70 2b 31 0d | a0 20 63 6d 70 a0 78 62 |da.xp+1.|. cmp.xb|
|00000f20| 2b 31 0d a0 20 62 6e 65 | a0 62 6f 6f 67 69 65 0d |+1.. bne|.boogie.|
|00000f30| 20 6c 64 61 20 78 70 0d | 20 63 6d 70 20 78 62 0d | lda xp.| cmp xb.|
|00000f40| 62 6f 6f 67 69 65 20 62 | 63 63 20 70 32 0d 70 35 |boogie b|cc p2.p5|
|00000f50| 0d 20 6c 64 61 20 79 70 | 0d 20 63 6d 70 20 79 62 |. lda yp|. cmp yb|
|00000f60| 0d 20 62 63 73 20 70 36 | 0d 20 69 6e 63 20 79 70 |. bcs p6|. inc yp|
|00000f70| 0d 20 6a 73 72 20 6c 69 | 6e 65 70 6c 6f 74 0d 20 |. jsr li|neplot. |
|00000f80| 6a 6d 70 20 70 35 0d 70 | 36 0d a0 20 6c 64 61 a0 |jmp p5.p|6.. lda.|
|00000f90| 78 70 2b 31 0d a0 20 63 | 6d 70 a0 78 62 2b 31 0d |xp+1.. c|mp.xb+1.|
|00000fa0| 20 62 63 63 a0 64 6f 6f | 67 69 65 0d 20 6c 64 61 | bcc.doo|gie. lda|
|00000fb0| 20 78 70 0d 20 63 6d 70 | 20 78 62 0d 64 6f 6f 67 | xp. cmp| xb.doog|
|00000fc0| 69 65 20 62 63 73 20 70 | 37 0d 6e 6f 77 6f 75 74 |ie bcs p|7.nowout|
|00000fd0| 0d 20 69 6e 63 20 78 70 | 0d a0 20 62 6e 65 a0 62 |. inc xp|.. bne.b|
|00000fe0| 6f 62 62 6c 65 0d a0 20 | 69 6e 63 a0 78 70 2b 31 |obble.. |inc.xp+1|
|00000ff0| 0d 62 6f 62 62 6c 65 0d | 20 6a 73 72 20 6c 69 6e |.bobble.| jsr lin|
|00001000| 65 70 6c 6f 74 0d 20 6a | 6d 70 20 70 36 0d 70 37 |eplot. j|mp p6.p7|
|00001010| 0d 20 72 74 73 0d 0d 0d | 6c 75 70 0d 20 6c 64 61 |. rts...|lup. lda|
|00001020| 20 79 70 0d 20 73 62 63 | 20 79 62 0d 20 73 74 61 | yp. sbc| yb. sta|
|00001030| 20 63 2b 31 0d 20 6a 73 | 72 20 64 69 76 69 64 65 | c+1. js|r divide|
|00001040| 0d 20 6c 64 61 20 23 24 | 30 30 0d 20 73 74 61 20 |. lda #$|00. sta |
|00001050| 6b 2d 31 0d 20 6c 64 61 | 20 79 70 0d 20 73 74 61 |k-1. lda| yp. sta|
|00001060| 20 6b 0d 20 6a 73 72 20 | 6c 69 6e 65 70 6c 6f 74 | k. jsr |lineplot|
|00001070| 0d 70 74 32 0d 20 73 65 | 63 0d 20 6c 64 61 20 6b |.pt2. se|c. lda k|
|00001080| 2d 31 0d 20 73 62 63 20 | 62 0d 20 73 74 61 20 6b |-1. sbc |b. sta k|
|00001090| 2d 31 0d 20 6c 64 61 20 | 6b 0d 20 73 62 63 20 62 |-1. lda |k. sbc b|
|000010a0| 2b 31 0d 20 73 74 61 20 | 6b 0d 20 63 6d 70 20 79 |+1. sta |k. cmp y|
|000010b0| 70 0d 20 62 65 71 20 70 | 74 31 0d 20 64 65 63 20 |p. beq p|t1. dec |
|000010c0| 79 70 0d 20 6a 73 72 20 | 6c 69 6e 65 70 6c 6f 74 |yp. jsr |lineplot|
|000010d0| 0d 20 69 6e 63 20 78 70 | 0d a0 20 62 6e 65 a0 6e |. inc xp|.. bne.n|
|000010e0| 6f 74 61 67 61 69 6e 0d | a0 20 69 6e 63 a0 78 70 |otagain.|. inc.xp|
|000010f0| 2b 31 0d 6e 6f 74 61 67 | 61 69 6e 0d 70 74 33 0d |+1.notag|ain.pt3.|
|00001100| 20 6a 73 72 20 6c 69 6e | 65 70 6c 6f 74 0d 20 6c | jsr lin|eplot. l|
|00001110| 64 61 20 79 70 0d 20 63 | 6d 70 20 6b 0d 20 62 63 |da yp. c|mp k. bc|
|00001120| 63 20 70 74 34 0d 20 62 | 65 71 20 70 74 34 0d 20 |c pt4. b|eq pt4. |
|00001130| 63 6d 70 20 79 62 0d 20 | 62 63 63 20 70 74 37 0d |cmp yb. |bcc pt7.|
|00001140| 20 62 65 71 20 70 74 37 | 0d 20 64 65 63 20 79 70 | beq pt7|. dec yp|
|00001150| 0d 20 6a 6d 70 20 70 74 | 33 0d 70 74 31 0d 20 69 |. jmp pt|3.pt1. i|
|00001160| 6e 63 20 78 70 0d a0 20 | 62 6e 65 a0 6e 6f 6d 6f |nc xp.. |bne.nomo|
|00001170| 72 65 69 6e 63 0d a0 20 | 69 6e 63 a0 78 70 2b 31 |reinc.. |inc.xp+1|
|00001180| 0d 6e 6f 6d 6f 72 65 69 | 6e 63 0d 20 6a 73 72 20 |.nomorei|nc. jsr |
|00001190| 6c 69 6e 65 70 6c 6f 74 | 0d 70 74 34 0d a0 20 6c |lineplot|.pt4.. l|
|000011a0| 64 61 a0 78 70 2b 31 0d | a0 20 63 6d 70 a0 78 62 |da.xp+1.|. cmp.xb|
|000011b0| 2b 31 0d a0 20 62 63 63 | a0 6e 6f 6f 67 69 65 0d |+1.. bcc|.noogie.|
|000011c0| 20 6c 64 61 20 78 70 0d | 20 63 6d 70 20 78 62 0d | lda xp.| cmp xb.|
|000011d0| 6e 6f 6f 67 69 65 20 62 | 63 63 20 70 74 32 0d 67 |noogie b|cc pt2.g|
|000011e0| 65 74 6f 75 74 0d 70 74 | 35 0d 20 6c 64 61 20 79 |etout.pt|5. lda y|
|000011f0| 62 0d 20 63 6d 70 20 79 | 70 0d 20 62 63 73 20 70 |b. cmp y|p. bcs p|
|00001200| 74 36 0d 20 64 65 63 20 | 79 70 0d 20 6a 73 72 20 |t6. dec |yp. jsr |
|00001210| 6c 69 6e 65 70 6c 6f 74 | 0d 20 6a 6d 70 20 70 74 |lineplot|. jmp pt|
|00001220| 35 0d 70 74 36 0d a0 20 | 6c 64 61 a0 78 70 2b 31 |5.pt6.. |lda.xp+1|
|00001230| 0d a0 20 63 6d 70 a0 78 | 62 2b 31 0d a0 20 62 63 |.. cmp.x|b+1.. bc|
|00001240| 63 a0 6c 6f 6f 67 69 65 | 0d a0 20 6c 64 61 20 78 |c.loogie|.. lda x|
|00001250| 70 0d a0 20 63 6d 70 20 | 78 62 0d 6c 6f 6f 67 69 |p.. cmp |xb.loogi|
|00001260| 65 20 62 63 73 20 70 74 | 37 0d 6d 6f 76 65 6f 6e |e bcs pt|7.moveon|
|00001270| 0d 20 69 6e 63 20 78 70 | 0d a0 20 62 6e 65 a0 6c |. inc xp|.. bne.l|
|00001280| 61 73 74 69 6e 63 0d a0 | 20 69 6e 63 a0 78 70 2b |astinc..| inc.xp+|
|00001290| 31 0d 6c 61 73 74 69 6e | 63 0d 20 6a 73 72 20 6c |1.lastin|c. jsr l|
|000012a0| 69 6e 65 70 6c 6f 74 0d | 20 6a 6d 70 20 70 74 36 |ineplot.| jmp pt6|
|000012b0| 0d 70 74 37 0d 20 72 74 | 73 0d 0d 0d 64 69 76 69 |.pt7. rt|s...divi|
|000012c0| 64 65 0d 20 6c 64 61 20 | 23 24 30 30 0d 20 73 74 |de. lda |#$00. st|
|000012d0| 61 20 74 65 6d 70 0d 20 | 73 74 61 20 62 0d 20 73 |a temp. |sta b. s|
|000012e0| 74 61 20 62 2b 31 0d 20 | 73 74 61 20 63 0d 20 6c |ta b+1. |sta c. l|
|000012f0| 64 78 20 23 24 31 30 0d | a0 20 6c 73 72 a0 20 61 |dx #$10.|. lsr. a|
|00001300| 61 2b 31 0d a0 20 72 6f | 72 a0 20 61 61 0d a0 20 |a+1.. ro|r. aa.. |
|00001310| 72 6f 72 a0 20 74 65 6d | 70 0d 70 6f 31 32 0d 20 |ror. tem|p.po12. |
|00001320| 6c 64 61 20 61 61 0d 20 | 62 65 71 20 70 6f 31 31 |lda aa. |beq po11|
|00001330| 0d 20 6c 73 72 20 61 61 | 0d 20 72 6f 72 20 74 65 |. lsr aa|. ror te|
|00001340| 6d 70 0d 20 64 65 78 0d | 20 62 6e 65 20 70 6f 31 |mp. dex.| bne po1|
|00001350| 32 0d 20 72 74 73 0d 70 | 6f 31 31 0d 20 6c 64 61 |2. rts.p|o11. lda|
|00001360| 20 74 65 6d 70 0d 20 73 | 74 61 20 61 61 0d 20 6c | temp. s|ta aa. l|
|00001370| 64 61 20 23 24 30 30 0d | 20 73 74 61 20 74 65 6d |da #$00.| sta tem|
|00001380| 70 0d 70 6f 31 0d 20 6c | 64 61 20 63 2b 31 0d 20 |p.po1. l|da c+1. |
|00001390| 63 6d 70 20 61 61 0d 20 | 62 63 63 20 70 6f 31 35 |cmp aa. |bcc po15|
|000013a0| 0d 20 62 6e 65 20 70 6f | 31 35 0d 20 6c 64 61 20 |. bne po|15. lda |
|000013b0| 63 0d 20 63 6d 70 20 74 | 65 6d 70 0d 70 6f 31 35 |c. cmp t|emp.po15|
|000013c0| 0d 20 70 68 70 0d 20 72 | 6f 6c 20 62 0d 20 72 6f |. php. r|ol b. ro|
|000013d0| 6c 20 62 2b 31 0d 20 70 | 6c 70 0d 20 62 63 63 20 |l b+1. p|lp. bcc |
|000013e0| 70 6f 32 0d 20 6c 64 61 | 20 63 0d 20 73 62 63 20 |po2. lda| c. sbc |
|000013f0| 74 65 6d 70 0d 20 73 74 | 61 20 63 0d 20 6c 64 61 |temp. st|a c. lda|
|00001400| 20 63 2b 31 0d 20 73 62 | 63 20 61 61 0d 20 73 74 | c+1. sb|c aa. st|
|00001410| 61 20 63 2b 31 0d 70 6f | 32 0d 20 6c 73 72 20 61 |a c+1.po|2. lsr a|
|00001420| 61 0d 20 72 6f 72 20 74 | 65 6d 70 0d 20 6c 64 61 |a. ror t|emp. lda|
|00001430| 20 61 61 0d 20 6f 72 61 | 20 74 65 6d 70 0d 20 62 | aa. ora| temp. b|
|00001440| 65 71 20 70 6f 33 0d 20 | 64 65 78 0d 20 62 6e 65 |eq po3. |dex. bne|
|00001450| 20 70 6f 31 0d 20 72 74 | 73 0d 70 6f 33 0d 20 61 | po1. rt|s.po3. a|
|00001460| 73 6c 20 62 0d 20 72 6f | 6c 20 62 2b 31 0d 20 64 |sl b. ro|l b+1. d|
|00001470| 65 78 0d 20 62 6e 65 20 | 70 6f 33 0d 20 72 74 73 |ex. bne |po3. rts|
|00001480| 0d 0d 0d 75 6e 6c 69 6e | 65 0d 20 6c 64 61 20 23 |...unlin|e. lda #|
|00001490| 24 30 31 0d 20 73 74 61 | 20 6c 69 6e 65 66 6c 61 |$01. sta| linefla|
|000014a0| 67 0d 20 6a 6d 70 20 6c | 69 6e 65 73 74 61 72 74 |g. jmp l|inestart|
|000014b0| 0d 2a 0d 2a a0 a0 75 73 | 65 73 a0 6c 69 6e 65 a0 |.*.*..us|es.line.|
|000014c0| 63 6f 64 65 a0 65 78 63 | 65 70 74 a0 65 72 61 73 |code.exc|ept.eras|
|000014d0| 65 73 0d 2a a0 a0 74 68 | 65 a0 6c 69 6e 65 2e a0 |es.*..th|e.line..|
|000014e0| a0 74 68 65 a0 72 65 61 | 6c a0 66 69 78 a0 69 73 |.the.rea|l.fix.is|
|000014f0| a0 69 6e 0d 2a a0 a0 74 | 68 65 a0 6c 69 6e 65 70 |.in.*..t|he.linep|
|00001500| 6c 6f 74 a0 73 75 62 2d | 72 6f 75 74 69 6e 65 2e |lot.sub-|routine.|
|00001510| 0d 2a 0d 0d 6c 69 6e 65 | 70 6c 6f 74 0d 20 6c 64 |.*..line|plot. ld|
|00001520| 61 20 79 70 0d 20 73 74 | 61 20 79 62 79 74 65 0d |a yp. st|a ybyte.|
|00001530| 20 6c 64 61 20 78 70 0d | 20 73 74 61 20 78 6c 6f | lda xp.| sta xlo|
|00001540| 62 79 74 65 0d 20 6c 64 | 61 20 78 70 2b 31 0d 20 |byte. ld|a xp+1. |
|00001550| 73 74 61 20 78 68 69 62 | 79 74 65 0d 20 6a 73 72 |sta xhib|yte. jsr|
|00001560| 20 66 69 6e 64 70 6c 6f | 74 0d 20 6c 64 61 20 6c | findplo|t. lda l|
|00001570| 69 6e 65 66 6c 61 67 0d | 20 62 6e 65 20 64 6f 75 |ineflag.| bne dou|
|00001580| 6e 0d 20 6a 73 72 20 70 | 6c 6f 74 61 70 6f 69 6e |n. jsr p|lotapoin|
|00001590| 74 0d 20 6a 6d 70 20 67 | 6f 62 61 63 6b 0d 64 6f |t. jmp g|oback.do|
|000015a0| 75 6e 0d 20 6a 73 72 20 | 72 65 73 65 74 61 70 6f |un. jsr |resetapo|
|000015b0| 69 6e 74 0d 67 6f 62 61 | 63 6b 0d 20 72 74 73 0d |int.goba|ck. rts.|
|000015c0| 0d 61 64 64 74 6f 61 64 | 64 72 65 73 73 0d 20 6c |.addtoad|dress. l|
|000015d0| 64 61 20 62 79 74 65 0d | 20 63 6c 63 0d 20 61 64 |da byte.| clc. ad|
|000015e0| 63 20 61 64 64 72 65 73 | 73 0d 20 73 74 61 20 61 |c addres|s. sta a|
|000015f0| 64 64 72 65 73 73 0d 20 | 6c 64 61 20 62 79 74 65 |ddress. |lda byte|
|00001600| 2b 31 0d 20 61 64 63 20 | 61 64 64 72 65 73 73 2b |+1. adc |address+|
|00001610| 31 0d 20 73 74 61 20 61 | 64 64 72 65 73 73 2b 31 |1. sta a|ddress+1|
|00001620| 0d 20 72 74 73 0d 0d 65 | 78 69 74 0d 20 72 74 73 |. rts..e|xit. rts|
|00001630| 0d 2a 0d 2a a0 72 65 74 | 75 72 6e a0 74 6f a0 62 |.*.*.ret|urn.to.b|
|00001640| 61 73 69 63 0d 2a 0d 0d | 72 6f 77 20 68 65 78 20 |asic.*..|row hex |
|00001650| 30 30 30 30 0d 63 68 61 | 72 20 68 65 78 20 30 30 |0000.cha|r hex 00|
|00001660| 0d 6c 69 6e 65 20 68 65 | 78 20 30 30 30 30 0d 74 |.line he|x 0000.t|
|00001670| 65 6d 70 20 68 65 78 20 | 30 30 0d 62 69 74 20 68 |emp hex |00.bit h|
|00001680| 65 78 20 30 30 0d 70 6f | 77 65 72 20 68 65 78 20 |ex 00.po|wer hex |
|00001690| 30 30 0d 6c 6f 63 61 74 | 69 6f 6e 20 68 65 78 20 |00.locat|ion hex |
|000016a0| 30 30 30 30 0d 6e 65 77 | 63 6f 6c 6f 72 20 68 65 |0000.new|color he|
|000016b0| 78 20 30 30 0d 0d 79 62 | 79 74 65 20 68 65 78 20 |x 00..yb|yte hex |
|000016c0| 30 30 0d 78 68 69 62 79 | 74 65 20 68 65 78 20 30 |00.xhiby|te hex 0|
|000016d0| 30 0d 78 6c 6f 62 79 74 | 65 20 68 65 78 20 30 30 |0.xlobyt|e hex 00|
|000016e0| 0d 0d 62 79 74 65 20 68 | 65 78 20 30 30 30 30 0d |..byte h|ex 0000.|
|000016f0| 0d 62 61 73 65 20 64 61 | 20 24 32 30 30 30 0d 78 |.base da| $2000.x|
|00001700| 6c 6f 6d 61 78 20 68 65 | 78 20 30 30 0d 78 68 69 |lomax he|x 00.xhi|
|00001710| 6d 61 78 20 68 65 78 20 | 30 30 0d 79 6d 61 78 20 |max hex |00.ymax |
|00001720| 68 65 78 20 30 30 0d 78 | 6c 6f 73 61 76 65 20 68 |hex 00.x|losave h|
|00001730| 65 78 20 30 30 0d 78 68 | 69 73 61 76 65 20 68 65 |ex 00.xh|isave he|
|00001740| 78 20 30 30 0d 72 73 6c | 74 20 68 65 78 20 30 30 |x 00.rsl|t hex 00|
|00001750| 0d 72 73 6c 74 68 69 20 | 68 65 78 20 30 30 0d 6e |.rslthi |hex 00.n|
|00001760| 6f 74 68 69 6e 67 20 68 | 65 78 20 30 30 0d 62 20 |othing h|ex 00.b |
|00001770| 68 65 78 20 30 30 30 30 | 30 30 0d 63 20 68 65 78 |hex 0000|00.c hex|
|00001780| 20 30 30 30 30 30 30 0d | 61 61 20 68 65 78 20 30 | 000000.|aa hex 0|
|00001790| 30 30 30 30 30 0d 6e 61 | 64 61 20 68 65 78 20 30 |00000.na|da hex 0|
|000017a0| 30 0d 78 70 20 68 65 78 | 20 30 30 30 30 0d 79 62 |0.xp hex| 0000.yb|
|000017b0| 20 68 65 78 20 30 30 0d | 78 62 20 68 65 78 20 30 | hex 00.|xb hex 0|
|000017c0| 30 30 30 0d 79 70 20 68 | 65 78 20 30 30 0d 64 6f |000.yp h|ex 00.do|
|000017d0| 6e 61 64 61 20 68 65 78 | 20 30 30 0d 6b 20 68 65 |nada hex| 00.k he|
|000017e0| 78 20 30 30 30 30 30 30 | 0d 6c 69 6e 65 66 6c 61 |x 000000|.linefla|
|000017f0| 67 20 68 65 78 20 30 30 | 0d                      |g hex 00|.       |
+--------+-------------------------+-------------------------+--------+--------+