/ Go64! / Go64_2000-01_2000_CSW_Side_A.d64 / pppatch.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 0d 2a a0 70 65 | 65 6b 2b 70 6f 6b 65 2b |.p*.*.pe|ek+poke+|
|00000010| 77 61 69 74 a0 32 34 2d | 42 49 54 a0 50 41 54 43 |wait.24-|BIT.PATC|
|00000020| 48 a0 46 4f 52 a0 54 48 | 45 a0 73 55 50 45 52 63 |H.FOR.TH|E.sUPERc|
|00000030| 70 75 0d 2a a0 61 4c 53 | 4f a0 50 41 54 43 48 45 |pu.*.aLS|O.PATCHE|
|00000040| 53 a0 4c 4f 41 44 2f 53 | 41 56 45 0d 2a 0d 2a a0 |S.LOAD/S|AVE.*.*.|
|00000050| 76 45 52 53 2e a0 32 3a | a0 63 48 41 4e 47 45 a0 |vERS..2:|.cHANGE.|
|00000060| 4f 4e 4c 59 a0 6c 64 61 | a0 28 29 2c 79 a0 2d 3e |ONLY.lda|.(),y.->|
|00000070| a0 6c 64 61 a0 5b 5d 2c | a0 55 53 45 a0 24 35 30 |.lda.[],|.USE.$50|
|00000080| a0 24 35 31 a0 24 35 32 | 0d 2a a0 a0 a0 41 53 a0 |.$51.$52|.*...AS.|
|00000090| 32 34 2d 42 49 54 a0 41 | 44 44 52 45 53 53 2e a0 |24-BIT.A|DDRESS..|
|000000a0| 28 42 55 54 a0 41 4c 53 | 4f a0 24 31 34 a0 24 31 |(BUT.ALS|O.$14.$1|
|000000b0| 35 a0 41 53 a0 42 45 46 | 4f 52 45 29 2e a0 a0 74 |5.AS.BEF|ORE)...t|
|000000c0| 48 49 53 0d 2a a0 a0 a0 | 53 48 4f 55 4c 44 a0 4d |HIS.*...|SHOULD.M|
|000000d0| 41 58 49 4d 49 5a 45 a0 | 43 4f 4d 50 41 54 49 42 |AXIMIZE.|COMPATIB|
|000000e0| 49 4c 49 54 59 2e 0d 2a | 0d 2a a0 a0 a0 6e 4f 54 |ILITY..*|.*...nOT|
|000000f0| 45 a0 54 48 41 54 a0 73 | 79 73 a0 50 41 54 43 48 |E.THAT.s|ys.PATCH|
|00000100| a0 49 53 a0 54 52 49 56 | 49 41 4c 2e 0d 2a 0d 2a |.IS.TRIV|IAL..*.*|
|00000110| a0 73 54 45 50 48 45 4e | a0 6c 2e a0 6a 55 44 44 |.sTEPHEN|.l..jUDD|
|00000120| a0 31 32 2f 36 2f 39 37 | 0d 2a 0d 2a a0 31 2f 33 |.12/6/97|.*.*.1/3|
|00000130| 2f 39 38 a0 61 44 44 45 | 44 a0 73 79 73 a0 41 4e |/98.aDDE|D.sys.AN|
|00000140| 44 a0 6c 6f 61 64 a0 50 | 41 54 43 48 45 53 2e 0d |D.load.P|ATCHES..|
|00000150| 2a 0d 2a a0 31 32 2f 31 | 34 2f 39 39 a0 2d 2d a0 |*.*.12/1|4/99.--.|
|00000160| 61 44 44 45 44 a0 54 4f | a0 6a 41 4d 4d 4f 4e 0d |aDDED.TO|.jAMMON.|
|00000170| 2a 0d 0d 6c 69 6e 6e 75 | 6d 20 3d 20 24 31 34 20 |*..linnu|m = $14 |
|00000180| 3b 76 41 52 49 41 42 4c | 45 0d 6e 75 6d 32 34 20 |;vARIABL|E.num24 |
|00000190| 3d 20 24 35 30 20 3b 6e | 45 57 a0 32 34 2d 42 49 |= $50 ;n|EW.24-BI|
|000001a0| 54 a0 44 45 53 54 2e 0d | 63 68 72 67 65 74 20 3d |T.DEST..|chrget =|
|000001b0| 20 24 37 33 0d 74 78 74 | 70 74 72 20 3d 20 24 37 | $73.txt|ptr = $7|
|000001c0| 61 0d 68 69 67 68 70 74 | 72 20 3d 20 24 61 62 20 |a.highpt|r = $ab |
|000001d0| 3b 68 49 47 48 a0 42 59 | 54 45 a0 4f 46 a0 45 4e |;hIGH.BY|TE.OF.EN|
|000001e0| 44 a0 53 41 56 45 a0 41 | 44 44 52 2e 0d 0d 2a 3d |D.SAVE.A|DDR...*=|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 67 |========|======.g|
|00000210| 65 74 62 79 74 65 20 3d | 20 24 62 37 39 62 0d 67 |etbyte =| $b79b.g|
|00000220| 65 74 6e 75 6d 20 3d 20 | 24 62 37 65 62 0d 67 65 |etnum = |$b7eb.ge|
|00000230| 74 63 68 6b 20 3d 20 67 | 65 74 6e 75 6d 2b 36 0d |tchk = g|etnum+6.|
|00000240| 67 65 74 61 64 72 20 3d | 20 24 62 37 66 37 0d 70 |getadr =| $b7f7.p|
|00000250| 65 65 6b 20 3d 20 24 62 | 38 30 64 0d 70 6f 6b 65 |eek = $b|80d.poke|
|00000260| 20 3d 20 24 62 38 32 34 | 0d 77 61 69 74 20 3d 20 | = $b824|.wait = |
|00000270| 24 62 38 32 64 0d 2a 3d | 3d 3d 3d 3d 3d 3d 3d 3d |$b82d.*=|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 0d 0d | 2a a0 67 65 74 61 64 72 |======..|*.getadr|
|000002a0| a0 50 41 54 43 48 a0 2d | 3e a0 67 65 74 61 64 72 |.PATCH.-|>.getadr|
|000002b0| 2b 37 0d 70 31 61 64 72 | 20 3d 20 67 65 74 61 64 |+7.p1adr| = getad|
|000002c0| 72 2b 37 0d 70 61 74 63 | 68 31 20 3d 20 24 39 39 |r+7.patc|h1 = $99|
|000002d0| 20 3b 63 6d 70 a0 23 24 | 39 31 a0 2d 3e a0 63 6d | ;cmp.#$|91.->.cm|
|000002e0| 70 a0 23 24 39 39 0d 0d | 2a a0 67 65 74 61 64 72 |p.#$99..|*.getadr|
|000002f0| a0 50 41 54 43 48 a0 2d | 3e a0 67 65 74 61 64 72 |.PATCH.-|>.getadr|
|00000300| 2b 24 30 64 0d 70 32 61 | 64 72 20 3d 20 67 65 74 |+$0d.p2a|dr = get|
|00000310| 61 64 72 2b 24 30 64 0d | 70 61 74 63 68 32 20 3d |adr+$0d.|patch2 =|
|00000320| 20 24 34 63 20 3b 6a 6d | 70 a0 6c 69 6e 66 65 74 | $4c ;jm|p.linfet|
|00000330| 63 68 0d 0d 2a a0 70 65 | 65 6b a0 50 41 54 43 48 |ch..*.pe|ek.PATCH|
|00000340| a0 2d 3e a0 70 65 65 6b | 2b 39 0d 70 33 61 64 72 |.->.peek|+9.p3adr|
|00000350| 20 3d 20 70 65 65 6b 2b | 31 31 0d 70 61 74 63 68 | = peek+|11.patch|
|00000360| 33 61 20 3d 20 24 61 37 | 20 3b 6c 64 61 a0 5b 24 |3a = $a7| ;lda.[$|
|00000370| 35 30 5d 0d 70 61 74 63 | 68 33 62 20 3d 20 6e 75 |50].patc|h3b = nu|
|00000380| 6d 32 34 0d 0d 2a a0 70 | 6f 6b 65 a0 50 41 54 43 |m24..*.p|oke.PATC|
|00000390| 48 a0 2d 3e a0 70 6f 6b | 65 2b 34 0d 70 34 61 64 |H.->.pok|e+4.p4ad|
|000003a0| 72 20 3d 20 70 6f 6b 65 | 2b 36 0d 70 61 74 63 68 |r = poke|+6.patch|
|000003b0| 34 61 20 3d 20 24 38 37 | 20 3b 73 74 61 a0 5b 24 |4a = $87| ;sta.[$|
|000003c0| 35 30 5d 0d 70 61 74 63 | 68 34 62 20 3d 20 70 61 |50].patc|h4b = pa|
|000003d0| 74 63 68 33 62 0d 0d 2a | a0 77 61 69 74 a0 50 41 |tch3b..*|.wait.PA|
|000003e0| 54 43 48 a0 2d 3e a0 77 | 61 69 74 2b 31 37 0d 70 |TCH.->.w|ait+17.p|
|000003f0| 35 61 64 72 20 3d 20 77 | 61 69 74 2b 31 39 0d 70 |5adr = w|ait+19.p|
|00000400| 61 74 63 68 35 61 20 3d | 20 70 61 74 63 68 33 61 |atch5a =| patch3a|
|00000410| 20 3b 6c 64 61 a0 5b 24 | 35 30 5d 0d 70 61 74 63 | ;lda.[$|50].patc|
|00000420| 68 35 62 20 3d 20 70 61 | 74 63 68 33 62 0d 2a 3d |h5b = pa|tch3b.*=|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0d |========|======..|
|00000450| 69 6e 69 74 0d 0d 2a a0 | 70 41 54 43 48 a0 62 61 |init..*.|pATCH.ba|
|00000460| 73 69 63 0d 0d 2a a0 69 | 4e 49 54 a0 69 65 76 61 |sic..*.i|NIT.ieva|
|00000470| 6c a0 56 45 43 54 4f 52 | 0d 0d 20 6c 64 61 20 24 |l.VECTOR|.. lda $|
|00000480| 66 37 65 35 0d 20 63 6d | 70 20 23 24 39 31 20 3b |f7e5. cm|p #$91 ;|
|00000490| 63 48 45 43 4b a0 46 4f | 52 a0 70 70 70 0d 20 62 |cHECK.FO|R.ppp. b|
|000004a0| 6e 65 20 3a 73 6b 69 70 | 0d 20 6c 64 61 20 24 30 |ne :skip|. lda $0|
|000004b0| 33 30 61 20 3b 6f 4c 44 | a0 69 65 76 61 6c 0d 20 |30a ;oLD|.ieval. |
|000004c0| 73 74 61 20 24 30 33 33 | 34 0d 20 6c 64 61 20 24 |sta $033|4. lda $|
|000004d0| 30 33 30 62 0d 20 73 74 | 61 20 24 30 33 33 35 0d |030b. st|a $0335.|
|000004e0| 3a 73 6b 69 70 0d 20 3e | 3e 3e 20 50 45 52 2c 68 |:skip. >|>> PER,h|
|000004f0| 65 78 65 76 61 6c 0d 20 | 70 6c 61 0d 20 73 74 61 |exeval. |pla. sta|
|00000500| 20 24 30 33 30 61 0d 20 | 70 6c 61 0d 20 73 74 61 | $030a. |pla. sta|
|00000510| 20 24 30 33 30 62 0d 0d | 2a a0 73 45 54 a0 55 50 | $030b..|*.sET.UP|
|00000520| a0 42 41 4e 4b a0 31 a0 | 50 41 54 43 48 45 53 0d |.BANK.1.|PATCHES.|
|00000530| 0d 20 63 6c 63 0d 20 64 | 66 62 20 24 66 62 20 3b |. clc. d|fb $fb ;|
|00000540| 58 43 45 0d 20 64 66 62 | 20 24 65 32 2c 24 33 30 |XCE. dfb| $e2,$30|
|00000550| 20 3b 53 45 50 a0 23 24 | 33 30 0d 20 6c 64 61 20 | ;SEP.#$|30. lda |
|00000560| 23 24 30 31 0d 20 70 68 | 61 0d 20 64 66 62 20 24 |#$01. ph|a. dfb $|
|00000570| 61 62 20 3b 70 6c 62 a0 | 2d 2d a0 53 54 4f 52 45 |ab ;plb.|--.STORE|
|00000580| a0 54 4f a0 42 41 4e 4b | a0 31 0d 0d 2a a0 70 41 |.TO.BANK|.1..*.pA|
|00000590| 54 43 48 a0 62 61 73 69 | 63 0d 0d 20 6c 64 61 20 |TCH.basi|c.. lda |
|000005a0| 23 70 61 74 63 68 31 20 | 3b 67 65 74 61 64 72 0d |#patch1 |;getadr.|
|000005b0| 20 73 74 61 20 70 31 61 | 64 72 0d 20 6c 64 61 20 | sta p1a|dr. lda |
|000005c0| 23 70 61 74 63 68 32 0d | 20 73 74 61 20 70 32 61 |#patch2.| sta p2a|
|000005d0| 64 72 0d 20 3e 3e 3e 20 | 50 45 52 2c 6c 69 6e 66 |dr. >>> |PER,linf|
|000005e0| 65 74 63 68 0d 20 70 6c | 61 0d 2a a0 6c 64 61 a0 |etch. pl|a.*.lda.|
|000005f0| 23 3c 6c 69 6e 66 65 74 | 63 68 0d 20 73 74 61 20 |#<linfet|ch. sta |
|00000600| 70 32 61 64 72 2b 31 0d | 20 70 6c 61 0d 2a a0 6c |p2adr+1.| pla.*.l|
|00000610| 64 61 a0 23 3e 6c 69 6e | 66 65 74 63 68 0d 20 73 |da.#>lin|fetch. s|
|00000620| 74 61 20 70 32 61 64 72 | 2b 32 0d 20 6c 64 61 20 |ta p2adr|+2. lda |
|00000630| 23 70 61 74 63 68 33 61 | 20 3b 70 65 65 6b 2b 77 |#patch3a| ;peek+w|
|00000640| 61 69 74 0d 20 73 74 61 | 20 70 33 61 64 72 0d 20 |ait. sta| p3adr. |
|00000650| 73 74 61 20 70 35 61 64 | 72 0d 20 6c 64 61 20 23 |sta p5ad|r. lda #|
|00000660| 70 61 74 63 68 33 62 0d | 20 73 74 61 20 70 33 61 |patch3b.| sta p3a|
|00000670| 64 72 2b 31 0d 20 73 74 | 61 20 70 35 61 64 72 2b |dr+1. st|a p5adr+|
|00000680| 31 0d 20 73 74 61 20 70 | 34 61 64 72 2b 31 20 3b |1. sta p|4adr+1 ;|
|00000690| 70 6f 6b 65 0d 20 6c 64 | 61 20 23 70 61 74 63 68 |poke. ld|a #patch|
|000006a0| 34 61 0d 20 73 74 61 20 | 70 34 61 64 72 0d 0d 2a |4a. sta |p4adr..*|
|000006b0| a0 70 41 54 43 48 a0 73 | 79 73 0d 0d 20 6c 64 61 |.pATCH.s|ys.. lda|
|000006c0| 20 23 24 64 63 20 3b 6a | 6d 70 a0 5b 5d 0d 20 73 | #$dc ;j|mp.[]. s|
|000006d0| 74 61 20 24 65 31 34 34 | 0d 20 6c 64 61 20 23 6e |ta $e144|. lda #n|
|000006e0| 75 6d 32 34 0d 20 73 74 | 61 20 24 65 31 34 35 0d |um24. st|a $e145.|
|000006f0| 0d 2a a0 67 45 54 a0 46 | 49 4c 45 4e 41 4d 45 2b |.*.gET.F|ILENAME+|
|00000700| 41 44 44 52 45 53 53 a0 | 50 41 54 43 48 0d 0d 20 |ADDRESS.|PATCH.. |
|00000710| 3e 3e 3e 20 50 45 52 2c | 67 65 74 69 74 0d 20 70 |>>> PER,|getit. p|
|00000720| 6c 61 0d 2a a0 6c 64 61 | a0 23 3c 67 65 74 69 74 |la.*.lda|.#<getit|
|00000730| 0d 20 73 74 61 20 24 65 | 31 66 37 0d 20 70 6c 61 |. sta $e|1f7. pla|
|00000740| 0d 2a a0 6c 64 61 a0 23 | 3e 67 65 74 69 74 0d 20 |.*.lda.#|>getit. |
|00000750| 73 74 61 20 24 65 31 66 | 38 0d 0d 2a a0 70 41 54 |sta $e1f|8..*.pAT|
|00000760| 43 48 a0 73 61 76 65 a0 | 52 4f 55 54 49 4e 45 0d |CH.save.|ROUTINE.|
|00000770| 73 70 61 74 63 68 0d 20 | 3e 3e 3e 20 50 45 52 2c |spatch. |>>> PER,|
|00000780| 73 61 76 65 0d 20 70 6c | 61 0d 2a a0 6c 64 61 a0 |save. pl|a.*.lda.|
|00000790| 23 3c 73 61 76 65 0d 20 | 73 74 61 20 24 65 31 35 |#<save. |sta $e15|
|000007a0| 37 0d 2a a0 6c 64 61 a0 | 23 3e 73 61 76 65 0d 20 |7.*.lda.|#>save. |
|000007b0| 70 6c 61 0d 20 73 74 61 | 20 24 65 31 35 38 0d 0d |pla. sta| $e158..|
|000007c0| 20 3e 3e 3e 20 50 45 52 | 2c 73 62 30 0d 2a a0 6c | >>> PER|,sb0.*.l|
|000007d0| 64 61 a0 23 3c 73 62 30 | 0d 20 70 6c 61 0d 20 73 |da.#<sb0|. pla. s|
|000007e0| 74 61 20 24 66 36 30 36 | 0d 2a a0 6c 64 61 a0 23 |ta $f606|.*.lda.#|
|000007f0| 3e 73 62 30 0d 20 70 6c | 61 0d 20 73 74 61 20 24 |>sb0. pl|a. sta $|
|00000800| 66 36 30 37 0d 0d 20 6c | 64 61 20 23 24 30 34 0d |f607.. l|da #$04.|
|00000810| 20 73 74 61 20 24 66 35 | 66 35 20 3b 63 6d 70 a0 | sta $f5|f5 ;cmp.|
|00000820| 23 24 30 34 0d 20 6c 64 | 61 20 23 24 39 30 20 3b |#$04. ld|a #$90 ;|
|00000830| 62 63 63 a0 2e 2e 2e 0d | 20 73 74 61 20 24 66 35 |bcc.....| sta $f5|
|00000840| 66 36 0d 20 6c 64 61 20 | 23 24 61 36 20 3b 6c 64 |f6. lda |#$a6 ;ld|
|00000850| 78 a0 24 62 39 0d 20 73 | 74 61 20 24 66 35 66 38 |x.$b9. s|ta $f5f8|
|00000860| 0d 20 6c 64 61 20 23 24 | 62 39 0d 20 73 74 61 20 |. lda #$|b9. sta |
|00000870| 24 66 35 66 39 0d 0d 20 | 6c 64 61 20 23 24 61 65 |$f5f9.. |lda #$ae|
|00000880| 20 3b 53 54 41 52 54 a0 | 41 44 44 52 45 53 53 a0 | ;START.|ADDRESS.|
|00000890| 49 4e a0 24 61 65 2f 66 | 0d 20 73 74 61 20 24 66 |IN.$ae/f|. sta $f|
|000008a0| 36 31 62 0d 20 6c 64 61 | 20 23 24 61 66 0d 20 73 |61b. lda| #$af. s|
|000008b0| 74 61 20 24 66 36 32 30 | 0d 0d 20 6c 64 61 20 23 |ta $f620|.. lda #|
|000008c0| 24 65 61 20 3b 6e 6f 70 | a0 4f 55 54 a0 24 63 31 |$ea ;nop|.OUT.$c1|
|000008d0| 2d 3e 24 61 63 a0 43 4f | 50 59 0d 20 73 74 61 20 |->$ac.CO|PY. sta |
|000008e0| 24 66 36 31 37 0d 20 73 | 74 61 20 24 66 36 31 38 |$f617. s|ta $f618|
|000008f0| 0d 20 73 74 61 20 24 66 | 36 31 39 0d 0d 20 3e 3e |. sta $f|619.. >>|
|00000900| 3e 20 50 45 52 2c 63 6d | 70 73 61 76 65 0d 2a a0 |> PER,cm|psave.*.|
|00000910| 6c 64 61 a0 23 3c 63 6d | 70 73 61 76 65 0d 20 70 |lda.#<cm|psave. p|
|00000920| 6c 61 0d 20 73 74 61 20 | 24 66 36 32 35 0d 2a a0 |la. sta |$f625.*.|
|00000930| 6c 64 61 a0 23 3e 63 6d | 70 73 61 76 65 0d 20 70 |lda.#>cm|psave. p|
|00000940| 6c 61 0d 20 73 74 61 20 | 24 66 36 32 36 0d 20 3e |la. sta |$f626. >|
|00000950| 3e 3e 20 50 45 52 2c 69 | 6e 63 73 61 76 65 0d 2a |>> PER,i|ncsave.*|
|00000960| a0 6c 64 61 a0 23 3c 69 | 6e 63 73 61 76 65 0d 20 |.lda.#<i|ncsave. |
|00000970| 70 6c 61 0d 20 73 74 61 | 20 24 66 36 33 62 0d 2a |pla. sta| $f63b.*|
|00000980| a0 6c 64 61 a0 23 3e 69 | 6e 63 73 61 76 65 0d 20 |.lda.#>i|ncsave. |
|00000990| 70 6c 61 0d 20 73 74 61 | 20 24 66 36 33 63 0d 0d |pla. sta| $f63c..|
|000009a0| 20 6c 64 61 20 23 24 61 | 37 20 3b 6c 64 61 a0 5b | lda #$a|7 ;lda.[|
|000009b0| 24 61 65 5d 0d 20 73 74 | 61 20 24 66 36 32 39 0d |$ae]. st|a $f629.|
|000009c0| 20 6c 64 61 20 23 24 61 | 65 0d 20 73 74 61 20 24 | lda #$a|e. sta $|
|000009d0| 66 36 32 61 0d 0d 2a a0 | 70 41 54 43 48 a0 6c 6f |f62a..*.|pATCH.lo|
|000009e0| 61 64 a0 52 4f 55 54 49 | 4e 45 0d 6c 70 61 74 63 |ad.ROUTI|NE.lpatc|
|000009f0| 68 0d 20 3e 3e 3e 20 50 | 45 52 2c 6c 6f 61 64 0d |h. >>> P|ER,load.|
|00000a00| 2a a0 6c 64 61 a0 23 3c | 6c 6f 61 64 0d 20 70 6c |*.lda.#<|load. pl|
|00000a10| 61 0d 20 73 74 61 20 24 | 65 31 36 64 0d 20 70 6c |a. sta $|e16d. pl|
|00000a20| 61 0d 2a a0 6c 64 61 a0 | 23 3e 6c 6f 61 64 0d 20 |a.*.lda.|#>load. |
|00000a30| 73 74 61 20 24 65 31 36 | 65 0d 0d 20 3e 3e 3e 20 |sta $e16|e.. >>> |
|00000a40| 50 45 52 2c 73 61 76 65 | 61 64 64 72 0d 20 70 6c |PER,save|addr. pl|
|00000a50| 61 0d 20 73 74 61 20 24 | 66 34 66 31 0d 20 73 74 |a. sta $|f4f1. st|
|00000a60| 61 20 24 66 33 39 66 0d | 20 70 6c 61 0d 20 73 74 |a $f39f.| pla. st|
|00000a70| 61 20 24 66 34 66 32 0d | 20 73 74 61 20 24 66 33 |a $f4f2.| sta $f3|
|00000a80| 61 30 0d 0d 20 6c 64 61 | 20 23 24 63 37 0d 20 73 |a0.. lda| #$c7. s|
|00000a90| 74 61 20 24 66 35 31 32 | 20 3b 63 6d 70 a0 5b 24 |ta $f512| ;cmp.[$|
|00000aa0| 61 65 5d 0d 20 6c 64 61 | 20 23 24 38 37 0d 20 73 |ae]. lda| #$87. s|
|00000ab0| 74 61 20 24 66 35 31 63 | 20 3b 73 74 61 a0 5b 24 |ta $f51c| ;sta.[$|
|00000ac0| 61 65 5d 0d 20 73 74 61 | 20 24 66 37 65 35 0d 20 |ae]. sta| $f7e5. |
|00000ad0| 73 74 61 20 24 66 37 66 | 30 0d 20 6c 64 61 20 23 |sta $f7f|0. lda #|
|00000ae0| 24 32 30 0d 20 73 74 61 | 20 24 66 35 31 65 20 3b |$20. sta| $f51e ;|
|00000af0| 6a 73 72 a0 69 6e 63 73 | 61 76 65 0d 20 73 74 61 |jsr.incs|ave. sta|
|00000b00| 20 24 66 37 65 37 0d 20 | 3e 3e 3e 20 50 45 52 2c | $f7e7. |>>> PER,|
|00000b10| 69 6e 63 73 61 76 65 0d | 20 70 6c 61 0d 2a a0 6c |incsave.| pla.*.l|
|00000b20| 64 61 a0 23 3c 69 6e 63 | 73 61 76 65 0d 20 73 74 |da.#<inc|save. st|
|00000b30| 61 20 24 66 35 31 66 0d | 20 73 74 61 20 24 66 37 |a $f51f.| sta $f7|
|00000b40| 65 38 0d 20 70 6c 61 0d | 2a a0 6c 64 61 a0 23 3e |e8. pla.|*.lda.#>|
|00000b50| 69 6e 63 73 61 76 65 0d | 20 73 74 61 20 24 66 35 |incsave.| sta $f5|
|00000b60| 32 30 0d 20 73 74 61 20 | 24 66 37 65 39 0d 20 6c |20. sta |$f7e9. l|
|00000b70| 64 61 20 23 24 65 61 20 | 3b 6e 6f 70 a0 6e 6f 70 |da #$ea |;nop.nop|
|00000b80| a0 6e 6f 70 0d 20 73 74 | 61 20 24 66 35 32 31 0d |.nop. st|a $f521.|
|00000b90| 20 73 74 61 20 24 66 35 | 32 32 0d 20 73 74 61 20 | sta $f5|22. sta |
|00000ba0| 24 66 35 32 33 0d 20 73 | 74 61 20 24 66 37 65 61 |$f523. s|ta $f7ea|
|00000bb0| 0d 20 73 74 61 20 24 66 | 37 65 62 0d 20 73 74 61 |. sta $f|7eb. sta|
|00000bc0| 20 24 66 37 65 63 0d 0d | 20 6c 64 61 20 23 24 62 | $f7ec..| lda #$b|
|00000bd0| 30 0d 20 73 74 61 20 24 | 66 37 35 62 20 3b 6c 64 |0. sta $|f75b ;ld|
|00000be0| 61 a0 24 30 30 62 30 2c | 79 0d 20 6c 64 61 20 23 |a.$00b0,|y. lda #|
|00000bf0| 24 62 33 0d 20 73 74 61 | 20 24 66 37 36 35 20 3b |$b3. sta| $f765 ;|
|00000c00| 53 50 52 49 54 45 53 a0 | 2d 3e a0 24 62 33 0d 20 |SPRITES.|->.$b3. |
|00000c10| 73 74 61 20 24 66 37 66 | 66 0d 20 69 6e 63 20 24 |sta $f7f|f. inc $|
|00000c20| 66 38 30 35 20 3b 70 6c | 61 2f 73 74 61 a0 45 54 |f805 ;pl|a/sta.ET|
|00000c30| 43 2e 0d 20 69 6e 63 20 | 24 66 38 30 38 0d 20 69 |C.. inc |$f808. i|
|00000c40| 6e 63 20 24 66 38 30 62 | 0d 0d 20 73 65 63 0d 20 |nc $f80b|.. sec. |
|00000c50| 64 66 62 20 24 66 62 20 | 3b 58 43 45 0d 20 6c 64 |dfb $fb |;XCE. ld|
|00000c60| 61 20 23 24 30 30 0d 20 | 70 68 61 0d 20 64 66 62 |a #$00. |pha. dfb|
|00000c70| 20 24 61 62 20 3b 70 6c | 62 a0 2d 2d a0 53 54 4f | $ab ;pl|b.--.STO|
|00000c80| 52 45 a0 54 4f a0 42 41 | 4e 4b a0 30 0d 0d 2a a0 |RE.TO.BA|NK.0..*.|
|00000c90| 66 55 52 54 48 45 52 a0 | 6c 6f 61 64 a0 50 41 54 |fURTHER.|load.PAT|
|00000ca0| 43 48 0d 0d 20 6c 64 78 | 20 23 66 34 63 31 2d 66 |CH.. ldx| #f4c1-f|
|00000cb0| 34 61 37 2d 31 0d 3a 6c | 6f 6f 70 20 6c 64 61 20 |4a7-1.:l|oop lda |
|00000cc0| 66 34 61 37 2c 78 0d 20 | 68 65 78 20 39 66 61 37 |f4a7,x. |hex 9fa7|
|00000cd0| 66 34 30 31 20 3b 73 74 | 61 a0 24 30 31 66 34 61 |f401 ;st|a.$01f4a|
|00000ce0| 37 2c 78 0d 20 64 65 78 | 0d 20 62 70 6c 20 3a 6c |7,x. dex|. bpl :l|
|00000cf0| 6f 6f 70 0d 0d 20 72 74 | 73 0d 0d 66 34 61 37 20 |oop.. rt|s..f4a7 |
|00000d00| 68 65 78 20 36 34 39 30 | 20 3b 73 74 7a a0 24 39 |hex 6490| ;stz.$9|
|00000d10| 30 0d 20 6c 64 61 20 24 | 62 61 0d 20 63 6d 70 20 |0. lda $|ba. cmp |
|00000d20| 23 24 30 34 0d 20 62 63 | 73 20 3a 63 6f 6e 74 0d |#$04. bc|s :cont.|
|00000d30| 20 6a 6d 70 20 24 66 37 | 31 33 0d 3a 63 6f 6e 74 | jmp $f7|13.:cont|
|00000d40| 20 6c 64 79 20 24 62 37 | 0d 20 62 6e 65 20 3a 63 | ldy $b7|. bne :c|
|00000d50| 32 0d 20 6a 6d 70 20 24 | 66 32 63 63 0d 3a 63 32 |2. jmp $|f2cc.:c2|
|00000d60| 20 6c 64 78 20 24 62 39 | 0d 20 62 70 6c 20 3a 63 | ldx $b9|. bpl :c|
|00000d70| 33 20 3b 72 45 41 4c 4c | 59 a0 4a 55 53 54 a0 57 |3 ;rEALL|Y.JUST.W|
|00000d80| 41 4e 54 a0 24 66 66 0d | 20 69 6e 78 0d 20 68 65 |ANT.$ff.| inx. he|
|00000d90| 78 20 32 63 0d 3a 63 33 | 20 68 65 78 20 36 34 62 |x 2c.:c3| hex 64b|
|00000da0| 30 20 3b 73 74 7a a0 24 | 62 30 0d 66 34 63 31 0d |0 ;stz.$|b0.f4c1.|
|00000db0| 0d 2a a0 70 41 54 43 48 | a0 65 76 61 6c a0 54 4f |.*.pATCH|.eval.TO|
|00000dc0| a0 52 45 41 44 a0 49 4e | a0 48 45 58 a0 56 41 4c |.READ.IN|.HEX.VAL|
|00000dd0| 55 45 53 0d 0d 68 65 78 | 65 76 61 6c 0d 20 6a 73 |UES..hex|eval. js|
|00000de0| 72 20 63 68 72 67 65 74 | 0d 20 63 6d 70 20 23 27 |r chrget|. cmp #'|
|00000df0| 24 27 0d 20 62 6e 65 20 | 6e 6f 70 65 0d 20 6c 64 |$'. bne |nope. ld|
|00000e00| 61 20 23 24 63 30 0d 20 | 73 74 61 20 24 30 65 20 |a #$c0. |sta $0e |
|00000e10| 3b 31 32 38 2b 36 34 a0 | 3d a0 32 34 2d 42 49 54 |;128+64.|=.24-BIT|
|00000e20| a0 49 4e 54 45 47 45 52 | 0d 20 6c 64 61 20 23 30 |.INTEGER|. lda #0|
|00000e30| 30 0d 20 73 74 61 20 24 | 36 31 20 3b 66 61 63 31 |0. sta $|61 ;fac1|
|00000e40| 3d 30 0d 20 73 74 61 20 | 24 30 64 20 3b 76 61 6c |=0. sta |$0d ;val|
|00000e50| 74 79 70 a0 3d a0 4e 55 | 4d 45 52 49 43 0d 0d 6c |typ.=.NU|MERIC..l|
|00000e60| 6f 6f 70 20 6a 73 72 20 | 63 68 72 67 65 74 0d 20 |oop jsr |chrget. |
|00000e70| 62 65 71 20 6c 69 6e 72 | 74 73 0d 20 62 63 63 20 |beq linr|ts. bcc |
|00000e80| 3a 6e 75 6d 62 65 72 0d | 20 73 62 63 20 23 38 20 |:number.| sbc #8 |
|00000e90| 3b 61 2d 66 a0 57 49 4c | 4c a0 42 45 a0 31 30 2d |;a-f.WIL|L.BE.10-|
|00000ea0| 31 35 0d 3a 6e 75 6d 62 | 65 72 20 73 62 63 20 23 |15.:numb|er sbc #|
|00000eb0| 34 37 0d 20 63 6d 70 20 | 23 31 36 0d 20 62 63 63 |47. cmp |#16. bcc|
|00000ec0| 20 6f 6b 20 3b 63 41 4e | a0 55 53 45 a0 45 2e 47 | ok ;cAN|.USE.E.G|
|00000ed0| 2e a0 24 44 30 2b 35 a0 | 4e 4f 57 0d 20 63 6d 70 |..$D0+5.|NOW. cmp|
|00000ee0| 20 23 34 36 2d 35 35 20 | 3b 63 48 45 43 4b a0 46 | #46-55 |;cHECK.F|
|00000ef0| 4f 52 a0 44 45 43 49 4d | 41 4c a0 50 54 2e 0d 20 |OR.DECIM|AL.PT.. |
|00000f00| 62 6e 65 20 6c 69 6e 72 | 74 73 0d 65 72 72 6f 72 |bne linr|ts.error|
|00000f10| 20 6c 64 78 20 23 31 34 | 20 3b 69 4c 4c 45 47 41 | ldx #14| ;iLLEGA|
|00000f20| 4c a0 51 55 41 4e 54 49 | 54 59 0d 20 6a 6d 70 20 |L.QUANTI|TY. jmp |
|00000f30| 28 24 30 33 30 30 29 0d | 6f 6b 20 70 68 61 0d 20 |($0300).|ok pha. |
|00000f40| 3e 3e 3e 20 50 45 52 2c | 73 69 78 74 65 65 6e 0d |>>> PER,|sixteen.|
|00000f50| 20 70 6c 61 0d 20 74 61 | 78 0d 20 70 6c 61 0d 20 | pla. ta|x. pla. |
|00000f60| 74 61 79 0d 20 74 78 61 | 0d 2a a0 6c 64 61 a0 23 |tay. txa|.*.lda.#|
|00000f70| 3c 73 69 78 74 65 65 6e | 0d 2a a0 6c 64 79 a0 23 |<sixteen|.*.ldy.#|
|00000f80| 3e 73 69 78 74 65 65 6e | 0d 20 6a 73 72 20 24 62 |>sixteen|. jsr $b|
|00000f90| 61 32 38 20 3b 6d 55 4c | 54 49 50 4c 59 a0 66 61 |a28 ;mUL|TIPLY.fa|
|00000fa0| 63 31 a0 42 59 a0 31 36 | 0d 20 70 6c 61 0d 20 6a |c1.BY.16|. pla. j|
|00000fb0| 73 72 20 24 62 64 37 65 | 20 3b 61 44 44 a0 54 4f |sr $bd7e| ;aDD.TO|
|00000fc0| a0 66 61 63 31 0d 20 6a | 6d 70 20 6c 6f 6f 70 0d |.fac1. j|mp loop.|
|00000fd0| 0d 6e 6f 70 65 20 6c 64 | 78 20 74 78 74 70 74 72 |.nope ld|x txtptr|
|00000fe0| 20 3b 62 41 43 4b a0 55 | 50 a0 74 78 74 70 74 72 | ;bACK.U|P.txtptr|
|00000ff0| 0d 20 62 6e 65 20 3a 73 | 6b 69 70 0d 20 64 65 63 |. bne :s|kip. dec|
|00001000| 20 74 78 74 70 74 72 2b | 31 0d 3a 73 6b 69 70 20 | txtptr+|1.:skip |
|00001010| 64 65 63 20 74 78 74 70 | 74 72 0d 20 6a 6d 70 20 |dec txtp|tr. jmp |
|00001020| 28 24 30 33 33 34 29 20 | 3b 6e 4f 52 4d 41 4c a0 |($0334) |;nORMAL.|
|00001030| 52 4f 55 54 49 4e 45 0d | 0d 73 69 78 74 65 65 6e |ROUTINE.|.sixteen|
|00001040| 20 66 6c 6f 20 31 36 20 | 3b 31 36 a0 49 4e a0 35 | flo 16 |;16.IN.5|
|00001050| 2d 42 59 54 45 a0 46 50 | a0 28 24 38 35 a0 30 30 |-BYTE.FP|.($85.00|
|00001060| a0 30 30 a0 30 30 a0 30 | 30 29 0d 0d 20 74 78 74 |.00.00.0|0).. txt|
|00001070| 20 27 4a 55 44 44 27 0d | 0d 2a 0d 2a a0 63 4f 50 | 'JUDD'.|.*.*.cOP|
|00001080| 59 a0 42 59 54 45 53 a0 | 4f 46 a0 66 61 63 31 a0 |Y.BYTES.|OF.fac1.|
|00001090| 49 4e 54 4f a0 6c 69 6e | 6e 75 6d a0 41 4e 44 a0 |INTO.lin|num.AND.|
|000010a0| 6e 75 6d 32 34 0d 2a 0d | 2a a0 6f 4e a0 45 58 49 |num24.*.|*.oN.EXI|
|000010b0| 54 2c a0 2e 79 a0 2e 61 | a0 3d a0 6c 69 6e 6e 75 |T,..y..a|.=.linnu|
|000010c0| 6d 2b 31 2c a0 6c 69 6e | 6e 75 6d 0d 2a 0d 6c 69 |m+1,.lin|num.*.li|
|000010d0| 6e 66 65 74 63 68 0d 20 | 6c 64 61 20 24 36 33 20 |nfetch. |lda $63 |
|000010e0| 3b 48 49 47 48 0d 20 73 | 74 61 20 6e 75 6d 32 34 |;HIGH. s|ta num24|
|000010f0| 2b 32 0d 20 6c 64 61 20 | 24 36 34 20 3b 4d 45 44 |+2. lda |$64 ;MED|
|00001100| 0d 20 6c 64 79 20 24 36 | 35 20 3b 4c 4f 57 0d 20 |. ldy $6|5 ;LOW. |
|00001110| 73 74 79 20 6c 69 6e 6e | 75 6d 0d 20 73 74 79 20 |sty linn|um. sty |
|00001120| 6e 75 6d 32 34 0d 20 73 | 74 61 20 6c 69 6e 6e 75 |num24. s|ta linnu|
|00001130| 6d 2b 31 0d 20 73 74 61 | 20 6e 75 6d 32 34 2b 31 |m+1. sta| num24+1|
|00001140| 0d 6c 69 6e 72 74 73 20 | 72 74 73 0d 0d 2a 0d 2a |.linrts |rts..*.*|
|00001150| a0 70 41 54 43 48 a0 6c | 6f 61 64 2b 73 61 76 65 |.pATCH.l|oad+save|
|00001160| a0 43 4f 4d 4d 41 4e 44 | a0 54 4f a0 52 45 41 44 |.COMMAND|.TO.READ|
|00001170| a0 41 44 44 52 45 53 53 | a0 49 46 a0 50 52 45 53 |.ADDRESS|.IF.PRES|
|00001180| 45 4e 54 2e 0d 2a 0d 73 | 61 76 65 20 6a 73 72 20 |ENT..*.s|ave jsr |
|00001190| 67 65 74 70 61 72 6d 73 | 20 3b 67 45 54 a0 31 53 |getparms| ;gET.1S|
|000011a0| 54 a0 54 57 4f a0 50 41 | 52 4d 53 0d 20 62 6e 65 |T.TWO.PA|RMS. bne|
|000011b0| 20 6c 69 6e 72 74 73 20 | 3b 65 58 49 54 0d 20 6a | linrts |;eXIT. j|
|000011c0| 73 72 20 73 65 74 6e 75 | 6d 20 3b 24 61 63 a0 49 |sr setnu|m ;$ac.I|
|000011d0| 53 a0 4e 4f 57 a0 53 54 | 41 52 54 a0 41 44 44 52 |S.NOW.ST|ART.ADDR|
|000011e0| 45 53 53 0d 20 6a 73 72 | 20 67 65 74 69 74 0d 20 |ESS. jsr| getit. |
|000011f0| 6a 73 72 20 63 68 65 6b | 32 34 0d 20 62 6e 65 20 |jsr chek|24. bne |
|00001200| 65 72 72 6f 72 20 3b 52 | 45 51 55 49 52 45 a0 41 |error ;R|EQUIRE.A|
|00001210| 4e 4f 54 48 45 52 a0 41 | 44 44 52 45 53 53 0d 20 |NOTHER.A|DDRESS. |
|00001220| 6c 64 79 20 6e 75 6d 32 | 34 2b 31 20 3b 45 4e 44 |ldy num2|4+1 ;END|
|00001230| a0 41 44 44 52 45 53 53 | 0d 20 6c 64 61 20 6e 75 |.ADDRESS|. lda nu|
|00001240| 6d 32 34 2b 32 0d 20 73 | 74 61 20 68 69 67 68 70 |m24+2. s|ta highp|
|00001250| 74 72 0d 20 70 6c 61 0d | 20 70 6c 61 0d 20 6c 64 |tr. pla.| pla. ld|
|00001260| 61 20 23 24 61 63 20 3b | 53 54 41 52 54 a0 41 44 |a #$ac ;|START.AD|
|00001270| 44 52 45 53 53 0d 20 6a | 6d 70 20 24 65 31 35 36 |DRESS. j|mp $e156|
|00001280| 2b 39 0d 0d 6c 6f 61 64 | 20 6a 73 72 20 67 65 74 |+9..load| jsr get|
|00001290| 70 61 72 6d 73 0d 20 62 | 6e 65 20 6c 69 6e 72 74 |parms. b|ne linrt|
|000012a0| 73 0d 20 6a 73 72 20 73 | 65 74 6e 75 6d 0d 20 70 |s. jsr s|etnum. p|
|000012b0| 6c 61 20 3b 4f 4c 44 a0 | 52 45 54 55 52 4e a0 41 |la ;OLD.|RETURN.A|
|000012c0| 44 44 52 45 53 53 0d 20 | 70 6c 61 0d 20 6c 64 61 |DDRESS. |pla. lda|
|000012d0| 20 24 30 61 0d 20 6a 6d | 70 20 24 65 31 36 63 2b | $0a. jm|p $e16c+|
|000012e0| 39 20 3b 69 4e 54 4f a0 | 54 48 45 a0 4c 4f 41 44 |9 ;iNTO.|THE.LOAD|
|000012f0| a0 52 4f 55 54 49 4e 45 | 0d 0d 67 65 74 69 74 20 |.ROUTINE|..getit |
|00001300| 6a 73 72 20 24 65 32 30 | 65 20 3b 63 48 45 43 4b |jsr $e20|e ;cHECK|
|00001310| a0 46 4f 52 a0 43 4f 4d | 4d 41 0d 20 6a 73 72 20 |.FOR.COM|MA. jsr |
|00001320| 24 61 64 38 61 20 3b 47 | 45 54 a0 4e 55 4d 42 45 |$ad8a ;G|ET.NUMBE|
|00001330| 52 0d 20 6a 73 72 20 24 | 62 37 66 37 20 3b 43 4f |R. jsr $|b7f7 ;CO|
|00001340| 4e 56 45 52 54 a0 54 4f | a0 49 4e 54 0d 20 6c 64 |NVERT.TO|.INT. ld|
|00001350| 78 20 6e 75 6d 32 34 20 | 3b 4c 4f 57 a0 42 59 54 |x num24 |;LOW.BYT|
|00001360| 45 a0 49 4e a0 2e 78 0d | 20 72 74 73 0d 0d 67 65 |E.IN..x.| rts..ge|
|00001370| 74 70 61 72 6d 73 20 6a | 73 72 20 24 65 31 64 34 |tparms j|sr $e1d4|
|00001380| 20 3b 67 45 54 a0 31 53 | 54 a0 54 57 4f a0 50 41 | ;gET.1S|T.TWO.PA|
|00001390| 52 4d 53 0d 63 68 65 6b | 32 34 20 6c 64 79 20 23 |RMS.chek|24 ldy #|
|000013a0| 24 66 66 0d 20 6c 64 61 | 20 24 30 65 20 3b 63 48 |$ff. lda| $0e ;cH|
|000013b0| 45 43 4b a0 46 4f 52 a0 | 32 34 2d 42 49 54 a0 48 |ECK.FOR.|24-BIT.H|
|000013c0| 45 58 a0 56 41 4c 55 45 | 0d 20 63 6d 70 20 23 24 |EX.VALUE|. cmp #$|
|000013d0| 63 30 0d 20 62 6e 65 20 | 3a 72 74 73 0d 20 73 74 |c0. bne |:rts. st|
|000013e0| 79 20 24 62 39 20 3b 73 | 61 a0 2d 2d a0 32 34 2d |y $b9 ;s|a.--.24-|
|000013f0| 42 49 54 a0 46 4c 41 47 | 0d 3a 72 74 73 20 72 74 |BIT.FLAG|.:rts rt|
|00001400| 73 0d 0d 73 65 74 6e 75 | 6d 20 6c 64 78 20 6e 75 |s..setnu|m ldx nu|
|00001410| 6d 32 34 0d 20 73 74 78 | 20 24 61 63 20 3b 73 61 |m24. stx| $ac ;sa|
|00001420| 76 65 a0 53 54 41 52 54 | a0 41 44 44 52 45 53 53 |ve.START|.ADDRESS|
|00001430| 45 53 0d 20 6c 64 79 20 | 6e 75 6d 32 34 2b 31 0d |ES. ldy |num24+1.|
|00001440| 20 73 74 79 20 24 61 64 | 0d 20 6c 64 61 20 6e 75 | sty $ad|. lda nu|
|00001450| 6d 32 34 2b 32 0d 20 73 | 74 61 20 24 62 30 20 3b |m24+2. s|ta $b0 ;|
|00001460| 61 4c 57 41 59 53 a0 48 | 49 47 48 a0 41 44 44 52 |aLWAYS.H|IGH.ADDR|
|00001470| 45 53 53 0d 20 72 74 73 | 0d 0d 2a 0d 2a a0 73 61 |ESS. rts|..*.*.sa|
|00001480| 76 65 a0 43 4f 4d 50 41 | 52 45 a0 41 4e 44 a0 49 |ve.COMPA|RE.AND.I|
|00001490| 4e 43 52 45 4d 45 4e 54 | a0 52 4f 55 54 49 4e 45 |NCREMENT|.ROUTINE|
|000014a0| 53 0d 2a 0d 63 6d 70 73 | 61 76 65 20 73 65 63 0d |S.*.cmps|ave sec.|
|000014b0| 20 6c 64 61 20 24 61 65 | 0d 20 73 62 63 20 24 61 | lda $ae|. sbc $a|
|000014c0| 63 0d 20 6c 64 61 20 24 | 61 66 0d 20 73 62 63 20 |c. lda $|af. sbc |
|000014d0| 24 61 64 0d 20 6c 64 61 | 20 24 62 30 0d 20 73 62 |$ad. lda| $b0. sb|
|000014e0| 63 20 68 69 67 68 70 74 | 72 0d 20 72 74 73 0d 0d |c highpt|r. rts..|
|000014f0| 69 6e 63 73 61 76 65 20 | 69 6e 63 20 24 61 65 0d |incsave |inc $ae.|
|00001500| 20 62 6e 65 20 3a 72 74 | 73 0d 20 69 6e 63 20 24 | bne :rt|s. inc $|
|00001510| 61 66 0d 20 62 6e 65 20 | 3a 72 74 73 0d 20 69 6e |af. bne |:rts. in|
|00001520| 63 20 24 62 30 0d 3a 72 | 74 73 20 72 74 73 0d 0d |c $b0.:r|ts rts..|
|00001530| 2a 0d 2a a0 70 41 54 43 | 48 a0 73 61 76 65 a0 56 |*.*.pATC|H.save.V|
|00001540| 41 52 49 41 42 4c 45 53 | 0d 2a 0d 73 62 30 20 69 |ARIABLES|.*.sb0 i|
|00001550| 6e 78 20 3b 2e 78 a0 43 | 4f 4e 54 41 49 4e 53 a0 |nx ;.x.C|ONTAINS.|
|00001560| 73 61 0d 20 62 65 71 20 | 3a 73 6b 69 70 20 3b 6f |sa. beq |:skip ;o|
|00001570| 4e 45 a0 42 59 54 45 a0 | 53 48 4f 52 54 a0 4f 46 |NE.BYTE.|SHORT.OF|
|00001580| a0 41 a0 46 49 54 a0 49 | 4e 54 4f 0d 20 64 66 62 |.A.FIT.I|NTO. dfb|
|00001590| 20 24 36 34 2c 24 62 30 | 20 3b 73 61 76 65 a0 49 | $64,$b0| ;save.I|
|000015a0| 54 53 45 4c 46 2e 0d 20 | 64 66 62 20 24 36 34 2c |TSELF.. |dfb $64,|
|000015b0| 68 69 67 68 70 74 72 20 | 3b 73 74 7a 0d 3a 73 6b |highptr |;stz.:sk|
|000015c0| 69 70 20 6c 64 61 20 24 | 63 31 20 3b 53 54 41 52 |ip lda $|c1 ;STAR|
|000015d0| 54 a0 41 44 44 52 45 53 | 53 a0 2d 3e a0 24 61 65 |T.ADDRES|S.->.$ae|
|000015e0| 0d 20 6c 64 78 20 24 61 | 65 20 3b 45 4e 44 a0 41 |. ldx $a|e ;END.A|
|000015f0| 44 44 52 45 53 53 a0 2d | 3e a0 24 61 63 0d 20 73 |DDRESS.-|>.$ac. s|
|00001600| 74 61 20 24 61 65 0d 20 | 73 74 78 20 24 61 63 0d |ta $ae. |stx $ac.|
|00001610| 20 6c 64 61 20 24 63 32 | 0d 20 6c 64 78 20 24 61 | lda $c2|. ldx $a|
|00001620| 66 0d 20 73 74 61 20 24 | 61 66 0d 20 73 74 78 20 |f. sta $|af. stx |
|00001630| 24 61 64 0d 20 6a 6d 70 | 20 24 66 33 64 35 20 3b |$ad. jmp| $f3d5 ;|
|00001640| 43 4f 4e 54 49 4e 55 45 | a0 41 53 a0 4e 4f 52 4d |CONTINUE|.AS.NORM|
|00001650| 41 4c 0d 0d 2a 0d 2a a0 | 73 41 56 45 a0 4c 4f 41 |AL..*.*.|sAVE.LOA|
|00001660| 44 a0 41 44 44 52 45 53 | 53 0d 2a 0d 73 61 76 65 |D.ADDRES|S.*.save|
|00001670| 61 64 64 72 0d 20 6c 64 | 61 20 24 61 65 0d 20 73 |addr. ld|a $ae. s|
|00001680| 74 61 20 24 63 33 0d 20 | 6c 64 61 20 24 61 66 0d |ta $c3. |lda $af.|
|00001690| 20 73 74 61 20 24 63 34 | 0d 20 6a 6d 70 20 24 66 | sta $c4|. jmp $f|
|000016a0| 35 64 32 0d             |                         |5d2.    |        |
+--------+-------------------------+-------------------------+--------+--------+