/ Loadstar 15 / 015.d81 / allvarp.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 0d 2a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |**.*....|........|
|00000030| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000040| a0 a0 2a 0d 2a a0 a0 a0 | a0 a0 a0 76 61 72 69 61 |..*.*...|...varia|
|00000050| 62 6c 65 a0 64 69 73 70 | 6c 61 79 a0 a0 a0 a0 a0 |ble.disp|lay.....|
|00000060| a0 a0 a0 2a 0d 2a a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |...*.*..|........|
|00000070| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000080| a0 a0 a0 a0 2a 0d 2a a0 | a0 a0 77 72 69 74 74 65 |....*.*.|..writte|
|00000090| 6e a0 62 79 a0 61 6c 61 | 6e a0 67 61 72 64 6e 65 |n.by.ala|n.gardne|
|000000a0| 72 a0 a0 a0 a0 2a 0d 2a | a0 a0 a0 a0 a0 a0 a0 a0 |r....*.*|........|
|000000b0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000000c0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 61 69 64 65 64 a0 |......*.|*.aided.|
|000000d0| 61 6e 64 a0 65 62 69 74 | 65 64 a0 62 79 a0 6a 69 |and.ebit|ed.by.ji|
|000000e0| 6d 6d 79 a0 a0 a0 a0 2a | 0d 2a a0 a0 a0 a0 a0 a0 |mmy....*|.*......|
|000000f0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000100| a0 a0 a0 a0 a0 a0 a0 a0 | 2a 0d 2a a0 a0 a0 a0 a0 |........|*.*.....|
|00000110| 77 72 69 74 74 65 6e a0 | 3a a0 a0 30 33 2f 32 38 |written.|:..03/28|
|00000120| 2f 38 35 a0 a0 a0 a0 a0 | a0 2a 0d 2a a0 a0 a0 a0 |/85.....|.*.*....|
|00000130| 66 69 6e 69 73 68 65 64 | a0 3a a0 a0 30 37 2f 31 |finished|.:..07/1|
|00000140| 32 2f 38 35 a0 a0 a0 a0 | a0 a0 2a 0d 2a a0 a0 a0 |2/85....|..*.*...|
|00000150| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000160| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 2a 0d 2a 2a 2a |........|...*.***|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d 2a |********|*****..*|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000001b0| 2a 73 79 73 a0 34 39 36 | 36 34 a0 2d a0 64 69 73 |*sys.496|64.-.dis|
|000001c0| 70 6c 61 79 a0 74 68 65 | a0 a0 a0 a0 a0 a0 a0 2a |play.the|.......*|
|000001d0| 0d 2a a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 63 75 |.*......|......cu|
|000001e0| 72 72 65 6e 74 a0 76 61 | 6c 75 65 a0 a0 a0 a0 a0 |rrent.va|lue.....|
|000001f0| 2a 0d 2a a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 6f |*.*.....|.......o|
|00000200| 66 a0 61 6c 6c a0 76 61 | 72 69 61 62 6c 65 73 2e |f.all.va|riables.|
|00000210| a0 2a 0d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*.*****|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 0d a0 20 6f 72 | 67 a0 24 63 32 30 30 0d |***.. or|g.$c200.|
|00000240| 0d 63 68 6b 6f 75 74 20 | 3d 20 24 66 66 63 39 0d |.chkout |= $ffc9.|
|00000250| 63 68 72 6f 75 74 20 3d | 20 24 66 66 64 32 0d 74 |chrout =| $ffd2.t|
|00000260| 6f 66 61 63 20 3d 20 24 | 62 62 61 32 0d 6f 75 74 |ofac = $|bba2.out|
|00000270| 66 61 63 20 3d 20 24 62 | 64 64 37 0d 69 6e 74 70 |fac = $b|dd7.intp|
|00000280| 72 69 6e 74 20 3d 20 24 | 62 64 63 64 0d 73 76 20 |rint = $|bdcd.sv |
|00000290| 3d 20 31 36 33 0d 73 61 | 20 3d 20 32 35 32 0d 65 |= 163.sa| = 252.e|
|000002a0| 61 20 3d 20 32 35 34 0d | 63 68 6b 6e 65 78 74 20 |a = 254.|chknext |
|000002b0| 3d 20 32 34 37 0d 74 61 | 62 6c 65 20 3d 20 24 63 |= 247.ta|ble = $c|
|000002c0| 30 30 30 0d 64 69 6d 73 | 20 3d 20 24 63 31 30 30 |000.dims| = $c100|
|000002d0| 0d 20 6c 64 78 20 23 24 | 30 34 0d 20 6a 73 72 20 |. ldx #$|04. jsr |
|000002e0| 63 68 6b 6f 75 74 0d 20 | 6c 64 61 20 24 30 30 32 |chkout. |lda $002|
|000002f0| 64 0d 20 73 74 61 20 31 | 36 33 0d 20 73 74 61 20 |d. sta 1|63. sta |
|00000300| 6c 6f 76 61 72 0d 0d 20 | 6c 64 61 20 24 30 30 32 |lovar.. |lda $002|
|00000310| 65 0d 20 73 74 61 20 31 | 36 34 0d 20 73 74 61 20 |e. sta 1|64. sta |
|00000320| 68 69 76 61 72 0d 0d 20 | 6c 64 61 20 24 30 30 32 |hivar.. |lda $002|
|00000330| 66 0d 20 73 74 61 20 32 | 35 32 0d 20 73 74 61 20 |f. sta 2|52. sta |
|00000340| 6c 6f 61 72 61 79 0d 0d | 20 6c 64 61 20 24 30 30 |loaray..| lda $00|
|00000350| 33 30 0d 20 73 74 61 20 | 32 35 33 0d 20 73 74 61 |30. sta |253. sta|
|00000360| 20 68 69 61 72 61 79 0d | 0d 62 65 67 69 6e 0d 0d | hiaray.|.begin..|
|00000370| 20 6c 64 61 20 31 36 33 | 0d 20 73 74 61 20 6c 6f | lda 163|. sta lo|
|00000380| 73 61 76 65 0d 0d 20 6c | 64 61 20 31 36 34 0d 20 |save.. l|da 164. |
|00000390| 73 74 61 20 68 69 73 61 | 76 65 0d 0d 0d 2a 69 66 |sta hisa|ve...*if|
|000003a0| a0 68 69 73 61 76 65 a0 | 3e a0 68 69 61 72 61 79 |.hisave.|>.hiaray|
|000003b0| a0 74 68 65 6e a0 6a 6d | 70 a0 65 78 69 74 0d 20 |.then.jm|p.exit. |
|000003c0| 6c 64 61 20 68 69 73 61 | 76 65 0d 20 63 6d 70 20 |lda hisa|ve. cmp |
|000003d0| 68 69 61 72 61 79 0d 20 | 62 65 71 20 6c 62 6c 30 |hiaray. |beq lbl0|
|000003e0| 30 0d 20 62 63 63 20 6c | 62 6c 30 30 0d 20 6a 6d |0. bcc l|bl00. jm|
|000003f0| 70 20 65 78 69 74 0d 6c | 62 6c 30 30 0d 2a 69 66 |p exit.l|bl00.*if|
|00000400| a0 68 69 73 61 76 65 a0 | 3c a0 68 69 61 72 61 79 |.hisave.|<.hiaray|
|00000410| a0 74 68 65 6e a0 6a 6d | 70 a0 61 72 6f 75 6e 0d |.then.jm|p.aroun.|
|00000420| 20 6c 64 61 20 68 69 73 | 61 76 65 0d 20 63 6d 70 | lda his|ave. cmp|
|00000430| 20 68 69 61 72 61 79 0d | 20 62 63 73 20 6c 62 6c | hiaray.| bcs lbl|
|00000440| 30 31 0d 20 6a 6d 70 20 | 61 72 6f 75 6e 0d 6c 62 |01. jmp |aroun.lb|
|00000450| 6c 30 31 0d 2a 69 66 a0 | 6c 6f 73 61 76 65 a0 3e |l01.*if.|losave.>|
|00000460| 3d a0 6c 6f 61 72 61 79 | a0 74 68 65 6e a0 6a 6d |=.loaray|.then.jm|
|00000470| 70 a0 65 78 69 74 0d 20 | 6c 64 61 20 6c 6f 73 61 |p.exit. |lda losa|
|00000480| 76 65 0d 20 63 6d 70 20 | 6c 6f 61 72 61 79 0d 20 |ve. cmp |loaray. |
|00000490| 62 63 63 20 6c 62 6c 30 | 32 0d 20 6a 6d 70 20 65 |bcc lbl0|2. jmp e|
|000004a0| 78 69 74 0d 0d 6c 62 6c | 30 32 0d 61 72 6f 75 6e |xit..lbl|02.aroun|
|000004b0| 0d 0d 20 6c 64 79 20 23 | 24 30 30 0d 20 6c 64 61 |.. ldy #|$00. lda|
|000004c0| 20 28 73 76 29 2c 79 0d | 20 73 74 61 20 66 69 72 | (sv),y.| sta fir|
|000004d0| 73 74 0d 20 69 6e 79 0d | 0d 20 6c 64 61 20 28 73 |st. iny.|. lda (s|
|000004e0| 76 29 2c 79 0d 20 73 74 | 61 20 73 65 63 6f 6e 64 |v),y. st|a second|
|000004f0| 0d 0d 0d 2a 69 66 a0 73 | 65 63 6f 6e 64 a0 3c a0 |...*if.s|econd.<.|
|00000500| 31 32 38 a0 74 68 65 6e | a0 6a 6d 70 a0 72 65 67 |128.then|.jmp.reg|
|00000510| 75 6c 61 72 0d 20 6c 64 | 61 20 73 65 63 6f 6e 64 |ular. ld|a second|
|00000520| 0d 20 63 6d 70 20 23 31 | 32 38 0d 20 62 63 73 20 |. cmp #1|28. bcs |
|00000530| 6c 62 6c 30 33 0d 20 6a | 6d 70 20 72 65 67 75 6c |lbl03. j|mp regul|
|00000540| 61 72 0d 6c 62 6c 30 33 | 0d 2a 69 66 a0 66 69 72 |ar.lbl03|.*if.fir|
|00000550| 73 74 a0 3e a0 31 32 38 | a0 74 68 65 6e a0 6a 6d |st.>.128|.then.jm|
|00000560| 70 a0 69 6e 74 65 67 65 | 72 0d 20 6c 64 61 20 66 |p.intege|r. lda f|
|00000570| 69 72 73 74 0d 20 63 6d | 70 20 23 31 32 38 0d 20 |irst. cm|p #128. |
|00000580| 62 65 71 20 6c 62 6c 30 | 34 0d 20 62 63 63 20 6c |beq lbl0|4. bcc l|
|00000590| 62 6c 30 34 0d 20 6a 6d | 70 20 69 6e 74 65 67 65 |bl04. jm|p intege|
|000005a0| 72 0d 6c 62 6c 30 34 0d | 2a 69 66 a0 66 69 72 73 |r.lbl04.|*if.firs|
|000005b0| 74 a0 3c a0 31 32 38 a0 | 74 68 65 6e a0 6a 6d 70 |t.<.128.|then.jmp|
|000005c0| a0 73 74 72 69 6e 67 0d | 20 6c 64 61 20 66 69 72 |.string.| lda fir|
|000005d0| 73 74 0d 20 63 6d 70 20 | 23 31 32 38 0d 20 62 63 |st. cmp |#128. bc|
|000005e0| 73 20 6c 62 6c 30 35 0d | 20 6a 6d 70 20 73 74 72 |s lbl05.| jmp str|
|000005f0| 69 6e 67 0d 6c 62 6c 30 | 35 0d 0d 72 65 67 75 6c |ing.lbl0|5..regul|
|00000600| 61 72 0d 20 6c 64 61 20 | 66 69 72 73 74 0d 20 6a |ar. lda |first. j|
|00000610| 73 72 20 63 68 72 6f 75 | 74 0d 0d 20 6c 64 61 20 |sr chrou|t.. lda |
|00000620| 73 65 63 6f 6e 64 0d 20 | 6a 73 72 20 63 68 72 6f |second. |jsr chro|
|00000630| 75 74 0d 0d 20 6c 64 61 | 20 23 36 31 0d 20 6a 73 |ut.. lda| #61. js|
|00000640| 72 20 63 68 72 6f 75 74 | 0d 2a 6c 65 74 a0 74 79 |r chrout|.*let.ty|
|00000650| a0 3d a0 33 0d 20 6c 64 | 61 20 23 33 0d 20 73 74 |.=.3. ld|a #3. st|
|00000660| 61 20 74 79 0d 20 6a 6d | 70 20 73 74 61 72 74 0d |a ty. jm|p start.|
|00000670| 69 6e 74 65 67 65 72 0d | 2a 6c 65 74 a0 66 69 72 |integer.|*let.fir|
|00000680| 73 74 a0 3d a0 66 69 72 | 73 74 a0 2d a0 31 32 38 |st.=.fir|st.-.128|
|00000690| 0d 20 6c 64 61 20 66 69 | 72 73 74 0d 20 73 65 63 |. lda fi|rst. sec|
|000006a0| 0d 20 73 62 63 20 23 31 | 32 38 0d 20 73 74 61 20 |. sbc #1|28. sta |
|000006b0| 66 69 72 73 74 0d 2a 6c | 65 74 a0 73 65 63 6f 6e |first.*l|et.secon|
|000006c0| 64 a0 3d a0 73 65 63 6f | 6e 64 a0 2d a0 31 32 38 |d.=.seco|nd.-.128|
|000006d0| 0d 20 6c 64 61 20 73 65 | 63 6f 6e 64 0d 20 73 65 |. lda se|cond. se|
|000006e0| 63 0d 20 73 62 63 20 23 | 31 32 38 0d 20 73 74 61 |c. sbc #|128. sta|
|000006f0| 20 73 65 63 6f 6e 64 0d | 0d 20 6c 64 61 20 66 69 | second.|. lda fi|
|00000700| 72 73 74 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |rst. jsr| chrout.|
|00000710| 0d 20 6c 64 61 20 73 65 | 63 6f 6e 64 0d 20 6a 73 |. lda se|cond. js|
|00000720| 72 20 63 68 72 6f 75 74 | 0d 0d 20 6c 64 61 20 23 |r chrout|.. lda #|
|00000730| 33 37 0d 20 6a 73 72 20 | 63 68 72 6f 75 74 0d 0d |37. jsr |chrout..|
|00000740| 20 6c 64 61 20 23 36 31 | 0d 20 6a 73 72 20 63 68 | lda #61|. jsr ch|
|00000750| 72 6f 75 74 0d 2a 6c 65 | 74 a0 74 79 a0 3d a0 31 |rout.*le|t.ty.=.1|
|00000760| 0d 20 6c 64 61 20 23 31 | 0d 20 73 74 61 20 74 79 |. lda #1|. sta ty|
|00000770| 0d 20 6a 6d 70 20 73 74 | 61 72 74 0d 0d 73 74 72 |. jmp st|art..str|
|00000780| 69 6e 67 0d 0d 2a 6c 65 | 74 a0 73 65 63 6f 6e 64 |ing..*le|t.second|
|00000790| a0 3d a0 73 65 63 6f 6e | 64 a0 2d a0 31 32 38 0d |.=.secon|d.-.128.|
|000007a0| 20 6c 64 61 20 73 65 63 | 6f 6e 64 0d 20 73 65 63 | lda sec|ond. sec|
|000007b0| 0d 20 73 62 63 20 23 31 | 32 38 0d 20 73 74 61 20 |. sbc #1|28. sta |
|000007c0| 73 65 63 6f 6e 64 0d 0d | 20 6c 64 61 20 66 69 72 |second..| lda fir|
|000007d0| 73 74 0d 20 6a 73 72 20 | 63 68 72 6f 75 74 0d 0d |st. jsr |chrout..|
|000007e0| 20 6c 64 61 20 73 65 63 | 6f 6e 64 0d 20 6a 73 72 | lda sec|ond. jsr|
|000007f0| 20 63 68 72 6f 75 74 0d | 0d 20 6c 64 61 20 23 33 | chrout.|. lda #3|
|00000800| 36 0d 20 6a 73 72 20 63 | 68 72 6f 75 74 0d 0d 20 |6. jsr c|hrout.. |
|00000810| 6c 64 61 20 23 36 31 0d | 20 6a 73 72 20 63 68 72 |lda #61.| jsr chr|
|00000820| 6f 75 74 0d 0d 20 6c 64 | 61 20 23 33 34 0d 20 6a |out.. ld|a #34. j|
|00000830| 73 72 20 63 68 72 6f 75 | 74 0d 2a 6c 65 74 a0 74 |sr chrou|t.*let.t|
|00000840| 79 a0 3d a0 32 0d 20 6c | 64 61 20 23 32 0d 20 73 |y.=.2. l|da #2. s|
|00000850| 74 61 20 74 79 0d 0d 20 | 6a 6d 70 20 73 74 61 72 |ta ty.. |jmp star|
|00000860| 74 0d 73 74 61 72 74 0d | 0d 20 6a 73 72 20 73 68 |t.start.|. jsr sh|
|00000870| 6f 75 6c 64 69 77 61 69 | 74 0d 20 6c 64 61 20 65 |ouldiwai|t. lda e|
|00000880| 78 69 74 66 6c 61 67 0d | 20 62 65 71 20 61 72 6f |xitflag.| beq aro|
|00000890| 75 6e 64 31 0d 20 6a 6d | 70 20 65 78 78 69 74 0d |und1. jm|p exxit.|
|000008a0| 61 72 6f 75 6e 64 31 0d | 2a 69 66 a0 74 79 a0 3d |around1.|*if.ty.=|
|000008b0| a0 31 a0 74 68 65 6e a0 | 6a 73 72 a0 64 6f 69 6e |.1.then.|jsr.doin|
|000008c0| 74 65 72 0d 0d 20 6c 64 | 61 20 74 79 0d 20 63 6d |ter.. ld|a ty. cm|
|000008d0| 70 20 23 31 0d 20 62 6e | 65 20 6c 62 6c 30 36 0d |p #1. bn|e lbl06.|
|000008e0| 20 6a 73 72 20 64 6f 69 | 6e 74 65 72 0d 6c 62 6c | jsr doi|nter.lbl|
|000008f0| 30 36 0d 2a 69 66 a0 74 | 79 a0 3d a0 32 a0 74 68 |06.*if.t|y.=.2.th|
|00000900| 65 6e a0 6a 73 72 a0 64 | 6f 73 74 72 69 6e 67 0d |en.jsr.d|ostring.|
|00000910| 20 6c 64 61 20 74 79 0d | 20 63 6d 70 20 23 32 0d | lda ty.| cmp #2.|
|00000920| 20 62 6e 65 20 6c 62 6c | 30 37 0d 20 6a 73 72 20 | bne lbl|07. jsr |
|00000930| 64 6f 73 74 72 69 6e 67 | 0d 6c 62 6c 30 37 0d 2a |dostring|.lbl07.*|
|00000940| 69 66 a0 74 79 a0 3d a0 | 33 a0 74 68 65 6e a0 6a |if.ty.=.|3.then.j|
|00000950| 73 72 a0 64 6f 72 65 61 | 6c 73 0d 20 6c 64 61 20 |sr.dorea|ls. lda |
|00000960| 74 79 0d 20 63 6d 70 20 | 23 33 0d 20 62 6e 65 20 |ty. cmp |#3. bne |
|00000970| 6c 62 6c 30 38 0d 20 6a | 73 72 20 64 6f 72 65 61 |lbl08. j|sr dorea|
|00000980| 6c 73 0d 6c 62 6c 30 38 | 0d 20 6c 64 61 20 23 31 |ls.lbl08|. lda #1|
|00000990| 33 0d 20 6a 73 72 20 63 | 68 72 6f 75 74 0d 0d 20 |3. jsr c|hrout.. |
|000009a0| 6c 64 61 20 23 30 0d 20 | 73 74 61 20 74 79 0d 0d |lda #0. |sta ty..|
|000009b0| 20 6c 64 61 20 31 36 33 | 0d 20 6c 64 79 20 31 36 | lda 163|. ldy 16|
|000009c0| 34 0d 20 63 6c 63 0d 0d | 20 61 64 63 20 23 24 30 |4. clc..| adc #$0|
|000009d0| 37 0d 20 62 63 63 20 61 | 64 64 64 6f 77 6e 0d 0d |7. bcc a|dddown..|
|000009e0| 20 69 6e 79 0d 0d 61 64 | 64 64 6f 77 6e 0d 0d 20 | iny..ad|ddown.. |
|000009f0| 73 74 61 20 31 36 33 0d | 20 73 74 79 20 31 36 34 |sta 163.| sty 164|
|00000a00| 0d 20 6a 6d 70 20 62 65 | 67 69 6e 0d 0d 64 6f 69 |. jmp be|gin..doi|
|00000a10| 6e 74 65 72 0d 20 6c 64 | 79 20 23 24 30 32 0d 20 |nter. ld|y #$02. |
|00000a20| 6c 64 61 20 28 73 76 29 | 2c 79 0d 20 73 74 61 20 |lda (sv)|,y. sta |
|00000a30| 32 35 31 0d 0d 20 69 6e | 79 0d 20 6c 64 61 20 28 |251.. in|y. lda (|
|00000a40| 73 76 29 2c 79 0d 20 73 | 74 61 20 32 35 30 0d 0d |sv),y. s|ta 250..|
|00000a50| 20 6c 64 61 20 32 35 31 | 0d 20 73 74 61 20 63 68 | lda 251|. sta ch|
|00000a60| 65 63 6b 0d 0d 2a 74 68 | 69 73 a0 63 6f 64 65 a0 |eck..*th|is.code.|
|00000a70| 69 73 a0 66 6f 72 a0 6e | 65 67 61 74 69 76 65 a0 |is.for.n|egative.|
|00000a80| 69 6e 74 73 0d 0d 2a 69 | 66 a0 63 68 65 63 6b a0 |ints..*i|f.check.|
|00000a90| 3c a0 31 32 38 a0 74 68 | 65 6e a0 6a 6d 70 a0 67 |<.128.th|en.jmp.g|
|00000aa0| 69 74 64 6f 77 6e 0d 20 | 6c 64 61 20 63 68 65 63 |itdown. |lda chec|
|00000ab0| 6b 0d 20 63 6d 70 20 23 | 31 32 38 0d 20 62 63 73 |k. cmp #|128. bcs|
|00000ac0| 20 6c 62 6c 30 39 0d 20 | 6a 6d 70 20 67 69 74 64 | lbl09. |jmp gitd|
|00000ad0| 6f 77 6e 0d 6c 62 6c 30 | 39 0d 0d 20 6c 64 61 20 |own.lbl0|9.. lda |
|00000ae0| 23 34 35 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |#45. jsr| chrout.|
|00000af0| 0d 20 6c 64 61 20 23 24 | 66 66 0d 20 65 6f 72 20 |. lda #$|ff. eor |
|00000b00| 32 35 30 0d 20 73 74 61 | 20 32 35 30 0d 0d 20 6c |250. sta| 250.. l|
|00000b10| 64 61 20 23 24 66 66 0d | 20 65 6f 72 20 32 35 31 |da #$ff.| eor 251|
|00000b20| 0d 20 73 74 61 20 32 35 | 31 0d 0d 20 6c 64 61 20 |. sta 25|1.. lda |
|00000b30| 32 35 30 0d 20 63 6c 63 | 0d 20 61 64 63 20 23 30 |250. clc|. adc #0|
|00000b40| 31 0d 20 73 74 61 20 32 | 35 30 0d 0d 20 62 63 63 |1. sta 2|50.. bcc|
|00000b50| 20 67 69 74 64 6f 77 6e | 0d 0d 20 69 6e 63 20 32 | gitdown|.. inc 2|
|00000b60| 35 31 0d 0d 2a 65 6e 64 | a0 6f 66 a0 6e 65 67 61 |51..*end|.of.nega|
|00000b70| 74 69 76 65 a0 69 6e 74 | 65 67 65 72 73 0d 0d 67 |tive.int|egers..g|
|00000b80| 69 74 64 6f 77 6e 0d 0d | 20 6c 64 61 20 32 35 31 |itdown..| lda 251|
|00000b90| 0d 20 6c 64 78 20 32 35 | 30 0d 20 6a 73 72 20 69 |. ldx 25|0. jsr i|
|00000ba0| 6e 74 70 72 69 6e 74 0d | 0d 20 72 74 73 0d 64 6f |ntprint.|. rts.do|
|00000bb0| 73 74 72 69 6e 67 0d 0d | 20 6c 64 79 20 23 24 30 |string..| ldy #$0|
|00000bc0| 32 0d 20 6c 64 61 20 28 | 73 76 29 2c 79 0d 20 73 |2. lda (|sv),y. s|
|00000bd0| 74 61 20 6c 65 6e 0d 20 | 69 6e 79 0d 20 6c 64 61 |ta len. |iny. lda|
|00000be0| 20 28 73 76 29 2c 79 0d | 20 73 74 61 20 6c 6f 62 | (sv),y.| sta lob|
|00000bf0| 79 74 65 0d 20 69 6e 79 | 0d 20 6c 64 61 20 28 73 |yte. iny|. lda (s|
|00000c00| 76 29 2c 79 0d 20 73 74 | 61 20 68 69 62 79 74 65 |v),y. st|a hibyte|
|00000c10| 0d 20 6c 64 61 20 6c 6f | 62 79 74 65 0d 20 73 74 |. lda lo|byte. st|
|00000c20| 61 20 32 35 30 0d 20 6c | 64 61 20 68 69 62 79 74 |a 250. l|da hibyt|
|00000c30| 65 0d 20 73 74 61 20 32 | 35 31 0d 20 6c 64 79 20 |e. sta 2|51. ldy |
|00000c40| 23 24 30 30 0d 0d 64 6f | 61 67 69 6e 0d 0d 20 6c |#$00..do|agin.. l|
|00000c50| 64 61 20 28 32 35 30 29 | 2c 79 0d 20 73 74 61 20 |da (250)|,y. sta |
|00000c60| 63 68 61 72 0d 20 6c 64 | 61 20 23 32 35 35 0d 20 |char. ld|a #255. |
|00000c70| 73 74 61 20 32 31 32 0d | 20 6c 64 61 20 63 68 61 |sta 212.| lda cha|
|00000c80| 72 0d 20 6a 73 72 20 63 | 68 72 6f 75 74 0d 20 69 |r. jsr c|hrout. i|
|00000c90| 6e 79 0d 20 63 70 79 20 | 6c 65 6e 0d 20 62 6e 65 |ny. cpy |len. bne|
|00000ca0| 20 64 6f 61 67 69 6e 0d | 20 6c 64 61 20 23 33 34 | doagin.| lda #34|
|00000cb0| 0d 20 6a 73 72 20 63 68 | 72 6f 75 74 0d 20 72 74 |. jsr ch|rout. rt|
|00000cc0| 73 0d 0d 64 6f 72 65 61 | 6c 73 0d 20 6c 64 61 20 |s..dorea|ls. lda |
|00000cd0| 73 76 0d 20 6c 64 79 20 | 73 76 2b 31 0d 20 63 6c |sv. ldy |sv+1. cl|
|00000ce0| 63 0d 20 61 64 63 20 23 | 24 30 32 0d 20 62 63 63 |c. adc #|$02. bcc|
|00000cf0| 20 64 6f 73 6e 61 67 61 | 69 6e 0d 20 69 6e 79 0d | dosnaga|in. iny.|
|00000d00| 64 6f 73 6e 61 67 61 69 | 6e 0d 20 6a 73 72 20 74 |dosnagai|n. jsr t|
|00000d10| 6f 66 61 63 0d 20 6c 64 | 79 20 23 30 31 0d 20 6a |ofac. ld|y #01. j|
|00000d20| 73 72 20 6f 75 74 66 61 | 63 0d 20 72 74 73 0d 0d |sr outfa|c. rts..|
|00000d30| 65 78 69 74 0d 0d 20 6c | 64 61 20 6c 6f 76 61 72 |exit.. l|da lovar|
|00000d40| 0d 20 73 74 61 20 24 30 | 30 32 64 0d 20 6c 64 61 |. sta $0|02d. lda|
|00000d50| 20 68 69 76 61 72 0d 20 | 73 74 61 20 24 30 30 32 | hivar. |sta $002|
|00000d60| 65 0d 2a 63 6f 6e 74 69 | 6e 75 65 a0 6f 6e a0 77 |e.*conti|nue.on.w|
|00000d70| 69 74 68 a0 61 72 72 61 | 79 73 0d 20 6c 64 61 20 |ith.arra|ys. lda |
|00000d80| 24 30 30 33 31 0d 20 73 | 74 61 20 32 35 34 0d 20 |$0031. s|ta 254. |
|00000d90| 73 74 61 20 65 6e 64 6c | 6f 0d 0d 20 6c 64 61 20 |sta endl|o.. lda |
|00000da0| 24 30 30 33 32 0d 20 73 | 74 61 20 32 35 35 0d 20 |$0032. s|ta 255. |
|00000db0| 73 74 61 20 65 6e 64 68 | 69 0d 0d 20 6c 64 61 20 |sta endh|i.. lda |
|00000dc0| 32 35 34 0d 20 6c 64 79 | 20 32 35 35 0d 20 63 6c |254. ldy| 255. cl|
|00000dd0| 63 0d 20 73 62 63 20 23 | 24 30 34 0d 20 62 63 73 |c. sbc #|$04. bcs|
|00000de0| 20 66 69 72 73 74 64 6f | 77 6e 0d 20 64 65 79 0d | firstdo|wn. dey.|
|00000df0| 66 69 72 73 74 64 6f 77 | 6e 0d 20 73 74 61 20 32 |firstdow|n. sta 2|
|00000e00| 35 34 0d 20 73 74 79 20 | 32 35 35 0d 20 73 74 61 |54. sty |255. sta|
|00000e10| 20 65 6e 64 6c 6f 0d 20 | 73 74 79 20 65 6e 64 68 | endlo. |sty endh|
|00000e20| 69 0d 0d 62 65 67 69 6e | 61 72 72 61 79 0d 2a 6c |i..begin|array.*l|
|00000e30| 65 74 a0 74 79 a0 3d a0 | 30 0d 20 6a 73 72 20 73 |et.ty.=.|0. jsr s|
|00000e40| 68 6f 75 6c 64 69 77 61 | 69 74 0d 20 6c 64 61 20 |houldiwa|it. lda |
|00000e50| 65 78 69 74 66 6c 61 67 | 0d 20 62 65 71 20 61 72 |exitflag|. beq ar|
|00000e60| 6f 75 6e 64 32 0d 20 6a | 6d 70 20 65 78 78 69 74 |ound2. j|mp exxit|
|00000e70| 0d 61 72 6f 75 6e 64 32 | 0d 20 6c 64 61 20 23 30 |.around2|. lda #0|
|00000e80| 0d 20 73 74 61 20 74 79 | 0d 0d 20 6c 64 61 20 32 |. sta ty|.. lda 2|
|00000e90| 35 32 0d 20 73 74 61 20 | 6c 6f 73 61 76 65 0d 20 |52. sta |losave. |
|00000ea0| 6c 64 61 20 32 35 33 0d | 20 73 74 61 20 68 69 73 |lda 253.| sta his|
|00000eb0| 61 76 65 0d 0d 2a 69 66 | a0 68 69 73 61 76 65 a0 |ave..*if|.hisave.|
|00000ec0| 3e a0 65 6e 64 68 69 a0 | 74 68 65 6e a0 6a 6d 70 |>.endhi.|then.jmp|
|00000ed0| a0 65 78 78 69 74 0d 20 | 6c 64 61 20 68 69 73 61 |.exxit. |lda hisa|
|00000ee0| 76 65 0d 20 63 6d 70 20 | 65 6e 64 68 69 0d 20 62 |ve. cmp |endhi. b|
|00000ef0| 65 71 20 6c 62 6c 30 61 | 0d 20 62 63 63 20 6c 62 |eq lbl0a|. bcc lb|
|00000f00| 6c 30 61 0d 20 6a 6d 70 | 20 65 78 78 69 74 0d 6c |l0a. jmp| exxit.l|
|00000f10| 62 6c 30 61 0d 2a 69 66 | a0 68 69 73 61 76 65 a0 |bl0a.*if|.hisave.|
|00000f20| 3c a0 65 6e 64 68 69 a0 | 74 68 65 6e a0 6a 6d 70 |<.endhi.|then.jmp|
|00000f30| a0 61 72 6f 75 6e 64 0d | 20 6c 64 61 20 68 69 73 |.around.| lda his|
|00000f40| 61 76 65 0d 20 63 6d 70 | 20 65 6e 64 68 69 0d 20 |ave. cmp| endhi. |
|00000f50| 62 63 73 20 6c 62 6c 30 | 62 0d 20 6a 6d 70 20 61 |bcs lbl0|b. jmp a|
|00000f60| 72 6f 75 6e 64 0d 6c 62 | 6c 30 62 0d 2a 69 66 a0 |round.lb|l0b.*if.|
|00000f70| 6c 6f 73 61 76 65 a0 3e | 3d a0 65 6e 64 6c 6f a0 |losave.>|=.endlo.|
|00000f80| 74 68 65 6e a0 6a 6d 70 | a0 65 78 78 69 74 0d 20 |then.jmp|.exxit. |
|00000f90| 6c 64 61 20 6c 6f 73 61 | 76 65 0d 20 63 6d 70 20 |lda losa|ve. cmp |
|00000fa0| 65 6e 64 6c 6f 0d 20 62 | 63 63 20 6c 62 6c 30 63 |endlo. b|cc lbl0c|
|00000fb0| 0d 20 6a 6d 70 20 65 78 | 78 69 74 0d 6c 62 6c 30 |. jmp ex|xit.lbl0|
|00000fc0| 63 0d 61 72 6f 75 6e 64 | 0d 0d 20 6a 73 72 20 63 |c.around|.. jsr c|
|00000fd0| 6c 65 61 72 74 61 62 6c | 65 73 0d 20 6c 64 79 20 |leartabl|es. ldy |
|00000fe0| 23 24 30 30 0d 20 6c 64 | 61 20 28 73 61 29 2c 79 |#$00. ld|a (sa),y|
|00000ff0| 0d 20 73 74 61 20 66 69 | 72 73 74 0d 20 69 6e 79 |. sta fi|rst. iny|
|00001000| 0d 20 6c 64 61 20 28 73 | 61 29 2c 79 0d 20 73 74 |. lda (s|a),y. st|
|00001010| 61 20 73 65 63 6f 6e 64 | 0d 2a 69 66 a0 73 65 63 |a second|.*if.sec|
|00001020| 6f 6e 64 a0 3c a0 31 32 | 38 a0 74 68 65 6e a0 6a |ond.<.12|8.then.j|
|00001030| 6d 70 a0 72 65 67 61 72 | 72 61 79 0d 20 6c 64 61 |mp.regar|ray. lda|
|00001040| 20 73 65 63 6f 6e 64 0d | 20 63 6d 70 20 23 31 32 | second.| cmp #12|
|00001050| 38 0d 20 62 63 73 20 6c | 62 6c 30 64 0d 20 6a 6d |8. bcs l|bl0d. jm|
|00001060| 70 20 72 65 67 61 72 72 | 61 79 0d 6c 62 6c 30 64 |p regarr|ay.lbl0d|
|00001070| 0d 2a 69 66 a0 66 69 72 | 73 74 a0 3e a0 31 32 38 |.*if.fir|st.>.128|
|00001080| a0 74 68 65 6e a0 6a 6d | 70 a0 69 6e 74 61 72 72 |.then.jm|p.intarr|
|00001090| 61 79 0d 20 6c 64 61 20 | 66 69 72 73 74 0d 20 63 |ay. lda |first. c|
|000010a0| 6d 70 20 23 31 32 38 0d | 20 62 65 71 20 6c 62 6c |mp #128.| beq lbl|
|000010b0| 30 65 0d 20 62 63 63 20 | 6c 62 6c 30 65 0d 20 6a |0e. bcc |lbl0e. j|
|000010c0| 6d 70 20 69 6e 74 61 72 | 72 61 79 0d 6c 62 6c 30 |mp intar|ray.lbl0|
|000010d0| 65 0d 2a 69 66 a0 66 69 | 72 73 74 a0 3c a0 31 32 |e.*if.fi|rst.<.12|
|000010e0| 38 a0 74 68 65 6e a0 6a | 6d 70 a0 73 74 72 61 72 |8.then.j|mp.strar|
|000010f0| 72 61 79 0d 20 6c 64 61 | 20 66 69 72 73 74 0d 20 |ray. lda| first. |
|00001100| 63 6d 70 20 23 31 32 38 | 0d 20 62 63 73 20 6c 62 |cmp #128|. bcs lb|
|00001110| 6c 30 66 0d 20 6a 6d 70 | 20 73 74 72 61 72 72 61 |l0f. jmp| strarra|
|00001120| 79 0d 6c 62 6c 30 66 0d | 72 65 67 61 72 72 61 79 |y.lbl0f.|regarray|
|00001130| 0d 2a 6c 65 74 a0 74 79 | a0 3d a0 33 0d 20 6c 64 |.*let.ty|.=.3. ld|
|00001140| 61 20 23 33 0d 20 73 74 | 61 20 74 79 0d 20 6a 6d |a #3. st|a ty. jm|
|00001150| 70 20 6a 75 6d 70 74 6f | 69 74 0d 69 6e 74 61 72 |p jumpto|it.intar|
|00001160| 72 61 79 0d 2a 6c 65 74 | a0 66 69 72 73 74 a0 3d |ray.*let|.first.=|
|00001170| a0 66 69 72 73 74 a0 2d | a0 31 32 38 0d 20 6c 64 |.first.-|.128. ld|
|00001180| 61 20 66 69 72 73 74 0d | 20 73 65 63 0d 20 73 62 |a first.| sec. sb|
|00001190| 63 20 23 31 32 38 0d 20 | 73 74 61 20 66 69 72 73 |c #128. |sta firs|
|000011a0| 74 0d 2a 6c 65 74 a0 73 | 65 63 6f 6e 64 a0 3d a0 |t.*let.s|econd.=.|
|000011b0| 73 65 63 6f 6e 64 a0 2d | a0 31 32 38 0d 20 6c 64 |second.-|.128. ld|
|000011c0| 61 20 73 65 63 6f 6e 64 | 0d 20 73 65 63 0d 20 73 |a second|. sec. s|
|000011d0| 62 63 20 23 31 32 38 0d | 20 73 74 61 20 73 65 63 |bc #128.| sta sec|
|000011e0| 6f 6e 64 0d 2a 6c 65 74 | a0 74 79 a0 3d a0 31 0d |ond.*let|.ty.=.1.|
|000011f0| 20 6c 64 61 20 23 31 0d | 20 73 74 61 20 74 79 0d | lda #1.| sta ty.|
|00001200| 20 6a 6d 70 20 6a 75 6d | 70 74 6f 69 74 0d 0d 73 | jmp jum|ptoit..s|
|00001210| 74 72 61 72 72 61 79 0d | 2a 6c 65 74 a0 73 65 63 |trarray.|*let.sec|
|00001220| 6f 6e 64 a0 3d a0 73 65 | 63 6f 6e 64 a0 2d a0 31 |ond.=.se|cond.-.1|
|00001230| 32 38 0d 20 6c 64 61 20 | 73 65 63 6f 6e 64 0d 20 |28. lda |second. |
|00001240| 73 65 63 0d 20 73 62 63 | 20 23 31 32 38 0d 20 73 |sec. sbc| #128. s|
|00001250| 74 61 20 73 65 63 6f 6e | 64 0d 2a 6c 65 74 a0 74 |ta secon|d.*let.t|
|00001260| 79 a0 3d a0 32 0d 20 6c | 64 61 20 23 32 0d 20 73 |y.=.2. l|da #2. s|
|00001270| 74 61 20 74 79 0d 20 6a | 6d 70 20 6a 75 6d 70 74 |ta ty. j|mp jumpt|
|00001280| 6f 69 74 0d 6a 75 6d 70 | 74 6f 69 74 0d 20 6c 64 |oit.jump|toit. ld|
|00001290| 79 20 23 24 30 32 0d 20 | 6c 64 61 20 28 73 61 29 |y #$02. |lda (sa)|
|000012a0| 2c 79 0d 20 73 74 61 20 | 6c 6f 6f 66 66 0d 20 69 |,y. sta |looff. i|
|000012b0| 6e 79 0d 20 6c 64 61 20 | 28 73 61 29 2c 79 0d 20 |ny. lda |(sa),y. |
|000012c0| 73 74 61 20 68 69 6f 66 | 66 0d 20 6c 64 61 20 32 |sta hiof|f. lda 2|
|000012d0| 35 32 0d 20 6c 64 79 20 | 32 35 33 0d 20 63 6c 63 |52. ldy |253. clc|
|000012e0| 0d 20 61 64 63 20 6c 6f | 6f 66 66 0d 20 62 63 63 |. adc lo|off. bcc|
|000012f0| 20 62 72 61 63 68 6f 66 | 66 0d 20 69 6e 79 0d 62 | brachof|f. iny.b|
|00001300| 72 61 63 68 6f 66 66 0d | 20 73 74 61 20 32 34 37 |rachoff.| sta 247|
|00001310| 0d 20 73 74 79 20 32 34 | 38 0d 20 6c 64 61 20 32 |. sty 24|8. lda 2|
|00001320| 34 38 0d 20 63 6c 63 0d | 20 61 64 63 20 68 69 6f |48. clc.| adc hio|
|00001330| 66 66 0d 20 73 74 61 20 | 32 34 38 0d 20 6c 64 79 |ff. sta |248. ldy|
|00001340| 20 23 30 34 0d 20 6c 64 | 61 20 28 73 61 29 2c 79 | #04. ld|a (sa),y|
|00001350| 0d 20 73 74 61 20 6e 75 | 6d 64 69 6d 73 0d 20 6c |. sta nu|mdims. l|
|00001360| 64 61 20 6e 75 6d 64 69 | 6d 73 0d 20 61 73 6c 0d |da numdi|ms. asl.|
|00001370| 20 73 74 61 20 61 63 74 | 75 61 6c 73 74 75 66 66 | sta act|ualstuff|
|00001380| 0d 20 6c 64 61 20 32 35 | 32 0d 20 6c 64 79 20 32 |. lda 25|2. ldy 2|
|00001390| 35 33 0d 20 63 6c 63 0d | 20 61 64 63 20 23 24 30 |53. clc.| adc #$0|
|000013a0| 35 0d 20 62 63 63 20 63 | 61 72 79 63 6c 65 61 72 |5. bcc c|aryclear|
|000013b0| 0d 20 69 6e 79 0d 63 61 | 72 79 63 6c 65 61 72 0d |. iny.ca|ryclear.|
|000013c0| 20 73 74 61 20 32 35 32 | 0d 20 73 74 79 20 32 35 | sta 252|. sty 25|
|000013d0| 33 0d 2a 66 6f 72 a0 63 | 6f 75 6e 74 a0 3d a0 30 |3.*for.c|ount.=.0|
|000013e0| a0 74 6f a0 61 63 74 75 | 61 6c 73 74 75 66 66 0d |.to.actu|alstuff.|
|000013f0| 20 6c 64 61 20 23 30 0d | 20 73 74 61 20 63 6f 75 | lda #0.| sta cou|
|00001400| 6e 74 0d 6c 62 6c 31 30 | 0d 20 6c 64 61 20 61 63 |nt.lbl10|. lda ac|
|00001410| 74 75 61 6c 73 74 75 66 | 66 0d 20 63 6d 70 20 63 |tualstuf|f. cmp c|
|00001420| 6f 75 6e 74 0d 20 62 63 | 73 20 2a 2b 35 0d 20 6a |ount. bc|s *+5. j|
|00001430| 6d 70 20 6c 62 6c 31 31 | 0d 20 6c 64 79 20 63 6f |mp lbl11|. ldy co|
|00001440| 75 6e 74 0d 20 6c 64 61 | 20 28 73 61 29 2c 79 0d |unt. lda| (sa),y.|
|00001450| 20 73 74 61 20 74 61 62 | 6c 65 2c 79 0d 2a 6e 65 | sta tab|le,y.*ne|
|00001460| 78 74 a0 63 6f 75 6e 74 | 0d 20 69 6e 63 20 63 6f |xt.count|. inc co|
|00001470| 75 6e 74 0d 20 6a 6d 70 | 20 6c 62 6c 31 30 0d 6c |unt. jmp| lbl10.l|
|00001480| 62 6c 31 31 0d 20 6c 64 | 61 20 32 35 32 0d 20 6c |bl11. ld|a 252. l|
|00001490| 64 79 20 32 35 33 0d 20 | 63 6c 63 0d 20 61 64 63 |dy 253. |clc. adc|
|000014a0| 20 61 63 74 75 61 6c 73 | 74 75 66 66 0d 20 62 63 | actuals|tuff. bc|
|000014b0| 63 20 63 61 72 79 63 6c | 65 61 72 69 69 0d 20 69 |c carycl|earii. i|
|000014c0| 6e 79 0d 63 61 72 79 63 | 6c 65 61 72 69 69 0d 20 |ny.caryc|learii. |
|000014d0| 73 74 61 20 32 35 32 0d | 20 73 74 79 20 32 35 33 |sta 252.| sty 253|
|000014e0| 0d 0d 61 72 72 73 74 61 | 72 74 0d 2a 69 66 a0 74 |..arrsta|rt.*if.t|
|000014f0| 79 a0 3d a0 31 a0 74 68 | 65 6e a0 6a 6d 70 a0 64 |y.=.1.th|en.jmp.d|
|00001500| 6f 61 72 72 69 6e 74 0d | 20 6c 64 61 20 74 79 0d |oarrint.| lda ty.|
|00001510| 20 63 6d 70 20 23 31 0d | 20 62 6e 65 20 6c 62 6c | cmp #1.| bne lbl|
|00001520| 31 32 0d 20 6a 6d 70 20 | 64 6f 61 72 72 69 6e 74 |12. jmp |doarrint|
|00001530| 0d 6c 62 6c 31 32 0d 2a | 69 66 a0 74 79 a0 3d a0 |.lbl12.*|if.ty.=.|
|00001540| 32 a0 74 68 65 6e a0 6a | 6d 70 a0 64 6f 61 72 72 |2.then.j|mp.doarr|
|00001550| 73 74 72 0d 20 6c 64 61 | 20 74 79 0d 20 63 6d 70 |str. lda| ty. cmp|
|00001560| 20 23 32 0d 20 62 6e 65 | 20 6c 62 6c 31 33 0d 20 | #2. bne| lbl13. |
|00001570| 6a 6d 70 20 64 6f 61 72 | 72 73 74 72 0d 6c 62 6c |jmp doar|rstr.lbl|
|00001580| 31 33 0d 2a 69 66 a0 74 | 79 a0 3d a0 33 a0 74 68 |13.*if.t|y.=.3.th|
|00001590| 65 6e a0 6a 6d 70 a0 64 | 6f 61 72 72 72 65 6c 0d |en.jmp.d|oarrrel.|
|000015a0| 20 6c 64 61 20 74 79 0d | 20 63 6d 70 20 23 33 0d | lda ty.| cmp #3.|
|000015b0| 20 62 6e 65 20 6c 62 6c | 31 34 0d 20 6a 6d 70 20 | bne lbl|14. jmp |
|000015c0| 64 6f 61 72 72 72 65 6c | 0d 6c 62 6c 31 34 0d 0d |doarrrel|.lbl14..|
|000015d0| 62 61 63 6b 75 70 68 65 | 72 65 0d 0d 20 6a 73 72 |backuphe|re.. jsr|
|000015e0| 20 73 68 6f 75 6c 64 69 | 77 61 69 74 0d 20 6c 64 | shouldi|wait. ld|
|000015f0| 61 20 65 78 69 74 66 6c | 61 67 0d 20 62 65 71 20 |a exitfl|ag. beq |
|00001600| 61 72 6f 75 6e 61 72 6f | 75 6e 0d 20 6a 6d 70 20 |arounaro|un. jmp |
|00001610| 65 78 78 69 74 0d 61 72 | 6f 75 6e 61 72 6f 75 6e |exxit.ar|ounaroun|
|00001620| 0d 20 6c 64 61 20 23 31 | 33 0d 20 6a 73 72 20 63 |. lda #1|3. jsr c|
|00001630| 68 72 6f 75 74 0d 20 6c | 64 61 20 32 35 32 0d 20 |hrout. l|da 252. |
|00001640| 73 74 61 20 6c 6f 76 61 | 72 0d 20 6c 64 61 20 32 |sta lova|r. lda 2|
|00001650| 35 33 0d 20 73 74 61 20 | 68 69 76 61 72 0d 20 6c |53. sta |hivar. l|
|00001660| 64 61 20 32 34 37 0d 20 | 73 74 61 20 6c 6f 63 68 |da 247. |sta loch|
|00001670| 65 63 6b 0d 20 6c 64 61 | 20 32 34 38 0d 20 73 74 |eck. lda| 248. st|
|00001680| 61 20 68 69 63 68 65 63 | 6b 0d 2a 69 66 a0 68 69 |a hichec|k.*if.hi|
|00001690| 76 61 72 a0 3e a0 68 69 | 63 68 65 63 6b a0 74 68 |var.>.hi|check.th|
|000016a0| 65 6e a0 6a 6d 70 a0 62 | 65 67 69 6e 61 72 72 61 |en.jmp.b|eginarra|
|000016b0| 79 0d 20 6c 64 61 20 68 | 69 76 61 72 0d 20 63 6d |y. lda h|ivar. cm|
|000016c0| 70 20 68 69 63 68 65 63 | 6b 0d 20 62 65 71 20 6c |p hichec|k. beq l|
|000016d0| 62 6c 31 35 0d 20 62 63 | 63 20 6c 62 6c 31 35 0d |bl15. bc|c lbl15.|
|000016e0| 20 6a 6d 70 20 62 65 67 | 69 6e 61 72 72 61 79 0d | jmp beg|inarray.|
|000016f0| 6c 62 6c 31 35 0d 2a 69 | 66 a0 68 69 76 61 72 a0 |lbl15.*i|f.hivar.|
|00001700| 3c a0 68 69 63 68 65 63 | 6b a0 74 68 65 6e a0 6a |<.hichec|k.then.j|
|00001710| 6d 70 a0 61 72 72 73 74 | 61 72 74 0d 20 6c 64 61 |mp.arrst|art. lda|
|00001720| 20 68 69 76 61 72 0d 20 | 63 6d 70 20 68 69 63 68 | hivar. |cmp hich|
|00001730| 65 63 6b 0d 20 62 63 73 | 20 6c 62 6c 31 36 0d 20 |eck. bcs| lbl16. |
|00001740| 6a 6d 70 20 61 72 72 73 | 74 61 72 74 0d 6c 62 6c |jmp arrs|tart.lbl|
|00001750| 31 36 0d 2a 69 66 a0 6c | 6f 76 61 72 a0 3e 3d a0 |16.*if.l|ovar.>=.|
|00001760| 6c 6f 63 68 65 63 6b a0 | 74 68 65 6e a0 6a 6d 70 |locheck.|then.jmp|
|00001770| a0 62 65 67 69 6e 61 72 | 72 61 79 0d 20 6c 64 61 |.beginar|ray. lda|
|00001780| 20 6c 6f 76 61 72 0d 20 | 63 6d 70 20 6c 6f 63 68 | lovar. |cmp loch|
|00001790| 65 63 6b 0d 20 62 63 63 | 20 6c 62 6c 31 37 0d 20 |eck. bcc| lbl17. |
|000017a0| 6a 6d 70 20 62 65 67 69 | 6e 61 72 72 61 79 0d 6c |jmp begi|narray.l|
|000017b0| 62 6c 31 37 0d 20 6a 6d | 70 20 61 72 72 73 74 61 |bl17. jm|p arrsta|
|000017c0| 72 74 0d 0d 64 6f 61 72 | 72 69 6e 74 0d 20 6c 64 |rt..doar|rint. ld|
|000017d0| 61 20 66 69 72 73 74 0d | 20 6a 73 72 20 63 68 72 |a first.| jsr chr|
|000017e0| 6f 75 74 0d 0d 20 6c 64 | 61 20 73 65 63 6f 6e 64 |out.. ld|a second|
|000017f0| 0d 20 6a 73 72 20 63 68 | 72 6f 75 74 0d 0d 20 6c |. jsr ch|rout.. l|
|00001800| 64 61 20 23 33 37 0d 20 | 6a 73 72 20 63 68 72 6f |da #37. |jsr chro|
|00001810| 75 74 0d 0d 20 6c 64 61 | 20 23 34 30 0d 20 6a 73 |ut.. lda| #40. js|
|00001820| 72 20 63 68 72 6f 75 74 | 0d 0d 20 6a 73 72 20 70 |r chrout|.. jsr p|
|00001830| 72 69 6e 74 65 6c 65 6d | 65 6e 74 73 0d 0d 20 6c |rintelem|ents.. l|
|00001840| 64 61 20 23 34 31 0d 20 | 6a 73 72 20 63 68 72 6f |da #41. |jsr chro|
|00001850| 75 74 0d 0d 20 6c 64 61 | 20 23 36 31 0d 20 6a 73 |ut.. lda| #61. js|
|00001860| 72 20 63 68 72 6f 75 74 | 0d 0d 20 6c 64 79 20 23 |r chrout|.. ldy #|
|00001870| 24 30 30 0d 20 6c 64 61 | 20 28 73 61 29 2c 79 0d |$00. lda| (sa),y.|
|00001880| 20 73 74 61 20 32 35 31 | 0d 0d 20 69 6e 79 0d 20 | sta 251|.. iny. |
|00001890| 6c 64 61 20 28 73 61 29 | 2c 79 0d 20 73 74 61 20 |lda (sa)|,y. sta |
|000018a0| 32 35 30 0d 0d 20 6c 64 | 61 20 32 35 31 0d 20 73 |250.. ld|a 251. s|
|000018b0| 74 61 20 63 68 65 63 6b | 0d 2a 63 68 65 63 6b a0 |ta check|.*check.|
|000018c0| 66 6f 72 a0 6e 65 67 61 | 74 69 76 65 a0 69 6e 74 |for.nega|tive.int|
|000018d0| 65 67 65 72 73 0d 0d 2a | 69 66 a0 63 68 65 63 6b |egers..*|if.check|
|000018e0| a0 3c a0 31 32 38 a0 74 | 68 65 6e a0 6a 6d 70 a0 |.<.128.t|hen.jmp.|
|000018f0| 64 6f 77 6e 61 62 69 74 | 0d 20 6c 64 61 20 63 68 |downabit|. lda ch|
|00001900| 65 63 6b 0d 20 63 6d 70 | 20 23 31 32 38 0d 20 62 |eck. cmp| #128. b|
|00001910| 63 73 20 6c 62 6c 31 38 | 0d 20 6a 6d 70 20 64 6f |cs lbl18|. jmp do|
|00001920| 77 6e 61 62 69 74 0d 6c | 62 6c 31 38 0d 0d 20 6c |wnabit.l|bl18.. l|
|00001930| 64 61 20 23 34 35 0d 20 | 6a 73 72 20 63 68 72 6f |da #45. |jsr chro|
|00001940| 75 74 0d 0d 20 6c 64 61 | 20 23 24 66 66 0d 20 65 |ut.. lda| #$ff. e|
|00001950| 6f 72 20 32 35 30 0d 20 | 73 74 61 20 32 35 30 0d |or 250. |sta 250.|
|00001960| 0d 20 6c 64 61 20 23 24 | 66 66 0d 20 65 6f 72 20 |. lda #$|ff. eor |
|00001970| 32 35 31 0d 20 73 74 61 | 20 32 35 31 0d 0d 20 6c |251. sta| 251.. l|
|00001980| 64 61 20 32 35 30 0d 20 | 63 6c 63 0d 20 61 64 63 |da 250. |clc. adc|
|00001990| 20 23 24 30 31 0d 20 73 | 74 61 20 32 35 30 0d 20 | #$01. s|ta 250. |
|000019a0| 62 63 63 20 64 6f 77 6e | 61 62 69 74 0d 20 69 6e |bcc down|abit. in|
|000019b0| 63 20 32 35 31 0d 2a 65 | 6e 64 a0 6f 66 a0 6e 65 |c 251.*e|nd.of.ne|
|000019c0| 67 61 74 69 76 65 a0 69 | 6e 74 65 67 65 72 73 0d |gative.i|ntegers.|
|000019d0| 0d 0d 64 6f 77 6e 61 62 | 69 74 0d 20 6c 64 61 20 |..downab|it. lda |
|000019e0| 32 35 31 0d 20 6c 64 78 | 20 32 35 30 0d 20 6a 73 |251. ldx| 250. js|
|000019f0| 72 20 69 6e 74 70 72 69 | 6e 74 0d 2a 6c 65 74 a0 |r intpri|nt.*let.|
|00001a00| 61 64 64 a0 3d a0 32 a0 | 3a a0 6a 6d 70 a0 61 64 |add.=.2.|:.jmp.ad|
|00001a10| 64 65 6d 75 70 0d 20 6c | 64 61 20 23 32 0d 20 73 |demup. l|da #2. s|
|00001a20| 74 61 20 61 64 64 0d 20 | 6a 6d 70 20 61 64 64 65 |ta add. |jmp adde|
|00001a30| 6d 75 70 0d 0d 0d 0d 64 | 6f 61 72 72 73 74 72 0d |mup....d|oarrstr.|
|00001a40| 0d 20 6c 64 61 20 66 69 | 72 73 74 0d 20 6a 73 72 |. lda fi|rst. jsr|
|00001a50| 20 63 68 72 6f 75 74 0d | 0d 20 6c 64 61 20 73 65 | chrout.|. lda se|
|00001a60| 63 6f 6e 64 0d 20 6a 73 | 72 20 63 68 72 6f 75 74 |cond. js|r chrout|
|00001a70| 0d 0d 20 6c 64 61 20 23 | 33 36 0d 20 6a 73 72 20 |.. lda #|36. jsr |
|00001a80| 63 68 72 6f 75 74 0d 0d | 20 6c 64 61 20 23 34 30 |chrout..| lda #40|
|00001a90| 0d 20 6a 73 72 20 63 68 | 72 6f 75 74 0d 0d 20 6a |. jsr ch|rout.. j|
|00001aa0| 73 72 20 70 72 69 6e 74 | 65 6c 65 6d 65 6e 74 73 |sr print|elements|
|00001ab0| 0d 0d 20 6c 64 61 20 23 | 34 31 0d 20 6a 73 72 20 |.. lda #|41. jsr |
|00001ac0| 63 68 72 6f 75 74 0d 0d | 20 6c 64 61 20 23 36 31 |chrout..| lda #61|
|00001ad0| 0d 20 6a 73 72 20 63 68 | 72 6f 75 74 0d 0d 20 6c |. jsr ch|rout.. l|
|00001ae0| 64 61 20 23 33 34 0d 20 | 6a 73 72 20 63 68 72 6f |da #34. |jsr chro|
|00001af0| 75 74 0d 0d 20 6c 64 79 | 20 23 24 30 30 0d 20 6c |ut.. ldy| #$00. l|
|00001b00| 64 61 20 28 73 61 29 2c | 79 0d 20 73 74 61 20 6c |da (sa),|y. sta l|
|00001b10| 65 6e 0d 20 69 6e 79 0d | 20 6c 64 61 20 28 73 61 |en. iny.| lda (sa|
|00001b20| 29 2c 79 0d 20 73 74 61 | 20 6c 6f 62 79 74 65 0d |),y. sta| lobyte.|
|00001b30| 20 69 6e 79 0d 20 6c 64 | 61 20 28 73 61 29 2c 79 | iny. ld|a (sa),y|
|00001b40| 0d 20 73 74 61 20 68 69 | 62 79 74 65 0d 20 6c 64 |. sta hi|byte. ld|
|00001b50| 61 20 6c 6f 62 79 74 65 | 0d 20 73 74 61 20 32 35 |a lobyte|. sta 25|
|00001b60| 30 0d 20 6c 64 61 20 68 | 69 62 79 74 65 0d 20 73 |0. lda h|ibyte. s|
|00001b70| 74 61 20 32 35 31 0d 0d | 2a 69 66 a0 6c 65 6e a0 |ta 251..|*if.len.|
|00001b80| 3d a0 30 a0 74 68 65 6e | a0 6a 6d 70 a0 6e 6f 73 |=.0.then|.jmp.nos|
|00001b90| 74 72 69 6e 67 0d 20 6c | 64 61 20 6c 65 6e 0d 20 |tring. l|da len. |
|00001ba0| 63 6d 70 20 23 30 0d 20 | 62 6e 65 20 6c 62 6c 31 |cmp #0. |bne lbl1|
|00001bb0| 39 0d 20 6a 6d 70 20 6e | 6f 73 74 72 69 6e 67 0d |9. jmp n|ostring.|
|00001bc0| 6c 62 6c 31 39 0d 0d 20 | 6c 64 79 20 23 24 30 30 |lbl19.. |ldy #$00|
|00001bd0| 0d 0d 64 6f 73 74 72 61 | 67 61 69 6e 0d 0d 20 6c |..dostra|gain.. l|
|00001be0| 64 61 20 28 32 35 30 29 | 2c 79 0d 20 73 74 61 20 |da (250)|,y. sta |
|00001bf0| 63 68 61 72 0d 0d 20 6c | 64 61 20 23 32 35 35 0d |char.. l|da #255.|
|00001c00| 20 73 74 61 20 32 31 32 | 0d 0d 20 6c 64 61 20 63 | sta 212|.. lda c|
|00001c10| 68 61 72 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |har. jsr| chrout.|
|00001c20| 0d 20 69 6e 79 0d 20 63 | 70 79 20 6c 65 6e 0d 20 |. iny. c|py len. |
|00001c30| 62 6e 65 20 64 6f 73 74 | 72 61 67 61 69 6e 0d 0d |bne dost|ragain..|
|00001c40| 6e 6f 73 74 72 69 6e 67 | 0d 0d 20 6c 64 61 20 23 |nostring|.. lda #|
|00001c50| 33 34 0d 20 6a 73 72 20 | 63 68 72 6f 75 74 0d 2a |34. jsr |chrout.*|
|00001c60| 6c 65 74 a0 61 64 64 a0 | 3d a0 33 a0 3a a0 6a 6d |let.add.|=.3.:.jm|
|00001c70| 70 a0 61 64 64 65 6d 75 | 70 0d 20 6c 64 61 20 23 |p.addemu|p. lda #|
|00001c80| 33 0d 20 73 74 61 20 61 | 64 64 0d 20 6a 6d 70 20 |3. sta a|dd. jmp |
|00001c90| 61 64 64 65 6d 75 70 0d | 0d 64 6f 61 72 72 72 65 |addemup.|.doarrre|
|00001ca0| 6c 0d 0d 20 6c 64 61 20 | 66 69 72 73 74 0d 20 6a |l.. lda |first. j|
|00001cb0| 73 72 20 63 68 72 6f 75 | 74 0d 0d 20 6c 64 61 20 |sr chrou|t.. lda |
|00001cc0| 73 65 63 6f 6e 64 0d 20 | 6a 73 72 20 63 68 72 6f |second. |jsr chro|
|00001cd0| 75 74 0d 0d 20 6c 64 61 | 20 23 34 30 0d 20 6a 73 |ut.. lda| #40. js|
|00001ce0| 72 20 63 68 72 6f 75 74 | 0d 0d 20 6a 73 72 20 70 |r chrout|.. jsr p|
|00001cf0| 72 69 6e 74 65 6c 65 6d | 65 6e 74 73 0d 0d 20 6c |rintelem|ents.. l|
|00001d00| 64 61 20 23 34 31 0d 20 | 6a 73 72 20 63 68 72 6f |da #41. |jsr chro|
|00001d10| 75 74 0d 0d 20 6c 64 61 | 20 23 36 31 0d 20 6a 73 |ut.. lda| #61. js|
|00001d20| 72 20 63 68 72 6f 75 74 | 0d 0d 20 6c 64 61 20 73 |r chrout|.. lda s|
|00001d30| 61 0d 20 6c 64 79 20 73 | 61 2b 31 0d 20 63 6c 63 |a. ldy s|a+1. clc|
|00001d40| 0d 0d 20 6a 73 72 20 74 | 6f 66 61 63 0d 20 6c 64 |.. jsr t|ofac. ld|
|00001d50| 79 20 23 30 31 0d 20 6a | 73 72 20 6f 75 74 66 61 |y #01. j|sr outfa|
|00001d60| 63 0d 2a 6c 65 74 a0 61 | 64 64 a0 3d a0 35 a0 3a |c.*let.a|dd.=.5.:|
|00001d70| a0 6a 6d 70 a0 61 64 64 | 65 6d 75 70 0d 20 6c 64 |.jmp.add|emup. ld|
|00001d80| 61 20 23 35 0d 20 73 74 | 61 20 61 64 64 0d 20 6a |a #5. st|a add. j|
|00001d90| 6d 70 20 61 64 64 65 6d | 75 70 0d 0d 61 64 64 65 |mp addem|up..adde|
|00001da0| 6d 75 70 0d 20 6c 64 61 | 20 32 35 32 0d 20 6c 64 |mup. lda| 252. ld|
|00001db0| 79 20 32 35 33 0d 20 63 | 6c 63 0d 20 61 64 63 20 |y 253. c|lc. adc |
|00001dc0| 61 64 64 0d 20 62 63 63 | 20 61 64 64 61 62 69 74 |add. bcc| addabit|
|00001dd0| 0d 20 69 6e 79 0d 61 64 | 64 61 62 69 74 0d 20 73 |. iny.ad|dabit. s|
|00001de0| 74 61 20 32 35 32 0d 20 | 73 74 79 20 32 35 33 0d |ta 252. |sty 253.|
|00001df0| 20 6a 6d 70 20 62 61 63 | 6b 75 70 68 65 72 65 0d | jmp bac|kuphere.|
|00001e00| 0d 70 72 69 6e 74 65 6c | 65 6d 65 6e 74 73 0d 20 |.printel|ements. |
|00001e10| 6c 64 79 20 61 63 74 75 | 61 6c 73 74 75 66 66 0d |ldy actu|alstuff.|
|00001e20| 20 64 65 79 0d 75 70 73 | 6f 6d 65 0d 20 6c 64 61 | dey.ups|ome. lda|
|00001e30| 20 64 69 6d 73 2c 79 0d | 20 63 6d 70 20 74 61 62 | dims,y.| cmp tab|
|00001e40| 6c 65 2c 79 0d 20 62 6e | 65 20 74 6f 74 6f 77 6e |le,y. bn|e totown|
|00001e50| 0d 20 64 65 79 0d 20 6c | 64 61 20 64 69 6d 73 2c |. dey. l|da dims,|
|00001e60| 79 0d 20 63 6d 70 20 74 | 61 62 6c 65 2c 79 0d 20 |y. cmp t|able,y. |
|00001e70| 62 6e 65 20 74 6f 74 6f | 77 6e 0d 20 6c 64 61 20 |bne toto|wn. lda |
|00001e80| 23 24 30 30 0d 20 73 74 | 61 20 64 69 6d 73 2c 79 |#$00. st|a dims,y|
|00001e90| 0d 20 69 6e 79 0d 20 73 | 74 61 20 64 69 6d 73 2c |. iny. s|ta dims,|
|00001ea0| 79 0d 20 64 65 79 0d 20 | 64 65 79 0d 20 6c 64 61 |y. dey. |dey. lda|
|00001eb0| 20 64 69 6d 73 2c 79 0d | 20 63 6c 63 0d 20 61 64 | dims,y.| clc. ad|
|00001ec0| 63 20 23 24 30 31 0d 20 | 73 74 61 20 64 69 6d 73 |c #$01. |sta dims|
|00001ed0| 2c 79 0d 20 6a 6d 70 20 | 75 70 73 6f 6d 65 0d 0d |,y. jmp |upsome..|
|00001ee0| 74 6f 74 6f 77 6e 0d 0d | 20 6c 64 79 20 6e 75 6d |totown..| ldy num|
|00001ef0| 64 69 6d 73 0d 20 64 65 | 79 0d 20 73 74 79 20 63 |dims. de|y. sty c|
|00001f00| 6f 75 6e 74 0d 0d 6a 75 | 6d 70 73 6f 6d 65 0d 0d |ount..ju|mpsome..|
|00001f10| 20 6c 64 61 20 63 6f 75 | 6e 74 0d 0d 20 61 73 6c | lda cou|nt.. asl|
|00001f20| 0d 20 73 74 61 20 63 68 | 65 63 6b 65 72 0d 20 6c |. sta ch|ecker. l|
|00001f30| 64 79 20 63 68 65 63 6b | 65 72 0d 0d 20 6c 64 61 |dy check|er.. lda|
|00001f40| 20 64 69 6d 73 2c 79 0d | 20 69 6e 79 0d 20 6c 64 | dims,y.| iny. ld|
|00001f50| 78 20 64 69 6d 73 2c 79 | 0d 0d 20 6a 73 72 20 69 |x dims,y|.. jsr i|
|00001f60| 6e 74 70 72 69 6e 74 0d | 0d 20 6c 64 79 20 63 6f |ntprint.|. ldy co|
|00001f70| 75 6e 74 0d 20 64 65 79 | 0d 20 73 74 79 20 63 6f |unt. dey|. sty co|
|00001f80| 75 6e 74 0d 2a 69 66 a0 | 63 6f 75 6e 74 a0 3c 3e |unt.*if.|count.<>|
|00001f90| a0 32 35 35 a0 74 68 65 | 6e a0 6a 73 72 a0 63 6f |.255.the|n.jsr.co|
|00001fa0| 6d 6d 61 0d 20 6c 64 61 | 20 63 6f 75 6e 74 0d 20 |mma. lda| count. |
|00001fb0| 63 6d 70 20 23 32 35 35 | 0d 20 62 65 71 20 6c 62 |cmp #255|. beq lb|
|00001fc0| 6c 31 62 0d 20 6a 73 72 | 20 63 6f 6d 6d 61 0d 6c |l1b. jsr| comma.l|
|00001fd0| 62 6c 31 62 0d 2a 69 66 | a0 63 6f 75 6e 74 a0 3c |bl1b.*if|.count.<|
|00001fe0| 3e a0 32 35 35 a0 74 68 | 65 6e a0 6a 6d 70 a0 6a |>.255.th|en.jmp.j|
|00001ff0| 75 6d 70 73 6f 6d 65 0d | 20 6c 64 61 20 63 6f 75 |umpsome.| lda cou|
|00002000| 6e 74 0d 20 63 6d 70 20 | 23 32 35 35 0d 20 62 65 |nt. cmp |#255. be|
|00002010| 71 20 6c 62 6c 31 63 0d | 20 6a 6d 70 20 6a 75 6d |q lbl1c.| jmp jum|
|00002020| 70 73 6f 6d 65 0d 6c 62 | 6c 31 63 0d 0d 20 6c 64 |psome.lb|l1c.. ld|
|00002030| 79 20 61 63 74 75 61 6c | 73 74 75 66 66 0d 20 64 |y actual|stuff. d|
|00002040| 65 79 0d 0d 20 6c 64 61 | 20 64 69 6d 73 2c 79 0d |ey.. lda| dims,y.|
|00002050| 20 63 6c 63 0d 20 61 64 | 63 20 23 24 30 31 0d 20 | clc. ad|c #$01. |
|00002060| 73 74 61 20 64 69 6d 73 | 2c 79 0d 20 62 6e 65 20 |sta dims|,y. bne |
|00002070| 61 6f 6b 61 79 0d 20 64 | 65 79 0d 20 6c 64 61 20 |aokay. d|ey. lda |
|00002080| 64 69 6d 73 2c 79 0d 20 | 63 6d 70 20 74 61 62 6c |dims,y. |cmp tabl|
|00002090| 65 2c 79 0d 20 62 65 71 | 20 61 6f 6b 61 79 0d 20 |e,y. beq| aokay. |
|000020a0| 6c 64 61 20 64 69 6d 73 | 2c 79 0d 20 61 64 63 20 |lda dims|,y. adc |
|000020b0| 23 24 30 31 0d 20 73 74 | 61 20 64 69 6d 73 2c 79 |#$01. st|a dims,y|
|000020c0| 0d 20 69 6e 79 0d 61 6f | 6b 61 79 0d 0d 20 72 74 |. iny.ao|kay.. rt|
|000020d0| 73 0d 0d 63 6f 6d 6d 61 | 0d 20 6c 64 61 20 23 34 |s..comma|. lda #4|
|000020e0| 34 0d 20 6a 73 72 20 63 | 68 72 6f 75 74 0d 20 72 |4. jsr c|hrout. r|
|000020f0| 74 73 0d 0d 73 68 6f 75 | 6c 64 69 77 61 69 74 0d |ts..shou|ldiwait.|
|00002100| 20 6c 64 61 20 23 24 30 | 30 0d 20 73 74 61 20 65 | lda #$0|0. sta e|
|00002110| 78 69 74 66 6c 61 67 0d | 20 6c 64 61 20 31 39 37 |xitflag.| lda 197|
|00002120| 0d 20 63 6d 70 20 23 36 | 30 0d 20 62 65 71 20 73 |. cmp #6|0. beq s|
|00002130| 68 6f 75 6c 64 69 77 61 | 69 74 0d 20 6c 64 61 20 |houldiwa|it. lda |
|00002140| 31 39 37 0d 20 63 6d 70 | 20 23 35 37 0d 20 62 6e |197. cmp| #57. bn|
|00002150| 65 20 6e 6f 77 61 69 74 | 65 0d 20 6c 64 61 20 23 |e nowait|e. lda #|
|00002160| 24 30 31 0d 20 73 74 61 | 20 65 78 69 74 66 6c 61 |$01. sta| exitfla|
|00002170| 67 0d 6e 6f 77 61 69 74 | 65 0d 20 72 74 73 20 3b |g.nowait|e. rts ;|
|00002180| 72 65 74 75 72 6e a0 66 | 72 6f 6d a0 63 61 6c 6c |return.f|rom.call|
|00002190| 65 72 0d 0d 65 78 78 69 | 74 0d 20 6c 64 61 20 6c |er..exxi|t. lda l|
|000021a0| 6f 61 72 61 79 0d 20 73 | 74 61 20 24 30 30 32 66 |oaray. s|ta $002f|
|000021b0| 0d 20 6c 64 61 20 68 69 | 61 72 61 79 0d 20 73 74 |. lda hi|aray. st|
|000021c0| 61 20 24 30 30 33 30 0d | 20 6a 73 72 20 63 6c 65 |a $0030.| jsr cle|
|000021d0| 61 72 74 61 62 6c 65 73 | 0d 20 6c 64 61 20 23 24 |artables|. lda #$|
|000021e0| 30 30 0d 20 73 74 61 20 | 31 39 38 0d 20 72 74 73 |00. sta |198. rts|
|000021f0| 0d 0d 0d 0d 63 6c 65 61 | 72 74 61 62 6c 65 73 0d |....clea|rtables.|
|00002200| 2a 66 6f 72 a0 63 6f 75 | 6e 74 a0 3d a0 30 a0 74 |*for.cou|nt.=.0.t|
|00002210| 6f a0 36 30 0d 20 6c 64 | 61 20 23 30 0d 20 73 74 |o.60. ld|a #0. st|
|00002220| 61 20 63 6f 75 6e 74 0d | 6c 62 6c 31 64 0d 20 6c |a count.|lbl1d. l|
|00002230| 64 61 20 23 36 30 0d 20 | 63 6d 70 20 63 6f 75 6e |da #60. |cmp coun|
|00002240| 74 0d 20 62 63 73 20 2a | 2b 35 0d 20 6a 6d 70 20 |t. bcs *|+5. jmp |
|00002250| 6c 62 6c 31 65 0d 0d 20 | 6c 64 79 20 63 6f 75 6e |lbl1e.. |ldy coun|
|00002260| 74 0d 0d 20 6c 64 61 20 | 23 30 0d 20 73 74 61 20 |t.. lda |#0. sta |
|00002270| 64 69 6d 73 2c 79 0d 0d | 20 6c 64 61 20 23 30 0d |dims,y..| lda #0.|
|00002280| 20 73 74 61 20 74 61 62 | 6c 65 2c 79 0d 2a 6e 65 | sta tab|le,y.*ne|
|00002290| 78 74 a0 63 6f 75 6e 74 | 0d 20 69 6e 63 20 63 6f |xt.count|. inc co|
|000022a0| 75 6e 74 0d 20 6a 6d 70 | 20 6c 62 6c 31 64 0d 6c |unt. jmp| lbl1d.l|
|000022b0| 62 6c 31 65 0d 0d 20 72 | 74 73 0d 0d 0d 0d 6c 6f |bl1e.. r|ts....lo|
|000022c0| 76 61 72 20 68 65 78 20 | 30 30 0d 0d 68 69 76 61 |var hex |00..hiva|
|000022d0| 72 0d 20 68 65 78 20 30 | 30 0d 6c 6f 61 72 61 79 |r. hex 0|0.loaray|
|000022e0| 0d 20 68 65 78 20 30 30 | 0d 68 69 61 72 61 79 20 |. hex 00|.hiaray |
|000022f0| 68 65 78 20 30 30 0d 66 | 69 72 73 74 20 68 65 78 |hex 00.f|irst hex|
|00002300| 20 30 30 0d 73 65 63 6f | 6e 64 20 68 65 78 20 30 | 00.seco|nd hex 0|
|00002310| 30 0d 74 79 20 68 65 78 | 20 30 30 0d 6c 6f 62 79 |0.ty hex| 00.loby|
|00002320| 74 65 20 68 65 78 20 30 | 30 0d 68 69 62 79 74 65 |te hex 0|0.hibyte|
|00002330| 20 68 65 78 20 30 30 0d | 6c 65 6e 20 68 65 78 20 | hex 00.|len hex |
|00002340| 30 30 0d 6c 6f 73 61 76 | 65 20 68 65 78 20 30 30 |00.losav|e hex 00|
|00002350| 0d 68 69 73 61 76 65 20 | 68 65 78 20 30 30 0d 63 |.hisave |hex 00.c|
|00002360| 68 61 72 20 68 65 78 20 | 30 30 0d 63 68 65 63 6b |har hex |00.check|
|00002370| 20 68 65 78 20 30 30 0d | 61 64 64 20 68 65 78 20 | hex 00.|add hex |
|00002380| 30 30 0d 63 6f 75 6e 74 | 20 68 65 78 20 30 30 0d |00.count| hex 00.|
|00002390| 6d 61 78 75 70 20 68 65 | 78 20 30 30 0d 63 68 65 |maxup he|x 00.che|
|000023a0| 63 6b 65 72 20 68 65 78 | 20 30 30 0d 6c 6f 6f 66 |cker hex| 00.loof|
|000023b0| 66 20 68 65 78 20 30 30 | 0d 68 69 6f 66 66 20 68 |f hex 00|.hioff h|
|000023c0| 65 78 20 30 30 0d 6e 75 | 6d 64 69 6d 73 20 68 65 |ex 00.nu|mdims he|
|000023d0| 78 20 30 30 0d 68 69 63 | 68 65 63 6b 20 68 65 78 |x 00.hic|heck hex|
|000023e0| 20 30 30 0d 6c 6f 63 68 | 65 63 6b 20 68 65 78 20 | 00.loch|eck hex |
|000023f0| 30 30 0d 65 6e 64 6c 6f | 20 68 65 78 20 30 30 0d |00.endlo| hex 00.|
|00002400| 65 6e 64 68 69 20 68 65 | 78 20 30 30 0d 65 78 69 |endhi he|x 00.exi|
|00002410| 74 66 6c 61 67 20 68 65 | 78 20 30 30 0d 0d 63 75 |tflag he|x 00..cu|
|00002420| 72 72 65 6e 74 73 69 7a | 65 20 68 65 78 20 30 30 |rrentsiz|e hex 00|
|00002430| 0d 61 63 74 75 61 6c 73 | 74 75 66 66 20 68 65 78 |.actuals|tuff hex|
|00002440| 20 30 30 0d             |                         | 00.    |        |
+--------+-------------------------+-------------------------+--------+--------+